(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 41215, 1656] NotebookOptionsPosition[ 35571, 1552] NotebookOutlinePosition[ 36195, 1575] CellTagsIndexPosition[ 36109, 1570] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Labeled Graph", "Title",ExpressionUUID->"b97a4f86-c90a-496c-8064-c3258c026c97"], Cell[CellGroupData[{ Cell["Author", "Subsection",ExpressionUUID->"44f19b03-fbde-40ed-bc02-de5e66c140da"], Cell["\", "Text",ExpressionUUID->"8c688a96-de7b-45a8-88bd-feb310c3dbe7"], Cell[TextData[{ "This notebook downloaded from ", ButtonBox["http://mathworld.wolfram.com/notebooks/GraphTheory/LabeledGraph.\ nb", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/notebooks/GraphTheory/LabeledGraph.nb"], None}], "." }], "Text",ExpressionUUID->"f2d7fac8-5ce4-445e-a6f7-824b7c023348"], Cell[TextData[{ "For more information, see Eric's ", StyleBox["MathWorld", FontSlant->"Italic"], " entry ", ButtonBox["http://mathworld.wolfram.com/LabeledGraph.html", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/LabeledGraph.html"], None}], "." }], "Text",ExpressionUUID->"8b9fb83b-0642-477b-84f5-bd5fca9a9ecc"], Cell["\", "Text",ExpressionUUID->"c56702b2-3bb9-491b-a36f-8c491284c333"] }, Open ]], Cell[CellGroupData[{ Cell["Usage", "Subsection",ExpressionUUID->"673b32cb-7473-47e5-97a2-8a82fbbf3427"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "LabeledGraphs"}]], "Input",ExpressionUUID->"9a220919-3aac-4afe-8dcf-c51c48946646"], Cell[BoxData["\"], "Print", CellTags-> "Info3218812205-7998784",ExpressionUUID->"79230483-a129-4998-af60-\ ee33d3635b6c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Counts", "Section",ExpressionUUID->"a99d0405-f5fb-48cc-84f6-f48fa695c085"], Cell["https://oeis.org/A001187", "Text",ExpressionUUID->"7164459e-98c0-49d0-a902-29563d5e6fd6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Length", "/@", RowBox[{"LabeledGraphs", "/@", RowBox[{"Range", "[", "5", "]"}]}]}], "//", "Timing"}]], "Input",Expressio\ nUUID->"feb32804-b6d5-4e43-991e-72cffe54d768"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"0.5900000000000034`", " ", "Second"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "8", ",", "64", ",", "1024"}], "}"}]}], "}"}]], "Output",ExpressionUUID->"a0db5cd5-5c09-449f-b99e-59c154083d43"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Length", "/@", RowBox[{"LabeledGraphs", "/@", RowBox[{"Range", "[", "6", "]"}]}]}], "//", "Timing"}]], "Input",Expressio\ nUUID->"a82b13fe-2f06-4c5d-8cca-d1f07df4932b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"21.11999999999999`", " ", "Second"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "8", ",", "64", ",", "1024", ",", "32768"}], "}"}]}], "}"}]], "Output",ExpressionUUID->"32192e7e-e37f-4a90-b96a-\ 5a963908e70b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Length", "/@", RowBox[{"LabeledGraphs", "/@", RowBox[{"Range", "[", "7", "]"}]}]}], "//", "Timing"}]], "Input",Expressio\ nUUID->"68c3683c-7bfc-4dd5-a1ea-44a0c49a1b8f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"598.53`", " ", "Second"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "8", ",", "64", ",", "1024", ",", "32768", ",", "2097152"}], "}"}]}], "}"}]], "Output",ExpressionUUID->"3801fb33-c6cf-\ 41fc-a4b6-70e17fc30d42"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Plots", "Section",ExpressionUUID->"35543ac6-eae3-45c6-a05a-9feeea21f8f6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ShowGraphArray", "[", RowBox[{ RowBox[{"LabeledGraphs", "[", "3", "]"}], ",", RowBox[{"VertexColor", "\[Rule]", "Red"}], ",", RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Disk", "[", ".2", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"VertexLabel", "\[Rule]", RowBox[{"Range", "[", "3", "]"}]}], ",", RowBox[{"VertexLabelPosition", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", ".1"}], ",", ".3"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"GraphicsSpacing", "\[Rule]", ".2"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input",Expressi\ onUUID->"7e1ea576-364b-4f92-809e-1bf105685816"], Cell[GraphicsData["PostScript", "\"], "Graphics", ImageSize->{402.375, 49.375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 401.375}, {48.375, \ 0.}} -> {0., 0., 0., 0.}, {{13.125, 53.0625}, {47.1875, 1.125}} -> {0., 0., \ 0., 0.}, {{61., 100.938}, {47.1875, 1.125}} -> {-2., 0., 0., 0.}, {{108.875, \ 148.812}, {47.1875, 1.125}} -> {-3., 0., 0., 0.}, {{156.75, 196.688}, \ {47.1875, 1.125}} -> {-5., 0., 0., 0.}, {{204.625, 244.562}, {47.1875, \ 1.125}} -> {-6., 0., 0., 0.}, {{252.5, 292.438}, {47.1875, 1.125}} -> {-8., \ 0., 0., 0.}, {{300.375, 340.312}, {47.1875, 1.125}} -> {-9., 0., 0., 0.}, \ {{348.312, 388.188}, {47.1875, 1.125}} -> {-11., 0., 0., \ 0.}},ExpressionUUID->"5478592d-dbfd-41b2-8612-3a43e4db532e"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "GraphicsArray", "\[SkeletonIndicator]"}], False, Editable->False]], "Output",ExpressionUUID->"d9faae29-c684-405b-a690-\ 8e351642584a"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"gr", "[", RowBox[{"g_Graph", ",", "ps_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"v", "=", RowBox[{"Vertices", "[", "g", "]"}]}], ",", "i"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "ps", "]"}], ",", RowBox[{"graphic", "[", "g", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"1.4", RowBox[{"v", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "v", "]"}]}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input",ExpressionUUID->"ac8d08f4-dd00-\ 4960-8ca6-234620cf902f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"GraphicsArray", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"gr", "[", RowBox[{"#", ",", ".08"}], "]"}], "&"}], "/@", RowBox[{"LabeledGraphs", "[", "2", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Sequence", "@@", RowBox[{"Partition", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"gr", "[", RowBox[{"#", ",", ".14"}], "]"}], "&"}], "/@", RowBox[{"LabeledGraphs", "[", "3", "]"}]}], ",", "4"}], "]"}]}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"GraphicsSpacing", "\[Rule]", RowBox[{"{", RowBox[{".3", ",", ".3"}], "}"}]}]}], "]"}]], "Input",ExpressionUUID->\ "eae76ea4-c22d-4a0d-a861-f13bf2fb1bd2"], Cell[GraphicsData["PostScript", "\"], "Graphics", ImageSize->{389.438, 204.312}, ImageMargins->{{47, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 388.438}, {203.312, \ 0.}} -> {0., 0., 0., 0.}, {{9.6875, 85.}, {198.438, 144.625}} -> {-2., -1., \ 0., 0.}, {{107.625, 182.875}, {198.438, 144.625}} -> {-7., -1., 0., 0.}, \ {{205.5, 280.812}, {198.438, 144.625}} -> {-12., -1., 0., 0.}, {{303.375, \ 378.688}, {198.438, 144.625}} -> {-18., -1., 0., 0.}, {{9.6875, 85.}, {128.5, \ 74.75}} -> {-2., -5., 0., 0.}, {{107.625, 182.875}, {128.5, 74.75}} -> {-7., \ -5., 0., 0.}, {{205.5, 280.812}, {128.5, 74.75}} -> {-12., -5., 0., 0.}, \ {{303.375, 378.688}, {128.5, 74.75}} -> {-18., -5., 0., 0.}, {{9.6875, 85.}, \ {58.625, 4.8125}} -> {-1., -6., 0., 0.}, {{107.625, 182.875}, {58.625, \ 4.8125}} -> {-5., -6., 0., \ 0.}},ExpressionUUID->"953bd3e3-1e9d-436d-888b-fb073d83c661"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "GraphicsArray", "\[SkeletonIndicator]"}], False, Editable->False]], "Output",ExpressionUUID->"103f2bc5-e0c3-4f5b-89e5-\ 7140a22998fd"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Algorithms", "Section",ExpressionUUID->"a5fa788b-d63f-46df-8cac-6d6834693300"], Cell["\", "Text",ExpressionUUID->"7dde2c7b-4dca-4589-bbf1-558c3980394c"], Cell[CellGroupData[{ Cell["Horvat", "Subsection",ExpressionUUID->"c5329689-254d-40f4-9107-4171760eb296"], Cell[BoxData[ RowBox[{ RowBox[{"ConnectedLabeledGraphs", "[", RowBox[{"n_Integer", "?", "Positive"}], "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"k", "=", RowBox[{"Binomial", "[", RowBox[{"n", ",", "2"}], "]"}]}], ",", " ", RowBox[{"(*", RowBox[{"max", " ", "number", " ", "of", " ", "edges"}], "*)"}], "\[IndentingNewLine]", RowBox[{"symmetrize", "=", RowBox[{ RowBox[{"#", "+", RowBox[{"Transpose", "[", "#", "]"}]}], "&"}]}], ",", "\[IndentingNewLine]", "adjmats"}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"adjmats", "=", RowBox[{ RowBox[{ RowBox[{"symmetrize", "@", RowBox[{"PadRight", "[", RowBox[{ RowBox[{"TakeList", "[", RowBox[{"#", ",", RowBox[{ RowBox[{"Range", "[", "n", "]"}], "-", "1"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "n"}], "}"}]}], "]"}]}], "&"}], "/@", RowBox[{"IntegerDigits", "[", RowBox[{ RowBox[{ RowBox[{"Range", "[", RowBox[{"2", "^", "k"}], "]"}], "-", "1"}], ",", "2", ",", "k"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Select", "[", RowBox[{ RowBox[{"AdjacencyGraph", "/@", RowBox[{"Select", "[", RowBox[{"adjmats", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Total", "[", RowBox[{"#", ",", "2"}], "]"}], "/", "2"}], ">=", RowBox[{"n", "-", "1"}]}], "&"}]}], "]"}]}], ",", "ConnectedGraphQ"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellLabel->"In[98]:=",ExpressionUUID->"dd669cd3-1804-46c7-9747-27f87a9b48a3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"{", RowBox[{"n", ",", RowBox[{ RowBox[{ RowBox[{"ConnectedLabeledGraphs", "[", "n", "]"}], "//", "Length"}], "//", "Timing"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"n", ",", "8"}], "}"}]}], "]"}]], "Input", CellLabel-> "In[100]:=",ExpressionUUID->"2ddfaddd-2261-47f5-ac7c-d24eeb258f20"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", RowBox[{"{", RowBox[{"0.000343`", ",", "1"}], "}"}]}], "}"}]], "Print", CellLabel-> "During evaluation of \ In[100]:=",ExpressionUUID->"b0572eba-fc6b-4775-93af-e8a7a0683bc5"], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", RowBox[{"{", RowBox[{"0.000276`", ",", "1"}], "}"}]}], "}"}]], "Print", CellLabel-> "During evaluation of \ In[100]:=",ExpressionUUID->"499e3c52-c753-458d-ac8d-0de156f54158"], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", RowBox[{"{", RowBox[{"0.000597`", ",", "4"}], "}"}]}], "}"}]], "Print", CellLabel-> "During evaluation of \ In[100]:=",ExpressionUUID->"97d5252e-4610-4642-9db4-59377dec2552"], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", RowBox[{"{", RowBox[{"0.004316`", ",", "38"}], "}"}]}], "}"}]], "Print", CellLabel-> "During evaluation of \ In[100]:=",ExpressionUUID->"27015874-0739-4c28-9123-6523de3d47e6"], Cell[BoxData[ RowBox[{"{", RowBox[{"5", ",", RowBox[{"{", RowBox[{"0.106046`", ",", "728"}], "}"}]}], "}"}]], "Print", CellLabel-> "During evaluation of \ In[100]:=",ExpressionUUID->"2193f524-c1de-4f69-9b83-2a49b7c79fbd"], Cell[BoxData[ RowBox[{"{", RowBox[{"6", ",", RowBox[{"{", RowBox[{"3.224388`", ",", "26704"}], "}"}]}], "}"}]], "Print", CellLabel-> "During evaluation of \ In[100]:=",ExpressionUUID->"00057478-6138-42e4-aafb-4f79d45ee1d0"] }, Open ]], Cell[BoxData["$Aborted"], "Output", CellLabel-> "Out[100]=",ExpressionUUID->"4b9edd29-8fff-4eb5-9cf3-1fadf44708e1"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["@user293787", "Subsection",ExpressionUUID->"bc7ba6a1-c9b2-48c5-86d5-cd41a7a8231a"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"allEdges", "[", "n_", "]"}], ":=", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"UndirectedEdge", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "n"}], "}"}]}], "]"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"ConnectedLabeledGraphs", "[", "n_", "]"}], ":=", RowBox[{"Select", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Graph", "[", RowBox[{ RowBox[{"Range", "[", "n", "]"}], ",", "#"}], "]"}], "&"}], ",", RowBox[{"Subsets", "[", RowBox[{"allEdges", "[", "n", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", "ConnectedGraphQ"}], "]"}]}]}], "Input",ExpressionU\ UID->"e01351ed-1645-4665-b5a3-3e64b77f3769"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"{", RowBox[{"n", ",", RowBox[{ RowBox[{ RowBox[{"AllConnectedLabeledGraphs", "[", "n", "]"}], "//", "Length"}], "//", "Timing"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"n", ",", "7"}], "}"}]}], "]"}]], "Input", CellLabel-> "In[116]:=",ExpressionUUID->"2fd30f91-9f38-4745-94b7-fb39f936ed8b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", RowBox[{"{", RowBox[{"0.000087`", ",", "1"}], "}"}]}], "}"}]], "Print", CellLabel-> "During evaluation of \ In[116]:=",ExpressionUUID->"a8118228-f16c-434d-b268-a92d92f9ba7b"], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", RowBox[{"{", RowBox[{"0.000066`", ",", "1"}], "}"}]}], "}"}]], "Print", CellLabel-> "During evaluation of \ In[116]:=",ExpressionUUID->"9884a5a9-4682-4e1b-96a0-5b482b873587"], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", RowBox[{"{", RowBox[{"0.000186`", ",", "4"}], "}"}]}], "}"}]], "Print", CellLabel-> "During evaluation of \ In[116]:=",ExpressionUUID->"076035b8-3aac-4dc3-9535-48428db11f00"], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", RowBox[{"{", RowBox[{"0.001392`", ",", "38"}], "}"}]}], "}"}]], "Print", CellLabel-> "During evaluation of \ In[116]:=",ExpressionUUID->"1e52cc4e-3fda-4aef-8f63-1eb66589dd83"], Cell[BoxData[ RowBox[{"{", RowBox[{"5", ",", RowBox[{"{", RowBox[{"0.024025`", ",", "728"}], "}"}]}], "}"}]], "Print", CellLabel-> "During evaluation of \ In[116]:=",ExpressionUUID->"e172b8c1-2711-4538-b04d-e768ae65e0e4"], Cell[BoxData[ RowBox[{"{", RowBox[{"6", ",", RowBox[{"{", RowBox[{"0.577822`", ",", "26704"}], "}"}]}], "}"}]], "Print", CellLabel-> "During evaluation of \ In[116]:=",ExpressionUUID->"7d6da58c-ca21-46ed-a89e-66e83518ac86"] }, Open ]], Cell[BoxData["$Aborted"], "Output", CellLabel-> "Out[116]=",ExpressionUUID->"eb472cf0-bf15-4118-b3ef-df2fbab1d286"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{954, 874}, WindowMargins->{{20, Automatic}, {Automatic, 44}}, ShowSelection->True, FrontEndVersion->"13.3 for Mac OS X ARM (64-bit) (November 9, 2022)", StyleDefinitions->"Default.nb", ExpressionUUID->"820cdb89-61a7-4ee0-a802-6c0b95750268" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Info3218812205-7998784"->{ Cell[2003, 70, 230, 4, 24, "Print",ExpressionUUID->"79230483-a129-4998-af60-ee33d3635b6c", CellTags->"Info3218812205-7998784"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info3218812205-7998784", 35952, 1564} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 85, 0, 98, "Title",ExpressionUUID->"b97a4f86-c90a-496c-8064-c3258c026c97"], Cell[CellGroupData[{ Cell[690, 26, 83, 0, 54, "Subsection",ExpressionUUID->"44f19b03-fbde-40ed-bc02-de5e66c140da"], Cell[776, 28, 113, 3, 58, "Text",ExpressionUUID->"8c688a96-de7b-45a8-88bd-feb310c3dbe7"], Cell[892, 33, 339, 9, 35, "Text",ExpressionUUID->"f2d7fac8-5ce4-445e-a6f7-824b7c023348"], Cell[1234, 44, 354, 10, 35, "Text",ExpressionUUID->"8b9fb83b-0642-477b-84f5-bd5fca9a9ecc"], Cell[1591, 56, 154, 2, 35, "Text",ExpressionUUID->"c56702b2-3bb9-491b-a36f-8c491284c333"] }, Open ]], Cell[CellGroupData[{ Cell[1782, 63, 82, 0, 54, "Subsection",ExpressionUUID->"673b32cb-7473-47e5-97a2-8a82fbbf3427"], Cell[CellGroupData[{ Cell[1889, 67, 111, 1, 30, "Input",ExpressionUUID->"9a220919-3aac-4afe-8dcf-c51c48946646"], Cell[2003, 70, 230, 4, 24, "Print",ExpressionUUID->"79230483-a129-4998-af60-ee33d3635b6c", CellTags->"Info3218812205-7998784"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2282, 80, 80, 0, 67, "Section",ExpressionUUID->"a99d0405-f5fb-48cc-84f6-f48fa695c085"], Cell[2365, 82, 95, 0, 35, "Text",ExpressionUUID->"7164459e-98c0-49d0-a902-29563d5e6fd6"], Cell[CellGroupData[{ Cell[2485, 86, 212, 5, 30, "Input",ExpressionUUID->"feb32804-b6d5-4e43-991e-72cffe54d768"], Cell[2700, 93, 261, 6, 34, "Output",ExpressionUUID->"a0db5cd5-5c09-449f-b99e-59c154083d43"] }, Open ]], Cell[CellGroupData[{ Cell[2998, 104, 212, 5, 30, "Input",ExpressionUUID->"a82b13fe-2f06-4c5d-8cca-d1f07df4932b"], Cell[3213, 111, 278, 7, 34, "Output",ExpressionUUID->"32192e7e-e37f-4a90-b96a-5a963908e70b"] }, Open ]], Cell[CellGroupData[{ Cell[3528, 123, 212, 5, 30, "Input",ExpressionUUID->"68c3683c-7bfc-4dd5-a1ea-44a0c49a1b8f"], Cell[3743, 130, 289, 8, 34, "Output",ExpressionUUID->"3801fb33-c6cf-41fc-a4b6-70e17fc30d42"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4081, 144, 79, 0, 67, "Section",ExpressionUUID->"35543ac6-eae3-45c6-a05a-9feeea21f8f6"], Cell[CellGroupData[{ Cell[4185, 148, 740, 16, 73, "Input",ExpressionUUID->"7e1ea576-364b-4f92-809e-1bf105685816"], Cell[4928, 166, 9572, 484, 58, 7720, 453, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"5478592d-dbfd-41b2-8612-3a43e4db532e"], Cell[14503, 652, 196, 5, 34, "Output",ExpressionUUID->"d9faae29-c684-405b-a690-8e351642584a"] }, Open ]], Cell[14714, 660, 1085, 30, 94, "Input",ExpressionUUID->"ac8d08f4-dd00-4960-8ca6-234620cf902f"], Cell[CellGroupData[{ Cell[15824, 694, 870, 23, 115, "Input",ExpressionUUID->"eae76ea4-c22d-4a0d-a861-f13bf2fb1bd2"], Cell[16697, 719, 10987, 558, 213, 8829, 522, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"953bd3e3-1e9d-436d-888b-fb073d83c661"], Cell[27687, 1279, 196, 5, 34, "Output",ExpressionUUID->"103f2bc5-e0c3-4f5b-89e5-7140a22998fd"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27932, 1290, 84, 0, 67, "Section",ExpressionUUID->"a5fa788b-d63f-46df-8cac-6d6834693300"], Cell[28019, 1292, 195, 3, 35, "Text",ExpressionUUID->"7dde2c7b-4dca-4589-bbf1-558c3980394c"], Cell[CellGroupData[{ Cell[28239, 1299, 83, 0, 54, "Subsection",ExpressionUUID->"c5329689-254d-40f4-9107-4171760eb296"], Cell[28325, 1301, 1913, 52, 199, "Input",ExpressionUUID->"dd669cd3-1804-46c7-9747-27f87a9b48a3"], Cell[CellGroupData[{ Cell[30263, 1357, 470, 13, 73, "Input",ExpressionUUID->"2ddfaddd-2261-47f5-ac7c-d24eeb258f20"], Cell[CellGroupData[{ Cell[30758, 1374, 235, 7, 24, "Print",ExpressionUUID->"b0572eba-fc6b-4775-93af-e8a7a0683bc5"], Cell[30996, 1383, 235, 7, 24, "Print",ExpressionUUID->"499e3c52-c753-458d-ac8d-0de156f54158"], Cell[31234, 1392, 235, 7, 24, "Print",ExpressionUUID->"97d5252e-4610-4642-9db4-59377dec2552"], Cell[31472, 1401, 236, 7, 24, "Print",ExpressionUUID->"27015874-0739-4c28-9123-6523de3d47e6"], Cell[31711, 1410, 237, 7, 24, "Print",ExpressionUUID->"2193f524-c1de-4f69-9b83-2a49b7c79fbd"], Cell[31951, 1419, 239, 7, 24, "Print",ExpressionUUID->"00057478-6138-42e4-aafb-4f79d45ee1d0"] }, Open ]], Cell[32205, 1429, 118, 2, 34, "Output",ExpressionUUID->"4b9edd29-8fff-4eb5-9cf3-1fadf44708e1"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32372, 1437, 88, 0, 54, "Subsection",ExpressionUUID->"bc7ba6a1-c9b2-48c5-86d5-cd41a7a8231a"], Cell[32463, 1439, 963, 28, 94, "Input",ExpressionUUID->"e01351ed-1645-4665-b5a3-3e64b77f3769"], Cell[CellGroupData[{ Cell[33451, 1471, 478, 14, 73, "Input",ExpressionUUID->"2fd30f91-9f38-4745-94b7-fb39f936ed8b"], Cell[CellGroupData[{ Cell[33954, 1489, 235, 7, 24, "Print",ExpressionUUID->"a8118228-f16c-434d-b268-a92d92f9ba7b"], Cell[34192, 1498, 235, 7, 24, "Print",ExpressionUUID->"9884a5a9-4682-4e1b-96a0-5b482b873587"], Cell[34430, 1507, 235, 7, 24, "Print",ExpressionUUID->"076035b8-3aac-4dc3-9535-48428db11f00"], Cell[34668, 1516, 236, 7, 24, "Print",ExpressionUUID->"1e52cc4e-3fda-4aef-8f63-1eb66589dd83"], Cell[34907, 1525, 237, 7, 24, "Print",ExpressionUUID->"e172b8c1-2711-4538-b04d-e768ae65e0e4"], Cell[35147, 1534, 239, 7, 24, "Print",ExpressionUUID->"7d6da58c-ca21-46ed-a89e-66e83518ac86"] }, Open ]], Cell[35401, 1544, 118, 2, 34, "Output",ExpressionUUID->"eb472cf0-bf15-4118-b3ef-df2fbab1d286"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *)