(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 284465, 6592] NotebookOptionsPosition[ 123119, 3519] NotebookOutlinePosition[ 266493, 6211] CellTagsIndexPosition[ 264684, 6161] WindowTitle->FractionalOrderD | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["FractionalOrderD", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->867670228], Cell["Compute the fractional derivative of an expression", "Text", CellTags->{"Description", "TemplateCell"}, CellID->749631838], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Function"}, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "FractionalOrderD", "]"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"FractionalOrderD", "[", " ", "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", TaggingRules->{}, CellChangeTimes->{ 3.806327148086035*^9, {3.8063275375331097`*^9, 3.8063275450246277`*^9}, { 3.806328374127496*^9, 3.806328377581863*^9}, {3.806412775501692*^9, 3.806412778740457*^9}, {3.806421907973431*^9, 3.806421910482061*^9}, { 3.806422298701123*^9, 3.8064223015143843`*^9}, {3.809869844100858*^9, 3.8098698464368553`*^9}, {3.809892351857177*^9, 3.8098923524802265`*^9}, { 3.840281666946212*^9, 3.840281675983824*^9}, {3.8697811939344635`*^9, 3.8697813677440863`*^9}, {3.8702618999507294`*^9, 3.87026191728368*^9}, { 3.8702623582349606`*^9, 3.870262361978448*^9}}, CellLabel->"In[1]:=", CellID->488954281], Cell[BoxData[{ RowBox[{ RowBox[{"WPRPacletSite", "=", " ", RowBox[{"PacletSiteObject", "[", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{ "\"\\"", "\[Rule]", "\"\\"\ "}], ",", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "False"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "\[RightAssociation]"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"ClearAll", "[", "update", "]"}], ";"}], "\n", RowBox[{ RowBox[{"update", "[", "]"}], " ", ":=", " ", "\n", " ", RowBox[{"Once", "[", "\n", " ", RowBox[{ RowBox[{"PacletSiteRegister", "[", "WPRPacletSite", "]"}], ";", "\n", " ", RowBox[{"PacletSiteUpdate", "[", "WPRPacletSite", "]"}], ";", "\n", " ", RowBox[{ "PacletInstall", "[", "\"\\"", "]"}], ";", "\n", " ", RowBox[{"Quiet", " ", "@", " ", RowBox[{"Block", "[", " ", RowBox[{ RowBox[{"{", " ", "$ContextPath", " ", "}"}], ",", " ", RowBox[{ "Get", "[", " ", "\"\\"", " ", "]"}]}], " ", "]"}]}]}], "\n", " ", "]"}]}]}], "Code", TaggingRules->{}, CellChangeTimes->{ 3.806327165573605*^9, {3.8063275349789343`*^9, 3.806327548884457*^9}, { 3.806334756977927*^9, 3.8063347576192904`*^9}, {3.8109164801587267`*^9, 3.810916498241146*^9}, {3.870262206873669*^9, 3.870262333219574*^9}, 3.8702682134929237`*^9, 3.870287972595025*^9, {3.8744979097710905`*^9, 3.874497911735806*^9}, 3.8768236740161495`*^9, {3.8768237353790317`*^9, 3.876823750327925*^9}, {3.876825971413946*^9, 3.8768260471604447`*^9}, { 3.876826299394035*^9, 3.876826301600649*^9}, {3.8768270038756332`*^9, 3.876827008035373*^9}}, CellLabel->"In[3]:=", CellID->674300274] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Documentation"}, CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Usage"}, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FractionalOrderD", "[", RowBox[{ StyleBox["f", "TI"], ",", RowBox[{"{", RowBox[{ StyleBox["x", "TI"], ",", StyleBox["\[Alpha]", "TR"]}], "}"}]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->282903112], Cell[TextData[{ "gives the \[Alpha]-order fractional integro-derivative of ", Cell[BoxData[ StyleBox["f", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " with respect to ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->719630530] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Notes"}, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[TextData[{ Cell[BoxData["FractionalOrderD"], "InlineFormula", FontFamily->"Source Sans Pro"], " automatically maps over lists in its first argument." }], "Notes", TaggingRules->{}, CellChangeTimes->{{3.777212641535177*^9, 3.777212683157339*^9}, 3.806419548948364*^9, {3.8098932440778046`*^9, 3.8098932584617963`*^9}, 3.8402824542511377`*^9}, CellID->723060960], Cell["\<\ All expressions that do not explicitly depend on the given variable are taken \ to have zero partial derivative.\ \>", "Notes", TaggingRules->{}, CellChangeTimes->{{3.8088326660063753`*^9, 3.808832670309377*^9}}, CellID->567707121] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.28627], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.28627], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.28627], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.28627], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Examples"}, CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell["Compute a fractional derivative of a power function:", "Text", TaggingRules->{}, CellChangeTimes->{{3.77721315851187*^9, 3.777213170235042*^9}, { 3.777370387109338*^9, 3.7773704190435314`*^9}}, CellID->208472327], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FractionalOrderD", "[", RowBox[{ RowBox[{"x", "^", "2"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"3", "/", "2"}]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7772115529593306`*^9, 3.777211600075042*^9}, { 3.7772131559736156`*^9, 3.7772131745814767`*^9}, {3.7772955087393*^9, 3.7772955125692997`*^9}, {3.777368691074752*^9, 3.777368698268471*^9}, { 3.7773698679584284`*^9, 3.777369873286961*^9}, {3.7773704060992365`*^9, 3.777370413000927*^9}, {3.800893171872877*^9, 3.8008931778461823`*^9}, 3.8021828180397687`*^9, 3.8054505513729987`*^9, {3.8054527404300933`*^9, 3.8054527443083286`*^9}, 3.806419505778047*^9, {3.8109156916446333`*^9, 3.8109156926401668`*^9}, {3.8109158090944557`*^9, 3.810915811536998*^9}, 3.870262387350856*^9, {3.870264189074438*^9, 3.8702642028966465`*^9}}, CellLabel->"In[6]:=", CellID->604864010], Cell[BoxData[ FractionBox[ RowBox[{"4", " ", SqrtBox["x"]}], SqrtBox["\[Pi]"]]], "Output", TaggingRules->{}, CellChangeTimes->{{3.777211559932028*^9, 3.777211600488083*^9}, { 3.77721317171519*^9, 3.777213175124531*^9}, {3.7772955104652996`*^9, 3.7772955143363*^9}, {3.777368684566101*^9, 3.7773686991525593`*^9}, { 3.777369852414874*^9, 3.777369873798012*^9}, 3.7773699308457165`*^9, 3.7773704220468316`*^9, 3.798197006233507*^9, {3.800893158773701*^9, 3.800893178587184*^9}, 3.800893335397421*^9, 3.8015790776994977`*^9, 3.8054505519540014`*^9, 3.8064258855990443`*^9, 3.8088306987320623`*^9, 3.8088307581780987`*^9, 3.808830840330371*^9, 3.80883113943095*^9, 3.8088327671397724`*^9, 3.809889530271124*^9, 3.80988968964884*^9, 3.8098909643894234`*^9, 3.8098909944108877`*^9, {3.809891037055585*^9, 3.8098910594425488`*^9}, 3.810617810180975*^9, 3.8106206744107103`*^9, 3.810620913124137*^9, 3.810915619605259*^9, {3.8109156775781374`*^9, 3.8109156930064974`*^9}, {3.810915802855459*^9, 3.810915812147953*^9}, { 3.8109160711548233`*^9, 3.810916078867704*^9}, 3.874497921436021*^9, 3.8768261609210467`*^9, 3.87682626419197*^9, 3.8768263446094637`*^9}, CellLabel->"Out[6]=", CellID->619296619] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["\<\ The first-order fractional derivative is equivalent to differentiation:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.805450593482955*^9, 3.8054506563361187`*^9}, { 3.8088328148313804`*^9, 3.8088328191573825`*^9}}, CellID->670667211], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FractionalOrderD", "[", RowBox[{ RowBox[{"x", "^", "2"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7773710912477446`*^9, 3.777371091867807*^9}, 3.806419550314889*^9, {3.8106178179610233`*^9, 3.8106178249496536`*^9}}, CellID->834625422], Cell[BoxData[ RowBox[{"2", " ", "x"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7773710934479647`*^9, 3.7773720945060005`*^9, 3.7981970084887247`*^9, 3.8054505559580364`*^9, 3.806425888746044*^9, 3.806856183565133*^9, 3.8088311417789507`*^9, 3.8088327877477536`*^9, 3.808832828918378*^9, 3.8098897052049646`*^9, 3.8098910612195477`*^9, 3.810915822124695*^9, 3.8109160790421095`*^9}, CellID->62051941] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"x", "^", "2"}], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8054507658859787`*^9, 3.8054507720199785`*^9}}, CellID->998939985], Cell[BoxData[ RowBox[{"2", " ", "x"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8054507725169797`*^9, 3.8064258993281107`*^9, 3.808831149892563*^9, 3.808832830808381*^9, 3.8098897066719646`*^9, 3.8109158243196807`*^9, 3.8109160791709375`*^9}, CellID->62051942] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["\<\ The negative-first-order fractional derivative is equivalent to indefinite \ integration:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.805450593482955*^9, 3.8054506563361187`*^9}, { 3.805450703737366*^9, 3.805450725928415*^9}, {3.808832811910859*^9, 3.8088328225103865`*^9}}, CellID->747326646], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FractionalOrderD", "[", RowBox[{ RowBox[{"x", "^", "2"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7773710978544054`*^9, 3.7773710987044907`*^9}, 3.806419551015444*^9}, CellLabel->"In[6]:=", CellID->999279433], Cell[BoxData[ FractionBox[ SuperscriptBox["x", "3"], "3"]], "Output", TaggingRules->{}, CellChangeTimes->{3.7773710992505455`*^9, 3.7773720968535204`*^9, 3.798197010505372*^9, 3.8054505608969984`*^9, 3.8064258977241077`*^9, 3.8088311484315624`*^9, 3.8088328250013795`*^9, 3.8098897087379646`*^9, 3.809891064326552*^9, 3.8109158412950068`*^9, 3.8109160793004436`*^9, 3.8744979261246395`*^9}, CellLabel->"Out[6]=", CellID->284947915] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"x", "^", "2"}], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.805450626666115*^9, 3.8054506374861608`*^9}}, CellID->740476632], Cell[BoxData[ FractionBox[ SuperscriptBox["x", "3"], "3"]], "Output", TaggingRules->{}, CellChangeTimes->{3.805450638273182*^9, 3.806425894411045*^9, 3.808831143389949*^9, 3.8088328268823786`*^9, 3.809889710333969*^9, 3.810915842905707*^9, 3.8109160794139557`*^9}, CellID->219125597] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell["\<\ Compute the fractional derivative of symbolic order \[Alpha] of an \ exponential function:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.77721315851187*^9, 3.777213170235042*^9}, { 3.777370387109338*^9, 3.7773704190435314`*^9}, {3.7773706430379286`*^9, 3.7773706471103354`*^9}, {3.80545084889163*^9, 3.8054508644836297`*^9}}, CellID->90325996], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FractionalOrderD", "[", RowBox[{ RowBox[{"E", "^", "x"}], ",", RowBox[{"{", RowBox[{"x", ",", "\[Alpha]"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7772115529593306`*^9, 3.777211600075042*^9}, { 3.7772131559736156`*^9, 3.7772131745814767`*^9}, {3.7772955087393*^9, 3.7772955125692997`*^9}, {3.777368691074752*^9, 3.777368698268471*^9}, { 3.7773698679584284`*^9, 3.777369873286961*^9}, {3.7773704060992365`*^9, 3.777370413000927*^9}, {3.7773706500546303`*^9, 3.777370689550579*^9}, { 3.8054507412019153`*^9, 3.805450750071391*^9}, 3.806419551628996*^9, { 3.8088311767961245`*^9, 3.8088311893136497`*^9}}, CellLabel->"In[7]:=", CellID->90551325], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { SuperscriptBox["\[ExponentialE]", "x"], RowBox[{ RowBox[{"\[Alpha]", "\[Element]", TemplateBox[{}, "Integers"]}], "&&", RowBox[{"\[Alpha]", "\[GreaterEqual]", "0"}]}]}, { RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"GammaRegularized", "[", RowBox[{ RowBox[{"-", "\[Alpha]"}], ",", "x"}], "]"}]}], ")"}]}], TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}, Selectable->True]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False, StripWrapperBoxes->True]], "Output", TaggingRules->{}, CellChangeTimes->{{3.777211559932028*^9, 3.777211600488083*^9}, { 3.77721317171519*^9, 3.777213175124531*^9}, {3.7772955104652996`*^9, 3.7772955143363*^9}, {3.777368684566101*^9, 3.7773686991525593`*^9}, { 3.777369852414874*^9, 3.777369873798012*^9}, 3.7773699308457165`*^9, 3.7773704220468316`*^9, {3.7773706692345476`*^9, 3.7773706900456285`*^9}, 3.7773708139480176`*^9, 3.7981970164475803`*^9, 3.80545075163889*^9, 3.806425901142078*^9, {3.808831169840128*^9, 3.8088311854231234`*^9}, 3.808832707360545*^9, 3.808832836585379*^9, 3.80988971743202*^9, 3.8098910697526183`*^9, 3.81062091832913*^9, 3.810915844904623*^9, 3.810916079576785*^9, 3.874497928675539*^9}, CellLabel->"Out[7]=", CellID->996730130] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell["\<\ Compute the fractional derivative of symbolic order \[Alpha] of a logarithmic \ function:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.77721315851187*^9, 3.777213170235042*^9}, { 3.777370387109338*^9, 3.7773704190435314`*^9}, {3.7773706430379286`*^9, 3.7773706471103354`*^9}, {3.80545084889163*^9, 3.8054508644836297`*^9}, { 3.8088327214555445`*^9, 3.808832724913542*^9}}, CellID->53350265], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FractionalOrderD", "[", RowBox[{ RowBox[{"Log", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7773708298256054`*^9, 3.7773708357191944`*^9}, 3.806419552305464*^9, {3.8744979327217045`*^9, 3.8744979348433895`*^9}}, CellLabel->"In[8]:=", CellID->45455464], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", "0", "}"}]}], "}"}], ",", "x"}], "]"}]}], "+", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", "0", "}"}]}], "}"}], ",", "x"}], "]"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7773708361602387`*^9, 3.808832838572379*^9, 3.8098910741425467`*^9, 3.8109158489535475`*^9, 3.810916079674971*^9, 3.8744979356333447`*^9}, CellLabel->"Out[8]=", CellID->254999149] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell[TextData[{ Cell[BoxData["FractionalOrderD"], "InlineFormula", FontFamily->"Source Sans Pro"], " works with symbolic orders \[Alpha]:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.77721309240626*^9, 3.7772131508391027`*^9}, 3.806419553418324*^9, 3.808832135709382*^9}, CellID->15594982], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FractionalOrderD", "[", RowBox[{ RowBox[{"x", "^", "n"}], ",", RowBox[{"{", RowBox[{"x", ",", "\[Alpha]"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.777213063633383*^9, 3.7772130824822674`*^9}, 3.806419536788724*^9, 3.8088328530670013`*^9}, CellLabel->"In[9]:=", CellID->203797296], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "\[Alpha]"], " ", SuperscriptBox["x", RowBox[{"n", "-", "\[Alpha]"}]], " ", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", "n"}], ",", "\[Alpha]"}], "]"}]}], RowBox[{ RowBox[{"\[Alpha]", "\[Element]", TemplateBox[{}, "Integers"]}], "&&", RowBox[{"n", "\[Element]", TemplateBox[{}, "Integers"]}], "&&", RowBox[{"n", "<", "0"}], "&&", RowBox[{"n", "<", "\[Alpha]"}]}]}, { RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], " ", SuperscriptBox["x", RowBox[{"n", "-", "\[Alpha]"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"Log", "[", "x", "]"}], "+", RowBox[{"PolyGamma", "[", RowBox[{"0", ",", RowBox[{"-", "n"}]}], "]"}], "-", RowBox[{"PolyGamma", "[", RowBox[{"0", ",", RowBox[{"1", "+", "n", "-", "\[Alpha]"}]}], "]"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "n"}], ")"}], "!"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "n", "-", "\[Alpha]"}], "]"}]}], ")"}]}], RowBox[{ RowBox[{"n", "\[Element]", TemplateBox[{}, "Integers"]}], "&&", RowBox[{"n", "<", "0"}]}]}, { FractionBox[ RowBox[{ SuperscriptBox["x", RowBox[{"n", "-", "\[Alpha]"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "n"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"1", "+", "n", "-", "\[Alpha]"}], "]"}]], TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}, Selectable->True]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False, StripWrapperBoxes->True]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7772130837233915`*^9, 3.777370431983825*^9, 3.777370475568183*^9, 3.7773705372663527`*^9, {3.7773706177524*^9, 3.7773706267432995`*^9}, 3.777370765976221*^9, 3.7773708074333663`*^9, 3.798197051063267*^9, 3.808832866854107*^9, 3.8098897486344337`*^9, 3.8098910792750535`*^9, 3.8109158558106303`*^9, 3.8744979456343246`*^9}, CellLabel->"Out[9]=", CellID->624702318] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", TaggingRules->{}, CellChangeTimes->{{3.8088319450754213`*^9, 3.808831947329421*^9}}, CellID->158766396], Cell[TextData[{ Cell[BoxData["FractionalOrderD"], "InlineFormula", FontFamily->"Source Sans Pro"], " may return results in terms of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Unevaluated", "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/Unevaluated", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " sums:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.8088321165073824`*^9, 3.808832140951187*^9}, { 3.808832442485602*^9, 3.808832451012558*^9}}, CellID->59279513], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FractionalOrderD", "[", RowBox[{ RowBox[{"ChebyshevT", "[", RowBox[{"n", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "\[Alpha]"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.808832146490191*^9, 3.8088321606097307`*^9}}, CellLabel->"In[10]:=", CellID->67310293], Cell[BoxData[ TemplateBox[{ TagBox[ GridBox[{{"\[Piecewise]", GridBox[{{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"\[FormalK]", "=", "0"}], "n"], RowBox[{ FractionBox["1", RowBox[{"\[FormalK]", "!"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "\[FormalK]"], " ", SqrtBox["\[Pi]"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["x", RowBox[{"\[FormalK]", "-", "\[Alpha]"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "\[FormalK]"}], "]"}], " ", RowBox[{"Hypergeometric1F1Regularized", "[", RowBox[{ RowBox[{"1", "+", "\[FormalK]"}], ",", RowBox[{"1", "+", "\[FormalK]", "-", "\[Alpha]"}], ",", RowBox[{"-", "x"}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["x", RowBox[{"1", "+", "\[FormalK]", "-", "\[Alpha]"}]], " ", RowBox[{"Gamma", "[", RowBox[{"2", "+", "\[FormalK]"}], "]"}], " ", RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "\[FormalK]"}], ")"}], " ", "x", " ", RowBox[{"Gamma", "[", RowBox[{"2", "+", "\[FormalK]", "-", "\[Alpha]"}], "]"}]}]], "+", FractionBox["\[FormalK]", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "\[FormalK]"}], ")"}], " ", "x", " ", RowBox[{"Gamma", "[", RowBox[{"2", "+", "\[FormalK]", "-", "\[Alpha]"}], "]"}]}]], "-", FractionBox["\[Alpha]", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "\[FormalK]"}], ")"}], " ", "x", " ", RowBox[{"Gamma", "[", RowBox[{"2", "+", "\[FormalK]", "-", "\[Alpha]"}], "]"}]}]], "-", FractionBox[ RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "+", "\[FormalK]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", "+", "\[FormalK]", "-", "\[Alpha]"}], "}"}], ",", RowBox[{"-", "x"}]}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"1", "+", "\[FormalK]"}], ")"}], " ", "x"}]]}], ")"}]}]}], ")"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "n"}], ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", RowBox[{"1", "-", "\[FormalK]"}]}], "}"}], ",", FractionBox["1", "2"]}], "]"}]}]}]}], RowBox[{ RowBox[{"n", "\[Element]", TemplateBox[{}, "Integers"]}], "&&", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}, { RowBox[{"-", RowBox[{ FractionBox["1", RowBox[{"8", " ", SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]]}]], RowBox[{"n", " ", RowBox[{"FoxH", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", FractionBox["n", "2"], "-", FractionBox["\[Alpha]", "2"]}], ",", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", FractionBox["n", "2"], "-", FractionBox["\[Alpha]", "2"]}], ",", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Alpha]"}], ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", FractionBox["\[Alpha]", "2"]}], ",", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["\[Alpha]", "2"]}], ",", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "}"}]}], "}"}], ",", "x"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"n", " ", "\[Pi]"}], "]"}]}]}]}], TagBox["True", "PiecewiseDefault", AutoDelete -> True]}}, AllowedDimensions -> {2, Automatic}, Editable -> True, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}, Selectable -> True]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "Piecewise", DeleteWithContents -> True, Editable -> False, SelectWithContents -> True, Selectable -> False, StripWrapperBoxes -> True], RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"n", "\[Element]", TemplateBox[{}, "Integers"]}], "&&", RowBox[{"n", "\[GreaterEqual]", "0"}], "&&", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{"n", "\[Element]", TemplateBox[{}, "Integers"]}], "&&", RowBox[{"n", "\[GreaterEqual]", "0"}]}], ")"}]}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{"n", "\[Element]", TemplateBox[{}, "Integers"]}], "&&", RowBox[{"n", "\[GreaterEqual]", "0"}]}], ")"}]}], "&&", RowBox[{"n", "\[Element]", TemplateBox[{}, "Integers"]}]}], ")"}]}], ")"}]}]}, "ConditionalExpression"]], "Output", TaggingRules->{}, CellChangeTimes->{3.808832161363729*^9, 3.808832883879236*^9, 3.8098910819090595`*^9, 3.809893388717453*^9, 3.8109158611920447`*^9, 3.8744979722375383`*^9}, CellLabel->"Out[10]=", CellID->689744099] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Interactive Examples", "Subsection", TaggingRules->{}, CellChangeTimes->{{3.8054529894559116`*^9, 3.8054529964829493`*^9}}, CellID->543714022], Cell["\<\ Varying \[Alpha] from 0 to -1 smoothly relates a function and its derivative:\ \ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.8054532033090286`*^9, 3.805453216423036*^9}, { 3.805453460118828*^9, 3.805453497149128*^9}, {3.805453589869693*^9, 3.805453631142276*^9}}, CellID->938126610], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "x", "]"}], ":=", " ", RowBox[{ RowBox[{"x", "^", "3"}], RowBox[{"Sin", "[", "x", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "@", RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], ",", RowBox[{"FractionalOrderD", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "m"}], "}"}]}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.8054531112026577`*^9, 3.8054532879522*^9}, { 3.8054533194356537`*^9, 3.8054533218226643`*^9}, {3.8054533723329573`*^9, 3.805453424776649*^9}, {3.805453647614355*^9, 3.8054536671090775`*^9}, 3.806419507214224*^9}, CellID->136834216], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3e9PXFd+x3FX/Usq7aPuo11Vu8o+WOVBGlW78oOsUjVSJD9wFXfTtNrU leq0cmohJWvt2ttdksax4504zprExHYIZk3ABC/GHkMBe4yJgWBszPJj+GV+ GIMx4LhfODC54ccwc+8599x75v3SjTPAcO9l8Hz8PfeeH3+18xc/2/mX27Zt +5u/2LbtqPy39Hj+6ydsbGxsbmx/BAAnPHi4qP5kY2Nji/XmDbQnABBnBBoA ZxBoAJxBoAFwBoEGwBkEGgBnEGgAnEGgAXAGgQbAGQQaAGcQaACibHZ2dmho qKen586dO8PDw/JhlicTaAAia2JioqWl5YsvvlADz2tra5ubm+WTmz2fQAMQ Tffv308mkxJiEmg3ln2xTD4pX9rwWwg0ANHU2dn5+eefl5eXV1RUTE1NTU9P y4PPPvtMPtnR0bHhtxBoAKJJKjHJruvXr9+8eXN8fFxamvJAPpRPXr58ecNv IdAARJNqYM7MzCwuLk4ukwezs7PyyZqamg2/hUADEE3eCm1imTxobW2lQgMQ O1muocmXNvwWAg1ANN2/f//KlSuZu5xtbW3c5QQQX9LMbG5ulkzL9ENramoa Hx/f7PkEGgBnEGgAnEGgAXAGgVaYtv3XV1k222cH+ESgFSYCDU4i0AoTgQYn EWiFiUCDkwi0wkSgwUkEWmEi0OAkAq0wEWhwEoFWmAg0OIlAK0wEGpzkK9Aq d2370a5dP9q2bduPfndLPliyq9LgWUI3JwOto6OjpaWlpqYmmUxeuXJFHly9 etX2SSFUfgNtKcqe3Prdj1SSLT3IlmjtiJjsgWb77HK15q/ZV199VV9ff/r0 6c7OTnl86tQp+dDf+wIx5btCkzzb6MHG5O9eemSELTpb9kCzfnq5bOsDTSo0 KcmkNuvt7b17967UaVRohSa0QEOkOFmh3bx589atW+l0enR0dGxsTB50d3f7 elsgrsIJNESNk9fQ1jQ55QFNzkJDoBUmJwNNarZUKlVTUyNp1tXVJQ/kQ9sn hVDRbaMwORlofX19N27caGhoSC6TB/Kh7ZNCqAi0wuRkoAEEWmEi0OAkAq0w EWhwEoFWmAg0OIlAK0wEGpxEoBUmAg1OItAAOINAA+AMAg2AMwg0AM4g0AA4 g0AD4AwCDYAzCDQAziDQADhjy0BrAYDo8R1o2tITAHQg0AA4g0AD4AwCDYAz CDQAziDQADiDQAPgDAINgDMINADOINAAOINAA+AMAg2AMwg0AM4g0AA4I76B tmvXLrsnACBqCDQAziDQADiDQAPgDAINgDNiHWgZds8EQETEOtDsngCAqCHQ ADiDQAPgDAINgDMINDhpamagb7RZtqau9xs6D6vtcvtbp5IvebezTbszX5VN fcvIZKft04dPBBpiTfKns79Ksqi29U0JqBN1L/y2/HuyJWp+qiJLQiyTVxJu KrIyW/fgBW+gqW9ROzlU+WN5LLu91n1Cnmn7B0VOYh1odNsoKFI4qfypTu2T qJHAkdiRB5Utr8knW3tO6S2u5ubvyw5lt3VfHpSjyLFO1u+QfJNzkC/pOgr0 inWg2T0B5Ks3PdXRM1bVcOfTui7Ziktb9h9vlG3vkUs7is6t2Xb+svSff/O/ e478+38f3/HLkz+RPJE/f/nxjgOlr//6o9/+4fynp/+Uar01IvsM7fwHx29I vkkrVbJUwk0qN2nYhnZ05IJAg/JwsDGX7fGjrQNkdGI2E1wqtf7xzc8loyS4 5HFJdbsKtJaOIXmabCqU7k33qMajqr7eq3pGHsiH8slM3aX2LFvFpW7Zw8GS JhWGe965KHuWz0jEzTycN/tKLZNwk8pNGrbHa5+TlizJFhEEWuGQOJrtuzh5 tVi2e/V7hs+9OHj62d7ff0dt8mEuW9+H3/c+f6LxjYHGt7+6dr6itvFoeauK l93FFzLBpVJrfuHx+vORmLrZW64adG9X/FCSQTUepaGXb5tucHRajqIi7ue/ Oi+nIUeXcNP0ymUjOXy5/S1JNqncpDUawhGRBYHmpLnhlMouFVwqheTBSNVO FWjTXWck3+Ynbue758npOVUgfVb2ceKDY+8e/I9P3/2X5sT27mM/uJv4696y f5Cdz9w9v2Eh500waUKeqHuhOrVPXXJfePxIx8+9Qko+qQ8l3KQylBKxtrlX Tlvj/jckaSaZJskmzVIustlCoDng0Vi7ZIgkyWjNywOlT0t2DZ19XmWXCq5c 2ombkfiSQPiktlOKLil+/vU3X8gD+VA+KV/yPvPrxTk5ljoNidD+z7Z31P/i ytUiSa2T9TvWJFjgHzonUhlKifjBuTY5bcm3hraBDWtFjaTtWdv6psSalJrE WvgItNhZnB1RuTF24dV02XaJL/lTMkSVRgvT/UF2PjoxKy01de1rzzsXpf0o 8SWBICWZxFf2y1MP5sYkqeSNrAqVt8/+4OPz289X/O3lj7/XeeHncm6SeEHO LSD5uQ6dSUmyyY8jP6bRY0mUyetArIUv1oFWIN02pP0ohdZk8wHVeOwveUoe SHw9uF0htVmQPWfaj/IeV5fudxdfkEpGXfsaHJ3O/u2D4zcyl/Hfq3omcxlf Gl/ei+RSH8r5S+TKmY8nXw94zgFJJkttKT+mJLbpi2wq1o7XPicNbaMHQkas A83uCRgiJZa6/CUJoC7aS/vxXv2eyeuHAzYe18fXmvZj9uaYxJfqBlbZ8prq eioNycxlfCnPtjwBOfn77R9JPSmbRJzdgk0SW6K7KJGUB0YPJK+ManTLC2j0 QHhCoNm20n68flhKF6m7JL4GSp9Wl7+kjebjon1Gb3pKNR6PlrfmG19q3FBT 1/tqrJA0nVR8qYFC3n4U/kiRJhEtBZv8mEEiOrjuvgkp1STW1lwP1E7STF5A eT1pgRpFoIVJqi91+UvF15+PfXel/dh8QEoX+ZK/3cqbUWWXunSvrn3tPXJJ NR7rU31Z4kveaOrCl2o5qtJLjRuSd58aK2Sok5VEmbwU8gpMNL4hwW7iEDmS WJPXTZJty1Z2QPJ6/uFPf9/+5z8aPUohI9AMkSJElV7q2pe6ei/Vl7r8peIr rx9h5uG85JK0jzLBJZvqVC8PVHapS/fr35VSUEku3ewt9w7Qfrvih6ruUhe+ VMsx39Ir+G9BGp5TbcfklZFYs1KtZX4EeW3l34KS6najXXNHp7ok0+S3oLGn SsTfC7nQ9SM4H2hGn6YqLtVlQrZM11N5miSYKr3Uta8Nr4R796bySm2qI71s KrXkaZJaP//VeVVFZIJLtZLUvUXZ5GmZQdZlDa+o1FIjtaXuksfVqX3yJXma en72N1TIL6+KNXmavFyhHXTDp1U13NldfEHKWtMHlV/KvekeXXsrkKdtiUBb /zQVU2qTUkqFlcoreZq3t7yquFSXCdnUt0yMj8jTMukkm7w7MhmlNimoVFKp 5uE//fr3u99+91clH6rtoy/KZDt+/p2Kxt/KppLqbNNu77w3ami2bOreomze QOsZTqrUCvN10/I0+Sdg8PSz2Vvfps9N/nE5Wt4qvyNvd1ztB5U0k0zr7K/S srcCedqW4hJouwAUnnyDIi6Btp78sA1X3g2+Jdtq/W3/1/6nNZNrbbYxYaAP 0pCXUm2664zNc1gu1aSZb/Sq2rXuE1Jgc/dTi1gHmt0TgGmPH03dq98zUrXT 7j3Qlo6hokSyu2/C3CHkX71cLqlhSwQaIm6276L1Um1wdFoyrarhjrlDTM0M nKzfwdS4ARFoiD5Vqo1deNVuL9yS6vZDZ1LmhrdLq1PanoyTCoJAQ1w8uF0x dPb5IKMngmtoG5BSzehkRNWpfWSabwSaPanErkTK9kn4la4sWr0RVVSZDuuo kmaSaTN3z2vZm/wClLx+Db3pqb1HLhmd+jvfTJNfRoi/BM0yvwUtf5NiHWj+ buxGwspvMbaB5gnjkHNZWp2q41/QHX1z3nn/BFKh7T/eaHSyjjwybfnvUmwD TXMYxzrQ7J5AAOnKytTyrzK2geZh5cdQs5FouqTmJ5JnHs4Xl7YYnakjp0xT eZBKxDbQ5NSLinwUypsg0OxxItDstZul4Rn8kpqqlP2lwfzCY8m09YOkNNoq 01Zf/fgG2tIvYOUvkJb3A4FmT+wDzfOX0Q51SS34jJFBmj1Hy1srLnUHPIEs smSa5zpmyNcyzdARywSaPbEOtKU3UxTOXlqdkmmzfRfz/k7P2yfgdZxPajtl 8/3t2S08fnS2aXfPcDLbk+JcoXl/C1RocRbjQPPcmbJfG3y9ODda87KPnrff /BSBfw9SpEmpFnAnm9k60+IbaJ7fgpYfgUCDAyTT1CzlFs+hPtVnM9OwjECD MyabD0w0vmHxBNTcUIZ2Lpl2sn4HEx1kF+tAi3dXNBgw1XZMSjWLJ2A006Zm Bk7UvcC8HFnEOtDsngCiabrrjN1MK6luNzeMvW+0uazhFb0LzbuEQIN7rGfa 0fJWc/3TrnWfqPvyoKGdxx2BBidZz7RDZ1INbUZWyxK1rW+29pwytPNYI9Dg KruZpsYRGBrvKU3OU8mXWLl4PQINDrvf/tF48nVbR5dM23+80dBUtw/mxk7W 7zC0ZGp8EWhwm1qQy9rRp+eKEsnRiVkTO5cKTeo0bhB4xTrQ6LaBXNjNtN70 lGSaoXlub/aWV6f2mdhzTMU60OyeAGJErfhs6+gtHUPFpabeL8xw60WgoUDc q99jcaWVikvdhgawS5OTFaMyIhZoG0zsvDp2de3QVQINeVFj2P3My6GJuY4c XEzLiFagrZ/YWf6nkizzYBWBhnw9fjQ1fO7F4POn+WP0pmdT1/uX298ysed4 iVageai5dTwTVa2dGpVAgw8L0/2SafKnlaMbvekpRRrLekY00FbTyzNl2NrZ wwg0+KPmubW1xKdUaFKnmbjp+WBu7ETdC/Kn9j3HiMVAS1cuLY+wIvFNc9I7 sXP2Co2eG/Dn4WDjSNXOrxcNLq+ZRVXDnZJqI83e7sELZ5t2m9hzXESsQls3 sTPX0GDGzN3zozUv2zq6uRWj6r48eK37hIk9x0KkAm3DiZ25ywlDJq8fnmw+ YOXQMw/n9x65ZOJiWoH34ohUoOWFQENwUqTpWoc9X+Yupg2O3zhZv0P7bmOB QEMh+3pxTstCeP6Yu5hWsA1PAg0FbmG6XzJtcdbIPD9bMnQxTRqex2ufK8C5 OAg0wOJNT3MX03qGk2UNr2jfbcTFOtDoswFdLM6cZu5iWmXLa539Vdp3G2Wx DjS7JwDHSKBJrFk5tKG1ogqwqy2BBijS5JSGpzQ/rRy9KJE0Mcyz0CZMI9CA jMXZkXTZdis3CAZHp/ceuWSi4VnW8ErhLLlOoAFeFm8Q1Db3fnCuTftup2YG jtc+VyCTCxFowBpTbccmGt+wcuj9xxs7evRf8iqcpTwJNGA9WyMIRidmpeE5 83Be+55P1L0wMmlkytxIiXWg0W0Dhjx+NDV09vn5idvhH7o+1Xe0vFX7bgtk PFSsA83uCcBtkmbpsu1WLqYZGj5QCN3SCDRgMw9uV4xdeDX8405Oz0nDU/7U u9sHc2OJmp+6fXeAQAOymGh8Y6rtWPjHbWgbOHQmtfXz8t1t52HZtO82Ogg0 IAtpcg6fe3FuWH+2bMnEKlFSnkmR5vDYAQINyG5huj9dtj38NQikybnnnYva 73i6PU03gQZsydZ83Ya62p6s3zE4fkP7bqMg1oFGnw2ExtbFNBNdbUcmO0/U vaB3nxER60CzewIoKLYuphka41nb+mZrzym9+4wCAg3Ika2LaRWXuj+p1dzJ P2pdOHS9qgQakDsrF9OkPCtKJHvTmoM0UgM8dY3LiGagedYXZhk7RIuVi2mS ZtLw1LvP6HThWJwd6S95SsuuohhoyxG2kl8sNIyIsXUxTVqd0vbUu8+IdOHQ OL1J5AJNFWephEovT6kmifatNdUJNNiyMN0/ePrZkId5SsNzd/EF7eOhojAL h7Q3df0DEbFAW00tT6Ctppjn4TICDRZNd525V78n5IO2dAwVl2p+31kv0uYn bsu/Drr2ZjHQ0pWJoozEUn5JZnknBZJMy16hMYMQLJJAk1gL+aAHS5pab2me IdxuP9vJq8Wy6dpbxCq0VasVGtfQEFnS5JTSQpqfYR7URLc0u/1sB0qf1vga Rj3QuMuJCJsbTg2fezHki2km7g5Iq1Pannr3mYuHg43yAmrcYUQDLQcEGqIg /AUITNwdsFWkaV8LlUADApIaI+TVPE3Mllad2nezt1zvPrfU9+H39Y68INCA gKys5ql90Hr4g6FMDLsg0IDgtF8L2lJveqookdR7d6Duy4PXuk9o3GF2JpbW inWg0WcD0RH+kKiS6vaqhjsadxhmkSYF7UDp09rvp8Q60OyeAOAV/pAoE3cH QivSDN1MIdAAXcIfEqX97kBoRZrG4U5eBBqgUfhDovYeuaR3ZqEQirRHY+3p su0m9kygAXqFPCRK+8xCIRRp5q43EmiAXuEPiTpa3lqf6tO4Q6NFmrw+fR9+ 31DDnEADtAt5SNTk9Nzu4gsau3AYLdKMtspjHWh020BkhTwkSvu6A+aKtHTZ 9kdj7Sb2/CTmgWb3BIDswhwSpb0Lh6EizdztAIVAAwwJeUiU9ukfTRRppu+Y EGiAOSEPidI7wFN7kWZodIAXgQYYpXdG1uy0d+HQW6RNXj882XxA1942RKAB poV5Me2Dc221zb269qa3SOsvecp0A5xAA0wL82Ka9i4cuoq0cNZojnWg0W0D cRHmxbSqhjsl1dr6Regq0kaqds72XdRySlnEOtDsngCQl9DmF9LehSP4igOm e2tkEGhAOMKcX0jvLBzBVxwwMZfjhqIWaN8szbm6CCerPsEZC9P9UqjonUV/ M3pn4QhSpIXQWyMjWoHmWUx45SHrcsIts30XR6p2hnCgjp6x/ce13VrtG20+ lXzJ3/eGOZdvpAJNyrNEIuGt0LKvnK79BIAQhNYzrbi0paVjSNfepNUpbc98 v0vK0f6Sp0Ibpx+pQFtqXa6G1lK4pVb+9HziGwQa4iuca0p6F1KRJqc0PPP9 rpAH6VsMtHRloigjsVSHfSuzlhdPz16h0XMDMSV1S7psewhzpuldSCXfIk0K MynPwrlmqESqQvOG1kq4cQ0Njno01j509nnTbTG9/WyvdZ+o+/Jg7s8Pf1n5 aAWa5y5nJr24ywlXhbMAgcZ+tguPHyVqfvpgLqfx74uzI4Onnw2zPHsSvUDL HYEGB4RwB1BvP9vci7TwFyp9QqABVoXT21ZjP1sp0g5V/njLkVBh9j3zItAA uxam+4fOPm966LrGfra5DFe3Up49IdCACAhhUZXWWyMHS5q07GrL4eq2yrMn BBoQDQ9uV4xdeNXoITT2s81epIW8MqlXrAONTmhwiekJXTXOZ5tluHpoE2ts KNaBZvcEAO1M1zYa57PdbLh6mNPzrkegAdHx9eLcSNVOc4GgsZ9tz3CyrOGV NZ8MZ1raLAg0IFJMj4rSOBhqzUgoSeOB0qdDW7ZvQwQaEDVGp03T2M/2Zm95 dWpf5sPJ5gOT1w8H320QBBoQQdLqlLanoZ4PugZDeUdC2b0XkEGgAdFkriOH FGl7j1waHJ0OvquGzsOySfAOnX1eMi34DgOKdaDRbQNuMzd6vaVjqLhUw1tY dbIdu/o/oS2mnF2sA83uCQAhuN/+0XjydRN71jUY6nzjv12u+ImVcQHrEWhA xBmasru7b6IokQy4E8mxjrK/+0Ptz7ScUnAEGhB9hjIt+GAo1RM4+MKduhBo QCyYyLSAiw5kutH6W27ABAINiAsTmea7n+38xO2hs89nOsv5WxNKOwINiBEJ NL33Pf0NhlqcHZE08w5naO05Vdv6psYT8yfWgUa3DRSg6a4zevvc5tvPdsNZ dvNabsCcWAea3RMAbJntu6hxktt8B0ONXXj1we2K9Z+/3P5WU9f7Wk7JNwIN iCM11EhX5/z6VN/R8tYtnya1WZYJjracyTYEUQu09YvWsYwdsCF1IUvX/Glb 9rOVNJPaLPvhrPffiFagrV9WmIWGgc2pkkm24FNzZB8MJfsfrXl5y/AcHL9x sn5HwDMJIlqBlq4sysTX8hLqmU98a1X1ZQQaoEjODJ5+Nvi0kJv1s52fuD18 7sXZvou57MRu/41oBdqT1RbmaopJoK2mmOfhMgINyJDmp2ROwFJtw0UHJC3z uli3ZpK0kFkMtHRloigjsZRgklkrVdjqo+wVGj03AC8Jn4HSp6fajvnu1HG0 vLU+1aceS0iOVO2UkMxrb3b7b0SqQtsgvriGBuRDKrSJxjekBXq//SMfsab6 2c7NTExeLZad5NjMXMNi/41IBZqqzJRMNcZdTiBfC9P948nX+0uemmw+kNfy BFKVNX667/b737t3+XXfrVeL/TciFmh5INCA7CSRJq8flkZoumy7JNvM3fMb hpsUcg8HG6WhKk+TDBxv/t1/vvXHgIsO2Oq/QaABzns01i7JNlrzsoRb7++/ I23J4XMvqk0+/POx78oDaahmrvzXNvd+cK4tyBFt9d8g0IBCMz9xW0oytW32 nODz2Vrpv0GgAViv9dbIwZKmIHuw0n8j1oFGnw3AnIDz2VrpvxHrQLN7AoDb Nuxnm5fw+28QaAA243s+WyX8/hsEGoDN+JvP1ivk/hsEGoAs8p3Pdo2+0eZT yZc0nk92BBqALPKdz3a9MPtvEGgAsss+VdqWrnWfqPvyoMbzySLWgUafDSAc +483dvT47ICx8PjRocofh3NrINaBZvcEgMIRcEliqdCkTtN7Shsi0ADkIkgX jpHJzhN1L+g9nw0RaAByMfNwfs87F33fHTiVfKlvtFnvKa1HoAHIUZBZOLoH L5xt2q33fNYj0ADkzvcsHOEM7STQAOQuyADPhs7Dsuk9nzUINAB58S6kkpcQ hnbGOtDoigaEL8gAT9NDO2MdaHZPAChYvgd4mh7aSaAB8MH33QGjQzsjEGjf WkF4/aJ1LGMHRJDvuwNGh3ZaDrSVtFoNtPXLCrPQMBBV/sYOzM3ff6/qGUO3 BqwGWrqyMrW8uPBKoK1fOX2DtdRXEWiAXb5nFjI3tDMCTc5vBdpqZq08XP+Z DAINsM7f4lDmhnaGFmjpykRRRsLbePRfodFzA7Du0JlUQ9tAvt9laGhnpCo0 rqEBsSNNzj3vXJx5OJ/Xd3X2V1W2vKb9ZKIVaNzlBGLIx6B1Q0M7IxBoPhFo QHQUJZLdfRN5fYuJVTsJNADB+ZjSVsqz96qe0XsaBBoALXyMh9I+tJNAA6BL vmupaJ/1MdaBRp8NIFJ83PHUO7Qz1oFm9wQArNfQNnDoTGrr561q6nr/cvtb uo5OoAHQK68ZIPXO+kigAdBrfuGxNDxHJ2ZzfH51at/N3nIthybQAGjX3TdR lEjm+GSNQzsJNAAmfFrXJVuOTz5Zv+PedE/wgxJoAEyQhuf+4405Dh+Ym7+v 5aCxDjS6bQBRNjg6vffIJX/LqfgT60CzewIAttTSMVRcGl5WEGgAjPI3U7c/ BBoAo6TJebCkKa8hUb4RaABMm3k4v/fIpdx7pvlGoAEIQW96av/xxnwnts0X gQYgHP5WVMlLrAONbhtAvPiYrDsvsQ40uycAwIe8RhDki0ADELK8puPIC4EG IHyGMi0CgeZdQThdWbR6XcyzwDDL2AHuMZFplgNtJa08Cw2vechCw4C7JNMq LnVr3KHVQEtXVqbWLDTs+drSZ+VPT6X2racRaIADPqnt1HjfMwJNzo0CbTW9 PF9b+zQCDXBDbXPvwZImLZNyhBZo6cpEUUbC23hcm1RLzVBPimWp0OiKBrih u28iXoG2OW+gLd0UWJtuXEMDkJtIBdrqDc1v3efkLieAHEUg0Hwi0ACsQaAB cAaBBsAZBBoAZ8Q60OizAcAr1oFm9wQARA2BBsAZ8Q00AFiDQAPgDAINgDMI NADOINAAOINAA+AMAg2AMwg0AM4g0AA4g0AD4AwCDYAzCDQAziDQADiDQAPg DAINgDN8B9q1a9cGACBKJJf8BRoAxAWBBsAZBBoAZxBoAJxBoAFwBoEGwBkE GgBnEGgAnJEJNABwgAQaGxsbmzPb/NdP2NjY2NzY/h9l2dI4 "], {{0, 308.}, {411., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->72], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{411., 308.}, PlotRange->{{0, 411.}, {0, 308.}}]], "Output", TaggingRules->{"AttachedInlineCell" -> CellObject[808097]}, CellChangeTimes->{{3.8054531324429913`*^9, 3.8054531924234686`*^9}, { 3.805453244804551*^9, 3.8054532885931997`*^9}, 3.805453322502722*^9, 3.805453425614651*^9, 3.805453667759075*^9, 3.8064259346121244`*^9, 3.8088322054997444`*^9, 3.810915877093272*^9, 3.8109165949250765`*^9}, CellID->894738686] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", TaggingRules->{}, CellID->461278909], Cell["Create a table of fractional derivatives:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8054527993988447`*^9, 3.8054528223991437`*^9}, { 3.808831284930153*^9, 3.8088312879811554`*^9}}, CellID->9922138], Cell[BoxData[ RowBox[{ RowBox[{"flist", "=", RowBox[{"{", RowBox[{ RowBox[{"E", "^", RowBox[{"(", "x", ")"}]}], ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"Log", "[", "x", "]"}], ",", RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"ArcTan", "[", "x", "]"}], ",", RowBox[{"Cosh", "[", "x", "]"}], ",", RowBox[{"ArcCosh", "[", "x", "]"}], ",", RowBox[{"EllipticE", "[", "x", "]"}], ",", RowBox[{"BesselJ", "[", RowBox[{"0", ",", "x"}], "]"}]}], "}"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.805452803446808*^9, 3.8054528034548063`*^9}, { 3.808831323983325*^9, 3.808831326724325*^9}, {3.8088320270220704`*^9, 3.808832063961684*^9}}, CellLabel->"In[5]:=", CellID->287622952], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Grid", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{ RowBox[{"Inactive", "[", "FractionalOrderD", "]"}], "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "n"}], "}"}]}], "]"}]}], "}"}], "}"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"flist", ",", RowBox[{"FractionalOrderD", "[", RowBox[{"flist", ",", RowBox[{"{", RowBox[{"x", ",", "n"}], "}"}]}], "]"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{"{", RowBox[{"None", ",", RowBox[{"GrayLevel", "[", ".9", "]"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"Hue", "[", RowBox[{".6", ",", ".4", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", RowBox[{"Hue", "[", RowBox[{".6", ",", ".4", ",", "1"}], "]"}]}]}], "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "Times"}], ",", RowBox[{"FontSize", "\[Rule]", "12"}]}], "}"}]}], ",", RowBox[{"Dividers", "\[Rule]", "All"}], ",", RowBox[{"FrameStyle", "\[Rule]", RowBox[{"Hue", "[", RowBox[{".6", ",", ".4", ",", ".8"}], "]"}]}], ",", RowBox[{"Spacings", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}]}], "]"}], "//", "TraditionalForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8054528321586633`*^9, 3.8054528525143347`*^9}, 3.8054528832308583`*^9, {3.80641950906353*^9, 3.806419510182976*^9}, { 3.809893226344098*^9, 3.80989323364707*^9}}, CellLabel->"In[6]:=", CellID->767634741], Cell[BoxData[ FormBox[ TagBox[GridBox[{ { RowBox[{"f", "(", "x", ")"}], RowBox[{ TemplateBox[{"FractionalOrderD"}, "InactiveHead", BaseStyle->"InactiveTraditional", SyntaxForm->"Symbol", Tooltip->"Inactive[FractionalOrderD]"], "[", RowBox[{ RowBox[{"f", "(", "x", ")"}], ",", RowBox[{"{", RowBox[{"x", ",", "n"}], "}"}]}], "]"}]}, { SuperscriptBox["\[ExponentialE]", "x"], RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", RowBox[{"(", RowBox[{"1", "-", TemplateBox[{ RowBox[{"-", "n"}], "x"}, "GammaRegularized"]}], ")"}]}]}, { SuperscriptBox["x", "2"], FractionBox[ RowBox[{"2", " ", SuperscriptBox["x", RowBox[{"2", "-", "n"}]]}], TemplateBox[{ RowBox[{"3", "-", "n"}]}, "Gamma"]]}, { RowBox[{"log", "(", "x", ")"}], RowBox[{ TagBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"3", ",", "3"}], RowBox[{"2", ",", "3"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["x", MeijerG, Editable->True, Selectable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ RowBox[{"1", "-", "n"}], MeijerG, Editable->True, Selectable->True], ",", TagBox[ RowBox[{"1", "-", "n"}], MeijerG, Editable->True, Selectable->True], ",", TagBox[ RowBox[{"-", "n"}], MeijerG, Editable->True, Selectable->True]}]}, { RowBox[{ TagBox[ RowBox[{"1", "-", "n"}], MeijerG, Editable->True, Selectable->True], ",", TagBox[ RowBox[{"1", "-", "n"}], MeijerG, Editable->True, Selectable->True], ",", TagBox["0", MeijerG, Editable->True, Selectable->True]}]} }]}], ")"}]}], MeijerG, Editable->False, Selectable->False], "-", TagBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"3", ",", "3"}], RowBox[{"2", ",", "3"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["x", MeijerG, Editable->True, Selectable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ RowBox[{"-", "n"}], MeijerG, Editable->True, Selectable->True], ",", TagBox[ RowBox[{"-", "n"}], MeijerG, Editable->True, Selectable->True], ",", TagBox[ RowBox[{"-", "n"}], MeijerG, Editable->True, Selectable->True]}]}, { RowBox[{ TagBox[ RowBox[{"-", "n"}], MeijerG, Editable->True, Selectable->True], ",", TagBox[ RowBox[{"-", "n"}], MeijerG, Editable->True, Selectable->True], ",", TagBox["0", MeijerG, Editable->True, Selectable->True]}]} }]}], ")"}]}], MeijerG, Editable->False, Selectable->False]}]}, { RowBox[{"sin", "(", "x", ")"}], RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["2", RowBox[{"n", "-", "1"}]], " ", SuperscriptBox["x", RowBox[{"1", "-", "n"}]], " ", TemplateBox[{ RowBox[{ FractionBox[ RowBox[{"1", "-", "n"}], "2"], "+", FractionBox[ RowBox[{"n", "-", "1"}], "2"], "+", "1"}]}, "Gamma"], " ", TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", "1"], SubscriptBox[ OverscriptBox["F", "~"], "2"]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox[ TagBox[ RowBox[{ FractionBox[ RowBox[{"1", "-", "n"}], "2"], "+", FractionBox[ RowBox[{"n", "-", "1"}], "2"], "+", "1"}], HypergeometricPFQRegularized, Editable->True, Selectable->True], InterpretTemplate[{ SlotSequence[1]}& ]], HypergeometricPFQRegularized, Editable->False, Selectable->False], ";", TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{ FractionBox[ RowBox[{"1", "-", "n"}], "2"], "+", FractionBox["1", "2"]}], HypergeometricPFQRegularized, Editable->True, Selectable->True], ",", TagBox[ RowBox[{ FractionBox[ RowBox[{"1", "-", "n"}], "2"], "+", "1"}], HypergeometricPFQRegularized, Editable->True, Selectable->True]}], InterpretTemplate[{ SlotSequence[1]}& ]], HypergeometricPFQRegularized, Editable->False, Selectable->False], ";", TagBox[ RowBox[{"-", FractionBox[ SuperscriptBox["x", "2"], "4"]}], HypergeometricPFQRegularized, Editable->True, Selectable->True]}], ")"}]}], InterpretTemplate[HypergeometricPFQRegularized[#, #2, #3]& ], Editable->False, Selectable->False], HypergeometricPFQRegularized]}]}, { RowBox[{ SuperscriptBox["tan", RowBox[{"-", "1"}]], "(", "x", ")"}], RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["2", RowBox[{"n", "-", "1"}]], " ", SuperscriptBox["x", RowBox[{"1", "-", "n"}]], " ", TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", "3"], SubscriptBox[ OverscriptBox["F", "~"], "2"]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox[ FractionBox["1", "2"], HypergeometricPFQRegularized, Editable->True, Selectable->True], ",", TagBox["1", HypergeometricPFQRegularized, Editable->True, Selectable->True], ",", TagBox["1", HypergeometricPFQRegularized, Editable->True, Selectable->True]}], InterpretTemplate[{ SlotSequence[1]}& ]], HypergeometricPFQRegularized, Editable->False, Selectable->False], ";", TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "n"}], "-", "1"}], ")"}]}], "+", FractionBox["3", "2"]}], HypergeometricPFQRegularized, Editable->True, Selectable->True], ",", TagBox[ RowBox[{ FractionBox["3", "2"], "-", FractionBox["n", "2"]}], HypergeometricPFQRegularized, Editable->True, Selectable->True]}], InterpretTemplate[{ SlotSequence[1]}& ]], HypergeometricPFQRegularized, Editable->False, Selectable->False], ";", TagBox[ RowBox[{"-", SuperscriptBox["x", "2"]}], HypergeometricPFQRegularized, Editable->True, Selectable->True]}], ")"}]}], InterpretTemplate[HypergeometricPFQRegularized[#, #2, #3]& ], Editable->False, Selectable->False], HypergeometricPFQRegularized]}]}, { RowBox[{"cosh", "(", "x", ")"}], RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["2", "n"], " ", SuperscriptBox["x", RowBox[{"-", "n"}]], " ", TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", "1"], SubscriptBox[ OverscriptBox["F", "~"], "2"]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox[ TagBox["1", HypergeometricPFQRegularized, Editable->True, Selectable->True], InterpretTemplate[{ SlotSequence[1]}& ]], HypergeometricPFQRegularized, Editable->False, Selectable->False], ";", TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{ FractionBox["1", "2"], "-", FractionBox["n", "2"]}], HypergeometricPFQRegularized, Editable->True, Selectable->True], ",", TagBox[ RowBox[{"1", "-", FractionBox["n", "2"]}], HypergeometricPFQRegularized, Editable->True, Selectable->True]}], InterpretTemplate[{ SlotSequence[1]}& ]], HypergeometricPFQRegularized, Editable->False, Selectable->False], ";", TagBox[ FractionBox[ SuperscriptBox["x", "2"], "4"], HypergeometricPFQRegularized, Editable->True, Selectable->True]}], ")"}]}], InterpretTemplate[HypergeometricPFQRegularized[#, #2, #3]& ], Editable->False, Selectable->False], HypergeometricPFQRegularized]}]}, { RowBox[{ SuperscriptBox["cosh", RowBox[{"-", "1"}]], "(", "x", ")"}], RowBox[{ FractionBox[ RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{"x", "-", "1"}]], " ", SuperscriptBox["x", RowBox[{"-", "n"}]]}], RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "x"}]], " ", TemplateBox[{ RowBox[{"1", "-", "n"}]}, "Gamma"]}]], "-", FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["2", RowBox[{"n", "-", "1"}]], " ", SqrtBox[ RowBox[{"x", "-", "1"}]], " ", SuperscriptBox["x", RowBox[{"1", "-", "n"}]], " ", TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", "3"], SubscriptBox[ OverscriptBox["F", "~"], "2"]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox[ FractionBox["1", "2"], HypergeometricPFQRegularized, Editable->True, Selectable->True], ",", TagBox[ FractionBox["1", "2"], HypergeometricPFQRegularized, Editable->True, Selectable->True], ",", TagBox["1", HypergeometricPFQRegularized, Editable->True, Selectable->True]}], InterpretTemplate[{ SlotSequence[1]}& ]], HypergeometricPFQRegularized, Editable->False, Selectable->False], ";", TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "n"}], "-", "1"}], ")"}]}], "+", FractionBox["3", "2"]}], HypergeometricPFQRegularized, Editable->True, Selectable->True], ",", TagBox[ RowBox[{ FractionBox["3", "2"], "-", FractionBox["n", "2"]}], HypergeometricPFQRegularized, Editable->True, Selectable->True]}], InterpretTemplate[{ SlotSequence[1]}& ]], HypergeometricPFQRegularized, Editable->False, Selectable->False], ";", TagBox[ SuperscriptBox["x", "2"], HypergeometricPFQRegularized, Editable->True, Selectable->True]}], ")"}]}], InterpretTemplate[HypergeometricPFQRegularized[#, #2, #3]& ], Editable->False, Selectable->False], HypergeometricPFQRegularized]}], SqrtBox[ RowBox[{"1", "-", "x"}]]]}]}, { TemplateBox[{"x"}, "EllipticE"], RowBox[{ FractionBox["1", "2"], " ", "\[Pi]", " ", SuperscriptBox["x", RowBox[{"-", "n"}]], " ", TemplateBox[{ RowBox[{"-", FractionBox["1", "2"]}], FractionBox["1", "2"], RowBox[{"1", "-", "n"}], "x"}, "Hypergeometric2F1Regularized"]}]}, { TemplateBox[{"0", "x"}, "BesselJ"], RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["2", "n"], " ", SuperscriptBox["x", RowBox[{"-", "n"}]], " ", TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", "1"], SubscriptBox[ OverscriptBox["F", "~"], "2"]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox[ TagBox[ FractionBox["1", "2"], HypergeometricPFQRegularized, Editable->True, Selectable->True], InterpretTemplate[{ SlotSequence[1]}& ]], HypergeometricPFQRegularized, Editable->False, Selectable->False], ";", TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "n"}], "-", "1"}], ")"}]}], "+", "1"}], HypergeometricPFQRegularized, Editable->True, Selectable->True], ",", TagBox[ RowBox[{"1", "-", FractionBox["n", "2"]}], HypergeometricPFQRegularized, Editable->True, Selectable->True]}], InterpretTemplate[{ SlotSequence[1]}& ]], HypergeometricPFQRegularized, Editable->False, Selectable->False], ";", TagBox[ RowBox[{"-", FractionBox[ SuperscriptBox["x", "2"], "4"]}], HypergeometricPFQRegularized, Editable->True, Selectable->True]}], ")"}]}], InterpretTemplate[HypergeometricPFQRegularized[#, #2, #3]& ], Editable->False, Selectable->False], HypergeometricPFQRegularized]}]} }, AutoDelete->False, BaseStyle->{FontFamily -> Times, FontSize -> 12}, FrameStyle->Hue[0.6, 0.4, 0.8], GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {{None, GrayLevel[0.9]}}, "ItemsIndexed" -> {{1, 1} -> Hue[0.6, 0.4, 1], {1, 2} -> Hue[0.6, 0.4, 1]}}, GridBoxDividers->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{1}}}], "Grid"], TraditionalForm]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.806425957473139*^9, {3.8088312346896987`*^9, 3.808831241878269*^9}, { 3.8088313080453854`*^9, 3.808831328672324*^9}, 3.8088315488453927`*^9, 3.8088315866427755`*^9, {3.8088320382926254`*^9, 3.808832065702684*^9}, 3.809891106638053*^9, {3.8098932177591314`*^9, 3.8098932350142727`*^9}, { 3.810915885182604*^9, 3.8109158915182343`*^9}, 3.810915982816408*^9, 3.810916090430771*^9, 3.8744979796355276`*^9, 3.874498764506441*^9}, CellLabel->"Out[6]//TraditionalForm=", CellID->571871859] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source & Additional Information"}, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Contributed By"}, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell["Oleg Marichev & Paco Jain (Wolfram Research)", "Text", CellID->293677717] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Keywords"}, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell["fractional derivative", "Item", CellID->257919569], Cell["fractional calculus", "Item", CellID->646182027], Cell["Riemann-Liouville operator", "Item", CellID->397341473], Cell["semiderivative", "Item", CellID->687636224], Cell["semi-derivative", "Item", CellID->2239055], Cell["differential operator", "Item", CellID->787697937], Cell["integration operators", "Item", CellID->407478224], Cell["Weyl integral", "Item", CellID->130332249], Cell["Caputo derivative", "Item", CellID->88355583], Cell["integro-derivative", "Item", CellID->722142010], Cell["integro-differential", "Item", CellID->413055229] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Higher Mathematical Computation", { False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Symbolic & Numeric Computation", { False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVj01Ow0AMhSVEIUGII0BW7HKIKFC1ElBUc4HJ9NGMOn8aexZzeyYIUFn5We/\ Znz00Pa1IigVd7bLELD1djzP0CYfPC758MSz0sDHHGal7VTLDKTFa2W4MrqZrEzzdU3FTsEZ3j91bd\ khVnfkVsRU45nbIEr4X9NS8pxCRpNDNqATHkAy4wndxGeFf+FL32YKb54MRNVW1WivL+\ DPaJ1icO8sHwWbn/wPvtl6QYsLP0e3gC+WJUV++3YNDThofJYKadfZ6yXwBnuJkqQ=="}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->936922163] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Symbols"}, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell["D", "Item", CellID->715181501], Cell["Derivative", "Item", CellID->589463146], Cell["Integrate", "Item", CellID->332155520], Cell["DSolve", "Item", CellID->114082950], Cell["NDSolve", "Item", CellID->547184391], Cell["NIntegrate", "Item", CellID->305923514], Cell["Dt", "Item", CellID->359376097] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Resource Objects"}, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell["MeijerGForm", "Item", CellID->863667645], Cell["GenericIntegralTransform", "Item", CellID->566174931], Cell["VariationalD", "Item", CellID->983548464], Cell["FractionalD", "Item", CellID->513870525], Cell["FractionalIntegrate", "Item", CellID->565541594] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[TextData[ButtonBox["Wikipedia\[Dash] Fractional Calculus", BaseStyle->"Hyperlink", ButtonData->{ URL["https://en.wikipedia.org/wiki/Fractional_calculus"], None}, ButtonNote->"https://en.wikipedia.org/wiki/Fractional_calculus"]], "Item", CellID->672388075], Cell[TextData[ButtonBox["Wolfram MathWorld\[Dash] Fractional Derivative", BaseStyle->"Hyperlink", ButtonData->{ URL["https://mathworld.wolfram.com/FractionalDerivative.html"], None}, ButtonNote-> "https://mathworld.wolfram.com/FractionalDerivative.html"]], "Item", CellID->17075999] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellTags->"DefaultContent", CellLabel->"In[3]:=", CellID->946203791], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellTags->"DefaultContent", CellLabel->"Out[3]=", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your function to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["13.0+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your function is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your function."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your function is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{ "\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{ "\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdtqwzAMha3NBbZ9xN7zEV2WQsagpRrsOReVmDq2seRC/\ n721jjpnnykI845kndZAVvgSSIkB8fGcQFpOWB3wf6c0uZTEEMKSCS0gudvbKtrI13DoczeGu6GD91\ CAp0VhiHxA7tjDTm49oJWofSwG7B3EnvvVDOONOueH2hz8sSiP4PIRN2/N/bv9GcY2X8x78tF+\ 5b19q6058ArGNll54gKyI5WG7Q8wWupR+N9WiEFT4trpa7CajWiCgc+mNCjILo+\ BGVVL7hpPdruG0kYifwdJa6Z8EtaulFR+VjAS60YrbF+5HfjfKcmfxZCb/Z0QtLOdvg1GR9/\ 71QXZn4A3oyuQA=="}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your function is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["\<\ There are different ways of defining the fractional integro-derivative. The \ current implementation (v 1.0) implements only the Riemann-Liouville \ formulation. Another frequently used definition, the Grunwald-Letnikov \ formulation should perhaps be implemented in a future version.\ \>", "Text", TaggingRules->{}, CellID->844586830], Cell[CellGroupData[{ Cell["Known issues:", "Subsection", TaggingRules->{}, CellChangeTimes->{{3.8109154621029806`*^9, 3.810915465905373*^9}}, CellID->258512445], Cell[CellGroupData[{ Cell["JSS Examples", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.8106209549170427`*^9, 3.810620955302047*^9}}, CellID->227036682], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FractionalOrderD", "[", RowBox[{ RowBox[{"FractionalOrderD", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.810620671429708*^9, 3.8106206714337077`*^9}}, CellID->741174635], Cell[BoxData[ RowBox[{ SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", RowBox[{"ResourceFunctionHelpers`FractionalOrderD`Private`FraD", "[", RowBox[{ RowBox[{ FractionBox["1", SqrtBox[ SuperscriptBox["x", "2"]]], RowBox[{ SqrtBox["x"], " ", RowBox[{"ResourceFunctionHelpers`FractionalOrderD`Private`MeijerM", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", FractionBox["1", "2"], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", FractionBox["1", "2"], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["3", "4"], ",", FractionBox["1", "4"]}], "}"}]}], "}"}], ",", FractionBox[ SuperscriptBox["x", "2"], "4"], ",", "1"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", FractionBox["1", "2"]}]}], "}"}]}], "]"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8106206764572625`*^9}, CellID->529676042] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FractionalOrderD", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}], "//", "FunctionExpand"}], "//", "Simplify"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8106207182999105`*^9, 3.8106207349981365`*^9}}, CellID->545547347], Cell[BoxData[ RowBox[{ SqrtBox["2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "x", "]"}], " ", RowBox[{"FresnelC", "[", RowBox[{ SqrtBox[ FractionBox["2", "\[Pi]"]], " ", SqrtBox["x"]}], "]"}]}], "+", RowBox[{ RowBox[{"FresnelS", "[", RowBox[{ SqrtBox[ FractionBox["2", "\[Pi]"]], " ", SqrtBox["x"]}], "]"}], " ", RowBox[{"Sin", "[", "x", "]"}]}]}], ")"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.810620691944048*^9, 3.8106207357646704`*^9}}, CellID->570625122] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FractionalOrderD", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.810620708635281*^9}, CellID->837771218], Cell[BoxData[ RowBox[{"FractionalOrderD", "[", RowBox[{ RowBox[{ SqrtBox["2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "x", "]"}], " ", RowBox[{"FresnelC", "[", RowBox[{ SqrtBox[ FractionBox["2", "\[Pi]"]], " ", SqrtBox["x"]}], "]"}]}], "+", RowBox[{ RowBox[{"FresnelS", "[", RowBox[{ SqrtBox[ FractionBox["2", "\[Pi]"]], " ", SqrtBox["x"]}], "]"}], " ", RowBox[{"Sin", "[", "x", "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", FractionBox["1", "2"]}], "}"}]}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8106207098692827`*^9, 3.810620740998678*^9}}, CellID->898367854] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FractionalOrderD", "[", RowBox[{ RowBox[{"Log", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8106208722649317`*^9, 3.810620872267932*^9}}, CellID->513705218], Cell[BoxData["ComplexInfinity"], "Output", TaggingRules->{}, CellChangeTimes->{3.810620873152931*^9}, CellID->652989041] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FractionalOrderD", "[", RowBox[{ RowBox[{"Log", "[", RowBox[{"2", " ", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8106208912447157`*^9, 3.8106208912467165`*^9}}, CellID->566999513], Cell[BoxData["ComplexInfinity"], "Output", TaggingRules->{}, CellChangeTimes->{3.8106208925957203`*^9}, CellID->652989042] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FractionalOrderD", "[", RowBox[{ RowBox[{"Log", "[", RowBox[{"x", "+", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.81062090688389*^9, 3.810620906885929*^9}}, CellID->344670774], Cell[BoxData[ FractionBox[ RowBox[{"2", " ", RowBox[{"ArcSinh", "[", SqrtBox["x"], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{"1", "+", "x"}]]}]]], "Output", TaggingRules->{}, CellChangeTimes->{3.8106209098568883`*^9}, CellID->988482332] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"FractionalOrderD | 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.876827529885615`16.341051469949196*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.8768275299393`16.341051469955207*^9, "VersionInformation" -> {"ResourceVersion" -> "3.1.4"}, "TemplateVersion" -> "1.6.4", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], WindowToolbars -> {}, DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.92157, 0.34118, 0.10588], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.090909], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.045818], RGBColor[0.62744, 0.62744, 0.62744, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m8g5n6j32194VhvNZnvdo vPUVdoh2sntxM0feQfiT4/m0q0IOQNnSwtvyDmxCIvbHYoQcMhnyG1lUFRyk eR/oTlAAym/iKVyTjeAf2aiXt/gggt+odqhtubgiXP+k00CLYxXh5mdrf5t+ d7Ii3P5LDPeYOE8pwt33vfTBHMGnig4w98P4j5fOPqJgIArn539oPRlyUBSu /9OGgOxZ5mJw88sKgS5aKwa3XzOm/9DXF2Jw98H4MPfD+DD/wfTD/A8zHxY+ MPth4QdzHyx80cMfAIsMpwk= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq+R1g/G8aMf2HvvI4KP39 VvrgjgAGH6b+c19wicp0IQeBKrPVduICcL6EWjDr4ksCqPLTBeH8211/U7+n CMH5S+7v45tjLAznX773gHvySwS/qdhtyrc2ETj/04aA7FnfReH8RxHi2y8e EIPzNUHOzRCH8x8vnX1E4QOCP+/98mPe5RJw/o9goAoWSTj/6vMs7W/TJR0O X9ZOlVwk4PB2no3OlVsI/jKgcRs+STlonhY4vstCzCFoh1zr64syDkBXssXP EHO4WvFSzbADwa9JNAo1yJKA82H+gfFh/oXxA29JA7Ug+GY2e4OmJQrB+f83 VX/aMEEQzrerjFhhelYAzofFB3r8AgApYdcE "]}]}, { FaceForm[ RGBColor[0.62744, 0.62744, 0.62744, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.090909], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.045818], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m8g5n6j32194VhvNZnvdo vPUVdoh2sntxM0feQfiT4/m0q0IOQNnSwtvyDmxCIvbHYoQcMhnyG1lUFRyk eR/oTlAAym/iKVyTjeAf2aiXt/gggt+odqhtubgiXP+k00CLYxXh5mdrf5t+ d7Ii3P5LDPeYOE8pwt33vfTBHMGnig4w98P4j5fOPqJgIArn539oPRlyUBSu /9OGgOxZ5mJw88sKgS5aKwa3XzOm/9DXF2Jw98H4MPfD+DD/wfTD/A8zHxY+ MPth4QdzHyx80cMfAIsMpwk= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq+R1g/G8aMf2HvvI4KP39 VvrgjgAGH6b+c19wicp0IQeBKrPVduICcL6EWjDr4ksCqPLTBeH8211/U7+n CMH5S+7v45tjLAznX773gHvySwS/qdhtyrc2ETj/04aA7FnfReH8RxHi2y8e EIPzNUHOzRCH8x8vnX1E4QOCP+/98mPe5RJw/o9goAoWSTj/6vMs7W/TJR0O X9ZOlVwk4PB2no3OlVsI/jKgcRs+STlonhY4vstCzCFoh1zr64syDkBXssXP EHO4WvFSzbADwa9JNAo1yJKA82H+gfFh/oXxA29JA7Ug+GY2e4OmJQrB+f83 VX/aMEEQzrerjFhhelYAzofFB3r8AgApYdcE "]}]}, { FaceForm[ RGBColor[0.99998, 0.99998, 0.99998, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.98824, 0.41961, 0.20392], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.66667], 0], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.53725, 0.53725, 0.53725], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.96078, 0.96078, 0.96078], FrameStyle -> RGBColor[0.89804, 0.89804, 0.89804], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.53725, 0.53725, 0.53725], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.96078, 0.96078, 0.96078], FrameStyle -> RGBColor[0.89804, 0.89804, 0.89804], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[3216557251994556740] ], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222], { FaceForm[{ RGBColor[0.87451, 0.27843, 0.031373], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, {19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, {21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.98824, 0.41961, 0.20392], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; ( DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; ( DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; ( DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.99412, 0.7098, 0.60196]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; ( DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; ( DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"]), DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your function submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; ( DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]]), DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your function submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; ( DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]]), DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.98824, 0.41961, 0.20392], RGBColor[0.92157, 0.34118, 0.10588]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.98824, 0.41961, 0.20392], 2 -> RGBColor[0.92157, 0.34118, 0.10588]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.98824, 0.41961, 0.20392]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222], { FaceForm[{ RGBColor[0.87451, 0.27843, 0.031373], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, { 10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, { 45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, {19.051, 27.594}, {23.828, 27.594}, { 23.828, 26.543}, {21.426, 26.309}, {21.375, 26.258}, { 21.375, 24.219}, {21.375, 17.535}, {21.375, 15.602}, { 21.426, 15.547}, {23.828, 15.316}, {23.828, 14.242}}, {{ 24.578, 18.75}, {24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.95686, 0.80196, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCUIlyHPAkQfuPPftue4ZskMQUA2UAQoTpQhYVJ3 XXgumzLgQkBZoBo8hjwLFLtuzQJSbIbDELA4UA1QJXZDwqSgJhCBgCrh7kE2 BL8vsPsL1RBgiOHzBQ5/QcIZbggw5ElyBgQBdSEbAoxBMgwB6gLqhaRGIAOY EsgwBKgLYggQUG4IVVxCxTChSuxQJZ1QJcVSK+9QJxdTqTyhWslGbhmLHxBT 2gMAMUz3Hw== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCUIlyF3/cTOOAvtteRZb8ABQUA2UAQoTowhL0Ol jtrxL9dmw4WAskA1eAy57y++yYgTjwkQBFQDVInVEKD5xJgANwfuHmRD8PsC q7/QDAGGGEkmQBAknOGGAEOeDEOAupANAcYgGYYAdQH1QlIjkAFMCWQYAtQF MQQIKDeEKi6hYphQJXaokk6okmKplXeokoupVZ5Qq2Qju4zFD4gp7QFpR8IT "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCUIlyHvKz2/LG7+eWr737fPIAjIBooAxYkx5E2M 0rets/E4GygLVIPHkHclTn+e3gaK/P76+drsrsN5IRudFCEIyAaKAMWBskA1 QJVYDQGaDzHh5amDm9xUl2uzYSKgOFAWYg7cPciGQHwBVINVOzKCmANUj2YI MMQgvsDlBjT3QPwFCWe4IcCQBzKAviZoAgQBVQLVA3UhGwKMQSADGHpEGgJU CVQP1AXUC0mNQAYwJQAZwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8oRaJRvZZSx+QExpDwAxBaHa "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.92157, 0.34118, 0.10588], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.92157, 0.34118, 0.10588], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.055556], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh8qXaoYcOfoO m+a+X37stKZDTP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4Pw5RxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA/Dn+d "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.1753, 7.4169}, { 7.7969, 11.308}, {7.7969, 13.38}, {10.12, 13.38}, {10.12, 11.308}, {9.7415, 7.4169}, {8.1753, 7.4169}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQFKDg+rRNa5P+RzKPOXE8vSVYTz8z+0ngxpVHCA qBNwmPd++THv7/IO8q2vA3fICTpUvlQz5Hgj52DLdX1xga2QQxoYyDmcYLed HTpfGM6/k8GQ3+giCue7M1dwq7wQg+vnmbyyKdBTAm6+tsTUK5wZknD7Pec2 qB1qk4K772Y8iCXtAHM/jP/bquBcxyUEfyJ/ldnqOmW4/qw9JZMlWFTg5tfa m8bt6lSB23/2DAiowN0H48PcD+PD/AfTD/M/zHxY+MDsh4UfzH2w8EUPfwD5 N5G6 "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> True], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> True], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.88072, 0.61104, 0.14205], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.36842, 0.50678, 0.7098], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.56018, 0.69157, 0.19488], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1053094956087266899; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ If[$VersionNumber >= 13., DefinitionNotebookClient`LocalFileInputDialog[ "Function", ParentCell[ EvaluationCell[]], "Type" -> "FileOpen"], MessageDialog[ "This feature requires Wolfram Language version 13 or \ later."]]]]], DefinitionNotebookClient`ButtonCodeID[1053094956087266899]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4898876371082581810; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ If[$VersionNumber >= 13., DefinitionNotebookClient`LocalFileInputDialog[ "Function", ParentCell[ EvaluationCell[]], "Type" -> "Directory"], MessageDialog[ "This feature requires Wolfram Language version 13 or \ later."]]]]], DefinitionNotebookClient`ButtonCodeID[4898876371082581810]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[632, 23, 99, 2, 70, "Title",ExpressionUUID->"1ce0b3d2-f774-48c9-8a7a-23e5a690668b", CellTags->{"Name", "TemplateCell", "Title"}, CellID->867670228]}, "TemplateCell"->{ Cell[632, 23, 99, 2, 70, "Title",ExpressionUUID->"1ce0b3d2-f774-48c9-8a7a-23e5a690668b", CellTags->{"Name", "TemplateCell", "Title"}, CellID->867670228], Cell[734, 27, 130, 2, 70, "Text",ExpressionUUID->"5ca8e195-9ac8-43f9-a8e5-2cc563badfbb", CellTags->{"Description", "TemplateCell"}, CellID->749631838]}, "Title"->{ Cell[632, 23, 99, 2, 70, "Title",ExpressionUUID->"1ce0b3d2-f774-48c9-8a7a-23e5a690668b", CellTags->{"Name", "TemplateCell", "Title"}, CellID->867670228]}, "Description"->{ Cell[734, 27, 130, 2, 70, "Text",ExpressionUUID->"5ca8e195-9ac8-43f9-a8e5-2cc563badfbb", CellTags->{"Description", "TemplateCell"}, CellID->749631838]}, "Definition"->{ Cell[889, 33, 1206, 29, 70, "Section",ExpressionUUID->"ca0b60d2-a38e-4c6f-8c0d-cf31aefd34db", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[889, 33, 1206, 29, 70, "Section",ExpressionUUID->"ca0b60d2-a38e-4c6f-8c0d-cf31aefd34db", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[889, 33, 1206, 29, 70, "Section",ExpressionUUID->"ca0b60d2-a38e-4c6f-8c0d-cf31aefd34db", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[5987, 164, 1980, 50, 70, "Subsection",ExpressionUUID->"db96c129-886c-4299-aa23-56c6dde75978", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[8643, 246, 1429, 32, 70, "Subsection",ExpressionUUID->"6cab1731-373c-4393-886d-57f9b37861e8", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[10751, 303, 7025, 152, 70, "Section",ExpressionUUID->"0cdae683-00e9-4b1e-8570-2a7d768d14ec", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467], Cell[77564, 2090, 1026, 26, 70, "Subsection",ExpressionUUID->"1765abbb-00bd-420f-8831-581fbe36b9eb", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[78710, 2124, 996, 26, 70, "Subsection",ExpressionUUID->"a4f8ec97-fc53-4d9b-b797-c9b0648b51ba", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[80374, 2188, 221, 6, 70, "Subsection",ExpressionUUID->"adc77366-b9ae-489d-89b3-22fb632a2b18", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[88984, 2454, 980, 26, 70, "Subsection",ExpressionUUID->"5f885609-2ed3-4c2a-b497-6384e2241952", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[90319, 2506, 1039, 26, 70, "Subsection",ExpressionUUID->"e2bf1440-ce14-4819-957e-c9f7fd2f1d3c", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[91667, 2552, 1084, 26, 70, "Subsection",ExpressionUUID->"77a35467-ab43-4787-92ef-a1b76f33b138", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[93307, 2593, 923, 26, 70, "Subsection",ExpressionUUID->"6cd18f5e-5beb-4289-983f-cfbaaaa2df2a", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[94831, 2639, 1874, 45, 70, "Subsection",ExpressionUUID->"a5ddcca6-cd02-4a6a-92ca-2272c3b02646", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[97062, 2705, 955, 25, 70, "Subsection",ExpressionUUID->"11ac2a28-9a74-40fd-bd6a-4ecd1d8a561f", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686], Cell[98042, 2734, 1174, 31, 70, "Subsubsection",ExpressionUUID->"2802e68c-78ec-4d07-aa54-3ceb0a446922", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[99345, 2774, 1113, 29, 70, "Subsubsection",ExpressionUUID->"f0146544-bfb8-4f13-a656-35decb8ca4a6", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[102596, 2872, 1280, 33, 70, "Subsubsection",ExpressionUUID->"d2951276-daff-4b8e-b4fd-04b7c4029d98", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[106065, 2975, 1913, 46, 70, "Subsubsection",ExpressionUUID->"79ff0cd3-61eb-4069-b6cb-a14a2fa9eeb4", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[112009, 3145, 1071, 27, 70, "Subsubsection",ExpressionUUID->"c5951ab7-4c86-4e83-b8e4-773c025434f2", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[114362, 3217, 1155, 28, 70, "Section",ExpressionUUID->"0e47a4ad-86b8-4ac0-9caf-449c26178654", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[121540, 3479, 1033, 26, 70, "Section",ExpressionUUID->"c5465e23-8141-4957-ba3e-01f5aa0ff66a", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[5767, 155, 195, 5, 70, "Section",ExpressionUUID->"7e9a2af8-39aa-49ad-a199-59e943b49cb3", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[5767, 155, 195, 5, 70, "Section",ExpressionUUID->"7e9a2af8-39aa-49ad-a199-59e943b49cb3", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[77290, 2081, 249, 5, 70, "Section",ExpressionUUID->"6fcf1b94-6cb0-472b-8a59-cbe5a997228e", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[5987, 164, 1980, 50, 70, "Subsection",ExpressionUUID->"db96c129-886c-4299-aa23-56c6dde75978", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[8643, 246, 1429, 32, 70, "Subsection",ExpressionUUID->"6cab1731-373c-4393-886d-57f9b37861e8", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[8643, 246, 1429, 32, 70, "Subsection",ExpressionUUID->"6cab1731-373c-4393-886d-57f9b37861e8", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Examples"->{ Cell[10751, 303, 7025, 152, 70, "Section",ExpressionUUID->"0cdae683-00e9-4b1e-8570-2a7d768d14ec", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467]}, "Source & Additional Information"->{ Cell[77290, 2081, 249, 5, 70, "Section",ExpressionUUID->"6fcf1b94-6cb0-472b-8a59-cbe5a997228e", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[77564, 2090, 1026, 26, 70, "Subsection",ExpressionUUID->"1765abbb-00bd-420f-8831-581fbe36b9eb", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[77564, 2090, 1026, 26, 70, "Subsection",ExpressionUUID->"1765abbb-00bd-420f-8831-581fbe36b9eb", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[78710, 2124, 996, 26, 70, "Subsection",ExpressionUUID->"a4f8ec97-fc53-4d9b-b797-c9b0648b51ba", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[80374, 2188, 221, 6, 70, "Subsection",ExpressionUUID->"adc77366-b9ae-489d-89b3-22fb632a2b18", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[80598, 2196, 8349, 253, 70, "Output",ExpressionUUID->"5bbafaf2-73f5-4f6e-a1af-479bda3f9805", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->936922163]}, "Categories-Checkboxes"->{ Cell[80598, 2196, 8349, 253, 70, "Output",ExpressionUUID->"5bbafaf2-73f5-4f6e-a1af-479bda3f9805", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->936922163]}, "CheckboxCell"->{ Cell[80598, 2196, 8349, 253, 70, "Output",ExpressionUUID->"5bbafaf2-73f5-4f6e-a1af-479bda3f9805", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->936922163], Cell[100461, 2805, 2098, 62, 70, "Output",ExpressionUUID->"1bcc2a52-f7e2-4a7a-9e85-ad39d2a8706f", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368], Cell[103879, 2907, 2149, 63, 70, "Output",ExpressionUUID->"9bd573d4-6c60-4c0d-93b2-68b20c5d3f36", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753], Cell[107981, 3023, 3991, 117, 70, "Output",ExpressionUUID->"0f392f61-adc6-41b1-b3c9-f06da599132c", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027], Cell[113083, 3174, 1218, 36, 70, "Output",ExpressionUUID->"7fdb4314-beac-43be-a95a-3cefb803e5c8", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Related Symbols"->{ Cell[88984, 2454, 980, 26, 70, "Subsection",ExpressionUUID->"5f885609-2ed3-4c2a-b497-6384e2241952", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[90319, 2506, 1039, 26, 70, "Subsection",ExpressionUUID->"e2bf1440-ce14-4819-957e-c9f7fd2f1d3c", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[91667, 2552, 1084, 26, 70, "Subsection",ExpressionUUID->"77a35467-ab43-4787-92ef-a1b76f33b138", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "DefaultContent"->{ Cell[92754, 2580, 516, 8, 70, "Text",ExpressionUUID->"f732ad65-89fc-4f02-8350-42fe22019816", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[96730, 2688, 158, 5, 70, "Input",ExpressionUUID->"e91ba85c-b952-46f3-9802-7e499a6afcf9", CellTags->"DefaultContent", CellID->946203791], Cell[96891, 2695, 122, 4, 70, "Output",ExpressionUUID->"6c7b9529-dfb3-47d0-8699-7e8eb5ca5aac", CellTags->"DefaultContent", CellID->168370258], Cell[99219, 2767, 89, 2, 70, "Text",ExpressionUUID->"4ebc60de-da19-415e-b292-64a088400e3b", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540], Cell[122576, 3507, 515, 8, 70, "Text",ExpressionUUID->"16a2f2e4-751b-4c27-8767-558bd4332f0f", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "TabNext"->{ Cell[92754, 2580, 516, 8, 70, "Text",ExpressionUUID->"f732ad65-89fc-4f02-8350-42fe22019816", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[122576, 3507, 515, 8, 70, "Text",ExpressionUUID->"16a2f2e4-751b-4c27-8767-558bd4332f0f", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Links"->{ Cell[93307, 2593, 923, 26, 70, "Subsection",ExpressionUUID->"6cd18f5e-5beb-4289-983f-cfbaaaa2df2a", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[94831, 2639, 1874, 45, 70, "Subsection",ExpressionUUID->"a5ddcca6-cd02-4a6a-92ca-2272c3b02646", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[94831, 2639, 1874, 45, 70, "Subsection",ExpressionUUID->"a5ddcca6-cd02-4a6a-92ca-2272c3b02646", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[97062, 2705, 955, 25, 70, "Subsection",ExpressionUUID->"11ac2a28-9a74-40fd-bd6a-4ecd1d8a561f", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[98042, 2734, 1174, 31, 70, "Subsubsection",ExpressionUUID->"2802e68c-78ec-4d07-aa54-3ceb0a446922", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[98042, 2734, 1174, 31, 70, "Subsubsection",ExpressionUUID->"2802e68c-78ec-4d07-aa54-3ceb0a446922", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[99219, 2767, 89, 2, 70, "Text",ExpressionUUID->"4ebc60de-da19-415e-b292-64a088400e3b", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540]}, "CompatibilityOperatingSystem"->{ Cell[99345, 2774, 1113, 29, 70, "Subsubsection",ExpressionUUID->"f0146544-bfb8-4f13-a656-35decb8ca4a6", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[100461, 2805, 2098, 62, 70, "Output",ExpressionUUID->"1bcc2a52-f7e2-4a7a-9e85-ad39d2a8706f", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "Operating System"->{ Cell[99345, 2774, 1113, 29, 70, "Subsubsection",ExpressionUUID->"f0146544-bfb8-4f13-a656-35decb8ca4a6", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[100461, 2805, 2098, 62, 70, "Output",ExpressionUUID->"1bcc2a52-f7e2-4a7a-9e85-ad39d2a8706f", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "CompatibilityFeatures"->{ Cell[102596, 2872, 1280, 33, 70, "Subsubsection",ExpressionUUID->"d2951276-daff-4b8e-b4fd-04b7c4029d98", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[103879, 2907, 2149, 63, 70, "Output",ExpressionUUID->"9bd573d4-6c60-4c0d-93b2-68b20c5d3f36", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "Required Features"->{ Cell[102596, 2872, 1280, 33, 70, "Subsubsection",ExpressionUUID->"d2951276-daff-4b8e-b4fd-04b7c4029d98", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644]}, "CompatibilityFeatures-Checkboxes"->{ Cell[103879, 2907, 2149, 63, 70, "Output",ExpressionUUID->"9bd573d4-6c60-4c0d-93b2-68b20c5d3f36", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "CompatibilityEvaluationEnvironment"->{ Cell[106065, 2975, 1913, 46, 70, "Subsubsection",ExpressionUUID->"79ff0cd3-61eb-4069-b6cb-a14a2fa9eeb4", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[107981, 3023, 3991, 117, 70, "Output",ExpressionUUID->"0f392f61-adc6-41b1-b3c9-f06da599132c", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027]}, "Environments"->{ Cell[106065, 2975, 1913, 46, 70, "Subsubsection",ExpressionUUID->"79ff0cd3-61eb-4069-b6cb-a14a2fa9eeb4", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[107981, 3023, 3991, 117, 70, "Output",ExpressionUUID->"0f392f61-adc6-41b1-b3c9-f06da599132c", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027]}, "Cloud Support"->{ Cell[112009, 3145, 1071, 27, 70, "Subsubsection",ExpressionUUID->"c5951ab7-4c86-4e83-b8e4-773c025434f2", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080]}, "CompatibilityCloudSupport"->{ Cell[112009, 3145, 1071, 27, 70, "Subsubsection",ExpressionUUID->"c5951ab7-4c86-4e83-b8e4-773c025434f2", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[113083, 3174, 1218, 36, 70, "Output",ExpressionUUID->"7fdb4314-beac-43be-a95a-3cefb803e5c8", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[113083, 3174, 1218, 36, 70, "Output",ExpressionUUID->"7fdb4314-beac-43be-a95a-3cefb803e5c8", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Author Notes"->{ Cell[114362, 3217, 1155, 28, 70, "Section",ExpressionUUID->"0e47a4ad-86b8-4ac0-9caf-449c26178654", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[121540, 3479, 1033, 26, 70, "Section",ExpressionUUID->"c5465e23-8141-4957-ba3e-01f5aa0ff66a", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 247880, 5869}, {"TemplateCell", 248062, 5873}, {"Title", 248397, 5880}, {"Description", 248578, 5884}, {"Definition", 248756, 5888}, {"Function", 248952, 5892}, {"TemplateCellGroup", 249157, 5896}, {"Documentation", 252998, 5957}, {"TemplateSection", 253191, 5961}, {"Usage", 253564, 5968}, {"Details & Options", 253758, 5972}, {"Notes", 253961, 5976}, {"Examples", 254167, 5980}, {"Source & Additional Information", 254377, 5984}, {"Contributed By", 254589, 5988}, {"ContributorInformation", 254824, 5992}, {"Keywords", 255045, 5996}, {"Categories", 255236, 6000}, {"Categories-Checkboxes", 255632, 6007}, {"CheckboxCell", 255845, 6011}, {"Related Symbols", 256970, 6027}, {"Related Resource Objects", 257182, 6031}, {"Source/Reference Citation", 257405, 6035}, {"DefaultContent", 257618, 6039}, {"TabNext", 258426, 6055}, {"Links", 258764, 6062}, {"Tests", 258947, 6066}, {"VerificationTests", 259164, 6070}, {"Compatibility", 259377, 6074}, {"CompatibilityWolframLanguageVersionRequired", 259606, 6078}, {"Wolfram Language Version", 259878, 6082}, {"ScrapeDefault", 260139, 6086}, {"CompatibilityOperatingSystem", 260342, 6090}, {"Operating System", 260812, 6097}, {"CompatibilityOperatingSystem-Checkboxes", 261076, 6101}, {"CompatibilityFeatures", 261334, 6105}, {"Required Features", 261786, 6112}, {"CompatibilityFeatures-Checkboxes", 262038, 6116}, {"CompatibilityEvaluationEnvironment", 262295, 6120}, {"Environments", 262777, 6127}, {"CompatibilityEvaluationEnvironment-Checkboxes", 263050, 6131}, {"Cloud Support", 263313, 6135}, {"CompatibilityCloudSupport", 263558, 6139}, {"CompatibilityCloudSupport-Checkboxes", 264037, 6146}, {"Author Notes", 264280, 6150}, {"Submission Notes", 264480, 6154} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[632, 23, 99, 2, 70, "Title",ExpressionUUID->"1ce0b3d2-f774-48c9-8a7a-23e5a690668b", CellTags->{"Name", "TemplateCell", "Title"}, CellID->867670228], Cell[734, 27, 130, 2, 70, "Text",ExpressionUUID->"5ca8e195-9ac8-43f9-a8e5-2cc563badfbb", CellTags->{"Description", "TemplateCell"}, CellID->749631838], Cell[CellGroupData[{ Cell[889, 33, 1206, 29, 70, "Section",ExpressionUUID->"ca0b60d2-a38e-4c6f-8c0d-cf31aefd34db", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2098, 64, 1601, 36, 70, "Code",ExpressionUUID->"90d551b5-7e55-4c42-9fd5-593c94a06c28", CellID->488954281], Cell[3702, 102, 2028, 48, 70, "Code",ExpressionUUID->"8f7d338d-033e-461d-a1c0-53905621f5d8", CellID->674300274] }, Open ]], Cell[CellGroupData[{ Cell[5767, 155, 195, 5, 70, "Section",ExpressionUUID->"7e9a2af8-39aa-49ad-a199-59e943b49cb3", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[5987, 164, 1980, 50, 70, "Subsection",ExpressionUUID->"db96c129-886c-4299-aa23-56c6dde75978", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[7992, 218, 270, 9, 70, "UsageInputs",ExpressionUUID->"efd7b5b2-0336-4acb-8c07-aeacc81ef0f3", CellID->282903112], Cell[8265, 229, 329, 11, 70, "UsageDescription",ExpressionUUID->"282cb625-740c-4d28-853c-d924b2967921", CellID->719630530] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8643, 246, 1429, 32, 70, "Subsection",ExpressionUUID->"6cab1731-373c-4393-886d-57f9b37861e8", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[10075, 280, 380, 9, 70, "Notes",ExpressionUUID->"1bf035e8-9fb5-40c9-a0c2-abf13999411a", CellID->723060960], Cell[10458, 291, 244, 6, 70, "Notes",ExpressionUUID->"2bd9e453-ab7e-4923-8c06-e1608e79c943", CellID->567707121] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10751, 303, 7025, 152, 70, "Section",ExpressionUUID->"0cdae683-00e9-4b1e-8570-2a7d768d14ec", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467], Cell[CellGroupData[{ Cell[17801, 459, 75, 2, 70, "Subsection",ExpressionUUID->"627f9420-0623-4789-bec2-ef1e4f56a6d7", CellID->904125756], Cell[17879, 463, 223, 4, 70, "Text",ExpressionUUID->"e8e2bd0b-ee5a-4e5b-8558-659c385553fb", CellID->208472327], Cell[CellGroupData[{ Cell[18127, 471, 927, 18, 70, "Input",ExpressionUUID->"851f8979-c2a5-450d-83cb-edd5e97d6b77", CellID->604864010], Cell[19057, 491, 1258, 22, 70, "Output",ExpressionUUID->"336d07cc-87b6-48b3-9290-000812ac1d3e", CellID->619296619] }, Open ]], Cell[CellGroupData[{ Cell[20352, 518, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"67de5fc4-6d64-4114-a101-1f6d24ee5357", CellID->14107562], Cell[20498, 524, 255, 6, 70, "Text",ExpressionUUID->"4d1b1d1a-ecd0-4466-baa1-d89400a85e42", CellID->670667211], Cell[CellGroupData[{ Cell[20778, 534, 348, 9, 70, "Input",ExpressionUUID->"9d27a717-1acf-4493-854b-40ed99061ee2", CellID->834625422], Cell[21129, 545, 424, 8, 70, "Output",ExpressionUUID->"18978d2c-da0a-4a1c-b52e-3f4740780393", CellID->62051941] }, Open ]], Cell[CellGroupData[{ Cell[21590, 558, 210, 6, 70, "Input",ExpressionUUID->"9dac8fe5-cd71-456d-8578-e5b29e3a2ad5", CellID->998939985], Cell[21803, 566, 278, 6, 70, "Output",ExpressionUUID->"22d4378b-eaca-4413-88b1-1e35223b443a", CellID->62051942] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[22130, 578, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"03d5a609-9945-4e5c-85ce-83ea60bd85cc", CellID->14107563], Cell[22276, 584, 320, 8, 70, "Text",ExpressionUUID->"0300659f-da68-40ec-a45a-7b6c93fbe0d7", CellID->747326646], Cell[CellGroupData[{ Cell[22621, 596, 344, 11, 70, "Input",ExpressionUUID->"337ac157-ba3e-4326-b73d-340c119372b1", CellID->999279433], Cell[22968, 609, 450, 10, 70, "Output",ExpressionUUID->"57cfb6a4-9c62-41d6-9374-3b3eb22d49ea", CellID->284947915] }, Open ]], Cell[CellGroupData[{ Cell[23455, 624, 216, 6, 70, "Input",ExpressionUUID->"ebe0deff-0908-48b8-822d-70a8384ae45e", CellID->740476632], Cell[23674, 632, 295, 7, 70, "Output",ExpressionUUID->"19886f80-92a4-4602-ae50-b889f06d6b87", CellID->219125597] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24018, 645, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"b1b9c32b-686b-4c92-b523-f85d084ab4c6", CellID->14107564], Cell[24164, 651, 368, 8, 70, "Text",ExpressionUUID->"d4cdff97-4f43-4056-bc19-20bbdeff8119", CellID->90325996], Cell[CellGroupData[{ Cell[24557, 663, 731, 15, 70, "Input",ExpressionUUID->"70bdfd17-6cba-4c3c-8883-fccb3e9825ce", CellID->90551325], Cell[25291, 680, 2399, 62, 70, "Output",ExpressionUUID->"c158555e-75a4-4fdd-b361-8ac8aaf03bee", CellID->996730130] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27739, 748, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"5d54030c-8818-4842-907b-4181385ef3c5", CellID->14107565], Cell[27885, 754, 418, 9, 70, "Text",ExpressionUUID->"3bd0ccfa-f939-440c-ab5b-7b086b64a15d", CellID->53350265], Cell[CellGroupData[{ Cell[28328, 767, 400, 11, 70, "Input",ExpressionUUID->"9d384f48-56f9-4c16-a65f-6e284045c6c7", CellID->45455464], Cell[28731, 780, 986, 32, 70, "Output",ExpressionUUID->"df698daa-c58b-4c33-b456-99aac56989fb", CellID->254999149] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[29778, 819, 66, 2, 70, "Subsection",ExpressionUUID->"1dfc78d1-4d3e-470b-80b1-dfa71f8d99d3", CellID->204653245], Cell[29847, 823, 307, 8, 70, "Text",ExpressionUUID->"bd697f06-96e2-4b47-a37b-0f50304a93fb", CellID->15594982], Cell[CellGroupData[{ Cell[30179, 835, 352, 10, 70, "Input",ExpressionUUID->"916b7dfe-6ee1-463e-9c96-e99253f006aa", CellID->203797296], Cell[30534, 847, 3630, 105, 70, "Output",ExpressionUUID->"0131b589-c932-41e5-8491-8005e6360bb5", CellID->624702318] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[34213, 958, 144, 3, 70, "Subsection",ExpressionUUID->"6cbdfd8e-05d8-4a96-bb4a-aaf71387bd85", CellID->158766396], Cell[34360, 963, 797, 24, 70, "Text",ExpressionUUID->"a7f3e32a-a6b9-44a2-9e52-7973503ba8bb", CellID->59279513], Cell[CellGroupData[{ Cell[35182, 991, 341, 10, 70, "Input",ExpressionUUID->"827f3735-45e6-4fed-9fde-10405e2d5764", CellID->67310293], Cell[35526, 1003, 8016, 187, 70, "Output",ExpressionUUID->"1de406c0-0057-42c2-8036-38c6895e6e65", CellID->689744099] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[43591, 1196, 151, 3, 70, "Subsection",ExpressionUUID->"ac3b1576-e3a8-4b72-b532-a7577ece353d", CellID->543714022], Cell[43745, 1201, 308, 8, 70, "Text",ExpressionUUID->"14f0b653-79ec-4acf-9677-0476aa9c4ed4", CellID->938126610], Cell[CellGroupData[{ Cell[44078, 1213, 1162, 33, 70, "Input",ExpressionUUID->"1db6317f-5dc3-48c2-b5b7-9d2f4c0609d9", CellID->136834216], Cell[45243, 1248, 11004, 185, 70, "Output",ExpressionUUID->"481a6c6b-ffe8-4255-88c4-bda064611865", CellID->894738686] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[56296, 1439, 74, 2, 70, "Subsection",ExpressionUUID->"6741b6f3-e2f2-40cc-9d90-002811f3da94", CellID->461278909], Cell[56373, 1443, 215, 4, 70, "Text",ExpressionUUID->"59da8104-2d45-4a0f-987d-c1f87bc0dcba", CellID->9922138], Cell[56591, 1449, 775, 21, 70, "Input",ExpressionUUID->"55dbccc1-2c7c-4b3f-9ae6-7bf57200bfae", CellID->287622952], Cell[CellGroupData[{ Cell[57391, 1474, 2166, 62, 70, "Input",ExpressionUUID->"25d023ca-ab34-45d1-af49-bfa3441b5e58", CellID->767634741], Cell[59560, 1538, 17669, 536, 70, "Output",ExpressionUUID->"58830687-1bd7-41a4-bc20-e2b903b66c56", CellID->571871859] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[77290, 2081, 249, 5, 70, "Section",ExpressionUUID->"6fcf1b94-6cb0-472b-8a59-cbe5a997228e", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[77564, 2090, 1026, 26, 70, "Subsection",ExpressionUUID->"1765abbb-00bd-420f-8831-581fbe36b9eb", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[78593, 2118, 80, 1, 70, "Text",ExpressionUUID->"29fd02ac-3fda-4b89-9a74-79e304e86332", CellID->293677717] }, Open ]], Cell[CellGroupData[{ Cell[78710, 2124, 996, 26, 70, "Subsection",ExpressionUUID->"a4f8ec97-fc53-4d9b-b797-c9b0648b51ba", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[79709, 2152, 57, 1, 70, "Item",ExpressionUUID->"fe433884-1ede-4539-a870-b6f715699289", CellID->257919569], Cell[79769, 2155, 55, 1, 70, "Item",ExpressionUUID->"26179323-92f8-452a-bc2d-bc01a2621056", CellID->646182027], Cell[79827, 2158, 62, 1, 70, "Item",ExpressionUUID->"aae27502-36d6-4932-bfe0-e294570cc63b", CellID->397341473], Cell[79892, 2161, 50, 1, 70, "Item",ExpressionUUID->"1f838092-646d-4dc6-88e4-ffa4dd87d011", CellID->687636224], Cell[79945, 2164, 49, 1, 70, "Item",ExpressionUUID->"805360b2-6f1e-4050-908c-fc9bbc169e0d", CellID->2239055], Cell[79997, 2167, 57, 1, 70, "Item",ExpressionUUID->"afe0913c-c5c0-4457-8c33-d2db50815d1f", CellID->787697937], Cell[80057, 2170, 57, 1, 70, "Item",ExpressionUUID->"98743c9e-cbd1-4a64-b2e2-484b4441f7a7", CellID->407478224], Cell[80117, 2173, 49, 1, 70, "Item",ExpressionUUID->"f06b37f9-3348-4dcf-aa83-2638625b3ad8", CellID->130332249], Cell[80169, 2176, 52, 1, 70, "Item",ExpressionUUID->"a5a672e8-f8c0-417e-a2fd-8e7cb37da4ce", CellID->88355583], Cell[80224, 2179, 54, 1, 70, "Item",ExpressionUUID->"69f900d1-9684-4aa2-adde-7736faefd869", CellID->722142010], Cell[80281, 2182, 56, 1, 70, "Item",ExpressionUUID->"d38b4f1f-f302-4cf0-b211-680439d980dd", CellID->413055229] }, Open ]], Cell[CellGroupData[{ Cell[80374, 2188, 221, 6, 70, "Subsection",ExpressionUUID->"adc77366-b9ae-489d-89b3-22fb632a2b18", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[80598, 2196, 8349, 253, 70, "Output",ExpressionUUID->"5bbafaf2-73f5-4f6e-a1af-479bda3f9805", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->936922163] }, Open ]], Cell[CellGroupData[{ Cell[88984, 2454, 980, 26, 70, "Subsection",ExpressionUUID->"5f885609-2ed3-4c2a-b497-6384e2241952", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[89967, 2482, 37, 1, 70, "Item",ExpressionUUID->"96d88bed-1000-4a30-802a-945804ab4126", CellID->715181501], Cell[90007, 2485, 46, 1, 70, "Item",ExpressionUUID->"c338f4cf-4c52-4ffc-8726-ec420c722b22", CellID->589463146], Cell[90056, 2488, 45, 1, 70, "Item",ExpressionUUID->"07b8e34a-a4cd-491d-8df9-69581738b5d6", CellID->332155520], Cell[90104, 2491, 42, 1, 70, "Item",ExpressionUUID->"b6281032-f511-4275-89ec-55fe238eea49", CellID->114082950], Cell[90149, 2494, 43, 1, 70, "Item",ExpressionUUID->"e9c73011-c344-49e8-bc61-6fbdea292e69", CellID->547184391], Cell[90195, 2497, 46, 1, 70, "Item",ExpressionUUID->"e5970f77-d513-478f-9d0d-d177fb907c1c", CellID->305923514], Cell[90244, 2500, 38, 1, 70, "Item",ExpressionUUID->"1a2ac48d-753f-4e5d-be24-91a05bfe3797", CellID->359376097] }, Open ]], Cell[CellGroupData[{ Cell[90319, 2506, 1039, 26, 70, "Subsection",ExpressionUUID->"e2bf1440-ce14-4819-957e-c9f7fd2f1d3c", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[91361, 2534, 47, 1, 70, "Item",ExpressionUUID->"4bc7b7b8-ffda-4c36-8f41-37fcb34e2d9e", CellID->863667645], Cell[91411, 2537, 60, 1, 70, "Item",ExpressionUUID->"e0d7b980-d14c-448c-816b-e421e51013e4", CellID->566174931], Cell[91474, 2540, 48, 1, 70, "Item",ExpressionUUID->"7e8a17da-5747-487b-a5d5-f6592cdc0aab", CellID->983548464], Cell[91525, 2543, 47, 1, 70, "Item",ExpressionUUID->"4282690e-bce4-4f29-b44b-bd460c02b2d7", CellID->513870525], Cell[91575, 2546, 55, 1, 70, "Item",ExpressionUUID->"5d5621e8-4fb4-40eb-85b7-a82d2b7a7f80", CellID->565541594] }, Open ]], Cell[CellGroupData[{ Cell[91667, 2552, 1084, 26, 70, "Subsection",ExpressionUUID->"77a35467-ab43-4787-92ef-a1b76f33b138", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[92754, 2580, 516, 8, 70, "Text",ExpressionUUID->"f732ad65-89fc-4f02-8350-42fe22019816", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[93307, 2593, 923, 26, 70, "Subsection",ExpressionUUID->"6cd18f5e-5beb-4289-983f-cfbaaaa2df2a", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[94233, 2621, 267, 5, 70, "Item",ExpressionUUID->"20c568a3-21a9-498f-8836-dabc84a5528b", CellID->672388075], Cell[94503, 2628, 291, 6, 70, "Item",ExpressionUUID->"0cb7d14b-7cb6-4769-9610-4a825fc5b173", CellID->17075999] }, Open ]], Cell[CellGroupData[{ Cell[94831, 2639, 1874, 45, 70, "Subsection",ExpressionUUID->"a5ddcca6-cd02-4a6a-92ca-2272c3b02646", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[96730, 2688, 158, 5, 70, "Input",ExpressionUUID->"e91ba85c-b952-46f3-9802-7e499a6afcf9", CellTags->"DefaultContent", CellID->946203791], Cell[96891, 2695, 122, 4, 70, "Output",ExpressionUUID->"6c7b9529-dfb3-47d0-8699-7e8eb5ca5aac", CellTags->"DefaultContent", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[97062, 2705, 955, 25, 70, "Subsection",ExpressionUUID->"11ac2a28-9a74-40fd-bd6a-4ecd1d8a561f", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686], Cell[CellGroupData[{ Cell[98042, 2734, 1174, 31, 70, "Subsubsection",ExpressionUUID->"2802e68c-78ec-4d07-aa54-3ceb0a446922", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[99219, 2767, 89, 2, 70, "Text",ExpressionUUID->"4ebc60de-da19-415e-b292-64a088400e3b", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540] }, Open ]], Cell[CellGroupData[{ Cell[99345, 2774, 1113, 29, 70, "Subsubsection",ExpressionUUID->"f0146544-bfb8-4f13-a656-35decb8ca4a6", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[100461, 2805, 2098, 62, 70, "Output",ExpressionUUID->"1bcc2a52-f7e2-4a7a-9e85-ad39d2a8706f", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[102596, 2872, 1280, 33, 70, "Subsubsection",ExpressionUUID->"d2951276-daff-4b8e-b4fd-04b7c4029d98", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[103879, 2907, 2149, 63, 70, "Output",ExpressionUUID->"9bd573d4-6c60-4c0d-93b2-68b20c5d3f36", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[106065, 2975, 1913, 46, 70, "Subsubsection",ExpressionUUID->"79ff0cd3-61eb-4069-b6cb-a14a2fa9eeb4", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[107981, 3023, 3991, 117, 70, "Output",ExpressionUUID->"0f392f61-adc6-41b1-b3c9-f06da599132c", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027] }, Closed]], Cell[CellGroupData[{ Cell[112009, 3145, 1071, 27, 70, "Subsubsection",ExpressionUUID->"c5951ab7-4c86-4e83-b8e4-773c025434f2", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[113083, 3174, 1218, 36, 70, "Output",ExpressionUUID->"7fdb4314-beac-43be-a95a-3cefb803e5c8", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[114362, 3217, 1155, 28, 70, "Section",ExpressionUUID->"0e47a4ad-86b8-4ac0-9caf-449c26178654", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[115520, 3247, 347, 7, 70, "Text",ExpressionUUID->"ac2a8fa6-a10f-4de3-ad3c-fcb3ff163af0", CellID->844586830], Cell[CellGroupData[{ Cell[115892, 3258, 142, 3, 70, "Subsection",ExpressionUUID->"5a203147-4db6-46c0-86d1-0e9492604a67", CellID->258512445], Cell[CellGroupData[{ Cell[116059, 3265, 144, 3, 70, "Subsubsection",ExpressionUUID->"d76ab602-1495-42b5-8ac2-acfc55f5138f", CellID->227036682], Cell[CellGroupData[{ Cell[116228, 3272, 457, 14, 70, "Input",ExpressionUUID->"d01926c0-e8f8-442c-8e71-698932506d15", CellID->741174635], Cell[116688, 3288, 1091, 35, 70, "Output",ExpressionUUID->"8ae21475-93ba-40de-b931-2574787fff93", CellID->529676042] }, Open ]], Cell[CellGroupData[{ Cell[117816, 3328, 389, 12, 70, "Input",ExpressionUUID->"504755b4-71d5-4bbc-b82b-212336c2fc11", CellID->545547347], Cell[118208, 3342, 592, 21, 70, "Output",ExpressionUUID->"730b2774-5350-49c1-b3b9-469458e94ed0", CellID->570625122] }, Open ]], Cell[CellGroupData[{ Cell[118837, 3368, 248, 8, 70, "Input",ExpressionUUID->"0d89fd3d-2fda-4d14-a98b-628bced196a6", CellID->837771218], Cell[119088, 3378, 766, 26, 70, "Output",ExpressionUUID->"3655c447-c869-4eea-9c99-af9ca74f7790", CellID->898367854] }, Open ]], Cell[CellGroupData[{ Cell[119891, 3409, 305, 9, 70, "Input",ExpressionUUID->"05784502-f165-48d2-8dc5-826dacf177cf", CellID->513705218], Cell[120199, 3420, 123, 3, 70, "Output",ExpressionUUID->"7feaef2d-616c-4cc9-946b-492a8c01de30", CellID->652989041] }, Open ]], Cell[CellGroupData[{ Cell[120359, 3428, 332, 10, 70, "Input",ExpressionUUID->"29cda9f8-9243-4011-91be-7fc454bf5640", CellID->566999513], Cell[120694, 3440, 125, 3, 70, "Output",ExpressionUUID->"3d130dbe-4c52-4002-8a42-d80f19cc652c", CellID->652989042] }, Open ]], Cell[CellGroupData[{ Cell[120856, 3448, 327, 10, 70, "Input",ExpressionUUID->"d77a0be4-0bbc-4a67-8d83-b1861e27011f", CellID->344670774], Cell[121186, 3460, 281, 11, 70, "Output",ExpressionUUID->"98674b94-70e8-417c-ae3a-8e94f41fa7a7", CellID->988482332] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[121540, 3479, 1033, 26, 70, "Section",ExpressionUUID->"c5465e23-8141-4957-ba3e-01f5aa0ff66a", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[122576, 3507, 515, 8, 70, "Text",ExpressionUUID->"16a2f2e4-751b-4c27-8767-558bd4332f0f", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)