(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 18453, 468] NotebookOptionsPosition[ 16787, 430] NotebookOutlinePosition[ 17183, 446] CellTagsIndexPosition[ 17140, 443] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Graph Sum", "Title",ExpressionUUID->"4da72204-b217-48a0-924e-89329eb0b5ec"], Cell[CellGroupData[{ Cell["Author", "Subsection",ExpressionUUID->"cbbc1a65-4b3b-4a9a-927e-7c7f7d5706c3"], Cell["\<\ Eric W. Weisstein June 2, 2022\ \>", "Text",ExpressionUUID->"5df1a73f-37cb-4ee8-918d-e3231f240811"], Cell[TextData[{ "This notebook downloaded from ", ButtonBox["http://mathworld.wolfram.com/notebooks/GraphTheory/GraphSum.nb", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/notebooks/GraphTheory/GraphSum.nb"], None}], "." }], "Text",ExpressionUUID->"e35cc7a5-df20-4636-bec6-2dd9530a50da"], Cell[TextData[{ "For more information, see Eric's ", StyleBox["MathWorld", FontSlant->"Italic"], " entry ", ButtonBox["http://mathworld.wolfram.com/GraphSum.html", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/GraphSum.html"], None}], "." }], "Text",ExpressionUUID->"907682cb-0e6e-4760-b85d-6bcbcfee01d5"], Cell["\<\ \[Copyright]2022 Wolfram Research, Inc. except for portions noted otherwise\ \>", "Text",ExpressionUUID->"f3783a6a-1c30-4f1e-a368-74910be4047f"] }, Open ]], Cell[CellGroupData[{ Cell["Figure", "Section",ExpressionUUID->"607a0492-843f-4300-9097-42558490aea3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Row", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"g", "=", RowBox[{"CompleteGraph", "[", "5", "]"}]}], ",", "\"\<+\>\"", ",", RowBox[{"h", "=", RowBox[{"CycleGraph", "[", "5", "]"}]}], ",", "\"\<\[LongEqual]\>\"", ",", RowBox[{"gh", "=", RowBox[{"GraphSum", "[", RowBox[{"g", ",", "h"}], "]"}]}]}], "}"}], ",", RowBox[{"Spacer", "[", "1", "]"}], ",", RowBox[{"BaseStyle", "->", "24"}]}], "]"}], "/.", RowBox[{"g_Graph", ":>", RowBox[{"StyleGraphs", "[", "g", "]"}]}]}]], "Input", CellLabel->"In[18]:=",ExpressionUUID->"3594dc2f-dbdb-4efd-b5bf-186fba9e6cae"], Cell[BoxData[ TemplateBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5}, {Null, SparseArray[ Automatic, {5, 5}, 0, { 1, {{0, 4, 8, 12, 16, 20}, {{2}, {3}, {4}, {5}, {1}, {3}, {4}, { 5}, {1}, {2}, {4}, {5}, {1}, {2}, {3}, {5}, {1}, {2}, {3}, { 4}}}, Pattern}]}, {EdgeStyle -> { GrayLevel[0]}, GraphLayout -> {"CircularEmbedding", "OptimalOrder" -> False}, VertexSize -> {{"Scaled", 0.03}}, VertexStyle -> { RGBColor[1, 0, 0]}}]]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[{{-0.9510565162951538, 0.30901699437494834`}, {-0.5877852522924727, -0.8090169943749468}, { 0.5877852522924737, -0.8090169943749481}, {0.9510565162951533, 0.30901699437494634`}, {-7.044813998280222*^-16, 1.}}, {{ Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], GrayLevel[0], Arrowheads[0.], { ArrowBox[{{1, 2}, {1, 3}, {1, 4}, {1, 5}, {2, 3}, {2, 4}, {2, 5}, {3, 4}, {3, 5}, {4, 5}}, 0.039374861356005236`]}}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], RGBColor[1, 0, 0], DiskBox[1, 0.039374861356005236`], DiskBox[2, 0.039374861356005236`], DiskBox[3, 0.039374861356005236`], DiskBox[4, 0.039374861356005236`], DiskBox[5, 0.039374861356005236`]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "\"+\"", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5}, {Null, SparseArray[ Automatic, {5, 5}, 0, { 1, {{0, 2, 4, 6, 8, 10}, {{2}, {5}, {1}, {3}, {2}, {4}, {3}, { 5}, {1}, {4}}}, Pattern}]}, {EdgeStyle -> { GrayLevel[0]}, GraphLayout -> "CircularEmbedding", VertexSize -> {{"Scaled", 0.03}}, VertexStyle -> { RGBColor[1, 0, 0]}}]]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[{{-0.9510565162951538, 0.30901699437494834`}, {-7.044813998280222*^-16, 1.}, { 0.9510565162951533, 0.30901699437494634`}, { 0.5877852522924737, -0.8090169943749481}, {-0.5877852522924727, \ -0.8090169943749468}}, {{ Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], GrayLevel[0], Arrowheads[0.], { ArrowBox[{{1, 2}, {1, 5}, {2, 3}, {3, 4}, {4, 5}}, 0.039374861356005236`]}}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], RGBColor[1, 0, 0], DiskBox[1, 0.039374861356005236`], DiskBox[2, 0.039374861356005236`], DiskBox[3, 0.039374861356005236`], DiskBox[4, 0.039374861356005236`], DiskBox[5, 0.039374861356005236`]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "\"\[LongEqual]\"", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5}, { Null, {{1, 2}, {1, 3}, {1, 4}, {1, 5}, {2, 3}, {2, 4}, {2, 5}, {3, 4}, {3, 5}, {4, 5}, {1, 2}, {1, 5}, {2, 3}, {3, 4}, {4, 5}}}, { EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.03}}, VertexStyle -> { RGBColor[1, 0, 0]}}]]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[CompressedData[" 1:eJw9lAkw1I0bx1dsSTk6KUpFoqgoctUXJUfldVTUiyTpEipHN1E5ipRKbLx6 yX2UK7HsFtZRcnRYIcfusr+17G6HKPHf/8x//s/MM8/MM/M8M5/vc6z09HM8 OoNEIj0V+3+jhY6nedRtAeiyRToGi6OhKVCleMq0gPQ/cym+ZDyFb1jm3ib5 Umfo/3nNsOVevOBBPPbepKE1PgAuLS/+sfdXBC5ck6wvOwKFEq8J/QtxtHXn N9WvOsmHQkWTsdG5BJozmWx1t3YYcYslEq39k2mk9J3qLJVhSHv0b/QxeELT b6dmXDrHQ5/PFY9femk0lt8VZVoDgb4BNfqTvHSasO124vxlBOyV6krD/n1K m7VTktHlz4V1yKe8OQszaOwm9Z6azh5khVLYPYVZNFudrlDZa92Iy7ZJf/M4 i5ZHeEZ+1uyC0MYyWIucRTOpHK8ea+uEfdmC1Q5EBu1VopeWzhUmQmsHqTyb pzR3Sl2M1boOPLujrMdfk0bzCls6KdvzEWbSlKZH11NpdsXNzjvjP6BVnlNN qkmiHflrO/UqeQTH5/TyZIfS0Dmkwkvy4KP81qz9GjKZcPvbauXVl8PQXBBZ dSE/G2u7g51uKQxj3MrJ+nxLLk6/yY/U8OaBbhT67ItvPvRLxtNKKgh4ND+f 8SK6AN73qGsocgRIOmUbDqwqRGJNwgQ8uVCSkvY/pV8IacaeHbepPSifsd0w MTEPBgXGycu9ukGn6JoraObB/uyBxLq5XbD3jtu1QS8X+fmfw3a/EPMLieGI 8mwoytRHXPFiwoO1hzpRmYnjVrYWKxeJ+eVGOp5vfQr64RHzqcaP8O9r01yL f7FWa+ZDZriYv2KrgsP1ZJjOa3Yj9/Hx3dIv1du2Ghe2LhJuMeTDOpdEjU99 jd9fqwWOlGG8iFl4UdeEgQXPq8yLZw9DdyN7J+9rI2rv5C0vDOeh5dK2tOi6 Zsiff9X7YDYPexIm4o4xW8FTaG8ppBAIUjzbq9fZDoruTdI2YwJmK9z++cn6 gBhrszuKemzEdq4SVJIIhFnfKnLqYUHqmrxlqIy47++wcb8HLJA8BvVnKw3D 52GW6OFBFiwSL657ocnHD9nSwGFtFhzdJou4JiP4wfkZGzmXBSPVuO5f9qNI TN578trEAAKP1lNsjglwxYi7q//bALbNPbxQCUJ4HcxXbosTANWGbhE9r2E9 ZvZn4y0B3KLV7q40qsdIfjJT67wAu9JIsa733oB/o0/EcBZAmPPX5qeDLTj3 hx+ovFaA+27rskuXtEPh0Xw/C8EolFqd7s8z+QD3XTKl7pmjWBArEaS2/xMc d+1jJjmO4k/355V5J5jY7il/LMCWAP/F4Y0Pa3gYC6tJmEFw4WDqHDfeMIxW 5Q8RKpe48L4cv8W9kQ8VKcJaUoKLJdlmzhtqR9A00LF6+qL4zk2dfTvKRzGQ +in4EDGIFPVbT+oyBPDaHxp8cfcgkuUiI8t2CvFvWMPs/HQOMjZIPFxVJkQH d/8O+u4P2HtI0SU5j4q7M7PLzWM+Im7W5Cf3oVeQl600c2Z9gpfcB507LnW4 XMZyMLBjIqjZ6vvHzAaoBz+fL93cCUaWadjW929Q0a76mXDvAp/zzofDfAdr TlPpyIwebBs73HatqxX3ctrGlpZ/we5TfVVf9dvh671IoiVzGLZ/58QHeQyA 7G7APR/NR+FetSMTM1gQ1XL6CwNGMI/6wMk7iYVprVvmxNFRLAySqDqiwUa6 3IrND90E4ChQqSkZbBxR8pC5pyPES1G495ulHOgeqz48VSDEeZ0AUXoYB1er VENq9EQY9a3uG+nhYEbLtLFKRQdWfFuvWzSZDkPNG882NnbCX+b9avPnOTh7 ZEp24F0XNh45xfNJeIbnmdta/jT2oPVEjmG7YQmm/I+XOL/sxXGzEIMc43LE JHcacZr7EKrQc+1BEhXnpaI2qZT3o2F1edhUDh3yk9lLGUkDcJ3zmD5bvwYG MftTIwZHMWb/2iZkdTe6BJ1my18JIMUwMxCG9OAu1VkxzkYIOxsTh+nRLwhy 2hQlLeYRbrJIIwz7kFrjPUGVFaH2JO1mjWQ/fo88qwo4LkLkQVfDBx39oPiV qv6qEgGu8+36iwcg87Px8lK5r9hy9p3L6kcsBIaZb2QZi1DadGZct4CDRR5j P36L96Je22TouhMHjcWlNbK6QmwnxyY8IXOgcd/vTYujADLnVNaU1bIxU0/u QKnZKHLVxshEHBuKFzgXfbVHYK7P6HU5ycZPEbkuZTEfrZ45USoObNBPKZXw pnlwNin4bmHJhvsNqTNzNnWgxobEjZpkwUWtIVWd/BE7zu1QWjrFwu5rgwGz me1INuhYsUCWjRjlqHrJ/FZ0NZqp+2ixMez1/XS5TDOGyDUHFjqxUXZQg1FU 2wAFHxvFb1FsfPYpcr4aXQv1RMm+oWY2JlQDWRR3OmJDnwQ3LefAWV62eu1m ESoP2QmZN7moPHrDr0Csr7oVP6KygwsSt6z/2BohDAMy7J8pEzi75+IBu60C eH7WlrvjSGCQqXf3otYoTi8u3L7lMoFZGtcrfi4YQW62klXcIwIS++LVT/4Z Bvl07l9RmQSm1AKpQYM83HgoCFmSTaD7R9U1NVIHhOnm5zw8CPgSA4cq2z8g 6Irll5t7CazvUvuunNmOmblakbYmBBxOtG+JvdqKx9SJwxULCajaqmYUlbyF 6en3ZiN9XPhPbigLD26AVNfhVolULhSS1qrPt65FaHFJ6HJHLuQj2hyYmnTc XXTV78zPIZS4+1I48ZmYabjX+nuBuN5yqk7xVT626b0NJ5sS0FYI51zWLkKs pHGWdi0BV4ksjfbcUvApkUpLrHiIizePvuD6EtrSFvZXanl4bO5P325aBY/f AfPkTYfh/c2r4Ww6HY96s+Mi8oexYrMUZZL2Gu7HmlPSlPgQGeaS+beZODHI dF3PE2K3zY2c/PROjC8ZDfRVEc+l3u8Yo+4zlrX59lnsEkG6fsu8W4IuhFaY DtwJEuHvnzYHd63sQXTjMqZJighJ3otMHA9+wQEd3o4Nr0W4n2PsNpjYi/aE gN69AyLsm07b8dSvD+xH6v8kTolgZ3xpruqOEui1rt8jtBpCRvQzauGBl3Bp j317IXQIt5MsLUku1bDJTJOoow+hNteILZvyChxf065caS5OznUPipWoxeTt KYakCxcz54w2Ku5j4NWhpKZksZ79s2q22yQ0QOYd5Z+dcwkkaAbHvGU0Ya0+ o43hL9a3mD3lFNeNlKQcfoi2AFFOm7lKKT3wWvXuFyVBgI9UW1fzJ19gFy6x NVpKCJfjn4hNYh7uZNIyJzMhznq79xdY9EG6ONiIHCLEI6nwqMSiPmyZTjlz iS7EzrD32Yoq/fgy9FHyjpQIRaGX3/Kuiv8E++4TRbGe/wGaeC9N "], {{ Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], GrayLevel[0], Arrowheads[0.], { ArrowBox[ BezierCurveBox[{ 1, {0.6162994546370129, -0.11587655423888106`}, 2}], 0.0249655366632121], ArrowBox[ BezierCurveBox[{ 1, {0.6121102681171386, 0.12861423207006986`}, 2}], 0.0249655366632121], ArrowBox[{1, 3}, 0.0249655366632121], ArrowBox[{1, 4}, 0.0249655366632121], ArrowBox[ BezierCurveBox[{1, {0.602328413429423, 0.5167510030907476}, 5}], 0.0249655366632121], ArrowBox[ BezierCurveBox[{1, {0.9763699377755082, 0.6460383418153092}, 5}], 0.0249655366632121], ArrowBox[ BezierCurveBox[{2, {0.6037042761928235, 0.5201305794079647}, 3}], 0.0249655366632121], ArrowBox[ BezierCurveBox[{ 2, {0.8419234648526707, 0.20420080664008566`}, 3}], 0.0249655366632121], ArrowBox[{2, 4}, 0.0249655366632121], ArrowBox[{2, 5}, 0.0249655366632121], ArrowBox[ BezierCurveBox[{3, {0.6052111302792172, 0.5153922636734813}, 4}], 0.0249655366632121], ArrowBox[ BezierCurveBox[{3, {0.5979121802390612, 0.9110772559435824}, 4}], 0.0249655366632121], ArrowBox[{3, 5}, 0.0249655366632121], ArrowBox[ BezierCurveBox[{ 4, {0.22274129336586307`, 1.023574233865247}, 5}], 0.0249655366632121], ArrowBox[ BezierCurveBox[{ 4, {0.37005176561213293`, 0.8286155667786392}, 5}], 0.0249655366632121]}}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], RGBColor[1, 0, 0], DiskBox[1, 0.0249655366632121], DiskBox[2, 0.0249655366632121], DiskBox[3, 0.0249655366632121], DiskBox[4, 0.0249655366632121], DiskBox[5, 0.0249655366632121]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}]}, "Row", BaseStyle->24, DisplayFunction->(RowBox[{ TemplateSlotSequence[1, TemplateBox[{1}, "Spacer1"]]}]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"Spacer", "[", "1", "]"}], ",", RowBox[{"BaseStyle", "\[Rule]", "24"}]}], "]"}]& )]], "Output", CellLabel->"Out[18]=",ExpressionUUID->"655021e8-45d1-4557-9feb-09ea4b55eca3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "/@", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"mg", ",", "mh", ",", "mgh"}], "}"}], "=", RowBox[{"AdjacencyMatrix", "/@", RowBox[{"{", RowBox[{"g", ",", "h", ",", "gh"}], "}"}]}]}], ")"}]}]], "Input", CellLabel->"In[20]:=",ExpressionUUID->"b6389012-39c1-4cae-9c59-69d6260c22d5"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "1", "1", "1"}, {"1", "0", "1", "1", "1"}, {"1", "1", "0", "1", "1"}, {"1", "1", "1", "0", "1"}, {"1", "1", "1", "1", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[ SparseArray[ Automatic, {5, 5}, 0, { 1, {{0, 4, 8, 12, 16, 20}, {{2}, {3}, {4}, {5}, {1}, {3}, {4}, {5}, { 1}, {2}, {4}, {5}, {1}, {2}, {3}, {5}, {1}, {2}, {3}, {4}}}, {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}}]]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "0", "0", "1"}, {"1", "0", "1", "0", "0"}, {"0", "1", "0", "1", "0"}, {"0", "0", "1", "0", "1"}, {"1", "0", "0", "1", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[ SparseArray[ Automatic, {5, 5}, 0, { 1, {{0, 2, 4, 6, 8, 10}, {{2}, {5}, {1}, {3}, {2}, {4}, {3}, {5}, { 1}, {4}}}, {1, 1, 1, 1, 1, 1, 1, 1, 1, 1}}]]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "2", "1", "1", "2"}, {"2", "0", "2", "1", "1"}, {"1", "2", "0", "2", "1"}, {"1", "1", "2", "0", "2"}, {"2", "1", "1", "2", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[ SparseArray[ Automatic, {5, 5}, 0, { 1, {{0, 4, 8, 12, 16, 20}, {{2}, {3}, {4}, {5}, {1}, {3}, {4}, {5}, { 1}, {2}, {4}, {5}, {1}, {2}, {3}, {5}, {1}, {2}, {3}, {4}}}, {2, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 2}}]]]]}], "}"}]], "Output", CellLabel->"Out[20]=",ExpressionUUID->"82030e0f-ac57-4511-93d6-0245a738ba2b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"mg", "+", "mh"}], "==", "mgh"}]], "Input", CellLabel->"In[11]:=",ExpressionUUID->"83cfda71-ee9d-494e-868a-116fb12d02e1"], Cell[BoxData["True"], "Output", CellLabel->"Out[11]=",ExpressionUUID->"4461009a-2cae-4512-a053-894fa39cba77"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1368, 819}, WindowMargins->{{-1790, Automatic}, {Automatic, 32}}, FrontEndVersion->"13.1 for Mac OS X x86 (64-bit) (May 28, 2022)", StyleDefinitions->"Default.nb", ExpressionUUID->"d10b7faf-8804-4f72-9933-bd28e5a294f5" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 81, 0, 98, "Title",ExpressionUUID->"4da72204-b217-48a0-924e-89329eb0b5ec"], Cell[CellGroupData[{ Cell[685, 26, 83, 0, 54, "Subsection",ExpressionUUID->"cbbc1a65-4b3b-4a9a-927e-7c7f7d5706c3"], Cell[771, 28, 109, 3, 58, "Text",ExpressionUUID->"5df1a73f-37cb-4ee8-918d-e3231f240811"], Cell[883, 33, 329, 8, 35, "Text",ExpressionUUID->"e35cc7a5-df20-4636-bec6-2dd9530a50da"], Cell[1215, 43, 346, 10, 35, "Text",ExpressionUUID->"907682cb-0e6e-4760-b85d-6bcbcfee01d5"], Cell[1564, 55, 154, 2, 35, "Text",ExpressionUUID->"f3783a6a-1c30-4f1e-a368-74910be4047f"] }, Open ]], Cell[CellGroupData[{ Cell[1755, 62, 80, 0, 67, "Section",ExpressionUUID->"607a0492-843f-4300-9097-42558490aea3"], Cell[CellGroupData[{ Cell[1860, 66, 685, 18, 30, "Input",ExpressionUUID->"3594dc2f-dbdb-4efd-b5bf-186fba9e6cae"], Cell[2548, 86, 10806, 240, 111, "Output",ExpressionUUID->"655021e8-45d1-4557-9feb-09ea4b55eca3"] }, Open ]], Cell[CellGroupData[{ Cell[13391, 331, 354, 9, 30, "Input",ExpressionUUID->"b6389012-39c1-4cae-9c59-69d6260c22d5"], Cell[13748, 342, 2693, 72, 99, "Output",ExpressionUUID->"82030e0f-ac57-4511-93d6-0245a738ba2b"] }, Open ]], Cell[CellGroupData[{ Cell[16478, 419, 156, 3, 30, "Input",ExpressionUUID->"83cfda71-ee9d-494e-868a-116fb12d02e1"], Cell[16637, 424, 110, 1, 34, "Output",ExpressionUUID->"4461009a-2cae-4512-a053-894fa39cba77"] }, Open ]] }, Open ]] }, Open ]] } ] *)