(* 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[ 34842, 882] NotebookOptionsPosition[ 31630, 797] NotebookOutlinePosition[ 33385, 849] CellTagsIndexPosition[ 33342, 846] WindowTitle->Composite | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["The first 20 composites:", "Text", TaggingRules->{}, CellChangeTimes->{{3.770741162914106*^9, 3.770741167320698*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ 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["Composite", "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["Composite", "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/Composite"}, "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], "Composite"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Composite"], BoxID -> "Composite", Selectable->False], "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "20"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7707411579691353`*^9, 3.770741177911326*^9}}, CellLabel->"In[1]:=", CellID->443871870], Cell[BoxData[ RowBox[{"{", RowBox[{ "4", ",", "6", ",", "8", ",", "9", ",", "10", ",", "12", ",", "14", ",", "15", ",", "16", ",", "18", ",", "20", ",", "21", ",", "22", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ",", "30", ",", "32"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.770741178913073*^9, {3.7719549179000673`*^9, 3.771954931202785*^9}}, CellLabel->"Out[1]=", CellID->489301331] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1958530187], Cell["The billionth composite:", "Text", TaggingRules->{}, CellChangeTimes->{{3.770741201140136*^9, 3.7707412054234667`*^9}}, CellID->174117347], 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["Composite", "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["Composite", "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/Composite"}, "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], "Composite"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Composite"], BoxID -> "Composite", Selectable->False], "[", RowBox[{"10", "^", "9"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.770741209419482*^9, 3.7707412105220613`*^9}}, CellLabel->"In[1]:=", CellID->2052777647], Cell[BoxData["1053422339"], "Output", TaggingRules->{}, CellChangeTimes->{3.770741210892373*^9, 3.7719549351397047`*^9}, CellLabel->"Out[1]=", CellID->1848368380] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1112719023], Cell["Plot the sequence:", "Text", TaggingRules->{}, CellChangeTimes->{{3.77074123463463*^9, 3.770741238111889*^9}}, CellID->1826124398], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiscretePlot", "[", RowBox[{ 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["Composite", "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["Composite", "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/Composite"}, "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], "Composite"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["Composite"], BoxID -> "Composite", Selectable->False], "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "100"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.770741240284143*^9, 3.770741243195774*^9}}, CellLabel->"In[1]:=", CellID->1288686699], Cell[BoxData[ GraphicsBox[{{ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004766666666666667], AbsoluteThickness[1.6], TagBox[{ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.004766666666666667], AbsoluteThickness[1.6], Opacity[0.2], LineBox[{}, VertexColors->None]}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.004766666666666667], AbsoluteThickness[1.6], Opacity[0.2], LineBox[{{{1., 4.}, {1., 0}}, {{2., 6.}, {2., 0}}, {{3., 8.}, { 3., 0}}, {{4., 9.}, {4., 0}}, {{5., 10.}, {5., 0}}, {{6., 12.}, { 6., 0}}, {{7., 14.}, {7., 0}}, {{8., 15.}, {8., 0}}, {{9., 16.}, { 9., 0}}, {{10., 18.}, {10., 0}}, {{11., 20.}, {11., 0}}, {{12., 21.}, {12., 0}}, {{13., 22.}, {13., 0}}, {{14., 24.}, {14., 0}}, {{ 15., 25.}, {15., 0}}, {{16., 26.}, {16., 0}}, {{17., 27.}, { 17., 0}}, {{18., 28.}, {18., 0}}, {{19., 30.}, {19., 0}}, {{20., 32.}, {20., 0}}, {{21., 33.}, {21., 0}}, {{22., 34.}, {22., 0}}, {{ 23., 35.}, {23., 0}}, {{24., 36.}, {24., 0}}, {{25., 38.}, { 25., 0}}, {{26., 39.}, {26., 0}}, {{27., 40.}, {27., 0}}, {{28., 42.}, {28., 0}}, {{29., 44.}, {29., 0}}, {{30., 45.}, {30., 0}}, {{ 31., 46.}, {31., 0}}, {{32., 48.}, {32., 0}}, {{33., 49.}, { 33., 0}}, {{34., 50.}, {34., 0}}, {{35., 51.}, {35., 0}}, {{36., 52.}, {36., 0}}, {{37., 54.}, {37., 0}}, {{38., 55.}, {38., 0}}, {{ 39., 56.}, {39., 0}}, {{40., 57.}, {40., 0}}, {{41., 58.}, { 41., 0}}, {{42., 60.}, {42., 0}}, {{43., 62.}, {43., 0}}, {{44., 63.}, {44., 0}}, {{45., 64.}, {45., 0}}, {{46., 65.}, {46., 0}}, {{ 47., 66.}, {47., 0}}, {{48., 68.}, {48., 0}}, {{49., 69.}, { 49., 0}}, {{50., 70.}, {50., 0}}, {{51., 72.}, {51., 0}}, {{52., 74.}, {52., 0}}, {{53., 75.}, {53., 0}}, {{54., 76.}, {54., 0}}, {{ 55., 77.}, {55., 0}}, {{56., 78.}, {56., 0}}, {{57., 80.}, { 57., 0}}, {{58., 81.}, {58., 0}}, {{59., 82.}, {59., 0}}, {{60., 84.}, {60., 0}}, {{61., 85.}, {61., 0}}, {{62., 86.}, {62., 0}}, {{ 63., 87.}, {63., 0}}, {{64., 88.}, {64., 0}}, {{65., 90.}, { 65., 0}}, {{66., 91.}, {66., 0}}, {{67., 92.}, {67., 0}}, {{68., 93.}, {68., 0}}, {{69., 94.}, {69., 0}}, {{70., 95.}, {70., 0}}, {{ 71., 96.}, {71., 0}}, {{72., 98.}, {72., 0}}, {{73., 99.}, { 73., 0}}, {{74., 100.}, {74., 0}}, {{75., 102.}, {75., 0}}, {{76., 104.}, {76., 0}}, {{77., 105.}, {77., 0}}, {{78., 106.}, { 78., 0}}, {{79., 108.}, {79., 0}}, {{80., 110.}, {80., 0}}, {{81., 111.}, {81., 0}}, {{82., 112.}, {82., 0}}, {{83., 114.}, { 83., 0}}, {{84., 115.}, {84., 0}}, {{85., 116.}, {85., 0}}, {{86., 117.}, {86., 0}}, {{87., 118.}, {87., 0}}, {{88., 119.}, { 88., 0}}, {{89., 120.}, {89., 0}}, {{90., 121.}, {90., 0}}, {{91., 122.}, {91., 0}}, {{92., 123.}, {92., 0}}, {{93., 124.}, { 93., 0}}, {{94., 125.}, {94., 0}}, {{95., 126.}, {95., 0}}, {{96., 128.}, {96., 0}}, {{97., 129.}, {97., 0}}, {{98., 130.}, { 98., 0}}, {{99., 132.}, {99., 0}}, {{100., 133.}, {100., 0}}}, VertexColors->None]}}, Annotation[#, "Charting`Private`Tag$401538#1"]& ]}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004766666666666667], AbsoluteThickness[1.6], {}, PointBox[CompressedData[" 1:eJxdkUlKg0EQhRtXLl24cOEiioiIiPOsKefEOMZ5DqJrr1BH8Sh9JI+g4vca ugLh8XXV3/3q1cjbZ/ejL6X0/vv/0//fd/NfB4wDdAjtRxtW942ig+hY+G4C HUanwj3T4Z6ZcM8cOo4uhHsX0Ul0KbyzEt5ZDe+sobPoenh3A51Ht4IPq324 WD620WXqYvnaCb52a18ulq+94Gsf3UQPap8ubqKHwXer9u2t4Ltd+/Z28H3E ubhTz+GdMMdxPYfDrrlOwlyn1MVnKHM5XOY8R5nTYIdddc15wTlscJlbdc3d RTU37HBWXTlcUocNVg6uunK5QsnBYIdddXJJ15zDBisnVx3OqiuHG75TTrBy ynBW/y1KLgYrN4eVW4azcr1DlRtscIaVa7rnXP2wck0PfA8bXHKFs/ofUeUK K+cMl5yfOFc/rNwzXHJ/pg82WLk7rNwzbHB6oU97gbUHh7WHDGsP6ZU+7QXW Hhwue+jRBzfgshe47AXWXr569gNGQZmq "]], {}}, Annotation[#, "Charting`Private`Tag$401538#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, DisplayFunction->Identity, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "MessagesHead" -> DiscretePlot, "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> { Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], Directive[ RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], Directive[ RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], Directive[ RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], Directive[ RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], Directive[ RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], Directive[ RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], Directive[ RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], Directive[ RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], Directive[ RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], Directive[ RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], Directive[ RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], Directive[ RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], Directive[ RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05]}, PlotRange->{{0, 100}, {0, 133.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.770741244071463*^9, 3.771954936357226*^9}, CellLabel->"Out[1]=", CellID->655007445] }, Open ]] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"Composite | 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[622, 23, 168, 7, 70, "Subsection",ExpressionUUID->"8bf63afa-829f-424b-9103-5425f5370d87", CellID->462042388], Cell[793, 32, 144, 3, 70, "Text",ExpressionUUID->"5855dac6-64d3-44c0-b8a9-53e26752d65f", CellID->13078159], Cell[CellGroupData[{ Cell[962, 39, 7607, 187, 70, "Input",ExpressionUUID->"e8b520cc-4ae0-44b6-8527-bd89adf49663", CellID->443871870], Cell[8572, 228, 438, 11, 70, "Output",ExpressionUUID->"6a24ab25-b6ac-4fcb-b888-b798178afefe", CellID->489301331] }, Open ]], Cell[CellGroupData[{ Cell[9047, 244, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"9a13c954-9403-4ec7-bb7d-465d4af02dc6", CellID->1958530187], Cell[9195, 250, 147, 3, 70, "Text",ExpressionUUID->"491a51e6-55a5-41e6-ad6b-ff7db5f0470c", CellID->174117347], Cell[CellGroupData[{ Cell[9367, 257, 7136, 180, 70, "Input",ExpressionUUID->"cbaa7a22-4e5e-4d11-bc5e-a7ce1392f572", CellID->2052777647], Cell[16506, 439, 166, 4, 70, "Output",ExpressionUUID->"f8891a53-a006-4cbd-892a-22f69803df86", CellID->1848368380] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16721, 449, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"83303089-ee6a-46bc-8b41-088c1dd54a7b", CellID->1112719023], Cell[16869, 455, 139, 3, 70, "Text",ExpressionUUID->"a8a86957-3008-4ef4-8a11-c9df88a193f1", CellID->1826124398], Cell[CellGroupData[{ Cell[17033, 462, 7614, 187, 70, "Input",ExpressionUUID->"6e507255-476a-4227-a3d4-71125c5d5211", CellID->1288686699], Cell[24650, 651, 6940, 141, 70, "Output",ExpressionUUID->"f681dc21-b988-4dd8-8e0c-cd12dc7fb671", CellID->655007445] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)