(* 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[ 255115, 6236] NotebookOptionsPosition[ 183474, 4704] NotebookOutlinePosition[ 234447, 5768] CellTagsIndexPosition[ 233794, 5746] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["RandomPartChoice", "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.7555355689328237`*^9, 3.7555355709107633`*^9}, 3.7556043602927084`*^9}, CellTags->{"Title", "TabNext"}, CellID->362346026], Cell["Choose random parts of an expression", "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.755535578949523*^9, 3.7555355900701914`*^9}, { 3.755604446415524*^9, 3.7556044472784815`*^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[{ RowBox[{"RandomPartChoice", " ", "//", " ", "ClearAll"}], ";"}]], "Code", CellChangeTimes->{{3.7555360303669605`*^9, 3.7555360332468576`*^9}, 3.7556043645605807`*^9}, CellLabel->"In[8]:=", CellID->698565488], Cell[CellGroupData[{ Cell["Options", "Subsection", CellChangeTimes->{{3.755536542719573*^9, 3.7555365442695*^9}}, CellLabel->"In[9]:=", CellID->509434243], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RandomPartChoice", " ", "//", " ", "Options"}], " ", "=", " ", RowBox[{"{", " ", RowBox[{"Heads", " ", "->", " ", "False"}], " ", "}"}]}], ";"}]], "Code", CellChangeTimes->{{3.755535875982579*^9, 3.7555358815744123`*^9}, { 3.7555360223191824`*^9, 3.7555360257390785`*^9}, {3.755539430633791*^9, 3.7555394313127527`*^9}, 3.7556043660855317`*^9}, CellLabel->"In[1]:=", CellID->113795067] }, Closed]], Cell[CellGroupData[{ Cell["Messages", "Subsection", CellChangeTimes->{{3.7555365471814404`*^9, 3.755536548255406*^9}}, CellLabel->"In[2]:=", CellID->741685049], Cell[TextData[{ "Messages are printed using ", ButtonBox["ResourceFunction[\"ResourceFunctionMessage\"]", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ ResourceFunctionMessage"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ ResourceFunctionMessage"] }], "Text", CellChangeTimes->{{3.754419870953169*^9, 3.754419887676673*^9}}, CellID->16843904], Cell[BoxData[{ RowBox[{ StyleBox[ RowBox[{ RowBox[{"RandomPartChoice", "::", "argb"}], " ", "=", " ", "\"\<`1` called with `2` arguments; between `3` and `4` arguments are \ expected.\>\""}], "Code"], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"RandomPartChoice", "::", "opttf"}], " ", "=", " ", "\"\ `2` should be True or False.\>\""}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"RandomPartChoice", "::", "level"}], " ", "=", " ", "\"\\""}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"RandomPartChoice", "::", "array"}], " ", "=", " ", "\"\\""}], ";"}]}], "Code", CellChangeTimes->{{3.754838301999996*^9, 3.754838338103885*^9}, { 3.7548386077275944`*^9, 3.754838612424432*^9}, {3.7548387534631133`*^9, 3.754838758639962*^9}, {3.755536485208274*^9, 3.755536487137216*^9}, { 3.7555368862142267`*^9, 3.755536917582285*^9}, {3.75553713506775*^9, 3.755537152431245*^9}, {3.755604367797477*^9, 3.755604369211438*^9}}, CellLabel->"In[1]:=", CellID->50982877] }, Closed]], Cell[CellGroupData[{ Cell["Definition", "Subsection", CellChangeTimes->{{3.7555365515103073`*^9, 3.7555365526552725`*^9}}, CellLabel->"In[5]:=", CellID->553747499], Cell["Set up default arguments:", "Text", CellChangeTimes->{{3.7555382715676184`*^9, 3.755538285158191*^9}}, CellID->60423290], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RandomPartChoice", "[", " ", RowBox[{"expr_", ",", " ", RowBox[{"opts", ":", " ", RowBox[{"OptionsPattern", "[", " ", "]"}]}]}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"RandomPartChoice", "[", " ", RowBox[{ RowBox[{"Unevaluated", " ", "@", " ", "expr"}], ",", " ", "Automatic", ",", " ", "All", ",", " ", "Identity", ",", " ", "_", ",", " ", "opts"}], " ", "]"}]}], ";"}]], "Code", CellChangeTimes->{{3.7555381803683653`*^9, 3.7555382105444517`*^9}, { 3.7555393754604506`*^9, 3.755539377512395*^9}, {3.7556043702134037`*^9, 3.755604371435366*^9}}, CellLabel->"In[1]:=", CellID->13720334], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RandomPartChoice", "[", " ", RowBox[{"expr_", ",", " ", "count_", ",", " ", RowBox[{"opts", ":", " ", RowBox[{"OptionsPattern", "[", " ", "]"}]}]}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"RandomPartChoice", "[", " ", RowBox[{ RowBox[{"Unevaluated", " ", "@", " ", "expr"}], ",", " ", "count", ",", " ", "All", ",", " ", "Identity", ",", " ", "_", ",", " ", "opts"}], " ", "]"}]}], ";"}]], "Code", CellChangeTimes->{{3.7555381654718065`*^9, 3.7555382198701525`*^9}, 3.755539380219315*^9, {3.755604372005333*^9, 3.7556043724273405`*^9}}, CellLabel->"In[2]:=", CellID->145853610], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RandomPartChoice", "[", " ", RowBox[{"expr_", ",", " ", "count_", ",", " ", "level_", ",", " ", RowBox[{"opts", ":", " ", RowBox[{"OptionsPattern", "[", " ", "]"}]}]}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"RandomPartChoice", "[", " ", RowBox[{ RowBox[{"Unevaluated", " ", "@", " ", "expr"}], ",", " ", "count", ",", " ", "level", ",", " ", "Identity", ",", " ", "_", ",", " ", "opts"}], " ", "]"}]}], ";"}]], "Code", CellChangeTimes->{{3.755538153991152*^9, 3.755538159612981*^9}, { 3.7555381971028376`*^9, 3.755538228622908*^9}, 3.7555393812282815`*^9, { 3.755604372924322*^9, 3.755604373339311*^9}}, CellLabel->"In[3]:=", CellID->65564962], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RandomPartChoice", "[", " ", RowBox[{ "expr_", ",", " ", "count_", ",", " ", "level_", ",", " ", "wrapper_", ",", " ", RowBox[{"opts", ":", " ", RowBox[{"OptionsPattern", "[", " ", "]"}]}]}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"RandomPartChoice", "[", " ", RowBox[{ RowBox[{"Unevaluated", " ", "@", " ", "expr"}], ",", " ", "count", ",", " ", "level", ",", " ", "wrapper", ",", " ", "_", ",", " ", "opts"}], " ", "]"}]}], ";"}]], "Code", CellChangeTimes->{ 3.75553819849582*^9, {3.7555382302398443`*^9, 3.7555382370966544`*^9}, 3.7555393821412544`*^9, {3.755604374045291*^9, 3.755604374499276*^9}}, CellLabel->"In[4]:=", CellID->157522495], Cell["Main definition:", "Text", CellChangeTimes->{{3.755536555342186*^9, 3.7555365575581274`*^9}}, CellID->524480498], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RandomPartChoice", "[", " ", RowBox[{ "expr_", ",", " ", "count_", ",", " ", "level_", ",", " ", "wrapper_", ",", " ", "pattern_", ",", " ", RowBox[{"opts", ":", " ", RowBox[{"OptionsPattern", "[", " ", "]"}]}]}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"Catch", "[", "\n", " ", RowBox[{ RowBox[{"randomPart", "[", "\n", " ", RowBox[{ RowBox[{"Unevaluated", " ", "@", " ", "expr"}], ",", "\n", " ", RowBox[{"handleWrapper", " ", "@", " ", "wrapper"}], ",", "\n", " ", RowBox[{"handlePattern", " ", "@", " ", "pattern"}], ",", "\n", " ", RowBox[{"handleLevel", " ", "@", " ", "level"}], ",", "\n", " ", RowBox[{"handleCount", " ", "@", " ", "count"}], ",", "\n", " ", RowBox[{"handleHeads", " ", "@", " ", RowBox[{"OptionValue", " ", "@", " ", "Heads"}]}]}], "\n", " ", "]"}], ",", "\n", " ", "$randomPart"}], "\n", " ", "]"}]}], ";"}]], "Code", CellChangeTimes->{{3.7555362343968325`*^9, 3.755536395629966*^9}, { 3.755538045972396*^9, 3.7555380677437415`*^9}, {3.7555388341057186`*^9, 3.755538845080387*^9}, 3.75560437545325*^9}, CellLabel->"In[5]:=", CellID->516001156] }, Open ]], Cell[CellGroupData[{ Cell["Dependencies", "Subsection", CellChangeTimes->{{3.7555366027187705`*^9, 3.7555366041757016`*^9}}, CellLabel->"In[6]:=", CellID->97183702], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"randomPart", "[", " ", RowBox[{ "expr_", ",", " ", "wrapper_", ",", " ", "pattern_", ",", " ", "level_", ",", " ", "Automatic", ",", " ", "heads_"}], " ", "]"}], " ", ":=", " ", "\n", " ", RowBox[{"First", " ", "@", " ", RowBox[{"randomPart", "[", " ", RowBox[{ RowBox[{"Unevaluated", " ", "@", " ", "expr"}], ",", " ", "wrapper", ",", " ", "pattern", ",", " ", "level", ",", " ", "1", ",", " ", "heads"}], " ", "]"}]}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"randomPart", "[", " ", RowBox[{ "expr_", ",", " ", "wrapper_", ",", " ", "pattern_", ",", " ", "level_", ",", " ", "count_", ",", " ", "heads_"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"positions", ",", " ", "sample"}], " ", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"positions", " ", "=", " ", RowBox[{"Position", "[", " ", RowBox[{ RowBox[{"Unevaluated", " ", "@", " ", "expr"}], ",", " ", "pattern", ",", " ", "level", ",", " ", RowBox[{"Heads", " ", "->", " ", "heads"}]}], " ", "]"}]}], ";", "\n", " ", RowBox[{"sample", " ", "=", " ", RowBox[{"RandomChoice", "[", " ", RowBox[{"positions", ",", " ", "count"}], " ", "]"}]}], ";", "\n", " ", RowBox[{"Extract", "[", " ", RowBox[{ RowBox[{"Unevaluated", " ", "@", " ", "expr"}], ",", " ", "sample", ",", " ", "wrapper"}], " ", "]"}]}]}], "\n", " ", "]"}]}], ";"}]}], "Code", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7555355968649683`*^9, 3.7555357140634584`*^9}, { 3.7555358251911087`*^9, 3.7555359956379843`*^9}, {3.755536154156226*^9, 3.755536197139929*^9}, {3.7555377441204653`*^9, 3.755537798751808*^9}, 3.7555393914219556`*^9}, CellTags->"TabNext", CellLabel->"In[1]:=", CellID->778396829], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"positiveMachineIntegerQ", "[", " ", "n_Integer", " ", "]"}], " ", ":=", "\n", " ", RowBox[{ RowBox[{"Positive", " ", "@", " ", "n"}], " ", "&&", " ", RowBox[{"Developer`MachineIntegerQ", " ", "@", " ", "n"}]}]}], ";"}], "\[IndentingNewLine]", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"positiveMachineIntegerQ", "[", " ", "___", " ", "]"}], " ", ":=", " ", "False"}], ";"}]}], "Code", CellChangeTimes->{3.7555376641758523`*^9}, CellLabel->"In[3]:=", CellID->173781409], Cell[CellGroupData[{ Cell["Argument/option handlers", "Subsubsection", CellChangeTimes->{{3.7548390397913294`*^9, 3.754839042607238*^9}, { 3.7548394617353554`*^9, 3.754839464689239*^9}}, CellLabel->"In[5]:=", CellID->145881112], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"handleWrapper", "[", " ", "Automatic", " ", "]"}], " ", ":=", " ", "Identity"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"handleWrapper", "[", " ", RowBox[{ RowBox[{"Verbatim", "[", " ", "Verbatim", " ", "]"}], " ", "@", " ", "Automatic"}], " ", "]"}], " ", ":=", " ", "Automatic"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"handleWrapper", "[", " ", RowBox[{"other_", ",", " ", "___"}], " ", "]"}], " ", ":=", " ", "other"}], ";"}]}], "Code", CellChangeTimes->{{3.7555388593289633`*^9, 3.7555388868071337`*^9}, { 3.7555389309528036`*^9, 3.7555389785993805`*^9}, {3.7555390783163605`*^9, 3.7555390854001656`*^9}}, CellLabel->"In[1]:=", CellID->59326081], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"handlePattern", "[", " ", "Automatic", " ", "]"}], " ", ":=", " ", "_"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"handlePattern", "[", " ", RowBox[{ RowBox[{"Verbatim", "[", " ", "Verbatim", " ", "]"}], " ", "@", " ", "Automatic"}], " ", "]"}], " ", ":=", " ", "Automatic"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"handlePattern", "[", " ", RowBox[{"other_", ",", " ", "___"}], " ", "]"}], " ", ":=", " ", "other"}], ";"}]}], "Code", CellChangeTimes->{{3.7555388986167774`*^9, 3.755538997480808*^9}, 3.755539087714093*^9}, CellLabel->"In[4]:=", CellID->672887748], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"$int", " ", ":=", " ", RowBox[{"_DirectedInfinity", " ", "|", " ", RowBox[{"_Integer", "?", " ", "Developer`MachineIntegerQ"}]}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"handleLevel", "[", " ", "Automatic", " ", "]"}], " ", ":=", " ", RowBox[{"{", " ", "1", " ", "}"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"handleLevel", "[", " ", "All", " ", "]"}], " ", ":=", " ", RowBox[{"{", " ", RowBox[{"0", ",", " ", "Infinity"}], " ", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"handleLevel", "[", " ", RowBox[{"level", ":", " ", RowBox[{"$int", " ", "|", " ", RowBox[{"{", " ", "$int", " ", "}"}], " ", "|", " ", RowBox[{"{", " ", RowBox[{"$int", ",", " ", "$int"}], " ", "}"}]}]}], " ", "]"}], " ", ":=", " ", "level"}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"handleLevel", "[", " ", RowBox[{"other_", ",", " ", "___"}], " ", "]"}], " ", ":=", " ", RowBox[{"(", "\n", " ", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", " ", "\"\\"", " ", "]"}], "[", " ", RowBox[{ RowBox[{"RandomPartChoice", "::", "level"}], ",", " ", "other"}], " ", "]"}], ";", "\n", " ", RowBox[{"Throw", "[", " ", RowBox[{"$fail", ",", " ", "$randomPart"}], " ", "]"}]}], "\n", ")"}]}], ";"}]}], "Code", CellChangeTimes->{{3.7548392677573113`*^9, 3.754839397128337*^9}, { 3.754841676474013*^9, 3.7548416870417147`*^9}, {3.754841720193688*^9, 3.7548417704661236`*^9}, {3.755536498983862*^9, 3.755536503976709*^9}, { 3.755537679456393*^9, 3.7555376800893707`*^9}, 3.7556043779171753`*^9}, CellLabel->"In[7]:=", CellID->315398867], Cell["Handle the count argument:", "Text", CellChangeTimes->{{3.7555367304059067`*^9, 3.755536735317777*^9}}, CellID->43054481], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"handleCount", "[", " ", "Automatic", " ", "]"}], " ", ":=", " ", "Automatic"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"handleCount", "[", " ", RowBox[{"n_", "?", "positiveMachineIntegerQ"}], " ", "]"}], " ", ":=", " ", "n"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"handleCount", "[", " ", RowBox[{"array", ":", " ", RowBox[{"{", " ", RowBox[{"__", "?", "positiveMachineIntegerQ"}], " ", "}"}]}], " ", "]"}], " ", ":=", " ", "array"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"handleCount", "[", " ", RowBox[{"other_", ",", " ", "___"}], " ", "]"}], " ", ":=", " ", RowBox[{"(", "\n", " ", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", " ", "\"\\"", " ", "]"}], "[", " ", RowBox[{ RowBox[{"RandomPartChoice", "::", "array"}], ",", " ", "other"}], " ", "]"}], ";", "\n", " ", RowBox[{"Throw", "[", " ", RowBox[{"$fail", ",", " ", "$randomPart"}], " ", "]"}]}], "\n", ")"}]}], ";"}]}], "Code", CellChangeTimes->{{3.755536739532634*^9, 3.75553674889137*^9}, { 3.7555367820003586`*^9, 3.755536845200474*^9}, {3.7555370381736593`*^9, 3.7555370565181217`*^9}, {3.7555372036426916`*^9, 3.755537222424127*^9}, 3.7555373432735176`*^9, {3.7555373838162746`*^9, 3.755537392343017*^9}, { 3.755537450357278*^9, 3.7555374638168745`*^9}, {3.7555374940079627`*^9, 3.75553753068686*^9}, {3.755537592423008*^9, 3.7555376246240377`*^9}, { 3.7555376579320374`*^9, 3.7555376594489937`*^9}, 3.7556043785891347`*^9}, CellLabel->"In[12]:=", CellID->208550873], Cell["Handle the value given for the Heads option:", "Text", CellChangeTimes->{{3.7544184822014236`*^9, 3.754418497937955*^9}, { 3.754419288538471*^9, 3.754419289642439*^9}, {3.7548391857278414`*^9, 3.7548391887357464`*^9}}, CellID->329093105], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"handleHeads", "[", " ", "Automatic", " ", "]"}], " ", ":=", " ", "True"}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"handleHeads", "[", " ", RowBox[{"b", ":", " ", RowBox[{"True", "|", "False"}]}], " ", "]"}], " ", ":=", " ", "b"}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"handleHeads", "[", " ", RowBox[{"other_", ",", " ", "___"}], " ", "]"}], " ", ":=", " ", RowBox[{"(", "\n", " ", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", " ", "\"\\"", " ", "]"}], "[", " ", RowBox[{ RowBox[{"RandomPartChoice", "::", "opttf"}], ",", " ", "Heads", ",", " ", "other"}], " ", "]"}], ";", "\n", " ", RowBox[{"Throw", "[", " ", RowBox[{"$fail", ",", " ", "$randomPart"}], " ", "]"}]}], "\n", ")"}]}], ";"}]}], "Code", CellChangeTimes->{{3.7544220337502155`*^9, 3.754422036742098*^9}, { 3.754422096589342*^9, 3.7544221008222218`*^9}, {3.7548391931216063`*^9, 3.7548392445690203`*^9}, {3.755536680524409*^9, 3.75553668300333*^9}, 3.755604379461108*^9}, CellLabel->"In[16]:=", CellID->101029949] }, Closed]] }, Closed]] }, 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", CellLabel->"In[19]:=", CellID->694807545], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPartChoice", "[", StyleBox["expr", "TI"], "]"}]], "UsageInputs", CellChangeTimes->{{3.755539699538719*^9, 3.7555397022726364`*^9}, 3.7555397567389994`*^9, 3.7556043810360603`*^9}, CellTags->"TabNext", CellID->157543866], Cell[TextData[{ "choose a random subexpression from ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellChangeTimes->{{3.755539706096521*^9, 3.7555397067335024`*^9}, { 3.75553977553541*^9, 3.755539786235114*^9}}, CellTags->"TabNext", CellID->231889230] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPartChoice", "[", RowBox[{ StyleBox["expr", "TI"], ",", StyleBox["count", "TI"]}], "]"}]], "UsageInputs", CellChangeTimes->{{3.7555397088234158`*^9, 3.755539714384273*^9}, 3.755539759057922*^9, 3.75560438430698*^9}, CellID->885709141], Cell[TextData[{ "choose ", Cell[BoxData[ StyleBox["count", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " subexpressions." }], "UsageDescription", CellChangeTimes->{{3.755539715712233*^9, 3.7555397158782287`*^9}, { 3.7555397893760166`*^9, 3.75553980062868*^9}}, CellID->114695312] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPartChoice", "[", RowBox[{ StyleBox["expr", "TI"], ",", StyleBox["count", "TI"], ",", StyleBox["levelspec", "TI"]}], "]"}]], "UsageInputs", CellChangeTimes->{{3.755539716840192*^9, 3.7555397252559395`*^9}, 3.755539761357853*^9, 3.755604384690971*^9}, CellID->113254635], Cell[TextData[{ "only consider subexpressions at levels given by ", Cell[BoxData[ StyleBox["levelspec", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellChangeTimes->{{3.755539727264863*^9, 3.75553972748888*^9}, { 3.755539805497529*^9, 3.7555398232860007`*^9}}, CellID->402995995] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPartChoice", "[", RowBox[{ StyleBox["expr", "TI"], ",", StyleBox["count", "TI"], ",", StyleBox["levelspec", "TI"], ",", StyleBox["wrapper", "TI"]}], "]"}]], "UsageInputs", CellChangeTimes->{{3.755539728616846*^9, 3.7555397636707945`*^9}, 3.755604385450946*^9}, CellID->80734270], Cell[TextData[{ "apply ", Cell[BoxData[ StyleBox["wrapper", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " to each item before returning the result." }], "UsageDescription", CellChangeTimes->{{3.7555397420804358`*^9, 3.7555397423114104`*^9}, { 3.75553982684787*^9, 3.7555398433084*^9}}, CellID->417214674] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPartChoice", "[", RowBox[{ StyleBox["expr", "TI"], ",", StyleBox["count", "TI"], ",", StyleBox["levelspec", "TI"], ",", StyleBox["wrapper", "TI"], ",", StyleBox["pattern", "TI"]}], "]"}]], "UsageInputs", CellChangeTimes->{{3.7555397432724037`*^9, 3.7555397660926976`*^9}, 3.7556043883388414`*^9}, CellID->341446923], Cell[TextData[{ "only consider subexpressions that match ", Cell[BoxData[ StyleBox["pattern", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellChangeTimes->{{3.7555397526081247`*^9, 3.755539753151108*^9}, { 3.7555398463282986`*^9, 3.755539855337028*^9}}, CellID->845598308] }, 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", CellLabel->"In[1]:=", CellID->29639701], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ RowBox[{"RandomPartChoice", "[", StyleBox["expr", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " chooses with equal probability between all of the subexpressions of ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ". " }], "Notes", CellChangeTimes->{{3.7556054324288964`*^9, 3.755605463959957*^9}}, CellID->17689], Cell[TextData[{ Cell[BoxData["RandomPartChoice"], "InlineFormula", FontFamily->"Source Sans Pro"], " gives a different sequence of pseudorandom choices whenever you run ", "the Wolfram Language", ". You can start with a particular seed using ", Cell[BoxData[ TemplateBox[{"SeedRandom","paclet:ref/SeedRandom"}, "RefLink", BaseStyle->{"InlineFormula"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ". " }], "Notes", CellChangeTimes->{{3.755605440435667*^9, 3.7556054407746434`*^9}}, CellID->22564], Cell[TextData[{ "A ", Cell[BoxData[ TemplateBox[{"Method","paclet:ref/Method"}, "RefLink", BaseStyle->{"InlineFormula"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " option to ", Cell[BoxData[ TemplateBox[{"SeedRandom","paclet:ref/SeedRandom"}, "RefLink", BaseStyle->{"InlineFormula"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " can be given to specify the pseudorandom generator used. " }], "Notes", CellID->19196], Cell[TextData[{ Cell[BoxData[ RowBox[{"RandomPartChoice", "[", RowBox[{ StyleBox["expr", "TI"], ",", StyleBox["count", "TI"], ",", StyleBox["levelspec", "TI"], ",", StyleBox["wrapper", "TI"], ",", StyleBox["pattern", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " tests all the subparts of ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " in turn to try and find ones that match ", Cell[BoxData[ StyleBox["pattern", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ". " }], "Notes", CellChangeTimes->{{3.755605515656398*^9, 3.755605534135847*^9}}, CellID->22755], Cell[TextData[{ Cell[BoxData["RandomPartChoice"], "InlineFormula", FontFamily->"Source Sans Pro"], " looks only for matches to values in ", Cell[BoxData[ TemplateBox[{"Association","paclet:ref/Association"}, "RefLink", BaseStyle->{"InlineFormula"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " objects that appear in ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellChangeTimes->{{3.7556055542472186`*^9, 3.755605576751565*^9}}, CellID->456441824], Cell[TextData[{ "The default level specification for ", Cell[BoxData["RandomPartChoice"], "InlineFormula", FontFamily->"Source Sans Pro"], " is ", Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", TemplateBox[{"Infinity","paclet:ref/Infinity"}, "RefLink", BaseStyle->{"InlineFormula"}]}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", with ", Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Heads", "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/Heads"], MouseAppearanceTag["LinkHand"]], "\[Rule]", TagBox[ ButtonBox[ StyleBox["False", "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/False"], MouseAppearanceTag["LinkHand"]]}]], "InlineFormula", FontFamily->"Source Sans Pro"], ". " }], "Notes", CellChangeTimes->{{3.7556055838403516`*^9, 3.755605612993453*^9}}, CellID->28885], Cell[TextData[{ Cell[BoxData["RandomPartChoice"], "InlineFormula", FontFamily->"Source Sans Pro"], " uses standard level specifications:" }], "Notes", CellChangeTimes->{{3.7556056339280806`*^9, 3.7556056396929054`*^9}}, CellID->29755], Cell[TextData[Cell[BoxData[GridBox[{ { StyleBox["n", "TI"], RowBox[{"levels", " ", "1", " ", "through", " ", StyleBox["n", "TI"]}]}, { TagBox[ ButtonBox[ StyleBox["Infinity", "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/Infinity"], MouseAppearanceTag["LinkHand"]], RowBox[{"levels", " ", "1", " ", "through", " ", TagBox[ ButtonBox[ StyleBox["Infinity", "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/Infinity"], MouseAppearanceTag["LinkHand"]]}]}, { RowBox[{"{", StyleBox["n", "TI"], "}"}], RowBox[{"level", " ", StyleBox["n", "TI"], " ", "only"}]}, { RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["n", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["n", "TI"], StyleBox["2", "TR"]]}], "}"}], RowBox[{"levels", " ", SubscriptBox[ StyleBox["n", "TI"], StyleBox["1", "TR"]], " ", "through", " ", SubscriptBox[ StyleBox["n", "TI"], StyleBox["2", "TR"]]}]} }]]]], "TableNotes", CellChangeTimes->{{3.7556056520465093`*^9, 3.75560571001677*^9}}, CellID->263431255], Cell[TextData[{ "A positive level ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " consists of all parts of ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " specified by ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " indices." }], "Notes", CellID->5741], Cell[TextData[{ "A negative level ", Cell[BoxData[ RowBox[{"-", StyleBox["n", "TI"]}]], "InlineFormula", FontFamily->"Source Sans Pro"], " consists of all parts of ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " with depth ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->7056], Cell[TextData[{ "Level ", Cell[BoxData["0"], "InlineFormula", FontFamily->"Source Sans Pro"], " corresponds to the whole expression." }], "Notes", CellID->4609] }, 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", CellEvaluationFunction->(($Line = 0; SeedRandom[2]; Null)& ), CellLabel->"In[1]:=", CellID->462042388], Cell["Get a random part of an expression:", "Text", CellChangeTimes->{{3.755538349598255*^9, 3.7555383542311354`*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPartChoice", "[", RowBox[{"{", RowBox[{ RowBox[{"1", "+", RowBox[{"x", "^", "2"}]}], ",", "5", ",", RowBox[{"x", "^", "4"}], ",", RowBox[{"a", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"x", "^", "2"}]}], ")"}], "^", "2"}]}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.755537957621058*^9, 3.7555379968848724`*^9}, { 3.7555380822213163`*^9, 3.7555381038316574`*^9}, {3.7555383237450514`*^9, 3.755538357608015*^9}, 3.7556043898128138`*^9}, CellLabel->"In[1]:=", CellID->111886990], Cell[BoxData[ SuperscriptBox["x", "2"]], "Output", CellChangeTimes->{{3.7555379930019717`*^9, 3.7555380020977125`*^9}, 3.75553810446564*^9, {3.755538329351863*^9, 3.7555383685007133`*^9}, { 3.755538440294533*^9, 3.755538446113358*^9}, {3.7555385221530952`*^9, 3.7555386036796494`*^9}, {3.7555387710816064`*^9, 3.7555387793223696`*^9}, 3.7555390250969844`*^9, 3.755539127113894*^9, {3.755539291061985*^9, 3.755539314709272*^9}, {3.755539445472355*^9, 3.755539457498969*^9}, { 3.7555396023266177`*^9, 3.7555396564380145`*^9}, 3.7556044821454487`*^9, 3.7556046381257706`*^9}, CellLabel->"Out[1]=", CellID->2260160] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->346437247], Cell["Get multiple parts:", "Text", CellChangeTimes->{{3.755538485007188*^9, 3.7555384892630796`*^9}}, CellID->60092293], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"h", "[", RowBox[{"c", ",", "d"}], "]"}]}], "}"}], ",", "10"}], "]"}]], "Input", CellChangeTimes->{{3.755538491408014*^9, 3.755538600990728*^9}, 3.755604390901782*^9}, CellLabel->"In[1]:=", CellID->126206742], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "b", ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"h", "[", RowBox[{"c", ",", "d"}], "]"}], ",", "x", ",", RowBox[{"f", "[", "x", "]"}], ",", "b"}], "}"}]], "Output", CellChangeTimes->{{3.755538517698223*^9, 3.7555386037946167`*^9}, { 3.7555387712085915`*^9, 3.755538779421365*^9}, 3.7555390252109795`*^9, 3.7555391272209067`*^9, {3.7555392911739893`*^9, 3.7555393147942786`*^9}, { 3.7555394455743523`*^9, 3.755539457604992*^9}, {3.7555396024396367`*^9, 3.7555396565330105`*^9}, 3.7556044823174515`*^9, 3.755604638324741*^9}, CellLabel->"Out[1]=", CellID->278519758] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->112706677], Cell["Provide a level specification:", "Text", CellChangeTimes->{{3.755538635263692*^9, 3.755538639574542*^9}}, CellID->262622704], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"h", "[", RowBox[{"c", ",", "d"}], "]"}]}], "}"}], ",", "5", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.7555386477433224`*^9, 3.7555386836162457`*^9}, 3.7556043916927586`*^9}, CellLabel->"In[1]:=", CellID->165782239], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"f", "[", "x", "]"}]}], "}"}]], "Output", CellChangeTimes->{{3.75553867360954*^9, 3.7555386845471907`*^9}, { 3.7555387713245993`*^9, 3.755538779520364*^9}, 3.755539025324977*^9, 3.755539127327886*^9, {3.755539291283962*^9, 3.7555393148782773`*^9}, { 3.7555394456873207`*^9, 3.7555394577619867`*^9}, {3.755539602568631*^9, 3.755539656633007*^9}, 3.7556044824204483`*^9, 3.75560463842776*^9}, CellLabel->"Out[1]=", CellID->588217028] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->48066288], Cell["Apply a function to each item before returning:", "Text", CellChangeTimes->{{3.755538703183651*^9, 3.755538737735613*^9}}, CellID->13118796], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{"Hold", "[", RowBox[{ RowBox[{"1", "+", "1"}], ",", RowBox[{"2", "+", "2"}], ",", RowBox[{"3", "+", "3"}]}], "]"}], ",", "3", ",", "1", ",", "HoldForm"}], "]"}]], "Input", CellChangeTimes->{{3.7555387418564887`*^9, 3.755538776161457*^9}, 3.755604392316741*^9}, CellLabel->"In[1]:=", CellID->317467237], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"1", "+", "1"}], HoldForm], ",", TagBox[ RowBox[{"1", "+", "1"}], HoldForm], ",", TagBox[ RowBox[{"3", "+", "3"}], HoldForm]}], "}"}]], "Output", CellChangeTimes->{{3.7555387714225836`*^9, 3.7555387796203337`*^9}, 3.755539025414973*^9, 3.7555391274228992`*^9, {3.755539291372982*^9, 3.7555393149902496`*^9}, {3.755539445810342*^9, 3.7555394578969812`*^9}, { 3.7555396026686063`*^9, 3.755539656721981*^9}, 3.755604482511444*^9, 3.7556046385267572`*^9}, CellLabel->"Out[1]=", CellID->517632661] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->350918971], Cell["Restrict sampling to elements that match a given pattern:", "Text", CellChangeTimes->{{3.755538809719448*^9, 3.755538822303072*^9}}, CellID->39718412], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{"Hold", "[", RowBox[{ RowBox[{"1", "+", "1"}], ",", RowBox[{"2", "+", "2"}], ",", RowBox[{"3", "+", "3"}]}], "]"}], ",", "Automatic", ",", "Automatic", ",", "HoldForm", ",", "_Plus"}], "]"}]], "Input", CellChangeTimes->{ 3.755538825703967*^9, {3.7555390449843836`*^9, 3.75553906254885*^9}, { 3.755539119074155*^9, 3.7555391202711177`*^9}, 3.755604393061718*^9}, CellLabel->"In[1]:=", CellID->366682349], Cell[BoxData[ TagBox[ RowBox[{"1", "+", "1"}], HoldForm]], "Output", CellChangeTimes->{ 3.7555390649697776`*^9, {3.7555390955298443`*^9, 3.7555391275138793`*^9}, { 3.75553929145898*^9, 3.7555393150762467`*^9}, {3.755539445890339*^9, 3.755539457980979*^9}, {3.7555396028206196`*^9, 3.7555396568069787`*^9}, 3.755604482694419*^9, 3.7556046386337557`*^9}, CellLabel->"Out[1]=", CellID->23980340] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellLabel->"In[2]:=", CellID->964056545], Cell[TextData[{ "Use ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " for the count to obtain the one-argument behavior when providing \ additional arguments:" }], "Text", CellChangeTimes->{{3.7555391904009914`*^9, 3.7555392341457024`*^9}}, CellID->649685796], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"h", "[", RowBox[{"c", ",", "d"}], "]"}]}], "}"}], ",", "Automatic", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.7555391781163807`*^9, 3.7555391827252398`*^9}, 3.755604395492646*^9}, CellLabel->"In[1]:=", CellID->836153427], Cell[BoxData[ RowBox[{"h", "[", RowBox[{"c", ",", "d"}], "]"}]], "Output", CellChangeTimes->{ 3.755539238611559*^9, {3.7555392915409794`*^9, 3.7555393151592464`*^9}, 3.7555394792913313`*^9, {3.755539602920597*^9, 3.755539656899999*^9}, 3.755604482889437*^9, 3.7556046387857275`*^9}, CellLabel->"Out[1]=", CellID->162729631] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->653587358], Cell[TextData[{ "Get random parts of an ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "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/Association"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.7555393289348297`*^9, 3.7555393370286016`*^9}}, CellID->151983794], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"1", "\[Rule]", RowBox[{"1", "+", SuperscriptBox["x", "2"]}]}], ",", RowBox[{"2", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{"\"\\"", "\[Rule]", SuperscriptBox["x", "2"]}], "\[RightAssociation]"}]}], ",", RowBox[{"3", "\[Rule]", SuperscriptBox["x", "4"]}], ",", RowBox[{"4", "\[Rule]", RowBox[{"a", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "2"]}], ")"}], "2"]}]}]}], "\[RightAssociation]"}], ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.7555392682966757`*^9, 3.7555393087184367`*^9}, 3.7556043960786257`*^9}, CellLabel->"In[1]:=", CellID->138044480], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "x", ",", "2", ",", "2", ",", "2"}], "}"}]], "Output", CellChangeTimes->{{3.755539276727398*^9, 3.755539315254242*^9}, 3.7555394793763237`*^9, {3.7555396029825945`*^9, 3.755539656998973*^9}, 3.7556044830114098`*^9, 3.7556046389277496`*^9}, CellLabel->"Out[1]=", CellID->368605418] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Options", "Subsection", CellLabel->"In[2]:=", CellID->776923543], Cell[CellGroupData[{ Cell["Heads", "Subsubsection", CellChangeTimes->{{3.755539417632189*^9, 3.755539418311143*^9}}, CellLabel->"In[1]:=", CellID->976295905], Cell["\<\ By default, the heads of expressions are not included in the sample space:\ \>", "Text", CellChangeTimes->{{3.7555395346476746`*^9, 3.755539545880335*^9}}, CellID->575794377], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "a", "]"}], ",", RowBox[{"g", "[", "b", "]"}], ",", RowBox[{"h", "[", "c", "]"}]}], "}"}], "[", "x", "]"}], ",", "10", ",", RowBox[{"{", RowBox[{"1", ",", "Infinity"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7555395498002205`*^9, 3.755539578592353*^9}, { 3.7555396254469395`*^9, 3.755539645395323*^9}, 3.755604396900601*^9}, CellLabel->"In[1]:=", CellID->297083185], Cell[BoxData[ RowBox[{"{", RowBox[{ "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x"}], "}"}]], "Output", CellChangeTimes->{{3.755539562123839*^9, 3.7555396571369834`*^9}, 3.7556044831364284`*^9, 3.755604639107741*^9}, CellLabel->"Out[1]=", CellID->25917809] }, Open ]], Cell["Allow choosing heads:", "Text", CellChangeTimes->{{3.755539495429861*^9, 3.7555395150712385`*^9}}, CellID->74512229], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "a", "]"}], ",", RowBox[{"g", "[", "b", "]"}], ",", RowBox[{"h", "[", "c", "]"}]}], "}"}], "[", "x", "]"}], ",", "10", ",", RowBox[{"{", RowBox[{"1", ",", "Infinity"}], "}"}], ",", RowBox[{"Heads", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.755539496743803*^9, 3.7555395222880187`*^9}, { 3.755539587171096*^9, 3.755539648555252*^9}, 3.7556043975545845`*^9}, CellLabel->"In[2]:=", CellID->685622072], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", RowBox[{"f", "[", "a", "]"}], ",", "c", ",", RowBox[{"h", "[", "c", "]"}], ",", "f", ",", "x", ",", RowBox[{"f", "[", "a", "]"}], ",", "c", ",", "b", ",", "b"}], "}"}]], "Output", CellChangeTimes->{ 3.755539524113982*^9, {3.755539592289935*^9, 3.755539657193989*^9}, 3.755604483217427*^9, 3.7556046391807184`*^9}, CellLabel->"Out[2]=", CellID->686353] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellLabel->"In[30]:=", CellID->754506620], Cell[TextData[{ Cell[BoxData[ RowBox[{"RandomPartChoice", "[", RowBox[{ StyleBox["expr", "TI"], ",", StyleBox["count", "TI"], ",", RowBox[{"{", "1", "}"}]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is equivalent to ", Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["RandomChoice", "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/RandomChoice"], MouseAppearanceTag["LinkHand"]], "[", RowBox[{ StyleBox["expr", "TI"], ",", StyleBox["count", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.755604565886938*^9, 3.7556045977539825`*^9}}, CellID->173842454], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"RandomChoice", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "5"}], "]"}]}], "Input", CellChangeTimes->{{3.755604532796939*^9, 3.7556045506794004`*^9}}, CellLabel->"In[1]:=", CellID->211131681], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "5", ",", "1", ",", "8", ",", "1"}], "}"}]], "Output", CellChangeTimes->{{3.7556045441895933`*^9, 3.755604551355378*^9}, 3.7556046393917313`*^9, 3.7556051786405287`*^9}, CellLabel->"Out[2]=", CellID->238572471] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "5", ",", RowBox[{"{", "1", "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.7556045253831506`*^9, 3.7556045587761536`*^9}}, CellLabel->"In[3]:=", CellID->701249945], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "5", ",", "1", ",", "8", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.75560456061809*^9, 3.7556046394837337`*^9, 3.755605178805525*^9}, CellLabel->"Out[4]=", CellID->29071317] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->378147006], Cell[TextData[{ Cell[BoxData[ RowBox[{"RandomPartChoice", "[", RowBox[{ StyleBox["expr", "TI"], ",", StyleBox["count", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is equivalent to ", Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["RandomChoice", "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/RandomChoice"], MouseAppearanceTag["LinkHand"]], "[", RowBox[{ RowBox[{ TagBox[ ButtonBox[ StyleBox["Cases", "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/Cases"], MouseAppearanceTag["LinkHand"]], "[", RowBox[{ StyleBox["expr", "TI"], ",", "_", ",", RowBox[{"{", RowBox[{"0", ",", TagBox[ ButtonBox[ StyleBox["Infinity", "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/Infinity"], MouseAppearanceTag["LinkHand"]]}], "}"}]}], "]"}], ",", StyleBox["count", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.755604876503584*^9, 3.7556049383147507`*^9}, { 3.755605152120322*^9, 3.7556051713997464`*^9}}, CellID->159400654], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"RandomChoice", "[", RowBox[{ RowBox[{"Cases", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"h", "[", RowBox[{"c", ",", "d"}], "]"}]}], "}"}], ",", "_", ",", RowBox[{"{", RowBox[{"0", ",", "Infinity"}], "}"}]}], "]"}], ",", "5"}], "]"}]}], "Input", CellChangeTimes->{{3.7556048240551615`*^9, 3.7556048511283646`*^9}}, CellLabel->"In[1]:=", CellID->365001026], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", "x", ",", RowBox[{"h", "[", RowBox[{"c", ",", "d"}], "]"}], ",", "x"}], "}"}]], "Output", CellChangeTimes->{3.7556048517053533`*^9, 3.7556051790635104`*^9}, CellLabel->"Out[2]=", CellID->80734813] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"h", "[", RowBox[{"c", ",", "d"}], "]"}]}], "}"}], ",", "5"}], "]"}]}], "Input", CellChangeTimes->{{3.755604859897108*^9, 3.755604867017871*^9}}, CellLabel->"In[3]:=", CellID->369793415], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", "x", ",", RowBox[{"h", "[", RowBox[{"c", ",", "d"}], "]"}], ",", "x"}], "}"}]], "Output", CellChangeTimes->{3.75560487050979*^9, 3.755605179218511*^9}, CellLabel->"Out[4]=", CellID->271201811] }, 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", CellLabel->"In[1]:=", CellID->757508554], Cell["Richard Hennigan (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.755539676616411*^9, 3.755539681840251*^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", CellLabel->"In[1]:=", CellID->246422893], Cell[CellGroupData[{ Cell["random selection", "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.755604667382901*^9, 3.7556046695748177`*^9}}, CellTags->"TabNext", CellID->123227828], Cell["sampling with replacement", "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.755604667382901*^9, 3.755604675755632*^9}}, CellID->82573224], Cell["select randomly", "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.755604667382901*^9, 3.755604682060441*^9}}, CellID->77906309], Cell["random part", "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.755604667382901*^9, 3.755604700399892*^9}}, CellID->470544871], Cell["random subexpression", "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.755604667382901*^9, 3.7556046946070747`*^9}}, CellID->398779188] }, 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", CellLabel->"In[1]:=", CellID->911170439], Cell[CellGroupData[{ Cell["RandomChoice", "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.7556047052707305`*^9, 3.7556047074206796`*^9}}, CellTags->"TabNext", CellID->79477165], Cell["Position", "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.7556047052707305`*^9, 3.755604710076599*^9}}, CellID->361558642], Cell["Extract", "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.7556047052707305`*^9, 3.755604718434332*^9}}, CellID->703541819], Cell["Cases", "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.7556047052707305`*^9, 3.7556047194953194`*^9}}, CellID->213363731] }, 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", CellLabel->"In[1]:=", CellID->217060377], Cell[CellGroupData[{ Cell["RandomRealPoint", "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.7556052441835546`*^9, 3.755605247451453*^9}}, CellTags->"TabNext", CellID->960273585], Cell["RandomRomanNumeral", "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.7556052441835546`*^9, 3.7556052516503286`*^9}}, CellID->317182030], Cell["RandomWikipediaData", "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.7556052441835546`*^9, 3.7556052658108864`*^9}}, CellID->365107237], Cell["SelectPositions", "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.7556052441835546`*^9, 3.755605268547821*^9}}, CellID->49459142] }, 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", CellLabel->"In[1]:=", 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", CellLabel->"In[1]:=", CellID->593846556], Cell[CellGroupData[{ Cell[TextData[ButtonBox["Tutorial: Pseudorandom Numbers", BaseStyle->"Hyperlink", ButtonData->{ URL["http://reference.wolfram.com/language/tutorial/PseudorandomNumbers.\ html"], None}, ButtonNote-> "http://reference.wolfram.com/language/tutorial/PseudorandomNumbers.html"]],\ "Item", CellChangeTimes->{{3.755606523734723*^9, 3.7556065384082813`*^9}}, CellID->343491399], Cell[TextData[ButtonBox["Guide: Random Number Generation", BaseStyle->"Hyperlink", ButtonData->{ URL["http://reference.wolfram.com/language/guide/RandomNumberGeneration.\ html"], None}, ButtonNote-> "http://reference.wolfram.com/language/guide/RandomNumberGeneration.html"]],\ "Item", CellChangeTimes->{{3.755606559141651*^9, 3.7556065694803476`*^9}}, CellID->53261781], Cell[TextData[ButtonBox["An Elementary Introduction to the Wolfram Language: \ Expressions and Their Structure", BaseStyle->"Hyperlink", ButtonData->{ URL["https://www.wolfram.com/language/elementary-introduction/2nd-ed/33-\ expressions-and-their-structure.html"], None}, ButtonNote-> "https://www.wolfram.com/language/elementary-introduction/2nd-ed/33-\ expressions-and-their-structure.html"]], "Item", CellChangeTimes->{{3.755606633985401*^9, 3.755606664277498*^9}}, CellID->761058564] }, Open ]] }, 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", CellLabel->"In[113]:=", CellID->16051757], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", " ", RowBox[{"RandomPartChoice", "[", RowBox[{"{", RowBox[{ RowBox[{"1", "+", RowBox[{"x", "^", "2"}]}], ",", "5", ",", RowBox[{"x", "^", "4"}], ",", RowBox[{"a", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"x", "^", "2"}]}], ")"}], "^", "2"}]}]}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", "5"}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{ 3.7556060180275173`*^9, {3.7556060572673593`*^9, 3.755606080528654*^9}}, CellLabel->"In[1]:=", CellID->354886746], 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[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", RowBox[{"RandomPartChoice", "[", 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["5", 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["5", 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[{ "0.0010004`4.150688680890452", "\"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" -> 21, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[SeedRandom[ 1]; $CellContext`RandomPartChoice[{ 1 + $CellContext`x^2, 5, $CellContext`x^4, $CellContext`a + (1 + $CellContext`x^2)^2}]], "ExpectedOutput" -> HoldForm[5], "ActualOutput" -> HoldForm[5], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.0010004`4.150688680890452, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[48, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.755606042050789*^9, 3.7556061361269875`*^9, 3.755606180617653*^9}, CellLabel->"Out[1]=", CellID->9367127] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", " ", RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"h", "[", RowBox[{"c", ",", "d"}], "]"}]}], "}"}], ",", "10"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", "x", ",", RowBox[{"h", "[", RowBox[{"c", ",", "d"}], "]"}], ",", "x", ",", "x", ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"h", "[", RowBox[{"c", ",", "d"}], "]"}]}], "}"}], ",", "d", ",", "x", ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{ 3.755606018937505*^9, {3.755606064021146*^9, 3.755606086449475*^9}}, CellLabel->"In[2]:=", CellID->255427212], 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[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", RowBox[{"RandomPartChoice", "[", 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[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", "x", ",", RowBox[{"\[LeftSkeleton]", "4", "\[RightSkeleton]"}], ",", "d", ",", "x", ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}]}], "}"}], 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[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", "x", ",", RowBox[{"\[LeftSkeleton]", "4", "\[RightSkeleton]"}], ",", "d", ",", "x", ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}]}], "}"}], 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[{ "0``7.150514997831988", "\"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" -> 22, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[SeedRandom[1]; $CellContext`RandomPartChoice[{ $CellContext`f[$CellContext`x], $CellContext`g[$CellContext`a, $CellContext`b], $CellContext`h[$CellContext`c, $CellContext`d]}, 10]], "ExpectedOutput" -> HoldForm[{ $CellContext`f[$CellContext`x], $CellContext`g[$CellContext`a, $CellContext`b], $CellContext`x, $CellContext`h[$CellContext`c, $CellContext`d], $CellContext`x, \ $CellContext`x, { $CellContext`f[$CellContext`x], $CellContext`g[$CellContext`a, $CellContext`b], $CellContext`h[$CellContext`c, $CellContext`d]}, $CellContext`d, \ $CellContext`x, $CellContext`g[$CellContext`a, $CellContext`b]}], "ActualOutput" -> HoldForm[{ $CellContext`f[$CellContext`x], $CellContext`g[$CellContext`a, $CellContext`b], $CellContext`x, $CellContext`h[$CellContext`c, $CellContext`d], $CellContext`x, \ $CellContext`x, { $CellContext`f[$CellContext`x], $CellContext`g[$CellContext`a, $CellContext`b], $CellContext`h[$CellContext`c, $CellContext`d]}, $CellContext`d, \ $CellContext`x, $CellContext`g[$CellContext`a, $CellContext`b]}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[288, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.755606042269784*^9, 3.755606137470948*^9, 3.7556061808386397`*^9}, CellLabel->"Out[2]=", CellID->140095995] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", " ", RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"h", "[", RowBox[{"c", ",", "d"}], "]"}]}], "}"}], ",", "5", ",", "1"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"f", "[", "x", "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{ 3.755606019640483*^9, {3.7556060658940945`*^9, 3.7556060916183214`*^9}}, CellLabel->"In[3]:=", CellID->241120709], 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[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", RowBox[{"RandomPartChoice", "[", 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[ RowBox[{"{", RowBox[{ RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"f", "[", "x", "]"}]}], "}"}], 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[ RowBox[{"{", RowBox[{ RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"f", "[", "x", "]"}]}], "}"}], 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[{ "0.0010195`4.158902227946146", "\"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" -> 23, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[SeedRandom[1]; $CellContext`RandomPartChoice[{ $CellContext`f[$CellContext`x], $CellContext`g[$CellContext`a, $CellContext`b], $CellContext`h[$CellContext`c, $CellContext`d]}, 5, 1]], "ExpectedOutput" -> HoldForm[{ $CellContext`g[$CellContext`a, $CellContext`b], $CellContext`f[$CellContext`x], $CellContext`g[$CellContext`a, $CellContext`b], $CellContext`g[$CellContext`a, $CellContext`b], $CellContext`f[$CellContext`x]}], "ActualOutput" -> HoldForm[{ $CellContext`g[$CellContext`a, $CellContext`b], $CellContext`f[$CellContext`x], $CellContext`g[$CellContext`a, $CellContext`b], $CellContext`g[$CellContext`a, $CellContext`b], $CellContext`f[$CellContext`x]}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.0010195`4.158902227946146, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[128, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.75560604237278*^9, 3.7556061384989166`*^9, 3.7556061810086393`*^9}, CellLabel->"Out[3]=", CellID->30757858] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", " ", RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{"Hold", "[", RowBox[{ RowBox[{"1", "+", "1"}], ",", RowBox[{"2", "+", "2"}], ",", RowBox[{"3", "+", "3"}]}], "]"}], ",", "3", ",", "1", ",", "HoldForm"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"2", "+", "2"}], "]"}], ",", RowBox[{"HoldForm", "[", RowBox[{"1", "+", "1"}], "]"}], ",", RowBox[{"HoldForm", "[", RowBox[{"2", "+", "2"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{ 3.7556060202254457`*^9, {3.755606067185051*^9, 3.7556061331210747`*^9}}, CellLabel->"In[4]:=", CellID->117296262], 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[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", RowBox[{"RandomPartChoice", "[", 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[ RowBox[{"{", RowBox[{ RowBox[{"2", "+", "2"}], ",", RowBox[{"1", "+", "1"}], ",", RowBox[{"2", "+", "2"}]}], "}"}], 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[ RowBox[{"{", RowBox[{ RowBox[{"2", "+", "2"}], ",", RowBox[{"1", "+", "1"}], ",", RowBox[{"2", "+", "2"}]}], "}"}], 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[{ "0``7.150514997831988", "\"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" -> 24, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[SeedRandom[1]; $CellContext`RandomPartChoice[ Hold[1 + 1, 2 + 2, 3 + 3], 3, 1, HoldForm]], "ExpectedOutput" -> HoldForm[{ HoldForm[2 + 2], HoldForm[1 + 1], HoldForm[2 + 2]}], "ActualOutput" -> HoldForm[{ HoldForm[2 + 2], HoldForm[1 + 1], HoldForm[2 + 2]}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[256, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7556060424877777`*^9, 3.7556061395568876`*^9, 3.755606181129613*^9}, CellLabel->"Out[4]=", CellID->837392407] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", " ", RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{"Hold", "[", RowBox[{ RowBox[{"1", "+", "1"}], ",", RowBox[{"2", "+", "2"}], ",", RowBox[{"3", "+", "3"}]}], "]"}], ",", "Automatic", ",", "Automatic", ",", "HoldForm", ",", "_Plus"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"HoldForm", "[", RowBox[{"2", "+", "2"}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{ 3.7556060210644226`*^9, 3.755606068282024*^9, {3.75560610056903*^9, 3.75560611764054*^9}}, CellLabel->"In[5]:=", CellID->100811281], 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[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", RowBox[{"RandomPartChoice", "[", 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[ RowBox[{"2", "+", "2"}], 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[ RowBox[{"2", "+", "2"}], 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[{ "0``7.150514997831988", "\"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" -> 25, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[SeedRandom[1]; $CellContext`RandomPartChoice[ Hold[1 + 1, 2 + 2, 3 + 3], Automatic, Automatic, HoldForm, Blank[Plus]]], "ExpectedOutput" -> HoldForm[ HoldForm[2 + 2]], "ActualOutput" -> HoldForm[ HoldForm[2 + 2]], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[344, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7556060425977974`*^9, 3.7556061411758275`*^9, 3.755606181252632*^9}, CellLabel->"Out[5]=", CellID->89685062] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", " ", RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"h", "[", RowBox[{"c", ",", "d"}], "]"}]}], "}"}], ",", "Automatic", ",", "1"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{ 3.755606021800419*^9, 3.755606069475993*^9, {3.7556061066978655`*^9, 3.7556061084578133`*^9}}, CellLabel->"In[6]:=", CellID->19449606], 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[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", RowBox[{"RandomPartChoice", "[", 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[ RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], 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[ RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], 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[{ "0.001`4.150514997831987", "\"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" -> 26, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[SeedRandom[1]; $CellContext`RandomPartChoice[{ $CellContext`f[$CellContext`x], $CellContext`g[$CellContext`a, $CellContext`b], $CellContext`h[$CellContext`c, $CellContext`d]}, Automatic, 1]], "ExpectedOutput" -> HoldForm[ $CellContext`g[$CellContext`a, $CellContext`b]], "ActualOutput" -> HoldForm[ $CellContext`g[$CellContext`a, $CellContext`b]], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.001`4.150514997831987, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[120, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.755606042714772*^9, 3.7556061442547445`*^9, 3.7556061813676066`*^9}, CellLabel->"Out[6]=", CellID->11880253] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", " ", RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"1", "\[Rule]", RowBox[{"1", "+", SuperscriptBox["x", "2"]}]}], ",", RowBox[{"2", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{"\"\\"", "\[Rule]", SuperscriptBox["x", "2"]}], "\[RightAssociation]"}]}], ",", RowBox[{"3", "\[Rule]", SuperscriptBox["x", "4"]}], ",", RowBox[{"4", "\[Rule]", RowBox[{"a", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "2"]}], ")"}], "2"]}]}]}], "\[RightAssociation]"}], ",", "5"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", "1", ",", SuperscriptBox["x", "2"], ",", "1", ",", "2"}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{ 3.755606022492404*^9, 3.7556060708759484`*^9, {3.7556061571883497`*^9, 3.7556061583553143`*^9}}, CellLabel->"In[7]:=", CellID->73466429], 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[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", RowBox[{"RandomPartChoice", "[", 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[ RowBox[{"{", RowBox[{"x", ",", "1", ",", SuperscriptBox["x", "2"], ",", "1", ",", "2"}], "}"}], 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[ RowBox[{"{", RowBox[{"x", ",", "1", ",", SuperscriptBox["x", "2"], ",", "1", ",", "2"}], "}"}], 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[{ "0.0009759`4.139920315833503", "\"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" -> 27, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[SeedRandom[1]; $CellContext`RandomPartChoice[ Association[ 1 -> 1 + $CellContext`x^2, 2 -> Association["a" -> $CellContext`x^2], 3 -> $CellContext`x^4, 4 -> $CellContext`a + (1 + $CellContext`x^2)^2], 5]], "ExpectedOutput" -> HoldForm[{$CellContext`x, 1, $CellContext`x^2, 1, 2}], "ActualOutput" -> HoldForm[{$CellContext`x, 1, $CellContext`x^2, 1, 2}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.0009759`4.139920315833503, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[128, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.755606042852785*^9, {3.755606158997303*^9, 3.755606181517598*^9}}, CellLabel->"Out[7]=", CellID->660989358] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", " ", RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "a", "]"}], ",", RowBox[{"g", "[", "b", "]"}], ",", RowBox[{"h", "[", "c", "]"}]}], "}"}], "[", "x", "]"}], ",", "10", ",", RowBox[{"{", RowBox[{"1", ",", "Infinity"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x"}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{ 3.7556060232963696`*^9, 3.755606072067913*^9, {3.7556061632721663`*^9, 3.755606164849119*^9}}, CellLabel->"In[8]:=", CellID->265540877], 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[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", RowBox[{"RandomPartChoice", "[", 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[ RowBox[{"{", RowBox[{ "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x"}], "}"}], 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[ RowBox[{"{", RowBox[{ "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x", ",", "x"}], "}"}], 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[{ "0``7.150514997831988", "\"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" -> 28, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[SeedRandom[1]; $CellContext`RandomPartChoice[ { $CellContext`f[$CellContext`a], $CellContext`g[$CellContext`b], $CellContext`h[$CellContext`c]}[$CellContext`x], 10, {1, Infinity}]], "ExpectedOutput" -> HoldForm[{$CellContext`x, $CellContext`x, $CellContext`x, $CellContext`x, \ $CellContext`x, $CellContext`x, $CellContext`x, $CellContext`x, \ $CellContext`x, $CellContext`x}], "ActualOutput" -> HoldForm[{$CellContext`x, $CellContext`x, $CellContext`x, $CellContext`x, \ $CellContext`x, $CellContext`x, $CellContext`x, $CellContext`x, \ $CellContext`x, $CellContext`x}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[168, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.7556060430587606`*^9, {3.7556061654611053`*^9, 3.7556061817906165`*^9}}, CellLabel->"Out[8]=", CellID->164633856] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", " ", RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "a", "]"}], ",", RowBox[{"g", "[", "b", "]"}], ",", RowBox[{"h", "[", "c", "]"}]}], "}"}], "[", "x", "]"}], ",", "10", ",", RowBox[{"{", RowBox[{"1", ",", "Infinity"}], "}"}], ",", RowBox[{"Heads", "\[Rule]", "True"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "f", ",", "g", ",", "List", ",", "h", ",", "List", ",", "List", ",", "c", ",", RowBox[{"g", "[", "b", "]"}], ",", "List", ",", "g"}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{ 3.755606023993351*^9, 3.755606073178872*^9, {3.755606170008963*^9, 3.755606171770912*^9}}, CellLabel->"In[9]:=", CellID->79543693], 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[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", RowBox[{"RandomPartChoice", "[", 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[ RowBox[{"{", RowBox[{ "f", ",", "g", ",", "List", ",", "h", ",", "List", ",", "List", ",", "c", ",", RowBox[{"g", "[", "b", "]"}], ",", "List", ",", "g"}], "}"}], 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[ RowBox[{"{", RowBox[{ "f", ",", "g", ",", "List", ",", "h", ",", "List", ",", "List", ",", "c", ",", RowBox[{"g", "[", "b", "]"}], ",", "List", ",", "g"}], "}"}], 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[{ "0.001026`4.161662358607785", "\"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" -> 29, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[SeedRandom[1]; $CellContext`RandomPartChoice[ { $CellContext`f[$CellContext`a], $CellContext`g[$CellContext`b], $CellContext`h[$CellContext`c]}[$CellContext`x], 10, {1, Infinity}, Heads -> True]], "ExpectedOutput" -> HoldForm[{$CellContext`f, $CellContext`g, List, $CellContext`h, List, List, $CellContext`c, $CellContext`g[$CellContext`b], List, $CellContext`g}], "ActualOutput" -> HoldForm[{$CellContext`f, $CellContext`g, List, $CellContext`h, List, List, $CellContext`c, $CellContext`g[$CellContext`b], List, $CellContext`g}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.001026`4.161662358607785, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[328, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.755606043282781*^9, {3.7556061729968815`*^9, 3.755606181964611*^9}}, CellLabel->"Out[9]=", CellID->555374968] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", " ", RowBox[{"RandomChoice", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "5"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", " ", RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "5", ",", RowBox[{"{", "1", "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{ 3.7556059554484158`*^9, {3.7556059900493755`*^9, 3.7556059978901367`*^9}}, CellLabel->"In[10]:=", CellID->246262562], 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[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", RowBox[{"RandomChoice", "[", RowBox[{ RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ",", "5"}], "]"}]}], 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[ RowBox[{"{", RowBox[{"2", ",", "5", ",", "1", ",", "8", ",", "1"}], "}"}], 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[ RowBox[{"{", RowBox[{"2", ",", "5", ",", "1", ",", "8", ",", "1"}], "}"}], 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[{ "0.000998`4.1496455391193585", "\"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" -> 30, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[SeedRandom[1]; RandomChoice[ Range[10], 5]], "ExpectedOutput" -> HoldForm[{2, 5, 1, 8, 1}], "ActualOutput" -> HoldForm[{2, 5, 1, 8, 1}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.000998`4.1496455391193585, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[192, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.755606043423751*^9, 3.755606182177579*^9}, CellLabel->"Out[10]=", CellID->514234252] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VerificationTest", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", " ", RowBox[{"RandomChoice", "[", RowBox[{ RowBox[{"Cases", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"h", "[", RowBox[{"c", ",", "d"}], "]"}]}], "}"}], ",", "_", ",", RowBox[{"{", RowBox[{"0", ",", "Infinity"}], "}"}]}], "]"}], ",", "5"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", " ", RowBox[{"RandomPartChoice", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"h", "[", RowBox[{"c", ",", "d"}], "]"}]}], "}"}], ",", "5"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.7556060049549227`*^9, 3.7556060082198257`*^9}}, CellLabel->"In[11]:=", CellID->56875857], 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[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";", RowBox[{"RandomChoice", "[", RowBox[{ RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ",", "5"}], "]"}]}], 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[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", "x", ",", RowBox[{"h", "[", RowBox[{"c", ",", "d"}], "]"}], ",", "x"}], "}"}], 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[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}], ",", "x", ",", RowBox[{"h", "[", RowBox[{"c", ",", "d"}], "]"}], ",", "x"}], "}"}], 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[{ "0``7.150514997831988", "\"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" -> 31, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[SeedRandom[1]; RandomChoice[ Cases[{ $CellContext`f[$CellContext`x], $CellContext`g[$CellContext`a, $CellContext`b], $CellContext`h[$CellContext`c, $CellContext`d]}, Blank[], {0, Infinity}], 5]], "ExpectedOutput" -> HoldForm[{ $CellContext`f[$CellContext`x], $CellContext`g[$CellContext`a, $CellContext`b], $CellContext`x, $CellContext`h[$CellContext`c, $CellContext`d], $CellContext`x}], "ActualOutput" -> HoldForm[{ $CellContext`f[$CellContext`x], $CellContext`g[$CellContext`a, $CellContext`b], $CellContext`x, $CellContext`h[$CellContext`c, $CellContext`d], $CellContext`x}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0``7.150514997831988, "Seconds"], "CPUTimeUsed" -> Quantity[0., "Seconds"], "MemoryUsed" -> Quantity[128, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7556060435917454`*^9, 3.7556061823296003`*^9}, CellLabel->"Out[11]=", CellID->87651379] }, Open ]] }, Closed]] }, 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["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->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, 581, 10, 70, "Title",ExpressionUUID->"5c396146-4367-4188-b78c-abf712fbb5a1", CellTags->{"Title", "TabNext"}, CellID->362346026]}, "TabNext"->{ Cell[580, 22, 581, 10, 70, "Title",ExpressionUUID->"5c396146-4367-4188-b78c-abf712fbb5a1", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1164, 34, 627, 10, 70, "Text",ExpressionUUID->"10165d65-2377-4928-9967-989cf734d1cd", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[10340, 286, 2407, 56, 70, "Code",ExpressionUUID->"c8e60394-ca54-4d81-a7aa-9c78ef11695a", CellTags->"TabNext", CellID->778396829], Cell[21402, 597, 259, 6, 70, "UsageInputs",ExpressionUUID->"10eb4f31-012b-429d-a2c7-f5c17ab2d1be", CellTags->"TabNext", CellID->157543866], Cell[21664, 605, 335, 10, 70, "UsageDescription",ExpressionUUID->"a6e87a6a-bc22-4bc2-9ac5-83cc4d3b63ca", CellTags->"TabNext", CellID->231889230], Cell[53760, 1702, 556, 9, 70, "Text",ExpressionUUID->"7c769645-8df4-47d5-b1e0-64a91dc3d461", CellTags->"TabNext", CellID->832483124], Cell[55026, 1739, 539, 9, 70, "Item",ExpressionUUID->"e2343422-1e13-4550-a577-817480d1e696", CellTags->"TabNext", CellID->123227828], Cell[58403, 1817, 536, 9, 70, "Item",ExpressionUUID->"9394d76a-becd-4c16-b50f-034c195437ce", CellTags->"TabNext", CellID->79477165], Cell[61272, 1885, 538, 9, 70, "Item",ExpressionUUID->"a53e0cd4-4450-4197-b438-43b12a680435", CellTags->"TabNext", CellID->960273585], Cell[64207, 1952, 496, 8, 70, "Text",ExpressionUUID->"9a6efc23-50c9-4b4e-99ff-41af0a372804", CellTags->"TabNext", CellID->343081869], Cell[181682, 4658, 509, 8, 70, "Text",ExpressionUUID->"e1dacc0b-33fe-4bb8-abe3-afe559073f66", CellTags->"TabNext", CellID->567921317], Cell[182951, 4692, 495, 8, 70, "Text",ExpressionUUID->"7b3732e4-b08b-48a0-aed3-adf3a872495e", CellTags->"TabNext", CellID->920818074]}, "Description"->{ Cell[1164, 34, 627, 10, 70, "Text",ExpressionUUID->"10165d65-2377-4928-9967-989cf734d1cd", CellTags->{"Description", "TabNext"}, CellID->450900334]}, "Definition"->{ Cell[1816, 48, 877, 21, 70, "Section",ExpressionUUID->"14de3776-0df4-47e5-9e9e-93477439ccb1", CellTags->"Definition", CellID->608264297]}, "Documentation"->{ Cell[20446, 565, 99, 3, 70, "Section",ExpressionUUID->"dc4b30fd-2a04-48ec-ad97-c886c91ae96f", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[20570, 572, 807, 21, 70, "Subsection",ExpressionUUID->"75f28bb4-cffd-4b53-95bc-e8ad87c7de25", CellTags->"Usage", CellID->694807545]}, "Details & Options"->{ Cell[24798, 719, 837, 21, 70, "Subsection",ExpressionUUID->"2bbaf2e8-c9a6-4baf-a29c-8769e27876d2", CellTags->"Details & Options", CellID->29639701]}, "Examples"->{ Cell[32632, 989, 913, 21, 70, "Section",ExpressionUUID->"bb21e90c-0218-4cd8-8108-387cb08acb9c", CellTags->"Examples", CellID->847663398]}, "Source & Additional Information"->{ Cell[52902, 1674, 135, 3, 70, "Section",ExpressionUUID->"d742e2f8-f921-4eb3-b737-c8aa8d34ff98", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[53062, 1681, 695, 19, 70, "Subsection",ExpressionUUID->"cf213941-e479-4f69-85f4-b51c35e3e9f1", CellTags->"Contributed By", CellID->757508554]}, "Keywords"->{ Cell[54353, 1716, 648, 19, 70, "Subsection",ExpressionUUID->"b504a7a0-0cf2-4b9f-acf6-b9315ebdd941", CellTags->"Keywords", CellID->246422893]}, "Related Symbols"->{ Cell[57693, 1794, 685, 19, 70, "Subsection",ExpressionUUID->"72156a86-9cc2-49f0-906d-56938ffba48a", CellTags->"Related Symbols", CellID->911170439]}, "Related Resource Objects"->{ Cell[60522, 1862, 725, 19, 70, "Subsection",ExpressionUUID->"c47a89fa-6265-4b25-801f-357383b121e1", CellTags->"Related Resource Objects", CellID->217060377]}, "Source/Reference Citation"->{ Cell[63426, 1930, 778, 20, 70, "Subsection",ExpressionUUID->"15375325-dd39-4db0-9edd-484e325f632e", CellTags->"Source/Reference Citation", CellID->967310595]}, "Links"->{ Cell[64740, 1965, 620, 18, 70, "Subsection",ExpressionUUID->"e394ca77-ae13-48f5-8b71-47eb1054d6a0", CellTags->"Links", CellID->593846556]}, "Tests"->{ Cell[66697, 2025, 792, 21, 70, "Subsection",ExpressionUUID->"30e0a74c-730f-44c7-acda-204acb31beec", CellTags->"Tests", CellID->16051757]}, "Author Notes"->{ Cell[181552, 4652, 127, 4, 70, "Section",ExpressionUUID->"dbded8e4-9226-40c1-9a4c-eac598e8e352", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[182228, 4671, 720, 19, 70, "Section",ExpressionUUID->"01916689-c57a-40f0-b05f-310ac012ce96", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 229043, 5638}, {"TabNext", 229209, 5642}, {"Description", 230976, 5679}, {"Definition", 231151, 5683}, {"Documentation", 231318, 5687}, {"Usage", 231480, 5691}, {"Details & Options", 231651, 5695}, {"Examples", 231824, 5699}, {"Source & Additional Information", 232009, 5703}, {"Contributed By", 232200, 5707}, {"Keywords", 232372, 5711}, {"Related Symbols", 232545, 5715}, {"Related Resource Objects", 232734, 5719}, {"Source/Reference Citation", 232933, 5723}, {"Links", 233113, 5727}, {"Tests", 233273, 5731}, {"Author Notes", 233439, 5735}, {"Submission Notes", 233614, 5739} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 581, 10, 70, "Title",ExpressionUUID->"5c396146-4367-4188-b78c-abf712fbb5a1", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1164, 34, 627, 10, 70, "Text",ExpressionUUID->"10165d65-2377-4928-9967-989cf734d1cd", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[1816, 48, 877, 21, 70, "Section",ExpressionUUID->"14de3776-0df4-47e5-9e9e-93477439ccb1", CellTags->"Definition", CellID->608264297], Cell[2696, 71, 240, 6, 70, "Code",ExpressionUUID->"db1342b7-1789-470a-812e-2cee5b59cb3c", CellID->698565488], Cell[CellGroupData[{ Cell[2961, 81, 136, 3, 70, "Subsection",ExpressionUUID->"8e30a7b5-d2cd-443d-a2a7-26ee1c1ec8c2", CellID->509434243], Cell[3100, 86, 451, 10, 70, "Code",ExpressionUUID->"823c449e-c98c-4d4f-a5ee-75753ea47b69", CellID->113795067] }, Closed]], Cell[CellGroupData[{ Cell[3588, 101, 141, 3, 70, "Subsection",ExpressionUUID->"31a4a5ff-e37e-4ca7-ad66-8210edb7ab5b", CellID->741685049], Cell[3732, 106, 466, 12, 70, "Text",ExpressionUUID->"2bd43ea9-fb9b-4800-8571-182b0c71aa50", CellID->16843904], Cell[4201, 120, 1227, 29, 70, "Code",ExpressionUUID->"c3662bb6-4c13-4c70-b25f-d94047f89453", CellID->50982877] }, Closed]], Cell[CellGroupData[{ Cell[5465, 154, 145, 3, 70, "Subsection",ExpressionUUID->"56a5ef5e-5787-4783-a4eb-e2d7feb844ec", CellID->553747499], Cell[5613, 159, 128, 2, 70, "Text",ExpressionUUID->"26c96839-4598-41dd-8958-43ca7e6ae1c9", CellID->60423290], Cell[5744, 163, 695, 17, 70, "Code",ExpressionUUID->"7a7a323d-c75e-4207-9451-ff4f21491c7f", CellID->13720334], Cell[6442, 182, 684, 16, 70, "Code",ExpressionUUID->"7c7d05a6-6dca-4e43-80ff-cf0fca3f702d", CellID->145853610], Cell[7129, 200, 753, 17, 70, "Code",ExpressionUUID->"31790c8d-a3e1-40c4-9c08-c0fc23145e2a", CellID->65564962], Cell[7885, 219, 762, 19, 70, "Code",ExpressionUUID->"20ed3575-0fab-4179-9a27-81d952cc767a", CellID->157522495], Cell[8650, 240, 120, 2, 70, "Text",ExpressionUUID->"c94dece4-5c40-4707-9838-1d25854a9353", CellID->524480498], Cell[8773, 244, 1381, 32, 70, "Code",ExpressionUUID->"c59887c4-75ea-4eef-adbc-fea02bccfaf3", CellID->516001156] }, Open ]], Cell[CellGroupData[{ Cell[10191, 281, 146, 3, 70, "Subsection",ExpressionUUID->"ea5a9bbd-ca8d-4858-85d0-c7307898baf6", CellID->97183702], Cell[10340, 286, 2407, 56, 70, "Code",ExpressionUUID->"c8e60394-ca54-4d81-a7aa-9c78ef11695a", CellTags->"TabNext", CellID->778396829], Cell[12750, 344, 570, 16, 70, "Code",ExpressionUUID->"fc531785-14f2-4b1c-b821-0a88b5e297aa", CellID->173781409], Cell[CellGroupData[{ Cell[13345, 364, 211, 4, 70, "Subsubsection",ExpressionUUID->"b7cb3b68-3c74-4b31-872c-a29e25b110d9", CellID->145881112], Cell[13559, 370, 787, 21, 70, "Code",ExpressionUUID->"6fdb62b0-b3c2-4eec-ab0d-e8ee12e6f37a", CellID->59326081], Cell[14349, 393, 679, 19, 70, "Code",ExpressionUUID->"36d3e465-5f20-4891-bb72-47817c6d71ed", CellID->672887748], Cell[15031, 414, 1876, 51, 70, "Code",ExpressionUUID->"7b7f7250-84ea-4c7e-a6e2-adf9ea9c8821", CellID->315398867], Cell[16910, 467, 129, 2, 70, "Text",ExpressionUUID->"a4f19c7c-54b5-4f66-8b1f-cc398d84a777", CellID->43054481], Cell[17042, 471, 1853, 45, 70, "Code",ExpressionUUID->"f1d94dc6-2311-406b-a74e-1494fc247d37", CellID->208550873], Cell[18898, 518, 250, 4, 70, "Text",ExpressionUUID->"67091d83-97c7-41d2-b48c-29dc20c89db4", CellID->329093105], Cell[19151, 524, 1234, 34, 70, "Code",ExpressionUUID->"ee7d7465-789c-4b81-9796-aa3598ece345", CellID->101029949] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[20446, 565, 99, 3, 70, "Section",ExpressionUUID->"dc4b30fd-2a04-48ec-ad97-c886c91ae96f", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[20570, 572, 807, 21, 70, "Subsection",ExpressionUUID->"75f28bb4-cffd-4b53-95bc-e8ad87c7de25", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[21402, 597, 259, 6, 70, "UsageInputs",ExpressionUUID->"10eb4f31-012b-429d-a2c7-f5c17ab2d1be", CellTags->"TabNext", CellID->157543866], Cell[21664, 605, 335, 10, 70, "UsageDescription",ExpressionUUID->"a6e87a6a-bc22-4bc2-9ac5-83cc4d3b63ca", CellTags->"TabNext", CellID->231889230] }, Open ]], Cell[CellGroupData[{ Cell[22036, 620, 280, 7, 70, "UsageInputs",ExpressionUUID->"46e1833a-78c0-4951-ba4a-1ae2eb6069c2", CellID->885709141], Cell[22319, 629, 303, 9, 70, "UsageDescription",ExpressionUUID->"1c7ac293-fa89-43ee-b7fa-0fb01754760e", CellID->114695312] }, Open ]], Cell[CellGroupData[{ Cell[22659, 643, 319, 8, 70, "UsageInputs",ExpressionUUID->"f4d33d91-4156-44b1-b981-30262ab935ae", CellID->113254635], Cell[22981, 653, 331, 9, 70, "UsageDescription",ExpressionUUID->"365ccbaf-bc8f-46a0-bf80-c8b17937b6fa", CellID->402995995] }, Open ]], Cell[CellGroupData[{ Cell[23349, 667, 332, 9, 70, "UsageInputs",ExpressionUUID->"8082ded3-b796-4c9f-ac64-29d7eddaa48e", CellID->80734270], Cell[23684, 678, 328, 9, 70, "UsageDescription",ExpressionUUID->"b3683110-40c8-4d79-ad42-77c807022afe", CellID->417214674] }, Open ]], Cell[CellGroupData[{ Cell[24049, 692, 373, 10, 70, "UsageInputs",ExpressionUUID->"c976404f-7213-47d5-b49a-094482e931bd", CellID->341446923], Cell[24425, 704, 324, 9, 70, "UsageDescription",ExpressionUUID->"aaaec076-7c2d-496b-b340-ead828564b95", CellID->845598308] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24798, 719, 837, 21, 70, "Subsection",ExpressionUUID->"2bbaf2e8-c9a6-4baf-a29c-8769e27876d2", CellTags->"Details & Options", CellID->29639701], Cell[CellGroupData[{ Cell[25660, 744, 422, 12, 70, "Notes",ExpressionUUID->"84e69833-1350-4c7a-ac06-0bdf3101d9e3", CellID->17689], Cell[26085, 758, 522, 14, 70, "Notes",ExpressionUUID->"792cfbaf-38cc-4f9a-99cc-ef9cffe31407", CellID->22564], Cell[26610, 774, 459, 15, 70, "Notes",ExpressionUUID->"dde7293a-ca4c-44a6-b6be-392f1af90de9", CellID->19196], Cell[27072, 791, 683, 21, 70, "Notes",ExpressionUUID->"bb1ebe06-a9ee-4721-b14f-2ae94659c51a", CellID->22755], Cell[27758, 814, 542, 16, 70, "Notes",ExpressionUUID->"8f5af94e-511f-40bf-a035-dbc976487d88", CellID->456441824], Cell[28303, 832, 1352, 43, 70, "Notes",ExpressionUUID->"b7e0ef6b-a5e7-41ab-87e6-2e77240ad4b7", CellID->28885], Cell[29658, 877, 240, 6, 70, "Notes",ExpressionUUID->"f86c9145-3858-48c0-ad0c-cfad64ee330f", CellID->29755], Cell[29901, 885, 1684, 54, 70, "TableNotes",ExpressionUUID->"b6017ed2-040f-4e3e-83c9-7ad91e4cbb4e", CellID->263431255], Cell[31588, 941, 401, 15, 70, "Notes",ExpressionUUID->"ab0263b2-0f40-4cc2-9d33-1edd588e7622", CellID->5741], Cell[31992, 958, 410, 16, 70, "Notes",ExpressionUUID->"6f3b3f96-8df9-4d5e-8d5c-21069f0e203f", CellID->7056], Cell[32405, 976, 166, 6, 70, "Notes",ExpressionUUID->"934eee8c-a21b-4165-af2d-abe06fc45056", CellID->4609] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32632, 989, 913, 21, 70, "Section",ExpressionUUID->"bb21e90c-0218-4cd8-8108-387cb08acb9c", CellTags->"Examples", CellID->847663398], Cell[CellGroupData[{ Cell[33570, 1014, 142, 3, 70, "Subsection",ExpressionUUID->"6239484a-5628-4ae3-88e3-7361f6109805", CellID->462042388], Cell[33715, 1019, 138, 2, 70, "Text",ExpressionUUID->"fffe1734-2da3-41f2-a0ac-ade34704f945", CellID->13078159], Cell[CellGroupData[{ Cell[33878, 1025, 591, 17, 70, "Input",ExpressionUUID->"60d43c04-4d11-45c1-aa0a-dc3790eae49c", CellID->111886990], Cell[34472, 1044, 641, 11, 70, "Output",ExpressionUUID->"52cea089-64b5-47ed-a7ab-e2e56bf809fd", CellID->2260160] }, Open ]], Cell[CellGroupData[{ Cell[35150, 1060, 64, 2, 70, "PageBreak",ExpressionUUID->"43649946-3d68-4874-b512-f6e394630b80", PageBreakBelow->True, CellID->346437247], Cell[35217, 1064, 122, 2, 70, "Text",ExpressionUUID->"5570b0dc-bb25-4c8a-bcdb-7171219a2358", CellID->60092293], Cell[CellGroupData[{ Cell[35364, 1070, 434, 13, 70, "Input",ExpressionUUID->"4f233ac4-5903-4869-b05f-2eff03cc3b74", CellID->126206742], Cell[35801, 1085, 736, 15, 70, "Output",ExpressionUUID->"5bc407f1-3319-4110-a94a-6eb651ca3166", CellID->278519758] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36586, 1106, 64, 2, 70, "PageBreak",ExpressionUUID->"16a0ae4a-5d8e-49c4-b93d-ed2f17a1a90a", PageBreakBelow->True, CellID->112706677], Cell[36653, 1110, 132, 2, 70, "Text",ExpressionUUID->"548551fe-1de7-4d95-9e0b-9ae563eb4261", CellID->262622704], Cell[CellGroupData[{ Cell[36810, 1116, 452, 14, 70, "Input",ExpressionUUID->"a3a39e51-5805-4b55-8857-5e8d7102b8f8", CellID->165782239], Cell[37265, 1132, 705, 16, 70, "Output",ExpressionUUID->"e6dd4f92-13b5-43a6-bf5c-750f4406c49e", CellID->588217028] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[38019, 1154, 63, 2, 70, "PageBreak",ExpressionUUID->"cdcdc141-e06e-4cec-a7b6-90088e0aa71b", PageBreakBelow->True, CellID->48066288], Cell[38085, 1158, 148, 2, 70, "Text",ExpressionUUID->"e9f74453-5bd9-4d36-b0ed-cc5002dfb2d5", CellID->13118796], Cell[CellGroupData[{ Cell[38258, 1164, 404, 12, 70, "Input",ExpressionUUID->"6c335d30-7230-45c2-a1f1-11c0058f09f3", CellID->317467237], Cell[38665, 1178, 601, 18, 70, "Output",ExpressionUUID->"aa74dc01-3c86-4ec2-8078-bcc316e84749", CellID->517632661] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[39315, 1202, 64, 2, 70, "PageBreak",ExpressionUUID->"f1463461-a053-4962-8195-8fbb5cc4c664", PageBreakBelow->True, CellID->350918971], Cell[39382, 1206, 158, 2, 70, "Text",ExpressionUUID->"c3d075f2-99ba-44b7-b44a-0297499a0202", CellID->39718412], Cell[CellGroupData[{ Cell[39565, 1212, 507, 13, 70, "Input",ExpressionUUID->"0827adb9-e481-4824-9c0b-3b877c8e3215", CellID->366682349], Cell[40075, 1227, 413, 10, 70, "Output",ExpressionUUID->"a0cacdbc-d0e6-4b45-9566-380c75b7419d", CellID->23980340] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40549, 1244, 70, 2, 70, "Subsection",ExpressionUUID->"315ad907-384f-4091-9b64-5c8e46cee01d", CellID->964056545], Cell[40622, 1248, 670, 20, 70, "Text",ExpressionUUID->"ba4060a4-dff1-4498-96ef-cb1d0c157065", CellID->649685796], Cell[CellGroupData[{ Cell[41317, 1272, 458, 14, 70, "Input",ExpressionUUID->"aa77db11-c888-4532-972c-a84c6c4a4c86", CellID->836153427], Cell[41778, 1288, 340, 8, 70, "Output",ExpressionUUID->"f239e9a9-9eca-44af-b8b5-dc3cf76526bc", CellID->162729631] }, Open ]], Cell[CellGroupData[{ Cell[42155, 1301, 64, 2, 70, "PageBreak",ExpressionUUID->"2abffb6a-01da-4414-8f3c-0d8c2bb134f4", PageBreakBelow->True, CellID->653587358], Cell[42222, 1305, 605, 19, 70, "Text",ExpressionUUID->"d26e98dc-6b53-44c1-afc5-4fe85e169667", CellID->151983794], Cell[CellGroupData[{ Cell[42852, 1328, 835, 24, 70, "Input",ExpressionUUID->"b437e1df-a5eb-4a65-8029-82922f8ccf25", CellID->138044480], Cell[43690, 1354, 340, 7, 70, "Output",ExpressionUUID->"2e1eeb53-53db-4790-bfca-56018b902e7e", CellID->368605418] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[44091, 1368, 72, 2, 70, "Subsection",ExpressionUUID->"e27a0cf1-046c-4471-96f3-c65c0ec4b30d", CellID->776923543], Cell[CellGroupData[{ Cell[44188, 1374, 139, 3, 70, "Subsubsection",ExpressionUUID->"a939e490-12fe-4147-800b-e44063e89573", CellID->976295905], Cell[44330, 1379, 186, 4, 70, "Text",ExpressionUUID->"4a900ebf-e5c4-43b2-b5ad-42f51a18cf88", CellID->575794377], Cell[CellGroupData[{ Cell[44541, 1387, 534, 15, 70, "Input",ExpressionUUID->"13c65849-3d84-4414-88c7-067a1e68ae4d", CellID->297083185], Cell[45078, 1404, 320, 8, 70, "Output",ExpressionUUID->"daeffef7-d665-49fd-8208-30cb1a5aa11b", CellID->25917809] }, Open ]], Cell[45413, 1415, 124, 2, 70, "Text",ExpressionUUID->"30c481d6-a234-4708-af27-83bf73c0d0bb", CellID->74512229], Cell[CellGroupData[{ Cell[45562, 1421, 581, 16, 70, "Input",ExpressionUUID->"6aa6a2ba-5a7c-4f40-88b9-9b2b9826180e", CellID->685622072], Cell[46146, 1439, 424, 11, 70, "Output",ExpressionUUID->"2c325750-6e6e-4b4e-9c88-4bb37008e4f3", CellID->686353] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[46631, 1457, 90, 2, 70, "Subsection",ExpressionUUID->"a824d2e9-a391-4dba-8d6d-d60b99669ffa", CellID->754506620], Cell[46724, 1461, 935, 30, 70, "Text",ExpressionUUID->"1cef0ce2-04a8-4ac9-b3e3-8130c5e09686", CellID->173842454], Cell[CellGroupData[{ Cell[47684, 1495, 317, 8, 70, "Input",ExpressionUUID->"ab252f0f-8d10-4f0f-b0f4-82aa142e7f1d", CellID->211131681], Cell[48004, 1505, 266, 6, 70, "Output",ExpressionUUID->"e929771a-5e49-4614-9e94-ad756d55fca0", CellID->238572471] }, Open ]], Cell[CellGroupData[{ Cell[48307, 1516, 357, 9, 70, "Input",ExpressionUUID->"496a2b01-ebe5-4859-a447-35dc2a4a89a8", CellID->701249945], Cell[48667, 1527, 235, 6, 70, "Output",ExpressionUUID->"3400f14d-69ec-4d64-a13c-4ddeb8c730bd", CellID->29071317] }, Open ]], Cell[CellGroupData[{ Cell[48939, 1538, 64, 2, 70, "PageBreak",ExpressionUUID->"666a834f-b175-4ff1-835d-123cffd52943", PageBreakBelow->True, CellID->378147006], Cell[49006, 1542, 1932, 58, 70, "Text",ExpressionUUID->"ea3f265d-41f4-49a4-aa95-c461d028a11a", CellID->159400654], Cell[CellGroupData[{ Cell[50963, 1604, 636, 19, 70, "Input",ExpressionUUID->"350a3806-9849-48c7-b7a6-1daca640c874", CellID->365001026], Cell[51602, 1625, 350, 10, 70, "Output",ExpressionUUID->"6b0e262e-5c06-4ee6-85e5-577765eab9a6", CellID->80734813] }, Open ]], Cell[CellGroupData[{ Cell[51989, 1640, 491, 14, 70, "Input",ExpressionUUID->"20101b9f-1128-4184-9b5b-d0ea1e6cd70c", CellID->369793415], Cell[52483, 1656, 346, 10, 70, "Output",ExpressionUUID->"b331e065-e06a-41db-a8a2-a2e472b8fd8a", CellID->271201811] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[52902, 1674, 135, 3, 70, "Section",ExpressionUUID->"d742e2f8-f921-4eb3-b737-c8aa8d34ff98", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[53062, 1681, 695, 19, 70, "Subsection",ExpressionUUID->"cf213941-e479-4f69-85f4-b51c35e3e9f1", CellTags->"Contributed By", CellID->757508554], Cell[53760, 1702, 556, 9, 70, "Text",ExpressionUUID->"7c769645-8df4-47d5-b1e0-64a91dc3d461", CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[54353, 1716, 648, 19, 70, "Subsection",ExpressionUUID->"b504a7a0-0cf2-4b9f-acf6-b9315ebdd941", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell[55026, 1739, 539, 9, 70, "Item",ExpressionUUID->"e2343422-1e13-4550-a577-817480d1e696", CellTags->"TabNext", CellID->123227828], Cell[55568, 1750, 523, 8, 70, "Item",ExpressionUUID->"903475fa-80b9-4160-968a-4f4fb805156c", CellID->82573224], Cell[56094, 1760, 513, 8, 70, "Item",ExpressionUUID->"0cda8672-9d46-4433-8c8a-3da5b1ccb686", CellID->77906309], Cell[56610, 1770, 510, 8, 70, "Item",ExpressionUUID->"302912e6-4727-4d0f-a61b-304885e666bf", CellID->470544871], Cell[57123, 1780, 521, 8, 70, "Item",ExpressionUUID->"07622f0b-14f9-4476-8091-5547a3e6d068", CellID->398779188] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[57693, 1794, 685, 19, 70, "Subsection",ExpressionUUID->"72156a86-9cc2-49f0-906d-56938ffba48a", CellTags->"Related Symbols", CellID->911170439], Cell[CellGroupData[{ Cell[58403, 1817, 536, 9, 70, "Item",ExpressionUUID->"9394d76a-becd-4c16-b50f-034c195437ce", CellTags->"TabNext", CellID->79477165], Cell[58942, 1828, 509, 8, 70, "Item",ExpressionUUID->"34eb0109-fbcc-413a-af96-d55879aca7ee", CellID->361558642], Cell[59454, 1838, 508, 8, 70, "Item",ExpressionUUID->"5fc19b20-89a1-4c22-89ca-59b439192642", CellID->703541819], Cell[59965, 1848, 508, 8, 70, "Item",ExpressionUUID->"b73fd0d2-fffa-4d77-a649-5c5f938ba611", CellID->213363731] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[60522, 1862, 725, 19, 70, "Subsection",ExpressionUUID->"c47a89fa-6265-4b25-801f-357383b121e1", CellTags->"Related Resource Objects", CellID->217060377], Cell[CellGroupData[{ Cell[61272, 1885, 538, 9, 70, "Item",ExpressionUUID->"a53e0cd4-4450-4197-b438-43b12a680435", CellTags->"TabNext", CellID->960273585], Cell[61813, 1896, 521, 8, 70, "Item",ExpressionUUID->"74b6144b-3186-4e9e-978a-6685841dbfb7", CellID->317182030], Cell[62337, 1906, 522, 8, 70, "Item",ExpressionUUID->"1b8d814c-5e7b-4974-b743-5471549644a1", CellID->365107237], Cell[62862, 1916, 515, 8, 70, "Item",ExpressionUUID->"312a46ec-d4fb-4d4d-956c-da1841d9db3b", CellID->49459142] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[63426, 1930, 778, 20, 70, "Subsection",ExpressionUUID->"15375325-dd39-4db0-9edd-484e325f632e", CellTags->"Source/Reference Citation", CellID->967310595], Cell[64207, 1952, 496, 8, 70, "Text",ExpressionUUID->"9a6efc23-50c9-4b4e-99ff-41af0a372804", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[64740, 1965, 620, 18, 70, "Subsection",ExpressionUUID->"e394ca77-ae13-48f5-8b71-47eb1054d6a0", CellTags->"Links", CellID->593846556], Cell[CellGroupData[{ Cell[65385, 1987, 380, 9, 70, "Item",ExpressionUUID->"dff8f065-c2c7-466c-b853-a68ccb2bbe00", CellID->343491399], Cell[65768, 1998, 380, 9, 70, "Item",ExpressionUUID->"ca00eb1e-0223-40ee-98bc-e846f8045d91", CellID->53261781], Cell[66151, 2009, 497, 10, 70, "Item",ExpressionUUID->"aa0b5447-e264-4497-9a2b-b3a714e3075f", CellID->761058564] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[66697, 2025, 792, 21, 70, "Subsection",ExpressionUUID->"30e0a74c-730f-44c7-acda-204acb31beec", CellTags->"Tests", CellID->16051757], Cell[CellGroupData[{ Cell[67514, 2050, 724, 20, 70, "Input",ExpressionUUID->"c901a80d-8fcb-4ff2-b22d-007e1ece5a1f", CellID->354886746], Cell[68241, 2072, 8699, 189, 70, "Output",ExpressionUUID->"a5680812-c2b7-4288-8993-5c1e46683059", CellID->9367127] }, Open ]], Cell[CellGroupData[{ Cell[76977, 2266, 1223, 35, 70, "Input",ExpressionUUID->"41854e56-187d-4b25-8d0b-2348b63c5557", CellID->255427212], Cell[78203, 2303, 10483, 225, 70, "Output",ExpressionUUID->"79335e7b-402d-4fa2-bb7b-e94b4bad212c", CellID->140095995] }, Open ]], Cell[CellGroupData[{ Cell[88723, 2533, 999, 29, 70, "Input",ExpressionUUID->"4df81d8a-fbc9-4ede-849a-03bb297f300b", CellID->241120709], Cell[89725, 2564, 10136, 218, 70, "Output",ExpressionUUID->"35a10fc1-bfb3-4f85-bd03-fe2a6f2e0aba", CellID->30757858] }, Open ]], Cell[CellGroupData[{ Cell[99898, 2787, 889, 25, 70, "Input",ExpressionUUID->"a229b104-1f61-4162-8b24-63a1445a0795", CellID->117296262], Cell[100790, 2814, 9164, 202, 70, "Output",ExpressionUUID->"6d1580a7-2548-416e-abbe-ca452f94f3ec", CellID->837392407] }, Open ]], Cell[CellGroupData[{ Cell[109991, 3021, 745, 19, 70, "Input",ExpressionUUID->"5f4100d5-0341-49e7-9087-1ca1c5ade284", CellID->100811281], Cell[110739, 3042, 8742, 190, 70, "Output",ExpressionUUID->"d790d970-5583-4b19-88a6-83a0ab6e0e48", CellID->89685062] }, Open ]], Cell[CellGroupData[{ Cell[119518, 3237, 769, 21, 70, "Input",ExpressionUUID->"74c6e1c7-27aa-4f6f-9c67-df6d6bf270f7", CellID->19449606], Cell[120290, 3260, 8996, 195, 70, "Output",ExpressionUUID->"ba6dfdb6-c28e-4170-8e98-458869061269", CellID->11880253] }, Open ]], Cell[CellGroupData[{ Cell[129323, 3460, 1234, 34, 70, "Input",ExpressionUUID->"e8ea4981-5975-4261-9d6d-cbc4ea0e22c3", CellID->73466429], Cell[130560, 3496, 9180, 198, 70, "Output",ExpressionUUID->"2fcfcda9-5969-4ac7-b1c9-dde046c4554e", CellID->660989358] }, Open ]], Cell[CellGroupData[{ Cell[139777, 3699, 892, 25, 70, "Input",ExpressionUUID->"fbaadd92-b13e-4231-a8c7-3f55634eda5f", CellID->265540877], Cell[140672, 3726, 9538, 207, 70, "Output",ExpressionUUID->"60e627cc-bfaf-4235-8cd9-33850e1ba95e", CellID->164633856] }, Open ]], Cell[CellGroupData[{ Cell[150247, 3938, 983, 28, 70, "Input",ExpressionUUID->"832975e5-bc24-455e-be22-b95c844a7842", CellID->79543693], Cell[151233, 3968, 9657, 209, 70, "Output",ExpressionUUID->"ad2d66a1-ba6d-4832-9d01-0596f33d1686", CellID->555374968] }, Open ]], Cell[CellGroupData[{ Cell[160927, 4182, 694, 19, 70, "Input",ExpressionUUID->"da3af13d-3b1b-4002-af45-6f144ec32c9a", CellID->246262562], Cell[161624, 4203, 8852, 191, 70, "Output",ExpressionUUID->"f47220d9-87bf-434c-a08d-ac0b2603a6d4", CellID->514234252] }, Open ]], Cell[CellGroupData[{ Cell[170513, 4399, 1163, 33, 70, "Input",ExpressionUUID->"58fefbc8-6111-4128-8a14-6f05e2b20b73", CellID->56875857], Cell[171679, 4434, 9812, 211, 70, "Output",ExpressionUUID->"5cc6698f-d3e7-4712-a3e7-af643d0d879d", CellID->87651379] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[181552, 4652, 127, 4, 70, "Section",ExpressionUUID->"dbded8e4-9226-40c1-9a4c-eac598e8e352", CellTags->"Author Notes", CellID->795110225], Cell[181682, 4658, 509, 8, 70, "Text",ExpressionUUID->"e1dacc0b-33fe-4bb8-abe3-afe559073f66", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[182228, 4671, 720, 19, 70, "Section",ExpressionUUID->"01916689-c57a-40f0-b05f-310ac012ce96", CellTags->"Submission Notes", CellID->843283583], Cell[182951, 4692, 495, 8, 70, "Text",ExpressionUUID->"7b3732e4-b08b-48a0-aed3-adf3a872495e", CellTags->"TabNext", CellID->920818074] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)