(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 145536, 3432] NotebookOptionsPosition[ 84460, 2127] NotebookOutlinePosition[ 135709, 3197] CellTagsIndexPosition[ 135056, 3175] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["EvaluateBenchmark", "Title", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756060410198571*^9, 3.756060411658519*^9}, { 3.758477313956712*^9, 3.758477316082445*^9}}, CellTags->{"Title", "TabNext"}, CellID->362346026], Cell["\<\ Measure the evaluation timings of a function on a given set of inputs\ \>", "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}, CellChangeTimes->{{3.7560604304959607`*^9, 3.75606047317467*^9}, { 3.7560621331118016`*^9, 3.756062135848711*^9}}, CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name above. All definitions, including \ dependencies, will be included in the resource function when it is generated. \ Additional cells can be added and definitions can be given for multiple input \ cases.\n\nThis section should be evaluated before evaluating creating the \ Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->608264297], Cell[BoxData[ RowBox[{"EvaluateBenchmark", ":=", "GeneralUtilities`Benchmark"}]], "Input", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756060477348546*^9, 3.7560604960889893`*^9}, { 3.758477318481234*^9, 3.758477319712983*^9}}, CellTags->"TabNext", CellID->778396829] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ "Document every accepted input usage case. Use Enter to create new \ cases as needed.\n\nEach usage should contain a brief explanation saying what \ the function does for the given input structure.\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EvaluateBenchmark", "[", RowBox[{ StyleBox["f", "TI"], ",", StyleBox["g", "TI"], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["n", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["n", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}]}], "]"}]], "UsageInputs", CellChangeTimes->{{3.7560605045987253`*^9, 3.756060517720314*^9}, { 3.7584773519897327`*^9, 3.7584773547583723`*^9}}, CellTags->"TabNext", CellID->157543866], Cell[TextData[{ "gives ", Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["n", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["t", "TI"], StyleBox["1", "TR"]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["n", "TI"], StyleBox["2", "TR"]], ",", SubscriptBox[ StyleBox["t", "TI"], StyleBox["2", "TR"]]}], "}"}], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", where ", Cell[BoxData[ SubscriptBox[ StyleBox["t", "TI"], StyleBox["i", "TI"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " is the time taken to evaluate ", Cell[BoxData[ StyleBox["f", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " on the input ", Cell[BoxData[ RowBox[{ StyleBox["g", "TI"], "[", SubscriptBox[ StyleBox["n", "TI"], StyleBox["i", "TI"]], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", as measured by ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["RepeatedTiming", "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/RepeatedTiming"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellChangeTimes->{{3.756060521591196*^9, 3.7560605834443407`*^9}}, CellTags->"TabNext", CellID->231889230] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EvaluateBenchmark", "[", RowBox[{ StyleBox["f", "TI"], ",", StyleBox["g", "TI"]}], "]"}]], "UsageInputs", CellChangeTimes->{{3.7560606088455973`*^9, 3.7560606337948503`*^9}, { 3.758477357593083*^9, 3.758477360009132*^9}}, CellID->609390090], Cell[TextData[{ "chooses the ", Cell[BoxData[ SubscriptBox[ StyleBox["n", "TI"], StyleBox["i", "TI"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " adaptively by observing the execution of ", Cell[BoxData[ StyleBox["f", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellChangeTimes->{{3.7560606150904036`*^9, 3.7560606399576664`*^9}}, CellID->14450972] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used. Add multiple \ cells including tables and hyperlinks as needed. Typical information \ includes: acceptable inputs, result formats, options specifications, and \ background information.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->29639701], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData["EvaluateBenchmark"], "InlineFormula", FontFamily->"Source Sans Pro"], " effectively uses ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Monitor", "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/Monitor"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756060688537183*^9, 3.756060699426881*^9}, { 3.758477392931776*^9, 3.7584773949992228`*^9}, 3.75848134276727*^9}, CellTags->"TabNext", CellID->521904482], Cell[TextData[{ Cell[BoxData["EvaluateBenchmark"], "InlineFormula", FontFamily->"Source Sans Pro"], " takes the following options:" }], "Notes", CellChangeTimes->{{3.7560609876751947`*^9, 3.7560609930410357`*^9}, { 3.758477396699353*^9, 3.758477398659327*^9}, 3.758481344955258*^9}, CellID->333890389], Cell[TextData[Cell[BoxData[GridBox[{ { TagBox[ ButtonBox[ StyleBox["TimeConstraint", "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/TimeConstraint"], MouseAppearanceTag["LinkHand"]], "10.0", RowBox[{"maximum", " ", "time", " ", "to", " ", "run", " ", "tests"}]} }]]]], "TableNotes", CellChangeTimes->{{3.7560610081155787`*^9, 3.756061042809537*^9}}, CellID->41055365] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ "Demonstrate how to use the function. Examples should start with the \ most basic use case. Each example should be described using text cells. Use \ \"Subsection\" and \"Subsubsection\" cells to group examples as needed.\n\n\ Example groups can optionally be delimited by inserting page breaks between \ them (affects example count on documentation page).\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->847663398], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellLabel->"In[11]:=", CellID->462042388], Cell[TextData[{ "Get the timings for ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Inverse", "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/Inverse"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " of random matrices:" }], "Text", CellChangeTimes->{{3.756060774509597*^9, 3.756060794869012*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EvaluateBenchmark", "[", RowBox[{"Inverse", ",", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"#", ",", "#"}], "}"}]}], "]"}], "&"}], ",", RowBox[{"Range", "[", RowBox[{"50", ",", "100"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.756060708396584*^9, 3.756060710626542*^9}, { 3.7584774025466967`*^9, 3.758477404565852*^9}}, CellID->443871870], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"50", ",", "0.0001053714757326808`1."}], "}"}], ",", RowBox[{"{", RowBox[{"51", ",", "0.0000785487116777723`3."}], "}"}], ",", RowBox[{"{", RowBox[{"52", ",", "0.0000545285854475944`3."}], "}"}], ",", RowBox[{"{", RowBox[{"53", ",", "0.0000568894360823411`3."}], "}"}], ",", RowBox[{"{", RowBox[{"54", ",", "0.0000582197691334751`3."}], "}"}], ",", RowBox[{"{", RowBox[{"55", ",", "0.0000914618926886278`2."}], "}"}], ",", RowBox[{"{", RowBox[{"56", ",", "0.0000672275527397251`3."}], "}"}], ",", RowBox[{"{", RowBox[{"57", ",", "0.0000658012781122697`3."}], "}"}], ",", RowBox[{"{", RowBox[{"58", ",", "0.0000729543257480105`3."}], "}"}], ",", RowBox[{"{", RowBox[{"59", ",", "0.000105701760675508`3."}], "}"}], ",", RowBox[{"{", RowBox[{"60", ",", "0.0001049332930599104`3."}], "}"}], ",", RowBox[{"{", RowBox[{"61", ",", "0.000091602121635022`1."}], "}"}], ",", RowBox[{"{", RowBox[{"62", ",", "0.0000777084358531705`2."}], "}"}], ",", RowBox[{"{", RowBox[{"63", ",", "0.000079597454273841`3."}], "}"}], ",", RowBox[{"{", RowBox[{"64", ",", "0.0000738972895240954`3."}], "}"}], ",", RowBox[{"{", RowBox[{"65", ",", "0.0001833743145623915`2."}], "}"}], ",", RowBox[{"{", RowBox[{"66", ",", "0.0001502491723673718`2."}], "}"}], ",", RowBox[{"{", RowBox[{"67", ",", "0.0001584991228494898`2."}], "}"}], ",", RowBox[{"{", RowBox[{"68", ",", "0.0001575959285891135`2."}], "}"}], ",", RowBox[{"{", RowBox[{"69", ",", "0.0001684642353120892`2."}], "}"}], ",", RowBox[{"{", RowBox[{"70", ",", "0.0001695545817480865`2."}], "}"}], ",", RowBox[{"{", RowBox[{"71", ",", "0.0001647624416236063`2."}], "}"}], ",", RowBox[{"{", RowBox[{"72", ",", "0.0001779718554381737`2."}], "}"}], ",", RowBox[{"{", RowBox[{"73", ",", "0.0001782611237686667`2."}], "}"}], ",", RowBox[{"{", RowBox[{"74", ",", "0.000182413639812103`2."}], "}"}], ",", RowBox[{"{", RowBox[{"75", ",", "0.0001875063374193143`2."}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{3.7560608181182857`*^9, 3.7560609011557903`*^9, 3.756061577375472*^9}, CellLabel->"Out[1]=", CellID->272334432] }, Open ]], Cell["View a plot of the results:", "Text", CellChangeTimes->{{3.756060882519353*^9, 3.7560608857192755`*^9}}, CellID->565728016], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "%", "]"}]], "Input", CellChangeTimes->{{3.7560608691477547`*^9, 3.7560608748716035`*^9}}, CellLabel->"In[2]:=", CellID->179802941], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{ Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ "\"\[FilledCircle]\"", FontSize -> 10, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJwBtQFK/iFib1JlAwAAABoAAAABAAAAAgAAAK8brLfSSw9A9Grwz+dQIsD/ AFH/YHQPQButVzpR5yLASamuqiWcD0DVSDC1MaIjwKs8Imgoww9AsHMPRn6M I8AME8J3cOkPQJKrE4GogCPA8/66WYIHEEBzyhCeY5kiwFBsKsv1GRBAOU3V uAA3I8BZmq2hFSwQQCUwIGv7QSPATUbGxeQ9EEARkrmIJQ0jwHkpx/llTxBA XjOvnE1PIsCLMmXcm2AQQOAQggEKUyLADWwS64hxEEDICvfPmpgiwOvcJ4Qv ghBA2BkI7dLsIsAbGOPokZIQQHtn9cyG4CLAc6s7P7KiEECr0kc7kgYjwHUp lJOSshBAuiFjAT01IcCmI0raNMIQQFWWow8/myHALREo8ZrREECBuzm94H8h wDnOu6DG4BBA2hRGx82CIcC7GpSdue8QQB67X7OoYCHAIUFniXX+EEAhUbsZ W10hwMnWJPT7DBFARjsX9ghsIcA/V/RcThsRQENqrpeMRCHA5i8iM24pEUCE r+y5t0MhwB2r/NZcNxFA2tzfeu03IcBcB6KaG0URQDy+FU/UKSHATym3gw== "]]}}, {{ Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, {}}, {{ Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, {}}}, {{}, {{}, {}}}}, { DisplayFunction -> Identity, GridLines -> { Charting`ScaledTickValues[{Log, Exp}], Charting`ScaledTickValues[{Log, Exp}]}, DisplayFunction -> Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, PlotRange -> {{3.894952642803801, 4.31748811353631}, {-11.608235644774552`, -6.812445099177812}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox["\"n\"", TraditionalForm], FormBox["\"time (s)\"", TraditionalForm]}, AxesOrigin -> {3.894952642803801, -11.608235644774552`}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Log, Exp}]}, { Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {{3.912023005428146, 4.007333185232471, 4.0943445622221, 4.174387269895637, 4.248495242049359, 4.31748811353631}, {}}, GridLinesStyle -> Opacity[0.05], ImageSize -> Medium, Method -> { "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Exp[#]& )[ Part[#, 1]], (Exp[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Exp[#]& )[ Part[#, 1]], (Exp[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{3.912023005428146, 4.31748811353631}, {-11.608235644774552`, -6.812445099177812}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.032360679774997896`]}, {0, 0}}, Ticks -> { Charting`ScaledTicks[{Log, Exp}], Charting`ScaledTicks[{Log, Exp}]}}],FormBox[ FormBox[ TemplateBox[{ StyleBox[ "\"f\"", Bold, FontFamily -> "Courier", StripOnInput -> False]}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.308], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { InsetBox[ FormBox[ StyleBox["\"\[FilledCircle]\"", Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.308], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], FontSize -> 10, Plain, StripOnInput -> False], TraditionalForm], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, ImageSize -> {15, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"\"\[FilledCircle]\"", ",", "Small"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.7560609020457907`*^9, 3.756061578010455*^9}, CellLabel->"Out[2]=", CellID->479253805] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Options", "Subsection", CellLabel->"In[1]:=", CellID->776923543], Cell[CellGroupData[{ Cell["TimeConstraint", "Subsubsection", CellChangeTimes->{{3.7560610772645035`*^9, 3.7560610797684536`*^9}}, CellLabel->"In[1]:=", CellID->762607227], Cell["By default, the total time is limited to 10 seconds:", "Text", CellChangeTimes->{{3.7560613033197317`*^9, 3.7560613164793415`*^9}}, CellID->176132876], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EvaluateBenchmark", "[", RowBox[{"Pause", ",", RowBox[{ RowBox[{"#", "/", "100"}], "&"}]}], "]"}]], "Input", CellChangeTimes->{{3.7560612961759496`*^9, 3.7560612989288597`*^9}, { 3.758477411025298*^9, 3.758477413809169*^9}}, CellID->226568091], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0.0122747799998713329`1."}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0.0214210853891164052`2."}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0.0415816073359696406`2."}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "0.0615645394180217367`3."}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0.1069947649318034461`2."}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{3.756061330661891*^9, 3.756061589265137*^9}, CellLabel->"Out[1]=", CellID->594915470] }, Open ]], Cell["Allow more time for benchmarking:", "Text", CellChangeTimes->{{3.7560611987598515`*^9, 3.7560612075766115`*^9}, { 3.756061345031455*^9, 3.7560613528642406`*^9}, {3.7560614097445107`*^9, 3.7560614366237245`*^9}}, CellID->82126587], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EvaluateBenchmark", "[", RowBox[{"Pause", ",", RowBox[{ RowBox[{"#", "/", "100"}], "&"}], ",", RowBox[{"TimeConstraint", "\[Rule]", "30"}]}], "]"}]], "Input", CellChangeTimes->{{3.7560610902411118`*^9, 3.756061172407668*^9}, { 3.756061216026351*^9, 3.7560612161863537`*^9}, {3.756061356981122*^9, 3.756061369557744*^9}, {3.7584774170512323`*^9, 3.758477419243957*^9}}, CellID->67960457], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0.0114506589302651781`2."}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0.0252238942543083662`1."}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0.0413017633317525473`2."}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "0.0618686702712816505`3."}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0.1015769735301167292`3."}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0.1514989903845825603`3."}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "0.232008052340211407`3."}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "0.3314962281969845992`3."}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "0.5017483042763033474`4."}], "}"}], ",", RowBox[{"{", RowBox[{"75", ",", "0.7513067184551234234`4."}], "}"}], ",", RowBox[{"{", RowBox[{"113", ",", "1.1325028902247238349`4."}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7560611367687397`*^9, 3.756061186871227*^9}, 3.756061287953188*^9, 3.756061404532666*^9, 3.7560616235911074`*^9}, CellLabel->"Out[2]=", CellID->767411706] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->318139260], Cell["Measure all inputs regardless of how long it takes:", "Text", CellChangeTimes->{{3.7560614469993916`*^9, 3.7560614576240854`*^9}, { 3.7560615326958437`*^9, 3.7560615334958105`*^9}}, CellID->65189154], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EvaluateBenchmark", "[", RowBox[{"Pause", ",", RowBox[{ RowBox[{"#", "/", "100"}], "&"}], ",", RowBox[{"Range", "[", "20", "]"}], ",", RowBox[{"TimeConstraint", "\[Rule]", "Infinity"}]}], "]"}]], "Input", CellChangeTimes->{{3.756061444959479*^9, 3.7560614811283884`*^9}, { 3.758477430817391*^9, 3.758477432278903*^9}}, CellID->201436763], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0.011340779796691321`2."}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0.0213248616746270353`2."}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0.0318982135577317791`2."}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0.0417363770056663266`2."}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0.0517362535118562061`3."}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "0.0616879031889097304`3."}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "0.071714399069821258`3."}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "0.0817447055794823796`3."}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "0.0918971278029034055`3."}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0.1019971344722150203`3."}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "0.1119006923564908607`3."}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "0.1218978311535154901`3."}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "0.131657977972454876`3."}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "0.1417422199520765314`3."}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0.1521142514539896018`3."}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "0.1621127133013161026`3."}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "0.1718460651337785638`3."}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "0.1821643373014599498`3."}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "0.1919951985508701053`3."}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "0.201991483767054808`3."}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{3.7560615344007936`*^9, 3.756061670821683*^9}, CellLabel->"Out[1]=", CellID->578506414] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "%", "]"}]], "Input", CellLabel->"In[2]:=", CellID->492903011], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{ Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], GeometricTransformationBox[ InsetBox[ BoxData[ FormBox[ StyleBox[ "\"\[FilledCircle]\"", FontSize -> 10, StripOnInput -> False], TraditionalForm]], {0., 0.}], CompressedData[" 1:eJxTTMoPSmVmYGAQAWJGIGZiQACnL1NO3HoleOC95a9/TnrP7G2rlumXneA7 wM28turV5I/2Cx/InDjezw2V/2b/JqGG3zqT84Bx79vvjgd+2i8zKmuO3Mh+ gElB6xf36j/21zJvM/B4sh0IjzJaV6T03/5i4yqvOSKsB4pXW9tvWsTgEHL4 G3MTBwvUfEaHq2bXPA5IMB8QC926e2M2k8Ms4wN6Rs5MB3zM67c/1mN2SF+a +jGzlfFA7bzLe8QeMjtMOfL8juY1hgOBPYbaLK0sDh2Kpb+yLBgOLN99XeyU DKvDycf/I7uc/u+X9/C1FFvF6iD06P4fV8V/+yHuZ3OQ4OdZ1yrzd39V/a+D 2avYHMok0yQ26f7Z3zYx26pant2h/oB6/W273/t1NrOwmfWxO6yJX6w+Mf3X /omPi6udvrM7rJ24oX7N9J/7AQ1ylEk= "]]}}, {{ Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, {}}, {{ Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, {}}}, {{}, {{}, {}}}}, { DisplayFunction -> Identity, GridLines -> { Charting`ScaledTickValues[{Log, Exp}], Charting`ScaledTickValues[{Log, Exp}]}, DisplayFunction -> Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, PlotRange -> {{-0.12612240908625744`, 2.995732273553991}, {-4.700480365792417, 0.09531017980432493}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox["\"n\"", TraditionalForm], FormBox["\"time (s)\"", TraditionalForm]}, AxesOrigin -> {-0.12612240908625744`, -4.700480365792417}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Log, Exp}]}, { Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {{0., 0.6931471805599453, 1.6094379124341003`, 2.302585092994046, 2.995732273553991}, {0.}}, GridLinesStyle -> Opacity[0.05], ImageSize -> Medium, Method -> { "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Exp[#]& )[ Part[#, 1]], (Exp[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Exp[#]& )[ Part[#, 1]], (Exp[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 2.995732273553991}, {-4.700480365792417, 0.09531017980432493}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.032360679774997896`]}, {0, 0}}, Ticks -> { Charting`ScaledTicks[{Log, Exp}], Charting`ScaledTicks[{Log, Exp}]}}],FormBox[ FormBox[ TemplateBox[{ StyleBox[ "\"f\"", Bold, FontFamily -> "Courier", StripOnInput -> False]}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.308], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { InsetBox[ FormBox[ StyleBox["\"\[FilledCircle]\"", Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.308], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], FontSize -> 10, Plain, StripOnInput -> False], TraditionalForm], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, ImageSize -> {15, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"\"\[FilledCircle]\"", ",", "Small"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.756061671582659*^9}, CellLabel->"Out[2]=", CellID->446367339] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Deletable->False, CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By",Cell[ BoxData[ FrameBox[ Cell[ "Name of the person, people or organization that should be publicly \ credited with contributing the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->757508554], Cell["Taliesin Beynon (Wolfram Research)", "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}, CellChangeTimes->{3.7560616902211003`*^9}, CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms that should be used to include this resource in \ search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell["benchmark tools", "Item", CellChangeTimes->{{3.751216590016673*^9, 3.751216595446848*^9}}, CellTags->"TabNext", CellID->286151546], Cell["performance plot", "Item", CellChangeTimes->{{3.7512900907662888`*^9, 3.7512900980409517`*^9}}, CellID->894302990], Cell["timing evaluation", "Item", CellChangeTimes->{{3.751290249053617*^9, 3.751290254971143*^9}}, CellID->1827827596] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List related Wolfram Language symbols. Include up to twenty \ documented, system-level symbols.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellID->911170439], Cell[CellGroupData[{ Cell["Timing", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7560617076435757`*^9, 3.7560617091395135`*^9}}, CellTags->"TabNext", CellID->79477165], Cell["AbsoluteTiming", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7560617076435757`*^9, 3.756061712595429*^9}}, CellID->360682760], Cell["RepeatedTiming", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7560617076435757`*^9, 3.756061733768776*^9}}, CellID->709613704], Cell["TimeConstrained", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7560617076435757`*^9, 3.7560617381806593`*^9}}, CellID->553734379], Cell["EvaluationData", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7560617076435757`*^9, 3.756061740134599*^9}}, CellID->374547693] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "Names of published resource objects from any Wolfram repository that \ are related to this resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->217060377], Cell[CellGroupData[{ Cell["BenchmarkPlot", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756061747255396*^9, 3.756061777427479*^9}}, CellTags->"TabNext", CellID->960273585], Cell["EvaluationTiming", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756061747255396*^9, 3.7560617921870184`*^9}}, CellID->170324164], Cell["MonitoredTestReport", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756061747255396*^9, 3.756061816004303*^9}}, CellID->257536415], Cell["WolframMark", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756061747255396*^9, 3.7560618180882425`*^9}}, CellID->713583428] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Citation for original source of the function or its components. For \ example, original publication of an algorithm or public code repository.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->967310595], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "URLs or hyperlinks for external information related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellID->593846556], Cell[TextData[ButtonBox["Guide: Time Measurement & Optimization", BaseStyle->"Hyperlink", ButtonData->{ URL["http://reference.wolfram.com/language/guide/\ TimeMeasurementAndOptimization.html"], None}, ButtonNote-> "http://reference.wolfram.com/language/guide/TimeMeasurementAndOptimization.\ html"]], "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756062097086884*^9, 3.756062110883445*^9}}, CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Optional list of tests that can be used to verify that the function \ is working properly in any environment.\nTests can be specified as \ Input/Output cell pairs or as literal VerificationTest expressions if you \ need to specify options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->16051757], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"MatchQ", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"EvaluateBenchmark", "[", RowBox[{"Inverse", ",", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"#", ",", "#"}], "}"}]}], "]"}], "&"}], ",", RowBox[{"Range", "[", RowBox[{"10", ",", "30"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"_Integer", ",", "_Real"}], "}"}], "..."}], "}"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", "True"}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.7560618428225136`*^9, 3.7560618961389136`*^9}, { 3.758477451461203*^9, 3.758477452905279*^9}}, CellID->667877521], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"MatchQ", "[", RowBox[{ RowBox[{"Benchmark", "[", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "]"}], ",", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["True", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["True", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "1.3679626`7.286589221798208", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 1, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ MatchQ[ $CellContext`Benchmark[Inverse, RandomReal[1, {#, #}]& , Range[10, 30]], { RepeatedNull[{ Blank[Integer], Blank[Real]}]}]], "ExpectedOutput" -> HoldForm[True], "ActualOutput" -> HoldForm[True], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[1.3679626`7.286589221798208, "Seconds"], "CPUTimeUsed" -> Quantity[1.25, "Seconds"], "MemoryUsed" -> Quantity[1136, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.75606185305019*^9, 3.756061898471843*^9}, CellLabel->"Out[2]=", CellID->770078779] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"MatchQ", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"EvaluateBenchmark", "[", RowBox[{"Pause", ",", RowBox[{ RowBox[{"#", "/", "100"}], "&"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"_Integer", ",", "_Real"}], "}"}], "..."}], "}"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", "True"}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{ 3.756061918955211*^9, {3.758477456176415*^9, 3.758477457623066*^9}}, CellID->90434477], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"MatchQ", "[", RowBox[{ RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[LeftSkeleton]", "8", "\[RightSkeleton]"}], ",", RowBox[{"\[LeftSkeleton]", "5", "\[RightSkeleton]"}]}], "}"}], "..."}], "}"}]}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["True", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["True", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "10.9207006`8.188765498559126", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 2, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ MatchQ[ $CellContext`Benchmark[Pause, #/100& ], { RepeatedNull[{ Blank[Integer], Blank[Real]}]}]], "ExpectedOutput" -> HoldForm[True], "ActualOutput" -> HoldForm[True], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[10.9207006`8.188765498559126, "Seconds"], "CPUTimeUsed" -> Quantity[0.14100000000000534`, "Seconds"], "MemoryUsed" -> Quantity[14616, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7560619366946945`*^9}, CellLabel->"Out[3]=", CellID->547808972] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"MatchQ", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"AbsoluteTiming", "[", RowBox[{"EvaluateBenchmark", "[", RowBox[{"Pause", ",", RowBox[{ RowBox[{"#", "/", "10000"}], "&"}], ",", RowBox[{"TimeConstraint", "\[Rule]", "1"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"t_Real", "/;", RowBox[{"t", "<", "2"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"_Integer", ",", "_Real"}], "}"}], "..."}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", "True"}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.756061973602585*^9, 3.7560620657808013`*^9}, { 3.75847746151337*^9, 3.758477462931944*^9}}, CellID->654268556], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"MatchQ", "[", RowBox[{ RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ",", RowBox[{"{", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "}"}]}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["True", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox["True", Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "1.1249734`7.2016572515062185", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 4, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ MatchQ[ AbsoluteTiming[ $CellContext`Benchmark[Pause, #/10000& , TimeConstraint -> 1]], { Condition[ Pattern[$CellContext`t, Blank[Real]], $CellContext`t < 2], { RepeatedNull[{ Blank[Integer], Blank[Real]}]}}]], "ExpectedOutput" -> HoldForm[True], "ActualOutput" -> HoldForm[True], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[1.1249734`7.2016572515062185, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[920, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{{3.7560619822173095`*^9, 3.75606199795586*^9}, { 3.7560620469493856`*^9, 3.756062069258719*^9}}, CellLabel->"Out[8]=", CellID->186354936] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ TemplateBox[{"Submission Notes",Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Submission Notes", CellID->843283583], Cell["\<\ This is needed for the examples in the BenchmarkPlot submission (6192).\ \>", "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}, CellChangeTimes->{{3.7560621723556004`*^9, 3.756062206264603*^9}}, CellTags->"TabNext", CellID->920818074] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.10"}, CreateCellID->True, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { Background -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ "\"Function Resource Definition Notebook\"", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 26, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet]\"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Open Sample Notebook\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"View a completed sample definition notebook.\"", LabelStyle -> "TextStyling"], Annotation[#, "View a completed sample definition notebook.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`\ viewExampleNotebook[]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Style Guidelines\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ MessageDialog["Coming soon"]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Preview\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"In a notebook\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Preview"]), "\"On the cloud\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"])}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Deploy\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"Locally on this computer\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Local"]), "\"For my cloud account\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"]), "\"Publicly in the cloud\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "CloudPublic"]), "\"In this session only (without documentation)\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "KernelSession"])}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm]], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Submit to Repository\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"Submit your function to the Wolfram Function Repository.\"", LabelStyle -> "TextStyling"], Annotation[#, "Submit your function to the Wolfram Function Repository.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], 2 -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {}, 5}, "Rows" -> {2, 2, {}, 2}}, FrameStyle -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`]], "Grid"]], "DockedCell", CellFrameMargins -> -1]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 1, 0]], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], 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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], 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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], 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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, 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:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TagBox[ TooltipBox[ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"More info\"", LabelStyle -> "TextStyling"], Annotation[#, "More info", "Tooltip"]& ], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic]}, 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[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["Text"], ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}], 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]}, Visible -> False, FrontEndVersion -> "11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[580, 22, 599, 10, 70, "Title",ExpressionUUID->"ce95b136-5def-46ce-a59f-4708798bf7b5", CellTags->{"Title", "TabNext"}, CellID->362346026]}, "TabNext"->{ Cell[580, 22, 599, 10, 70, "Title",ExpressionUUID->"ce95b136-5def-46ce-a59f-4708798bf7b5", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1182, 34, 667, 12, 70, "Text",ExpressionUUID->"0a6862ed-42d8-472b-beb1-12076d73b245", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[2754, 73, 647, 11, 70, "Input",ExpressionUUID->"f666f707-ef9d-480d-930c-d50bfa62c884", CellTags->"TabNext", CellID->778396829], Cell[4370, 120, 545, 17, 70, "UsageInputs",ExpressionUUID->"9096a82f-0843-40df-b7f7-760ce4f0703a", CellTags->"TabNext", CellID->157543866], Cell[4918, 139, 1680, 60, 70, "UsageDescription",ExpressionUUID->"9e420485-2d01-4cf6-8780-d157948e504c", CellTags->"TabNext", CellID->231889230], Cell[8224, 257, 1168, 29, 70, "Notes",ExpressionUUID->"d0e8cf9f-ee7b-4d69-874b-8b6c55564ea6", CellTags->"TabNext", CellID->521904482], Cell[41941, 1112, 533, 9, 70, "Text",ExpressionUUID->"86e9d672-14b8-43cf-9266-f19829b47310", CellTags->"TabNext", CellID->832483124], Cell[43161, 1148, 139, 3, 70, "Item",ExpressionUUID->"49bf71d0-b81c-4a20-8c10-f17641c5f698", CellTags->"TabNext", CellID->286151546], Cell[44284, 1187, 530, 9, 70, "Item",ExpressionUUID->"3ca6fa19-542a-45a6-90d6-5d22dac8b9b1", CellTags->"TabNext", CellID->79477165], Cell[47665, 1264, 534, 9, 70, "Item",ExpressionUUID->"8a756188-f490-46b1-9a7d-769cb9b9f1c6", CellTags->"TabNext", CellID->960273585], Cell[50562, 1330, 496, 8, 70, "Text",ExpressionUUID->"4ba07a2b-99eb-4b38-9b6e-e36d73f6daea", CellTags->"TabNext", CellID->343081869], Cell[51695, 1362, 821, 16, 70, "Item",ExpressionUUID->"ae960e66-3f13-42e8-a9ed-8aa4bf045c17", CellTags->"TabNext", CellID->485448166], Cell[82561, 2078, 509, 8, 70, "Text",ExpressionUUID->"9b8d3594-2728-47af-b845-4d1b5e1a6b0e", CellTags->"TabNext", CellID->567921317], Cell[83830, 2112, 602, 11, 70, "Text",ExpressionUUID->"99fa6aab-83e0-4bae-96dd-c957bb545d10", CellTags->"TabNext", CellID->920818074]}, "Description"->{ Cell[1182, 34, 667, 12, 70, "Text",ExpressionUUID->"0a6862ed-42d8-472b-beb1-12076d73b245", CellTags->{"Description", "TabNext"}, CellID->450900334]}, "Definition"->{ Cell[1874, 50, 877, 21, 70, "Section",ExpressionUUID->"e385b429-3cb9-4926-bb7f-ee0e51f05046", CellTags->"Definition", CellID->608264297]}, "Documentation"->{ Cell[3438, 89, 99, 3, 70, "Section",ExpressionUUID->"c3dccdc3-de98-4fde-acde-ed861b028ab7", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[3562, 96, 783, 20, 70, "Subsection",ExpressionUUID->"c7e42aec-baea-482b-bfd5-d8b554f358a7", CellTags->"Usage", CellID->694807545]}, "Details & Options"->{ Cell[7385, 233, 814, 20, 70, "Subsection",ExpressionUUID->"ae852a61-f07c-4550-adc5-ea59383b9c78", CellTags->"Details & Options", CellID->29639701]}, "Examples"->{ Cell[10422, 321, 913, 21, 70, "Section",ExpressionUUID->"13be4974-411c-4b0d-b188-3edee55a77ef", CellTags->"Examples", CellID->847663398]}, "Source & Additional Information"->{ Cell[41106, 1085, 135, 3, 70, "Section",ExpressionUUID->"3ad4497e-87f8-4b28-9541-5ebc154f09ae", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[41266, 1092, 672, 18, 70, "Subsection",ExpressionUUID->"d4539301-ecfe-4bf1-9d53-b88d6c08b5b5", CellTags->"Contributed By", CellID->757508554]}, "Keywords"->{ Cell[42511, 1126, 625, 18, 70, "Subsection",ExpressionUUID->"f31b0f5f-8ae5-4d69-865a-a03d9a8779dc", CellTags->"Keywords", CellID->246422893]}, "Related Symbols"->{ Cell[43597, 1165, 662, 18, 70, "Subsection",ExpressionUUID->"2e60a6a2-2b25-458e-a4f9-cf36e2d1f4d1", CellTags->"Related Symbols", CellID->911170439]}, "Related Resource Objects"->{ Cell[46938, 1242, 702, 18, 70, "Subsection",ExpressionUUID->"b4fb08d6-6d6e-4b4b-bba3-b86adbdb1630", CellTags->"Related Resource Objects", CellID->217060377]}, "Source/Reference Citation"->{ Cell[49804, 1309, 755, 19, 70, "Subsection",ExpressionUUID->"02e0b47f-aa17-43a6-8b9f-e9acea2eee0f", CellTags->"Source/Reference Citation", CellID->967310595]}, "Links"->{ Cell[51095, 1343, 597, 17, 70, "Subsection",ExpressionUUID->"45e1e32e-3f3c-480f-9aba-4a75e260994f", CellTags->"Links", CellID->593846556]}, "Tests"->{ Cell[52553, 1383, 767, 20, 70, "Subsection",ExpressionUUID->"9380b28e-4caf-4c73-9eea-94ec9e32fca5", CellTags->"Tests", CellID->16051757]}, "Author Notes"->{ Cell[82431, 2072, 127, 4, 70, "Section",ExpressionUUID->"797215e7-e69e-4668-8b7b-841ce6b48cee", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[83107, 2091, 720, 19, 70, "Section",ExpressionUUID->"fe8f53cc-c439-4804-8432-bb520af8ed98", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 130029, 3061}, {"TabNext", 130195, 3065}, {"Description", 132245, 3108}, {"Definition", 132420, 3112}, {"Documentation", 132587, 3116}, {"Usage", 132747, 3120}, {"Details & Options", 132916, 3124}, {"Examples", 133088, 3128}, {"Source & Additional Information", 133273, 3132}, {"Contributed By", 133464, 3136}, {"Keywords", 133636, 3140}, {"Related Symbols", 133809, 3144}, {"Related Resource Objects", 133998, 3148}, {"Source/Reference Citation", 134197, 3152}, {"Links", 134377, 3156}, {"Tests", 134537, 3160}, {"Author Notes", 134703, 3164}, {"Submission Notes", 134877, 3168} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 599, 10, 70, "Title",ExpressionUUID->"ce95b136-5def-46ce-a59f-4708798bf7b5", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1182, 34, 667, 12, 70, "Text",ExpressionUUID->"0a6862ed-42d8-472b-beb1-12076d73b245", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[1874, 50, 877, 21, 70, "Section",ExpressionUUID->"e385b429-3cb9-4926-bb7f-ee0e51f05046", CellTags->"Definition", CellID->608264297], Cell[2754, 73, 647, 11, 70, "Input",ExpressionUUID->"f666f707-ef9d-480d-930c-d50bfa62c884", CellTags->"TabNext", CellID->778396829] }, Open ]], Cell[CellGroupData[{ Cell[3438, 89, 99, 3, 70, "Section",ExpressionUUID->"c3dccdc3-de98-4fde-acde-ed861b028ab7", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[3562, 96, 783, 20, 70, "Subsection",ExpressionUUID->"c7e42aec-baea-482b-bfd5-d8b554f358a7", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[4370, 120, 545, 17, 70, "UsageInputs",ExpressionUUID->"9096a82f-0843-40df-b7f7-760ce4f0703a", CellTags->"TabNext", CellID->157543866], Cell[4918, 139, 1680, 60, 70, "UsageDescription",ExpressionUUID->"9e420485-2d01-4cf6-8780-d157948e504c", CellTags->"TabNext", CellID->231889230] }, Open ]], Cell[CellGroupData[{ Cell[6635, 204, 278, 7, 70, "UsageInputs",ExpressionUUID->"bd009aa0-8a65-42c6-b066-66bea973a711", CellID->609390090], Cell[6916, 213, 420, 14, 70, "UsageDescription",ExpressionUUID->"4e03caea-5537-4c69-a8de-cdd76c0a5783", CellID->14450972] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7385, 233, 814, 20, 70, "Subsection",ExpressionUUID->"ae852a61-f07c-4550-adc5-ea59383b9c78", CellTags->"Details & Options", CellID->29639701], Cell[CellGroupData[{ Cell[8224, 257, 1168, 29, 70, "Notes",ExpressionUUID->"d0e8cf9f-ee7b-4d69-874b-8b6c55564ea6", CellTags->"TabNext", CellID->521904482], Cell[9395, 288, 310, 7, 70, "Notes",ExpressionUUID->"f792c17a-328a-4ada-be54-8aa4a85c6b60", CellID->333890389], Cell[9708, 297, 653, 17, 70, "TableNotes",ExpressionUUID->"de0856d7-1465-4a6f-a1b7-f95a393576d5", CellID->41055365] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10422, 321, 913, 21, 70, "Section",ExpressionUUID->"13be4974-411c-4b0d-b188-3edee55a77ef", CellTags->"Examples", CellID->847663398], Cell[CellGroupData[{ Cell[11360, 346, 80, 2, 70, "Subsection",ExpressionUUID->"79faf865-6f7e-48b2-a105-4cac62af5290", CellID->462042388], Cell[11443, 350, 608, 19, 70, "Text",ExpressionUUID->"76be9502-d441-4727-9679-2611f0d47655", CellID->13078159], Cell[CellGroupData[{ Cell[12076, 373, 446, 12, 70, "Input",ExpressionUUID->"3afa00e9-0422-4c40-bf93-1d0148cdc976", CellID->443871870], Cell[12525, 387, 2345, 59, 70, "Output",ExpressionUUID->"82c41100-5e06-4d61-baac-4eb642a7d484", CellID->272334432] }, Open ]], Cell[14885, 449, 131, 2, 70, "Text",ExpressionUUID->"18d2a507-4310-4169-aa93-53a6332b648b", CellID->565728016], Cell[CellGroupData[{ Cell[15041, 455, 233, 6, 70, "Input",ExpressionUUID->"fb379831-d416-4412-bfff-0a867830bb64", CellID->179802941], Cell[15277, 463, 10004, 216, 70, "Output",ExpressionUUID->"d140a228-468a-495b-ba00-39b431814653", CellID->479253805] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25330, 685, 72, 2, 70, "Subsection",ExpressionUUID->"e01abf45-feb0-47b6-a108-af5fbbfe4fe2", CellID->776923543], Cell[CellGroupData[{ Cell[25427, 691, 152, 3, 70, "Subsubsection",ExpressionUUID->"cddf8d08-6a8b-476a-a4fe-1102bcbbacf1", CellID->762607227], Cell[25582, 696, 158, 2, 70, "Text",ExpressionUUID->"02581934-2b62-4138-9b7f-7c422e8e9ee8", CellID->176132876], Cell[CellGroupData[{ Cell[25765, 702, 282, 7, 70, "Input",ExpressionUUID->"bfe743ed-22e3-4fe1-8083-8a15a23ba0a4", CellID->226568091], Cell[26050, 711, 573, 16, 70, "Output",ExpressionUUID->"7b8a143a-168e-4f56-877d-b51f1be58b90", CellID->594915470] }, Open ]], Cell[26638, 730, 242, 4, 70, "Text",ExpressionUUID->"00aa0ee1-fe38-4e5c-8a68-512749300075", CellID->82126587], Cell[CellGroupData[{ Cell[26905, 738, 432, 9, 70, "Input",ExpressionUUID->"00559960-f2e1-4fee-ac9d-d8e83d6ef48f", CellID->67960457], Cell[27340, 749, 1148, 29, 70, "Output",ExpressionUUID->"f9ce5cc4-72c6-4085-b7bf-d6f110dc1a24", CellID->767411706] }, Open ]], Cell[CellGroupData[{ Cell[28525, 783, 64, 2, 70, "PageBreak",ExpressionUUID->"6e0c317f-84a9-4d46-9ba0-29fe2aea2332", PageBreakBelow->True, CellID->318139260], Cell[28592, 787, 209, 3, 70, "Text",ExpressionUUID->"52ceafdc-2106-470b-aef0-722be25e96f6", CellID->65189154], Cell[CellGroupData[{ Cell[28826, 794, 384, 9, 70, "Input",ExpressionUUID->"ff431a86-23bf-4f5f-8a81-ec0f4d85a644", CellID->201436763], Cell[29213, 805, 1811, 46, 70, "Output",ExpressionUUID->"a3f12891-0b6f-493d-8485-14ab83fbb5a9", CellID->578506414] }, Open ]], Cell[CellGroupData[{ Cell[31061, 856, 163, 5, 70, "Input",ExpressionUUID->"1fbb3d85-d5c5-4b43-afb2-4e3fbaa18746", CellID->492903011], Cell[31227, 863, 9794, 213, 70, "Output",ExpressionUUID->"87393240-1e85-4bc0-8e01-4ecbd552ad46", CellID->446367339] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[41106, 1085, 135, 3, 70, "Section",ExpressionUUID->"3ad4497e-87f8-4b28-9541-5ebc154f09ae", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[41266, 1092, 672, 18, 70, "Subsection",ExpressionUUID->"d4539301-ecfe-4bf1-9d53-b88d6c08b5b5", CellTags->"Contributed By", CellID->757508554], Cell[41941, 1112, 533, 9, 70, "Text",ExpressionUUID->"86e9d672-14b8-43cf-9266-f19829b47310", CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[42511, 1126, 625, 18, 70, "Subsection",ExpressionUUID->"f31b0f5f-8ae5-4d69-865a-a03d9a8779dc", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell[43161, 1148, 139, 3, 70, "Item",ExpressionUUID->"49bf71d0-b81c-4a20-8c10-f17641c5f698", CellTags->"TabNext", CellID->286151546], Cell[43303, 1153, 122, 2, 70, "Item",ExpressionUUID->"b4dea4ac-1370-48e2-a186-d65c4bf61b83", CellID->894302990], Cell[43428, 1157, 120, 2, 70, "Item",ExpressionUUID->"8658e9bb-ef32-41d6-96c6-b9e1107b917d", CellID->1827827596] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[43597, 1165, 662, 18, 70, "Subsection",ExpressionUUID->"2e60a6a2-2b25-458e-a4f9-cf36e2d1f4d1", CellTags->"Related Symbols", CellID->911170439], Cell[CellGroupData[{ Cell[44284, 1187, 530, 9, 70, "Item",ExpressionUUID->"3ca6fa19-542a-45a6-90d6-5d22dac8b9b1", CellTags->"TabNext", CellID->79477165], Cell[44817, 1198, 515, 8, 70, "Item",ExpressionUUID->"e6488df6-b04d-40c6-98e1-27c54e4a1ea0", CellID->360682760], Cell[45335, 1208, 515, 8, 70, "Item",ExpressionUUID->"d41b5f9b-3fda-4bf3-959d-0d056dee0849", CellID->709613704], Cell[45853, 1218, 518, 8, 70, "Item",ExpressionUUID->"8e45001c-cfd8-42bb-8fab-78827de42168", CellID->553734379], Cell[46374, 1228, 515, 8, 70, "Item",ExpressionUUID->"bf61ebac-9231-409b-b5a9-3b2c283283f8", CellID->374547693] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[46938, 1242, 702, 18, 70, "Subsection",ExpressionUUID->"b4fb08d6-6d6e-4b4b-bba3-b86adbdb1630", CellTags->"Related Resource Objects", CellID->217060377], Cell[CellGroupData[{ Cell[47665, 1264, 534, 9, 70, "Item",ExpressionUUID->"8a756188-f490-46b1-9a7d-769cb9b9f1c6", CellTags->"TabNext", CellID->960273585], Cell[48202, 1275, 517, 8, 70, "Item",ExpressionUUID->"a21225c0-08d7-4032-9925-d82055f0014c", CellID->170324164], Cell[48722, 1285, 518, 8, 70, "Item",ExpressionUUID->"49677320-d58b-48a9-b332-551e9e65b32d", CellID->257536415], Cell[49243, 1295, 512, 8, 70, "Item",ExpressionUUID->"5702c919-7d2b-48a4-aac3-c97c520e5b89", CellID->713583428] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[49804, 1309, 755, 19, 70, "Subsection",ExpressionUUID->"02e0b47f-aa17-43a6-8b9f-e9acea2eee0f", CellTags->"Source/Reference Citation", CellID->967310595], Cell[50562, 1330, 496, 8, 70, "Text",ExpressionUUID->"4ba07a2b-99eb-4b38-9b6e-e36d73f6daea", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[51095, 1343, 597, 17, 70, "Subsection",ExpressionUUID->"45e1e32e-3f3c-480f-9aba-4a75e260994f", CellTags->"Links", CellID->593846556], Cell[51695, 1362, 821, 16, 70, "Item",ExpressionUUID->"ae960e66-3f13-42e8-a9ed-8aa4bf045c17", CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[52553, 1383, 767, 20, 70, "Subsection",ExpressionUUID->"9380b28e-4caf-4c73-9eea-94ec9e32fca5", CellTags->"Tests", CellID->16051757], Cell[CellGroupData[{ Cell[53345, 1407, 874, 22, 70, "Input",ExpressionUUID->"651beb3e-83cf-429a-b882-8971b06b28c3", CellID->667877521], Cell[54222, 1431, 8744, 191, 70, "Output",ExpressionUUID->"447319f5-a45b-409c-97c1-76492c2d4c77", CellID->770078779] }, Open ]], Cell[CellGroupData[{ Cell[63003, 1627, 660, 17, 70, "Input",ExpressionUUID->"a7d7b65f-e58b-440f-8008-e7431890d49a", CellID->90434477], Cell[63666, 1646, 8863, 194, 70, "Output",ExpressionUUID->"4022db88-e0c3-4a5a-b5d7-7c6ca58c60ef", CellID->547808972] }, Open ]], Cell[CellGroupData[{ Cell[72566, 1845, 927, 24, 70, "Input",ExpressionUUID->"2512f1c5-ca6e-4548-a8b7-1e2b8c48a845", CellID->654268556], Cell[73496, 1871, 8874, 194, 70, "Output",ExpressionUUID->"01c03cef-5fd0-4a9b-8cde-24875d1ea679", CellID->186354936] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[82431, 2072, 127, 4, 70, "Section",ExpressionUUID->"797215e7-e69e-4668-8b7b-841ce6b48cee", CellTags->"Author Notes", CellID->795110225], Cell[82561, 2078, 509, 8, 70, "Text",ExpressionUUID->"9b8d3594-2728-47af-b845-4d1b5e1a6b0e", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[83107, 2091, 720, 19, 70, "Section",ExpressionUUID->"fe8f53cc-c439-4804-8432-bb520af8ed98", CellTags->"Submission Notes", CellID->843283583], Cell[83830, 2112, 602, 11, 70, "Text",ExpressionUUID->"99fa6aab-83e0-4bae-96dd-c957bb545d10", CellTags->"TabNext", CellID->920818074] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)