(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 358144, 7477] NotebookOptionsPosition[ 221390, 4815] NotebookOutlinePosition[ 341964, 7129] CellTagsIndexPosition[ 341012, 7098] WindowTitle->InflectionPoints | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["InflectionPoints", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->574149797], Cell["Find the inflection points of a function of one variable", "Text", CellTags->{"Description", "TemplateCell"}, CellID->803917045], 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[BoxData[{ RowBox[{ RowBox[{"InflectionPoints", " ", "//", " ", "ClearAll"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"InflectionPoints", "[", " ", "args___", " ", "]"}], " ", ":=", " ", "\n", " ", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", " ", "res", " ", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"update", "[", " ", "]"}], ";", "\n", " ", RowBox[{"res", " ", "=", " ", RowBox[{ RowBox[{ "Symbol", "[", " ", "\"\\"", " ", "]"}], "[", " ", "args", " ", "]"}]}], ";", "\n", " ", RowBox[{"res", " ", "/;", " ", RowBox[{ RowBox[{"Head", " ", "@", " ", "res"}], " ", "=!=", " ", RowBox[{ "Symbol", "[", " ", "\"\\"", " ", "]"}]}]}]}]}], "\n", " ", "]"}]}], ";"}]}], "Code", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.775488309841748*^9, 3.7754883222877483`*^9}, { 3.775488411203748*^9, 3.7754884112097483`*^9}, 3.7754908622357483`*^9, { 3.775492549435748*^9, 3.775492552514748*^9}, {3.775554911943691*^9, 3.775554912542588*^9}, 3.7755553440588903`*^9, {3.775556254989131*^9, 3.775556256743306*^9}, {3.7755588283954597`*^9, 3.7755588361612363`*^9}, { 3.7759123614579935`*^9, 3.7759123780169935`*^9}, {3.775912408689994*^9, 3.7759124104179935`*^9}, {3.7759177163729935`*^9, 3.7759177164349937`*^9}, {3.776698626456394*^9, 3.776698627175394*^9}, { 3.7767808712674417`*^9, 3.776780876937442*^9}, 3.788709131731282*^9, { 3.78870916735109*^9, 3.7887092009904633`*^9}, {3.7940041355783143`*^9, 3.794004274891677*^9}, {3.794004345166772*^9, 3.794004358976824*^9}, { 3.7940049674976053`*^9, 3.794004979398929*^9}}, CellTags->"TabNext", CellLabel->"In[91]:=", CellID->227725506], Cell[BoxData[{ RowBox[{ RowBox[{"update", " ", "//", " ", "ClearAll"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"update", "[", " ", "]"}], " ", "/;", " ", RowBox[{"$VersionNumber", " ", "<=", " ", "12"}]}], " ", ":=", " ", "\n", " ", RowBox[{"Once", "[", "\n", " ", "\n", " ", RowBox[{ RowBox[{"PacletManager`PacletUpdate", "[", "\n", " ", RowBox[{"\"\\"", ",", "\n", " ", RowBox[{ "\"\\"", " ", "->", " ", "\"\\""}], ",", "\n", " ", RowBox[{"\"\\"", " ", "->", " ", "True"}]}], "\n", " ", "]"}], ";", "\n", "\n", " ", RowBox[{"Quiet", " ", "@", " ", RowBox[{"Block", "[", " ", RowBox[{ RowBox[{"{", " ", "$ContextPath", " ", "}"}], ",", " ", RowBox[{ "Get", "[", " ", "\"\\"", " ", "]"}]}], " ", "]"}]}]}], "\n", " ", "]"}]}], ";"}]}], "Code", CellChangeTimes->{{3.7940043027477493`*^9, 3.7940043858540363`*^9}, { 3.7940044897303915`*^9, 3.7940045139349794`*^9}, {3.7940052605172977`*^9, 3.7940052723736286`*^9}}, CellLabel->"In[93]:=", CellID->326963029] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InflectionPoints", "[", RowBox[{ StyleBox["expr", "TI"], ",", " ", StyleBox["x", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->24353069], Cell[TextData[{ "computes the inflection points of the expression ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " with respect to variable ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->900873265] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InflectionPoints", "[", RowBox[{ RowBox[{"{", RowBox[{ StyleBox["expr", "TI"], ",", StyleBox["constraint", "TI"]}], "}"}], ",", StyleBox["x", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->412164160], Cell[TextData[{ "computes the inflection points ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", subject to the given condition ", Cell[BoxData[ StyleBox["constraint", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " on ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->789336970] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InflectionPoints", "[", RowBox[{"\[Ellipsis]", ",", " ", "\"\\""}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->726705933], Cell["\<\ computes the inflection points of a function, along with function properties \ at these points.\ \>", "UsageDescription", CellID->765822568] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[TextData[{ "Inflection points are returned as a list of rules for the independent \ variable ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ". When the \"Properties\" directive is invoked, inflection points are \ listed along with properties such as \"rising\", \"falling\", \"stationary\" \ and \"non-stationary\"." }], "Notes", CellTags->"TabNext", CellID->663551349], Cell[TextData[{ "For functions with a repeating pattern of inflection points, ", Cell[BoxData["InflectionPoints"], "InlineFormula", FontFamily->"Source Sans Pro"], " returns results in terms of one or more undetermined constants, ", Cell[BoxData[ StyleBox[ TagBox[ TemplateBox[{ StyleBox["i", "TI"]}, "C"], "ForceRasterization"], "MarkedForRasterization"]]], " which can take any integer value." }], "Notes", CellID->245538894], Cell[TextData[{ "In ", Cell[BoxData[ RowBox[{"InflectionPoints", "[", RowBox[{ RowBox[{"{", RowBox[{ StyleBox["expr", "TI"], ",", StyleBox["constraint", "TI"]}], "}"}], ",", StyleBox["x", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", the ", Cell[BoxData[ StyleBox["constraint", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " argument should be an inequality involving ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->805863732] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellLabel->"In[3]:=", CellID->728201486], Cell["Find the inflection points of a cubic function:", "Text", CellChangeTimes->{{3.7574235295546937`*^9, 3.7574235376096935`*^9}, { 3.76933933651354*^9, 3.76933933905554*^9}, {3.76933956822754*^9, 3.7693395712875395`*^9}, {3.769340000757734*^9, 3.769340001411713*^9}}, CellID->243487542], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"func", " ", "=", " ", RowBox[{"x", "^", "3"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"inflPts", "=", RowBox[{"InflectionPoints", "[", RowBox[{"func", ",", "x"}], "]"}]}]}], "Input", CellChangeTimes->{{3.7571600164427595`*^9, 3.757160018037919*^9}, 3.7571600481249275`*^9, {3.7574226591516933`*^9, 3.7574228537836933`*^9}, { 3.7574229012366934`*^9, 3.7574229014576936`*^9}, {3.76933957840054*^9, 3.7693395819975395`*^9}, {3.769339709527132*^9, 3.769339711444772*^9}, { 3.7947535172096033`*^9, 3.794753519945603*^9}}, CellLabel->"In[33]:=", CellID->822124601], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"x", "\[Rule]", "0"}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.769339715702736*^9, 3.769339919797475*^9, {3.769339974268059*^9, 3.769339990063717*^9}, 3.794007284378066*^9, 3.794007334446022*^9, 3.7947535216561337`*^9}, CellLabel->"Out[34]=", CellID->507758934] }, Open ]], Cell["Plot the function and its inflection points found above:", "Text", CellChangeTimes->{{3.7574235295546937`*^9, 3.7574235376096935`*^9}, { 3.76933933651354*^9, 3.76933933905554*^9}, {3.76933956822754*^9, 3.7693395712875395`*^9}, {3.769340000757734*^9, 3.769340001411713*^9}, { 3.7947534923566027`*^9, 3.7947535129736013`*^9}}, CellID->760355788], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", "func", "}"}], ",", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "@", "Large"}]}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"#", "\[LeftDoubleBracket]", RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}], ",", RowBox[{"func", "/.", "#"}]}], "}"}], "]"}], "&"}], "/@", "inflPts"}]}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7571600164427595`*^9, 3.757160018037919*^9}, 3.7571600481249275`*^9, {3.7574226591516933`*^9, 3.7574228537836933`*^9}, { 3.7574229012366934`*^9, 3.7574229014576936`*^9}, {3.76933957840054*^9, 3.7693395819975395`*^9}, {3.769339709527132*^9, 3.769339711444772*^9}, { 3.7693399826696424`*^9, 3.7693399838383927`*^9}, {3.7940073311404943`*^9, 3.794007331518434*^9}, {3.7947535255931387`*^9, 3.794753527325137*^9}}, CellLabel->"In[35]:=", CellID->835417715], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwtmWc41o/3x424hUQkqaSEqCij7PMx01ZWg4iUmZHMlr0iCSFlZWYTWfe5 jWTP7Jm9Q1Yp/b//6/o9Otf7wXk/eJ3z7HXIyPqaCQ0VFRWZmorq/6dxVvCP f/9IFA4N35p//2QoHJvcArJ/SJSLZt9jzv2UoVSpJeo5bJAoO65KP3ozIUMR GCyqnVskUT5LGe+BRhnKDPNoQs93EuUQ786j5CgZio255PW8ShJFkUl1weW0 DOUpfy/lng+J8lh8T9qMjTQl6i1fSCMLiXK7pZL8bOkMJWbI1/rqdnqK420R fqcJCQpni+YVod10FCWOBnOTS2KUGg1NlXr+bZTmVmNzp2VRiroQvz3fYVqK YGfibhu9YxSZTL2kZlEaygEvM1XLZ4KU3/732MWEqCluP2qwq4yPsrr+Iey2 IBWlrY7/EjjyUqoOh0iQrbZwzeDdLk+PfRRZumd5x+7+wZ1V1ppXbnBSQokz ZxSf/EZB/x25FQK7KMbR18dnYjbQTV1BZUxoB6U5mWc7ddQapu0a4m54QU8x nKdQ24esIe0/10ZpB3rKspjx7wn/NXTNog4rMKCncJCTZxtc15CGO/LygBg9 5fq3k00R+mv4Xil/cLCHjjJCpfz65KE1fHf+CUOmMB1l7cb9A4Ypq7jPxeTU jS5aCg9z9iksWEGS65RGzS1qyoOxo/0vM1cwJsgoQ+4sNYVcGudtmLSC4QGP 1MrFqCn6Vq/7qMNXcFAzl2NzOzUlusnBS+XRCsa9e2t1soiKsveVfE+t+Ao2 sbfaRnNTUTg4659/y/6Jj1eaXkW2/UVG3onm6bRlJGl7fLpk9gv7oxnqh+OX USW71iFA/Rdm7D1W3RW1jG9cXliMC/5CDXab0i/+y1hyaYw8P7GB4fS/U+LM l7HN6/7ny/c28PD8DvcbwsvY/4dV86z5OsoWS0rUpi6hEG34drL3KlpqeUWk pCwip25EMNfOZYzbKhYXjlvEwOSHsVVrS9iZstj0MXIR+5lMXnsPLiHx9xZd lv8iUtlzbl7IXEKOJDG7T5aLGPrUv6zv8hKWrQ9dqDi5iGq3razoQxdx/+lH W4W2P3DkQ9SAt94CevsPS5QY/UDFQ13+p04t4OLgBQuy5g/MoKP3oaNfwCqf w91Vkj+wpEnzgFD2PFr1NOe0/lpA+l69SD36eSQ/FjaZdVvA5TfBL4yLZ9Gw cqieJ2QePar7z98npvGs/IbJgNs8dooO2PdwTqNIIStVtO08eqYbXHaen8I/ aYoSe6/Oo3eLwkfFt1MYEZIQzc46jxd0cy4sb0xiy537VgxBc8hGXXWorHQC Fal+sCz7zaJVs+equskYHnUhpWY7z2LUCZuLhOIYsq4cVLY2m8URvicnjA6M 4eCkhuOc+ixq1l4R4u8cRZfm3KEJ0iwuBPCdTTw3irnvHbL7vGZQ8dX33U5S I3hYfuvqF7dplEyKbiuUGMYWNvnjkXbTuPhqR9jAnmF8OuFKb2U8jTF+RtoX 1oaw9+WvYg7VaXSiN9uU8hzC1yMrfHcZpnHnT1Um1YRB3OY7u0rzcgodaGvN /sz340RbdyQRPYn7DOB9bX4PhibvsecInMSD/DLxNz16UOmxzuWpJ5NolNEm cuxaD77n/0YTbDCJR5mOKPgvdqOuU7PF0OFJPCQkXSJ7shtrDlTLP02dQJeb BbfVSzox1TTve0nBOOYtnv06vdWO34xiDl5IGsfVEOfvsa3tSKUfoN8bNo7J yuFB0R/aUeeqcc+G/Ti+RpVWwwvtSCPD3iopPo7Z6XfU9kS34U2mh5SsrDFU zF+/zXK+FRkzxWISUkbx+aMFX9uMRpRM4RkQixhFDn6TTBnjRjSMZ9xX4TOK ghOLK8/2NmJB+Ej48L1R1HXNUnni04BGz0KCDvCPIhVDrP8Zs3os1lh+8iZu BOdukl5eUa5F8585egFR3/GiRb61xJUvGHl6Sfa+/3fMOlci0cDxBWucT+5T dvmOLrOBu5t7q5CfKqvn943vqE7oxHKYVuEwc7qO+d7vWBOTsyvUpxK1BZI0 zkUMoyjZ+zhLbzl6mo2L8vsOIxN/pYtQUjnmph/ZSe00jOct6kpS7cqRVTyh 8bPuMFLr/wroYi7Heog9f/S/u59Q2/NuQJWCbrkSfizHh7DmQaCvS2gZDkrl na1mGsK9jVp7fkqVoRyeon86O4hih7OlhQZLca1exGM+bRDzFOKP1AuXouX4 0ScNQoO4eXiJtqWhGK9zHbD1FxxA5RRey1Pin1HkKd0Ner4+lOL7R/3DIw+5 i1veTG3rwwGSUpq8ch7Srb3trJvoxZDl8Ol9tHnYbyWm9TKtF5fjVDI8PXPR X9/gCpdYLxYMXvm6GpiDk3JFqsKKPbhEq+kQ+igL25w8PZn5enCXoda7ILos JOdfqVzY1oMX6acWX4dnYvjxCSKvphvdKHcOlJRkoMp+djk5jW682j3ke31X OsZuWopdNujCsY0doYU/UvDFGSnbk4pdyPL1gVPTyxR0fEibvYuvC4kDLT79 J1Pw8mzkia6JTpRfEhXseZSMf3urjxo+6MTtRxJNTjEl4c1i3oN2TzqQi8uq XtUoAdXWZvW1DDrQ4QybljRbAp4SK4w+rdiBTfuP0LOWxyND2iXuzW0duFRz auIOXzwWRLrs9nzxDe+/PvHafjkW2Z2/MYW/bcfUFL3drnbvcOPfL7YfLu0Y Lng+/dpwNA56H+RSv9mO907bMbJpRGNKqPmR31ztuIODrCcp+RYVsqnkb4e3 4TnlG/sqd0ei2eTxBwKvWrF0hyKb0IkwvPzgmv0zm1b84Fz+YaEwFCVWHV26 r7SifWE6lalKKG7RVHr7s7SifNHOa2ZGrzGU50bMQkALHj63/8Cl3Ff49CNj nNWOZjxqNVH7Xj4QzxVpZxxsaEImw92sSd4vkONrbFGrfxPWubhMZ7YFYOrI 6TZJhibsVH/W+fGhP37ba0y7RdOIRiLRB2K7fTBGMHNndnkDSp1NdKOW9kFz yV/7jJ434HIth8upaG/8p/FSovpvPbKJYMqouRcK+5aYBG3U4bHr5m6DRz1w NYzejiisQ9nkZmaaGHekJFx9uvyoDs/E158o3+OO2jgZrvOzFtdLD+ZssLrh 8zX2Gp6FGnTsqXCXUH6KXXcthbNGqzG2n09T0NIRyQMaZwqSqpGl/dGXmVwH TNKRVCkzq8bqNBYmv7+P0F59S7/+xxfs9qMEHX9vj6zHg19Nblbhu56OhTkm O1z/YP9+gVyFIhk77e7a2OLggRsfV92qsMh58otxtw2m7zz8hZahCo+zS5fG mljjuZ95Gwc5KrE9MyroCa8FnrSMoBPsqkC3gCsvPhw0R67xx7tEoiow2G+B X5LfDCc6VY/L8VagDbWSMKF8H92LuwyuHy9Hde/Yu59rjNFMvNTS4AcF69kZ RCc3jFAjPdb5Xi4F2ZdJwT0iRsjz3uy1vRQFUz4Lshd8NMRHtOuBh/zImCMY wrmr6RaqrGKy6E4yLkWl/uDxvom7Jn3L5cPK0J/l8uw99RuYWce9eiOuFBUE 5lRoZnXwcekoi6lgKe4YkYulqdfG85npRx0ySjCusYYrIl8LJ14p6IUUFaOX MaHXn3AN8z1IDrFQjH78HkekUq+i+6OWl5lfirBELWubR6EGHrxhVFnX+hnF 0kdZnvdfwuu83sK0MwXINl09EvnsLArsuqLCZlOA1eumySKsarhCy3X74Non fOwe7r09WwVfTaa+kqX5hFXmi36q+5XQsMfu4znffCSv16VQTREoUi/7RZcl H9mQO8vCA7Aus3HjIXcedspdzPeUlcWI2PBd7rG52H1O++qkgjTeCzE4HiyQ i/x1ExuJt84grcOSQbpYDp4fuXUtZlAcW+8XOxd/zsaF7re/ApXFMOaGx+sa hWx0pzoQTuBJdHQRDqoNy0Q54ox43uIxvLyw2JmVlIGdel9p5B4JoYBR4cHw wnQ8LjYs9opXELc6npg+rvmISBmdcF46gh3nVHKMetKQfbuEUtnEYUwvY/yt PpOKGUzipof/8aLnqVYl0c0UFAjx2hi240Hxvbe/be5Pxug5qY2vB7iQMfDI gZETSajTpKUvemU3jlDNmtQoJGKdUHxRXPEuLLbPycy88gH//hvTzNBnxVdT juuhhgk4nVAxTrFgRlM9BcLVNh6dFAuKQ9wYkGjZ5nfHPQ5Leo/nz61vQy6V +tazr2ORbJtpMFtLjYPWfJJ66jF4kM07TGf8LzlQN7v6qPk79FMapwvp3SDL gfz11YC32Ovqf6zCbIU8K1A3XZ4RiWLlXod4/RbJUSy6rkHNb9DsRBNdnf4M +dzaKPOtpTCkoX7S8Tp+jLwxYPNekD0UJxltWg5GDZGTv/wVXZEIQSpvhSnD 111knQz/copOMHZ7JN5u3t5KZhQWTeJeeoEjQnUQk/6VbPpLvTZPwg+vCa4a cp1FcnWN0dxFJy/c2/C5WU8rj8wX8XjnRIkbmjHgL5naRDJN83GTrS1X3FJL Msm2CiOXWRl+POltj48LinLbRp6Tl7iOjn7hNsfCLM4wOYM75JZ0niGtazpY VBlTOvOZn7ztzgVeX2UFiPr9ez6OrU8+VSTekbnYCAqnX267knxOIdLp3Wp7 hw3U3rpJE5RgpzDQY5YVd9kJHOSmBuuYXygclj1tZv31GdQzlz531o1REL/s 9oon1gN4Mk47zXlnKHQ8vf/AS88HAjFOoXnis4Jj1qULc1wBsH3LsO/Yg0oF 7mHxo5odQUA/XvZLIbZB4TZDIM2A+ivoLPrJOnfsm0IWL5Utq+BrcKnKlH9j 26dAJf1wSJkuDFaoTC/wHBlRuHp14pLjaDg0ZjN1u1pMKsSb3ShNK48AT7N4 Frv4eYWfbg3CgzFRYMHmrXf2wbKCShREsj2NBkXz0Jas8DWFsNxckqree+CT tVSX1tpUeDi+S1buQCys41Mt7etUEG17cVmbOQ4UuaMtxm/SQtVfr1TrzTjQ E6bXyy6ghzk/NPSbiQepBYmISBtG2M35a09CTwLUGceGeAaygEK8WHNpzQd4 pjJ8W9iPDe6JWHp3FibCYAZ99Ro1BwQVJ8ovJiXBX8t/ZyLzOKFQbWhle3gy dD6nf+ARuxeG27jS+bxSwGBK95Bg/X5gMLhmLG+fCqqtb+g2uXnh5GwAt65x Ggh33V3OXjoENxy/tNpc+wi36HLEF2b4IO2lFPHhZAa86FYQGDl3FLZVxZSS JDLB6E/CIM+UMBhs0EtbnMkC9w2fT4P5J0Cfs/Dm/QPZIOlPvOy+fhL8s2e4 9sZkQ319SPWuxVNQeJ6nq443B6rHvIrHY8VhbOxq2OP4HBjbGDuy11ISFPYW sQ0n5kJoHLsKRUsaLPLmml8J5sGHJ86WlQ9lIeISb5Byah70jjouq2bLw7Kb D2Nyej4MPpD891BJEQ7uL6m5LvIJ7Pt/u154qQQXCxa8GbM/wbvOw/vs5pQh aUab9kFeAYh8Pikh16MG7Z5+5QclC0G78vv9ZDN1oDpY9qy1oBBexQecWmI6 Dzc1j/yRKP4MNUcMf2f5XAKfed3iCdkicJ/Vzpu7cwXyfQKcIsqKYObefHF9 sgbsLF1e2aQU/8chVNU47xrI6QjkZSiVgPfEwAW/Gk0wX7xha1BVAnKmxawi U1pQdaR8vuJrKTB8WHtZclYXnAJfTvg1kcF0fbuzXqAeJApWfpDVQDhx2dF3 YVMf2srXjOZbEbbe7agLcjAAzs1M6xRzCigJUJoM1e+AjSjnHNODcsj9QXdJ POsueP8RrR/LLAeTx8mCNpEm8K72XFrZj3IwTD3a4ep/778/e2JqbVsBDA5Z XsZupsAfMTbWZl8J57t2nxX9YglyJluVHz9VgpbxZsW7KSu4JsaV4LlWCUZ5 AfXx7NbwvOHCndNOVVDKVStqTrGBXqq8gUjXL3CulXxZXf8hLDY2lNqVfoF1 /ucqhSz2QHo78fbC3y/w4sFjfe0qe5CQ5L7592k1XPoQMakh5wBBZm6dhu5f oYHX43u8oTP41lN/GiP/l93khsIEXMD9hPtr082vwGgROeWx6AKOS+4aNvY1 IGOgnOsc/BgMnT3rnt2rBWs15Fyheg43+7al0ibUgoSjfN19++egJe/l4zNU CwyrIW+oZ56DOrW3ysvrdaAbXV1b0ucGp/x8yO/P18O3DeOQ7h4POD5LenfY px70l7K4mQw8QeCSr2tSZT2MYLfGiwlP4Gbzk8qUa4A7CZWsL/94AU2kf26Z SCM4jbKN86n6wreUwKT+Xc0gr3SMdfNiIDQxsngZXmmG0tg3h51/BUKNZZDx WEAz7JmcZXyTEgS3I86yOtC0wKJjsqYxKRg09dQbn7i2gPtRP//yJ69Abuzc 2UCrVuhMDHWxyQgF6d3+p5sDWmH7G3G/wb1hcFqtjp8trRW46Ro4v/iEwcmU 89vCJlqBo3imnc40HI5YXiiPNmgDhjPT3dEyEbBj5aJs+tV2YPl9RuCGcDSw 9ooZO9q1wyvrBxolxdHAQeEKUHrdDtmJnomkS++A+8VYb/e3dogQDS22cHwP R488dqG7/g3qbu/4M2AbC0paH4tu3+4A14Wmf8ksCaAq8+q70LMOiGUd4Z+7 lwDqvI7bV2M6YKxuThIoCXBlTulGwPcOKF5l9ONy+AB6nr0bhXc7QS1JV/TL QiI45G+XYrPoAt3n7/fZ7E4F56gfBv0BXbBGz//27rNUePy8wyc5vQs8B4R7 3GZSweNiXJf8QheYmHbSyVelQfCYlKO5bTd0OkRpj3qlw0cO04JKxx74rXio MP1QNgzbV0s4ePaBlkkR7L+RD/01dNwpH/rATk01oS82H7r3q/7rqeoD+q2g aaXpfGipqqyVp+sHFV2X48yPPwGFo/w2nXc/LD/3WnifWgAx+SW+oT4DsCXI 4WLDXwRRDJtW1ckDcN15R852pyII15PR3Pg6ACuyCrS69UUQtK3ogB7DIES6 3iWx2RfDU62CXD6/QbDJi1ja01QCt1ey+3P9h0Dxsdrd/YlkuKm+WD6WNgS3 ZtTWrtEiaEeLJnPWD4HD3Y2+c0YIAoe7pMrohqHYVq1bno0CPHXatIfUhiHH KsWGppMCLNyaEVPVwzAduip73K4CFoouVTjWfIfTjy+/yVz/Avzbv9q7dn0H ksYnenfRatC7Tgg+m/gOvIbdxXn3q6FuTeyF97YRGLubKCLeUw2J4lw6YcQI dF+OWkqjfAW9jJHp3M8jEL975nJlXC3UxTqyLaSMgvX6SkFFZiNQLy5WLhWO guzDXNuN5UaQAnOH1epREE0tuxV+pgmSBvT6/oyNwtmHOzeZKprAjVspkenQ GFxvGmKf7GsGqVBmaaHIMXjDsIe5la0VknziDO/6jcNpoTT9j+7tYJhjlZUe OQ6CLrrKO7LagbtPemsldRwy66ZVcvvaIUik7a1X3TgYfOa8Vy35DRw6aLqS mCbAZpImdf/8N1Dju3tpOnACtN9l2GeYdsIEWUDmQcgkPM0OhYrQHoidWvYt iJ+ElnS+xOnaHri5C7u2cieheI+R881/PdBkovvoZfsknPZRk9pr0QsFzL7Z 2RxT8GOeJ4JVrQ+8b04L/AyfAvPRcD52xgHgX/vI7vR2Gsz6VivGTIaB68vV wx/TpqHcs0ZMyGMYGEPXTw4WTYPD0pZhcOwwLJ5SvqzSPQ1Xo0fPf+0bhlKr Xl/W3TOwMJMQ2qP5HbTGGbZSgmYgjI5MFX9+BNy/mUz1uM1C3ZaK4jXNMXiU wLTO/GoWzsfE3eR8NAamdjl0ROws5MhXV/0LH4PLrH8PJ5Fn4cVm3oBS3xjs vRiqb7c5C/Ei0kYvTMYhu7KijfHRHAgxpxQouE3AYO7BMlnTeWix2/Y6u2MK GqXshA87zoOHiHqBx+YUlJKr3jB4z4MfD5fIk0PT8LbOzK4jYR4uFo2ZjlpN w/WRPEHroXnITJ0WesYwA61s6iHxOgtgumbavE11FqpsbO5vV/0BDcq2Oi19 86D9Zth3NngRFO8fGb1WsQRBZ/N2UEcugsWB0/IG/UtQs+4Vwhm3CL2CVrRe a0sgc/1YtGLOIjQnttEdOLYMPHsdst60LkKqnKj887BlmIpi6lTetQSpfk0X eKx/gsv703zRr5fgmHxC2M7Tq/A+8UXZxfBl6Jp/pfx49y+wP3oxvuvdMrB0 XuLYJfELzn1k8jFKXIbQG3GFlGu/YCXbX8MpfxmUPc+9Nw3+BRdKfUcT2pah KuE03Rjzb9ho89y+yfITGKZU6UMYN+Eq1RPtVJ+fcM/yrCzb3r+w7ZbVPJ3z CpxpTGq5X0FF7LugwyvutgJ3ImhtPTupCDFZ0DT0WwF91/VDOTNUhOE+tqLi yBUQu63SLMNOTZT15XtaF68Ar1UrI6sJNeGg92dfz+YKuN3Oiv3KRENM6wec T3+6Crq0Jw9GmNASTYapydc816Bt5ccR/ov0hDvfM5nVgDUIkyww6zOiJyQn tBrfvF6DyrfPd8c50xPRFlQ/++PXQKxmq+BmMj1h4aCrcL98DaJEP+b50JII hhd0Ha5bazCWxnWkkUwilArv0CQ6rYPFxLSxsOJ24tMObv11yw14tt3d/poD MyEQdWiKdPE3WDc9T71UwUb8dvD8+1HzD5zl7QuxFuMkZn/vY0mR2gJGrvqF JyvcROx9n2/7+KiIlXgnFVlzXiJYseHFXn5qQtHV1eNzFh/BYv1RqXI3DfGO K8+Gbp8gQVb5XFbATUtk3JxRjpc7Rvy1Mjitw7KN8Pi9onPXQ5SgJrVFHvu7 jXCWFRA4tVOMOK1uV3Geip7IDibovzVIEL/706d2L9MTgZ50m04RZwgVy5rg S2v0ROToG86niWeIwM1RKa/f9IS4rPmmT+4Zgpd7n98KDYnQ/3PtSFrDGeKs rp9QO/t/HIZbmY5SSxGhrSbmwZL/cfpjtcZoIUWIVPPMMTqTiJvLJnceKkkT TtoyoUpPSITCyO/r7BrSRPmYtpyLG4lIY16S/KwvTWjRBr6Y9iMRZtJeCazO 0oQrsXm8JopEiDLPmPzJkiZqirusvEpJRPLdoIsUHhli1/mfu8soJCIvP482 67gModfDQl6pIhFqw+cz42VkiB/rqix3G0mE6vK17xE6MgSnZH6m0uB//fvu d1GCZAjDqmYdlxES4XTns1JXtAyRqjm7lTNBIvzbPVKW02QIObvDVw79IBF0 d3fcl/oqQ3hTK6xf/0kigsMDy406ZIiW4Bsxwesk4s4BZu6QURmCm/fR2ZrN //ZpzG2rl2SI//k84n8+j/g/zXo9Qw== "]]}, Annotation[#, "Charting`Private`Tag$8134#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Epilog->{ RGBColor[1, 0, 0], PointSize[Large], PointBox[{0, 0}]}, 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->{{-3, 3}, {-26.99999669387769, 26.99999669387769}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.7571600488920045`*^9, 3.7574217852016935`*^9, 3.7574223233996935`*^9, { 3.757422785716694*^9, 3.7574227941736937`*^9}, {3.7574228367606936`*^9, 3.7574228542696934`*^9}, 3.7574229020766935`*^9, {3.769339687829688*^9, 3.769339718237836*^9}, 3.7693399919615593`*^9, 3.7940073345630054`*^9, 3.794753528294671*^9}, CellLabel->"Out[35]=", CellID->23584614] }, Open ]], Cell["Repeat the calculation, classifying inflection points:", "Text", CellChangeTimes->{{3.7540633537112236`*^9, 3.7540633780126534`*^9}, { 3.7540640257044163`*^9, 3.75406402984383*^9}, {3.7692635590614247`*^9, 3.7692635947029886`*^9}, {3.794753469152541*^9, 3.7947534721380873`*^9}, { 3.794753541371376*^9, 3.7947535444273725`*^9}}, CellID->150121581], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InflectionPoints", "[", RowBox[{"func", ",", "x", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.769340043659991*^9, 3.7693400488657875`*^9}, { 3.794007205671185*^9, 3.7940072092736683`*^9}, {3.794753566885908*^9, 3.794753567586917*^9}}, CellLabel->"In[36]:=", CellID->126561599], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "0"}], ",", RowBox[{"\<\"Properties\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"Stationary\"\>", ",", "\<\"Rising\"\>"}], "}"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.7693400492453566`*^9, 3.794007344464608*^9, 3.794753568093955*^9}, CellLabel->"Out[36]=", CellID->872265577] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0]], "ExampleDelimiter", CellID->744903649], Cell["\<\ Find and classify the inflection points of a polynomial function:\ \>", "Text", CellChangeTimes->{{3.7574235295546937`*^9, 3.7574235376096935`*^9}, { 3.76933933651354*^9, 3.76933933905554*^9}, {3.76933956822754*^9, 3.7693395712875395`*^9}, {3.769340000757734*^9, 3.769340001411713*^9}, { 3.7693401331810713`*^9, 3.7693401435686293`*^9}, {3.7947536013354244`*^9, 3.794753604862422*^9}}, CellID->545877437], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"func", " ", "=", " ", RowBox[{"1", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "3"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"inflPts", "=", RowBox[{"InflectionPoints", "[", RowBox[{"func", ",", "x", ",", "\"\\""}], "]"}]}]}], "Input", CellChangeTimes->{{3.7574228717146935`*^9, 3.7574228921886935`*^9}, { 3.7574229400026937`*^9, 3.757422943395694*^9}, {3.7693400661757135`*^9, 3.769340073652913*^9}, {3.769340145890106*^9, 3.7693401476257057`*^9}, 3.794007253966367*^9, {3.794754036721927*^9, 3.7947540390829287`*^9}}, CellLabel->"In[55]:=", CellID->550349021], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{"\<\"Properties\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"Non-stationary\"\>", ",", "\<\"Falling\"\>"}], "}"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.769340149309227*^9, {3.7940073488229947`*^9, 3.7940073651126986`*^9}, 3.794754039669924*^9}, CellLabel->"Out[56]=", CellID->846025618] }, Open ]], Cell["Plot the function and its inflection points:", "Text", CellChangeTimes->{{3.7574235295546937`*^9, 3.7574235376096935`*^9}, { 3.76933933651354*^9, 3.76933933905554*^9}, {3.76933956822754*^9, 3.7693395712875395`*^9}, {3.769340000757734*^9, 3.769340001411713*^9}, { 3.7693401331810713`*^9, 3.7693401435686293`*^9}, {3.7947535828608303`*^9, 3.794753596562421*^9}}, CellID->382638322], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", "func", "}"}], ",", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "4"}], ",", "2"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "@", "Large"}]}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{ "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{"func", "/.", "#"}]}], "}"}], "]"}], "&"}], "/@", RowBox[{"inflPts", "\[LeftDoubleBracket]", RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}]}]}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7574228717146935`*^9, 3.7574228921886935`*^9}, { 3.7574229400026937`*^9, 3.757422943395694*^9}, {3.7693400661757135`*^9, 3.769340073652913*^9}, {3.769340145890106*^9, 3.7693401476257057`*^9}, { 3.7940073550221214`*^9, 3.794007361013276*^9}, {3.794754042279927*^9, 3.794754043607931*^9}}, CellLabel->"In[57]:=", CellID->91814543], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVlnk4lF8Ux2fG2FJh3pQ2RLKVLSTJvWUpIUSUIpUtiWgvFaJFQoqEyhpl KSo791IkkbWQJWQnZuzLML/399f7fJ73PPec8z3LvZtOeRxypFEolFQqhfL/ dym2NNZgRAD7G0TOnJ4n8H456YtSkgIYt8nMHxZYjrUyjr+uUVqGYwkJff+2 JTQf6ESoyvFjPOAjY9DRiqZmEsPtZPiw/bidynWHIWBzP+dZjBQfpvzJFSTG hgAWrXz+W5wPw9IvV6yuDYOgnWMvrET5cGxhoFp70AiQvLHz9UF+kt/PPRp5 NwrMlqqzdYZ5cW3A71WMCyyQSp9pEnvHi5WTImRKHkyBk8KG6/5o8GKfAWgh v2sRbBk2mPquyoslIksnlt9YBENf9GpzFXkxfnBEF+cvgotX4d2wLbzY3u62 5POdS+D+nx3j+qt5sdDSsK6IOge8T99SmTbFg2VNzq2Oe0yBS4b069c/8uCK 9yOZp91pMMYPtYio8mDMseuL/8sNiYly+n5FHuzzXjhNjM0NA0//ULouz4Ml HjSp3VvFA6/otQd0SPLg+8p7EsX0eeAhngWVZIIHp3wXeOicxAN5AzUCNae4 sUTDNbbjKV7o9Thd61guNz4iHRG88wcf3B8bHR2rw41jq3Lcj7sLQMrfmdFe LW5cESw6UO0rAHOkLfcq7CD/++dvUgwXgFtSlw9+UuLGfKVqg/kFApA7+6bG dwluzPSVNufhWw5Lv5+om6KR9suEyl1eLIfaM1K8Rl/pWKizwvhWwQo4udPH JvQzHeOQzp11VStgqndb+k9Ex/tla/yIjhVwHS3c0j6Xjq9WJuxyoqyEc8t5 4i+9oeOBOpM6Pb2VMFtyQDv2IR3LdhVWD1WshEoH07ymTOlYIr6cYJcJQoPf Ey8Hjej4/uOu9yG/BOFxp13f2/fRscvsGXehfkEYeKtSqhzQsY9udeYIlxDs yxhojFCiYwpDaVxvsxCMEZTeoSlIx64v9a3VTwvBZXUvFq7/4MLHx7d5KPwW gptse2U8KrlwRGf+fpMuIag5uNXydDkX7ptqFXEaEIJO1MI0o2IuvFXX4Jn3 tBAsUfltuyGDCxtvSX+0myEMr4atxkWPuPDdJXMKY78w7LUI8aeYcOGgi855 69KFYcblToqWIRcOzApbl58lDC8/V7l5QZ8LewcbssxzhSHfn4ZLfbu5cOge T/6zn4WhvKuoc5UiF56+eUBBt0UYuvvEGUYKcWH76O2uj7gYcDbtw0rlRho+ X25zM/oQA+Ia+sMztTRsP7TtwkFrBnwwfpg3oYqGGTn6SvPHGHCd5ixHpIyG xdxs6NqODLj7szZr4RMN6yjmu5y5woB+LWUNX5/RsJndKdNzUQy4nKc58sQx Go78XqOt0MqAal6rRvdZ0zCPw7lgkz8MeLzDTFfZgoYr7hWXOP9lwNTsb/8o RjS8zuXw7zvDDHjAuWBvvBYNyxsbbTu2QMZT8XKkZy0NM+O55R+sJeB7tdY9 1SI0nNbhJKqwkYDNsWuefRKmYW3fv+vLJAgoey10z11+8j+Lz6NLhoAVcn4R MnNUTIHzrwrUCcjz0BG6NlOx15PN7FlTAirOxIUfaqTiQPmvRRstCGh1umNI q5aKx7n+fdWyIuDrXdbhAhVUHHkxptT2OAH1R/YPpeVQsd0Kn9R9LgT0N9n6 dCyCin9t5FufcYuAaXkug01hVGxWcabviC8BG6WTdHAwFUeFZm9j3yGg1NLG wdC7VBzsOay99QEBSzMEdVQvk/7UcnNUnxCQKjTRf/EwFZeXPhxtTSKg60F/ x/PmVBzB/zSfO4WA9UEif8+aUHGsWtE12bcETOTX7DilT8UrF6Laj2QQcB/X zUYzdSr2SYgLdcwm9dqz8pCxChWLOv04YJ1LQFGfVzX7tlGxzdNzQnvzCTjE LqnUkabi+zMKlbRiAj6a5inZKkLFiarlxiplBJxWi9SRFabiW2kJOcPlBLS7 IFcotYKK3dfqG7yqIKAy0yhnHTcVG4Syf7O+E7BhMDSdb4qCu42O7dCvJ+Da 9nVRPY0kV5Y6JLcT0G992prOWgqOcXx9daqD9H90d3hrFQXvp7E6tTsJWPjr RGj9FwpW5u7Jz+km4InaxLv4IwUbP7QbtO0n67lSg174noITQ55NXR4g/Zt8 9c1Jo+DjGx+4PxgkIK1y0DsjkYIzIouzooYJmPRZ8ULMUwoudwltcR8j4Eqy lZ6FUrAqIzXWgknAy9Dc/UkQBbtV1YyosAi4v+jCmUB/Cl6+w16idZyAmQv0 /gAfCj5o2Lni9QQB12lFOPh6U/Bq5SdBrpMEHM7OPXH1IgXP6uQbdk4R0HLK sP3CeQoeqdgb/HiazGd7q42HGwVLDG85rz1DwOD3i4edHCiYXSAvenuWgDOj wQ0n7SnYp8quZ/UcAe23SZjbHqfgec01Nikkq7zda2xpScFBg7sP5s4T0Ph2 +9pwM9L/4Xe3FBcI6GR5tf+nMQW/3XVM4xXJMUvpftb6FDxuD/TPswmY3bDf LHIPBUsSTnG1JNel/N3YspvUSyYxWGGRnAeLtXk2GhQ8dFx3Sx3JErIf70ar UnAhK+zn+iUC7lo8aNmmSMGRNb/ET5JsVT+4aaMCBWsq3+WNI/l8sv+YrQwF nzIRDWklOdBbvOilFAXX2tPzhDik/ub5gX/EKXhvYsk9SDLecviIxAYKvmX+ ddGV5N8LY9InRSlYKz5oYyjJk7WBE3GrKFin9v7gO5IFX0uXdAuR/SGy3aGS ZPkbOFhqBQWvSqWF/iFZz+zYcQd+Cnb47u4xRrKd9LRcEjcFT78bpc+TfG0+ dKaXSuoXNneIQ7LMK+tAEzYH9abxHP+fjxs+kq6Z5CCk+Ujyf/vHE6XY7B8H tXrQ3/x/XvmL2WP1vRw0+/Av639/C/sUZyw6OKipPI7zfzzK46fDfv7iIDWb 7Mb3JDvGPN9mXcNBDbcjLzwmOcqgpqL5Kwd5eaION5JrmHQHG8xBtS7xorok 06O1OK25HJTxKldqFck79c9H2WZy0HfTa7ROUk/3sST1P2/IeLOO5bwmOeF5 a619PAcV0pr0XEhu1hV2647iIMa1U+mbSV4xasDr8ISDkkwvTbSS9dwb6R3f +5CDtuO7a4NJTh/pbx7w5qB9Vn6Cf8l+6I7YeNH1EgcZjdn0BJAsusdCcOQc Bx3gF0yQItkvvFh/zI6DNJP7+k3J/soBk53nrcnzX856dZD9ODIo5z1uykEr lkpZziRb6YRnTUEO+tZq23iW7N+HA5UmV3ZyUHT1ht19ZL/jMMrgrAoHOa70 TDhGsnz/WXG2JAd1n8722kHOx1LI3iAaNwede1ds/4Gcr+1aV2X8F5fQ9BnV BW6SXXrSS7mnl9ClPVOvLch5rNdcO8fXv4RMFfW1O8n5Te4acxT8toQumIkm FI+S+ouxs0bxElo6H9fU9I+cv2N8lB+5S0jcVMtqeISc/58SUUEpS2hFubIO ldwXet/Mf/DfX0Irt+4THuwjoCaP3frB20uooNxhtLGXgAq6ri4VV5ZQs2SR YkEPARlFfrR7zkvIMO5D72VyX3W+/6BB37eEAvV++KeS+67xH7rzV2cJyV9t bnBtI+BX+araUo0lJOi5/9XmVgJmJPa4+m5ZQolqYzn3mgnoHSnyaol7CbmE uu9f3vD/vr7CO/dlEcnzDL4W/krA5UV3LJsLF9H6ikb16+R+5syFxOV8XER8 1t4X2j8TsO9Cyq7LiYuo3PYp71NMwI/OLR4TdxbRwZiloZI8ApqZ7mr+t3cR HTU8f0IqlYD3xTgp3ZiNpErP0olAAv65LxZhnMdGbmpTRYv3CKgxsftOdiYb NZiIbusJIGDPV2/bwHg2us/trJFI3m/Qc15Y1Z+NPl/6qs26SsC5z1PXffex 0dfS6MMlTuT9dWbEWOLHApI6Wv3KCBCwpEFAK7B8Ad3RdqRmaZP56SjITBYv IKx7wXWVFjlvDFdqxbsF5GSyzbZajYCShf2fPB4voIda+cuF5AnYuvKvGLJc QD69OnW/CXIffmxh2rbOI5UKxeZnPQx4KrMmRLphHrUrfNm4t4sBr2SUKf6r nEcJHfLrBtoZMD4l0807fx4FjJ/Xk2ki30MxDwains8j1jpqvtc3BkwM2NnZ ZD2P5lN20fakMyDb6nmNeeMcevrobE2dJwOmzx3J0K+eRYNr9F9dHxOGetGz L7aXzSLZqEZLOCwM27QjH20qmkVGxQGZtH5huMynyW0xbRbxjb50u9khDF14 rBQ+Bc2i+pkhYFQtDCUJi5TNxrPIVfT3cqO3wjByq0k81/cZlJv6rIZ5Uhj6 n9gTUVIxjUQF3lz0rRCCOmJTfr19k2jFpN7BC+KC8GmQSe+ltnE0hg98mddZ DqstPI0zJpnol3L7u3B3fjh7mV0wtXUUaYwHXFwbzwNDkk5UOosPocKbmnI6 iVxwJOBot5x1H3J6Krjh4xwF+pXF9H7Z3Y1iip027IxnA//1i+Op27pR5uK7 1yHBbHDX05byZGM32rZO+h3zOhsEbhRbf3KxC32tu3i23oINwi69Mlss7EIe 95v6RXjYIF46vkBduwvNXl8Vl+y2AD4HJD9+rdWJ3N+jWKO984A/yOGGkEcb eqJ5SWkvYxbE/PNczW/ehrQ3pAnn0GaBountTOr2NuR273rhjokZcIgR1T8+ 3Yrste4/Od44A2Iiayx+3mpFVuyVturPZoBiktbWqODf6IUOv8BWcdK+WKhd KqMZfdiWqn1Bcxr0iItd3RDajGz6jF0uyk+Dy74KhIhXMzKwan7ut2EaROsZ GPJoNKPeOCuNcgppX3nj00BRE1qqi3Qd/jYFLjf1PUqv/oXK/3qdy7abAlHM Qp0d/xpRpc5Vg6dhk2DLi81xr6sakYdlpiEMmARZhkFcq9Ma0fybv8TilUlQ GX+sYtK1Ee10qVR6YzsJ5i3nzbMGGlDstcL+KrlJcCxvh+O2nnp0WlXkjEnZ BNjgl/VQqrUWFa9I1XzIPwFSFNeNhuXXol3BbdEuS+NArdXXjBZVi+yH8myO TIwDYzVzka4jtUj4wUoxj/ZxMFv1Z/fu9Bp0OmXXxhtZ4yAv3MZhe2I1WpZ5 b6Wo/TjQkjHLFA/7hi6zZ3WLv7GA+3DuZYvD31B21GDvkxIWSHi3Sfue6DeU tG55//U8FliuOVE++rICaXGtUL75hgU69ke0FaV+RU1myxYtAlnA17WN93hZ Gfr61vyOhSkLZCvqV4fcL0MF5m1DuvtZYGg8PeyzURniGlSxMtjDAodu3N6o UP8FKW11OOm7nQU2B0lun+/4jJ53MM/UibJARbqLXeRsCXqB+fW6+5iA7Vkn VVVQgs7boPyZTiZQ0dAa5NwqQZoTzS3irUwQVSxw0Zm7BJk42mml1DCBW03G Aw0GRrLSxYlReUywR0bpZeNbhHaGvrpl8JEJ3r6jyGmrIBTqq2LB/Y4JbuAE HQGdYpSr9UikMJEJxLoHz7yxLkT3O5XEBR8zwT3XgkmhjgJ02jpu1CKICZjj QbevOhSgxlZBgbR7TFDKpRy+zzMfbTZfZhlxiwmcpC/j3sBcxPjqY2B5jgnS XWhrJIs/ojXp9em3DjKB2k73tFGDj0ig9Gr0SiMmyOf/vaeg5gOSZTl8yNzH BOVvM90su7JQQVrDfZU9TNA5Yl96l56JzKnOLaLq5PlFVdYWj96j56ZRsrqq TPDvkeY/8dXvUdnP6DEfJSaYtJVQ9jLNQAmR1QI75JlApvtW66/wt+ia/f6g YAnS/x0rnvPJb1DXT8M3h8WYAG5WVOHPS0G9sXEPlTcwgY1T+91dba/RSwPR r5tEmcCZ91Nm478kVCL7fLvmaia4mBLUdo6TiI57qAWdWsUEwUO7VGMlE9Bv zVuyE0JMEP2QsN2pFo8UPgffPirIBClbh+/V68ehWnxzsGEFE3ysLs06ax2L fNXZHqeWM4Ffu1oBf/1LNLO5YAO3ABPEiPcIaU/FoP6ws3MF/EyQffKJk7to NOK/Uyx4j48JBntZwg12zxCaFRSy4WECmmycM7dfOMIB51ec4maCDa5mRTuS nqC6hB1nb9GZQCONw3CteIySrVZvf8fFBK/abOs0m0LQfFyR+ySNCertC71f bAxCPg86ZA6SzNO7TpbmcB+xhORdCqlMsPPMtQant/6IW9t8JyDZ7V/Tre9M H+S1kjvpF4UJwF83S3v362j04fRHP5JfD8ulyi14oe25v7x0SV47UM3VJ+iM piOsBkRJrmKFnGIdMkNjCjLiXCSrtsz4108cAD+vz0nQSL7d+3niZIIjOHHv 1owIyUeHNif063kB/cPOaTokj3c5G4vlXgPaAw6G3iSXu/28/jbcByzqyjb/ IDls4HKNvqk/gG6nTmmQ8Z5wEN3cxXcf5Dt8YWWRvLUz76p36UMgqcIJ0SPz nT12rHqNdwhQ/vnZYJjk7rNLoS1Rj8ELy8/iyaReFXKmu5KvPAFiHzI2XyX1 fNf/qveiZThwndQ4YUfqHZHEDNmr8gxobljRcpSsh/fpPVpCK5+DPYrd0a68 THBqU1hP+1AU2KXonBlK1m//n+7g1K8xoE3cRKqKrK/ii+07ryW+BO08+gsb yPoHbiv1TICxYKqPs/cO2R+ew4wNnhvjgV6c3/5Qsp8ixl2yN0kkgFKDDauO C5PzM1dsVi+ZCO7AVqM9BBPQ+c4GbJd9DaRemKkcWcMEcoIl4j3yyUA5u3Lm wVomOLh6Tf7TbSmgKYR17Od6Jojc/Hl0SvUtMGdVKeaR81GksPbBa/VUYK6k n20uReqh6iFlrZkG9KNYy+lbmEBhz/ojubszgMNp96PZCkzwJyPPfvfmTDCZ m/rtkCYTeGX1pIcnZQKBw9ekC3aR8WQLLvzbkgW+TT/4sBswgWyRY/hLuQ/g ac7Cs8cGpP134UqO4ifQvvln2yUr0r5Ge82R959AXI+7dKYNEzyrd3Z4r5IN kJ8NF+8JJihsKVqyV8sBDuUZ72kuTMA9cGZ76c48gE9yFHbdIPMZfuqzriAP fFvWds3Yhwnkx1C1l3Y+aHddi68GkPlPi7hIgQJwv3C3s2QoaU8vjfHXKwLm MZ3XC16T9nz/BtvKioDq5OW+pDRSDwHRHer7isHPVu/01CxSD4Z7Xa8hApnl drf5EVkPoRV3EpIxAFSlR4ItZL+Fxb8xHcAgrHpK8dcfMt9VmrULsiXAmrYr JJfc5wVrTm+0fFsCwoQrCmsnyf0mlpdDTy8FsCh2ixmDBeS2OY44Zn0B9MXh ZRGHWOCX7klG0egXkHf8zLaHNizgZ2OruUqhDJRY35J8fooF2u4d9i9NKAPn Pd+kcbxYILRbf4N4eDkYdo+xmX3KAtPPthg3X6kAsh45g7Ht5P2WIeml9LEC fBHxH5HpZwGzMrHIu8wKYPmy7lQFkwXejq/uUTvzDcy9lqs/TB8Htia83o9t KsF4nePPhK3j4AttIPXA7ipw62ytlojfOPBc21MXd60KrP/ss1Xz0TgQU+6c mf1UBQ7qRqteihwHV22bdZMVq4GYoGHi7nfjQCG3opVL4gegCUns4O8YB9+y GwPsqLUg68nN/idwAii7ffq0pqcOeD7gbilaOwmCth71raLXA19Tuq8H+V4Y HGEb+0rXAzV9lQN7dk6C+HN6PUNO9cDC9fAF/aOTQMSjgVE8WA/W7vO/VxdF vjc8WR4OYw0gK/nMP67NU+DLlW3ymfM/Ad+/IjsF02kgoVk35bj+F1A6fZQz d2oa3Jy9WLJO+xdwPSFxbOjyNNC4VnjE/+Yv0P70/BXlV9PgzXWje9aUJuD6 qumNBWsaBN8807PI3QyWhaYrUGNmwNE7SS8PCP8Gh77+PXRIYA7IBrMHG5V+ g0LKmFTTpjkwHWmhfuLgb0ANoH2+rjkHwjKoVRce/gapJuynYk5zoKrFdi6G uxUsZ5umtZTOAai82nJsrhVUZEp82+I3D2Tb7/I/7W4H25IzsKMoG0z3t1uK UTsAxef7/WZVNigbV4tNEe8AP14ht7MmbHCK769G0fEO0PKkP5PlxwYx24FD 368OYOhqdNh3jA0EA2eKNb//AQc/CWzK/rEIbqxXyx9t6QTUoU91xUkc0GEd pNM/0An0h1Z+eveZA/Y+7Sn9M9MJGgK+f8JdHLBsRfj3WpEuEF5kH71JkAIj l6bassy7QObQaKKjMQV+7MrhXP7WBQKXTsrMfqPAkeRd+pzcbqDeZW5+po4K 7dR0awUje0Ches3lEAYd6hmNMo1TekCl2nfqIRk6VDj1XDgwtwcESff9ldWm w9mQsUP0lh5gJRhaTjjR4ZPh6J+za3sBl6vVp458OqyIn/zdFd0LlNzwp4Mu 3FBV+HXvh1d9oGlLgvzneh7IO8q3YJ08ANSDPeRs+/nhlrePWm9nD4AkL5Gk Nxx+aODEKEwuGwCNWyvU+UWXwbsd62/O/B0AL5fy3lINl0F6jSInQmIQ3NgY 6dmcugxS3lty/Xo+CKYv3h3cdEkAznnGClgGDYG7Y25q+1evgMNTOzaYeY6A 0fUaPRxDIRgcJPi80HcEzNlUHPh1VAgqS/WLyIWNgHF2aFLuGSF42SxCkPZh BJjxYb24B0KQkjpJ+zg5AvrCPPxplUJwtX3m4Jqr/4CVXP8fXhNhCCvlc/7c GgURg9VFascZ0Khm5Zsd5F59Ir+lsurVKih/J3Lt9gPjQO/plw+VyWvhlg6r gLsKk6B0meOio4g4DHhw/sY59WmgJBOr/nxAEvKpC11o/T0DUvp493suSsP/ ABCfPyg= "]]}, Annotation[#, "Charting`Private`Tag$9810#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Epilog->{ RGBColor[1, 0, 0], PointSize[Large], PointBox[{-1, 3}]}, 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->{{-4, 2}, {-4.99452196947971, 10.99500489326904}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.757422885966694*^9, 3.7574228926776934`*^9}, 3.7574229438736935`*^9, 3.769340151177025*^9, {3.7940073580296974`*^9, 3.7940073652466793`*^9}, 3.7947540440819254`*^9}, CellLabel->"Out[57]=", CellID->586368879] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0]], "ExampleDelimiter", CellID->744903650], Cell["\<\ Find and classify the inflection points of another polynomial function:\ \>", "Text", CellChangeTimes->{{3.7574235295546937`*^9, 3.7574235689956937`*^9}, { 3.7574236225426936`*^9, 3.7574236271776934`*^9}, {3.7693401759250913`*^9, 3.769340178517975*^9}, {3.794753616816984*^9, 3.7947536176729803`*^9}}, CellID->997580758], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"func", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], RowBox[{"(", RowBox[{"x", "-", "2"}], ")"}], RowBox[{"(", RowBox[{"x", "-", "3"}], ")"}], RowBox[{"(", RowBox[{"x", "-", "3.2"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"inflPts", "=", RowBox[{"InflectionPoints", "[", RowBox[{"func", ",", "x", ",", "\"\\""}], "]"}]}]}], "Input", CellChangeTimes->{{3.7574232463426933`*^9, 3.7574232739516935`*^9}, { 3.7693401656537075`*^9, 3.769340168490957*^9}, 3.7940072570949125`*^9, { 3.7947536346805143`*^9, 3.794753636465515*^9}}, CellLabel->"In[37]:=", CellID->460551687], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "1.793377194880979`"}], ",", RowBox[{"\<\"Properties\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"Non-stationary\"\>", ",", "\<\"Rising\"\>"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "2.8066228051190207`"}], ",", RowBox[{"\<\"Properties\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"Non-stationary\"\>", ",", "\<\"Falling\"\>"}], "}"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7693401709296093`*^9, 3.7940073810034447`*^9, 3.794753637553036*^9}, CellLabel->"Out[38]=", CellID->65301210] }, Open ]], Cell["Plot the function and its inflection points:", "Text", CellChangeTimes->{{3.7574235295546937`*^9, 3.7574235376096935`*^9}, { 3.76933933651354*^9, 3.76933933905554*^9}, {3.76933956822754*^9, 3.7693395712875395`*^9}, {3.769340000757734*^9, 3.769340001411713*^9}, { 3.7693401331810713`*^9, 3.7693401435686293`*^9}, {3.7947535828608303`*^9, 3.794753596562421*^9}}, CellID->382638323], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", "func", "}"}], ",", RowBox[{"{", RowBox[{"x", ",", " ", "0.7", ",", "3.9"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "@", "Large"}]}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{ "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{"func", "/.", "#"}]}], "}"}], "]"}], "&"}], "/@", RowBox[{"inflPts", "\[LeftDoubleBracket]", RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}]}]}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7574232463426933`*^9, 3.7574232739516935`*^9}, { 3.7693401656537075`*^9, 3.769340168490957*^9}, {3.79475364066956*^9, 3.7947536432585707`*^9}}, CellLabel->"In[39]:=", CellID->16587846], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVl3k8VO8Xx82CGVuSFoUWUpE2qaznqchWSruKFntUQr5EkVSkxT6EbGWL qEi2HsmSfUZZsmWbsWRnxlb63d8/M6/36z73POd8zuc59971V24ctyLz8fHZ Ez///z9KcvW3tubAxdK/txLHSYjjWI4dr3NgetTF2K6VhO52reDdduWAfuaZ lVqlJPQW5155/pADcyoD1mIRJCR6d07jUxIHxOakbp1BJFQ97zlK7+eA7n+2 S7xC+JDe9P0TGTb98G9hbw/VbxGgP0hm2nYAJP7kKkdHzoH0IzGXNzcHYN4p j5ziOAfzCgFVV24PQO/rxBqW3hx8tPb9jxUwAMmHHy/x4s3CVo4r6+3bAeCc 8qLCqVlYzT7/wG56AFgBI/qGq2ZgumfjSKfXIJyIXojUyJ6GtM68wsrwIeAn mWstoHH4o6SjOvJyCBbURZiW68fhiHtdhnjyECxu2TrDJo3D+LLel2dyh4B1 4FyB2cMxUDUQucduHgKnZ+Sl2U9HofiDuS5J6jeEyxzxWfN6GJr8KHX7on7D 0bbPXSd5A0BSOfIrOXYYJLI4e/+T7YGPb3XcE5KHYbNjjLj/725wUNRcFpM5 DLY3dbu/fuqGlvVKesF4GGIPP9+UfaIbssTpmZ6/hiF0T4HLnYAuMB8tvWuy dgRya26QDPg7IT9VU3bh5QhQz3sMxcm0gOPG3Z+4SSOgOK6jW/KlGRTilY6P vx0BixeJ13ZaN0NQxOqH7M8jkKhn+Wo2swlsH82O1HeOwO4d0qs26TXCSqvs oleyo/DllWJM//0GcFm31cz45Sj4LFGe2exQBY41R1fykkYBRUhlO+ZVgoOb MysmcxQyjv0mWQtWggUzX3ekeBSGdKWFzr6ugOPeBtue9I5CUrI5+9hgKWzv sv5XuXkMdHJPPYjZgGEoNj5e98MYDCnWH5K68xo4RmXnRwrG4EvlrddPBRKh e2ZgeVjpGIT61vAFBsdBy9Edj/sax+Dptwp7Z0sGVPz77HR/dgwyk+9JTnk5 QsP20fgu2XFQWJmy5ltBHM56LuwsazkOW9MXyQzNfGyrKX95s+04WKbz9X3X KsDrBjWP7nIYB92nzvz82oX4+YHrSodcxsFg2U7SIY3P+DqX2XvNdxzGZGOO pEh+wUrnw08WvRqH5MUgvoXBUpyksH7PBfY4rGS1/nRRqcHm39XkrQfHYY+2 yFlmYg1e4X1cwnFkHGaUSgszltXiBz/vj97njkN60pHtYxO12PIJJ+kN/wSY uuQ6hKTU4/WTb1YubJyAGr3PF428WDi6aM9cpPUEDEqbciOSf2BXH6v/5q9O QLxAma9y+w9sohfKPXdjAo6mi9z1FG/EAqyJiTVuE2BzwumQoVsjvtmXPhTj PwFztwJOp+o04UPCcu3x6RNwMM+cEc5sxhNnl+DUyQk4/F17avfHVlwjo60l NDMBQi5K7Rd7WnFSj0PB1YUJ6LZO7jIQa8MXHKpylaiToGp5kHneqg2Xez3I ylg+Cc8m+054iLfj6KSF+Hf7JmH3U/O1lec68KHpft+8u5Ow1nJ5RGzxL3zi WG0I//1JaOUz7DPq+4Uvpb9PMHk0CVbh/1F/Ubrwbcs7xYPPJ2Gy8fPOeYUu nPFD4o9U/CQUBZT7N9l3YckcLefbXychtWTjvOp4F16/VM6nvGISMv98aDjA 1423XaMFSdRMQsDU89cq4t1Yf+P3t2k/JsE8WvHOl+3d2CPMdqiVPQnr8zoq nl/rxj23Qi5r0KbA9GuOGX9fNx5juTk+EpkC1aSV6aaT3fiPsrnXd/Ep0Gnt WAzm68ErOJtj7KWm4DQ5aCpbugcbnP7cEqU4BU6bHnFyT/TgrD2DR/8cngJX Ga0j3wp78N0Zbe2ioCkgmZqte+DRi3UVlcxx2BTMfvlQ2fagF4uYrbz7JXIK clvtCqUDe3FkyVhRWfwUhKf0vjN71Yuzn8Zp1b2bgttKQ3od1b14SI6s9Ys1 BWQvtWudK/rwu9OjF7obp0Boh2bhr7V92M2/1bP3J7H+19yGms19mH/sfWF/ 9xQ4KH+/aq3eh9flW2iOT0zBh6pnBgkX+vCpY2UaJIlp+Lu3wupATB+Wvv/u PGXFNFQpeGxZeNWHe3JiPPhXT0P5X21mbHofdlzjWkDfMA3Tny/PpRf04ccc BQ2JXdOQnmC6uqWlDxd7+qnLHZ+GnojTzz2XsPGjTJdzG09Pw/1r56znlrOx cc+l25vOTcP+zMKBK9Js3Kanlq90ZRruahxa/2czG/MkhtR2O03DqvO2hfr7 2XhrqpGabvA0rGlvsD11nY1XTB8ZjAmfBuU7f20lXdiYD45F8l4Q+w0HMYrc 2fj7j5NzyYnT8Mbd5HOdLxvf5jPPE8qZhsWOd+yRSDa2NLpkZ5E3DVP1dSJ8 sWx8JPyKVGHRNOw6HdX5J5GN1221cb9WPg1fA1YUf8xg44ozjmrM5mkgnXdW VC5m46wEp8HN7dPQzhU8E17Kxi9GXCLvdU0DFT1MHfrGxtfvu8/tGpwGcfen f0+y2Fgy0ycvbH4aYm0XRHd1s/HinK/d6CJxPXP7Cl4fGw/oPJLSo3BBfrnn 59cDbFzQGuA+K8yFD6SNW7+NsfEVgTC18zJciL95UH7NXzY+bMIY/LCeC6Sl PY1afBysGh0ZKaLAhfSwgrjDFA6m7Xo5V7SNC1Ialz9vo3PwpGdc6goVLhzq OLidLMLB7RUJpjf2ciHU5hn3ixgHZ5ol561DXJDZc+6zgCQHR6Sk2rnrcMH+ IbMzYAUH+0y9kWrQ5wKtOSLw7yoOPu2f5X7fhAvkwLbeJBkO/pOdp8a5woVb 1RZDEgoczPlXMKhtw4XL9V/2LG7iYKbh50iGPRfGDt4JaNrCwYldJXP6Llxw LT7gb6zMwU+UylLj3bjwwKXj6Og2DnZ1rTCd9yTun+CZeuzgYEORmrw3D7hw PjrS2UyFg3efqbOjPubCPlJw3PvdHCyTwJQye8YFy+h+I64qBwuMNFTmBHMh JFTPd+NeDh7f2+guxuACs/vc2YP7OLjVp3mLTRQXbh8pbzJW4+DS2p8/cSwX DJwUxfTVOZhh0al2M4ULLFvDHoomB6s/6J/3Sif0e26qkU9wZ9J4wbMsLrRm +rVc0iL0+TbnGZPNhaiKjLIZghWGyNrpn7hwKSlKzEubg6uERf7lF3KhdHQ9 5hF8TXl5cWUxFxRWiPaaAweLH5W911JK9M9S4WEuwdmOmw70f+OCDlclmw9x 8NngHRReDRdic2bd1Ale+KBWSmVxYbf17i5Lgl82HniwrJEL6EUi14vgAzNG hzb8JPbL/VcaQDBn1SnBnR1cCJhZNPUj2F/d/Bt0c2G91cniWwRvvWDjb8zm ws/OTMpJgpl3HA3NBrlQu/zzdjmCXWLdhR1GuND2dPOxXiK/lV98am5PcCE5 JswxlOD8noCn/lwuRF9Pid5DsDk1zDhijgtDf/i6Kol6yQovlyT/Jfq7UvOQ McGv9ZKZOSQebLk01fqV0EvfLiuolJ8Hp4yKUhUJHn6cd/w7nQcm65Q/+xB6 B6aXLOsR5cGmuQa5Gg0OVqmr/jG+lAdpJRocAYKbxn6E/VvOA0fNCXEVon+3 l3aeFlvNg6ZZ98xjRH9lVfpXysjygM/MtPYi0f8vJ8dblDbw4EfcEtdLhD9o EeTzBoo84JVOhO0h/JOeJyx9dhsPpnaJyYsQ/jraJtlhvYsHk1E9V7/v4uBw 2U0XfdV5wPS7eWwv4U91tGNdiDYP/HZQBH4Q/u24rNYdf4CIt3oh/grhb/nX RhbYkAfyYqn5pxQ5+Fv5Sfk6Yx4MMaWN8zdzsP2AGbv9OA+cDZ244sR5ea/k aDN/jgemfaszQuU4GL0PtVe154H7Jem/vDUc3Pc9ZqvODSJ+yTWHESkOfkS8 7B135sFFg38GTSs5uG5f3g1HDx7simn09FrGwRdwh/ObAEKP2/sXdghxsHuN guf6dB6cd1Vft5pLzOMHnNo1WTwIutyvbTTJxvLaSWtXZPOg0fb84g1i/jAz N34VKuSB1rtd/qGDbLwpRF5oupoHBvLbJww72LjRdENE+W8eHOg4tNy1hI3T JHoGi8d4QHM+v5rzmY29q+M1CqZ4cMLS0MqwgJjnWut/ZS7woNMtjDv2gY3v r1unECk8A7MzxjJZr9h4Z79Mtr3SDNzYLWcvSsxvgbgOfuvtM1Ck3BBU7sXG 7WdjzlxSmYGYFK84Fw829quSXjipMQMbPWdjMp3Y+FfGmgPaRjMgWJixM+ES Gz91kWKK2xPx1ve7+Kiz8SBp+XBO2gzs/BUY7sIhnm8NQ7UCmTMwtKjNtujq w62JxZlnPsxATvdIhF5rH67RdXCeK5iB/X6Zl4Zr+/Bb/6/zmrUz0F7lX5We 3YddljrRS8dm4Ins3eJl3n2Yb329QsPuWdB2E9lUL9aHVyD/y6OfZ2GcclEy XKwXf+u3OsktmYVqoZqmQIFe7PH8gN6f8lnQqpKW8F3swV2dC1uF6mfhzz6N VSdHe3DaneuzG3/NwtrXHhZRtT1Yu+DEc7N/syC+ymG67nEPttkjW1QDc8Cr 1TGhE+8nn7Z+WPWmeA72jTy0KGjuwqs2WDQKt8yDT3haUfCGdizQ9wkfG1qA wIhTnVfUm/DVk6W/pYb+gJ774lbFp0wcUHtK5tG/v3BseWBpQm8pluNGB7qR /0G0T+819d8fcKFEDvWRKB86oatwOUjeG5SDRpsPMviQB8nS87hyDvj2fP6u G8mHmvbfdHx3IwdaVZ7X60XxITMnyccD73LAr2l7hVEsH3poNdLUqfoRetbc /HgimQ/51Uy5D2rkQkTSVKhFLh/6nfryiCXKA0rhrMn9Zj7ky3G8dkmxCH5y yDUlK0koeW324Q1QAgd0OpeMS5FQrmDJh0tmJZAWn3dCRpqEes4GDvp6lMDt C45t/60joe5yx8i7uSWwuqFjaOsW4n4miae67StcKPpEZ6iTEJ/V273pK0qh M+S6nr0ZCf1mRy+4fi+DQxMGAREXSejVgeWrzUbL4K3xxvqyyyRkHubZv4le Dl709tPrrEnomfrDG/ba5bDOy8C68ToJaV7eez41uRwuX5V/AN4kJNPRLTrv UgF9qLVkWSIJvbw3n180/w1S6WpLpF+T0PYaaupL8Uq43sA4L59MQh3+WwRt FCph1uLU9O43JLTqWR/fW5NKEH3E3Hj6AwmJpbXbSiZXwp7acr+IryRUrPle EY5UwSPTD8YyfSSkJpItOf6wGg5vkIjayCEhOfdzPz5GVoPEb8d+5QESWsoM emCZXg3Rntu8tYdJ6JCTRpYLqxqyYlPfXZwmIWYKX4PN6hpoYcdKJlDJSOHG vdrw5BpQdHrSqrCRjN59Tr0lkFkLfg8PjclvIqO4ZSGks59rgfOCjyq3hYyE U2V2BNXWQuJXF+W1ymTkNnThRv7vWpBebua9UpWMUlYImAwo1IHoJ2UFmi4Z uRz6FZUVUQcONf3qAnpkZFcd8tkjqQ6quuKPUg3IKFXe3Glbdh08pK9w5ztC Rmv33HhsWF8Hi+cWq2dPkpH6Yra9GbUexv/W3Ry0JCO1TYohI3b1YCzh/7Df mox0o6Oe7HSth3SFg1FsWyK/DLulZj71YHc0t7TbgchH3Kjo6ot66ImLXdnq QkafeqkJlyrr4cdBx6IqXzJ6qsdwOr+UCbn+S+npr8ioTLaH53eZCQppTVaN SWSUO3Ig8ZE1E8KrokoWU8hIUfDr3H/2THAVVvA0ySCjJbX0VOVbTOK7SH2M l0PkT/6pPPKICe8DLRr3V5CR6o+wH0VpTNjwbvMu+0oy0jeUS21+y4Rg1siz 0GpC73ubNXrfM+GmhJt+fz1RX9uzmPp8JuwIfVLwpIWMaFqHHv2tZEIGIye+ eZCM8t5LWmWymSD96fYi3zAZcYoKf7AHmPCkBc4rjpLRhjpLGbFhJjhIVUne mSSjLEbO/t2TTFCM6ny0YYGMQtw3izf/ZcKLgsQ+o79kxKNZ34vmY4FQu+3+ W//IaFW6e/sJCov4Lp2ar6BQ0LovW0wjaCxIeSl4/ZoIBc0mvs5wk2DBKlxT FS5GQWZ8J97WSrLA71fQpmJxCrJ1+vRGciULbNZJd0ssp6Bo+U9JbmtYoJCw 4+QnGQq6KZHBjpBjQXgJN6t7LQVZyVIl725kAX9vvqjwBgpar0o6eWoTC/rk dCvMFCgoj84n2arIgsTXpuqU7RQU53yhV3MnCxx3JsQK7qSgPWvfXHyxiwWa RUNUERUKshih1f1WYUHTD496yb0UNGj49fHVPSxIuFS6W0qNgnxFVnUy9rLg xrDICxkNCjp4ykE5bx8LaNSXlgpAQXZb9aua1Vnw4zmnUnE/BflFzEk3arAg fs327dsPEvvpLd4q12SBukrx3F49Yr1zpO4DbRYIYNpFTQMKWnk74MtxYMF3 Q5NSZERByY2PjCURCxyu9DwzOEpB7oMvkpz3s2DfqOL0ERMKOtOk/d/SA0T9 t51Nj5+goCP3BC0TCW7gL/x8+hQFaQlV39hykAUvg6jy589QkGu5VUwiwfYy R/wvmlLQR5Q/tlSHiJcaNmpxnoIU1d7ZuRBMVe08YWtGQQ6v1cSqCWYVK+Q5 XKSgB1n6Xct1iXiHb8jevExBI/k/e04SfLUl9/4tCwryPze6yo/gvZZ8g+5W FJRx7tmDTIKp4/rGd20oaHVhhVI1wUyPoA8+dhREynkr1kZwjGDrqkf2FER+ Z7bz1//jhWy4G3CNgjabcMObCd6z1r73+Q0KGrePPlBKMPnNB/3QmxR0QNR7 72uC6/f8yYhwJupz/e52m+DoEp1lMbco6KQsk65DsK3xU7f4/yhI7F3OCIlg 1dbGjtfuFGQgXrUpm6iPbC17MM2DgpadMC04R3DdhHXK2zsUNFaW84ZL6BV1 J1P0gxcFfRva+8eXYFv6rFPuPQpacNPOohG8Owy1FNynoONm26q9Cf1J6/21 ih9QEDXf6dgI0a+6dFZC6SMKKuB4HjQm+MW+1bRKf0Ivx9LkRKK/NqVXrtUG UNCUVIX3CNF/vvapvU3PKai+a1msOeGPGhvNmNYgCrrxzO33Ay0WRE75kn+F UJCAZ21+POGnXcIravsZFLT3/pfxj4T//oWb7xqOpCCnlnTzLDXi/g3JjPEo CurrW2f+kvCrlfq+K3OxFOTM8Vp3lvD3rnLvir/xFJRQMjAkp8qCRZPKreRX FLRTvulUH3EeIuzOzQilUJBR0F3pg8T5qYrwfCKdRUE/3Db8dFMizvcOptrh 9xSk6nJP/tsWFjz8JtfvkU3ozWrdJ7SZBQdmq/a3faIgiBxgWsuzIP+M1Ezk Fwq65XfwqI80EX/M4VXlV8KPhSLOtqtZ4Pqo2GSujIKe9T7037+KyC/XJv1s FQWVrBB5VbOMBW9WfLy88jsFte1M36QnxILHb+lL9BopKGX9MvcyQaI/h8wK XZsp6FE7/+AefhbIu1JXNrVRUGefrMbUPyZENx6vCe2joNNnx/Uapon5Fzq2 R4JHQZycHNnt7Uy4uvVg3/5ZCtoS6LGkp4UJ+qXhQTfnKci7cMzTr5EJ1Gmt YeYiBW30ZXAy65hw58ST+OeCVKTc9iHRrpgJ1yW2iIhKUdH97dlnnsUz4XCa Z57mGiqaKt4v5BlDzNMDTGsHGSrq0t8ZZxbJBM7N/75Ur6ei43/Egv4EMsGc Veb6WJGKhseDdNK8mHA08Eq3oCYVie9W/1t1jgnlzkvPKGtT0bGMjDzx00zQ PlNccxxR0bWE2t1GJkzYKiv7KUaHilTHvXxe6jGBlv7zmcoRKtp33FoLqzCh pOKY5kVzKjrZuMp0jM4E1X/ajI/eRHybrKW3LxDPw54RkXYfKmpzHpo6dqwe 5MujfUgPqIj+JnHzMp16kHg6f+2wPxWJlV35ZqpUD6OrP+r0BFHR1+1q0ROz dZCyR3lSNJGKLvanJ5gG1sGa62uOWJVRUdxdz593s2phvPBItVUFFamZ2Im3 J9RCqbC3gXUlFd0TT1q1JawWHFL7dG1qqejvm1tNwe61UNiXoW3XSEUPjNuj kvbXwoXzaMc1NhWFdpetaq+rgZf6Vstu8fOjLweuvenvqIYNcpk/fXX50ZLL /NpjrEqg3R2OzdLjR+r1bdk6uBJGWrZYtxvwox3mqjUB6ZXw6dmrSRVjflR0 R0R17GElHJ2PFO49zY/01ileFNWoBE+Wr9Z+W340MfCtKj/uGzR6nYv/+5gf CSndWulxpQL82vntXJn8CFqix5mlpbDl2l4pxeMCKDipwUlBAcPSPo2uoywB 9JZR9NixLBvOXqSk6Z0XRCuLFFkOV15BwkBGkKGZIDJeIVBXuuoVDN88637k oiCqD45JM65PBG/fDP0TFoJo6ZHjA3OaiZCSeqbf3F4Q+WdVlhWsToDZqTfy rh6C6FW574ms4liI9DsZ+ypKEFEnVC9kbGNA39J/D5NjBNFy09K096nhsC0q 9XparCAa/SZeqb4xHEoyFrWyEgXR58xYx2aZMBhqSGkveCOIStR3W5gvDwF1 mb9S3wsEUeDq8jRBrWfQ+u51KKldEO2+tUlR/t5d2KN3vnR7pyCylLXy5w/0 hKB28WmzLkHEL27j2h9/G/QFPU/k9wmizTq395fUucLHC8clnEcE0aD6+6UN L65DsOC/532LgkhlPIqWa7UVRqOzsQSJhiaGaoRTHJSwwa6rY4hCQ+GHdnwQ ydHBfGaNxjGCNGQUS1cmi5zF19+/ET0tTkOD9JrfnlZ22NDsbEDFehqaMYnU v2rnjpMmRQu4cjTksVPFhm/8Nib5fR2SU6ChRtm+zH4nT/zp/TZDb0Uaqnz/ 1DbkmhdWoPHT1VRoKIn94Wj3Cx9M/vDuYZoODWlHHVAzEPDD5vo2H1sO0dDD rRzjmjQ/nNchzREwoKHLSR+Yhkf8sSPNT9fiCLFfx93UbU8e404zc6r0aRqy ULaw2z/xBOfThH2e2tCQAbLNF3gTiJ3oOvnhdjTk1i6vqzgQiJWE7kzG2tNQ YpCK/1n5IBwtPHbl/Q0ayh3ffpsZGYTvin0/2PwfDbWecw4RcQ/Ge5aIeHa5 05DLsctelm+D8dgS3exBDxoSJs2HFPUE40tLc+X/eNGQ1u8dNtf1Q/B+ySj+ 9X5EvV6Hx1IEQ/G85A8txcc0dDZh7sLA7lD8frmoq8oTGlp1t1d/7eVQvGGl F0c3kIZots8/X/8YiltXfpI9GkxDcrldLb6/QnHIqonTZ0Np6Nr+p8FPBcMw dbVFxdUIGhqzTOFzOhmGC1dH/3N+QUMxV68dMHIPw7fWNO69E01DVr7q2hIx YZgjrZfyPI6GClOUblt2h+Fva5X8s1NoSLU52G/mQjj2Xmf5pSiNhs6YhmyQ dg/Hautj5srTaSg5KS5CPjQcp21YcvVnFg0x+LU2tJeH4yty+gk972nIWMAt z68zHK+Wv9f6O5uGzmWt3C3JDccBG6cMFz/R0N38600lsgyso7D1vmABoY9q 5N3enQz8R8GqQLyIhh4/ExPuPMjA2ZteTklhGroYJKDx7iQDO2xuVpL7QkNr Rk1qz1sysPwWccutX2noqfo573YnBu7YYhCtWkZDixPrJXZ5M3C4os8P7Qpi /S0ddP4JAxsrFYjoV9IQSYhXcZrBwAJbp3VMqol82ynWcvEMjLcq3zlXS0NL /n5vwqkM7KZsnWNRT0PZV6yaFN8x8I5tsSMOLBraMnh0nUUuAw9sa9no+p2G qk1Kb9gUMnD89qXmXo005HDwideeYgY+t8Mw3K+ZhnQMhYTqSxhYYuf9uqCf NCTYola5vZSBq3YWCkS1EefhYKbrGYLv7+Jqv+og1lcxqnW+MrCmyrb/Mn7R 0Kmned48It60ik3mx24a8gl1NrYvYuD03XH9uJeG3tUUDcd/YmBL1Z9rK9k0 pE7bsizyPQNL75E429BPQ78XO92OvmHgxj1GgW2DNDR7JOHH1wQGVrj/K7D1 Nw0JUaVUtkQS9dY7B/0cIfS6fDD09DMivzW04JYxGuoMwMWGPkQ82+jg5gka mrOr8abeYuDr2TtCmqZoSDrOINrHmtCPryykkUtDC0G5rV9PM/CVyJHQ73M0 FDj5uP2xCtFP9r2whgUaSuuVVBZbx8D8u1aEs/7S0OGwlvyjwgycUqXNqCfR UYuz9isa4Z/5Fd8ZdRQ6Ulkj/PhOWTg2srCJqOWno/n/rL+8eROORxeeR1bT 6SjQQ0B1u0s4RvryL6qE6agt1GP23ulwHBT66UWlKB2F6Het8d8bjncrd0dV LKWj5ZFfnmRyw/BD91vR5cvo6Gqci3lNQxhuLqPHlC2nowMrfSMi3obh2+a7 Xn6VoqNLZqKG6lfCcE1a+cuSNXSk8fzrAVH1MCwzcy72iwwd1XGNkx6Lh+Hi 5/fj8Ho6Ejh/KN0rLxQLfPmRULCFjtQV/EK2L4Tgs6J2iflKdKRteaJs17cQ nGr6NzFPmY7e7KSfagoJwYcnN77O3UlH9SczvOcUQnCw3H/JH9ToaPvdo2FP NINx3w3hlPcadLQN39O9sRiEVQtjU95p0VFWWu+2gc9BuOXkt9TM/XRko1ER wtAIwrIPpdLfGNCRzKatv77JBWLHhoz0NCM64S/FLc7Zz/EX2QMZqUfo6Ozx Q08dZJ9jy9yrb5NN6EixIJUXPfgUpw0UZCWa0pHlXIZU+oUAvNfIPCfKjo7u DUwEwIcH+EXi379l9kR9wsmvyn754sWF6EPj1+hoaVm/dibNF5emtzXrONHR q2SIiD3qg4+Jmc6P3KYj3QtUkW0Wd7At6wSgJ3SUoktPzRe2x9Vbph5dfUZH tRqUf1ZMa7zNJ5gZGkhH+hLW3hUPruDpXazLg6F0xNaZ+TPsewJ7hxr7BscQ +sg9M59eOAYRZwwq+97SUV9T8j6Ruf9gIXNg6ZJ3dPTEfZ25RuhtMKf5nVP7 QOghl3/1zt47IJ9X/vtpLh3NGJnwKRndg6zVOmJ7i+koqWiKLNb2EL51aJ/w Z9HROSOP8wKXg2DWYneH8jQd+VUts6nteQmfNp3ZpsKjo/TfUd/bi2LB7be7 175ZOpJk2uAbR+Jg1gmvP/iHjjbHzaleUY6H2XuG1mepQqj/sPjP1XMJMBN7 acxHUgipsSm/vIqT4KPFfeS3QggF7JH8OqeVDK6bkoKerhJCKnsiJNwLk4H3 9rdKhLQQIr34OfK4MAV4Ra5uGfJC6Mx3vVvilWnAa3tCatkthMY3KjgYSmbC x9jM4x17hFCc5tJcl4RMcLVoSOzZJ4R2K1aptqzKAt7QykMjmkIoRLs7IDOV 4LmEx2RdIWQ8tOlcM+sdcFfmLVM+JYR2XLqeeUkzG6ZPsDf63BJCLru+dNHu 5EG53DL8/j8hFKiXvcyuIw8YU+hsrzuR/7LPem7a+aAeEv1Y564Q2jBZk/ma XADeDSfGBB4JoZ+nrRwNQwpB2KTkU0CEEDpbtyZVqQnDBuNYo7ACIaQntrN9 0OkrTMvU9pUVCaG3qVr3Hr79CmUj83d4WAh9Cw/O9xn6CrZPT2edKRVCz5+J T7ywKIWMGtHlq2uFkHgnX4LJuTLYZ+TZ+bJTCPnF2U0sPVcBR/VNb6aQhNHN zgdFWa+qId+ip6GOIoySKWr2N35Xg7yX/W4uvzBiVlYcDN5VA/M5d2b2Cwmj G/88XPlLauCVXMKdNglh1FHeOpzCroXZxSF/MXlhVPLi5gmxdUyIy/FMcDkk jKDDyQnHN4AQi58apS+MvgsaHImrboBbw8+svhgKo1Fm97FcbgMYysVvFjsq jHhxnaf9DL/DdGDZ2+QzwuhKsNm/PN530HcQK2i1FUZJ5nf63UwbYWJD3HcU IIwEpfS6jxq0wKfUdK0DT4WRb9nVqd+uLeC9Iy/54HNh9EFdqSb/VQuIaTd4 HAoRRpMxx9AE30/YakqVPxwljPo75DRLC36C7XNblzNvhNGOJr+O1Rpt0LWw Y/n1amH0ciyzx/hyJ6T4aHndqBVGuZ87OO5hnXCDbjjoWC+MHtSkqrRVdsLi Cosi5+/CSNdgatV+lV8gvSvMyr1NGD3kgwhjahecsZ3L8f0tjDYuc61p7uyC uh9fTkcJiyCdkYILlNQeSLb5SfsmKoIMtmqSpSp7wHt+PH96iQjq/eWXdWyw B3atW7fWWFIEHS+iOSko9kK4/d1+PhkR5FgpGXItoxfMyBpu1ttE0PWxD29v 5/fB8PbsyJ0mIujSso5dkmMcoAcktVeEi6AK21M2N8t/g7b/fkZ9hAjqOCRn 0T38G1wetZs0vxBBVCMXFedlw9B1X6KC81IEpbQmB/25NAyfPO++408m9hNF /Cl/h8H6+umHB3NFkMsKvrYbWqNQaiKwAzeLoO7mLRov7MfBa5X1/Y+rRJFu iWF5sMYUGF+5IJC9WhR17fMeqj0+BdLpx/3fSYui0OY7+muuTkE+wPP0daLI lOHBGo6YAp71qqiEzaIovMydaz8zBddzqt4/2yeKsj5J3e7OnQbz49t7rM+K osmvgzbdh3ig+WQWrYwQRf6ej9TmXs6BdM+cMHohiqhnb6dYFs3B370LTbbR oqgo7tBof9scfO7965AfJ4oqS4s275GaB6RBiTRLFUV//FvuTYbOw8Eh0YnE fFEU+IW0dDpwAQz15eJ3dIiiHrKKo1XUXzhLNSYZbhBDQk/Pb9y+yIdk39wP kDcQQ5R7PQ9zLMnof31k3zA= "]]}, Annotation[#, "Charting`Private`Tag$8209#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.7, 0}, DisplayFunction->Identity, Epilog->{ RGBColor[1, 0, 0], PointSize[Large], PointBox[{1.793377194880979, -0.27823204605459195`}], PointBox[{2.8066228051190207`, 0.11085426827681658`}]}, 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->{{0.7, 3.9}, {-0.6953791473040316, 2.2991743600724717`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.7574232597786937`*^9, 3.7574232745706935`*^9}, 3.769340173064807*^9, 3.79400738417601*^9, 3.7947536438645525`*^9}, CellLabel->"Out[39]=", CellID->291514501] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0]], "ExampleDelimiter", CellID->744903651], Cell["\<\ Find and classify the inflection points of a trigonometric function:\ \>", "Text", CellChangeTimes->{{3.7574235295546937`*^9, 3.7574235689956937`*^9}, { 3.7693401833391957`*^9, 3.769340185569536*^9}}, CellID->989565022], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"func", " ", "=", " ", RowBox[{"Sin", "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"inflPts", "=", RowBox[{"InflectionPoints", "[", RowBox[{"func", ",", "x", ",", "\"\\""}], "]"}]}]}], "Input", CellChangeTimes->{{3.7574228717146935`*^9, 3.7574228921886935`*^9}, { 3.7574229400026937`*^9, 3.757423126895694*^9}, {3.7574231581266937`*^9, 3.757423184492694*^9}, {3.7693401887042313`*^9, 3.76934020684964*^9}, 3.7940072591196404`*^9, {3.794753700714692*^9, 3.794753702662694*^9}}, CellLabel->"In[42]:=", CellID->903594720], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", TemplateBox[{ RowBox[{"2", " ", "\[Pi]", " ", TemplateBox[{"1"}, "C"]}], RowBox[{ TemplateBox[{"1"}, "C"], "\[Element]", TemplateBox[{}, "Integers"]}]}, "ConditionalExpression"]}], ",", RowBox[{"\<\"Properties\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"Non-stationary\"\>", ",", "\<\"Rising\"\>"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", TemplateBox[{ RowBox[{"\[Pi]", "+", RowBox[{"2", " ", "\[Pi]", " ", TemplateBox[{"1"}, "C"]}]}], RowBox[{ TemplateBox[{"1"}, "C"], "\[Element]", TemplateBox[{}, "Integers"]}]}, "ConditionalExpression"]}], ",", RowBox[{"\<\"Properties\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"Non-stationary\"\>", ",", "\<\"Falling\"\>"}], "}"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7693402079352903`*^9, 3.7940073884114137`*^9, 3.7947536510145545`*^9, 3.7947537033366957`*^9}, CellLabel->"Out[43]=", CellID->690196826] }, Open ]], Cell["\<\ Plot the function and a single cycle's worth of its inflection points:\ \>", "Text", CellChangeTimes->{{3.7574235295546937`*^9, 3.7574235689956937`*^9}, { 3.7693401833391957`*^9, 3.769340185569536*^9}, {3.794753674997509*^9, 3.7947537137322116`*^9}}, CellID->26968583], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", "func", "}"}], ",", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "5"}], ",", "7"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "@", "Large"}]}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{ "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{"func", "/.", "#"}]}], "}"}], "]"}], "/.", RowBox[{ TemplateBox[{"1"}, "C"], "\[Rule]", "0"}]}], "&"}], "/@", RowBox[{"inflPts", "\[LeftDoubleBracket]", RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}]}]}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7574228717146935`*^9, 3.7574228921886935`*^9}, { 3.7574229400026937`*^9, 3.757423126895694*^9}, {3.7574231581266937`*^9, 3.757423184492694*^9}, {3.7693401887042313`*^9, 3.76934020684964*^9}, { 3.79475369475569*^9, 3.794753696025693*^9}}, CellLabel->"In[44]:=", CellID->964813097], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwlmnk8VN//x+1JtpmxZElZUgkRydo51goVKYRIpEKSFkXRQlJI6lNEpZIl KqVC5FxLUiFZsmTfDTPHbmZsv/t9/P6ZeTwf5z7u+/1+vV/vM+fexygePb3/ GA8XF9d98uN/317v4vHyMo1w26Eud/0dE0jMy6oaLdCIs3O7O7kLmKDC6pXb BRaNeKD60M2HYALVzsIfY+M0Iu4A/6mOOiagC/e9bO2hEckuT6g3xpkg2flU m0QnjRAb7uvbwGIC27Q5cbs2GtGy/fj298tM8MZIOKyynkboTF+yPiOKQaDv Nue8chrBN3TNL10NA8XPKI6JaERi96fEAG0M6rmtv20qphFDL/dKyuljoJvk vjX1I41wz5UYWGeJwdz3KOHYVzTCCK0DXYcxCFvfRvhE0YgNU2lblG5jsOWM 99zzGzTi/tSWMvW7GHQXMzU6wmmEZNmwndwDDMwO8CY7XKQR5U8v2ac9wYD/ hvp5eJJGBFx56XvsHQafaz9nhx4j77c65OTdPAx8ZE17P3vSiG0z2hZP8jGo en9wn4YLuW7FDvNGGMR0h22StaERW4x2Z6fWYGCivvLIwZ3k/SU7N43UYcAM vv8w3pxGXLG18pVsxMBOLJN3hTGN6Ko4tl6mDQNu162GZvo0ont75ePxdgw+ pBcHXtGlEYEBtt+zuzCg7fjTMaVOI9ZnaRnX9GNQEe0qsWUTjbAu4rqqM4TB uaYBa9/1pP7v285cGcHgrz8nv3sNjaB0pTkVMzCIKohgysnSiGyzup3vMQb6 fGLrnaRoxGxfaGf0BAaPk5UTakRpxMJiJ2tgGoPXWknP84VoBOzPqbw1i8GX b6LvnwvQiOWIBCMhFgY/XSKIOzw0orJw8aAvG4M2zP59folK+G4Ml8jiYECP ON3lwaES1yx+nq+cx4AjM8DcPUslCLtPF8sWMBB657KkM0kltI4YyD9ZxEDW ok5EgUklLJyCPByXMFBrtVwjSKcSZWNPTZkkGwYUqU8OUIl7r9eVeS9jYM2r bdzeQyVcmKHdhSS7JKbbVHZQCRG6UwqDZF8NedfcViphkhY2s0xySNk938dN VMKR1T46TvJtpxUhEX+oxPuH18MJkpPHLkcH1FCJKL4XuQEk51ybTHT+QSW+ JMeHz5Pxi6VOZJp9oxKXb1eO+ZBcnd2Rr15KJerqO1m5ZP7t0OG71Fcqwdj9 KK2VrG+sqeovVyGVOPeobrybrH/Bd8cg/SOViNSN66wk9RHm+jjTmEsl8nxn A+6Q+sn/t4kf5VCJ+v37X2qS+qqrPZPIyqQSyQ0iV3JJ/Y2RhMr9NCqxNTV/ UXwGA9sDt3WupFKJ23rcG+ymMHAbWTY7nkIlUjpKOKfIfvqHnd9vn0glrr4c CvEl+32ZNupp9IBKHHH9L8uS9EOKyd+rYjFU4nfhA7nEYbLeept4dhSVePbr u5fYIFnv8dJnfTeoRFOqmfexPrK+ezkl+aFUIjzALulNB1mfqlLt82AqMfqw reEZ6d+Fokcdd85SifPtj+sDmzFYM3h9wcOPShxL2aT2jvS/ZihrlfVxKjGQ wXdbnpyPHeIBcrpeVOLwqGbxiR8YuBseMhR0pRIb5FdkPCnF4Gnclou51lSi uDVwVUguBm+VX0U9tqISb4evnOnMxqCkQPZRhBmV2NV8q1oxA4POXv7Pzobk +qnw85bkPCtsb5/iUqMSZ87/WM99i4xfbc87up70y8Kbb4evk/E9v1ObFKmE wtaOyKTLZPw7H7SzZKjEcPbe8LeBGDzrunXafiXpt/IjK/Y5YXBkleDvq/xU oqctz1vaHgOl7VGaudxkPLkEy3JrDNLjIhmiHAohWySe9c2EzNfkul81nULc Snj59LwSqWdy6PGd1RQiaEyrKWqQCcK+cyovVFEIitVlxzudTACnLqmmV1CI wEMR5UF/yf3X+uIA31cKgTceCmN8Y4Jf7HNeZW8oxKxynM39l0zQ5hTgYXKX QgznmhtlHGKClBuMEv87FOKF5Vtlxj4mcH/nr5ASRSGel969JG3FBL0Cfh2c cApxoz/xnsxWJhj5dNy1IJBCdIz7nG0UZAIWzdNJZz+F0Mv9fkDjPQNI1Tns 2yRJIYTK8w/mMcaATO2GZj8KhfB+SlVr7x4D8tXz7m9FKITlF1402jAGFKte BugIUAjf50tOqHAMqBNTsSZz4oRE0NVbBhFjwCz3frV9qzjxexkZR0iMgdPx DbtDnogTRiyjTT+VRkFQXMaf4iRxQn1/TGovdRSciwk9tPyfOOHa5uTfxzMK Qm4pn4yIEyf4rvgYPO2lg5tXz96KCxcnXiMRPU4qHaQE0r6/8BQniixmPJ1l 6KDKzsHi13pxAszFDUuxh4FaIvVVsaI4YdwRmlfSPwxiuv7wv10jTmjrHem1 rRsGdgF23+MlxYl7w9aEfMYwaLmzx9qRX5wQ+sZbF+MwDOpi76aW/RAj+Jf/ aZZmDAFKyMUC5k4xYih6RYr0jkGQsN962MpClLC8Kaybu6EPfBFt3/3RWJS4 3/99wEusD/T8PJWtuE2UKK4/eUNgrhdomd8LWFgvSiQaVrSuruwFtTot0+9X iBLbnjUfOufVC1ZJ+nCv+SVC6DpeF5dN7gERzddkp+xFiOBflmpXFrvABbdC 22cewkSiI08PzaAVzEnWqHrvFyJ+j4mLvZwuA0y8e/PXvYLEyvzv5j9dv6Aq pQTdklMCRNeFlAdiBk0I8IfnbfbmI748U8qZ6OpB6oOxK+Pd+Aj+if+ubmD3 INnvKR7TB/iICOt3tD3UXjR968uqr5Z8RNnoiOxxi170WnjWa+8GPsKXx1m3 MaMXSUmckjhD5yWKbUPmw/z60JiS6/nPgbzEXklp+ysD/aiN1/eX7EleQua1 Du3qQj/63n9RMdyTlxDzd247TRtAL9If1uzcz0uoPP2jImU6gJzU6te36vAS ljuZJ0OTB1CZ9u6/87M8RM3KkpGHtoMoEW7fbnqFh9j8yFE66tkQWlGJO36d 5yEkmje9TskbQhdsMiMcA3iI6Xmll0++D6GDjjL1fh48BMwXvu6JhxDVf97/ oSkPcfSxEwWbDKOYR+jFKD8PYXHZ+Sm1eRhdZe4UfRjHTXAWZiME2SMIn+X6 tC6Km/jnURrvK0RH7uwC1+xwbsIw2oDzSY6OTPjUsohAbmKAX/W14A464sgI W4zu5yYChwY7kq/R0TnLuktQmptIKtj8159vFB1PcR6gP+Mialt3GzixRtGD j0MmDY+4iOX4pCc8gmOorPrCw6K7XIRdopbDPekxpLD4YGdMOBfxRvxVkLPe GGo8/CdLw4OL8E3SqL4TNIbM1loHBCpwEf4nrR9dGhhDgdtbK52luAjV0YS2 /VNj6Om+E2tNRbmIPF7XMFFuBppcFn6uvLCMkiQd3qnLM5BHaeQxn6JlNKVF 1+W1ZyBDi2DmqMEyyj5+UFnkEwM9PPffs+JNy+hVlpqcQCkDTaTl2cXKLCOF fr7n3dUMlMk//kGTvYT8Pb1UDfsZSPL7ieAzBUsImbf/ukJhovHdLlxzekvo yN6j0SY+TGQTcvH9d9UltPr8i9ndgUyU/vrh0USpJSRx+N6O7SFMdHhVQ4XB 7CIqonK2fYxlop/VNtGXPy2iIx983+rlMdGrfSZUHt1FVF7w8vZBFhNVtV3j HVZZRF6/fNN7lpmIfqxyukZyEZXoOajsX4GR5uV9zUlzC4hBUVDvlsSoINMz RbtoAT3nky14p41Rm056rHTOAvo0/VXLXR+jxRJ62GLKAuos0God34GRWdNZ zx9hC6jPe8uLMhuMqrlvqnqaLaCYvPwL0t4YMWN+Su/UWUAfXWx+D57EiLJa bKWGygLK54rd/Pg0Ro6aiaMs/gX0/ndvW04IRt0ur3Pjf8wjYaufMdfuYsQz yHx+4cs8ouykhAQ+wGj9GZ37btnzaHJ6naV5Eka+UcXnN8bOI0OTG14PXmA0 nVdrSNjNo6lFzX39eRhJAZp6uuk8Uo4eyp/Ix8jgp9OamK3ziHH0e2dvEUZh 3d3LThLzSEtK6FBgOUapfusnTPjnUcLZD6+Ev2NUPnuyV3mWg9w1RF7G/MRI UGSqAjdz0EWpkJfb/2Cklrj9c1MVB6XGJKcebcRoj/LljKJCDtKajDU704xR ggH/7ahkDooblvE16MDoY8Xu0FMxHNTQHEOf7MLo7744f4crHMRz8QZ/fC9G cj7S+9Z6cFBNSQX3+SGMdky4Qn47DhpUyessHsHoyOVU7VHIQT9L/PcMj2J0 fcWA0h9tDrrwhcd2joFRWsImiXwlDkpMftYygjGqXBPA/4RG5mMSNYEmMBrJ /DB7nY+DZBuk/rs0RfYfGbXuHWQj50DFC49mMbKzvvpTt5mNfDKbcufnMDrb VFEkW8VG+fppgeZsjB4eWfmGq5CN7q8/+TGAQ/pldM/TwSw2imuQCb0yT/rl QsLd6sdsdEbwW/npBdIv3M1XP9xhI9pYQqzlIkbrYuWCEi+zkezKb81LJJut PuIVdoqNXu75/Dx5CaPeKvuCtYfZaCu08F6/jNG1S+YipbZs1B38JjOW5HVq 244eNWYjrbqIgEaSiTbVfF51NlLVvfqJTbLHndXCr+TYKOHpxSuLJC8ZCXla rWIjQ1nfyi6Sn47NfxrisNC/0rPxqSSbPGEIRdNZSIRo/gdIbt/T5aHWxkLs vfOZX8l8Li/Vffz1g4Vm8n1YMiTLvStbeaqQhcb3f/t5gMz/i8dHd9EsFkKR A+sCyHpdxNPz3iWy0K7ygvljpB5s4pGg/S0Wirzt4GZM6pV4JvrwZDALuR9j mE+wMNJXCv1w/zgL+Q5150WQerfU+6/Y5sRCV3Ky38zOYBR8w93trxULrXVi bt05TfpZ1+59sB4L/Ynzt7wwidHnflMBGVUWMlkSHroxjtHB/3Rcv0iy0Bb7 VplAJjkPlutzXflZKGTrUpfhGEY6GYIuT/vnUK5+3hZ/0l/1Tpy3oHEOqSTZ lNT3YxQkOMbbUz6HSti2dGnSj7knf79RfjmHdryVU93RTvpF/SF3luccWtp4 I5JTi1Fte5Sjtf0cqpVY6eT4C6NTsZeyR+EcSrr4qjuenJ8cpttBzXVzqGlA VP0FwmjTe+WsvM5ZJCBcIqv3FqMqT8mlA7WzqPvUGuVbWRidoK5wmP06iz4r zgoUpmGUfpa+oP9kFol3OJ/Pf4yRit57uxLXWTT/5PD1DZHkfA6+eOVhM4ve R4nOB4ZjdPTRAw6X0SzS+LozNOkSRs9ZwWnmsrPI2mj0ddQpjBSKdrCqWmbQ iqyskFYHjGRg9bOGgzMoze0E3VkWo2IDysNSyxkkUXgx7QuVnDcdx5h322YQ 51US/6IQmY9q98U7kjMo3OBku/I8E20VmbY3b5pGr+del3Bamci6TY4v78A0 OlC4t67xHhMxGo5wUi2m0Y+b7iMWt5govubVeJzuNDp0XmPbwzAm+kts6fCV mEZMccOYdl8mOpph/lmpcQodi9xizzZlopBzficSHKYQ91CH92U6A60JyHW/ aj6F+Cmp1/i6GIg4PnMgQGcK+W/uDg1oYCAB13BTa9oU+uJcuH24iIESTO/L 8jRMIpeh23Ln7jBQtmhR9Zn9kyg6M9ifpcJA7ZlC2vb2E8jnR+ZqcbMxZLV4 /vgBswl0TJfZMakzhnLte5446Uwgh5lN/cXrx1AEJ1/IXXICzYWFDAisHEMa tsf6fVvH0f6F6TXnakdRGEaPIjzHUYpmKFFyYBRBf/rC6T4mivkaOnt2Hx1J SJaevPCNiUz061KdyfPA8NdHfy9nMFHcJ0MLVQ06uidmmRvtx0QJ/KUfLpPn id4Pz7xeTjHQAOJtk64YQRHsAz//8jKQVtNepoTOCKq6iR6ZqIwiidUGsslc w+hhyPivL7yjiG/fPl/R0SHkHaDIpd9HR1eVzIVONg0hLscbJ7a+oCPjcaP7 jVlDSH/9ToMN6+jIwsrSNMp+CGWV17aJy4+gLS4eCqdTBtFtrs41/bQhdGb0 rDdz3QD5+7zw8jZvH/pCa49Vpvegjy9qbuK2v6iXLX3usMdf1K239tenzELE 1x/+NP9JIdqwgp48eLYc+ISu6iGOlIMqEafhhqoWoF5qO+i/uQUsLq9qVxRq BYZ940Ytx1vA1kni92mbVvB2/uxGtbQW8OSvWv6q2lbw9yrn51X5VhD0bCnS vKENxCtscJ9c1QbktdOV8zraAXgkfSh34B/Qfx2yZfelbvBd/ehN+vUuEFPz w3djXD8o6jyRmLO5D6y+59SfltMP0lMnG4Ut+sCrAwOHFX/1A52dK/5zdesD Jf+47GUFB4Dm5ec7K2L6wPjI9u3C1wdAw9NqcWKsDzgIpPOOnx8Eo3sWDfZm 9QNZcD0l//AwuFSwEKclMQjSecSldC8PgwOmdV+3qw0Cncond3MfD4PvTgm1 anAQ2O4pvJ7VPAzkgi2sGv0GQZjr+Ilk+xGQNiJ1bGvZIOgNdt8WbkkHfjvN HYT8hkBWrmGtlcYYYDmvC0zLGQaavYr8ajZjQDL5WvRzNAw+0lYai5wcAzaB isLR9cOg5EJzVkPaGNBTMlglzRoG9cbnIo/IM8DTN3kbNMxGAKfqjXHIKvK5 sHD0t079CLDuWZf9ZgSDeL2bd3b00MGJlXxnqnjHQb8Jfa/vBB2ovQgW/kId B6W7rtwL4x4FuQ3u5k+0xkG5gJrbEcVR8EVP472X/ziQHZu8seLIKKhd+BEz 3jcOgoMWzFtaRsHsLV4LoYYJYJddtGpTwRgwXvgRCvsmgGy6sfHxyjFw7XR8 3oWpCfD8tVBvVOMYEHZco9xHmwTH1mQ6BI6PAWXl7TzFBybByYzdsF2VAey+ +hKn/k6CVy45mhJxDPBQS5v1cnASPOD1Ujv7mAH+vZzb0jY7Cabgx9K8dAbw uR3xzEp6ClgLzsS3ljDAFaenYWudp0BiasChzwwGeD3xx/hP6xSYsD2z7bUl E4x7J55bQZ8CIU+p1mvsmGBbi3uOCWcKNK+tAWdcmIAoGZV7LTsNbq2wSCsK YILmO/zz112nwfec7Vqt/zGB/PKvrYV+02C/R+nm/c+Y4GhQgi8OnQbWwrT8 7EwmYDqvbXNNmQYbnX84chUxAZ+qQaFuxzTwifzwSZN83rdOWh73ZUyD5k2/ NmUPMkG8cOXG54vT4A7Nv38FZgK5qf2JIgozoEtffNXRZSbYSvgHD7rPgHna rW2JChh4uKRuS+yeAep5zRv4nTDoDIIahXgGzJ1P2StxGAO3O90qbUsz4KxS v+8KLwxcitdJyK+ZBSo2tQFJARgcUHg++ezQLHjgai3pH4FBvZ4pnTgxC7Lv 5Dk/jsbAfl9PT0/wLOiQ+XMyJw6DvVcV/yg/nAVfD67rC03EYFfv83cZ9bMg buhg4ffXGFRyTDOqemaBkhVrnPYOA0ta79OR8VkwjmoazfMwMLNQitssNgd+ 8G1N2FuEAeFWFmmrMAcU1eO9NyEMwPmjV05pzIF8DaJxqAwD4/QX/u9s5kDf TZtrYj8x+FJi5l3nMgciTEzzL9ZgYNDc6zpxcg7oJpiEfavDQE9Q2Ubn1hyo Pfowb2UzBlq+LzflV8yBqbOnTxv3YvD2urliSwO5vvJud2k/BhrJfavZvXNA MKmvRm0IA7VqZUEjbhbI/ZcukTGKQWZ/+bKrOAssMqi+XxgYbFj0mru8lgVY X97q/O/9qYpm2mCJCQtUTd+S3z2FwQsri84uWxbgZsTr06cxUPTob+JyY4H4 QteygFkMUoMjahT9WGCSHVvwdw4DhXiVb2YhLGDSNiCjxMbgSWZFsVc0yRJG A3YcDORLvT9GJLLA5fEwGa95DB638uW8ymABg53Fn5wXMJCZTHtZ+Zm8/pp0 ofYiBolClslD31jgVWKtEpNkKeWBBMEmFoiRMZiMXcLgP6PI25v6WeCFUpUq ZRkDiQPrr1tPsUDOMQEimOQE/2+X/HjYgLkh8WspyZTIY2diKGxw2cxoLSY5 /gn/yTfr2OC80vf+/71PFf386kjtFjbY8ENddJrkmFpLZ7yDDdZUX0j+RfKq oYF94nvZQPrgj5ib/3vfuhy5U/swGwwpHu1VIVlwtSrY788GhhGJKelkfje1 KvXOhrKBrWdH0SqS+Xf7aD64zQY3tIsgef4EEZ4Cqp+S2AAvN22+StbPE5K+ 5m8mG5ScHL1yl9SH71TSe6NCNuDL+HDIl9SP/0iM5fMfbBDxmStVmdRXwCG8 VaCNDSoL1fcXkfoLWgWd8qezgaTU+zPaZH+EDI5x13PYYCJoM9dNsn/C6s7/ bV/FAR4FbssFkxiIUXd85VHnAJ/GR05fmBiI82vbnzDmgL05DR9vjWFAZSkP 1NhywLKv2p1tdFL/zpUiSac4wJlL/I3aAAar/yykLl3hgAM36YtBpB9lKrCu dxwHbLMNrk/qIvv9usltyzsOmO0upd5oJf3xpGr8ASLXP/ZHWP7FYF18UQTn N5nPjxtRg/UYKF94nvNtnANU1tywrfhF+vHkA7iZex582u0pxV2FgapbVGM8 ZR4Yx+SHy1eQ/jY7teC6dR5w9+w2xeT8qW87El9qNg+GbOVfpOeT87DRQWWD wzygXbqfZ0zOq5aoge3k2Xkg8mnNPB8539vb+FJufZoHKwUFMgQeYqBfM7eF +W0efC48JfUxHgNDgl7u8HceTLt6esA7GOxIrxtVmJsHlf6zD2bCMbAISjH6 pL8AFGILtjccx8Dq2N3fsrsXQHSOv9xFT3I/cb7udfXQAijp2Sm04IKBzY4T d8gzCEhsaFB5vgeD/UK6/3qKFsDOmiAJT21y/1pUPb2zegEwaU+llzdhcHBc hvdN+wJ4GrH1yGUlDJz/LqtdXFwAmZZWPRI0cr988StEFCwCdwWfWyWTTOBv 6CVrVLYIrDYq8y9kM4FvP4/IgfpFkLP1xcuSF0xwIu7Fsn/vInDwvAeOJjGB d29P/1OeJVCoXfmf7U0mcLt95B2P+RIIOhhb/dadCWzaDlv8LF8CSkt8+z+s ZIJdEYt6fQ1LYFmu/XL0EgNYaT7ZtNC3BJ7KuNiYTTGA2fV2UU2+ZWBuRuM+ 1M4AhmqurfcslsE14ddS8m8YQC3EOeDQt2VgUTMVxbubATaqsI4ENS2DM45j 0RwjBlhf+8jhzsAyUNQNnW7QZADxe34pnTxcUPBdgb6mBAMID7y+Jq7MBQc9 ytnXOsYAX+wm23NeXDCZOv/sg+8YmG5X7THq54L0nFN3U0+PgvgIry9fR7ng ugHTjrXk7/tm9dT7YIoLylBKxKLsRsHRUBkrcx5uuDkn75CI9iiokxHOtl7H DTfAQyvmx+kg23Hi3CE3bhjyLc74uD8dHK0rEgxu5IY3HNv76OS5p67cTutD BQ/0+nA5bO2/QfCm5bPT32oeWP1daGJXxSC4zZAP5zTywMrNX367vBkEFtIj NWYDPFCeL0FLP3wQFPhe82vg54VTdwTWtisOglTKh/RpK16o4RU23XF0AAR6 0NZs/8ELI4bjz11s7ANi800ri2v44Ilj0k+rQruBX+vdzjUfBaDoTPJMvVID sH/UfWs0XhAWNRXxrlb4AB6/ivlq+1AIDt5KNzig8h1xuZ5i8F8Shp/dTDY4 TrUiaRvHdTrXhOEWjT0/aVvakKYRcDgSLQxR/0baZ9825CZHKfySJAzl3m59 ktHThgr/fYw4/UUYSr0P+rG99h8KcluQa50XhjdVfif/fd6BBg7fsc4JE4FV voPvPyR2o59HsjL2R4jCsYVTxpcm+1CYcrjhzB1RKKzS+dheqB9pDx6oeXSf 5DKvAmmlfpToxzXV/kIU1ssotfnb96PjF5x2HC8VhYWDBu767/oRXwx/U+iS KDy3d8Nv0+MDaEe+J8+ri2LQKi5NPrZqEE1e2v7fzqtiUEk3OH+6YxC9MhbZ SI8Sg6xHMGzn1CASLivYs+WRGFTZJWv2ds0Q+lctllT4SQxS1X9GhZ0ZQhd7 v26pnRSD4Q2xZ2Qkh1GrQOzbUD1xaFd1fynfZgRNSr78bWAoDiO1iEhe9xEk tL5wfM5EHG7ffbNZP3AEGZsPbD1nKQ61/bYkH3kwglLDTfL9D4jDgCC/kRf/ RtAJFgMdDhKHn5QmJQeO0dHsyN4/4K04NNYYDpg7MYrE2N6Ti+/F4dfM/CH3 i6Noo2AorfiTOAzbVevwNmoUuahmHNT/Kg5Vru2q40sfRV+PLrdqVYtDdtfB 4bieURTx712vIl0cTrObdwsfGEPUGvFpXlUK3FF7dPCgKgNVJxgZ09QocOhE FP8bHQa66ewToaRJgXspeuKDkIHYfUUSpnoUeGdn0/tFFwbq5vhsC7OiwOuZ R3NLYxnozcavF1g+FCglGO1wj8FAPsyhkhV+FJghpCTCzWagdR+pK6RPU6Ck As+QPR8TPQAnHm0LpkDGFemah7Lk87AjrSAoigJzzlBUciyZaFfESfZYBgX2 tGwLmv+PiXisH5guZFPgNdb15eBnTFQkhqJX5VLgv8an3E2ZTKSZLCGrVkCB +rO1JlpFTCT5ARker6LAd7IC8b6dTFQbTL9+oZoCrTX+FY8MMtEtE8lfkXUU +MtmSGI3ZqKFKl/XtBYK9DpgpZK5zES9XZKXe4Yp8PDGor+DChilvIIV42MU eL93KchHFSNHPz9hrgkKtAMS7G8aGP2YJVIU2BRo1nw2TcUYo1wR/6+uK6lw 4EZEtocTRleMypaaNlHhtj+1NyqjMIrw7Zt9pkGF9r/1hvtjMIpJ4sMntalw 7adHi4P3yHhzVl2L+lTYque96WEyRsV5v9D6XVQorZUokvoGo4resXxsQ4VR jZHX/r3HqJoimlu4jwoN+c0iOZ8waj9tl7rHiQor5M5r9H3FaGFz09XzPlR4 djDymXs1RnyusxeBLxUqq89s+fwbI+Hb0mdWBlDh8fiT2ybqMZIfPuT55DwV MhT77lNaMVKRDj10/BIVekqeHJr9h5G6VYq99hUq/FIwk4Y6MTJK6zT9FkGF 9W92HJjvw8isYdng7i0q7JvZZRowiJE1j+LWQzFU+LFzJq5iGCOXI15KjPtU SIwzzOUYGB29GyGb/4gK/944kCGHMfIteUW9lkyFXXEPvJbHMQqRH+aRfEmF Xs8nuwKnMbpus3K+M50KVUrYKUszGN0OUZvKfE2Faldzck7PYZSQZTMa9JYK 15cjkQoWRo9b/PuMP1AhS4EHzbMxerEi7p/AZyr8NeyKpOYxeq33rqGukAoF dX+LSC5g9OFY3a/HX0k9G4KzZkkufDBR7l1KhZ3Od+4VLWJElFOLNb9Roczq Q9+8ljCqmtT5yKqiQof11haY5DrFgzll1WR9jj0i7ssYtdhdSIupo8I/FkWK uSR3hz9KcWykwjjruPABkoffFjxY10KFTZFqG5ZIHu9ojaH/I/vbfGk1h2SW 8HzExy4qfNIX7tBKMpex/JWwPipUori0JJMs6GdyftcQFcreBhmmJIs/dj9F HaXC/UbXiJ9kPqt/hB9rZ1KhRGO0ynaS17FSD6dPUuHPbx0NN8l6Nm4oOxg4 S8Yzl/tdSNar5di3x5BDhRdMOVJ1pD7bI/ms+Jao0Picbc4PDkY7Pq7fUctN g9p2i3fTST2t+qz0EvlpMFGQWu5D6r2XekLz6EoazInLshIi++FoGq2qLkKD r+IX5O6R/XIPfK0wK06Djy8etpifwsjn2S8pQoIGHf30S3dNYnRhUWTFAXka 5H0RWxLLxGhtn7nq6XU0+OzxSl/nMVLvqkuWt1XI65/cCeKmYyTzYOAGoU6D 4NXzNGY/RmWX5F7+06JBdc24hq29pJ887MtmdWlQoFzb92AXOU9qX7k0TGgw LLaxbRvpb2/xqbW7TGlQ6PzOoqkmjERmNwIvSxpM+OYsHk/Og3vpgytJe2gw cqRM1fsXRtzO/hx+dxr8W+99JqSI9I/JCxnFozRYKHLjqHo+RvuVW/SNfWhQ bPLNcPEHjNKY5sFBATSo+XCp8lIWqVek3HRnGA0uCYo5ef2HEfa1p3Gu0+Cv zLWhQvEYJdpFbZWMokGb6IuH429jNCI3FWhzlwbpMUbn9MPJ/eLDT0b+Mxqs KTN4wPHBSDeRS6ThJQ0KUn46JB7BqOOKnjozgwbz3qfySrpgpLn7ha9KLg3G MD/vy7bF6E/XpaF4ggZPipgctdUi5+vbO4GcChr8fL/Ur3cjRkrZA+u/V9Eg qgGpTooYnbtg771YR94vVfJ1FwUjKZFNPSd7aPChptrG4xNMhCbduSIHaPDi wdjTc8NMdKLlwdrUERos9jVff7ybiQpfcrn/nSDrD+1d7q9lIjfDljYzHgmo eZkr2PU1Ez0/HtUopywBT9ja8Ru7MpFg6Ilfyhsk4Bj+8J1lx0SBcbvLNm+W gC0PGOihFRPBT6tyjXQkYAHUv3xBm4m6eOLvuJpLwHXyNIdKfiZa8zTRLNlL Aub8NnF6n8lAEe8vGbw8LgHXxEfn3ExhoLEKF61sPwl49cs40ySegYpH5RWK zkpAO3XpU/uDGcjV4Dm77YYEFAt+mCdhwUBJjVm5smkS0Ndi99TKljHENXw7 QylTAlLiiW18P8fQiXm/p2o5ErBUb61RT9EY0lfSjDH8KAH3qitUmT8bQ82n Pxx3qZCAeW7+ETneY0hyVZHC434JOCiy8r0MfRTdM62OkVkvCRXvhivXd9GR VclLnfaNkvAt74X7Z37T0YJhaNtTdUn42aPYnl1CRyd01Taq6ErCmXM3p0qf 0BHccKtc01wSCj8vOWHgQkfjwhYcc09JKHlOyLy2dgTZtRQdD3giCVPe52os pg8jsdPZZuWSUlC5LooiLz2IfF48Em+WkYICBXeFgpcHUHHTjU76GilID9bZ WDQ0gHyN3UKoqlJwV52Q7nL+APq2UuSDp54UVG2ytLrkNIBC0wIUuZykYK9E tJdNQj8aatXmMkmUgnV2pY/kWb0IWRR8/SwrDW9u2ZNXJtGFlk556DmKroZP HPaKQf4/iGdFfdLmxdUwosH5dKvPC7R9V1CZNZcszJCsv6SR8AvMt+cMS07K wr5ATuBKgXZg4V8Vv2dWFjbZzFqlmbWDuPk+/UiOLJw6fe3D2vB2oCQrFz3N Iwf7vgeb5M+1g11O0ZsaaHKw8IbgH8+hDvDfn2O+8dvkYNiUd7Mv0QW2VCqM CV2Sg6WmmiWl2T3g4kHDB2ZX5ODVG+t+tHzvAWX9B41DrsnBtdLzYu19PcCR NzZmJFoO+uzDjelyveAynFeveiwHT7q7te6+3Qt+fGk+FVksB3vjME+2Vx+g Wk9JfiXkoKdls3dwWB9waxUtma6QgzZyYnKaSX1gfM5S1LtGDmpvLBFxqe0D Uts+vjXrlINt9g/rM7f3gyMVvx1DeuUg63dDSoV9P8hyGF16PygHN+y/XPfD rx8YByntU8RyUKH4LFf8s35wk3vHnPOUHEyJ0i23K+wHdfGHnsXPycH/3C0u c+r7gey68zur5uXgZ7acWOxYP/j//0fKwYSaPR6CAgPg/wDx/bC3 "]]}, Annotation[#, "Charting`Private`Tag$8393#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Epilog->{ RGBColor[1, 0, 0], PointSize[Large], PointBox[{0, 0}], PointBox[ NCache[{Pi, 0}, {3.141592653589793, 0}]]}, 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->{{-5, 7}, {-0.9999991192782384, 0.999999980432342}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.7574229840736933`*^9, {3.757423039334694*^9, 3.7574230525906935`*^9}, { 3.7574231022886934`*^9, 3.7574231855836935`*^9}, {3.7693402030903854`*^9, 3.769340209355142*^9}, 3.7940073930677586`*^9, 3.7947537057422132`*^9}, CellLabel->"Out[44]=", CellID->692890508] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Options", "Subsection", CellLabel->"In[4]:=", CellID->531701979], Cell["\<\ Find and classify the inflection points of a function, specifying the range \ of the independent variable to include:\ \>", "Text", CellChangeTimes->{{3.7574235295546937`*^9, 3.7574235689956937`*^9}, { 3.7574238438176937`*^9, 3.7574238488566933`*^9}, {3.7693402643681297`*^9, 3.769340274498204*^9}, {3.7706332876319714`*^9, 3.770633289095069*^9}, { 3.794753731644947*^9, 3.7947537689885683`*^9}}, CellID->756699133], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"func", " ", "=", " ", RowBox[{ RowBox[{"E", "^", RowBox[{"Sin", "[", RowBox[{"x", "^", "3"}], "]"}]}], "-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"inflPts", "=", RowBox[{"InflectionPoints", "[", RowBox[{ RowBox[{"{", RowBox[{"func", ",", RowBox[{ RowBox[{"-", "2"}], "<=", "x", "\[LessEqual]", "2"}]}], "}"}], ",", "x", ",", "\"\\""}], "]"}]}]}], "Input", CellChangeTimes->{{3.7574232463426933`*^9, 3.7574233326686935`*^9}, { 3.7574233692316933`*^9, 3.7574233864186935`*^9}, {3.757423443723694*^9, 3.7574234463106937`*^9}, {3.7693402556128798`*^9, 3.769340261463388*^9}, 3.7940072629820814`*^9, {3.7947531566339784`*^9, 3.794753176962598*^9}, { 3.7947537721165676`*^9, 3.794753775578231*^9}}, CellLabel->"In[45]:=", CellID->28289384], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "0"}], ",", RowBox[{"\<\"Properties\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"Stationary\"\>", ",", "\<\"Rising\"\>"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", InterpretationBox[ TemplateBox[{"Root", TemplateBox[{"\"-1.78\"", DynamicBox[ FEPrivate`FrontEndResource[ "FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"], TagBox[ RowBox[{"Root", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{"Cos", "[", SuperscriptBox["#1", "3"], "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", SuperscriptBox["#1", "3"], "]"}], "2"], " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"3", " ", RowBox[{"Sin", "[", SuperscriptBox["#1", "3"], "]"}], " ", SuperscriptBox["#1", "3"]}]}], "&"}], ",", RowBox[{ "-", "1.78334867481144945507459311025030113769`20.\ 301017155657544"}]}], "}"}], "]"}], Short[#, 7]& ], -1.7833486748114495`}, "NumericalApproximation"], Root[{ 2 Cos[#^3] + (3 Cos[#^3]^2) #^3 - (3 Sin[#^3]) #^3& , \ -1.78334867481144945507459311025030113769`20.301017155657544}]]}], ",", RowBox[{"\<\"Properties\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"Non-stationary\"\>", ",", "\<\"Rising\"\>"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", InterpretationBox[ TemplateBox[{"Root", TemplateBox[{"\"-1.57\"", DynamicBox[ FEPrivate`FrontEndResource[ "FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"], TagBox[ RowBox[{"Root", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{"Cos", "[", SuperscriptBox["#1", "3"], "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", SuperscriptBox["#1", "3"], "]"}], "2"], " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"3", " ", RowBox[{"Sin", "[", SuperscriptBox["#1", "3"], "]"}], " ", SuperscriptBox["#1", "3"]}]}], "&"}], ",", RowBox[{ "-", "1.57142865478630641182061820276949092208`20.\ 301153615353442"}]}], "}"}], "]"}], Short[#, 7]& ], -1.5714286547863063`}, "NumericalApproximation"], Root[{ 2 Cos[#^3] + (3 Cos[#^3]^2) #^3 - (3 Sin[#^3]) #^3& , \ -1.57142865478630641182061820276949092208`20.301153615353442}]]}], ",", RowBox[{"\<\"Properties\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"Non-stationary\"\>", ",", "\<\"Falling\"\>"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", InterpretationBox[ TemplateBox[{"Root", TemplateBox[{"\"-0.780\"", DynamicBox[ FEPrivate`FrontEndResource[ "FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"], TagBox[ RowBox[{"Root", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{"Cos", "[", SuperscriptBox["#1", "3"], "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", SuperscriptBox["#1", "3"], "]"}], "2"], " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"3", " ", RowBox[{"Sin", "[", SuperscriptBox["#1", "3"], "]"}], " ", SuperscriptBox["#1", "3"]}]}], "&"}], ",", RowBox[{ "-", "0.78023721555544848244066987877430151971`20.\ 302159001387512"}]}], "}"}], "]"}], Short[#, 7]& ], -0.7802372155554484}, "NumericalApproximation"], Root[{ 2 Cos[#^3] + (3 Cos[#^3]^2) #^3 - (3 Sin[#^3]) #^3& , \ -0.78023721555544848244066987877430151971`20.302159001387512}]]}], ",", RowBox[{"\<\"Properties\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"Non-stationary\"\>", ",", "\<\"Rising\"\>"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", InterpretationBox[ TemplateBox[{"Root", TemplateBox[{"\"0.974\"", DynamicBox[ FEPrivate`FrontEndResource[ "FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"], TagBox[ RowBox[{"Root", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{"Cos", "[", SuperscriptBox["#1", "3"], "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", SuperscriptBox["#1", "3"], "]"}], "2"], " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"3", " ", RowBox[{"Sin", "[", SuperscriptBox["#1", "3"], "]"}], " ", SuperscriptBox["#1", "3"]}]}], "&"}], ",", "0.9739893360967903494161087729070319912`20.30098605373987"}], "}"}], "]"}], Short[#, 7]& ], 0.9739893360967904}, "NumericalApproximation"], Root[{ 2 Cos[#^3] + (3 Cos[#^3]^2) #^3 - (3 Sin[#^3]) #^3& , 0.9739893360967903494161087729070319912`20.30098605373987}]]}], ",", RowBox[{"\<\"Properties\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"Non-stationary\"\>", ",", "\<\"Rising\"\>"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", InterpretationBox[ TemplateBox[{"Root", TemplateBox[{"\"1.38\"", DynamicBox[ FEPrivate`FrontEndResource[ "FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"], TagBox[ RowBox[{"Root", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{"Cos", "[", SuperscriptBox["#1", "3"], "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", SuperscriptBox["#1", "3"], "]"}], "2"], " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"3", " ", RowBox[{"Sin", "[", SuperscriptBox["#1", "3"], "]"}], " ", SuperscriptBox["#1", "3"]}]}], "&"}], ",", "1.37516864847784066095246936052714256497`20.537348316597708"}\ ], "}"}], "]"}], Short[#, 7]& ], 1.3751686484778407`}, "NumericalApproximation"], Root[{ 2 Cos[#^3] + (3 Cos[#^3]^2) #^3 - (3 Sin[#^3]) #^3& , 1.37516864847784066095246936052714256497`20.537348316597708}]]}], ",", RowBox[{"\<\"Properties\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"Non-stationary\"\>", ",", "\<\"Falling\"\>"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", InterpretationBox[ TemplateBox[{"Root", TemplateBox[{"\"1.91\"", DynamicBox[ FEPrivate`FrontEndResource[ "FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"], TagBox[ RowBox[{"Root", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{"Cos", "[", SuperscriptBox["#1", "3"], "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", SuperscriptBox["#1", "3"], "]"}], "2"], " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"3", " ", RowBox[{"Sin", "[", SuperscriptBox["#1", "3"], "]"}], " ", SuperscriptBox["#1", "3"]}]}], "&"}], ",", "1.91208852047628055061625214205687326862`20.301062533986798"}\ ], "}"}], "]"}], Short[#, 7]& ], 1.9120885204762805`}, "NumericalApproximation"], Root[{ 2 Cos[#^3] + (3 Cos[#^3]^2) #^3 - (3 Sin[#^3]) #^3& , 1.91208852047628055061625214205687326862`20.301062533986798}]]}], ",", RowBox[{"\<\"Properties\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"Non-stationary\"\>", ",", "\<\"Rising\"\>"}], "}"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.769340291820592*^9, 3.7947532235557327`*^9, 3.7947537769041815`*^9}, CellLabel->"Out[46]=", CellID->638621358] }, Open ]], Cell["Plot the function and its inflection points:", "Text", CellChangeTimes->{{3.7574235295546937`*^9, 3.7574235376096935`*^9}, { 3.76933933651354*^9, 3.76933933905554*^9}, {3.76933956822754*^9, 3.7693395712875395`*^9}, {3.769340000757734*^9, 3.769340001411713*^9}, { 3.7693401331810713`*^9, 3.7693401435686293`*^9}, {3.7947535828608303`*^9, 3.794753596562421*^9}}, CellID->382638324], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", "func", "}"}], ",", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "2.2"}], ",", "2.3"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "@", "Large"}]}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{ "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{"func", "/.", "#"}]}], "}"}], "]"}], "&"}], "/@", RowBox[{"inflPts", "\[LeftDoubleBracket]", RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}]}]}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7574232463426933`*^9, 3.7574233326686935`*^9}, { 3.7574233692316933`*^9, 3.7574233864186935`*^9}, {3.757423443723694*^9, 3.7574234463106937`*^9}, {3.7693402556128798`*^9, 3.769340261463388*^9}, { 3.7947537844067516`*^9, 3.7947537862397475`*^9}}, CellLabel->"In[47]:=", CellID->826767488], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwU2nk4VN8bAPBRkq0iklSSSnYKheSVFpJUlGSnkkq+QpIkCQkhSUj2UEmo 0MI7Idmy7yRmxpIQM7aZwfzu7y/P53nPfu695z3z2Or4n+nFZSQSqYibRPr/ 3+2bjzyKj+ciZ25fuFA7Nw8jbUqz32O5yJZ8/4Qe5s7D24h1dvQnXOTTQT8U uB3nYQ9pUPVYBBd5/oDz7QKcg6PU+60LAVzkEOM8p8hzs7A68ep+OX8u8qzD 9MVm5gw0nzbLPHOHi2zxlKL5+9kMWFdKe+fe5CJLM3g8B35Og+urbxvtXbjI xlrZ507tYICa46vA8Mtc5CRx/g1viugwL/F4vNiJi+yV3xHVb0iHe+H2KOzA RY7a1sO2d56CmP84juVnuMi7Y4USj+v+g08a+1/LABe5T1jXsZhvBPwmtouY 6XCRRb3J96N3DIN+lqDvXS0uMn3QUCRcfwjqxHuPd6pxkWPCH13x8adBH9tn 6qEsF7n97SHRHUIDwF1WrDkuTPQnPezsptIGVT4pqRvWcJFHVi7E6GS3wCO1 EP4jglzkOJGGmHCZZhB7ebY3iYeL7Fa89YaScz3IhczePckmkYvvrtqSJVcO JibqP97TSGR/2O/KZXUPJfzqTNMHSGT7PyvmyD8Scejthb7oPhKZJPxuXFwr G/1WPZ253kkiqxr7+bxI+oi5dTPbVOtIZF/RE/v25Jajz8Kjd1uqSeTG/r2n P1V8xyOKMvvWVJLIzjOfyvXqf2BfmLnpBJLIp62KbvN8qcU1x4r8c96TyPq1 nc9U/Zuw1+eEYGIeiVzo41swe64Zs18PPwt7SyJX9v9Mn1dqQT1+8XdXskhk tzaTG6LfW9Gt2vuX7HMSOcnpfsj1gg7UYQpdFo8jkZftpYh023cir9yr6ZVP SWR50YZ+Q/4uTAnpEhiOIJEt3toovTDpxkYDbe2XASTyRNbBAw3JvZh4s/l7 zF0SmaJ5/sEGuV/onHXlVKAviazYtExKIfcXklY+dz7vRSKbluHTpTd9WLdH bdrUg0TuXx2eMLb9N8Y51d7VdyPmm7ROmxX/G1Ur2bFbr5DIh0rezZ3X6ceF mSfSwpdIZOWnpTYW1/uxaodiLukCsX7DYYeDMvrRPsj6+28bEjk2mFKTu2IA Hx8qYbw4RSLbSn1u1v0wgLaeZ+4+MiGRe6ILBOd6BlA+Y5z/zjESechanFt5 GQXLlktKWx8mkYMpeyr3GFEwQq3w7TF9Yv/uBxmsd6Gg5XkTrX1ArO/nDdNP wilIL/M7KaFFInvV8Of4VlOwlC7Wy7eHRC6LXfdkZpCCodLvLjF3E+31tNhs 56KidMBvv05FYj2jq3s+q1FxIv8mf5UciZwu+j5F6RgVPw+siS2SIZELHJe5 ujhQ0fSA3ttYKRJ5/qT8sEMoFben/Vb/vJlETgs92jH2nIozy+5+/SVBIud5 D1ndzqFi5XnJQ1ziJPIRvelfQl+pGFdRUrt9HYnMM3crOa+Gipd32JgZriXG oy/21aaTitrBC91X15DIliMBchsHqfjLYN9oAR+J/LTIRKSZTcXc7O7r7Twk 8lyPflnjChr68/kwmcuJ9f6jJju6moamVzbc28xFIkvc5Q6SWk/DI7HXhQMW OKifWjxzQ5KGf87mSVXPctDNm+45tp2G4Rv+qQhNcdD/xrWeIHkaKvcowdm/ hMtv9h9UoWFTootJ0iAHXRiXJWTVaOhp+8Zm8DcH65o3cdT20FBMatRFsZuD qo42NGdNGn4akPX1aOVgBs2WVKVFQ+v0S2Gf6znYzK1wxVSbhpwLmQlc1Rw0 FRKS4COcJjP4yrCcgzXGq0bHiPqHR7Z9iizhYO+1/bFLRPsjrxyr2os4OK8B JbrqNAy7mtqxuYCDv0wS+9+qEuNV6h+6kMPB25eVLxor0rBxQnL2TSYHfYsC nkjspKFHns0KRgoHZVv2xYlvJcbrniiq/ZyDOYrugUckaFis1rPt3lMO6omJ mGSspaHVzAa1qkhifUJ1G3fx03Cp0EJ/TSgHlWvSaydINEz1fnbKPJCD3PTe oe5ZKh7Sbrd/4cfBD1nVuTN/qTjEFnWjeXPw8PI/sbr9VHxYYnZXwYODxp0F zA8tVFS8Gx3hfo2DAUGT4haVVKzXa3rx6RJR332d5M5iKopWmHw1sOZgZu8R 3sPxVCwKelQbYc7BPRFZ1Y9DqGhpUNfddpKDMiePyvPcpGJyzVHm+cPEfm0b DLY/RUX98BDeN8BBiaXzrw/upyLt+I/1dC0OJuXTvhrKUlG+6dAef2UOOv4K XVvApuDP6PuHf8hycMVgf8taGgXdTpedXr2Ngy0yNvciain4sQM8EtdzkLzN qqz+GQUt4v0CqMIcNM+a2RPpS0GWZcljeUEOzg6WWDraU1CvTzuvmMRBr2uW r/buoCA1+RZyWEtYePrZDg0eCgY7FNcfmVlCzfdl0/uGBrCOpjHe+mcJBSUP +FilD+DZv6ryU81LGDJLsooTHkDrkYmZ0z+XcOJSwSObv8T3ZDDnW/GPJTR+ q8eQquhH59+y5/y/Es5oOfTMvR+9W6RC1mQuodHVOhot6Df6NvaZeaQsYfTk u/n3sr/R/2filo6EJVxW8sHpVHUfPvwhXpQUuYS59lcNfy/vw4QvQkNKt5ZQ 50b6sRc2vZhUXJ//2GMJy86cz9OY6MG0j+F3Zq4tobJ1T/NV3x58/Y53XYkj Ud9Daz7ucTd+SScdMjZeQm5rP9bxpE7sDZtMvbKFmG+QhYCgTiv2h+Req99A +LNHKDm9BWlBLlq7RZcwnDGfX8zbguN3RxqZvEuoJ535n0NNEy559HNC6IvY yrVwVduiHrdYN9pkfV/E6YGZ27fqynD7uQg5AfIi9jsmjPXrfUNZc+MZ18+L KPXGes+ALaLqyarwPe8WUbP20BT/bDHqHSJ/+R63iG5vy3XPq2aho2LeBtrV RdR757bz4fF8uLG+Qb7+4iKehH1njNw+QsiyiX3FdotITqw9wZXyCXI7FWzD zRZxXi3m/sDab8AKzEpT37eI/r+F2ldQqyH6V5JCEP8i8o6y+0qM2qEs4tF+ mVcL6H/3X4aZ8SC03coxEUpfQFXx6B3m04MwcqHWjpW4gOJsmY8ZiUOweh9f QH3UAhonnsKB8WGwHA6s9PJewICPfENjUaNAB98TPwwWcCxCO2ah6h+sUHhu n39gAb0sGBPxeyZBXOzz9ef7FjDzl+LCoZBJ0B2be/KfygLmnj3EkJKfgtA4 j8716xcwbhNHsM2JDtumrjg4D7HRf43uxQtfpkFPN+7K5342JkR56IsvToNt 2HcPwR42CuUzX/fvn4GEHVLBeQ1sdBLYr/P46wwIWba9ni9mo+R7SMp8OwvK Wcs+GL1nY2allIva8CwYT6uUJL5lI0mrRTVxyxw8iAht0EtjY6VnwNJw+Bws lcF0SBgb1TcVx5RazMMmoWuL3UFsTNp9eu5uyDxo2STwKPmz0TxjOHSicB48 56bFmzzZuNSZehXXMCH6kLT0tv/Y6Pv+z3FxbSbkPT6hcOMyG0f6PB4JnGfC X4XX+zfYstF+gpaUl8cE3lsdR65asNEzf9snyzYmyFRynywxJfrnaS+LnGeC o72do4MBGyfzYrMfabPA/2341fcH2ChqdTDu5DkWvGB98lyhw0btj0+So71Y 0Bkj+uCVKht3w6PM0BwWzA4ciGLLszE28kSMzncWiKr8F398BxvF64y8Lvay YLdvYlryFjbqsnO6ltNZcKK6+s3UBjbmVdc+EONhg4vY3IeDomzkv7M+OFGc DaHnt5c+XU20Z7Ww7qkcG7LzTv0Y5mVj4NeCDxxNNlQu+jVqLWejGHtRovcI G2hGOV1hiyw0juzWkTdjA1dcF+XXHAtVn248OmrDBslBnjEVOgsb185nb7rE Bp3d6jP3xlhYZRbC+ebKBsu7DkstQyyUKFKT6/Fkg3ddxEqZARbamq7Zd/kW G2I3fBXy7mHhRLNSwDVfNrx3+rOhpo2FS/wDAX/usKHxvdi2TY0srHsxPtdH eIJ0SNG1hoXu+vlNJ4jygibXNcgVLCRv0NHQJdqTf56kuxZZKPTM5nYO0Z/h SK3BhU8s1PR/qfKCGM9FDebJwvcs9A07t0aEGG9AgIwlby4LZWXseYVt2ZDS YHbeMpuFlpNSmgnEfEs33XPJSSPmf8dqNN+ADb2Xc28sJRLxP9PPrLTZwCrs 8Tv5jIVOnV8HExTYsJ6bLyTtMQvj3OTTPTayQf3UnsfTYSzMHBKu/sPHBtOk 8wlHgllIUTXz5ppjQYRmac6oDwsrW0MLZX6y4LOHMbvMk4Vj5sECBz+wYDi3 ++hzV6K9ir2WXfEs0NsxN3TMkahPkv0abs8CF/sgje3WLNR1vfGy8AAL4p+L BC6cYWHfVn1Vz60soAurbn17lIXFWiG3v/cyQfJ46X9BB1k4L6OsdamYCcdC jEtt9hPrH2AcURzNhIwlZ6vVu1jos+6A7oODTDD/m/r0P3EWqg8bZWbGzkOA jCrNYC0LL6w7sT/WeR7eOZTulhJkYczniXXuWvPA29nd0MhhYuy2KoHVnXPw uUKEf/cwEy2Sdm79yDcHkklBftMfmXiBzb3q4+EZMOoS+Vn3jok+ftvDtvDP wE3RtI0vXzFxXnjwxjRx32oMLS0+84KJ3oxqOttsGgJuztELA5n4Ok92r6kl A4ZOXr50y4yJolHcmy3Np+Dd8uMnlybnsaxg7lWy2yjo+FhaMUbnMePUBWnz yT9QM3nJaYQ2jz4SUaaObn9g6FeAb3PnPC41SaQlXB8ByeLi7EzyPO7JWBtw 5tYQRLhs5zoRNY+iX7ZgaDoFNlF3CR4KncfcQ4O/UYECr8/Beq3AeawZCfv1 5sMAVB6xVNrmPY8LKivNPlX1w6JU1Lk5u3mcLLprqDD9C1za2PnJKvMoyPOt V4WvA1jH+Epi5Oax6p1ScbZaO4SUiVU93DaPMb7qXON2bZDxblefx3oirpW0 iVbSAj0PL/EbcubQpWLXxpbIRjDSbXGcrJ9Db5rF690S30E267XIAdc5JPk6 SDXamiL5bqVYkvMc6r39q/joRCCes6BsYDvOIXljA3en0BMM5ZOQ+nh2DlN2 E2e6cRqOXX2oKHdgDvNKXSYepeZjvqrzYWHROeTeNLzNpZSMRnyBhq6r59D6 3vYUnXffkDKQfKyWdw7Ve/96HXhRhqJPOk4FLc6i8bq2nUtuFeg1c8SWOTSL UQcz3/+e+4Han3fcHPg0i5P/srdASD02Rx/w0f0wi+FnDY+zTBrw6lWbO89z Z7HAzu9xGl8jJm56ev9MOhEXy39wsqYRl/y4o6rDZ5F1KdokdH8zlh2kZufb zaJr+q9l7PFWtNzEebPachZ1b+28oAptyJiWeHf19Cx6FeVdtYpsw+2Zph93 HJ3FhC2r7r5QbMdg3rJv8btnsTvS44SkVQce+5nSfW/FLHoWJlU5h3Yh/cnm bRc5M1gYOfqrtKkLEywTrhoyZ9CxQjl3lXg3jgw/WVg9PoM6ihdE0lK7MXjZ A8nE1hm0nAk3XcjuQeXq5Zfu1s/gkbtX2lxHerAt0v+dY9UMlv7g96TL9OL2 zT56cl+J+v/tS9VM7cWyvdccC9NnsMZnxVGhsF94ZenP6/gXM1hsV+xqVf4L hb87MXyfzeCHnHsb61m/0N7UPvBgGNHfFq1X6pf6cNHFLLPRfQZ9zJJ2n9jz GzXTtEZHD8xgx7z/c/rZfux3Ltxdv28GdVsuPft7rR8fqKjdzteYweQppcaw +/3Y/lVR0FtuBh3Isacq3/ajR8cW5RXCM+j9Mk/zwFI/SiQleo3wE+Nbe6f7 MZFPll3YgLXcMygb1b0qevsACtHXnoyen8ZS/Xihl0cHMFeQx31L/zT6SHNt VI0aQPOWgM/Luqcx6uqb2fWpA7gYz1k21DKNmZnSPYX5A2i8k/kk58c0KrCH 921uHsA/B8Y+ar2bxvQL1zdmrKHg9pvNTDO/aSJ/c7M28aNge7KNdrL3NBaY oP/uUAqGVI34jLpPo7135NLAUwqObeCw/S9No8rDCIOXORT88FVh6e3JaTQO bHKq66Cg02ChLtNoGl/GaJZIUCgovlr/7qHD01hIt/+qOUZBXzsLUo/WNI4y hosHORQ8vCxoGe+2aTx08I2j8A4qzssLHTTbPI1+1n/LR5Wo+Nrs+f2k9dNY JqKU/WwPFVe/zOfWECT6y06uvGZAxXaDPh7HGQZmrGh7vv4SFUPcLhu8/cfA p0OODvGuxH01fvrB/B8GnjD7KEG/QcWkUX6+yD4GkpbEueUDqej0aK/A1x8M 5P/nmlqaREXxwrJjK8sYuLZLhbPsJRVr+o6Hm35loCT8dNz6horKqhdW/clj 4PLZ76/HC6k42xy1RiyBgTkrRjg/66iYzd540iGGgUcDtluMNRH3oe1ZUTkR DKx6+NljuJ2KpTdKhA/eZyAlIFnnBnH/ChYfFXFzYeAsZW3t3BQVNQ/cOP3F iYGsYq0FbuL+NnqZ9JTHgYHjLlTHKSYVTb6Iib04w8CI62dnnLloSKKlmo+c YGDuzv68aW4aFggqPVMzYiCPh9s3e17iPml7ULxGl4Hvcf9sN3H/rgqut1in xcCC9XZpf4Rp6PPuXLy9GgMF9Szed4nSsI/kJjG3k4FLp6347Ij7Z5Qc21Jf moGVl0fqpzfRUN80+PmjTQxUa7JkuWyhYVZ64qbtwgwMFzf3WUHc1z+vzNoQ LsBA66M5HRtlaFh/NV9segUDEwO/vBaTpeFAwxcRaxIDtff9lp+Vo+G0WqVQ BYuO4m8/RnxWoCFvXOMqxRk60vqlBS8o0XDjQjd/zD86hkSbddKVif4r/nFf oNFxUVdF+dsuGprLsrjq+uh4ZtMnSS7i/n85nJuj1kXHPV3VCjuJ+7jv5OqF 5y10POa+/YGaBjGf0xuYy+vpKOI26CBD3N8zirfNXq0i+o8NGuMQLtqkzGgp o+PNh73m5L00rPHXnNxXQsdG122Nl4j7fx9Nfzy9iI7v784FzxKmGx4fFSig Y9Iz61cuWjRc8fbssEcOHbOL8UINYXFhR1pPJh3/PmAOrtGmoeINl4GDqXQs +3by3H7C0OXV9+Y5Hede+o7+//cH0/33ekRiifJWWRUnCTulhnXejqJjv4nb 2r2Eb62IbaOG0vFKwMTiCsLhl1OajwXRUfp3QV4J0V/Kz9cN7+/SsfRmjZkt 4fe7PtZt9KGjXyV5zQgx3sqnWH3fk4661FRBK8LdzOrKv6505OQvXC8i5jtu 01pudpmO2vyDTovEepDK+shfztPxd/uMsBJhUZk/Jdts6bhfxSz+CLGesqGM z2EWdKxyzpE2ItZ738RiEcOUjn+26rbsJfbDxJT3o9VxOnYdbm1Ys5uGjoVr C8oN6PiOr06nWZWGXhKb3yno0zGFsk73rgoNH/rtzHmiQ8e4G3vnxIj9zjui k3l+Fx2FvqzavJJ4PipeH0mvVaDjysKqejvi+elYfSpFTYaOvm+vlqXvpOFS +8WE5RvpCMWaM+PbaHjsUmREOjcd/U/zb47cSEPb2vgwAc4U/nBq9zy8gYbu KhkhHswp7P/SKDQiRsO4ueKAgxNT6Gw/E0kn3o+hBxQvascUvjrSzdiykoas v2Mex5qn0C33aPE+4n1bdXLO7X3dFE4yFXMPEe+jurjg1fvfpjBvxflkSTYV A7I17La9mUKn3StTZsapmMFKSRV+SbRf2ZS/a5SKlcaCNE7SFOqtj8mwGKKi wBTFuTd6CrV29hZc6qNijFaU+1OfKZzYMMEX8ZOKmTWjQSuNprBPde/l9dlU rNpkXjVzcAovCIu+EEonvheu3/hp+6ewQpEve/YFFVVE4iLJu6ZQlYte9PAJ FYutDsff2jCF8w8naPV3iO/bWHLO35FJ9OObYo2bUHFMV+BfF2USzd+sGfxm SHxvH3vtquqdRP9ta88H6lPRTON4YUYjUb4IAts0qNh7h4U2xZNYWXNsz5uN VJxYfaal4QFR/t3Wem0aBUV28bPey0zi7N171+MvU1Bv8L46/9ZJTGs33bLo QMFr8Yuu9hsnUSZx4MxpSwr+4JqiCgpNYpRZ5utfRhScyXj3vJb+D0+R/NbY KlCwYtjooErcP7wsTH4uMzqADtfuRc9SJtBYcr7e2m4AE70nVIO8x9G7YodM hGI/ipakq+q6jGOnRuRc1NZ+DOM6pzpnN44vbmnWhYr1o09oucplg3GsOFtH OU/qR4vEOOXjYuMYsIVv0TrrN4qS9RXXfRhDPceDT72m+jB85bOdL//9xQju 8rDvPr/wTixIfncaRc9xoU9tLt245qLysfPnhzHHvoapoN+KM5omdxef0FDn wzK52Zif6BjT7173gIZj+k3lW51/YuM/d6fnt2koeMIm0HnfT3yd+ey41nni ubcMO25IqUN70YGNN4j3ZvJQZoX5rjqs+edRPNZIxcZXRVU9rTWYlBk/1bOK inHhnyUad1ehwDLFwddcVNze9EcS+arQ26a089YMsW5cG1Y19P9AM1Eqrv9F Qe6T8bqmkT+QN0Axwow4xyvUjiz8Ga9EdxuUryXWfbJ40eNO/nc0EB08//nB ALZe+ia9xqwca9RiDM75DmBcdYtsnWo5GpsdVJh3G8AFbZWdr1aXo2l0Kl3D cgC/Zp44U15ThtZCtvfyFQewUVbDzudQGboJdiRlN/WjOjn4AJfuN0zgru6K 3diPhj9b01OflOKm7d4lGkL9KCRwu8f0bCkmH9yZ2srdj9naz7QNNpai4QqB pu29v9FiTP4VM70EbbgCJzbe+428t5M+BRd/xWDmDTn+2j4MsReWPjbxGbv+ nEsesv2FmskxrtnhRSgxsM93/5FfOKKZGOd7uggtOzefi1H6hYZGxudSNhVh b+XAWv2FXpQ9kBrU/rYQ+9IvB7+I78VG26V3Cy0fkWJz69rp1h60d8sn7VT5 gKNNcfvKjnajs88HdoBUPspX+4hv2NWN/gUOv1ToeXiVbD3zH5HXpkzGyclX 5OFYrtS7zcNdmO1xJILnch5OhGVL3wrsQrebO24XurxD+uFiPlXsRLe02Mx3 pTnI/tTR8UK9Axuv9NjsbcnCsqTCzEubOvDkriXal9AsDLn/9MYubsIey0Pr 9LNQ9LiZyPeWdiQ5rq6O+pCJiv31JmPu7Si185bM86SXaM1T+V07vw3dquXw Qng6Sv/NiOGOb8PJ5+tu3DVOx5GG++fr/dtQ1TDyuNSqdPSMP8DleLINU/6u q6ZHpmG4YonOw3+t6C+/9XrD81QsMf3wvkOpFfvPZcDauGQM3PskIHVdK0p5 1PRmySaj0Sb3U1cXW7BfaMcWnc9J2D6o8m+prgX18stnrftf4IT3G3kZF8Ip t885aSaiZHJaqufrZuzfNf+qUiwe7/6NihTe2YR6fh/++xf0BN0sXuneFmpC 8hDaTWo9Qfvv38ZpzEbUu1Gf934iGvWT6ceK6wjbd630s4xGbrPTvHbuhLM8 rfj2PUbRGyrLzt1uQD1/jsM13QicNbG3VyTuSf4X97uPljzCDtnHpRypBiRv ei/TqPsIE3rpPpmV9ehvGH6w/lA4bjlUyGAI16OeXIeXo0MoyovsH4zIrkNS dwT9RE8wCo5fO+h4uw7JvatJvm7BOF6ZlKphQsRDVugyeIIxz4dk28uoRX9F 6+9f9gahBqW8XQ5qkazntdE/+z6xLkZVFW3VRP2B4wrf/VE67LZMXHY1ku7s CZJx9cflF3MCr94m4pIjNibi/lgpvvrA2q1EfI20tWa/Hx7zb/pk51KF/sal TgxLXzQ/YfGGtewH+ofqVvF9uYm58VHqpOZK9J8/uXr3jpvIQ6sqWZFaiSSm VXnzYy8s9NZqFAIi3rlR7rL7DRRLk5iRuf0dSbpGelYnPdB1zNRP0eg7+k9u vFz80x0r94St3L2BiK/mV7543B29atkb9hdVoD97LVe82XXsmO7VNWOUI2nd kv77GVdUhXVVFmWEt6yUMBB1xZCHx0/ZPiYcUp29c+811JQsPX9ZhXD9lPvL h1cxziA55O7VMiQFJH5zs3fGyccdwkHahIU1PAxSLqFh75rnoXyEV4Umr6c5 4byb/9unWd+IvEU6zufmRbRIcGh+QyUjSfBD4446R8yjxVvlFxDW/rArXd4R eVWaaYX3CFtxVCrDHbC4XH/u2xbCarV/m63scVe3gWZeUSlR3jKYbGCNFNdi oy9nCLcukH7oWGH0cjmbSkYJknznx//TtES6In9Arwphl2M3Th+0wIK7dbW8 2V+Q9HnFL7GXp9FRdH+fyBHCvWOZv+vMcO2rt5OStM9Iyk3VSWWZontzxDoN KcImCfjp0imUvsTZqVf6CUk56lJDmSexmf2f9jFrwgsDTi4dJ1Btxyk7h7hi JH1gencKHEfap2/XXfYQbjXedqLwGMaY7A682VqEpK9P8xyvGuH0TZFXj4QI j3Xgx2kD/FDTRv8U8hFJ4a967O4exNX+isGHlAjrjFpvDtPHyxr3NzQ0fUDS 9qYyRtIBlExR1aNJEJ4U6cCvgLfOPGhxJW4XJP/rHDsRXWzl73NiniecTduz 8ZYOPrwR9mj12wIkeasP1bppIU2eIhV/irA43y+NZZqo26/5YdtsPpJIagPp qXtw2mioWxMIu22kefKpowlpv2s5NQ9JhoIHjZt246uPT7hMQgg3ktyEMndh iV7Aycq0d0jKa02KHFVG9zcqN3v+5iIppTHStk8RZcV+vZhUJ+x2V6PzjzxG /937V+JHDpL0BG4lHt6JhuaDwqpChFOkbjbE7MBFcrTm4XNvkNTfOnqHuQ2d Y8eD/vv7iqh/mLyZaytu5nqeE6hOWE/t68ThLdh81bAl/k42Ud+iVStvE4a0 zzBzK7OQZM9L59aTwP0H0qUq1hCWur5Xc3o90t+cNOiyyCRsQP5Suw6zxZau TaS+JNZPJu3mdxFcO2bxRVw9g4jvfqO5UQh/mPNQlO6kE+vTWLFxVBB9v73n PViZRrhV5mYXH+5WdFCxWEPY3+mG2bKVOBy72vyaRSqSyFdS/R25MZHrq29A agphw5j6OS5M72w+otKWTJTndZDw55SuzlWKOXcpiWgvOkPcnV3qfT9k4D4z kfBo8t5vc6UUC6pybthzovzuGbHL06XHlXV9OzcnEB7XMb84VVq8PL56WV4c Ub59lfz58VLpLoaYkv4zwqaFg9EjpY9yTS6cbX1K+OQNyVO00vn7r/LvOcUQ dtITedpf6niOm/NmPpqwPzdPTnfpT2U74/bQx4Sn954TayvV5P4cT9ocRbi3 7sXZxtJD7+Xqz9g+Ihz3M+1rVamE7W/n1wGh/18PbequstJ/vE+XczIfECYz /3V8Kq14b5RkVhtIWEq3ODK/NN6WpJX97x5h1bvyoZmlvWtdspg7/QinJDJ+ JJQ+cO7oTXPzJqznJXs/vHR3qf5a40/uhEkOmhm3Sot3WkeOLr/yf+eV7XIo 3ZB5cfqWvM3/HXVPW7OUl3FM9ra61v9NOnSkoeRpDtjrRJ0EguQtZGHdWfmj 32sLz//fsiXjx3VT77pb3trx3/+t/u3eNV2Z0Z83RYxu/N/vIjsDdDeo7Sx/ S/MhrHcgdSlal0dXb2UG+BNOyR/+lqLrTxlTnBK8//+42RDXG11WcLypbncQ YdWRDIcPup4KR7zDskL+X7565eES3fEG+otOzzDCUcce7anQdfJMLt+hH/H/ /iQmVtXquglmen56EEW4daQ5o0n3ra3vSvuJx4TrllsGteuO5pkm8Jx5QnhB TVCrV1dmuZzS2y8xhKNz1Z0HdM+f4aCZdCxh10/zSoO6KVltpqyQZ4S99q/1 +qPby3wzmPIvjvCswTfDCd0NxgHeBuYJhOfnpTumdM2TLAQmvj4nXKvq1jGt Gz2pnBSz7QXhwYvOcvO6Dfordu0LTSL867NCE1tX8GlP+cBkMmEDq+5mjm4G w0Kh4k0KkPyNdY02LIOyTRWe6+1SCT9U2e/DDQOHVUqvrE0jbLvTfPVKkIxb cUr4Vjrhs1TtTkHQ+eaWcEExg2ivJlSETwisRnuoRb8J6/WsKykXBh8RAyWB Jy+BRH6qKf1CBOJ0Crxsj2QSPrb5WOw6KLy4mZzPJOy/nwF566E1IoRvxdss ov7fCd6xDSA8YJv4RuQVUb78sOZPSVDlrxlcqiTsn/rk7GcpMFHTUDH1eQ0k +8kXq7ZKQ2iQQNl8/xsgSU3K+8jtgOxcLwHjmByi/LSgVp0M/OgYOJ1s8JaI xxosD5QFbvni4cO5uUT7/72vUVcEabNtu+Id3gEpJdapUVkZpHQN9nvx5xHz O7OPuUUV4FJBcHUJ4bxYz/rTu8H3U8gGt+0FQBLKvR1wei8ImOiWbvD7v/2z 1D5qQgKF4VjeQXhSNCxwmzZ8ErDLEQt7DyTVh3dWy+8HwxTRU2QaYSH6+roy XehUr5m5rPsBSP1f9TZo6MGsjQaUTBFuXHafi3EAguijVKdjH4HEKzjs/Usf RB+khAi9JDzSZVfdcBB25wk0n7coBFLVa3OfusPw3zLKBX4sAtJ8k0WpnBEI FYa8PyFVTIznqF2U2zEouKyy7Ok9wlLpQj3fjGG20Td5y6FPQCoecQ0MPAF+ yeu71as/E/X1WU4/TEHKrFTWR/4LkLgXV/I8M4Mynos3MYxwnHZ6mMtpWOFa IGpk8hVIp7Pqk+XMIVzn+Am7lhIgWW/LOzBxDpQnGS8y1EuBpOlbf+WfJTSm J4z9eUo4vM1ux5wViAqMPPS0QGK/3EIzJGyh3uUApcKVDCR35UphSwdIrox5 eCmZ8Ncga/FZB3CTGlHlbyScpx9a8tQR1rZG3D2x6xuQQvxwdf95OLOvd1M3 gzBPfBQr1QlknqpU+G4vA1LAYMs260swOxFwdcsZwif1VutLOENcmtznC4WE h76Vh6Rdhl6+m2f/eZcDKWqn3n80F3h7vmbp8SvCZc+03PAa+JVszlTvJnzB cHtJkitIXa+YvrWvAkhNwqCm4QYXOoWjuZcI+zb3xWx0B43dF7WylL8T9X+Y 9SW4A094cf9RO8Jzu+NvbfKAbLBTiSQTdnJI/iLjCX8zc+o23K8k3gcdXV4L L3C/YbBShbcKSIKVHUm7b8NE6c6JxxqEL/uRHOpvw2Ve3rZpR8Ke6z1uuPiC /fOqtM8lhAfK72W9uwMnvh3VPeJRDf6fBy0t5PxBcZXxDZu+GqL+Yfu8lfch 21zRmixQCySvc1yal+/D9hTBg9u0CHeXfV9Vdx82qv0U+vOkFvx3hW54+zQQ +M+Z5HgerQOSFfPngmYwDGecpIZ9+Amke4vLGN8eguOEas3EwE/wt97q5q0V Cn17hfNPrakHUsV/y90LQqG9pslv/ZV68C9VO1KbHQYVk6YS6VsagHRjRsYy 6xGcSnota3O4EfQurfTjmYuC1eUSiautG4F06Unegu5jqBsOXUN2J+I3/osl P3gMhruuzkqnEPG2Wt/CjdGgV6FQMcIijJ7UO8efgPJojp1nXhP4B0vKPOt6 Cnnm8SWC1U1AKri3UW1PLKiVB218OUDEy9Sx80ksaCbadrStbSaef2aBgekz 0DcROrH3RjOQC2TYlJ44MC/w0GVptYC/0+aikG2J0Clpnxht2gKk5VEbHz5O BKswY5b8VSK+U/RoLukF2F/YUWiV2ELU95m5RnkBV8Q6lEqWWkBvi3gK430y 3PHR3uxf3gr+/56Xm1YR3+Fhmdviva3Qf1lVncqbBgFmIl15062gJ9xvLGqU BsGKYzEDO9qA1Ldlm3V9GkT1vRA8GNIGemvFjRL70iFDn2thxfF26H95OzJP MhPq+Ku6w9o7wH7hgtafbW+g+mHRkfyJDvDfuri5yfsNVPJmFbTzdILUpGz7 9fo3QOYJDt26txP06DdzB27nwIdlh7SLnhFx9R0fYn+/hecsjKdYdIGbqE/U 84t5EHfr3Qre612Q91JZbG1sHsTMJ11XetgF/uOmm8Yr8yBi9s5R709dIPX4 SlmzXD4E0PcxV0l0Q8rdPr2r0/lwZbTIQqunm9iXwQNHX7yHS5ezKmwZ3aAa X9hr0PoeLozEqgYK9ABZaSjxvcAHsB26wduwrwdI/LdrW29/AFOKWvGFxB6I imQVHnf4CFrd79ZH2fRCXpF2cMKBIuCtyWof+v0L3KJCj1VZfYFuso2jy+wv ILWwxDoTv0BOkcjElGAfCHkF3Dnb9wVOvby7YlGrD6I+rFfLcvwKCf5n1UVi CD9r5Ip3KwGlvSujwfA3uPntFdBNQ5AzfS9jbNEP3gL+WhqqZRB9PGIs4nw/ 6MHJkv0WZbBgeLmgybUfZJtCZ4L9y6AetuieDeqH7PJn73ubysBdKeyMY0E/ dO7eXf3iZjl85T0f6C04ACECS66fGyrABNdSMsgD4B+hIBLx4Qck9Cls7qkb ANnDmQynPz9gcPGQhXDXAKSwXjQ+k6wCX52b9XemBoBsba6xPLQKXn/q+Wwu TYGQNPZHwYvVwPMh4wlvIAWy6TYGxoq1UJq957CLARW8W+91Ji9rAP6qE/5p ZlRwy+lOMDvYAGeGnb902lGBlDlUdi2wAcZ2PN912JsKsspVMX+XN4JEOmez 5CsqOF/Kbv3+sBG8XlTNNvDTQO/OdJxHchMoRVtmq9XTQOr+Jfkr0y1wYdyc Ed9FA53uehb3hlZIMDTTJQ3SwLmOR6tlfyvwcI611rFpkJ3JaOAPaYW+q/tJ TnKDoJeZJzUm2QZRh6Us4gIHQco/TfqleTvQ5wdXLmoPQZT8dJbtv06QPU0x PX9kCDaRdnvVSXSB7bu+F9WnhiDuhqa655EuqL3YoRbrPATFW5WOuSd1QUZz lZ1K7BBccLC7pnyqG87kvClymBoCmuBdzeZvPVBsd/1SZdYwxJ1d6t/Q1AeK h/7TYhQMg2/OYKj08t+QLHtNQKqUiPs4P3XW+A3BU87vbrUOA/eyj1feJvwG s/v2c4pcIxB6aU5ujXo/TGSeePDEcgR4GTbfbVcOwPYJpSz7VX/gykLFsbHv FIhrVrj1SPwPWDa2Go9QKCBQJHfs87Y/ULUvc5qbRAX63R3/RLT/wG6eE/Yp 2lRA4c17fzj9gZqX517a51PBUkPwhxL5D1S82Xt01UsaPPYdHWK5j0KsUMJh 5ZdDMBQoo7zx7ih8DofkjdVDoPPI8ca+sFGI2nc3T2V8CEZedC/3TR8Fx4WW 2lqNYdDFGqnFllEwjhh2aq4ahjGuN5Yc9b9AX911jW92BAwfXK1fPvcXfNTd ztm4/AXO47GPgrfHIZHJfaLQdhL02gVW2QSPQ/TR04POHpPgL6Fw4e3jcRAt 3zGwI2QSSOmX15pkj4ObvcS+0vxJWPZhyDWybRw+SzY8d1wxBTzt/TvXqk5A TMD2zwa5UyAo0Ra/fnACNj0NtCvkZoCx7fTkpckJ0JHmOb1fggGP0kQMi9kT YLTx2ZZKFQasVjCdtVj7D7qLZbp6LBkgpNNgmgD/INtGrWtVPgNEbKsFNif8 A8Fz3hV7baZhVVOf7uOdkzDqmtddnD8DkkGrdrxXmoScPapm3lUzoKqlI9Cm RszrT32D3O8ZME2N7xDXmwQX9Y1K9oKzEHf9tFuKBRGf83Nd6TQL29bWpL57 OAm775kcTF03B+qV8w+aIichVtVTQUlhDo747HRlPJ0EQ9PXj5P15sCZEqi9 N20STFcMFqhfnYPcAmgp/TwJlJL13Xw4B1pmH7nr/05C5qbu45n282C0kjb6 b2oSxnofju71nAfrL2ubhOcnwe2aclLag3nw2+b24gz3FJR2rf3IeTsPFQz5 Pb82TYGOzPc9OD8PJ2JSLo0dnwK/8YDg+0FMsDdsOL769BTEFX0X0YxlgvvC opqq5RSYzJwmF2YyIeaCFcnTaQo+tFpErv7BhG51sXi23xRMXBb2EVzBgott YTX8eVNwiKn/yfEGC1x25hRXfJwC6wXBE1fuscD9Vl2m35cpcBvWW6vxiAX+ m1fdp1dOwRHbJ+1CGSxIuBixr/vXFHw233Wipp4FqUW5cjHUKZiPiTza2smC bL6G9SZ/poBi6dGXQGHBx7drpr9NT8HXPs1oyxkWNM5E5bwSoMMyoxumj9az ocMgP+G8MB0S0sZOXNzChr74ppDN6+mgeMnrMkOGDX/3r734WJoObgGFJcoa bKBH7jY7JkuHwD0rHbr3sWF+wPTACmU6iEqUTmnqs4En+MnmW1p0cIrWKRIw YcOqzvcCakCHvBt51n5mbBCVb2WOHaIDr//yphQLNkj4Tg9nGtHhtUz0CXcb NmytF223P0mHQ7qC6+gObJCV0qiQMKcD5W2Q3RYnNii7nylotaKD5uEHrszL bNCouJES4UD0/3HL/bvX2KAjFhtheIkOXtnTv/Pc2HDQudB32TU66C6aVYd7 sMHoc/uVr+50iJU4HLTWiw0nBecsvLzpQD+fYHXAmw1nbdcbqPrRYb5yWay4 Dxts8/ZqjN6nw1fHjf7PbrPhwjKLbRkP6VB65N6lEl82XD3tLWwbSYcFA+rz h3fY4J4Zx1n/lA72oyL/sQl7zxePNyXQodB6o8ZaPzbcNerqCUuhQ0jQ0UM/ iXhwIrP6cCYdWiUNZxQIh09sKOa8ocNQn2K6EtH+Ez3tzE/5xPhzwt40EeNJ iLaM8Sgi9qs7xHX9LTak0HwClEroIP/fX5MlYj5Ze567DZfR4cNllYIgTzbk hnyxTa2iQ71QHOntdTZ86O4xtqon9kNX/6WHKxu+KC5or2ulQ1XOntVdV9hQ 5rdJrqGLDqH7fHN6ifWuatRZ//A3HS6oy0/fcWRDg7TNioODxPNw38f6K7Ff vZUvBgonif1Zw+27mthfqnhpg9ssHWhFXLu3HmfD6JW+EvkFOgglm/A0HGHD 3OotCUkrGUAcxUosTTYs2UOIxSoG7ImITPDaxQbu93Zea0UYUDyfbRUux4a1 Z1NMgyUZELv+zt4AcTYUXTsQuG07A0ye65+LWsMG60DKR7IcA6SnRU20eYj5 52/fwFZnQJmrrqM9nQXGVd+N4rQZ4LWtmtozzAJ6n5Ovhh4D2t8NLkz1skBH 8NXv/44xQPmw9eDYdxZQpI2EV51iALfP4z1Nn1jwQOuv/mtzoj8NhW0n3rKg 2Ukpk+bAgBGDTo7YExZc+pbvcs6bAQm8QkLN51gg2GmaNHuHAf0qN5z9jFhQ MMFoeHKfAVX9n1TKtVmwsHGPWn0E8Z29/aJ6nQQLor0+M/VfMqB0ev2lvhYm 7H1kpdD/mgGKXYumx78xoTd9wfpOHgN8BQpfns5lws4mXXLRFwZM6ot3KD5g wleF8mDFZgaM1dGoPOpMcNS/UFzdwYBwwwBbHUkmrDy3YtTpFwMkjtS7CfAy wTTY4HjqCAO0lVXO3Oyeh+H+WhExDtG+hZlAhM88rI1tTeEoTMP2gooPK7Pn oCjnRnPirmnQtpN4vBQ2B9blYtzae6ehKnL+4NP/5iBr0uKSp/401B9T9szQ mAOdY7+U/lhMg6XZmLBVySxcIg19bg6aBvXxxyVlX2ZgSVYm60/YNEzWbY2Q eTYDMaecnpCip6Gx/G2ZjPsMkNOGrionTcPY8oA+0s4ZkDg8vCm0cBp4frez dcKJfh6O+B0YnobVr6LW0A8Tz43IX/08wxlYkMuZs/OfBB6ZyZpHArOw6ayt aPcvGkSPbUUd4VmoMRl9Z3uPBpLvzd7/FZsFHn5Gzt/tNNDQK3p+VHoWfPNO qci7UOGCpZ/LCq1ZaK323BHCHoDyCMHVd4hzKvAOvd5arw/852RPuXybBet9 0yf3yrSAYKnl4Y0/ZsFZLOjdk1vNEBcYrlVTNwuN6+09Un42QZ7w5FbZzln4 +qRBsudmI/xWKKJTJ2ZB1V39/L3XtaBrfzjGatMcSKmF5XZd+wbsKocOo5tz 4H9053VGRih6p+4O9rhDxM9KaTHEnuHMreUaiffngETb/mvgfAr+k38ZPR45 B/1OpZrTs6+QGj5yPIrYtxCyyupDpoVYe/K/irauOVjIWKTXclegoZyex9Jv Il5u/TFU9Dt+5xKW3jk0B7yU+qpXWysRCwruetPnYPJ6lT+3ehW+F53V3igw D71Ghx+LadXh807ffHudeThtYzMDlCYUzz9u/1B/HuZvRvDwnWnGpw8l1xQY zkO2nN2ugMpmjNQmuyw/Mw8TP3tlHrxswfuJy2Uzr81D7MGtsxNmbXjVPjTp b9I8iF4KyWG7d+KIptVx0ZfEufzN/PbOpk68KKy4oPNmHozlT15Zq9yFdmU/ z0UUzcP0sxet8rQuNNsuvG5X4zzYmgjkhh3owX0jz8K8uJgw+SxD/GTZLzQP +nMnYCUTtlsvbv8q0Ifu0vvcIlYR57aLvz3f6T58bd13OnMDE5wjl108PtCH 4k3bJdt3MYE/8UbPy4nfqO7qJUTZy4R2O6Pvaev78YRA1bKJ/UyQdzmic3lv PwYfvjq8wogJn6Pz+Gxu9OP0p/w8DUcm5HnVLUyP9qPQ2eXpB5yZEJf0Lmf1 ygFUmD799Lgr8d5+9KRlSA+go/L8rYs+TIga2fL9qMUANqXpHnwazYTdBxtr Q0oGcAyiNFLjmJDNVXEkoW0AeX8N7HybxIT+++HlSuMDqLc+SPD7aybovH5n 8kuCgrlhtW3TZcT4/9xv+M+NgjWym6tI1UzoqE2ISguk4OB318+CDUwInm5Z Zx1HwU2ktcnbe4j5j5mGXCylYJinhfNpBtFe4xD1NzcVM4VfW9ozmcBnKVdk vo6KZblsYxcOE6w+dIla7KAiayRpV6AAC8gmCUz2QSo62wyy3m9jwd46B4Hm 21QMZO0ZRzkWqJzNn80MoWLys5DftSosqOeymOF9SsX2JoUK6j4WHHIa576R Q0W6653CfwdYEKKV6n63iIqrBRuy2QYskOCfyVlfRsXDR9wfiZxmgV/EW9ZU GxXtqeV3t1iy4PS1FXvVf1PR13+du4I9C2qrUx5zj1AxbvOlC3udWKAkXbLq /CQVP3wuNj/owgJ1ca+sE/NUbDzLf/SEOwvmN6Sb1XCo+Hfaap+VNwuivnzg NPPQUFqFs8UjkAV3CjyGH4nQUO2KvsT6UBZ8Kv9yb0CchodeBol+iWSBqpiD c9NmGp7pr1pt95QF/dUHr9lI09BpoyDf8ucsWKrmsw6SoeFN8xPLs1JY8MGL m2UoT8OQx9GLRpks+MolxpOtRMP4ura5iTcsmPaJ1UxTpeHrlRvo0fks+C9U 8+D//x/qi7712J4iFlxoG2900qBh3Z3koe6vLPARqA1S3UvDX8WUfr8yFqxL +Lv0RJOGE4wdPdJVLPBafqY5SouGHOXLbZU/WWDX0RUho01DoSs5DVdaWOB4 bOHLacJSL/9Vr+5iQY1bY5cE4V39uysK+og8lKfP3puor7/Rq9ScxgLdQa4y F6J9U/NPxaw/LHjFfcJpbg8Nzz9eKEj6xwJ+8X+564nxedbBW30i74z8tmym bjcNg1bezxpisUDP6t5DMWJ+sfqVqaEkNlBOi39kKNIw6w5fojJxjl+X4S8+ L0fD4mLj2GYBIi9tF6y5uIOG1YzIKC9hNuxeLyvBlKJht3JLqASRxxrRo+s3 baLh38tiQaWbiPLCj7kbxWi4kHHurqM0kVfFn2gUFqbhqv7EWzyybNCL/6Yz wE9DyY39Hq+V2OAg7ntsPzcN9R47OdOJvISb15U4nqh4qu6VY6wuGz4eyvse PU5Fx5Xj1tqHiDyPxPNWbJB4vu94nAo4wQY3PZ7wgmYqPi0uPCZzhg0TWxZX VFUR7w+DebjGkg1/Jkzr7EupWHXZX3stkVfxrZKsF8umYldGuXrhVSIP+nB8 z65EKo7+5lGxJPI0lXyuQ9WRVBQ0f7QtjcgDJfIFlF1uUPGkfoLg7idseJws UHFCm4oOd37xtMexYdnuHiV5eSq6F0tx+SSxwWDBuNJzAxVjlLNmvr1iw6Xf +r9NZyn48vLov4vv2CD/YugahUrBwgylUb6PbNj3fLNBdyMFOyU+9J0is6H+ UcJFVjYF/5yZ65z5zoZExpMTkjEUZEVpt8TXskHOev/PVD/i+7Hy24+Bdjbw n363p/QUBe0YP/Ouj7OhmZs7lneS+L7p5V2MZLChP+0Uz6uWAbzwKFriLZMN rJdD3DcKB9B559nAkRULsNHiu++9WwPoZtV/1k5yAXSmLtznnulH9+wywTvb F0C/U0YqoakfPWcyviXIL4CFVH6Dztt+9I68rNC+ZwEK8y8/j3Pox3vl9CXj EwugZ2Hubuf7GwOF2t5fObMAtq112c47fmOwTZFziNUCSD4ceHKorg9D5243 l19aAMOn8SXHRfowWmFFprY/Uf/Nrx2PgnoxxnvY0iJ4AaouPv8ruqkXY79X r/EKXwCjd4m9m/N6MMEu4lZ+3AL4KLwgP2jsxvQn64/L5i9A2m8O5/5UJ2b2 M7mOFC1A56ldUX3E+Zat1Ft4vmQBJDYL7rKf6sCcHylSydULMFmdn/1qsB0/ sOWm11EWYPRUUgnv61YsNBR8pTayAM2MoqYTIq1Y/HTC5tTEAkyYT4ba3mrB ryrvf4SzFqDm0eaStH3N+P28zvPlIovArcktNa7cgFV5kie3blgEQ+JVMq/9 iTWLpBWwZRGmezRvPbavw/pn3119FBbB9xnfhi03qrG91kR/6uAiWPQ1d6gc KsdhNYc/fZ6LMBl9eM/mtJfYJ6mRGeOzCPYOjIefDr7Adj6+80b+i0C6fWCa JRyBFb/zej+GEX6X/z5JMxzSwkiN4WmLIFTxZ1KitgBsqcmF2o2L4L/28Zq4 1TVgXu/hMdlGtK/b6bB0qA6OfzJQzexZBNnA13y5AfWgE/nvlfDwIqR8MPPr etgEEvvgxcjiIhw6nayndrgd2qP77scqLIHYXrNTdMV+qL9ToGe8awmM9epG WK398N05eJFr7xLMs9R1bP0G4IOu8s1r+ktQwB/widRGgejRO1cOnVuCOHZJ 0eaoQTiuv/kUPXgJAiVJqYHKf6FiykrShLIE/p4C3foaDLBMzZMcHl4Cfd+b V4IfEnn4yRVb/MeXgHao+yK7lwGb8nK3FMwT9XP8jmjemwZPV66tYms4EMO7 J0SxZAb4Jc23vhPlQE5jYa4C3yyk/Hy91VCCQ7xvk0/azWahTvG0tM8ODqg/ up/7lzYLO/5mbuvbxwHxMIV5rek5+JrA3nbzAAd4R2/JlarNg6nRye1CBhxw MT+/3vk6kTe9Ym7XN+VA0ie7rrEhIq86Z7Kj5ywH3GR9JLOJ+8Br3vQdnjYc 0PeMFjI6TeQ1l4xlMp05kGJ5aAPPJya4rE+VAVcOFCtobVk+woRlP2ZkOj04 oNy2DXNEWRDnZbTz+i0OGHEfvD6jywJlmeSd/Hc50N+yemsjcc5WtDF2pgdy gNIhrK4azgLLIENZnVAOhPCkRfG9Y8Gk+gvZtkgOeFp5ZpxsYEEwbUrW9SkH LEV4rrLGWLAp5ojcyucc+Hqx3WNhJRsKDj6XS0nhQEXu1RFjKTYYMv7JaWVy QHDVlmiKBvGdT/tfxeYeT9XSxvE1K5VKUuSa0AURSSEO5gk5JZWUki5IReWS Ek5KveR0IWWrlAp55e2qyEGnNBQH2W23LeRub3ddaBO27HfOn+sza/1m5vc8 88zz/WPZ6VU/keDg2Eet2evFOMj5tt7RTKq/2L/vtSutS+xXPalcCeZmhYV9 P0h5OdNG/94bCc7g2cg5HhNjU88EfdN3dH+vxltKQ8SYKzegX1EiwdkJmZ89 ad3dXwDLfT5KcOLAlNx/+X004MZyVCPBPo9C+uvoeKxG3/LEegmO9QvJyQgV 4yUV1garWiRY90Ofxg1ax/8OjzfgCqj+Mx/xJW8xdjLsMTjYS+Pthfpi6L3Q 3WxpOPmV+i26tzvJQYzDr8QZJogkeFHP0FViJsYKVl2GRuMSvKRPKmFIS4wf D1isKJNI8Lis9VaLGWKsyStRymQZONU0LyDxyzjuXzqUcGYqA0OJpseUqL85 ZxYoO0gzEMvbl5pD+dXRIFBZMJuBCHMNbtD+cawUdefWczkGDo30bEtdQ/m3 qVj5tDwDX7Ov68yRGcehMaoq81UY6HIrN+PSPtNWaHe7XY2B7R9DZVYGj2FZ ywCVjIV0/qlntk9aj+G0/vcqvy9h4Fq8pfqUslHsw7UKcdJhYCJN1rzz/CjW f5bL36XHwA6PqBljVqM4y//JVV8jBrL5rV6IckvhIGcqx5KB+oKHLyr2Uu6q lvG6g6meptLsoKkjeP3LPwvSbBjQdH1u8+PxMK4MOhWWu54Bn2uy8e3fRLjl p+dg03YGZKGKZ3DgB06tb9zctZOBD3ri3S6/hvDBVy5Pv7kxcJ4vE7nwxhAe OLXBm/VkYPzhHZeJgkEs/mXUrONH9e3Nz76U+Y6VpZiy41HUH83yaXXyvbhJ +If26YsM7Pkqw2ta2YOTi39ERkUzsEa+pdrQqRtrX+i2vhXHgKrCpPa+2E5s MrMiO/8e3V9n2TKT+R3YWS4pRTqHAeELzZ7XtZ+w4qDS5NxXDDS5hyaqWdXi hqq43WpvGDhm9neZ2qMa7BEfpWj4jvpn6JWdfLUSByj6xWzjMeARWXNE1aQY xyywDE3qYuCcaN0h7uFjxIGb0XCil4GUxudedrU3ifRprd82DDBQ+d8nj5SS 0khU47TJH4MMyMXtCfG2fUnCE6siN/xigGsrk8pTekcsHew6FzIIgoTxw5pq RUQ8lmMvYhG4cu7bzlD4h4TuujsjWRqBbnqlMa+rjAQqe18VySOY1IgpF12s JEalDd/LFBFwFLP6eJ5V5GuIo3OyCoIPeQPTXptUkyN1K+c7aCBYs5FrOMar IQduTiQm6yFw+NScGlz6iSyyD5gIMkBg3Os+tC6sjrQNt+91MKLzGWSVxC2r J3tdSjSHTRBs5j3rbghtIDsUOOkOaxEkarv/qhA0EoUiKWlNOwROCsWVS4Oa SPWJkMPD9giOrIvhHGOayZaaPctTHBGEu7n4ac1uIbKRFVdObkHgX7Xv1oMr LYRrbPPNwRmB9cjhMreZrWQ9RydreCeC0ZtFY5zRVjLNJlG+3A2BuOhakIpJ GykalDmZshcBT2DxeaFvG1m7dchsoxcCD3WFvE5+G7GQy89P8UeQElo7X4PT TkbJCo3gQARy8zbH7aB8lxOQem5jEIIY3/CIn13tZFXFBduRPxAEd6R/jjHp IEPh42nlpxFE13rvjnHrIC8M/abdP4tgtkJjxCzafy2PdS7bGIXg3EWFb3cL OkifVbGe1kUEbxYNlOe1dpBHX8xiRi4jWA3/OeP9q4Nob1Lfcv8aAkWNn9tj VwuIcOLqi+B4BLKiCwGymwUk9Sk7z/EmAquQEPuVhwREQ6aHP3IHgXaSQaYv R0Bu5k5wNJMR7IvuusWl/aus19ytDqkIpJ9GqF/KF5AoWe05QQ8Q7HJMy3lQ KSATryw+3nuIYLpSQ/jSDgEJOrgluuQJAj0VV+NZQ5S35A5sGMyg+bWv0GAX IyT734ROV8tC4Bze7Dt3Nu3vva8U2/2F4NK13ZdMKG9tlU+N9M9DYKQY8+of LSEpfZuz9tZrBMcvKlUUU16AI+WSwrcIRC7PTVZRvsid35bfX4hgv0XeoCzl EcNCUdj8YgSPxweSXCm/pPvOsMClCPSzRv3//b9GXXnhqE85XR8jrWtMn6+/ N87h8BB4X3JaTOj7swJ+D3pThWCWT+zGbKoXobrHuIuPwMUxRG3OSiEZLz72 fU49Ar7F4rtcyneBgVEZ5o0IrqOjXr2UB3sWJPp6tdDz8dSS46kiJB6lGXpX 2ml+neiqNpIVkroT73tyhAjYGtedzkhINmvUp7d1I1iV4VFXQP0q/jBwYGY/ Aosnn2ODqZ+WwWjx6q/0vKi1/+ZH/c7WUmzfO4igRXVkQdIbAdH/qJd8QUTj VaP/Df2PxjcU7838ieCU3KaBa5QvVJdsV2scRzCRKV1mEywg0mFnEgwRC+aV GVv6rQTkrDbHxVWKhelNLq94CwVkpCpdPmI6C+Wdz8IzaD516lZerZ3NQuZz 6TjTvzrIHr5wk0SOhTx77ZUlVzoI/+zYrGUKLNxOTahccqCDvPu06OJpVRZk jlr4zZ3ZQcwjzOzT1VnYnJCue76hnbwwcJSq1GTB/0DDvuj0dpJ8/uS5xTos pBm+dVE2byeKRpetN+mxAPxuozOTbSS2MWki2ICFbS6781cXtpHTxqWhH1ax cM7d5NM26zbyo7nJVGRKv79/vEd/sJUcuTQoUrdg4bptZD1xbyW72lQDA4GF t0+Pup/UayGV0StW3LFlYXtT52vbP5vJejO7L0X2LDw9WOsX1thETGP9Ditv YkFqWN8zOLCRPDOP0LFxYoEfOeV4a+ZnsqTzZufRbSzEVPvd/dXXQOQtCzzJ LhaKli5uuWdfTy538zV697DgMNyvU+hTR9j43uZ5HnQ9Ld91myI+kT+sJ+9Y erHANbVrf3u9lnzvned26BALrvnZTuZJfPJ/KOdoKw== "]]}, Annotation[#, "Charting`Private`Tag$9483#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Epilog->{ RGBColor[1, 0, 0], PointSize[Large], PointBox[{0, 0}], PointBox[ NCache[{ Root[{ 2 Cos[#^3] + (3 Cos[#^3]^2) #^3 - (3 Sin[#^3]) #^3& , \ -1.78334867481144945507459311025030113769`20.301017155657544}], -1 + E^Sin[Root[{ 2 Cos[#^3] + (3 Cos[#^3]^2) #^3 - (3 Sin[#^3]) #^3& , \ -1.78334867481144945507459311025030113769`20.301017155657544}]^3]}, \ {-1.7833486748114495`, 0.7755885708738073}]], PointBox[ NCache[{ Root[{ 2 Cos[#^3] + (3 Cos[#^3]^2) #^3 - (3 Sin[#^3]) #^3& , \ -1.57142865478630641182061820276949092208`20.301153615353442}], -1 + E^Sin[Root[{ 2 Cos[#^3] + (3 Cos[#^3]^2) #^3 - (3 Sin[#^3]) #^3& , \ -1.57142865478630641182061820276949092208`20.301153615353442}]^3]}, \ {-1.5714286547863063`, 0.9610034200206248}]], PointBox[ NCache[{ Root[{ 2 Cos[#^3] + (3 Cos[#^3]^2) #^3 - (3 Sin[#^3]) #^3& , \ -0.78023721555544848244066987877430151971`20.302159001387512}], -1 + E^Sin[Root[{ 2 Cos[#^3] + (3 Cos[#^3]^2) #^3 - (3 Sin[#^3]) #^3& , \ -0.78023721555544848244066987877430151971`20.302159001387512}]^3]}, \ {-0.7802372155554484, -0.36702553320040765`}]], PointBox[ NCache[{ Root[{ 2 Cos[#^3] + (3 Cos[#^3]^2) #^3 - (3 Sin[#^3]) #^3& , 0.9739893360967903494161087729070319912`20.30098605373987}], -1 + E^Sin[Root[{ 2 Cos[#^3] + (3 Cos[#^3]^2) #^3 - (3 Sin[#^3]) #^3& , 0.9739893360967903494161087729070319912`20.30098605373987}]^3]}, \ {0.9739893360967904, 1.221108779698766}]], PointBox[ NCache[{ Root[{ 2 Cos[#^3] + (3 Cos[#^3]^2) #^3 - (3 Sin[#^3]) #^3& , 1.37516864847784066095246936052714256497`20.537348316597708}], -1 + E^Sin[Root[{ 2 Cos[#^3] + (3 Cos[#^3]^2) #^3 - (3 Sin[#^3]) #^3& , 1.37516864847784066095246936052714256497`20.537348316597708}]^3]}\ , {1.3751686484778407`, 0.673665700840832}]], PointBox[ NCache[{ Root[{ 2 Cos[#^3] + (3 Cos[#^3]^2) #^3 - (3 Sin[#^3]) #^3& , 1.91208852047628055061625214205687326862`20.301062533986798}], -1 + E^Sin[Root[{ 2 Cos[#^3] + (3 Cos[#^3]^2) #^3 - (3 Sin[#^3]) #^3& , 1.91208852047628055061625214205687326862`20.301062533986798}]^3]}\ , {1.9120885204762805`, 0.9155170338478162}]]}, 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->{{-2.2, 2.3}, {-0.6321204825966158, 1.718279566672925}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7574234467806935`*^9, 3.7693402956829076`*^9, 3.7947537868567457`*^9}, CellLabel->"Out[47]=", CellID->527534017] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellLabel->"In[4]:=", CellID->45617115], Cell[TextData[{ Cell[BoxData["InflectionPoints"], "InlineFormula", FontFamily->"Source Sans Pro"], " will sometimes return results in terms of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Root", "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/Root", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " objects:" }], "Text", CellChangeTimes->{{3.7574235295546937`*^9, 3.7574235689956937`*^9}, { 3.7574236225426936`*^9, 3.7574236271776934`*^9}, {3.7574237529676933`*^9, 3.7574237844886937`*^9}, 3.757423970058694*^9, {3.770633312998249*^9, 3.770633327140484*^9}}, CellID->505659885], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"func", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "5"}], "+", RowBox[{"x", "^", "9"}], "-", "x", "-", "1"}], ")"}], "^", "3"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"inflPts", "=", RowBox[{"InflectionPoints", "[", RowBox[{"func", ",", "x"}], "]"}]}]}], "Input", CellChangeTimes->{{3.7574232463426933`*^9, 3.7574233326686935`*^9}, { 3.757423415669694*^9, 3.757423420796694*^9}, {3.7574234875976934`*^9, 3.7574235101396933`*^9}, {3.7693403125700336`*^9, 3.7693403422378235`*^9}, { 3.794753805499283*^9, 3.7947538057522793`*^9}}, CellLabel->"In[48]:=", CellID->863269901], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", InterpretationBox[ TemplateBox[{"Root", TemplateBox[{"\"0.379\"", DynamicBox[ FEPrivate`FrontEndResource[ "FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"], TagBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"10", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"20", " ", SuperscriptBox["#1", "4"]}], "-", RowBox[{"36", " ", SuperscriptBox["#1", "7"]}], "-", RowBox[{"19", " ", SuperscriptBox["#1", "8"]}], "+", RowBox[{"136", " ", SuperscriptBox["#1", "12"]}], "+", RowBox[{"117", " ", SuperscriptBox["#1", "16"]}]}], "&"}], ",", "1"}], "]"}], Short[#, 7]& ], 0.378541970418355}, "NumericalApproximation"], Root[ 1 - 10 #^3 - 20 #^4 - 36 #^7 - 19 #^8 + 136 #^12 + 117 #^16& , 1, 0]]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", InterpretationBox[ TemplateBox[{"Root", TemplateBox[{"\"0.866\"", DynamicBox[ FEPrivate`FrontEndResource[ "FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"], TagBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"10", " ", SuperscriptBox["#1", "3"]}], "-", RowBox[{"20", " ", SuperscriptBox["#1", "4"]}], "-", RowBox[{"36", " ", SuperscriptBox["#1", "7"]}], "-", RowBox[{"19", " ", SuperscriptBox["#1", "8"]}], "+", RowBox[{"136", " ", SuperscriptBox["#1", "12"]}], "+", RowBox[{"117", " ", SuperscriptBox["#1", "16"]}]}], "&"}], ",", "2"}], "]"}], Short[#, 7]& ], 0.8659980764350793}, "NumericalApproximation"], Root[ 1 - 10 #^3 - 20 #^4 - 36 #^7 - 19 #^8 + 136 #^12 + 117 #^16& , 2, 0]]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7693403197323284`*^9, 3.7693403426130486`*^9}, { 3.79400752536011*^9, 3.7940075527719126`*^9}, 3.7947538066198015`*^9}, CellLabel->"Out[49]=", CellID->579996060] }, Open ]], Cell[TextData[{ "Applying ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["N", "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/N", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to these outputs converts to an ordinary numeric result:" }], "Text", CellChangeTimes->{{3.7574235295546937`*^9, 3.7574235689956937`*^9}, { 3.7574236225426936`*^9, 3.7574236271776934`*^9}, {3.7574237529676933`*^9, 3.7574237844886937`*^9}, 3.757423970058694*^9, {3.7693403455017805`*^9, 3.76934040110012*^9}}, CellID->866515569], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", "inflPts", "]"}]], "Input", CellChangeTimes->{{3.7693404100915117`*^9, 3.769340411666456*^9}, { 3.794753845548074*^9, 3.7947538457790766`*^9}}, CellLabel->"In[51]:=", CellID->773765829], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", "0.378541970418355`"}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", "0.8659980764350793`"}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{3.769340412363874*^9, 3.7940075643162866`*^9, 3.7947538463520727`*^9}, CellLabel->"Out[51]=", CellID->280097882] }, Open ]], Cell["Plot the function and its inflection points:", "Text", CellChangeTimes->{{3.7574235295546937`*^9, 3.7574235376096935`*^9}, { 3.76933933651354*^9, 3.76933933905554*^9}, {3.76933956822754*^9, 3.7693395712875395`*^9}, {3.769340000757734*^9, 3.769340001411713*^9}, { 3.7693401331810713`*^9, 3.7693401435686293`*^9}, {3.7947535828608303`*^9, 3.794753596562421*^9}}, CellID->382638325], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", "func", "}"}], ",", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "1.1"}], ",", "1.5"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "@", "Large"}]}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"#", "\[LeftDoubleBracket]", RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}], ",", RowBox[{"func", "/.", "#"}]}], "}"}], "]"}], "&"}], "/@", "inflPts"}]}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7574232463426933`*^9, 3.7574233326686935`*^9}, { 3.757423415669694*^9, 3.757423420796694*^9}, {3.7574234875976934`*^9, 3.7574235101396933`*^9}, {3.7693403125700336`*^9, 3.7693403171147585`*^9}, { 3.7940075466147804`*^9, 3.7940075467137666`*^9}, {3.794753799059281*^9, 3.794753819607998*^9}}, CellLabel->"In[50]:=", CellID->764201869], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVlnc8Vu8bx2WE54myV1YhlRGlonILIauUlaSIhh1CSkZEZVVakkRJmflK Ko/rGNkj2ZtnWc+yI+r3/P455/V+nfvc1+e+Pp9zn1vRze+UBycHB0ck+/L/ e5P4gtD4PBPMrCvXj6vIY+Gum8OJzUz4oyq6uHxsK/aRUz7v2A8muNlzB3h0 y2B92Rr9uZVMSPUS4sq6JIPto1rp+H1ignvIlwzPJGmM5plA//OUCdUj5HW/ OUlMelO6zPkUJnhspUc+SJbEzAryjlffY8JcDvPREQ1J7C2z6V38LfZ8msmH LPwlMOcgfhcxNyYotAfYnN0ojt0Xk0oIPcsEIUOjwzeKxLDyMtVvg7ZM2KJm jls7I4aJrpiKZ5ky4aG2iq3Uf6JYc/jdNg11Joj73+4Vvy6C6cVxIbPfDBB8 KKEdv1cIu6Iq4pM3ywCclK7dNdYW7GnjtpeCMww4pv7sok/hFmwOb7jcNcyA 3km1uAT1LdiHlMgi1xoGeGVfjhn2E8R6tFKGaysYYK9uokJfEcC4O1/jVcsY 8OyFnfVorAB2QQwuM3IZkExQ3WyZvQmTTFuXv5nEgKbL788GzeMwk0MC1iNx DMg+NG5V+wCHBQ1tvXU0igFq16MLvyvjsJ9yh/t4gxiw4aX/5VgXfiwuOywl 9QwDDh8xTmwm8mJL+cschUoMiPP8cqd4Dw8W8HzkorYcA/SinGZwRG6McedH XZkEA3Sq6n5mpHJjE06PEwDHAPr2Nv3z61xYH5+mZAeLDs63G3ZVDHFitgti N+2m6ZC98f61s884sY7RteF+Eh1M/xbFCZ7mxJrKmrKJPXTodZYpzmjdgH13 v6S5UEGH01/m8lhtHNjBk1aPQsvo8Gbj9fdfHnJgpYf2La4V0YF+x/rENTsO LF+Y8ztPNh3yamkvnOAfZGCvTCTu0UHx40UubH0dIrd2n9Ozo8PXSxKnjzat whpvBVZpTYf3drPKTZ6rEDqftd3IjA5GZRodTZtW4VqT/5TFITq4eeesytit gFvopuvnFOmQISk57Ly0DCMX53vHpekQNNaxkStrGZxODOhdEmXPXwIcC9bL cFoll8OPlw4a00WJb/KXwLjLKCGSToNc6VO1r4IXAYNdTO4JGhTkhyRuUluE w3lCp+6N0eCi8P5HGcQF0IkelXjUSQNkvXVd6vQCqOy5mZ39lQaj8FR9zmAe +BNKvtXF0iBTbyg40nIWLFOuB1bepoHJnx2uegKzkJJ6UK0shAY2Vrzf1ttY IP6q8tW7qzTIOPn2vyQ7FigVNkXGWNEgIctvDYYYcKUkUfeWCQ2CJf5u7PFh QF7ZyblAxJ7vYFfbNw4GaEPPxYtaNFD6sG7csZsOBj+JJoZiNOBPlBF3eToD MV3v/ukK0iBxutZRTGcG6vuulGvx0oCFNSpe6J4G63HGTsWVGSAeFhV8Ij0N znOrmziGZ2C+T8+8tmwSQkVFOglvZ4B369fOrj1UqJDsefD51QwoGKUotFMo 8G/rC+MCdh2GsDxh7SUF7irLl6XHzwDXqXOnh/EUSN2/+8VN7xkQcAwhq66Q oE+PYRPoMQN82zRWtL6QQAZ9wnm5zEB2zIZQ02ASZJkeuOV0cgZGPHI7YpeJ UOxodF533wy4Ht4s0MtDhAXnjZJa6jOw+96z1cbmcTjg2vhTVWUGHvDER75/ NA6VV08YSkrOQIHzqwbh7ePQEnZWefnPNOTtrVM5aj0Gk+mBM6U10wD3Bh92 PBkG/ZgHDUqEaTj1uXb9zdFheOyV/S61bBp8B8Xf5DGGQF+v83zQh2m4kjVw 0cFyCFJ7tbv2Jk/DE/3c30lig2AgPFdR4jQNHiPfVfIH++DpCn/aNttpsJF6 ubr8vA9mxhRDHllNQ9spKDrowH5eZKMVYDANUuLai/d6eoFm+emdlso0JOfl lfOO9cDzOP+k4tkpuKougsJluoHhG++lMDMF6iyJ2BvULjCyzzRLIU+Bgpgo U6ekCxhKPzn9e6egTtOwlmTRBcbVmiGahCnQuPpJsC6uE1hrjPOF8VOgmzNL Oyf/C0zIG4/IRU+B7Pih6a2LHfCyWU466eYUJLmFWQQ2d4BJmnWXj+8UqGaM egzf6ID0A4Vm6rZT8PZ2lLzX8E8wDfDRypefgrm64MlTN9vBPcDVPVlyCh4Z edK0tdshMsDuWYDQFBDMbiqpTbfBt4Aj6we5psDyg1uX47k2UAsUaPxBnQTJ jSp1yidb4XjghrXc0UlwvV0UeGZzK1wKXNRI6JuEsBT3sNj2FngdOJx6qmkS XiruDPxyqgWEgwoujBZMAueYR9VW92bQCHrzuDpnEgofvvTL39UMFkFP6t69 noSVy6PdEnNNEBMUrub9cBIO2wS8DLrTBMtBVr9/B03CzSrnflpRIwxdpycL H56Ey4T6CD31Bli5Pl69uG8Smu5QDcU5GkA8uHuxT30S6CpyXK876+FEMOHs a3n2+56fAgpu1UN1cOIONa5J8Ayb2x3WUwcjwVFOm9cmoCrqc86Nwjr4E3w9 cW5hAtomyuVE4upgX8i5+XLqBPx+/sIYr1cH70PU4VjTBFisSm3vzvkBtSGK c6o1ExA/2Pz3yp0fMBYiprypYgKu32YZ3L3wA6RD1+//KpgAvbzbp+y2/oCE 0Fb78w8nIMvQkiKUVgsBN3wYoY4TsO/czqqI/BoYrjloH24zAaLXr3bYPqwB M0HuyijzCVh0eLArNbgG5LLTEu8fnoBNLcc0LQ1roKmlXi1dYQKSVGX5b41U g47E49RMqQnoi1mvCK+rhkxXl7W3whMgNr/p0GhhNQQvLTQXcE/A467tFRWR 1bBdYZsXTFKhrq98CVOthiRP+q+acSocaZj581qkGlZLy/UaBqgwKBD9rPtv Ffw8fgLX0UKF73oLJw16quBW4K0PxGIq/Gu3+7MUXwVddT0TPDeoYGfyQm/L OgZIKOsELoAKvKf5COM0DD6e9fki6EWFE3szCleHMIhkccVJnKOC12b+F/8I GKhLa6nsPEoFwSCls+gOBs/d1xLV9aigYxAquP86BtxF9Ytae6ngWC+26nMZ gwEjlx96ylTgXkxNy7DE4K7PA3dLfiqcD9gWz5TCYPaLfctJTiogjSK/IQEM nDm37bP7Q4GUzgsyPJwYaD8r53KhU4B0yyhQsAdgBKNk+XVQYFHNeyksAuA4 /hMuqIk9/rvaZ4YnQKndrYDQGgpw1VZe/WkPcH9a2DDqMwW6dexN+zUBDoga jD96QYHVAddeIrUSSo9e8Nn8mALZljHurT2VoO0XufIggQJSl1+6bKmvBLUm TCg2ggJtXxyvpedWgkLkUcMQDwo4ZGdnfvGrhFcFrm3zLhTIDO8TPOlWCdKD UU7+jhRwhBGqnl0liO6vDrhqQYHAzfv5eQ5XAh/NMPusFgWOPcqSdxSohFip i5p9uyiQ0GTR4c9ZCZymd77bKlGg/7rBy55lAqy9qem0kqCAXH76v7skAtxo J51v2kKBJ55dF3/2E2BpjYtmgqPACQ5qoPtPAsw6GHMbrJMh8/o/Y89KAvjG uqdULJGh464XceAzAWglMVt1WWT4QLlCflxAAKrAj33aJDJM79wzMfSKAAM1 xzyUGskwv7NMvCKKAA6zHrOZ1WSYvTi9fOEmAbrk7obLVpAh4oCRuPl1ArTd qHsiXkSGgCfkrRNXCWDxnqr4OJcMO3n2iaS5E6Cha2Ph5iwyPG9475Z8ngDV mqZ1fE/I0DkVeATZEwCdu3wqNokMS3vuUX7bEKDiftzIhngyCLprKsxbEUC3 /L3n7Sgy0MJUI9XNCVBGqV9aDSODvgntxXsTAuwVmYwOCSLD011ZXK5GBCg2 4Nu84MPWMy9td8aAABq+quyTHxnMKpt2pBwhQN5Lsx30C2T4u1YtznOIAKqN V/676kSG+OT8yi8HCZCzFI+op8mwa6GK8H4/AbYrfWh2syKDTlLjf137CJBp 0+gwakKGT5xbDPX3EkA2Yop01oAMJR/d8GQtAqTl8/v36ZJBSAZX+mMPASQG dq7Z7iUDFasdJ2oSIJXXPL5DjQzMR1WHDrFZSMdT1FqFDAs9aZ5tGgT2f+N+ ZpM8GXz/nJRMZzM+5aOaqRQZXsUcY2WzOZ7QVF4jTAYJgf2vKWzmmZk2NthE BuszBzovsOeLlsR3VPCQoTu8+JAYu/6/Y7vP6f4jgYKk/T1Otr5bgRZTn3+T wPyFsq+qNgGwr6bN72ZJ8NwiozyHvR5uDuOCJ9MkkO/X7LykQwAzE4PkWBIJ qg85n79ygACJCYevXR8igfq8DUeeLgF+/Tp42qObBJW3KE4ahwkgLqWjY9dG gjPU+2Jz+gTIeKe+sg8jQd39TkvdYwQgzuwcVPpKgnNmxnIVZgRQ0VYhiJaQ 4Eqt3Uq4JQGKKuWiFrLZenAf7xJsCbDALXORnE6CaKfqF3pnCHDQQuJY1xMS fBGQCV08x9bfu5m/NI4E5ceYl7dfYeuX2zSTHUmCw30PKU982Prd+Vof3yCB 8/7yjccCCdDB4ngY6EWCpAPvpR0j2HoPrAdcdCdBp+aRmO+xBHAKX7E9fY4E Lx5N3HZKYOvln5Pce4IEDT/Wt5mnsfWeZKxuMyPBXt/DVmlvCOD5dHpI+CgJ /Kt345Q/EGB+GylzTpsEj1f7zafK2XoOd6mWiJNgg1xxksogW0/0T1zWZhIk XzpFNyYTIKGhhfaQjwQHxc5KpdMJIGb3o/jaKhFq3ofjFzgqQcW37KDWCBH6 QwfpxrsqwbO0RFqxlwj56TImSjqVULhauLblJxGiND2m9Awq4UDce4xVRYTZ HaJuAg6VYJb53Kz4HRGYPuqxhnGVkEBN3ZWZQQRabODz3seV8FPt4aaUZ0Qw lygvysqshDNf7/30u0cEf1qX/cA3dr1fYY6aPkRIyFDMb56thETuc1cK9xGh Xp5TIu0qAFm90Fdcgwhn6+JL/UIB9Bz+Bd3ewa63+8CngDgA6oc3UdbSRBj7 7X2dIwfA4AQ1jfFvHHCL6Rt0KQBzL/xaNdjnzgq1+zq8+zEwq8E6n9aOg4DS 9cw+fQwyaEIDfwns8afnNTFTDCxQKbWteBycCgzedJzB4C359z/fp+OwKWxS Yv02Bvaa0dpFruNQ+vec8bVWDPIdOw9KnB2HHJ4327N6MeCMVkIRtuOQFUNo mxzHoKirzuKEKfvcq6se+mUJA74wvAdTbRzmzHkLzyhWwbfa1Geav8cgTH6u vTCsCuSd3q8VJY2BfnCeRsKRaqhtbT+gGz8GMjPy4nvMq+HK0d8B1VFjYBXR VzxpXw0lqsenuoLGwG1b1L9n/tVgvDzdveI0Bgo+tziZb6vBM1WjyGjHGDiH is/cFqqBK6+8agojRqHh9nq62moNlMRU6FYFjEKiz4XtV/hr4Y+XQHGnxyis /3c9vFyyFpL0itJ/W4yCjpvo52cHauG/3rnrhpKjsFvvld/J4Fr4KxSm2lM8 AiIfvHYULNfC47vxievj7HO6/J8cFVwdeL5+WLTUOQznjR9sjZOtA8PytA7m j2E48L0qgkOrDuam8sWIH4ZBnStOQd+xDk5adbyquzYM/JOhppT3dSAoKl2Y vGEYFAbSdk1Y1MP9N3ltiopDwF2tsjyQ0wBu30pZ0iJDMNoTcMCN0AB6nQRh UZ4hmO9+wsHV1QBT3D/tN04NgtjrIMOHGxrB7MrCyHTxIKxtkJIaP9cIGzWP MP8zGIRPknI1p2SaIKqibbPJhQHQqxTSffuhGW69jArTPD0AGk0GrPyqZggN 20eRNBkAWe2ksJb+ZvA/mPZtZvcAtHYVSp/EtYBLqYfHw+V+qCCd4vP0boHD +WvfhpL6QdWvNpW2rxV+v9x1KZDQB+5v/Wwse9vA7+bdikzpXtj1QLRZV6sD Vh/M/vLf1AvZS4D3PtoBMenOUwZ/e4AccMkl36YDnhO0xcfHe2CPWJmxQ0AH YP9G/BQ/9ABX3jM3+9IO2BJzYHvWgR4wl1M8vqb3C0oSJu9l23ZDjM1Y/sqp Tlh8Ze6Qk9QJuutPJqwKu2GrkXtveWQnrM7z91dUdYPhZLhDc0AnuL7g+qPb 3Q0p2p8cWPad8G5LR7/LWjeo1Us46sl3wnGRdKPTFj3gziI7thX9grTPq02T Mz3wyzDCaelnBxhur3/Yc6APiib+O2ci8hNGtr4d1f0zAJ1BsrKz7xuh93PT yZgLY3BjfMYpL70aBP76LomvkgBheoMiIuUg/nbc5m7zBPQ/y7i2kpMNipef qvsH0eCShhytOicFSfg6BIo1s0AWScY+2f8JDdRs4+UOnIej7stP25wBXS79 /oCRuQSftOMjzh+vQ4bluEOzxBUYdDcf2lbTgnYvGlbGnFmH6YkbGg3kDuRG PR2Y/IkDuyx6rpa2uxt5kQNVbxRxYpbDe70vfe1D0gVNSaenuLH12x65x/YP IW6PmSsrIrzYhYj8ITOjIdTyXvXKsAwvVh0xv8Xy5BBKCmAehe28WHxk1I1T nkNojfrN9dZeXkw0+pX5+YwhdGt7kcPgKV5sV2w3LXTjMIod9JJWesiL2T84 ppXfM4w8VWMWX+H5sMJnyt+EQ0YR+oI/MbXIh0VfKjXUjB1FFBlj3cR1PsxB x6jZ4vEoSmydDt3Nw49xdF4YiikaRXa6V77Yi/JjNoLpf5cmRlFW1mb3S9r8 WJjhvTc+amNo9pF39Vkffkz26z+KzasxNHT7Rtr2EX4sXsF014W3Y2i0ltrB IvNjc3FJvr55Y6jtxqRy2Qw/Vmcvu3z/6xhSOkfoVl3hx3wX9Phqu8eQSYSd er4IDsM0g3ftFxxHzimeqlKmOOxiDs1XOmIc2VEu4FZzcFjFrtGk4thxdOvz Wy6jfBwmWtRRaJIwjna55nREf8JhtV/KGAEvxlGlD3pD/Y7DlBojfZv/G0eK gyn/Dv/EYdQZUd9bk+PIQQGWRZZxmL4/b5IwcxwZEH+crPqDw54urBTkLo6j aGVlc3cOPGa6PkLv4iSit2ig9T4/HssV/OCjLktE8cY9JAcZPHZV64jPiA0R qahccRw7jMeqP2smBjkSUXRC4Y4RAzwmrbetAHeeiBTvqVj9NMZjTYa89P3e RORN2nXsoSUe22Xb4Z18l4g2GVkl3TmLx6L7ahKUE4lIfCCiVPE8HhtwLsv/ /piIRipK7/znhsceeLykTWQSUX3ocu2nq3iMFuzhbfCdiDgb/riLh+Ax4z8O CT1VRMTUnfU4EYbH0iPM870biGiH5eVzN8PxmFW8Ju15NxFxhPB0593BY4Uv VrxmmURktqXjkncyHtsoR3sQt0RE4eeV0/Ue4TGXrJE82XUiGjI9uuVPKh4T zKuZOY4jIZ1IX4dTaXjMryLRK0uJhDKyE9sd3uKx0KVce4ndJLRBVi7zQw57 PXtqjyZokdC36PY79Fw89vTtqkSwPgn5rpnusijAY5kjYlwzxiRk+vU7uBfh sY+SWozzFiTEOflBwP8THqtMuFx73JGEtuISQs5+xmMNddFFlS4k5B382uPQ Fzz2iyMjba8HCclEehdv+orHKEFd/rIBJPTQqfRfdAUe23TuqOzsAxIS39ey 8r0aj4k/c+a79IiE9s0tGSrV4jGFjpD5geck9E9bVSP8Bx7be6ywsfYdCcXs 2pTA0YDHDkc0lurmk1DzilX7rkY8ZvKV/LqwhITGG0vtjjXhMSd1meDnQEIe Ny+2mLfgMffL+10F6kjovkhlgk4rHvN9Y2MZ3UJCO3wv7tnSxu7PoPeB5V8k xLQ98HqAzVFi8du8+0kotl+wKrUdj90/kS0wPkpCXHeKw/V/4rHUe5W/7agk tPFWV0UvmzNq+klNNBIyqVa6dKGDncf1hTY0T0IV9kdc+9hccmDLt9IVEiL5 5j9Bv/BYxbXd73ZykNHW93PTT9hcl2eSkrGRjBg6d8wG2dxOcb0pIkBGXgq1 TzZ34rE++fBL8SJkFOwn+E2bzcQzz23WpcjozKXCdGM20x7/dzhAgYx2fiMp HWPzUmvbjgkVMvJtGtfdx2YOvmlhZ3UyahlorxZiM86Q5+/PvWTUZtWYM8yu J3pLYeqYHhk1jA23PGOzbNmhrm8GZEScFNpqwGYVlj1ompKRw0OXmz3s9ezZ FfDxrRUZvZMu6XBis5574hMpWzI6JMPiaWX3wzgjNzLJiYz+YLN/1dhs3Vfj xeVKRidF72aHsfvpKDxqH3qZjKQOBwx8ZvfbzXL1KN2HjDbXXLs/wvbH666Y ulsQGTmN7E9bYPsXhO2R7A0jI8PPnqzlZjx2e9WCyzKKjC59LAicZPv9yDe6 XyeJjMJdy1+msPORnvuq9mMqGSWUPhMwq8djOcTyIvmXZHSC9NmExs7TN3tm LH8uGX0ff5C7ys5fbQru2u1CMpLbrZjhXoXH2pqUnedLyah0qnjhG+CxcX1n 7eEqMnpcs99FjZ1fpQsv60cayKjL9BOf7Dc8dilqwHmsnYwWuLxkl9j5p9U4 xpGG2c/Pa3G6/ofHNCjPtlLIZKQLYSlzxXjs2sbeT9QZMtKfD+fxLmT7ZWY3 NLVCRkk3VuXFP+Cxg56p12Y4KKhnPvmOCft7vfmgcyOdl4J0aiXNXbLZfrbZ aLHEKMi5U/mW0Su2n6et7y5pUVDt8X99Y+z9wjIoUeb3QQqK/Sb01SwBjyU/ aSleQRQU/Npt4Wk82+8+88E1KwqK8xdYoUTiMflzpnu4PCnoni+8Mfdn+3H7 7g/uaxRkt326etwLj719/cNpYygFRSjEHXS5zN4fiUax/HcpyGDeNGOjCx7b d9lgYHMWBVnvfF8tZI7HguMj/IQ+UNC+qKnFdvb++vVDJbdIMQWZLuveCEB4 TJ92WFO8koJ2PqYwLu7DY8ev6cZsHaCgproo4cWteCzhUaiU3DgFfZkjHf0l zvbjvy+F8pMUVNDIV/VoCx6zXdLp37ZEQRNcInsIXOz98Ka2xk5hKmrI2eZa OonDMtOv1eySoiLjsPlXueM4jEQodlRToKI/1np7IgZw2BUOzTuaGlQUEa4/ 8KsZhwXE7u7TMaciOp8Jc0sBDotLVoo2jKYiJ8G8hdarOKy8VXC+OZ6Kijet rwa64rBJ/MpFu2QqKr+n//ivIw4zj289diWdimzEXeSq2P/HTVHB/EllVKQV 17BzZTsOSwloSOmfpiJvA4m/ir38GFZcsuHiLBVtO1batrGVH5tlpAfQlqlI 01Oiv62aHzvldc32H/cEMlpTseQr5MfE3KUlleUnkNbAlmS5O/xYmp33a//T E6h4yD2wYQc/1vTYfsvqmQlkOBIt2yfDj/3pMIi6c2EC9TlKExs382PO1mIX n/pMoIaVO7dOL/Nh8qaVKhVxEwiXZ2G7XsuHvT24pZC3YgKtiw09fu3EhxXI lFZkKE0ihhHH8w5fXkz8aHVv6e5JxDK6erz8HC8WeennXJP2JCIdOH0hzJIX O/WJprpsMIkC+rqLU3byYr9NlJ+cODeJRGLDs3mIGzHjgKc+HE8nUeTihRAh y43YQEOonBvvFJpxt+oe4+bBjBl3dUMFpxBz80/jw0xurEDkiW2S2BQ6c6vq QFA/Nxbp8un+t+1T6BQrHRdWwI0pL0wtCRtMITV3ftux09yYv/zZ9prQKeQi 5pivncaF8QYfiVSenkJVy3KcfIKcmEv5UnANawopS/PbsRY3YGWrRT6uy1Oo babicuXwBsw9YtvZV9zTyFP7ddamgg1YdTzvfjH5aeS73H0vxHwDdvtlxwy3 7TR6/SNk5HskB7aAeTiQCdPo2vuQ2uav6zCGT9LIfjiDfjQ/q/7RtgRTXP4s +eczyIc+dSL02RLM/bEpSc+YQTm23TTlC0vATRPb/zRvBsn+UY0Nnl0E1ZZX R+79mEF01RxJvOgi+CcUWPqtzCBXQTPh1TPzwCHQ6nnIlYYaTt6MDyMygZ+n SK38Mg1JsUIiJUKYILyewtjnS0PNj7Z8WMYzQYluG6Bxk4YSAwjXEvYzwKx1 6IbiExra/8ib3y6ZBimJtHjeRhpyhHufem2mQEFw0/vOPXSkoo1LndAggRtd SGT4AB1t8DBXSGgkwtsWiQiqPh0dSQ8QoLsTYceD7Q4rlnQk/1v24PyrcdDg O8Qrf5WOhg2034ZJjcERTs/Lnm/oqHq2cTgwcABuj/t1BubSEceOroLmmn7A sOsovIiOBCP2BguL94NxRJRECoGOzJNVuuKxXrBce17/uZ+OnG6GVPSqd4PT Uv2ODcIMFGy9yy3X7yekd7c+xkkx0EmRDxRcbTuMlHb+E1FgoISDXXVeBW3g Gjjaq6LBQHqUFEWLpBa4wlqKszRnIGefxedJ9xrgY/vavJ0NAz0mF6klp9YD rZDzwnlHBjpP1J+MeFsH/j6CBwMuMZDMF4dV685aCJlWnnwWzUDtamQfO58q KG/cbfvmHgN14SJ4EzIxWM3Vwj6mMFBrFerBPgHcvnzkOSGDgTZYfLk88qkC MBMj7vp3DMRLtmp3PvodOFWO+//MZ6CF2GDWzsGvcJdsa0b6xkAhR4LdP6t/ gYYap1JaFQMlrSrUBVA/Ay77gsJSAwOF5/+YuPWhFBJdvX/z9TKQVneEk4d1 CaSO3MnVmGegkYsdoi7K+VA7sI8FK2y9FamWGk4fYaGHcsCGg4nWCGcFr2Tm wul20/pAASYi9wuWvLnwDqKbfwvyiDJRsuyPJpeBbCip/2D/VJqJzDefKf7n ngXCGJ5avoOJjMLtM+MdX4NhRYW6uQYTVQpWlol3pENAuc/1wX1MVP5d0nrl ahr8Km7n/nuUiV4cxl35s/oEOAsiLZPNmOhimMPSjrnHoP1BK1XhBBP1fSkv r+Z9BA/fPN5u5MxEQq6nlAQkEwF7ZezV5cbWR3tWsjJ3D1gvFks8rjIRt6VZ yhJPHCg8zVld8mMiP44tH96diIGTjxwM44OZaN9thfanbVEQmcR3XyqciWQU /iYmcUZA8f2vHR/vMFEkTirLsCUMxu56Sh2+z0Sd9iGuy0vBsOWOjGtrChOV tfa5aUcEgkFES67LMyY6q1Ftc9LVH/xvhrOYr5iodc/mYd69XpAZonEw6i0T MVOqhT+aXoL2wNEI4TwmOo+fZun/doW/fin12Z+YiCG6ss0s1Bk0vI9u1iln ouGR1ZzPovbgcmXOvq6Sifotok9s+u8kJLlnZzj8YKLGj+kWbyLMoPKCLXWy mYl4VLweRlsdBYYzj0bYLybaW+IodNziAMidKbuO72eiN4MZzw2vqYO13WVC +ii7P1FbDmduUYTbNpI8GlQmEp/wprf6C0GhVaMl0JgoSv3UmODu9cqR42Gp J+eZqFZwoHJ711ilgMnuofEVJhJR/j7LvF5YKafIeKjLwUKeLybu7OFYObL/ dZ1ONBcLWT7NTdnm+kXfWvZ1f9NGFqrPD+Rxc6PoX3oZEi6CY6GqH0f3/H2x Ad2WOqnoLMBCbhM25beLRdHTZ6o/3m5hIfdp4rKSmhIqFNtwlS7CQoVZpZNl 17VQ3eP+TfslWGhzkukoZ9chNCJUUnxbmoU0Ot8IaIwao6Xk+7b1sixUnS6R 4UiyQoKCF39vVmQhyt+qTnKmLVJJOJTuqMRCMXVcCyJvzyJ9nKjBmx0sdNJm wP2NkBuyj6eRpnax0IOutsDB7ZeR78YfcdoaLHTK597LNVkfFBvzavdNLRYK xHkfWcYFoHTO4PaafSzEp08vVRQKRqWR1oGbDrLQke/jm2QLwlDLXxUJu0Ms pFzxNWtsOgKRb/379kqfhb781zLkMhON1lZ7XahHWUgGW/hUrH8Xid4o5tQ8 xkLeXGN6M4v3kNpyfE6IGfv93m1YjUQSMr7uao5ZsBDBI1knxe4h+k21MDpx goUypHlfXxNNRfmO+w+PnGKPt9pxtEnuGbrQpKDjY89CXiEGFy/eSENih/Ea a2dY6M7LNv7dOzNQU8GiyoNz7P6RhD3SpN6g2/Jj8tKuLBSSJ21zzjobUTk/ Cx28wkLUWm7yvE0uSgt6jav3YqHR35nBHip56AT1Hpe9Hws9ytvX2aFTiLgd g9bIASw0/O+YVUZVMSpvdFkMDGahjd6ceaPxJcj70HEGZxgLHYpyXzEOKEUK BXsnHoazUPuH4tfXIsrQvRS+/qIYFqqoyDw2hf+O9DnnO/TjWYj3mGpiWRIB zQUON7U+YKGff5CiqhyGcij1Nc7JLCRh4+Bt8aAKOTmUVMw8YqGA9BXi9801 SLAx/XPYUxbaIV9ICc6vRTV6cYX8aSxUMjCYEelWh9TknDN3vGH3f++hov/k mtBYssmLsrcsZPYmNINvRwtK3aD16FguC8lXb63msmpD62SemItF7DxR3AbN b3agEnvWrbkSFjKWxB8xr/yFLjUMXI8qYyGf3ZLdMcJdqC2v6PJrAgtxcG2Q NpjtQdGyaRc0qlioFvvxQCy8D+1PjjlDqGWhyLbe6fatA+h1wBmLwWYWeve6 2ro1bRjZko2MPdtZ6IzF0uf4sFHEZ69xZOUXC1137/mXUD6G/HW5NCUGWCh4 656vs7+ISCmPviNnmIVeOZbbDM+RUP/WPgWdcfb4vbnrv+QpyJCjQPj0JDvf KvF8z7MmkEi9/VLSEgvh6/dPHHWko4aDR5myq+y8Fz9XV6Yz0K2Puyfz11lI T3uK5+pxFiIncgw0cc8i05ZI5ZP8c+j5v+lfZ/hmUfvK9y/TS3PI6lp38yR+ FvGipKl1+jwqs/1I2Cgyi0jJI//+W1lEnnWpZU/EZ5F5y3ZRhuAykjsYUaQk PYs+iU8dbNf4jeJkbN8YKs6iSKk7rxqSV5EjcT3mtuYsilXkZraO/kOUwluk Ne1ZBKo3hY1yOAwCbv45enP/LFKltI8LXtxgkCC68jfkyCz6LpdTnMfiNJAa Dzm3ZDCLTDSi9QaquAxyCpa+BxnPopURrWd707gNqkwWQq9ZzCLD/vcW6q4b DaxFAnuZ1rNo89v4Z3tP8hoMjc7q+J6aRSphlNw9pnwGS6HMOc8zs6hFocBu wgpnsCtv2tv98iwKHQs2C6gVNPgScrWZ6DmLxh+seJ9a2WxgbDy509V3Fj3l PBu79nKLgcswhXru+iz6cqmzrmVKyGDmg/uxoVD2euQ7zj94LmwQGkzKdro1 i+YevIgvthQx+NrjtSM5ehZdqX9pH/tS1OB/AzRt6w== "]]}, Annotation[#, "Charting`Private`Tag$9547#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Epilog->{ RGBColor[1, 0, 0], PointSize[Large], PointBox[{1, 0}], PointBox[ NCache[{ Root[ 1 - 10 #^3 - 20 #^4 - 36 #^7 - 19 #^8 + 136 #^12 + 117 #^16& , 1, 0], (-1 - Root[ 1 - 10 #^3 - 20 #^4 - 36 #^7 - 19 #^8 + 136 #^12 + 117 #^16& , 1, 0] + Root[1 - 10 #^3 - 20 #^4 - 36 #^7 - 19 #^8 + 136 #^12 + 117 #^16& , 1, 0]^5 + Root[ 1 - 10 #^3 - 20 #^4 - 36 #^7 - 19 #^8 + 136 #^12 + 117 #^16& , 1, 0]^9)^3}, {0.378541970418355, -2.574787585519685}]], PointBox[ NCache[{ Root[ 1 - 10 #^3 - 20 #^4 - 36 #^7 - 19 #^8 + 136 #^12 + 117 #^16& , 2, 0], (-1 - Root[ 1 - 10 #^3 - 20 #^4 - 36 #^7 - 19 #^8 + 136 #^12 + 117 #^16& , 2, 0] + Root[1 - 10 #^3 - 20 #^4 - 36 #^7 - 19 #^8 + 136 #^12 + 117 #^16& , 2, 0]^5 + Root[ 1 - 10 #^3 - 20 #^4 - 36 #^7 - 19 #^8 + 136 #^12 + 117 #^16& , 2, 0]^9)^3}, {0.8659980764350793, -1.349223829190437}]]}, 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->{{-1.1, 1.5}, {-7.787391628971427, 5.151875832803718}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.757423510631694*^9, 3.7693403222318273`*^9, {3.794007529414523*^9, 3.7940075542647014`*^9}, 3.7947538204409924`*^9}, CellLabel->"Out[50]=", CellID->240724285] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0]], "ExampleDelimiter", CellID->744903652], Cell[TextData[{ "For functions with a repeating pattern of inflection points, ", Cell[BoxData["InflectionPoints"], "InlineFormula", FontFamily->"Source Sans Pro"], " returns results in terms of one or more undetermined constants, ", Cell[BoxData[ TemplateBox[{"i"}, "C"]], CellChangeTimes->{{3.7574232096236935`*^9, 3.7574232234606934`*^9}}], " which can take any integer value:" }], "Text", CellChangeTimes->{{3.7574235295546937`*^9, 3.7574235689956937`*^9}, { 3.7574236225426936`*^9, 3.7574236271776934`*^9}, {3.7574237529676933`*^9, 3.7574237844886937`*^9}, {3.7574239056886935`*^9, 3.7574240409966936`*^9}}, CellID->957055084], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"func", " ", "=", " ", RowBox[{"x", "+", RowBox[{"Sin", "[", "x", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"InflectionPoints", "[", RowBox[{"func", ",", "x", ",", "\"\\""}], "]"}]}], "Input", CellChangeTimes->{{3.7574232096236935`*^9, 3.7574232234606934`*^9}, { 3.76934042326341*^9, 3.7693404249484205`*^9}, 3.7940072694291735`*^9}, CellLabel->"In[1]:=", CellID->424470579], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", TemplateBox[{ RowBox[{"2", " ", "\[Pi]", " ", TemplateBox[{"1"}, "C"]}], RowBox[{ TemplateBox[{"1"}, "C"], "\[Element]", TemplateBox[{}, "Integers"]}]}, "ConditionalExpression"]}], ",", RowBox[{"\<\"Properties\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"Non-stationary\"\>", ",", "\<\"Rising\"\>"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", TemplateBox[{ RowBox[{"\[Pi]", "+", RowBox[{"2", " ", "\[Pi]", " ", TemplateBox[{"1"}, "C"]}]}], RowBox[{ TemplateBox[{"1"}, "C"], "\[Element]", TemplateBox[{}, "Integers"]}]}, "ConditionalExpression"]}], ",", RowBox[{"\<\"Properties\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"Stationary\"\>", ",", "\<\"Rising\"\>"}], "}"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.769340426333251*^9, 3.7940075696105385`*^9}, CellLabel->"Out[2]=", CellID->440208866] }, Open ]], Cell["\<\ Plot the function and a single period's worth of its inflection points:\ \>", "Text", CellChangeTimes->{{3.7574235295546937`*^9, 3.7574235689956937`*^9}, { 3.7693401833391957`*^9, 3.769340185569536*^9}, {3.794753674997509*^9, 3.7947537137322116`*^9}, {3.7947539457279005`*^9, 3.794753949853469*^9}}, CellID->225318275], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", "func", "}"}], ",", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "7"}], ",", "7"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "@", "Large"}]}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{ "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{"func", "/.", "#"}]}], "}"}], "]"}], "/.", RowBox[{ TemplateBox[{"1"}, "C"], "\[Rule]", "0"}]}], "&"}], "/@", RowBox[{"%", "\[LeftDoubleBracket]", RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}]}]}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7574232096236935`*^9, 3.7574232234606934`*^9}, { 3.76934042326341*^9, 3.7693404249484205`*^9}}, CellLabel->"In[3]:=", CellID->547799196], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwt2nlcTN//B/CWWe6drZlpkTZtaEclkZo3ki2VdkkRiZRCJdlSJPFRsiWR XVlSiVIxb4mKlMiWkBDRqlDafsfv8f2neTy799zOmfN+v+6dHqMTEOYaKCcj I7Of/Pj3OnfT87aREXX0S7r6G09r4YyYMV7pA+r4O3iDFX1cC6dtW3vP8o86 bhYuX+h0UAtN4uWPrulQx/JDr4W1O7VQmGwhed6ojlbxn/yvBGjh64uHDl68 rY51hpZFz/S0cPVLN6uFG9Ux5Ofnxv5zmrh3cv2O9BY19KvvnnsmQwNtfB5d 3XtzNG4zXbLuyFw1VK/8OCk3TRWnZRfa1yioIrznjg3dOQpvb7jyZFabMr70 Mc7f7qqCWcyElfdLFfGEdsixiinKaLh7Q7Vyiwgd+1fzh82Vsatr1rWz70U4 WBcYb2mmjIcs+lwtX4nQL94/7Iy+MrYbGgwGVopQt8V1zhaRMhavHTKVvyLC rCtT/5j9UMKZTyNsDNaL8JYV2+voKSW0m5Hy3VJWhHWOZ1UCmUo4WuHuKJlJ QtQN92rJk1FCkz1C014jIUYc4t0aHlBEjeCH/7XrC1G1Icoj7aci7k6/ZN2l KsRlQQsOP/6giFeW3gicLCvErp29IvNiRSzfVae984ICCgod+CPrFPGJbeu2 yh4BLmsYaFwQrIiLbllsoVsFmD+UezUtUBExuzjI470APe3VHc19FTHu1hll QZUAT9V1JgXOU8SK1h09cpkCNG1Lo6r1FHGxoeHAgKMAHXV+yB9/LcaLU/2n mefxsaxKJs+qXoy8WQ4eEVl8nLpBxa++Voyu6xfxMJOP4+7PKFKoEOMlUYxT xAE+ygamhSTcFOPvJypaLiF8vJU1+8XGVDEeTS3IqDfko87E0xedHMWYG6rt yLvKw7TXN93a5ojRbBu/JfY8DwU7H8skzRJjRayn/EgGj+zPb58H08SoNar5 3qgDPHy5caHCdEMxFkGWTkk4D/cX/t1kyBLjnXOvGyum8PC3ncc8Bopwyx3V qO/VXGTdeTZ3VokI1SpDkuQecnGUjcvcuFsiDPSy3TJWykXrKQvmyFwTYYe8 +6d9eVzcPGHG7MHjIpz/ZHhZw1EuDo4xndG7kZz/LmlbzAouyssyp34eL8I5 USe3XWJwUWlHnLWenggfy82Xikc4qD80MiVAS4R3zfLnJvZz0L7/r1WTEqmT CbYaqR0cTOjusmwkdZJU+Gis9hsOcpobJ9a/FaK+njBFO5eDwvsFBuXJQsx+ 1W2fEMjB2Q9Tme77hDgML3Wil3Mwpiq8+VOCEE88Ow4blnLwc61Jhvx2IWoW 1Bjv8ODg7cbzCrNChGjpZawwMJuDAb8P/743V4iemwvSIw04eKx/w/NF9kIc fHc1/5s+B6sHXXI/SoT4DOyyVuhwcIo8P1h2ihBn+pSJ1qtxkCfc/Q7GCnHB uUV6rTwO3jSMLJeSunRtXD5vbg+N9Ysvzsz8q4D1aysFVl002i0LGLzbrYCz ufWzjNtpVAxtCBv+oIAzg0Y1GX+lsTThkee2UgVUcR9U3v2WRkHxZf0tkQoY HTV9JOUBjdG46n16iAKGR0Yt/FlGY/ND3bTiFQq4QcvmsA/SWPg8nft3kQL6 uq9tk5TQuKw96We0mQLaTitp882j8Yb2Woz6KkDz+ZbT35wix0uPmd4nfaDD VluRl0Ejz7s8XeGlADPebSpLTqdxZbJmZFa5AG0st3H9j9KoMlxr2HBGgGlD kh8OB2iMeWt5yNZXgPV2lzssd9A4btNymSQ3AVbOP/QtZBuNz8UHQl/OF+D8 2uknLm+h0WT+1zlhUwVordlFT4mm8X3R8cHTKuT4kPXYQ+tpnHl0OJBRx8fT G2tkFgXS2DHJ+LlLJR9VxDdONa2g8cQTLzgp5ePnRY3rIgNo7GXkqVnl8FG9 e0d8jj+NFzeuqA3ax8foeKd9S31odFVImV4Qx0dTt4eVyotpHLlcmi0Tw8eU q20/n3nR6N2svOv4aj42HaW/L/GgkV5Uaf14Nh99np1de8mFxlttvRdG2fIx KOmlSoIzjQGJOoorLfl4oela0BonGoulMe2DuuTvVXu9tHWkMcTM9KyZDB/7 jBu/a8yl8Sk3lZtazMOYC2H9V4DGXNcDmjp5PCydNWXBXQmNKceTJuRe4mHu sT2rX9jR6DI+3q3mMA8zTlq+FNmS8TMjTnDCeHhAtH5C2VQyfm/4teOBPFSK 80vutybjn4ZIDXx5GFAnXDKZ2MUv8JPDPB4+igxmFluR8Zs9jeP1eBg0z9T1 twUZj662YjUeXizIKnUmTmE7O58R8nBE98Ska+Zk/JE5G6VDXDSMeEpHTCLj c61LBl5x0cXwttrECWT8H8snSTVctKp2ic0yI+PtJn0Y/YDkwPrs//SJXaoN 5a3zueg670PoeFMaa7+qLYjYz8X46eKvnsY05piNWiofz8UGg32mP4xoPBCp GJa6mYvNLlWFccRO8rxDuau4mAV2gSWGNJrNpy5IlnKR8rML8yUWHGQU1rhx MW730SQZ4hqtoYY24GKEXn7ZIgNy/cD+ti1TuLj7nsbD4fHk+ld/DXPMuGjW aJqVQ+w0rUPXUJ2LTSsCX6gQ13h8CA78xcGpBXZh7HFkfMbbrb0/OBh7QSD/ aCwZ/+nVgfhmDmanrFJIJnZa/zT/TC0Hy1/6+GkTmxVVl098yMG/KrP3tOmT +Y1UvpSWcnCFxO1XMXHN/nt/32Vz8HWNW6gfcc7zO7zQ0xyc8zRmqQXxAbVi rcGjHDwlnuDPIXbKyp+ptouDxssSV9zVI9fvzHHPjuHgtf75jieIBVZXVlmv 52Cp0ktxDHHN/XNJnn4kV1+uYNoS9ykt99pDcs7wedg3XWKdVVr6RY4c/K0q J+EQzy982/VtFgd7evYO/9SlMYI6fme0DZnf3wiNd8SnFnsmzTfn4Bb1CQcq iSsuK3ptMSTrv6Q77yax2sIDXY2jOHg+ySs8ldj+1II7fAUOLm0LrIgjDu2k kuxYHDRtnWMbQXwUHnqGDdHotmdZxSpiPBivd7qXRs3toiU+xK3N0PX0B41P Zpa0OxGLLYdLZT+RnFO+E2FPPH13yV7zBhq/8SO/TCMOfBntuaKOxt0GMNmc +MB4K73DlTROcYtZbERcFN3TWS6l0Tlm+xw94o9VuaW/bpG+PHKxV4OYo75u 77gcGtcWLPAcRWwZYuzpdYHGBbyHy8XES+98000kOajFCOUJiBMEFzuLDtHY OePYAg5xrv+K0tYkGm8XpiuxiRtytfeqxZHxudW+DGJ5ufceCzbTCI07R8sR m7id0N0aTuN3PwHIEHue9+68GkTjrLcPHgzr0Bj7S7n0nR+NH2IHMoeIsx2e Jwo8aWxSlSsfJH52LMVDspDGT2KT8f88+G2hbrg9jX8OPr47QDxuGrfztA2N yZvNY//ZeV9lSR3p48iY/GX/HN24O1GO9FXpmJMe/3zWdJaHBXktejvL/Z+r t8vorlSlsV2pb9E//6q903FYgUamBdf+n7V0tpQ8YNH44ErNmH+eu8E68fcQ hSMKhxv+Em+4/8t9/C8KE1WvrfnnE0o3dLzbKDS4sbasn7g8MLwj8ROFqQq6 DX3EHbdMS243ULjoqu7FP8SjqB97vtdRiCtQ/TcxLM5yV6+isD/aaWIvcfDl QB1HpLDqvPabbuJDA7odWwspPK27j9tJXOrYVHwth8Ltd5pLfxC3nDy55/0F Cn80bm3+SqzQ6eOucJLCxoPX138itgZVHThM4eVzdf7viQMOvmgP30fhQMa0 s6+J9zWnFp+Jo/D665lmz4gLLFz2PNtMYfWBWf2PiN/v4rvLr6dw1cejfWXE 1MtH2parKUxuPaZTTDxpfGL7Sn8KJ5efXZNL7BM9u/iIJ4VKmUoPLxDvqpLb 83AhhYceLDBJJ85RQ7c/9hReu3bp4H/Er9Zu0zaYTuFTxt4fO4iNBH239xpR uEs10HU58R7ObuMhbQo/g2qNE/Fnlvhk+CgKN+9Kb5xGPEM+U/CZT+HfNaHh Y4lPjRjHejEozDqktFVAPDBQ1P3oLxvjnin//KVN7n99s1fYdbNxy9T+8rfE 4m5/h7Hv2RiWmLrgLHFYe1thWj0br+9f+TmOuLp1syHvMRu/jVp0fjlxQvMh Xk8hGyeuqVkxmvjTe+3tq3LYGL84Ze7PMWQ/317rfHOejXsX1GpVEf99XvEM D7JxnsQhOJzY66m7vWUiG/0bH5YDcUH1x5uXtrOx65XHWwHxugcDaQfWstFE 0419XovGx/cSOXIBbHSq15NbS2xwV3lrpDcby79XxE8gbr41wd93NjnuHNmS q0mj5Ebp01obNmbZDF0NJc64Pm/mLHM2Zrd6PBhP7Jm1YqzRGDZOn3361iEN GquOH/vxp4+FHJMEo3nqpL+O6i9d28nCpVpBgk41GuNS82ref2Fh4rHahoPE 0/c9znvwjIXLLT71PRlN4/E93npTq1j47XzYxCDi3/FfDl+VsnDCMgeNIdJn uVtHNh26ysKtUZWNWsT8zftbWedY+Dw35tjlUaTeI0cviTnOwv2qu5+ZE+uv s7BbnsDCNXEtR6xVaEzzD2JMWMbC5g2vvo1SIv26pDfyrCcLU1bp2yYokucd 751flReycKPRm8tdYvI8t+jEo8GpLLTIXJ15W0TyZmZtyiNFFh5++ilRjfT5 OztfOTsOC2+E8+1XC2icZtO6MU+GhVGG4ht5fPJ8ZSHvldbOxPABr5gpPBpX j52iuaqCiYaRH534NI3sQsuZrLtMbJy+zM6GIs9fc82DLhYwUbM6OHslm9Tn WtO8ljNMzPrhcD+bSePyfL3ZQVuZWDZ9k3RAlkYZe51g9kYmOrnutmcQn36h lXxpDROjOnjf2DKk3/pGv/nqyUTrwK2+MsMU+kiEoasnMdFtEqO4oJ/kxFN+ KmXAxJhPr7oP91GYFsAtzNJi4lKptC3sD4Uvd7NkW7lMjAzNHFYmOeVWPXh4 TQsDHXfIeOt0Uei4uLU0+AQDK+X69Y2/kNz43vKRk8rAD71zXfNJbiVt/cy6 kshA1Y+BBy2aKazM/ODyI5KBVl0Vo/U/UDi75cXntS4MVA+0H1f6mkK7jWW8 UCYD60IONN99ROE7Bk7iD8qj0o1Ck+ZKCrceveN57ac8cuOTPgw/pLD4dtHp 9g/yON18lKf+fQqtZK5briuWR8tWqzVaJRRO+O+Eb1iYPF7J27n4YTaFqoY+ 0/NWyeNT4TLrc5colHmgqtGzVB6Dooefbia592zwyNsoR3L8rliodIbCiJAU n+2G8mgTsfLHwDEKixbs9v7vkxzGDdr4pe4iOfp1lnVtgxzG3s6dxia5tzde TlX0TA4PZ6Fn5A7yfpfseHUY5bB7ku1E2xgKh4xiPDNOyqGoxTYjJozCmZww 9yteciidqCC86E2h0UVTy3YnOTzyc1f8FQ8KFWe2KU5wkENOVGx5tivJrc1r nudbyqFb0eVDKY4UJrSucC0WyeH3Oq1sFlD4uNLbpeqxLLLPvP5wYCyF7ntm On6V/PNgdfN3NobXPH261koW2y3Vv2W2sHG/sr9Hl4kstpQWnnRrJjlwbotf /2hZnBDvUXLqDRsnY0E4t1cGIX3Tn7IKNqr0jzsyIUsGH3G6FtueZeOrYO77 TUIZPLU7qvKxMxt78o4HDLJk8M3ygxrO89mo9dO5RnZgRNo9dfP0Sns2Jgv2 Nim+GJHa34yvOjGVzGfOAMN674hU1B4RW6HLRvPbHxbGdg9L55c1PjXpYeHN jKwPwrIhKfVMP4q/n4Wxkjl+S3OHpLa2iT8KdrPQsflLY/apIWnBFqsB1x2k r8frNczcMiQddXvNuw0bWCi4cbI+wnJIuv11yJIZ3iwMqkqten1xUNo80PZC RZeFo39vvXF634C0xL/8W2oOEz+nqZu3bx6QRluZ5lCXmJhrU5w7dfWANLbm wf2ITCY67Pxz7Zn9gFTvk+ebCSlM3MDbkMUY/is1ejh796T1THysG3Rydfhf aUhr+b3lpM+2OS/aM9GjX+rLfTk/7DIDc+cmO8vN7JfO6Hqq3X2agc0znoyq N+uX1jhINwUdY6CD5bysTVS/VC52atakXQwUjJ5RdbekT+r66pjy9KUMPN08 kbtQt0/60P5JkCGfgWWRwuQ1nb+leWe7YtaulEcqo/bo2b290pTPsWWdXbJ4 V9rx4ElUr/T302mzXnyWxchP/F99K3qlP5M6xuW+lsVmI0c3Z7te6dw968c5 oCyW3q5UGPzZI125denGngOyGP7qXqKHb49010hIk6eRLL4WF8RQE35Kw75+ bli2WAadFSfdaczqlCYwbsX7WgxJmdZP+BOaWqTvH2+ZqdL+SxqvbejrWNAg fZFxdEn/ou/SlxVptste3ZMmmpznDNXWSe9mPY7hsO9JNs1OdzolUyfJuDDj b3joW0lIrETwW+6H5Nf6Xek9e1skBjnntGed+SV5vE6r157fJQl0mz2gvG9I onXz9W2edpdEN8dzoO3SkCR8IHVHvXmXxN5bxSuvfEiiksjmrvTuksSPyfsu OzwkCTjTpRN/rkvid24d+17YsOTv8zLne1O7Je4RfkeuOI9IjKYGXbFd9VOS IjM1PzRWBhLlcwOspL2SJ0ock7GKcjB38rf84qe9EoZ08sUZWnJABWnLS5p7 JaX+25rdDeUg8VHKuTnMX5Krxi5H/SXEB9d/9l7wSzIRRjKZa4nHWKza8uqX pMOmnZ2KxDa31mDnb0nciY43GSvlYW5ox2172T+Sjvqngv/WyQOVOY5TJf4j UffKKtsYLQ+Jcscu103+IxHTlWf09xNXbfrRvOWPpDfJTk3pBrHX1FAm1SeR PB07ZDAiD3s3lobP1+6X/LbqMBmbwoBmJ49N8yz6JSnKVfzTxxkwzahj21yH fkmOXP0lhXMMaGsas88hpF/CPP+J/eQmA1yc4i/MLOqXqLrN2Y4NDFA1nN8w zeWv5M9o0ytJukzIev9qlnHsgOQw7/n2/GwmyBaHzzc6NCCRCSz6/CCPCT5H 6EWGFwckYhmvsTW3mcBztPEbXz0gmbtPUXKnignht09F66kOStYsmiFWaWWC 9eHAa+q5gxJXOs67YCwLKuf1qPCahiQblveeLDzKggNCTlZF95DkdHjlnf4M Fri/0p4aLz8sqZzYEWN+jgVNK52W/B03LLG+b92w5zoL+nZkZ34LHZbcHTyU VFbBAoNb/gYPBoYli4LtHsb8ZoG9qEVDypWB+37LT4gWsuFSxPovGUoyMNtw yX9mrmzgvB68FqMpA113U9NnerHh6SlFidUEGbhyO2C0y3I2+JrMWH7NVQbc DLeYykayIWJOxoUTx2UgY8HVv9J0NlzY5moWPV4WqutD8+o/sOHhgtBZhhNl 4YEPHHn0iQ0toxO9G6xlYfvNjuSir2wyvztx0+fLwi7/lU1bO9lwtcPglUyo LHwsW/7fpWE25PuP7NibLwvpq+dYJKlT8NxU7ci0ElkQT0m1YYyhoHfA8vKP +7LwX/+foihdCqzSgusXvpAFlY1NxrMNKbj99IWBuE8WnszKPpNoRQHOuFqX bisHucyewOvOFHxUqGhZ4CAHP8/IFd9wpUDu/ceBQSc5+HTd9XuuBwX2MaPG +S+TA+Xj2X+PLKGgIj8uRi9eDs4vu5PGDaKgRm+x3tVKOagu73pzeSsFnd0b rZfWyQFjea8x7KBAiAcWChrkIP/Io6qanRS4+pZvCv8hB5y6dubrBApeHJ5Q bSmQh8AJ6HgihYJGJivyjps87Ji+7dCPsxQ8Mlj0xXipPBwaroW5FygoXJDh kb5KHp6Ffjp68hIFqQfNrTZtlgdRSvVK86sUzNH0/zMxUx6mf/A7xbxJQb5l 0ebz3+XBJKbKb8kDCjK95L+Le+Uh279m4ZwKCvbHOPnsHJKHplyFRJMqCoLw 8zQ/IQNsLKyoT9UUaDiKBkdZkT46mOEnW0/BnhXB2/ftZEDKrKI7vI8URCTc 7OhPYoCHu2RpajMFAdky/qsPM6B6f22P6DMF0zuPSmZfYsDYSWbmIy0U/Iy5 LzNSzYDi0ItGh9oo+HBSsD70JQP07g4VtbZTUI2LP779wAD1l9HHpnVScInV da/oJwMcvWU2PO6mwDdVI36DKhM854rfXv5NwfybQT1NOkywKuAbvPhDwZTX +SucjZmw32OG9t8+CsRa8+xN7JjQdj8YLAfI/mVHMltWMMGCI9oVPEKB+b2a PYuvM4E/3861lUXDyzfetuOKmPDd2mbBTTYNMT+bf/5EJlT/uDdzG0VDmd6f pfufMWHOB4m7LIeGRQljLKW/mJDKrRW95dHQeyq7dd8wExRaKxUS+TSkFVpk erNZ8HF+qM8kAQ1N3+ZwfqqyYG6PxlC0Ag3hC8Kb9KezYK+0af87EQ1KK/8e 6bYnfT/4irFOTEPR1l0L7i5kQYbcbdUBYpmctFte/ixoaBs/natEQ7Lw3v6k OBbUzh6XxFChwdxwwUyvfSy4WFXSH0P8csaLP3qHWfD8a6xHB7HWxtaAOxdY EPIf8+/jUTTkvBBN7aokudNYIF45mgbXjhMdpXUskDNZM1JG/Js17vzeBhY4 mOw0HKNGg531NAW9NhZICwv9aombXcrLO3tZ0G3iuF1PnYaENU4xpUMsCBBM ZEQSP0kP+OKhwAaPxt61Qg2y3htt6bqqbFB+vzLAh1ipOsqlU5sNuUtnfjtD 7DuUVJJozobtT3c9NtSkoc3/xsESDzaom8eKtLRoSIm2nZPox4aKmszzHsSW BysG3YPY4J3RM3of8dayt0Ed0Wx4Wf2kvpNY+22gZslONjSvHTthzBgayns6 n+1JYsP7dLcjjsTcsQw7nQw2lG7uyjlDnGN7oKf9PBteOc3aRD5/gqunanbx NTbwvlhGdhKn7zFRcpeyYV51vY2VNnk/Tt+q0q5kw7Rj0aO9iJuLYEf7U3K9 oQueUcRG392/JzSz4V7KqdG5xOleCgPCNjaUn7/9oZqY+6CKe+IXG1Lj33Z8 Jd5qvktj7AgbjHtD3WV1yPoz7UyvUxScVXunOZrYl99vO1VMAR14zHsCcXXM Daf7JBd9o/lie+JrHgbhr8wo2G7612oNsdb95tjl1hTc2uF7ZzPxgYknD/6Y QcHKF4v6EomHT3qdjVxAgW6F+6+jxOu44hsj7hScyvt47xzx++jq+3v9KAg+ G7X2OrFzS0K94moKau0PjdwmRrcZX06uJ+fXFO27Tzzx3sCv8Vso+NO2RrOa +LTZLVb+LgpU8ozKnhMLM8JHTT9Agea22D0NxLG0scHDYxS86uqOaSLujvpi 7XKGgh0vWZe/EAd8zpzXcJmCOIW5ut+Jny3y8VlZQMHMnZLuduKZUqW1HXco qJeN1u8mzjep3RJNck1qv62qh1g3fe9+uToKiivetv8iPsS2P7m/gaxHqp35 h5gROXxNheSUGqPhex9xRHPR3dMkh6KGj7zvJ/7svLHWiOTK3MOf9vwldr9j 2lQgQ4OZsmvvP5cbfeuyIzngOn79pAHiyWlnZasUadApeOr4zxeZS8VupI6p FzL//n9G7kuj9N6No2EsHvx/JzTVWQRNpEH2pqLvP/9euN++eyoN9q0q0f+8 qsTBY8ssGjZEGt/651cGsquYC2nImPFRb5B47tGSqGRPGjR+VtT8c5F81J7R y8jv69eVDxEbrJ+Ydm4N2ZfHK8UjxGnvv2eZbiTrmG79UEaXzMvxwu3CrTQs GYxqlyPefNv/0YwE8j7b5BxhEn8fp/b2cTINXzcGV1PEPofrf3gcJ+tzm5LJ I34kmzz44Szx5Ux1EfG0sHn84Ktk37xNnVWILzfKa/XepOGX9Zo5GsTq8++a bZfS4KDwVqRHvL8wWkJV0fB2I11qRDyob+GS+ozU7b3NbhbEIantyzQayfVl cr9MJ24cubT+4hcaVrwwi51D7BgaEDexk4YzoZsmuhHfadA4VNxHw8lgmrGM 2Gzuq3P2chzorA2g1hGfunmwoIbLgfrOkfnbiAV6jg+8lTnA8l7y5j/i7Sms l81aHNh3tx0ziTuGsCXEgAOHOkwVbhD7r93y5/ckDiy6mVJXQQwOXarc2RwY fpbw7RdxUHbrup6FHNhYW3SCr0f6jfep/K0nB9xXx9wbR9z47EX41dUcWKDv k7KUWN6q9uHh9Rz4GTnfeQux0fFKjW0xHFC7uO5qOvEm/5LKhfs5IFr4MeQ9 8amyAi2rIxwIbun+IqdP6m9sToTWKQ74JRYbGBKL205rd17nwLrxTVZbiKc6 p0e9KuJAxL72UZeIl+Ufqpbe4wD7imJHPXFOdEJ0ynMOcI91nbcaS8OLtztq ohs5cHCZ/Ylg4kG7zfrLv3BgqPx73mni+cyQp5P+cGBOoeNaRVLH61cHjlOT 4cJl4xQ9F+K0x35b5WguOLdPHp9M/OXgIoPnalxYaX3cRmk8Dbxf87eX6HGh qKViuQ+xubd9/TkTLsSJbIbPEsdqTYmNsOMCs+t6uY0BqesrGq+VA7jAPhOc v9+QhlkCFbPhYC68Yqy5+ZU4eL3CrpaNXPDZ2BA/24jU/xS5iYW7udA0HHqN NqbBrfzrHu9sLmR09frcNCH38/Ef30E+F2Jy4eN4U5JPSQ0WhiVc6HB22XOS uMPlyYf+ai7sG5Xhm2pGQ9K7/CknurhQetLU5Rzp0zy4+l98Pxe6u/72TZhE w+tzFz6tleNBu+YXJSQeF5yWPF2JBxKX0Nrv5jTc+73t67spPJhNfwlbO5mG b4s32T4EHpQWOD1TsiL1dyf8UM48HvzepfH3HrFv/ArJjiU8EK3LKxtvTUOf wrxj2jt4UMRwdte1oeHdu7qpjXt4sFs+nvmVuOyKT+OxFB4s8ll1/vp0GvbN CdFROMuDJHu1Okc70kc7kq8MlfOgZ5VDR+EMUm8LVZ1uP+FBxx995ZMzyXzU znRFvOTBx76eiASSM3m38ie3fSXnsy4yVs0mOdTxQtrA4cPSt4LVi+fRYFjq F3BUkQ8x/nN9ls8n80/6ynDV4MPidetrQxeQfBrbP6/KlA9NnqZBh0lOBS/V qC904UPkZe8Fo13J/bs64Nvho3woMouvpn1piEz/keSSyYfje/xN/JaSfFkd YcrL4sPdz9zMQj8a9BgJG+Jv8yFtkkzT5uU03LLJHlzfSM5Pn/hgehDpp8ud QmddAfx50Jtzn+TavejoGxxjAXjNZTuFRpL8dZD1fGghgCRT6V6NTTSENYtP 2M4WQJ5GXt++GBrk1KzGmqwWQHya9qnrO2kYv3frVDpHAJxTV6aLDpL9vTJ5 SlyhACRuFx7ZHyL1UNNhOYAC+P6HPrDjCLk/Ky6f2P5cANevZ73jpNOQe2r2 +Lp+AThQwuLN50geFgiUj89WgN+ZfKV7hTT8eFkhFjsrgKf6jfMhxSTH+2OF +7wVgJ/iS2nfoWHEroe7ba0CBF69vO5UGenvqldyyw8qgEyc692/T2hw+nC6 y+CdAoR1fd02tYU8D8r5dJxpUQDp7qzjq1rJ/ukrtql1KUDSKAX1jDYaODfL NibICqGxt3m9dg/J07+WYdFKQlBZeCogWYYDE3ePXuU7TQibjhUhX5MDxenN bvoJQphgMznkgS8HOi76/UpOEgJLrFn3YBkHdG80HB04IIRpKbqralZyIOnx szfPjgnh6Jq+KX0hHFg8WOa/M1sIiQ9va1zfxoG+pefWvq8WQmlrxuuc0xyw 0lkZn6YoAqMXeqHq7STHTJv0GaoimLG5NMzkJwdOTfV9GKYhgkzP5fMdSM6w XN3pOWNFYNhCpx+W5cKLOPvkX1YiGGMh0M5Q4ULEZ/0Trj4iOFpZv99nJhfy L33J550RgebAvhe5p7ng+L5f9tUFEfzRKx8ffIkLLUqCRWcuiyAg5ViYWQ4X 1OKsOicXiODWI/2uVyQH4n33GPtXiAAtf+tcf8UFd5Hh+bx2EcDlddvWi0if xoQc8ZwmhtQboijf/3iQkhf7WVsiht2CzaO3HOGB0bfDFj9miaHP9o7ShZM8 8PO4U7djoRj+6LepqefwoGKCQJC9TAxuGuXpybU8SPt8PWEgQQwVopo3J5T4 MNWpZ9Pp52JIdrHbPe8SH8ynOYe6vxbDu8fWE7Nz+WAy7koA9U4MsGPOd8Vi PmgNBywMbxHDmJK4fZwnfJDLeaYL/eR4Pmzf2sOHR/z8Jx+0FMFsk1XdhpkC 8HkSrjcmWBH07ieuO/dNAFscO2pOyijB2Fk7/RuMhOByo7VFhqkEhw16R7ZP FIK+2pfhFbQSbDNstDGwEkL117dmRmIl8M77vCNxhhC04qsO3NJTguzCVF6s txDw9nmnWgclmPXYqHzeHiEwxi+pkflPCbaWzGqb9k0IB2Qrn6wYrQz6YWfS NQpFMNHlqvmLeSpQwM3Mi7+mCOc8wiQKq0ZBcM66xNZCZajLH/M+f6sq5Dz6 +Vnn9ShIzm5olr0yGrp0N7/JtFADLa+I5NEP1OCtH0flpK8GnHreasB8pAb/ KfNp7ioNGOPiX9ZVowZp28/ujwrTAO15839VvFaDnZ4LjRziNEDPRntJVJsa KGxvl624pAEGY6rHPVdUh5/Xw2fM+6kBFl/17u4PUIfFKrHPdXZrQsGK417R QerwIvH0L8sDmmDZJOheEaIOEU/CX9of0wSrN/16NlHqsP6IUolPtiZYP67d 27pXHYTJxgF+TzTB7voWD4c8dTjjF/FQqqQFd427OybdUodH4692nNDUAknW qkTNEnW4N3hrY8Q4LYAzi0p6y9Vhm/nerWrWWjDr0Hidc6/Vwa5qwuepS7Sg XOFk8YF36nD5XOvCvhVaYL9f7B7TrA62Lslf8kO0wGH3UMKiNjK/rqN7NLZr wUPZjdq23eqQ/T4+4XGCFszZ/u22wW91iL+wISMqWQsq/y51UxpQh4Qthfc1 07Tgf99XhP99XxH+D3407MA= "]]}, Annotation[#, "Charting`Private`Tag$187721#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Epilog->{ RGBColor[1, 0, 0], PointSize[Large], PointBox[{0, 0}], PointBox[ NCache[{Pi, Pi}, {3.141592653589793, 3.141592653589793}]]}, 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->{{-7, 7}, {-7.656986097603832, 7.656986097603832}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7574232240036936`*^9, 3.7693404294981484`*^9, 3.794007576791526*^9}, CellLabel->"Out[3]=", CellID->896287060] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0]], "ExampleDelimiter", CellID->744903653], Cell["Find the inflection points of another periodic function:", "Text", CellChangeTimes->{{3.7574235295546937`*^9, 3.7574235376096935`*^9}, { 3.76933933651354*^9, 3.76933933905554*^9}, {3.76933956822754*^9, 3.7693395712875395`*^9}, {3.769340000757734*^9, 3.769340001411713*^9}, { 3.794753997169361*^9, 3.7947540027148705`*^9}}, CellID->977553022], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"func", " ", "=", " ", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], "^", "3"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"inflPts", "=", RowBox[{"InflectionPoints", "[", RowBox[{"func", ",", "x"}], "]"}]}]}], "Input", CellChangeTimes->{{3.7574232463426933`*^9, 3.7574233326686935`*^9}, { 3.757423415669694*^9, 3.757423420796694*^9}, {3.7693404345631857`*^9, 3.769340445636826*^9}, {3.79475401188787*^9, 3.794754013685874*^9}}, CellLabel->"In[52]:=", CellID->164259367], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", TemplateBox[{ RowBox[{"2", " ", "\[Pi]", " ", TemplateBox[{"1"}, "C"]}], RowBox[{ TemplateBox[{"1"}, "C"], "\[Element]", TemplateBox[{}, "Integers"]}]}, "ConditionalExpression"]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", TemplateBox[{ RowBox[{"\[Pi]", "+", RowBox[{"2", " ", "\[Pi]", " ", TemplateBox[{"1"}, "C"]}]}], RowBox[{ TemplateBox[{"1"}, "C"], "\[Element]", TemplateBox[{}, "Integers"]}]}, "ConditionalExpression"]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", TemplateBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"ArcTan", "[", SqrtBox[ RowBox[{"2", "-", SqrtBox["3"]}]], "]"}]}], "+", RowBox[{"2", " ", "\[Pi]", " ", TemplateBox[{"1"}, "C"]}]}], RowBox[{ TemplateBox[{"1"}, "C"], "\[Element]", TemplateBox[{}, "Integers"]}]}, "ConditionalExpression"]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", TemplateBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{"ArcTan", "[", SqrtBox[ RowBox[{"2", "-", SqrtBox["3"]}]], "]"}]}], "+", RowBox[{"2", " ", "\[Pi]", " ", TemplateBox[{"1"}, "C"]}]}], RowBox[{ TemplateBox[{"1"}, "C"], "\[Element]", TemplateBox[{}, "Integers"]}]}, "ConditionalExpression"]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", TemplateBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"ArcTan", "[", SqrtBox[ RowBox[{"2", "+", SqrtBox["3"]}]], "]"}]}], "+", RowBox[{"2", " ", "\[Pi]", " ", TemplateBox[{"1"}, "C"]}]}], RowBox[{ TemplateBox[{"1"}, "C"], "\[Element]", TemplateBox[{}, "Integers"]}]}, "ConditionalExpression"]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", TemplateBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{"ArcTan", "[", SqrtBox[ RowBox[{"2", "+", SqrtBox["3"]}]], "]"}]}], "+", RowBox[{"2", " ", "\[Pi]", " ", TemplateBox[{"1"}, "C"]}]}], RowBox[{ TemplateBox[{"1"}, "C"], "\[Element]", TemplateBox[{}, "Integers"]}]}, "ConditionalExpression"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7693404391619434`*^9, 3.769340446492339*^9}, 3.794007582639701*^9, 3.7947540147233863`*^9}, CellLabel->"Out[53]=", CellID->819272940] }, Open ]], Cell["\<\ Plot the function and a single cycle's worth of its inflection points:\ \>", "Text", CellChangeTimes->{{3.7574235295546937`*^9, 3.7574235689956937`*^9}, { 3.7693401833391957`*^9, 3.769340185569536*^9}, {3.794753674997509*^9, 3.7947537137322116`*^9}}, CellID->26968584], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", "func", "}"}], ",", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", "15"}], "}"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "@", "Large"}]}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"#", "\[LeftDoubleBracket]", RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}], ",", RowBox[{"func", "/.", "#"}]}], "}"}], "]"}], "/.", RowBox[{ TemplateBox[{"1"}, "C"], "\[Rule]", "1"}]}], "&"}], "/@", "inflPts"}]}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7574232463426933`*^9, 3.7574233326686935`*^9}, { 3.757423415669694*^9, 3.757423420796694*^9}, {3.7693404345631857`*^9, 3.7693404496222153`*^9}, {3.7940075905845823`*^9, 3.7940075908515453`*^9}, { 3.794754019276388*^9, 3.794754020747387*^9}}, CellLabel->"In[54]:=", CellID->994782636], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwUV3c81t8Xt/feezw8EqUSlcg9aSgVDTLKSEaiENkVkpERpULIN2RFkaiM a2SEZO/MkoznQ7aM3/P76/N6v+6955z3+5zzuffIWjuft6WjoaGxYqSh+f93 afDrF/nwWG3xyfPPuYlhzY5kEe/DPbcQR0Jr/HZ5H20Q/G4t0hOITrtc0joh l60t1M/LynM0AjV7Fdic4KzV9jib3U3f8xippO5EoqQ+7SvvG7O3Ip+jB5JB bxKD/mifFpq58+9IInLmnrvly76knagVkvnPLwXxRclUq/jTIl6K8OPV7lfI t/ptVagUGwp+mem7rJqOzKcZDls850PrZzVsFyMzkPFdK5fT90TRLboG/fmJ LPRfL0vG3JIMmnhvdmDuyBvUGaHHNMeggCxsp2SJ5DzU/Vb69Mq6MrrOXv5g ye8dknONt9zmvQfJ2wT73M7OR1P5rotCfupoqFTfeaG7AKVb8usN8xxECYLC Nm6Mheioz+NunsMIGd4cMvmr+gEZ8tp3CoXrIO66jDOuVkXIyTnYubfpGGqQ dtGZjSxG8SMMkWHXT6IHXgf2O5d8RJ4BWkH9184gaKXZQZn4hBbjqvah8bPo 3/avMjeEStAnuvVZzjMXUFFgjOD0kVLky6D1Q3nKCLn0m7I5upah++0Bv39X mSBlNdLWn+RyZDqp2B/ZdQmNR0zOX2vCyFVsSMdO0RK13DJdmPerQD+6rshf Mr+CVF6W3XzPX4ksnpo0DuleReGNsn9uZVeiwXRT8WFDW3RcfvLHXHcV0qHn Ma/tc0BpZ/VN8m9Wo6OtqaXDRk6I9k5BmwvjFxRGIxE4tHwTlXb61BGqNWj4 rI/sTbNbSJRu6PDbrzVoTotuZHPCDXmoHCm9aVWLpLnJJ8iRt9GeEPb8mcg6 5N4u2XtSxBtFvXdWzpWvR12FxpZnaXzR9FB7ulNJPbI9a7N/Y8sPvT6QmDA1 8RVFFy2dUUjzRwy2NII59xpQyuTeF0v1AehKjM2j60KNaIfrOZG4tUAkMbkj 6M+RJlR0qkb42IMHyEcoZjOzrwn9s7/H2jAYjLp1Fr2uuX5D4sKy9PzHQ9Hj F2U3fic3o97tG+X92uFotk524rX6d9TZTjvT3BKBziw8sLZr+o64jnEtOLlG oSCFjJy/fi2IrD/XXk1EowKt3mvn61tQJG9z9seuGDRynl2hgL8VvSnimnau eYy07zmnuGa3Ip4IEkfU51i02r3/6Wx3G9KKz/6pxxSPPqqyWGVsb0cmVfkr l3UTkEdkj5KFbztiz+4r8Xz8Av3V8a5olOpAi5xDDzR0k9Fk7uep17adiFS5 T3tB6BXKZAkvMi/uRDfL396QHnmF7K5eChBg7UJKHzWdP75LRWMi60KBb7rQ ZMNVIWurdDRw/5CO+Xw3ethtJFlNl4USBjk5BY71IKPrDV5Rq1nIRGOwu+FZ D5o+9O2Z2FI26qTcvXHgYC/KZ4kMf06Ti5pNK+L4A/pQPmssF03eO1Sx6wjx lesH8ow4ROaL/4DuPuT/7G/1A02vGR2SOFqEtH6NBe0v+IF2rX3jUP9bhD4l BImlGw2iK/zVN58bf0QFjLXH/BOHUIZgmZSabglquyGvLy44gnCO7MrYQAXa 8yLi/dKhEdSk4pU/o1eJousXRNrsRlA0XaK43+dKpC9XMxb6cQSdF6AvIyVX oYYeW++lS6NozlIlys3zC6o+kpHW+moMudcX2L9zqUe7o97+Wa4fQyGn+8eu zdSj5J5iFSliDNXerFG75PgVed2o/3hd8ye6/Hlnys/rDUjl+Z8m+o6f6BqH 5/2TXk0oYVJ5UZ1xHFla5mew2bYgl5h3xxLsJ5AQUSoxKdqJJIY+jVvvmEHe 5xy3JJKHEM28a9zXczPoW3/YTY6FIfSTSUlvt+cMyhj3jWUlD6NclYTcjcoZ ZNehN7bTdxhp3/VxjzOmIEvapPnabSPIUlKTrjmQQPidjTdzwChq3TkYlTg9 i2q2idxY2P4Lfdn/+bfB1izapV5jXHDhFyo6/Azo+ebQLRtTRYM7v1CCkf5f h/1zyH6j8rt0yy9kfafcaH/gHFq+si910W0c/W1KlmgT/ou8C7VZNd7/RgJO ltnMR+aRGY0uTTDTJFJiTq09azyPZMJbRW13TCJ4NT4a7ziPMuvUVCbPTSKn nhviO2LnkfbypaWhF5Poy1G/iLO/5lGbM32kvvIU6hvCmfGr8yj323dij/4U mvWhrxnlXEDJCdrMb12mkET+ww33fQvodIG7l0vhFHKXjL8ZH7KAQrOZT07s m0YPPw48HH2xgG5zx4u5XpxGKRdkMpTfLaAVz7SLobenUVNYxlBZzwJidYov vVwwjeSXPpwd3b6INJxNObwVZlB7c5uqctMi+ll96NjN5Rk04SBk4D68iPLu /z5ygpuCNhnMHMsWFpFPHLxOUqAgJc2RVAPJJfRXlBJZdIGCAjMIAfebS6j7 487ZBxkUFKezd09Z4BKScnCbli6hoLwfHmeYni+hkyRy285mCurj33wQh5eQ 4q0qjld/KUjVn2O5lGcZqbP3enWpEeiE+Fl+JvIy2led17J6hEAWRU92GWgs I/sdD4XDzxPo4bTYtZEry4jjS8/Uwg0CpYRYBCl5LCPbI3THm3wIVER6leL2 cBm9GstT5A4h0KjJ9l7G98voQt2AfWcSgVbmnRb165ZRaGnNF+NMAnE9escb 17+M/u3mzjlSQCB5pYWdI8Qyujl2JieuhEAHa/brKTGsoCLut5cvfiHQWStf OzeRFfRJafOyXxOB7P6VB5buWEHph7PPsnUQyO8Z3UvGwyvo2nrD6FYfgR7v OV6ib7SCCnXINZdHCLSr31T30LUVZBMmsFQ1TqCmoBvtyr4rqP/cSlHqFIEc VAIsxaJW0CU21p5NgkBMPbFTLP+tILrmBJWOeQKlBmR6Lr+nrt+Qfiq3TCBQ LqUfr11BHgcUp6ZXCTTY8f1RR+8KyntoL7h7nUC+d8fEq6dX0Hvhgo3pDQKJ KC5n5G+toK3VrcdyW1S9WtnUUvhW0evAG1/bqfiCr1RFFHkVWTdoJmxQ8ay8 6uk7B1ZRP30r/X9UHNl8rMfx1Cra/egja/kmgZS8TG3MLFZRafOrQkOq/TrZ G7MnXFcRf5kNn+0/Atk0+vvtD1pFGkeX1YkVAtHejmVReL6KtC967J9fJFCy VGasQPYqYq6TVnP9SyDN+hIZ+rJVlPT7nL4DhUA9rt/fzH1fRcOjYbn9fwh0 W3zswPDoKvrSf+Vu/U8C8dUsfWleXEXq36L+7hoi0LubbOfKWNZQkfIg8PUS 6IyI1I8c8TX0/cTedOc2Ak1W7nFIUFlD0V5BVicaCRTqeGwx9PAaol3t/phY TaCqcidOO/s19Htvn+snaj1YXvOPN/RZQwGVNZ6BWQRa540lH4lcQ6l2ZNv6 lwTaZ1tySOb9GpqT+eDZ9JBA7Vzfv3LVriF5Xebr4fcI5PJx1GijZw1JjjAP 1rsRKJud7Wbf5hr6UhIoXmlGIN0Pkmv1vP9Q34p9r98ZAv202BNcLP8PHdys of2ECCRdYJIcq/cP7Z35+7aQRKDSS05K983/IeGgkrO3+Qlkxuhf5OryD9F+ GY35SE+gWJOMZv1n/xBZwsDy6ygFsWwtbrKM/kNKim68Ci8oKD2TNXx54R86 o1Z3lzOUgnTOSwqPM6+jpsRXPX7uFOSXfnRX9c51dCZUWX/pFAXNnnpiecd7 HQk2cUtcX5xBvXG7K+Z4NtAJETZZvr0zKKE9h9uDvIGMVej504RmkBnXNss1 jQ2kmEyx/LQ6Tb1PJTfprm6gM2Zx293Kp9HwTTYtgQ8bKJgv9NYJnWk0cfRn 8T7TTSQl2+yXrzaFsu5ZMpfc2ES+NrunJHin0PXPfRdR4CbK2llmTpqZRNO7 Whd1czbRabrBx7Rpk2hWrHyv6cYmKtQbnTzEOYlWZp+/9f1vC528EqMr/X0C fVLm39r6sIUUz5ifoaRPIB+7KP2ghi1kvbZ3ydVvAq33B81EzG+hkb2akKw4 gfzHPgp+J9GAd6n8f6V3fqOg5vQLw+40wHqh3u21xDgKT7v3nU6UFs6/PnBD /uAY0lNz4BOUo4W7yddNKexjiOXLeaNtO2nBelf2o8wfoyhojNx/6jAtsJY1 /1nwH0V+pKbxWAdakH01EyVVN4JupohsKnymrhdmPtC8MIzOJebvOHWJDvzN ixsHp/sQz44Xzua2dOAel6As/6QPNZcEFTg708HvtndBhRp9SK/f+EDsfTo4 /6CIvSqkF+mIbR75kUMHHx97qY9u60FqcXqXnNfp4Fd4enmOTycSjh0Le5JE D66yXzWPUd9pIsofglZe00NXztMqiX0tSKwq+J75O3qIjbx8dGH4O5Ka3X57 WzU9HHRT+xD3rRmRT7tYlUzQw4ELM5XT75vQXoaNfWN7GYBUd2E7Q3E9UnvR vOfEIQbQmykYy9OqR/tUU3bkHmcA+128SxHVdeig1RGSpykD3E0qT57sqEWH S8M42e8xwPBfaevLTDXIwF3op2oDA4grRwlYpVeis+wTg8/bGcCQ0Tl9TbsS nX/1qXd9gAEYd9aLDfZWoIstl7/XEgxQLn0vOJC/ApnvSP1sJsgIN6fm+F7t KEMW1e4fsBQjPFX0bH/gXoqszI6/k1dkhDQN2k46XIJsQv+kUw4ywh70POzr pc/I8eeumEArRtjbskQTWliMnHxpI347MIKTlr+YOm8xusnXHnzajREOnbD3 93YpQrfAw08omBGm9Qacv+z7gLwTS+2zcxjBju+7B4wWoBDDk9ptS4zUevmz 8dAuF4kVNovR0TLBv5u59kOX36A8fsPlPexMkJQZ/ZnGNAd1tVm8i5FmAv2i l8fCrLOQ/Dl30rkTTPBoJnhf8ad09PHd6qb/eSZQP9zQ4/MjDZ3mudf/7jIT dIoKilcwpSG372GxPK5M8Lg8eOWVwytUdeYlU0s8E0TLmjzeGExGF3Plx7ZS mWDILPAYp18SmuTIxrvymMDM3Ur0slwi4m0q9HpUxQTbtV10TkTHozTlg0a4 iQk0HDNC3hjFoQPheA/RxQRrcZ6tP+SfIyu9hkn9KSagsF82URmORQtZBnV3 F5kg/tNlP+6mJyiEtTM1b4sJrtbNexyufIzy6ocucwkwg3jSaUnBumi0cXyx +ZsWMyxdejkU6f0QRb/2ydk4zgy2djnRG4OhSJ6JJnTnOWbYOrKbdtwwBJ2u YTscacsMgxt008suQWhYPlqyzJkZahRCNB8K3UduQYJr097M8GB//aZdYwBK OCLz/nQUM/ytqTGLrL5LnbPTH/nFMcPYwI3DRg/8UBWdstObV8zwfpjr6L6r PuhPpTqZo5gZOCqqq9+7eCA/2RJarUpmUEx/vEX/0h3xBMCgYyMznDqqMdkx fgsdgFPPG4eo53senEj0d0ZNL1vc/v1hBlNZNeeD/zkhqy2js8oLzFC5ULDr NuGAFiz6d1zaZIYw+tyRKQd7FFJuxRrOwgJBG8qcmty2SExq/NdnPhZwWzAO WP9hjfLuOFZNSrBA84yFY12HFerS8vDV28MCdzNfOj1xMEPXE/8Z+2iywLjp 0K7j+4zRxj9/texjLKC6eR7F6hqi6EtMvH0GLDBQtGwWm3AOyZeEz7CascBJ c/tdBSb66KMYb4OGDQu8ShaVGp0/iU77PHvtcJMFGNzUpJppjqPhXvH78V5U /z6XngZ56yA3jf8svwayQPyuBgWxd9pIL4Vr4VQEC8QeoLk2FqSBSMx+oc1P WUCf9ZvvxJIaWr3xR+LcSxZQJF+9Z7S+G7V0XMxvz2SBjdZfXYlCyihT88ux iwUsMJIVjob2ktG9V3v6ekpY4Bqf52Cilgy6yPry5qUaFsjIe/BuXEMEqbhw 0A82s0BbiWf7RAAvYuz2fm7VwwJ41xHmxPMsaODQb+WxERbIuaXqIstDgwrT DCtsp1hAtN554FrPvHY4e5XhxAILuHi02imYjWtb39r15/omC/zr0to9vNip fbA38c4MMyvQufNKix+r1OYFNj4XXlag7dtCm2//05547fn6rxgrXKm9YCNc YauNOX8dvC3PCq7ElQtu5lLlz9zPf1/eyQrZvz9e3TbxsPxmP77qs58VzlW4 vbKwe19+TGfnyjqwwg/Rgs774t/KJbISIu7psUKnbft2ea3h8gVuFlk6Q1ZY I64+eRlFKW/0uP0hyJwVdgfhKpaK1fJXP0ZPMtuzAjnQ+J2HAAP2Pnp2MMyF FYri63ZqxnDiszlltzh8WEE0MWJ1X7sAVuRTZn50nxXk7+9Spz8vgbe84l7w RrLCJ9kfH92LSLhriHF37DNWCA5uZPtBVsR5x92+CKWwwrMotZNC4Sr4Qe6w SXwWKxx/XHV6eV0VXxbQnxF/zwrXXT595juyH+/1LQlILmWFn8zvT36Q1cJs o4pCsrVU/olTe41bAY+eeJad+p0VbqmkHRv9fQR/ekuPFHpZQTW7+YKZqS6O FnJtzxxlhYmVydY4pVP42p1Be+VpVljSuzbhamWA0c9T67mLrCC5wSvSt3UO C536FL17ixrfmvD+2GBDPJOvQH7PwgZL7H8z6o8b4y8isZ/U+dhgfS75SaeO GU68R6v/UZwNrm3UtwveMcdu4zdHD5LZwCov7dqsrxXWOzPgUabCBle6HffU mFljUuFJdjjABgN43mjPZRvcEiCvduwUG8i+0Llo13gNZ0zE1NcZsoHdl7CA 25qO+K7B1mU9CzbIS5AMyWy7gXdK9j0wcGUDlQuUHM8yV8wQpCvW5sMGx09F cErouuGBycI8wyA2aHv57GjIuDt++PFRt+lzNlDT/Snad80LX5HecBxIYYPp uoHwttM++EDwdRrLbDYoDDN3fH/CD/++cGy7TRkb/A691i9zzB+Xfy4oG69l g7iJ1298rgXgZ7Iy5x1a2GDlZstYc1wgPkqs+dwcYwPbX2q/bGQfYO8TsUqV 02zQEbfxVMMtGOf9t7OPf4kNTu0qWfFoC8EihlYan1jYqXp2y/N8fojP5K5O sPOxw/TjOhjQicCBTE/iLMTZobI3J3euNxJPf6xZpldhh9NvFG0n4qOxLJ9l xsX97NAcy2gc6BuDLzquXMwCdri0YU/KsXmMKySVi/QvsIM8ow4Xt34sfhIY 7R7vxQ7+Qtm2rfficH3/dvnpAHYIXHaXeJYSj9fVqtupTQuvK7fpZH9NwHa/ F1V/JrFDuLZXn4h6Ej54+tKcSjUVN/l15Gn8h53TF1ICmtjBEkJzPaf/w2mb kWc7OtmBozFD83PqK8yVX/HWe4IdhhPICy3SaXhUUOHmF04OeFKT7b3PIAML O2NJYWEOuG94+EyFQiY+XW/yzUGGA771q15ios/CRT7hO7j3coDvM/O4sa/Z +OHQ7KSpCQcg4UCpFzF5GB94mPDmCgc8eqohVPnoLV6IkdPbuk5d3/bzzfWT 77DF0YtZaXc4YE4ywIJyIR+rZpXYE684wNI7vHIu+D22pzMS1nnDAaEqtOQN 0UKceIlSG/uBA9rYlkSi3xZiJi5ZhYP1HLA8Fq57fvQD7rsV/DNohgNoY0rX 7Ow+4gCtc1fEDnACV8EoxfBPGT5hkfx3vw4nsP/e33L6Qznm8p+6b3SaE5jp omePBWGcWP3gdbQVJ2gfN3jz4mkF/qj3eYopjBP2+Ih+va1fhWdN5Dzmezmh ZVx9rImpFhf7uDDz/uSE/Lx/UaZBtfhuYlmcCoUTGAKiD5ynr8Mcw8YlDnRc EBKZT9xlrMfb7CNohpW44L1vgmeQWAO2uL34sMmXC6wVW8p/BjVj8nMdickH XNB9YdRtQ/g7tZ4e5TJHc0HT27IRwzffsc/69hadNC4ovG2Tb+LUgp/etxD8 1MQFSvu6NfpftuKmmLqX6ZLc4LK793W2bAc+mBdfeBdzg/eTudKZe734aHfz BqWeG7bi3w3ItPdifRoGXcs2brBWrXZ9odCHr56/2Yt+ccOQvpO2eXMfPu4r e8+fkQdKevvpm2UGsIv0UuphZR7gc2QsUvw+iL/Yv5yp9uCBke/TVQHSo/jk ugafny8PlB+WzmU7NYqbozv2qfnzgGHTjoMRHqO49xOrf1oYDyyuyN52+zaK KezufA8SecAyOr4ly2cMi7w7sf94FQ/cF8mIcm79iZ1W5vzrOXnBbv7uVwW7 3/igq53QOB8vSMbO8OjG/MYsk3059CK8MMEhwahY+hun91d3aZN4QWfidJ08 7wQeLH+648M+XnjHEj7TXTyBDR5o9PxnyQtdSluHk5f+YKnN3BvYhhcO++xv WZKYxNMeJPofDrwQ2hPmvKAziUOvsauIuPMCX7qGVU/kJK449eN+VCgvXEyp Py4kPYVV+QJ2+ebzghfXkSc8KtOYJnzxS1wRLzSWDH3bPDONm+mvmxWV8ILH Qk6H941p7Lh4/sFcDS9UZV5v4smZxmk98v32fbywcWaveJLMDL51Lt7lwRAv vKyIO9OkNYOhgZMp9Scv3Gt/1X3HZAb/KFnaPUjhhehztaJXo2aw0Mv6YEN6 PpDTOfZccGEG/xQ+JHGLhQ9Mho6k7uOg4ILo/PxHnHyge7RprEWOgg0CEwYa hPkg+Y7ZgNM5Cg61dVI9vIMPfvbOTyq8puCLg8N1Fnv4YCjwv4LFTxQsb2xk 7rePev5Qyob6NwquOKEdWgx84LY1/ZH5LwWvKvMM7jTiA+MiN9teNQIvJYkF 7DXjgw9qTgndRwi8wE2W17DkgzB+v9jj5wlMmde4ftSBD45lFV51v0HgKduj nHo3+SAgRIJL1YfAE9367wzc+EBaTEnRIpjAoyVXl8zu8EH03e74rUQCD+28 GW8VyAcy8g4rbhkEHnjppWUXwgcoIKbDMJ/Avbz3hxwj+IDhYGjlf58J3HU/ MtA1hg88BAZMzKoJ3L74nOz5jA9sPb0O3m0kcIv9q3q/F3zwLSabg7OdwN96 3zgGpvBBk5KCH1MfgRtOFXOFplPjE2XTuj5M4LqyyvzIbD6gt/3JeGCcwF92 NRk+ecsHHexF8c5TBK78r2s5rpAPxm8tlfHMEricfyQh+RMfNPo+Q+ILBC55 MHUorZwPtg7T/41aJvDH5cXhrGo+2HtP8a3jGoE/ONAEva3ng+PPbhnnrxO4 oJ9t24dvfMB0rKXVcpPAb88INnxu44PQ9ffsnlsEfoOlb1R088HakMDqEhVn 7VHiqR3ggxkH59ghKn6dqva+cYQPxD7WDO6m4lRBdLF1nA/u33k5NLlB4JSQ k6tdU1S9XrCmc1L9Ja1eSByY5QNzi6dH4lcJnOBogUYX+SDV3rgrconAz39c G/29xgcn1MfvTv0lcKyB24OZLT5ovWhiW0AhcEzlHcV5Bn6QPa7zcfQPgaP2 hjausPLD+9/v3/j9JHB4+uObm1z80JOvftd/kMChwkm8DAL8sOVTc5PSTeDA f/nG3FL8MJyr2cn6lcD3bpSuCcjxwwNOXaK4gsB+Q7VJYor8kBX2n0trMYE9 qvvHyKr8kPSqdf+JNAK7qY8HK+/nB/7FRsPX8QR2yZjdvkeLH/4evRDiGkVg x3BGF63j/EC0/ydzzoPA1za4+XVO8cMhoiPazoHAds5iRbpn+YE7yGL71CUC W13YtX7ejB8Ck5yUjiICm9dovDSx5IcOl4pvorsJbLb/qI6FDT+Ee69wXZEh sKG4aajDTX6IdXWQ092i4HORV5Wd3fjBVqLuyu8ZCtbfutHs7kXV45+2wHo/ BZ8YCxTwD+SHWrXe6QdFFKyV8ybl2TN+ONpiY6RqS8H9Mjkvj73gh7e8fk+Y qP3q8ywreeElP7wEHl17LQouDnideD6LH4KaF2VbeSlY1SQljquUH1zif/Ob F8/g7Yyx0cEj/PDlx+w1Ico0rvd5/Eh9nKo/7d3HQu3T2G42OurnJD+Y5qro 5RdT/0f9kRE6C/yw5w/jjc/3prFMQUjoJpMAJN4h+R9gn8ZClr7+HjuouEQj votnCn/o8L5H3iMALrl3o7eISWyo53W3Q10ARH4cL+honsSP1W/7qSIBoBRd OBoaPok5OZy9KOcEwI/Xe2Af7SRm+GTtYucpAKuDT+IbByfwHJ+e1cUqAZB1 a3rE4TSOe5xILdfrBCBH6FdHFRrHFbVr6F4T1b9xs88J/nEc7ZMjndklAKmN R+W+fvqFd49yDK1OCoDDjoo3bQy/8M387+ZJ/ILAGvI3KDl2DE8aGF36aSMI v1xehrdnDOO2rJ2NKw6CEBKhOrLqNYw/0zNpcjoLgsX74ye26w3jsOIisX3e gqA2M3LDsHcIK0qL9IVECkJ2t6bwV5tBbE/pM1EuEgR28v5Sm6B+/DPC6uIt ZiHwP0Of+nS9E9+c3EHazSFEzbeNkGhuJ17WXZ2Z4RECTYrAAzqLTsxG//iB g5gQ/JJUxdyVHXi3d3Wh1U4hEHuxuXo6oh3fsVXgN7ggBHsFNc8waLRipuq/ gxwmQvD4ob9rx2wLjpbB2Q2XhcCr7Ei9YlYLNX/GOsfthEBKY9nfRrwFN5wL cz3kLQTc763bXnM0YyHt6e/KL4Wo886jQ/GUrzjlxccXf1KFIDGGt1fK5Sve vhpkn5EpBDcm0J2ev/VYq1Byi1QgBFoGdadm/9Xhq0oGKmI1QvDWmrFnQqIW vxMqiGCZEgIlrpIft19U4YPud01qCSGw3xFozrunCle36skHLQiBDXf+3Gpd Je6KGCvZ2hCCi54DCx9WK/A6neDUEo8wzF4d6R3oLccnCc+Tv/YJw8arDPrH 5E9YYo9UMIuWMOxMvpH93ekjptz6UqV8WBjSAp6EKhYX49glHq1bp4RB35/j kaJRER7cyFLZshSGuM9dz7SL3uN36KwjyVYYzK23H1ETeo/vByxlHLsuDMJq Mqwa3gVYkfGIbIS7MAQWM0zansjHtzgG+EXDhOHwn/bKZcE8fFQ/8KxWlDAM t5wzVmfKxcLRipGWT4Rh9UBSncV6Di7lv830OkkY3iyl+xuuZWEmca5V1QJh yPlpndCi+Rr3XC5Uv1gsDNMhhTy3zdJxTrLZLe9SYXgXnTP/6W4aPkvKmMK1 woCOxEivdL/CCdth8HS/MFTfSBAgnr/ETo7jYi7DwtB3vGXz9Y5kjHIjjJ/8 EoaiV+MPehsT8c/dvS29hDDkj+1YOrQ9ARfduse5sSAMxeaBC+q/43BYIVlP Zk0YKPe3ytTePscqB25V2zGIwNcbrXGNl59iGh8RmoesItB4a3+AvE4sbi8p 18rlEoHtHqq/Gfc8wV6IvWheRAR+n/KZH1CKwdXH0zL9d4rA2iUBU2WhcPws VO9XqqoICH5sFRlxDcPXGmZl6/aLAI+1Fb/7YAjm0j/0glNHBHSGYw/R/QnC w4/GunfrisAdyef0V4Pv4/etYQKGp0VA/YilptPeQGxi1BWZcFEEhiUefnD2 uIeVnvs1lF0SgVtu9s5vle7gjR4S84iVCHA+8F/+8M8Hv7rs7L/NUQTy2vd4 es15YPdkwTI9FxGQuLh6Y1jgNtYdLlm9cVsEbnNk6Nqfd8PTV1ncCu9R9wcL fRISdcGU5KNlOEgEvu3qqKczuIGJXn/mxjAReGi+q2Q87jqeFSg71xUlAusN PN73ua7hvwarL0aeiEDQrjwv/zxbPP9QfXw6jsrn9OGIQM+reKHGdfdKkggs ZTYvK1+7gpc1J79wZYrA3ScCumO3L+EVDwVusVwRiDho2xmhZoLX8q1NyQUi QMeeFGq/3wj/m05O3V0sAvxmlXMpvufx+rb+Gc1SEaiwnZWpWTfAm9bCB3Qr RYBesZkmzfsU3kq6EHi+VgQUlp6cIV3TxTS9j5rMG0WgVt+/wq/qCKYTaBJy aBGBC6xx5n8CATMYsFxx7xSBTR+ulF26mpjx4dGce31UfRlLI68e2oeZavwX Hw5R6yFeN61oYA9moSlDz36KgHXMLM031R2YTXM17L8/IlDyyZxy5jsZs3uo d7yhiMCv31mvjnnKYI58V6mP8yIwz6kl+5csgrmmc69Vr4hAQlQCu5YgL+bZ NlnQvCEC2rf4n94SZca81gobvXSiEPqDXSTk1kY5X5K17i9mUfikn0VjZThX LtCTHDPLIQpzs3c8rPaMlgvy9/f/4xWFXQuXcdu/7+VC+sIKzMKisLyS3jkb WlguEnbBhU9CFEZFSlJim8LKRb88+iwpKwpmsXZVgZUM5WJbjQzbFUQhncZZ mefQLW2JgywGasqisFMmjEvjfqa25O2j8Wi3KOQ8Ui7gflurLfXOf0xPXRQy SKn7O6QHtGWmSndePCgKDt+eXJNVn9aWVVj1vIJEoS0x49uXbyvapCvqVU5H RYFSe6Pu/Sw9kk905fA6KQqV2n/rg9i4kEJ37sX7+qKQO//cdy1MEG3jm0yJ uiAKe1Mznh4skkSKZxSm4k1EwQvAvmVADimFWqunm4vCHeesja6R7WhHdfK9 d9aiMJ4Rlzvrvxvt3Oz7WmIvCvfPkMV1s9WQioawQJ2TKJSqoBeFXhpot/sF izZXUVBPfVW+sKyNVN8+yvzhIQoNd+g4BuJ10N7Jxr8TvqJw0KqvolX8OFIj sxxa8BcFzvq5/AxmPbTP6mjI1gNR4GVruyN3VR/tf+HfyhYuCgn/ZU3QJpxD B7pKxYWiqfZjCEYaMEQHeVdtZZ+KgmYu19+rCsZI87T6ux0JotB6OySY9qwZ 0gpxXdv/kprfz803MrE50q7KPXokTRSsxxX/8ZZaIbTxJ0o/SxRCxgZuSZZb Izig0GuaJwpl6MBr4982SMfNWs72vSgsNRTukNawR0fykm+4fBQFX35R4ZZC B3RcXpgupEoUunZc3XdulzP6Y62bqVknCv+mU2T7NlxQxH+e+rONopD0YGEm 2usWapfqSTDtpOq7lX3+Te5t5GHOcpirj1qP2IlR0sETiSUe+F01KArdPWLy ypreyEo0fu+OCVEIE18IVSLfQfQmX3uHp0Whk8dVUEr7Hnr9bPXe0zlRuM1H qu0t9kfT/GZNm2uiwCRMSJhz30feXOK2rZxi4PXDULf1ciiSOHOKPZhPDAau 3zwT2RaGKsJ98w8Ki8Hx3NWaOxfDERPrwEaqjBgsn/R/MRQWhbJ0OdJMyGJQ d53TelgiGp0O1tLjVBKDtEe8K2br0egxfdIzj71i4BPL5mXa9hip63zTUj4g BnRHo9d5vz5BPf4bo0NaYvC7camwrC4WSW+a7zp5XAycP/btv/DjGXqzIlUv bioGTr2j9RJOL5DBfoObLeZiULn30x6R9ET09/Y9gQfWYnA4KGa1ejwJacwP WVEcxaC2l3f3YZ0UVDuTslpxVwwsPsy+mRJMRQ47Wl/evk/1ty9vRq8rFXE4 0h5XChWDmtmy/HMv0tD5iSuPn8SIwWtpx1Svva/R0ChJ2S5NDMbNdfN4k7JQ oOyFVrEsMVjlXrsQez8bKVjd9/yeKwb3Bci2GzdzkNOPseoDxWKwd+y4QpJh LlrpTrvM3iAGcSVXZAdz3yG+bwpR7wgxeJip5Dql8gFtErvTGxbEIGigpmig +wOa5NMs/bkqBjJM+7T77hehKhODSREGcXCna1TZ+lmM3H56Hg8QEYfLJqfp WJs+o45/9ZvnDovDUKqLRsKzClQh1S7odFwcBE1LX4TTV6I3h3/sCD4lDl16 HIG0tyrRg5A5s89G4nCmZXjA40IV2scvVky6Lg489rJSdopf0HMlR+f5x+Kw lr+9dV6kHgWduR3MGScOfZ/rMu4l1SMXl3tJ25LEwT5JE9zlvqITRU8aL2WI wycm16ORexvQyuHSbV9KxKG6kJFht00TMjPlHI79KQ53W9yeagS2IInQt2f3 7ZOAtNxS3rXHnSg7L7d69aAEfCZnChSOdqIDnTn7ypAEaFSZPW5X7UKGpEyJ oycl4OS3yH0HO7pQRGnKxLnLEjBAu2+bvXgP+jcb438jUAK+nZThUP3Uh/pM 3d+lNUtAqaS+hRvPMLrmf0vuWrsEfOJVeXBaaxgtvXZ5ptwjAdq+r5J3XRtG fAtOfgUjEmAHHPOcFcNIL8r2RMWCBITyJzXTuYygT1UXh/vFJIGVQ+pU8PdR FKeswcNvLwlWBpe4IgJ/IaNT36LLHSUhYUBGcCnnF+JzvMJ73UUSjKaT+LU6 f6Hw7DC+Sm9J0NqtbXRx2zi6u71PwDlCEiJllhMTv44jm22+oo35kuBd6BRx gHECyepyJ3gUScIfXvn0z8oTaNAuVYxUIgkfCyGG7vwEMn7dKO79RRLuHpN+ MJg0gfTIElLbuiXh6Vrcf/+p/kF75MpI99cloc6W+9dug0lE0TmXqkIrBbmn yR23XCdRtvUvuT5GKdhlk7do+2QSyb/iJO/hlgJVsteCWdckEpG12DYkKwVO UyvOFiZTaFNqS1lTVwqAUjdcf2oalWg/eTN+Sgrc8ly7Y65NIy+LbTsfn5UC b8O9natB02guyUDlj6kUpIhfq31VOo1+SqTsfu4kBeeM6K9obZtBDWKH1edj pCDNuVTh08QMapF6q8DwXAq+JaKSARoK6iJJiggmSkFbtVS8nwgFjSitru17 LQW6G45SO49T0MrB/Aqfz1KgpL3Auu8FBW1qSxeEYymYDkq4I/OWghiORKYm fpGCwz/osu9VURD3KYfg8mYp+Hl9oD3uNwUpXJI9TTdGPa9vckZGmUA7LB8d 4p+gxstyFiUcJJDq1Q0V+RkpiP74uzPwJIEOOfbyHl+WAqnteZeTbAmk46xL b7wuBX/lI/mabxHohNuHBXtaaSh6f2fl+j0CGfrGdIexS8PjxbMKv58RyOze Vn0CjzRc/bnfvuY/Alndv/E5R1Aa0AHdBs43BLIL6c8pFZMGU53jA/gDgRzD TyZ9k5aGr4IPd/eXE8jlUXHUoLw0KHn8s7KsI5DHE7I/sV0azK9LcJ3+TiC/ 509caXZJA6cb51BKF4ECX9Be5VWThgGbxwHmPwgU+tLZkKQhDRm/hLIDxggU lfrj2F5tadiKKODn/EOg2IxT+48ekQb1jB3+WzMEis/5pGh0Qhr4X2wVm/wl UPLbbWJ2Z6Rhbu7SQ5ElAqW9f8rueV4aFmmVv2mvEii7mH4jxFgarh/kNW/8 R6B3Ja6UuMvSMM3rIlm+QaAiPDSUdUUaHj2zXxHaIlBp9ZnWz3bS8PRl92An FVfVlVQ1OkpDf4pV/RoV1zVuLxxwodqXtnn/gIqbvj9Pn7ktDaUNDOkemwRq a2d8vulD1XeXQta3dQL1dLuFcvtLg5qwU9vDNQIN9o94yzyQBnF/jYN5ywT6 OWTguOehNLzTfEtzYIFAk2Nll3UeSYPMzuzTirMEmv2trH8hVho0lCpP3Zsi 0OJUPLKJlwbhuzqqh8YJtEYw77mdLA3sXHs0rYcJRLNwmxScKg2NMoczKb0E YloZ43+eKQ2s9R2Vo20E4lg/x5iZS12fXu7SbiQQH03F0scCaUjZvHSIvppA IgwqE1+LpWHk2IVzuz8TSI6DrXGqUhpsDugJ1L4mkCKPV+l6rTTUBo8l7kok kIrAeC5nkzT8dd4fTB9DoIMSVdG7uqSBV0XcY9qLQKNy8oN/+qThVeaZzTEn AoUpByunDUlDWts/pktWVH0O6tWK/KHqeWxbyNdjBPLXecPfPkPl13OFtmo/ 1Z8e15XIv9LgZhlMq7WdQJ6mbf9o16Xh0s3ob0VsBHq0O0HegkYGZKSOV31c o6CraqdOldDJwL5VzyjtSQpi18qNu80sA4lSJ1V76ijI7JTr3kkeGYgqdzx1 8Q4FqRiQzHT5ZeB1Kd29MAcKorvQ7p8mKANeu66wHTeioCwz9WYLMRlY1Lx6 yEKZ2t8Oq9fa5WRgPuNlnGzbDHoWGpBcuk8GSu5m0xexzaDrEao1ohoyED+w Z2yMmEba0WNTHpoyMJ3XcTarYxr9en5MYw/IgGjZy5nNxGmklsHakX5SBmhi 9iX8VZxGbTUxrI8uU/cfOOL3V2UKcdG/cr8SKAMV5TcE8v5NIKZVfGEuSAbu pOZM9bdNoE3KD9WAEBnYLMlPK82aQESf6FxKhAw4ajCWJF2cQC0FMTeGn8lA smHmMnfub/TYOsDOMkcGyqKO3tXVH0dCVVYm5h0ycCOuZ+zXzTHE9fHu/pku GcgzW3u5gMYQU16i0J1eqr36eeY5njG0HN/TkTgoA65RkgafC0ZRj+vZcwMT MpAV41JYtTiCEmRB79KGDBTYHm097juMpAKktUwVZMH1tpSElmw/ynNjIf1Q lIWP9o10znV9SNtujvmKsixM7+H4N3mjD5mfqm6/tlsWpOPv8zSU9KJEQXtH r4OyUPlU+LvHpR4kmp2X8FxfFpSePPenze1EmYnP/cXPyULL+2kuCVPq/fzI 3+7lBVmQo9RQchg7kYn7edUME1nYtnbgobpVB3qmvfS1yFoWLP6U3t4r3o4E 2g+tdnrIQn4bx7mO7BaUVqMwZOotCwGdUvymli1o70fumh++sjDxN++ch0AL Op80Ev3LXxZOBnno0tN+RzH2DxQXH1JJczq8EK1oQlzrTcYCL2Whzu7X3fd+ 9SiZ8uFQ3H9Ue6fSPEzW6pDKSLKcRJosCP3gkrb0rkNnal0IuSxZ0JJzv5Pg W4siogVC9r6XhdEEQ1b6mC+IlXy56HydLEgatEiJ0Fai66JIL+erLGxwOXKP JFagBk7SIH2TLHj+eaQ3r1GBIpZ+M35okYUDq6JzU0Q54qp3MxLuk4XshL51 GuZSdLP04h/nAVm4rmUmf/hCCfr+TuNO/aAsUE6Cs+irzyg6fivNe0wWOl2e OT3W/UR9L4Qv9E/Lwnb+mOqk/CJ0y/JmqBohC7/evWx8zleE2i+ck4ick4Xa oBkFBY8PKFZL+Kj2kix03Hm089/RQiTMlfokZUsWeFVJ38xpC5BE/mdVWz4S GEU9N4wZz0F+6Um1ZQIkSP4gvvvKajb6Ee9vJiRMgkM1WtH8vNkoOfB4YJ04 CfKOBWcxGGQiGcO21u1kEgScjx3XY0hH/ic+2AZuI0H7tkm3q4fS0IhW3Grf dhK8tTLVlvVNRa/IFrIRKiRAeiFr1xheIfLyHxfKfhIIcLgqHU1IRsFTTQy6 B0mg6rPyudwwCY0PvY17qUWC6O9KSRPCiSiz/nbF2cMkUJM/HzVfHI9YykwM s46QQJNugjMzNg455GtO0B4nQbzASlWB93OklEDL816PBN6qE+lOl5+ih1E/ U9nPkCBT/dt/U6axaCqwbr+NAQnC7s+5Wlk+QW8cIy0FDUnAMfDcvDYgBqkc En3raU4CrqukFv0jEei9nMM/OisSEKImK1rPH6IDbJ90o6xJMLDzoNqff6FI p9tkOM2eBNdnLwmZLD1AdWWZO3ZfJ0FtR6hGcHgQOp224lXiRPXXPu52cvd9 dNE1jrfNlQRLrE7ilzL8Ub/xhLm5OwnsysnKYn/vIivtA9kTHiToT+V7tq/A D11n79HZ8iWB0JP8NL5gL0TMbXv08C4JogxMax/GeSD3Hs9+wQAS3Lrzn/OO Gnd0L13YfUcwCe5/6KvSu+6KGCLsK4pDSfD08ir6VeWMHt4q5jgSToJrOxdp 1YedELcps2lzJFWvcGELReXrKBYZp5tGU/VAGbRWr+yRqELG3M/HJNjdub/R +6gtSuZYPuTylARlybojPDxXUWbvs67gBBJY/biztkPLAu2sGCfxJZHALGCI zbzEDBW83uec9JKqf8WiqEqgMdofGVyi+IoEWgYMi2WRhqjUrYu5MI0E6spV XAr959BhMwVDlEGC/caS5svN+qgWPFIaskiwPl2HUiz10KlttdNGb0jgfJzl yxXr46iFU0hjJI8EoU9L3xq06iCjBdsHTvkkuMKbOjxzGqG+vg+ty++p8W0r Xiop1kCWlYxS94tI4PZXypKtWw39zDC6zvWJBFO0252ak3cjh6j0ovgSEtTT 5kT/YlRCFPdFOnI5CUqv3nN/R5FDbpeOGbyrIIG1hk2aKZakzjNPX2hWk8Bl ITv4r78guqP463dtDQn0zkQPxo5yIjpudbXz9SRYYbChbyinRyGLQf4/GkjQ 9itorejaijbHQEfTtW8kiJjLW+y5P6UdUyUvuvCdBA+DpH+J8fZrC2W5295r I4G2gb/BL8Ma7cRHX/LZOknww7j8zPe/6dqyHgKbT7tJIKx8l1PY3VH79WUb Pdk+aj3s/ptuzydbvuNI4bM3A9R8marnZqlGl+dvZxjbP0SCwY/r2fIPi8v3 8Rjuqh4hwSvtlTbjotbykqVUX/2fJBD3KCWkG8bK4cd8Xe841R59A+v5tL/l NdVHBGz/UPNXF9dwzWWrXC/7idXsFAkqRoszuENY8PfosTe+FBJc+HHojR8P Hzb03LvKNEfNr/4Te1p3Udxrfv/Y43kSLHOk3w00kMUWR9tjJJdI8Ed5o3HH iAIeU5IbzFwhga3USWwSshNf43VTUvtHgnNjnVsKuap4ZrnKA2+QYBud5nMZ jf341iBftR6NHGwFWe3KctPC9bWXy7Lp5EDjxeSZ15uApd6+LmZjlIPMMrq4 /0SPYvfns/nXmeXgslhMRMojXdxw7+CbBlY5qPngesjL9hSWuRb0WolDDrrJ V91WXhpgj7PNKQ+55GA2f6FwUfY8bjog8mKSRw6CKCU1bDmGmCRr/VSPXw5I AvPPEm4YYy/WN4+yBeXgvHX8NlonM9w8txjGJiIH1S9PbX+eaY7l+1DQdTE5 sNT1I3oeW2GfqrC7DRJyYFA8fKf1ljVuyW73UpKWgw+iDIcv37bBCk8k3R7K yoFF5MVzyS/scOvVfHs9BTnQnfvzrc3YESuc/nclW1EO2Cf2n2GcvYH91I5d ZlOWg6WioUf7TVywImPv2YZdcjD/OtNZ0dgN350hnVJSlQPulzfC/y25445O p2MP1eTgoP6ncJFcD+z/muagnoYc/HW/sP2chQ/uitJTy9aUo84fZ7l8zPzw Ds9YFTZtOXjpKmrC7HwX9+gqyjXoyMEBwfP+ua4BePcfAw6903LgE9cadvt+ MA5ujWfK1peDrPnxa6TJEDzwaYyG7ZwcuPXNpa9ZhOHQh56LX43kgDWAwVHc PQIP3qoktpvIgYK1OEuvQBRWu8Q+GWYmB8r0iQpvvjzCw8ovB09aysH4Pbll jawYvE/gT0/WFSq/RHVfx7jHOGJdtZ3VRg6ePWwSf/boCT7wrbbu6zU5sO7x 1IBnT3H0Tcq7k7eo8e/4zJnPnIDHLx7IyXKXg/wy7beeGi+wFgpMZ/WUgxvW bO6bbol4glso4auvHMiuful+Tf8SQ/6h+ycfyIFgCA33sO4r/Cw+5E5WiByk 3L+otMCQiqcDWj1ZH1Lzf/a5emltKo47b+v0NUoOhC7bSEWapGNiPsLoZJwc 9LBXg0JRJh7o+e9iUoIc2DFse6f7NAs3lBUZzyXKwXSokZGKdzZOCxk2jf9P DqJZ3/+0NXiDzcTVLP5ky4H8u5Q5AfF3+ATNSctDuVT9UrTO8Ca/w+q/zK1i 3spB4lsn7xC5fMzzNsRao5DKp+flhUn1Alyj028XVkbl//XUQKVXIS7YNmv/ A8uBlgyHbw33B5zCweiwp0oOmlXu+JzL+oB9ulQce2vlIFftjg7zzyK8+3qg 8/YWOXAwuvKWzusTfhGz3evrqBwUvWHRDBXDONRD21vyF7V/Bs91nO/D2OPS BR/X33LQtOrEaKhfgc+S7/iJTstBqUjFXw+BSsz0qcXfYZFaH9bT+4ffVmHX Yc8wVhZ5YBPy0HYg1WLdXbUJJ3fKg5tRSsT01DdswnTCsGWXPCTrH/CMuNOM r//4ymmsKg83urhJN3m+46jwb/42++VBjGVBf0GiBXf97rC7d1ieOs9WH8s6 04ptUsZUPxjJw3Rcb+nBhnYcyEvbKHNXHswtxJ99k+7F5fOa/5ab5WFovcjD 2mAU/9dUbH2hVR4UMo1/d/mM4qD0vQ157fJw5kOyg87rUXzSWDnetkceEkPX B1bWR3HHZ7H97SPyMObhMvs5awxPBqzeyluQBwGnO4tntn5iIZ7iSRsxMhgR Jc3+0b/x6oTq+QoJMiiF6eUzf/yNByrzPolLk+GdVJiT8dBv/J/b69A2OTLs 8JbqPLVzAu/ofqoAO8mwupD/4krtBNZJdrcWBzJIt5zm4Jn+g8mes189dKj2 btyT8eeexCxnnfa0HSUDm0OGd6rqJP5Ga0MTdpIMxoanhjY9J7GJ7YXkpfNk EP3768ivzUl8c4dqX6stGS7FKr6zXJ/Ct5fF1iyvkYH38tT8X4lp7FdFL0a5 TobA5mPWgoemcbhJpymbCxkukhaU6fymcWaQV6+ODxnEdz3zNFqYxm8Nrqy2 +JEh4j7LoibvDC4S0xO1vEeG/qyjC693zuCad+KmvkFkyKv9L5DRdgaPDpT3 vI8iQ3pAydnqbzP4T0bGyuEYMjhwZim9GZ/Bs7eiRVqekMEnZViBZ2sGb7FY m0zHkeGRXwI6pkLBEuqMPfKpZFj2O39CN5iC5WgoywXpZPCTMro6nUDBSo1d woczyXC2Iz2H4S0Fa1zJNDbPperzJEczvJOCL0ae6n5aTIYO9rOrPeIENjdR W5b7TKb2x+mFLWUC28hJCheUksF+m1HeE00Cu32iXGyuJMNOSP5v04TAPkHd Hpe/kGFPmlpEhx2BAw0qnk3WkmFQ7XmcgDuBo3/FdDE1kUG3YLayJYLAz9/5 LMU2k6HxEbnmVByBk32vCsm1kuGkbEGRSiqBXx8/vS+/nQwu83fEvHMJnMur fhF1kUF7fa+vUjGBCwckPb71UPlJn7yuU0Hg0gymZ5f6yRB+ns6/op7ADYd6 Oj2HqXyOZ7ya6SZwK0vlIuMYlT9Y0iUOErinPUsw9heVn6m5ytufBB5OfqxO miDDmfxjIwqTBP7t4Gv0bpIMdEZZA3QEgSlqNre1Z8jw5APrH515Ai9tnX7a RJDhUHl/5/gSgTca1D+Y/SVDZvBDb8oqgRmeSXVOLJDB4JV3vuk6gdmvMC96 LJPhOwezteImgfl2zAowrlH1KYjwMNsisOhyj9qTdTJwxl0ZIahYpqrSUHaL mp/4vhcTVLwtMtv9La0C+DbovT5KxSomT2IPMSjAFXd6FgaqvX1yfoWNTApA m33huwLV3yGKTYcpqwLY3w3hzaXGI1Si+6qUXQF+2T0QaKHGSwlRcpHmUgCL Zo7261Q+tYac2oE8ClC8j7h5h8o3WXaW/RefAmjKn+RmmSKwB6WtV1dQAbwO +A+zjRNYv+RDRrawAtSxHxYIHiawQmjcbU4xBVCr8Rvx7iPwpqHvERcJBdBy tQsabydwl6wFb7uUApwUdtFuaiJwHgWG1GUVQCZK96JyDYEtQpl8/5EVQDJ8 Z8fFQiofoz8nLBQVoOTjqxG5HAJzkZqEKpUUwGMy+4XjfwTGJTH/q+BKw6ns urBoogwZGoQIx/Oc85xEpiJ7oYgyRCmKUKTIUCJEylCZQr2RKRSREioh2V5T qKgM9YpCpgznIYpUfOf7ua61173Xvda9rmvtP7s4QpkBh9+tS3Pn6inpik/I NxUuP2Glp4yLNPbaf8BsjxoDok0E1tud5daTlhpZtZXB3d8z8uAwjWefLzzz 0WaA2KWkVxwzGr+90hf+YTsDDn79yl6vR+OQjblyafoMmOz70zUhT+ODdCS9 sIMBSoFjJiniNN5cceqFkxEDOsOdtesXc/Wzf4sNsYcBHv3LpTK+crDe1cq4 x/sZYJWhpeqbwsGS1pn2qw8yoGJg67DGFQ7+vjGM8rdlQE6aTEyQDwdnVRg3 6B5hAG3VVHx7NwfzTrQtNLoyYLBqZ4fp9DjurHj2hnJjQGXHid37usdx8dXk lGunGBDifV9/qG4cO8k7aO4/zYBDBc77Sv4ZxzXWox49gdz6LIncJrZ5HKfK N+sYBDPg+8j3D4kS49hnolAgJ4QBivXaaYVzY1gh0jfHLZwBj/NaK7NqxnDY i0Wff8Yy4MpHQZF7FmN4p8JaU8EsBiy9KhtAHhzFT8br5I7dZUB6mP34Wq1R rPDszM/yHAbkXyrdULxmFC82abntms8AOd0Yn8H2EVztGfG95gkDYvyX2p4z G8G6z6cTA14ywKAuRnu/yjesYfmub2iMASV8N9yXvhzEREjkuWpNJXAsvh8R eKEXV2hnL9mzTQnW913mTbHoxRYzOKFdRwmMej2Dn8v14nMePx4M6ykB+/aR kKW1PbjhsEOv0B4lcA53if6xvAe7btUwOeSgBN6eVjc9Wd0473vv+ukrSsCx 8xe7GP0B6xb8yQ2KUoLCgawaX/UP+P2JNRrLYpXAf2PsfNvnDjzXs8dC8roS yJlLrehQ7cAmLc/CIE0J1NRXGar3tOGR/Jjx6CIlMF5xPvu25XvMdN6KFTuV wM584vH13a/wtY1mc6FdSrBWoiV+SVMTnv7ipN73WQkeE7ce3jVuwpW20fnp X5XgBp/7mzN7GrGlxZfENePceKGZgXiHl9hfO9yLn4eABzYbU71ra/Dn2Vv5 x3kJWP0vW/CudQ3WLykYrFtMwCIPzYkNI9V4pcrHw5f4CUBrvQNnxatxBoNl /FuUgA216l5GAVW4YdU7uXFFAup6RSwGlz3H7JaBw7sJAnhFrTpVrctxQvRc Yh6TgPIVsWsV7pXhw8sUhFyUCZB+Yvt2yqIU03985z5rEcBykL22tfYp3lce pb5dm4AU/Y+sdKWnuNQvwytlOwGKBzY3Z8Y8wZe+Nw4e0CfARuTG6RDHx3j1 sFTr290ETLUuiLkRRTgwW0VI2YwAjz1EbVJGIe5xMjSOsSBg7dNnYM3d9+53 e2Lj/QQEOsT5jW0uwLqt1fnV9lz+s3Yz3x3v4ztxHwZlHQlIUBN6kB+Qh5eb jcldOEqAUPB3PqukXPy+QSJJ25WAF6OFb8z7crBzpWvYE28CbvPOvZErvIM5 p0b8dvoQ8OrTup4rX7LwOWl3tw5fAjxFfwe4iWfhyPOelrOBBHwbrNI/HZuB xanJnVeDCTA/1iQyl3Mbp306vVXyIgH8avLimdrpuHCbr6xOBMF9z2/R1QhL wdtGZsTeXCGgVChdaEwzGdfc8l9mH0WAWZRjQfWPJNwxe55zIY4ARt+bQ7bX buI/JaEVNckEaH3cYv5SIwFHuCwp3JdGgJPDN5aUVjwWXn35zsBtAkw9La3i 9ePwxrORkcuyuXipR3Uy+6NxvsLK4KR73PzM1UtzNkVhtbYYb/I+AWcisU7L 1avYaEv8wd2PuP1x5nE/cjoCv+0T3dNVRICCs46L8kIYtk24gU49IeC86y7R qZRQ7D6ZyLhWxo0/cChVcvFF/DNjnaRsBQFyjdcEXqRdwBcsUgSLKgn4r7Mw 5IFFEE54lD79voaAH8yLe9gr/bHUEdnho/XcfBvKLniK+eFsoaxP0w0EpN3T JwLVz+JNlfIt4a8IyNTKMbnrfQaXnsquXt1MwG/Bc9rbX3pjPWmlkntvCbCU zr9/U90LN73OzdNqJcBNbZH9gt8p3M16EGf7kYDL+ytVT0q5YpdP7LDRTgIm 5Q03bS5yxhORj/zOdxMwUP2n19PrKPbfpuIm2EPAjUfNXaUHHTHvSLF9eh8B QdhNZPM7exx9S81SeYDL3/ZGiPL2Q1jCuGRn1RABKxboDxe+H8Dps5pb944Q UBvxjElx9mEit4zqGyMgOOPiYm22JS4+oC17hibgjxD/Fjsbc6y97IXY4u8E LLusMsHfaoJrS3SX/TNNgNTGaR+vfw2xmUvVnOIMAVskLnsHyRjgjxL6nJJf BLwOjRujGhB2rKvpNfpDgOO/ckVqa7fhEZ+d7R/nCXgk0KVcI6uOfRReNpxY RMJPhtfloPbNeL51V8UcHwkv81aG/bZi4suhTY+ilpKQrxNpcE9eAYts2XNH ip8E7f6GZxK8Mji5783NhytIuNEWzmuQI4HlE8wjdYVIGEHse7Z8QviB3rug FhES6iee58vU8mGNSUtvBzESwlOcKpj7ZitxRtuxSQkSonNLx2z0Rit79sgd 8V3LtTXccjumOit5fp2y+S1Jwgcrp52mnnWVctnlViHSJNRFdY9sOZ9Tqb93 mdkSWRJK75Q8c2R6VB79a7UrciMJHkTdwyrj1bpheRn6wookmHxe5ryGiNHN 3j+uc0OJhHcXUzJg9Klu/aJtmuuYJNidX7X3xNO3ukMPI1TSKRKebtzv/+dV n+5y21aWvDIJVrxWd9QaJnWJpbKMXBUSsvhStRzE5nWNi91l2Wok6A4XtliG LkMn7cskizVI2KD8sF/z4CoUKbBUQnMrCUJFnBqFc2tRfomlcIU2CRacaK/z ubLotdNtfj1dEj6H+/aI8DPQuNAYXz2QEBvOY+F3lkJCz7XmTQxISGyvc7jD q4qUj4fPtuwkYZbXUpTXVQNZiL3/vm8Xt3/nhLzifLWRN5YZ/8+EBNNXew/M pwJKcHMbsjcloTFUYmD6swEqXlPa+9WchNtql1xmIoxQa83iLldLEvRQ/opX ybvRtOfejvF93PtevSPXiFggcan0t6cPkJCqFXTQPdYSqTeMNM3YkPC212zN 9t37kbWPZt35wyQ8e3890s74IPKTDcOLjpAwOWzakBZ1CCW9flsW4cjFVzTN bxQ/gjoVThbEuZCQuWD1Ojj0KPr9tiRX4gQJNt5z5jXlzkgqiO9OshsJXvrK fvOSrkiHtEjb4EGCrcIPs8jsk8iuPTXxrhc33vGRfuWhUyj44rd48gwJ02bm oX4bvFA6WyO64CwJa9z19TRzvVFPeEtIaQAJkjldjo2LzqJFqlKB24NIUKni Nxts9UUbP7uerb5AQpLa2RsYn0PHNHhPvg4jQd4odZg5dB6F95kd23uZBMp6 zcM5+QsoJzbFvuMql0/fbdGLlSFoaFDNqieWq3+jTwYiBqFo+fWLps7xJDAP RkU+TglDBGo2GrlOQnrGxR1ZfBHoZOJxnekkrr5w077LvFdRlMETDf8UEs61 lXwUTI5ED2gelfk0EuLeDMnx6EcjjlGy4vI7JBD2Tarba68h4enBDTHZJOR6 +89ebolDmzO2SIrmkrAkchf1qC4eec++FpJ6SEIgabeq7PV1NJ27MKP8jISb /Xs1SeMkNGhtmHG1jISQRd1r6k/eQh8Xx+z6+pyE/kT+kXc3ktFzB8lbN6tI EDZbPxnHm4YurVXf9reRhBbrbzwR8pnIpz6wz/o1CQFrlsbofchELj7VkYXN JJhX3h+9ci0LGb81/3S0lYvnLZzTI3gXiVw5eb6piwSj/r/+D/TvIV6NIgWF L1y86gv/Vq3PRdNfZ14H9ZLQ888G7exfuegDCpdWGSRBfO+S379r7qP0mduV iTQJE778YunXCxB1vJ3HmZcJSxoOpHXFP0YyElJ5lYuZED48utaa8QSJ1Djt XbuMCYEaDvJOL56gKZmJzFcrmGCUKBmvOfUUlXcIGKhKMOHnzZzjM0GlaJch hC8oMaE7/ZegqUgl2jYdwbZhMsHjk6PznuZKRGW9aS+mmHAp+vjy/liMhOdt GS4qTCj/y6szFlWFOp6effl6GxPEXxx9Z6NQjY4q5vMnmzJhsd13GcuEOhRQ Z3+SYcGEFsMfTUHC9SjOWfRVsSU3HxU2j3RsParI9o9+dYAJv/aqpzy89hKJ M3YJ/3VkgqRY9uoPdxpRPWNA3MGXCRmqj8anBZsRk9ggy7jNBGcT4Y3/Dbci aHgfUpzJhID17XpPtduQtWtEr+5dJgT90vASvdaGQnPHsw7kMUHPfufMTs12 1EVUKF59zAR79CvYOKYDxZI2rLGXTBBsDNzuZPofmmRe1yieYMIZ6ZW0FP8X 9PE17BSbYsI70Sdyxxy+oCoPjpXPDybIZi1VbXj2BcUWG3trzDEhNL+x89SW HsTcxvOgnI8FF5dnh0709SAn41NyNatZEKi1xcRLvw+1HTda2abDgoxQt9WC v/rRc/4fkuqIBZ/bJLQK5AdQVn4WeVOPBXrXIqs2mQ0gL/qv4UFDFvyV+pe/ IWsACfo9udhlzoIvJieKVUwGkWGE3Ey/EwsU40f0/okbQqV3f/f+uMICQ/sW Gb/Jb0jDwGfGJIoF19WkZYLER9DT3rGVGTEsGNmi1aypOYKKZT5rmiSwwGxM 3bw+cAQ9SKqKSU9hgaiHXZXiolGUER2+1aiABR6eQwaDv0eRDGveLLWQBbxe 4rty142htEbfY5PFLPjvm9PxlZpjKHmp67WUZyzIse9/VuI1hm6EmAzQVSyQ yvRM9v0yhq76CMcntbIg9EHgsfq8cbRc7ErOeDsLOHsb76r8O44iingquKsw lP66H6f8cRyFcSYHx7q4560rhXsWc1Cwa5uO3iALnq1yWf73IAf9WWpqeXOY BW1dT4cG3TkoMLvu+OgIC7K74uTtQjjoXF9Jwj80Cxy+SHwYzeag04dvDX+b ZcHBMX/FC6McNDG3al73NwuytExrS39zkOetSLEbf1kQdowT4L+CRu4dgbq6 vBSM7Wj+EkPSaMRn2ur6Ygpqt+3w7tGk0QmxUyeGl1Iggvl6n+2kkYuF/Y2E FRT4a+lZTR2hUT+nI29IkIIyy5V21u40OhpjjnVEKNB8WW+lc45GDk0wMihO wUZDSeNrsTT67Fq2oL2G6z/efOZ3Eo3slqlKxK+jYLq76OtwFo1sd8iDtgwF JX1xMoZPafS3bblQjSwFFdW/XrhU0ijDmfPJRJ4CIzed2Il6Ghn8bM17r0hB dlCz8tdmGg1GlPnZEhR0dFYY63bQ6Oqa2zv7mNz8zxdeXdRNIyo3TOwkm4Kt 9Pc71FcatWid7J1UpmDe97QVHqbR6UbzR/6qFCg319mUjdNIwlY9aJE6Baax yhckv9OodERy91VNClZtzUzo+0GjQ4E861Zto+Bp/4sTq37RaH7F4GCSDgXD kV09Ob9plJn66oksomD7HP+nrL802sEuupSrR8HcCQH9JQs0Gnpx02LzDgos Cm2XNnPtSLPzMqWGFDyUVNnw//+K2F8cx5AxBc7DQZEJXPutp1H5y90UuBwf 3RM7T6MzPOwr5mYUsB93e0/8odHqeFHrDxZc/hKnV5TN0ahMblb+iBUFZ1cE qw7P0Ohwcffk4H4KsoZilgZP02hBvwZ7HKTAUfrrw4AJGmW15sb8tKXgKnl6 /+dRGu08Fnso2I6C5A09m/MGaTQ8fYZc6kCBx38XAj710Cgq3GYmxomCtEaz M2c7abRpNaqTcObW02vSya+VRu9yFK6nHafAxu9RYu8rGvloCjgqnqQg5bin y5MaGpUfbP+j5knBz9AYw3+KuHr4Vt5U4U3B8oZ7G+/eoxFPQEbSDh8KfCVV Nkmn0cgwxU1tnz8FI7Y9heYRNPrG2svbFUiBfXYvQyCARtEVGm+PBlOwpX2u cfMpGr3vXuR+JpSCPMdPn2r30uisx9DW3+FcvVvg81sMaLR24fWy0CvcfqR/ LRBRo5G9bNKdhBgKjuh4e60T586D06ZPRYkUzHZnu5x7w0ExU2J5W5MpIGQt j3qWc9DmsF++/6ZSkM906u/M4SDf7FrRd5kUdN6Q6xEN5iDeYVuTiXwKAtJd /25gcFD2OVh7roCCP4+9VNuEOGgXP2NwoZACd+m0Q4tnxlEsc/KicAl3PjK6 H3bVjaP1py6XbaqiYK9weUCUHde/4KIeVU1B9NTOTPEd44g3wbBoqJaCD2Uv Tqoyx9FIyZK8jEYKnHgdm5R/jKFynrAk0VYKNrlBk2nEGOI+W/x+DlAgIbhe gO/mKGpmOExZDlNQZWibauk7ivTLkOejEQpsEwfmjaxHEfPzvIsrTcFMi8cU ITGKfikFWXfOUqDo1HpmIHYEJT33V69cwYZrJS63HM58QyvNbIokhdigUDtp mGn2DYX0aLH9RNhg6Cswm0J+Q65LZhU2S7DBJ/Z7be3nYaRp7iueJcOGjWcD 1ggYDqOOvtNT4Sps+LP/3Ktb/ENIQsC9yPQAGy5t01Ot8+hHdw2CAiZs2LBn 0WQ8L+pHqkGxBtcPs4GPZ1+lnHA/MpsobP/oyIb8zl3Zgo++ooiOH7+OurNB 3KGiqG28D81mXdAPuMiGkF/RqQOuvahT+3prTj4btk69ODBW14Vcz95NNS5g wzo6bXmSSxf6WfDUeayQDassDgSHLetCohs/zqiUsKH6h8CiTSaf0O7l0lIv qthgF7hwX7H1P1TRlnOstZ0N9VOG0uk/O5CJUCnb9yMbJIvy/CdTO9BHo8af az+xQVG+s7vcoANNl49ese9hg6OYZdXzhHbEztz88NsIG/JKhe+91GhDFZ16 vtHjbAiakjSQ7m1FJuJWSHmCDYxQ67cLUa3I5fLZdz4/2HDGKuGQ79f3aLoq InnNLBsEpIMihePeo0tziUfL59ggxKe4Era/RyJqeZTdXzaoZBfYCoy+Q+mn yn8sLLBBfu7LV69b79D/AKOy9KY= "]]}, Annotation[#, "Charting`Private`Tag$9745#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Epilog->{ RGBColor[1, 0, 0], PointSize[Large], PointBox[ NCache[{2 Pi, 0}, {6.283185307179586, 0}]], PointBox[ NCache[{3 Pi, 0}, {9.42477796076938, 0}]], PointBox[ NCache[{ 2 Pi - 2 ArcTan[(2 - 3^Rational[1, 2])^Rational[1, 2]], - Sin[2 ArcTan[(2 - 3^Rational[1, 2])^Rational[1, 2]]]^3}, { 5.327868689055077, -0.5443310539518176}]], PointBox[ NCache[{ 2 Pi + 2 ArcTan[(2 - 3^Rational[1, 2])^Rational[1, 2]], Sin[2 ArcTan[(2 - 3^Rational[1, 2])^Rational[1, 2]]]^3}, { 7.238501925304096, 0.5443310539518176}]], PointBox[ NCache[{ 2 Pi - 2 ArcTan[(2 + 3^Rational[1, 2])^Rational[1, 2]], - Sin[2 ArcTan[(2 + 3^Rational[1, 2])^Rational[1, 2]]]^3}, { 4.096909271714303, -0.5443310539518174}]], PointBox[ NCache[{ 2 Pi + 2 ArcTan[(2 + 3^Rational[1, 2])^Rational[1, 2]], Sin[2 ArcTan[(2 + 3^Rational[1, 2])^Rational[1, 2]]]^3}, { 8.46946134264487, 0.5443310539518174}]]}, 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->{{0, 15}, {-0.9999956955789451, 0.9999988567709119}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.7574232597786937`*^9, 3.7574232745706935`*^9}, { 3.7574233082736936`*^9, 3.7574233336236935`*^9}, 3.769340450376668*^9, 3.794007591957388*^9, 3.7947540216143875`*^9}, CellLabel->"Out[54]=", CellID->507533126] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell["Wolfram|Alpha Math Team", "Text", CellID->650821676] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell["inflection points", "Item", CellID->953643693], Cell["inflection", "Item", CellID->337687014], Cell["function concavity", "Item", CellID->107027996], Cell["convexity", "Item", CellID->759392877], Cell["second derivative test", "Item", CellID->900083379], Cell["concavity", "Item", CellID->79102922] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell["Symbolic & Numeric Computation", "Item", CellID->747815033] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell["FunctionRange", "Item", CellID->692791714] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell["CurveAnalysis", "Item", CellID->101618042], Cell["AreaBetweenCurves", "Item", CellID->383503339], Cell["Asymptotes", "Item", CellID->689474316], Cell["FunctionDiscontinuities", "Item", CellID->775539711], Cell["FunctionParity", "Item", CellID->755658957], Cell["Intercepts", "Item", CellID->361973309], Cell["StationaryPoints", "Item", CellID->459814033], Cell["TangentLine", "Item", CellID->436428319], Cell["CriticalPoints", "Item", CellID->851248926], Cell["GlobalExtrema", "Item", CellID->462506746], Cell["LocalExtrema", "Item", CellID->659293775] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->91842863] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[TextData[ButtonBox["Inflection Point\[Dash]Wolfram MathWorld", BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathworld.wolfram.com/InflectionPoint.html"], None}, ButtonNote->"http://mathworld.wolfram.com/InflectionPoint.html"]], "Item", CellID->17579780] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], 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->"TabNext", CellID->991784503] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082], 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->"TabNext", CellID->932041030] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"InflectionPoints | 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.849612644725374`16.337992021338156*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.849612644773232`16.33799202134356*^9, "VersionInformation" -> {"ResourceVersion" -> "4.0.0"}, "TemplateVersion" -> "1.6.3", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ParentCell[ EvaluationCell[]], { TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ReleaseHold[#3], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], 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[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{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}}}], FilledCurve[{{{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], Graphics[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[2/45], FilledCurve[{{{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}}}], FilledCurve[{{{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]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{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}}}], FilledCurve[{{{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"]], 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[{{ 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], 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 UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], 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 UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], 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 UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], 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 UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], 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 UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], 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 UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], 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]", ItemBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]])& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]])& , "\"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"], ( DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]])& , "\"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"], ( DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]])& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Preview\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`$ClickedAction = "In a notebook"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"On the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`$ClickedAction = "On the cloud"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Cloud"]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], 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"]]]]], 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"], ( DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]])& , "\"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"], ( DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]])& , "\"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 -> (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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[ RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPnQeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPAsWu mjNdNmVARkARoDhc2aswqWtWLGhqIAgoDpSFuBao5QqGURB0BWwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAMJyEaA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotcmIc7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2cswqY2GnGhqIAgoDpSFuBaoZTWGURC0GmwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAJxlBG4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nb99I5gU7gaCAKKAMWBshDXArV8unUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBBtDmK "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], 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, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[632, 23, 99, 2, 70, "Title",ExpressionUUID->"66cf23ac-2a3e-4fc8-9654-83617cdcd672", CellTags->{"Name", "TemplateCell", "Title"}, CellID->574149797]}, "TemplateCell"->{ Cell[632, 23, 99, 2, 70, "Title",ExpressionUUID->"66cf23ac-2a3e-4fc8-9654-83617cdcd672", CellTags->{"Name", "TemplateCell", "Title"}, CellID->574149797], Cell[734, 27, 136, 2, 70, "Text",ExpressionUUID->"600ae71f-74e4-4f6b-a2d8-9d4d607a7f93", CellTags->{"Description", "TemplateCell"}, CellID->803917045]}, "Title"->{ Cell[632, 23, 99, 2, 70, "Title",ExpressionUUID->"66cf23ac-2a3e-4fc8-9654-83617cdcd672", CellTags->{"Name", "TemplateCell", "Title"}, CellID->574149797]}, "Description"->{ Cell[734, 27, 136, 2, 70, "Text",ExpressionUUID->"600ae71f-74e4-4f6b-a2d8-9d4d607a7f93", CellTags->{"Description", "TemplateCell"}, CellID->803917045]}, "Definition"->{ Cell[895, 33, 1104, 27, 70, "Section",ExpressionUUID->"2353d2e3-eb6a-475c-88ff-7b151433cd62", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "Function"->{ Cell[895, 33, 1104, 27, 70, "Section",ExpressionUUID->"2353d2e3-eb6a-475c-88ff-7b151433cd62", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "TemplateCellGroup"->{ Cell[895, 33, 1104, 27, 70, "Section",ExpressionUUID->"2353d2e3-eb6a-475c-88ff-7b151433cd62", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[5750, 152, 1880, 48, 70, "Subsection",ExpressionUUID->"809b9e40-0e8c-42c9-a1be-5eddb9b7a20f", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[9356, 276, 1329, 30, 70, "Subsection",ExpressionUUID->"a3066746-4ff9-4d1a-869b-7871e9cb4caf", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[12204, 364, 6926, 150, 70, "Section",ExpressionUUID->"9242d6dc-4b78-4d36-8757-132fb5082f13", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[208591, 4410, 918, 24, 70, "Subsection",ExpressionUUID->"401317a6-e461-4d52-affe-e3d34caebcc5", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[209608, 4442, 893, 24, 70, "Subsection",ExpressionUUID->"c97fc25e-d8c7-49c9-8a4b-875079013672", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[210856, 4489, 167, 5, 70, "Subsection",ExpressionUUID->"b6e8aaee-6727-465b-a8a8-fdb242544376", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[211129, 4502, 870, 24, 70, "Subsection",ExpressionUUID->"8d7c254c-5b81-4c81-9ef6-0e7d6a2aeea7", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[212088, 4534, 919, 24, 70, "Subsection",ExpressionUUID->"fea2322a-ca49-4310-ac97-a807c526402d", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[213626, 4596, 971, 25, 70, "Subsection",ExpressionUUID->"e3f9e175-0c47-4adc-a26d-de5e94d3ffa8", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[215132, 4636, 823, 24, 70, "Subsection",ExpressionUUID->"6489e6d1-6b5a-45e2-aa97-220ab0a654bd", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[216265, 4672, 1762, 43, 70, "Subsection",ExpressionUUID->"2672e97a-6cf1-4544-8f4e-0538fbac5c2d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[218338, 4735, 1048, 26, 70, "Section",ExpressionUUID->"94cb7840-d2f9-4412-a672-3584b7cbcd9f", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[219935, 4776, 929, 25, 70, "Section",ExpressionUUID->"51f87189-7562-462d-8815-439c445a5eba", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]}, "TabNext"->{ Cell[2002, 62, 2254, 45, 70, "Code",ExpressionUUID->"03176de2-7430-4fbd-be13-dcaab08268f0", CellTags->"TabNext", CellID->227725506], Cell[10688, 308, 424, 11, 70, "Notes",ExpressionUUID->"0b7cf1d0-b597-4007-8c2d-899de57c96ac", CellTags->"TabNext", CellID->663551349], Cell[214600, 4623, 495, 8, 70, "Text",ExpressionUUID->"60be92fc-3d73-42b0-bf08-ff44519672eb", CellTags->"TabNext", CellID->91842863], Cell[219389, 4763, 509, 8, 70, "Text",ExpressionUUID->"5bddf036-9290-4b2f-a078-1c8376671d76", CellTags->"TabNext", CellID->991784503], Cell[220867, 4803, 495, 8, 70, "Text",ExpressionUUID->"1f1cc4a3-81fb-41ec-92ee-a595a5923594", CellTags->"TabNext", CellID->932041030]}, "Documentation"->{ Cell[5588, 144, 137, 4, 70, "Section",ExpressionUUID->"c112891a-0a44-4f7c-84e0-a38b45de708b", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535]}, "TemplateSection"->{ Cell[5588, 144, 137, 4, 70, "Section",ExpressionUUID->"c112891a-0a44-4f7c-84e0-a38b45de708b", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[208392, 4402, 174, 4, 70, "Section",ExpressionUUID->"2fc04f66-3b91-46e1-9a28-7665c518aa2c", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Usage"->{ Cell[5750, 152, 1880, 48, 70, "Subsection",ExpressionUUID->"809b9e40-0e8c-42c9-a1be-5eddb9b7a20f", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898]}, "Details & Options"->{ Cell[9356, 276, 1329, 30, 70, "Subsection",ExpressionUUID->"a3066746-4ff9-4d1a-869b-7871e9cb4caf", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "Notes"->{ Cell[9356, 276, 1329, 30, 70, "Subsection",ExpressionUUID->"a3066746-4ff9-4d1a-869b-7871e9cb4caf", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "Examples"->{ Cell[12204, 364, 6926, 150, 70, "Section",ExpressionUUID->"9242d6dc-4b78-4d36-8757-132fb5082f13", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657]}, "Source & Additional Information"->{ Cell[208392, 4402, 174, 4, 70, "Section",ExpressionUUID->"2fc04f66-3b91-46e1-9a28-7665c518aa2c", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Contributed By"->{ Cell[208591, 4410, 918, 24, 70, "Subsection",ExpressionUUID->"401317a6-e461-4d52-affe-e3d34caebcc5", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "ContributorInformation"->{ Cell[208591, 4410, 918, 24, 70, "Subsection",ExpressionUUID->"401317a6-e461-4d52-affe-e3d34caebcc5", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "Keywords"->{ Cell[209608, 4442, 893, 24, 70, "Subsection",ExpressionUUID->"c97fc25e-d8c7-49c9-8a4b-875079013672", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136]}, "Categories"->{ Cell[210856, 4489, 167, 5, 70, "Subsection",ExpressionUUID->"b6e8aaee-6727-465b-a8a8-fdb242544376", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420]}, "Related Symbols"->{ Cell[211129, 4502, 870, 24, 70, "Subsection",ExpressionUUID->"8d7c254c-5b81-4c81-9ef6-0e7d6a2aeea7", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728]}, "Related Resource Objects"->{ Cell[212088, 4534, 919, 24, 70, "Subsection",ExpressionUUID->"fea2322a-ca49-4310-ac97-a807c526402d", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769]}, "Source/Reference Citation"->{ Cell[213626, 4596, 971, 25, 70, "Subsection",ExpressionUUID->"e3f9e175-0c47-4adc-a26d-de5e94d3ffa8", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429]}, "Links"->{ Cell[215132, 4636, 823, 24, 70, "Subsection",ExpressionUUID->"6489e6d1-6b5a-45e2-aa97-220ab0a654bd", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842]}, "Tests"->{ Cell[216265, 4672, 1762, 43, 70, "Subsection",ExpressionUUID->"2672e97a-6cf1-4544-8f4e-0538fbac5c2d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343]}, "VerificationTests"->{ Cell[216265, 4672, 1762, 43, 70, "Subsection",ExpressionUUID->"2672e97a-6cf1-4544-8f4e-0538fbac5c2d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343]}, "Author Notes"->{ Cell[218338, 4735, 1048, 26, 70, "Section",ExpressionUUID->"94cb7840-d2f9-4412-a672-3584b7cbcd9f", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325]}, "Submission Notes"->{ Cell[219935, 4776, 929, 25, 70, "Section",ExpressionUUID->"51f87189-7562-462d-8815-439c445a5eba", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 332343, 6930}, {"TemplateCell", 332525, 6934}, {"Title", 332860, 6941}, {"Description", 333041, 6945}, {"Definition", 333219, 6949}, {"Function", 333416, 6953}, {"TemplateCellGroup", 333622, 6957}, {"TabNext", 336183, 7000}, {"Documentation", 336916, 7016}, {"TemplateSection", 337108, 7020}, {"Usage", 337481, 7027}, {"Details & Options", 337675, 7031}, {"Notes", 337878, 7035}, {"Examples", 338084, 7039}, {"Source & Additional Information", 338294, 7043}, {"Contributed By", 338507, 7047}, {"ContributorInformation", 338743, 7051}, {"Keywords", 338965, 7055}, {"Categories", 339157, 7059}, {"Related Symbols", 339355, 7063}, {"Related Resource Objects", 339568, 7067}, {"Source/Reference Citation", 339790, 7071}, {"Links", 339994, 7075}, {"Tests", 340178, 7079}, {"VerificationTests", 340396, 7083}, {"Author Notes", 340609, 7087}, {"Submission Notes", 340809, 7091} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[632, 23, 99, 2, 70, "Title",ExpressionUUID->"66cf23ac-2a3e-4fc8-9654-83617cdcd672", CellTags->{"Name", "TemplateCell", "Title"}, CellID->574149797], Cell[734, 27, 136, 2, 70, "Text",ExpressionUUID->"600ae71f-74e4-4f6b-a2d8-9d4d607a7f93", CellTags->{"Description", "TemplateCell"}, CellID->803917045], Cell[CellGroupData[{ Cell[895, 33, 1104, 27, 70, "Section",ExpressionUUID->"2353d2e3-eb6a-475c-88ff-7b151433cd62", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[2002, 62, 2254, 45, 70, "Code",ExpressionUUID->"03176de2-7430-4fbd-be13-dcaab08268f0", CellTags->"TabNext", CellID->227725506], Cell[4259, 109, 1292, 30, 70, "Code",ExpressionUUID->"36beb4b3-1431-4c1d-8a1b-3ef2658bca6f", CellID->326963029] }, Open ]], Cell[CellGroupData[{ Cell[5588, 144, 137, 4, 70, "Section",ExpressionUUID->"c112891a-0a44-4f7c-84e0-a38b45de708b", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[CellGroupData[{ Cell[5750, 152, 1880, 48, 70, "Subsection",ExpressionUUID->"809b9e40-0e8c-42c9-a1be-5eddb9b7a20f", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[CellGroupData[{ Cell[7655, 204, 197, 6, 70, "UsageInputs",ExpressionUUID->"f2fec69b-ba2f-4a3a-8b2e-186413148512", CellID->24353069], Cell[7855, 212, 332, 11, 70, "UsageDescription",ExpressionUUID->"d667e78b-b9b2-406d-96fb-f0d2f5086050", CellID->900873265] }, Open ]], Cell[CellGroupData[{ Cell[8224, 228, 275, 9, 70, "UsageInputs",ExpressionUUID->"226621bb-3936-4e25-b2c6-bfe9ed4e6ef9", CellID->412164160], Cell[8502, 239, 429, 15, 70, "UsageDescription",ExpressionUUID->"adbd5516-e0f8-4dbe-8c4d-cc3468f5822f", CellID->789336970] }, Open ]], Cell[CellGroupData[{ Cell[8968, 259, 185, 5, 70, "UsageInputs",ExpressionUUID->"b5843734-3c58-42ee-95e7-f2e5918d0f6e", CellID->726705933], Cell[9156, 266, 151, 4, 70, "UsageDescription",ExpressionUUID->"e01ead97-fc3c-41db-9e59-bc6f7fce5f7b", CellID->765822568] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9356, 276, 1329, 30, 70, "Subsection",ExpressionUUID->"a3066746-4ff9-4d1a-869b-7871e9cb4caf", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[10688, 308, 424, 11, 70, "Notes",ExpressionUUID->"0b7cf1d0-b597-4007-8c2d-899de57c96ac", CellTags->"TabNext", CellID->663551349], Cell[11115, 321, 459, 14, 70, "Notes",ExpressionUUID->"175bd12a-b6c8-4f0d-8ea9-c7b9c1a952e4", CellID->245538894], Cell[11577, 337, 578, 21, 70, "Notes",ExpressionUUID->"7114b2e6-a657-4449-b732-191d22c36220", CellID->805863732] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12204, 364, 6926, 150, 70, "Section",ExpressionUUID->"9242d6dc-4b78-4d36-8757-132fb5082f13", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[CellGroupData[{ Cell[19155, 518, 79, 2, 70, "Subsection",ExpressionUUID->"bb990ba0-6fa7-4df6-9895-0dc5087a9997", CellID->728201486], Cell[19237, 522, 296, 4, 70, "Text",ExpressionUUID->"482b206a-1832-4eed-924c-127ca0db646c", CellID->243487542], Cell[CellGroupData[{ Cell[19558, 530, 625, 13, 70, "Input",ExpressionUUID->"799a5499-58c8-45b3-b884-ef3f76773697", CellID->822124601], Cell[20186, 545, 336, 9, 70, "Output",ExpressionUUID->"16f72c33-301a-4737-8ffb-41668db04d2d", CellID->507758934] }, Open ]], Cell[20537, 557, 358, 5, 70, "Text",ExpressionUUID->"25c0b4c0-02e9-4a2a-8012-5d887b1b6536", CellID->760355788], Cell[CellGroupData[{ Cell[20920, 566, 1198, 29, 70, "Input",ExpressionUUID->"7665df38-209d-494e-80b7-dbc013d160d8", CellID->835417715], Cell[22121, 597, 11535, 212, 70, "Output",ExpressionUUID->"9b4c2b99-8fa7-44c8-b1cf-709e3b6acb2f", CellID->23584614] }, Open ]], Cell[33671, 812, 363, 5, 70, "Text",ExpressionUUID->"73632c61-0506-45c5-b7b5-ff82b83cf06c", CellID->150121581], Cell[CellGroupData[{ Cell[34059, 821, 334, 7, 70, "Input",ExpressionUUID->"a02956ef-d0e4-41b8-bddc-6c809414ada0", CellID->126561599], Cell[34396, 830, 397, 12, 70, "Output",ExpressionUUID->"88306f3c-8a95-4632-b46f-21ab2b162bbb", CellID->872265577] }, Open ]], Cell[CellGroupData[{ Cell[34830, 847, 119, 3, 70, "ExampleDelimiter",ExpressionUUID->"777c090a-0a25-4728-93b1-67a97ccf8bd6", CellID->744903649], Cell[34952, 852, 426, 8, 70, "Text",ExpressionUUID->"03ae71df-8995-449b-8ec7-84032e71ee9a", CellID->545877437], Cell[CellGroupData[{ Cell[35403, 864, 687, 15, 70, "Input",ExpressionUUID->"bfe01bef-bce2-4ce0-bbe8-8880f2f2b511", CellID->550349021], Cell[36093, 881, 454, 14, 70, "Output",ExpressionUUID->"3ba94a05-a4f3-40cc-9f73-9c3f05ff3a1e", CellID->846025618] }, Open ]], Cell[36562, 898, 397, 6, 70, "Text",ExpressionUUID->"9315aa1e-b41b-4984-bfaa-299e491a7dad", CellID->382638322], Cell[CellGroupData[{ Cell[36984, 908, 1143, 30, 70, "Input",ExpressionUUID->"8a86eb52-ee99-4f43-87cf-7ff53913b653", CellID->91814543], Cell[38130, 940, 10871, 201, 70, "Output",ExpressionUUID->"0a4ae8d4-2d5d-483e-acdf-26580d3b1a61", CellID->586368879] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[49050, 1147, 119, 3, 70, "ExampleDelimiter",ExpressionUUID->"cc872be5-9ec7-498e-9f6d-abdb5b57d7ff", CellID->744903650], Cell[49172, 1152, 337, 6, 70, "Text",ExpressionUUID->"b95a45b1-5a5d-469c-98f2-e0744f44cf4c", CellID->997580758], Cell[CellGroupData[{ Cell[49534, 1162, 712, 19, 70, "Input",ExpressionUUID->"6d1408a3-71f7-42cc-9710-e6a9c4136cec", CellID->460551687], Cell[50249, 1183, 693, 20, 70, "Output",ExpressionUUID->"5b8d9aac-b6a7-4f47-a754-d3d9a60d0279", CellID->65301210] }, Open ]], Cell[50957, 1206, 397, 6, 70, "Text",ExpressionUUID->"af85c785-a805-4da4-b025-28060a447d11", CellID->382638323], Cell[CellGroupData[{ Cell[51379, 1216, 977, 27, 70, "Input",ExpressionUUID->"aa464639-493c-4f37-80b7-427a6ecd23ce", CellID->16587846], Cell[52359, 1245, 14901, 266, 70, "Output",ExpressionUUID->"53e06ab7-978f-41b3-9759-d1aab965c767", CellID->291514501] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[67309, 1517, 119, 3, 70, "ExampleDelimiter",ExpressionUUID->"c3b0d4d3-a424-4f4e-9c56-f211bbeb1da9", CellID->744903651], Cell[67431, 1522, 233, 5, 70, "Text",ExpressionUUID->"66acfce2-cb7c-42e6-9c2b-abd241295e9e", CellID->989565022], Cell[CellGroupData[{ Cell[67689, 1531, 605, 12, 70, "Input",ExpressionUUID->"e104a4e4-03d9-45ff-a306-b9fdbae26677", CellID->903594720], Cell[68297, 1545, 1196, 35, 70, "Output",ExpressionUUID->"81723676-df6a-4d62-96e5-a85807e73cc2", CellID->690196826] }, Open ]], Cell[69508, 1583, 285, 6, 70, "Text",ExpressionUUID->"4d0f7c77-ab4e-46f5-b9be-be3fd800301e", CellID->26968583], Cell[CellGroupData[{ Cell[69818, 1593, 1218, 34, 70, "Input",ExpressionUUID->"c8556e85-5e3d-4d5e-9195-90d931721300", CellID->964813097], Cell[71039, 1629, 15789, 282, 70, "Output",ExpressionUUID->"4daec5c6-734d-472b-99e4-2b2eccbdceed", CellID->692890508] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[86889, 1918, 72, 2, 70, "Subsection",ExpressionUUID->"cff789ed-cd97-4ebf-bf2c-667a58c9619b", CellID->531701979], Cell[86964, 1922, 434, 8, 70, "Text",ExpressionUUID->"d2a0b4f0-1c1b-49a4-bdcd-cf2fbb8220be", CellID->756699133], Cell[CellGroupData[{ Cell[87423, 1934, 870, 22, 70, "Input",ExpressionUUID->"49bc88a2-7363-4c2f-9068-142720ab4e47", CellID->28289384], Cell[88296, 1958, 9707, 247, 70, "Output",ExpressionUUID->"ab5f8351-73e2-4710-8e9d-e8265ffddd7d", CellID->638621358] }, Open ]], Cell[98018, 2208, 397, 6, 70, "Text",ExpressionUUID->"fd9e9d09-d695-426a-b053-5bdc7b57b68f", CellID->382638324], Cell[CellGroupData[{ Cell[98440, 2218, 1103, 29, 70, "Input",ExpressionUUID->"06f421cc-1ced-412b-805a-d2c6f0463335", CellID->826767488], Cell[99546, 2249, 29142, 521, 70, "Output",ExpressionUUID->"f010ad51-3e7d-4580-ae06-c4d8d7a090bd", CellID->527534017] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[128737, 2776, 88, 2, 70, "Subsection",ExpressionUUID->"047b6fc5-aea0-4c0f-be94-07f792ac0bca", CellID->45617115], Cell[128828, 2780, 912, 25, 70, "Text",ExpressionUUID->"82a80ec5-05f0-4bda-acf8-f3ee72d65b94", CellID->505659885], Cell[CellGroupData[{ Cell[129765, 2809, 677, 17, 70, "Input",ExpressionUUID->"48790263-64d5-49e6-bcfd-d4f64cd033d5", CellID->863269901], Cell[130445, 2828, 2659, 71, 70, "Output",ExpressionUUID->"f9ed8599-cc6e-4556-b883-b38088457286", CellID->579996060] }, Open ]], Cell[133119, 2902, 835, 23, 70, "Text",ExpressionUUID->"aaed70e3-21af-48fb-aea7-198b2ed57559", CellID->866515569], Cell[CellGroupData[{ Cell[133979, 2929, 223, 5, 70, "Input",ExpressionUUID->"998115a2-edeb-4b54-a7ac-9ee46a4ff1c9", CellID->773765829], Cell[134205, 2936, 424, 13, 70, "Output",ExpressionUUID->"26570b82-a96c-416e-9614-44488db6439a", CellID->280097882] }, Open ]], Cell[134644, 2952, 397, 6, 70, "Text",ExpressionUUID->"6e4b9230-253a-4651-a971-ec445f802b48", CellID->382638325], Cell[CellGroupData[{ Cell[135066, 2962, 1075, 28, 70, "Input",ExpressionUUID->"d97ffeb4-1131-4ccf-8db7-9199b94a32c8", CellID->764201869], Cell[136144, 2992, 16183, 293, 70, "Output",ExpressionUUID->"9fec8fa1-8bad-485a-a08e-32329a3c4a3b", CellID->240724285] }, Open ]], Cell[CellGroupData[{ Cell[152364, 3290, 119, 3, 70, "ExampleDelimiter",ExpressionUUID->"203cecbe-0a20-403d-9aea-5f3493adc4c5", CellID->744903652], Cell[152486, 3295, 651, 14, 70, "Text",ExpressionUUID->"4307000b-c342-49a9-bdd9-260bcb42119b", CellID->957055084], Cell[CellGroupData[{ Cell[153162, 3313, 449, 10, 70, "Input",ExpressionUUID->"66d66a75-39da-48a1-9114-b90fd2076e53", CellID->424470579], Cell[153614, 3325, 1137, 34, 70, "Output",ExpressionUUID->"3659d36d-2f21-44ea-b4b7-fd127a47f08c", CellID->440208866] }, Open ]], Cell[154766, 3362, 335, 6, 70, "Text",ExpressionUUID->"93af761f-4056-4bd8-a63b-f97b788b52bb", CellID->225318275], Cell[CellGroupData[{ Cell[155126, 3372, 1064, 32, 70, "Input",ExpressionUUID->"d250bced-d890-45c6-b50c-ce2eddaeb7df", CellID->547799196], Cell[156193, 3406, 15073, 271, 70, "Output",ExpressionUUID->"d4cfd7ea-b85b-4a8e-aa02-ef19a1db7bae", CellID->896287060] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[171315, 3683, 119, 3, 70, "ExampleDelimiter",ExpressionUUID->"2fc3d3c1-7584-462f-aaf3-25998fa9df6a", CellID->744903653], Cell[171437, 3688, 356, 5, 70, "Text",ExpressionUUID->"e246e2ce-0ceb-4b01-a999-622149438817", CellID->977553022], Cell[CellGroupData[{ Cell[171818, 3697, 526, 13, 70, "Input",ExpressionUUID->"6b4a023c-3104-4944-a60a-fd166c874850", CellID->164259367], Cell[172347, 3712, 2827, 87, 70, "Output",ExpressionUUID->"9a06c339-fa29-4275-a056-66f392f7af75", CellID->819272940] }, Open ]], Cell[175189, 3802, 285, 6, 70, "Text",ExpressionUUID->"71585e2f-9105-44df-8c0c-f70151a99940", CellID->26968584], Cell[CellGroupData[{ Cell[175499, 3812, 1107, 30, 70, "Input",ExpressionUUID->"38c34f78-0eed-42e9-af92-879f06414370", CellID->994782636], Cell[176609, 3844, 31710, 550, 70, "Output",ExpressionUUID->"981a9fb7-8b44-45f9-8553-893b2a61e80c", CellID->507533126] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[208392, 4402, 174, 4, 70, "Section",ExpressionUUID->"2fc04f66-3b91-46e1-9a28-7665c518aa2c", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], Cell[CellGroupData[{ Cell[208591, 4410, 918, 24, 70, "Subsection",ExpressionUUID->"401317a6-e461-4d52-affe-e3d34caebcc5", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[209512, 4436, 59, 1, 70, "Text",ExpressionUUID->"98417d77-3ae1-434c-8f1f-2e006c58a5a5", CellID->650821676] }, Open ]], Cell[CellGroupData[{ Cell[209608, 4442, 893, 24, 70, "Subsection",ExpressionUUID->"c97fc25e-d8c7-49c9-8a4b-875079013672", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[210504, 4468, 53, 1, 70, "Item",ExpressionUUID->"2adb229a-cad6-46b6-996f-cb541585ef6a", CellID->953643693], Cell[210560, 4471, 46, 1, 70, "Item",ExpressionUUID->"ec9ab17c-857e-4de7-a152-a26dba4e7ad6", CellID->337687014], Cell[210609, 4474, 54, 1, 70, "Item",ExpressionUUID->"11f8aae0-e96d-4c0f-b83a-8e0b8201f06d", CellID->107027996], Cell[210666, 4477, 45, 1, 70, "Item",ExpressionUUID->"15510dc7-bd41-4f6b-951d-fc07e87305a7", CellID->759392877], Cell[210714, 4480, 58, 1, 70, "Item",ExpressionUUID->"78cd1949-3c4b-429d-a160-fd5c6c201852", CellID->900083379], Cell[210775, 4483, 44, 1, 70, "Item",ExpressionUUID->"d312fee3-8165-4eb3-b501-bd0b00533d46", CellID->79102922] }, Open ]], Cell[CellGroupData[{ Cell[210856, 4489, 167, 5, 70, "Subsection",ExpressionUUID->"b6e8aaee-6727-465b-a8a8-fdb242544376", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[211026, 4496, 66, 1, 70, "Item",ExpressionUUID->"6d21c4b8-a133-402e-8873-38e2511076bc", CellID->747815033] }, Open ]], Cell[CellGroupData[{ Cell[211129, 4502, 870, 24, 70, "Subsection",ExpressionUUID->"8d7c254c-5b81-4c81-9ef6-0e7d6a2aeea7", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[212002, 4528, 49, 1, 70, "Item",ExpressionUUID->"42bcee51-b435-40bd-b60d-a5df80a5fae7", CellID->692791714] }, Open ]], Cell[CellGroupData[{ Cell[212088, 4534, 919, 24, 70, "Subsection",ExpressionUUID->"fea2322a-ca49-4310-ac97-a807c526402d", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[213010, 4560, 49, 1, 70, "Item",ExpressionUUID->"cec4134c-3524-467c-a5af-38ffab7cf5fd", CellID->101618042], Cell[213062, 4563, 53, 1, 70, "Item",ExpressionUUID->"9e1aa65f-4511-4f4f-b383-3d88864984fb", CellID->383503339], Cell[213118, 4566, 46, 1, 70, "Item",ExpressionUUID->"1d937dde-1fdc-4509-a3c8-0b3c1d3c9c49", CellID->689474316], Cell[213167, 4569, 59, 1, 70, "Item",ExpressionUUID->"14232fd0-a55e-4eb6-a49a-0e4ad3893b52", CellID->775539711], Cell[213229, 4572, 50, 1, 70, "Item",ExpressionUUID->"336da6f9-4460-4c15-88f4-a3cdec8c0591", CellID->755658957], Cell[213282, 4575, 46, 1, 70, "Item",ExpressionUUID->"ca265539-0cf8-4d98-bc16-3a9bdcb9371b", CellID->361973309], Cell[213331, 4578, 52, 1, 70, "Item",ExpressionUUID->"be0d6a13-47d5-452f-bca8-0b9f25b79aa1", CellID->459814033], Cell[213386, 4581, 47, 1, 70, "Item",ExpressionUUID->"c8680363-9497-47be-9b7d-a1eb6b258302", CellID->436428319], Cell[213436, 4584, 50, 1, 70, "Item",ExpressionUUID->"859f954d-bbf8-4fde-9e17-36206fc044e3", CellID->851248926], Cell[213489, 4587, 49, 1, 70, "Item",ExpressionUUID->"5f41846c-c5fa-4c51-a74e-980cbd703350", CellID->462506746], Cell[213541, 4590, 48, 1, 70, "Item",ExpressionUUID->"b5e83272-8e19-4b7c-8657-161b6f8477b2", CellID->659293775] }, Open ]], Cell[CellGroupData[{ Cell[213626, 4596, 971, 25, 70, "Subsection",ExpressionUUID->"e3f9e175-0c47-4adc-a26d-de5e94d3ffa8", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[214600, 4623, 495, 8, 70, "Text",ExpressionUUID->"60be92fc-3d73-42b0-bf08-ff44519672eb", CellTags->"TabNext", CellID->91842863] }, Open ]], Cell[CellGroupData[{ Cell[215132, 4636, 823, 24, 70, "Subsection",ExpressionUUID->"6489e6d1-6b5a-45e2-aa97-220ab0a654bd", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[215958, 4662, 270, 5, 70, "Item",ExpressionUUID->"f64e1058-fca0-4477-add5-5f5d1be36fb5", CellID->17579780] }, Open ]], Cell[CellGroupData[{ Cell[216265, 4672, 1762, 43, 70, "Subsection",ExpressionUUID->"2672e97a-6cf1-4544-8f4e-0538fbac5c2d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[CellGroupData[{ Cell[218052, 4719, 129, 4, 70, "Input",ExpressionUUID->"762bbd27-6e52-461c-8cce-328607bc29b9", CellID->667877521], Cell[218184, 4725, 93, 3, 70, "Output",ExpressionUUID->"5b4dbef7-cd06-427e-b661-bd58f1e40799", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[218338, 4735, 1048, 26, 70, "Section",ExpressionUUID->"94cb7840-d2f9-4412-a672-3584b7cbcd9f", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[219389, 4763, 509, 8, 70, "Text",ExpressionUUID->"5bddf036-9290-4b2f-a078-1c8376671d76", CellTags->"TabNext", CellID->991784503] }, Open ]], Cell[CellGroupData[{ Cell[219935, 4776, 929, 25, 70, "Section",ExpressionUUID->"51f87189-7562-462d-8815-439c445a5eba", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082], Cell[220867, 4803, 495, 8, 70, "Text",ExpressionUUID->"1f1cc4a3-81fb-41ec-92ee-a595a5923594", CellTags->"TabNext", CellID->932041030] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)