(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 82757, 2049] NotebookOptionsPosition[ 26288, 849] NotebookOutlinePosition[ 75903, 1886] CellTagsIndexPosition[ 75268, 1864] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["GeneralizedVariance", "Title", CellTags->"Title", CellID->1554413732], Cell["Find the determinant of the covariance matrix", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7589133230758133`*^9, 3.758913330371263*^9}, 3.759686576063793*^9}, CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name above. All definitions, including \ dependencies, will be included in the resource function when it is generated. \ Additional cells can be added and definitions can be given for multiple input \ cases.\n\nThis section should be evaluated before evaluating creating the \ Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->608264297], Cell[BoxData[ RowBox[{ RowBox[{"$optionDispatch", ":=", RowBox[{"$optionDispatch", "=", RowBox[{"Dispatch", "[", RowBox[{"{", RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{ RowBox[{"(", RowBox[{"r$", ":", RowBox[{"Rule", "|", "RuleDelayed"}]}], ")"}], "[", RowBox[{ RowBox[{"\"\\"", "|", RowBox[{"(", RowBox[{"symbol$_Symbol", "/;", RowBox[{ RowBox[{"SymbolName", "[", RowBox[{"Unevaluated", "[", "symbol$", "]"}], "]"}], "===", "\"\\""}]}], ")"}]}], ",", "v$_"}], "]"}], "]"}], "\[RuleDelayed]", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"sym$", "=", RowBox[{ "Symbol", "[", "\"\\"", "]"}]}], "}"}], ",", RowBox[{ RowBox[{"r$", "[", RowBox[{"sym$", ",", "v$"}], "]"}], "/;", "True"}]}], "]"}]}], "}"}], "]"}]}]}], ";"}]], "Input", InitializationCell->True, CellLabel->"In[65]:=", CellID->893027969], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"GeneralizedVariance", "[", "args___", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "$ContextPath", "}"}], ",", RowBox[{"Needs", "[", "\"\\"", "]"}]}], "]"}], ";", RowBox[{ RowBox[{ "Symbol", "[", "\"\\"", "]"}], "@@", RowBox[{"Replace", "[", RowBox[{ RowBox[{"HoldComplete", "[", "args", "]"}], ",", "$optionDispatch", ",", RowBox[{"{", "1", "}"}]}], "]"}]}]}], ")"}]}], ";"}]], "Input", InitializationCell->True, CellLabel->"In[61]:=", CellID->357866100], Cell[BoxData[ RowBox[{ RowBox[{"GeneralizedVariance", "/:", RowBox[{"HoldPattern", "[", RowBox[{"Options", "[", "GeneralizedVariance", "]"}], "]"}], ":=", RowBox[{"Replace", "[", RowBox[{ RowBox[{"ToExpression", "[", RowBox[{ "\"\\"", ",", "InputForm", ",", "HoldComplete"}], "]"}], ",", RowBox[{ RowBox[{"HoldComplete", "[", "sym_", "]"}], "\[RuleDelayed]", RowBox[{"Options", "[", "sym", "]"}]}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellLabel->"In[62]:=", CellID->1701331100], Cell[BoxData[ RowBox[{ RowBox[{"GeneralizedVariance", "/:", RowBox[{"HoldPattern", "[", RowBox[{"SetOptions", "[", RowBox[{"GeneralizedVariance", ",", "opts___"}], "]"}], "]"}], ":=", RowBox[{"Replace", "[", RowBox[{ RowBox[{"ToExpression", "[", RowBox[{ "\"\\"", ",", "InputForm", ",", "HoldComplete"}], "]"}], ",", RowBox[{ RowBox[{"HoldComplete", "[", "sym_", "]"}], "\[RuleDelayed]", RowBox[{"SetOptions", "[", RowBox[{"sym", ",", "opts"}], "]"}]}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellLabel->"In[63]:=", CellID->527037895], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Attributes", "[", "GeneralizedVariance", "]"}], "=", RowBox[{"{", "}"}]}], ";"}]], "Input", InitializationCell->True, CellLabel->"In[64]:=", CellID->1703341037] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ "Document every accepted input usage case. Use Enter to create new \ cases as needed.\n\nEach usage should contain a brief explanation saying what \ the function does for the given input structure.\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedVariance", "[", StyleBox["matrix", "TI"], "]"}]], "UsageInputs", CellID->2095794349], Cell[TextData[{ "gives the generalized variance for ", Cell[BoxData[ StyleBox["matrix", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->988845549] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used. Add multiple \ cells including tables and hyperlinks as needed. Typical information \ includes: acceptable inputs, result formats, options specifications, and \ background information.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->29639701], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ RowBox[{"GeneralizedVariance", "[", StyleBox["matrix", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " effectively gives the determinant of the covariance matrix for ", Cell[BoxData[ StyleBox["matrix", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->30205783], Cell[TextData[{ "For numeric ", Cell[BoxData[ StyleBox["matrix", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ RowBox[{"GeneralizedVariance", "[", StyleBox["matrix", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is equal to ", Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Apply", "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/Apply"], MouseAppearanceTag["LinkHand"]], "[", RowBox[{ TagBox[ ButtonBox[ StyleBox["Times", "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/Times"], MouseAppearanceTag["LinkHand"]], ",", RowBox[{ TagBox[ ButtonBox[ StyleBox["Variance", "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/Variance"], MouseAppearanceTag["LinkHand"]], "[", RowBox[{ TagBox[ ButtonBox[ StyleBox["PrincipalComponents", "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/PrincipalComponents"], MouseAppearanceTag["LinkHand"]], "[", StyleBox["matrix", "TI"], "]"}], "]"}]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellChangeTimes->{{3.75968610945685*^9, 3.759686128864113*^9}}, CellID->575202366] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ "Demonstrate how to use the function. Examples should start with the \ most basic use case. Each example should be described using text cells. Use \ \"Subsection\" and \"Subsubsection\" cells to group examples as needed.\n\n\ Example groups can optionally be delimited by inserting page breaks between \ them (affects example count on documentation page).\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->847663398], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->151197910], Cell["Generalized variance of real-valued bivariate data:", "ExampleText", CellBracketOptions->{"Color"->RGBColor[0.269993, 0.308507, 0.6]}, CellChangeTimes->{{3.758913179864956*^9, 3.7589131833294497`*^9}, { 3.758913351338683*^9, 3.758913356409566*^9}}, ShowAutoStyles->False, ParagraphSpacing->{0, 6}, ScriptMinSize->9, CellID->9742], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"GeneralizedVariance", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"e", ",", "f"}], "}"}]}], "}"}], "]"}], "//", "ComplexExpand"}]], "Input", CellChangeTimes->{{3.75891316796482*^9, 3.7589131688342247`*^9}}, CellLabel->"In[68]:=", CellID->19771377], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"]}], "12"], "-", RowBox[{ FractionBox["1", "6"], " ", "a", " ", "b", " ", "c", " ", "d"}], "+", FractionBox[ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["d", "2"]}], "12"], "-", RowBox[{ FractionBox["1", "6"], " ", SuperscriptBox["b", "2"], " ", "c", " ", "e"}], "+", RowBox[{ FractionBox["1", "6"], " ", "a", " ", "b", " ", "d", " ", "e"}], "+", RowBox[{ FractionBox["1", "6"], " ", "b", " ", "c", " ", "d", " ", "e"}], "-", RowBox[{ FractionBox["1", "6"], " ", "a", " ", SuperscriptBox["d", "2"], " ", "e"}], "+", FractionBox[ RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["e", "2"]}], "12"], "-", RowBox[{ FractionBox["1", "6"], " ", "b", " ", "d", " ", SuperscriptBox["e", "2"]}], "+", FractionBox[ RowBox[{ SuperscriptBox["d", "2"], " ", SuperscriptBox["e", "2"]}], "12"], "+", RowBox[{ FractionBox["1", "6"], " ", "a", " ", "b", " ", "c", " ", "f"}], "-", RowBox[{ FractionBox["1", "6"], " ", "b", " ", SuperscriptBox["c", "2"], " ", "f"}], "-", RowBox[{ FractionBox["1", "6"], " ", SuperscriptBox["a", "2"], " ", "d", " ", "f"}], "+", RowBox[{ FractionBox["1", "6"], " ", "a", " ", "c", " ", "d", " ", "f"}], "-", RowBox[{ FractionBox["1", "6"], " ", "a", " ", "b", " ", "e", " ", "f"}], "+", RowBox[{ FractionBox["1", "6"], " ", "b", " ", "c", " ", "e", " ", "f"}], "+", RowBox[{ FractionBox["1", "6"], " ", "a", " ", "d", " ", "e", " ", "f"}], "-", RowBox[{ FractionBox["1", "6"], " ", "c", " ", "d", " ", "e", " ", "f"}], "+", FractionBox[ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["f", "2"]}], "12"], "-", RowBox[{ FractionBox["1", "6"], " ", "a", " ", "c", " ", SuperscriptBox["f", "2"]}], "+", FractionBox[ RowBox[{ SuperscriptBox["c", "2"], " ", SuperscriptBox["f", "2"]}], "12"]}]], "Output", CellChangeTimes->{3.7589130024457293`*^9, 3.758913170269556*^9}, ImageSize->{625, 69}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, CellLabel->"Out[68]=", CellID->537607397] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties & Relations", "Subsection", CellID->710118969], Cell["\<\ Generalized variance is equivalent to the determinant of the covariance \ matrix:\ \>", "ExampleText", CellBracketOptions->{"Color"->RGBColor[0.269993, 0.308507, 0.6]}, ShowAutoStyles->False, ParagraphSpacing->{0, 6}, ScriptMinSize->9, CellID->143789359], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"GeneralizedVariance", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}]}], "}"}], "]"}], "\[Equal]", RowBox[{"Det", "[", RowBox[{"Covariance", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}]}], "}"}], "]"}], "]"}]}]], "Input", CellLabel->"In[69]:=", CellID->10528200], Cell[BoxData["True"], "Output", CellChangeTimes->{3.758913202824779*^9}, ImageSize->{33, 16}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, CellLabel->"Out[69]=", CellID->911860511] }, Open ]], Cell["\<\ Generalized variance is equal to the product of the principal component \ variances:\ \>", "ExampleText", CellBracketOptions->{"Color"->RGBColor[0.269993, 0.308507, 0.6]}, ShowAutoStyles->False, ParagraphSpacing->{0, 6}, ScriptMinSize->9, CellID->454163553], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"GeneralizedVariance", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}]}], "}"}], "]"}], "==", RowBox[{"Apply", "[", RowBox[{"Times", ",", RowBox[{"Variance", "[", RowBox[{"PrincipalComponents", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}]}], "}"}], "]"}], "]"}]}], "]"}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.7589132224495564`*^9, 3.758913225055601*^9}}, CellLabel->"In[71]:=", CellID->676513535], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.758913205581951*^9, 3.7589132260237217`*^9}}, ImageSize->{33, 16}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, CellLabel->"Out[71]=", CellID->1677485815] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Deletable->False, CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By",Cell[ BoxData[ FrameBox[ Cell[ "Name of the person, people or organization that should be publicly \ credited with contributing the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->757508554], Cell["Wolfram Research", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.758913260222101*^9, 3.758913264406011*^9}}, CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms that should be used to include this resource in \ search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell["generalized variance", "Item", CellChangeTimes->{{3.758913419131941*^9, 3.7589134358405743`*^9}}, CellID->1402885604], Cell["covariance matrix", "Item", CellChangeTimes->{{3.758913419131941*^9, 3.758913436847234*^9}}, CellID->838227795], Cell["principal component s", "Item", CellChangeTimes->{{3.758913420017565*^9, 3.7589134524062853`*^9}}, CellID->1150108068], Cell["principal component variances", "Item", CellChangeTimes->{{3.758913420017565*^9, 3.758913442486178*^9}}, CellID->1629192774] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List related Wolfram Language symbols. Include up to twenty \ documented, system-level symbols.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellID->911170439], Cell["Variance", "Item", CellID->1075386015] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "Names of published resource objects from any Wolfram repository that \ are related to this resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->217060377], Cell["TotalVariation", "Item", CellID->790380953] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Citation for original source of the function or its components. For \ example, original publication of an algorithm or public code repository.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->967310595], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "URLs or hyperlinks for external information related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellID->593846556], Cell[CellGroupData[{ Cell[TextData[ButtonBox["Tutorial: Multivariate Statistics Package", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/MultivariateStatistics/\ tutorial/MultivariateStatistics"], None}, ButtonNote-> "https://reference.wolfram.com/language/MultivariateStatistics/tutorial/\ MultivariateStatistics"]], "Item", CellID->1746320376], Cell[TextData[ButtonBox["Guide: Multivariate Statistics Package", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/MultivariateStatistics/guide/\ MultivariateStatisticsPackage"], None}, ButtonNote-> "https://reference.wolfram.com/language/MultivariateStatistics/guide/\ MultivariateStatisticsPackage"]], "Item", CellID->747555883] }, Open ]] }, Open ]], Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Optional list of tests that can be used to verify that the function \ is working properly in any environment.\nTests can be specified as \ Input/Output cell pairs or as literal VerificationTest expressions if you \ need to specify options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->16051757] }, Closed]], Cell["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], 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[TextData[{ "Auto generated from ", ButtonBox["GeneralizedVariance", BaseStyle->"Link", ButtonData->"paclet:MultivariateStatistics/ref/GeneralizedVariance"], ", with minor edits." }], "Text", CellChangeTimes->{{3.758913239335248*^9, 3.7589132440867443`*^9}}, CellID->1392390631] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.10"}, CreateCellID->True, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { Background -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ "\"Function Resource Definition Notebook\"", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 26, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet]\"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Open Sample Notebook\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"View a completed sample definition notebook.\"", LabelStyle -> "TextStyling"], Annotation[#, "View a completed sample definition notebook.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`\ viewExampleNotebook[]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Style Guidelines\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ MessageDialog["Coming soon"]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Preview\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"In a notebook\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Preview"]), "\"On the cloud\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"])}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Deploy\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"Locally on this computer\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Local"]), "\"For my cloud account\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"]), "\"Publicly in the cloud\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "CloudPublic"]), "\"In this session only (without documentation)\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "KernelSession"])}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm]], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Submit to Repository\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"Submit your function to the Wolfram Function Repository.\"", LabelStyle -> "TextStyling"], Annotation[#, "Submit your function to the Wolfram Function Repository.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], 2 -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {}, 5}, "Rows" -> {2, 2, {}, 2}}, FrameStyle -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`]], "Grid"]], "DockedCell", CellFrameMargins -> -1]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 1, 0]], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.5, 0.5, 0.5, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TagBox[ TooltipBox[ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"More info\"", LabelStyle -> "TextStyling"], Annotation[#, "More info", "Tooltip"]& ], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["Text"], ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None]}, Visible -> False, FrontEndVersion -> "11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[580, 22, 77, 2, 70, "Title",ExpressionUUID->"12d91aa0-cd93-4d87-9cda-07639fa0d3fb", CellTags->"Title", CellID->1554413732]}, "Description"->{ Cell[660, 26, 611, 10, 70, "Text",ExpressionUUID->"72523aee-0dca-4959-98d3-78ce23758789", CellTags->{"Description", "TabNext"}, CellID->450900334]}, "TabNext"->{ Cell[660, 26, 611, 10, 70, "Text",ExpressionUUID->"72523aee-0dca-4959-98d3-78ce23758789", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[18306, 600, 537, 9, 70, "Text",ExpressionUUID->"64f85f40-18ba-4bc8-8124-e6a738d97344", CellTags->"TabNext", CellID->832483124], Cell[22387, 729, 496, 8, 70, "Text",ExpressionUUID->"cc58ff8e-ed60-4d22-99ef-921749a36c96", CellTags->"TabNext", CellID->343081869]}, "Definition"->{ Cell[1296, 40, 877, 21, 70, "Section",ExpressionUUID->"0b726c7f-07de-41fb-8d15-30d548ff7475", CellTags->"Definition", CellID->608264297]}, "Documentation"->{ Cell[5591, 173, 99, 3, 70, "Section",ExpressionUUID->"52d44230-b3c2-444f-8157-ef2481b8b861", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[5715, 180, 783, 20, 70, "Subsection",ExpressionUUID->"b69824ae-7483-49f2-a0d7-a4e4d2067931", CellTags->"Usage", CellID->694807545]}, "Details & Options"->{ Cell[6897, 222, 814, 20, 70, "Subsection",ExpressionUUID->"f276613c-fcd7-491e-8778-7fd722003d18", CellTags->"Details & Options", CellID->29639701]}, "Examples"->{ Cell[10409, 335, 913, 21, 70, "Section",ExpressionUUID->"43d54cb7-313d-4e07-95b5-af00296cdd0d", CellTags->"Examples", CellID->847663398]}, "Source & Additional Information"->{ Cell[17471, 573, 135, 3, 70, "Section",ExpressionUUID->"1aa0af01-5052-4720-a0e8-f3ed5ecf7a0c", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[17631, 580, 672, 18, 70, "Subsection",ExpressionUUID->"b38ca016-7a28-46ab-82ee-e7b07abf898b", CellTags->"Contributed By", CellID->757508554]}, "Keywords"->{ Cell[18880, 614, 625, 18, 70, "Subsection",ExpressionUUID->"27a0780b-b99a-4022-bf67-6cfc999878d5", CellTags->"Keywords", CellID->246422893]}, "Related Symbols"->{ Cell[20090, 656, 662, 18, 70, "Subsection",ExpressionUUID->"ca8bead6-932e-45c6-b7e8-437305f0e479", CellTags->"Related Symbols", CellID->911170439]}, "Related Resource Objects"->{ Cell[20837, 682, 702, 18, 70, "Subsection",ExpressionUUID->"75e060a9-ab89-457e-af5c-21a3c5984a3f", CellTags->"Related Resource Objects", CellID->217060377]}, "Source/Reference Citation"->{ Cell[21629, 708, 755, 19, 70, "Subsection",ExpressionUUID->"310c7b3b-7027-4ebe-ba13-d266edfb9d7d", CellTags->"Source/Reference Citation", CellID->967310595]}, "Links"->{ Cell[22920, 742, 597, 17, 70, "Subsection",ExpressionUUID->"16e7ba96-cdba-4c8b-abb5-0dc52372ffdb", CellTags->"Links", CellID->593846556]}, "Tests"->{ Cell[24312, 785, 767, 20, 70, "Subsection",ExpressionUUID->"7a5c55e9-f1ae-40da-8137-608652d52766", CellTags->"Tests", CellID->16051757]}, "Author Notes"->{ Cell[25094, 808, 127, 4, 70, "Section",ExpressionUUID->"b1d94742-274a-4e14-89eb-55d2691c88fe", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[25246, 816, 720, 19, 70, "Section",ExpressionUUID->"c13e80f6-6d01-4d55-a510-e185d946e642", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 71857, 1783}, {"Description", 72013, 1787}, {"TabNext", 72184, 1791}, {"Definition", 72640, 1801}, {"Documentation", 72807, 1805}, {"Usage", 72968, 1809}, {"Details & Options", 73138, 1813}, {"Examples", 73310, 1817}, {"Source & Additional Information", 73495, 1821}, {"Contributed By", 73685, 1825}, {"Keywords", 73856, 1829}, {"Related Symbols", 74028, 1833}, {"Related Resource Objects", 74216, 1837}, {"Source/Reference Citation", 74414, 1841}, {"Links", 74593, 1845}, {"Tests", 74752, 1849}, {"Author Notes", 74917, 1853}, {"Submission Notes", 75090, 1857} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 77, 2, 70, "Title",ExpressionUUID->"12d91aa0-cd93-4d87-9cda-07639fa0d3fb", CellTags->"Title", CellID->1554413732], Cell[660, 26, 611, 10, 70, "Text",ExpressionUUID->"72523aee-0dca-4959-98d3-78ce23758789", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[1296, 40, 877, 21, 70, "Section",ExpressionUUID->"0b726c7f-07de-41fb-8d15-30d548ff7475", CellTags->"Definition", CellID->608264297], Cell[2176, 63, 1146, 34, 70, "Input",ExpressionUUID->"1588b225-4d63-4da2-825f-87b21f5a574d", InitializationCell->True, CellID->893027969], Cell[3325, 99, 720, 22, 70, "Input",ExpressionUUID->"40c34124-4625-4e5b-8abb-e5edda563c26", InitializationCell->True, CellID->357866100], Cell[4048, 123, 609, 16, 70, "Input",ExpressionUUID->"836a181b-472b-4e8f-9328-5a340698a0ad", InitializationCell->True, CellID->1701331100], Cell[4660, 141, 677, 18, 70, "Input",ExpressionUUID->"59c4f6b0-a990-4f1a-ae39-8e7d2651c246", InitializationCell->True, CellID->527037895], Cell[5340, 161, 214, 7, 70, "Input",ExpressionUUID->"d77d237c-0d27-496c-80c1-624ee132ee9f", InitializationCell->True, CellID->1703341037] }, Open ]], Cell[CellGroupData[{ Cell[5591, 173, 99, 3, 70, "Section",ExpressionUUID->"52d44230-b3c2-444f-8157-ef2481b8b861", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[5715, 180, 783, 20, 70, "Subsection",ExpressionUUID->"b69824ae-7483-49f2-a0d7-a4e4d2067931", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[6523, 204, 123, 3, 70, "UsageInputs",ExpressionUUID->"91a2e13a-93a0-40b5-b63c-3d4946e85340", CellID->2095794349], Cell[6649, 209, 199, 7, 70, "UsageDescription",ExpressionUUID->"baf0323c-cb9e-4448-b94a-ca1ddd83f42e", CellID->988845549] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6897, 222, 814, 20, 70, "Subsection",ExpressionUUID->"f276613c-fcd7-491e-8778-7fd722003d18", CellTags->"Details & Options", CellID->29639701], Cell[CellGroupData[{ Cell[7736, 246, 358, 11, 70, "Notes",ExpressionUUID->"cf7a7d0b-adb5-4c88-a12a-1152b4f9f86a", CellID->30205783], Cell[8097, 259, 2251, 69, 70, "Notes",ExpressionUUID->"f278753e-96f0-4552-b06a-1ce51a5bc04a", CellID->575202366] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10409, 335, 913, 21, 70, "Section",ExpressionUUID->"43d54cb7-313d-4e07-95b5-af00296cdd0d", CellTags->"Examples", CellID->847663398], Cell[CellGroupData[{ Cell[11347, 360, 56, 1, 70, "Subsection",ExpressionUUID->"ee972d20-809a-4786-baaf-a873b5fc7880", CellID->151197910], Cell[11406, 363, 343, 7, 70, "ExampleText",ExpressionUUID->"527d99c5-1b07-4807-a290-aaad8466b8b3", CellID->9742], Cell[CellGroupData[{ Cell[11774, 374, 439, 14, 70, "Input",ExpressionUUID->"ffd7557d-ea8b-4bc8-917c-58224952205c", CellID->19771377], Cell[12216, 390, 2241, 67, 70, "Output",ExpressionUUID->"bca7526e-3fa5-47e9-8bb0-a92738932696", CellID->537607397] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14506, 463, 64, 1, 70, "Subsection",ExpressionUUID->"b36b034b-39f3-48a6-8a73-65d26cb3e880", CellID->710118969], Cell[14573, 466, 269, 8, 70, "ExampleText",ExpressionUUID->"d18e7890-e396-49db-98e5-3f75bf4b3413", CellID->143789359], Cell[CellGroupData[{ Cell[14867, 478, 785, 26, 70, "Input",ExpressionUUID->"c7e55caf-1e6c-4209-8c66-317494582530", CellID->10528200], Cell[15655, 506, 204, 6, 70, "Output",ExpressionUUID->"ed2cda75-0ef9-4631-867b-a31a7dad0ec3", CellID->911860511] }, Open ]], Cell[15874, 515, 272, 8, 70, "ExampleText",ExpressionUUID->"ad55e682-bd77-4ee8-b6d9-0002dd616e5e", CellID->454163553], Cell[CellGroupData[{ Cell[16171, 527, 1005, 31, 70, "Input",ExpressionUUID->"73ca9571-5864-4eac-8992-7c0ff2526a64", CellID->676513535], Cell[17179, 560, 231, 6, 70, "Output",ExpressionUUID->"cd25d76e-e2ae-41b9-abb9-c77598f1b81c", CellID->1677485815] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17471, 573, 135, 3, 70, "Section",ExpressionUUID->"1aa0af01-5052-4720-a0e8-f3ed5ecf7a0c", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[17631, 580, 672, 18, 70, "Subsection",ExpressionUUID->"b38ca016-7a28-46ab-82ee-e7b07abf898b", CellTags->"Contributed By", CellID->757508554], Cell[18306, 600, 537, 9, 70, "Text",ExpressionUUID->"64f85f40-18ba-4bc8-8124-e6a738d97344", CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[18880, 614, 625, 18, 70, "Subsection",ExpressionUUID->"27a0780b-b99a-4022-bf67-6cfc999878d5", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell[19530, 636, 125, 2, 70, "Item",ExpressionUUID->"bcd22efe-2c23-4384-90e3-fd22b1011d62", CellID->1402885604], Cell[19658, 640, 119, 2, 70, "Item",ExpressionUUID->"9d1b5af7-8602-4b60-8bd4-6c8a1d4a81e1", CellID->838227795], Cell[19780, 644, 126, 2, 70, "Item",ExpressionUUID->"951775d8-59c9-4f63-95fe-a1ffbf0d91f1", CellID->1150108068], Cell[19909, 648, 132, 2, 70, "Item",ExpressionUUID->"e58cda8e-72fa-4193-b26f-ac3264380260", CellID->1629192774] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20090, 656, 662, 18, 70, "Subsection",ExpressionUUID->"ca8bead6-932e-45c6-b7e8-437305f0e479", CellTags->"Related Symbols", CellID->911170439], Cell[20755, 676, 45, 1, 70, "Item",ExpressionUUID->"9dddcc49-4a2f-4cec-982f-74c7988ee245", CellID->1075386015] }, Open ]], Cell[CellGroupData[{ Cell[20837, 682, 702, 18, 70, "Subsection",ExpressionUUID->"75e060a9-ab89-457e-af5c-21a3c5984a3f", CellTags->"Related Resource Objects", CellID->217060377], Cell[21542, 702, 50, 1, 70, "Item",ExpressionUUID->"af63a2f4-1074-40c6-8ec7-e7d8b1098295", CellID->790380953] }, Open ]], Cell[CellGroupData[{ Cell[21629, 708, 755, 19, 70, "Subsection",ExpressionUUID->"310c7b3b-7027-4ebe-ba13-d266edfb9d7d", CellTags->"Source/Reference Citation", CellID->967310595], Cell[22387, 729, 496, 8, 70, "Text",ExpressionUUID->"cc58ff8e-ed60-4d22-99ef-921749a36c96", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[22920, 742, 597, 17, 70, "Subsection",ExpressionUUID->"16e7ba96-cdba-4c8b-abb5-0dc52372ffdb", CellTags->"Links", CellID->593846556], Cell[CellGroupData[{ Cell[23542, 763, 368, 8, 70, "Item",ExpressionUUID->"55f9061a-1247-492b-b461-4e25b1d6e07e", CellID->1746320376], Cell[23913, 773, 372, 8, 70, "Item",ExpressionUUID->"4380e621-943b-44a3-b4bf-e5cd833b26ad", CellID->747555883] }, Open ]] }, Open ]], Cell[24312, 785, 767, 20, 70, "Subsection",ExpressionUUID->"7a5c55e9-f1ae-40da-8137-608652d52766", CellTags->"Tests", CellID->16051757] }, Closed]], Cell[25094, 808, 127, 4, 70, "Section",ExpressionUUID->"b1d94742-274a-4e14-89eb-55d2691c88fe", CellTags->"Author Notes", CellID->795110225], Cell[CellGroupData[{ Cell[25246, 816, 720, 19, 70, "Section",ExpressionUUID->"c13e80f6-6d01-4d55-a510-e185d946e642", CellTags->"Submission Notes", CellID->843283583], Cell[25969, 837, 291, 8, 70, "Text",ExpressionUUID->"a045f16a-51c3-435e-bdee-d09aca26fcfd", CellID->1392390631] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)