(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 24746, 684] NotebookOptionsPosition[ 21545, 599] NotebookOutlinePosition[ 23305, 651] CellTagsIndexPosition[ 23262, 648] WindowTitle->DuplicatesList | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell[TextData[{ "Find the duplicates in a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["List", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/List", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.770135471536968*^9, 3.7701354806259685`*^9}, { 3.855161859572822*^9, 3.85516186829251*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DuplicatesList", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DuplicatesList", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/DuplicatesList"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "DuplicatesList"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["DuplicatesList"], BoxID -> "DuplicatesList", Selectable->False], "[", RowBox[{"{", RowBox[{"x", ",", "y", ",", "x", ",", "z", ",", "y", ",", "w"}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.767701206384705*^9, 3.7677012284568853`*^9}}, CellLabel->"In[16]:=", CellID->443871870], Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7677012336334953`*^9}, CellLabel->"Out[16]=", CellID->1910756151] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Properties and Relations", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->754506620], Cell[TextData[{ Cell[BoxData[ RowBox[{ StyleBox["DuplicatesList", "InlineResourceFunction"], "[", StyleBox["list", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is equivalent to ", Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Map", "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/Map", ContentPadding->False], MouseAppearanceTag["LinkHand"]], "[", RowBox[{ TagBox[ ButtonBox[ StyleBox["First", "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/First", ContentPadding->False], MouseAppearanceTag["LinkHand"]], ",", RowBox[{ TagBox[ ButtonBox[ StyleBox["DeleteCases", "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/DeleteCases", ContentPadding->False], MouseAppearanceTag["LinkHand"]], "[", RowBox[{ RowBox[{ TagBox[ ButtonBox[ StyleBox["Gather", "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/Gather", ContentPadding->False], MouseAppearanceTag["LinkHand"]], "[", StyleBox["list", "TI"], "]"}], ",", RowBox[{"{", "_", "}"}]}], "]"}]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"] }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7677012955297832`*^9, 3.767701356825281*^9}}, CellID->499231863], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"list", " ", "=", " ", RowBox[{"RandomInteger", "[", RowBox[{"20", ",", " ", "100"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{3.855161979168908*^9}, CellLabel->"In[79]:=", CellID->74565821], Cell[BoxData[ RowBox[{"{", RowBox[{ "3", ",", "9", ",", "11", ",", "1", ",", "16", ",", "5", ",", "18", ",", "3", ",", "20", ",", "17", ",", "3", ",", "1", ",", "14", ",", "18", ",", "8", ",", "20", ",", "4", ",", "1", ",", "5", ",", "8", ",", "14", ",", "8", ",", "20", ",", "13", ",", "16", ",", "2", ",", "18", ",", "8", ",", "13", ",", "19", ",", "20", ",", "18", ",", "16", ",", "1", ",", "8", ",", "15", ",", "8", ",", "17", ",", "13", ",", "6", ",", "19", ",", "0", ",", "18", ",", "12", ",", "3", ",", "6", ",", "10", ",", "0", ",", "13", ",", "4", ",", "10", ",", "0", ",", "3", ",", "14", ",", "1", ",", "20", ",", "19", ",", "3", ",", "8", ",", "3", ",", "8", ",", "18", ",", "15", ",", "6", ",", "15", ",", "7", ",", "1", ",", "16", ",", "5", ",", "16", ",", "17", ",", "11", ",", "16", ",", "2", ",", "19", ",", "17", ",", "10", ",", "14", ",", "19", ",", "1", ",", "5", ",", "9", ",", "12", ",", "15", ",", "15", ",", "13", ",", "9", ",", "5", ",", "0", ",", "15", ",", "10", ",", "17", ",", "6", ",", "16", ",", "0", ",", "18", ",", "20", ",", "18", ",", "3", ",", "17"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.855161979997555*^9}, CellLabel->"Out[79]=", CellID->434405905] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DuplicatesList", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["DuplicatesList", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/DuplicatesList"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "DuplicatesList"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["DuplicatesList"], BoxID -> "DuplicatesList", Selectable->False], "[", "list", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.767701404781487*^9, 3.767701409995076*^9}}, CellLabel->"In[83]:=", CellID->426859475], Cell[BoxData[ RowBox[{"{", RowBox[{ "3", ",", "9", ",", "11", ",", "1", ",", "16", ",", "5", ",", "18", ",", "20", ",", "17", ",", "14", ",", "8", ",", "4", ",", "13", ",", "2", ",", "19", ",", "15", ",", "6", ",", "0", ",", "12", ",", "10"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.767701410620153*^9, 3.767701909716238*^9, {3.855161981844056*^9, 3.8551619938048973`*^9}}, CellLabel->"Out[83]=", CellID->1062827699] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"First", ",", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Gather", "[", "list", "]"}], ",", RowBox[{"{", "_", "}"}]}], "]"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.767701433355343*^9, 3.767701434115898*^9}}, CellLabel->"In[84]:=", CellID->687223667], Cell[BoxData[ RowBox[{"{", RowBox[{ "3", ",", "9", ",", "11", ",", "1", ",", "16", ",", "5", ",", "18", ",", "20", ",", "17", ",", "14", ",", "8", ",", "4", ",", "13", ",", "2", ",", "19", ",", "15", ",", "6", ",", "0", ",", "12", ",", "10"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.767701436569912*^9, 3.767701911304051*^9, 3.855161995805135*^9}, CellLabel->"Out[84]=", CellID->2020139572] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"DuplicatesList | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[627, 23, 168, 7, 70, "Subsection",ExpressionUUID->"858713ab-1902-4548-874d-cebcdff872c5", CellID->462042388], Cell[798, 32, 671, 21, 70, "Text",ExpressionUUID->"c2be3e33-a6da-4755-bd9a-128138204fbc", CellID->13078159], Cell[CellGroupData[{ Cell[1494, 57, 7251, 183, 70, "Input",ExpressionUUID->"7edbee19-1616-44ad-807a-2ade28f7b942", CellID->443871870], Cell[8748, 242, 181, 6, 70, "Output",ExpressionUUID->"d1b08eb2-3d65-4c3d-9d4c-177dddd217eb", CellID->1910756151] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8978, 254, 178, 7, 70, "Subsection",ExpressionUUID->"7e045472-0060-4624-92a2-eefdc4934f5f", CellID->754506620], Cell[9159, 263, 2345, 71, 70, "Text",ExpressionUUID->"057da450-fd55-432d-bb90-c7b514cdad9a", CellID->499231863], Cell[CellGroupData[{ Cell[11529, 338, 238, 7, 70, "Input",ExpressionUUID->"da762e97-cfeb-4939-968d-1c327029765a", CellID->74565821], Cell[11770, 347, 1272, 21, 70, "Output",ExpressionUUID->"796f8571-37e3-4d52-8066-71c7a0be1e09", CellID->434405905] }, Open ]], Cell[CellGroupData[{ Cell[13079, 373, 7162, 180, 70, "Input",ExpressionUUID->"33031111-2c1d-4728-85a3-29a381e32f24", CellID->426859475], Cell[20244, 555, 461, 12, 70, "Output",ExpressionUUID->"2584eda9-ad56-40b8-868a-2f48c0d1db55", CellID->1062827699] }, Open ]], Cell[CellGroupData[{ Cell[20742, 572, 341, 10, 70, "Input",ExpressionUUID->"00e64883-8429-4a39-951c-1bbc66a0827c", CellID->687223667], Cell[21086, 584, 431, 11, 70, "Output",ExpressionUUID->"17920d02-1051-416c-a23f-84e858bee8b5", CellID->2020139572] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)