(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 170201, 4046] NotebookOptionsPosition[ 78909, 2217] NotebookOutlinePosition[ 154623, 3700] CellTagsIndexPosition[ 153939, 3677] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["TakeLarger", "Title", CellTags->"Title"], Cell["Take values larger than a threshold in a list or association", "Text", CellTags->"Description"], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line above. \ You can add input cells and extra code to define additional input cases or \ prerequisites. All definitions, including dependencies, will be included in \ the generated resource function.\n\nThis section should be evaluated before \ creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->474513213], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"MessageName", "[", RowBox[{"TakeLarger", ",", "#"}], "]"}], "=", RowBox[{"MessageName", "[", RowBox[{"TakeLargest", ",", "#"}], "]"}]}], ")"}], "&"}], "/@", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"$tag", "=", "\"\<4b3cb66e-1522-481e-9cc8-e60f77e67c86\>\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"$allProperties", "=", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lengthOK", "[", RowBox[{"n_Integer", ",", "len_"}], "]"}], ":=", RowBox[{ RowBox[{"n", ">", "0"}], "&&", RowBox[{"n", "\[LessEqual]", "len"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"lengthOK", "[", RowBox[{ RowBox[{"UpTo", "[", RowBox[{"n", ":", RowBox[{"(", RowBox[{"_Integer", "|", "Infinity"}], ")"}]}], "]"}], ",", "_"}], "]"}], "/;", RowBox[{"n", ">=", "0"}]}], ":=", " ", "True"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"lengthOK", "[", "__", "]"}], " ", ":=", RowBox[{"Throw", "[", " ", RowBox[{"$Failed", ",", "$tag"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"qSelectGreater", "[", RowBox[{"list_", ",", "val_"}], "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"msgs", "=", RowBox[{"Unevaluated", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Greater", "::", "nord"}], ",", "\[IndentingNewLine]", RowBox[{"Greater", "::", "nord2"}], ",", "\[IndentingNewLine]", RowBox[{"Greater", "::", "nordol"}], ",", "\[IndentingNewLine]", RowBox[{"Greater", "::", "nordq"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Quiet", "[", RowBox[{ RowBox[{"Check", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"list", ",", RowBox[{ RowBox[{"#", ">", "val"}], "&"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"TakeLarger", "::", "nord2"}], ",", "list", ",", "val"}], "]"}], ";", RowBox[{"Throw", "[", RowBox[{"$Failed", ",", "$tag"}], "]"}]}], ",", "msgs"}], "]"}], ",", "msgs"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeLargerAll", "[", RowBox[{"ll_", ",", "val_", ",", "n_"}], "]"}], ":=", RowBox[{"Thread", "/@", RowBox[{"Thread", "[", RowBox[{"$allProperties", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"takeLarger", "[", RowBox[{ RowBox[{"ll", "\[Rule]", "#"}], ",", "val", ",", "n"}], "]"}], "&"}], "/@", "$allProperties"}], ")"}]}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeLarger", "[", RowBox[{ RowBox[{"ll", ":", RowBox[{"(", RowBox[{"_List", "|", "_Association"}], ")"}]}], ",", "val_", ",", RowBox[{"n", ":", RowBox[{"(", RowBox[{"_Integer", "|", "_UpTo"}], ")"}]}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"ordering", ",", RowBox[{"aboveV", "=", RowBox[{"qSelectGreater", "[", RowBox[{"ll", ",", "val"}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ordering", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"lengthOK", "[", RowBox[{"n", ",", RowBox[{"Length", "[", "aboveV", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Ordering", "[", RowBox[{"aboveV", ",", "n", ",", "NumericalOrder"}], "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"TakeLarger", "::", "rank"}], ",", "n", ",", RowBox[{"Length", "[", "aboveV", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Throw", "[", RowBox[{"$Failed", ",", "$tag"}], "]"}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"Throw", "[", RowBox[{"$Failed", ",", "$tag"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"!", RowBox[{"ListQ", "[", "ordering", "]"}]}], ",", RowBox[{"Throw", "[", RowBox[{"$Failed", ",", "$tag"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"aboveV", "[", RowBox[{"[", "ordering", "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeLarger", "[", RowBox[{ RowBox[{"Rule", "[", RowBox[{"ll_List", ",", "\"\\""}], "]"}], ",", "val_", ",", "n_"}], "]"}], ":=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"ll", ",", RowBox[{"First", "[", "#", "]"}], ",", RowBox[{"{", "1", "}"}], ",", RowBox[{"Length", "[", "#", "]"}]}], "]"}], "&"}], "/@", RowBox[{"Split", "[", RowBox[{"takeLarger", "[", RowBox[{"ll", ",", "val", ",", "n"}], "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeLarger", "[", RowBox[{ RowBox[{"Rule", "[", RowBox[{"ll_Association", ",", "\"\\""}], "]"}], ",", "val_", ",", "n_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"keys", ",", "keys0", ",", "pos"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"keys", "=", RowBox[{"Keys", "[", RowBox[{"takeLarger", "[", RowBox[{"ll", ",", "val", ",", "n"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"keys0", "=", RowBox[{"Keys", "[", "ll", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pos", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"keys0", ",", "#", ",", RowBox[{"{", "1", "}"}], ",", "1"}], "]"}], "&"}], "/@", "keys"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AssociationThread", "[", RowBox[{"keys", "\[Rule]", "pos"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeLarger", "[", RowBox[{ RowBox[{"Rule", "[", RowBox[{ RowBox[{"ll", ":", RowBox[{"(", RowBox[{"_List", "|", "_Association"}], ")"}]}], ",", "\"\\""}], "]"}], ",", "val_", ",", "n_"}], "]"}], ":=", RowBox[{"takeLarger", "[", RowBox[{"ll", ",", "val", ",", "n"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeLarger", "[", RowBox[{ RowBox[{"Rule", "[", RowBox[{"ll_List", ",", "props_List"}], "]"}], ",", "val_", ",", "n_"}], "]"}], ":=", RowBox[{ RowBox[{"Transpose", "[", RowBox[{ RowBox[{ RowBox[{"takeLarger", "[", RowBox[{ RowBox[{"ll", "\[Rule]", "#"}], ",", "val", ",", "n"}], "]"}], "&"}], "/@", "props"}], "]"}], "/;", RowBox[{ RowBox[{"Length", "[", "props", "]"}], ">", "0"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeLarger", "[", RowBox[{ RowBox[{"Rule", "[", RowBox[{"ll_Association", ",", "props_List"}], "]"}], ",", "val_", ",", "n_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AssociationThread", "[", RowBox[{ RowBox[{"Keys", "[", RowBox[{"First", "[", "#", "]"}], "]"}], "\[Rule]", RowBox[{"Transpose", "[", RowBox[{"Values", "[", "#", "]"}], "]"}]}], "]"}], "&"}], "[", RowBox[{ RowBox[{ RowBox[{"takeLarger", "[", RowBox[{ RowBox[{"ll", "\[Rule]", "#"}], ",", "val", ",", "n"}], "]"}], "&"}], "/@", "props"}], "]"}], "/;", RowBox[{ RowBox[{"Length", "[", "props", "]"}], ">", "0"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeLarger", "[", RowBox[{ RowBox[{"Rule", "[", RowBox[{"ll_List", ",", "All"}], "]"}], ",", "val_", ",", "n_"}], "]"}], ":=", RowBox[{"Association", "/@", RowBox[{"Transpose", "[", RowBox[{"takeLargerAll", "[", RowBox[{"ll", ",", "val", ",", "n"}], "]"}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeLarger", "[", RowBox[{ RowBox[{"Rule", "[", RowBox[{"ll_Association", ",", "All"}], "]"}], ",", "val_", ",", "n_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"keys", ",", "rkeys", ",", RowBox[{"all", "=", RowBox[{"takeLargerAll", "[", RowBox[{"ll", ",", "val", ",", "n"}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"keys", "=", RowBox[{"Keys", "[", "all", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rkeys", "=", RowBox[{"Keys", "[", RowBox[{"all", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AssociationThread", "[", RowBox[{"rkeys", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AssociationThread", "[", RowBox[{"keys", "\[Rule]", "#"}], "]"}], "&"}], "/@", RowBox[{"Transpose", "[", RowBox[{"Values", "[", RowBox[{"Values", "[", "all", "]"}], "]"}], "]"}]}], ")"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeLarger", "[", RowBox[{ RowBox[{"Rule", "[", RowBox[{ RowBox[{"_List", "|", "_Association"}], ",", "spec_"}], "]"}], ",", "_", ",", "_"}], "]"}], ":=", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"TakeLarger", "::", "retspec"}], ",", "spec", ",", "TakeLarger"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Throw", "[", RowBox[{"$Failed", ",", "$tag"}], "]"}]}], "\[IndentingNewLine]", ")"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"takeLarger", "[", RowBox[{"x_", ",", "_", ",", "_"}], "]"}], ":=", " ", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"TakeLarger", "::", "invlb"}], ",", "x"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Throw", "[", RowBox[{"$Failed", ",", "$tag"}], "]"}]}], "\[IndentingNewLine]", ")"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"TakeLarger", "[", RowBox[{"val_", ",", "n_"}], "]"}], "[", "ll_", "]"}], ":=", RowBox[{"TakeLarger", "[", RowBox[{"ll", ",", "val", ",", "n"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TakeLarger", "[", RowBox[{"ll_", ",", "val_", ",", "n_"}], "]"}], " ", ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"res", "=", " ", RowBox[{"Catch", "[", RowBox[{ RowBox[{"takeLarger", "[", RowBox[{"ll", ",", "val", ",", "n"}], "]"}], ",", "$tag"}], "]"}]}], "}"}], ",", RowBox[{"res", "/;", RowBox[{"res", "=!=", "$Failed"}]}]}], "]"}]}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.767611101094266*^9, 3.767611111559759*^9}, { 3.7676111783510637`*^9, 3.767611198792088*^9}, {3.767611395714972*^9, 3.767611403615382*^9}, {3.767612614772357*^9, 3.76761262354849*^9}, { 3.7681059210101557`*^9, 3.768105921666329*^9}, {3.7681060071808233`*^9, 3.7681060290358458`*^9}, {3.76810753510495*^9, 3.7681075358106413`*^9}, { 3.7681075780188303`*^9, 3.7681076232020187`*^9}, 3.768107653685438*^9, { 3.768108909782074*^9, 3.768109039223401*^9}, {3.768109104620578*^9, 3.768109112046399*^9}, {3.768110942409333*^9, 3.7681109429065523`*^9}, { 3.7681206968882427`*^9, 3.7681207282010393`*^9}, {3.7681212418099546`*^9, 3.768121303834786*^9}, {3.768121336697959*^9, 3.768121404149877*^9}, { 3.768121490572628*^9, 3.76812149163477*^9}, {3.768121951315777*^9, 3.768122086366024*^9}, {3.768122288040902*^9, 3.768122314499762*^9}, { 3.768122441709608*^9, 3.768122545587125*^9}, {3.768122580288179*^9, 3.7681225886829643`*^9}, {3.768123689768243*^9, 3.768123692853471*^9}, { 3.768123771347538*^9, 3.768123804038718*^9}, {3.768123834745084*^9, 3.768123847941682*^9}, {3.768127014128467*^9, 3.768127016292777*^9}, { 3.768127057699109*^9, 3.76812710185894*^9}, {3.768127179553608*^9, 3.7681272525624*^9}, {3.7681286405601797`*^9, 3.7681286412458344`*^9}, { 3.768129089613399*^9, 3.768129126217085*^9}, {3.768129178617775*^9, 3.768129230131341*^9}, {3.768129268637045*^9, 3.768129273422368*^9}, { 3.7681303170507793`*^9, 3.768130343426571*^9}, {3.768130500756369*^9, 3.768130544427723*^9}, {3.768131518841557*^9, 3.768131535263363*^9}, { 3.768131587914838*^9, 3.768131671167996*^9}, {3.7681358574363956`*^9, 3.768135874112454*^9}, {3.768212528508209*^9, 3.7682125983528852`*^9}, { 3.768212631376326*^9, 3.768212669598125*^9}, {3.768213343679429*^9, 3.768213457056038*^9}, {3.768213601615403*^9, 3.768213624837737*^9}, { 3.768213675710526*^9, 3.768213679872282*^9}, {3.7682147423084784`*^9, 3.768214770672756*^9}, {3.7682148064211607`*^9, 3.768214856540842*^9}, { 3.768214937721344*^9, 3.7682149524274273`*^9}, {3.768215131110354*^9, 3.768215183453472*^9}, {3.7682159279123898`*^9, 3.768215944915338*^9}, { 3.768217016975964*^9, 3.7682170689492598`*^9}, {3.7682171007412233`*^9, 3.768217187813512*^9}, {3.7682208545723553`*^9, 3.768220977689561*^9}, { 3.768226767803742*^9, 3.7682268170707693`*^9}, 3.768226865862815*^9, { 3.768226912505352*^9, 3.7682269366923122`*^9}, {3.768227040530673*^9, 3.768227046711215*^9}, {3.768227100838138*^9, 3.768227123938397*^9}, { 3.7682271905510893`*^9, 3.76822736545166*^9}, {3.768227597165902*^9, 3.768227632480446*^9}, {3.76822767020933*^9, 3.768227798581572*^9}, { 3.76822796127419*^9, 3.768227973423915*^9}, {3.768276588196755*^9, 3.768276600200905*^9}, {3.768276728304757*^9, 3.768276741015675*^9}, { 3.76827678534264*^9, 3.768276804807146*^9}, {3.76827686608764*^9, 3.768276875176404*^9}, {3.768277510865302*^9, 3.768277541872427*^9}, { 3.768277684740601*^9, 3.768277689626268*^9}, {3.768277797619862*^9, 3.768277819471984*^9}, {3.768277861131064*^9, 3.768277881151964*^9}, { 3.768277919770646*^9, 3.768277924239727*^9}, {3.768278992365554*^9, 3.768279024227269*^9}, {3.768279128707377*^9, 3.768279153895739*^9}, { 3.768279266368361*^9, 3.768279357272336*^9}, {3.76827945712295*^9, 3.7682794649651957`*^9}, {3.768279589460416*^9, 3.768279652833653*^9}, { 3.768279792441072*^9, 3.768279974612153*^9}, {3.768280006873399*^9, 3.768280019693206*^9}, {3.768280107945533*^9, 3.768280132418426*^9}, { 3.768280164492371*^9, 3.768280182054618*^9}, {3.768280221741485*^9, 3.7682802788228693`*^9}, {3.768280380485951*^9, 3.768280418902505*^9}, { 3.768280782054085*^9, 3.768280782481057*^9}, {3.768280884946055*^9, 3.768280922134592*^9}, {3.768281006410161*^9, 3.7682810112143927`*^9}, { 3.768281256611041*^9, 3.768281274402623*^9}, {3.7682813859475927`*^9, 3.7682813966680527`*^9}, {3.7682814686027184`*^9, 3.768281473342964*^9}, { 3.7682839654682293`*^9, 3.76828398991044*^9}, {3.768284029808035*^9, 3.768284035463553*^9}, {3.768285380518753*^9, 3.7682853815831347`*^9}, { 3.768285424712575*^9, 3.768285537114698*^9}, {3.768285607591424*^9, 3.768285704537361*^9}, {3.768285745061653*^9, 3.768285755998378*^9}, { 3.768285805975924*^9, 3.768285995490869*^9}, {3.7682877418077183`*^9, 3.7682877512509813`*^9}, {3.768287881983671*^9, 3.7682878890286617`*^9}, { 3.768287945416236*^9, 3.768288006313057*^9}, {3.768288088414714*^9, 3.76828810980925*^9}, {3.7682897933536673`*^9, 3.768289819231763*^9}, { 3.768292094462288*^9, 3.768292101909142*^9}, {3.7682922213455*^9, 3.768292243943037*^9}, {3.768292630357958*^9, 3.768292666377273*^9}, { 3.768292723270307*^9, 3.768292727744472*^9}, {3.7682927743863*^9, 3.768292778507319*^9}, {3.768292867731522*^9, 3.768292876096177*^9}, { 3.768293198075556*^9, 3.76829322091675*^9}, {3.768293302812935*^9, 3.7682933039750967`*^9}, 3.768293344582569*^9, {3.768293466420579*^9, 3.76829350265145*^9}, {3.768293560442984*^9, 3.7682936009780912`*^9}, { 3.768294599496011*^9, 3.76829461919191*^9}, 3.7682946908542852`*^9, { 3.768294765179514*^9, 3.768294765900012*^9}, {3.768294829580832*^9, 3.768294873402287*^9}, {3.7682949507878933`*^9, 3.768294956187368*^9}, { 3.768295012778228*^9, 3.7682950823099957`*^9}, {3.768295151362495*^9, 3.7682951573757544`*^9}, {3.7682952711524067`*^9, 3.768295295246396*^9}, { 3.768296348915991*^9, 3.768296374287982*^9}, {3.768298736911227*^9, 3.768298792366713*^9}, {3.768298852886805*^9, 3.768298879854937*^9}, { 3.768298917173855*^9, 3.768298918079109*^9}, {3.7685507486952744`*^9, 3.768550803934369*^9}, {3.768551080957088*^9, 3.768551155866715*^9}, { 3.768551207456771*^9, 3.768551247425849*^9}, {3.768554271528034*^9, 3.768554284292735*^9}, {3.768554348355414*^9, 3.768554368875648*^9}, { 3.7685544464761972`*^9, 3.76855446396222*^9}, {3.76855461713453*^9, 3.768554645509564*^9}, {3.768554802269726*^9, 3.768554824058992*^9}, { 3.7685548612208157`*^9, 3.768554945719324*^9}, 3.7685549810485907`*^9, { 3.768563168097714*^9, 3.768563218824897*^9}, {3.768567401497278*^9, 3.768567829631358*^9}, 3.76856786685938*^9, {3.768568386037653*^9, 3.768568386883045*^9}, 3.7685684568001966`*^9}, CellLabel->"In[198]:=", CellID->1953667466] }, Open ]], Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, then \ pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLarger", "[", RowBox[{ StyleBox["list", "TI"], ",", StyleBox["val", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs"], Cell[TextData[{ "gives the smallest ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " elements in ", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " that are larger than ", Cell[BoxData[ StyleBox["val", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLarger", "[", RowBox[{ RowBox[{ StyleBox["list", "TI"], "\[Rule]", StyleBox["prop", "TI"]}], ",", StyleBox["val", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs"], Cell[TextData[{ "gives the property ", Cell[BoxData[ StyleBox["prop", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for the ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " elements in ", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " larger than ", Cell[BoxData[ StyleBox["val", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLarger", "[", RowBox[{ StyleBox["val", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs"], Cell[TextData[{ "represents an operator form of ", Cell[BoxData["TakeLarger"], "InlineFormula", FontFamily->"Source Sans Pro"], " that can be applied to an expression." }], "UsageDescription"] }, 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 and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->66019318], Cell[TextData[{ Cell[BoxData["TakeLarger"], "InlineFormula", FontFamily->"Source Sans Pro"], " sorts by numerical magnitude." }], "Notes", CellTags->"TabNext", CellID->521904482], Cell[TextData[{ "It handles the same objects and properties as ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["TakeLargest", "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/TakeLargest"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ". " }], "Notes", CellID->653763454], Cell[TextData[{ Cell[BoxData["TakeLarger"], "InlineFormula", FontFamily->"Source Sans Pro"], " expects all objects to be comparable with one another." }], "Notes", CellID->739469879], Cell[TextData[{ Cell[BoxData[ RowBox[{ RowBox[{"TakeLarger", "[", RowBox[{ StyleBox["list", "TI"], ",", StyleBox["val", "TI"], ",", RowBox[{ TagBox[ ButtonBox[ StyleBox["UpTo", "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/UpTo"], MouseAppearanceTag["LinkHand"]], "[", StyleBox["n", "TI"], "]"}]}], "]"}], " "}]], "InlineFormula", FontFamily->"Source Sans Pro"], "takes ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " elements, or as many as are available." }], "Notes", CellID->113491436], Cell[TextData[{ Cell[BoxData[ RowBox[{"TakeLarger", "[", RowBox[{ StyleBox["assoc", "TI"], ",", StyleBox["val", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " gives an association of length ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " by taking the ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " smallest values that are larger than ", Cell[BoxData[ StyleBox["val", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " in ", Cell[BoxData[ StyleBox["assoc", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", preserving their keys." }], "Notes", CellID->1679747497], Cell[TextData[{ Cell[BoxData[ RowBox[{ RowBox[{"TakeLarger", "[", RowBox[{ StyleBox["val", "TI"], ",", StyleBox["n", "TI"]}], "]"}], "[", StyleBox["list", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is equivalent to ", Cell[BoxData[ RowBox[{ RowBox[{ TagBox[ ButtonBox[ StyleBox["TakeLargest", "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/TakeLargest"], MouseAppearanceTag["LinkHand"]], "[", RowBox[{ StyleBox["list", "TI"], ",", StyleBox["val", "TI"], ",", StyleBox["n", "TI"]}], "]"}], "."}]], "InlineFormula", FontFamily->"Source Sans Pro"] }], "Notes", CellID->671776265] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and Subsubsection \ cells similarly to existing documentation pages. Here are some typical \ Subsection names and the types of examples they normally contain:\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["Take two numbers larger than the specified value in a list:", "Text", CellChangeTimes->{{3.76855702132609*^9, 3.7685570735544033`*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"list", "=", RowBox[{"{", RowBox[{"1", ",", "3", ",", "5", ",", "4"}], "}"}]}]], "Input", CellChangeTimes->{{3.768557289383438*^9, 3.768557291375001*^9}}, CellLabel->"In[235]:=", CellID->740111677], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "3", ",", "5", ",", "4"}], "}"}]], "Output", CellChangeTimes->{3.768557294461158*^9, 3.768620201679276*^9}, CellLabel->"Out[235]=", CellID->810988680] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLarger", "[", RowBox[{"list", ",", "3", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.767331170366127*^9, 3.7673312087824*^9}, 3.7673320043587646`*^9, 3.7685570091184063`*^9, {3.7685570837136374`*^9, 3.768557094057536*^9}, {3.768557282298853*^9, 3.768557285005403*^9}}, CellLabel->"In[236]:=", CellID->443871870], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}]], "Output", CellChangeTimes->{{3.767331202929103*^9, 3.767331209434271*^9}, 3.767341236797263*^9, 3.7685570946269903`*^9, 3.768557296404207*^9, 3.7686202029392443`*^9}, CellLabel->"Out[236]=", CellID->1323154294] }, Open ]], Cell[TextData[{ "Do the same using the operator form of ", Cell[BoxData["TakeLarger"], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.768620225977667*^9, 3.768620238654806*^9}}, CellID->1356375840], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"list", "//", RowBox[{"TakeLarger", "[", RowBox[{"3", ",", "2"}], "]"}]}]], "Input", CellChangeTimes->{{3.7685572589035587`*^9, 3.7685572629981127`*^9}, { 3.768557302696157*^9, 3.76855730370181*^9}}, CellLabel->"In[237]:=", CellID->156335159], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}]], "Output", CellChangeTimes->{3.7685572693419447`*^9, 3.768557304321534*^9, 3.768620244265407*^9}, CellLabel->"Out[237]=", CellID->2090413001] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TakeLarger", "[", RowBox[{"3", ",", "2"}], "]"}], " ", "@", " ", "list"}]], "Input", CellChangeTimes->{{3.7685572538874683`*^9, 3.7685572668702383`*^9}, { 3.7685573099120903`*^9, 3.768557310709876*^9}}, CellLabel->"In[238]:=", CellID->1319833340], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}]], "Output", CellChangeTimes->{3.768557270891272*^9, 3.768557311287347*^9, 3.768620245165338*^9}, CellLabel->"Out[238]=", CellID->1273999257] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->1612811933], Cell["\<\ Take the two values larger then the specified threshold in an association:\ \>", "Text", CellChangeTimes->{{3.768557421396988*^9, 3.7685574770510406`*^9}, { 3.7686202560758877`*^9, 3.768620256999488*^9}}, CellID->21025064], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLarger", "[", RowBox[{ RowBox[{"<|", RowBox[{ RowBox[{"a", "\[Rule]", "1"}], ",", RowBox[{"b", "\[Rule]", "2"}], ",", RowBox[{"c", "\[Rule]", "3"}], ",", RowBox[{"d", "\[Rule]", "5"}], ",", RowBox[{"e", "\[Rule]", "4"}]}], "|>"}], ",", "3", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.7685574948032017`*^9, 3.7685575454828253`*^9}}, CellLabel->"In[239]:=", CellID->893939115], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"e", "\[Rule]", "4"}], ",", RowBox[{"d", "\[Rule]", "5"}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{{3.768557534227331*^9, 3.7685575490038633`*^9}, 3.768620263149602*^9}, CellLabel->"Out[239]=", CellID->684219159] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->2138758954], Cell["\<\ Take 4 numbers larger than the specified value, or as many as are available:\ \>", "Text", CellChangeTimes->{ 3.7685627275027122`*^9, {3.7685693452084703`*^9, 3.768569374352441*^9}, { 3.768620859880774*^9, 3.76862086275799*^9}, {3.771606533332328*^9, 3.771606542171673*^9}}, CellID->1540456392], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLarger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "7", ",", "4"}], "}"}], ",", "3", ",", RowBox[{"UpTo", "[", "4", "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.768562747689541*^9, 3.76856275859368*^9}}, CellLabel->"In[46]:=", CellID->387732112], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "7"}], "}"}]], "Output", CellChangeTimes->{3.7685627605664463`*^9}, CellLabel->"Out[46]=", CellID->1389332748] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->2080761255], Cell["All numbers larger than a threshold:", "Text", CellChangeTimes->{ 3.7685627275027122`*^9, {3.7685693452084703`*^9, 3.768569374352441*^9}, { 3.768570082564971*^9, 3.7685701090354156`*^9}, 3.77160654732463*^9}, CellID->1370469257], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLarger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "7", ",", "4", ",", "5"}], "}"}], ",", "3", ",", RowBox[{"UpTo", "[", "Infinity", "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.768562747689541*^9, 3.76856275859368*^9}, { 3.768570117636232*^9, 3.768570132490511*^9}}, CellLabel->"In[234]:=", CellID->1714688324], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "5", ",", "7"}], "}"}]], "Output", CellChangeTimes->{ 3.7685627605664463`*^9, {3.768570121125108*^9, 3.768570133479171*^9}}, CellLabel->"Out[234]=", CellID->375430277] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->1218457270], Cell[TextData[{ "Take two values in a list of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Quantity", "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/Quantity"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " objects:" }], "Text", CellChangeTimes->{{3.633287564713328*^9, 3.633287582423368*^9}, { 3.633358340168096*^9, 3.633358340502487*^9}, {3.634777176497466*^9, 3.6347771767192583`*^9}, {3.635530387743204*^9, 3.635530391126689*^9}, { 3.635530428769272*^9, 3.635530434303817*^9}, {3.635530474936933*^9, 3.635530492028699*^9}, 3.768569486854299*^9, {3.768569519797564*^9, 3.7685695281527023`*^9}, {3.7686209133740873`*^9, 3.768620914496344*^9}}, CellID->1184750148], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLarger", "[", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"1","\"kg\"","kilograms","\"Kilograms\""}, "Quantity"], ",", TemplateBox[{"2","\"kg\"","kilograms","\"Kilograms\""}, "Quantity"], ",", TemplateBox[{"3","\"kg\"","kilograms","\"Kilograms\""}, "Quantity"]}], "}"}], ",", TemplateBox[{"1","\"kg\"","kilogram","\"Kilograms\""}, "Quantity"], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.633287542921975*^9, 3.633287556377145*^9}, { 3.635530393794684*^9, 3.6355304378284283`*^9}, {3.6355304694544086`*^9, 3.635530495760744*^9}, {3.768569401766696*^9, 3.7685694262839108`*^9}, { 3.768569459470092*^9, 3.768569466766659*^9}, 3.768569545220078*^9}, CellLabel->"In[224]:=", CellID->627362452], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"2","\"kg\"","kilograms","\"Kilograms\""}, "Quantity"], ",", TemplateBox[{"3","\"kg\"","kilograms","\"Kilograms\""}, "Quantity"]}], "}"}]], "Output", CellChangeTimes->{ 3.633287556950089*^9, 3.6351767664652357`*^9, 3.6355304382787848`*^9, { 3.635530469751828*^9, 3.63553049747471*^9}, 3.747145649535623*^9, 3.7685694308387203`*^9, {3.768569461088382*^9, 3.7685694692368317`*^9}, { 3.768569542691884*^9, 3.768569548564507*^9}}, CellLabel->"Out[224]=", CellID->580798778] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->964056545], Cell["\<\ Get the two smallest elements that are larger than 3 in a list:\ \>", "Text", CellChangeTimes->{{3.768562835720717*^9, 3.7685628948956003`*^9}, { 3.768563695974169*^9, 3.768563697158484*^9}, {3.768564120227631*^9, 3.76856412514892*^9}}, CellID->649685796], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLarger", "[", RowBox[{ RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", "\[Pi]"], ",", RowBox[{"7", " ", "\[Pi]"}], ",", SuperscriptBox["\[Pi]", "\[ExponentialE]"], ",", "23"}], "}"}], ",", "3", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.768562850081156*^9, 3.7685628508405523`*^9}, { 3.768562903863101*^9, 3.768562912827676*^9}}, CellLabel->"In[48]:=", CellID->836153427], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"7", " ", "\[Pi]"}], ",", SuperscriptBox["\[Pi]", "\[ExponentialE]"]}], "}"}]], "Output", CellChangeTimes->{{3.768562906218191*^9, 3.768562913480205*^9}}, CellLabel->"Out[48]=", CellID->1819589888] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->120969034], Cell["\<\ Get the positions of the two smallest elements larger than 3:\ \>", "Text", CellChangeTimes->{{3.633287564713328*^9, 3.633287582423368*^9}, { 3.633358340168096*^9, 3.633358340502487*^9}, {3.634777176497466*^9, 3.6347771767192583`*^9}, {3.635530387743204*^9, 3.635530391126689*^9}, { 3.635530428769272*^9, 3.635530434303817*^9}, {3.635530474936933*^9, 3.635530492028699*^9}, {3.7470784593846807`*^9, 3.7470784976448193`*^9}, { 3.747078702732085*^9, 3.747078706332185*^9}, {3.747078859006391*^9, 3.747078861342455*^9}, {3.7471455722677383`*^9, 3.74714557317101*^9}, { 3.768563947966243*^9, 3.768563967983004*^9}, {3.768564200369567*^9, 3.768564207137981*^9}}, CellID->1866193009], Cell[BoxData[ RowBox[{ RowBox[{"list", "=", RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", "\[Pi]"], ",", RowBox[{"7", " ", "\[Pi]"}], ",", SuperscriptBox["\[Pi]", "\[ExponentialE]"], ",", "23"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.74707923006997*^9, 3.7470792342121058`*^9}}, CellLabel->"In[95]:=", CellID->2099620590], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLarger", "[", RowBox[{ RowBox[{"list", "\[Rule]", "\"\\""}], ",", "3", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.747078662923678*^9, 3.747078674172188*^9}, { 3.747078869296501*^9, 3.747078953264*^9}, {3.747079136755979*^9, 3.7470792271723146`*^9}, {3.768563981137578*^9, 3.7685639855908337`*^9}}, CellLabel->"In[96]:=", CellID->150796454], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]], "Output", CellChangeTimes->{{3.747078898143775*^9, 3.7470789267962914`*^9}, 3.7470792704133244`*^9, {3.768563973522469*^9, 3.768563986335044*^9}, 3.768564216855557*^9}, CellLabel->"Out[96]=", CellID->703297226] }, Open ]], Cell["Get the elements along with their positions:", "Text", CellChangeTimes->{{3.633287564713328*^9, 3.633287582423368*^9}, { 3.633358340168096*^9, 3.633358340502487*^9}, {3.634777176497466*^9, 3.6347771767192583`*^9}, {3.635530387743204*^9, 3.635530391126689*^9}, { 3.635530428769272*^9, 3.635530434303817*^9}, {3.635530474936933*^9, 3.635530492028699*^9}, {3.7470784593846807`*^9, 3.7470784976448193`*^9}, { 3.747078702732085*^9, 3.747078706332185*^9}, {3.747078859006391*^9, 3.747078861342455*^9}, {3.747079240292006*^9, 3.747079252515952*^9}, { 3.747079317205257*^9, 3.747079359413822*^9}, {3.768564239940761*^9, 3.768564253691382*^9}, {3.7685643794318*^9, 3.768564382777308*^9}}, CellID->897995222], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLarger", "[", RowBox[{ RowBox[{"list", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", "3", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.7470793058611813`*^9, 3.747079312277268*^9}, { 3.747079368072706*^9, 3.747079372518093*^9}, {3.76856426631446*^9, 3.768564271465495*^9}}, CellLabel->"In[98]:=", CellID->540387792], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"7", " ", "\[Pi]"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ SuperscriptBox["\[Pi]", "\[ExponentialE]"], ",", "3"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7470793290894947`*^9, 3.7470793746759253`*^9, {3.7685642593979673`*^9, 3.7685642721105833`*^9}}, CellLabel->"Out[98]=", CellID->214482603] }, Open ]], Cell["Let positions come first n the result:", "Text", CellChangeTimes->{{3.633287564713328*^9, 3.633287582423368*^9}, { 3.633358340168096*^9, 3.633358340502487*^9}, {3.634777176497466*^9, 3.6347771767192583`*^9}, {3.635530387743204*^9, 3.635530391126689*^9}, { 3.635530428769272*^9, 3.635530434303817*^9}, {3.635530474936933*^9, 3.635530492028699*^9}, {3.7470784593846807`*^9, 3.7470784976448193`*^9}, { 3.747078702732085*^9, 3.747078706332185*^9}, {3.747078859006391*^9, 3.747078861342455*^9}, {3.747079240292006*^9, 3.747079252515952*^9}, { 3.747079317205257*^9, 3.747079359413822*^9}, {3.747079410662528*^9, 3.747079418518485*^9}, {3.7470794839276342`*^9, 3.74707949605579*^9}, { 3.747394917772523*^9, 3.7473949181390343`*^9}, {3.768564337513895*^9, 3.768564363290863*^9}, {3.768564410448473*^9, 3.7685644218338614`*^9}, { 3.768620978658252*^9, 3.768620981774328*^9}}, CellID->656281043], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLarger", "[", RowBox[{ RowBox[{"list", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", "3", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.7470793058611813`*^9, 3.747079312277268*^9}, { 3.747079368072706*^9, 3.747079372518093*^9}, {3.747079428231888*^9, 3.747079431192359*^9}, {3.7685643108112803`*^9, 3.7685643180097847`*^9}}, CellLabel->"In[99]:=", CellID->219602606], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"7", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", SuperscriptBox["\[Pi]", "\[ExponentialE]"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.747079433080809*^9, 3.768564320606319*^9}, CellLabel->"Out[99]=", CellID->552190274] }, Open ]], Cell["Get associations containing the element and the position:", "Text", CellChangeTimes->{{3.633287564713328*^9, 3.633287582423368*^9}, { 3.633358340168096*^9, 3.633358340502487*^9}, {3.634777176497466*^9, 3.6347771767192583`*^9}, {3.635530387743204*^9, 3.635530391126689*^9}, { 3.635530428769272*^9, 3.635530434303817*^9}, {3.635530474936933*^9, 3.635530492028699*^9}, {3.7470784593846807`*^9, 3.7470784976448193`*^9}, { 3.747078702732085*^9, 3.747078706332185*^9}, {3.747078859006391*^9, 3.747078861342455*^9}, {3.747079240292006*^9, 3.747079252515952*^9}, { 3.747079317205257*^9, 3.747079359413822*^9}, {3.747079410662528*^9, 3.747079418518485*^9}, {3.7470794839276342`*^9, 3.747079534088512*^9}, { 3.747394924410492*^9, 3.747394925234466*^9}, {3.7685644538179007`*^9, 3.7685644553428593`*^9}, {3.768621006995688*^9, 3.768621007460178*^9}}, CellID->1739918505], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLarger", "[", RowBox[{ RowBox[{"list", "\[Rule]", "All"}], ",", "3", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.747079442519002*^9, 3.747079442902876*^9}, { 3.768564430018107*^9, 3.76856443402376*^9}}, CellLabel->"In[100]:=", CellID->1738969424], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Element\"\>", "\[Rule]", RowBox[{"7", " ", "\[Pi]"}]}], ",", RowBox[{"\<\"Index\"\>", "\[Rule]", "2"}]}], "\[RightAssociation]"}], ",", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Element\"\>", "\[Rule]", SuperscriptBox["\[Pi]", "\[ExponentialE]"]}], ",", RowBox[{"\<\"Index\"\>", "\[Rule]", "3"}]}], "\[RightAssociation]"}]}], "}"}]], "Output", CellChangeTimes->{3.747079446237217*^9, 3.768564459628977*^9}, CellLabel->"Out[100]=", CellID->1755711391] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->850928727], Cell["\<\ Get the two smallest planets with the radii larger than the Earth:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.633287564713328*^9, 3.633287582423368*^9}, { 3.633358340168096*^9, 3.633358340502487*^9}, {3.634777176497466*^9, 3.6347771767192583`*^9}, {3.635530387743204*^9, 3.635530391126689*^9}, { 3.635530428769272*^9, 3.635530434303817*^9}, {3.635530474936933*^9, 3.635530492028699*^9}, {3.7470784593846807`*^9, 3.7470784976448193`*^9}, { 3.747145833579183*^9, 3.7471458348264027`*^9}, {3.747146323370648*^9, 3.747146331785553*^9}, {3.747146376767943*^9, 3.747146381527944*^9}, { 3.7471465929208393`*^9, 3.747146606048129*^9}, {3.747409639007351*^9, 3.747409655710464*^9}, {3.768569767689541*^9, 3.7685697949994383`*^9}, { 3.768569905548943*^9, 3.768569907957243*^9}, {3.7686210232299623`*^9, 3.768621026252595*^9}}, CellID->1129413077], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLarger", "[", RowBox[{ RowBox[{"EntityValue", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "]"}], ",", RowBox[{ RowBox[{"Entity", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "[", "\"\\"", "]"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.7471460409946404`*^9, 3.747146054595138*^9}, { 3.7471461354989967`*^9, 3.747146223205854*^9}, {3.747146255741007*^9, 3.7471463061961412`*^9}, {3.7471463511222754`*^9, 3.747146384472095*^9}, { 3.74714657734829*^9, 3.7471465897531633`*^9}, {3.7471466301062593`*^9, 3.747146630735024*^9}, {3.768569880826612*^9, 3.7685699020238934`*^9}}, CellLabel->"In[232]:=", CellID->1598465632], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{ TemplateBox[{"\"Neptune\"",RowBox[{"Entity", "[", RowBox[{"\"Planet\"", ",", "\"Neptune\""}], "]"}], "\"Entity[\\\"Planet\\\", \\\"Neptune\\\"]\"","\"planet\""}, "Entity"], "\[Rule]", TemplateBox[{"24622.`5.","\"km\"","kilometers","\"Kilometers\""}, "Quantity"]}], ",", RowBox[{ TemplateBox[{"\"Uranus\"",RowBox[{"Entity", "[", RowBox[{"\"Planet\"", ",", "\"Uranus\""}], "]"}], "\"Entity[\\\"Planet\\\", \\\"Uranus\\\"]\"","\"planet\""}, "Entity"], "\[Rule]", TemplateBox[{"25362.`5.","\"km\"","kilometers","\"Kilometers\""}, "Quantity"]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{{3.747146181006139*^9, 3.747146186688869*^9}, 3.747146225454111*^9, {3.747146262488927*^9, 3.747146306900158*^9}, { 3.747146341448924*^9, 3.747146384758585*^9}, {3.7471465869840097`*^9, 3.747146590091401*^9}, 3.74714663125377*^9, 3.747147042756321*^9, { 3.768569892422748*^9, 3.768569910407051*^9}}, CellLabel->"Out[232]=", CellID->676474418] }, 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[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->127820888], Cell["Wolfram staff", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->547400482], Cell["elements by value", "Item"] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Categories", CellID->749076926], Cell["Data Manipulation & Analysis", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellID->161079978], Cell["TakeLargest", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->588449267], Cell["Resource Name (resources from any Wolfram repository)", "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}, CellTags->"TabNext", CellID->960273585] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->642091068], 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[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellID->521525586], Cell["Link to other related material", "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}, CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Specify an optional list of tests for verifying that the function is \ working properly in any environment. Tests can be specified as Input/Output \ cell pairs or as symbolic VerificationTest expressions for including \ additional options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"list", "=", RowBox[{"{", RowBox[{ "3", ",", "2", ",", "6", ",", "9", ",", "4", ",", "11", ",", "7", ",", "11", ",", "None", ",", "Indeterminate", ",", RowBox[{"Missing", "[", "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.768105741166148*^9, 3.7681057430148497`*^9}, { 3.768109135414792*^9, 3.7681091362953587`*^9}, {3.768561289740423*^9, 3.768561300057577*^9}, {3.76862172674162*^9, 3.768621737750124*^9}}, CellLabel->"In[293]:=", CellID->2038522878], Cell[BoxData[ RowBox[{"{", RowBox[{ "3", ",", "2", ",", "6", ",", "9", ",", "4", ",", "11", ",", "7", ",", "11", ",", "None", ",", "Indeterminate", ",", RowBox[{"Missing", "[", "]"}]}], "}"}]], "Output", CellChangeTimes->{{3.768621740151251*^9, 3.768621769385445*^9}, 3.768623271990212*^9}, CellLabel->"Out[293]=", CellID->1500150612] }, Open ]], Cell[BoxData[ RowBox[{"assoc", ":=", RowBox[{"AssociationThread", "[", RowBox[{ RowBox[{"CharacterRange", "[", RowBox[{"\"\\"", ",", RowBox[{"FromLetterNumber", "[", RowBox[{"Length", "[", "list", "]"}], "]"}]}], "]"}], "\[Rule]", "list"}], "]"}]}]], "Input", CellChangeTimes->{{3.768106775737216*^9, 3.768106798778117*^9}, { 3.768106886641954*^9, 3.768107065712653*^9}, 3.768622090781774*^9}, CellLabel->"In[262]:=", CellID->969291492], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLarger", "[", RowBox[{ RowBox[{"list", "\[Rule]", "All"}], ",", "6.5", ",", "4"}], "]"}]], "Input",\ CellChangeTimes->{{3.7681075393498096`*^9, 3.768107551038416*^9}, { 3.768123967143778*^9, 3.768123973594145*^9}, 3.768127128207196*^9, { 3.768292008948488*^9, 3.768292009636879*^9}, {3.768621684514674*^9, 3.768621685256473*^9}}, CellLabel->"In[256]:=", CellID->1983565182], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Element\"\>", "\[Rule]", "7"}], ",", RowBox[{"\<\"Index\"\>", "\[Rule]", "7"}]}], "\[RightAssociation]"}], ",", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Element\"\>", "\[Rule]", "9"}], ",", RowBox[{"\<\"Index\"\>", "\[Rule]", "4"}]}], "\[RightAssociation]"}], ",", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Element\"\>", "\[Rule]", "11"}], ",", RowBox[{"\<\"Index\"\>", "\[Rule]", "6"}]}], "\[RightAssociation]"}], ",", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Element\"\>", "\[Rule]", "11"}], ",", RowBox[{"\<\"Index\"\>", "\[Rule]", "8"}]}], "\[RightAssociation]"}]}], "}"}]], "Output", CellChangeTimes->{3.768621685828277*^9, 3.768621769510839*^9}, CellLabel->"Out[256]=", CellID->1435132291] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLarger", "[", RowBox[{ RowBox[{"assoc", "\[Rule]", "All"}], ",", "6.5", ",", "4"}], "]"}]], "Input", CellChangeTimes->{{3.7681075393498096`*^9, 3.768107551038416*^9}, { 3.768123967143778*^9, 3.768123973594145*^9}, 3.768127128207196*^9, { 3.768292008948488*^9, 3.768292009636879*^9}, 3.768621682080118*^9}, CellLabel->"In[263]:=", CellID->1456159246], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"g\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Element\"\>", "\[Rule]", "7"}], ",", RowBox[{"\<\"Index\"\>", "\[Rule]", "7"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"d\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Element\"\>", "\[Rule]", "9"}], ",", RowBox[{"\<\"Index\"\>", "\[Rule]", "4"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"f\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Element\"\>", "\[Rule]", "11"}], ",", RowBox[{"\<\"Index\"\>", "\[Rule]", "6"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"h\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Element\"\>", "\[Rule]", "11"}], ",", RowBox[{"\<\"Index\"\>", "\[Rule]", "8"}]}], "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{ 3.768289260229788*^9, 3.7682920103343163`*^9, 3.768292675716073*^9, 3.768292731806727*^9, 3.768292782265285*^9, 3.768293226917829*^9, 3.768293607564715*^9, 3.7682946053283453`*^9, {3.768294652748663*^9, 3.7682946764654503`*^9}, 3.768294723345222*^9, 3.7682947709544477`*^9, 3.768294839805902*^9, 3.768294878430437*^9, 3.768295141229279*^9, 3.768295205106655*^9, 3.768298926397049*^9, 3.7686216757426577`*^9, 3.768621769521449*^9, 3.7686221009398746`*^9}, CellLabel->"Out[263]=", CellID->143867478] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLarger", "[", RowBox[{ RowBox[{"list", "\[Rule]", "\"\\""}], ",", "6.5", ",", "4"}], "]"}]], "Input", CellLabel->"In[300]:=", CellID->757030487], Cell[BoxData[ RowBox[{"{", RowBox[{"7", ",", "8", ",", "9", ",", "11"}], "}"}]], "Output", CellChangeTimes->{3.768623432026449*^9}, CellLabel->"Out[300]=", CellID->88257096] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TakeLarger", "[", RowBox[{ RowBox[{"list", "\[Rule]", "\"\\""}], ",", "6.5", ",", "4"}], "]"}], "===", RowBox[{"Reverse", "@", RowBox[{"TakeLargest", "[", RowBox[{ RowBox[{"list", "\[Rule]", "\"\\""}], ",", "4"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.768122097643079*^9, 3.768122163167774*^9}, { 3.768218250951972*^9, 3.7682182614068813`*^9}, {3.768623307859413*^9, 3.7686233230256977`*^9}, {3.768623355634701*^9, 3.7686233596734333`*^9}, { 3.768623415144622*^9, 3.768623448239097*^9}}, CellLabel->"In[301]:=", CellID->1573320104], Cell[BoxData["True"], "Output", CellChangeTimes->{3.768623448936386*^9}, CellLabel->"Out[301]=", CellID->985862451] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Extract", "[", RowBox[{"list", ",", RowBox[{"List", "/@", RowBox[{"TakeLarger", "[", RowBox[{ RowBox[{"list", "\[Rule]", "\"\\""}], ",", "6.5", ",", "4"}], "]"}]}]}], "]"}], "===", RowBox[{"Reverse", "@", RowBox[{"Extract", "[", RowBox[{"list", ",", RowBox[{"List", "/@", RowBox[{"TakeLargest", "[", RowBox[{ RowBox[{"list", "\[Rule]", "\"\\""}], ",", "4"}], "]"}]}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.768122097643079*^9, 3.768122163167774*^9}, { 3.768218250951972*^9, 3.7682182614068813`*^9}, {3.768623307859413*^9, 3.7686233230256977`*^9}, {3.768623355634701*^9, 3.7686233596734333`*^9}, 3.768623406174144*^9}, CellLabel->"In[299]:=", CellID->1798805856], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.768122165126514*^9, 3.768123876518827*^9, 3.768129250838537*^9, 3.768215887430183*^9, 3.7682180425277367`*^9, 3.7682182187411118`*^9, { 3.768218252598523*^9, 3.768218262136158*^9}, 3.768284659064168*^9, 3.768623323596766*^9, 3.768623360799428*^9, 3.7686234075346518`*^9}, CellLabel->"Out[299]=", CellID->835784622] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"list", "=", RowBox[{"{", RowBox[{ "3", ",", "2", ",", "6", ",", "9", ",", "4", ",", "11", ",", "8", ",", "7", ",", "None", ",", "Indeterminate", ",", RowBox[{"Missing", "[", "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.768105741166148*^9, 3.7681057430148497`*^9}, { 3.768109135414792*^9, 3.7681091362953587`*^9}, {3.768561289740423*^9, 3.768561300057577*^9}, {3.76862172674162*^9, 3.768621737750124*^9}, { 3.768622315103222*^9, 3.76862233423774*^9}, 3.76862281139528*^9, 3.7686233823381968`*^9}, CellLabel->"In[298]:=", CellID->411698726], Cell[BoxData[ RowBox[{"{", RowBox[{ "3", ",", "2", ",", "6", ",", "9", ",", "4", ",", "11", ",", "8", ",", "7", ",", "None", ",", "Indeterminate", ",", RowBox[{"Missing", "[", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.7686233828991528`*^9}, CellLabel->"Out[298]=", CellID->903335557] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"TakeLarger", "[", RowBox[{ RowBox[{"assoc", "\[Rule]", "#"}], ",", "6.5", ",", "4"}], "]"}], "===", RowBox[{"Reverse", "@", RowBox[{"TakeLargest", "[", RowBox[{ RowBox[{"assoc", "\[Rule]", "#"}], ",", "4"}], "]"}]}]}], ")"}], "&"}], "/@", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", RowBox[{"{", "\"\\"", "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "All"}], "}"}]}]], "Input", CellChangeTimes->{{3.7681075393498096`*^9, 3.768107551038416*^9}, { 3.768123967143778*^9, 3.768123973594145*^9}, 3.768127128207196*^9, { 3.768289320310939*^9, 3.7682893345469503`*^9}, {3.76828969144718*^9, 3.768289702335135*^9}, {3.768292149769287*^9, 3.768292150145955*^9}, { 3.768622265512848*^9, 3.768622274079466*^9}, {3.7686224318133993`*^9, 3.768622432787587*^9}, {3.768622827962534*^9, 3.7686228870301743`*^9}, { 3.768622953182488*^9, 3.7686229683795567`*^9}}, CellLabel->"In[285]:=", CellID->291354208], Cell[BoxData[ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]], "Output", CellChangeTimes->{ 3.768289703569899*^9, 3.768292128826117*^9, 3.768292681067855*^9, 3.768622243090959*^9, 3.768622274597742*^9, {3.7686223194313717`*^9, 3.768622336492519*^9}, 3.768622433534769*^9, 3.7686228132737923`*^9, 3.7686228877658987`*^9, {3.768622954358267*^9, 3.7686229690267487`*^9}}, CellLabel->"Out[285]=", CellID->1552467376] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TakeLarger", "[", RowBox[{"assoc", ",", "6.5", ",", "4"}], "]"}], "===", RowBox[{"Reverse", "@", RowBox[{"TakeLargest", "[", RowBox[{"assoc", ",", "4"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7681075393498096`*^9, 3.768107551038416*^9}, { 3.768123967143778*^9, 3.768123973594145*^9}, 3.768127128207196*^9, { 3.768289320310939*^9, 3.7682893345469503`*^9}, {3.76828969144718*^9, 3.768289702335135*^9}, {3.768292149769287*^9, 3.768292150145955*^9}, { 3.768622265512848*^9, 3.76862228652672*^9}, {3.7686223942035418`*^9, 3.76862239802738*^9}, {3.7686230585945587`*^9, 3.768623072048943*^9}}, CellLabel->"In[290]:=", CellID->1541057407], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.768622398912101*^9, {3.768623039206802*^9, 3.768623072456418*^9}}, CellLabel->"Out[290]=", CellID->718858345] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TakeLarger", "[", RowBox[{ RowBox[{"{", RowBox[{"Yesterday", ",", "Today", ",", "Tomorrow", ",", RowBox[{"next", "=", RowBox[{"NextDate", "[", "\"\\"", "]"}]}]}], "}"}], ",", "Today", ",", "2"}], "]"}], "===", RowBox[{"{", RowBox[{"Tomorrow", ",", "next"}], "}"}]}]], "Input", CellChangeTimes->{{3.633287542921975*^9, 3.633287556377145*^9}, { 3.635530393794684*^9, 3.6355304378284283`*^9}, {3.6355304694544086`*^9, 3.635530495760744*^9}, {3.635530591378139*^9, 3.635530594416222*^9}, { 3.768565549762683*^9, 3.76856555158634*^9}, {3.768565641607688*^9, 3.7685656520166492`*^9}, {3.76856568416282*^9, 3.768565686599103*^9}, 3.768565748910166*^9, {3.76862145457515*^9, 3.768621503960997*^9}}, CellLabel->"In[246]:=", CellID->1697000658], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.7686214396130953`*^9, 3.7686214579865713`*^9}, 3.768621504652196*^9}, CellLabel->"Out[246]=", CellID->609795582] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Length", "[", RowBox[{ RowBox[{"TakeLarger", "[", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"1","\"kg\"","kilograms","\"Kilograms\""}, "Quantity"], ",", TemplateBox[{"2","\"kg\"","kilograms","\"Kilograms\""}, "Quantity"], ",", TemplateBox[{"3","\"kg\"","kilograms","\"Kilograms\""}, "Quantity"]}], "}"}], ",", "1", ",", "2"}], "]"}], ";", "$MessageList"}], "]"}], "===", "1"}]], "Input", CellChangeTimes->{{3.633287542921975*^9, 3.633287556377145*^9}, { 3.635530393794684*^9, 3.6355304378284283`*^9}, {3.6355304694544086`*^9, 3.635530495760744*^9}, {3.7685658504881353`*^9, 3.768565862465279*^9}, { 3.7686213856185293`*^9, 3.768621399400002*^9}}, CellLabel->"In[243]:=", CellID->2043397527], Cell[BoxData[ TemplateBox[{ "TakeLarger","nord2", "\"Comparison of \\!\\(\\*RowBox[{\\\"{\\\", \ RowBox[{TemplateBox[List[\\\"1\\\", \\\"\\\\\\\"kg\\\\\\\"\\\", \ \\\"kilogram\\\", \\\"\\\\\\\"Kilograms\\\\\\\"\\\"], \\\"Quantity\\\", \ Rule[SyntaxForm, Mod]], \\\",\\\", TemplateBox[List[\\\"2\\\", \\\"\\\\\\\"kg\ \\\\\\\"\\\", \\\"kilograms\\\", \\\"\\\\\\\"Kilograms\\\\\\\"\\\"], \ \\\"Quantity\\\", Rule[SyntaxForm, Mod]], \\\",\\\", TemplateBox[List[\\\"3\\\ \", \\\"\\\\\\\"kg\\\\\\\"\\\", \\\"kilograms\\\", \ \\\"\\\\\\\"Kilograms\\\\\\\"\\\"], \\\"Quantity\\\", Rule[SyntaxForm, \ Mod]]}], \\\"}\\\"}]\\) and \\!\\(\\*RowBox[{\\\"1\\\"}]\\) is invalid.\"",2, 243,71,17861054844216191819,"Local","Global`TakeLarger"}, "MessageTemplate2"]], "Message", "MSG", CellChangeTimes->{ 3.768565862812735*^9, {3.768621359984606*^9, 3.7686214000180397`*^9}}, CellLabel->"During evaluation of In[243]:=", CellID->823753465], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.633287556950089*^9, 3.6351767664652357`*^9, 3.6355304382787848`*^9, { 3.635530469751828*^9, 3.63553049747471*^9}, 3.747145649535623*^9, { 3.768565858979412*^9, 3.768565862860368*^9}, {3.7686213600297813`*^9, 3.768621400036951*^9}}, CellLabel->"Out[243]=", CellID->2144897693] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TakeLarger", "[", RowBox[{"list", ",", "6.5", ",", RowBox[{"UpTo", "[", RowBox[{"-", "40"}], "]"}]}], "]"}], ";", RowBox[{"$MessageList", "===", RowBox[{"{", TagBox[ StyleBox[ RowBox[{"UpTo", "::", "innf"}], "MessageName"], HoldForm], "}"}]}]}]], "Input", CellChangeTimes->{{3.768122097643079*^9, 3.7681221428052464`*^9}, { 3.768214709216132*^9, 3.768214711001664*^9}, {3.7682278139941273`*^9, 3.7682278284508467`*^9}, {3.7686231076250467`*^9, 3.76862312771241*^9}}, CellLabel->"In[292]:=", CellID->2122717129], Cell[BoxData[ TemplateBox[{ "UpTo","innf", "\"Non-negative integer or Infinity expected at position \\!\\(\\*RowBox[{\ \\\"1\\\"}]\\) in \\!\\(\\*RowBox[{\\\"UpTo\\\", \\\"[\\\", \ RowBox[{\\\"-\\\", \\\"40\\\"}], \\\"]\\\"}]\\).\"",2,292,85, 17861054844216191819,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.768227829288465*^9, 3.768227981312505*^9, {3.768623114705968*^9, 3.768623128526305*^9}}, CellLabel->"During evaluation of In[292]:=", CellID->360959492], Cell[BoxData["True"], "Output", CellChangeTimes->{3.768623128533099*^9}, CellLabel->"Out[292]=", CellID->4879269] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ TemplateBox[{"Submission Notes",Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Submission Notes", CellID->843283583], Cell["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 ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.22"}, CreateCellID->True, FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, CellTags -> {"MainDockedCell"}], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, Background -> RGBColor[0.996078, 0.941176, 0.921569], CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75], CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, False]]]}], 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}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell[ 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+HJQe2D6J0DtQTGfgR1u/wOo Opj7HqCZ+wDNXhgf5i6YfpTwAZoP8xfMfpi/5dDCAWYPAFLnobw= "], 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 eve8lMPjwkBdpVlKDtNeMcWlaUg5bLCT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+V+XP9TIsKXP8jkPnPVODmg9UbqsLt 97yxfXJHjSrcfWD3LFJ1gLkfxn9jH7F5d64snA9Wby4H139K1mzizNtyqObX y8PtN2iZ8/3/RXm4+2B8mPthfJj/YPph/oeZDwsfmP2w8IO5Dxa+6OEPAGHh sd4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOB35VvNh9m88Bxo+YItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfL0f78Zk/gnC+ jhfnwVVSwnC+lOWP9TMtReD8F6xHa9LMROH8SRvy1QUFxdD4EnA+l8bzeR0a knD+koMNFkpCUnB+Qq3Nl7tnEXwZkH2d0qjyvjJo7pOF8CXFHX6IXestL0fw jz1eFOXyR84hZft5LeO7cg4b7OR+vTulAJFPlHeo4X59bPd0BB+iXxrOR/EP kI/iXyC/aX6cGIOFCJwPdp+oMJwPDt/PgnA+2D1PBOB8WHygxy8Abafrpg== "]}]}, 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+HJQe2D6J0DtQTGfgR1u/wOo Opj7HqCZ+wDNXhgf5i6YfpTwAZoP8xfMfpi/5dDCAWYPAFLnobw= "], 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+HJQe2D6J0DtQTGfgR1u/wOo Opj7HqCZ+wDNXhgf5i6YfpTwAZoP8xfMfpi/5dDCAWYPAFLnobw= "]]}, 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 eve8lMPjwkBdpVlKDtNeMcWlaUg5bLCT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+V+XP9TIsKXP8jkPnPVODmg9UbqsLt 97yxfXJHjSrcfWD3LFJ1gLkfxn9jH7F5d64snA9Wby4H139K1mzizNtyqObX y8PtN2iZ8/3/RXm4+2B8mPthfJj/YPph/oeZDwsfmP2w8IO5Dxa+6OEPAGHh sd4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOB35VvNh9m88Bxo+YItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfL0f78Zk/gnC+ jhfnwVVSwnC+lOWP9TMtReD8F6xHa9LMROH8SRvy1QUFxdD4EnA+l8bzeR0a knD+koMNFkpCUnB+Qq3Nl7tnEXwZkH2d0qjyvjJo7pOF8CXFHX6IXestL0fw jz1eFOXyR84hZft5LeO7cg4b7OR+vTulAJFPlHeo4X59bPd0BB+iXxrOR/EP kI/iXyC/aX6cGIOFCJwPdp+oMJwPDt/PgnA+2D1PBOB8WHygxy8Abafrpg== "]}]}, 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[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], 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["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{ FunctionResourceTools`BuildDefinitionNotebook`Private`clickTime$$ = 0., FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[ AbsoluteTime[] - FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ > FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> { FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> ( FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ = AbsoluteTime[]; CopyToClipboard[#2]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ FunctionResourceTools`BuildDefinitionNotebook`Private`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`FunctionTemplateToggle[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`\ FunctionTemplateLiteralInput[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`DocDelimiter[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertSubscript[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Tables\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table Functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; FunctionResource`DefinitionNotebook`Private`showProgress[Null]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[2]]", InputForm], "\"Insert table with three columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[3]]", InputForm], "\"Add a row to the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ System`FrontEndExecute[{System`FrontEndToken[System`ButtonNotebook[], \ \"NewRow\"]}]]", InputForm], "\"Sort the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableSort[]]", InputForm], "\"Merge selected tables\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableMerge[]]", InputForm]}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], Button[ RawBoxes[ TemplateBox[{ StyleBox[ "\"Insert Comment\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert comment for reviewer\""}, "PrettyTooltipTemplate"]], Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertComment[]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}], ""], StandardForm], Evaluator -> "System", SingleEvaluation -> True], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "ColumnsIndexed" -> {1 -> 0, -1 -> 0}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, { 34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], Background -> RGBColor[0.988235, 0.419608, 0.203922], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> GrayLevel[1]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet] \"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewExampleNotebook[]\ & , "\"View a completed sample definition notebook\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewStyleGuidelines[]\ & , "\"View general guidelines for authoring resource functions\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{0., 0.65}, {0., -0.65}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None], True -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0.1]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Tools"]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`checkNotebook[ ButtonNotebook[]]& , "\"Check notebook for potential errors\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ "\"Preview \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Preview\"]]", InputForm], "\"On the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ "\"Deploy \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Local\"]]", InputForm], "\"For my cloud account\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm], "\"Publicly in the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"CloudPublic\"]]", InputForm], "\"In this session only (without documentation)\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"KernelSession\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Evaluator -> "System", Initialization :> If[ Not[$CloudEvaluation], CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = ""]], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349206349206349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, FaceForm[ RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, FaceForm[ RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`\ submitRepositoryUpdate[ ButtonNotebook[]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349206349206349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, FaceForm[ RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, FaceForm[ RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function Repository\ \""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, Background -> None, AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontTracking -> -0.9, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> Block[{ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]; If[ TrueQ[#4], CurrentValue[ ButtonNotebook[], {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; FunctionResource`DefinitionNotebook`Private`showProgress, Identity][ #2[]]], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPngeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPA8Wu WjBdNmVARkARoDhCWZjUdUsWNDUQBBQHykJcC9RyxRzdKAgCigNlGcCAGGVE mka824j1KdHhRkwsEBOnAMp0Eag= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotdGIa7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2ctQqQ1GnGhqIAgoDpSFuBarUcgGMoABMcqINI14txHp U+LDjZhYICZOAZ5bBHA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nr99I5gU7gaCAKKAMWBshDXArV8vnUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBDsjmM "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], #, AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.3]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -1.}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, 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]]}, 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]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell[ StyleData["Hyperlink"], FontColor -> RGBColor[0.921569, 0.341176, 0.105882]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.614379, 0.227451, 0.0705882]], Cell[ StyleData["InlineFormula"], FontSize -> 0.99 Inherited], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.905882]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.9821083, 0.94165615, 0.87130765]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.90526255, 0.92601685, 0.9564697]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.9340271499999999, 0.95373535, 0.87923275]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False]}, Visible -> False, FrontEndVersion -> "12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[558, 20, 47, 1, 70, "Title",ExpressionUUID->"81cac464-da6b-4f59-b56a-89214c299feb", CellTags->"Title"]}, "Description"->{ Cell[608, 23, 102, 1, 70, "Text",ExpressionUUID->"c42e737f-a234-400f-b756-e183074e1ed8", CellTags->"Description"]}, "Definition"->{ Cell[735, 28, 887, 21, 70, "Section",ExpressionUUID->"59b4c761-17d0-4ce4-ac24-cb38627710d7", CellTags->"Definition", CellID->474513213]}, "Documentation"->{ Cell[20342, 492, 99, 3, 70, "Section",ExpressionUUID->"41e6afb8-b34e-4767-bbcd-4c20aeafab7d", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[20466, 499, 1615, 42, 70, "Subsection",ExpressionUUID->"5ad28115-d8f0-420b-ac95-22d43006fce2", CellTags->"Usage", CellID->310800389]}, "Details & Options"->{ Cell[23832, 620, 1131, 24, 70, "Subsection",ExpressionUUID->"f753962c-ddd2-400f-a376-2ba2c51c6f3a", CellTags->"Details & Options", CellID->66019318]}, "TabNext"->{ Cell[24966, 646, 184, 6, 70, "Notes",ExpressionUUID->"db600007-6e20-4935-8d27-39a265ae011e", CellTags->"TabNext", CellID->521904482], Cell[58042, 1626, 508, 8, 70, "Item",ExpressionUUID->"9057283c-56b2-412f-9f71-8b29f9f738e5", CellTags->"TabNext", CellID->960273585], Cell[59352, 1660, 496, 8, 70, "Text",ExpressionUUID->"9f96c69d-1613-4ad3-8e2a-8eb8d8967d32", CellTags->"TabNext", CellID->343081869], Cell[60502, 1693, 485, 8, 70, "Item",ExpressionUUID->"c263c768-7f86-42ca-a93b-6b8f74374e15", CellTags->"TabNext", CellID->485448166], Cell[77129, 2172, 509, 8, 70, "Text",ExpressionUUID->"ffa168b9-cca2-4776-9ffc-2d255bbccc93", CellTags->"TabNext", CellID->567921317], Cell[78398, 2206, 495, 8, 70, "Text",ExpressionUUID->"297f8f89-c66d-41d3-97c1-b1677154a4ef", CellTags->"TabNext", CellID->920818074]}, "Examples"->{ Cell[28520, 775, 6400, 143, 70, "Section",ExpressionUUID->"10965306-fb67-489c-94f7-5a73286cfa95", CellTags->"Examples", CellID->180595041]}, "Source & Additional Information"->{ Cell[54721, 1513, 135, 3, 70, "Section",ExpressionUUID->"9d2b35cc-440f-4fb7-8657-9ed78f72b625", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[54881, 1520, 683, 18, 70, "Subsection",ExpressionUUID->"b24ef457-a92d-4211-883e-bf448eedbca3", CellTags->"Contributed By", CellID->127820888]}, "Keywords"->{ Cell[55633, 1545, 684, 18, 70, "Subsection",ExpressionUUID->"f2ac0523-9b55-41bd-8e82-b00fd025432b", CellTags->"Keywords", CellID->547400482]}, "Categories"->{ Cell[56390, 1570, 126, 4, 70, "Subsection",ExpressionUUID->"fa543b7d-902b-4a4c-90e7-341a2354e875", CellTags->"Categories", CellID->749076926]}, "Related Symbols"->{ Cell[56600, 1581, 661, 18, 70, "Subsection",ExpressionUUID->"6a60b895-8400-4750-8ca8-6e2c78f2b03a", CellTags->"Related Symbols", CellID->161079978]}, "Related Resource Objects"->{ Cell[57328, 1606, 711, 18, 70, "Subsection",ExpressionUUID->"797c9929-e898-492d-837f-f44aa6e5a247", CellTags->"Related Resource Objects", CellID->588449267]}, "Source/Reference Citation"->{ Cell[58587, 1639, 762, 19, 70, "Subsection",ExpressionUUID->"013d7650-9295-4930-b9f7-bcb32cc4f40f", CellTags->"Source/Reference Citation", CellID->642091068]}, "Links"->{ Cell[59885, 1673, 614, 18, 70, "Subsection",ExpressionUUID->"495f6c55-9dd0-4fa1-9b8c-a36e7ff47f2f", CellTags->"Links", CellID->521525586]}, "Tests"->{ Cell[61024, 1706, 767, 20, 70, "Subsection",ExpressionUUID->"6d8b837a-7404-4841-a284-8f75971d0681", CellTags->"Tests", CellID->74308299]}, "Author Notes"->{ Cell[76999, 2166, 127, 4, 70, "Section",ExpressionUUID->"e815897b-71a1-4314-ab03-4a260e9e752d", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[77675, 2185, 720, 19, 70, "Section",ExpressionUUID->"b1aafa4c-2a35-4ee1-9eeb-b0dc42c41c08", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 149988, 3585}, {"Description", 150121, 3588}, {"Definition", 150259, 3591}, {"Documentation", 150425, 3595}, {"Usage", 150587, 3599}, {"Details & Options", 150759, 3603}, {"TabNext", 150932, 3607}, {"Examples", 151800, 3626}, {"Source & Additional Information", 151987, 3630}, {"Contributed By", 152178, 3634}, {"Keywords", 152350, 3638}, {"Categories", 152518, 3642}, {"Related Symbols", 152692, 3646}, {"Related Resource Objects", 152881, 3650}, {"Source/Reference Citation", 153080, 3654}, {"Links", 153260, 3658}, {"Tests", 153420, 3662}, {"Author Notes", 153586, 3666}, {"Submission Notes", 153760, 3670} } *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 47, 1, 70, "Title",ExpressionUUID->"81cac464-da6b-4f59-b56a-89214c299feb", CellTags->"Title"], Cell[608, 23, 102, 1, 70, "Text",ExpressionUUID->"c42e737f-a234-400f-b756-e183074e1ed8", CellTags->"Description"], Cell[CellGroupData[{ Cell[735, 28, 887, 21, 70, "Section",ExpressionUUID->"59b4c761-17d0-4ce4-ac24-cb38627710d7", CellTags->"Definition", CellID->474513213], Cell[1625, 51, 18702, 438, 70, "Input",ExpressionUUID->"9727500b-a898-410f-a600-05694281c54c", InitializationCell->True, CellID->1953667466] }, Open ]], Cell[20342, 492, 99, 3, 70, "Section",ExpressionUUID->"41e6afb8-b34e-4767-bbcd-4c20aeafab7d", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[20466, 499, 1615, 42, 70, "Subsection",ExpressionUUID->"5ad28115-d8f0-420b-ac95-22d43006fce2", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[22106, 545, 167, 5, 70, "UsageInputs",ExpressionUUID->"0f6da117-bfd9-4414-9ec3-4f31b087db73"], Cell[22276, 552, 388, 14, 70, "UsageDescription",ExpressionUUID->"2380a72e-ee03-4853-832a-6edb1799747a"] }, Open ]], Cell[CellGroupData[{ Cell[22701, 571, 222, 7, 70, "UsageInputs",ExpressionUUID->"9e80a239-94af-45fa-9e32-ccf9972c42e5"], Cell[22926, 580, 486, 18, 70, "UsageDescription",ExpressionUUID->"1ca94258-e1df-4c85-a914-bfd698869182"] }, Open ]], Cell[CellGroupData[{ Cell[23449, 603, 134, 4, 70, "UsageInputs",ExpressionUUID->"7855af6a-0e1f-41c4-9870-aeaf36cf3e4e"], Cell[23586, 609, 197, 5, 70, "UsageDescription",ExpressionUUID->"629906fe-3091-42b0-8959-3af280f6e04c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23832, 620, 1131, 24, 70, "Subsection",ExpressionUUID->"f753962c-ddd2-400f-a376-2ba2c51c6f3a", CellTags->"Details & Options", CellID->66019318], Cell[24966, 646, 184, 6, 70, "Notes",ExpressionUUID->"db600007-6e20-4935-8d27-39a265ae011e", CellTags->"TabNext", CellID->521904482], Cell[25153, 654, 560, 18, 70, "Notes",ExpressionUUID->"1b0f4b60-34ac-4b1c-a594-aa1ac8f1ea66", CellID->653763454], Cell[25716, 674, 187, 5, 70, "Notes",ExpressionUUID->"3656d8e7-b46b-4553-8da7-ec52babdf74f", CellID->739469879], Cell[25906, 681, 875, 28, 70, "Notes",ExpressionUUID->"81dc18e0-d1eb-49a0-a704-b74777eaa543", CellID->113491436], Cell[26784, 711, 763, 26, 70, "Notes",ExpressionUUID->"82282194-82f3-42e9-af2c-56c53186d293", CellID->1679747497], Cell[27550, 739, 933, 31, 70, "Notes",ExpressionUUID->"521ca48c-9456-46fe-921e-41c6e216cc17", CellID->671776265] }, Open ]], Cell[CellGroupData[{ Cell[28520, 775, 6400, 143, 70, "Section",ExpressionUUID->"10965306-fb67-489c-94f7-5a73286cfa95", CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell[34945, 922, 56, 1, 70, "Subsection",ExpressionUUID->"e00cfcbd-0ca7-4f08-93fe-e9c2c3414680", CellID->462042388], Cell[35004, 925, 161, 2, 70, "Text",ExpressionUUID->"45287780-d2ef-4796-8c53-1359d892b549", CellID->13078159], Cell[CellGroupData[{ Cell[35190, 931, 230, 6, 70, "Input",ExpressionUUID->"8253e0f1-356d-41af-8ded-2c4b3a11a7e7", CellID->740111677], Cell[35423, 939, 202, 5, 70, "Output",ExpressionUUID->"2a3c3e9c-77dc-4852-a824-1de2412f8ffb", CellID->810988680] }, Open ]], Cell[CellGroupData[{ Cell[35662, 949, 358, 7, 70, "Input",ExpressionUUID->"664315de-6670-4ed6-ae59-ad9a001d53a8", CellID->443871870], Cell[36023, 958, 285, 7, 70, "Output",ExpressionUUID->"4e804f1e-00ac-457c-b68e-d5b4570bc164", CellID->1323154294] }, Open ]], Cell[36323, 968, 243, 7, 70, "Text",ExpressionUUID->"0bd68543-605e-44a8-bd6f-de9a7a2eedcf", CellID->1356375840], Cell[CellGroupData[{ Cell[36591, 979, 277, 7, 70, "Input",ExpressionUUID->"6f8cb79b-5058-4dc6-9f9f-a8e6dc4e4977", CellID->156335159], Cell[36871, 988, 210, 6, 70, "Output",ExpressionUUID->"6dd0fdab-ce34-4e25-85e8-b9a76cf539bd", CellID->2090413001] }, Open ]], Cell[CellGroupData[{ Cell[37118, 999, 290, 7, 70, "Input",ExpressionUUID->"9210969a-7431-47f4-965b-1e6dcc26044d", CellID->1319833340], Cell[37411, 1008, 208, 6, 70, "Output",ExpressionUUID->"74b50663-aa06-4ae2-a168-4ece6e4f77c7", CellID->1273999257] }, Open ]], Cell[CellGroupData[{ Cell[37656, 1019, 126, 3, 70, "ExampleDelimiter",ExpressionUUID->"77af888f-33f5-4aa1-90cc-675a1c9125b0", CellID->1612811933], Cell[37785, 1024, 236, 5, 70, "Text",ExpressionUUID->"de9cc3f3-56c9-453a-82e3-29fb838b04f5", CellID->21025064], Cell[CellGroupData[{ Cell[38046, 1033, 455, 13, 70, "Input",ExpressionUUID->"f292aad9-ea59-41c4-b61c-9d832829b5aa", CellID->893939115], Cell[38504, 1048, 307, 8, 70, "Output",ExpressionUUID->"c8aecd8a-8665-4301-a428-19bf115dff92", CellID->684219159] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[38860, 1062, 126, 3, 70, "ExampleDelimiter",ExpressionUUID->"0c4dbf49-d235-4f84-92dd-bde7e7f6dbc6", CellID->2138758954], Cell[38989, 1067, 315, 7, 70, "Text",ExpressionUUID->"ddcda4b6-0345-4d1d-ba8a-16ed38f0aaf0", CellID->1540456392], Cell[CellGroupData[{ Cell[39329, 1078, 296, 8, 70, "Input",ExpressionUUID->"08c8df2e-ad6c-4b22-abca-4abed44b4ff5", CellID->387732112], Cell[39628, 1088, 162, 5, 70, "Output",ExpressionUUID->"af42b7ac-e2dc-4a86-99c9-8c5b3224cedc", CellID->1389332748] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[39839, 1099, 126, 3, 70, "ExampleDelimiter",ExpressionUUID->"15bf8884-3dfc-4987-9409-e15c43e4e190", CellID->2080761255], Cell[39968, 1104, 241, 4, 70, "Text",ExpressionUUID->"ed082d0e-3a67-4e57-9bf4-022faf9d58e0", CellID->1370469257], Cell[CellGroupData[{ Cell[40234, 1112, 364, 9, 70, "Input",ExpressionUUID->"22b29861-d0dc-4398-84df-9705af522da8", CellID->1714688324], Cell[40601, 1123, 221, 6, 70, "Output",ExpressionUUID->"7c61954c-0f71-4f56-8f09-e9b265ec6615", CellID->375430277] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40871, 1135, 126, 3, 70, "ExampleDelimiter",ExpressionUUID->"132e6617-710f-4174-89d8-8ce636ada4b5", CellID->1218457270], Cell[41000, 1140, 980, 24, 70, "Text",ExpressionUUID->"c7283584-239a-4d83-af25-0d688df9b6e7", CellID->1184750148], Cell[CellGroupData[{ Cell[42005, 1168, 789, 18, 70, "Input",ExpressionUUID->"223a93bd-08c8-4a9b-9b00-31859258ab6c", CellID->627362452], Cell[42797, 1188, 552, 13, 70, "Output",ExpressionUUID->"d8a338fc-a343-44c6-b3ac-46426a1d5213", CellID->580798778] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[43410, 1208, 66, 2, 70, "Subsection",ExpressionUUID->"040d08b0-e4f4-473f-8387-b2d6b42696e3", CellID->964056545], Cell[43479, 1212, 272, 6, 70, "Text",ExpressionUUID->"3bf11a50-53a5-4121-ae76-440aa5326e82", CellID->649685796], Cell[CellGroupData[{ Cell[43776, 1222, 451, 12, 70, "Input",ExpressionUUID->"e10a15cc-f23f-4dec-83de-a1cd05bff903", CellID->836153427], Cell[44230, 1236, 255, 7, 70, "Output",ExpressionUUID->"20fddb09-2f64-4b95-b8d6-920f01604ae3", CellID->1819589888] }, Open ]], Cell[CellGroupData[{ Cell[44522, 1248, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"a8bf1c35-08fc-4e00-b36a-1223be174e22", CellID->120969034], Cell[44650, 1253, 710, 12, 70, "Text",ExpressionUUID->"290d1ebb-15b4-49a9-87e8-ca8670349f26", CellID->1866193009], Cell[45363, 1267, 375, 11, 70, "Input",ExpressionUUID->"3b20fb25-b387-4018-8360-f169ac8ae384", CellID->2099620590], Cell[CellGroupData[{ Cell[45763, 1282, 399, 9, 70, "Input",ExpressionUUID->"3e627278-790e-4a69-977b-8aa5cdc8c7b5", CellID->150796454], Cell[46165, 1293, 285, 7, 70, "Output",ExpressionUUID->"dcd82555-b8f1-4dbd-be9e-b7a383063d9b", CellID->703297226] }, Open ]], Cell[46465, 1303, 726, 10, 70, "Text",ExpressionUUID->"abcdf0ff-d164-4bb1-92be-8c3d1798f702", CellID->897995222], Cell[CellGroupData[{ Cell[47216, 1317, 419, 11, 70, "Input",ExpressionUUID->"613c9313-3d52-4405-8dff-ea5a7cf6466b", CellID->540387792], Cell[47638, 1330, 418, 14, 70, "Output",ExpressionUUID->"afd7565b-4fb3-4097-99ca-3560c4b76fdf", CellID->214482603] }, Open ]], Cell[48071, 1347, 920, 13, 70, "Text",ExpressionUUID->"cf2133c6-2c5d-4b22-8d2f-0190b3c7f7b2", CellID->656281043], Cell[CellGroupData[{ Cell[49016, 1364, 470, 11, 70, "Input",ExpressionUUID->"19fd4b31-628f-4dce-af3f-4dc4d9af95b0", CellID->219602606], Cell[49489, 1377, 354, 11, 70, "Output",ExpressionUUID->"410244d6-c3fb-416c-9893-8cdbb7947ee3", CellID->552190274] }, Open ]], Cell[49858, 1391, 892, 12, 70, "Text",ExpressionUUID->"49f26484-3dd2-4bd9-9e4a-7626de9dcabd", CellID->1739918505], Cell[CellGroupData[{ Cell[50775, 1407, 291, 7, 70, "Input",ExpressionUUID->"ab66f9f3-1e4f-4872-a7a4-66c0e2d984ff", CellID->1738969424], Cell[51069, 1416, 615, 17, 70, "Output",ExpressionUUID->"9f8ef502-3135-4662-939b-1c609be01746", CellID->1755711391] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[51733, 1439, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"0828cee5-05c2-4c57-b8bb-e31cf40b13ef", CellID->850928727], Cell[51861, 1444, 885, 15, 70, "Text",ExpressionUUID->"3b5a5d3e-1099-40f1-b014-5cffa955cf91", CellID->1129413077], Cell[CellGroupData[{ Cell[52771, 1463, 777, 17, 70, "Input",ExpressionUUID->"84fcfb09-2902-4eba-8948-de06df42defb", CellID->1598465632], Cell[53551, 1482, 1097, 23, 70, "Output",ExpressionUUID->"1353f894-a3f3-4d20-b3f4-e65550a7cf26", CellID->676474418] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[54721, 1513, 135, 3, 70, "Section",ExpressionUUID->"9d2b35cc-440f-4fb7-8657-9ed78f72b625", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[54881, 1520, 683, 18, 70, "Subsection",ExpressionUUID->"b24ef457-a92d-4211-883e-bf448eedbca3", CellTags->"Contributed By", CellID->127820888], Cell[55567, 1540, 29, 0, 70, "Text",ExpressionUUID->"052a20a6-54a4-4472-a5c7-b7ef77aad8a6"] }, Open ]], Cell[CellGroupData[{ Cell[55633, 1545, 684, 18, 70, "Subsection",ExpressionUUID->"f2ac0523-9b55-41bd-8e82-b00fd025432b", CellTags->"Keywords", CellID->547400482], Cell[56320, 1565, 33, 0, 70, "Item",ExpressionUUID->"a379e72b-ebf0-49df-9135-30dabcba238d"] }, Open ]], Cell[CellGroupData[{ Cell[56390, 1570, 126, 4, 70, "Subsection",ExpressionUUID->"fa543b7d-902b-4a4c-90e7-341a2354e875", CellTags->"Categories", CellID->749076926], Cell[56519, 1576, 44, 0, 70, "Item",ExpressionUUID->"b0e0c2f6-b13f-4697-8a41-6181e6794c39"] }, Open ]], Cell[CellGroupData[{ Cell[56600, 1581, 661, 18, 70, "Subsection",ExpressionUUID->"6a60b895-8400-4750-8ca8-6e2c78f2b03a", CellTags->"Related Symbols", CellID->161079978], Cell[57264, 1601, 27, 0, 70, "Item",ExpressionUUID->"9154e952-017c-4d2e-962b-17c34e315a04"] }, Open ]], Cell[CellGroupData[{ Cell[57328, 1606, 711, 18, 70, "Subsection",ExpressionUUID->"797c9929-e898-492d-837f-f44aa6e5a247", CellTags->"Related Resource Objects", CellID->588449267], Cell[58042, 1626, 508, 8, 70, "Item",ExpressionUUID->"9057283c-56b2-412f-9f71-8b29f9f738e5", CellTags->"TabNext", CellID->960273585] }, Open ]], Cell[CellGroupData[{ Cell[58587, 1639, 762, 19, 70, "Subsection",ExpressionUUID->"013d7650-9295-4930-b9f7-bcb32cc4f40f", CellTags->"Source/Reference Citation", CellID->642091068], Cell[59352, 1660, 496, 8, 70, "Text",ExpressionUUID->"9f96c69d-1613-4ad3-8e2a-8eb8d8967d32", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[59885, 1673, 614, 18, 70, "Subsection",ExpressionUUID->"495f6c55-9dd0-4fa1-9b8c-a36e7ff47f2f", CellTags->"Links", CellID->521525586], Cell[60502, 1693, 485, 8, 70, "Item",ExpressionUUID->"c263c768-7f86-42ca-a93b-6b8f74374e15", CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[61024, 1706, 767, 20, 70, "Subsection",ExpressionUUID->"6d8b837a-7404-4841-a284-8f75971d0681", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[61816, 1730, 505, 11, 70, "Input",ExpressionUUID->"dad123df-373e-4e61-963b-cea52cf6dc5b", CellID->2038522878], Cell[62324, 1743, 355, 9, 70, "Output",ExpressionUUID->"a4858005-9d30-479e-a6d7-241b00d30173", CellID->1500150612] }, Open ]], Cell[62694, 1755, 484, 12, 70, "Input",ExpressionUUID->"5271901b-4d24-4a7d-aaea-dad1271c2181", CellID->969291492], Cell[CellGroupData[{ Cell[63203, 1771, 421, 10, 70, "Input",ExpressionUUID->"425dc04a-1a06-40ce-934a-13d6256fa0e9", CellID->1983565182], Cell[63627, 1783, 916, 25, 70, "Output",ExpressionUUID->"8a9e6083-557a-4fb1-bd7c-dca6fd28713a", CellID->1435132291] }, Open ]], Cell[CellGroupData[{ Cell[64580, 1813, 395, 9, 70, "Input",ExpressionUUID->"e499e3b3-aadd-459f-a2ca-a86c637f6e81", CellID->1456159246], Cell[64978, 1824, 1558, 36, 70, "Output",ExpressionUUID->"068539f5-f4d3-4ce6-8396-ddb6339eb4df", CellID->143867478] }, Open ]], Cell[CellGroupData[{ Cell[66573, 1865, 193, 6, 70, "Input",ExpressionUUID->"665043ad-dc4c-4a32-aebb-8b95dc041174", CellID->757030487], Cell[66769, 1873, 180, 5, 70, "Output",ExpressionUUID->"c822d7f1-359a-4607-a16e-dbde08ef6231", CellID->88257096] }, Open ]], Cell[CellGroupData[{ Cell[66986, 1883, 634, 16, 70, "Input",ExpressionUUID->"8dd6e944-5c6d-413b-86e3-569e2112911c", CellID->1573320104], Cell[67623, 1901, 118, 3, 70, "Output",ExpressionUUID->"9cd6d0fb-6839-4e5b-9b67-41d2e1509c58", CellID->985862451] }, Open ]], Cell[CellGroupData[{ Cell[67778, 1909, 813, 22, 70, "Input",ExpressionUUID->"cc65989f-cb7e-496f-aa54-342fc04d4777", CellID->1798805856], Cell[68594, 1933, 383, 7, 70, "Output",ExpressionUUID->"cfad05d2-f500-447d-b1ba-eedd601294e9", CellID->835784622] }, Open ]], Cell[CellGroupData[{ Cell[69014, 1945, 603, 13, 70, "Input",ExpressionUUID->"27c1a525-ead5-408c-9e25-d683f41a27d8", CellID->411698726], Cell[69620, 1960, 305, 8, 70, "Output",ExpressionUUID->"5aa48cb7-9fe6-487b-b17e-461633f75fdd", CellID->903335557] }, Open ]], Cell[CellGroupData[{ Cell[69962, 1973, 1141, 28, 70, "Input",ExpressionUUID->"6acaa673-21dc-4069-b76e-d34b03e682e1", CellID->291354208], Cell[71106, 2003, 462, 9, 70, "Output",ExpressionUUID->"25d042c0-1f20-4757-b175-cd63cf43e0eb", CellID->1552467376] }, Open ]], Cell[CellGroupData[{ Cell[71605, 2017, 706, 14, 70, "Input",ExpressionUUID->"b9659b0c-b667-4676-8e70-bf2d762d2064", CellID->1541057407], Cell[72314, 2033, 167, 4, 70, "Output",ExpressionUUID->"fd3d47d6-6395-4ff2-8b8d-8450c62f6f5d", CellID->718858345] }, Open ]], Cell[CellGroupData[{ Cell[72518, 2042, 838, 18, 70, "Input",ExpressionUUID->"c8a08755-23c9-461a-8aea-c8c5770e607c", CellID->1697000658], Cell[73359, 2062, 172, 4, 70, "Output",ExpressionUUID->"7b2a5739-0b5f-4e3c-ba52-3f4659a72caf", CellID->609795582] }, Open ]], Cell[CellGroupData[{ Cell[73568, 2071, 823, 20, 70, "Input",ExpressionUUID->"fd48cba9-d4e3-4100-a659-877bdd27b012", CellID->2043397527], Cell[74394, 2093, 937, 17, 70, "Message",ExpressionUUID->"7f155066-26de-4aee-8c07-ee596cc3424f", CellID->823753465], Cell[75334, 2112, 343, 7, 70, "Output",ExpressionUUID->"94d4856b-6aae-4acf-a8ed-4947eb78557f", CellID->2144897693] }, Open ]], Cell[CellGroupData[{ Cell[75714, 2124, 596, 16, 70, "Input",ExpressionUUID->"65b8583e-d161-43a4-9b26-b7600fe77309", CellID->2122717129], Cell[76313, 2142, 506, 12, 70, "Message",ExpressionUUID->"4e8fc662-ddb4-49d3-9330-c75b3631f8f2", CellID->360959492], Cell[76822, 2156, 116, 3, 70, "Output",ExpressionUUID->"8c4e1ea2-7397-4346-8344-f2b35705e237", CellID->4879269] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[76999, 2166, 127, 4, 70, "Section",ExpressionUUID->"e815897b-71a1-4314-ab03-4a260e9e752d", CellTags->"Author Notes", CellID->795110225], Cell[77129, 2172, 509, 8, 70, "Text",ExpressionUUID->"ffa168b9-cca2-4776-9ffc-2d255bbccc93", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[77675, 2185, 720, 19, 70, "Section",ExpressionUUID->"b1aafa4c-2a35-4ee1-9eeb-b0dc42c41c08", CellTags->"Submission Notes", CellID->843283583], Cell[78398, 2206, 495, 8, 70, "Text",ExpressionUUID->"297f8f89-c66d-41d3-97c1-b1677154a4ef", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)