(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 12.2' *) (*************************************************************************) (* *) (* *) (* This file was created under the Wolfram Enterprise licensing terms. *) (* *) (* For additional information concerning CDF licensing see: *) (* *) (* www.wolfram.com/cdf/adopting-cdf/licensing-options.html *) (* *) (* *) (* *) (*************************************************************************) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 1064, 20] NotebookDataLength[ 25004, 728] NotebookOptionsPosition[ 22784, 664] NotebookOutlinePosition[ 23099, 679] CellTagsIndexPosition[ 23056, 676] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["The simplest non-trivial Fubini number:", "Text", CellChangeTimes->{{3.765040152646636*^9, 3.765040160726096*^9}, { 3.7665088149737177`*^9, 3.7665088195472*^9}, 3.7665098089519453`*^9}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"FubiniNumber\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", GrayLevel[0.15], "\"FubiniNumber\""}], ResourceFunction["FubiniNumber"], BoxID -> "FubiniNumber", Selectable->False], "[", "2", "]"}]], "Input", CellChangeTimes->{{3.7650401303286533`*^9, 3.7650401308315163`*^9}}, CellLabel->"In[127]:=", CellID->1090135488], Cell[BoxData["3"], "Output", CellChangeTimes->{3.765040132080084*^9}, CellLabel->"Out[127]=", CellID->828142209] }, Open ]], Cell["Here are the first 10 Fubini numbers:", "Text", CellChangeTimes->{{3.7650383071337643`*^9, 3.765038318400261*^9}}, CellID->167897919], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"FubiniNumber\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", GrayLevel[0.15], "\"FubiniNumber\""}], ResourceFunction["FubiniNumber"], BoxID -> "FubiniNumber", Selectable->False], "/@", RowBox[{"Range", "[", "10", "]"}]}]], "Input", CellChangeTimes->{{3.7650382970415*^9, 3.765038302536964*^9}}, CellLabel->"In[115]:=", CellID->1092413526], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "3", ",", "13", ",", "75", ",", "541", ",", "4683", ",", "47293", ",", "545835", ",", "7087261", ",", "102247563"}], "}"}]], "Output", CellChangeTimes->{3.765038303686245*^9}, CellLabel->"Out[115]=", CellID->1689554600] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->964056545], Cell[TextData[{ "This shows the 13 ordered set partitions of the the set ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], TraditionalForm]]], ":" }], "Text", CellChangeTimes->{{3.765038325487764*^9, 3.7650383975424147`*^9}}, CellID->649685796], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"partitions", "=", RowBox[{"Apply", "[", RowBox[{"Join", ",", RowBox[{"Permutations", "/@", RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"SetPartitions\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"SetPartitions\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SetPartitions"], Selectable->False], "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"%", "//", "Column"}]}], "Input", CellChangeTimes->{{3.765038406167748*^9, 3.765038414797024*^9}, { 3.7650384958842688`*^9, 3.765038556543972*^9}, {3.7665088511501083`*^9, 3.7665088678216887`*^9}, 3.792260363001938*^9}, CellLabel->"In[21]:=", CellID->836153427], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", "3", "}"}]}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"{", "3", "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", "2", "}"}]}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"{", "2", "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "3", "}"}]}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "2", "}"}]}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "3", "}"}]}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}]}], "}"}]}, { RowBox[{"{", RowBox[{ RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", CellChangeTimes->{ 3.765038415854658*^9, {3.765038503563983*^9, 3.765038557573045*^9}, { 3.766508838645009*^9, 3.76650886826956*^9}, 3.7665098220382543`*^9, 3.7922603647987347`*^9}, CellLabel->"Out[22]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "@", "partitions"}]], "Input", CellChangeTimes->{{3.765038505888464*^9, 3.76503850841892*^9}, 3.7665088642114267`*^9}, CellLabel->"In[66]:=", CellID->437950314], Cell[BoxData["13"], "Output", CellChangeTimes->{{3.765038509498657*^9, 3.765038544954644*^9}, { 3.7665088423319063`*^9, 3.766508869725154*^9}, 3.766509829222973*^9}, CellLabel->"Out[66]=", CellID->138536886] }, Open ]], Cell["This accords with:", "Text", CellChangeTimes->{{3.76503859047447*^9, 3.765038598302086*^9}}, CellID->1189032887], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"FubiniNumber\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", GrayLevel[0.15], "\"FubiniNumber\""}], ResourceFunction["FubiniNumber"], BoxID -> "FubiniNumber", Selectable->False], "[", "3", "]"}]], "Input", CellLabel->"In[67]:=", CellID->1793830563], Cell[BoxData["13"], "Output", CellChangeTimes->{3.7650386004793386`*^9, 3.766509830042054*^9}, CellLabel->"Out[67]=", CellID->123110324] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", CellID->540091361], Cell["The Fubini numbers are periodic mod 10:", "Text", CellChangeTimes->{{3.765040251907115*^9, 3.7650403308674393`*^9}}, CellID->204317584], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "@", RowBox[{"Table", "[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"FubiniNumber\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", GrayLevel[0.15], "\"FubiniNumber\""}], ResourceFunction["FubiniNumber"], BoxID -> "FubiniNumber", Selectable->False], "[", "n", "]"}], ",", "10"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "20"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.765040204405731*^9, 3.765040239204137*^9}}, CellLabel->"In[68]:=", CellID->1406068237], Cell[BoxData[ GraphicsBox[{{}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQEf7FFpBgcIxYGDFoDSImg0TL8EmnoZNL4Cmj4l NP0qaOrV0PgaaPq10PTroKnXQ+MboOk3RNNvhKbeGI1vAtcPAGVgFKI= "]]}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[ 1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 20.}, {0, 5.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.765040229758356*^9, 3.765040240841764*^9}, 3.7665098447225227`*^9}, CellLabel->"Out[68]=", CellID->1390397] }, Open ]], Cell["There are many other modular relations:", "Text", CellChangeTimes->{{3.7650403790044622`*^9, 3.7650404022563334`*^9}}, CellID->1746718046], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "@", RowBox[{"Table", "[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"FubiniNumber\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", GrayLevel[0.15], "\"FubiniNumber\""}], ResourceFunction["FubiniNumber"], BoxID -> "FubiniNumber", Selectable->False], "[", "n", "]"}], ",", "11"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "20"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7650403600515738`*^9, 3.7650403601868553`*^9}}, CellLabel->"In[69]:=", CellID->1680210162], Cell[BoxData[ GraphicsBox[{{}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQEf7FFpBgcIxYFGw8QFoLQSlBZBk5eA0gpQWgZN nwIaH90cFZh5UKDmgOo+DTR3aaHZr4Nmrh6avAGaOwzR3GOExjdGc58J3H0A z6URnQ== "]]}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[ 1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 20.}, {0, 9.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.765040361314447*^9, 3.7665098500740576`*^9}, CellLabel->"Out[69]=", CellID->124133907] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, FrontEndVersion->"12.2 for Mac OS X x86 (64-bit) (February 27, 2020)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1486, 35, 56, 1, 70, "Subsection",ExpressionUUID->"5823693c-93c4-4dc4-8108-d430ea593b3c", CellID->462042388], Cell[1545, 38, 214, 3, 70, "Text",ExpressionUUID->"86bb8ff9-db5e-42cf-b377-b2c8a91d5252", CellID->13078159], Cell[CellGroupData[{ Cell[1784, 45, 1847, 46, 70, "Input",ExpressionUUID->"bd4f0bc8-f042-40fc-86c0-c2a0a97533a5", CellID->1090135488], Cell[3634, 93, 115, 3, 70, "Output",ExpressionUUID->"c313e8b9-b11e-4c1e-aa71-fdace2f0b04d", CellID->828142209] }, Open ]], Cell[3764, 99, 141, 2, 70, "Text",ExpressionUUID->"ec34e940-ba4b-4e0d-8d80-28840d1d416f", CellID->167897919], Cell[CellGroupData[{ Cell[3930, 105, 1870, 47, 70, "Input",ExpressionUUID->"17afc2e2-d575-43eb-bbb2-5981e7d60335", CellID->1092413526], Cell[5803, 154, 278, 7, 70, "Output",ExpressionUUID->"98fd89ef-c33e-4ffa-8a17-fbb0a127912e", CellID->1689554600] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6130, 167, 47, 1, 70, "Subsection",ExpressionUUID->"e620f152-ca34-4d70-a106-d01d3edf78da", CellID->964056545], Cell[6180, 170, 290, 9, 70, "Text",ExpressionUUID->"fa57127f-30d5-409f-9081-3369f0620a6f", CellID->649685796], Cell[CellGroupData[{ Cell[6495, 183, 2402, 61, 70, "Input",ExpressionUUID->"9cb443a7-7c4f-43b6-8e2b-8b0f97c51a13", CellID->836153427], Cell[8900, 246, 2373, 87, 70, "Output",ExpressionUUID->"097061a4-7a54-454f-a000-06762f5780b3"] }, Open ]], Cell[CellGroupData[{ Cell[11310, 338, 200, 5, 70, "Input",ExpressionUUID->"fd9f158d-b5fd-4139-9507-8aed03acbcc5", CellID->437950314], Cell[11513, 345, 213, 4, 70, "Output",ExpressionUUID->"d6634f3e-b175-43ee-9019-94960317e880", CellID->138536886] }, Open ]], Cell[11741, 352, 120, 2, 70, "Text",ExpressionUUID->"81d7612e-bd77-4c18-9d6d-304632eacd0f", CellID->1189032887], Cell[CellGroupData[{ Cell[11886, 358, 1776, 45, 70, "Input",ExpressionUUID->"6ef84a26-e3d0-4253-a4db-1a2a02300516", CellID->1793830563], Cell[13665, 405, 139, 3, 70, "Output",ExpressionUUID->"456aea52-2447-4c6a-9d74-4489215858a1", CellID->123110324] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13853, 414, 55, 1, 70, "Subsection",ExpressionUUID->"63481e45-bfa6-4e36-a197-94127a1fa93e", CellID->540091361], Cell[13911, 417, 143, 2, 70, "Text",ExpressionUUID->"53391774-678b-433a-bee3-871efe9da4df", CellID->204317584], Cell[CellGroupData[{ Cell[14079, 423, 2334, 59, 70, "Input",ExpressionUUID->"2cd602e7-7118-4288-96cd-3f415a0a3467", CellID->1406068237], Cell[16416, 484, 1913, 53, 70, "Output",ExpressionUUID->"c39652b9-fe8f-4d79-9fe6-616256dd4f5b", CellID->1390397] }, Open ]], Cell[18344, 540, 146, 2, 70, "Text",ExpressionUUID->"7f688bf3-6a5d-4ecc-a49a-2a625faf1aa5", CellID->1746718046], Cell[CellGroupData[{ Cell[18515, 546, 2338, 59, 70, "Input",ExpressionUUID->"f37af846-6340-4228-82fa-4886b3b40ead", CellID->1680210162], Cell[20856, 607, 1900, 53, 70, "Output",ExpressionUUID->"0d26e4ef-3e26-461b-8d71-1d8b380f6560", CellID->124133907] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)