(* 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[ 461483, 10034] NotebookOptionsPosition[ 296302, 6875] NotebookOutlinePosition[ 438203, 9539] CellTagsIndexPosition[ 436394, 9489] WindowTitle->GeneralizedSmoothStep | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["GeneralizedSmoothStep", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->113331143], Cell["A generalized sigmoidal interpolating polynomial", "Text", CellTags->{"Description", "TemplateCell"}, CellID->125270565], 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[{"ssd", "[", RowBox[{ RowBox[{"r_Integer", "?", "NonNegative"}], ",", RowBox[{"n_Integer", "?", "NonNegative"}], ",", "t_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", " ", "+", " ", "1"}], ")"}], "!"}], " ", RowBox[{"Binomial", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "n"}], " ", "+", " ", "1"}], ",", " ", RowBox[{"n", " ", "+", " ", "1"}]}], "]"}], " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"n", " ", "+", " ", "1"}], " ", "==", " ", "r"}], ",", " ", "1", ",", RowBox[{"t", "^", RowBox[{"(", RowBox[{"n", " ", "-", " ", "r", " ", "+", " ", "1"}], ")"}]}]}], "]"}], " ", RowBox[{"Hypergeometric2F1Regularized", "[", RowBox[{ RowBox[{"-", "n"}], ",", " ", RowBox[{"n", " ", "+", " ", "1"}], ",", " ", RowBox[{"n", " ", "-", " ", "r", " ", "+", " ", "2"}], ",", "t"}], "]"}]}]}]], "Input", TaggingRules->{}, CellLabel->"In[15]:=", CellID->383396303], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ssdc", "[", RowBox[{"r_Integer", "?", "NonNegative"}], "]"}], "[", RowBox[{ RowBox[{"n_Integer", "?", "NonNegative"}], ",", "x_"}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"f", "=", RowBox[{"Cancel", "[", RowBox[{"ssd", "[", RowBox[{"r", ",", "n", ",", "t"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"Piecewise", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"x", "\[LessEqual]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Boole", "[", RowBox[{"r", "==", "0"}], "]"}], ",", RowBox[{"1", "\[LessEqual]", "x"}]}], "}"}]}], "}"}], ",", RowBox[{"f", "/.", RowBox[{"t", "\[Rule]", "x"}]}]}], "]"}]}], "]"}]}], "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[16]:=", CellID->928881263], Cell[BoxData[ RowBox[{ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{ RowBox[{"n_Integer", "?", "NonNegative"}], ",", RowBox[{"x_", "?", "Internal`RealValuedNumericQ"}]}], "]"}], ":=", RowBox[{"ssd", "[", RowBox[{"0", ",", "n", ",", " ", RowBox[{"Clip", "[", RowBox[{"x", ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1"}], "}"}]}], "]"}]}], "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[17]:=", CellID->328134901], Cell[BoxData[ RowBox[{"GeneralizedSmoothStep", "/:", RowBox[{ RowBox[{"Derivative", "[", RowBox[{"0", ",", RowBox[{"r_Integer", "?", "Positive"}]}], "]"}], "[", "GeneralizedSmoothStep", "]"}], ":=", RowBox[{"ssdc", "[", "r", "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[18]:=", CellID->538735283], Cell[BoxData[ RowBox[{"SetAttributes", "[", RowBox[{"GeneralizedSmoothStep", ",", " ", RowBox[{"{", RowBox[{"NHoldFirst", ",", "NumericFunction", ",", " ", "Listable"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[19]:=", CellID->56027093] }, 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[{"GeneralizedSmoothStep", "[", RowBox[{ StyleBox["n", "TI"], ",", StyleBox["x", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->833039938], Cell[TextData[{ "is the generalized smoothstep function of order ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " at position ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->951439783] }, 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 generalized smoothstep function is defined as ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox[ StyleBox["S", "TI"], StyleBox["n", "TI"]], "(", StyleBox["x", "TI"], ")"}], "\[LongEqual]", RowBox[{ SuperscriptBox[ StyleBox["x", "TI"], RowBox[{ StyleBox["n", "TI"], "+", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{ StyleBox["k", "TI"], "=", "0"}], StyleBox["n", "TI"]], RowBox[{ TagBox[ RowBox[{"(", GridBox[{ { TagBox[ RowBox[{" ", RowBox[{ StyleBox["n", "TI"], "+", StyleBox["k", "TI"]}]}], Identity, Editable->True, Selectable->True]}, { TagBox[ StyleBox["k", "TI"], Identity, Editable->True, Selectable->True]} }], ")"}], InterpretTemplate[Binomial[#, #2]& ], Editable->False, Selectable->False], " ", TagBox[ RowBox[{"(", GridBox[{ { TagBox[ RowBox[{" ", RowBox[{ RowBox[{"2", StyleBox["n", "TI"]}], "+", "1"}]}], Identity, Editable->True, Selectable->True]}, { TagBox[ RowBox[{ StyleBox["n", "TI"], "-", StyleBox["k", "TI"]}], Identity, Editable->True, Selectable->True]} }], ")"}], InterpretTemplate[Binomial[#, #2]& ], Editable->False, Selectable->False], SuperscriptBox[ RowBox[{"(", RowBox[{"-", StyleBox["x", "TI"]}], ")"}], StyleBox["k", "TI"]]}]}]}]}], TraditionalForm]], "InlineMath"], "." }], "Notes", CellTags->"TabNext", CellID->440948280], Cell[TextData[{ "For nonnegative integer ", Cell[BoxData[ FormBox[ StyleBox["n", "TI"], TraditionalForm]], "InlineMath", TextAlignment->Center], " and ", Cell[BoxData[ FormBox[ RowBox[{"0", "\[LessEqual]", StyleBox["x", "TI"], "\[LessEqual]", "1"}], TraditionalForm]]], ", ", Cell[BoxData[ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{ StyleBox["n", "TI"], ",", StyleBox["x", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is a polynomial of degree ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"2", StyleBox["n", "TI"]}], "+", "1"}], TraditionalForm]], "InlineMath", TextAlignment->Center], "." }], "Notes", CellTags->"TabNext", CellID->485543477], Cell["\<\ For positions less than 0 or greater than 1, the result clamps to 0 and 1, \ respectively.\ \>", "Notes", CellID->104647494], Cell[TextData[{ Cell[BoxData["GeneralizedSmoothStep"], "InlineFormula", FontFamily->"Source Sans Pro"], " can be evaluated to arbitrary numerical precision." }], "Notes", CellTags->"TabNext", CellID->364676306], Cell[TextData[{ Cell[BoxData["GeneralizedSmoothStep"], "InlineFormula", FontFamily->"Source Sans Pro"], " automatically threads over lists." }], "Notes", CellTags->"TabNext", CellID->113336511], Cell[TextData[{ "The ", Cell[BoxData["GeneralizedSmoothStep"], "InlineFormula", FontFamily->"Source Sans Pro"], "operation is common in computer graphics." }], "Notes", CellID->172318807] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Examples"}, CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", Deletable->True, TaggingRules->{}, CellID->345926105], Cell["Interpolate at a position on a step:", "Text", TaggingRules->{}, CellChangeTimes->{{3.783341414750579*^9, 3.783341427884432*^9}, { 3.7833415391730328`*^9, 3.783341547709073*^9}}, CellID->857195184], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{"3", ",", "5"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.783341517609318*^9}, CellLabel->"In[1]:=", CellID->981680545], Cell[BoxData["1"], "Output", TaggingRules->{}, CellChangeTimes->{3.793723760400071*^9}, CellLabel->"Out[1]=", CellID->324749995] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["Show the smooth steps for multiple orders:", "Text", TaggingRules->{}, CellChangeTimes->{{3.783341680039463*^9, 3.783341687524671*^9}}, CellID->771794380], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{"n", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "3"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{"3", "/", "2"}]}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Range", "[", RowBox[{"0", ",", "3"}], "]"}]}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[2]:=", CellID->565875278], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxF1HtQEwQcwPEFiMhqCnrOImHhjIdwXLxn0AgpEDF5zeRCZoA8Rk7iOKAA x1SQR1q3CRyQM0AHDmEKiTCJhTyieAjHeISwMUBAx0hgPExw1Z39fr+7333u +8/vz9974WcDT+sQCITUf/c/Q8/ZyLRahZTweuRL3juWV7BPRUf4zaiwT/sX t3UPY7PNDe4VibG5HVP5DkxsIank8+hmOfRzwbbHvWnj0KJbZNmF1lFo9wyF Jdt1BO8PZxNNJYPQ7XsiJuq2DECv7F/bweH0QRceTIk+ldUFzbFu7zxq0QH9 dm2m8ia1BVpr4v8LP+4+NFN/3S/8sgi6Ouos7f2KXGjNHoFQcTQH2q2re2eR 5hJ0t531AtEzE3pk8fdPpho50DU2rA80vpHQJarD3XVdJ6FH06VOnDeCoB0o rI/y2R7QrmqR5Fghlf6/jwqkJu4SX9CSxqIGWZwAGblSS/l4FOjcope47vkV SNy4wdwmiwdV9s9E+2hJ4HF/CeU2NwMkCfLqlka5YIcq9FOa4wXQ+ZI2rmMm EyQ3e92fOJIHzufPCg2JfPC2boI7ffAayHOZt2MkCcCUuCjzOPJ1sCy2+kKX zU/gmf7SmDV2KahXmmt/bLkcdPAI7Xj1shL0kWpXa7LugkSGgpEU3wTaJP7Y zOe3ghThYDGX1wl26lbzyjd7QEVkdqxtVj/488kccvkhGagarHQJ0gyBh8+T NnqS/gS5Xod6w+3GwImDzV4PG+VgwEjV7pqSCdDMdMIoe0UJEs65ML1dp8De mKS6nQXT4Gf8No909RNQOexE6badBb+suKJvmTMHan4wpMf2PAVpkvw73kQV yGIbWDlEzoNiN8GyrlAN7rKfZiVXoSkW1pPP7qCexvV9/Q/Qodme6uv96AZv M/rDTdTnaehYQvACWC0vC5oJQY1lc3+EMNHHzYmNHiyUffW7AlIGepXe5C+q QpX5Ju1Knb/AGrKof30rmlbkKt/+Frr7GmPNnYz63vjeqvgAWlureyUwGOU4 8opjQ1C/ekpFRhg60+j+a00MatKSvGSYjl58pDreehMNCPg2YlSEmg4YxC+K 0Yah/TlmEnR+nPkgtRdtZC78xhtAs5RpslsjKOVJkXp4ElVHWf69MItK5ur1 9dUoY37AzHENNWeH2xzZQNeTU969S3hOf/396fIGaZmbLnb7C32rzi3YvNR8 J4UhNnNzn+fqduwXhI+/oL6DzdcLSwykYvsv5uRZJ2KT5PfKdNqwCencYNrX i9AvK8PEk8ZL0GeKxZeNH2I3HMg2MGIvQ7/pm2BznqSBHrbtG/imCbtKQKdO h61AnxA7G+19hZ2aWcodE61CV87tLSH5rUFTLu7y2SrELjQjrmi12P8A1LBV sQ== "]]}, Annotation[#, "Charting`Private`Tag$33540#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxF13k01tsaB3CERBJ16EQlY4nbjRSFrzToIImUylBpkEqdcvSWKQ2iDB1j iK4hGSLzVKJkyhARjjEkw/u+v12ZFe7vrnXX++619nrWZ6299tp7P99/9tqT l8xP8/Hw8Hyh5/+qtYdq8/x8TwnP/0f3D8Olo+NcHz9rb/KVyfVps8h3ta1c O8kJ5Ua84Nqroj9Uw47rxCVRh8++7ub4W8yijnq3Lo5TkqWab5e1c6x7s2ed k1Ybd/9WH5HVRZ84Ll9h/zlboInjccXJpZ6eDRyHb2OcPe5dw7GnSnnVPuUK jn/Putv7VOENx/PSZsXB5/M5thOcMjnpn8Jx2plL2krP7nM8tiImsWefL8c6 NbXLIsbucVy7UYUSMbjLcdv36t39hZ4cp6s6bhozOsVxFPOP2uwaG47b3Us0 PXktONaQddQLddLnWIudUrQ/XAHiZyWMbHuu6n0IK5HWLTKC0OHi1x9fluqt 03ZUsFC2gkODv0rfgQ49Z4sbXWWME8jpUejqDGbpWd4vWdfddQZDT3xdv7lM 6W15w+88ZXABQgvyQ/5I44PIrwS7Rc2XschcgjF+XRiu4YZ3w7yvgor5In67 QRxM9ZEUeW0XZMkPDvOJS8G63q8hg8lA1eSik5iTQe25jRO6Ma6oVZOvnatZ Cx2Bj9I1Zh6orzSy5L2kiENmRbLPvW5C1pHRschhPZbEPMj+0e6F2Zwk9kye GiqY1nu0N9+GqcIF/w61TfDQ/tc/nv53EN3He31pqga23Js/X/H1LrwHlnmJ WmwB1dwwt1j/HpTdZdllitpIlIv72yLCB5HTT/kV5XUg9XpX/mfjByi4LKzS YroDDSKSRspP/eDt4u5/VHQnfI4Mdl6c88dEQPInyd5dcJvZ5eVu9RAT4evj f6/aC1boYKKwSDAE8tpEi6vNUKVj9i0tPxh6OSMV12YPIKG/QPvAqRDwdVry Zm63gPWm+7XhxaEwmMrd8bDVErW1qj8ULj+CW4j4QKTfMSRdDd1eJROBerET 0X3LbHBn5dyd89UR6D8oeObBU1voOHyQypKLgs6eofyp0eN4vuCKLj5FY+4b U/Wg8ykEbWVttHSJQf3t7Me7DpwG4/wZufNST/Cr5JFAmvoZxJ1Lu12j+h8o VcxW9vA54GJjrMOkUyy8BWY14tvOgz/2vvr+0XhESIWcXa96BZNFlRvadybg cK5O/sLXVzDSzK94OiQBSsaTopLmV9Eg5CnlqvkUjco7m0puOuPx5au/Eq8l Yrd81Af1KRdo6FtXzP1MAr8EQ46YukHpaESJr0kythZJqTsvcMcK55aC5dHJ 6HQ3sVhV5I65Z2apKnopsJWVrGtT88R7sd0PD91MhUiSYdslKS+c7FE7ms6f jr4EuQED4zvYWzI/ke6dCceHYt9dXR/gia7r8kNZmQhoWjabx+uHiZcTm2a7 MuGU60Ep+vohoYB9wVgzCyH2ayOjo/zBk9XRN9ifBWZtdenX+kAUJuTXy+7I gfnkw5ZtW4Ogcv9SYtDPPKjKf/FeYRgOLyFmmbZyPor+c8Jq7nE42rzP9H42 z8flxAkPl9FweN+2kdmYkg/HxuxWmbhH6HMzDqqxKsC+w0Gi2wUjEXlJ2YM/ rxCHM6K3+ww/hohlj6XL5Vco4L0YbOMfC6uXbisPRL2C6Xp/O8PSWCSuXdmz oeIVdM778DuPxkKfOujQK12MiCcVp0OPxsH53vsbJpXFGHK2tR3fEI/uwtwn cqtLYKrUS5Z2JOCIWIXz4EApDAxtmljnkqDq/Ph1cHAZdtW9fT+2NgNjVqIu gc/KsP/fD9IldmTgla6H2oOXZZj5U+C20fEMGC88/vhWfxm+Ju37sPBJBhwj 5W/8qfEOeNCTlr8qE8mlKZr7m95h1Dxmb9+aLCiJFj4XXlYBPZdNa8W35kA2 8VOkV1AVoo1nyvakF6BqQVpQ/GwdHEsfmuZWv0HPKZ9zat6NuD7q+LbfpxI5 Nr5S8TubsXLJjTU8dvVgfkraajHWgv0aD/V5az7ij1tLftW5/INbz+cZ0pYt 8Nq1s/7kxk4MDZa08Zu24/O217veFnbjfWpy7IBkNw60pUqmR33GfF+ylcPw Z6xZ/VncZ7wXBard8b6sPvB4bLUz1OrHzAcjg6KyL6h3cMleFvYF20nnwr6M rzANfqfvzh7AyxxRFym3IfS2asrWqg2ioaDcPFdkBCeeBQiu8x1CR2u0b2UY E2MPhXGubhhUw+R2tS4WIoobCo5/HMbL+0/VmnpZ0BsJU7dqHYaCEWOvy1cW fHbKKxn2DiMjpn40m7AgM7FdVHF8GMK8ItOL+djYfexix2eZEbwrVnTbrMRG mGLDNasLI4hJ/3l4/wU2tItCMwxFmNBaT83ZEzaE716zTV3KRBfb8nH0KBvt +48sFpNkokg36K+mSTbcBmQcWmSZ0F+q3qzBQ6F0acKa01uYcGJkLqlcSmHP 2ayAWyeYeLW8sktzEwXz5R8uFOczMcMQEV13iYJ8T8bKtcVM6H1XCh+4QmEs Oajqzlsmat3t5Z64UAjFIQWTOiaGTw1vFvSg0ObY1dHex4S4fY1kgh8F2zdM oylRFsK659VXJVNwdBJar3GKBZ36ofHJbgrx5eoXtp1jwYSV1DvTS6FTxubF DicWNDC7ZuYLBdOaTE0zBgv6LRcC2CMU1NcdM7jox4LF4gyhpAkKP3vTjj3L YSE8Q0jRUZTAz9IiQFqADSpyWeAKLYLy5+6NcsJsdJw6OhK3jWBuQdJyFTE2 rKfvOazXJbic9StS63c2PjXHVqoYEFiKJT6zVGMj/tGKwTljgtXVU6WBlmzU nj9ow7QleKETM7ogkY13vJKF770Ilqt/cbyWyobMR8WzfHcIGMoqfSMZbKiI pphrehMYSOQ1NL5kY0Sa0e53n6BlsC7tSSMbBgsFGHzBBL+CZs9un2Wj51Lu DsF4ghM+O3vS+SiQP/b0f0sgqHD3PSQnRCHmGyu+JZEg0OG33YuWUdj7q/9G cAqBnJ6aXOs6CloMC6OPmQR7h607rxykwLIWqThZQpDWHWfx9QgFQTuNv+ZK CSSah94fsaMQFyihGPqWoOO1c6G+I4WOZlvP7HICpxC/sCU3KUQeXTScXUPQ 5PtR9NZdCpI65Q7KdQRanivujt+n95sVag+tJ+B1TLjaGUrn6q+HvvaNBCF4 ZZaSSqE37frgmxaC6c18Vasy6VxNmL5e3EZgq7IXf+dRUP3gds38HwLl35rV GG8oBNw38q3vICgaYQrvaaVgHewz7vOZoDdUuryXjyDd8KShwDBdpVIapxbS 58pRlWbTdovQ6haj+24vmmLbMEIgGW05qStF8IUn8F++LAKjhMD1kRsIav58 VVFGCKSUVm/J/DdBZ1Eby/sbve7Zc4MqTQIPYuSy+ztdU6uPTYAgIIovLecH QVbWggDzgwTmntc9jo0TeG4Oijx3hMDl6XzwNG2TPNlnN+lcmOd78ARPEHwt 1C1NdyDQW63dlj9JkL29trb8IsExDRv9nVMEN4uP/tN5hUA/x3i6mrb0m2s/ hN0J3K8fOVw9TTBkIDi/9hZBu/uJ6R0zBHnvQkS07xH85iTwNZe2WVWmwtm/ CTYF/XgU+JNglZH+Jo8wgpXeCtbjtEdq6nVDowjGBsrsD/0iuPOBeajsKcGt czLbhGcJDhy4Yd9O52bHvtcCNrRXNwld/v6CgG/VE7FU2syD4W5CuQRVWhqH xmgXtCj6rikiiOAhrVpzBHetckK30Llyad4TzKBt3m4Qt+8dwfnlL7yzaa+x bkw/VU3wl+zjjGHarC67l650Th5b3RKTnicotKMqg5rod5dpiTWk7d3r1pxM 58KiTuTMJdoW9iK9pV30ParDjwbRlh2IYLf2EeRcodwzaLPPrJuhBukcKN+p r6ZdNJQnKMgm6N9bZ9RN28dx97JVdN/Mt+h9Z9O2ZDWt2Uz3gd/MuHSKtpzT SVVj+l1+jTvkzdGeusaQyeT5hv//RtBdUBKns4Dr8mnB9VUCXAe5hmr2CHNt NytvMCHG9TTPjmMKK7kO5rd1Nlfg2uy77wMVZ66XdOfG8b3jmsfd66D2n985 /plk+6JP4gfHFyNf+Eu85bpgg4+QuNMox4uNrqjeWjLGcataQ9P1V1ynxkDh i+04x1YvtoivmuPa9W6sV2fKBMdJQ6uilphMcix7Z/nehYlch68RGZ+f5/q/ Di6tdQ== "]]}, Annotation[#, "Charting`Private`Tag$33540#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxF2Hk0Ff8fx3FJpXxD9oqyFSktpPjivrSSKGsoRZKQpBIlS9bQZglJIWsh +549iZKlhJAly+Ve9w5CJPnN95zf0fwz53HOnPnMnJn3c84ZMYvLeudZWVhY zJewsPy3N3Xf1rKw0FPO8v+te0Kd+8fUX5tfOKc1RP/r8zpPquvb/tpenD0v MuOvPWv6w+TN/jqJM8roQln3oseiV3Y2uH5bdMpLwRbvNx2LVr3dI22v2P73 /G3+HBuKvyz6rdC53pxlnxc9teknt4dH06Ij/r1xwdzvw6I9ZN7WakvVLHpt tm9fomTlohfW65SGXixYtNnyGS2L+ymLfmV1WWlzcuCiJ4Wik3q0Axat8qGe N3LyzqLrd8gwOfb7Lrp9vO5Qf5HHotO32e6a1LRcdBT9SH3Oh9OL7nArV/BY or9oeVFbSpi92qIVGSnFxyMkITFqt0/1+FvVxvDy9arFmmColQ0eUt9LkVay ldSXMkbfko2Uii1nKY76Lt/e3DgLjF6Q85y6STEMLJfu/maF5h+NY/Fr7lP2 VLI5zuy3QxL/6pBYmygKx+8Es5UtDvjEnV1ySjSZcitC3Tfc7xpuJNNDnDiy KXQ5WoqEkhOUJxZ0R0KLKaYN95oy6TdwaNox/0phFaXeZse0avQt2Nd9Vi9x rKOoLPu0/oOOO15T3fOFm5soJ3SKRdM8b2MFr3gZX/YXCmf03ZyJDk8sv+PC 1WLfSamhmx5W2u0NG30XwYv/9FHclbZ/9bjvgxeWPluregcoe+4sXKwZ8oXs lFr5OtURCrOl6c8/ancwJmuxQ1CGSUkSjwvWj/RHuYjvGen2ccoZh2uSTyYC oKHvXLt1dJIiWHawoPfoXei2qpqZGM5QmjgENKUS70Gh/pbEmOBvir8JtevS n/uI9duizi/MArXkwsu5Rg/hMuxyZONpVrj+OujpZhyErbLCTdub2WD8/NV7 0WXB4NVbo3vSZQV2awjwVWcFI2555ZL8k6swGkZNWsURihevaqqfW3KjVkVn 7FVBKNpli9XrZHmQ0F+opGv5CCrbNvAkCfDhdqCY9yR3GF4tXYhTERWA6a7A +ojSMNjRHE8FHRWCYvsEv7JtOA6fZveIj1wHPo9TZt0CEYgIFNjtzCGC+vpt E5IOj7F9QCt9xw4xvLgWplwrHAk/RRX1wlhx+Kz743OxLhKXGPlUkc2SULFu FMwWj4IbPWfIyV4KQlyKZw0bo3BbMnyvpdwWTObFpszceooWdunr4v9sRdrS q6r48gyclQX3Flh3IGTv6A5Dp2gklBg2srvvxI2LVuIXBWNw//qmE/0+uxBn 88r7w7ZYDGjJsOhlyyPMm+Z6wi0WdqqmOzW+7ob/Mymnvo+x0JDznNHn2INL zc+tf9o/xxMz7U32wYowp3ef9Sp/jqh037GuQSXoLRM+tZo7DsbZ06Lih5Wh qBSuLZEVhw19Z1WYMhSwPQ+UO/4jHjn8I19PHdqPn8XvtnYcSECgdUGBl9gB 0FrYNp1/lAArm2WpOmwH0cTuIXhLIREedvYtqt2H8NTh2u8k5yRsK9aO6Bw8 goeBmVO7apPwSU1ApXhWE14JDGaJUDKCTBVOTvFpwbr9Qt+nomQ4hfq8/3r2 GOTVTGv+zL3AupOsaX2puth8MrI8QOsllk1Lb3M20IOQY2sh37OXSCLULHmW 6ONPsk6qDCUFN1Oj3vlYGeA916GgE7dTcfCwmqTXOSOUbvEK6GtKxYZzJ/zs ZY2ReaDcy04sDVZWPYzcOWOEOytd96pKw5cjZ9luJp6ERY/syXS2dGg8duD5 vf0MDGdt9ZUM07HvZ/DrVmEzaPC+0KpOTIcFu8WR9BXmkFUXR8fhDIjs0y3S WHIWrkYcPN4HM6FbZGRrsuYcNMoXptP9svDo2Cs1sZcXEKN6i+9EdhaOOrQm ChtaY/r19K75b1lgf8G8t5PNBgmFDLujCtl4iC3SRRdtwZLd+Z3an40vSd8z meaXYLTTiOUhVw7yk53dj2+2R3r6J5E9yjnQ+6DtPc20h2lqnbFPSA7G8zIK BA45oCihoEF0Xy64fM4Z2k1eAbeE/Og7u1w0twjFe1lehfXz9JWXH+eiUan1 m27rVQhEJx4sJXKRSuXP21R+DVcjQotNovOwSZimNpp4HTKBl5NC5vJhJXBu u9z7m/Bkp79RkioAzxGCdbWRC9r9rPp69QpQrd9mXDfoAj/v08I7UgrQ6bBO bIzdFd9dj4Z8MC6EAKfFZUUrdzy5LOXOll+EtnPiuablnhhnxEWl9hUh45r9 /Fl+L2jYbSjSW12MfXvn9WztvDBtzT8Za1mMciPKFX8Rb+hZLLVV5X2N8q5z ckL3fMBh2GPo5FACRU3tPZei7sD4tes63agSdOiL/KvK4o8ksXU9W2tKcLlR O1HAyh9qTAPrvvWlUEgX0R3ZHQDHO+9dtN6VwuLoo5+bewLRXZQXI76hHMF2 V0PeWj3AVlF9y3mNcoiLP1gf1vUAN/zGpNuvlaNnRUD5Lf2H4NXfmn2/rhx9 VieqNcSDIOmkY+H6bwW8CdHAX2uDYcJV40gdrICt73leCclQ3K7iazOYq8Cs HlvN+IVQJF0/p1TFXQnl6wLL9NJCMdnJ8uepciWmVrDerd3zCA9eKN/RC67E sa2PFSP0wlC1LyuyVKUKKT/tXNmSIrDN8WlZaOgblEpillL2FJPGq50eJr/B 9sshRixcz1Ci6i579/UbzA/ohmiYP8PRFeZPvfrfoLV9p409WzRsn0i4XJGv xvY1wtz8+jF4WZGicPxzNbbdPj07x/Ycm1cXpa3irUFvXazfcyIezPEtlsul avDO/TA1SjQB+a1P1rMq16Ax4p1xl24CDsW6Bs5a1KCo7HHGjrwEWMqrWQ9n 1yB0zHdQzCMR8SbvJGr03qFAxExvn2gyRJO+PPEMqYXsrveN1REpCF+aJ779 RS3atQPyvVtTsPrso5SO0loUTIp9DudPxa/1+sXyI7VYuzelpehRKr4EN30d RB3+5Tec/BGehkC3D0KajDpcaWzURWo6Jg0qw3k0PuBK6PXYlIAs1C59FRI/ /xFPRUqphQ756A1Jv9y9pgG+vjPXuyLyMSOWqbV2cwPcaEdCJcvzIa2Ws/zh sQa8dWy8IM5ZgDuuRS4uMQ2oaZGifX5VgMNTby109zXCrvKYx8rJQlhcuxzp sb8Juhd8doREvUaPpb+NrF8zElpZklJSKlBlraYmEdyM+7E2w7nVFUiymxFY +7QZnBE/z3/uroCdo3U1W3Yzuukqk1q8lfjlrbGx61szYhRjfHe5VYIvnv1L oMInPA4I9i4yqIJmn7/a8MAnaPz+GhPAU43c0wGC8Qda0Dk5dXXtu3egf3mx V3+yFeYD6vYFbY044sX5+6PTV3z65Uun8bXA8+CBBosdXVA/IEjfSGtH779l B6uKuiGTI1Q+/vQbdNtTBdKjejF5S/xWtEQfNm7oXeM/1YfZK+nvl8b3g8V9 r5m6Yj8Usq880e4dRIO1Uw5v+AAaDkcsrZMYxrHQajU3xiA8WN+rv5Cgwdx4 v6v7xCCUA/94xsnQcFWkosDj5yCEs47NPt5FQ0Ty6+1eS4aw/15GuAto6H2d LXyHfwj0nKW63KdouDYQOxOkOgSxWLZx72AaHiu4ZSbcH0L/8kuf3OZo6GtT EK2XpWL5hP8Hgzd0bFRufKgkTwUltV+mqY6O09HWC0mKVFw/kRh2uImOr5ZR 3Z4HqNAZ4PKT/EZH8zjLs70mVHDsNIhNmKajkqN+bbwPFXkTTntzpUfxHBa8 Lp1UDEV3lC8LGEVP3JwXtZeKVUx/w54HoxBZHjZhMESFRlR8dc6jUUTWv2ve MU6F0gtuGe3YUQSbyAYNLh9GEIsjsa9gFJ7XZv7RlRvGpQLds3IDozib/GC5 dMAwurN+10j9ywB7hAOH0oNhzEN1HSsYSPfT49YMHUZ+0IkvbQcY+HVeYJ3d s2G4q07evq7NwCPJaNnMrGGwfO+IuWnOQM3zVwaKHcMIHJCOTPBlQOZpfZzG 1hHEX5jZ6V3PQNPd9GSTnSMozy2pqmtiwOlWUJqtwggM4sazOb4w8OakQf49 jEDwY1C65zcGTNd21TXpk1ao4dnDZOBhOH3M2HUEvmrUZxWcTEwGrYLNxxGc nnPgP6PFRGRpU6H5pxFUP5ff8Oc4ExRauJxx2wh+rQgpjtRnwv+AxGb1vhG4 zq/OfHOSCeFp5dWbpkYQlGL69Ls1E4dOXersFabhRVLFLy0fJsI3NTkb25He fyy9vYAJZb3w8eNXaDCRi7kwWsxEr7vpRXUnGmY4aB/mSpmQaR8+s+c2DRS+ G5Grq5koD1xymO8RDVZduefnG5kYJuT4ml7TsGVO9DUnlQml4rBMdQ46WjJk VyzhIbDK1/lMKjcdwVf4kt7wEeg4bvIPlwAdmS/PnfIUJOA6KGzdKkrH+ViN NUxhAhXcCRvP76GjmDnWf0+KwOEL2Q+8ztJRX7KO/bsyAUG5RypDVnQkdzr+ Y0QhMPz7Ou2IHR1+1ac036kRCAhROrzGmQ69Te6ukYcI1JdWzMfco6M//+gC 23ECenyNdqUFdOzjiy37ZU5AoidznVgpHSUfZ+9KniMw+TKk1qeKjrduMSVH zhMIwwlJrY90UF1l9P1sCLTbfuvs+E4H634k1V4hcKaSrjmzehQx7nQvR08C tvbsW+QtR+Hxtc3J4xmB+Ldydv/ajKLVxEyBJYZAl/DpjH32o6iWv6npFkvg 2IcsBZ0bo2jmueZjF09ATvrU/kv3RtFvsf7+xpcE5vpenUrOHYVWkERmRw6B 3Urt0elFo9Blm9ASzyNgH8T6Pa9sFOrCq69Z5RPopRhZV9eOQvRrpPVAIYHq KJbrfV2jkCs8ZVxQSuCeof6D9csY2PvYzqikhsDbNLdm8VUM8PJ9k2p4R+DP 0hd8MlzkextAK+qqJeCQ/fuJ4loGck8W7Bp7T8CQKynZUJYByZ4TX8caCGyo m6l4aMhAR/7986atBIxEJdgiTjLgNWy5VqWNQJCztnq0GQNxNd/rhdoJsG6O +5hmQ85hquiBuq8EhryOdtS5MSB/bE3v8m8EMlSifyxNYmDeIiBw5jsBPrkB W+dUBoia0t+F/QRuSMl8p2UyUM+qrOg0QGA/T35T82sG4o+XiVEHCbRSP76K aWZgbb+bWfwwAeVvvJt42xjQqjAo0RwhEPvJ5KlfF4P8XrzkJkjblA4GXqKS 6yf5FWynE/gdMn9BeZ6BAw0/EwMZBM76H+hJZ2Ui9sQlq3VMAjVuASfE2Zlo mEk/lkz6oTX/oZW8TOy+fiajkCAgTpEVb5NmwqG5yrx4nMAd+WuRmtuZoGpn c+6eIDAqXcRdJs+EUEynQCrpPN5DCwkUJr5eyjse/IOAxohp11UDJobOmq7D FIFX3XH6QyZM3OTJ00kgzdMy/N7EjAmtgE7+FdMEOssci9RsmfAIuH3hLWn7 R/fCOW8zsaz0ydCmGQKfAz6t9vJlIq3wke4N0ooeQr5TgUzkUUS8akkvsU24 1hXGxOmVfcctZgk8QolOSioTTVR9S9dfBGZ3s9aKZDFh/zuhspT0GRkNBOcz saPhhsg8aSn+FtkblUxIOX1gXJ8j369V6xLpNUx0sU44ZJAeWzATNqtnQreC xkUlXUyjrzrcxkRQOlu5zm8CG3t3eRV1MUFT4+/2Iu3zxXl223cm3n1s3ZND +ljF0mFeBhMvY9JzOOcJ9IWtf9vHSsAlwTkzi3S6YErzzAoCmSqxXC2kXSMV u7lWE/jk9VZwirTAM8OfqmRntvgFq8j/IdC/YWCpIdmZDQZcVjqkM2OvctuJ ETg4vVfPjrRmwsMtT7YSSLD0uRdLWnDzhj1ZOwkcms2nFpIeSE7bX6tAwP9n 1sYm0u6pdaemQWBp3kW1OdJHZY2tV5Pd0cGVPVwLBIQyhhwlNQnwN9RLiJPO zl76QM+AQO6I+cJB0h67Q57YmBA491BozoC0Vr5o8u0z5FxcllxpSXqtYkZO BNmlsirDnVdJDxWpVqRbE2hp8XH2IJ2jXF//9hLZwVXBg3dJ3y49+bXrKjkH /eaeEaTXVzpPrHIj8GDVyjNppIf3L18Q8yJAZzSn5ZHOr37EoXSHfM7xOFRG 2vuwhJDOPfK+dE2315DWqc2SvBBMzt0BpcsfSYtoqu1yDyfgPM7kbCFN+9Cg GhZFYGLhKV8H6QLt05ppZNcS99ve6SHt00g/8SaR7FKZj/0AaV1dl3MdKeT6 r8Sah0lv+MzuMJ5BwNjDLX+UNN0gwpWd7JpFZ+emMdKFrZsCNhYT2JN4Z/MP 0r7GuWF7ysnj5z+VT5HW69gfp11NgP2g4OxP0htNm9Mt68jrX5/3dZb06Dez 17fIThna8tnMkS4yY74L+Ux2+HRC+m/Sfn2uLS/JLrnZdWbNk9Y/x9FXQXZo wWivyx/SooORjDayQ2M7VLkWSDOspH8xqQSm9G/e+M/Fw/nLl5OdkHXyKP3P /raHeEXIuXZ6Rhv8z4ajnzfu/kmuJ3V69j+bzUvsn+Yaw///TiKU7YyjnuRf 64wH3JVx/GvO7rw41uq/ZnHzNFC6Mr7ouRdnMr7zTCz60pOM+zxVf1241Z99 jf2PRf+jeXWbF+fkottkmz7fLPnr1GhIDpyZWrRxxp41In/++pbvc8+ulOlF vxgWieLU+rloUR8+jRVJfx2xkWNqYeGv/wfa+J0/ "]]}, Annotation[#, "Charting`Private`Tag$33540#3"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxF2Xc41e//B3ChgYwi9DGyokiKBtF5SpGKFDJKKSqSKCuVrIyShlkSIZG9 iYzMiIoSklnmWW+rKJXf2+/6Xjr/nOtx3uN+3/d53a/nua4jaeVoeIaVhYUl bRELy/y7heeG1rm53gqW/716JvbyTX7/55M21npDtH8+c+hRTVP7PztILSuI yvpnn7pvESqW/5zEE21qU96z4LFYji/vPLoXnJoi1HqjunPBO7171zmodvy7 f/tNLvGSTwuuFbbuy1v8ccHf107zeXk1L/jBDnebkwGNC/aSr63Xl6tb8Opc //5nMpULnhM5VBZ2vmjBlktm9KzupC4446yjmmxy0IKnhGOTevVvLVijsYk/ aipwwU1K8kwuLf8Fd4w3aH8r9lpw5ga7zVP7Ty84mravKa/x+II7r1ds9Vpk tGAVCTtKhIPmglUZqSUGD2QQrdc1IvlXaOf7yAqRnSX7cXl9dhI7S87OdWp2 MkZyZoi3LNZhTRza6WJ0tbva/RRi9ZqueFUuoxwJqljX030WxYenWnUkpSjb KtldZrTsMZgbyq0hvpXC9TvRkqP1InqOe8+abNGmXHuw1z8ywBnp5/LdQpSM KDRlaqq0mhtKN29ebLjyJMXiXXBzNs0dA7+jFeIsz1Gazin92Bl7DdO9sT+u iDhTNBZ/EGk85IngwoDazpxrFJNDJRLpPt548nTqnuGlGxSe2Nt5E50+uFLI ebkkLIhSR7PQUdtyA3E+/feZr0IonmobP3vd8UNUronA+l0PKNsC587XDfnD NfvVf7vHYijM1ua/yzUDEaGdIL1hNoGSJJUQYhR1E4tzX8tPlCdTTlx0lnk0 cQtabgeneswzKELle4r6DtyGILuPac14DqWZS3C/3LNgDPE4jZqUFFBumg93 Xfh7BwfPp+2N4i+haCa/cMw3vYeAlmoxXq4KisevPT7Xze4j86aO8lnTKopZ fMYbicUh2Be8h6ckoJayRVdQoCYnBJcEK/xERBoofITncZsToaj+Fb79nOhb Cj1iOImTKwyrSmvyrBuaKfUah8YyisJQPNudYrD7IyXx2wu1w6fD0a3frmfA 0kbxDpK8McUXgUvFjP1f2D9TLDYHNT0oiwAHp/3XO0e6KKodE6vU7SKhXHYj VGq6lyLgdcyyR/ABTl3dNrRjup/S1LRhQubiQ6h15WptuzJEee4coV4vGoWb B244FrCPUvz+++t3viEKzNuDFxxqaZSTlWff8bg9QtfhtzfXlDMpGrbvhXKl ohG6Q0O/cWaMIsyreurI+2hI8M46meVMUKYK4lJnrj2G0i1bd8WgKUo6m9NO fIrB2GP+/oyEGUrodrrSEbdYSEiUl/mW/aK4nz8rdV7oCWbVv1Lyfv6mJJzL uNG4IQ5XWr7a5DBYEHGD6mFyPQ4Ji6YT6nax4maMnFv/2ziohXtwbE1hw4WW eNtph3jk94sIDOUvwUlazynfini0KS97EnZ0GQwXix7j5ktAnAG74EVBTqiq RepL5yTgk7pzY/JHbigYfdTJXPQUnzZQjXzbeCF+gU9TzfApGJPv5bR/8oE9 PkjZYPIp5APC5GI1+DFd8lqhc3ciFtXoRZU6CYDayr72THgiOC6PxbAXrULz Mi+ha1ufQdeLb1fOeWFUS5XyLQl4Bpl7jfkjXatRqPGTI6TtGQQ5siyJ4yJ4 fNH5d9LlJLz+T/K6aIg47gVlf99cn4RNasrWvFIS8E1kMEuFkyF7YNm0Ebsk bDts+j8Uk17/fQfHgBRUNC3q/s4+x9uslGMOgnKQPRpVcUsvBfVZrYcPa6yD sEvbC4GYFAytE+ist1+Pv8mH0uQpqaiIWfXahqmA8co7iQV3UxEa4eLCoamI gS9vYjR7UyHyfKPWlpiNeMOrfd/EOw2tvFTve2WbULbe91Z/cxq+7ODx3Oi5 Gdm7K3ztJdMxnKu7kk9bGZGX1Vx9q9KxfPUuH5EhFVj1Kh7NZM/ElGy54jf3 7Tjy085I7UgmPqo9YVvrqApd/ud6Nc8y4R+mz55trwbFvVLo1MmCn+O2snWe 6vAw5Vp5Y0823p6q87T6C7gNpNytt89GEeuKDuMoTThe0uXiicjGdsnm0qTt u2B12589ajAb0jUxS0V9tKBbMfcjMyAHD0weN2GfNp7svCZgkpsDzbbJPaOC Ovjx8sfmP905qFWcSZWl6iDxBcP+wNZc3GJVSSyJ1wVL7pevw99y8Wg8k9Fp qgfTTaYs93jzMOnRkllorI/MzA9i29TzIFK6pPWb6UFYpDWY+YXmodxc+1KD 6iEUJxa9k9iVj+3lHgluVw3BJ61Cf22fDzbd5Wae/Eawjc/kcHyYD9eydg++ bCMIxj7bU0bkwz1VvmzxlDGcHoSVmMcWoPrYz7aQ56aQD3JMCp0thNI39Y/q 74/DZxmtWk2uCLYCAhrvk06gI+Bsf59hEQKXOBQX+Voi4MZxUaXUIpzOdvvY /fQkvnocCG00ewHPXNaDf25YQW22LsvJ7wUWxwsMNC+yxv0rWm9XZ7+ARET7 EjZfa1Dc1JbZLi2GemS+bMyt03jkKOfJXliMK9tXlp4sPItxRkJ0Wn8xOEzZ Q/v22kDXXrzYkLsEdlNt4ZNfbPDDdtVU3OkSGF0qDWdwnYOhFZvdTv6XoGxy naHePg+uI71H3C6Wwsuhx4Vx8yLMXnr8dzi6FH+VnkqsGrqIJMn/ehXqSrGY 7150xp5L0GQa2/aLlIHN9tOjnUuc4BL45qre6zKENmcvUo52Rk9xwRMp8QpU l0+wb+S9DAUJo9N/dCug0b0mtcvvMtwDxtZ1OFfAQrzuysbfl8FvpJB7p6EC 5vuSJesJd8i4HbLy2PEKgnpiSgq0qzDnrXMZHnwFC3rBPbutXvCuEmg3nn2F wRAl66o6LyS5WqtV8VWCcyo4fHqDN6a+sPx9rF4Jc9UixmiVN+4+Vw80DKmE 0gHvXt5fPqjalRNVplGFfd0m4oWRfhiZmpuVN6xCodDK/ldMP/A+P3jioU0V ZIXnzr/b6w8LHrqUc2gVDpwT/jj92x/TnbLp60aqUDBt5ZPhHIgNLo/Lw8Kq IfCIU5YZFoQpM263e8nVOHTj99DL70Eo3empePtlNTao23J7md3GgaUnH/t+ q0aNbZUSVSIYdo+kr15SqcGQeYC4S9kdpLxK3WrwsQbn3ghsUgi7j4vPRBj7 h2vwc1J0EWvTfagGBSfqzNZAdDAy2oLMuXojB36KdC3Y7cWtnlwJwcjQ5vEN zrVorBa+a2cbClnu4nRO/jpI6su63rcMB3N8/eklcnWIMR/jHIwLR2HbIxFW 9Tq8sP/JWvc1HNpxHkE/reqgLcimqGQbgdMqmrYjuXXwTw1/n34lEk/NX0vX Gb7Gt2HtqLqih5BI+vTIJ7Qe41UWKT1PYxDJViC18Xk9nq9yi2z9GwPuU+Gp nWX1cB+O7PE5GotfIkYlKqP1GEx9W84u8ASfQpo/D6IBc33Dcd174xB0vVF4 P6MB9QllYsqf4jFlXBm5UrcRwt/++ImqPoNdbpx4xfFGtAQ6Sty79Az9vN5J 550bMb7Xx+lM2jO8e0MprIltxJ3MIWGKRBJSNEs/uX1vRLMCz5lnPMk4saFI 4EtCExYV/ei/8vc56tkyQp/+eQvqn7ILwQoZ6AvNdOxZ8Q4n3eZmZS5kYEYy W2+17DuInVhzc3VWBtZp5i25d/AdOAdMBYS2ZCLQo/jq1SfvIOtipGGjlQWd 77VWh3e9h2O32LodL7Jh5ewY5aXVjD9a3myXOfLA3DG2NEavGencJndEN+Xh KusltxKTZoAaHjJukofQECej73bNsL7osF7+WR4qs1y5z4c146W+t13b7nxI 0K/5mAw0o39pC49kUAF6T988pxjQAq428TvxO16gylZTUzqkBfUlP6/+tXuB JPsZwdWPW5CaqtEcFv0C9i62Ney5LTDmzsuz+fMCv27orunqbsGTs8aW+dXF EHi67FPQ1g+4aBO9q+/oS+zvv6k5MvABh5ysWc/llSP/+C2hp7tbwTCgZ+Ut rkbEF46OMwdbER9+xktHphpu5kEP15m3omha+MSkVjVUj9xenenQil0FP6Sj vavxUu+OSHFUK3zEeWol/1SjSj1kzXuiFWfNAnxYybpuXh0lNxv9CYbs1enV HK9B+/R8u9FUG1pyHeVOXmzEPl+e32/dPuPZDxmTN7of4LNn9zsrpS6ECa7r raptR9+O8j1VxT0QEpp2vLq9G4c70gQzo/sw9y3pN49xP9aI9624+b0fQp6T j5tUB8Diud1yr+o3BL17eKWjegjvbN3y+CMHcLVEJPUKRuEen2Z+KXoAe4S1 lYN0RyHV2Tf3Lm4ADgwZ1ojDo3A7cEAvKG0AdzeK2UZZj0J8o8QgS+UAuFdo dVgEjsJhskGQSSPHqdtf/ubtKHg8xa7W7xoE29jyH3ImVBwMq9G8zhjERFOy 3UZjGk6aaXl4TgxC29PAUuUYDU5ir4q8pgfR31uUrGxFw4Pklxt9Fw3hacZi RYmLNPS9zBUNXDWErJaCL4W3aXAeiJu5v3MIEtrbL7VU0vBw6/XsxDtDOMfr J5+7no7UX79oz0KH8P5N4Me/SnSUVrjLJT8YQoyIe7L2Njr697nEpsST1+t3 N1Vq0SF/4nxwZsEQ+Fl9ZpyPkecHmNu+6B5Cc3e7ZsVt8vz2rRJNisPILdt2 jTlMxxr19/fUVIYhWql7c5pBx/FY27kk1WG03+lP/TlJx+fT0T0+u4fBv231 5tE5OlrGWWK2mw/jU9SojqsQA5VcTauf+g3D2HTy6y5tBuJhxX/1yzCYv9I0 cqIZ6E2Y9R3uG0bM5HZGdxwDYksiJoyHhmExXNHAlsRAVNPrFqXxYVhtlVuu ns1AiLni/cElI1j/dmOPaQ0DPs4zyw8rjyBEbGyVHo2BU8l3l6y7NYL7v0dq FbYwsezBRS61uyOQZ7XI2a7KRGaAId/+sBFwNvD07tRg4tcZwf/sY0aQGHKZ Q20PE+EysYrZOSPotyn7RDVioi4+w1i1cwQVNhYUihMT8o+bEnQVRiEYbKtf kMpE8+3MZPNNo9C9cGwxTyYTbtfup9ttHUXXn96Dp3KYqD5qXBhM1p0sn17C dBETFqu7GpqNRlFf3x3zrYaJe5G0MTOPUewZuxL5spuJqfucOEfW1UW9Vfq+ XASiyppfnPwwCif5fR/W8hCgUCOVzdpHYTpxx6+Gj8DN3dKye/tHsXGzsufk KgKiP9S5134fxdYTZ9YJSxDQPnbhS58olfy9cOe6lwoBaqDKkQ5JKqb2tXi1 byVwP//nu/eyVMgslRiVVyXQyR1QVb6Jiocm3Cw1GgQcXsWmPN5Dha6hT2qF NoHItc2Xzeyp6NoGiz4TAuqGkeMGl6g4XfgkbsyMQJ+nxfm9blTIdjGCfh8l IN8xcmKbNxWNgumnlloSqAhapCMQTgXtMf/t0bMERghlgeaXVPjrPnX75kpA rSQiey8XDe0ZfW8b7xPg9L98Io2Pho+Th1OvhpLPZ2C+nFeQhgaO25xrwwl4 DIratknQQGnMumD/gMArvsQ1Z7bR0P9ZzbouhoCOTe5d31M00D1GNNJTCAgp h2sMnaUhlcNaRDCNHP+3K3WfPQ3mlTNd19IJ3ApV01lxmYblyS2S6lkEmspe /XkSTMOYi8fxW/kEDAXe25cV0aDBarjIrpyAdG/2f5JlNIi9Yp0MryAwlRJa 71dFw2FaunzpKwIRMJHRe0vDncIl/nNVBDrsur90fqUhx2BR5NHXBE5U0vbP cNMxXmCdY/OegFLw25lj/HRQbdlmzJsJsJhmJVUI08HQp43qthCIpzuxBkrT sbR5zajoRwIDQr+KV6nRsU1RcVlsGwE7h2XrVU7TUX9S+DRnN4Gntcr2O87R YZ018KiMdJfo8axdDnTYpGrvceghcLAxZ+shdzqWS8ez1fcSUF53TOtCMB2O efl1x78SOO/l7+8SQocrVVTmD+nEtqz6a5F0LD7+RuzRNwKC/uwGQXF0PD9Z +6tpgMBsf8ax5Hw67nM30AWHCWxR64jNLKbDKpNW9pS0w33WrwXldMgx+ow3 jpD1QjG1ramnI9hlZkRjlEBNNItrfxcdgap3dmjSCAQfMborspgB5a872QeY BGrTr7dIcTKwdsvMYwOCwF+25wLyvAxIj+ToF5O+mPv7kepqBnx1HLkCxwgc 4U1KPqLIgEVSov/yCQJ3zzZTLZQZ+H149vw50vVlvxRPb2eg61paaA3pHfYG +U67GHAqEyhwnSQg3jDz6t4RBkLZDT9XTxEwlZBmf3CUgcNy7/T5v5P757L+ 3lhLBlatPSR/ijSrbMLb9HMM8CmwKM2QHvI90NlwnQHrgzcJ/mkCazpdxVp8 GfBrrNxgStpsc9zJjkCyD7J3zjwk/aZ3amgohAE2ZuMh4RkCWRqxk/N98EFU m9+SnwQElAfsLqcxkDw2bbubtLuc/Fcq2RdL7+6p9ySttbKwueUlAzturOAb J902/DbjSQsDNTpU25pf5H7t5l/L386AKI2l8TvpuA/mjwO6GHh5+mfb2lkC 58oGgy4MM7BB7yybL+nfoX9s1P8w4N5uq6fwm8Cpm7t7M1mZaJ+eiTYkXXf9 lonUMiasJw5VuZO+Z7tKm4OfiR/pKimVpKeOHyv1EGaCQY90GSBtZhSvMibG REeN04YlfwhIURSl2tcx8Thk0E2HdKCKc9T+jUzwN/AInCFNX1fMV67CRGRn a64v6QJ+7blEChOLEn9wvCStO2rR5WTMBC0oN0PiL4GMngSjIXMmLl6TGd5O emXryBtzSybYY/L3HyT9pdylWNOOiReu2U/dSWvml2zKd2Rir2ZVQjDpxBSW 53KuTBiIUnqfkHYID47k8WYilqYrXUP6460P3L7+TOh7y275RFrVS9j/exAT CZJcEYOkF9klOndFMLH6LIc5+xyBs5ZUqkE0E1sqVtWuJP3GeJNVdRwTqro8 YRKkw1F6KDWNCYe8tWd3kP65hbVejMyNydY2Zx3SJ+R1EVJIXn/s4dRh0nKr WhXdK5moFBu2tCEdzPnfM1odEx7+8YaXSI/NWYpaNjHRdryu/irpEiqNU6ed iTNGqw2CSa/p2+xb3MXE2w5Om3DSfp8u/9zwlYm1RowVj0kffMU2ws9gQpjb VSmVdF7BPsvACSYUNjmmZJMWTrvX9muaid5KttpC0v0RIrX9rGRfdlhGVJLO FEptmVlKQEEhL7uOtEeUag8vN/l5ebdCI+l9Iq+psisJ5MqpWr8nLRhzZHqn EFkH3WfNP5L+Jj7AdkSUrJNc1hXtpLPjnPjsJck+V/IwuJP0/sR76x8pECjc n/65j7SQrPi2nE1k3e9Ylv2N9EByulY9mWt2U/8ZD5HOWa9u0LuDnJfU1voR 0p5pDcd+gEDsomgeGukDima23GSupez1W8+Yn1/WkIvMfnJ8dlERgnRuLttd Q2Oyr2yvDpog7bUl9NE5cwI/bo8snyKtVyiR7H2CwPOO4QvfSa9Wzcp7YE3A VT0t6wfpoeKdrzJtyeMevK3T8+up3tRUe4HA2vFvXTOkvcuOfu5yIhBtQW38 Ob/+GB2cvEzg8ce2hF+kRSovT3BeJ/AgxsB6lvSI1pI5SV9y/oIMnt+kC2vC udQCyX0RopY87xs60sKHgsl5quUo/iF9qD5HxiaEzJ2JyqfzFtuvudkzkkDr zkbOv6Spje92RkQTUBESPz3vIv3j+9PjyLr5/Dt73n7vaSbVzwiYr4memPfh w1etO1PJ7yFBTH6OtPjHZRfHyZzkEn9kNm+a8QOPZQXkum4S8pr3i7a1t9aU EEhXC46dt79ZfsQ2MiddKf1F8zbs1ErQryGw7TWzcd5rLFoyTzeQOVR5/cu8 6d2WL6+9I9B9Yu/wvIstma9DydzjmZki5h3Q79Ga0kHWFXXNj3kbWXP1vyJz rtz98K95SwxGMdrJ3DJJZ/0z75KRwiVLGAROarnNzfsI/eOaLWTfFXny8/9t +Uda6wfvGP73bwrC2E+4GMr886HxW7flXf6Zp6cggbXmn1mu+xirXRpf8Ozz E1lfV04s+MKjrDsrq/75hcLNZSscJhe8fL/TBl+eqQW3KzZ/vFL6z2mxkBk4 8X3BZlnbVoj9/edr/vE+Xak/Fvx8RCyaR296wRJ+ArpLk/75wRqu73Nz//x/ iJ8U8Q== "]]}, Annotation[#, "Charting`Private`Tag$33540#4"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 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 -> NCache[{{ Rational[-1, 2], Rational[3, 2]}, {0., 1.}}, {{-0.5, 1.5}, {0., 1.}}], PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{"0", "1", "2", "3"}, "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}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 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[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}], "]"}], 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.922526, 0.385626, 0.209179]; 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.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 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.793723760676032*^9}, CellLabel->"Out[2]=", CellID->988099657] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", Deletable->True, TaggingRules->{}, CellID->660433968], Cell["Evaluate at an exact position:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7833417079718513`*^9, 3.783341714838863*^9}}, CellID->475353795], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{"3", ",", RowBox[{"1", "/", "3"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->337079364], Cell[BoxData[ FractionBox["379", "2187"]], "Output", TaggingRules->{}, CellChangeTimes->{3.7937237653853955`*^9}, CellLabel->"Out[1]=", CellID->59670713] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["At a numeric position:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7833417177081633`*^9, 3.783341722280356*^9}}, CellID->912245925], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{"3", ",", "0.33"}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->372575221], Cell[BoxData["0.16821411803460004`"], "Output", TaggingRules->{}, CellChangeTimes->{3.793723765492367*^9}, CellLabel->"Out[1]=", CellID->703873855] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell[TextData[{ Cell[BoxData["GeneralizedSmoothStep"], "InlineFormula", FontFamily->"Source Sans Pro"], " threads over lists:" }], "Text", TaggingRules->{}, CellChangeTimes->{3.783341736776102*^9}, CellID->276923282], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "3"}], "]"}], ",", RowBox[{"2", "/", "3"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->491707814], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["2", "3"], ",", FractionBox["20", "27"], ",", FractionBox["64", "81"], ",", FractionBox["1808", "2187"]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7937237692846785`*^9}, CellLabel->"Out[1]=", CellID->246314010] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{"2", ",", RowBox[{"Subdivide", "[", "6", "]"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[2]:=", CellID->178977155], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", FractionBox["23", "648"], ",", FractionBox["17", "81"], ",", FractionBox["1", "2"], ",", FractionBox["64", "81"], ",", FractionBox["625", "648"], ",", "1"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7937237694416423`*^9}, CellLabel->"Out[2]=", CellID->231123906] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell[TextData[{ "Successive derivatives of ", Cell[BoxData["GeneralizedSmoothStep"], "InlineFormula", FontFamily->"Source Sans Pro"], " can be expressed in terms of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Piecewise", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Piecewise", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.783341809205212*^9, 3.783341839090131*^9}}, CellID->309672386], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", RowBox[{"0", ",", "k"}], "]"}], "[", "GeneralizedSmoothStep", "]"}], "[", RowBox[{"3", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "8"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->774768974], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"0", RowBox[{ RowBox[{"x", "\[LessEqual]", "0"}], "||", RowBox[{"1", "\[LessEqual]", "x"}]}]}, { RowBox[{ RowBox[{"-", "140"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "3"], " ", SuperscriptBox["x", "3"]}], TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}, Selectable->True]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False, StripWrapperBoxes->True], ",", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"0", RowBox[{ RowBox[{"x", "\[LessEqual]", "0"}], "||", RowBox[{"1", "\[LessEqual]", "x"}]}]}, { RowBox[{ RowBox[{"-", "420"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "2"], " ", SuperscriptBox["x", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "x"}]}], ")"}]}], TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}, Selectable->True]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False, StripWrapperBoxes->True], ",", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"0", RowBox[{ RowBox[{"x", "\[LessEqual]", "0"}], "||", RowBox[{"1", "\[LessEqual]", "x"}]}]}, { RowBox[{ RowBox[{"-", "840"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", "x", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"5", " ", "x"}], "+", RowBox[{"5", " ", SuperscriptBox["x", "2"]}]}], ")"}]}], TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}, Selectable->True]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False, StripWrapperBoxes->True], ",", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"0", RowBox[{ RowBox[{"x", "\[LessEqual]", "0"}], "||", RowBox[{"1", "\[LessEqual]", "x"}]}]}, { RowBox[{ RowBox[{"-", "840"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"12", " ", "x"}], "-", RowBox[{"30", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"20", " ", SuperscriptBox["x", "3"]}]}], ")"}]}], TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}, Selectable->True]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False, StripWrapperBoxes->True], ",", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"0", RowBox[{ RowBox[{"x", "\[LessEqual]", "0"}], "||", RowBox[{"1", "\[LessEqual]", "x"}]}]}, { RowBox[{ RowBox[{"-", "10080"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"5", " ", "x"}], "+", RowBox[{"5", " ", SuperscriptBox["x", "2"]}]}], ")"}]}], TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}, Selectable->True]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False, StripWrapperBoxes->True], ",", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"0", RowBox[{ RowBox[{"x", "\[LessEqual]", "0"}], "||", RowBox[{"1", "\[LessEqual]", "x"}]}]}, { RowBox[{ RowBox[{"-", "50400"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "x"}]}], ")"}]}], TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}, Selectable->True]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False, StripWrapperBoxes->True], ",", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"0", RowBox[{ RowBox[{"x", "\[LessEqual]", "0"}], "||", RowBox[{"1", "\[LessEqual]", "x"}]}]}, { RowBox[{"-", "100800"}], TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}, Selectable->True]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False, StripWrapperBoxes->True], ",", "0"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.793723752499258*^9, 3.7937237727051835`*^9}}, CellLabel->"Out[1]=", CellID->952344979] }, Open ]], Cell["Plot successive derivatives:", "Text", TaggingRules->{}, CellID->228006612], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", RowBox[{"0", ",", "k"}], "]"}], "[", "GeneralizedSmoothStep", "]"}], "[", RowBox[{"2", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{"3", "/", "2"}]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[2]:=", CellID->662648097], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxF2Hk0VP8fx3FJpXxD9oqyFSktpPhiXlpJlDWUEklIUomSJWtos4SkkLWQ fc+eRMlSQsiSZZgxcxEiye9+z/kd3X/uecy5Zz73nvm8n3POFbO4rHeelYWF xXwJC8t/Z1P3bS0LCz3lLP8/uifUuX9M/fXZC+e0huh/fV7nSXV921/bi7Pn RWb8tWdNf5i82V8ncUYZXSjrXvRY9MrOBtdvi055Kdji/aZj0aq3e6TtFdv/ fn+bP8eG4i+Lfit0rjdn2edFT236ye3h0bToiH9vXDjr92HRHjJva7Wlaha9 Ntu3L1GyctEL63VKQy8WLNps+YyWxf2URb+yuqy0OTlw0ZNC0Uk92gGLVvlQ zxs5eWfR9TtkmBz7fRfdPl53qL/IY9Hp22x3TWpaLjqKfqQ+58PpRXe4lSt4 LNFftLyoLSXMXm3RvO8DG45TbJSbxH1vjShVqDaGl69XLdYEQ61s8JD6Xoq0 kq2kvpQx+pZspFRsMac46rt8e3PDHBi9IOc5dZNiGFgu3f3NCs0/Gsfi19yn 7Klkc5zZb4ck/tUhsTZRFI7fCWYrWxzwiTu75JRoMuVWhLpvuN813Eimhzhx ZFPocrQUCSUnKE8s6I6EFlNMG+41ZdJv4NC0Y/6VwipKvc2OadXoW7Cv+6xe 4lhHUVn2af0HHXe8prrnCzc3UU7oFIumed7GCl7xMr7sLxTO6Ls5Ex2eWH7H havFvpNSQzc9rLTbGzb6LoIX/+mjuCtt/+px3wcvLH22VvUOUPbcWbhYM+QL 2Sm18nWqIxRmS9Off9TuYEzWYoegDJOSJB4XrB/pj3IR3zPS7eOUMw7XJJ9M BEBD37l26+gkRbDsYEHv0bvQbVU1MzGcoTRxCGhKJd6DQv0tiTHB3xR/E2rX pT/3Eeu3RZ1fmAVqyYWXc40ewmXY5cjG06xw/XXQ0804CFtlhZu2N7PB+Pmr 96LLgsGrt0b3pMsK7NYQ4KvOCkbc8sol+SdXYTSMmrSKIxQvXtVUP7fkRq2K ztirglC0yxar18nyIKG/UEnX8hFUtm3gSRLgw+1AMe9J7jC8WroQpyIqANNd gfURpWGwozmeCjoqBMX2CX5l23AcPs3uER+5Dnwep8y6BSIQESiw25lDBPX1 2yYkHR5j+4BW+o4dYnhxLUy5VjgSfooq6oWx4vBZ98fnYl0kLjHyqSKbJaFi 3SiYLR4FN3rOkJO9FIS4FM0NG6NwWzJ8r6XcFkzmxabM3HqKFnbp6+L/bEXa 0quq+PIMnJUF9xZYdyBk7+gOQ6doJJQYNrK778SNi1biFwVjcP/6phP9PrsQ Z/PK+8O2WAxoybDoZcsjzJvmesItFnaqpjs1vu6G/zMpp76PsdCQ85zR59iD S83PrX/aP8cTM+1N9sGKOEvvNvcqf46odN+xrkEl6C0TPrWaOw7G2dOi4oeV oagUri2RFYcNfeYqTBkK2J4Hyh3/EY8c/pGvpw7tx8/id1s7DiQg0LqgwEvs AGgtbJvOP0qAlc2yVB22g2hi9xC8pZAIDzv7FtXuQ3jqcO13knMSthVrR3QO HsHDwMypXbVJ+KQmoFI8qwmvBAazRCgZQaYKJ6f4tGDdfqHvU1EynEJ93n81 PwZ5NdOaP3MvsO4ka1pfqi42n4wsD9B6iWXT0tucDfQg5NhayPfsJZIINUue Jfr4k6yTKkNJwc3UqHc+VgZ4z3Uo6MTtVBw8rCbpdc4IpVu8AvqaUrHh3Ak/ e1ljZB4o97ITS4OVVQ8jd84Y4c5K172q0vDliDnbzcSTsOiRPZnOlg6Nxw48 v7efgeGsrb6SYTr2/Qx+3SpsBg3eF1rViemwYLc4kr7iLGTVxdFxOAMi+3SL NJaYw9WIg8f7YCZ0i4xsTdacg0b5wnS6XxYeHXulJvbyAmJUb/GdyM7CUYfW RGFDa0y/nt41/y0L7C+Y93ay2SChkGF3VCEbD7FFuuiiLViyO79T+7PxJel7 JvPsJRjtNGJ5yJWD/GRn9+Ob7ZGe/klkj3IO9D5oe08z7WGaWmfsE5KD8byM AoFDDihKKGgQ3ZcLLp9zhnaTV8AtIT/6zi4XzS1C8V6WV2H9PH3l5ce5aFRq /abbehUC0YkHS4lcpFL58zaVX8PViNBik+g8bBKmqY0mXodM4OWkkLl8WAmc 2y73/iY82elvlKQKwHOEYF1t5IJ2P6u+Xr0CVOu3GdcNusDP+7TwjpQCdDqs Extjd8V316MhH4wLIcBpcVnRyh1PLku5s+UXoe2ceK5puSfGGXFRqX1FyLhm P2/O7wUNuw1FequLsW/vvJ6tnRemrfknYy2LUW5EueIv4g09i6W2qryvUd51 Tk7ong84DHsMnRxKoKipvedS1B0Yv3ZdpxtVgg59kX9VWfyRJLauZ2tNCS43 aicKWPlDjWlg3be+FArpIrojuwPgeOe9i9a7UlgcffRzc08guovyYsQ3lCPY 7mrIW6sH2CqqbzmvUQ5x8Qfrw7oe4IbfmHT7tXL0rAgov6X/ELz6W7Pv15Wj z+pEtYZ4ECSddCxc/62ANyEa+GttMEy4ahypgxWw9T3PKyEZittVfG0GcxWY 1WOrGb8QiqTr55SquCuhfF1gmV5aKCY7Wf48Va7E1ArWu7V7HuHBC+U7esGV OLb1sWKEXhiq9mVFlqpUIeWnnStbUgS2OT4tCw19g1JJzFLKnmLSeLXTw+Q3 2H45xIiF6xlKVN1l775+g/kB3RCNs89wdMXZp179b9DavtPGni0atk8kXK7I V2P7GmFufv0YvKxIUTj+uRrbbp+enWN7js2ri9JW8dagty7W7zkRD+b4Fsvl UjV4536YGiWagPzWJ+tZlWvQGPHOuEs3AYdiXQNnLWpQVPY4Y0deAizl1ayH s2sQOuY7KOaRiHiTdxI1eu9QIGKmt080GaJJX554htRCdtf7xuqIFIQvzRPf /qIW7doB+d6tKVht/iilo7QWBZNin8P5U/FrvX6x/Egt1u5NaSl6lIovwU1f B1GHf/kNJ3+EpyHQ7YOQJqMOVxobdZGajkmDynAejQ+4Eno9NiUgC7VLX4XE z3/EU5FSaqFDPnpD0i93r2mAr+/M9a6IfMyIZWqt3dwAN9qRUMnyfEir5Sx/ eKwBbx0bL4hzFuCOa5GLS0wDalqkaJ9fFeDw1FsL3X2NsKs85rFyshAW1y5H euxvgu4Fnx0hUa/RY+lvI+vXjIRWlqSUlApUWaupSQQ3436szXBudQWS7GYE 1j5tBmfEz/Ofuytg52hdzZbdjG66yqQWbyV+eWts7PrWjBjFGN9dbpXgi2f/ EqjwCY8Dgr2LDKqg2eevNjzwCRq/v8YE8FQj93SAYPyBFnROTl1d++4d6F9e 7NWfbMXZAXX7grZGHPHi/P3R6Ss+/fKl0/ha4HnwQIPFji6oHxCkb6S1o/ff soNVRd2QyREqH3/6DbrtqQLpUb2YvCV+K1qiDxs39K7xn+rD7JX090vj+8Hi vtdMXbEfCtlXnmj3DqLB2imHN3wADYcjltZJDONYaLWaG2MQHqzv1V9I0HDW eL+r+8QglAP/eMbJ0HBVpKLA4+cghLOOzT7eRUNE8uvtXkuGsP9eRrgLaOh9 nS18h38I9JylutynaLg2EDsTpDoEsVi2ce9gGh4ruGUm3B9C//JLn9zmaOhr UxCtl6Vi+YT/B4M3dGxUbnyoJE8FJbVfpqmOjtPR1gtJilRcP5EYdriJjq+W Ud2eB6jQGeDyk/xGR/M4y7O9JlRw7DSITZimo5Kjfm28DxV5E057c6VH8RwW vC6dVAxFd5QvCxhFT9ycF7WXilVMf8OeB6MQWR42YTBEhUZUfHXOo1FE1r9r 3jFOhdILbhnt2FEEm8gGDS4fRhCLI7GvYBSe12b+0ZUbxqUCXXO5gVGYJz9Y Lh0wjO6s3zVS/zLAHuHAofRgGPNQXccKBtL99Lg1Q4eRH3TiS9sBBn6dF1hn 92wY7qqTt69rM/BIMlo2M2sYLN87Ym6eZaDm+SsDxY5hBA5IRyb4MiDztD5O Y+sI4i/M7PSuZ6Dpbnqyyc4RlOeWVNU1MeB0KyjNVmEEBnHj2RxfGHhz0iD/ HkYg+DEo3fMbA6Zru+qa9Ekr1PDsYTLwMJw+Zuw6Al816rMKTiYmg1bB5uMI Ts858J/RYiKytKnw7KcRVD+X3/DnOBMUWriccdsIfq0IKY7UZ8L/gMRm9b4R uM6vznxzkgnhaeXVm6ZGEJRi+vS7NROHTl3q7BWm4UVSxS8tHybCNzU5G9uR 3n8svb2ACWW98PHjV2gwkYu5MFrMRK+76UV1JxpmOGgf5kqZkGkfPrPnNg0U vhuRq6uZKA9ccpjvEQ1WXbnn5xuZGCbk+Jpe07BlTvQ1J5UJpeKwTHUOOloy ZFcs4SGwytf5TCo3HcFX+JLe8BHoOG7yD5cAHZkvz53yFCTgOihs3SpKx/lY jTVMYQIV3Akbz++ho5g51n9PisDhC9kPvMzpqC9Zx/5dmYCg3COVISs6kjsd /zGiEBj+fZ12xI4Ov+pTmu/UCASEKB1e40yH3iZ318hDBOpLK+Zj7tHRn390 ge04AT2+RrvSAjr28cWW/TpLQKInc51YKR0lH2fvSp4jMPkypNanio63bjEl R84TCMMJSa2PdFBdZfT9bAi0237r7PhOB+t+JNVeIXCmkq45s3oUMe50L0dP Arb27FvkLUfh8bXNyeMZgfi3cnb/2oyi1cRMgSWGQJfw6Yx99qOolr+p6RZL 4NiHLAWdG6No5rnmYxdPQE761P5L90bRb7H+/saXBOb6Xp1Kzh2FVpBEZkcO gd1K7dHpRaPQZZvQEs8jYB/E+j2vbBTqwquvWeUT6KUYWVfXjkL0a6T1QCGB 6iiW631do5ArPGVcUErgnqH+g/XLGNj72M6opIbA2zS3ZvFVDPDyfZNqeEfg z9IXfDJc5L4NoBV11RJwyP79RHEtA7knC3aNvSdgyJWUbCjLgGTPia9jDQQ2 1M1UPDRkoCP//nnTVgJGohJsEScZ8Bq2XKvSRiDIWVs92oyBuJrv9ULtBFg3 x31MsyHnMFX0QN1XAkNeRzvq3BiQP7amd/k3Ahkq0T+WJjEwbxEQOPOdAJ/c gK1zKgNETenvwn4CN6RkvtMyGahnVVZ0GiCwnye/qfk1A/HHy8SogwRaqR9f xTQzsLbfzSx+mIDyN95NvG0MaFUYlGiOEIj9ZPLUr4tB/l+85CZI25QOBl6i kusn+RVspxP4HTJ/QXmegQMNPxMDGQTM/Q/0pLMyEXviktU6JoEat4AT4uxM NMykH0sm/dCa/9BKXiZ2Xz+TUUgQEKfIirdJM+HQXHW2eJzAHflrkZrbmaBq Z3PuniAwKl3EXSbPhFBMp0Aq6TzeQwsJFCa+Xso7HvyDgMaIaddVAyaGzE3X YYrAq+44/SETJm7y5OkkkOZpGX5vYsaEVkAn/4ppAp1ljkVqtkx4BNy+8Ja0 /aN74Zy3mVhW+mRo0wyBzwGfVnv5MpFW+Ej3BmlFDyHfqUAm8igiXrWkl9gm XOsKY+L0yr7jFrMEHqFEJyWViSaqvqXrLwKzu1lrRbKYsP+dUFlK+oyMBoLz mdjRcENknrQUf4vsjUompJw+MK7Pkftr1bpEeg0TXawTDhmkxxbMhM3qmdCt oHFRSRfT6KsOtzERlM5WrvObwMbeXV5FXUzQ1Pi7vUj7fHGe3fadiXcfW/fk kD5WsXSYl8HEy5j0HM55An1h69/2sRJwSXDOzCKdLpjSPLOCQKZKLFcLaddI xW6u1QQ+eb0VnCIt8MzwpyrZmS1+wSryfwj0bxhYakh2ZoMBl5UO6czYq9x2 YgQOTu/VsyOtmfBwy5OtBBIsfe7FkhbcvGFP1k4Ch2bzqYWkB5LT9tcqEPD/ mbWxibR7at2paRBYmndRbY70UVlj69Vkd3RwZQ/XAgGhjCFHSU0C/A31EuKk s7OXPtAzIJA7cnbhIGmP3SFPbEwInHsoNGdAWitfNPn2GXIuLkuutCS9VjEj J4LsUlmV4c6rpIeKVCvSrQm0tPg4e5DOUa6vf3uJ7OCq4MG7pG+XnvzadZWc g/6znhGk11c6T6xyI/Bg1cozaaSH9y9fEPMiQGc0p+WRzq9+xKF0h/yd43Go jLT3YQkhnXvkc+mabq8hrVObJXkhmJy7A0qXP5IW0VTb5R5OwHmcydlCmvah QTUsisDEwlO+DtIF2qc108iuJe63vdND2qeRfuJNItmlMh/7AdK6ui7nOlLI 9V+JNQ+T3vCZ3WE8g4Cxh1v+KGm6QYQrO9k1i87OTWOkC1s3BWwsJrAn8c7m H6R9jXPD9pST189/Kp8irdexP067mgD7QcHZn6Q3mjanW9aR978+7+ss6dFv Zq9vkZ0ytOWzmSNdZMZ8F/KZ7PDphPTfpP36XFtekl1ys+vMmietf46jr4Ls 0ILRXpc/pEUHIxltZIfGdqhyLZBmWEn/YlIJTOnfvPGfi4fzly8nOyHr5FH6 n/1tD/GKkHPt9Iw2+J8NRz9v3P2TXE/q9Ox//v9bSbyXqP/1n83mJfZPc40t fh7KdsZRT/KvdcYD7so4/jVnd14ca/Vfs7h5GihdGV/03IszGd95JhZ96UnG fZ6qvy7c6s++xv7Hov/RvLrNi3Ny0W2yTZ9vlvx1ajQkB85MLdo4Y88akT9/ fcv3uWdXyvSiXwyLRHFq/Vy0qA+fxoqkv47YyDG1sPDX/wMTyKSp "]]}, Annotation[#, "Charting`Private`Tag$33650#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBmIQHVOnc+X///v7GaDg3id3gc9fEfyE9GSfZ68R/NSA WUfOXEfw85Q4ts5cj+A3Hns81TgewV/GNzs8fd89OP/DPM7b52ruwvmrVopf aT58C863bbivkWdxA2H+9Q5uuV1X4fyjEskPNrNehvO/qn4XqK+/AOdPt6pI T2g7DefXax094at+DM6X3NT6cKnKQTj/v3TA3snZ2+H8eLYfPkm9q+D8tWn5 lmrLu+D8LxLzlt337YTzbU6fEZ75pR3OP6Ov9Y7bqRXOv/HxpOvjnfVw/jqd LMMvXilw/uzXnmc2n46F82/V7jetZwyG8y1Z9Zc/eOoC5wMAAmt9TQ== "]], LineBox[CompressedData[" 1:eJwl2Hk0Vtv/B3BFMhQlpTKrLqmuoRRJb0NoUClxo+KGQklCMiWKZKgks0RC JEIZyxhSyJjZMxgyP0+XPKbn8D2/9fvrrNc665x99t7vz2ftdaQtb569spKD g0N1BQfH/13VVim8oQ0dwSUbL1e/J6OH5dSubTeSPQ+hvBVrIvnWw8XIo++L 22VMP2Ky7BqlYRxUJkfpu4oSu+tmwXf+xv4KLpc5bXtMqRbvkNI4AH52sgVv myM6fuR/4b6tCc8off/Ih844qdVUdV1KD+PKY2+3qbmiY0L30GCCAS7+CGnK HndDn9q5huPzZ1Bvp8DSeOmJIkPvhhZ+Exxa1SJaZ+gNy7xL0uIBZjAxLJZ6 5+uDTtbI78/XLCDwMvjDVLcvzC+mVclcsETN+EU9tX0PkNp17++UfVewP2D5 es0vfxie5Ijnv38djLampTWaAXiosOPWgxkHpMokPTOKeYSuyimf3ydvQaT0 SAHtRDBCxu/0H9S8jSb+TcdlU0JwmqcxU8riDh6ZDvfeWHoMS/HOT2uj3OG1 cMT37vlQ3JOtuhZ2xhsTEcOpfPzP0X5Kr233HT/UHjL8nVnwHI6Xrjvojfoj eaBQ7Yx1OHRl3k662QTgolJQfVRJBFLFyiKmA4JQX797artjNOy+OH38lRGK NOcI9VqxGAxsmJqOD38Gv61Lfte/xYCTWdO7+0EYDtk2iuTKxMEngs+p4FY4 3nE6aeBnPG6JuybVPo9G2IEJBWPXl2hxV+TLjYqB2/WrMtdFEpB6ODzULzEW SXaZD+p2J+KqA3W4sfwFbjS/sp11eIUL+t7n8uMTwfUqSPn09GvUThyt2BiU gtnir7u6dZLBLV5xYItyKsbauHZcCU9GM/+Ij01vKpp47ol4qqTgJmvmYPeB NLxwdGan3knFgybzk028GdirebFmaTENo9AdogVn4y+zmLJAg3T8LFO8nvBf Nja7tBcKx6djfTfHpMP5HCy9McyQP/wW6a3/dqrvzMV3Qd1QE58MjLw6teFa xwdYUveYZXFlIS+0IG/ZugBHy5ZZWQ9zQEzb5lgdKkOChqewSW4OKAW/vUUa ysD6xFIi+nLgYute4qBQjuTCSfsTKrmQ7Q+fqK8sB0duT//wQC6q2kZT2pgV KEou+CGl9RE1Ge4LVy2rIB90MzVsMR+9X7SazyZ/A78x1djV8TO4D3HxCBW1 4Pwnr61n4j5ja8e26oCxFqRKb6XuqvmMkzLLq3eKtUKTcc6WLloCPa3Exol7 rXAJ+O5h8LUEZ0w8dRyPtYFSlJcgI1GGB9U1ohKDP2EqWOMyPFSO3fLcEx0q Xdjt8qL0+fMveJy9sitVjAap1J+xvmG12Olx2cFqyzBqOTPDXhMNYE6ZOGz4 xQDV+pHdnofN2Fa8KHhhYQofLwWKvNZpQ4mjaCyHOwsRPbydV061QXPn/qd1 /iy4mgZFy5m2gfv3bssnYSyoGgdvyXJowwG1avfFDBY+GTwWLYppQ5q2tpkT hYVK9WeSjcw2/LM+2+i71iyatsTILsb9hNexLym0FXPIidoyUpL6Ewds1d6H r51D2MbYNJ+cn2Cz6m2xZQ7n1sft5P76E5/siFo3xTl08MTvWj/1E85m5kc9 zOdAmU1UkD3aDtWCXYXZhXMY/5l2wOhPO974pA1nX5nHC/timUtL7aif65t0 vTmPU5z1a214OqB+A9N73eeRrcgc8BDrgP/H8P6wkHm4BquEJh3pQNE2l9SB 3Hms1Koc+S+8A6dddW7VEfPY+q4nJlSlEywp2emgkAXUa0/6xaITyWuen9wR sYC7XUs3k491os9wdCIvfgE0bhm9wkudyB2mDhZlLSD1su0U1b8T+HN0h0HT ApRFZo4rtHfC+UagacT6RRy7L8BucO2CemZ7YFTIIs4a/3M627cLV1d/fvIk fBFmcolJYSFd2MYqsXV/sQj7H0rH/knqQn2air/8u0WEbjWOpDV04UdKf8X8 90V05MYpTm/vhp6Vjrs+Nxs0/8EHPxW6UT54XcV9LRsj5/d0FBzshr10wM2X wmwsLJXe9TLsxokYsWNfZNiQONH/fZVXN1o+PeFyPczGlQG5K5tbu9FPCTjr 6cyGQ/6twoW+brTtjYvrd2fDNbCYv2+kGwc1t27U8GHjkYJB7qulbsSvOBFQ F8LGO8+by/LyPYCx5MTJFDamN+THaPj2gGuF85/BVjZ8j+j8sFToxTek0yBL wExR3CBErReVd0LCPu4isE9s9lueTi94OyozxBUJ/Jp+W81zvhc7bC7xNqgS MHgtVJLl04vHFmdlE48R2LyyP2OhuRe3lALyN9oRmJr8tHN7by+uhY6kNdoT qOuKeHPyVy8GmWXddx0JeOcce524QI6f3TWdf4fA4L85sXrb+kAzCCuN8yeQ XeYTGObSB+Hbw4N7EggEZZit/uxNuofaJJ9EwCpqn//Qoz48zvzSI5pCYNPN ER/V+D7MHdql3/2WgJeEoRulug9SMduO1OYRMOGTZ61u6oPpx0nWlUICCixO F6XuPvCPin2aLSbQ31Bw04/RB/1Ip1uzZQSO3pW0kRehYKB1jb3NNwIydvOD RtIUVBlQ7qXUEVg812p5dxcFzYpWMR0NBLJ2B5g3gQJ5P7VOkRYCwr0MY1db CtbYh13m6SbA+FrbmuBEwcN1evd+9RD4+iHpzDcvCvw2NUUX9hHwCDY5KfaM Ao0Bzk+qdAK0g6VHKoso2NZW/zJtmEBB4r/vCr9QIJLUKio5SuAJN6fw+wYK 7P7EcwWNETjUoj8QR6cgz2v/Jo1JAhtUx46HjVPApe+k4c8gMBYfkvtohgLj UoOGCiaBaLtm39u8VBw5wrl98xSBm43Oo9c3UMHP9WBUaZqAnsqmM5biVCi1 jghr/iHwh+OC1GklKu7ZzcWqscj9vEoE6KpTkb3k+Wf7LIGk+gSmui4V+ojJ 4ZojYBg9WCpnSoVRzctzr+YJyC49/EvSior02Ug18wUCS1Y7n2y8QcX2t0d9 BBcJ/PxWN8N/h4r9nw3k8ki/U3C4tNKXitFGbaXTbAIPItZVzwVRMXm8ObaP tNli7m5mOBVBJinW/xIElC4bhw+9pCKe6vSkgzTP19nFnjQqXkb+EdFZIkDd HWvVkktFBnOc4zXp/LBDdbWfqXCVkT42S/rxHEW5rIYKA3mr31gmYG3uG5vX RMW6mgCWF2n1qm0r33WT992uX8giLSRfY5c0SIV0wH8SbaTHnto2RzOo0GNz ajFIV8zwqT2do0Io5XkFm3R9pkmT9goaXISiE5dJF9JkuQ5z07AYLUhhkU7e MH9AjZ+GesNl937ST/W+X9+3joasjc4ulaQ93OMSFDbSsPDwbkMk6avv7Fvl t9LwfrWqvwXps1SN1X9J0nCxtDJOjLSGkKC69HYaFCOOrP9Bzk9Ol+YgtpMG ttr4kDNpYbecJJG/aZCWGN8iQJoj43670F4aklzvZb4g12+8z4hPQJUG0UNj iZKk29ftOMyrQUOVvMufSHL9K3VYt7i0aXCqtE9bSTomPbpr4QQNcqW8ewvI /fXrtVvLMqSBPu3Ax0HaUVBd6z9jGuZuV+lokHnQv92XNmxBw6lrayjhZH6U 07J6+61pEK6bwXsyXxI999ZR7Gg4ZlyyqnSGwIymjFubMw2f5SXLCsl80pyn MxrdyPn6/vqQTOa3PrWK+v0uDQqbfwn4/0fg9Rob/YoAGih+ygsyZN7PdGZs yoqj4VzMQlErWT+26dHeG1+R4100l9YZIeDj4f/LK5WGN4yikeRfZD2LWeSf yKHBrag5DgME+C4LmYzW0KDPR//YTNavtPJyiWE9Dfw9EhptXQRUOSd2FDbT UH3voMK3DgI2KdUzD3tpKD6WbRLUSqBq1C1i+xQNzek7eu2+E+gpvkIEz9Ig cjqxd/kr2S+Dz16ZZtPgaLff6FE1+f6/d6tUrqbDv8k/3bGc7JdO1DYLcTqa O5x3J5D9THVRVzjuKB279pmr3o4ncLpe2WvlKTqGbjt47I0l8xEvOWhnRMeU rtjZwUgCEZj/oGpOh+IK9zrxUHK8B++M2p3pqHppLvfbl6y3NRuer0+gI/RA e7GwFYEvfcsLbsl05Av2exHmBLqzJixp6XTc5LQnOs0I8J6pUX7/kY6K4x66 tmfJ8SLcWwy+0+FpvvbIiCYBSQna+kczdNz/sDfLUZTAS8+Ngs8X6Hi79x+V nk3k/nYdX/NymY5Vj2svHhQiHZ7H/ZG3H39tbo5q5yEgxhe8SBXvx+qnmQIB M2xsZqkMHdDrh+QNv+jv9Wys+xFcOBzZj8S8faZTTmyE7qrIm4rrx9lmXzrL ng3BQFYukdgP69CgW7+vsiFw5HLmhox+KJZHF1SasbGmeH8SyvoxpFl8ZFCL DZ5UenDUcD9urZuplBBgg8P7gIW+6gCMnl3/8vjlIjLcH4WWagwgPi3MJD5y ESa3uypUdAZwfvp0UuKTRWTae27ffmoAySsnPO57k+eHC2WjHNYDUNtl0/7h 0iI+quq7FD8dQLWQt1/LlkXYTJsE7hkegLJ+gOLuwAX8sHX9sCFyED7bdj5p 052H26sM01txg7DJ8OBVU5+HTDdt+UfiIPjyFS4/VyTPTydOGARlDKL8L9nq naLzkPhbaoijYhBhmsQhCnMODtPfNjHGB7E8mj9rHzUHAW9xj1qtIXxN4Wm9 QJ3FqedVmncnhyBnkN7kcI4FeoeKVP2eYbS7zm8V3DaNy2+ecMsFjqA0P+ap QB4Df0L5YNcwCqm2j8t37YahVhyRrc8/jq/dmw9qONHA53/HPGPdOFwLp9TW kHXefdp0jeCmcVg21q4bPkCD15CYbbvUOAbDiwt8F6koX5cseWX/OJToJXuE hMm+aZP75P7lcWz2f5MperwPZ4Ub7UsKxqG74gzHn7ouXHPg2bnXegKVy7I5 J1Rb8bpa2f6g3QR+hxofjudtRa/YpfdaDhOYy/FlCfe04FRdjoqh2wTatgYS d7xboCx3QftGCPm8sCWX8NdmLNIzL7z5OIFIh04tukUTQoyNnoiumkTSv8b6 vlZ1qH53t1mGbxJeX18ZlK+rwxJnmrC84CSos4cdLpV+h2MuO1Z1yyRcW8dO ftz6HcaCqW+M90zChVJ/b7CjFhLf5sqfGk9CSfuQfaN1Dd4fejnNmToJo7ov dFp9BYSVB6/dyZjE2CnuLlnfCrjJyvePZU+iz7/SalqlAtpC+U3NnyaRNcc6 LPqqHO3DDZkJzZMIHxnofLhYCnYYYaNOTGIlV7meTlIxLj/SoWatZIBj5/EQ UbFi1NwNNJHhYeC4fFjMxqgiPLXdqMu7gQH/8zVHb4cWQubwHpkOOQac3r74 JvAsH0dHL/Y6nWNg6bN8M19dLjIpSUa/TBlwHrXg/vxPLoTaRr6bWjDQa2eI tKEc9JS6FGleY6CmJFZKdVUOHMJDIgV8GHjsFslRnZqFcHw2fJvBwK9QCbMI szTM71tZK57DgAR/sHr3izcwlz+KZ/kMuEs1ttTSUyG7sW2PWwUDawx+qWY7 p6B4bJxPr4MBA23HCs7CJNAjRKvpK5n4E9FrrhUchyyRt81zq5mQNBLn2+sZ C68YVYrgWiYERzwtdjjGYFO88ayGCBMz/NI/pe2icDz56c7YXUx4ff57XCj6 OUT+ktifo8jEKmZMV1J2GAbfvNOuVWGiS0JB3eLHM3hnfLvAAhMqS9YWzltC kZvL+eTsOSae5R4I1e8LxL19YbF2pkwUPN5camX5CAb5Um98zJko47Y0VJp6 iF9FGuVZtkxcEzgqu1bZDx/U6+urbzBxb1N6gVL/ffiUmHX1OjFx4f2izr54 X4hW3Jniu8tEzHdRaQ5bb4xocy9L32fimMA2lzJJL+RXhfOrBZDf4y9uHT7p DsPanO02z5hwo25d31V3G+LHNZW8I5mIoif33O51xljdD42IOCbqjRXN73M6 wa9x3ORLChN1Mv8xAuVv4MwZD6vut0ycE7uTachxDRKtPI7/vWcitHHzUgan DcbPRXnx5DHxmap+6ts+axS27wiULGYiIW/V1vbnl8kcfYzYX8YE/3J+57KW Oc52ayedrGIi0bKqZKTQFJIXm7OsvzFRwUPsrQwxxkSfxSfPH0ycYaanD5ec QZEF42tYKxP+h2WN7WIM8JDu1ZbeyYSuKVc5r7MejKz46eV9TEjc8JC25dWC 1FDMZEc/E1MvFPzcilUxeVVugTFMzqex9bgXRRHFI/nc3JNM+I78kY3m2IFH 13Q3iE8xodY3dtzKfxOMJ1ol980y8fvNad+EzSuBfe0BNQtM/Gv9///b/geP WBXv "]], LineBox[CompressedData[" 1:eJxFx2kogwEAxvHXKHJMW7RSQkaM4cvkqAklMcOsKJnl+OLMUe40mQhNzlwr ZwuZs6T3g5D4oMxoPmjuoohh5h5K7/PUv6efR1axKJdGEETgb39/duVEDtEe Ioj/zYQJ1Sk2cGdND+/EFs788ox6cYRj+PnbMibsX78gdHCG34jIdLYL3GUl KRex4ddsFk/jDUs29oyJvjCnIboiIQBeN/tUx4bAj+9P9XwBnGRoaeWUw3T9 8ihtEybqZOLQEgPlD5VEfc58pFw4oG5nrsMrfs02jKInyvZxpf4N9GfKOu6e toqEp5UR7EuJkXKaOpjh+g3XyEdkx1MvlFXXroN0gYly47BcqhfCUtGd12wy zCLJuYRUuEmRvtWWBecE9xtsq2D3RqdY60n4M6TWQaeCj+4u9ienYUXqYkbM PPzNEZXJSfhYo1BaauGVJlO29hDuDs/0HTuC4ycClqL08Grl7o7sBu7l8hTJ t3DJ+ZDY4x72ERScrD3DVhYH4x0m+HQ5PE/6DpN5Y4FBX3Cfm53RbIZ/AOYG xKE= "]]}, Annotation[#, "Charting`Private`Tag$33650#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQHVOnc+X///v7GaDg3id3gc9fEfyE9GSfZ68R/NSA WUfOXEfw85Q4ts5cj+A3Hns81TgewV/GNzs8fd89OP/DPM7b52ruwvmrVopf aT58C863bbivkWdxA2H+9Q5uuV1X4fyjEskPNrNehvO/qn4XqK+/AOdPt6pI T2g7DefXax094at+DM6X3NT6cKnKQTj/v3TA3snZ2+H8eLYfPkm9q+D8NVP/ vrxsi+D/UmFud323Es6f4sx3UMMfwT/RoGL6XmAFnG/0O0C2ZspSOJ/1w8q3 U2cvgPOD6td3sfsg+PayWf6ffsyH80uiGg7v2DUPzr97Zc1qV7s5cP6Gk6w1 8a7T4fy1afmWasu74PwvEvOW3ffthPNtTp8RnvmlHc4/o6/1jtupFc6/8fGk 6+Od9XB+Rpi6Qhh7LZz/Y1fLrxMhVXC+RIv9+nXvS+D8dTpZhl+8UuD82a89 z2w+HQvn36rdb1rPGAznW7LqL3/w1AXOBwDTdLpC "]], LineBox[CompressedData[" 1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAOQUvp+DlRD+eTo0U642jP8+Wvxs9 uko/4MtwNOn+qD8oOWokUydYP6KwGy5Bi7Y/VYq/KN7dZj+k70tDIULFPzbB BHT4Qmw/2MbWGL84yj8L/KRfCdRwP+ET0zpIKs8/6zLqqiM5dj/2bE6lEX/U P1ZQuiCsgYA/hU9vc5Y03j8Onouz8tqBP4erV1vVTeA/xutcRjk0gz/5cVLD HYDhPzaH/2vG5oU/iXn3H+vg4z8XvkS34EuLP5vVWR+Ek+g/7JXnpgoLkz/j aanoh97wP6wDcj0/1Z0/ND1XbEmS+T+SN+wvVXaeP6dqkNJpD/o/eGtmImsX nz9AHpgpBIz6P6JprYPLLKA/2Gh1XaeD+z9t0aFo926hPwXCF8SsbP0/BKGK Mk/zoz8wnD5l7ZIAQK7Kf9+D1ag/AAAAAAAABEAYkJj4 "]], LineBox[{{0.4136746435771028, 2.5}, {0.4403922094616704, 1.7628187041617056`}, {0.4800878211325834, 0.596417956816499}, { 0.5190039103315575, -0.5692937216554391}, { 0.5506958686454297, -1.5}}], LineBox[CompressedData[" 1:eJxFx2kogwEAxvHXnDkmi5QSMrK59mUailASM4yiZJbji7Oh3GkyEZqcOcvZ QuYs6f0gV3xQGPFBm7MoYpi5h9L7PPXv6eeWUSjMphEEwfnt78+u7Ml+2kMo 8b+NNzPWlik8FSRQJlrAbZWdXI0lnP7lHv5iC0eG5G5JGbBPzZzAxgF+I8JS mU5wu4moRMiEXzMduXuesGhtVxfHgtm1EaWxfvCqwasiigc/vj/VhPDheG1j E7sEpqsXh2nrMFEtTQqUaCl/KETKc8Yj5fxeZQtjFV7ybrCwK3iibB1d5FNL f6Z85LurKifhycFQ5qVIRzlFGWDn/A1XyoakJxMvlBXXzn10vp5y3YBMrBbA YuGdx3QC7EiSM7HJcL08dbM5A84K6NFalsOudfZR5uPwJ6/K5kgBH99d7I9P wvLk+bTIWfibLSyWkfDJnnzQWAUv1eszVYdwR3A6a+QYjhnzWwhXw8tlO9vS G7jLlytPuIUl5/1JbvewFz9Ps/IMmxgdjLbq4dPF4BzxO0zmjPhzvuBuFyud wQD/AL4gyIs= "]], LineBox[CompressedData[" 1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAAkFnANlYh7z8AAAAAAAD4v0qkjyma K+8/OBVAa+D89r+ysgOOUlTvP+H6zS0M3/K/fzSSmmlZ7z8PPdM631jyv0y2 IKeAXu8/sx4EeSbS8b/muT3ArmjvP4fCdc8Qw/C/G8F38gp97z/RNueknzzt v4TP61bDpe8/VxdkP5105L9RUXpj2qrvPzcM7weeVuO/HtMIcPGv7z9PUTln gTfiv7jWJYkfuu8//aBL7tzr37/s3V+7e87vPzGCKXCvyta/uV/ux5LT7z8J rKAkxnzUv4bhfNSp2O8/n4f+Opws0r8g5Znt1+LvP1i5RE8HC8u/7WYo+u7n 7z/rtAQWJ13Gv7rotgYG7e8/RSX61L+qwb9V7NMfNPfvP2Pp2t+scLC/PzTW h8b67z95TY0U642jv0Eeqpg= "]]}, Annotation[#, "Charting`Private`Tag$33650#3"]& ], TagBox[ {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxFzFsog3EABfChuaS0kkwiNLZQQgoZhSWaLESJtgwT5St5kMY3uStPLDGN F5e5TSSskBhbW1ImIkYikttMFmkonf+p0+n3ckLLqfxKVwaDEfXbvy1tibY4 ndZNxn8ubFmst3diiUwqvH0grhQN75iPievCPJeHtMStu9fKeDHxhI+qWLZx Ab+ovc725efwtMbf0rZ9CvMVVl5d4gn5P+72DtYdwXq29HKJeQi/h3+waPoA HkxulEk6TTAdqTfkcnfhgMWOq3HOFuwMFK33167AYneHsLxvGp5Vft8f8ok/ OW5dgicNPJDhs8XLIzYoOAnPrCk47ksUJB8Yh5kvmkelagzOp7W9HkLitKCa PJtjFG4oUWyv6tTwuWV2RpA6Ai8YmXKxYBCeq6KSIiZ7YTtbPWHN7YFTTGbf IXsXbI6JfPJO74BPXo2C6zUari7ihhR5NMMOXfunobAJZrenaeefG+Cpu5Ge UH49TA3b93h+FDwfXRNrz6mAVQ/Z5iVTGXzavJlAuxTAScyYycubTPgH1zTC tw== "]], LineBox[CompressedData[" 1:eJxFx2kogwEAxvHXnDkmi5QSMrK59mUailASM4yiZJbji7Oh3GkyEZqcOcvZ QuYs6f0gV3xQGPFBm7MoYpi5h9L7PPXv6eeWUSjMphEEwfnt78+u7Ml+2kMo 8b+NNzPWlik8FSRQJlrAbZWdXI0lnP7lHv5iC0eG5G5JGbBPzZzAxgF+I8JS mU5wu4moRMiEXzMduXuesGhtVxfHgtm1EaWxfvCqwasiigc/vj/VhPDheG1j E7sEpqsXh2nrMFEtTQqUaCl/KETKc8Yj5fxeZQtjFV7ybrCwK3iibB1d5FNL f6Z85LurKifhycFQ5qVIRzlFGWDn/A1XyoakJxMvlBXXzn10vp5y3YBMrBbA YuGdx3QC7EiSM7HJcL08dbM5A84K6NFalsOudfZR5uPwJ6/K5kgBH99d7I9P wvLk+bTIWfibLSyWkfDJnnzQWAUv1eszVYdwR3A6a+QYjhnzWwhXw8tlO9vS G7jLlytPuIUl5/1JbvewFz9Ps/IMmxgdjLbq4dPF4BzxO0zmjPhzvuBuFyud wQD/AL4gyIs= "]], LineBox[{{0.19999588656449888`, 2.5}, {0.2193624664269292, -1.5}}], LineBox[{{0.7807288394041964, -1.5}, {0.800117680407767, 2.5}}]}, Annotation[#, "Charting`Private`Tag$33650#4"]& ], {}}, {{}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}}}, {}}, 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]], 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->NCache[{{ Rational[-1, 2], Rational[3, 2]}, {-1.5, 2.5}}, {{-0.5, 1.5}, {-1.5, 2.5}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7937237757277565`*^9}, CellLabel->"Out[2]=", CellID->241355403] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Applications", "Subsection", TaggingRules->{}, CellID->605265931], Cell[TextData[{ "Use ", Cell[BoxData["GeneralizedSmoothStep"], "InlineFormula", FontFamily->"Source Sans Pro"], " to implement a \"smooth\" version of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Hue", "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/Hue", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " (", ButtonBox["reference", BaseStyle->"Hyperlink", ButtonData->{ URL["https://www.shadertoy.com/view/MsS3Wc"], None}], "):" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.8583618560193977`*^9, 3.858361861914571*^9}}, CellID->339822969], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SmoothHue", "[", RowBox[{ RowBox[{"n_Integer", "?", "NonNegative"}], ",", RowBox[{"h_", "?", "NumberQ"}], ",", RowBox[{"s_", ":", "1"}], ",", RowBox[{"b_", ":", "1"}]}], "]"}], "/;", RowBox[{ RowBox[{"0", "\[LessEqual]", "s", "\[LessEqual]", "1"}], "&&", RowBox[{"0", "\[LessEqual]", "b", "\[LessEqual]", "1"}]}]}], ":=", RowBox[{"RGBColor", "[", RowBox[{"b", " ", RowBox[{"(", RowBox[{"1", " ", "-", " ", "s", " ", "+", " ", RowBox[{"s", " ", RowBox[{"GeneralizedSmoothStep", "[", RowBox[{"n", ",", " ", RowBox[{"Clip", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"6", " ", "h"}], " ", "+", " ", RowBox[{"{", RowBox[{"0", ",", " ", "4", ",", " ", "2"}], "}"}]}], ",", " ", "6"}], "]"}], " ", "-", " ", "3"}], "]"}], " ", "-", " ", "1"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1"}], "}"}]}], "]"}]}], "]"}]}]}], ")"}]}], "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->394074048], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SmoothHue", "[", RowBox[{"1", ",", RowBox[{"1", "/", "2"}], ",", RowBox[{"2", "/", "3"}], ",", RowBox[{"3", "/", "4"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[2]:=", CellID->346645274], Cell[BoxData[ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[ Rational[1, 4], Rational[3, 4], Rational[3, 4]], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.16666666666666666`, 0.5, 0.5], FrameTicks->None, ImageSize-> Dynamic[{Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"{", RowBox[{ FractionBox["1", "4"], ",", FractionBox["3", "4"], ",", FractionBox["3", "4"]}], "}"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[ Rational[1, 4], Rational[3, 4], Rational[3, 4]]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, { Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[{ Rational[1, 4], Rational[3, 4], Rational[3, 4]}], Editable->False, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.793723780716688*^9}, CellLabel->"Out[2]=", CellID->695580286] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"LinearGradientImage", "[", RowBox[{ RowBox[{ RowBox[{"SmoothHue", "[", RowBox[{"n", ",", "#"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"300", ",", "30"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "0"}], "}"}], ",", "0", ",", "5", ",", "1"}], "}"}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[3]:=", CellID->938140257], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzs3Qe4VNWh9/91S+7Nm7zr5qYtTTGWJKYnmuQmuWanqInZ9t5i11hjixp1 2zX23nvvAlIsyAGkF0FFUVGKIgpIx4IiovD776z97vmvmT0z5xw4w5kD38+z nvtGA/fK87zPb9b5zp5x/QOP2emQfzXGHP/p9H/sdMBJmx533AHJzv+d/sWu Rx9/+KFHH/yXLY8+4eBDDz7uVwf+W/o3u/2LMft/yph//mcBAAAAAAAAAAAA AIA13mMAAAAAAGDN9v6Hn2T/k8PhcDgcDofD4XA4HM6aecI+0NlPMQAAAAAA gM5BHwAAAAAAAPQBAAAAAABAHwAAAAAAAPQBAAAAAABAHwAAAAAAAPQBAAAA AABAHwAAAAAAAPQBAAAAAABAHwAAAAAAAPQBAAAAAABAHwAAAAAAAPQBAAAA AABAHwAAAAAAAPQBAAAAAABAHwAAAAAAAPQBAAAAAABAHwAAAAAAAPQBAAAA AABAHwAAAAAAAPQBAAAAAABAHwAAAAAAAPQBAAAAAABAHwAAAAAAAPQBAAAA AABAHwAAAAAAAPQBAAAAAABAHwAAAAAAAPQBAAAAAABAHwAAAAAAAPQBAAAA AABAHwAAAAAAAPQBAAAAAABAHwAAAAAAAPQBAAAAAABAHwAAAAAAAPQBAAAA AABWsfnllixZ0tn/RPQBAAAAAAAabvHixVOnTh09evRjtQ0aNGjChAnz58/v lH9C+gAAAAAAAI0zbdq0YcOG1ckCRS0tLePHj1+8ePGq/OekDwAAAAAA0Agz Z84cNGhQu8pAhQkTJixdunTV/NPSBwAAAAAA6FgLFy5s7zMDtbS0tEyZMmUV /DPTBwAAAAAA6EAzZ87s27dvh8SBknHjxi1btqyh/9j0AQAAAAAAOsrEiRM7 tgyUDBs2rKHfSEAfAAAAAACgQ4wbN65BcSDT0tKyaNGiBv3D0wcAAAAAAFh5 U6ZMacvP+CNHjnyzmueff74tv33QoEEN+sZC+gAAAAAAACtp1qxZbXwGYOzY se9W08a8kBozZkwj/gj0AQAAAAAAVsaiRYva/oWEK98HHvP/3sMO/1PQBwAA AAAAWBmjR49u+4/2HdIHUulv6dg/BX0AAAAAAIAV1vZPFnRsH+jwTxnQBwAA AAAAWGHDhg3rlD6QmjVrVgf+QegDAAAAAACsmGnTprX3h/oO7APDhg3rwD8L fQAAAAAAgBXTrm8e6PA+8FiHfgsBfQAAAAAAgBWwZMmSFfiJvmP7wKRJkzrq j0MfAAAAAABgBUyfPr3T+8CQIUM66o9DHwAAAAAAYAWMGTOm0/tAavHixR3y x6EPAAAAAACwAgYMGFD8aX3o0KHD63rppZeq9oFp06bV/42pfv36Ff8vTp8+ vUP+OPQBAAAAAABWQNV38+fOnVv1x/+Sd955p+rff++99+r/xtTw4cOL/xen Tp3aUX8c+gAAAAAAAO2yePHiJukDEydO7JA/EX0AAAAAAID2WrhwYZP0gfHj x3fIn4g+AAAAAABAe82fP79J+sDo0aM75E9EHwAAAAAAoL2apw+MGzeuQ/5E 9AEAAAAAANqreb5/4MUXX+yQPxF9AAAAAACA9lq2bFmT9IFJkyZ1yJ+IPgAA AAAAwAro27dv8af1V1999c26Zs2aVfVn//nz59f/janBgwcX/y9Onz69Q/44 9AEAAAAAAFbAsGHDqj5CUN/YsWOr9oEpU6aswP+21Pz58zvkj0MfAAAAAABg BUyaNKnT+0BLS0tH/XHoAwAAAAAArID0h/pO7wPjx4/vqD8OfQAAAAAAgBUz aNCgzu0Ds2bN6qg/C30AAAAAAIAVM3HixE7sA3379l22bFlH/VnoAwAAAAAA rJglS5ZU/bcYrJo+kP6WDvyz0AcAAAAAAFhh7X2EoKP6wIABAzrw4QHRBwAA AAAAWAnpD+npj+qrvg9MnTq1Y/8g9AEAAAAAAFbGtGnTVnEfGDlyZIf/KegD AAAAAACspBdffHGV9YGWlpbFixd3+B+BPgAAAAAAwEpatmzZyJEjV0Ef6Nu3 7/z58xvxR6APAAAAAACw8pYsWTJo0KBWf8Dv37//8Gra8ntT06ZNa9A/P30A AAAAAIAOsXjx4iFDhrTlx/wV0Ldv38bFAdEHAAAAAADoOEuXLh0zZkyHx4GW lpYGfayghD4AAAAAAEDHmjBhQgfGgWHDhjXiCwkr0AcAAAAAAOhw77777so/ SDBgwICGfqYgRB8AAAAAAKBB5s+fP2zYsBUoAy0tLZMmTVq2bNkq+0elDwAA AAAA0FCLFi1Kf9hvSyhoaWkZP378rFmzVmUZyNAHAAAAAABYNRYvXpz+7D/J Gzdu3Ggv+8tp06YtXLiwE//Z6AMAAAAAAIA+AAAAAAAA6AMAAAAAAIA+AAAA AAAA6AMAAAAAAIA+AAAAAAAA6AMAAAAAAIA+AAAAAAAA6AMAAAAAAIA+AAAA AAAA6AMAAAAAAIA+AAAAAAAA6AMAAAAAAIA+AKCrMKdMau/p7H9kAAAAoMug DwDoKugDAAAAQOPQBwB0FfQBAFhdTZgwYdy4cc8999xTTz01up3S35L+xmee eebll1/u7D8HAHRt9AEAXQV9AABWV8OHDx81alT6w/7AgQMH5AZ6/fv379ev 3xNe+h/Sv8z+fvjL0t+Y/m8YOXJkZ/85AKBrow8A6CroAwCwuho2bNiYMWPG jh07ePDgQeWefPLJrBJkZSD9y4pfkP6W9DeO9Dr7zwEAXRt9AEBXQR8AgNXV qFGjsp/0H3/88cdyj3otLS1Dhw7NPkqQ/od+/fplf7/0y9Lfkv7GAQMGPPXU U5395wCAro0+AKCroA8AwOpq1KhR2YMBpT7w6KOP9u7du0+fPkOHDp08efI8 b+LEiUOGDOnj0QcAoMPRBwB0FfQBAFhdVe0DPXv27N279+jRo+fNm5f9slmz Zo0cOTL9m7169So9QkAfAICOQh8A0FXQBwBgdVXqA6WPFZT6QPpT/8KFC7Nf Nnv27JEjR/bq1Sv9rx555JHsl9EHAKCj0AcAdBX0AQBYXZX6QPaxgl5et27d evToMWLEiLlz52a/bMaMGUOHDu3m9ezZM/016S9O77H0AQDoEE3aB/oeYv5p kyun/POvpkzpe8gmm5jcJpsc0ndKZ/8TAljl6AMAsLqq2ge6d++e9YHZs2dn vyzrA9297Nekvzj9Lelv7N+/P30AAFZS8/eBKVf+/2UgsMkhfTv7HxLAqkUf AIDV1ahRo7J/d2FLS8uQIUNGecO8F198cf78+cu8uXPnjh8/Pvv76S8YOXJk +ov79euX/Ub6AACspCbvA4ccson/f67sOyXT98pDSrmAQgCsWegDALC6Sn/S T3/AHzhwYPqD/+TJk+d4M7158+a9//77S71Fixalf5n9/fQXzJ49e+LEiUOH Dk1/4xNPPEEfAICV1Nx9IPiMQbX/kkAArFHoAwCwuho5cmT6A/6AAQPGjBmz YMGC8L9atmzZ0qVLP/TS/7B8+fLwv507d+7o0aPT39i3b1/6AACspGbvA8U6 kCp95IBAAKxJ6AMAsLqq0weWL19epw/MmzePPgAAHaXJ+0CNAJAHgqr1AMBq ij4AAKuris8XzPXe8oqfL8j+fvoL5syZw+cLAKADNXcfqPXzP30AWBPRBwBg dRV+P2H6837p+wmHDx9e8f2EL7zwQun7CVN8PyEAdCD6QOZlAE1vBfpAZ/8j A8Aare03sfDfb9inT5/eXvfu3R9++OERI0bMmTMn+2XZv9+wh5f9mvQX8+83 BICOQh/IpC9hs+bO5XA4zXxWoA90+j8zh8PhrLFnBfpAKusDvXr16tmzZ7du 3Xr06DFy5Mi5c+dmv2zGjBlDhgzp5qW/IP1lvXv3pg8AQEehD2Q6u68DaB3P DwBA19L2m1jp8wWP5dKf+rMCMGbMmIULF2a/bPbs2SNGjOjpPZpLfzF9AAA6 BH0AQFfB9w8AwOqqVh/o3bt3+lP//Pnzs182a9asESNG9PLoAwDQ4egDALoK +gAArK6q9oHs6wWGDh06efLk+d7EiRMHDx6cffMAfQAAOhx9AEBXQR8AgNXV qFGj0p/x05/9+/bt+3guqwTZv9HgKS/9D/369StlgUz6K9PfOGDAAPoAAKwk +gCAroI+AACrq2HDho0ZM2bs2LFDhgwZHBg0aNCTTz6Z/uzf38ueMRhULv1l 6W8c6XX2nwMAujb6AICugj4AAKurESNGjBo1avTo0emP/wPLDRgwoF+/fk94 LS0t6V9W/IL0t6S/cfjw4fQBAFhJ9AEAXQV9AABWVy+99NI4L/1Jf1Q7pb8l /Y1PP/10u/6NCQCAoibtAwBQQB8AAAAAGoc+AKCroA8AAAAAjUMfANBV0AcA AACAxqEPAOgq6AMAAABA49AHAHQV9AEAAACgcegDALoK+gAAAADQOPQBAF0F fQAAAABoHPoAgK6CPgAAAAA0Dn0AQFdBHwAAAAAahz4AAAAAAADoAwAAAAAA gD4AAAAAAADoAwAAAAAAgD4AAAAAAADoAwAAAAAAgD4AAAAAAADoAwAAAAAA gD4AAAAAAADoAwAAAAAAgD4AAAAAAADoAwAAAAAAgD4AAAAAAADoAwAAAAAA gD4AAAAAAADoAwAAAAAAgD4AAAAAAADoAwAAAAAAgD4AAAAAAADoAwAAAAAA gD4AAAAAAADoAwAAAAAAgD4AAAAAAADoAwAAAAAAgD4AAAAAAAA6tg88AwAA AAAAVomZM2eu/A/yJfQBAAAAAAC6IvoAAAAAAACgDwAAAAAAgK7SB1b+fxsA AAAAAAjNnDmTPgAAAAAAwBqOPgAAAAAAAOgDAAAAAACAPgAAAAAAAOgDAAAA AACAPgAAAAAAAOgDAAAAAACAPgAAAAAAAOgDAAAAAACAPgAAAAAAAOgDAAAA AACAPgAAAAAAAOgDAAAAAACAPgAAAAAAAOgDAAAAAACAPgAAAAAAAOgDAAAA AACAPgAAAAAAAOgDAAAAAACAPgAAAAAAAOgDAAAAAACAPgAAAAAAAOgDAAAA AACAPgAAAAAAAOgDAAAAAACAPgAAAAAAAOgDAAAAAACAPgAAAAAAAOgDAAAA AACAPgAAAAAAAOgDAAAAAACAPgAAAAAAAOgDAAAAAACAPgAAAAAAAOgDAAAA AACAPgAAAAAAAOgDAAAAAACAPgAAAAAAAOgDAAAAAACAPgAAAAAAAOgDAAAA AACAPgAAAAAAAOgDAAAAAACAPgAAAAAAAOgDAAAAAACAPgAAAAAAAOgDAAAA AACAPgAAAAAAAOgDAAAAAACAPgAAAAAAAOgDAAAAAACAPgAAAAAAAOgDAAAA AACAPgAAAAAAAOgDAAAAAACAPgAAAAAAAOgDAAAAAACAPgAAAAAAAOgDAAAA AACAPtBw992nCy9UkrT1nFLjnFp+TsvP6f6ckZ8z83OWP2f7c06ifyQ615/z Ep3vzwX+XJjoIn8uTnRJoksTXZbo8kRXJLoy0VWJrvbnmkTXJrou0fWJbkh0 Y6KbEt2c6NZEtyW6PdEdie5MdFeiuxPdk+i+RPcneiDRg4m6JeqeqEeihxP1 StQ7UZ9EjyR6LNHjifomeiJRS6L+iQYkGphoUKLBiYYkGppoeKIRiUYmGpXo qURjEo1N9HSiZxONS/RcoucTvZDoxUQvJZqQ6OVErySamGhyoimJXk30WqKp iV5PNC3RG4neTDQ90YxEMxO9lWhWotmJ5iSam2heovn+LPTn7UTvJHrXn/f8 WZTofX8+SLQ40Yf+LPHnI3+W+vNxfj4JzrLgLK92tOrO8sJZlp9PgvNxfpb6 85E/S/z50J/FSj7w531/Fil5z593lbyj5G1/FiqZ7888JXOVzFEyW8ksJW/5 M1PJDCVvKnlDyTQlryuZquQ1Ja8qmaJkspJJSl5R8rKSCUpeUvKikheUjFfy nJJxSp5V8oySp5WMUfKUktFKRioZoWS4kmFKhioZrGSQkoFKBijpr6RFyRNK +ip5XMljSh5R0kdJbyW9lPRU8rCS7kq6KXlQyQNK7ldyn5J7ldyj5G4ldym5 Q8ntSm5TcquSW5TcrOQmJTcquUHJ9UquU3KtkmuUXK3kKiVXKrlCyeVKLlNy qZJLlFzsz0VK0jm4wJ/z/TlPybn+/EPJOUrO9ucsf87Mzxn5Od2f0/JzauGc Epw2j87KnFbX6rTW1qpiqirW6rzCWl2cr9Vl1dbqmmCtwqm6pbBW2VTdW2Ot etZYq37BWj3p1yqbqmHBWo32a5VN1TPBWo0vrFU6VZPqrlXFVFWs1YJ8qkpr VZyq9q5VralahQtVf7CWVRus9k7VonyqSmu1MF+redXWamYb1mpiYa3SqXo+ X6tsqsYW1iqbqiGFteoXrNWjwVplU9XDr9VDwVqFU3Vn3bUqTlXVtbooWKuq U1V/rU4vrNVptadqVQ1W/VvVqeU71fapOq/8YnVhMFWX5FN1ebWpqnqrqpiq uwpTle7UQ8GtqjRV6U49mk/VE8FUDfRTNbgwVaP8VI0pTNXzwVSFt6p2TdWc GlP1TjBVi/KpanWn6k9VZ1+pqt6qak1Vu9ZqUeFiVVqrBcHFqrhW6VRNr71W k4K1qnOxGlvjYjXET9WTwcWqtFaP+bWquFj18Berh2pcrO5s58Wq1lpdWH63 Oi8frHCtzipfqzNqr1X9qWrnYJ12mq65Ro880tk/jrYPfaDh0v+PsfPOiqK2 nt8E57fVzu/8+b0/m/qzWaTN/flDfv4YaYtIf/InjrRlpK392SbStpG2i7R9 pB0i7Rhpp0g7R9ol0q6Rdo+0R6Q9I+3lzz6R9o20f6QDIh0Y6S+RDo50SKTD Ih0e6a+Rjox0dKRjIx0X6fhIf490YqSTIyWRTo10eqQzI50V6ZxI50Y6P9KF kS6OdGmkyyJdEemqSFdHui7S9ZFuinRzpFsj3Rbpjkh3Rbon0n2RHoj0UKRu kXpE6hmpV6RHIj0aqW+kJyK1ROofaWCkQZGGRBoaaXikkZFGRXoq0phIT0d6 NtK4SM9HGh/pxUgvRXo50iuRJkWaHOnVSK9Fej3StEhvRJruz8xIb0WaFWl2 pLn+zIs0P9KCSAsjvR3pnUjvRnov0qJI7/vzQaTFkT70Z4k/H0VaGpyP/fnE n2XVzvL8qCFneXCWFc4n/nysaGlwPvJniaIP/Vms6ANF7/uzSNF7it5V9I4/ bytaqGiBovmK5imaq2i2oln+zFQ03Z83FE1T9Lqi1xS9qmiyPxMVvaxogqIX Fb2g6HlFzyl6VtEzisYqGqNotKKRioYrGqZoiKJBigYqGqCoRdETivoqekzR o4p6K+qlqIei7ooeUvSAovsV3avobkV3Krpd0a2KblZ0k6LrFV2n6GpFVym6 QtHlii5VdLGiCxVdoOg8Rf9QdLaiMxWdruhURacoOlnRSYr+rugERccp+pui YxQdrehIRX9VdLiiwxQdouhgRQcpOkDR/or2VbSPor0U/VnRnor2ULS7ol0V 7aIo3YKdFO2oaAdF2yvaTtG2irZRtLU/WyqKFf3Jny0U/dGfP/izuT+bKdo0 P79X9Dt/fls4v/GnzaOzMqfOYBWnqrhWxanaqu5a7VJtrfausVaH+rU6wq/V UYW1Osmv1Sl+rc7wa3W2X6vzytfq8nytrvFrdYNfq1v8WqVTdWekuyPdG+n+ fK26R3rYT1UfP1WP+bXq59dqgF+rwX6thvm1SqdqtJ+qsZGe8Wv1nF+rF/xa TfBrNdFP1RQ/VRVrNcOv1Sx/5tSYqlbX6qPytao1VcsbPlJtHKzSWn1cvlbt mqoF+VSV1uqtfK3ezNdqarBWk+quVTpVTykala/V0GCt+udr9bifqkf8WvX0 a9XNr1U6Vfcpusev1R3BWt3o1+pav1ZX+rW6zK/VRX6t0qk6V9E5is4K1irx a3WiX6vj/Vod66fqKD9VR/ipOtRP1V8UHejXar9qa7VbsFY7+pNN1XbBVG1V ba3+EKzVZoW1qjpYvwnOKlyrqlP1u/Jb1Wat3apKU5XtVDZVOwZTle7UbvlU /Tmfqn2DqTqoxq3qmEh/81N1Qj5V2a3qND9VpVvVeX6nLop0iZ+qdKeu9Leq iqkq3aru9reqdKoe9FPVo3yqHs+nKrtVPemnKrtVjWj/VE3Np+rNfKpKt6rS VC3Ip6rVnao/VZ1xpWr1VlVrqtq1VgvKL1Zz8rVKp2pGvlbTqq3VK36tXvJr Nd6v1Ti/Vk/nF6t0rUb4tUqnarCiJ/1apVPVz1+ssrXq4y9WD+cXqwfLL1Z3 +Km6xV+sbvQXq9JaZRerS/xalS5W5/ipOkPRaYW1qrhYZVNVcbEqrtUe+Vrt 4s9O+VrtkK9V6W6VrVVpqqquVatTVdysNu/OppvqwAN1xRWd/eNo+9AHGm6f ffS978natp7/Cs7ngvPf+fm8P1/w54tWX7L6spXLz1r+rG31FauvWn3N6utW 61ita7We1fpWG1h9y+rbVhtafcfqe/583+qHVj+2+onVxlY/s/q51S+sfmW1 idWvrSKr31r93mpTq82t/mj1J6strbax2s5qe6sdrXa22tVqd6s9rfa22tdq f6sDrP5idYjV4VZ/tTra6lir46yOtzrR6mSrU61OtzrL6hyrc63Ot7rQ6mKr y6yusLra6lqr661utLrZ6larO6zusrrX6n6rB626WfWw6mnV2+oRq8etnrBq sRpg9aTVIKshVsOsRliNsnrKaqzVM1bjrJ63Gm/1otUEq1esJllNtnrV6jWr 162mWb1pNd1qhtVMq7esZlnNsZprNc9qvtVCq7et3rF61+o9q0VW71t94M9i fz60WuLPR/4s9edjfz7xZ1n5WZ4fNeQsD86y4Hziz8f+LJX9yJ8l/nzoz2LZ D/x5X3aR7Huy78q+I/u27ELZBbLzZefJzpWdLTtL9i3ZGbLTZd+UfUP2ddnX ZF+VnSw7UfYV2QmyL8qOl31e9jnZZ2Wflh0jO1p2pOxw2aGyg2WflB0o21/2 CdnHZR+V7SPbU7aHbHfZh2Tvl71X9m7ZO2Vvk71F9kbZG2Svlb1a9krZy2Uv kb1I9nzZ82TPkT1L9nTZU2VPlj1R9gTZ42WPlT1a9kjZI2QPlT1Y9kDZA2T3 ld1b9s+ye8juJruL7E6yO8huJ7ut7NayW8r+SfaPspvLbir7O9nfyP5adhPZ X8n+Qvbnsj+V3Vj2J7I/lv2h7A9kv+fPd2Q3lP227LdkN5BdX3Y92XVl15H9 uuzXZL8q+xXZtf1ZS9bl58uyX5L9oj9fkP28P/8dnM/581/+tHl0VuZUHayq U1V1rYpT9Y3ytfpm+VqlU/WDfK02ytfqf2qs1WZWf7Dawiq22qqwVrtZ7WH1 Z79W+/mpOtCv1aF+rY70a/U3P1Un+LVK/Fqd4dfqH1bnWV1gdZHVpVaXW13p 1+o6qxusbrK6xep2qzut7vZr9YDVQ1bd/Vr1supj9ahfq35W/a0G+rUabDXU arjVSKvRVmOsnrZ61uo5v1YvWL1UWKupfq3eCNYqm6rZwVQtaG2tPszXqv5U LW/4SLU6WBVrFQ5Wu6Zqjl+rdKpm5muVTtW0fK2m5Gv1cnvWaoBsi1+rx2Qf ke3t1yqdqm6yD/q1ukf2Ltk7/Frd7Nfqer9WV8leIXuZX6sL/Vqd69fqTL9W p/i1+rufquP8Wh0l+1fZw2QPkT3IT9X+fq32kt1TdnfZXWV3lt1Rdnu/VtvI biUby24h+wfZzWR/L/tb2civ1f/K/rKwVj/ya/V9P1Xf9WuVTdU3g6n6RrW1 WitYqy8X1qpisMKpWlWDVTFVFbeqz5ffqto+VdlOZRerdKe+G9yqfpRP1U/z qfplMFW/sfpd4Va1tdW2fqp2sNrJahc/Vemtai+rffKpOsjfqg7zt6qjrI7J p+rvVif5qTrNT9XZfqrO91N1sZ+q9FZ1ldU1fqpu9FN1q5+q9FZ1j9V9fqq6 +al62E9Veqt6zKpv+6fq5XyqpuRTNc1P1XR/slvV7PxW1epOVUzVkvKp6owr Vau3qlpT1a61mlO4WE3PL1ZT87WalK/VS8FajZN9Rnas7FOyo2RHyA6THSI7 yK9VerHqJ9vXr1V6seol+3B+sXpA9j6/VunF6nZ/sbrJX6yuk73Gr1V6sbrU X6wu8Berf8ie7dfqNL9WJ+Vr9TfZY/xaHeHX6uB8rfaT3aewVhUXq2yqKi5W xbXaKF+rH5Sv1Yb5WmV3q9JalabqKzUuVl+qO1WfK2xWm3fni1/8ZyU44YTO /nG0fegDDbf11vrCF2RMW8+/BOdfg/Nv+fl3fz7lz38Y/afRp43+jz+fNfq/ /lij/zL6nNF/G33e6AtGXzL6spEzWsvoK0ZfNfqa0deN1jVaz2h9o28afdto Q6PvGn3f6AdGPzL6idFPjX5m9D9GvzT6X6NNjCKj3xr93mgzoy2MYqOtjLYx 2s5oB6OdjHYx2sPoz0Z7G+1rdIDRQUaHGB1mdKTR0UbHGh1n9Hejk4xOMTrd 6Cyjc4zONTrf6CKjS4wuN7rK6Fqj641uNLrZ6DajO4zuMbrP6EGjbkY9jHoa 9TF61KivUT+jAUZPGg02Gmo03Gik0WijsUbPGI0zet7oBaOXjF42mmg02eg1 o9eN3jCabjTD6C2jWUZzjOYazTdaYPSO0btG7xktMvrAaLHRh0ZLjJYafWz0 idEyo+VGWlPOcpllMp/IfCyzVOYjmSUyH8oslnlfZpHMezLvyCyQmS8zT2aO zCyZt2RmyLwp84bM6zKvyUyWmSTziswEmRdlxss8J/OszNMyY2RGyYyQGSYz ROZJmQEyLTJPyDwq00eml8zDMt1kHpS5X+ZemTtlbpe5ReYmmetlrpW5WuZK mUtlLpa5QOY8mXNkzpI5XeYUmZNk/i5zvMzfZI6WOVLmCJlDZf4ic6DMfjL7 yPxZZg+ZXWV2ltlRZnuZbWW2ltlS5k8yf5TZTOb3Mr+ViWQ2kfmVzC9kfi7z U5mfyPxI5gcy35P5rsyGMt+W+abMBjLryawr83WZr8l8VeYrMmvJOJkvy3xJ Jl2Kz8v8t8znZP5Lxvrzf2U+K/N//Pm0zH/K/Ic/n5L5d3/+LTj/6s+/+NPm 0VmZU3Wwqk5V1bUqTtUXy9dq7fK1Sqdqg3ytvpOv1Q+Dtfp5sFa/NvqN0e+M NjX6Q2GtdjTa2WhXv1Z7Ge1jtJ9fq7/4tTrCr9UxRn8zOt6v1cl+rc7wa/UP o/OMLjS62OgyoyuNrvZrdYPRTUa3Gt1udJfRvUb3+7XqbvSwUS+/Vo8ZPWHU 4tdqkNEQo2FGI4xGGY0xetroWaPnjMYbvWg0wegVo0lGrxpNLazVbL9W8/xa ve3XKpuq94Op+mgNXas6U/WBX6t0qt7N1yqdqrn5Ws3M12pasFYT667VcJmh MoP9WvWX6SfT169Vb5meMj38Wj0gc5/MPX6tbvNrdaNfq2tkrpK53K/VRX6t zvVrdaZfq8Sv1Qkyx8kc69fqrzKHyRwsc5DM/jL7yuzt12p3mV1kdpLZQWY7 mW1ktpKJZbaQ+YPMpjK/k/mNzK9l/lfmlzL/I/MzmY1lflxYq2/5tVrfr9U3 /FplU7V2MFVfrLZW/zdYq08X1qpisMKpWlWDVTFVFbeqfy+/VX0636lWpyrb qexile7UN/KpSnfqW/lUfS+fqh8HU/ULo18VblV/NPqT0ZZGWxtta7S9n6r0 VrW70Z5+qtJb1f7+VnWwv1X91egoP1XpreoEoxP9VJ3qp+psP1Xn+6m6xE9V equ6xug6P1U3+6m6w09Veqt6wOghP1Xpraq30SN+qtJbVX+jge2fqmn5VM3M p2qun6oFfqqyW9X7+a1qDd6p+mv1QfnF6u18rdKpmp2v1fR8raYGa/WyzEsy L8g8LzNO5hmZsTKjZUb6tUovVoNkBvq1Si9Wj8k84tcqvVh1l3nIr1V6sbrL X6xu9RerG2Su82uVXqwu8xerC/3F6h8yZ/u1OtWv1Yl+rdKL1TEyR/m1OtSv 1YF+rdKL1V4yexbWquJilU1VxcWquFbfyddqA79W6+Zr9bV8rbK7VWmtSlP1 X8HF6rPBxeo/607VvxY2qz3T853v6OCDO/vH0fahDzTcFlvos59tYB/IXsM+ 40+dPlD1ur1O3gc28C9jG+YvYz/wL2Ppa9jGPg7Uehn7g38ZK8aB3YM4sH9+ 3T7cv4wdXfe6fUF+3b4iv27fmL+Gla7b2WtYsQxkr2HhC9hT1V7AsixQegF7 0796VTSB7KJdvGWvqS9dbXxhK72qha3g7bwVzA1ez8Kr9xQfCoovZmPyF7Nh +YvZgPzenb2Yle7dD/p7990yd/h7983+3l16JUvv3ZcEr2RnyZzhE8HJwStZ mAjSV7IDfCLYO08Eu1VLBNmlO0wEFZfun8j8UOb75S9j38z7wDpBIlg7SAR1 +sBn/MleybpsHyiuVdVLd7hWXylfqw3yS3eWMr8XpMyN85RZWqtSHNg8v3SH a7Wz0W55ygzjwKF+rbKUWf/GfWneMbMbd7pWt/iOeafR3XkZyDpmr/y63be8 DJQi5phqETO9a08pj5gVa7XQr1WYL0sXbaaq9lRld/CwbFbcvrO1eitYq6l1 1+qpoGkOzu/d6Vo9njfNnsG9+z5/777D37tv9vfuUtC8zK9V/aB5VJ4IDilP BMVLd5YIskv35kEiqKiZGxXW6tv5pTvrA+tUq5n1+8BngqDZBftAKWJ+prU+ kE3V2sG7LuvkfWCDPA5UvOuyUTBVWcesuFVtUYgDOwdxYJ88DhwSxIHwLZfE T9WZfqqyt1wu9lN1Rf6WSxYxb/G3qjvziPlQEDHTW9XjecQcWHi/pY1TVXqz ZV4+Ve8ETaDibRZ2qsZafVx+sSqVzXSqFpa3grfKQ8GreSgoNs2n8kqQNc3S 2y+P+4tVr7wSZG+/3B0EzawShEEzvVidXzdoHuUvVqWguV+NRFBxscqmquJi VVyr7+Zrlb33sm6+VmHQXCtYq1p94DNB0GxYH1h/fR1wQGf/ONo+9IGG22or ff7zDewDWelutQ9UfX5gndaeH9io9vMD2aW76vMDu1Z7fiC8dJdezLJLd/H5 gfDFrPT8QPZiVvH8QHjvDp8fCCtBxfMDpcw9pfD8wKzyzL2wxvMDa3YrKJbu 4vMDCwtZoOL5gSnlmbviHbkwc4fPD4SZO3x+ILtuF58fqHrdPtXHgeLzA4dV e35gN/8aVvX5gezGXfX5gY1ae36g6o27/vMDWR9YLZ4faLUPVH1+YJ3Wnh/Y qPbzA5vVeH5glzwR7FVIBMXnB5I8EZwVPD+QPepU8fxA9qjT3YXnB7I35R4v PD8QXr3Dphk+6lR8fqBq1qx4foA35apNVcXzAwvzp51KWWBGtYhZZ61KZSB8 fuCx/GmniucH7sqfdgqfH7jCr1Xx+YEsZVY8P3B4IQ5kzw/sWvv5gc1qPz9Q fNqp4vmBddr//MBnVpPnB1rtA8XnB9Zp7fmBnwRTVfHGS5gyKxLBrtWeHyi9 8VLx/EA6Vae1VjNvyJ/KvNNPVfj8QK/8vZfHC88PtH2qptUOBcXnB9bsnaqz VsXnBxbmF6uqWaC0VtnTThXPD5Q65pDy5wdKHbPi+YHSuy4Vzw9UvOuSPT9w ml+r4vMDWcosPj+wa43nBzav+/zAT1p7fmCd9j8/8JlV8fzAhhvy/EAJfeD/ 2WEHfeUrDe8Drcbu8NIdfr7gG+WPEBSfhKuI3RVPEdRJBLUehjui/K25k4IX s6wSlB4kKFWC0rtzpdeze4LXsx7B83Dh1bv4QYOq4bv0kpa1gmn+oYLwqbg5 5cWg4hr+QbWbeOlFrmu+zi3PX6vqXK4XBffrt6tdsYtP6VY0gTBqjy1/C67W q1fFMwP3VCsDpbv2JXndzl7AzvAvYGHdPiao24f4OBA+ObD7in64YCP/DFxF 4K76DFx26Q5v3G15O67r94FwrVpNBGuXr9V6eSIoPvD042pB89flTxGEa7V9 +UcMqn4gKrx6lz4QdVr5u3MX5Y/uXlH4lMEd/rGnewrPEtS6fVdkzeLTuxVr 9YZfqxn5cwWluDk/mKp3W1urZV3+Sl6/AxSnakHhij2jxi07fFC3zlpVjZgV zwzcXfeTBRcXHnIKH9c9tvCQU/3HdcM4sHndDxdk1+2qb8etFzzqVOoD9eNA 8e24Lt4H2vK005fKHyH4ep4I1qv9tNOPayeC39f4iMFOhZqZ3qoO9LeqQ4PH M48tfzzzdD9V2XsvF+TvvZSCZvgpgzuDoBk+SxC+/dKuqZpUI2sWP8S5sA07 VTFVXXatlrdzrRaUX6wqPqw5LX9UoNQE6jyJWfVDUI8FH9nsHrzlcnf+hNNN 5U84ZWXgovyxgbPzjnlq/kjm8fljA1nHrPqpzd0Ka1VxscqmquJiVVyr0hsv YcoMP19Q8ahT/acyG9wHfvQjHXFEZ/842j70gYbbeWets05z9YGqD8OtX/u5 3fCVrC3vy+2QX7qzRFC8dIdvzZV696nteTEL790r8GJWtRJkTxSEr2elq3f4 ktaW23fpIwnZy1v4ClfxIre8E17tlgenFAFKL1fZK1b2QNuStl20V+zVq+oD A6UXsFav23flaXsFrtvFut2ubx5oy437B4VPFoSvYV+r8Y4cfaDaIwRtf+Ap +5RBnXt3uFbh07u7BYlgv+BbCIrvzp1U4925iwuPPd2Uf9zgjvI36NoVNCs+ IlWxVq+Vv1NXun2HoWBBa2u1JPhUQp2p6uw7dXGtwsFq11TNqRExS4/llt5/ C+/addaq/nX7nuCDvFU//nRRjYecTqz2kFP4zQNV34srPjnw+9ZSZts/zksf qNEHqn4aqv63pWxcN2VWJIIdgkRQfOOl6uOZ7a2Zt9f4ZFSf8k8ctHGqJgRv v0xp7e2XVneqYqrqdIPOuFJVvVXVmqp2rdWc8otVRcR8tfDdKLUeGGj7uy53 V/s+p/rvupwSPJIZPuRUTJlV40DxQ1DZVFVcrIprFX4Oat3an9psgj7wqU9p 44111FGd/eNo+9AHGm6XXfSNb9AHGtUHqn5X4Qq8kr1S/kpWcemu/yxBG1/M ql69lxVe21bhq1fxBayiDLTrxj0rv3FPz+PA64XHBsLPwrX6Glb6lq+q30lI H6APdKk+UOu7CttVM2s9SFBx766oma0mgvYGzS573Z5b/s1eM/K1er3GYwPh Q0511qoluHFX/U5C+gB9oOv0gVrfVdjeN15qPUhQ8czTnDbsVMVUVQTNzrhS tXqrqjVVK/auS+l7CEuf0az6xkutT2pWvPHSt/Z3EtIHGtAH/uM/9NOf0gdK 6AP/D32APkAfoA/QB+gD9AH6AH2APkAfoA/QB+gDTY8+0HD0AfoAfYA+QB+g D9AH6AP0AfoAfYA+QB+gDzQ9+kDD0QfoA/QB+gB9gD5AH6AP0AfoA/QB+gB9 gD7Q9OgDDUcfoA/QB+gD9AH6AH2APkAfoA/QB+gD9AH6QNOjDzQcfYA+QB+g D9AH6AP0AfoAfYA+QB+gD9AH6ANNjz7QcPQB+gB9gD5AH6AP0AfoA/QB+gB9 gD5AH6APND36QMPRB+gD9AH6AH2APkAfoA/QB+gD9AH6AH2APtD06AMNRx+g D9AH6AP0AfoAfYA+QB+gD9AH6AP0AfpA06MPNBx9gD5AH6AP0AfoA/QB+gB9 gD5AH6AP0AfoA02PPtBw9AH6AH2APkAfoA/QB+gD9AH6AH2APkAfoA80PfpA w9EH6AP0AfoAfYA+QB+gD9AH6AP0AfoAfYA+0PToAw1HH6AP0AfoA/QB+gB9 gD5AH6AP0AfoA/QB+kDTow80HH2APkAfoA/QB+gD9AH6AH2APkAfoA/QB+gD TY8+0HD0AfoAfYA+QB+gD9AH6AP0AfoAfYA+QB+gDzQ9+kDD0QfoA/QB+gB9 gD5AH6AP0AfoA/QB+gB9gD7Q9OgDDUcfoA/QB+gD9AH6AH2APkAfoA/QB+gD 9AH6QNOjDzQcfYA+QB+gD9AH6AP0AfoAfYA+QB+gD9AH6ANNjz7QcPQB+gB9 gD5AH6AP0AfoA/QB+gB9gD5AH6APND36QMPRB+gD9AH6AH2APkAfoA/QB+gD 9AH6AH2APtD06AMNRx+gD9AH6AP0AfoAfYA+QB+gD9AH6AP0AfpA06MPNBx9 gD5AH6AP0AfoA/QB+gB9gD5AH6AP0AfoA02PPtBw9AH6AH2APkAfoA/QB+gD 9AH6AH2APkAfoA80PfpAw9EH6AP0AfoAfYA+QB+gD9AH6AP0AfoAfYA+0PTo Aw1HH6AP0AfoA/QB+gB9gD5AH6AP0AfoA/QB+kDTow80HH2APkAfoA/QB+gD 9AH6AH2APkAfoA/QB+gDTY8+0HD0AfoAfYA+QB+gD9AH6AP0AfoAfYA+QB+g DzQ9+kDD0QfoA/QB+gB9gD5AH6AP0AfoA/QB+gB9gD7Q9OgDDUcfoA/QB+gD 9AH6AH2APkAfoA/QB+gD9AH6QNOjDzQcfYA+QB+gD9AH6AP0AfoAfYA+QB+g D9AH6ANNjz7QcPQB+gB9gD5AH6AP0AfoA/QB+gB9gD5AH6APND36QMPRB+gD 9AH6AH2APkAfoA/QB+gD9AH6AH2APtD06AMNRx+gD9AH6AP0AfoAfYA+QB+g D9AH6AP0AfpA06MPNBx9gD5AH6AP0AfoA/QB+gB9gD5AH6AP0AfoA02PPtBw 9AH6AH2APkAfoA/QB+gD9AH6AH2APkAfoA80PfpAw9EH6AP0AfoAfYA+QB+g D9AH6AP0AfoAfYA+0PToAw1HH6AP0AfoA/QB+gB9gD5AH6AP0AfoA/QB+kDT ow80HH2APkAfoA/QB+gD9AH6AH2APkAfoA/QB+gDTY8+0HD0AfoAfYA+QB+g D9AH6AP0AfoAfYA+QB+gDzQ9+kDD0QfoA/QB+gB9gD5AH6AP0AfoA/QB+gB9 gD7Q9OgDDUcfoA/QB+gD9AH6AH2APkAfoA/QB+gD9AH6QNOjDzQcfYA+QB+g D9AH6AP0AfoAfYA+QB+gD9AH6ANNjz7QcPQB+gB9gD5AH6AP0AfoA/QB+gB9 gD5AH6APND36QMPRB+gD9AH6AH2APkAfoA/QB+gD9AH6AH2APtD06AMNRx+g D9AH6AP0AfoAfYA+QB+gD9AH6AP0AfpA06MPNBx9gD5AH6AP0AfoA/QB+gB9 gD5AH6AP0AfoA02PPtBw9AH6AH2APkAfoA/QB+gD9AH6AH2APkAfoA80PfpA w9EH6AP0AfoAfYA+QB+gD9AH6AP0AfoAfYA+0PToAw1HH6AP0AfoA/QB+gB9 gD5AH6AP0AfoA/QB+kDTow80HH2APkAfoA/QB+gD9AH6AH2APkAfoA/QB+gD TY8+0HD0AfoAfYA+QB+gD9AH6AP0AfoAfYA+QB+gDzQ9+kDD0QfoA/QB+gB9 gD5AH6AP0AfoA/QB+gB9gD7Q9OgDDUcfoA/QB+gD9AH6AH2APkAfoA/QB+gD 9AH6QNOjDzQcfYA+QB+gD9AH6AP0AfoAfYA+QB+gD9AH6ANNjz7QcPQB+gB9 gD5AH6AP0AfoA/QB+gB9gD5AH6APND36QMPRB+gD9AH6AH2APkAfoA/QB+gD 9AH6AH2APtD06AMNRx+gD9AH6AP0AfoAfYA+QB+gD9AH6AP0AfpA06MPNBx9 gD5AH6AP0AfoA/QB+gB9gD5AH6AP0AfoA02PPtBw9AH6AH2APkAfoA/QB+gD 9AH6AH2APkAfoA80PfpAw9EH6AP0AfoAfYA+QB+gD9AH6AP0AfoAfYA+0PTo Aw1HH6AP0AfoA/QB+gB9gD5AH6AP0AfoA/QB+kDTow80HH2APkAfoA/QB+gD 9AH6AH2APkAfoA/QB+gDTY8+0HD0AfoAfYA+QB+gD9AH6AP0AfoAfYA+QB+g DzQ9+kDD0QfoA/QB+gB9gD5AH6AP0AfoA/QB+gB9gD7Q9OgDDUcfoA/QB+gD 9AH6AH2APkAfoA/QB+gD9AH6QNOjDzQcfYA+QB+gD9AH6AP0AfoAfYA+QB+g D9AH6ANNjz7QcPQB+gB9gD5AH6AP0AfoA/QB+gB9gD5AH6APND36QMPRB+gD 9AH6AH2APkAfoA/QB+gD9AH6AH2APtD06AMNRx+gD9AH6AP0AfoAfYA+QB+g D9AH6AP0AfpA06MPNBx9gD5AH6AP0AfoA/QB+gB9gD5AH6AP0AfoA02PPtBw 9AH6AH2APkAfoA/QB+gD9AH6AH2APkAfoA80PfpAw9EH6AP0AfoAfYA+QB+g D9AH6AP0AfoAfYA+0PToAw1HH6AP0AfoA/QB+gB9gD5AH6AP0AfoA/QB+kDT ow80HH2APkAfoA/QB+gD9AH6AH2APkAfoA/QB+gDTY8+0HD0AfoAfYA+QB+g D9AH6AP0AfoAfYA+QB+gDzQ9+kDD0QfoA/QB+gB9gD5AH6AP0AfoA/QB+gB9 gD7Q9OgDDUcfoA/QB+gD9AH6AH2APkAfoA/QB+gD9AH6QNOjDzQcfYA+QB+g D9AH6AP0AfoAfYA+QB+gD9AH6ANNjz7QcPQB+gB9gD5AH6AP0AfoA/QB+gB9 gD5AH6APND36QMPRB+gD9AH6AH2APkAfoA/QB+gD9AH6AH2APtD06AMNRx+g D9AH6AP0AfoAfYA+QB+gD9AH6AP0AfpA06MPNBx9gD5AH6AP0AfoA/QB+gB9 gD5AH6AP0AfoA02PPtBw9AH6AH2APkAfoA/QB+gD9AH6AH2APkAfoA80PfpA w9EH6AP0AfoAfYA+QB+gD9AH6AP0AfoAfYA+0PToAw1HH6AP0AfoA/QB+gB9 gD5AH6AP0AfoA/QB+kDTow80HH2APkAfoA/QB+gD9AH6AH2APkAfoA/QB+gD TY8+0HD0AfoAfYA+QB+gD9AH6AP0AfoAfYA+QB+gDzQ9+kDD0QfoA/QB+gB9 gD5AH6AP0AfoA/QB+gB9gD7Q9OgDDUcfoA/QB+gD9AH6AH2APkAfoA/QB+gD 9AH6QNOjDzQcfYA+QB+gD9AH6AP0AfoAfYA+QB+gD9AH6ANNjz7QcPQB+gB9 gD5AH6AP0AfoA/QB+gB9gD5AH6APND36QMPRB+gD9AH6AH2APkAfoA/QB+gD 9AH6AH2APtD06AMNRx+gD9AH6AP0AfoAfYA+QB+gD9AH6AP0AfpA06MPNBx9 gD5AH6AP0AfoA/QB+gB9gD5AH6AP0AfoA02PPtBw9AH6AH2APkAfoA/QB+gD 9AH6AH2APkAfoA80PfpAw9EH6AP0AfoAfYA+QB+gD9AH6AP0AfoAfYA+0PTo Aw1HH6AP0AfoA/QB+gB9gD5AH6AP0AfoA/QB+kDTow80HH2APkAfoA/QB+gD 9AH6AH2APkAfoA/QB+gDTY8+0HD0AfoAfYA+QB+gD9AH6AP0AfoAfYA+QB+g DzQ9+kDD0QfoA/QB+gB9gD5AH6AP0AfoA/QB+gB9gD7Q9OgDDUcfoA/QB+gD 9AH6AH2APkAfoA/QB+gD9AH6QNOjDzQcfYA+QB+gD9AH6AP0AfoAfYA+QB+g D9AH6ANNjz7QcPQB+gB9gD5AH6AP0AfoA/QB+gB9gD5AH6APND36QMPRB+gD 9AH6AH2APkAfoA/QB+gD9AH6AH2APtD06AMNRx+gD9AH6AP0AfoAfYA+QB+g D9AH6AP0AfpA06MPNNzOO2udddbcPpDeuPfxN+4D/Y370ODGXXwZS2/cZ/kb 93n5jfuy/MZ9jb9x35jfuO8MbtwPBTfuFXsZe9lftyf5OFD1Zax44+7Y6/Yq uXHXeVUrvZh1yCvZjPxlbJq/dFd9GXu+bS9jTwQvYz2Dl7H7gpexW/3L2A3+ Zezq4GXsIv8ydq5/GTszfxk7yb+MHZe/jB0ZvIyFl276wBrZB/bya7W/X6vs 0n1EcOk+3q/VyX6tiikzu3QXU2Z26b4nuHT3CC7d7U2ZFWtVTJlv5ZfutseB 4nW76lStwoWqNVh1KsEKJIK38kTwZl4zs7WanK/VhGCtxtVdq1LNfCyomd2D mnl3UDMrLt2lmllx6U78Wp3g16pUMw/Pa+YBvmbu7WsmfWAN6wPFjpm963JU /q7L8f5dl5Pzd13O8lN1np+qi4N3Xa7xU3Wjn6rbgndd7g/edem1Eu+6vFz+ rsvrhY5Zesul1Z2q+pZLaao6+0pVqxWsfNCcU36xmp6v1dQ8EWTvvbySv/dS Wqv6772UamafoGY+GNTMO/KaeYOvmVfnNfPSvGae62vmmXnNrHjvpVQzD/EX qwP8xWrvNbcPfOpT2nhjHXlkZ/842j70gYbbfnuttVYn94Ev1Lhufz2PA+v5 l7Fv5S9j38tfxn7s40D2MpZdtytexqrGgZ18HGjX23Gn54279HZceN0O347L XsPuDV7DHg5ewyrKQFseGyhetMO0Hd6yw5euivv1R0HILr1Wdd6FugNf8JYF 6aD+C1vpVa2iFVQNBRVX7+KL2eC8EvQLYnevIHbfH8Tutr+ShZfuVkv3CiSC 8NL9fZnvlr+MVVy6s0SwVpAIvrCm94FiHFi7fK3Wyy/dWcr8Tp4yS2v102Ct 6sSBbYI4sGv+jlwxZRbfkWv7jfv2oGM+EHTM8O248Lrd9ohZWquwCVRctOvU gIq16uwf/ztqrdo+VdkdPCybpVbwRo1QUP/qHT7z9HjwzFOP4Jmn8N7dxqBZ 54Gn8NKdPfBUvHTXTwRhzaxYq28WLt1Va2ZxrdakPhBO1VrBuy5fz991WS+P A8V3XUpT1cY4sH35wwP1H8ksdcxT2/yWy+3B85gPBM9j9q5RBtoyVRVZoKIJ VLzN0upOrUZT1a61erv8YlUqm+GTT1VDQZ0HCQYFb788Hrz90iN4++We/O2X 8IGnMGiGDzxlQbPtDzwVE0HFxSqbqoqLVXGtNszXKnzvpSJoumCtOq8PpOeH P9Thh3f2j6PtQx9ouC231Oc+19g+UPEaVjVzhzfur5Y37vUKb8cVr9vZy9gm hZex7Lq9dfl7cbsG78XtV37dLgbu8EHd0nW74o24m4LPFJSeGaj6Alara1d9 9Xotf06g6ktX8XUrfNH6ZDV5oVqZV7iKl7fSa9t7wR18Xu2XtCnlt+/S61nV UFD16l3xLMFtQSUIP2tQfGvu5PzefVz5vbv4FEFbYneWCKq+L1fxMla1dFf0 gYo35YqvZF28D7TxHbmwZtZ/R67ixv3zYK2qxoHijXuP/Ma9f/DkQPiQU+lD UMVndS8NrtsVZSB8ZqBqxHyy2rNNtQpm+JxAaa2yfJndsivCZcX9eg1eq+JU ZTfx0jX8nSAXzCk8BZWt1eS6axU+TlDr6l18liCsBFnTrPqxqNKju6W35iqe IsiC5u7VgmatRFDxwFPFWtV54Mm19ghBRdDssn2g1UcyK/pAnUcys6n6fo1H Mn9VIw4U33IpfV5zv/K3XCqecArfcgmfcAo/U5CVgVuDMhC+31IsmFUfw6w/ VaXnBErvtMwPwmV2qyqlAHaqxlp9WH6xKr0VE36ss+IpqNeCD3SGb8KEoaD0 OEHVd2DCZwnCSlDx2FMpaIYfiyo+oVkMmnsW1qriYpVNVcXFqrhWVR94CoNm RR8oTVXVoNngPvDtb+uggzr7x9H2oQ803BZb6LOfbWAfKDbuqq9kVd+OW6f8 4YGKt+NKD8DVeVa3+DK2S/6xgtKNO3xy4OjywH1KeeC+IAjc2cvYjcFTuncF b8SF3zYQPjNQ8RpWfGBgYvBZuOw1bGbhzbesDFS8gH1U/oZbZ7+KNM8ppfAw FJSu3m8XHiqYWf5KllWClwuPE7T6SlbxVFzp0l31A74Vl+5TgkQQxu7sKYLw 0d0sERSfIiheuoufMshewyo+ZVDsA+GTcG3pA5/uwn2gjU/sfrn2E7u13pEL H9ctrVX9S3f4tQP7BJfu8MmBUhwovR0XPuSUPTYQxoHw408VT+lWvXGHHbP4 Ltyk4C24N4Lr9pzguv12HjErsgBTVXuqstt3GApKTXNB4aGC8HneWmtVETSL zxJUfDiq4gHeUiLIHiSo+C6C0seiskRQ8RTB/uWX7rbUzOKnDCrWKnxut6IP FB/abfWBpy7YB9rykc1wqqp+ZLP0SGbFh6A2KnyyoNgxtyy867J78JDT/sGT A8UPa2Zf5nRm0DErvhvlhvxhzKxjFj+mGb7lMrDaWy5tmarSU03zgjLwXvmb LWSB1taq1jswpecKwndgwk8flJ4oKD5OUD9oVnw4qvTeyy150Cy+91LnCc2j yp8i2C+vmRVrVXGxyqaq4mJVXKuKB57WLfSB0mei2tIHPp2vVWP6wPrr64AD OvvH0fahDzTcttvqy19uYB+o9fmCOs8PtPr5gjof5614Eq74GFzx6772r/tx 3iR4DK74zYRXBbE7vHqHX6ATfkCu1tcOtPrhgtdbe1z37fLHdYvPwK3Wl/Hi a1XxYbjwud3ik3AVV+xXqt2yi+/F1fpob9Wv/iq9HVf6Mp1a31JY8XZc8ZNy dR4eiMtfw9ryFQTt+nxBeONeMz5fUP/5gVY/X1D8RG/VoNneb/yq+oneqt9M eEnw0G79L1EtfklK8bO8q+aJ3dV3rdoyVfU/EPVmez4Qla3VkNof7W31q7+u DL5Tteq3FFb9wpTSF6ru3bYvVP193a8gqFirtn++oGKtVvfPF9R5fqDVzxeE n9qs/+UDbfnK5/1qf6VTFjRrfTNhrW8eqPgG1bZ8Q0r9qSp9d2rxQYJ5hQ9B rXk71ca1avUDUW/W/kBUxUcMwi8iqPUNT8VvgL61/KnMK6t9S+GZecc8ubUv TNmr2sMD2xYuVsXPF/ys2lq19/MFYR9Y5Z8v+P73deihnf3jaPvQBxruoIP+ +cUUzrX1rBWctYPzlfx81Z+v5efrTus4fcOfdZ3W82d9pw2cvun0LadvO23o 9B2n7zp9z+n7Tj90+pHTj51+4rSxPz91+rnTL5x+6fS/Tr92ipx+4/Q7p02d NnP6g9MWTn9yip22ctrGaTunHZx2ctrFaTenPZz+7LS30z5O+zkd6PQXp0Oc DnU6wulIp2Oc/uZ0vNPfnU5ySpxOczrd6Sync5zOc7rA6UKni50uc7rC6Sqn a5yud7rR6WanW51ud7rT6R6n+5wecHrIqbvTw069nR5xetTpcad+Tv2dBjo9 6TTYaajTcKeRTqOdnnIa6/SM0zin551ecHrRaYLTK06TnKY4ver0mtNUp2lO bzhNd5rh9JbTLH9mO811muc032mB09tO7zi96/SeP4uc3nf6wGmx04f+LHH6 yJ+l/nzszyf+LKt2ludHDTnLg7OscD7x52O5pf585M8Sfz6UWyz3gdz7covk 3vPnXbl35N6WWyi3QG6+3Dy5OXKz5WbJvSU3Q2663Jty0+Smyr0m96rcZLlJ cq/ITZB7Ue4FufFyz8k9K/e03Bi50XKj5EbIDZMbIjdIbqBcf7l+cn3lHpN7 RK63XE+5HnIPyT0gd7/cvXJ3yd0hd6vcLXI3yl0vd63c1XJXyl0ud4ncRXIX yJ0nd47cWXKny50md4rcyXJ/lzte7m9yx8odJfdXucPkDpH7i9yBcvvL7Su3 t9xecnvK7S63q9zOcjvK7SC3ndw2clvJxXJbyP1RbnO5TeV+J/cbuUhuE7n/ lful3C/kfi73M7mN/fmJ3I/lfiT3Q7nvy31P7rty35HbUO7bct+S+6bcBnLr +7Oe3Lpy3/BnHbmvy30tP1/15yvBWduftfxp8+iszKk6WFWnqupaFaeqYq1+ UL5W6VT9LF+rX1Vbq82DtdrSaWunbZ22d9qx2lrt67S/X6uD/Vod5tfqqGCt TnQ62ekUv1Zn+LX6R75WFzld6nS5n6qrna71a3WT0y1Otznd4XS3071O9/u1 6ubUw6lnvlaPOfX1azXAr9UgpyFOw5xGOI3yazXG6WmnZ52ecxrv1+olp5cL a/W6X6s3/VrNzNcqnao5wVQtbG2tluRrVX+qljd8pNo4WKW1CgerXVM116/V rGCt0ql6I1+rV/O1mtjmtRos92S+Vk/IPS73qF+rXnIPy3XP1+o+uXv8Wt3u 1+pmv1bXyV0jd5Vfq8v8Wl3o1+pcv1Zn+rU6VS6RO8mv1XF+rY6WO1LucLlD 87U6QG4/uX38Wv1Zbg+53eR2kdvJr9X2ctvKbS23pdyf/Fr9QW4zud/L/baw Vv/j1+qnfqo28muVTdUPyqequFbrBWu1TmGtKgYrnKpVNVgVU1Vxq/pq+U6t k+9Uq1OV7VR2sUp3aqPgVvU/+VRtkk/Vb4Op+qOfqopbVTpVOzvt6rS7055O e/mpSm9VBzgd5KcqvVUd7m9VR/udOs7pBD9V6a3q1HyqzvZTdb6fqov9VJVu Vdc53eCn6lY/VXf6qcpuVQ/6qUpvVb2c+vipSm9VTzi1tH+qJham6g0/VTP8 VGW3qjn5rarVnaqYqo/Kp6ozrlSt3qpqTVW71mpu+cVqZr5W6VS9nq/VlHyt Xg7W6nm5cXLPyI2Ve8qv1Ui54XJD/VqlUzVArsWvVXax6uPXKr1YdZN70K9V erG621+sbvMXq5vkbvBrdbVfq/RidWl+sTrfr9XZfq1O82uVXqxOlDvBr9Wx fq3+6tcqnaqD5Q4qrFXFxSqbqoqLVXGtfpWv1c/K1+rH+Vpld6vSWpWmaoPg YrVucLGqdbdau/y0f7C+9jVtvrmSpLN/HG0f+kDDnXee9t1XcdzWs2WNs1V+ tvZnm/xsG2u7/Gwfawd/dvRnp1g7+7NLrN382T3WHrH2jPXnWHv5s48/+8ba P9YBsQ6MdVCsg/05NNZhsY7w58hYR8U6xp+/xTou1gmx/h7rpFhJrFNinRbr 9FhnxDor1tmx/hHrvFjnx7ow1sWxLol1WawrYl0V6+pY18a6LtYNsW6KdUus W2PdEevOWHfFuifWfbEeiPVQrG6xesTqGatXrD6xHo31WKy+sfrF6h9rQKwn Yw2KNSTWsFjDY42MNTrWU7HGxno61jOxxsV6Ltb4WC/EeinWhFgvx5oYa1Ks KbFejTU11uuxpsV6M9b0WDNizYz1VqxZsWbHmhNrnj/zYy2ItTDW27He8ec9 fxbFej/WB/4sjvWhP0v8+SjW0uB87M8nwVlWfpbnRw05y4OzLDifBOdjxUuD 85E/SxR/6M9ixR/4877iRYrf8+ddxe/487biBf7MVzxP8RzFs/15S/FMxTMU T1f8huJpil9XPFXxq4qnKJ6seJLiVxS/rPglxS8qHq/4ecXPKX5W8TOKxyp+ SvFoxSMVj1A8TPEQxYMVP6l4gOL+ivspfkLx44ofVdxHcW/FPRX3UNxd8UOK H1B8v+J7Fd+t+E7Fdyi+VfEtim9SfIPi6xVfp/hqxVcpvlLx5YovVXyJ4gsV X6D4PMX/UHyO4rMVn6n4DMWnKT5VcaL4ZMUnKf674hMUH6f4b4qPUXy04qMU /1XxEYoPU3yo4oMV/0XxQYoPVHyA4v0V76d4H3/28ufPivdUvIfi3RXv5s8u inf2ZyfFO+ZnB8XbK94uP9sq3iY/W/uzVXC2DE6bR2dlTp21qpiqqmtVnKpd y9dqj/K1Sqdqv8JaHRKs1V+DtTrWT9Xxfq1OLKzVmX6qzvFrlU7VBflaXerX 6kq/Vtf4qbrer9XNfq1u82uVTtXdse6NdX+sB/1adc/XqnesR/xapVP1RL5W A/1aDc7XakS+VmP8WqVT9ayfquf9Wr3o1yqdqlf8VE32a/VatbV6y5/Z/swN pmpBMFXvtrZWH5WvVa2pWt7wkWp1sCrW6uPytWr7VC0Mpqq0VrPytZre/rVK p+rpfK1G+bUanq/VoHytWvxa9Q3Wqle+Vt3ytbrPr9Vdfq1u92t1c75W6VRd 69cqnaorFF/mp+oiv1bn52uVTtVZfqpO92t1il+rdKpO9FN1vF+rY/1apVN1 pJ+qw6ut1f7+7Ounau8aU7VrtbXaoe5aVQzWloWzyteq4la1dY2danWq9ii/ WO0d3KpKU/WXfKoOC6Yq3amjq92qTvZTdaqfqjPyqUp36tz8VnVRcKu60t+q rslvVTf6qbo1mKp7/FQ94Kcqu1U97Keqj5+q0q2qxd+qBua3qqF+qtKdGrVC UzWtMFWlW9Xcareq+jvVlqlatVeqNt6qilPVrrVaWH6xmpuv1VvBWr2Zr9XU YK3SqZrop2qCX6sX/FqlUzUuv1iN8RerUfnFaqhfq3SqBuZr9YRfq3SqHskv Vg/7tUqn6sHgYnWXv1iV1urGfK2uydfq8mCtLvBrdW5hrSouVsfXuFhVrNWB +VrtV75We+VrVRqs0loVL1bbB1NV625VnKp2Dta22/7zX15w/fWd/eNo+9AH AAAAAAAAfQAAAAAAANAHAAAAAAAAfQAAAAAAANAHAAAAAAAAfQAAAAAAANAH AAAAAAAAfQAAAAAAANAHAAAAAAAAfQAAAAAAANAHAAAAAAAAfQAAAAAAANAH AAAAAAAAfQAAAAAAANAHAAAAAAAAfQAAAAAAANAHAAAAAAAAfQAAAAAAANAH AAAAAAAAfQAAAAAAANAHAAAAAAAAfQAAAAAAANAHAAAAAAAAfQAAAAAAANAH AAAAAAAAfQAAAAAAANAHAAAAAAAAfQAAAAAAANAHAAAAAAAAfQAAAAAAANAH AAAAAOD/a9cOTgCAQSAI9t+vkI8Pf+kgqGSGq2I5QB8AAAAA9AEAAABAHwAA AAD0AQAAAEAfAAAAAPQBAAAAQB8AAAAA9AEAAABAHwAAAAD0AQAAAEAfAAAA APQBAAAAQB8AAAAA9AEAAABAHwAAAAD0AQAAAEAfAAAAAPQBAAAAQB8AAAAA NvYBAAAA4B19AAAAANAHAAAAAH0AAAAAmNwHAAAAgI30AQAAAEAfAAAAAPQB AAAAQB8AAAAA9AEAAABAHwAAAAD0AQAAAEAfAAAAAPQBAAAAQB8AAAAA9AEA AABAHwAAAAD0AQAAAEAfAAAAAPQBAAAAQB8AAAAA9AEAAABAHwAAAAD0AQAA AEAfAAAAAPQBAAAA4PYBAAAA4Gdx0szMzMzMzMys+8UAAAAAAAAAAAAAAAAA AAAA9CtPbuJa "], {{0, 213.}, {688., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{344., Automatic}, ImageSizeRaw->{688., 213.}, PlotRange->{{0, 688.}, {0, 213.}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7937237904584665`*^9}, ImageSize->{579, 206}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, CellLabel->"Out[3]=", CellID->311359105] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", TaggingRules->{}, CellChangeTimes->{{3.783342156863064*^9, 3.7833421613115797`*^9}}, CellID->232113220], Cell[TextData[{ Cell[BoxData["GeneralizedSmoothStep"], "InlineFormula", FontFamily->"Source Sans Pro"], " is continuous from the left at ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["x", "TI"], "=", "0"}], TraditionalForm]], "InlineMath"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.85836177413416*^9, 3.858361774134227*^9}, 3.8583619981959877`*^9}, CellID->391587244], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", RowBox[{"0", ",", "5"}], "]"}], "[", "GeneralizedSmoothStep", "]"}], "[", RowBox[{"4", ",", "x"}], "]"}], ",", RowBox[{"x", "\[Rule]", "0"}], ",", RowBox[{"Direction", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->99896385], Cell[BoxData["15120"], "Output", TaggingRules->{}, CellChangeTimes->{3.793723811425719*^9}, CellLabel->"Out[1]=", CellID->622846840] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", RowBox[{"0", ",", "5"}], "]"}], "[", "GeneralizedSmoothStep", "]"}], "[", RowBox[{"4", ",", "x"}], "]"}], ",", RowBox[{"x", "\[Rule]", "0"}], ",", RowBox[{"Direction", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[2]:=", CellID->804368627], Cell[BoxData["0"], "Output", TaggingRules->{}, CellChangeTimes->{3.7937238115207047`*^9}, CellLabel->"Out[2]=", CellID->362228319] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", RowBox[{"0", ",", "5"}], "]"}], "[", "GeneralizedSmoothStep", "]"}], "[", RowBox[{"4", ",", "0"}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[3]:=", CellID->92319214], Cell[BoxData["0"], "Output", TaggingRules->{}, CellChangeTimes->{3.793723811598694*^9}, CellLabel->"Out[3]=", CellID->175417187] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107566], Cell[TextData[{ Cell[BoxData["GeneralizedSmoothStep"], "InlineFormula", FontFamily->"Source Sans Pro"], " is continuous from the right at ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["x", "TI"], "=", "1"}], TraditionalForm]], "InlineMath"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.858361780177219*^9, 3.8583617801772823`*^9}, 3.858362001860441*^9}, CellID->252476426], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", RowBox[{"0", ",", "5"}], "]"}], "[", "GeneralizedSmoothStep", "]"}], "[", RowBox[{"4", ",", "x"}], "]"}], ",", RowBox[{"x", "\[Rule]", "1"}], ",", RowBox[{"Direction", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[4]:=", CellID->606266413], Cell[BoxData["0"], "Output", TaggingRules->{}, CellChangeTimes->{3.7937238117729235`*^9}, CellLabel->"Out[4]=", CellID->595403036] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", RowBox[{"0", ",", "5"}], "]"}], "[", "GeneralizedSmoothStep", "]"}], "[", RowBox[{"4", ",", "x"}], "]"}], ",", RowBox[{"x", "\[Rule]", "1"}], ",", RowBox[{"Direction", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[5]:=", CellID->916587264], Cell[BoxData["15120"], "Output", TaggingRules->{}, CellChangeTimes->{3.7937238119708967`*^9}, CellLabel->"Out[5]=", CellID->863337590] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", RowBox[{"0", ",", "5"}], "]"}], "[", "GeneralizedSmoothStep", "]"}], "[", RowBox[{"4", ",", "1"}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[6]:=", CellID->755478698], Cell[BoxData["0"], "Output", TaggingRules->{}, CellChangeTimes->{3.7937238120638824`*^9}, CellLabel->"Out[6]=", CellID->676868852] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107567], Cell[TextData[{ Cell[BoxData[ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{"0", ",", StyleBox["x", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is equivalent to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Clip", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Clip", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{3.7937225924854383`*^9, 3.793722638250596*^9}, CellID->485123291], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{"0", ",", "x"}], "]"}], ",", RowBox[{"Clip", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{"3", "/", "2"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "4", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[7]:=", CellID->187875260], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[4], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF1H0wG3YYwPEMVZUtLe1JO1cy1Xkp5+Y9HYupjapu3tLVVaVDvcSamnNq Q0mVelm7XdLoYU2HNjRKOlYlVKZeZvNSTrxMyQuKNqH1riuy7a73PL+75z73 ff54/vx9EH4+8KwWgUBI+W/+N/SijVSjkUsIb59s0XvX0gr2megIv2kV9ln/ orbuYWyWmd6DQhE2u2OS58DAFpCKv4pulkG/4u942ps6Di28S5Zmto5Cu2fI LVmuI3h/OIdoIh6Ebt8boajdNgC9cnBtV3p6H/SNw8nRZ7K7oNOt2zuPW3RA 76vJUt4xb4HWGPs/4sY9hGborvuFXxVCV0Wdp35Ynge9vJcvkB/PhXbr6t5d uHwFutvOep7omQU9svDnZ5MN6dDVNsyPln0joYtVR7tru05Dj6ZJnNLfCYJ2 oDA/4bE8oBdiouq09BmNj8Rqg/pTprQnBRJjd7EvaEllmgdZnATpeRJL2XgU 6Nyik7ju+Q1I3LjN2CGNB1X2L4QHqEngCX8x5R47AyTx82sXR9lghyr0c6pj Juh8RRPXMZ0Fkpu9HiqO5YNq3oxAn8gF72knuNMGb4IcF7UdPYkPJsdFmcWR b4GlsVWZXTa/gOf6S2LWWCWgTkme/ZdLZaCDR2jH1psK0EeiWa3O/hUk0uX0 pPgm0Cbx52YutxWkCAaL2JxOsFO7ilO22QPKI3NibbP7wd9O55LLjkhB1WCF S9DyEHj0EmmjJ+lvkO11pDfcbgxUHG72etwgAwNGKo2qixWgqYnCIGdFCRIu ujC8XSfB3pik2t0FU+AX3DaPtLlnoHLYidJtOwN+XX5N1zJ3Flz+SZ8W2/Mc pIp5972JKpDJ0rNyiFSDIjf+krZgDtxjP8W8UIkmW1hPvLiPehrW9fU3okMz PVW3+tENzmb0x5uoz/PQsYTgebBKVho0HYIaSmf/CmGgT5sTGzyYKOv6DwWk DPQ6rclfWIkqecbtSq2XYDVZ2L++HU0tdJXtfA81uklfcyejvrd/tCo6hNbU aF8LDEbTHTlFsSGoXx2lPCMMnW5w/706BjVuubCon4ZefqI60XoHDQj4PmJU iJoM6MUviND6oYO5pmJUPc5oTOlFGxjzf3AG0GxlqvTuCEp5Vjg3PIHORVn+ Mz+DimfrdHXnULp6wNRxDTVjhdsc20Df/vq0fUYKg62tlzRZvaTUTfsV7Ntf 61p1bsPmpPCc5PrYjM0Dnqs7sV8TPj1l/j42VycsMdAc238hN986EZske1Cq 1YZNSGMHU79dgH5TESaaMFyEPlckumr4GLv+UI6eAWsJ+l3fBJtLpGXoYdu+ ge+asCv5NPOpsBXokyJng/1b2ClZJewx4Sp0xez+YpLfGjTl8h6f7QLsG6bE FY0G+19lllX0 "]]}, Annotation[#, "Charting`Private`Tag$34051#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1], Opacity[ 1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBmIQHVOnc+X///v7GaDg3id3gc9fEfyE9GSfZ68R/NSA WUfOXEfw85Q4ts5cj+A3Hns81TgewV/GNzs8fd89OP/DPM7b52ruwvmrVopf aT58C863bbivkWdxA2H+9Q5uuV1X4fyjEskPNrNehvO/qn4XqK+/AOdPt6pI T2g7DefXax094at+DM6X3NT6cKnKQTj/v3TA3snZ2+H8eLYfPkm9q+D8tWn5 lmrLu+D8LxLzlt337YTzbU6fEZ75pR3OP6Ov9Y7bqRXOv/HxpOvjnfVw/jqd LMMvXilw/uzXnmc2n46F82/V7jetZwyG8y1Z9Zc/eOoC5wMAAmt9TQ== "]], LineBox[CompressedData[" 1:eJxFxW0wEwAYAOCdSbJLlzr74Y71daY4dyyscnPsInXlay53apckm5JzblxR lvLZqdtwR0w+QmMjOrVxk9Ry1dTOjMRswrBNF4oTqX70vj+ee/bEXYu4ZEUg EEL/+jd9i2ejfprJ+D+Vzt0f6XoWZhX2UHXjCbBPr3XaauAVmLRez96mSYFN XvPifXQeHB0mp7Tws2F7UVHH4igfVppij9NpObBP3maScuYuTFYwn+tPFsHm UmODHUkItxBT/RlDVbDA1+zJ4ongjKSEvUnkariWI8l57/4IvqquSVxJroGt awq9zizVwd4Bscrfv5rgkJ7Nn9LcpzCJNcHipXTD7mmVCqGwD6Y0DFXwBf1w P1EiqNtQwRPx+RyPXDX87FwBuS5IA5uGmnwjl7Xwidv26yreZ5jPDBqI8xyD 9UcUzFcyHRw+0uwofaiHXZz1O/N/GGDCTV92sN9XeCCR17GrbAo+LXwdkGWZ hg3DhykfPIzwhcZiG2rBLLz8wI7BUc3BdHlpWzDJBHOTbd28481w6zHRErHB Au/2muKmN+MZrgcn59vwQIfOT+ouXGtUSarV+Lpg4/LRDTxkLnYsNWoBluhq I2dicAfN7LsYNv5FkSYL4OLJJffK7LPxEkZ3mLgZN5Q6vTFYfYOlZLF6dSue We6n27Edd6xirfiT8dD6+24Vh/D2dmJxRBR+iyao4MTgpzopjdnn8RmZ/0tp Iu7Um75ol4Xf+WiK7nuMh4dfvzgqxp0HbVO+t+IvtAcKXOS4eZzddWMAl7EX 3goG8VxDpubJCE6ZLrcMT+KWBOraghGXz3ba2FhwlnnQhbaCM2jaPOUa/gd6 Q2nq "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQ/fCpyJ45TB/sGcDgg/2k6qmm97kQ/Pi/yk7f+BH8 nwyO0SpSCP5klriSIBUEP+BjZ7dWCYLPd2/rIqYjCD5DbWOIZeFHOP/3irj1 j4Q+wfm5s9b3Ch1C8Hdod3AI5n2G83m8inSa+L7A+dd1L1yu3IPgr55nr/Ik 7iucH7HeTFD2H4Jf3bqw8c6qb3D+iheys/l8vsP5Ci0iHuzLEPzp8txf//9H 8AG5dGJj "]]}, Annotation[#, "Charting`Private`Tag$34051#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \ {}, {}, {}, {}}}, {}}, 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]], 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->NCache[{{ Rational[-1, 2], Rational[3, 2]}, {0., 1.}}, {{-0.5, 1.5}, {0., 1.}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.793723816859826*^9}, CellLabel->"Out[7]=", CellID->202195959] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107568], Cell[TextData[{ Cell[BoxData[ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{"1", ",", StyleBox["x", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is equivalent to the resource function ", ButtonBox["SmoothStep", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ SmoothStep/"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ SmoothStep/"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{ 3.7937226430014915`*^9, 3.7937226914650073`*^9, {3.85836183522921*^9, 3.858361846786213*^9}}, CellID->475775477], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{"1", ",", "x"}], "]"}], ",", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{"3", "/", "2"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "4", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[8]:=", CellID->876079037], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[4], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF13k0VuseB3CERNJ06ISSscTtRooMX1HpUBIplaHSIEqdcqRMqQgZOiQh uoZkiMxTiZIpQ0Q45iHj+777SWaFu+9ad72etfb6rc9ez3rWs3+/7z9709mr xue5ODg4vtHP/6q5m0LjwkJXEcf/V+cPvZVjE4s+fdH64ABj0eeNwj9WNy/a XpIvO+z1oj3K+kKUrRYdvyLi+MV3nWx/j1rWVuvSwXZSokjjvZJWtjXvdG22 V21ZPL/ZW2BDwVe2S9dZd2fyNLA9ITO10t29ju3Q3U4XT3tVse0uX1pxSK6M 7d8zPHteSL9ne0HUqDDYLpdtK97pg2f9k9hOuXBVTfalL9vj66Liuw75sK1R Vb0mbPwB29Xb5CkBHU+2W0Yr9/Xlu7OdqmC7fVz/HNsRjD+qM6ss2G51LVJx 5zRhW1nCVivEXpvtUZsLOVz8Vm8Cjq7fFaprr/X5SZGoZoE++I4Xvvvyplhr s5qttImcGWzq/OV7j7RpOZjc7ihxOoOsLumO9mCmlqlv0ebOjgsYeu7j/N1x Wmvne26HaZ3L4FuS+/iPFC4I/IqzWtZ4DcuMVztN3OKHc6ie5xOvG6Civq26 V7cKDKWRJCk1R2RIDQ5zrRKBea1fXRrDCRVTy85iXgzVl7ZNakY5o1pRqnq+ ahM0eL6IVhm5obZc35TzqgyOGRVIvPK4Awlbp7ZlNluwIuph5o9WD8xlJbBm cxRRxjDfr7bjHgylL/u3KW6Hm9q//nH3v4/IXs5bK5OVsfPBgl3ZgCe8+td4 CJrsBNVYN79c+wHkXCVYJTJqiJeM+dskzBvhMy+4ZaQ0IPJub263wUPkXeOX bzLcgzoBYX25F37wcnT1PymoC+8Tg+1X5v0xGZD4VbhnL1xm93q4mj3CZOiW 2N8rDoAZMhjPLxAMnpwWwcJKI1RoGH1PyQ2GVtZI2c25I4jry1M7cu4xuNpN OdPVTWC+3bc6tDAEOtPZex41m6K6WuGH9LWncHm8qj/c7xQSboSoV4iFoVbo TGTvGgvcXz9/364yDH1HeS88fGEJDZvPIhmSEdDYP5Q7PXYar5Zc18TXSMx/ ZygcdTiHoF3MbaaOUai9l/ls75HzcLK7IGkn8hy/ip7ypChdQMyllHtVCv+B bNlceReXDa7UR9tM2UfDi2dOObbFDtzRvkqHx2IRJvL44haF65gqKN/aqhuH 49kauUvfXcdII7fM+cdxkDWYEhQ2voE6PncRZ5UXqJfTbSi644Bn1278ir8Z j31SEZ+Vph2hrG1eNv8zAdyrnSSJoQtkT4YV+RxMxK4CESWHJa5Y59CUtzYy Ee2uB03EC1wx/9IoWV4rCZYSwjUtiu74JLTv0bE7yRBI0Gu5KuKBs12KJ1O5 U9EbJ9mvY3AfB4oWJlO90mH7SGjU2fkhnms6rz2WkY6AhjVzOZx+mHwzuX2u Ix322W6UjI8f4vJYlw1UMvDYelN4ZIQ/ODLaegf7MsCoriweqA1EflxurcSe LBhPPWravSsI8r5X44N+5kBB6pvXOr1QePAxStTkclHwnzNm889C0eJ1oafb OBfX4ifdHMdC4XXPQmxbUi5s6zObxWKeotfFIKjKLA+HjgcJqvOGI/yqnBt3 Tj6Op0Wqew8/g4Bpl6njtbfI47wSbOEfDbM3LuuPRLyF4RZ/K73iaMRvWt+1 tewtNOy8uR3GoqFNHbXpES1E2POy8yEnY+Dw4NPtg+WFGHKwtJzYGovO/Ozn khuKYCjbQ1a2xeGEUJnDYH8xdPQsGpiXEqDg8OxdcHAJ9tZ8+DS+KQ3jZoKO gS9LcPjfD1NX70nDW003xYdvSjD7J889/dNpMFh6+tndvhIMJBz6vPR5GmzD pW7/qfwReNiVkiuejsTiJJXDDR8xZhx1oHdjBmQF81/xrymDluP2Tat2ZUEi /mu4R1AFIg1mS/an5qFiSUpQ7FwNbIsfGWZXvkfXOe9Lil71uDVm+6HPuxxZ Fj4isbqNWL/i9kYOq1owvibsMhlvwmHlR9qcVV/wx90Vv2oc/8HdVwtOoqZN 8NirW3t2WzuGBotauA1b0b373d4P+Z34lJwY3S/ciSMtycKpEd1Y6E00sxnu xsYN3au8J3qQp9AZ68PsBYfbLis91T7MftbXKSj5hlobx8w1T75BnbQv7U0b gGHwR21XVj/eZAk6irgMoadZRaJacRB1eaXG2QIjOPMygHezzxDamiN9yp8w MP6IH5dqhkHVTakrdjARVliXd/rLMN74vlBs6GFCa+SJklnzMKT1nQ44DjDh rSslq9czjLSo2rFMwoTYpLqgzMQw+DkFZpZzsbDv1JW2brERfCyUcdkhy8IT mbqbZpdHEJX68/jhyyyoFYSk6QkwoLqFmrcmLPB73rRMXslAB8v0WeQYC62H TywXEmagQDPor4YpFlz6xWyaJBjQXqnUqMxBoXhl3MbzOxmwd0pfUb6Swv6L GQF3zzDwdm15h8p2CsZrP18uzGVg1klAcPNVClJdaes3FTKgNSob2n+dwnhi UMX9DwxUu1pLPnekEIJj0gdrGBg+N7yD141Ci21HW2svA6usq4Tj/ChYvmfo Twsy8aRzQUk8kYKtPd8W5XNMaNQOTUx1UogtVbq8+xITB5kJPbM9FNrFLF7v sWdCGXMbZ79RMKxKVzFyYkK76XIAa4SC0uZTOlf8mDBZnsaXMEnhZ0/KqZdZ TISm8cnYChL4mZoEiPKwQIWvCVynSlD6yrVekp+FtnMnR2J2E8wvSVgrL8SC +cwDmy2aBNcyfoWr/s7C18bocnkdAlOh+JemiizEPl03OG9AsKFyujjQlIVq u6MWDEuC1xpRY0viWfjIKZz/yYNgrdI325vJLIh9kbnIdZ/ASU6+dySNBXnB JGMVLwKd1Tl19W9YGBF1avXzJWgarEl5Xs+CzlIeJ65ggl9BcxfV51joupq9 hzeW4Iy3blcqFwXyx/6+73EEZa4+xyT5KER9Z8Y2xRME2vy2b9kaCgd+9d0O TiKQ1FKUbN5MQdXJRP9LOsGBYfP260cpMM0Fys4WEaR0xpgMnKDAa6X813wx werGoU8nrCjEBK6WCflA0PbOIV/blkJbo6V7ZimB/WO/JyvuUAg/uWw4s4qg weeL4F1PCsIapTZyNQSq7us8J3zp8+b4WkNqCTht4260h9C5+uuRj3U9wWO8 NUpKptCTcmvwfRPBzA6uCvF0OleThu+WtxBYyh/A3zkUFD673DT+h0Dut0ZF p/cUAnz1fWrbCApGGPz7mymYB3tPeHcT9ISIlvZwEaTqndXjGaarSFL99FL6 XlkKoizaLmGqnUL03K0FkyzrRgiEI02nNEUIvnEE/suHSaAfF7glfCtB1Z9v y0oIgYjshp3p/yZoL2hhen2n9718pVOhQuBG9B33jdI1ufLUJAgCIrhSsn4Q ZGQsCTA+SmDsfsvt1ASB+46g8EsnCBxfLATP0D6YI/HyDp0L41w3juBJgoF8 zeJUGwKtDWotuVMEmerV1aVXCE4pW2jrThPcKTz5T/t1Au0sg5lK2qLvb/7g dyVwvXXieOUMwZAO78KmuwStrmdm9swS5Hx8LKD2gOA3e56BbNpGFenSF/8m 2B7042ngTwJxfe3tbk8I1ntJm0/QHqmq1QyJIBjvL7E+9ovg/mfGsZIXBHcv ie3mnyM4cuS2dSudmz2H3vFY0N7QwHdt9DUBl/hzoWTajKOhLnzZBBWqysfG aec1yfhsLCAI4yDNqvMEnmZZITvpXDk27g92om3cqhNz6COB3drXXpm0N5rX p56rJPhL4lnaMG1mh9UbZzonz8zuCokuEORbUeVBDXTfxZqi9Wh79bg0JtK5 MKkRuHCVtom1QE9xB/0dlaEng2hL9IexmnsJsq5Trmm0WRc2z1KDdA7k7tdW 0i4YyuHlZRH0HajR76TtbbtvjTg9N+OdWqMs2qbMho076DlwGxkUT9OWtD+r YED35deETc487f//hWCH9cX4BdqdeUUxGku+s9+XzvBuqeBZdJBziEoX/6Kt 5qR0JoUWPcOx55T0+kUHc1s6GEsv2mjU56G8w6JXdGbHcH1cNIerx1G1P0fZ /plg+bp39Q+2r4S/9l/9YdF5W735VtmPsb1c/7rC3RXjbDcr1jXcervo5ChI f7OcYNvs9c5V4vOLdvaM9mhPmmQ7YUg8YsXBKbYl7q89sDR+0aEbBSYWFhb9 X/+GriI= "]]}, Annotation[#, "Charting`Private`Tag$34215#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1], Opacity[ 1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBmIQHVOnc+X///v7GaDg3id3gc9fEfyE9GSfZ68R/NSA WUfOXEfw85Q4ts5cj+A3Hns81TgewV/GNzs8fd89OP/DPM7b52ruwvmrVopf aT58C863bbivkWdxA2H+9Q5uuV1X4fyjEskPNrNehvO/qn4XqK+/AOdPt6pI T2g7DefXax094at+DM6X3NT6cKnKQTj/v3TA3snZ2+H8eLYfPkm9q+D8tWn5 lmrLu+D8LxLzlt337YTzbU6fEZ75pR3OP6Ov9Y7bqRXOv/HxpOvjnfVw/jqd LMMvXilw/uzXnmc2n46F82/V7jetZwyG8y1Z9Zc/eOoC5wMAAmt9TQ== "]], LineBox[CompressedData[" 1:eJwV0nk0lukfBnCERNI2NFG2EDFNpMhyCaWhkWwjWVpUttKUeXvLUkqihLEk sozIGtm3UkpZskSE7JTwLs9dWVP0e35/POc6n3Ofc9/n+X4v2WNelif4eHh4 iujv/6ktsDVjaNQYVKxB7wVGsf5mbfdNVkp2cGu9rTJysFff2+pSfw3zKIoG N/X3RXH0bW4+2zzQfxITySE+nxlz+jue83vPGXpCaElZ9B+5fBD5kea8rOMs hCxXM6cvCsMn1uT6naDzIEkfV11rXQW2OitbXpuBIvmxCb5VEnBoCW3NZzNR P7vsGBal0OS2dUYvyQfNavJNi42y0BV4K9lo4Y/mOlMbXi8F2FpUyjwMuAIZ d2bvMldlrEi6VfS1JwALxZnc+VI11LId9mpvvwbzTZ63e9W2wV/7t/eXbwci aYT34socDey48dOj9tN1BI2uCRC12gGqo3VxucENKPnJcGsUtJEud/9fq7hg xH17wK8grwuJp8ZlQ2a3UH5WWKXTfDdaRcRNlR6EIojhd9te1AjBh8b6Ti/e xkxY1jvxYWP4zhsH+NlFYDZWOfXX+n3gxIylC4tEQaC0W7SqwQL1uhafc8ui oF/Mqr2wcBBpH8q1D7pEg7fPhrdAxwoO2242xVbFwHCuZHdElw2amlS/bjp7 Fz7Rq0bjQw8j83yMTr1UHFrEjiaOrHFE4PrFQI+GOHywFjx564ETdF3fSBTK 3YPO3vGyuckjeLjknB7eJWLxM1vV2tsFkTs5W20YSWi5VpRgfPAEmB4n5Twk krHw7K5ArvpJ3HfLvdao+h+UahfqBvlccbotxXX2TAqCBBY0Urs9wJ9yU/3A ZCriJaJPKauew2xl3ZYeozTYleiWLX16DqwOfoUT0WlQNJsVFbc8j1ahyxI+ mg/QpmTU/uyKNxLOnv+RfiEde+TvvVGfY0DDwKF28Xsm+Fcz5Yi5LxTt456F 7M+CVqWEuvcSP6zz7ixfm5iFPr/9Vhsq/bCYYZGjop8NZxnx5m61y3gttifC 9koOlmeadHtJBODYoJp9Hn8ehtPkRg3NArHv2c+ZvKACuEeIffHxuYVkPZ+1 toUFCGtfs1DKG4qZxzPbFvoLcLrEn1IICUVaOdfTTLMQMcdl4xPv3QZPYe/I 2IdCsJoaqj+1hKMiraxFZncxLGcjOnftjITKTa/0yO+l+E3+Y9A6k1gECLFr tJXKUPnfUbvFhFh0B50cHrIsw9n0GX/GZCyCrjlKbc0ug3tbUZfU/bsY8TWL bLQrh/lfkaI6gvGI91Ly5y+tgF1+ok7wRAJEbAZtGGefoJz3dJTj7RTYPfZd f/DeE5gr33Y2qU5Buuz6wS21T6DnEczvPZkCA8radViyCnHJtSdi7O/D+8br S/vrqjDu7eQ0vSUVAxUlyXIbn+GA4jBZ2ZuGQ2K13mOj1TA0cWznuGVC1Tvh aVRUDYybX7yeks3HlJ0oIzyjBha/38pbvTsfT/T81W49rsH83wLXTI/kw2zp kYSrH2rwKfPPN0uT8+EeL3/pb42XMLg1mFu2oQBZ1dmaB9pfYsoyad+IdCEU RSseCq+phT5jm+yqncWQSX8XHxBZjySz+Zq9eeWoX5IbmbrQDI/qCPOShucY dAl2UwtqA3PS/cWH4DoUO4ZIpBp1YP2KS9I8zi1gv8vcaTXViQMaEQa8jW/x x9UVP5oZ73H14U+mpE0nAoyNWo5t7cP42LNufvMeDO16avyiYgANOVkpo+ID ONidI553bwg/R7LsXCeGIL1xaFXw9DDKVQdSQzgj4PHf6Wyi9QHzb0wNK2s+ osWVUbTmzkfsIn1LR/I/wTzqpYEfdxSVxaIMCd9xDHdpyjSpjaGt/JVliQgL RzPCBDeHjKOvKzGk7g4bUxHCcGueANU6q6PWz0FcVWv5kbcTqLz5QK19mAN9 1h11u64JbDJl7mN84iDYSF7RZHgC+Uktk0WEA6kZHVGF6QkI84p8W87HxZ7D p3uHpFh4UaXgu12RizsKrRfsPFlIyvv+1wFPLrQrY/JNRNjQUqYWjxMuhK9f cMpZycYQ1yYhcZKLngOHlouJs1GuF/lP+ywXvqNSrp0ybBiuVO/Q4KFQvTJN +sQONjyZBSvqVlLYe6ow7OpRNirX1vVrbqNgufaNZ1UZG3NMEdHNXhTkB/PX y1axYfBFMXb0HIWprMj6wBdsNPkdl0tmUIiB7ab9zWywXCa2C/pT6Hbv7+0Z YWP18UbxtFAKTs/ZpnOiHEQP/FTfkEXB/YyQsoYLB7ot49OzAxRSX6l77nLj YD8nc3h+mEKflOOj3Wc4UMeC9PxHCuaNBZoWTA4MOj3DuCwK6psPG54O5cBy eb5Q5gyF78O5hzOKObibL6TgLkoQamMVJinABSt+Tfg6LYJXD/3a5IS56HOx Z93fRbC4JHOtihgX9t9uuCrrEZwt/BGv9SsXnR0pdSqGBDZi6Rk2alz8d3fd 2KIZwcaGuepwGy5ee1g7sp0IHukmTS5J5+Ilr3jF6wCCteof3S/kcLHxrcIp vkACppLKCCufCxXRbEvNIALD1aWtbY+54Egye0JvEnSONecmt3FhsFSAyRdF 8CNy4ZTOAhcDXiW7BVMJjgYbDebxUaD+2PvhcxpBrV+IrZwQhaTPnNTOdIJw 11/2LFtDwfTHh0tR2QRy+mpyXZspaDGtTN8WEOybcOg7Z02B5SBSe+wZQe7A fatPhygIOmv8s1hNsLpj/PUhZwr3w1crxLwg6H3qXWHgTs+9w+ly0SuCM9Gh d1ZcoRBvv2yiqJGgPeSt6NXrFNbpvnJVaibQurzu+vRN+r4FoZ6YFgJe97Tz fTF0r/6JCDneRhCNJxbZORSGci+OPe8k+Ladr35DAQWLGfOny7sJnFT24d9S CqpvfC9YvidQ+qVDjfmcQthN05CWXoJKFlt4bxcF+6jg6eAhguEYyVfDfAR5 JsdMBCbolMhum1tK0FqsKsml7RunNSBG791FNNuplUUgnmgzqydBMMIT/lsI h8A0LVw5fgtB099PamsIgYTixh0FvxP0VXZzgj4TfMx4aFivSeBPTBl7vtCZ 03B4BgRh9/hyi78SFBYuCbO0JrC8fNH/8DTB5e2R8W6HCBgPfkZ9o72/VCbj Ct0L6zJ/nqgZgk8VetV5rgQGG7W7y2YJinSaml6dJnDQcDQwmiO4UmX/vu8c gXGx2bcG2pLPL3wV9qPfvXjor4ZvBOOGgj9lrxJ0+x39tnueoPRltIj2Dbpn ZwQ+ldC2qC/YdOpfgt8jv94N/06wwdRgm/8dgvVBmxymabMaW/Ri7hFMjdYc t/1BEPiGbVvzgE43qV3CCwQHD1463kP3xvDPpwKOtDe2C5398oiAb0OyWA5t tnWsr1AJQb2Whu0U7fJOhRDpSoJ4HtKltUhw3a44ZgfdK0bH3igmbcsew/t/ viTwXPsoqIi2tENbnksDfS6TkD9Bm9Pv/NiH7kmC3VUxyZ8EFc5UXWQ7PXep zhQT2kHDvh1ZdC+sm0VOetG2Oi4yXN1P/0dDrH0kbZnROG7XCL2Hc5RfPm3u yc3z1BjBQ6XAlgbaleOlgoJcgqF9zaYDtIPd96zZQO/Ncof+Fy5tG0679HZ6 D4IWZtVztLG980YtPcc7/Nv+XqD9P8vQwD8= "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQ/fCpyJ45TB/sGcDgg/2k6qmm97kQ/Pi/yk7f+BH8 nwyO0SpSCP5klriSIBUEP+BjZ7dWCYLPd2/rIqYjCD5DbWOIZeFHOP/3irj1 j4Q+wfm5s9b3Ch1C8Hdod3AI5n2G83m8inSa+L7A+dd1L1yu3IPgr55nr/Ik 7iucH7HeTFD2H4Jf3bqw8c6qb3D+iheys/l8vsP5Ci0iHuzLEPzp8txf//9H 8AG5dGJj "]]}, Annotation[#, "Charting`Private`Tag$34215#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \ {}, {}, {}, {}}}, {}}, 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]], 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->NCache[{{ Rational[-1, 2], Rational[3, 2]}, {0., 1.}}, {{-0.5, 1.5}, {0., 1.}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.793723821015134*^9}, CellLabel->"Out[8]=", CellID->821960493] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107569], Cell[TextData[{ Cell[BoxData[ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{"2", ",", StyleBox["x", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is equivalent to the resource function ", ButtonBox["SmootherStep", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ SmootherStep/"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ SmootherStep/"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{ 3.793722646343444*^9, 3.793722694198922*^9, {3.858361804655402*^9, 3.858361828117421*^9}}, CellID->366637629], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{"2", ",", "x"}], "]"}], ",", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{"3", "/", "2"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "4", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[9]:=", CellID->246999017], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[4], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF2Hk0VP8fx3FJpXxD9oqyFSktpPhiXlpJlDWUEklIUomSJWtos4SkkLWQ fc+eRMlSQsiSZZgxcxEiye9+z/kd3X/uecy5Zz73nvm8n3POFbO4rHeelYWF xXwJC8t/Z1P3bS0LCz3lLP8/uifUuX9M/fXZC+e0huh/fV7nSXV921/bi7Pn RWb8tWdNf5i82V8ncUYZXSjrXvRY9MrOBtdvi055Kdji/aZj0aq3e6TtFdv/ fn+bP8eG4i+Lfit0rjdn2edFT236ye3h0bToiH9vXDjr92HRHjJva7Wlaha9 Ntu3L1GyctEL63VKQy8WLNps+YyWxf2URb+yuqy0OTlw0ZNC0Uk92gGLVvlQ zxs5eWfR9TtkmBz7fRfdPl53qL/IY9Hp22x3TWpaLjqKfqQ+58PpRXe4lSt4 LNFftLyoLSXMXm3R49ZW+ayrzF43ivveGlGqUG0ML1+vWqwJhlrZ4CH1vRRp JVtJfSlj9C3ZSKnYYk5x1Hf59uaGOTB6Qc5z6ibFMLBcuvubFZp/NI7Fr7lP 2VPJ5jiz3w5J/KtDYm2iKBy/E8xWtjjgE3d2ySnRZMqtCHXfcL9ruJFMD3Hi yKbQ5WgpEkpOUJ5Y0B0JLaaYNtxryqTfwKFpx/wrhVWUepsd06rRt2Bf91m9 xLGOorLs0/oPOu54TXXPF25uopzQKRZN87yNFbziZXzZXyic0XdzJjo8sfyO C1eLfSelhm56WGm3N2z0XQQv/tNHcVfa/tXjvg9eWPpsreodoOy5s3CxZsgX slNq5etURyjMlqY//6jdwZisxQ5BGSYlSTwuWD/SH+Uivmek28cpZxyuST6Z CICGvnPt1tFJimDZwYLeo3eh26pqZmI4Q2niENCUSrwHhfpbEmOCvyn+JtSu S3/uI9Zvizq/MAvUkgsv5xo9hMuwy5GNp1nh+uugp5txELbKCjdtb2aD8fNX 70WXBYNXb43uSZcV2K0hwFedFYy45ZVL8k+uwmgYNWkVRyhevKqpfm7JjVoV nbFXBaFoly1Wr5PlQUJ/oZKu5SOobNvAkyTAh9uBYt6T3GF4tXQhTkVUAKa7 AusjSsNgR3M8FXRUCIrtE/zKtuE4fJrdIz5yHfg8Tpl1C0QgIlBgtzOHCOrr t01IOjzG9gGt9B07xPDiWphyrXAk/BRV1AtjxeGz7o/PxbpIXGLkU0U2S0LF ulEwWzwKbvScISd7KQhxKZobNkbhtmT4Xku5LZjMi02ZufUULezS18X/2Yq0 pVdV8eUZOCsL7i2w7kDI3tEdhk7RSCgxbGR334kbF63ELwrG4P71TSf6fXYh zuaV94dtsRjQkmHRy5ZHmDfN9YRbLOxUTXdqfN0N/2dSTn0fY6Eh5zmjz7EH l5qfW/+0f44nZtqb7IMVcZbebe5V/hxR6b5jXYNK0FsmfGo1dxyMs6dFxQ8r Q1EpXFsiKw4b+sxVmDIUsD0PlDv+Ix45/CNfTx3aj5/F77Z2HEhAoHVBgZfY AdBa2Dadf5QAK5tlqTpsB9HE7iF4SyERHnb2Lardh/DU4drvJOckbCvWjugc PIKHgZlTu2qT8ElNQKV4VhNeCQxmiVAygkwVTk7xacG6/ULfp6JkOIX6vP9q fgzyaqY1f+ZeYN1J1rS+VF1sPhlZHqD1Esumpbc5G+hByLG1kO/ZSyQRapY8 S/TxJ1knVYaSgpupUe98rAzwnutQ0InbqTh4WE3S65wRSrd4BfQ1pWLDuRN+ 9rLGyDxQ7mUnlgYrqx5G7pwxwp2VrntVpeHLEXO2m4knYdEjezKdLR0ajx14 fm8/A8NZW30lw3Ts+xn8ulXYDBq8L7SqE9NhwW5xJH3FWciqi6PjcAZE9ukW aSwxh6sRB4/3wUzoFhnZmqw5B43yhel0vyw8OvZKTezlBcSo3uI7kZ2Fow6t icKG1ph+Pb1r/lsW2F8w7+1ks0FCIcPuqEI2HmKLdNFFW7Bkd36n9mfjS9L3 TObZSzDaacTykCsH+cnO7sc32yM9/ZPIHuUc6H3Q9p5m2sM0tc7YJyQH43kZ BQKHHFCUUNAgui8XXD7nDO0mr4BbQn70nV0umluE4r0sr8L6efrKy49z0ajU +k239SoEohMPlhK5SKXy520qv4arEaHFJtF52CRMUxtNvA6ZwMtJIXP5sBI4 t13u/U14stPfKEkVgOcIwbrayAXtflZ9vXoFqNZvM64bdIGf92nhHSkF6HRY JzbG7orvrkdDPhgXQoDT4rKilTueXJZyZ8svQts58VzTck+MM+KiUvuKkHHN ft6c3wsadhuK9FYXY9/eeT1bOy9MW/NPxloWo9yIcsVfxBt6FkttVXlfo7zr nJzQPR9wGPYYOjmUQFFTe8+lqDswfu26TjeqBB36Iv+qsvgjSWxdz9aaElxu 1E4UsPKHGtPAum99KRTSRXRHdgfA8c57F613pbA4+ujn5p5AdBflxYhvKEew 3dWQt1YPsFVU33Jeoxzi4g/Wh3U9wA2/Men2a+XoWRFQfkv/IXj1t2bfrytH n9WJag3xIEg66Vi4/lsBb0I08NfaYJhw1ThSBytg63ueV0IyFLer+NoM5iow q8dWM34hFEnXzylVcVdC+brAMr20UEx2svx5qlyJqRWsd2v3PMKDF8p39IIr cWzrY8UIvTBU7cuKLFWpQspPO1e2pAhsc3xaFhr6BqWSmKWUPcWk8Wqnh8lv sP1yiBEL1zOUqLrL3n39BvMDuiEaZ5/h6IqzT73636C1faeNPVs0bJ9IuFyR r8b2NcLc/PoxeFmRonD8czW23T49O8f2HJtXF6Wt4q1Bb12s33MiHszxLZbL pWrwzv0wNUo0AfmtT9azKtegMeKdcZduAg7FugbOWtSgqOxxxo68BFjKq1kP Z9cgdMx3UMwjEfEm7yRq9N6hQMRMb59oMkSTvjzxDKmF7K73jdURKQhfmie+ /UUt2rUD8r1bU7Da/FFKR2ktCibFPofzp+LXev1i+ZFarN2b0lL0KBVfgpu+ DqIO//IbTv4IT0Og2wchTUYdrjQ26iI1HZMGleE8Gh9wJfR6bEpAFmqXvgqJ n/+IpyKl1EKHfPSGpF/uXtMAX9+Z610R+ZgRy9Rau7kBbrQjoZLl+ZBWy1n+ 8FgD3jo2XhDnLMAd1yIXl5gG1LRI0T6/KsDhqbcWuvsaYVd5zGPlZCEsrl2O 9NjfBN0LPjtCol6jx9LfRtavGQmtLEkpKRWoslZTkwhuxv1Ym+Hc6gok2c0I rH3aDM6In+c/d1fAztG6mi27Gd10lUkt3kr88tbY2PWtGTGKMb673CrBF8/+ JVDhEx4HBHsXGVRBs89fbXjgEzR+f40J4KlG7ukAwfgDLeicnLq69t070L+8 2Ks/2YqzA+r2BW2NOOLF+fuj01d8+uVLp/G1wPPggQaLHV1QPyBI30hrR++/ ZQerirohkyNUPv70G3TbUwXSo3oxeUv8VrREHzZu6F3jP9WH2Svp75fG94PF fa+ZumI/FLKvPNHuHUSDtVMOb/gAGg5HLK2TGMax0Go1N8YgPFjfq7+QoOGs 8X5X94lBKAf+8YyToeGqSEWBx89BCGcdm328i4aI5NfbvZYMYf+9jHAX0ND7 Olv4Dv8Q6DlLdblP0XBtIHYmSHUIYrFs497BNDxWcMtMuD+E/uWXPrnN0dDX piBaL0vF8gn/DwZv6Nio3PhQSZ4KSmq/TFMdHaejrReSFKm4fiIx7HATHV8t o7o9D1ChM8DlJ/mNjuZxlmd7Tajg2GkQmzBNRyVH/dp4HyryJpz25kqP4jks eF06qRiK7ihfFjCKnrg5L2ovFauY/oY9D0YhsjxswmCICo2o+OqcR6OIrH/X vGOcCqUX3DLasaMINpENGlw+jCAWR2JfwSg8r838oys3jEsFuuZyA6MwT36w XDpgGN1Zv2uk/mWAPcKBQ+nBMOahuo4VDKT76XFrhg4jP+jEl7YDDPw6L7DO 7tkw3FUnb1/XZuCRZLRsZtYwWL53xNw8y0DN81cGih3DCByQjkzwZUDmaX2c xtYRxF+Y2eldz0DT3fRkk50jKM8tqaprYsDpVlCarcIIDOLGszm+MPDmpEH+ PYxA8GNQuuc3BkzXdtU16ZNWqOHZw2TgYTh9zNh1BL5q1GcVnExMBq2CzccR nJ5z4D+jxURkaVPh2U8jqH4uv+HPcSYotHA547YR/FoRUhypz4T/AYnN6n0j cJ1fnfnmJBPC08qrN02NICjF9Ol3ayYOnbrU2StMw4ukil9aPkyEb2pyNrYj vf9YensBE8p64ePHr9BgIhdzYbSYiV5304vqTjTMcNA+zJUyIdM+fGbPbRoo fDciV1czUR645DDfIxqsunLPzzcyMUzI8TW9pmHLnOhrTioTSsVhmeocdLRk yK5YwkNgla/zmVRuOoKv8CW94SPQcdzkHy4BOjJfnjvlKUjAdVDYulWUjvOx GmuYwgQquBM2nt9DRzFzrP+eFIHDF7IfeJnTUV+yjv27MgFBuUcqQ1Z0JHc6 /mNEITD8+zrtiB0dftWnNN+pEQgIUTq8xpkOvU3urpGHCNSXVszH3KOjP//o AttxAnp8jXalBXTs44st+3WWgERP5jqxUjpKPs7elTxHYPJlSK1PFR1v3WJK jpwnEIYTklof6aC6yuj72RBot/3W2fGdDtb9SKq9QuBMJV1zZvUoYtzpXo6e BGzt2bfIW47C42ubk8czAvFv5ez+tRlFq4mZAksMgS7h0xn77EdRLX9T0y2W wLEPWQo6N0bRzHPNxy6egJz0qf2X7o2i32L9/Y0vCcz1vTqVnDsKrSCJzI4c AruV2qPTi0ahyzahJZ5HwD6I9Xte2SjUhVdfs8on0Esxsq6uHYXo10jrgUIC 1VEs1/u6RiFXeMq4oJTAPUP9B+uXMbD3sZ1RSQ2Bt2luzeKrGODl+ybV8I7A n6Uv+GS4yH0bQCvqqiXgkP37ieJaBnJPFuwae0/AkCsp2VCWAcmeE1/HGghs qJupeGjIQEf+/fOmrQSMRCXYIk4y4DVsuValjUCQs7Z6tBkDcTXf64XaCbBu jvuYZkPOYarogbqvBIa8jnbUuTEgf2xN7/JvBDJUon8sTWJg3iIgcOY7AT65 AVvnVAaImtLfhf0EbkjJfKdlMlDPqqzoNEBgP09+U/NrBuKPl4lRBwm0Uj++ imlmYG2/m1n8MAHlb7ybeNsY0KowKNEcIRD7yeSpXxeD/L94yU2QtikdDLxE JddP8ivYTifwO2T+gvI8AwcafiYGMgiY+x/oSWdlIvbEJat1TAI1bgEnxNmZ aJhJP5ZM+qE1/6GVvEzsvn4mo5AgIE6RFW+TZsKhueps8TiBO/LXIjW3M0HV zubcPUFgVLqIu0yeCaGYToFU0nm8hxYSKEx8vZR3PPgHAY0R066rBkwMmZuu wxSBV91x+kMmTNzkydNJIM3TMvzexIwJrYBO/hXTBDrLHIvUbJnwCLh94S1p +0f3wjlvM7Gs9MnQphkCnwM+rfbyZSKt8JHuDdKKHkK+U4FM5FFEvGpJL7FN uNYVxsTplX3HLWYJPEKJTkoqE01UfUvXXwRmd7PWimQxYf87obKU9BkZDQTn M7Gj4YbIPGkp/hbZG5VMSDl9YFyfI/fXqnWJ9BomulgnHDJIjy2YCZvVM6Fb QeOiki6m0VcdbmMiKJ2tXOc3gY29u7yKupigqfF3e5H2+eI8u+07E+8+tu7J IX2sYukwL4OJlzHpOZzzBPrC1r/tYyXgkuCcmUU6XTCleWYFgUyVWK4W0q6R it1cqwl88norOEVa4JnhT1WyM1v8glXk/xDo3zCw1JDszAYDLisd0pmxV7nt xAgcnN6rZ0daM+HhlidbCSRY+tyLJS24ecOerJ0EDs3mUwtJDySn7a9VIOD/ M2tjE2n31LpT0yCwNO+i2hzpo7LG1qvJ7ujgyh6uBQJCGUOOkpoE+BvqJcRJ Z2cvfaBnQCB35OzCQdIeu0Oe2JgQOPdQaM6AtFa+aPLtM+RcXJZcaUl6rWJG TgTZpbIqw51XSQ8VqVakWxNoafFx9iCdo1xf//YS2cFVwYN3Sd8uPfm16yo5 B/1nPSNIr690nljlRuDBqpVn0kgP71++IOZFgM5oTssjnV/9iEPpDvk7x+NQ GWnvwxJCOvfI59I13V5DWqc2S/JCMDl3B5QufyQtoqm2yz2cgPM4k7OFNO1D g2pYFIGJhad8HaQLtE9rppFdS9xve6eHtE8j/cSbRLJLZT72A6R1dV3OdaSQ 678Sax4mveEzu8N4BgFjD7f8UdJ0gwhXdrJrFp2dm8ZIF7ZuCthYTGBP4p3N P0j7GueG7Sknr5//VD5FWq9jf5x2NQH2g4KzP0lvNG1Ot6wj73993tdZ0qPf zF7fIjtlaMtnM0e6yIz5LuQz2eHTCem/Sfv1uba8JLvkZteZNU9a/xxHXwXZ oQWjvS5/SIsORjLayA6N7VDlWiDNsJL+xaQSmNK/eeM/Fw/nL19OdkLWyaP0 P/vbHuIVIefa6Rlt8D8bjn7euPsnuZ7U6dn//P+3kqiTqP/1n83mJfZPc40t fh7KdsZRT/KvdcYD7so4/jVnd14ca/Vfs7h5GihdGV/03IszGd95JhZ96UnG fZ6qvy7c6s++xv7Hov/RvLrNi3Ny0W2yTZ9vlvx1ajQkB85MLdo4Y88akT9/ fcv3uWdXyvSiXwyLRHFq/Vy0qA+fxoqkv47YyDG1sPDX/wM2aqTc "]]}, Annotation[#, "Charting`Private`Tag$34848#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1], Opacity[ 1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBmIQHVOnc+X///v7GaDg3id3gc9fEfyE9GSfZ68R/NSA WUfOXEfw85Q4ts5cj+A3Hns81TgewV/GNzs8fd89OP/DPM7b52ruwvmrVopf aT58C863bbivkWdxA2H+9Q5uuV1X4fyjEskPNrNehvO/qn4XqK+/AOdPt6pI T2g7DefXax094at+DM6X3NT6cKnKQTj/v3TA3snZ2+H8eLYfPkm9q+D8tWn5 lmrLu+D8LxLzlt337YTzbU6fEZ75pR3OP6Ov9Y7bqRXOv/HxpOvjnfVw/jqd LMMvXilw/uzXnmc2n46F82/V7jetZwyG8y1Z9Zc/eOoC5wMAAmt9TQ== "]], LineBox[CompressedData[" 1:eJwV1nlYDd8fB/AkRFK0omijREpE/ar7vkKS0K6IFmlTCSnSvqlslRYJpV3l at+0S4q0kHYU5dbdJn2TUviNv+Z5PWfOmc+ZOZ/3M9J2543PcnNxcakt4uL6 d9VYopw9PLYfjkOZu0p0NlMUNFzkTOQtMLJoI6V+iy3F08Tn44srtgDLUTXo x1WKWVSdwqePDuj6r2MyffUtyu4GHs9ZHVdkivDHpjonU/gWMqyXd3ugS7Co +qRUNuVa4sGwhPBLuJrNjPXiK6IwVRm5shpe0Jr6azRxt4pi1X6zs4B5Bboz nmUXKhopbc7KM9qPruF86/uD1Z6tFK0l79a/MfTHc7p/mURXJ8XcsEoqPygQ y4RkaoWLPlBWPbpRPDUQBN7rPgLd7oOUZqaVrsauEDib+IidWzlC8dfY3h9w KxQ59qFbG4dHKbuv/z3X/C0M239Q69ZpT1A43Z1/VlKvY1LJTllMkUPJkkmL MUmKQJ1k2GmFvu+U0x6X5O5PRULPxLtlK2uaIla7v3z48A0Y9WhbW5rNUjr5 RPXlM29iV9s12UmxBUqEJX3I7c8tpIZvOSgiwQVqdsX5kuN34DPuc2jjKW74 /tof5GcRjW1KEp3bu3hg8fjpa6klMRAxXm10wmcZdumJCjcVxiBtacOishMr wIqnZ63gu4ucp81Nj+0F0aJlOPm0/C76lKoOtiqtQcbXCg0j+zhobduwJktU GIFR0iHTgvF4uvhvmpaUKKx2RLUl1sTDjeF5MvqwONT7pkQ0XRJw8BRvQHrS OggHnLT+JJqIe1Giu7z5JNHWtm1KzuMeto8a0JSVpZFzKV6zRSIJ19W1Dlak yiB03Z/Qc61JcGOX0SU3y0HLqUOsSCYZ/szib17u8hAXULc160hGkFzCHnvV LZguTc2dvfYAH3gVLsus3Ir8xRe18eEhBBrKb/7lVkbsHpaymdcjZFSbdfD6 q+DKOQeZc2IpuHV5k/nX0B1Ic34a8mZbKsYMFLmMi3YiPoTha+6XCjdtKxW9 /l2IeCjvNfI2FXqqQbMmfLvh1vXY6af7Y9y3PrLJPUYdNsxPtsF1j5FMC5sc GtOA8RKJk/yCabAompGS0dWEukbCEdnCNGwYsdXiKFLA8zhK9dh/6SgSmeg/ eUAHP6tebR3Yl4EbTuXlwdL7wOjm2XQ2LgOOzkvyDHn2o5M3QOyaWib8Xd27 tT8dwAOPSwtZ3lnYWnUkcXDsEO5EFfzY0ZKFd1RRrao5fQRnsDnV4tmItVI7 8UPYAE59jiPvKrNx+W7o637bo9hJtWr+M5+D9Se480fyjLD5RFJdpMETLJlR 2OZtagxxz54K4YdPkE1Q7dcsMsGfbMM8RUouruYlvwp1MMVrgQPR5oF52K9L lQs+cxw1W4IjRzrzsPGMebi7kgUK9tUFu0rnw8HhM7tk3gIJ3hqXgxvz0XvI ludq5gnYfVY6QeOhQf+ex5qF7adhNudiomFGg87PmOc9EtbQE8oxaMqkwZbX 7hBtmQ2UDspgQPcZJPYaVeotsoXvcb41IfsLYFx53MVy9Rno1f2doYUXIv7o U6r0E0ekaF8TNi8qhIFHT6aEmRNmns/s+P2xEMtzODdVeJyRUcF2PaxWhDvY olB5zgVcRYNf6F+L0JP1pYBj44bjKse57ggUoyzb2//YZnfQaO8kd2sWw/jN kZAZjjus8lotQmOLMVX6rFz0gAcqM8rbpfaWQDD0jJnr9AUIyu5kvXItQVe3 eHqw/UU4PaYtP3+vBO0aPR+Nei5C9FHm/hqiBHl0kdJNdZdwMfFuleWjUmyS YFBZmZehGHU+K3a+DA6iZ7arvr6KIF7mCw35cggdIrj5j/ugL9xhZNi4HE0m vRatYz4IDzkloZxbjgGPddKTvL744ns49o1FBURX2Z1Xd/DH/fPy/jxlleg9 I1NiVReE7+y05LyRShRccv9tKxIMPdcNlcb8VdDZ89vYxTUYM04i06n2Vag9 TrkQIRkCY7vFLtpCz1E/dEZV/GYo+Mw+m3l5VGOP/pHdbsnXYfHcd51RcjUG TCT/p80VgSzpdZ+3NlfDo+NIpqhDBKgcU6eR9TVQo0kaTeyKhOf11z4Gr2pg fzju5+bPUfhUWZois6EOsa4XY1863MZWKRP733p1kJa5vT5+6DauhE8q9F2q w/CyyLprJncgZLK16FZrHUYczJv0ZKIh52Vo5/u/eoQQUlG/1sbAUqDZkz5W D5ews0KycncR2Cjcazpfj1/GPM3fHe8i6/IZjUbBBmhdFl1inH8X04Ncfx5o NuDHMu4bLbvjcDtH87pxTAOObb2nnmgcj8a9hUk1Wo3I/enqy5OViG2eD2rv 3n2BajnMUWofYNqC3+tO9gtsPx97nEvgIaq1/ZVuPH+Bv6NGsXo2D3F4mc2D 4K8v0Nen4uzO8wgu92V9LuxsgvJqCUERkxQ8qc9VO/a+CdsCT83N8zzGZv7K /BVCzRhpTQ1/TKSD832L/VL5ZrT669KTpTJQ1nN/PbdmMzoTX1kMGWXgQKpv 1JxdMypr7z1TLs2A/U6q03hRM+Imw8akAzKRbvlKttn4FSokrY33SmVDKuvD /aDYFmzb8bqjKTEXCYtLZbbntKD/SGRZSE8u+G3jcgdqWlA2Lf0+QSQPv9ab VO2caMHaPbndlXF5+BDT2T+GVmiImE3/l5CPKL834vrsVlzo6DBCHg3Tpg0J a/Te4MLdy6m5kYVoWfw0Nv33WzyQrKFXeJRhOJZ2/tPqdoSFzV4eSizDrHSB wdrN7fBlHLorV1cGBWrx0jtH29Hs2eEos6oc130rfXxS2vGqW57x/mk5dH+8 tDPa2wHXhqMBy6crYHfpfFKATieMHEOVY5Of47N9hLNSeBcye7iycnPr0ehE pcrGdOF2qvN4SVM9slxnRdc+6MKqxJ9n33+qh6unUxNPURc+MbWmDYQa8CtE b+PQxy6kqqeE7fBrgHA674cotXe4FxkTUmnaCP2RCOr46DvoLvSnRK5pQsmp SLH0fd0YnP5xce2rV2B+yNljMt0Du9GD7uW9HTgUvGrhrVc/3v8KYzKEuxG0 f1+7nfIQdPeJMTcy+jD8v9r9jZWfsK1YvO77g48w6ssTpSUP479rMtceyY5g 44bh1RE/RrBwgfZ6cfpXcPnvsT6o/hW7iy7cPzI8hnYnr2KhhFG8001c3Co7 jqN3m6h+7DEEcr8+mCPLgI2Fjq//1BjUo/4EpSkycFGyvjzg5xjEC4/O3dvB QGL28+3Bi75B7+azBB8wMPy8SOK6yDewihcbCZ5k4NJo6my09jfIpfJ8D4lh 4J6aX0HGrW8YXer2zm+egZFeNak2JTq4piLemL5gYqNmxx2NnXSo531V7Gxl 4tQjp79Z6nR4mmfG63Yy0W+f/CloHx0GowLhch+Z6PrO9XCPJR0rVUxTM2aY aOBrW5seSkfFlNeeEgUWHsNOyGeQjtFHA3VLIln4nDYfTB+mg5cTYfb5NguS S+OnTL/RoZec3lQcx0JS26su5e90qOQIKh5JZSHGUil6bOk4ork8ib3lLARd ml1ppDqOK+VGtqqjLNhm316qEDmO4cKFZvn/scGb6MGncXscC9Bexw02aOHG gvp3x1Efbf6hdx8bv86KrnN9OI5A7enAy0fYiJN7pFRQOA6eLwMpV23YaH78 1FR9gHzeqEJSRhgbig/a0vS2TiDHcVYlpI2Nzhu0bEuVCbSUVDe2drLhdS06 30VtAoZp34v4PrDx4oRp2U1MQPBtNC3oIxtWa4daO00mIK7WvGY3h407CcxJ C98JRFDpD+tXcTAdvQLObydgMe8hctqAg6SazgqbdxOof7xzw59jHFAYCaoW vROYXRZblWTCQcQ+2c0HRyYQ+Ju/4MUJDiRmNPk3/ZhAdK7Vgy9OHBw46TY4 LMFAQVb9L4NQDhI2dXpbuDKQqnOU1lfOgaZxwvdjFxgwVE1xZFVxMOxvde6g FwNcKxlv5ms4UOwbP707kAGq8JUk/iYO6qIW6QrHkedwqOTs7w4OxglV4c7n DKjMSz1fRedAoyq+4CAfE53PlJYtWkNgRZj36TxBJqIvCGe9ECYwcMxypYAo EwVPzpwMEiPgOybh1CPFhFOq3mqOBIF6wYyNZ3czUc+Z/HpTnoCuY9HtYFty vep1vF80CYipxml9c2AiZ9Bz5XEKgfGFy4xDruT6TSf1X1EJRMZq6K72ZsJm k79v0gECbTX1v1NuMjFedvgvzzECxsIdrjXlTOgJp9b+siEg+7lgnXQNWc/b uRtyZwhMP4ltCW1kosUvpfrQWQLxMJczeEvO91U0CXcm0OfycXDgCxNcOshq uUDgdANTf5afhVR/ZrBnEAEXd94tO+1ZcOrv9Qp4SCD9parr/5xZ6LO0VuNK ITAkcerZXncWWnZe1fdLJXD0TaGa4RUWOtdcCnVNJ6CqcFLH7SYLw3brb218 QmB+5OnJ7BIWDKNlCwaKCezS6HtEqyTNM2UgU0rAPZr7S2ktC1QJ/ksOZQSG KcedmlpYkOpPchqtINCUzHV5ZIgFlYqTFuU1BG6amdxev4QN6j3X49XNBF7m +3XJrGBDUPijfPsrAn8W5wgrCpDnOpJROdRCwKNo4b76WjYKTpTvmHxNwEwg K9tMiQ2Fz+b9k+0ENrTO1t8xY6Ov7NZZqx4Cx6VkeRJPsHFl3H6tVi+BaO8j Bx9Zs3Gv+UubeB8B7s1pb/Od2cjJk9rX2k/gW/DhgVY/sp6jq4eXfiTwTOvR f4uz2OA6Exk1+4WAsOqoi3ceG+PNNQsVXwlckVf8wihgo4VbU91rlIDOmrLO rudspB6rlaaPEeihv32a0sWG1Fc/6/RxApofhTYJ9bJhUW9arT9BIPWd5YPw IXK/iU8ECdLONWNRbnQ21LPCy7czCSzE/nbU/M2GYfvPzCg2AduIfZ9p3Bzk mLs5rOMQaPaLNJfh5aBzlnY0m/QdJ5EDy4U4UL98+lkFQUCGoiTTq8CBU1ej TdV3Atd3XkrS30721ZGiVbumCLAUKgVrd3IgnjIomke6VOjA3wwKOe5Weizm PwJ6E1ZDF01J21qtww8CTz+lmXyz5ODKmlLDDNJrusdfW1pzQI0cFFk2Q2Cw 1rOS6kLmQGSg40vS7nE3E1YFcsBbc//bplkC7yPf8QeHcVBQEWd0hbR6gHjY jygO6imSwS2kF7lkXBqK58Bm+cgxuzkCcag2zM0j90c3sff9RWBuF3eLZCEH gQsZDTWkTyvqIaaMA5X2K5K/ScuLdCtdaSDt9YZ9eZ48XyvWZTKbOejjnvJ4 Rnryr7WEdRsHhvUMATrpKgZzhW4vB/doPHWGCwQ2Du8Irhwic4Qq8imYdOgH 77ltX8j5b3t2F5M+Wr94XIhN1p9CK171m8BI/PqXI9wEbDK8CwpJ08Ryu2aX ESjQShXoJu2bpP5JgJ9AZ/BLsR+kRR+a/dQmc0YqPEZr5x8CXzeMLjYjc0bF VMDBkHRB6kVBV2kC1Jk9xq6k9TPubLm/lTwn9qE3U0mLbd6wu1CFgOFcGb2C 9Gh2vk6LGoHAn4UbO0n757WenAEBrtJz1HnSh5UsnPjJ3KHiwm6BvwTEn33z lNMnINjeJitDuqho8W1jUzLnJmz+7icdsCv2vrMl2Wd3xOdNSRuUSWUHnib7 +LzccnvSa9WfFSeSuVTfaKZykfS3Su16mhM53h3qHUC6WLOt7aUb+Z5XxIzd IB1Yc6J/6CK5/682QYmk1zd4T63wI/twxfLT+aTHdZb+lQ4m72d35ZeSLmuK 49O4TtZP/nrWkg7RlRU3vEmuY2S1vZm0YUuhnGMM6X0a59+SltSn7vBPIP2d s6qbNONNu3Z88r/v/EB4gHT5kVP6+WSuReu4XP9MOrSDaf4ik6y3NtR9lLSR kc+ZgVzy/qfSXeOkN7zn9fj+jPyeAX5lLNJM00RfXjLXbAYHN02SrujZFLmx inyfmdc3/0c6zKIkfncdOf77Xd0P0sYDOmlHmsj694vN/SS90aqLZt9K1re+ tH+ONOuj9fNrZE7ZuAg7z5OutOa8in1P1nMqg7ZAOnzEt/sJmUuBroOFv0mb nOEbqSdzSNBij88f0lJjSexeMoeGlbUF/pJmOyj84tDJ+k2uXvnnqvGypUvJ nFDxCqj55wiXA0KSZF8HPmSM/bMZ6/3GXT/J+fKn5v4Zu3quN5N9U9+d/Oef /w9HLdDL "]], LineBox[{{1.000637755102041, 1.}, {1.00886769729576, 1.}, { 1.02836088664397, 1.}, {1.0478540759921802`, 1.}, { 1.0901425648697227`, 1.}, {1.1296107149487955`, 1.}, { 1.1723809752089906`, 1.}, {1.2143717129972469`, 1.}, { 1.2535421119870334`, 1.}, {1.2960146211579422`, 1.}, { 1.3356667915303813`, 1.}, {1.3745394394308814`, 1.}, { 1.4167141975125037`, 1.}, {1.4560686167956565`, 1.}, { 1.478034287989665, 1.}, {1.4999999591836735`, 1.}}]}, Annotation[#, "Charting`Private`Tag$34848#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \ {}, {}, {}, {}}}, {}}, 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]], 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->NCache[{{ Rational[-1, 2], Rational[3, 2]}, {0., 1.}}, {{-0.5, 1.5}, {0., 1.}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7937238258996687`*^9}, CellLabel->"Out[9]=", CellID->517272061] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107570], Cell[TextData[{ Cell[BoxData["GeneralizedSmoothStep"], "InlineFormula", FontFamily->"Source Sans Pro"], " can be expressed in terms of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["InterpolatingPolynomial", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/InterpolatingPolynomial", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Clip", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Clip", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7937226502274504`*^9, 3.7937226566201744`*^9}, 3.8583618017943068`*^9}, CellID->357577501], Cell[BoxData[ RowBox[{ RowBox[{"gss1", "[", RowBox[{"n_", ",", "x_"}], "]"}], ":=", RowBox[{"InterpolatingPolynomial", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PadRight", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", " ", "0"}], "}"}], ",", " ", RowBox[{"n", " ", "+", " ", "2"}]}], "]"}], ",", " ", RowBox[{"PadRight", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", " ", "1"}], "}"}], ",", " ", RowBox[{"n", " ", "+", " ", "2"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"Clip", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "]"}]}], "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[10]:=", CellID->66575045], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"n", "=", "4"}], "}"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"{", RowBox[{ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{"n", ",", "x"}], "]"}], ",", RowBox[{"gss1", "[", RowBox[{"n", ",", "x"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{"3", "/", "2"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "4", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}]}]}], "]"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[11]:=", CellID->556035468], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[4], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF2Xk0VH/cB3BJpfwqRVFSkkoiSkSYtzWSJJKlQkohaSGEsmTPXnbZErIT siRLyB5FlBLZxqwlJCrP9TzP0fwz5zXznXvu/d7P+Xze98x282u6FqwsLCy0 JSwsC+9n74p2zc9/qWL5/1f/hDrnj6l/Nrt8QWuU+s8WOrF1rT3/bCvIXhyT 988eDUMRkqb/nLYmzuDyy/5Ff0tY2dfu+nnRmU95uu69+rhoBfcvwrYyvf+O 3+PHsbW8e9H1vBcGni17t+ipnT853dw6Fh112OmymU/Lot1E6huP725Y9KZC 78EnQjWLnufTqXxw5fmiTZfPaJkHZS4659I12V3pAYue5E1I+3Lcf9HyLa1c MZO+i24VF2FwKHsvuvd7k9pQmduic0Wt909qXlx0HPVo67OWc4v+eKdKym2J 3r/95105c+rHjQpnk/qMTCdL+TeRVXwK5Zo44YPvTP89CsKy1kJ6uw0xVSs0 0/fcVsFez/nzK6fz4BLf/JJFI1pBP6BKuP/zJQQ+DRjQVH6uIF3DZj+jbING J5qscUWHAsfvVNOVXdch2lvsVfJ3SMElSt070scO9dKnw+7MTipQD1Ayd8g6 oPJk1+TGP0tJZ9sDO/KpTthD2zM1kruO1GolPq2Q4IIVWazKkm78JPllb/la dO7iTRRnj6LdbtJpnXKBbA93/FTd8jmdsp+0JuH+s4mPHjjk7pDVdvswqYF6 9ojswXv4WhwyHsOqQroru++DW5AX3ovojU8na5KkfeevNIx6Y2WzIRddSZfE 6Or4+5+iL2Rvv3+QGmJIShNMCdOL8UPg0gDfMJIZyeS6nVDshD8qQu6tyRCx IPG8VH0+cOw+ZDgbpPOlrpA6ODZq7n4SCEmlkaL2IzdIfkZjn67+DUKqhMZ3 h8JbJMX00mtFBiHYrPKo6+ovZ5LrrKrHHcNQLNP6emAo3p1kmJzTLLAsDDtX 9hVxanqRDmps5K4rCMOF57KmXyP8SJzMu+cum4TjCW3bXqMHQSRaxFjaKo4H mFBgFF3LCiM1yut8y3n+AAyZvu975h6SUodKZU9efAh11q8XAuqiSe4B2+9N ckagzTBIehn3I9LZ/QGtUZURGD1vddtmLokk0zuxQc46EvERFb3+lY9J3G5n TPs3RuFb6FG+1p400reddRker6LA4b7PZZ1uJqm1VXRC6Ho0Ci/leaQfzCVl 2EXINW6JwUGHkLJdqgUkr81/va40xSDzWrsBX9YzklnNpfY1DrH4vdXca/mp EpK85RueQsE49KiI+fxSKSPxrpU5r/8mDlKeKwVV3F+QJouTMmdc4sG1J8FY ZkU1qePsysk44Uf4oaT6ZPdsDSl76U0FdD+CS+vEqWm+OlL4IZq4vkMCAlU8 G7WONJCcrlwSvMKTCDXV+eG+hEaSSeIAt0dpImy3k19fFm4hpVjl3GsRTUKr eMiD9pE2UsQ9iuvpO0nQkOe/wHa1g+T3aLfDYFsStCwaX3OzvSVd7Uy2/Gmb DO0f8Lsd0k0yo/af96xKRqhWk8pO3x6S7rItZ1ZzpsBWuMjILuUDSW2b0alo sxTEbXjsfmCojyQjG3l8R0EKlh3LLMGxftJevXdHcpc8xr5+fkkV2wHS1quc irK6j2FxQ1DNvXWQxJYccODEj8doSXMxG2gbJv0sf733o0oqtm/8ai1oN0qi dLHttHiYitSQv7ryB8ikDnY3HhepJ1i7c/sKf1Ya6ZXgC87lPk/g9fN+Cc9G BqlE/tfKsPdPMPPbiJtP6Bsp/rrd7zTHNNyQuMgW7TNBCgnIn9rfmIb1h/dz 6nX+IHmm0hkveNNx/0F60TexKZJl7+XBt2XpiOY1j47dNkM6M5H68dyqDKgo ullxl/wiaf/39R3ZOAM7TPiXap2fI0kqnm34O5eBDy/WUH/P/CXtMo6p8td6 ipMOuhaedizgtX9fyv3oKRK0/ryxc1iCv+k6WSKkTDDYzCvqkpfie01QanFw Jlb8VTD+3cyG4b7mR4pfMjHXTi7qXLIczWvVQk+7Z2Hf6CED/lh2VO7x9B/s yELjgORn198rka9S5WmzPRvH0rITtWw5EOkoe8uzNhvO2Uf27fZcA/MvYsa5 bLnoURwK13+xHvq/rPVk9XOhKPqTQ6KQCxpcGVp1T3KRYDDs1FTADTF1QXw8 kocPX0fCT77ZCIHzpjIWUXl4TnM9/IbOg/Uu8fu/jeVBjvVvyx6eTXA14Fh/ TzUfDmR9SuJ9PjgMPw1utMnHri0D5no9W3DthgbHmoh8uAo5P+IS3wrz+95s MSP56JzfqTbnIQCNqvnpXJ8C/NitqLchbQcSFVy4TxcWYDqnVlLhgRCmK6b3 //lcgOvGq81Z/XcitZRuc0yqENvmMizVQnZjTtoqYMKsEMHJ5AdSScLQLR5O jwksBMm0tDC9fA9YCvu+jg0VIm3Mbcn8f6IwkDBgCVn7DJ7K7i/PqokhN/ct v7TcM9SveO8n5rcPZ7OaDL3Cn0G+RHKKM0oCZanP2wWUipDgvNFMxEMSnDsk aa9tivCopUYkRfMgLJNzV16LLkK/QI6YwWYpbEx4olrJLEJ8ygwba5s0bkY9 KDdKKMb2+QIHiXuH0bRhbS9LczHoKWVvLnrKQeBhwFT6VDHCbdmiJ/zk0R7q ITGtVYKoT7bVedkkiARcSwufK8GhQ/XiV58qwYOd+kp293OwWw29dNdQRq/P pcEB3efQtDi3s4+qDJ9757aIZz7H+cDl7MVQxVfXY+EthqWIrm+XltuqDtm5 hrybXqVQpPtp1g6qI/S2ctum/FLMLEtgk87UAMlBlt1yRRnsOE8Xy2pqIvba 7rtsJWVwVml9w9N0HN/pKXFZg2VYLhKbaFmiDQ2brWW6q8uxUvuyiMHTE5i2 3DCZdLEcy8O+xh/s0IGu+VJrBa4KBBnu9Zum6OLpwF3fYVIFZK6YiJ65rQcW 09nU+9YVqBKkx9NWnULume9fPtRUwOSYqUXDIX1w6H/Rd7j+Ao8Y4kE5ZQYw rHDdfDLuBe5kV/PkmxoibfvmL3sbXiB/rld6+0ojKDJOWQ7yVUImrPCK2yVj 2Ps2O2u9roR2aT+Ph9Y51NAvY/dEJe42a0gcX2uCNaeWsbHyv4TapndclG4T PBVQDHp+8yW28+87fvGQGfrLihMFt1bBPOeABYl8HnsF9C7+0ajChGf8rRgj czj5fBPutasCOdafj7PNHFx6ewuDmqoQOLtW37r8AoQcdMxdD1ej5fBrk/t5 FjBa22A/NlKNYaVYN5OV1nCv5e45NVcNxma+ow8SrZF264JsLWcNysvfxZ2Q uYLJPpa/8XI18Po7/sr5hg2CM+R8dcNqwGYyX2u69BqKzgSMV6XV4AzfXu2I 3GvoW/PhmNiLGog8fGyhtu86hG85cLKP1eCk0gS/1cB11CoVxFTK1yLoZZpS u/5NkCfn50R0a2FjXuHRVnITazO0TaIv16Jw/4uEo5vscHYNTdAuvBZh66Q5 X3+1w8+Pu7KFybXYvE2gSMHvFkTt418+ePAKrBHFUwYCtzFpuNohJP0Vug4G 3QsNv40XCnfF7le8Qmled7v6cmccW2EW7zn0Ck/+6/1MmnCGdewO5xuSdQie qexL/eSKp9WZUife1eGI2Z/KJW7uuP6Ej645Vof9Y5dftNa5QyYgMPXIXB2a T6zuvMbhgUY9Wy7SjnqEsgo4qcZ5gDy6/7uoXT0ii1db6dV7YtfqsuxVXA2w djz3zkLVG4zvey4u392ADS21wVejvVHyPpaPVa4Bt2dczl+ie0MtyTXgl3kD yG3MkP2xPrgoqWhJLmyAzToMGc374rHR6x0Nuq9hQDkfq/MrAAJp3bEe4Y3I HkzkMukLReTSYsF9GY2g2UdUf98chtXnH2Z+rGzE2+PNPhJnwjDLp1cuOd6I mI1tys8+h6E7rOPDCJqgZrU+jkwJR8CdFl5NehOen32tQNkVAZa+zKRp1mYk 61MPPL4RAUeZAOHHvM14I5UcuZHINRd/aMj8VmlGSsLKKxKnIwGrBoPc2GZI 7Q2+ohkWhclTNZHrNVpAOmcdPbo3FtaFSVurzrVAzG1vdrFnLAbXuqddsWuB nMDrgeMfY9HeTCqpS2hB++3nCp/vx+Gp4otuh6kWDA2MBoXOxMNE9Dl3X0or vISDG/77lYjGpTnhj/+0IcGClSqg/RgD4bnX+te1o4Rj/ynBe48xsz1fa9Ou dvTOO333KX0MYcVny0O020F/q7PMRSgVvq5lzs6J7aAGRQvyLHmCI1P15ieV 3qAwtUHAvC0N5nbXYtyUO3DTr+kXioi5efjbikdaHQikvFwvM50JZ9YbDuWn O6CuNaETL5OF8LCbelPWHTBq6ZDOfJmFmrxbq6886ICh4/iZr2+yIUBz8Tg9 3IFg35iin8vz8OWin5WYTyfCJrsHY4YLUGupqLgjrBMDq6N8yGuJuWEzs3FT fCdkQk6GOssVwsbeso6tsBNnazVIVg8KMXtPY9unz504PWDWZ3fkGbgfs3cH SL1FbBHnUb2yImgO+imSh9/Cvp+i2PL2OcRGFHn6mW/ho/4qq2B5KTjHZ+jv Zt9i1Vwj4/PhUvR8s4yr4nwH3tIsEfbUUlxkOTodKf8OyYcdY1Nvl8Ft28ps tYfvcERnMp/tQAWKzvnzPFbpgnvYM3mPnpeI6FvZa6HdhWiD5GtcXFVwMAqI FjbqQu3hRNNx7SrI6N/flGvbBemmAHOz11Wo0AriK4vpwiUv/Z2V56pRKxe2 7Q2zCwzV9Wf3GtagY1PM7rm4btiy2WhKXHoFanfGIb3J96ho4n1TP/wa8Tbl guf+vkf5LrFiefZGaC9tXX2ZvQemG498bN/biHwJ5pDzlh7I3TiYpmrXCIf7 UqEpqj0Iv54dZ7+0CaxKteTvD3tQX23L1yvcjM3ZfTGhUr3Y/UODU8q3FUc9 1/xuc/gActMH/18NHfBQVWk3F/+EG5iRftj0HgOHX6rWlvVjWXHhxvf9n3Cy N2tjbtwAfl89UXP+7iC2bR1Y5zc1CNd8Vu2RsmGw3D1kqi4zhJ0lFz4Meo4h 67Zf6EuFIayccORVCx7D6VsfaqRUhvAh1ashOWYMOTYuQkLaQxjPrdNWzx+D 8ZmqcZaLQzjpESCm/HkMRTLq9uUhQ1Bavh7fpMi4/OO0v9jYEJ4Y19n/GiSj 3dLhGVfkMEocpnlO7KDAKTnL6EbcMFZU5x7KFKVA8OPAfHvSMDJ28dz+I0WB w7FjWgFZw6h/bqYTqEHB1n0CIyw1w4js5RjQvEqB7Y+mjQzqMFJAFtcopmDN XX7nRqURCFqVCYiCitISXYFd6iMwD2wI9VKnwpzp23BPawSdNVoVXSeoKDGb WA+DERBP/tJnzagwUXmdVWwzgvfXnYNXeFCRy37jc0rUCJaXSgi0V1Oh/aBO 8Q59BIbvT/KsO0yDmaGy692JESx98evIgCINN/mrn7v9HMGpQ3LbM9RpiEqv 2Oe5ZBT/najs2q5Pw0BF4RbfDaPYoVRwsPIaDXbDSTOhCqPgcrQcffCYhmip O/mpQaNo3qA5/GoZHZmzs9Qn4aPw+I9jIIODjhdVTrvTo0ZxznNHpM86OgaP 2ic8TR5FvOlJaVF+OkRMrgTmFo8iN7HjisBBYr2PkWXp51G8mjr+K8eMWN8j JdAqNgbTzP+0rIvo2Cb3JkRWcgyD0Yd8usvoOJdgOZ8mM4buZCdnmSo6PlyM 6/dQGcOepY4JI010dH5neXTIaAyPijgPfu6no4ajddNjL6JugmuqVVcwkAxz Lue+MYhnBrut02XgS8qc59jAGFjE6y67nGaAf3nExKnRMejwFQV9NmYgpvV1 p/j3MRScjUgLuMBAmJFY6MhyMjrDK2P87BnwsJv57+QBMlq6VHh4Ixg4nx68 XNifjDO3rbSyOxhgj7rOIRtMxk2Du0r0dwzk+uhyaj4gg4tfh1O4h4FZi42b bR6RYfQ358T9zww8FEoQyy8g49RP51F2CgMNyTmnZD6SYWCiwj2yhAmbsBCj o1/IUOuc3dzAxsR6jxsmxsNkSK2L1UlewYSpmZSlK4OM2uCXJkdWMzGztdKl mnUcFBWZx8d4mRCJb03R2DuOHunOOnUxJjru56YbSYyDJpJm2i7OhINLaLa1 1Dh88yu8Thxg4pXxqZJAjGNXlpy30iEmzm761NShNw4mJWPZiCITIZHUb4au 4xD2P6MqrsfEZOgqWLWNo0PNKGrOjomYyo5Ss7fjUAqKftl9iwkSJfKAYc84 5L1vX8hyZMJPZccu9cFxmGgLkI66MLFlWm71zqlxjDLdvpzwZELtzNW+gS0U LP8G/uAQJii+kvq92ynQ7ZucEAxjIrToV/ubXRS0WhxMfxbOxMfVPrUvJSjo y2941RjBhG11wtN4VQqe6SQ61cYxEbmzw9HQhoKDsXriv9KYkNON/H7iBgVW uQfbtDOYGLh79oq6AwX7ojuzkp4S+9VLNpF2pyCnok9FNpuJqoAlR7gfUhB+ 6/Z9UgETZOYB7o4KCi7LKX9MKGciaMuvoNfVFEjOdllUVDBx4GjViqp6CnzO 2z3sesGEa8qxuZw3FMS80f7x+yUTnPoXv94fokCVLdF81ysmZMsj8tU5iD4g 8v3MYDMTq7wdTbI4qTg79rCgv4W4vhNG/63dSIWBXJJXbytxvJEtlu8FqNiZ lFlT085ENWfqNgtpKpiirLZX3jIR1ufd1ihHRTf3Fe/j75gwT7vsIqpERZLZ OQPRLiaWyu/t+XGMih2ye44OdDNx5HJhsOd5oo/IeR8S/MAEz4GH8qOXqFAW dpmmECb/vkU5akNFSIxgdv5HJvzDZY+sc6TC+ILqJslPTLRWVv9JDKRC0fFH E/cXJnS539hUPqcilL2cdnKYiR1f8jdvr6Tiz6CxH53w5NPwRq9aKpayK4T4 jDARgdNCWm1UFMhumcsfZaLX+nPfx69UaK4+zEkmM/FUqsqfRKZCtZWt5do4 E84syYdS6FTMOK3fM0WYL/LiA6sZKtZm2lNmKEyY1FA1Z1bTUDgmrjRCY0I8 sG3mDBcN33y3dhvTmWAxyEur4qWhIyxQuZ1wMu0mq+8OGu5429flMpgY5pkt 2yBLw6eqh1sMvjFhbcu+R/IiDawdq+s0fzDxuP6AzWErGtRk5VTiCH/aci5P yZaG64Zs8hTC2i0FUjpONCg8Vc69N0nUg/AZ5auBNMwmd299MsXEFTdvb/sw Gl5XOUyOE059n9foEkmDeFqOtdg0Exu92U4EJNEgMdJxLJ/w3GDOmfQiGshP Zi+k/WTioGxvQm4ZDTOXA2oGCNuGsn4tfkmDzUT38KYZop5JBpZ1jTQ82fA4 2I9wXRzLrcFPNJxvtaca/GLiz4RIKXmQBo9Yxx9+hKU19eeYozQkLb8+XEo4 Y+apx99vNLBUqYdvmGUiUF8vmI/o+x2D0+G1hOuz73QKrqLDqFHZkEr479IM bpG1dPA4vtjNNcfE9cLfsTKb6JCNkJkyJay/Ni1dX4yO3tnbpQzCwZc6KGcP 0JFu8FCB8zcTjZWzYhcP0SGvxUKTIHzY5kTRTSU6VHUr310jvLVppjpEn44W VxepYcIGAjvYoozpWLJ+jc084VDH4+oJpnTMc02QN/1hgnVXSlu2FXE+jX6v tAiPeh772HSHDj6BP8aZhLd9vMXf6UmHv/vFHdWEDfcnmfX60pHTQ9PqJtz8 ZXJ0NIwOi6ZtHX8I58kn/FiaRge57jRD/S8T3AeGrR2ziPPtsvA0Juy0W+Qr JZ8OJ9VvTjaEldeXdHRW0NEuqxQfTDh9xW91tRo66ouPdyQQ/u+PUlVpAx21 d87fyiX8fqwtJ7GTjiKDFIFWwnKfuXZy9RBzk6tQ7CPhpLdG8T6f6HC0DS4b I2xVORJwdYz4vnvceMk8E7/D/1yW+0PHdc5tW8UJn/dT+ZLLyoDF9X4XWcIN d/xPC7IzcEQ05YYK4RDLDWoruRiQ5yBLnCY8ee7MC1deBrYKCbGYEjbUS5b8 xs+AY2jvzcuEBUligj3CDHhWRh13JOwraRejuY+BwrLZ8ruEacJlnC8lGRAL 9XnvTbiYS20+lUTMNRZVwQeEN6+878CrysCTTVcNYgjf/dtBv3+UAc1tuaqJ hDXGz366eYqBd6eGdDIJ5/Sn6I0aEXPS55p9HuH1XeRmI1MGrGpVjIoI9720 L1O0ZuBn3c1rlYQVi8oliq4x4PxwxZMawqlPWTJ232IgMdYwtZ6w7cPAyDXu xO/3CrG3EX7n/3a1pzcDpkGu1zsIy7jxek8FMJA6pZX5jvAS61S7T8RcT9ka EfOB8CVTCuVEHAMGkaG6nwg3n5Iwf5XEwJoMjuF+wg/xQiczi4Gh5jVRQ4R/ HWRt5C9gIKettmKEsImIBsJKGJB10q4aI1y7LbiE7QUDA79FH48T3r2hS8yp hgE/ljeWVMKBqzY/oTYwsKQwdh2d8Ld50y2mrQys/0pNYBAup1BXHSFyxJIq Y5vvhLcN7Pcs+8RAH8+f3AnCXt2Ov0S/MlDqsq/vB+Hx5srrSWMMCFzgnZgk rF29lMxFJ/bP++PkFOFnxUdNfScYGPkZMDxNmDcr5P3sTwb81aRrfxIejOCr H2Ql6qjE/dgvwrk8mZ0zRO6IXjpPX7BrjEz/WiJ3JPqt85olfJTvNWXXeib2 n7RdM0d44yP9nwo8TLwsqQta8NDW4aX6W4g6capk/U04P+kmp812Yu52z15d 8B3BJfz3dhE5IZm3Y8GaqSF7Yvcysf1i9p4/hHl2bZUukCDq/qqay4KH07OV G6WYkJiyqV9wwR65E18OM/FCPI3970K9ZTWdmQbRB21t1RZ8TMzQcrUa0acO K7gumDdv1F5IkwkhW6+cBY9I3PKQO0HUlX7+hwUXFi4N1j3FxI3G3UvmCbsd DI+1MmLi8jEtoQVrlQiku5sQfWGvs8qCN8nkPYu6wIRdPLvpgkfLFKpzLYk+ 13fUccHP5Fpb668ycVHrfuCC3SuNP3y6yQQjekPigrUxPvKDyEmiXaJ5C+ar cZxYdYfIYbGclQsmKy+f307kpKkDvxsXXFL3kEPWl1j3bNe7Bd87soNXJ5CJ qwKv+has01ggdJnITf4PWYYWzK+puP9uJJErzFaNL5jS0q4QQeQkeUl2xoKf Hz+nmZ1E7MPhrRML9npDPf3qCTE3ta9OLXjrO/br3/OYuM0jMrvg0vc7/bcR OegZK/ufBet+VE45Xkfcr2epfxdM+2xa4ULkFEtO4vIJC4zE0Hu+EvdPdvp/ rU97t+0gMcfyf83/r///X1Qsn/s/m/7ZoTy99tvi5w/YTOx1hf5Z57v/fRH7 f17TX5zCWvfPLHc8Tsne+L7ouQyTvK/rJxZ9NTYvaH3tP5fu9WNfZ/tj0f9p 3hT1XDO56B6xjne3X/xzVgKEhk2mFm2YJ72O/+8/u3gne3zKnF50Bpk/bo3W z0ULeHFrrEj756htHMQ+//P/ABRYOKc= "]]}, Annotation[#, "Charting`Private`Tag$35613#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1], Opacity[ 1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBmIQHVOnc+X///v7GaDg3id3gc9fEfyE9GSfZ68R/NSA WUfOXEfw85Q4ts5cj+A3Hns81TgewV/GNzs8fd89OP/DPM7b52ruwvmrVopf aT58C863bbivkWdxA2H+9Q5uuV1X4fyjEskPNrNehvO/qn4XqK+/AOdPt6pI T2g7DefXax094at+DM6X3NT6cKnKQTj/v3TA3snZ2+H8eLYfPkm9q+D8tWn5 lmrLu+D8LxLzlt337YTzbU6fEZ75pR3OP6Ov9Y7bqRXOv/HxpOvjnfVw/jqd LMMvXilw/uzXnmc2n46F82/V7jetZwyG8y1Z9Zc/eOoC5wMAAmt9TQ== "]], LineBox[CompressedData[" 1:eJwl1nk0Vf3bBnChUj1KUSoNktIkSkSyL2MkIZKhQlIhURFChTIm85AhcxQS QoSMyZwKKSUyHWfaJWQo3u33/nXWZ+3vOevsve91X9cWC3u9C5wcHBxVCzg4 5j/lFkpk9A6qwvp8gj2jh1dhh5yNqL6YESaqRSe7X9opOOq7fqtxOYfVEutf c2g8VDAIqNjR8+0igp4G9Goqv1SQqeJ2nFS2Rb0LU86ktE1h2d80syXtVyHe VXivaLZfwS1a3TvKxwF1MqdCb02PKTD20zO3yjmh7ET72Jp/XMSZ1sC2XIYL djJ3jg/mrCSarSUmFBLcsDiLU1nqzkbi8MIPQk26t/E+mu+TooMYcUr3lXC2 pwf+qG74lkHfRyxPuP9i9IsnDno4ZbXcPETUMc4ckTtwFz8Kg0diOFWI23J7 P995cA+du/RHJpI1CRnfuct1Q95Y0mjEz1LSI9jtbbP/Kfri0M3O8LRgIyJd JCVUP8YPAVwBvqGEOWF61UE0dtQf5cF3lz/ZdYEQfK36svfYfcjx1cnkSl8m 2pat0RR7HAgppcGC1iPXCD/j4a9XZh8gTVLjl1P+DUIxo9i+wDAY61UetV+Z ciXcp1U9bxmFgFvrx/7+eA/CKPlZo/DCUGxb0l3Ap3mPOKCxRqA2LxQWL+XM fkT6EXzk7bOXTMOQzty82zj8AcGMHE5fuiwcvxXYBfZZoUT9Yd2fz16Gg5Tt /rVzJoJI6y+WO2EZAXXOH+cDah8SHgFb7o7xRaLF6IHMQoFHxJl9Ac3R5ZEY Omd903YmiZDtGl0tbxOF+MjSLv/yVELgzmmznjXR+BlyVKj5Uzrxc1vtE8+a aCzx2Ou2Ui+TaG7eMyp69SFeXHzumXEgh3jiEClfvyEGB5yCS7ar5hH31s/e u9wQgyz7VkOhrBeEedXF1uVOsfi3yeLeopNFxGGrd4L5InH4pCLuM6VSQqxd IXvO4F0c9nstEVHxKCPGCpMyJ93isWpngons4kqi7cySsbgdjzCmpPpYbLqK yOa6roCOR3BvHj05IVRLhB1kShg4JSBQxate60gd4XL5oshlwUSoqs4NdCfU E6aJvQKexYmw20J7e2lHE5Fi/exu054kNEsEh7cOthCRd+nup24l4ejhjee5 r7QRfo/EnPpaknD8Qv1bAe4PxJX3yVZ/7JKh9Rt+N4M7CHNGzzmvimSEaDWo bPP9ROgt3HCaly8F9jsKjB1SPhNqm41PPjRPQfzqVI/9/d2ErFzU8a15KeA6 llmEYz3Ebv2PR3IWpGJvz0YpFbteYtMVPkU5vVRYXhNR82juI7iTA/br/E5F c7qbeW/LAPHn1dvdX1TSILLmh42IwxBBb+fediEiDanBs3qH99OINp47gm7S j8G3bctif04mUSNSxrfI5zF8/twvElzDJooOTy0J7XyMyb/GAkKiP4n4qw5/ 053TcU3SkvuhzygRHJA7vq8+HasO7ePTf/+b8EpjscvWZiAwPKPgp/g4YdV1 qe9DSQZi1lo8jN08SZweTftydukTqCjesRYomiK0//vxkWbyBFtNN3JpnZsh pBTP1M3OPMHnsuWMv5OzxHaTmAp/rac44aR3wcuBA2sdO4sFHj3FI61/7xyc FmA2QzdrF5EJNrdFaW0yF35VPUgrDMoEz6yCyd9Gbgx0Nz5S/J6Jf620gvcL FqFxhVrIKY8siA8dNNwYy4PynV7+fW1ZaOiV+ub+dwlyVSq8bLdk41h6dqKW 3TJEOcvd8KrOhlv2kb1iXsth8V3cJIc7B52K/WEGZatgMGWjL2eQA+U9f5ZJ 5vNDg/+JVu3jHCQZDrg05AlAXF0EX448R9ePwbAT79ZA+JyZ7IXo5yhiuh96 xxLEKrf4fT+Hn0Oec7Zpp+A6uBsuW3VXNReONAN64n0hOA08Daq3zYXohl4L /U8bYH9NY9nyyFy4iro+4pfYBIv73twxg7n4MLdNbcZTGBoVcxM5PnkYE1PU X52+FYkKbgKn8vPw51m1lEK4KCZKJ/b9+5aHaya8Fpz+25BWzLI9Jp2PLTNP rNSCxTAjYx0wap6PkGRauHTSDugVDmTEBOaDMCvOz3i1Exz53T+G+/PxePjO grn/9sBQ0pAjeMULeCl7vD6jJo6cnA8bZeRfoGZxp5+4316cyWowuhf2AoeL pMb5oiVRkvayVVipAI9c15jv8pQC31Yp5ltbyk1Vu1I0D8AqOWeJ/cMC9Ag/ EzdcL401CY9Vy8kCxKVMcnO2yOB6dPgr44RCiMzlOUnePYSG1Su6OBoLQaaU vLP0kodwRMB4xnghwuy4H476HUZriKfkhFYRor/aVT7PJrArwD49bKYIsgff SFx5qgRPHkaNnNhL8Fj3v/bQUEaXz8W+Xr2X0Lxwdls3Qxk+d89ukMh8CfPA RTyFUMUP92NhTUbFiH7TKiO/SR1yM3XPr98rhhLLT7O6Tx0hN5Vb1uUWY2ph ArdMpgYIJzkeq8UluM53qlBOUxOx9mK3uYtK4K7S/E6w4Th+sVLisvpKsHhX bKJVkTY0bDeV6PG+whLtS7sMn+pgwmr1WJLlKywK/RF/oE0XehZcNgr8pQgy 2u03QdfD097bvgNEKWQvm+45fVMfHGbTafdtSlEpwopnLj2JnNO/vn+uKsXZ Y2YX6g4aYJnBdwOnq2VIYEs8eFZiCKNS9/Un4srgkV0pmGtmhPQt67/vrivD 85kumS1LjKHIPmnVJ1SOg6H5l+9cNIGjb6Or1tty6Bb3CHpqnUUV6xLERsvh 1agheXyFKZafXMjNufE11NZ95Kd3mOKpsOKDl9dfY8vGvcctD5qjp6QwUWRT Bc4923+BoJ3DbmF9y38aFRjzir8RY2wBF5+fO7ocKjAc6y/E12IBfv3d+Q8a KhA8vcLA5tV5iDrpWrgfqkTTobem959fgPGKOsfhwUoMKMXeMV1iA49qgU8n ZypBrhc6Gp5og/Qb5+Wq+apQ/OpjnI7sZYx1c8zGy1fh7uxIjes1WwQ9kffV C60Cl+lctRmXPQpOB4xUpFfhrNBu7cgce3Qv/3xMvKwKuyJSL6jtvYodN5z4 eIarcEJpdKN171VUK+XFlB+uRtDrdKVWg+ugjc3N7NKrhq1FqWdL0XWseKJt +vBSNfL2lSUcXeeAM8uZIg5h1QhfKcP39ocD/nzZnr2DVo11m4ULFPxuYI9j /Ovw8BpwRhaOGwrfxJgRr1NwRg0+HHhwNyTsJsoUbovfL61B8fOOVvVFrji2 2Dzeq78Gqf91fSNGXWETu9X1mlQtgibLu9O+uuNpZaa0zsdaqJv/K19wxwNX HwuxNIdrsX/4UllzrQdkAwLTjszUolGH9739Mk/U69vxE1vfIIRT2EU1zhO0 oX2/9ji8QXQhr7X+Gy9s5y3JXspfBxvnsx8vqHqD/Wun5SKxOgg0VQddeeiN os5YIU75OrhMup27yPKGWpJ7wJRFHWgtZPC+WB9YSila0fLrcHkl+o3nfJFq /HZrnd5bnKKfi9WdCoBwekesZ1g9svsS+U27QxDFVSiy90k9GI6Rlb/Wh4L3 XETml/J6fDze6CN5OhTTQvqvpEbqEbemRfnFt1B0hLZ9HkQD1K1XxdHoYQi4 1bRWk9WA4jNvFejbI8HRnZk0wdmIFAPG/tRrkXCWDdiRurYR76STo9ZQvcby t4bsX5VGpCYsuSx5KgqwrjPMiW2E9O6gy5qh0Rg7WRW1SqMJxFmbh0O7Y2GT n7Sp4mwTJO/szi70ikXfCo/0yw5NOCz8tvf4l1i0NhJFtQlNaLr5UuHb/Tg8 VSzrcBpvwkDv0IOQyXiY7nkp0J3SDK8dQXX/TSWinutZWOq/FiRe4GQIa6ei NyzHvmdlK14u23dS5G4qJrfkaq3b3oquOZdfPsWp2KH4YlGwdiuYH3QXuomm wde9xNU1sRUjDx6KCC54jCPjbyxOKL1DflqdsEVLOiwc7GPuKLfBwa9hCgVU bh76ufiRVhsC6a9XyU5kwpXzmtOrU23Q0BrVjZfNQljodf1xmzaYNLXJZL7O QtXzG7yXw9tw2nnk9I932RBmunmeGmhDsG9MwZ9Fz/Hd0s9a3Oc9QsY6+mIG 8lBtpai4NfQ9enmjfWgr8pFuO7lmXfx7yAWfCHGVz4eto1Utd/57nK7WIKzD 8zF9V2Pz12/vYdBr3u1w5AUEUnk6AqQ/IK6A76h+SQE0+/wUaQMfcKOHrtj0 4SXEBxUFe8gP8FevycpbVAy+kUnWx+kPWDJTz/52qBifflrFVfB9hGBx1i6e tGJYchydiDr8ESmHnGPTbpbgzuYl2WoRH3FEdyyXe38pCs76C6aqtONO6IvD np9eI7J7SdcF7XY8NEy25+evgJNxwMMdxu2oOpRoNqJdAVmD++ty7Noh0xBg Yf62AqVaD4RKYtphec9gW/nZSlTLh25+R7aDpbrqzG6jKrStixGbieuAHbet puTFGjA6nhzUH+tEacPad28G3iLe9pXI2dlOlG0XLzzMUw9trmbeSzyfYLbm yJfW3fXIlST7XTd8wuFrB9JVHerhdF86JEX1E8KvZsc5cjWAU6ma9iviE95W 2gl17WjE+uzumBDpLoj91uCT9m3GUa/lf1ucPmOk4bP/VF0bPFVVWi0kvuIG JmUiGjrRe+i1anVJDxYW5q/p7PmKE11Za3LievH3ik7Vudt92Lypd6XfeB9u 5XJqD5YMgOP2QTN12X5sKzr/uc9rGFk3/UJeK/RjyajzWrWgYZy68blKWqUf XWn36pJjhvHM1k1UVLsf9JxabfXcYZicrhjhsOyHrmeAuPK3YRTIqju+Cu6H yqJV+ClNw6Xfp/zFh/vx2KTWcaqPhlYrpxf8UQN46TQhqLOVDpfkLONrcQNY XJlzMHMPHSJfeudakwaQvl3w5j9pOpyOHdMKyBpA3Utz3UANOjbtFR7kqBpA VNeyXs0rdNj9bljDZgwgGTQJjUI6lt/e6FqvNIgt1iXCe8BAcZGe8Hb1QZwL rAu5p86ABelbd1drEG1VWqXtOgwUmY+uguEgFnCMy5wxZ8BU5W1Woe0gOq+6 Bi32ZCCH59q3lOhBLCqWFG6tZEA7vFbxFmsQxp0nBFceYsLcSNn99ugguMqm jvQqMnF9Y+XLO38GoX9QfssTdSaiM0r3ei0YAq9OefsWAyZ6S/M3+K4ewlal vAPl9kw4DCRNhigMgd/Zaig8lYmH0rdy0x4MUb1Ic6BmIQuZ09OMx2FD8Phv We+TZSyUVbiIZUQPwdRra5TPShb6jjomPE0eQrzZCZk9G1nYZXo5MKdwCDmJ bZeFD1DnfYytir8NoWb8+NQzc+r8J2nhZvFhmGb+p2VTwMJm+XfBclLD6Ht4 0KejhIWzCVZz6bLD6Ex2cZWtYOGzZVyPp8owdnM5Jww2sPD+F8ejg8bDSCzg O/Cth4WqZc3rUu8NIzOoqlJ1MZt6Dxb8rt3DEM8MurNSj43vKTNew73D4JKo veR2io2NiyJHTw4NQ0eo4ME3EzZimt++l/g1jLwzkekB59kINRYPGVxEQ1tY eYyfIxueDpP/ndhPQ3O7iuDaSDbOZQQt2uFPw5mb1lrZbWzwRF9dJhdEwzXD 20qsj2zk+OjxaYbTsHqjLt+OT2xMX1iz3vYRDUazz3Tuf2MjQjRBPDePhpN/ XId46GzUJT87KfuFum6qIjC4gIRtaLDx0e80qL2fXl/HTWKV5zVTkwEapFfG 6iYvJmFmLm3lzqahOui16RFeEpObyt0qOUfAUJFNPbaWxK745hSN3SPolHlf qy5Oou1+ToaxJHV9V7pZqwQJJ7eQbBvpEfjklt7T2U+ixuRkUSBGsD1L3lvp IIkz6742tOmPgKQ/WTioSCI4ivHTyH0EYv6nVSX0SYyFLIV1ywja1IyjZxxI xJS3FZt/GIHig4evO26QIOhR+40+jYDwvnk+y5mEn8rW7ep9IzDXFiaOupHY MCHPu218BEPkne86XiTUTl/p7t1Ax8Kf2BgUTILuK2XQtYWOk91joyKhJEIK plrfbaej+cKBjBdhJL7w+lS/lqTja25dTX0kCbvKhKfxqnS80E10qY4jEbWt zdnIlo4DsfoSU+kk5PWifulco8Mq50CL9hMSvbfPXFZ3okPi4fuspKfU8+qi mcp40JFV2q0il02iImDBEYEIOkJv3LxP5JGgkfsF2kqp78srf0l4ReLBhqkH byvpkJpuv1BaSmL/0YrFFW/o8DnnENFeRsI95djMs3d0xL3T/v33NQk+A8sf 9/vpUONOtNheQ0LuVWSu+jIGzu/6dbqvkcRSb2fTLD4Gzg5H5PU0UfenY/zf ijUMGMkn3etqpn5vcINVpzAD25Myq6paSVTypW2+IMMAaw+n3eUPJEK7vVvq 5RnoELjsffwjCYv0S257lBhIMD9ruKedBNfh3Z9+H2NAVG7n0d4OEkcu5Qd5 nWNAR977oMhnEoL7Iw4PXWRAaYfbBJ0y7e8N+lFbBkJjRLJzv5DwD5M7stKZ AZPzquukvpJoLq/8lxjIgKLz7waB7yT0BN7Zlr+kzvO8Yp4YILH1e+76LeUM /O0z8WNRHnsaVn+vmoGFPArBPoMkInFKVKuF2mtyG2Zyh0h02Xzr/vKDgaO8 h/hoNBJPpSv8CRoDqs3cTfYjJFw5kg+msBiYdlm1c5yyUJRluPUkAysyHemT dBKmVQzNSV4mXgxLKA0ySUgEtkye5meC9N3UYcIiwWH4PL1iLRNtoYHKrZST mdc5fbcycdvbsTaHTWJAcLpktRwTXysiNhj+JGFjx7NTypIJzjbeWs3fJFLf 7Lc9ZM2Empy8ShzlrxvOPleyY+KqEfdhOmXtpjxpXRcmFJ4q59wdo+Zhx2nl K4FMTCd3bHo8TuLyHW9vx1Am3lY4jY1QTut8Xu8WxcTe9Gc24hMk1nhz6wQk MSEx2HYsl/JM37PTGQVMDD+ePp/+h8QBua6EnBImpi4FVPVStgvh/FH4monL ox0D6yapeSYMrWrrmUhbnRrkR7k2juNG31cqF5odGYZTJP6N7iqm9THhGev8 24+yjKbBDDnERPKiqwPFlJ9MPvWc/cnEggr1sNXTJAIN9IOEqL3/rm8irJry m+xb70WWsmBSr2zEoDzL9URg1woWBJ3LxPhnSFzN/xsru46FQ5Gy42aUDVak ZxiIs9A1fbOYTTnoYhv9zH4W0g0jFPj+kqgvnxa3PMiCvBYHU5LyIVudgutK LKjolX+0p7ypYbIy2ICFJnc36QHKhsJbuaNNWFiwarntHOUQ5+PqCWYszPKP 0tb9I8G5PaUl25qF1fV+NVqUh7yOfWm4xcJ64X8mmZQ3f7mx8b0XC/4ellsr KRvtSzLv8mXh2SemVgflxu9jQ0OhLFxs2Nz2j/Lzwwm/udJZoNeeYqvPkhDY P2DjnMWCQvsFLxPKLmK7ftBzWXBR/eliS1l5VVHb+1IWWuWU4oMoZyz+q65W xcKbwuNtCZT/+6dUUVzHQs2tczdyKHcOtzxLfM9CgWGKcDNl+W/82/g/sbCT P1/8C+WkD8bxPl9ZcLILKhmmbF0+GHBlmIXdHSMmC+ZI/A37d0n+HwvX+DZv kqB8zk/lew4nGxeu9rjJUa675X9KhIcNtT0p11QoB1utVlvCz4b8MprkKcpj Z0+Xua9lY7OoKIcZZSP9ZKmfG9lwCum6fomyCCEu8mkHG17l0cedKftKOcRo 7mUjv2T61W3KzB0lfK+l2JAI8en0plzIrzaXRrARyaEqEk55/ZL7TmtV2Uhf d8UwhvLt2TbW/aNsaG7OUU2krDFy5uv1k2x8PNmvm0n5WU+K/pAxG1M+9o7P Ka9qpzUam7FhU61iXEC5+7VjiaING39qr9uXU1YseCVZYM+Ga8Tix1WU055y PBG7wUZSrFHaG8p2EYFRyz3YsNotytNC+aP/B14vbyq3H7hfbaMse2et93gA G4/HtTI/Ul5gk+bwlcr1pE2RMZ8pXzSj03Xi2DCMCtH7SrnxpKRFTRIby54s G+ihHIEy3cwsNgYal0f3U546wFm/MY/K/Zbq0kHKprs0EFrEhpyLdsUw5erN QUXcZWz0/d2TOkJZbHW7uEsVG74c76wYlAOXrn/MqGODMz92JYvyzzmzDWbN bKz8wUhgU35FZyw9QvUIzgoT21+UN/fu8yr5ysZXwX85o5TvdThP7fnBRqHb 3u7flEcay68mDbOx5fza0THK2pVcNH4WGxPeX8bGKb8oPGrmO0r9/z8BAxOU 12YFd07/YcNfTab6D+W+SKE3fZwk3hZ5HJuinCOY+X6S6h2xXHOsebvHyPas oHpHkt/Ke9OUjwq9pW9fRe29E3bLZyiveWTwR0GQRFlR7YN5928a4DLYQOKl SznnX8q5Sdf5bLeQ1DxPX5n3LZEFG+9up3pC8tq2eWumBe+M3U1C2DJ75z/K gts3yeRJUnvxiprbvAcyspXrpak9P277Zt55O+V1vh+inpNEOs/s/LxlNZye ANVr7OzU5n1M3MiKV43E9UMK7vNe+3zIUVSTmnO7e8/mPSh5w1Neh5org9zP 887P5wrSO0mdrxdbMEf5zoGwWGtjEpeOaYnOW6tIOMPDlMTq3a4q814n+/xF 9HkSDvE8ZvMeKlGozLGi9lz3Ued5v5Bvbn5zhYSl1v3AeXuUm3z+ep0E++Hq xHlrY2TwN9WT9rbveT5voSrn0aW3SJyO5SufN0150dwWqieN7f9bP++i2ohl cr7UuRfbP8777pGta3UDSVwRrumet259nuglqjf5RXD0z3ujpuK+21FUbpkv HZk3valVIZLqSYeleNjzfnn8rGZ2EvWeDm0anfe9d4xTNY+p3NS+Mj7vTR95 rv56TsJZcNf0vIs7t/lvpnpQPifPv3nrfVFOOV5LzeWLtNl5M7+ZlbpRPcWa j7p9ysKDMaxPP6gckpv4nw2YHzcfoHIsf2ruf8aBTt86Klf85/7f/wd+qWsB "]], LineBox[{{1.000637755102041, 1.}, {1.00886769729576, 1.}, { 1.02836088664397, 1.}, {1.0478540759921802`, 1.}, { 1.0901425648697227`, 1.}, {1.1296107149487955`, 1.}, { 1.1723809752089906`, 1.}, {1.2143717129972469`, 1.}, { 1.2535421119870334`, 1.}, {1.2960146211579422`, 1.}, { 1.3356667915303813`, 1.}, {1.3745394394308814`, 1.}, { 1.4167141975125037`, 1.}, {1.4560686167956565`, 1.}, { 1.478034287989665, 1.}, {1.4999999591836735`, 1.}}]}, Annotation[#, "Charting`Private`Tag$35613#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \ {}, {}, {}, {}}}, {}}, 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]], 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->NCache[{{ Rational[-1, 2], Rational[3, 2]}, {0., 1.}}, {{-0.5, 1.5}, {0., 1.}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.793723829381016*^9}, CellLabel->"Out[11]=", CellID->679811433] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107571], Cell[TextData[{ Cell[BoxData["GeneralizedSmoothStep"], "InlineFormula", FontFamily->"Source Sans Pro"], " can be expressed in terms of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["BetaRegularized", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/BetaRegularized", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Clip", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Clip", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7937226604812937`*^9, 3.7937226635172005`*^9}, 3.858361798744735*^9}, CellID->181347585], Cell[BoxData[ RowBox[{ RowBox[{"gss2", "[", RowBox[{"n_", ",", "x_"}], "]"}], ":=", RowBox[{"BetaRegularized", "[", RowBox[{ RowBox[{"Clip", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"n", "+", "1"}], ",", RowBox[{"n", "+", "1"}]}], "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[12]:=", CellID->598989155], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"n", "=", "4"}], "}"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"{", RowBox[{ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{"n", ",", "x"}], "]"}], ",", RowBox[{"gss2", "[", RowBox[{"n", ",", "x"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{"3", "/", "2"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "4", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}]}]}], "]"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[13]:=", CellID->601214233], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[4], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF2Xk0VH/cB3BJpfwqRVFSkkoiSkSYtzWSJJKlQkohaSGEsmTPXnbZErIT siRLyB5FlBLZxqwlJCrP9TzP0fwz5zXznXvu/d7P+Xze98x282u6FqwsLCy0 JSwsC+9n74p2zc9/qWL5/1f/hDrnj6l/Nrt8QWuU+s8WOrF1rT3/bCvIXhyT 988eDUMRkqb/nLYmzuDyy/5Ff0tY2dfu+nnRmU95uu69+rhoBfcvwrYyvf+O 3+PHsbW8e9H1vBcGni17t+ipnT853dw6Fh112OmymU/Lot1E6huP725Y9KZC 78EnQjWLnufTqXxw5fmiTZfPaJkHZS4659I12V3pAYue5E1I+3Lcf9HyLa1c MZO+i24VF2FwKHsvuvd7k9pQmduic0Wt909qXlx0HPVo67OWc4v+eKdKym2J 3r/95105c+rHjQpnk/qMTCdL+TeRVXwK5Zo44YPvTP89CsKy1kJ6uw0xVSs0 0/fcVsFez/nzK6fz4BLf/JJFI1pBP6BKuP/zJQQ+DRjQVH6uIF3DZj+jbING J5qscUWHAsfvVNOVXdch2lvsVfJ3SMElSt070scO9dKnw+7MTipQD1Ayd8g6 oPJk1+TGP0tJZ9sDO/KpTthD2zM1kruO1GolPq2Q4IIVWazKkm78JPllb/la dO7iTRRnj6LdbtJpnXKBbA93/FTd8jmdsp+0JuH+s4mPHjjk7pDVdvswqYF6 9ojswXv4WhwyHsOqQroru++DW5AX3ovojU8na5KkfeevNIx6Y2WzIRddSZfE 6Or4+5+iL2Rvv3+QGmJIShNMCdOL8UPg0gDfMJIZyeS6nVDshD8qQu6tyRCx IPG8VH0+cOw+ZDgbpPOlrpA6ODZq7n4SCEmlkaL2IzdIfkZjn67+DUKqhMZ3 h8JbJMX00mtFBiHYrPKo6+ovZ5LrrKrHHcNQLNP6emAo3p1kmJzTLLAsDDtX 9hVxanqRDmps5K4rCMOF57KmXyP8SJzMu+cum4TjCW3bXqMHQSRaxFjaKo4H mFBgFF3LCiM1yut8y3n+AAyZvu975h6SUodKZU9efAh11q8XAuqiSe4B2+9N ckagzTBIehn3I9LZ/QGtUZURGD1vddtmLokk0zuxQc46EvERFb3+lY9J3G5n TPs3RuFb6FG+1p400reddRker6LA4b7PZZ1uJqm1VXRC6Ho0Ci/leaQfzCVl 2EXINW6JwUGHkLJdqgUkr81/va40xSDzWrsBX9YzklnNpfY1DrH4vdXca/mp EpK85RueQsE49KiI+fxSKSPxrpU5r/8mDlKeKwVV3F+QJouTMmdc4sG1J8FY ZkU1qePsysk44Uf4oaT6ZPdsDSl76U0FdD+CS+vEqWm+OlL4IZq4vkMCAlU8 G7WONJCcrlwSvMKTCDXV+eG+hEaSSeIAt0dpImy3k19fFm4hpVjl3GsRTUKr eMiD9pE2UsQ9iuvpO0nQkOe/wHa1g+T3aLfDYFsStCwaX3OzvSVd7Uy2/Gmb DO0f8Lsd0k0yo/af96xKRqhWk8pO3x6S7rItZ1ZzpsBWuMjILuUDSW2b0alo sxTEbXjsfmCojyQjG3l8R0EKlh3LLMGxftJevXdHcpc8xr5+fkkV2wHS1quc irK6j2FxQ1DNvXWQxJYccODEj8doSXMxG2gbJv0sf733o0oqtm/8ai1oN0qi dLHttHiYitSQv7ryB8ikDnY3HhepJ1i7c/sKf1Ya6ZXgC87lPk/g9fN+Cc9G BqlE/tfKsPdPMPPbiJtP6Bsp/rrd7zTHNNyQuMgW7TNBCgnIn9rfmIb1h/dz 6nX+IHmm0hkveNNx/0F60TexKZJl7+XBt2XpiOY1j47dNkM6M5H68dyqDKgo ullxl/wiaf/39R3ZOAM7TPiXap2fI0kqnm34O5eBDy/WUH/P/CXtMo6p8td6 ipMOuhaedizgtX9fyv3oKRK0/ryxc1iCv+k6WSKkTDDYzCvqkpfie01QanFw Jlb8VTD+3cyG4b7mR4pfMjHXTi7qXLIczWvVQk+7Z2Hf6CED/lh2VO7x9B/s yELjgORn198rka9S5WmzPRvH0rITtWw5EOkoe8uzNhvO2Uf27fZcA/MvYsa5 bLnoURwK13+xHvq/rPVk9XOhKPqTQ6KQCxpcGVp1T3KRYDDs1FTADTF1QXw8 kocPX0fCT77ZCIHzpjIWUXl4TnM9/IbOg/Uu8fu/jeVBjvVvyx6eTXA14Fh/ TzUfDmR9SuJ9PjgMPw1utMnHri0D5no9W3DthgbHmoh8uAo5P+IS3wrz+95s MSP56JzfqTbnIQCNqvnpXJ8C/NitqLchbQcSFVy4TxcWYDqnVlLhgRCmK6b3 //lcgOvGq81Z/XcitZRuc0yqENvmMizVQnZjTtoqYMKsEMHJ5AdSScLQLR5O jwksBMm0tDC9fA9YCvu+jg0VIm3Mbcn8f6IwkDBgCVn7DJ7K7i/PqokhN/ct v7TcM9SveO8n5rcPZ7OaDL3Cn0G+RHKKM0oCZanP2wWUipDgvNFMxEMSnDsk aa9tivCopUYkRfMgLJNzV16LLkK/QI6YwWYpbEx4olrJLEJ8ygwba5s0bkY9 KDdKKMb2+QIHiXuH0bRhbS9LczHoKWVvLnrKQeBhwFT6VDHCbdmiJ/zk0R7q ITGtVYKoT7bVedkkiARcSwufK8GhQ/XiV58qwYOd+kp293OwWw29dNdQRq/P pcEB3efQtDi3s4+qDJ9757aIZz7H+cDl7MVQxVfXY+EthqWIrm+XltuqDtm5 hrybXqVQpPtp1g6qI/S2ctum/FLMLEtgk87UAMlBlt1yRRnsOE8Xy2pqIvba 7rtsJWVwVml9w9N0HN/pKXFZg2VYLhKbaFmiDQ2brWW6q8uxUvuyiMHTE5i2 3DCZdLEcy8O+xh/s0IGu+VJrBa4KBBnu9Zum6OLpwF3fYVIFZK6YiJ65rQcW 09nU+9YVqBKkx9NWnULume9fPtRUwOSYqUXDIX1w6H/Rd7j+Ao8Y4kE5ZQYw rHDdfDLuBe5kV/PkmxoibfvmL3sbXiB/rld6+0ojKDJOWQ7yVUImrPCK2yVj 2Ps2O2u9roR2aT+Ph9Y51NAvY/dEJe42a0gcX2uCNaeWsbHyv4TapndclG4T PBVQDHp+8yW28+87fvGQGfrLihMFt1bBPOeABYl8HnsF9C7+0ajChGf8rRgj czj5fBPutasCOdafj7PNHFx6ewuDmqoQOLtW37r8AoQcdMxdD1ej5fBrk/t5 FjBa22A/NlKNYaVYN5OV1nCv5e45NVcNxma+ow8SrZF264JsLWcNysvfxZ2Q uYLJPpa/8XI18Po7/sr5hg2CM+R8dcNqwGYyX2u69BqKzgSMV6XV4AzfXu2I 3GvoW/PhmNiLGog8fGyhtu86hG85cLKP1eCk0gS/1cB11CoVxFTK1yLoZZpS u/5NkCfn50R0a2FjXuHRVnITazO0TaIv16Jw/4uEo5vscHYNTdAuvBZh66Q5 X3+1w8+Pu7KFybXYvE2gSMHvFkTt418+ePAKrBHFUwYCtzFpuNohJP0Vug4G 3QsNv40XCnfF7le8Qmled7v6cmccW2EW7zn0Ck/+6/1MmnCGdewO5xuSdQie qexL/eSKp9WZUife1eGI2Z/KJW7uuP6Ej645Vof9Y5dftNa5QyYgMPXIXB2a T6zuvMbhgUY9Wy7SjnqEsgo4qcZ5gDy6/7uoXT0ii1db6dV7YtfqsuxVXA2w djz3zkLVG4zvey4u392ADS21wVejvVHyPpaPVa4Bt2dczl+ie0MtyTXgl3kD yG3MkP2xPrgoqWhJLmyAzToMGc374rHR6x0Nuq9hQDkfq/MrAAJp3bEe4Y3I HkzkMukLReTSYsF9GY2g2UdUf98chtXnH2Z+rGzE2+PNPhJnwjDLp1cuOd6I mI1tys8+h6E7rOPDCJqgZrU+jkwJR8CdFl5NehOen32tQNkVAZa+zKRp1mYk 61MPPL4RAUeZAOHHvM14I5UcuZHINRd/aMj8VmlGSsLKKxKnIwGrBoPc2GZI 7Q2+ohkWhclTNZHrNVpAOmcdPbo3FtaFSVurzrVAzG1vdrFnLAbXuqddsWuB nMDrgeMfY9HeTCqpS2hB++3nCp/vx+Gp4otuh6kWDA2MBoXOxMNE9Dl3X0or vISDG/77lYjGpTnhj/+0IcGClSqg/RgD4bnX+te1o4Rj/ynBe48xsz1fa9Ou dvTOO333KX0MYcVny0O020F/q7PMRSgVvq5lzs6J7aAGRQvyLHmCI1P15ieV 3qAwtUHAvC0N5nbXYtyUO3DTr+kXioi5efjbikdaHQikvFwvM50JZ9YbDuWn O6CuNaETL5OF8LCbelPWHTBq6ZDOfJmFmrxbq6886ICh4/iZr2+yIUBz8Tg9 3IFg35iin8vz8OWin5WYTyfCJrsHY4YLUGupqLgjrBMDq6N8yGuJuWEzs3FT fCdkQk6GOssVwsbeso6tsBNnazVIVg8KMXtPY9unz504PWDWZ3fkGbgfs3cH SL1FbBHnUb2yImgO+imSh9/Cvp+i2PL2OcRGFHn6mW/ho/4qq2B5KTjHZ+jv Zt9i1Vwj4/PhUvR8s4yr4nwH3tIsEfbUUlxkOTodKf8OyYcdY1Nvl8Ft28ps tYfvcERnMp/tQAWKzvnzPFbpgnvYM3mPnpeI6FvZa6HdhWiD5GtcXFVwMAqI FjbqQu3hRNNx7SrI6N/flGvbBemmAHOz11Wo0AriK4vpwiUv/Z2V56pRKxe2 7Q2zCwzV9Wf3GtagY1PM7rm4btiy2WhKXHoFanfGIb3J96ho4n1TP/wa8Tbl guf+vkf5LrFiefZGaC9tXX2ZvQemG498bN/biHwJ5pDzlh7I3TiYpmrXCIf7 UqEpqj0Iv54dZ7+0CaxKteTvD3tQX23L1yvcjM3ZfTGhUr3Y/UODU8q3FUc9 1/xuc/gActMH/18NHfBQVWk3F/+EG5iRftj0HgOHX6rWlvVjWXHhxvf9n3Cy N2tjbtwAfl89UXP+7iC2bR1Y5zc1CNd8Vu2RsmGw3D1kqi4zhJ0lFz4Meo4h 67Zf6EuFIayccORVCx7D6VsfaqRUhvAh1ashOWYMOTYuQkLaQxjPrdNWzx+D 8ZmqcZaLQzjpESCm/HkMRTLq9uUhQ1Bavh7fpMi4/OO0v9jYEJ4Y19n/GiSj 3dLhGVfkMEocpnlO7KDAKTnL6EbcMFZU5x7KFKVA8OPAfHvSMDJ28dz+I0WB w7FjWgFZw6h/bqYTqEHB1n0CIyw1w4js5RjQvEqB7Y+mjQzqMFJAFtcopmDN XX7nRqURCFqVCYiCitISXYFd6iMwD2wI9VKnwpzp23BPawSdNVoVXSeoKDGb WA+DERBP/tJnzagwUXmdVWwzgvfXnYNXeFCRy37jc0rUCJaXSgi0V1Oh/aBO 8Q59BIbvT/KsO0yDmaGy692JESx98evIgCINN/mrn7v9HMGpQ3LbM9RpiEqv 2Oe5ZBT/najs2q5Pw0BF4RbfDaPYoVRwsPIaDXbDSTOhCqPgcrQcffCYhmip O/mpQaNo3qA5/GoZHZmzs9Qn4aPw+I9jIIODjhdVTrvTo0ZxznNHpM86OgaP 2ic8TR5FvOlJaVF+OkRMrgTmFo8iN7HjisBBYr2PkWXp51G8mjr+K8eMWN8j JdAqNgbTzP+0rIvo2Cb3JkRWcgyD0Yd8usvoOJdgOZ8mM4buZCdnmSo6PlyM 6/dQGcOepY4JI010dH5neXTIaAyPijgPfu6no4ajddNjL6JugmuqVVcwkAxz Lue+MYhnBrut02XgS8qc59jAGFjE6y67nGaAf3nExKnRMejwFQV9NmYgpvV1 p/j3MRScjUgLuMBAmJFY6MhyMjrDK2P87BnwsJv57+QBMlq6VHh4Ixg4nx68 XNifjDO3rbSyOxhgj7rOIRtMxk2Du0r0dwzk+uhyaj4gg4tfh1O4h4FZi42b bR6RYfQ358T9zww8FEoQyy8g49RP51F2CgMNyTmnZD6SYWCiwj2yhAmbsBCj o1/IUOuc3dzAxsR6jxsmxsNkSK2L1UlewYSpmZSlK4OM2uCXJkdWMzGztdKl mnUcFBWZx8d4mRCJb03R2DuOHunOOnUxJjru56YbSYyDJpJm2i7OhINLaLa1 1Dh88yu8Thxg4pXxqZJAjGNXlpy30iEmzm761NShNw4mJWPZiCITIZHUb4au 4xD2P6MqrsfEZOgqWLWNo0PNKGrOjomYyo5Ss7fjUAqKftl9iwkSJfKAYc84 5L1vX8hyZMJPZccu9cFxmGgLkI66MLFlWm71zqlxjDLdvpzwZELtzNW+gS0U LP8G/uAQJii+kvq92ynQ7ZucEAxjIrToV/ubXRS0WhxMfxbOxMfVPrUvJSjo y2941RjBhG11wtN4VQqe6SQ61cYxEbmzw9HQhoKDsXriv9KYkNON/H7iBgVW uQfbtDOYGLh79oq6AwX7ojuzkp4S+9VLNpF2pyCnok9FNpuJqoAlR7gfUhB+ 6/Z9UgETZOYB7o4KCi7LKX9MKGciaMuvoNfVFEjOdllUVDBx4GjViqp6CnzO 2z3sesGEa8qxuZw3FMS80f7x+yUTnPoXv94fokCVLdF81ysmZMsj8tU5iD4g 8v3MYDMTq7wdTbI4qTg79rCgv4W4vhNG/63dSIWBXJJXbytxvJEtlu8FqNiZ lFlT085ENWfqNgtpKpiirLZX3jIR1ufd1ihHRTf3Fe/j75gwT7vsIqpERZLZ OQPRLiaWyu/t+XGMih2ye44OdDNx5HJhsOd5oo/IeR8S/MAEz4GH8qOXqFAW dpmmECb/vkU5akNFSIxgdv5HJvzDZY+sc6TC+ILqJslPTLRWVv9JDKRC0fFH E/cXJnS539hUPqcilL2cdnKYiR1f8jdvr6Tiz6CxH53w5NPwRq9aKpayK4T4 jDARgdNCWm1UFMhumcsfZaLX+nPfx69UaK4+zEkmM/FUqsqfRKZCtZWt5do4 E84syYdS6FTMOK3fM0WYL/LiA6sZKtZm2lNmKEyY1FA1Z1bTUDgmrjRCY0I8 sG3mDBcN33y3dhvTmWAxyEur4qWhIyxQuZ1wMu0mq+8OGu5429flMpgY5pkt 2yBLw6eqh1sMvjFhbcu+R/IiDawdq+s0fzDxuP6AzWErGtRk5VTiCH/aci5P yZaG64Zs8hTC2i0FUjpONCg8Vc69N0nUg/AZ5auBNMwmd299MsXEFTdvb/sw Gl5XOUyOE059n9foEkmDeFqOtdg0Exu92U4EJNEgMdJxLJ/w3GDOmfQiGshP Zi+k/WTioGxvQm4ZDTOXA2oGCNuGsn4tfkmDzUT38KYZop5JBpZ1jTQ82fA4 2I9wXRzLrcFPNJxvtaca/GLiz4RIKXmQBo9Yxx9+hKU19eeYozQkLb8+XEo4 Y+apx99vNLBUqYdvmGUiUF8vmI/o+x2D0+G1hOuz73QKrqLDqFHZkEr479IM bpG1dPA4vtjNNcfE9cLfsTKb6JCNkJkyJay/Ni1dX4yO3tnbpQzCwZc6KGcP 0JFu8FCB8zcTjZWzYhcP0SGvxUKTIHzY5kTRTSU6VHUr310jvLVppjpEn44W VxepYcIGAjvYoozpWLJ+jc084VDH4+oJpnTMc02QN/1hgnVXSlu2FXE+jX6v tAiPeh772HSHDj6BP8aZhLd9vMXf6UmHv/vFHdWEDfcnmfX60pHTQ9PqJtz8 ZXJ0NIwOi6ZtHX8I58kn/FiaRge57jRD/S8T3AeGrR2ziPPtsvA0Juy0W+Qr JZ8OJ9VvTjaEldeXdHRW0NEuqxQfTDh9xW91tRo66ouPdyQQ/u+PUlVpAx21 d87fyiX8fqwtJ7GTjiKDFIFWwnKfuXZy9RBzk6tQ7CPhpLdG8T6f6HC0DS4b I2xVORJwdYz4vnvceMk8E7/D/1yW+0PHdc5tW8UJn/dT+ZLLyoDF9X4XWcIN d/xPC7IzcEQ05YYK4RDLDWoruRiQ5yBLnCY8ee7MC1deBrYKCbGYEjbUS5b8 xs+AY2jvzcuEBUligj3CDHhWRh13JOwraRejuY+BwrLZ8ruEacJlnC8lGRAL 9XnvTbiYS20+lUTMNRZVwQeEN6+878CrysCTTVcNYgjf/dtBv3+UAc1tuaqJ hDXGz366eYqBd6eGdDIJ5/Sn6I0aEXPS55p9HuH1XeRmI1MGrGpVjIoI9720 L1O0ZuBn3c1rlYQVi8oliq4x4PxwxZMawqlPWTJ232IgMdYwtZ6w7cPAyDXu xO/3CrG3EX7n/3a1pzcDpkGu1zsIy7jxek8FMJA6pZX5jvAS61S7T8RcT9ka EfOB8CVTCuVEHAMGkaG6nwg3n5Iwf5XEwJoMjuF+wg/xQiczi4Gh5jVRQ4R/ HWRt5C9gIKettmKEsImIBsJKGJB10q4aI1y7LbiE7QUDA79FH48T3r2hS8yp hgE/ljeWVMKBqzY/oTYwsKQwdh2d8Ld50y2mrQys/0pNYBAup1BXHSFyxJIq Y5vvhLcN7Pcs+8RAH8+f3AnCXt2Ov0S/MlDqsq/vB+Hx5srrSWMMCFzgnZgk rF29lMxFJ/bP++PkFOFnxUdNfScYGPkZMDxNmDcr5P3sTwb81aRrfxIejOCr H2Ql6qjE/dgvwrk8mZ0zRO6IXjpPX7BrjEz/WiJ3JPqt85olfJTvNWXXeib2 n7RdM0d44yP9nwo8TLwsqQta8NDW4aX6W4g6capk/U04P+kmp812Yu52z15d 8B3BJfz3dhE5IZm3Y8GaqSF7Yvcysf1i9p4/hHl2bZUukCDq/qqay4KH07OV G6WYkJiyqV9wwR65E18OM/FCPI3970K9ZTWdmQbRB21t1RZ8TMzQcrUa0acO K7gumDdv1F5IkwkhW6+cBY9I3PKQO0HUlX7+hwUXFi4N1j3FxI3G3UvmCbsd DI+1MmLi8jEtoQVrlQiku5sQfWGvs8qCN8nkPYu6wIRdPLvpgkfLFKpzLYk+ 13fUccHP5Fpb668ycVHrfuCC3SuNP3y6yQQjekPigrUxPvKDyEmiXaJ5C+ar cZxYdYfIYbGclQsmKy+f307kpKkDvxsXXFL3kEPWl1j3bNe7Bd87soNXJ5CJ qwKv+has01ggdJnITf4PWYYWzK+puP9uJJErzFaNL5jS0q4QQeQkeUl2xoKf Hz+nmZ1E7MPhrRML9npDPf3qCTE3ta9OLXjrO/br3/OYuM0jMrvg0vc7/bcR OegZK/ufBet+VE45Xkfcr2epfxdM+2xa4ULkFEtO4vIJC4zE0Hu+EvdPdvp/ rU97t+0gMcfyf83/r///X1Qsn/s/m/7ZoTy99tvi5w/YTOx1hf5Z57v/fRH7 f17TX5zCWvfPLHc8Tsne+L7ouQyTvK/rJxZ9NTYvaH3tP5fu9WNfZ/tj0f9p 3hT1XDO56B6xjne3X/xzVgKEhk2mFm2YJ72O/+8/u3gne3zKnF50Bpk/bo3W z0ULeHFrrEj756htHMQ+//P/ABRYOKc= "]]}, Annotation[#, "Charting`Private`Tag$35660#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1], Opacity[ 1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBmIQHVOnc+X///v7GaDg3id3gc9fEfyE9GSfZ68R/NSA WUfOXEfw85Q4ts5cj+A3Hns81TgewV/GNzs8fd89OP/DPM7b52ruwvmrVopf aT58C863bbivkWdxA2H+9Q5uuV1X4fyjEskPNrNehvO/qn4XqK+/AOdPt6pI T2g7DefXax094at+DM6X3NT6cKnKQTj/v3TA3snZ2+H8eLYfPkm9q+D8tWn5 lmrLu+D8LxLzlt337YTzbU6fEZ75pR3OP6Ov9Y7bqRXOv/HxpOvjnfVw/jqd LMMvXilw/uzXnmc2n46F82/V7jetZwyG8y1Z9Zc/eOoC5wMAAmt9TQ== "]], LineBox[CompressedData[" 1:eJwl1nc8Vu//B3DhU0pDUSopaWmIBpGclxlJKpJVSCkkKoVQIbuyolDZ2Vkh skdCZojSsN3udUrICL/j+/vrfjwf53rcj+tc532936/NZrba5pwcHBzlCzg4 5n9l/5NI7B5QgfjFSFvGj2XyYrJWW3V26GOyYutE11sb+Vs6Tt8rHS+AR2J9 CYd6mLyuX6nYj++XEZbs162h9FZeupz71oSSNWocmbKGhc3yvP/iTRa3XYdK Z65H3myfvPMzNc+nXnaokT4bdHdqVJ6xn56yRdYeDafbRtfMcBHnGh81ZzIc ocDcOTaQvpKot5QYl490Bmcqp9KB+8LEkf8+CX08dQ/0Z3wdCnY7iLOn3omk ubniP9UN3xPp+4jlkQ/fjHx1g4qrfWrDncNENePcUdmDD0DPDRgO51Qm7snu /XL/sQfIXTrD4zEahLT33NXqQU/w1+nzsxS1CXZb8+xSBW9o3vn8JD5An0gQ jQ3SCffBSy4/7yDClDC+brc1YsQXZQEPliftMicES1Tedh9/CBW+aulMqatE M+8ajR2vHkFecSCn8egNwsdg6Nu12ccolVT/bZ99m1BIzLfN0QuAkPLLtmuT ToTLlIrbXf1ACGv27u974Urox7yuE/kvCIqLu3L4NDyIg+prBKqygmDzVtak N9SH4CPvnb9iHIw45qbdBk8eE8zQoYQlvE/ARbBzbFODiJojp369fvsEf2S6 fu+cDiHi+/JlT18KgQ5n70W/qjDC1W/zg1G+UAzqP5b+T+AlcW6fX/2z4lDM XLC8Yz0dTch0jqyWs3qKpNDCTt/iOELgvpHJjzXPMBZ4TKi+I4H4ta0qya3y GZa77nVeqZ1C1NfvGdl6PQx1lzPcEg+mE0l2oXI1G8KhYB9QsF0li/BYP+tx tTYcZbaNekKpbwjT8suNy+0jILjJzGPhmTziiEWTYLbocwwri3tNKhcQa1fI XNBteg4t98Wiyq5FxGhudMqE8wvs2BlpKLOojGg+t3j0udhL8CipvNoxVU6k cd2UR/tLPKofOTMuVEUEH2JK6NpHIknZvUbzaDXhePWy6FXBKJxXmevviqwh jKO6Bdzyo+CxmfbhithHItby9YOPe6LRIhHwpHGggQh9QHc5ezcaZ44IX+S+ 1kz4vNxh39MQjWvmNR8EuD8R11piLP7axED7D3zuBLQTpowfF9xLYxCpWau8 zbuD0P5vg9EyvlgEi+UY2MV+IVQ3GZwJM41F5eo41/19XYSM7NMTW7JiseF4 Sh6O/yB267QeTV8QhxM/hA8o23QTG6/xKchqx8H+hqiqa30PwR3jt//knzh8 TnA27W7oJ/6++7D7q3I8tqzptRK1GyTobdzbzEPikRAwq31kP41o5rkv6Cz1 Cuu3bV7ky8kkKkWL+BZ6vULI34d5gmvYRN6RycVBn1+Be8ZAQGjrL+LFdbt/ CQ4JuCJ5iTvMa4QI8Msc21eTgL2H9/HptPwh3ONZ7KK1iQh6kpjzS3yMsOi8 0vOpIBF5a83CIjZNEEYj8V/PL0mCkcJ9S4G8SUJraW8rzTAJCsbCXJoXpokD CueqZ6eT0Fu0nPFvYpbYbhhe6quZDHV7bXN3Ow6svfU5X+BlMhI0Z5rs7Bdg NvFU6i4iBWxus8KqGC78Ln8cn+ufAt5ZecN/ddzo76p7qfAzBRxNtJyWBQtR t0I18KxrKqQHD+kJR/CgeKe7b09zKr52H/ju8m8xMpVL3a03p8EkIS1K04YX Tx1kb7tXpMEj7ejeHe7LYfZT3DCdOx0Mhb5g3aJV0J200pHVTcfpPX95JbP5 oc6fpFn1Kh0Jev2OtVkCEFcTxdejGejrHQg+3bQGIhdMZMyfZSCP6XK4iSWI Vc4v9v0aygA4Zz/uFFwHFz3eVQ9UMnGXpkuPeigE+/5k/xrrTOzY0G2m07EB tjfUeZeHZuLJVqeX/BIbYfbQkzt8IBP9c9tUp91EoF46N57ulQUuMQWd1Qlb ECXvLHA2OwuzrysOyD/ZivHC8X0z37PgbLjMjNN3G+LzWdbHpbIhM51koRqw A9PSln4jptkIjKE9kYoWg3Zuf2L4o2ycMcnPTny3ExzZXb1DfdkoGrq/YG7p HuhJ6nEErHiDBCXXknOq4khP/yQsLfcGLYs++4j77MW51Fp9j+A30Mg7MMb3 TBIF8W8bRRRzkOe0xnSX2wHwbTnA/GCdg/iP5btiNQ7CIiZ9sW1YDsZFXovr rZfCmshXKsUktT52gpuzQRo3nz15ZxCZi0NzWfaSDw6jdvWKTo66XMzEFjRd cpeDSIjfWOJYLjJtuMNGfI6gMdBNclwzDxnfbMoy0gjs8rNNCJ7Og+Kh9xLX khXhxsOolN3xFvyWfSWu6kro9Lrc0639Fobm57d1MZTg9eD8BomUt7B7tJAn FyrodTke/FE/H2nvG6XlNqpBdro646ZHPkxZPhoVPWoIvKPUsC4zH/wLI7ml U9RB2MvyWCwqgA/f2VxZDQ1E2O64x51XgDDl+ibB2hP4zYp9ntpTgM27IqIs 8rSgbr2xQHvZO2zTurJLL/kkxi1Wj0ZfegfBoN4XB5tPQduMy0qevxBx+rt9 xunaSO6+591PFOLwVeM9Rnd0wGEyFf/QqhCNoqwXzCVnkG70++eX8kJYHTcx rz6kC17dn7r214tQyJZ4/LpAD/qFLutPPy+CX1qZYKaJPhI2r/+5u7oIjdOd 0psXG0CBfcaiR6gYR4Kyr96/bIhb3nVOmh+KYZn/Q9BN8zzKWVewY6QYD+vU JU+sMMbyM/9xcwqX4Ny6Vn56uzGSRRQev71ZAgnhvScuHTLFj4LcKNGNpbj+ er85QbuA3SI6l2bUS/HP/cXtcAMzOHr9Euu0K8VohK8QX4MZ+HV2Zz+uLUXY 1Apdq3cXsdX+lJnL4TJ8P/zB+GGGOQxWVN8aGijDAqWI+8aLreBaIdBxZroM S4SEjj2JskLC7YuyFXzlaHnX+vykzFWMdnHMvpArR/jscKXTDWv4J8l5aweV Y53xXIUJly1yjPyGSxPKcUNot1Zoui26ln85Ll5UDrmQOHPVvdchdtuej2eo HMaKI8KW3ddRoZgVXnykAlElCYqNujdBG52b3qVdAWezQreGvJtYkaRlHHal Au/2FUUeW2eHc8uZonbBFYhdKc33odcOf79uTxOjVeDgJpEceZ/b2HPrRcmT J5UQCc0d0xO5g1H9ZfYBiZX4efDxg8DgOyiSvyf+sLASNRntjWoLnXB8kekL 975KZC7t/E6MOMEqYovTjQNViJoo7or/5oLkshSpk61V0DadKV5w3xXXXwmx NIaqoDJ0pai+yhUyfo/ij05XoePkshZbXjfU6NjwE1veI5xTxFHluRtog/t+ 77F7j+jcZZY6792xfVlB2hL+ajg6nG81V/EE+/fOSwt3VGPbxwr/a2GeyPsc IcQpV427E84XLrM8oRrt4jdpVo3fDWTAvggvXDqgYEHLrobLSvQZzHkjzuDD lmrtDzhHvxBxatIPIgntEW7BNcjsieI37grEU65c0b1JNRi5FVr2e30Qll0I SflaXIPuE3VekkZBmBLSeXdguAbJaxqU3nwPQntQ85cB1ELTctVzGj0Yfnc/ rtVg1aL03Ad5+vZQcHSlRI9z1iFZl7E/7kYoHGT8xOLW1uGbVMzTNVSuufRH Xeafch2yIhdflTz7FLCs1kuPqIPabv+rGkHPMHqm/Okq9Y8wOG8VNrg7AlbZ 0RtLz3+E0v3dabnuEehZ4Zpw1e4j9EQ+dJ/4GoHGOiKvKvIjhu68lf/+8DmS FYra7cc+YqJ78HHgxAsY73kr0BVbj1gx/+qlk1Go4XodHDfTgNfmnAwRrTh0 B6fb/ljZiGrefWdEH8RhYnOm5rrtjeidc/ztlR8HMYU3CwO0GsHReuo/563x 8HYpcHKKasTk4zBRwQWvcHTsvdlpxSZUx1eLmDUkwMzONvy+UjPu+dROIoea m4d/LXqp2YxQeskqmfEUOHHesH93thkGmiOnXsikIjjops6YVTMufmyWTilJ RXnG7WVXnzTjksOwUW9TGkSYzm5n+5uR4B2e83dhBn5e8rEU92rBy9H2nvD+ LFRYKChsCWoBe9kzL9qKbCRYT6xZ96IFagGnA53ksmF9y6KKO7sFlyvUCcsn 2Zh6oL7p2/cWmHabdtkdfQOBOJ52P6lPSM/hO6ZTkAONHh8FWv8n+P6gK3z8 9BbiAwqCP8hPeKZWmZq1MB98wxOs1qlPEJ2uYX8/nI+OXxbPS/laIZmfuosn Ph+XOI6NPz3SipTDDhHxdwpwf9PiNNWQVhicGs3k3l+InPO+gnHKbfAPenPE raMEoV2LO8212pCqF2PLz18KewO/MDGDNnQfjjIZ1iqFjO7Ddek2bThd62dm +qEUhZqPhQrC23DbQ3db8fkyVMgFbWoi2zCrsurcbv1yNK8L3zH9vB1O3NYa kpcrwWhPOqQz+hlNtWub3vd/wAvrd6LnZz+jfrt47hGeGmhx1S+7wtOBa2uO fm3cTd0LSbLPaUMHNG8cTFCxq4H9Q6nAWJUORF9Pe36LqxacihW03yEdaC2z EeoUq8P6tK7wQKlOHPqjziflXY9j7sv/Ndh/wa/aL76T1c1wU1FuNJP4BhdM SIfUfqbeq0SlouAH1udmr/n84xtOd6auSX/ejfFrJ8sv3OvBpo3dK33GeuCc yak1UNAPjnuHTNRk+iCSd/FLj/sQUu/4BJbI94F7xGGtqv8Qzt7+Ui6l3Ie2 eI/qmPAhvLZ23rpVqw/96VVaaplDMDQqHea41IcTbn7iSt+HkCOjdutdQB8U Fq7CLykarvw56ys+1Idow6pbkz00NFrYv+F/2o8c+3HBk1vocIxJNbjxvB/c ZemHUvbQIfq1e64xuh9x2wXvzEjRYX/8uKZfaj/K35qeeqROx8a9IgMc5f0I 7uTt1rhGh82f2jVsRj+iQZNQz6Vj+T1hpxrFAYhYFojsAQP5edoi29UGcP5R daCHGgNmpHf1A80B1JdrFradZCDPdGQV9Abwb25U+pwpA8bKH1JzrQfQet3J f5EbA+k8N77HPhvAwnxJkcYyBrSeVCncZQ1A//NpwZWHmTDVV3K5NzIAjqLJ o90KTNwULnt7/+8AzhyS25ykxsSzxMK97gsGseRkcdtmXSa6C7M3eK8ehIhi 1sFiWybs+qMnAuUHscrBYvBJHBNhUncz4x8Poma1Rn/lfyykTE0xXgUP4t5S 3u4kXhaKSh13JD4bxDn3LU+9VrLQc+xWZHLMICJMTkvvEWZhl/HVR+m5g0iL ar4qcpBa72Vgkf99EBVjJyZfm1LrO6RE6sWHYJSyVNMqh4VNck0BsgeG8DPs kFd7AQvnIy3mEmSG0Brj6CRTysKXS89/uCkPYSeXQ+RALQstvzleHjIYwssc voPff7BQzlu/Ls5jCMn+5WUqi9iIgRm/U9cQJFP876/UZuNn7LT7UPcQOCSq rjifZUN4YejImcEhaAnlPP5uyEZ4/YcWid9DyDgXmuB3kY0gA/HAgYVUnQQX h/vcYsPNbmLp6f001LcpC64NZeNCov9CMV8a9O9YaqY1s8Hz7DqvrD8NNnr3 FFmtbKR7afNpPKFhlfApPrEONqbM16y3fkmDwezrkw+/sxGyNVI8M4sGnb9O gzx0NqpjXp+R+UrDWWNlgYEFJKyDAgyO/aRBuWVqfTU3iVVuN4wN+2mQXhlx KmYRCRNTKQsXNg1l/iXGR5eRmNhY7FzGOQyGskzc8bUkdr2oj1XfPYwO6ZYq NXESzQ/TEw0kqee7EkwaJUjYOwemWUkNwzOz0OPkfhKVhmfyHmEY21PlPBUP kVTu+lbbrDMMNj3pvwEFEgFPGb/0XajnvkYqEjokRgOXwLJhGE2qBs+m7UiE Fzfnm34ahuLjsJL22yQI+tP9+h3DOOx552KqAwkf5S3b1XqGYaIlQhxzJrFh XG7ZtrFh0Mj7P0+6k1A1utbVvYGORb8g7B9Agu59QLdzMx06XaMjokEkAnMm G5u201FvfjDxTTCJr8u8Kkok6fiWWV1ZE0rCpiwy+YUKHbmnohwrnpN4uq3Z Qd+ajv0ROhKTCSTktJ/+PnmDDsv0gw1aSSS67527qmZPx96wltToZOq8OmnG 0q50pBV2KcumkSj1W3BUIISO4Nt3HhJZJLXP/QLNhXRckVP6GvmOxOMNk48/ lNGxb6rNvLCQxP5jpYtK39PhecEupK2IhEvs8enXTXRENGn9+VdCgk/3Uu/D PjqOckeZba8kIfsuNFONl+oDu34b9dSRWOLpYJzKR937oZCsHx+p9ztpsHTF Ggb05aI9Ouup/xvYYPFZhAGx6JTy8kYSZXzxm8ylGSD3cNpc/UQiqMuzoUaO gTaBq54nWkmYJVxx3qPIQIzpeb09bSS4juzu+HOcgS2yO491t5M4eiXb3/0C AyflPA+JfiEhuD/kyOBlBhTFnMfplGn/btOPWTMQHC6alvmVhG+w7NGVDgwY XVRZd+AbifrispmoRwwoOPypFfhJQlugybr4LQMBPO+Yp/tJbPmZuX5zMQMz PYY+LMqjycE1HhUMcPPIB3gNkAjF2a2aDQxkym6Yzhwk0Wn1vetrLwOayw7z 0WgkkqVKfQkaA0fruT/aDpNw4og5FMtiYMpx1c4xykJPLz2xnGCAL+UWfYJO wricoTGxjImsIQnFASYJiUcNE0b8TPzy3thuyCLBoZeRULqWiaagR0qNlGOY Nzm9tzBxz/NWVTqbRL/gVMFqWSa6SkM26P0iYWXDs/PAJSY4m5dVafwhEfd+ v/VhSyZUZeWUn1P+tuF8hqINE7b63EfolLU+ZkmdcmSCSFZKfzBK1YOYkdK1 R0xMxbRvfDVG4up9T89bQUzUlNqPDlOO/5xR4/yUCfGE11bi4yTWeHKf9Itm Yt9A8/FMytM9r40Sc5igvZq6mPCXxEHZzsj0AiYmr/iVd1O2CeTszS1h4upI e/+6CaqeCT2LqhomXq2O8/ehXPWc43bPNyYu1N9i6E2SmBnZlU/rYcI9wuGP D2VpDd1pcpCJmIXX+/MpJ00ku83+YmKuRC149RSJR7o6/kJU32/pGQ+uoPw+ 7W6L6BIW9GuU9BmUZ7mSBHatYGGdQ9EO/mkS17P/RcisY0E2VGbMhLLuioRE XXEWPk/dyWdT9r/cTD+3n4VkvRB5vn8kaoqnxC8dYkFOk4MpSfmw9cmcm4os KGkXt9pS3lg7URagy0Kdi7NUP2U9kS3czwxZ4Fi13HqOcqDDCbVIExZm+Edo 62ZIcG6PbUizZEGgxqdSk/Kg+/GvtXdZEBKZMUyhvOnrbeEWdxZ8XS9tKaOs vy/atNObhfQOpmY75bqfo4ODQSxcrt3UPEM540jkH64EFoarzrLVZkkI7O+3 ckil9ttm7m5I2XHHrl56JguOKr8crSkrrcprbilkoUFW8YU/5cRF/9RUy1l4 n3uiOZLy0hnF0vxqFirvXridTvnzUMPrqBYWcvViReopy33n38bfwcIe/mzx r5SjPxm88PrGgoONf8EQZcviAb9rQyzsbh82XDBH4l/wzBW5GRZu8G3aKEH5 go/yz3RONsyv/3CWpVx91/esKA8bqntibyhTDrBYrbqYnw05XprkWcqj542K XNaysXnrVg4Tyvo6MQd+CbPhENh58wplUUJctEOMDdfiZyccKHsfsAvX2MtG dsHUu3uUmWIFfCUH2JAM9PrsSTmXX3UunmAjlENF9Anl9Ysf2q9VYSNh3TW9 cMr3ZptZD4+xobkpXSWKsvrwuW83z7DReqbvVArl1z9idQYN2Jjwsr2VQXlV G63OwIQNywplgxzKXSW3ChSs2PhbddO2mLJCzjvJHFs2nEMWvSqnHJ/MkbTj NhtREfrx7ynbhDx6utyVDYvdW3kaKLf6flrm7smG6WOX682UZe6v9Rzzo/Y3 ppnSSnmBVbzdN2quR28MDf9C+bIJnX7yORtnnwZqf6Ncd0bSrDKaDd4k3v4f lENQdCollY2+uuXP+ihPHuSsEc6i5n5DReEAZeNd6gjKo87bUat0iHLFJv88 7iI2ev7tiRumvGN1m7hjORs+HE0WDMqPlqx/xahmgzM7YiWL8q85kw0m9Wys 7GVEsim/ozOWHKVyBEepofVvypu697kXfGPjm+BM+ghlj3aHyT29bOQ57+36 Q3m4rvh69BAbIhfXjoxS1irjovGzqPP1/Do6RvlN7jET7xE2Bv/69Y9TXpsa 8HnqL7UfVemKv5R7QoXe93BSdZTnenyScrpgSssElTsiuOZY83YJl/mxgsod 0T4rPaYoHxP6QN++iup7p22WT1Ne81L3r7wgicK8qsfz7tvYz6W7gUS+YzHn P8qZ0Tf5rDdTc7d96tq874ouEH6wncoJMWub560RH7AzYjcJkUtpO2coC27f KJ0lSfXFa6rO8+5PTFOqkSIhOWb9ft5ZO+VO/jxMnZNEAs/sfL2l1hqNg+qD Njaq8z4urm+xTJXEjcPyLvNemzF4a6sGNadsPF7Pe0DytpvcSaqudDO/zDs7 m8tf+wyJmzU7FsxRvn8wOMLSgITFcc2t89bME0l0Nab6wm4n5Xmvk8l48+wi CbsXPCbzHiyQL0u3oPpc1zGHeb+Rq69/f42EuebDR/N2LTb88u0mCTJsddS8 tTA88IfKSXvb9mTMW6jcYWTJXRJGEXzF86YpLZzbTOWksf3/auadVxXCK+tN 3bM321vn/eDolrWnHpGwFansmvepmqytV6jc5BvC0TdvYQ2FffeeUnPLdMnw vOkfG+VDqZx05AAPe95vT5zXSIsm0Xt448i8PZoYZytfUXNT69rYvDe28lz/ nUH1PcFdU/PO/7zNdxOVg7I5eWbmrf1VKfZEFVWXb+Jn5838blLoTOUUCz7q 9SmLDISzOnqp7yc7/j/rMls3HaTmWPbk3P+Mg5+9q6m54jv3//4/D/dv0A== "]], LineBox[{{1.000637755102041, 1.}, {1.00886769729576, 1.}, { 1.02836088664397, 1.}, {1.0478540759921802`, 1.}, { 1.0901425648697227`, 1.}, {1.1296107149487955`, 1.}, { 1.1723809752089906`, 1.}, {1.2143717129972469`, 1.}, { 1.2535421119870334`, 1.}, {1.2960146211579422`, 1.}, { 1.3356667915303813`, 1.}, {1.3745394394308814`, 1.}, { 1.4167141975125037`, 1.}, {1.4560686167956565`, 1.}, { 1.478034287989665, 1.}, {1.4999999591836735`, 1.}}]}, Annotation[#, "Charting`Private`Tag$35660#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, \ {}, {}, {}, {}}}, {}}, 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]], 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->NCache[{{ Rational[-1, 2], Rational[3, 2]}, {0., 1.}}, {{-0.5, 1.5}, {0., 1.}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7937238321046734`*^9}, CellLabel->"Out[13]=", CellID->683349107] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", TaggingRules->{}, CellID->158766396], Cell[TextData[{ Cell[BoxData["GeneralizedSmoothStep"], "InlineFormula", FontFamily->"Source Sans Pro"], " is undefined for nonpositive integer orders:" }], "Text", TaggingRules->{}, CellChangeTimes->{3.8583617635619183`*^9}, CellID->510964540], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", "1"}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->989199341], Cell[BoxData[ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{ FractionBox["1", "2"], ",", "1"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7937238359895096`*^9}, CellLabel->"Out[1]=", CellID->169931234] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107572], Cell[TextData[{ Cell[BoxData["GeneralizedSmoothStep"], "InlineFormula", FontFamily->"Source Sans Pro"], " is undefined for complex arguments:" }], "Text", TaggingRules->{}, CellChangeTimes->{3.858361757757374*^9}, CellID->514231969], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{"2", ",", "I"}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[2]:=", CellID->508618646], Cell[BoxData[ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{"2", ",", "\[ImaginaryI]"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7937238360565004`*^9}, CellLabel->"Out[2]=", CellID->178305277] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107573], Cell[TextData[{ Cell[BoxData[ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{ StyleBox["n", "TI"], ",", StyleBox["x", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ StyleBox["n", "TI"], "+", "1"}], ")"}], TraditionalForm]], "InlineMath", TextAlignment->Center], Cell[BoxData[ FormBox[ SuperscriptBox["\[Null]", "th"], TraditionalForm]]], "-order discontinuous at ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["x", "TI"], "=", "0"}], TraditionalForm]], "InlineMath"], " and ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["x", "TI"], "=", "1"}], TraditionalForm]], "InlineMath"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{ 3.7937226701824713`*^9, {3.8583617313613253`*^9, 3.858361751925613*^9}}, CellID->331064860], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"n", "=", "4"}], "}"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", RowBox[{"0", ",", RowBox[{"n", "+", "1"}]}], "]"}], "[", "GeneralizedSmoothStep", "]"}], "[", RowBox[{"n", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{"3", "/", "2"}]}], "}"}]}], "]"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[3]:=", CellID->95294713], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxFzFsog3EABfChuaS0kkwiNLZQQgoZhSWaLESJtgwT5St5kMY3uStPLDGN F5e5TSSskBhbW1ImIkYikttMFmkonf+p0+n3ckLLqfxKVwaDEfXbvy1tibY4 ndZNxn8ubFmst3diiUwqvH0grhQN75iPievCPJeHtMStu9fKeDHxhI+qWLZx Ab+ovc725efwtMbf0rZ9CvMVVl5d4gn5P+72DtYdwXq29HKJeQi/h3+waPoA HkxulEk6TTAdqTfkcnfhgMWOq3HOFuwMFK33167AYneHsLxvGp5Vft8f8ok/ OW5dgicNPJDhs8XLIzYoOAnPrCk47ksUJB8Yh5kvmkelagzOp7W9HkLitKCa PJtjFG4oUWyv6tTwuWV2RpA6Ai8YmXKxYBCeq6KSIiZ7YTtbPWHN7YFTTGbf IXsXbI6JfPJO74BPXo2C6zUari7ihhR5NMMOXfunobAJZrenaeefG+Cpu5Ge UH49TA3b93h+FDwfXRNrz6mAVQ/Z5iVTGXzavJlAuxTAScyYycubTPgH1zTC tw== "]], LineBox[CompressedData[" 1:eJwlWXk4Vd/3FiVRJEpJMhQSDUqRWDsaiJChaA6ZMoXkI4oGGUolFJlC5ox3 NGSbrjFDFJnuNbv3GjIkEf3u9/n9dZ73efZe+13vWvuc/e4jbeVqcoubi4tr ZBUX1/+e6mv2pzGGT0KTXbTQD/kvqDmqbLtm0VnoSuMb2LnhC1JQd9xlKm8B gc0yNeGZjcg8pEyhr9cWVGu80LHRBnSkfLXngrYT8O3/Peoc2IAE/qZcX9fu BjuFZdWPyDUgtgorU1bdC/5eqOR6bFePLhgXSWUH+IP4TPsZrulaJBgfWjjT FQAo5cy1xohaRGNfOa1++DF4CK322KNei448+3ebNvIUpilJVRGPa5DY55Nk hn4onPdUM5TdSUPjkaOp/AJvwPCISXaRWyXK5nHXhG9x8Pdhef6NXyUo/Oj4 fnOveIi/FTH0n0MJ8r5tK3NbLAG2hTaVevUVoySHT48blBLBLS3mxdaGIuTc +sH+t8sHcLvT8H0sh4JWfwhRMZpNhoTGYm/JRAI6hK7QVpbSQauu2HPpTCaS uxRdFmyQAbSwueM3bTPQVs/vFNG4DHARqOm+GZiOVtKMsxS1MiGa68S+fQ2p qF7o1KsL/lmgddFc7YtdMrKiK1/KWZ0D7RVGfyc6opFu2b/5nMB8aNmbfF3F 8SZK0LwveqEgH1JyDS8k4lNovnj+4HJvPhRdWqNuXayHUygTTvqqBUDLzEIK Pc6Yq6B7YHSwAJIufdtF6X2EqSnkJqkTBBCOrza9qxaBN8oeGq9xIoDIKdi6 73Ektv+Qs871HQFsYmN5i+qj8Jb4jydLpwhQ86xR18I4Gru/fVNkGU+E8wek 3fiOxGPFENfU8CUSnHY5U7iKnIwD+NiV6vJkSBbbGU/WScGdgbb9DBMy1D/w +vCzKQUHPr4qsT+TDN+IbzVmGB/xgK9+eIMFBfbZR8Vfn03DMa7yD1aTqPBv PpwLtWXh6Ymk91n9VOBrCKkY0M3Guk6SVJMNRbAjvdZbujQbz9tvnku0KQI7 mtiA94dP2MSKx1FTpBjujlhYF1nmYgFzurmXWwmY7zvFmjiZjy2KfcXPvy8B iWDeAnHPfJwqLU7fSyuBi9pVL9KS8jGaNLPv314KTp+VTYeW87Hns3ofg5pS cO66X7GcXYDLJ+xAfqYUlqJW/9DqKMCCZmtWc+/4DOeSXicMcxXiDCn0guz+ GWRl5lbbmRTiPioxQUayDPwzXKMNJgvxXilTm2XdMlA60BrTJELA3oE/FTo9 yoBfpKq9WI2ARUz3FryoK4MPC915Xf4EvMvL2Mr3GIYeAY19mvxEbClE8xwd xlBPgJvK3CTsXyHaYbaEwTZTMY4gScKpd63VKzaWg5iL8Vj+MRKe6+ZaidUo B8Ego4vCd0g4LF3jmcnrcngUI3fYq4OECZdDmGWp5fByjWgQniLhbsEf+sol 5XA82UI9cC0ZK9z12sg3Wg4GysrmgapkXHEiP7r0eAUM/KLX3Q4l47G5f0uK JhWgx3hilZxAxkLphtfe2VXAtwcyby4XkvEVwXEZj/AK6N/RYmr8g4wflx97 ykirAHXP/n1hbDLO9AwePVdaATaKk0eNlsn4d5dctsJYBazSSba9upOCJcPu CkYtV8BIfG971n4KPnmiyo1HpBJenDvK7Q8UHJ52U7VPsxJU7okolFylYCXP 2M9v3lTCczTlGhlBwXMWG7xeplVC+idGiWEiBZdoPlAOLa4EbgbflqQsCtZf eyP20WAl+DUF/t5aTsGbxltMH/yuBEr9iyeaDRTc1XJCwEegCkLX75Nfaadg xxhZnzuHqmDxvijBfJSCVR5GHHQ+UwWnLx3+MDFFwYvWa5j2l6sgip6YIbtA wSHKoxdvPK4Ci+4QIae1VGyyyULoytsq2OLB7/JQkIrFf9fSLmZVwZW5LqbK ZirOwJmqRm1V0PCKpeYrTcVuH7dPnB2tgq+aZgIi8lSsFvI85fRSFaz8tv6j r0TFXK7Ll7WFquFO1vZH8gepuNbURURLthrOm2jvSlWl4ldq9Hr1o9Xwbc76 Wq06FVvsMH6kql8NFhmtOWGaVCzFXa5+8Ho1yEd8ePMHUfHYyMFpJY9qwKM5 IetOUnFeQ1K6wrNqiB2KFi47TcXeeSI3dr2vhnM/aj6K61ExinwiJpVbDd4y 1lUS+lS81udX0/bKahhRvMyqNqDipmu2gWId1XDytk3EFkMqjtLp0BRhV8MT xwUtISMqvqag+0vwXzUElprb5nGw3AZqNr8IDYzX+gcucvDk9B4bXnkaTCzA 9kkOJn2P2c6tQYPA87KJoRz8oFigbdmQM77P91UbJ/6pRN+QP1Y08PexsaOd o+L1TydO/PKiwRMhcoINh0+7w7U/P0NogCO2EHLOUnGsYXPeeDwNUoRYkh91 qdjmELIfK6BB05url3Q5+Sptzd85RKNBi7YV450OFc/9le6gd9HA3iBH8S1H r5L+8LDuSRqYTJYU6HD0fELjOd3BXQMOnk3T8Ry9DbI8l79uqYEgtbEbGZx6 iL4aJjQp1gA5qd3bmlOvZMsaWZpJDVw3Ung6xqmvo5Zad7ltDSimLzsQZKhY RTYjvNSnBt62BXQe3EHFFeMhq4hJNZDgwDqgI0zFIa1LlDxSDUhevrWuk5/T XyQnt+z6GphUKtGVWk3FAw8N6ckzNfBnW9L3xl8UnGlTFpXAWwspSj+FVSYp 2F3vgOF78VpwEXz3wmCEgleJbCoN164FsTqWRPI3CpZK/RYTEF4LdtPOroN5 FBzFQ5TZl14LcYqta+VSKXjDzYjMrtJa+I94kH/ze07/bzctOsSsBRG747GL jyn42+uWH8NQByod3YJz5ynYYCr3Zrh5HZir127KPEnBFQYvmVq368D91nox 4aMUnLfW8M/bqDog+RffmhPn7B+/hq1nJ+rA4A1lYiedjLm6MxPnueuBJpJU 69xMxvfUQhSSt9ZDjcmP3XfKyNhmVlftr049RO6XTIqJJ2NwoF3MiamHFduP SkGWZDxnVh61SbcB9n+QadOtIGHHgkTJsqsNYF/dKnwwh4T7hfxTb3s0wMya F9Ed0STcVK9FqopvAPn7eZk33Ug4A5V88/rVAIbxL5u9xUn4mhJZtDupEfhr FX/vsSbiWp5P4cnLX4D4nPOpri/EjPAc1z7hJlC89z2WlleIF6TzDLbJNcGQ 45PaXW8LsQIq5H1p2AS0oBpdK+tC/MyX6uOT0ATnbKmqE38K8Olf1VbnTzTD S2Lc8didBdjKwzX6oXYLXKknykka52G6TZCDcmArMFYXiJYR0zHharBYsk47 VBiqB4iVPMPsb+lHTee+w6p766hs23co1qlI5urKd/DQSpiKHnmHDHkaN9jx dcCOtySvxVvRKO/A1KCPRAeoP+fd3mwdg7xCVV8lneyAmPZVd3IvxyLuExVj 0xEdkP+FEli/IxGJZ3dHv1LthGG1TW9Uu5NRo/bEkxjoBN5j+XccN6cgvx8r ril6nRB7ivvnbaMUxOCVOU252gmDZ7ddaqtIQak37WfoTzvhwPKfgT1pH5GK 2K+z+793Qt5khm7arTSk90jw7xevH+A9kCUURM5EJuYXjfICfsC7g36D05OZ 6JJCYlL48x+Qx6dUtUkuCzk1HdS7mPQDVnJnpL3fZKFX4uZRjC8/4J+RXDbN MRt1FLw/MLurCz4eH+WREshBjKdDj7/t7wJpp9SGL5o5aMxCuYN8rAu4jpVU KLnloMWVz36+xl1AbtPo+9uWgyT1B+rX+HbB1FeBsz1vc9GtQYVbW9u6IEG9 lU8+KA+5kO5QFnu74OvvcfvZ+DzkFVwk0DvWBenbflZFEvNQ0H6Dgg8rXZDt K/rt8kAeyr7v+k9RsRueWnyTY6rno1kRUrRmQDeszwpRGGPko4CTOk1W+3tg 6GG109MNhejSgR0Gz9V74GC9/bb0HYXosMTvOqJOD5QoynkmKReikdnMaj6L HnCUn/2+41whMkjeVJrj3wMjjNJ2pZBCtJV7IGuxtQcEUnXfvvtbiGYmivfs 6uHEN3pXsZefgBp+RKadG+kBIfXUk5FiBPQgXy85cbEHthhX/2MdJKChG/kx p2V7IVTPQifBhoDyyvyDwz17oXGQ23J7BQGFZF1aW/KgF4T3n7UV+EJA1m8P Px0O6oXNErwFLR0EtMV1zF8trhcKZ+xrusYJyFfS2LuvuhcOKD3SY4sS0QV+ xfm1Lb2wL+lK+mNJIto/z+N5sKsX9pYrt/6UJ6KBL2TXJ5O9YGkhq693jIh0 /XbaKYr1gbX3oXvTV4hIxuHPkKl0H9Se7C/ad4uIlszarPz29sGCUaM1ciai HKVn11qgD4xrssgMXyIS7Zk097LvA7fit6qiMUQ0WVPbluDeB5YP/FxnE4mo pjDpfJ1vH4wlZ1FT04jIJ/TCOYnXffCIZ7NlMIGIGMc+n6yg9kFKkGmdZiMR kRNvZFMqOest9pt/aCWiMF4e0dwvfZDWXHur6zsRHf96ZvB9fx8Ic9nPNjKI SESNdTac3QfmKlHWgcNExIp7XhD0qw9OePId38wioncOrQF319HhfcHuDYUz ROTa7MG8LUIH29iti+XzRHRadct5qx10YLjSj6YuEtEc12Upo4N02Pviz6vJ VSTUYLv87JQGHe532SaZrCGhpMaEKY1TdLiwtednKB8JGb8b+qxgSYdygzeH HgiSkPxKoNxOazroXi3feVSYhFas94RtdqaDfXizWrUICX2ra/glcI8OkYmn 7itsIaHs/S5XuQPocPzB8OCNrST0OHJj9UIIHeZvZbm6iJPQpaUCpakIOkx/ /bL9vAQJHbxpHjEcTwfzp6XDfJIkxFfze6k7nQ43H+5uiNxJQnSlGOuvBXRw XMOu+y1FQqTw4w21JXS4kqDM2CdDQi8W+lTKaHRgiZ1ZryFLQjbXAmKILZx4 vg0GErtISKNKlju7iw4rEsGJXzl4kyLNIWmIDlefB/Fe201CrJf2re8m6fA7 cf2Dzxxc/otf/eUCHdrcw3nnOLjx04UW7VUMcL/amrDCwRSG/GotXgaE/yvS 6+PgFJE/R9UFGBChfn/1Gw5+ebr+9uGNDKje790iwcE+/71P2L+ZASq6Jjn3 OevbZju1KYoz4JzyUHwuh68JXXOt3E4GtNZrJ1M4+WhuEtKQ3sWAn0alJVHS JKRwiuEisYczfl/vuB4nf1Hv/CSxfQyQ3m6r+pWjF1fWo++bDjGgeMOFd/t3 kBC715RfUI0BJmhYzGo7CX3fuFtrnSaH74FAksM2EqrQmb+zWpsBfvHDXqfF SCg6492PRX0GyAPJ/uEmEnrS47Bh3pgBN1BKYrcQCbkJaZyYNmeA0eWzazds IKEzd3vTR68zYOCiutsULwmppOf0DNgwoF2y1SeRh4Qkux9u7HNgwMuaz1Vy XCT0C8l4t3swoM2+aE/hAmd/eMxmNXtz+FxhGlLniKgxtYpe78eAxwp5NRE/ iSh5vd2Z8mec/HbW1jeMEtH5zqwtOe8ZIP77UOWxdiKyz3j3YPMHBmyuGJ71 aiIif5+nI76pDDgkMaQQUMvZzxLXSfr5nPUfG9L+FRMR/81NF5g0Bhy2VZ9M 5exfaZV/pcaNnPzW+VwziyYiNZ7x3ZRWBug56ym0vCYiu4/VvwJ7GODTpPJH 5RERVTG9I3fNcOr339751BtE1F10azn0NwPUStKjai8S0Uyoya3ZvwxIiZBd pBhy4u9TUq1Y2w9PcmkneY8T0QN3evv1Hf1wUPdSpBnnfaa2dEr0vW4/WJVp vW4qJiCjRhVfbsN+uMPdxhzMJSDbuJ1DDqb9EOdcK1qXTECR8KdQ7Vo/VK+n HOAJJaCZx9mm3z36If69T5HaRQLKXi/yRjihH6ScO8eLRwpRZe+/Re+Ufghe t2Dc2VGIunLGrRgZ/VA1FTZaXVuI1p2nqeQSOOODDghtzixEtpH/fTWo7wfl KH2hQMdCtFOSIRz0qx/89X+K1A8UoPj7m4XeLPaD9Zk6qaNfC5Dkj7Pr4//1 w2BZwoBvOQdHEHkJ6wZgX6DASHhCAZLgD12i7xgAbd2ceLZlAdo6rzp89PQA LPm7HrGtyUcbm0Ipo1EDoKJl8QwC89CrveXEmfcDYLNH5N28Wx4SCp4vWE4c AM2j6Z3Bl/OQ4Mmbn0SyBiCUhO1PHchD64uOJEHZAHTlX3mvkJeL+FL7Q9+O DsCZ0jqvK9o5iOvB0etn1Aahi7Du7svDWSjrv6BXnzUHgbs/jXxyORNduPuj XFVnEEyatfTzqjPRJ6f7u3YZDoLCuanfWeac88PlMiaXzSCITnuFIfcMRFA7 41n0chC+tyuJHItPQ3azF4KVRwchYl7riFNVMmqy9yoUiRqCcWXUWFcThQzf VCG/iWEYN3uqESccivs7VKUalUdhxKC248xUGt6p0fxS/dAoTN9Zkik8ko6v xtv/S1Ubhc/XbXpn/dLxD5v3fQE6o8Bt7HVkRiADt05zxR21HIWtNas963dn 4nKBxm3JT0aBf0Lrm5xxNv4AViI+3aOwZ/VY0qfjnPNf0tKjUcYoXAuRSmNc ycM7eCNnzEZGIcR0VOqnbx6Obqxp3T89Cvr+N94mleTh15bKr4Z5x2AsoMVZ 91g+DvBYWH9eZQyWe/M/KO8rwDfTwngVgsdAcaDjwt+5Qsz31k1APWwMhlwk zdYJEnBOoMnGs2/GYN694BtTjoAXb20Rd4rjzL/bVyZrQcARu+KV8/LHwKTb OtqVQsC0D5/M1LrG4K+zd+86NyJ2ev3SUo8+BvFNxco7Aol4U8Cda5eGxsDz mI/h8nsivn5D1d53cgwOmEzoy9QQ8YJk6X3MzeR8D7NVZjnnbcXYxiTdvUzg 2/a7wohCwi2hOWmWB5iQ0uJs/reehL3uv8p2VGWC2f5DNJdeEq68ZEZ6DkxY /eCdX/IqMr6yraeuxZQJ2v25X+EMGXOv+9zUb8EEaFYZE7Qg44yFhLaZq0zw 8Hyun2hPxvMd1r2i9kwIQ6P7+ILJ+GUU+6eFLxMC4sMwnUbGRwK//HIIYMKO p83xhG9k3HM3d9EnkAmThZ2KukNkrGDusTruFRMceWLvZXBx/I7Iklh/ChO6 fLPW6B6hYHueXomZDCY8kUu/u0aHggVnP0vz5DKhak/toJ8RBV/++mjvbioT jLb/642zo+C5V/zg8IUJxIUHqi8iKDi6tIVy4ysT3OO27OiPp2AtVpSKRQdH rykkMZVOwUE6snJn+pnwWXFX9NESClZ2YyZojTAh1k5N5U41BX+Nzd12hM2E c38it1k3UbDEvMaG3b+Y8NDMca0LnYLLZbifSSwyQb/WVT5wlIJtjWq5RP8x QWegu9ZsiuPX0s3muNexQHYhFIusULD5N3GXxQ0syJ55vY9nDRUvruofnd7E Ars3j86lCXD8+WXnboYEC8Ku72sQ2ErFrGeHzDulWbCXcyZq4PjbV4Q/Tc1y LKgg2bzWlKVi1f4y3Zq9LHCOUDxrpUDFXRsCKz4fYAGKuzmnpkzFD48ZHCep smC35Srxco6f3mW3ifTpGAuOV9ScXOT47bo3nfs/Agt8j6qvDHL8uAuOz4g9 yYK/TxKb/Th+XWTCRjZCjwVRA4LaNRw/T9m2Ny7UkAW6U5f7yjh+/+rp6S2P TVmwQN2tbHeairk9yK98LFiAyS2kEl0qTkvw43e/yoKmhmc8+CzH7zfqPHGw YsFZ7ePv3QyoeHph3coNOxZYtHxc03SOiqN2t9yzcGLByxjt+g5DKtYwiZo2 usOCCOWLbi+MqJjx4MrtM16cfP0nH/zvvuNplsyw1n0WvJr94fu/+xDFzrFr R/w5/Czyf/7vvqR5dW6n8lMW9A58vSHMwZ4H75rsDmHBRXVr0+2c+OLXNBol XrLgwK1zhk0cPmUhq06LRrBg+4B2xx59KrYh15QJRLPAK7zYQ1mPivmHXqjz xLOAVfkrvZOTb+5Gs8LFpP/xm19SPEnFZpriyjNpHH1nn03LnqDiPw6MVGY2 C06nHhes5OgZH5Uq1Z/PAiENp+9rj1GxTqVTTCeJBdu2qTZNc+oxNqUi2lLM Gb/e9z9/Tr1eSPx5UYNZcMdo/HKhEhWr6JWtLatmgfDT3wvB8lTsm6S/9KmZ o6f7U1cpCSqWbha++7GdBaXPGgzpm6mYttQxGfuD0w8Gh+ZAiIo3mtsMhA6y 4ObhuzFDXFRMDFC88niMU//1pxPk/1DwpZyf33wmWOCzstudf5qCU9b61Tn8 ZkHK7mfPPnH6Xb0oMu+MABs+Dt4MuUyhYP6n965lbWTDQXcZjYRsCu4yslwv tIUNC18T2E6JFOw7LGH/XYoNfoI6xcmBFHwub2XzMTk2tF649FrgPwqWvM+o jNvLhmAD4W+LjhSMN6bsvHWEDYcXvwo5n6Pg191Pv9RqsCHS27h4UpOCrVLt 7iudYMOTQ6aav5QpmOf43o5ZfTYM1V1XDFtPwaftCsIe3WSDa6PV1d5KMhZT iTg+YsuGuYu8nh55ZDz29y5Lz4kN3824dwXHknFwuPpp4XtsIHj4Zx3wIOPG Uryc8JwNJ68F1VwVJ+O4oKQsnnA2hFoJi/dxk7GL6RNLu7ds0OpqIXSySFiI eYa4L4kNIUZ3RY9RSdhEtNmplMyG40ecP8YYkbAsPU9cupQNRe7TNl2HSHgu I7z2SQUbHMYj1r4UI+FIuLDL4AsbrOTKNc16ibjTsbe7a4DD58aEsYYVEWeo lgVrjbFhzXCnoJA2EftwfTiaNMGG1WodR0ykiXh7lM0bhwU2CJ2J5t7VR8DX ytlnFzaMw7TLW7kBYwLe//zLwmWRcXj+Lrt9hxIBc13MTS3bOg5rfn69XslL wB/G3bmfyY6DWuAw0isqxENii9TN6uNwwzP7qZJ4IXZ04dtzyGYcfm6Qaiko ycfJ1SpOxxzGIX27f6Pl63zcI3E194TLOGTe36XjeSsfGzbkqxp7j0PXA9Bb tT4fqyhc1nZ+Pg6Hx9PO3zbJw0v9ny6nEcaBu08sff7ZJ3xYvTM+hzoOSZoy tXI7P2GXV9wDxM/jMPJ4/bwiMRsztC7aV9WOw0qrfn5mbxaues91t79nHIIv hPLYSmXi5+amYdvXTIDv1yKf0tupuDrbr1WGfwLczws3xk19xCs86aKKQhPQ 1ZLYoOX+EbsV/I1R2zYB7afmx0s9UrC5UGqaufIEFKJ27TC7JCxZt4Bfmk+A 48Ip7iqZWJx7PH6WJ3UCRHUfvTOICMCiKkOO97Im4Er5ctDzJ37YW15xgJU3 AQNvOg7ot93D2ptILa3FHD4zZSvs1/b4++iXTwmtnPn3n5/s7bRFf8OX7TSW J6Dt2hPmj4IwdDNIh57DPQlruxT6mxZeIZpf8AUZvkkQOt+2qvB9OHppv/nU OpFJED9faCQ0HolktJRlOhQmYfW/BU8vcizSZV7pcTebBIG6+3OLfh/Rp74k 0xHLSdDWWHIPckxFm9rH6i2vTwLNrO3IjEUa6v7sSUWOk8CMP+R2UyMDuUQ8 jxL0n4Tz9xr/9G35hCKgxDgzaxL+XCcETkQUoP7I7dX93FPgIh11Xsi2GOWI ZbYurJ0CXf9Vdp3Txcg3Wq1PaMMU7F4fEBf8oARtiTP/rSk2BRfO1l5JiylF Z1Ne7onZOwUSOZ+Kh3rLUEEBT5iJ2RTsvfSfdqBuBXp4ODzGwXIK3u2GbZ2R FciAJJXmf20Koi7zTyQPVqARqibOsZ8CA1d5gSz/SrS9/N4Mv98UuKVmpQTg KvSkmX2h8uMUXGe/aEq5WIPOn/ex7srkxLukn1aZXYMk2/jcpnOnoPuPfrAV dy2ifN8dvLNoCuIb/H5K59ai8d7rxfebpmCtlx1vgWA9ol6frAlvmwLpatnB brt6FNjv257ROQVrhPd2B5XXI6nh6ImOgSkQmv0v3dmrAU3YKixOjk4BPRrr pLY2oKIxEi/vBEevq8aB1sqNKMjxlMiOmSmYVfZu+xjciMzH23Ye/j0FGcWp Yc4jjQgOf39GW5wCGfv//5/8fycnuwQ= "]], LineBox[CompressedData[" 1:eJxFx2kogwEAxvHXnDkmi5QSMrK59mUailASM4yiZJbji7Oh3GkyEZqcOcvZ QuYs6f0gV3xQGPFBm7MoYpi5h9L7PPXv6eeWUSjMphEEwfnt78+u7Ml+2kMo 8b+NNzPWlik8FSRQJlrAbZWdXI0lnP7lHv5iC0eG5G5JGbBPzZzAxgF+I8JS mU5wu4moRMiEXzMduXuesGhtVxfHgtm1EaWxfvCqwasiigc/vj/VhPDheG1j E7sEpqsXh2nrMFEtTQqUaCl/KETKc8Yj5fxeZQtjFV7ybrCwK3iibB1d5FNL f6Z85LurKifhycFQ5qVIRzlFGWDn/A1XyoakJxMvlBXXzn10vp5y3YBMrBbA YuGdx3QC7EiSM7HJcL08dbM5A84K6NFalsOudfZR5uPwJ6/K5kgBH99d7I9P wvLk+bTIWfibLSyWkfDJnnzQWAUv1eszVYdwR3A6a+QYjhnzWwhXw8tlO9vS G7jLlytPuIUl5/1JbvewFz9Ps/IMmxgdjLbq4dPF4BzxO0zmjPhzvuBuFyud wQD/AL4gyIs= "]]}, Annotation[#, "Charting`Private`Tag$35708#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, Automatic}, {Automatic, Automatic}}, 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->NCache[{{ Rational[-1, 2], Rational[3, 2]}, {-6479.9786148088315`, 14927.695788551184`}}, {{-0.5, 1.5}, {-6479.9786148088315`, 14927.695788551184`}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.793723838204144*^9}, CellLabel->"Out[3]=", CellID->438470058] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", TaggingRules->{}, CellID->461278909], Cell[TextData[{ "Use ", Cell[BoxData["GeneralizedSmoothStep"], "InlineFormula", FontFamily->"Source Sans Pro"], " to demonstrate \"ease-in / ease-out\":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.85836171209811*^9, 3.858361715145756*^9}, 3.858361767896338*^9, 3.858362008096489*^9}, CellID->408960028], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{"n", ",", "x"}], "]"}], ",", " ", "0"}], "}"}]}], "]"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".1"}], ",", " ", "1.1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", ".1"}], ",", " ", ".1"}], "}"}]}], "}"}]}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "1"}], "}"}], ",", "0", ",", "5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "1"}], ",", " ", "2", ",", RowBox[{"ControlType", " ", "\[Rule]", " ", "Animator"}], ",", RowBox[{"AnimationRunning", "\[Rule]", "False"}]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->279927474], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3U9sFHfe4GFrd1bsCb2X3Oay8o0bN8uneU9ob6N3ldPk8r7s+NVymEXz rhTte+A2txyQcuPG3sgfIJNMY+NgsMEYMxYzDCECPELwEtbEeNBkiDwIvY7f Sve40253m+7q+tfffh6VZsCuLld1VRJ+H+pX/d/+6X//w9R/Ghsb+5f/mvzP P/zju3//y1/+4//9H3+X/ObtX/zL//rnX/z8f/73X/yfn//zz3858U//Ofni O8m6/++/jI19/+ttAAAAAAAAAAAAAAAAyNRnAAAAAMPv27/+e+N/LRaLxWKx WCwWi8VisViGd2mtHGXfUQIAAACQnsoBAAAAxKByAAAAADGoHAAAAEAMKgcA AAAQg8oBAAAAxKByAAAAADGoHAAAAEAMKgcAAAAQg8oBAAAAxKByAAAAADGo HAAAAEAMKgcAAAAQg8oBAAAAxKByAAAAADGoHAAAAEAMKgcAAAAQg8oBAAAA xKByAAAAADGoHAAAAEAMKgcAAAAQg8oBAAAAxKByAAAAADGoHAAAAEAMKgcA AAAQg8oBAAAAxKByAAAAADGoHAAAAEAMKgcAAAAQg8oBAAAAxKByAAAAADGo HAAAAEAMKgcAAAAQg8oBAAAAxKByAAAAADGoHAAAAEAKG7u9evWq7D1SOQAA AICebG5uPnz4cGlp6bPu5ubm7t69u7GxUcoeqhwAAADA/h49erSwsLBP3Nhr Zmbm9u3bm5ubRe6nygEAAAB08/Tp07m5ub76Rpu7d+++fv26mL1VOQAAAIC9 Xrx40e/9G93MzMysrq4WsM8qBwAAANDm6dOntVotk8TRdOvWra2trVx3W+UA AAAAWt27dy/bvtG0sLCQ65M6VA4AAACg6datWzkljoaZmZmXL1/mtPMqBwAA ANCwurraS6lYXFz8t05+//vf9/Lyubm5nJ5HqnIAAAAAibW1tR7vx7h58+Y3 nfQYSRLLy8t5HILKAQAAALx8+bL3x40OXjk+q3/CbOZHoXIAAAAAS0tLvQeK TCpHInlJtkehcgAAAMCI632uSraVI/N5KyoHAAAAjLiFhYVSKkdibW0twwNR OQAAAGCUPXr0qN80kWHlWFhYyPBYVA4AAAAYZX09kSPzyvFZpk/nUDkAAABg ZL169SpFl8i2cty/fz+rw1E5AAAAYGQ9efKk9Mpx5cqVrA5H5QAAAICRtby8 XHrlSGxubmZyOCoHAAAAjKzZ2dm9zWF+fv7qvr744ouOlePRo0f7vzAxPT29 9yc+efIkk8NROQAAAGBkdbyzYn19vWPEaPrzn//c8et/+ctf9n9h4urVq3t/ 4sOHD7M6HJUDAAAARtDm5mZFKse9e/cyOSKVAwAAAEbTixcvKlI5bt++nckR qRwAAAAwmjY2NipSOZaWljI5IpUDAAAARlN1KsetW7cyOSKVAwAAAEZTdZ7L cefOnUyOSOUAAACA0bS1tVWRynH//v1MjkjlAAAAgJFVq9X2Noc//vGP/7av tbW1jgVjY2Nj/xcmLl++vPcnPnnyJJPDUTkAAABgZC0sLHS8nWN/N2/e7Fg5 VldXU2wtsbGxkcnhqBwAAAAwsu7fv1965ZiZmcnqcFQOAAAAGFnffPNN6ZXj 9u3bWR2OygEAAACjbG5urtzKsba2ltWxqBwAAAAwyu7du1di5ajValtbW1kd i8oBAAAAo+zVq1cdP2mlmMqRvCTDY1E5AAAAYMT1eztHVpVjdnY2wxs5tlUO AAAAGHlbW1uzs7PFV46HDx9meyAqBwAAAPDo0aOCK8fi4mLmR6FyAAAAAIk7 d+4UVjlmZmY2NzczPwSVAwAAANiuz1tZXFwsoHLUarWNjY08DkHlAAAAABpe vXo1Nzf3xkxx8eLFq5308trEo0ePctp/lQMAAABo2tzcvHLlSi+xIoVarZZf 4thWOQAAAIDdXr9+vby8nHnimJmZyWmiSpPKAQAAAOx19+7dDBPHwsJCHo8b baNyAAAAAB198803g9/UMTs7m+sslVYqBwAAALCPjY2NhYWFFH1jZmbm/v37 W1tbhe2qygEAAAC80cuXL+/fv99L7piZmbl9+/ba2lqRfaNB5QAAAAB6t7m5 uba2dr/u1q1bS3WN3z569OjFixcl7pvKAQAAAMSgcgAAAAAxqBwAAABADCoH AAAAEIPKAQAAAMSgcgAAAAAxqBwAAABADCoHAAAAEIPKAQAAAMSgcgAAAAAx qBwAAABADCoHAAAAEIPKAQAAAMSgcgBQorF/vd/vUvYuAwBQXSoHACVSOQAA yJDKAUCJVA4gcffu3Vu3bv3ud7+7cePGUp+SlyQvXFlZ+fLLL8s+DgDKp3IA UCKVA0hcvXr1+vXrS0tLn3/++eyOz+suXrw4PT19oS75RfLbxtdbV0temGxh cXGx7OMAoHwqBwAlUjmAxMLCwvLy8s2bNy9fvjy326VLlxqto9E3kt+2rZC8 JHnhYl3ZxwFA+VQOAEqkcgCJ69evN3rFb37zm892fFo3MzMzPz/fmJyS/GJ6 errx9eZqyUuSF87Ozt64caPs4wCgfCoHACVSOYDteuVo3KTRrByffvrp+fPn P/nkk/n5+QcPHjyvu3fv3pUrVz6pUzkA6EjlAKBEKgew3aVynD179vz580tL S8+fP2+stra2tri4mHzx3Llzzds5VA4AWqkcAJRI5QC2WypHc6JKs3LcuHHj xYsXjdWePXu2uLh47ty55Fu//vWvG6upHAC0UjkAKJHKAWy3VI7GRJVzdR98 8MFHH3107dq19fX1xmpfffXV/Pz8B3Vnz55N1klWTv4cq3IA0FTRylGbGvve 5MnV73+3ulqbmpwc2zE5OVVbLXsPAciCygFsd6kcH374YaNyPHv2rLFao3J8 WNdYJ1k5eUnywosXL6ocAGwPQ+VYPflD32gxOVUreycBGJjKAWzXK0fjU2Jn ZmauXLlyvW6h7s6dOxsbG1t16+vrt2/fbnw9WWFxcTFZeXp6uvFClQOA7cpX jqmpyfr/naytNtROTjWjh84BMPRUDiCxuLg4MzPz+eefLywsPHjw4Ou6p3XP nz//9ttvX9e9fPky+W3j68kKz549u3fv3vz8fPLCCxcuqBwAbFe9crTMWun0 TZkDYNipHMB2vXJcuHBhdnZ2eXn5T3/6U+u3tra2Xr9+/de65Bffffdd63fX 19eXlpaSF9ZqNZUDgO3qV469jSPRnMQicwAMOZUD2N63cnz33Xf7VI7nz5+r HAC0qnjl6JIxdjJHxwYCwPBQOYDtPTNW1uv+f93eGSuNrycrfP3112asANCm 2pWjW8VQOQCCUDmA7d1PH52fn28+ffTq1attTx/9wx/+0Hz6aMLTRwFoo3I0 fAlAGVJUjrJ3GehV738Sa/0k2U8++eR83Ycffvjxxx9fu3bt66+/bqzW+CTZ j+oa6yQr+yRZAFqpHA3Jf4jX1tctFovFUvCSonKUvs8Wi6WXJUXlSDQqx7lz 586ePfvBBx989NFHi4uL6+vrjdW++uqrK1eufFCXrJCsdv78eZUDgFYqR0PZ f9cBMKLcywGB9f4nseaMlc92fPrpp42Osby8/OLFi8Zqz549u3bt2tm6T3ck K6scADSpHACUyHM5gO3uleP8+fM3btzY2NhorLa2tnbt2rVzdSoHAB2pHACU SOUAtrtUjsZjN+bn5x88eLBRd+/evcuXLzeeyKFyANCRygFAiVQOYLteOebm 5i5fvlyr1X6zo9E6Gp+6cqMu+cX09HQzbjQkayYvnJ2dVTkA2FY5ACiVygEk FhYWlpeXb968eeXKlcst5ubmLl26NDs7e7Gucb/H3G7JaskLF+vKPg4Ayqdy AFAilQNIXLt27fr160tLS5cuXfp8t9nZ2enp6Qt1MzMzyW/bVkhekrzw6tWr KgcA2yoHAKVSOYDEF198catuaWnpep+SlyQv/O1vf9vXp7oAEFVFKwcAo0Hl AAAgQyoHACVSOQAAyJDKAUCJVA4AADKkcgBQIpUDAIAMqRwAlEjlAAAgQyoH ACVSOQAAyJDKAUCJVA4AADKkcgBQIpUDAIAMqRwAlEjlAAAgQyoHAAAAEIPK AQAAAMSgcgAAAAAxqBwAAABADCoHAAAAEIPKAQAAAMSgcgAAAAAxqBwAAABA DCoHAAAAEIPKAQAAAMSgcgAAAAAxqBwAAABADCoHAAAAEIPKAQAAAMSgcgAA AAAxqBxAGGP/er+YpewDBQAAOlM5gDBUDgAAGHEqBxCGygEAACNO5QDCUDkA AGDEqRxAGCoHAACMOJUDCEPlAACAEadyAGGoHAAAMOJUDiAMlQMAAEacygGE oXIAAMCIUzmAMFQOgGH3cTiOa7i4bhtiH5fz202696eCVA4gDJUDYNglf8x+ HMjHLaPFsvclS+GPy3Ub+7hG/Px2o3IAVJDKATDsgo0mwo8Wox6X6zb2cY34 +e1G5QCoIJUDYNgFG02EHy1GPS7XbezjGvHz243KAVBBKgfAsAs2mgg/Wox6 XK7b2Mc14ue3G5UDoIJUDoBhF2w0EX60GPW4XLexj2vEz283KgdABakcAMMu 2Ggi/Ggx6nG5bmMf14if325UDoAKUjkAhl2w0UT40WLU43Ldxj6uET+/3agc ABWkcgAMu2CjifCjxajH5bqNfVwjfn67UTkAKkjlABh2wUYT4UeLUY/LdRv7 uEb8/HajcgBUkMoBMOyCjSbCjxbzPq4TJ04c33Hnzp1cf9bjao+Cjx07dvjw 4cXFxbx/0OMRuG4reH6rQOUAqCCVA2DYBRtNhB8t5n1cP/7xj8d2FDDAr+Yo eGVl5fDhw4034eDBg6dOncrvZzWEv24rdX6rQ+UAqCCVA2DYBRtN5DRaPH/+ fIZbS0HlKOy6PX369MGDB8d2O3r06IMHD3L6iY9Vjuj/XupG5QCoIJUDYNgF G03kNFpMxv7Hjx/PcIP9UjmKuW6PHTs21kWus1cGOb8rKyu5FphE6gOv2vmt GpUDoIJUDoBhF2w0kV/lSMa5R44cKeBRFR2pHHlft62zVLrJb/ZK6vP74MGD 8fHxQ4cOzc3N5bFjyfaPHj164MCBdLczVef8VpPKAVBBKgfAsAs2msi1ciSS EWVOw8n9qRy5XrcdZ6m8++67ydC+9Q3Jb/ZK6vP79ttvNwvM+++/n+1eJRdA s/wk70OKxFeR81tZKgdABakcAMMu2Ggi78qR61/o70PlyO+63TtL5a233mre upAM7Y8cOZL37JV05/e9995r27F33nknqwKTXORt5Sd5H/rdSBXOb4YuXLiQ 7QZVDoAKUjkAhl01RxOpFVA5Ggp+TIfKkcd123GWyk9+8pO9Ny2cOHHiwIED ratlG7vSnd9kP5O9bdv/wWevNGap7C0/Z86c6XdTwSrH+Pj46dOnM9ygygFQ QSoHwLCr5mgitcIqx1ixj+lQOTK/brvNUum2fq6zVwY5v8k+t+3VILNXWmep NE1MTKysrKTYWrDKkVwABw4cyDB0qByFqE397UKeqqX4NjB6VA6AYVfN0URq RVaOsQIf06FyZHvd7j9LpZv8Zq8MeH6TPU/2f/AC07H8DHLbUrzKkbwhGYYO laMg+4SM1ZOTGgewm8oBMOyqOZpIreDKMVbUYzpUjqyu295nqXSTx+yVwc9v x9krfRWYjuUnxSyVViErR4ahQ+UozE7nmDy52vpljQPoQOUAGHbVHE2kVnzl aMj7MR0qRybXbb+zVLrJfPZKVuc3OZYUBaZb+Uk3S6VV1MqRVehQOYrTqWdo HEBHKgfAsKvmaCK1sirHWM6P6VA5Br9u081S6Sbb2SsZnt9+C0xW5aejwJUj k9ChchRpT9PYub9D4wB2UzkAhl01RxOplVg5xvJ8TIfKMch1O/gslW6ymr2S 7fntvcBkW372il05Bg8dKkexdjpHfdqKxgF0o3IADLtqjiZSK7dypB7kvpHK Mch1m5yRttOU1b0KjzvdO3HkyJF+N5LH+e1YYJpD8pWVlYmJiba3JZPy0yp8 5RgwdKgcRWt2jqmpSY0D6ELlABh21RxNpFZ65WjI/DEdKseA123zpoVs71Vo aL13Ynx8PMXTOXI6vx1nryRvxZkzZ/Z+JkuG5adpFCrHIKFD5Shec95KTo3j S2D4FVY5yj5QgOGQ4o9k/Y4mTpw4cbwoKf5auSKVYyzrx3SkPq5+z1frIxqO Hj1a2PnK+7pNTExM9HWvwrFjx/p6zkbyVifvXropS/lVrI6zV9rkUX4acj2/ Rf67qGHvA0yafvSjH/30pz/t958FlaMEzU+V3fOBK5lI/kO8tr5usViGeims cpR+pBaLxVL9pZjKkWK8n1qKewmqUznGMn1MR+rjGpbzlfd1+7g+3u9xzdbn ePQ1BSl118r7Xp29s1eaMp+l0irX81vktd2vHv9ZUDkK97fGMTnZ8oSOTJX9 dx1ABtzLAVApKf5IFnXUXIXKMZZ2/sJeKseA123vOn7myCCfEtuLAmYkdZy9 kscslVYqR07vTwUNReXYaRwnV5u3dORxPwcw5AqrHGUfKEBYUUfNVagchw8f XllZyWQHVI4Br9se7f3Mkdazmd+DSga5bpNrrMcC0zp7pa9ZKqkPXOXI6f2p oOpXjvZPktU5gC5UDoBh57kcvUgxnnrnnXcy/Nt/z+UY8Lp9o46fNtsmpw/Q eTzA+U2usfHx8UOHDvU+Nyq5JHp/aEyy/eQyOHDgQLoHd4zOczmSt+hnP/tZ v/8sqBzFaW8c39M5gI5UDoBhV83PMkitCpUjGe/86le/yvCnP/YZKzlftx1n qbz77rsdZ3nkMXsl9fl9++23mwXm/fffz3avkgugWX6S92GoK1Ymuv17IHnz L1y4kGKDKkdROjWO1i/rHEALlQNg2FVzNJFa6ZUjp4+rUDnyu273zlJpPYkd P6Mk89kr6c7ve++917ZjGd5BdOrUqbbyk7wP/W6kCuc3Qx3/PZA6cTxWOYrS pXHs+pbOATSpHADDrpqjidTKrRwZPoijjcqRx3XbcZZKx88c2fsZJdnOXkl3 fpP9TPa2bf/7mr3SUWOWSttm33rrrTNnzvS7qfCVY5DE8VjlKMYbQobOAbRT OQCGXTVHE6mVWDmyfRBHG5Uj8+u22yyVbuvnOntlkPOb7PPeoXfq2Suts1Sa JiYm0uW72JVjwMTxWOUAqCSVA2DYVXM0kVoplSOPB3G0UTmyvW73n6XSTX6z VwY8v8meJ/s/eIHpWH6OHz+eYpcaAleOwRPHY5UDoJJUDoBhV83RRGrFV46c HsTRRuXI6rrtfZZKN3nMXhn8/HacvdJXgelYflLMUmkVtXJkkjgeqxwAlaRy AAy7ao4mUiu4cuT3II42Kkcm122/s1S6yXz2SlbnNzmWFAWmW/kZ/NoOWTmy ShyPVQ6ASlI5AIZdNUcTqRVZOXJ9EEcblWPw6zbdLJVusp29kuH57bfAZFV+ OopXOTJMHI9VDoBKUjkAhl01RxOpFVM5CngQRxuVY5DrdvBZKt1kNXsl2/Pb e4HJtvzsFaxyHDp0KMPE8VjlAKgklQNg2FVzNJFaAZWjmAdxtFE5BrluT506 ldO9Co873Ttx5MiRfjeSx/ntWGBOnz7d+O7KysrExEQe5adVsMqR+T8RKgdA BakcAMOumqOJ1PKuHIU9iKONyjHgddu8aSGPSNV678T4+HiKeUw5nd+Os1eS t+LMmTN7P5Mlw/LTFKxyZE7lAKgglQNg2AUbTeRaOYp8EEcblWPw63ZiYiLz exVanThx4uDBg3Nzcylem9/57Th7pU1+tyepHPtTOQAqSOUAGHbBRhM5jRbH x8cLfhBHG5Vj8Os2v74x+I/I+/zunb2S3yyVVirH/lQOgApSOQCGXbDRRE6j xXR/QZ8hlcN1O6COs1fymKXSyvndn8oBUEEqB8CwCzaaKKwGFEzlcN0OrnX2 SjEP0XV+96dyAFSQygEw7IKNJlSOAZ04ceL4jgKmeBgFNxR53San+MiRIwWc 3MfO75uoHAAVpHIADLtgowmVY7gYBTc4v7HPbzcqB0AFqRwAwy7YaCL8aDHq cbluYx/XiJ/fblQOgApSOQCGXbDRRPjRYtTjct3GPq4RP7/dqBwAFaRyAAy7 YKOJ8KPFqMfluo19XCN+frtROQAqSOUAGHbBRhPhR4tRj8t1G/u4Rvz8dqNy AFSQygEw7IKNJsKPFqMel+s29nGN+PntRuUAqCCVA2DYfRyO4xourtuG2Mfl /HaT7v2pIJUDCEPlAACAEadyAGGoHAAAMOJUDiAMlQMAAEacygGEoXIAAMCI UzmAMFQOAAAYcSoHEIbKAQAAI07lAMJQOQAAYMSpHEAYKgcAAIw4lQMAAACI QeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAA ACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5 AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACI QeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIIdvKsQIAAADQs6dPnw6eI5pU DgAAAKAsKgcAAAAQg8oBAAAAxDAslWPwrQEAAADxPH36VOUAAAAAAlA5AAAA gBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUA AAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAG lQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAA gBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUA AAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAG lQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAA gBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUA AAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAG lQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAA gBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUA AAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAG lQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAA gBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUA AAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAG lQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAA gBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUA AAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAG lQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAA gBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUA AAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAG lQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAA gBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUA AAAAYlA5oKva1FhaU7Wyd74kq6u1Fqtl7w4AADBaVA7oSuXo3673bPKkzAEA ABRJ5YCuVI7+qRwAAECJVA7oSuXon8oBAACUSOWATKy2Du9HeHSvcgAAACVS OSADxvY7vBMAAECJVA4Y1OrJSXNVdqgcAABAiVQOGIxh/S673o4RLz4AAEDh VA4YQIrbOFZrJ6cmJ1tflvxu6mSt9zySagvN+vBDiGlsp3UrHTay2tNaLeu3 viMqBwAAUCyVA1Lr8zaOei8Y28fk1BtaxwBb2F05Vmvdt9OaQXpZq20XVQ4A AKA8Kgek1N/cjN13fezTKbrGksG20FI5am/c0PebePOP63zMLW+L+TsAAEDB VA5Io7+pKm3FYPecj9X2WyY6bW3gLexqMj9so7mRtk0056h8f3dI15U6VQyV AwAAKI/KAf3rc6pK6+qTXYrI/jM9st1CD4Giay3Z9WM6baXl+yasAAAABVM5 oE/9PnG0df191+56F8TgW+gxzPRWb1rW6rA3KgcAAFAelQP60vcHx7aM+t+0 epdVB99C2353rQ9vuk9jz1qdtvTDT1I5AACAgqkc0Ls0Hxzbe6LosvLgW/he b4/L2P82jb0/Y9/K4bEcAABA0VQO6FXft3G0vaiHKtJp7cG30PtWflhrn+NT OQAAgKpSOaAnKW7jqOupG3T6KR0qR9ot7N5K3pWj+W0TVgAAgKKpHNCD3Z8+ 0s/wXeUAAAAojMoBb7L7No4+52GMXuVobkTlAAAAiqZywP7S38bR/vIReS7H zkY8lgMAACicygH7GOg2jvYtVOUzVvKuHH/7vsoBAAAUTuWArtI+cbTbRt40 7m/9eS0/bfAtbBdaOQAAAMqickAXqT44toPu5WGfH7hrxcG3oHIAAAAjQeWA TjK5jWNHa3yY7LKtXT9wT2LIdAsqBwAAEJXKAR3sjhyptAaAts1NTp2s/dAQ VldrU7u/3SEwDLyFoipH6456MgcAAFAwlQM6yLhy9LHF7mVgsC2oHAAAwAhQ OaCD7CvH9xttu+Nib5+Yqr3h4aLpt6ByAAAAI0DlgA5yqRyNLa/WTk5NTu76 gNrJqV0TUN60b6m2oHIAAAAjQOUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACI QeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAA ACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5 AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACI QeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAA ACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5 AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACI QeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAA ACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5 AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACI QeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAA ACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5 AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACI QeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAA ACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5 AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACI QeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAA ACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5 AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACI QeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAA ACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5 AAAAgBhUDgAAACAGlQMAAACIQeUAAAAAYlA5AAAAgBhUDgAAACCGYawcAAAA APtTOQAAAIAYVA4AAAAgBpUDAAAAiKHKlQMAAACgLCoHAAAAEIPKAQAAAMSg cgAAAAAxqBwAAABADCoHAAAAEIPKAQAAAMSgcgAAAAAxqBwAAABADCoHAAAA EIPKAQAAAMSgcgAAAAAxqBwAAABADCoHAAAAEIPKAQAAAMSgcgAAAAAxqBwA AABADCoHAAAAEIPKAQAAAMSgcgAAAAAxqBwAAABADCoHAAAAEIPKAQAAAMTQ rBwAAAAAw+7bv/67xWKxWCwWi8VisVgsFkuMpew7SgAAAAAAAAAAAAAAAIjm PwAaNr1a "], {{0, 302.}, {721., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{360.5, Automatic}, ImageSizeRaw->{721., 302.}, PlotRange->{{0, 721.}, {0, 302.}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.793723841628869*^9}, ImageSize->{724, 304}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, CellLabel->"Out[1]=", CellID->825024893] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source & Additional Information"}, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Contributed By"}, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell["Jan Mangaldan", "Text", CellID->46070380] }, 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["generalized smoothstep", "Item", CellID->300483410], Cell["smoothstep", "Item", CellID->461456211], Cell["smootherstep", "Item", CellID->661221450], Cell["step function", "Item", CellID->103144845], Cell["unit step", "Item", CellID->703554304], Cell["heaviside theta", "Item", CellID->830832413], Cell["interpolate", "Item", CellID->278996266], Cell["sigmoid", "Item", CellID->404735176], Cell["computer graphics", "Item", CellID->714200515], Cell["logistics curve", "Item", CellID->274505659] }, 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[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "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" -> "OEM6eJxVT8tqw0AMpKVp7RD6CSWn3vwRxk0gEJIS9QfszSRdsi9W0mH/\ vmsCpT1p0IxmRn3T0YKkONDzUSWpdPQyfMPccL488NPestAbFT9FZ836fX1Qj1zREH0Vj2JjqA47gW\ due5Xo68501HzmmJCl0HIYBdeYLbh6H9N8wpfHu/c8T+rAzeZsZZwqWmxHx/gl2g84/GXmgtGpD/\ 8DX3dBkFPGvRS1fSikE6N+tDqBo2aDr5JAzVaDmTU/2K1YQg=="}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->917010143] }, 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["BetaRegularized", "Item", CellID->40117806], Cell["Clip", "Item", CellID->590780336], Cell["InterpolatingPolynomial", "Item", CellID->229544597], Cell["Piecewise", "Item", CellID->247942928] }, 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["SmoothStep", "Item", CellID->478925841], Cell["SmootherStep", "Item", CellID->500265315], Cell["RationalSmoothStep", "Item", CellID->897745747] }, 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["\<\ Perlin, K., \"An Image Synthesizer.\" SIGGRAPH Comput. Graph., vol.\ \[NonBreakingSpace]19,\[NonBreakingSpace]no. 97\[Dash]8930, 287\[Dash]296, \ 1985. DOI: 10.1145/325334.325247\ \>", "Text", CellID->701878015] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[TextData[ButtonBox["Wikipedia\[Dash]Smoothstep: Generalization to higher \ order equations", BaseStyle->"Hyperlink", ButtonData->{ URL["https://en.wikipedia.org/wiki/Smoothstep#Generalization_to_higher-\ order_equations"], None}, ButtonNote-> "https://en.wikipedia.org/wiki/Smoothstep#Generalization_to_higher-order_\ equations"]], "Item", CellID->822498752] }, 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[{"GeneralizedSmoothStep", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "10"}], "]"}], ",", RowBox[{"3", "/", "4"}]}], "]"}]], "Input", CellID->119504931], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["3", "4"], ",", FractionBox["27", "32"], ",", FractionBox["459", "512"], ",", FractionBox["3807", "4096"], ",", FractionBox["124659", "131072"], ",", FractionBox["1012581", "1048576"], ",", FractionBox["16369695", "16777216"], ",", FractionBox["131895783", "134217728"], ",", FractionBox["8483550147", "8589934592"], ",", FractionBox["68107648041", "68719476736"], ",", FractionBox["1092449782917", "1099511627776"]}], "}"}]], "Output", CellID->327305581] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "10"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"3", "/", "4"}], "]"}]}], "]"}]], "Input", CellID->551843676], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.75`", ",", "0.84375`", ",", "0.8964843749999999`", ",", "0.9294433593749997`", ",", "0.951072692871094`", ",", "0.9656724929809569`", ",", "0.9757098555564895`", ",", "0.9827001616358751`", ",", "0.9876152205979439`", ",", "0.9910967206960755`", ",", "0.9935772895159964`"}], "}"}]], "Output", CellID->671544958] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedSmoothStep", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "10"}], "]"}], ",", RowBox[{"N", "[", RowBox[{ RowBox[{"3", "/", "4"}], ",", "20"}], "]"}]}], "]"}]], "Input", CellID->397436326], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.75`19.52287874528034", ",", "0.84375`19.34678748622466", ",", "0.89648437499999999999999999999999999996`19.397940008672037", ",", "0.92944335937499999999999999999999999944`19.30102999566398", ",", "0.95107269287109374999999999999999997969`19.221848749616356", ",", "0.96567249298095703125000000000000028184`19.154901959985743", ",", "0.97570985555648803710937499999999774023`19.096910013008056", ",", "0.98270016163587570190429687499989680213`19.045757490560675", ",", "0.98761522059794515371322631835844319376`19.", ",", "0.991096720696077682077884674072265625`18.958607314841775", ",", "0.99357728951599710853770375251770019531`18.920818753952375"}], "}"}]], "Output", CellID->891925584] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your resource to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["12.3+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your resource is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your resource."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your resource is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{ "\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{ "\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\ nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\ tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\ sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\ CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\ "}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your resource is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"GeneralizedSmoothStep | 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.869668590073876`16.340248761500504*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.869668590128706`16.340248761506654*^9, "VersionInformation" -> {"ResourceVersion" -> "2.0.0"}, "TemplateVersion" -> "1.6.4", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.6666666666666666], 0], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, { 34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"], DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8CJZ47CsMQUA2qYY8cOe/Zsl82ZQBGQFF gOLEGPI8UOymHTtE1xUkE+BsoCxQDR5DgLJotuNCyOagGQJ3A0EEVInVEKB/ iTQBguDhg2wIZkjiR0D1EI2Q1AiJTbSQxI8gKiHxzgAGlBtCFZdQMUyoFTtU SSfUSrFUyTvUysVULE9IQlQ0BD8gprQHAOYEDp4= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoY8DpK86ikKQUA2qYacdhZaZ8CxXJsNGQFF gOLEGHLfX3yHOTeadmQElAWqwWMIUBaPdmSEbA6aIRA3rMCrfQXMPVgNAfqX SGdAEDx8kA3BDEn8CKgeohGSGiGxSZIJEASJdwYwoNwQqriEimFCrdihSjqh VoqlSt6hVi6mYnlCEqKiIfgBMaU9AAiH5q8= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8zTb72JMMQUA2qYZ8Wdr69/1LNF8DRYDi xBjyvsz115UjEPFvL589PbgNgoBsiCBQFqgGjyFAWYjIpwe3D2YFLNdmQ0ZA EaA4RAGyOWiGQNzw/ubllQY8aCZAEFAcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+y IZCQxPQFJgKqgYQzRCMkNUJiExKSBE2AIEg4Q+KdAQwoN4QqLqFimFArdqiS TqiVYqmSd6iVi6lYnpCEqGgIfkBMaQ8AIISqgg== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.921569, 0.341176, 0.105882], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[637, 23, 104, 2, 70, "Title",ExpressionUUID->"0617bd26-fdfb-45a5-a0c6-9f00d9e702d5", CellTags->{"Name", "TemplateCell", "Title"}, CellID->113331143]}, "TemplateCell"->{ Cell[637, 23, 104, 2, 70, "Title",ExpressionUUID->"0617bd26-fdfb-45a5-a0c6-9f00d9e702d5", CellTags->{"Name", "TemplateCell", "Title"}, CellID->113331143], Cell[744, 27, 128, 2, 70, "Text",ExpressionUUID->"beab9622-7c9e-46da-b32b-743c344677c3", CellTags->{"Description", "TemplateCell"}, CellID->125270565]}, "Title"->{ Cell[637, 23, 104, 2, 70, "Title",ExpressionUUID->"0617bd26-fdfb-45a5-a0c6-9f00d9e702d5", CellTags->{"Name", "TemplateCell", "Title"}, CellID->113331143]}, "Description"->{ Cell[744, 27, 128, 2, 70, "Text",ExpressionUUID->"beab9622-7c9e-46da-b32b-743c344677c3", CellTags->{"Description", "TemplateCell"}, CellID->125270565]}, "Definition"->{ Cell[897, 33, 1206, 29, 70, "Section",ExpressionUUID->"dad37f63-2965-40f5-8227-42433ab1ee83", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[897, 33, 1206, 29, 70, "Section",ExpressionUUID->"dad37f63-2965-40f5-8227-42433ab1ee83", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[897, 33, 1206, 29, 70, "Section",ExpressionUUID->"dad37f63-2965-40f5-8227-42433ab1ee83", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[5585, 184, 1980, 50, 70, "Subsection",ExpressionUUID->"8aa52395-e06e-473f-8faa-8c5f2e4bb5d9", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[8152, 263, 1429, 32, 70, "Subsection",ExpressionUUID->"dfa208fa-cc3b-43c8-aa35-88e1a4b9ae52", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[13092, 436, 7029, 152, 70, "Section",ExpressionUUID->"07fdb33c-9e85-4f01-bf8c-1e94b1319a69", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[254947, 5630, 1026, 26, 70, "Subsection",ExpressionUUID->"b93cfa0b-6fbe-46ad-8cfb-7f1fa5a07870", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[256061, 5664, 996, 26, 70, "Subsection",ExpressionUUID->"6c191c04-4bb9-4bcb-88ea-55e43d59694b", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[257615, 5725, 221, 6, 70, "Subsection",ExpressionUUID->"310df74b-61e6-4171-8a0d-16195c7f2bc9", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[266150, 5989, 980, 26, 70, "Subsection",ExpressionUUID->"c625e03c-bb47-4ee7-ac62-bf3c00c81ba2", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[267373, 6032, 1039, 26, 70, "Subsection",ExpressionUUID->"cc176393-8480-4c4a-b6f7-a4405b05d8f2", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[268606, 6072, 1084, 26, 70, "Subsection",ExpressionUUID->"7e2495b9-05c0-4253-bc49-be268c050898", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[269952, 6110, 923, 26, 70, "Subsection",ExpressionUUID->"899925b5-7083-4632-af7a-8aac218497ee", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[271287, 6152, 1874, 45, 70, "Subsection",ExpressionUUID->"d14835b6-b866-4e1f-9421-c1e48b5b927f", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[275704, 6280, 955, 25, 70, "Subsection",ExpressionUUID->"3c7ec277-3824-4773-baaa-f2f966da996e", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[276684, 6309, 1174, 31, 70, "Subsubsection",ExpressionUUID->"50692ffd-d5f4-4f55-8281-8b86179b28e4", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[277987, 6349, 1113, 29, 70, "Subsubsection",ExpressionUUID->"785b253b-0429-4fa8-ba60-00304ec1ee22", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[281238, 6447, 1280, 33, 70, "Subsubsection",ExpressionUUID->"8c354422-6368-492e-af3a-9486074dfba7", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[284707, 6550, 1913, 46, 70, "Subsubsection",ExpressionUUID->"dba6f77c-b05a-4a06-8fee-88ec12572ca1", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[290646, 6720, 1071, 27, 70, "Subsubsection",ExpressionUUID->"d226a357-3e95-4255-b9a3-cee85b49d331", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[292999, 6792, 1155, 28, 70, "Section",ExpressionUUID->"434567d8-7f03-4494-a531-f4a6c0cd20e7", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[294723, 6835, 1033, 26, 70, "Section",ExpressionUUID->"0464ef18-3137-4044-ac8a-79e7038ed3fe", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[5365, 175, 195, 5, 70, "Section",ExpressionUUID->"da575254-43dc-4950-8f92-4754aeed6086", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[5365, 175, 195, 5, 70, "Section",ExpressionUUID->"da575254-43dc-4950-8f92-4754aeed6086", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[254673, 5621, 249, 5, 70, "Section",ExpressionUUID->"af578ac7-7386-47bd-b1a0-5869a4670607", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[5585, 184, 1980, 50, 70, "Subsection",ExpressionUUID->"8aa52395-e06e-473f-8faa-8c5f2e4bb5d9", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[8152, 263, 1429, 32, 70, "Subsection",ExpressionUUID->"dfa208fa-cc3b-43c8-aa35-88e1a4b9ae52", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[8152, 263, 1429, 32, 70, "Subsection",ExpressionUUID->"dfa208fa-cc3b-43c8-aa35-88e1a4b9ae52", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "TabNext"->{ Cell[9584, 297, 1972, 73, 70, "Notes",ExpressionUUID->"bcc9d6ed-43a4-4c92-a1f1-c4dddcc30886", CellTags->"TabNext", CellID->440948280], Cell[11559, 372, 729, 28, 70, "Notes",ExpressionUUID->"4d1379d4-80f4-44cb-b913-d7a254cb51bc", CellTags->"TabNext", CellID->485543477], Cell[12429, 408, 216, 6, 70, "Notes",ExpressionUUID->"58a0d131-8762-442e-ada0-62573cde3a29", CellTags->"TabNext", CellID->364676306], Cell[12648, 416, 199, 6, 70, "Notes",ExpressionUUID->"27525849-3eb5-49f8-a059-316dcb592f35", CellTags->"TabNext", CellID->113336511], Cell[294157, 6822, 529, 8, 70, "Text",ExpressionUUID->"e414f70a-f495-4485-8ed6-d354c79db705", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[295759, 6863, 515, 8, 70, "Text",ExpressionUUID->"4007a975-a093-4163-b778-61b86ecf4fa8", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Examples"->{ Cell[13092, 436, 7029, 152, 70, "Section",ExpressionUUID->"07fdb33c-9e85-4f01-bf8c-1e94b1319a69", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "Source & Additional Information"->{ Cell[254673, 5621, 249, 5, 70, "Section",ExpressionUUID->"af578ac7-7386-47bd-b1a0-5869a4670607", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[254947, 5630, 1026, 26, 70, "Subsection",ExpressionUUID->"b93cfa0b-6fbe-46ad-8cfb-7f1fa5a07870", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[254947, 5630, 1026, 26, 70, "Subsection",ExpressionUUID->"b93cfa0b-6fbe-46ad-8cfb-7f1fa5a07870", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[256061, 5664, 996, 26, 70, "Subsection",ExpressionUUID->"6c191c04-4bb9-4bcb-88ea-55e43d59694b", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[257615, 5725, 221, 6, 70, "Subsection",ExpressionUUID->"310df74b-61e6-4171-8a0d-16195c7f2bc9", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[257839, 5733, 8274, 251, 70, "Output",ExpressionUUID->"c62265c8-95d6-4093-a221-e591d34ff1f7", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->917010143]}, "Categories-Checkboxes"->{ Cell[257839, 5733, 8274, 251, 70, "Output",ExpressionUUID->"c62265c8-95d6-4093-a221-e591d34ff1f7", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->917010143]}, "CheckboxCell"->{ Cell[257839, 5733, 8274, 251, 70, "Output",ExpressionUUID->"c62265c8-95d6-4093-a221-e591d34ff1f7", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->917010143], Cell[279103, 6380, 2098, 62, 70, "Output",ExpressionUUID->"8c846670-653c-40e7-b84d-13cf9d8ca2ef", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368], Cell[282521, 6482, 2149, 63, 70, "Output",ExpressionUUID->"e6258995-90a4-4e67-bcf6-c5f1727308fe", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753], Cell[286623, 6598, 3986, 117, 70, "Output",ExpressionUUID->"31a85130-7495-43d7-8ae7-4cf1ac705626", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750], Cell[291720, 6749, 1218, 36, 70, "Output",ExpressionUUID->"9d1154a9-857f-424d-bf82-9d942a213dfa", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Related Symbols"->{ Cell[266150, 5989, 980, 26, 70, "Subsection",ExpressionUUID->"c625e03c-bb47-4ee7-ac62-bf3c00c81ba2", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[267373, 6032, 1039, 26, 70, "Subsection",ExpressionUUID->"cc176393-8480-4c4a-b6f7-a4405b05d8f2", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[268606, 6072, 1084, 26, 70, "Subsection",ExpressionUUID->"7e2495b9-05c0-4253-bc49-be268c050898", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "Links"->{ Cell[269952, 6110, 923, 26, 70, "Subsection",ExpressionUUID->"899925b5-7083-4632-af7a-8aac218497ee", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[271287, 6152, 1874, 45, 70, "Subsection",ExpressionUUID->"d14835b6-b866-4e1f-9421-c1e48b5b927f", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[271287, 6152, 1874, 45, 70, "Subsection",ExpressionUUID->"d14835b6-b866-4e1f-9421-c1e48b5b927f", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[275704, 6280, 955, 25, 70, "Subsection",ExpressionUUID->"3c7ec277-3824-4773-baaa-f2f966da996e", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[276684, 6309, 1174, 31, 70, "Subsubsection",ExpressionUUID->"50692ffd-d5f4-4f55-8281-8b86179b28e4", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[276684, 6309, 1174, 31, 70, "Subsubsection",ExpressionUUID->"50692ffd-d5f4-4f55-8281-8b86179b28e4", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "DefaultContent"->{ Cell[277861, 6342, 89, 2, 70, "Text",ExpressionUUID->"ed7396a9-4ef8-4db6-bb39-2904654d41b4", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[294157, 6822, 529, 8, 70, "Text",ExpressionUUID->"e414f70a-f495-4485-8ed6-d354c79db705", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[295759, 6863, 515, 8, 70, "Text",ExpressionUUID->"4007a975-a093-4163-b778-61b86ecf4fa8", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "ScrapeDefault"->{ Cell[277861, 6342, 89, 2, 70, "Text",ExpressionUUID->"ed7396a9-4ef8-4db6-bb39-2904654d41b4", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[277987, 6349, 1113, 29, 70, "Subsubsection",ExpressionUUID->"785b253b-0429-4fa8-ba60-00304ec1ee22", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[279103, 6380, 2098, 62, 70, "Output",ExpressionUUID->"8c846670-653c-40e7-b84d-13cf9d8ca2ef", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "Operating System"->{ Cell[277987, 6349, 1113, 29, 70, "Subsubsection",ExpressionUUID->"785b253b-0429-4fa8-ba60-00304ec1ee22", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[279103, 6380, 2098, 62, 70, "Output",ExpressionUUID->"8c846670-653c-40e7-b84d-13cf9d8ca2ef", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "CompatibilityFeatures"->{ Cell[281238, 6447, 1280, 33, 70, "Subsubsection",ExpressionUUID->"8c354422-6368-492e-af3a-9486074dfba7", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[282521, 6482, 2149, 63, 70, "Output",ExpressionUUID->"e6258995-90a4-4e67-bcf6-c5f1727308fe", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "Required Features"->{ Cell[281238, 6447, 1280, 33, 70, "Subsubsection",ExpressionUUID->"8c354422-6368-492e-af3a-9486074dfba7", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[282521, 6482, 2149, 63, 70, "Output",ExpressionUUID->"e6258995-90a4-4e67-bcf6-c5f1727308fe", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "CompatibilityEvaluationEnvironment"->{ Cell[284707, 6550, 1913, 46, 70, "Subsubsection",ExpressionUUID->"dba6f77c-b05a-4a06-8fee-88ec12572ca1", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[286623, 6598, 3986, 117, 70, "Output",ExpressionUUID->"31a85130-7495-43d7-8ae7-4cf1ac705626", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750]}, "Environments"->{ Cell[284707, 6550, 1913, 46, 70, "Subsubsection",ExpressionUUID->"dba6f77c-b05a-4a06-8fee-88ec12572ca1", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[286623, 6598, 3986, 117, 70, "Output",ExpressionUUID->"31a85130-7495-43d7-8ae7-4cf1ac705626", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750]}, "Cloud Support"->{ Cell[290646, 6720, 1071, 27, 70, "Subsubsection",ExpressionUUID->"d226a357-3e95-4255-b9a3-cee85b49d331", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[290646, 6720, 1071, 27, 70, "Subsubsection",ExpressionUUID->"d226a357-3e95-4255-b9a3-cee85b49d331", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[291720, 6749, 1218, 36, 70, "Output",ExpressionUUID->"9d1154a9-857f-424d-bf82-9d942a213dfa", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[291720, 6749, 1218, 36, 70, "Output",ExpressionUUID->"9d1154a9-857f-424d-bf82-9d942a213dfa", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Author Notes"->{ Cell[292999, 6792, 1155, 28, 70, "Section",ExpressionUUID->"434567d8-7f03-4494-a531-f4a6c0cd20e7", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[294723, 6835, 1033, 26, 70, "Section",ExpressionUUID->"0464ef18-3137-4044-ac8a-79e7038ed3fe", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 419286, 9191}, {"TemplateCell", 419469, 9195}, {"Title", 419805, 9202}, {"Description", 419987, 9206}, {"Definition", 420165, 9210}, {"Function", 420361, 9214}, {"TemplateCellGroup", 420566, 9218}, {"Documentation", 424418, 9279}, {"TemplateSection", 424611, 9283}, {"Usage", 424985, 9290}, {"Details & Options", 425179, 9294}, {"Notes", 425382, 9298}, {"TabNext", 425587, 9302}, {"Examples", 426499, 9321}, {"Source & Additional Information", 426709, 9325}, {"Contributed By", 426922, 9329}, {"ContributorInformation", 427158, 9333}, {"Keywords", 427380, 9337}, {"Categories", 427572, 9341}, {"Categories-Checkboxes", 427970, 9348}, {"CheckboxCell", 428184, 9352}, {"Related Symbols", 429309, 9368}, {"Related Resource Objects", 429522, 9372}, {"Source/Reference Citation", 429746, 9376}, {"Links", 429951, 9380}, {"Tests", 430135, 9384}, {"VerificationTests", 430353, 9388}, {"Compatibility", 430567, 9392}, {"CompatibilityWolframLanguageVersionRequired", 430797, 9396}, {"Wolfram Language Version", 431070, 9400}, {"DefaultContent", 431333, 9404}, {"ScrapeDefault", 431848, 9414}, {"CompatibilityOperatingSystem", 432052, 9418}, {"Operating System", 432523, 9425}, {"CompatibilityOperatingSystem-Checkboxes", 432788, 9429}, {"CompatibilityFeatures", 433046, 9433}, {"Required Features", 433498, 9440}, {"CompatibilityFeatures-Checkboxes", 433750, 9444}, {"CompatibilityEvaluationEnvironment", 434007, 9448}, {"Environments", 434488, 9455}, {"CompatibilityEvaluationEnvironment-Checkboxes", 434761, 9459}, {"Cloud Support", 435023, 9463}, {"CompatibilityCloudSupport", 435268, 9467}, {"CompatibilityCloudSupport-Checkboxes", 435747, 9474}, {"Author Notes", 435990, 9478}, {"Submission Notes", 436190, 9482} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[637, 23, 104, 2, 70, "Title",ExpressionUUID->"0617bd26-fdfb-45a5-a0c6-9f00d9e702d5", CellTags->{"Name", "TemplateCell", "Title"}, CellID->113331143], Cell[744, 27, 128, 2, 70, "Text",ExpressionUUID->"beab9622-7c9e-46da-b32b-743c344677c3", CellTags->{"Description", "TemplateCell"}, CellID->125270565], Cell[CellGroupData[{ Cell[897, 33, 1206, 29, 70, "Section",ExpressionUUID->"dad37f63-2965-40f5-8227-42433ab1ee83", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2106, 64, 1047, 32, 70, "Input",ExpressionUUID->"6fad7919-d902-4dcd-b476-2caa470c97e0", CellID->383396303], Cell[3156, 98, 1084, 34, 70, "Input",ExpressionUUID->"e212cdd3-a54e-4042-879c-6dd0d2a75530", CellID->928881263], Cell[4243, 134, 473, 14, 70, "Input",ExpressionUUID->"64f667bb-1783-4ac3-84c3-e59642497568", CellID->328134901], Cell[4719, 150, 331, 10, 70, "Input",ExpressionUUID->"f08840ce-d166-4f11-8731-41ef656debba", CellID->538735283], Cell[5053, 162, 275, 8, 70, "Input",ExpressionUUID->"1e4c3a6e-328a-45e3-86e7-9ce6f6dd4410", CellID->56027093] }, Open ]], Cell[CellGroupData[{ Cell[5365, 175, 195, 5, 70, "Section",ExpressionUUID->"da575254-43dc-4950-8f92-4754aeed6086", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[5585, 184, 1980, 50, 70, "Subsection",ExpressionUUID->"8aa52395-e06e-473f-8faa-8c5f2e4bb5d9", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[7590, 238, 195, 6, 70, "UsageInputs",ExpressionUUID->"b261656e-d887-4144-b24c-1a65220fd6dc", CellID->833039938], Cell[7788, 246, 315, 11, 70, "UsageDescription",ExpressionUUID->"5de7387d-2ee6-4423-9143-67698d7c66e6", CellID->951439783] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8152, 263, 1429, 32, 70, "Subsection",ExpressionUUID->"dfa208fa-cc3b-43c8-aa35-88e1a4b9ae52", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[9584, 297, 1972, 73, 70, "Notes",ExpressionUUID->"bcc9d6ed-43a4-4c92-a1f1-c4dddcc30886", CellTags->"TabNext", CellID->440948280], Cell[11559, 372, 729, 28, 70, "Notes",ExpressionUUID->"4d1379d4-80f4-44cb-b913-d7a254cb51bc", CellTags->"TabNext", CellID->485543477], Cell[12291, 402, 135, 4, 70, "Notes",ExpressionUUID->"280abc8a-c656-4f6a-bd8e-4a10a63f0020", CellID->104647494], Cell[12429, 408, 216, 6, 70, "Notes",ExpressionUUID->"58a0d131-8762-442e-ada0-62573cde3a29", CellTags->"TabNext", CellID->364676306], Cell[12648, 416, 199, 6, 70, "Notes",ExpressionUUID->"27525849-3eb5-49f8-a059-316dcb592f35", CellTags->"TabNext", CellID->113336511], Cell[12850, 424, 193, 6, 70, "Notes",ExpressionUUID->"cd997083-ada2-4dc3-bc36-85688de2da07", CellID->172318807] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13092, 436, 7029, 152, 70, "Section",ExpressionUUID->"07fdb33c-9e85-4f01-bf8c-1e94b1319a69", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[20146, 592, 93, 3, 70, "Subsection",ExpressionUUID->"a92ed262-0c20-4afa-b3cf-94a07e86ff6e", CellID->345926105], Cell[20242, 597, 208, 4, 70, "Text",ExpressionUUID->"bf8a2381-78cc-4df9-ab45-9654913b9985", CellID->857195184], Cell[CellGroupData[{ Cell[20475, 605, 201, 6, 70, "Input",ExpressionUUID->"5ec71c78-9c3c-438f-9a80-6ad6513cf1f3", CellID->981680545], Cell[20679, 613, 132, 4, 70, "Output",ExpressionUUID->"bca17fd7-32ee-445d-a5b9-dcfe8650cb6f", CellID->324749995] }, Open ]], Cell[CellGroupData[{ Cell[20848, 622, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"a416b6bc-2baf-4705-b495-4231522bbc76", CellID->14107562], Cell[20994, 628, 163, 3, 70, "Text",ExpressionUUID->"1bbd919c-7a99-4986-adfb-6c7e57a417e7", CellID->771794380], Cell[CellGroupData[{ Cell[21182, 635, 626, 20, 70, "Input",ExpressionUUID->"055f9f5e-8c73-4408-aec1-f8267152b60c", CellID->565875278], Cell[21811, 657, 40824, 768, 70, "Output",ExpressionUUID->"1cfc7e03-7aa8-4a7c-99ba-1f95d4a6c886", CellID->988099657] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[62696, 1432, 84, 3, 70, "Subsection",ExpressionUUID->"073c6508-af46-4dc4-8b55-24539dd7696d", CellID->660433968], Cell[62783, 1437, 153, 3, 70, "Text",ExpressionUUID->"ac8e3802-646e-4957-9774-90b8f590b588", CellID->475353795], Cell[CellGroupData[{ Cell[62961, 1444, 183, 6, 70, "Input",ExpressionUUID->"6bc55bba-5188-4d2e-afbc-55e2efe1cae7", CellID->337079364], Cell[63147, 1452, 158, 5, 70, "Output",ExpressionUUID->"34c3fec7-b621-4417-ac3d-cc5a2c5607ff", CellID->59670713] }, Open ]], Cell[CellGroupData[{ Cell[63342, 1462, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"73c096e4-d6a9-472a-9e16-4560bc70493f", CellID->14107563], Cell[63488, 1468, 145, 3, 70, "Text",ExpressionUUID->"83c3b4a0-5cba-412e-8b7d-045192929d95", CellID->912245925], Cell[CellGroupData[{ Cell[63658, 1475, 162, 5, 70, "Input",ExpressionUUID->"67ee491a-1e1e-4308-89c3-2c6e9bf7023d", CellID->372575221], Cell[63823, 1482, 151, 4, 70, "Output",ExpressionUUID->"0f1a9fe7-cb44-4b2e-b26e-02cd4efe9870", CellID->703873855] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[64023, 1492, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"011efe92-b714-44e9-ae92-3e2474b4334b", CellID->14107564], Cell[64169, 1498, 223, 7, 70, "Text",ExpressionUUID->"3628641a-7538-408f-95f2-907201da68b3", CellID->276923282], Cell[CellGroupData[{ Cell[64417, 1509, 241, 8, 70, "Input",ExpressionUUID->"b03dcb9f-5098-4268-8fe2-2cc13678bc76", CellID->491707814], Cell[64661, 1519, 297, 10, 70, "Output",ExpressionUUID->"c1c9bb2e-f218-4d8f-87bc-735b7e8fee7c", CellID->246314010] }, Open ]], Cell[CellGroupData[{ Cell[64995, 1534, 196, 6, 70, "Input",ExpressionUUID->"129b796a-9359-429a-982e-d3613bcfb2ac", CellID->178977155], Cell[65194, 1542, 350, 11, 70, "Output",ExpressionUUID->"7cba9915-fbb3-4f13-aa1e-36acd19cf144", CellID->231123906] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[65593, 1559, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"c34de1ac-9f6a-4af0-9e8e-35bfaed5bda9", CellID->14107565], Cell[65739, 1565, 772, 24, 70, "Text",ExpressionUUID->"05846bda-c53a-4d08-bdb5-f1ca7a477643", CellID->309672386], Cell[CellGroupData[{ Cell[66536, 1593, 378, 13, 70, "Input",ExpressionUUID->"23869c28-0b33-4bac-9b41-20808f2d06bc", CellID->774768974], Cell[66917, 1608, 11315, 331, 70, "Output",ExpressionUUID->"9a96d947-f0c0-4a32-b97a-6f5b4db7e42d", CellID->952344979] }, Open ]], Cell[78247, 1942, 83, 2, 70, "Text",ExpressionUUID->"0fe396ad-a6c3-4aad-a7a0-41b8cf28affb", CellID->228006612], Cell[CellGroupData[{ Cell[78355, 1948, 630, 21, 70, "Input",ExpressionUUID->"7094a4ac-9cce-43ea-82be-f7ec890f9d74", CellID->662648097], Cell[78988, 1971, 20459, 370, 70, "Output",ExpressionUUID->"29e0b82c-0c46-41a3-8880-0650ceab1e6f", CellID->241355403] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[99508, 2348, 73, 2, 70, "Subsection",ExpressionUUID->"f7372fde-f47a-42b4-81c8-44abecad82e5", CellID->605265931], Cell[99584, 2352, 867, 28, 70, "Text",ExpressionUUID->"683a004d-f1ed-4bb2-93e6-698159f30bc7", CellID->339822969], Cell[100454, 2382, 1313, 37, 70, "Input",ExpressionUUID->"fa8b0c32-3f16-4a19-9f37-74826883f083", CellID->394074048], Cell[CellGroupData[{ Cell[101792, 2423, 239, 8, 70, "Input",ExpressionUUID->"497b40b2-1382-438b-9137-b5c3235cbb61", CellID->346645274], Cell[102034, 2433, 1942, 59, 70, "Output",ExpressionUUID->"e9494ff2-307c-4f81-bf67-235634f17c68", CellID->695580286] }, Open ]], Cell[CellGroupData[{ Cell[104013, 2497, 548, 18, 70, "Input",ExpressionUUID->"f92cab56-27a6-4b4f-bfea-32f31931ea16", CellID->938140257], Cell[104564, 2517, 28064, 469, 70, "Output",ExpressionUUID->"6a83b69f-8822-457b-9402-2fcdc2741ae3", CellID->311359105] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[132677, 2992, 153, 3, 70, "Subsection",ExpressionUUID->"38f9e6b9-3b1d-4850-b7fe-7d02ef3509a1", CellID->232113220], Cell[132833, 2997, 401, 13, 70, "Text",ExpressionUUID->"9e5c3869-e592-4532-bdfa-1855517fe687", CellID->391587244], Cell[CellGroupData[{ Cell[133259, 3014, 412, 13, 70, "Input",ExpressionUUID->"b63f93b4-c52c-49f8-8275-ea32f706cbac", CellID->99896385], Cell[133674, 3029, 136, 4, 70, "Output",ExpressionUUID->"63cc9355-2e29-4711-8fd6-3a832ea5195f", CellID->622846840] }, Open ]], Cell[CellGroupData[{ Cell[133847, 3038, 413, 13, 70, "Input",ExpressionUUID->"6f8885f1-f4db-49bc-a09a-13c1ad462f9d", CellID->804368627], Cell[134263, 3053, 134, 4, 70, "Output",ExpressionUUID->"96c5c7d6-1c7b-491b-a774-6643bcf24719", CellID->362228319] }, Open ]], Cell[CellGroupData[{ Cell[134434, 3062, 252, 9, 70, "Input",ExpressionUUID->"1e370395-3d02-46f6-ba3f-fcd62ec91714", CellID->92319214], Cell[134689, 3073, 132, 4, 70, "Output",ExpressionUUID->"4e1e0368-a0de-4ef0-adde-777fcba1d0d0", CellID->175417187] }, Open ]], Cell[CellGroupData[{ Cell[134858, 3082, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"7de30879-f4e1-4474-82f9-b07645657e4d", CellID->14107566], Cell[135004, 3088, 403, 13, 70, "Text",ExpressionUUID->"2ea2083e-809d-4ddc-9505-e8de64f6ab37", CellID->252476426], Cell[CellGroupData[{ Cell[135432, 3105, 413, 13, 70, "Input",ExpressionUUID->"b89d14ac-d7cf-4102-9d3e-0356fa6d99c3", CellID->606266413], Cell[135848, 3120, 134, 4, 70, "Output",ExpressionUUID->"98336e1d-55da-46bf-a852-61b63b670a7a", CellID->595403036] }, Open ]], Cell[CellGroupData[{ Cell[136019, 3129, 413, 13, 70, "Input",ExpressionUUID->"2f4c4faa-290d-4e38-8d4b-d84bc6f8a09b", CellID->916587264], Cell[136435, 3144, 138, 4, 70, "Output",ExpressionUUID->"115d7dcb-0df3-4418-9450-6e9a7412d735", CellID->863337590] }, Open ]], Cell[CellGroupData[{ Cell[136610, 3153, 253, 9, 70, "Input",ExpressionUUID->"fa193525-c947-4793-9a69-c039143b44ef", CellID->755478698], Cell[136866, 3164, 134, 4, 70, "Output",ExpressionUUID->"94b01567-400d-4871-867e-4b89de5bed0c", CellID->676868852] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[137049, 3174, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"0715e2bb-1b9c-4bec-839a-4391dee98062", CellID->14107567], Cell[137195, 3180, 792, 26, 70, "Text",ExpressionUUID->"0b33a447-0d13-46bc-b1db-041deca6631d", CellID->485123291], Cell[CellGroupData[{ Cell[138012, 3210, 718, 24, 70, "Input",ExpressionUUID->"d43c4b63-c6da-4721-bdae-ef102e2b40db", CellID->187875260], Cell[138733, 3236, 5015, 110, 70, "Output",ExpressionUUID->"b59349e5-39f1-47b1-974e-f5f83fce6a51", CellID->202195959] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[143797, 3352, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"bbf4163b-a324-46f1-b028-0bccc26805eb", CellID->14107568], Cell[143943, 3358, 664, 21, 70, "Text",ExpressionUUID->"ad8775c0-13a7-42b4-ad6b-dce617437145", CellID->475775477], Cell[CellGroupData[{ Cell[144632, 3383, 702, 23, 70, "Input",ExpressionUUID->"e9040972-9ad7-49f3-9c99-c451d48f5607", CellID->876079037], Cell[145337, 3408, 10716, 203, 70, "Output",ExpressionUUID->"6cc9a979-8a98-474f-8a04-f37fafb46bd8", CellID->821960493] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[156102, 3617, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"6c9f7cd4-25aa-48e5-a181-6313ff5a0ea9", CellID->14107569], Cell[156248, 3623, 667, 21, 70, "Text",ExpressionUUID->"c56ab12d-d351-4555-acfa-7941b2329107", CellID->366637629], Cell[CellGroupData[{ Cell[156940, 3648, 704, 23, 70, "Input",ExpressionUUID->"fe213faf-5522-4a60-943f-62a09dac3ae6", CellID->246999017], Cell[157647, 3673, 16069, 289, 70, "Output",ExpressionUUID->"31bc406d-b433-43bf-a62f-d3f99ddb6a33", CellID->517272061] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[173765, 3968, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"3fac3ff9-0ee4-4ce2-84e8-06b2909dc487", CellID->14107570], Cell[173911, 3974, 1279, 40, 70, "Text",ExpressionUUID->"d1cdf47e-8473-46f0-9a25-bd53d54df867", CellID->357577501], Cell[175193, 4016, 830, 26, 70, "Input",ExpressionUUID->"2964650f-40e8-4583-8908-be49e273a656", CellID->66575045], Cell[CellGroupData[{ Cell[176048, 4046, 844, 27, 70, "Input",ExpressionUUID->"17601d04-c472-4218-b62c-c173f371a5c5", CellID->556035468], Cell[176895, 4075, 21652, 381, 70, "Output",ExpressionUUID->"028d981c-6d95-4b1d-908d-76a3aaf7ea12", CellID->679811433] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[198596, 4462, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"0e4f1c8d-4451-40a4-bdc1-e69f85d49bab", CellID->14107571], Cell[198742, 4468, 1261, 40, 70, "Text",ExpressionUUID->"c1f709c0-4c97-4c6f-90cd-e7e5eadfe142", CellID->181347585], Cell[200006, 4510, 410, 14, 70, "Input",ExpressionUUID->"127b4d97-84bb-47b1-ae1a-0cc562193d79", CellID->598989155], Cell[CellGroupData[{ Cell[200441, 4528, 844, 27, 70, "Input",ExpressionUUID->"7f78f4d6-aec8-4ebc-b988-5d2675713bbd", CellID->601214233], Cell[201288, 4557, 21654, 381, 70, "Output",ExpressionUUID->"2f680b91-8ff8-405a-8a91-f8b5acb1c92d", CellID->683349107] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[223003, 4945, 76, 2, 70, "Subsection",ExpressionUUID->"80894ce8-de9f-4d31-88be-f1f5ee450357", CellID->158766396], Cell[223082, 4949, 250, 7, 70, "Text",ExpressionUUID->"7043570f-aba2-479f-8351-e0ac4ac7d860", CellID->510964540], Cell[CellGroupData[{ Cell[223357, 4960, 183, 6, 70, "Input",ExpressionUUID->"8509a0cd-a8a2-4ad2-a504-86f3521b5c1d", CellID->989199341], Cell[223543, 4968, 226, 7, 70, "Output",ExpressionUUID->"a7b2cbbf-d635-4f7c-b2c9-9dd7a3ba8c09", CellID->169931234] }, Open ]], Cell[CellGroupData[{ Cell[223806, 4980, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"0ef9a747-2e81-4198-98b3-f96fd89284af", CellID->14107572], Cell[223952, 4986, 239, 7, 70, "Text",ExpressionUUID->"0b8e197b-81fd-4749-9f17-5f4a8e1b07d6", CellID->514231969], Cell[CellGroupData[{ Cell[224216, 4997, 159, 5, 70, "Input",ExpressionUUID->"da17ddf5-c3d5-456c-b5ab-ec362745b662", CellID->508618646], Cell[224378, 5004, 216, 6, 70, "Output",ExpressionUUID->"c1498c24-8f70-44e6-b51f-e922c16e1ddd", CellID->178305277] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[224643, 5016, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"65b5be63-cf61-4b1e-a67c-f80583cab598", CellID->14107573], Cell[224789, 5022, 859, 32, 70, "Text",ExpressionUUID->"021a2a3a-ea6b-4c34-98cc-6d8ed389452d", CellID->331064860], Cell[CellGroupData[{ Cell[225673, 5058, 609, 21, 70, "Input",ExpressionUUID->"fc807298-b978-4b7e-b2bc-f13942fa9249", CellID->95294713], Cell[226285, 5081, 13250, 242, 70, "Output",ExpressionUUID->"5c72fd4d-8d9d-4041-8e58-215a3f14c330", CellID->438470058] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[239596, 5330, 74, 2, 70, "Subsection",ExpressionUUID->"2ea2a6e4-c47b-48c8-81a0-6ceca0cab3ff", CellID->461278909], Cell[239673, 5334, 322, 9, 70, "Text",ExpressionUUID->"62500f78-08d7-4294-b034-74f7b9c67464", CellID->408960028], Cell[CellGroupData[{ Cell[240020, 5347, 1109, 35, 70, "Input",ExpressionUUID->"f50fcc88-59ed-4b3b-bac9-18d122b05d9e", CellID->279927474], Cell[241132, 5384, 13480, 230, 70, "Output",ExpressionUUID->"7dc3cce3-3c3d-4d57-bbfe-b849dbb9713b", CellID->825024893] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[254673, 5621, 249, 5, 70, "Section",ExpressionUUID->"af578ac7-7386-47bd-b1a0-5869a4670607", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[254947, 5630, 1026, 26, 70, "Subsection",ExpressionUUID->"b93cfa0b-6fbe-46ad-8cfb-7f1fa5a07870", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[255976, 5658, 48, 1, 70, "Text",ExpressionUUID->"23cc2fd6-a130-4209-ad62-e89778169500", CellID->46070380] }, Open ]], Cell[CellGroupData[{ Cell[256061, 5664, 996, 26, 70, "Subsection",ExpressionUUID->"6c191c04-4bb9-4bcb-88ea-55e43d59694b", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[257060, 5692, 58, 1, 70, "Item",ExpressionUUID->"972f9a84-7c12-4374-bce0-ffabe647e73f", CellID->300483410], Cell[257121, 5695, 46, 1, 70, "Item",ExpressionUUID->"1301cf77-5b1f-45ce-9968-4a84c825804a", CellID->461456211], Cell[257170, 5698, 48, 1, 70, "Item",ExpressionUUID->"2a28741d-4d10-4086-ae5e-4d08cf6d6d58", CellID->661221450], Cell[257221, 5701, 49, 1, 70, "Item",ExpressionUUID->"b00deaf0-9309-484f-b16c-12eff73804fd", CellID->103144845], Cell[257273, 5704, 45, 1, 70, "Item",ExpressionUUID->"a0c2d37a-40a8-41d0-8023-8fb18e46636b", CellID->703554304], Cell[257321, 5707, 51, 1, 70, "Item",ExpressionUUID->"e95a2c60-b7fe-4ffe-a4c6-2d11cd2193de", CellID->830832413], Cell[257375, 5710, 47, 1, 70, "Item",ExpressionUUID->"768de408-72c4-4f8c-8cd4-d79eaf5a09a7", CellID->278996266], Cell[257425, 5713, 43, 1, 70, "Item",ExpressionUUID->"64bb259c-dd8f-41b8-aac3-24392bb38ae6", CellID->404735176], Cell[257471, 5716, 53, 1, 70, "Item",ExpressionUUID->"6afa9530-5b79-4d6f-9db1-59e0c9f484e4", CellID->714200515], Cell[257527, 5719, 51, 1, 70, "Item",ExpressionUUID->"dccaa3c7-fbdf-4f9e-a484-78113230731c", CellID->274505659] }, Open ]], Cell[CellGroupData[{ Cell[257615, 5725, 221, 6, 70, "Subsection",ExpressionUUID->"310df74b-61e6-4171-8a0d-16195c7f2bc9", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[257839, 5733, 8274, 251, 70, "Output",ExpressionUUID->"c62265c8-95d6-4093-a221-e591d34ff1f7", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->917010143] }, Open ]], Cell[CellGroupData[{ Cell[266150, 5989, 980, 26, 70, "Subsection",ExpressionUUID->"c625e03c-bb47-4ee7-ac62-bf3c00c81ba2", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[267133, 6017, 50, 1, 70, "Item",ExpressionUUID->"38a42b7a-6f43-4ff0-8cc2-5c17e2ac86fc", CellID->40117806], Cell[267186, 6020, 40, 1, 70, "Item",ExpressionUUID->"a1184023-35b5-4321-bd39-a9dd17bd6a1c", CellID->590780336], Cell[267229, 6023, 59, 1, 70, "Item",ExpressionUUID->"5bc581a6-8ed3-40e6-848b-8de9cc8dbec4", CellID->229544597], Cell[267291, 6026, 45, 1, 70, "Item",ExpressionUUID->"aabab407-e11f-4b84-aa1e-b52349efce21", CellID->247942928] }, Open ]], Cell[CellGroupData[{ Cell[267373, 6032, 1039, 26, 70, "Subsection",ExpressionUUID->"cc176393-8480-4c4a-b6f7-a4405b05d8f2", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[268415, 6060, 46, 1, 70, "Item",ExpressionUUID->"b0eac21e-0f11-4944-9255-2a54f0460571", CellID->478925841], Cell[268464, 6063, 48, 1, 70, "Item",ExpressionUUID->"04bb9205-535b-48bd-a92b-304aa236f080", CellID->500265315], Cell[268515, 6066, 54, 1, 70, "Item",ExpressionUUID->"fac69909-7118-4dcd-9c5e-40fc95476533", CellID->897745747] }, Open ]], Cell[CellGroupData[{ Cell[268606, 6072, 1084, 26, 70, "Subsection",ExpressionUUID->"7e2495b9-05c0-4253-bc49-be268c050898", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[269693, 6100, 222, 5, 70, "Text",ExpressionUUID->"48d5f7c8-0b70-409d-88b5-17b3bc1dd44a", CellID->701878015] }, Open ]], Cell[CellGroupData[{ Cell[269952, 6110, 923, 26, 70, "Subsection",ExpressionUUID->"899925b5-7083-4632-af7a-8aac218497ee", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[270878, 6138, 372, 9, 70, "Item",ExpressionUUID->"1bc2dcb8-cd86-4c6c-b22f-47a8228e3538", CellID->822498752] }, Open ]], Cell[CellGroupData[{ Cell[271287, 6152, 1874, 45, 70, "Subsection",ExpressionUUID->"d14835b6-b866-4e1f-9421-c1e48b5b927f", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[273186, 6201, 200, 6, 70, "Input",ExpressionUUID->"13cc69b5-acf4-4892-8198-fb97f1f7079d", CellID->119504931], Cell[273389, 6209, 551, 14, 70, "Output",ExpressionUUID->"1dcf29a1-1ff1-414b-8d07-4b02361ed3f9", CellID->327305581] }, Open ]], Cell[CellGroupData[{ Cell[273977, 6228, 230, 7, 70, "Input",ExpressionUUID->"946e81bb-aa45-46f4-ba6c-ac6f83385d98", CellID->551843676], Cell[274210, 6237, 374, 8, 70, "Output",ExpressionUUID->"774e4411-3741-4839-a52b-26a4d5b0a4a9", CellID->671544958] }, Open ]], Cell[CellGroupData[{ Cell[274621, 6250, 257, 8, 70, "Input",ExpressionUUID->"36a0d6c7-859d-41b2-8e73-ff76f26c0291", CellID->397436326], Cell[274881, 6260, 774, 14, 70, "Output",ExpressionUUID->"9ebf1da2-a2d3-4553-959a-3a9770097e48", CellID->891925584] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[275704, 6280, 955, 25, 70, "Subsection",ExpressionUUID->"3c7ec277-3824-4773-baaa-f2f966da996e", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[276684, 6309, 1174, 31, 70, "Subsubsection",ExpressionUUID->"50692ffd-d5f4-4f55-8281-8b86179b28e4", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[277861, 6342, 89, 2, 70, "Text",ExpressionUUID->"ed7396a9-4ef8-4db6-bb39-2904654d41b4", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[277987, 6349, 1113, 29, 70, "Subsubsection",ExpressionUUID->"785b253b-0429-4fa8-ba60-00304ec1ee22", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[279103, 6380, 2098, 62, 70, "Output",ExpressionUUID->"8c846670-653c-40e7-b84d-13cf9d8ca2ef", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[281238, 6447, 1280, 33, 70, "Subsubsection",ExpressionUUID->"8c354422-6368-492e-af3a-9486074dfba7", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[282521, 6482, 2149, 63, 70, "Output",ExpressionUUID->"e6258995-90a4-4e67-bcf6-c5f1727308fe", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[284707, 6550, 1913, 46, 70, "Subsubsection",ExpressionUUID->"dba6f77c-b05a-4a06-8fee-88ec12572ca1", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[286623, 6598, 3986, 117, 70, "Output",ExpressionUUID->"31a85130-7495-43d7-8ae7-4cf1ac705626", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750] }, Closed]], Cell[CellGroupData[{ Cell[290646, 6720, 1071, 27, 70, "Subsubsection",ExpressionUUID->"d226a357-3e95-4255-b9a3-cee85b49d331", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[291720, 6749, 1218, 36, 70, "Output",ExpressionUUID->"9d1154a9-857f-424d-bf82-9d942a213dfa", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[292999, 6792, 1155, 28, 70, "Section",ExpressionUUID->"434567d8-7f03-4494-a531-f4a6c0cd20e7", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[294157, 6822, 529, 8, 70, "Text",ExpressionUUID->"e414f70a-f495-4485-8ed6-d354c79db705", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[294723, 6835, 1033, 26, 70, "Section",ExpressionUUID->"0464ef18-3137-4044-ac8a-79e7038ed3fe", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[295759, 6863, 515, 8, 70, "Text",ExpressionUUID->"4007a975-a093-4163-b778-61b86ecf4fa8", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)