(* 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[ 552274, 14667] NotebookOptionsPosition[ 480739, 13349] NotebookOutlinePosition[ 481159, 13366] CellTagsIndexPosition[ 481116, 13363] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Empty Graph", "Title", CellDingbat->None,ExpressionUUID->"64b2c7f8-4184-412a-ae6c-04a04ba8d1d5"], Cell[CellGroupData[{ Cell["Author", "Subsection",ExpressionUUID->"4b8bb754-fa01-474b-a010-6943641e5a3c"], Cell["\<\ Eric W. Weisstein December 1, 2024\ \>", "Text",ExpressionUUID->"e4311142-4325-4cfd-b2f1-20c0ec9ee8c2"], Cell[TextData[{ "This notebook downloaded from ", ButtonBox["http://mathworld.wolfram.com/notebooks/GraphTheory/EmptyGraph.nb", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/notebooks/GraphTheory/EmptyGraph.nb"], None}], "." }], "Text",ExpressionUUID->"1940e9ff-20b0-46c8-8a67-d7aec7fb00c3"], Cell[TextData[{ "For more information, see Eric's ", StyleBox["MathWorld", FontSlant->"Italic"], " entry ", ButtonBox["http://mathworld.wolfram.com/EmptyGraph.html", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/EmptyGraph.html"], None}], "." }], "Text",ExpressionUUID->"dff0e33e-38e3-4a3e-8b3e-58217f5a8b8d"], Cell["\<\ \[Copyright]2024 Wolfram Research, Inc. except for portions noted otherwise\ \>", "Text",ExpressionUUID->"b908dc51-4afc-4682-a597-a297f10710db"] }, Open ]], Cell[CellGroupData[{ Cell["Figure", "Section",ExpressionUUID->"8a7cdd73-592d-41ef-b5c4-e484b05f6763"], Cell[CellGroupData[{ Cell["Built-in", "Subsection",ExpressionUUID->"2577b7f2-4df2-4f86-804c-915d867ecf85"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"System`Graph", "[", RowBox[{ RowBox[{"Range", "[", "n", "]"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"VertexSize", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"n", "\[Equal]", "1"}], ",", ".01", ",", RowBox[{"{", RowBox[{"\"\\"", ",", ".05"}], "}"}]}], "]"}]}], ",", RowBox[{"System`VertexStyle", "\[Rule]", "Red"}], ",", RowBox[{"System`EdgeStyle", "\[Rule]", "Black"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"UpTo", "[", "5", "]"}]}], "]"}], ",", RowBox[{"Dividers", "\[Rule]", "All"}]}], "]"}]], "Input",ExpressionUUID->\ "faed5d2b-3d4f-49c2-a512-cbf112f584f7"], Cell[BoxData[ GraphicsBox[{{}, {{InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {0.01}, VertexStyle -> { RGBColor[1, 0, 0]}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[{{0., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.005]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, PlotRangePadding->0.1], TraditionalForm], {195., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.00001, -0.00001}, { 0.00001, -0.000030000000000000004`}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 5.000000000000002*^-7], DiskBox[2, 5.000000000000002*^-7]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {585., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.00001, -0.00001}, { 0.00001, -0.000030000000000000004`}, { 0.000030000000000000004`, -0.00001}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 7.071067811865478*^-7], DiskBox[2, 7.071067811865478*^-7], DiskBox[3, 7.071067811865478*^-7]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {975., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.00001, -0.00001}, { 0.00001, -0.000030000000000000004`}, { 0.000030000000000000004`, -0.00001}, { 0.000030000000000000004`, -0.000030000000000000004`}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 7.071067811865478*^-7], DiskBox[2, 7.071067811865478*^-7], DiskBox[3, 7.071067811865478*^-7], DiskBox[4, 7.071067811865478*^-7]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1365., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.00001, -0.00001}, { 0.00001, -0.000030000000000000004`}, { 0.000030000000000000004`, -0.00001}, { 0.000030000000000000004`, -0.000030000000000000004`}, { 0.00001, -0.00005}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 1.1180339887498952*^-6], DiskBox[2, 1.1180339887498952*^-6], DiskBox[3, 1.1180339887498952*^-6], DiskBox[4, 1.1180339887498952*^-6], DiskBox[5, 1.1180339887498952*^-6]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1755., -192.}, {Center, Center}, {360., 360.}]}, { InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.00001, -0.00001}, { 0.00001, -0.000030000000000000004`}, { 0.000030000000000000004`, -0.00001}, { 0.000030000000000000004`, -0.000030000000000000004`}, { 0.00001, -0.00005}, {0.000030000000000000004`, -0.00005}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 1.1180339887498952*^-6], DiskBox[2, 1.1180339887498952*^-6], DiskBox[3, 1.1180339887498952*^-6], DiskBox[4, 1.1180339887498952*^-6], DiskBox[5, 1.1180339887498952*^-6], DiskBox[6, 1.1180339887498952*^-6]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {195., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{ 0.000030000000000000004`, -0.000030000000000000004`}, { 0.00001, -0.000030000000000000004`}, { 0.000030000000000000004`, -0.00001}, {0.00001, -0.00001}, { 0.00001, -0.00005}, {0.000030000000000000004`, -0.00005}, { 0.00005, -0.00001}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 1.4142135623730952*^-6], DiskBox[2, 1.4142135623730952*^-6], DiskBox[3, 1.4142135623730952*^-6], DiskBox[4, 1.4142135623730952*^-6], DiskBox[5, 1.4142135623730952*^-6], DiskBox[6, 1.4142135623730952*^-6], DiskBox[7, 1.4142135623730952*^-6]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {585., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.00005, -0.00004}, { 0.00001, -0.000030000000000000004`}, { 0.000030000000000000004`, -0.00001}, { 0.000030000000000000004`, -0.000030000000000000004`}, { 0.00001, -0.00005}, {0.000030000000000000004`, -0.00005}, { 0.00005, -0.00001}, {0.00001, -0.00001}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 1.4142135623730952*^-6], DiskBox[2, 1.4142135623730952*^-6], DiskBox[3, 1.4142135623730952*^-6], DiskBox[4, 1.4142135623730952*^-6], DiskBox[5, 1.4142135623730952*^-6], DiskBox[6, 1.4142135623730952*^-6], DiskBox[7, 1.4142135623730952*^-6], DiskBox[8, 1.4142135623730952*^-6]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {975., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.00005, -0.00005}, { 0.00001, -0.000030000000000000004`}, { 0.000030000000000000004`, -0.00001}, { 0.000030000000000000004`, -0.000030000000000000004`}, { 0.00001, -0.00005}, {0.000030000000000000004`, -0.00005}, { 0.00005, -0.00001}, {0.00005, -0.000030000000000000004`}, { 0.00001, -0.00001}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 1.4142135623730952*^-6], DiskBox[2, 1.4142135623730952*^-6], DiskBox[3, 1.4142135623730952*^-6], DiskBox[4, 1.4142135623730952*^-6], DiskBox[5, 1.4142135623730952*^-6], DiskBox[6, 1.4142135623730952*^-6], DiskBox[7, 1.4142135623730952*^-6], DiskBox[8, 1.4142135623730952*^-6], DiskBox[9, 1.4142135623730952*^-6]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1365., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.00001, -0.00007000000000000001}, { 0.00001, -0.000030000000000000004`}, { 0.000030000000000000004`, -0.00001}, { 0.000030000000000000004`, -0.000030000000000000004`}, { 0.00001, -0.00005}, {0.000030000000000000004`, -0.00005}, { 0.00005, -0.00001}, {0.00005, -0.000030000000000000004`}, { 0.00005, -0.00005}, {0.00001, -0.00001}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 1.8027756377319948*^-6], DiskBox[2, 1.8027756377319948*^-6], DiskBox[3, 1.8027756377319948*^-6], DiskBox[4, 1.8027756377319948*^-6], DiskBox[5, 1.8027756377319948*^-6], DiskBox[6, 1.8027756377319948*^-6], DiskBox[7, 1.8027756377319948*^-6], DiskBox[8, 1.8027756377319948*^-6], DiskBox[9, 1.8027756377319948*^-6], DiskBox[10, 1.8027756377319948*^-6]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1755., -576.}, {Center, Center}, {360., 360.}]}}, StyleBox[{{}, {LineBox[{{0, 0}, {0, -384.}}], LineBox[{{0, -384.}, {0, -768.}}], LineBox[{{390., 0}, {390., -384.}}], LineBox[{{390., -384.}, {390., -768.}}], LineBox[{{780., 0}, {780., -384.}}], LineBox[{{780., -384.}, {780., -768.}}], LineBox[{{1170., 0}, {1170., -384.}}], LineBox[{{1170., -384.}, {1170., -768.}}], LineBox[{{1560., 0}, {1560., -384.}}], LineBox[{{1560., -384.}, {1560., -768.}}], LineBox[{{1950., 0}, {1950., -384.}}], LineBox[{{1950., -384.}, {1950., -768.}}], LineBox[{{0, 0}, {390., 0}}], LineBox[{{390., 0}, {780., 0}}], LineBox[{{780., 0}, {1170., 0}}], LineBox[{{1170., 0}, {1560., 0}}], LineBox[{{1560., 0}, {1950., 0}}], LineBox[{{0, -384.}, {390., -384.}}], LineBox[{{390., -384.}, {780., -384.}}], LineBox[{{780., -384.}, {1170., -384.}}], LineBox[{{1170., -384.}, {1560., -384.}}], LineBox[{{1560., -384.}, {1950., -384.}}], LineBox[{{0, -768.}, {390., -768.}}], LineBox[{{390., -768.}, {780., -768.}}], LineBox[{{780., -768.}, {1170., -768.}}], LineBox[{{1170., -768.}, {1560., -768.}}], LineBox[{{1560., -768.}, {1950., -768.}}]}}, Antialiasing->False]}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output",ExpressionUUID->"ce437bfe-a08e-4d00-\ afe9-802590323dce"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["GraphData default (circular)", "Subsection",ExpressionUUID->"1662af13-3476-4217-aecf-19d79eea2970"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"GraphData", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], "]"}], "/.", RowBox[{"g_System`Graph", "\[RuleDelayed]", RowBox[{"SetProperty", "[", RowBox[{"g", ",", RowBox[{"{", RowBox[{ RowBox[{"VertexSize", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"n", "\[Equal]", "1"}], ",", ".01", ",", RowBox[{"{", RowBox[{"\"\\"", ",", ".05"}], "}"}]}], "]"}]}], ",", RowBox[{"System`VertexStyle", "\[Rule]", "Red"}], ",", RowBox[{"System`EdgeStyle", "\[Rule]", "Black"}]}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"n", ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"UpTo", "[", "5", "]"}]}], "]"}], ",", RowBox[{"Dividers", "\[Rule]", "All"}]}], "]"}]], "Input",ExpressionUUID->\ "157ab80f-e278-413d-8e23-726e1c583bac"], Cell[BoxData[ GraphicsBox[{{}, {{InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {0.01}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{0, 0}}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[{{0., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.005]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, PlotRangePadding->0.1], TraditionalForm], {195., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{-1, 0}, {1, 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{-1., 0.}, {1., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.05], DiskBox[2, 0.05]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {585., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{Rational[1, 2] 3^Rational[1, 2], Rational[-1, 2]}, {0, 1}, {Rational[-1, 2] 3^Rational[1, 2], Rational[-1, 2]}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.8660254037844386, -0.5}, {0., 1.}, {-0.8660254037844386, -0.5}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.057282196186948], DiskBox[2, 0.057282196186948], DiskBox[3, 0.057282196186948]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {975., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{1, 0}, {1, 1}, {2, 0}, {2, 1}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{1., 0.}, {1., 1.}, {2., 0.}, {2., 1.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.03535533905932738], DiskBox[2, 0.03535533905932738], DiskBox[3, 0.03535533905932738], DiskBox[4, 0.03535533905932738]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1365., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{(Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (-1 - 5^Rational[1, 2])}, {(Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (-1 + 5^Rational[1, 2])}, {0, 1}, {-(Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^ Rational[1, 2], Rational[1, 4] (-1 + 5^Rational[1, 2])}, {-(Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (-1 - 5^Rational[1, 2])}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.5877852522924731, -0.8090169943749475}, { 0.9510565162951535, 0.30901699437494745`}, {0., 1.}, {-0.9510565162951535, 0.30901699437494745`}, {-0.5877852522924731, \ -0.8090169943749475}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.06562476892667539], DiskBox[2, 0.06562476892667539], DiskBox[3, 0.06562476892667539], DiskBox[4, 0.06562476892667539], DiskBox[5, 0.06562476892667539]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1755., -192.}, {Center, Center}, {360., 360.}]}, { InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2]}, {1, 0}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, {-1, 0}, { Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2]}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.5, -0.8660254037844386}, {1., 0.}, {0.5, 0.8660254037844386}, {-0.5, 0.8660254037844386}, {-1., 0.}, {-0.5, -0.8660254037844386}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.06614378277661477], DiskBox[2, 0.06614378277661477], DiskBox[3, 0.06614378277661477], DiskBox[4, 0.06614378277661477], DiskBox[5, 0.06614378277661477], DiskBox[6, 0.06614378277661477]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {195., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ 0.4338837391175581, -0.9009688679024191}, { 0.9749279121818236, -0.2225209339563144}, {0.7818314824680298, 0.6234898018587335}, {0., 1.}, {-0.7818314824680298, 0.6234898018587335}, {-0.9749279121818236, \ -0.2225209339563144}, {-0.4338837391175581, -0.9009688679024191}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.4338837391175581, -0.9009688679024191}, { 0.9749279121818236, -0.2225209339563144}, {0.7818314824680298, 0.6234898018587335}, {0., 1.}, {-0.7818314824680298, 0.6234898018587335}, {-0.9749279121818236, -0.2225209339563144}, \ {-0.4338837391175581, -0.9009688679024191}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.06807909174509383], DiskBox[2, 0.06807909174509383], DiskBox[3, 0.06807909174509383], DiskBox[4, 0.06807909174509383], DiskBox[5, 0.06807909174509383], DiskBox[6, 0.06807909174509383], DiskBox[7, 0.06807909174509383]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {585., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ 0.3826834323650898, -0.9238795325112867}, { 0.9238795325112867, -0.3826834323650898}, {0.9238795325112867, 0.3826834323650898}, {0.3826834323650898, 0.9238795325112867}, {-0.3826834323650898, 0.9238795325112867}, {-0.9238795325112867, 0.3826834323650898}, {-0.9238795325112867, \ -0.3826834323650898}, {-0.3826834323650898, -0.9238795325112867}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.3826834323650898, -0.9238795325112867}, { 0.9238795325112867, -0.3826834323650898}, {0.9238795325112867, 0.3826834323650898}, {0.3826834323650898, 0.9238795325112867}, {-0.3826834323650898, 0.9238795325112867}, {-0.9238795325112867, 0.3826834323650898}, {-0.9238795325112867, -0.3826834323650898}, \ {-0.3826834323650898, -0.9238795325112867}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.06532814824381883], DiskBox[2, 0.06532814824381883], DiskBox[3, 0.06532814824381883], DiskBox[4, 0.06532814824381883], DiskBox[5, 0.06532814824381883], DiskBox[6, 0.06532814824381883], DiskBox[7, 0.06532814824381883], DiskBox[8, 0.06532814824381883]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {975., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ 0.3420201433256687, -0.9396926207859084}, { 0.8660254037844386, -0.5}, {0.984807753012208, 0.17364817766693033`}, {0.6427876096865393, 0.766044443118978}, {0., 1.}, {-0.6427876096865393, 0.766044443118978}, {-0.984807753012208, 0.17364817766693033`}, {-0.8660254037844386, -0.5}, \ {-0.3420201433256687, -0.9396926207859084}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.3420201433256687, -0.9396926207859084}, { 0.8660254037844386, -0.5}, {0.984807753012208, 0.17364817766693033`}, {0.6427876096865393, 0.766044443118978}, { 0., 1.}, {-0.6427876096865393, 0.766044443118978}, {-0.984807753012208, 0.17364817766693033`}, {-0.8660254037844386, -0.5}, \ {-0.3420201433256687, -0.9396926207859084}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.06910948155238507], DiskBox[2, 0.06910948155238507], DiskBox[3, 0.06910948155238507], DiskBox[4, 0.06910948155238507], DiskBox[5, 0.06910948155238507], DiskBox[6, 0.06910948155238507], DiskBox[7, 0.06910948155238507], DiskBox[8, 0.06910948155238507], DiskBox[9, 0.06910948155238507]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1365., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ 0.30901699437494745`, -0.9510565162951535}, { 0.8090169943749475, -0.5877852522924731}, {1., 0.}, { 0.8090169943749475, 0.5877852522924731}, {0.30901699437494745`, 0.9510565162951535}, {-0.30901699437494745`, 0.9510565162951535}, {-0.8090169943749475, 0.5877852522924731}, {-1., 0.}, {-0.8090169943749475, -0.5877852522924731}, \ {-0.30901699437494745`, -0.9510565162951535}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.30901699437494745`, -0.9510565162951535}, { 0.8090169943749475, -0.5877852522924731}, {1., 0.}, { 0.8090169943749475, 0.5877852522924731}, {0.30901699437494745`, 0.9510565162951535}, {-0.30901699437494745`, 0.9510565162951535}, {-0.8090169943749475, 0.5877852522924731}, {-1., 0.}, {-0.8090169943749475, -0.5877852522924731}, \ {-0.30901699437494745`, -0.9510565162951535}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.06900196550076443], DiskBox[2, 0.06900196550076443], DiskBox[3, 0.06900196550076443], DiskBox[4, 0.06900196550076443], DiskBox[5, 0.06900196550076443], DiskBox[6, 0.06900196550076443], DiskBox[7, 0.06900196550076443], DiskBox[8, 0.06900196550076443], DiskBox[9, 0.06900196550076443], DiskBox[10, 0.06900196550076443]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1755., -576.}, {Center, Center}, {360., 360.}]}}, StyleBox[{{}, {LineBox[{{0, 0}, {0, -384.}}], LineBox[{{0, -384.}, {0, -768.}}], LineBox[{{390., 0}, {390., -384.}}], LineBox[{{390., -384.}, {390., -768.}}], LineBox[{{780., 0}, {780., -384.}}], LineBox[{{780., -384.}, {780., -768.}}], LineBox[{{1170., 0}, {1170., -384.}}], LineBox[{{1170., -384.}, {1170., -768.}}], LineBox[{{1560., 0}, {1560., -384.}}], LineBox[{{1560., -384.}, {1560., -768.}}], LineBox[{{1950., 0}, {1950., -384.}}], LineBox[{{1950., -384.}, {1950., -768.}}], LineBox[{{0, 0}, {390., 0}}], LineBox[{{390., 0}, {780., 0}}], LineBox[{{780., 0}, {1170., 0}}], LineBox[{{1170., 0}, {1560., 0}}], LineBox[{{1560., 0}, {1950., 0}}], LineBox[{{0, -384.}, {390., -384.}}], LineBox[{{390., -384.}, {780., -384.}}], LineBox[{{780., -384.}, {1170., -384.}}], LineBox[{{1170., -384.}, {1560., -384.}}], LineBox[{{1560., -384.}, {1950., -384.}}], LineBox[{{0, -768.}, {390., -768.}}], LineBox[{{390., -768.}, {780., -768.}}], LineBox[{{780., -768.}, {1170., -768.}}], LineBox[{{1170., -768.}, {1560., -768.}}], LineBox[{{1560., -768.}, {1950., -768.}}]}}, Antialiasing->False]}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output",ExpressionUUID->"e3225b20-2058-44e6-\ 916e-713bf67fc772"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["GraphData \"Circular\"", "Subsection",ExpressionUUID->"9f62c5a8-b5cb-4b2d-9458-5c5efa3a4b84"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\"", ",", "\"\\""}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/.", RowBox[{"g_System`Graph", "\[RuleDelayed]", RowBox[{"SetProperty", "[", RowBox[{"g", ",", RowBox[{"{", RowBox[{ RowBox[{"VertexSize", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"n", "\[Equal]", "1"}], ",", ".01", ",", RowBox[{"{", RowBox[{"\"\\"", ",", ".05"}], "}"}]}], "]"}]}], ",", RowBox[{"System`VertexStyle", "\[Rule]", "Red"}], ",", RowBox[{"System`EdgeStyle", "\[Rule]", "Black"}]}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"n", ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"UpTo", "[", "5", "]"}]}], "]"}], ",", RowBox[{"Dividers", "\[Rule]", "All"}]}], "]"}]], "Input",ExpressionUUID->\ "92bde631-3cdb-439d-b593-f2438ee35d56"], Cell[BoxData[ GraphicsBox[{{}, {{InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {0.01}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{0, 0}}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[{{0., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.005]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, PlotRangePadding->0.1], TraditionalForm], {195., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{-1, 0}, {1, 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{-1., 0.}, {1., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.05], DiskBox[2, 0.05]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {585., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{Rational[1, 2] 3^Rational[1, 2], Rational[-1, 2]}, {0, 1}, {Rational[-1, 2] 3^Rational[1, 2], Rational[-1, 2]}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.8660254037844386, -0.5}, {0., 1.}, {-0.8660254037844386, -0.5}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.057282196186948], DiskBox[2, 0.057282196186948], DiskBox[3, 0.057282196186948]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {975., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{1, 0}, {1, 1}, {2, 0}, {2, 1}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{1., 0.}, {1., 1.}, {2., 0.}, {2., 1.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.03535533905932738], DiskBox[2, 0.03535533905932738], DiskBox[3, 0.03535533905932738], DiskBox[4, 0.03535533905932738]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1365., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{(Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (-1 - 5^Rational[1, 2])}, {(Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (-1 + 5^Rational[1, 2])}, {0, 1}, {-(Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^ Rational[1, 2], Rational[1, 4] (-1 + 5^Rational[1, 2])}, {-(Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (-1 - 5^Rational[1, 2])}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.5877852522924731, -0.8090169943749475}, { 0.9510565162951535, 0.30901699437494745`}, {0., 1.}, {-0.9510565162951535, 0.30901699437494745`}, {-0.5877852522924731, \ -0.8090169943749475}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.06562476892667539], DiskBox[2, 0.06562476892667539], DiskBox[3, 0.06562476892667539], DiskBox[4, 0.06562476892667539], DiskBox[5, 0.06562476892667539]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1755., -192.}, {Center, Center}, {360., 360.}]}, { InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2]}, {1, 0}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, {-1, 0}, { Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2]}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.5, -0.8660254037844386}, {1., 0.}, {0.5, 0.8660254037844386}, {-0.5, 0.8660254037844386}, {-1., 0.}, {-0.5, -0.8660254037844386}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.06614378277661477], DiskBox[2, 0.06614378277661477], DiskBox[3, 0.06614378277661477], DiskBox[4, 0.06614378277661477], DiskBox[5, 0.06614378277661477], DiskBox[6, 0.06614378277661477]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {195., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ 0.4338837391175581, -0.9009688679024191}, { 0.9749279121818236, -0.2225209339563144}, {0.7818314824680298, 0.6234898018587335}, {0., 1.}, {-0.7818314824680298, 0.6234898018587335}, {-0.9749279121818236, \ -0.2225209339563144}, {-0.4338837391175581, -0.9009688679024191}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.4338837391175581, -0.9009688679024191}, { 0.9749279121818236, -0.2225209339563144}, {0.7818314824680298, 0.6234898018587335}, {0., 1.}, {-0.7818314824680298, 0.6234898018587335}, {-0.9749279121818236, -0.2225209339563144}, \ {-0.4338837391175581, -0.9009688679024191}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.06807909174509383], DiskBox[2, 0.06807909174509383], DiskBox[3, 0.06807909174509383], DiskBox[4, 0.06807909174509383], DiskBox[5, 0.06807909174509383], DiskBox[6, 0.06807909174509383], DiskBox[7, 0.06807909174509383]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {585., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ 0.3826834323650898, -0.9238795325112867}, { 0.9238795325112867, -0.3826834323650898}, {0.9238795325112867, 0.3826834323650898}, {0.3826834323650898, 0.9238795325112867}, {-0.3826834323650898, 0.9238795325112867}, {-0.9238795325112867, 0.3826834323650898}, {-0.9238795325112867, \ -0.3826834323650898}, {-0.3826834323650898, -0.9238795325112867}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.3826834323650898, -0.9238795325112867}, { 0.9238795325112867, -0.3826834323650898}, {0.9238795325112867, 0.3826834323650898}, {0.3826834323650898, 0.9238795325112867}, {-0.3826834323650898, 0.9238795325112867}, {-0.9238795325112867, 0.3826834323650898}, {-0.9238795325112867, -0.3826834323650898}, \ {-0.3826834323650898, -0.9238795325112867}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.06532814824381883], DiskBox[2, 0.06532814824381883], DiskBox[3, 0.06532814824381883], DiskBox[4, 0.06532814824381883], DiskBox[5, 0.06532814824381883], DiskBox[6, 0.06532814824381883], DiskBox[7, 0.06532814824381883], DiskBox[8, 0.06532814824381883]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {975., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ 0.3420201433256687, -0.9396926207859084}, { 0.8660254037844386, -0.5}, {0.984807753012208, 0.17364817766693033`}, {0.6427876096865393, 0.766044443118978}, {0., 1.}, {-0.6427876096865393, 0.766044443118978}, {-0.984807753012208, 0.17364817766693033`}, {-0.8660254037844386, -0.5}, \ {-0.3420201433256687, -0.9396926207859084}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.3420201433256687, -0.9396926207859084}, { 0.8660254037844386, -0.5}, {0.984807753012208, 0.17364817766693033`}, {0.6427876096865393, 0.766044443118978}, { 0., 1.}, {-0.6427876096865393, 0.766044443118978}, {-0.984807753012208, 0.17364817766693033`}, {-0.8660254037844386, -0.5}, \ {-0.3420201433256687, -0.9396926207859084}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.06910948155238507], DiskBox[2, 0.06910948155238507], DiskBox[3, 0.06910948155238507], DiskBox[4, 0.06910948155238507], DiskBox[5, 0.06910948155238507], DiskBox[6, 0.06910948155238507], DiskBox[7, 0.06910948155238507], DiskBox[8, 0.06910948155238507], DiskBox[9, 0.06910948155238507]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1365., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ 0.30901699437494745`, -0.9510565162951535}, { 0.8090169943749475, -0.5877852522924731}, {1., 0.}, { 0.8090169943749475, 0.5877852522924731}, {0.30901699437494745`, 0.9510565162951535}, {-0.30901699437494745`, 0.9510565162951535}, {-0.8090169943749475, 0.5877852522924731}, {-1., 0.}, {-0.8090169943749475, -0.5877852522924731}, \ {-0.30901699437494745`, -0.9510565162951535}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.30901699437494745`, -0.9510565162951535}, { 0.8090169943749475, -0.5877852522924731}, {1., 0.}, { 0.8090169943749475, 0.5877852522924731}, {0.30901699437494745`, 0.9510565162951535}, {-0.30901699437494745`, 0.9510565162951535}, {-0.8090169943749475, 0.5877852522924731}, {-1., 0.}, {-0.8090169943749475, -0.5877852522924731}, \ {-0.30901699437494745`, -0.9510565162951535}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.06900196550076443], DiskBox[2, 0.06900196550076443], DiskBox[3, 0.06900196550076443], DiskBox[4, 0.06900196550076443], DiskBox[5, 0.06900196550076443], DiskBox[6, 0.06900196550076443], DiskBox[7, 0.06900196550076443], DiskBox[8, 0.06900196550076443], DiskBox[9, 0.06900196550076443], DiskBox[10, 0.06900196550076443]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1755., -576.}, {Center, Center}, {360., 360.}]}}, StyleBox[{{}, {LineBox[{{0, 0}, {0, -384.}}], LineBox[{{0, -384.}, {0, -768.}}], LineBox[{{390., 0}, {390., -384.}}], LineBox[{{390., -384.}, {390., -768.}}], LineBox[{{780., 0}, {780., -384.}}], LineBox[{{780., -384.}, {780., -768.}}], LineBox[{{1170., 0}, {1170., -384.}}], LineBox[{{1170., -384.}, {1170., -768.}}], LineBox[{{1560., 0}, {1560., -384.}}], LineBox[{{1560., -384.}, {1560., -768.}}], LineBox[{{1950., 0}, {1950., -384.}}], LineBox[{{1950., -384.}, {1950., -768.}}], LineBox[{{0, 0}, {390., 0}}], LineBox[{{390., 0}, {780., 0}}], LineBox[{{780., 0}, {1170., 0}}], LineBox[{{1170., 0}, {1560., 0}}], LineBox[{{1560., 0}, {1950., 0}}], LineBox[{{0, -384.}, {390., -384.}}], LineBox[{{390., -384.}, {780., -384.}}], LineBox[{{780., -384.}, {1170., -384.}}], LineBox[{{1170., -384.}, {1560., -384.}}], LineBox[{{1560., -384.}, {1950., -384.}}], LineBox[{{0, -768.}, {390., -768.}}], LineBox[{{390., -768.}, {780., -768.}}], LineBox[{{780., -768.}, {1170., -768.}}], LineBox[{{1170., -768.}, {1560., -768.}}], LineBox[{{1560., -768.}, {1950., -768.}}]}}, Antialiasing->False]}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output",ExpressionUUID->"999cd3b2-a45c-49e9-\ aba6-cad6fc843741"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["GraphData \"Grid\"", "Subsection",ExpressionUUID->"56865c61-4879-4a0e-973c-3f71bb848dbd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\"", ",", "\"\\""}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/.", RowBox[{"g_System`Graph", "\[RuleDelayed]", RowBox[{"SetProperty", "[", RowBox[{"g", ",", RowBox[{"{", RowBox[{ RowBox[{"VertexSize", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"n", "\[Equal]", "1"}], ",", ".01", ",", RowBox[{"{", RowBox[{"\"\\"", ",", ".05"}], "}"}]}], "]"}]}], ",", RowBox[{"System`VertexStyle", "\[Rule]", "Red"}], ",", RowBox[{"System`EdgeStyle", "\[Rule]", "Black"}]}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"n", ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"UpTo", "[", "5", "]"}]}], "]"}], ",", RowBox[{"Dividers", "\[Rule]", "All"}]}], "]"}]], "Input",ExpressionUUID->\ "1b851eb2-7fb9-423f-b650-5f702b06f8ad"], Cell[BoxData[ GraphicsBox[{{}, {{InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {0.01}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{0, 0}}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[{{0., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.005]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, PlotRangePadding->0.1], TraditionalForm], {195., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{-1, 0}, {1, 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{-1., 0.}, {1., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.05], DiskBox[2, 0.05]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {585., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{1, 1}, {2, 1}, {1, 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{1., 1.}, {2., 1.}, {1., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.03535533905932738], DiskBox[2, 0.03535533905932738], DiskBox[3, 0.03535533905932738]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {975., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{1, 0}, {1, 1}, {2, 0}, {2, 1}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{1., 0.}, {1., 1.}, {2., 0.}, {2., 1.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.03535533905932738], DiskBox[2, 0.03535533905932738], DiskBox[3, 0.03535533905932738], DiskBox[4, 0.03535533905932738]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1365., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{1, 1}, {1, 2}, {2, 1}, {2, 2}, {3, 2}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{1., 1.}, {1., 2.}, {2., 1.}, {2., 2.}, {3., 2.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.05590169943749475], DiskBox[2, 0.05590169943749475], DiskBox[3, 0.05590169943749475], DiskBox[4, 0.05590169943749475], DiskBox[5, 0.05590169943749475]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1755., -192.}, {Center, Center}, {360., 360.}]}, { InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{1, 1}, {1, 2}, {2, 1}, {2, 2}, {3, 1}, {3, 2}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{1., 1.}, {1., 2.}, {2., 1.}, {2., 2.}, {3., 1.}, {3., 2.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.05590169943749475], DiskBox[2, 0.05590169943749475], DiskBox[3, 0.05590169943749475], DiskBox[4, 0.05590169943749475], DiskBox[5, 0.05590169943749475], DiskBox[6, 0.05590169943749475]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {195., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{1, 0}, {1, 1}, {1, 2}, {2, 1}, {2, 2}, {3, 1}, {3, 2}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{1., 0.}, {1., 1.}, {1., 2.}, {2., 1.}, {2., 2.}, {3., 1.}, {3., 2.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.07071067811865477], DiskBox[2, 0.07071067811865477], DiskBox[3, 0.07071067811865477], DiskBox[4, 0.07071067811865477], DiskBox[5, 0.07071067811865477], DiskBox[6, 0.07071067811865477], DiskBox[7, 0.07071067811865477]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {585., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{1, 0}, {1, 1}, {1, 2}, {2, 0}, {2, 1}, {2, 2}, {3, 1}, {3, 2}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{1., 0.}, {1., 1.}, {1., 2.}, {2., 0.}, {2., 1.}, {2., 2.}, {3., 1.}, {3., 2.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.07071067811865477], DiskBox[2, 0.07071067811865477], DiskBox[3, 0.07071067811865477], DiskBox[4, 0.07071067811865477], DiskBox[5, 0.07071067811865477], DiskBox[6, 0.07071067811865477], DiskBox[7, 0.07071067811865477], DiskBox[8, 0.07071067811865477]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {975., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{1, 0}, {1, 1}, {1, 2}, {2, 0}, {2, 1}, {2, 2}, {3, 0}, {3, 1}, {3, 2}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{1., 0.}, {1., 1.}, {1., 2.}, {2., 0.}, {2., 1.}, {2., 2.}, {3., 0.}, {3., 1.}, {3., 2.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.07071067811865477], DiskBox[2, 0.07071067811865477], DiskBox[3, 0.07071067811865477], DiskBox[4, 0.07071067811865477], DiskBox[5, 0.07071067811865477], DiskBox[6, 0.07071067811865477], DiskBox[7, 0.07071067811865477], DiskBox[8, 0.07071067811865477], DiskBox[9, 0.07071067811865477]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1365., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{1, 1}, {1, 2}, {1, 3}, {2, 1}, {2, 2}, {2, 3}, {3, 2}, {3, 3}, {4, 2}, {4, 3}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{1., 1.}, {1., 2.}, {1., 3.}, {2., 1.}, {2., 2.}, {2., 3.}, {3., 2.}, {3., 3.}, {4., 2.}, {4., 3.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.09013878188659974], DiskBox[2, 0.09013878188659974], DiskBox[3, 0.09013878188659974], DiskBox[4, 0.09013878188659974], DiskBox[5, 0.09013878188659974], DiskBox[6, 0.09013878188659974], DiskBox[7, 0.09013878188659974], DiskBox[8, 0.09013878188659974], DiskBox[9, 0.09013878188659974], DiskBox[10, 0.09013878188659974]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1755., -576.}, {Center, Center}, {360., 360.}]}}, StyleBox[{{}, {LineBox[{{0, 0}, {0, -384.}}], LineBox[{{0, -384.}, {0, -768.}}], LineBox[{{390., 0}, {390., -384.}}], LineBox[{{390., -384.}, {390., -768.}}], LineBox[{{780., 0}, {780., -384.}}], LineBox[{{780., -384.}, {780., -768.}}], LineBox[{{1170., 0}, {1170., -384.}}], LineBox[{{1170., -384.}, {1170., -768.}}], LineBox[{{1560., 0}, {1560., -384.}}], LineBox[{{1560., -384.}, {1560., -768.}}], LineBox[{{1950., 0}, {1950., -384.}}], LineBox[{{1950., -384.}, {1950., -768.}}], LineBox[{{0, 0}, {390., 0}}], LineBox[{{390., 0}, {780., 0}}], LineBox[{{780., 0}, {1170., 0}}], LineBox[{{1170., 0}, {1560., 0}}], LineBox[{{1560., 0}, {1950., 0}}], LineBox[{{0, -384.}, {390., -384.}}], LineBox[{{390., -384.}, {780., -384.}}], LineBox[{{780., -384.}, {1170., -384.}}], LineBox[{{1170., -384.}, {1560., -384.}}], LineBox[{{1560., -384.}, {1950., -384.}}], LineBox[{{0, -768.}, {390., -768.}}], LineBox[{{390., -768.}, {780., -768.}}], LineBox[{{780., -768.}, {1170., -768.}}], LineBox[{{1170., -768.}, {1560., -768.}}], LineBox[{{1560., -768.}, {1950., -768.}}]}}, Antialiasing->False]}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output",ExpressionUUID->"ec069bf9-426e-417a-\ a11a-4dee530b1545"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["GraphData \"Linear\"", "Subsection",ExpressionUUID->"93041b83-c49f-4baf-8dd3-ef0159e0135f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\"", ",", "\"\\""}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/.", RowBox[{"g_System`Graph", "\[RuleDelayed]", RowBox[{"SetProperty", "[", RowBox[{"g", ",", RowBox[{"{", RowBox[{ RowBox[{"VertexSize", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"n", "\[Equal]", "1"}], ",", ".01", ",", RowBox[{"{", RowBox[{"\"\\"", ",", ".05"}], "}"}]}], "]"}]}], ",", RowBox[{"System`VertexStyle", "\[Rule]", "Red"}], ",", RowBox[{"System`EdgeStyle", "\[Rule]", "Black"}]}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"n", ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"UpTo", "[", "5", "]"}]}], "]"}], ",", RowBox[{"Dividers", "\[Rule]", "All"}]}], "]"}]], "Input",ExpressionUUID->\ "fb8cbe0b-1691-419f-87d2-620c3a2fe816"], Cell[BoxData[ GraphicsBox[{{}, {{InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {0.01}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{0, 0}}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[{{0., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.005]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, PlotRangePadding->0.1], TraditionalForm], {195., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{-1, 0}, {1, 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{-1., 0.}, {1., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.05], DiskBox[2, 0.05]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {585., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{-1, 0}, {0, 0}, {1, 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{-1., 0.}, {0., 0.}, {1., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.05], DiskBox[2, 0.05], DiskBox[3, 0.05]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {975., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{-1.5, 0.}, {-0.5, 0.}, {0.5, 0.}, {1.5, 0.}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{-1.5, 0.}, {-0.5, 0.}, {0.5, 0.}, {1.5, 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.07500000000000001], DiskBox[2, 0.07500000000000001], DiskBox[3, 0.07500000000000001], DiskBox[4, 0.07500000000000001]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1365., -192.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{-2, 0}, {-1, 0}, {0, 0}, {1, 0}, {2, 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{-2., 0.}, {-1., 0.}, {0., 0.}, {1., 0.}, {2., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.1], DiskBox[2, 0.1], DiskBox[3, 0.1], DiskBox[4, 0.1], DiskBox[5, 0.1]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1755., -192.}, {Center, Center}, {360., 360.}]}, { InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{-2.5, 0.}, {-1.5, 0.}, {-0.5, 0.}, {0.5, 0.}, {1.5, 0.}, {2.5, 0.}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{-2.5, 0.}, {-1.5, 0.}, {-0.5, 0.}, {0.5, 0.}, {1.5, 0.}, {2.5, 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.125], DiskBox[2, 0.125], DiskBox[3, 0.125], DiskBox[4, 0.125], DiskBox[5, 0.125], DiskBox[6, 0.125]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {195., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{-3, 0}, {-2, 0}, {-1, 0}, {0, 0}, {1, 0}, {2, 0}, {3, 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{-3., 0.}, {-2., 0.}, {-1., 0.}, {0., 0.}, { 1., 0.}, {2., 0.}, {3., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.15000000000000002], DiskBox[2, 0.15000000000000002], DiskBox[3, 0.15000000000000002], DiskBox[4, 0.15000000000000002], DiskBox[5, 0.15000000000000002], DiskBox[6, 0.15000000000000002], DiskBox[7, 0.15000000000000002]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {585., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{-3.5, 0.}, {-2.5, 0.}, {-1.5, 0.}, {-0.5, 0.}, {0.5, 0.}, {1.5, 0.}, {2.5, 0.}, {3.5, 0.}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{-3.5, 0.}, {-2.5, 0.}, {-1.5, 0.}, {-0.5, 0.}, {0.5, 0.}, {1.5, 0.}, {2.5, 0.}, {3.5, 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.17500000000000002], DiskBox[2, 0.17500000000000002], DiskBox[3, 0.17500000000000002], DiskBox[4, 0.17500000000000002], DiskBox[5, 0.17500000000000002], DiskBox[6, 0.17500000000000002], DiskBox[7, 0.17500000000000002], DiskBox[8, 0.17500000000000002]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {975., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{-4, 0}, {-3, 0}, {-2, 0}, {-1, 0}, {0, 0}, {1, 0}, {2, 0}, {3, 0}, {4, 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{-4., 0.}, {-3., 0.}, {-2., 0.}, {-1., 0.}, { 0., 0.}, {1., 0.}, {2., 0.}, {3., 0.}, {4., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.2], DiskBox[2, 0.2], DiskBox[3, 0.2], DiskBox[4, 0.2], DiskBox[5, 0.2], DiskBox[6, 0.2], DiskBox[7, 0.2], DiskBox[8, 0.2], DiskBox[9, 0.2]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1365., -576.}, {Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{-4.5, 0.}, {-3.5, 0.}, {-2.5, 0.}, {-1.5, 0.}, {-0.5, 0.}, {0.5, 0.}, {1.5, 0.}, {2.5, 0.}, {3.5, 0.}, { 4.5, 0.}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{-4.5, 0.}, {-3.5, 0.}, {-2.5, 0.}, {-1.5, 0.}, {-0.5, 0.}, {0.5, 0.}, {1.5, 0.}, {2.5, 0.}, {3.5, 0.}, { 4.5, 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.225], DiskBox[2, 0.225], DiskBox[3, 0.225], DiskBox[4, 0.225], DiskBox[5, 0.225], DiskBox[6, 0.225], DiskBox[7, 0.225], DiskBox[8, 0.225], DiskBox[9, 0.225], DiskBox[10, 0.225]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1755., -576.}, {Center, Center}, {360., 360.}]}}, StyleBox[{{}, {LineBox[{{0, 0}, {0, -384.}}], LineBox[{{0, -384.}, {0, -768.}}], LineBox[{{390., 0}, {390., -384.}}], LineBox[{{390., -384.}, {390., -768.}}], LineBox[{{780., 0}, {780., -384.}}], LineBox[{{780., -384.}, {780., -768.}}], LineBox[{{1170., 0}, {1170., -384.}}], LineBox[{{1170., -384.}, {1170., -768.}}], LineBox[{{1560., 0}, {1560., -384.}}], LineBox[{{1560., -384.}, {1560., -768.}}], LineBox[{{1950., 0}, {1950., -384.}}], LineBox[{{1950., -384.}, {1950., -768.}}], LineBox[{{0, 0}, {390., 0}}], LineBox[{{390., 0}, {780., 0}}], LineBox[{{780., 0}, {1170., 0}}], LineBox[{{1170., 0}, {1560., 0}}], LineBox[{{1560., 0}, {1950., 0}}], LineBox[{{0, -384.}, {390., -384.}}], LineBox[{{390., -384.}, {780., -384.}}], LineBox[{{780., -384.}, {1170., -384.}}], LineBox[{{1170., -384.}, {1560., -384.}}], LineBox[{{1560., -384.}, {1950., -384.}}], LineBox[{{0, -768.}, {390., -768.}}], LineBox[{{390., -768.}, {780., -768.}}], LineBox[{{780., -768.}, {1170., -768.}}], LineBox[{{1170., -768.}, {1560., -768.}}], LineBox[{{1560., -768.}, {1950., -768.}}]}}, Antialiasing->False]}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output",ExpressionUUID->"7af7dc2f-f5e2-4ac5-\ ab57-9b65d9284ce7"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["GraphData \"TriangularGrid\"", "Subsection",ExpressionUUID->"50d8fe96-f530-4062-bdf6-b490d1ddf40a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\"", ",", "\"\\""}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/.", RowBox[{"g_System`Graph", "\[RuleDelayed]", RowBox[{"SetProperty", "[", RowBox[{"g", ",", RowBox[{"{", RowBox[{ RowBox[{"VertexSize", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"n", "\[Equal]", "1"}], ",", ".01", ",", RowBox[{"{", RowBox[{"\"\\"", ",", ".05"}], "}"}]}], "]"}]}], ",", RowBox[{"System`VertexStyle", "\[Rule]", "Red"}], ",", RowBox[{"System`EdgeStyle", "\[Rule]", "Black"}]}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}], ",", RowBox[{"UpTo", "[", "5", "]"}]}], "]"}], ",", RowBox[{"Dividers", "\[Rule]", "All"}]}], "]"}]], "Input",ExpressionUUID->\ "39d07c32-169f-4eb1-bc89-03efd416c4c2"], Cell[BoxData[ GraphicsBox[{{}, {{InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {0.01}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{0, 0}}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[{{0., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.005]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, PlotRangePadding->0.1], TraditionalForm], {195., -195.42857142857142}, { Center, Center}, {360., 359.99999999999994}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{Rational[-1, 2] 3^Rational[1, 2], Rational[-1, 2]}, {0, 1}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{-0.8660254037844386, -0.5}, {0., 1.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.04330127018922193], DiskBox[2, 0.04330127018922193]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {585., -195.42857142857142}, { Center, Center}, {360., 359.99999999999994}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{Rational[1, 2] 3^Rational[1, 2], Rational[-1, 2]}, {0, 1}, {Rational[-1, 2] 3^Rational[1, 2], Rational[-1, 2]}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.8660254037844386, -0.5}, {0., 1.}, {-0.8660254037844386, -0.5}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.057282196186948], DiskBox[2, 0.057282196186948], DiskBox[3, 0.057282196186948]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {975., -195.42857142857142}, { Center, Center}, {360., 359.99999999999994}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], 2}, {0, 1}, {1, 1}, { Rational[-1, 2], 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.5, 2.}, {0., 1.}, {1., 1.}, {-0.5, 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.0625], DiskBox[2, 0.0625], DiskBox[3, 0.0625], DiskBox[4, 0.0625]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1365., -195.42857142857142}, { Center, Center}, {360., 359.99999999999994}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], 3^Rational[1, 2]}, { 0, Rational[1, 2] 3^Rational[1, 2]}, { 1, Rational[1, 2] 3^Rational[1, 2]}, { Rational[-1, 2], 0}, { Rational[1, 2], 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.5, 1.7320508075688772`}, {0., 0.8660254037844386}, {1., 0.8660254037844386}, {-0.5, 0.}, {0.5, 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.057282196186948], DiskBox[2, 0.057282196186948], DiskBox[3, 0.057282196186948], DiskBox[4, 0.057282196186948], DiskBox[5, 0.057282196186948]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1755., -195.42857142857142}, { Center, Center}, {360., 359.99999999999994}]}, {InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], 2}, {0, 1}, {1, 1}, { Rational[-1, 2], 0}, { Rational[1, 2], 0}, { Rational[3, 2], 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.5, 2.}, {0., 1.}, {1., 1.}, {-0.5, 0.}, { 0.5, 0.}, {1.5, 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.07071067811865477], DiskBox[2, 0.07071067811865477], DiskBox[3, 0.07071067811865477], DiskBox[4, 0.07071067811865477], DiskBox[5, 0.07071067811865477], DiskBox[6, 0.07071067811865477]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {195., -586.2857142857142}, { Center, Center}, {360., 359.99999999999994}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], Rational[3, 2] 3^Rational[1, 2]}, { 0, 3^Rational[1, 2]}, {1, 3^Rational[1, 2]}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[3, 2], Rational[1, 2] 3^Rational[1, 2]}, {-1, 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.5, 2.598076211353316}, {0., 1.7320508075688772`}, {1., 1.7320508075688772`}, {-0.5, 0.8660254037844386}, {0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {-1., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.09013878188659974], DiskBox[2, 0.09013878188659974], DiskBox[3, 0.09013878188659974], DiskBox[4, 0.09013878188659974], DiskBox[5, 0.09013878188659974], DiskBox[6, 0.09013878188659974], DiskBox[7, 0.09013878188659974]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {585., -586.2857142857142}, { Center, Center}, {360., 359.99999999999994}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], Rational[3, 2] 3^Rational[1, 2]}, { 0, 3^Rational[1, 2]}, {1, 3^Rational[1, 2]}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[3, 2], Rational[1, 2] 3^Rational[1, 2]}, {-1, 0}, {0, 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.5, 2.598076211353316}, {0., 1.7320508075688772`}, {1., 1.7320508075688772`}, {-0.5, 0.8660254037844386}, {0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {-1., 0.}, {0., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.09013878188659974], DiskBox[2, 0.09013878188659974], DiskBox[3, 0.09013878188659974], DiskBox[4, 0.09013878188659974], DiskBox[5, 0.09013878188659974], DiskBox[6, 0.09013878188659974], DiskBox[7, 0.09013878188659974], DiskBox[8, 0.09013878188659974]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {975., -586.2857142857142}, { Center, Center}, {360., 359.99999999999994}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], Rational[3, 2] 3^Rational[1, 2]}, { 0, 3^Rational[1, 2]}, {1, 3^Rational[1, 2]}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[3, 2], Rational[1, 2] 3^Rational[1, 2]}, {-1, 0}, {0, 0}, {1, 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.5, 2.598076211353316}, {0., 1.7320508075688772`}, {1., 1.7320508075688772`}, {-0.5, 0.8660254037844386}, {0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {-1., 0.}, {0., 0.}, {1., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.09013878188659974], DiskBox[2, 0.09013878188659974], DiskBox[3, 0.09013878188659974], DiskBox[4, 0.09013878188659974], DiskBox[5, 0.09013878188659974], DiskBox[6, 0.09013878188659974], DiskBox[7, 0.09013878188659974], DiskBox[8, 0.09013878188659974], DiskBox[9, 0.09013878188659974]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1365., -586.2857142857142}, { Center, Center}, {360., 359.99999999999994}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], 3}, {0, 2}, {1, 2}, { Rational[-1, 2], 1}, { Rational[1, 2], 1}, { Rational[3, 2], 1}, {-1, 0}, {0, 0}, {1, 0}, {2, 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.5, 3.}, {0., 2.}, {1., 2.}, {-0.5, 1.}, { 0.5, 1.}, {1.5, 1.}, {-1., 0.}, {0., 0.}, {1., 0.}, {2., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.10606601717798213], DiskBox[2, 0.10606601717798213], DiskBox[3, 0.10606601717798213], DiskBox[4, 0.10606601717798213], DiskBox[5, 0.10606601717798213], DiskBox[6, 0.10606601717798213], DiskBox[7, 0.10606601717798213], DiskBox[8, 0.10606601717798213], DiskBox[9, 0.10606601717798213], DiskBox[10, 0.10606601717798213]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1755., -586.2857142857142}, { Center, Center}, {360., 359.99999999999994}]}, {InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], 2 3^Rational[1, 2]}, { 0, Rational[3, 2] 3^Rational[1, 2]}, { 1, Rational[3, 2] 3^Rational[1, 2]}, { Rational[-1, 2], 3^Rational[1, 2]}, { Rational[1, 2], 3^Rational[1, 2]}, { Rational[3, 2], 3^Rational[1, 2]}, {-1, Rational[1, 2] 3^Rational[1, 2]}, {0, Rational[1, 2] 3^Rational[1, 2]}, { 1, Rational[1, 2] 3^Rational[1, 2]}, { 2, Rational[1, 2] 3^Rational[1, 2]}, { Rational[-3, 2], 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.5, 3.4641016151377544`}, {0., 2.598076211353316}, {1., 2.598076211353316}, {-0.5, 1.7320508075688772`}, {0.5, 1.7320508075688772`}, {1.5, 1.7320508075688772`}, {-1., 0.8660254037844386}, {0., 0.8660254037844386}, {1., 0.8660254037844386}, {2., 0.8660254037844386}, {-1.5, 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.12311072252245131], DiskBox[2, 0.12311072252245131], DiskBox[3, 0.12311072252245131], DiskBox[4, 0.12311072252245131], DiskBox[5, 0.12311072252245131], DiskBox[6, 0.12311072252245131], DiskBox[7, 0.12311072252245131], DiskBox[8, 0.12311072252245131], DiskBox[9, 0.12311072252245131], DiskBox[10, 0.12311072252245131], DiskBox[11, 0.12311072252245131]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {195., -977.1428571428571}, { Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], 2 3^Rational[1, 2]}, { 0, Rational[3, 2] 3^Rational[1, 2]}, { 1, Rational[3, 2] 3^Rational[1, 2]}, { Rational[-1, 2], 3^Rational[1, 2]}, { Rational[1, 2], 3^Rational[1, 2]}, { Rational[3, 2], 3^Rational[1, 2]}, {-1, Rational[1, 2] 3^Rational[1, 2]}, {0, Rational[1, 2] 3^Rational[1, 2]}, { 1, Rational[1, 2] 3^Rational[1, 2]}, { 2, Rational[1, 2] 3^Rational[1, 2]}, { Rational[-3, 2], 0}, { Rational[-1, 2], 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.5, 3.4641016151377544`}, {0., 2.598076211353316}, {1., 2.598076211353316}, {-0.5, 1.7320508075688772`}, {0.5, 1.7320508075688772`}, {1.5, 1.7320508075688772`}, {-1., 0.8660254037844386}, {0., 0.8660254037844386}, {1., 0.8660254037844386}, {2., 0.8660254037844386}, {-1.5, 0.}, {-0.5, 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.12311072252245131], DiskBox[2, 0.12311072252245131], DiskBox[3, 0.12311072252245131], DiskBox[4, 0.12311072252245131], DiskBox[5, 0.12311072252245131], DiskBox[6, 0.12311072252245131], DiskBox[7, 0.12311072252245131], DiskBox[8, 0.12311072252245131], DiskBox[9, 0.12311072252245131], DiskBox[10, 0.12311072252245131], DiskBox[11, 0.12311072252245131], DiskBox[12, 0.12311072252245131]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {585., -977.1428571428571}, { Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], 2 3^Rational[1, 2]}, { 0, Rational[3, 2] 3^Rational[1, 2]}, { 1, Rational[3, 2] 3^Rational[1, 2]}, { Rational[-1, 2], 3^Rational[1, 2]}, { Rational[1, 2], 3^Rational[1, 2]}, { Rational[3, 2], 3^Rational[1, 2]}, {-1, Rational[1, 2] 3^Rational[1, 2]}, {0, Rational[1, 2] 3^Rational[1, 2]}, { 1, Rational[1, 2] 3^Rational[1, 2]}, { 2, Rational[1, 2] 3^Rational[1, 2]}, { Rational[-3, 2], 0}, { Rational[-1, 2], 0}, { Rational[1, 2], 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.5, 3.4641016151377544`}, {0., 2.598076211353316}, {1., 2.598076211353316}, {-0.5, 1.7320508075688772`}, {0.5, 1.7320508075688772`}, {1.5, 1.7320508075688772`}, {-1., 0.8660254037844386}, {0., 0.8660254037844386}, {1., 0.8660254037844386}, {2., 0.8660254037844386}, {-1.5, 0.}, {-0.5, 0.}, {0.5, 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.12311072252245131], DiskBox[2, 0.12311072252245131], DiskBox[3, 0.12311072252245131], DiskBox[4, 0.12311072252245131], DiskBox[5, 0.12311072252245131], DiskBox[6, 0.12311072252245131], DiskBox[7, 0.12311072252245131], DiskBox[8, 0.12311072252245131], DiskBox[9, 0.12311072252245131], DiskBox[10, 0.12311072252245131], DiskBox[11, 0.12311072252245131], DiskBox[12, 0.12311072252245131], DiskBox[13, 0.12311072252245131]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {975., -977.1428571428571}, { Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14}, {}, { EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], 2 3^Rational[1, 2]}, { 0, Rational[3, 2] 3^Rational[1, 2]}, { 1, Rational[3, 2] 3^Rational[1, 2]}, { Rational[-1, 2], 3^Rational[1, 2]}, { Rational[1, 2], 3^Rational[1, 2]}, { Rational[3, 2], 3^Rational[1, 2]}, {-1, Rational[1, 2] 3^Rational[1, 2]}, {0, Rational[1, 2] 3^Rational[1, 2]}, { 1, Rational[1, 2] 3^Rational[1, 2]}, { 2, Rational[1, 2] 3^Rational[1, 2]}, { Rational[-3, 2], 0}, { Rational[-1, 2], 0}, { Rational[1, 2], 0}, { Rational[3, 2], 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.5, 3.4641016151377544`}, {0., 2.598076211353316}, {1., 2.598076211353316}, {-0.5, 1.7320508075688772`}, {0.5, 1.7320508075688772`}, {1.5, 1.7320508075688772`}, {-1., 0.8660254037844386}, {0., 0.8660254037844386}, {1., 0.8660254037844386}, {2., 0.8660254037844386}, {-1.5, 0.}, {-0.5, 0.}, {0.5, 0.}, {1.5, 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.12311072252245131], DiskBox[2, 0.12311072252245131], DiskBox[3, 0.12311072252245131], DiskBox[4, 0.12311072252245131], DiskBox[5, 0.12311072252245131], DiskBox[6, 0.12311072252245131], DiskBox[7, 0.12311072252245131], DiskBox[8, 0.12311072252245131], DiskBox[9, 0.12311072252245131], DiskBox[10, 0.12311072252245131], DiskBox[11, 0.12311072252245131], DiskBox[12, 0.12311072252245131], DiskBox[13, 0.12311072252245131], DiskBox[14, 0.12311072252245131]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1365., -977.1428571428571}, { Center, Center}, {360., 360.}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15}, {}, { EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], 4}, {0, 3}, {1, 3}, { Rational[-1, 2], 2}, { Rational[1, 2], 2}, { Rational[3, 2], 2}, {-1, 1}, {0, 1}, {1, 1}, {2, 1}, { Rational[-3, 2], 0}, { Rational[-1, 2], 0}, { Rational[1, 2], 0}, { Rational[3, 2], 0}, { Rational[5, 2], 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.5, 4.}, {0., 3.}, {1., 3.}, {-0.5, 2.}, { 0.5, 2.}, {1.5, 2.}, {-1., 1.}, {0., 1.}, {1., 1.}, {2., 1.}, {-1.5, 0.}, {-0.5, 0.}, {0.5, 0.}, {1.5, 0.}, {2.5, 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.14142135623730953], DiskBox[2, 0.14142135623730953], DiskBox[3, 0.14142135623730953], DiskBox[4, 0.14142135623730953], DiskBox[5, 0.14142135623730953], DiskBox[6, 0.14142135623730953], DiskBox[7, 0.14142135623730953], DiskBox[8, 0.14142135623730953], DiskBox[9, 0.14142135623730953], DiskBox[10, 0.14142135623730953], DiskBox[11, 0.14142135623730953], DiskBox[12, 0.14142135623730953], DiskBox[13, 0.14142135623730953], DiskBox[14, 0.14142135623730953], DiskBox[15, 0.14142135623730953]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1755., -977.1428571428571}, { Center, Center}, {360., 360.}]}, {InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], Rational[5, 2] 3^Rational[1, 2]}, { 0, 2 3^Rational[1, 2]}, {1, 2 3^Rational[1, 2]}, { Rational[-1, 2], Rational[3, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[3, 2] 3^Rational[1, 2]}, { Rational[3, 2], Rational[3, 2] 3^Rational[1, 2]}, {-1, 3^ Rational[1, 2]}, {0, 3^Rational[1, 2]}, { 1, 3^Rational[1, 2]}, {2, 3^Rational[1, 2]}, { Rational[-3, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[3, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[5, 2], Rational[1, 2] 3^Rational[1, 2]}, {-2, 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.5, 4.330127018922193}, {0., 3.4641016151377544`}, {1., 3.4641016151377544`}, {-0.5, 2.598076211353316}, {0.5, 2.598076211353316}, {1.5, 2.598076211353316}, {-1., 1.7320508075688772`}, {0., 1.7320508075688772`}, {1., 1.7320508075688772`}, {2., 1.7320508075688772`}, {-1.5, 0.8660254037844386}, {-0.5, 0.8660254037844386}, {0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {2.5, 0.8660254037844386}, {-2., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.15612494995995996], DiskBox[2, 0.15612494995995996], DiskBox[3, 0.15612494995995996], DiskBox[4, 0.15612494995995996], DiskBox[5, 0.15612494995995996], DiskBox[6, 0.15612494995995996], DiskBox[7, 0.15612494995995996], DiskBox[8, 0.15612494995995996], DiskBox[9, 0.15612494995995996], DiskBox[10, 0.15612494995995996], DiskBox[11, 0.15612494995995996], DiskBox[12, 0.15612494995995996], DiskBox[13, 0.15612494995995996], DiskBox[14, 0.15612494995995996], DiskBox[15, 0.15612494995995996], DiskBox[16, 0.15612494995995996]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {195., -1368.}, { Center, Center}, {360., 360.0000000000002}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], Rational[5, 2] 3^Rational[1, 2]}, { 0, 2 3^Rational[1, 2]}, {1, 2 3^Rational[1, 2]}, { Rational[-1, 2], Rational[3, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[3, 2] 3^Rational[1, 2]}, { Rational[3, 2], Rational[3, 2] 3^Rational[1, 2]}, {-1, 3^ Rational[1, 2]}, {0, 3^Rational[1, 2]}, { 1, 3^Rational[1, 2]}, {2, 3^Rational[1, 2]}, { Rational[-3, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[3, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[5, 2], Rational[1, 2] 3^Rational[1, 2]}, {-2, 0}, {-1, 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.5, 4.330127018922193}, {0., 3.4641016151377544`}, {1., 3.4641016151377544`}, {-0.5, 2.598076211353316}, {0.5, 2.598076211353316}, {1.5, 2.598076211353316}, {-1., 1.7320508075688772`}, {0., 1.7320508075688772`}, {1., 1.7320508075688772`}, {2., 1.7320508075688772`}, {-1.5, 0.8660254037844386}, {-0.5, 0.8660254037844386}, {0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {2.5, 0.8660254037844386}, {-2., 0.}, {-1., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.15612494995995996], DiskBox[2, 0.15612494995995996], DiskBox[3, 0.15612494995995996], DiskBox[4, 0.15612494995995996], DiskBox[5, 0.15612494995995996], DiskBox[6, 0.15612494995995996], DiskBox[7, 0.15612494995995996], DiskBox[8, 0.15612494995995996], DiskBox[9, 0.15612494995995996], DiskBox[10, 0.15612494995995996], DiskBox[11, 0.15612494995995996], DiskBox[12, 0.15612494995995996], DiskBox[13, 0.15612494995995996], DiskBox[14, 0.15612494995995996], DiskBox[15, 0.15612494995995996], DiskBox[16, 0.15612494995995996], DiskBox[17, 0.15612494995995996]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {585., -1368.}, { Center, Center}, {360., 360.0000000000002}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], Rational[5, 2] 3^Rational[1, 2]}, { 0, 2 3^Rational[1, 2]}, {1, 2 3^Rational[1, 2]}, { Rational[-1, 2], Rational[3, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[3, 2] 3^Rational[1, 2]}, { Rational[3, 2], Rational[3, 2] 3^Rational[1, 2]}, {-1, 3^ Rational[1, 2]}, {0, 3^Rational[1, 2]}, { 1, 3^Rational[1, 2]}, {2, 3^Rational[1, 2]}, { Rational[-3, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[3, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[5, 2], Rational[1, 2] 3^Rational[1, 2]}, {-2, 0}, {-1, 0}, {0, 0}}}]]}, TagBox[GraphicsGroupBox[ GraphicsComplexBox[{{0.5, 4.330127018922193}, {0., 3.4641016151377544`}, {1., 3.4641016151377544`}, {-0.5, 2.598076211353316}, {0.5, 2.598076211353316}, {1.5, 2.598076211353316}, {-1., 1.7320508075688772`}, {0., 1.7320508075688772`}, {1., 1.7320508075688772`}, {2., 1.7320508075688772`}, {-1.5, 0.8660254037844386}, {-0.5, 0.8660254037844386}, {0.5, 0.8660254037844386}, {1.5, 0.8660254037844386}, {2.5, 0.8660254037844386}, {-2., 0.}, {-1., 0.}, {0., 0.}}, {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.15612494995995996], DiskBox[2, 0.15612494995995996], DiskBox[3, 0.15612494995995996], DiskBox[4, 0.15612494995995996], DiskBox[5, 0.15612494995995996], DiskBox[6, 0.15612494995995996], DiskBox[7, 0.15612494995995996], DiskBox[8, 0.15612494995995996], DiskBox[9, 0.15612494995995996], DiskBox[10, 0.15612494995995996], DiskBox[11, 0.15612494995995996], DiskBox[12, 0.15612494995995996], DiskBox[13, 0.15612494995995996], DiskBox[14, 0.15612494995995996], DiskBox[15, 0.15612494995995996], DiskBox[16, 0.15612494995995996], DiskBox[17, 0.15612494995995996], DiskBox[18, 0.15612494995995996]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {975., -1368.}, { Center, Center}, {360., 360.0000000000002}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], Rational[5, 2] 3^Rational[1, 2]}, { 0, 2 3^Rational[1, 2]}, {1, 2 3^Rational[1, 2]}, { Rational[-1, 2], Rational[3, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[3, 2] 3^Rational[1, 2]}, { Rational[3, 2], Rational[3, 2] 3^Rational[1, 2]}, {-1, 3^ Rational[1, 2]}, {0, 3^Rational[1, 2]}, { 1, 3^Rational[1, 2]}, {2, 3^Rational[1, 2]}, { Rational[-3, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[3, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[5, 2], Rational[1, 2] 3^Rational[1, 2]}, {-2, 0}, {-1, 0}, {0, 0}, {1, 0}}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQDQEP7F/pm1/kCRJ0gIms8ol4UbWNG8r/YI/Kf7C/ wdJJ784JFhjfHpX/A43/YT9E/297VPNhfJj5cHkHVP4PqP7X9jD70fj2qPwf aHwWB1Q+wwEGFPBhPwNe8AHubgBdo1Fl "], {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.15612494995995996], DiskBox[2, 0.15612494995995996], DiskBox[3, 0.15612494995995996], DiskBox[4, 0.15612494995995996], DiskBox[5, 0.15612494995995996], DiskBox[6, 0.15612494995995996], DiskBox[7, 0.15612494995995996], DiskBox[8, 0.15612494995995996], DiskBox[9, 0.15612494995995996], DiskBox[10, 0.15612494995995996], DiskBox[11, 0.15612494995995996], DiskBox[12, 0.15612494995995996], DiskBox[13, 0.15612494995995996], DiskBox[14, 0.15612494995995996], DiskBox[15, 0.15612494995995996], DiskBox[16, 0.15612494995995996], DiskBox[17, 0.15612494995995996], DiskBox[18, 0.15612494995995996], DiskBox[19, 0.15612494995995996]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1365., -1368.}, { Center, Center}, {360., 360.0000000000002}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], Rational[5, 2] 3^Rational[1, 2]}, { 0, 2 3^Rational[1, 2]}, {1, 2 3^Rational[1, 2]}, { Rational[-1, 2], Rational[3, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[3, 2] 3^Rational[1, 2]}, { Rational[3, 2], Rational[3, 2] 3^Rational[1, 2]}, {-1, 3^ Rational[1, 2]}, {0, 3^Rational[1, 2]}, { 1, 3^Rational[1, 2]}, {2, 3^Rational[1, 2]}, { Rational[-3, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[3, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[5, 2], Rational[1, 2] 3^Rational[1, 2]}, {-2, 0}, {-1, 0}, {0, 0}, {1, 0}, {2, 0}}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQEP7F/pm1/kCRJ0gIms8ol4UbWNG8r/YI/Kf7C/ wdJJ784JFhjfHpX/A43/YT9E/297VPNhfJj5cHkHVP4PqP7X9jD70fj2qPwf aHwWB1Q+wwEGFPBhPwNe8MEeTQAeTgB3xlGm "], {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.15612494995995996], DiskBox[2, 0.15612494995995996], DiskBox[3, 0.15612494995995996], DiskBox[4, 0.15612494995995996], DiskBox[5, 0.15612494995995996], DiskBox[6, 0.15612494995995996], DiskBox[7, 0.15612494995995996], DiskBox[8, 0.15612494995995996], DiskBox[9, 0.15612494995995996], DiskBox[10, 0.15612494995995996], DiskBox[11, 0.15612494995995996], DiskBox[12, 0.15612494995995996], DiskBox[13, 0.15612494995995996], DiskBox[14, 0.15612494995995996], DiskBox[15, 0.15612494995995996], DiskBox[16, 0.15612494995995996], DiskBox[17, 0.15612494995995996], DiskBox[18, 0.15612494995995996], DiskBox[19, 0.15612494995995996], DiskBox[20, 0.15612494995995996]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1755., -1368.}, { Center, Center}, {360., 360.0000000000002}]}, {InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], 5}, {0, 4}, {1, 4}, { Rational[-1, 2], 3}, { Rational[1, 2], 3}, { Rational[3, 2], 3}, {-1, 2}, {0, 2}, {1, 2}, {2, 2}, { Rational[-3, 2], 1}, { Rational[-1, 2], 1}, { Rational[1, 2], 1}, { Rational[3, 2], 1}, { Rational[5, 2], 1}, {-2, 0}, {-1, 0}, {0, 0}, {1, 0}, {2, 0}, {3, 0}}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQEP7CG0iAMDChCA8j/Yo/If7IfQHDC+PSr/Bxr/ A1Q9A5r5MD7MfLg8Gv1jP6q6B+h8e1T+DzQ+C7o9B1CdAXcfDgDXh+ZuGOCA 8wEo6B3x "], {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.1767766952966369], DiskBox[2, 0.1767766952966369], DiskBox[3, 0.1767766952966369], DiskBox[4, 0.1767766952966369], DiskBox[5, 0.1767766952966369], DiskBox[6, 0.1767766952966369], DiskBox[7, 0.1767766952966369], DiskBox[8, 0.1767766952966369], DiskBox[9, 0.1767766952966369], DiskBox[10, 0.1767766952966369], DiskBox[11, 0.1767766952966369], DiskBox[12, 0.1767766952966369], DiskBox[13, 0.1767766952966369], DiskBox[14, 0.1767766952966369], DiskBox[15, 0.1767766952966369], DiskBox[16, 0.1767766952966369], DiskBox[17, 0.1767766952966369], DiskBox[18, 0.1767766952966369], DiskBox[19, 0.1767766952966369], DiskBox[20, 0.1767766952966369], DiskBox[21, 0.1767766952966369]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {195., -1758.8571428571427}, { Center, Center}, {360., 360.0000000000002}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], 3 3^Rational[1, 2]}, { 0, Rational[5, 2] 3^Rational[1, 2]}, { 1, Rational[5, 2] 3^Rational[1, 2]}, { Rational[-1, 2], 2 3^Rational[1, 2]}, { Rational[1, 2], 2 3^Rational[1, 2]}, { Rational[3, 2], 2 3^Rational[1, 2]}, {-1, Rational[3, 2] 3^Rational[1, 2]}, {0, Rational[3, 2] 3^Rational[1, 2]}, { 1, Rational[3, 2] 3^Rational[1, 2]}, { 2, Rational[3, 2] 3^Rational[1, 2]}, { Rational[-3, 2], 3^Rational[1, 2]}, { Rational[-1, 2], 3^Rational[1, 2]}, { Rational[1, 2], 3^Rational[1, 2]}, { Rational[3, 2], 3^Rational[1, 2]}, { Rational[5, 2], 3^Rational[1, 2]}, {-2, Rational[1, 2] 3^Rational[1, 2]}, {-1, Rational[1, 2] 3^Rational[1, 2]}, { 0, Rational[1, 2] 3^Rational[1, 2]}, { 1, Rational[1, 2] 3^Rational[1, 2]}, { 2, Rational[1, 2] 3^Rational[1, 2]}, { 3, Rational[1, 2] 3^Rational[1, 2]}, { Rational[-5, 2], 0}}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQDQEP7BssnfTunBBxgIm80je/yBMkCOV/sEflP9i/ yifiRdU2bhjfHpX/A43/YT/EfBa4+aj8D/Zo8g6o/B9Q+37bo9oP59uj8n+g 8VkcUPkMByD81/Yw96HyGRjQ5O3R5B1Q+RxofJYDMHMAT7Zolw== "], {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.18915932438026947], DiskBox[2, 0.18915932438026947], DiskBox[3, 0.18915932438026947], DiskBox[4, 0.18915932438026947], DiskBox[5, 0.18915932438026947], DiskBox[6, 0.18915932438026947], DiskBox[7, 0.18915932438026947], DiskBox[8, 0.18915932438026947], DiskBox[9, 0.18915932438026947], DiskBox[10, 0.18915932438026947], DiskBox[11, 0.18915932438026947], DiskBox[12, 0.18915932438026947], DiskBox[13, 0.18915932438026947], DiskBox[14, 0.18915932438026947], DiskBox[15, 0.18915932438026947], DiskBox[16, 0.18915932438026947], DiskBox[17, 0.18915932438026947], DiskBox[18, 0.18915932438026947], DiskBox[19, 0.18915932438026947], DiskBox[20, 0.18915932438026947], DiskBox[21, 0.18915932438026947], DiskBox[22, 0.18915932438026947]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {585., -1758.8571428571427}, { Center, Center}, {360., 360.0000000000002}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], 3 3^Rational[1, 2]}, { 0, Rational[5, 2] 3^Rational[1, 2]}, { 1, Rational[5, 2] 3^Rational[1, 2]}, { Rational[-1, 2], 2 3^Rational[1, 2]}, { Rational[1, 2], 2 3^Rational[1, 2]}, { Rational[3, 2], 2 3^Rational[1, 2]}, {-1, Rational[3, 2] 3^Rational[1, 2]}, {0, Rational[3, 2] 3^Rational[1, 2]}, { 1, Rational[3, 2] 3^Rational[1, 2]}, { 2, Rational[3, 2] 3^Rational[1, 2]}, { Rational[-3, 2], 3^Rational[1, 2]}, { Rational[-1, 2], 3^Rational[1, 2]}, { Rational[1, 2], 3^Rational[1, 2]}, { Rational[3, 2], 3^Rational[1, 2]}, { Rational[5, 2], 3^Rational[1, 2]}, {-2, Rational[1, 2] 3^Rational[1, 2]}, {-1, Rational[1, 2] 3^Rational[1, 2]}, { 0, Rational[1, 2] 3^Rational[1, 2]}, { 1, Rational[1, 2] 3^Rational[1, 2]}, { 2, Rational[1, 2] 3^Rational[1, 2]}, { 3, Rational[1, 2] 3^Rational[1, 2]}, { Rational[-5, 2], 0}, { Rational[-3, 2], 0}}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQB2IQDQEP7BssnfTunBBxgIm80je/yBMkCOV/sEflP9i/ yifiRdU2bhjfHpX/A43/YT/EfBa4+aj8D/Zo8g6o/B9Q+37bo9oP59uj8n+g 8VkcUPkMByD81/Yw96HyGRjQ5O3R5B1Q+RxofJYDDCjgx34YCwDrX2pP "], {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.18915932438026947], DiskBox[2, 0.18915932438026947], DiskBox[3, 0.18915932438026947], DiskBox[4, 0.18915932438026947], DiskBox[5, 0.18915932438026947], DiskBox[6, 0.18915932438026947], DiskBox[7, 0.18915932438026947], DiskBox[8, 0.18915932438026947], DiskBox[9, 0.18915932438026947], DiskBox[10, 0.18915932438026947], DiskBox[11, 0.18915932438026947], DiskBox[12, 0.18915932438026947], DiskBox[13, 0.18915932438026947], DiskBox[14, 0.18915932438026947], DiskBox[15, 0.18915932438026947], DiskBox[16, 0.18915932438026947], DiskBox[17, 0.18915932438026947], DiskBox[18, 0.18915932438026947], DiskBox[19, 0.18915932438026947], DiskBox[20, 0.18915932438026947], DiskBox[21, 0.18915932438026947], DiskBox[22, 0.18915932438026947], DiskBox[23, 0.18915932438026947]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {975., -1758.8571428571427}, { Center, Center}, {360., 360.0000000000002}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], 3 3^Rational[1, 2]}, { 0, Rational[5, 2] 3^Rational[1, 2]}, { 1, Rational[5, 2] 3^Rational[1, 2]}, { Rational[-1, 2], 2 3^Rational[1, 2]}, { Rational[1, 2], 2 3^Rational[1, 2]}, { Rational[3, 2], 2 3^Rational[1, 2]}, {-1, Rational[3, 2] 3^Rational[1, 2]}, {0, Rational[3, 2] 3^Rational[1, 2]}, { 1, Rational[3, 2] 3^Rational[1, 2]}, { 2, Rational[3, 2] 3^Rational[1, 2]}, { Rational[-3, 2], 3^Rational[1, 2]}, { Rational[-1, 2], 3^Rational[1, 2]}, { Rational[1, 2], 3^Rational[1, 2]}, { Rational[3, 2], 3^Rational[1, 2]}, { Rational[5, 2], 3^Rational[1, 2]}, {-2, Rational[1, 2] 3^Rational[1, 2]}, {-1, Rational[1, 2] 3^Rational[1, 2]}, { 0, Rational[1, 2] 3^Rational[1, 2]}, { 1, Rational[1, 2] 3^Rational[1, 2]}, { 2, Rational[1, 2] 3^Rational[1, 2]}, { 3, Rational[1, 2] 3^Rational[1, 2]}, { Rational[-5, 2], 0}, { Rational[-3, 2], 0}, { Rational[-1, 2], 0}}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCQAGIQDQEP7BssnfTunBBxgIm80je/yBMkCOV/sEflP9i/ yifiRdU2bhjfHpX/A43/YT/EfBa4+aj8D/Zo8g6o/B9Q+37bo9oP59uj8n+g 8VkcUPkMByD81/Yw96HyGRjQ5O3R5B1Q+RxofJYDDCjgx35U/gM4HwCht2vv "], {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.18915932438026947], DiskBox[2, 0.18915932438026947], DiskBox[3, 0.18915932438026947], DiskBox[4, 0.18915932438026947], DiskBox[5, 0.18915932438026947], DiskBox[6, 0.18915932438026947], DiskBox[7, 0.18915932438026947], DiskBox[8, 0.18915932438026947], DiskBox[9, 0.18915932438026947], DiskBox[10, 0.18915932438026947], DiskBox[11, 0.18915932438026947], DiskBox[12, 0.18915932438026947], DiskBox[13, 0.18915932438026947], DiskBox[14, 0.18915932438026947], DiskBox[15, 0.18915932438026947], DiskBox[16, 0.18915932438026947], DiskBox[17, 0.18915932438026947], DiskBox[18, 0.18915932438026947], DiskBox[19, 0.18915932438026947], DiskBox[20, 0.18915932438026947], DiskBox[21, 0.18915932438026947], DiskBox[22, 0.18915932438026947], DiskBox[23, 0.18915932438026947], DiskBox[24, 0.18915932438026947]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1365., -1758.8571428571427}, { Center, Center}, {360., 360.0000000000002}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], 3 3^Rational[1, 2]}, { 0, Rational[5, 2] 3^Rational[1, 2]}, { 1, Rational[5, 2] 3^Rational[1, 2]}, { Rational[-1, 2], 2 3^Rational[1, 2]}, { Rational[1, 2], 2 3^Rational[1, 2]}, { Rational[3, 2], 2 3^Rational[1, 2]}, {-1, Rational[3, 2] 3^Rational[1, 2]}, {0, Rational[3, 2] 3^Rational[1, 2]}, { 1, Rational[3, 2] 3^Rational[1, 2]}, { 2, Rational[3, 2] 3^Rational[1, 2]}, { Rational[-3, 2], 3^Rational[1, 2]}, { Rational[-1, 2], 3^Rational[1, 2]}, { Rational[1, 2], 3^Rational[1, 2]}, { Rational[3, 2], 3^Rational[1, 2]}, { Rational[5, 2], 3^Rational[1, 2]}, {-2, Rational[1, 2] 3^Rational[1, 2]}, {-1, Rational[1, 2] 3^Rational[1, 2]}, { 0, Rational[1, 2] 3^Rational[1, 2]}, { 1, Rational[1, 2] 3^Rational[1, 2]}, { 2, Rational[1, 2] 3^Rational[1, 2]}, { 3, Rational[1, 2] 3^Rational[1, 2]}, { Rational[-5, 2], 0}, { Rational[-3, 2], 0}, { Rational[-1, 2], 0}, { Rational[1, 2], 0}}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQEP7BssnfTunBBxgIm80je/yBMkCOV/sEflP9i/ yifiRdU2bhjfHpX/A43/YT/EfBa4+aj8D/Zo8g6o/B9Q+37bo9oP59uj8n+g 8VkcUPkMByD81/Yw96HyGRjQ5O3R5B1Q+RxofJYDDCjgx35U/gN0PtxeAG2f bQ8= "], {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.18915932438026947], DiskBox[2, 0.18915932438026947], DiskBox[3, 0.18915932438026947], DiskBox[4, 0.18915932438026947], DiskBox[5, 0.18915932438026947], DiskBox[6, 0.18915932438026947], DiskBox[7, 0.18915932438026947], DiskBox[8, 0.18915932438026947], DiskBox[9, 0.18915932438026947], DiskBox[10, 0.18915932438026947], DiskBox[11, 0.18915932438026947], DiskBox[12, 0.18915932438026947], DiskBox[13, 0.18915932438026947], DiskBox[14, 0.18915932438026947], DiskBox[15, 0.18915932438026947], DiskBox[16, 0.18915932438026947], DiskBox[17, 0.18915932438026947], DiskBox[18, 0.18915932438026947], DiskBox[19, 0.18915932438026947], DiskBox[20, 0.18915932438026947], DiskBox[21, 0.18915932438026947], DiskBox[22, 0.18915932438026947], DiskBox[23, 0.18915932438026947], DiskBox[24, 0.18915932438026947], DiskBox[25, 0.18915932438026947]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1755., -1758.8571428571427}, { Center, Center}, {360., 360.0000000000002}]}, {InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], 3 3^Rational[1, 2]}, { 0, Rational[5, 2] 3^Rational[1, 2]}, { 1, Rational[5, 2] 3^Rational[1, 2]}, { Rational[-1, 2], 2 3^Rational[1, 2]}, { Rational[1, 2], 2 3^Rational[1, 2]}, { Rational[3, 2], 2 3^Rational[1, 2]}, {-1, Rational[3, 2] 3^Rational[1, 2]}, {0, Rational[3, 2] 3^Rational[1, 2]}, { 1, Rational[3, 2] 3^Rational[1, 2]}, { 2, Rational[3, 2] 3^Rational[1, 2]}, { Rational[-3, 2], 3^Rational[1, 2]}, { Rational[-1, 2], 3^Rational[1, 2]}, { Rational[1, 2], 3^Rational[1, 2]}, { Rational[3, 2], 3^Rational[1, 2]}, { Rational[5, 2], 3^Rational[1, 2]}, {-2, Rational[1, 2] 3^Rational[1, 2]}, {-1, Rational[1, 2] 3^Rational[1, 2]}, { 0, Rational[1, 2] 3^Rational[1, 2]}, { 1, Rational[1, 2] 3^Rational[1, 2]}, { 2, Rational[1, 2] 3^Rational[1, 2]}, { 3, Rational[1, 2] 3^Rational[1, 2]}, { Rational[-5, 2], 0}, { Rational[-3, 2], 0}, { Rational[-1, 2], 0}, { Rational[1, 2], 0}, { Rational[3, 2], 0}}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCQAmIQDQEP7BssnfTunBBxgIm80je/yBMkCOV/sEflP9i/ yifiRdU2bhjfHpX/A43/YT/EfBa4+aj8D/Zo8g6o/B9Q+37bo9oP59uj8n+g 8VkcUPkMByD81/Yw96HyGRjQ5O3R5B1Q+RxofJYDDCjgx35U/gN0vj0q/wec DwBMh25H "], {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.18915932438026947], DiskBox[2, 0.18915932438026947], DiskBox[3, 0.18915932438026947], DiskBox[4, 0.18915932438026947], DiskBox[5, 0.18915932438026947], DiskBox[6, 0.18915932438026947], DiskBox[7, 0.18915932438026947], DiskBox[8, 0.18915932438026947], DiskBox[9, 0.18915932438026947], DiskBox[10, 0.18915932438026947], DiskBox[11, 0.18915932438026947], DiskBox[12, 0.18915932438026947], DiskBox[13, 0.18915932438026947], DiskBox[14, 0.18915932438026947], DiskBox[15, 0.18915932438026947], DiskBox[16, 0.18915932438026947], DiskBox[17, 0.18915932438026947], DiskBox[18, 0.18915932438026947], DiskBox[19, 0.18915932438026947], DiskBox[20, 0.18915932438026947], DiskBox[21, 0.18915932438026947], DiskBox[22, 0.18915932438026947], DiskBox[23, 0.18915932438026947], DiskBox[24, 0.18915932438026947], DiskBox[25, 0.18915932438026947], DiskBox[26, 0.18915932438026947]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {195., -2149.7142857142853}, { Center, Center}, {360., 359.9999999999998}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], 3 3^Rational[1, 2]}, { 0, Rational[5, 2] 3^Rational[1, 2]}, { 1, Rational[5, 2] 3^Rational[1, 2]}, { Rational[-1, 2], 2 3^Rational[1, 2]}, { Rational[1, 2], 2 3^Rational[1, 2]}, { Rational[3, 2], 2 3^Rational[1, 2]}, {-1, Rational[3, 2] 3^Rational[1, 2]}, {0, Rational[3, 2] 3^Rational[1, 2]}, { 1, Rational[3, 2] 3^Rational[1, 2]}, { 2, Rational[3, 2] 3^Rational[1, 2]}, { Rational[-3, 2], 3^Rational[1, 2]}, { Rational[-1, 2], 3^Rational[1, 2]}, { Rational[1, 2], 3^Rational[1, 2]}, { Rational[3, 2], 3^Rational[1, 2]}, { Rational[5, 2], 3^Rational[1, 2]}, {-2, Rational[1, 2] 3^Rational[1, 2]}, {-1, Rational[1, 2] 3^Rational[1, 2]}, { 0, Rational[1, 2] 3^Rational[1, 2]}, { 1, Rational[1, 2] 3^Rational[1, 2]}, { 2, Rational[1, 2] 3^Rational[1, 2]}, { 3, Rational[1, 2] 3^Rational[1, 2]}, { Rational[-5, 2], 0}, { Rational[-3, 2], 0}, { Rational[-1, 2], 0}, { Rational[1, 2], 0}, { Rational[3, 2], 0}, { Rational[5, 2], 0}}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCQBmIQDQEP7BssnfTunBBxgIm80je/yBMkCOV/sEflP9i/ yifiRdU2bhjfHpX/A43/YT/EfBa4+aj8D/Zo8g6o/B9Q+37bo9oP59uj8n+g 8VkcUPkMByD81/Yw96HyGRjQ5O3R5B1Q+RxofJYDDCjgx35U/gN0vj0q/wca HxFuADWAbow= "], {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.18915932438026947], DiskBox[2, 0.18915932438026947], DiskBox[3, 0.18915932438026947], DiskBox[4, 0.18915932438026947], DiskBox[5, 0.18915932438026947], DiskBox[6, 0.18915932438026947], DiskBox[7, 0.18915932438026947], DiskBox[8, 0.18915932438026947], DiskBox[9, 0.18915932438026947], DiskBox[10, 0.18915932438026947], DiskBox[11, 0.18915932438026947], DiskBox[12, 0.18915932438026947], DiskBox[13, 0.18915932438026947], DiskBox[14, 0.18915932438026947], DiskBox[15, 0.18915932438026947], DiskBox[16, 0.18915932438026947], DiskBox[17, 0.18915932438026947], DiskBox[18, 0.18915932438026947], DiskBox[19, 0.18915932438026947], DiskBox[20, 0.18915932438026947], DiskBox[21, 0.18915932438026947], DiskBox[22, 0.18915932438026947], DiskBox[23, 0.18915932438026947], DiskBox[24, 0.18915932438026947], DiskBox[25, 0.18915932438026947], DiskBox[26, 0.18915932438026947], DiskBox[27, 0.18915932438026947]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {585., -2149.7142857142853}, { Center, Center}, {360., 359.9999999999998}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], 6}, {0, 5}, {1, 5}, { Rational[-1, 2], 4}, { Rational[1, 2], 4}, { Rational[3, 2], 4}, {-1, 3}, {0, 3}, {1, 3}, {2, 3}, { Rational[-3, 2], 2}, { Rational[-1, 2], 2}, { Rational[1, 2], 2}, { Rational[3, 2], 2}, { Rational[5, 2], 2}, {-2, 1}, {-1, 1}, {0, 1}, {1, 1}, {2, 1}, {3, 1}, { Rational[-5, 2], 0}, { Rational[-3, 2], 0}, { Rational[-1, 2], 0}, { Rational[1, 2], 0}, { Rational[3, 2], 0}, { Rational[5, 2], 0}, { Rational[7, 2], 0}}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJxdjrENgDAMBC1EQUFBQUFBwyTJDIyARM2IySgZIaVLQMlb8r8Uvc6O3n9c z3kPIrJ/7/emEppvUZzWzjV4Lqn5Ag6elbj2/xPlg5Fv++hZk58X5uBZiUfK lezvoh8Ysj05crg3eMw+x/oL9QfTXSW2/l2z8Qtl3Cer "], {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.21213203435596426], DiskBox[2, 0.21213203435596426], DiskBox[3, 0.21213203435596426], DiskBox[4, 0.21213203435596426], DiskBox[5, 0.21213203435596426], DiskBox[6, 0.21213203435596426], DiskBox[7, 0.21213203435596426], DiskBox[8, 0.21213203435596426], DiskBox[9, 0.21213203435596426], DiskBox[10, 0.21213203435596426], DiskBox[11, 0.21213203435596426], DiskBox[12, 0.21213203435596426], DiskBox[13, 0.21213203435596426], DiskBox[14, 0.21213203435596426], DiskBox[15, 0.21213203435596426], DiskBox[16, 0.21213203435596426], DiskBox[17, 0.21213203435596426], DiskBox[18, 0.21213203435596426], DiskBox[19, 0.21213203435596426], DiskBox[20, 0.21213203435596426], DiskBox[21, 0.21213203435596426], DiskBox[22, 0.21213203435596426], DiskBox[23, 0.21213203435596426], DiskBox[24, 0.21213203435596426], DiskBox[25, 0.21213203435596426], DiskBox[26, 0.21213203435596426], DiskBox[27, 0.21213203435596426], DiskBox[28, 0.21213203435596426]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {975., -2149.7142857142853}, { Center, Center}, {360., 359.9999999999998}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29}, {}, {EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], Rational[7, 2] 3^Rational[1, 2]}, { 0, 3 3^Rational[1, 2]}, {1, 3 3^Rational[1, 2]}, { Rational[-1, 2], Rational[5, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[5, 2] 3^Rational[1, 2]}, { Rational[3, 2], Rational[5, 2] 3^Rational[1, 2]}, {-1, 2 3^Rational[1, 2]}, {0, 2 3^Rational[1, 2]}, { 1, 2 3^Rational[1, 2]}, {2, 2 3^Rational[1, 2]}, { Rational[-3, 2], Rational[3, 2] 3^Rational[1, 2]}, { Rational[-1, 2], Rational[3, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[3, 2] 3^Rational[1, 2]}, { Rational[3, 2], Rational[3, 2] 3^Rational[1, 2]}, { Rational[5, 2], Rational[3, 2] 3^Rational[1, 2]}, {-2, 3^ Rational[1, 2]}, {-1, 3^Rational[1, 2]}, { 0, 3^Rational[1, 2]}, {1, 3^Rational[1, 2]}, { 2, 3^Rational[1, 2]}, {3, 3^Rational[1, 2]}, { Rational[-5, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[-3, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[3, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[5, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[7, 2], Rational[1, 2] 3^Rational[1, 2]}, {-3, 0}}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCQBWIQDQEP7EWdfbtX20s4wEQaLJ307pwQgfI/2KPyH+x/ pW9+kSdIEMa3R+X/QON/2L/KJ+JF1TZuuPmo/A/2aPIOqPwf+yH2s8DtR+Pb o/J/oPFZHFD5DAcg5v+2R3UfjA9zH1zeHk3eAZXPgcZngZr/2h7mflT+A3S+ PZp6ND6LAyqfB43PcQDmbgAU6Yf3 "], {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.22220486043288973], DiskBox[2, 0.22220486043288973], DiskBox[3, 0.22220486043288973], DiskBox[4, 0.22220486043288973], DiskBox[5, 0.22220486043288973], DiskBox[6, 0.22220486043288973], DiskBox[7, 0.22220486043288973], DiskBox[8, 0.22220486043288973], DiskBox[9, 0.22220486043288973], DiskBox[10, 0.22220486043288973], DiskBox[11, 0.22220486043288973], DiskBox[12, 0.22220486043288973], DiskBox[13, 0.22220486043288973], DiskBox[14, 0.22220486043288973], DiskBox[15, 0.22220486043288973], DiskBox[16, 0.22220486043288973], DiskBox[17, 0.22220486043288973], DiskBox[18, 0.22220486043288973], DiskBox[19, 0.22220486043288973], DiskBox[20, 0.22220486043288973], DiskBox[21, 0.22220486043288973], DiskBox[22, 0.22220486043288973], DiskBox[23, 0.22220486043288973], DiskBox[24, 0.22220486043288973], DiskBox[25, 0.22220486043288973], DiskBox[26, 0.22220486043288973], DiskBox[27, 0.22220486043288973], DiskBox[28, 0.22220486043288973], DiskBox[29, 0.22220486043288973]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1365., -2149.7142857142853}, { Center, Center}, {360., 359.9999999999998}], InsetBox[ FormBox[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30}, {}, { EdgeStyle -> { GrayLevel[0]}, VertexSize -> {{"Scaled", 0.05}}, VertexStyle -> { RGBColor[1, 0, 0]}, VertexCoordinates -> {{ Rational[1, 2], Rational[7, 2] 3^Rational[1, 2]}, { 0, 3 3^Rational[1, 2]}, {1, 3 3^Rational[1, 2]}, { Rational[-1, 2], Rational[5, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[5, 2] 3^Rational[1, 2]}, { Rational[3, 2], Rational[5, 2] 3^Rational[1, 2]}, {-1, 2 3^Rational[1, 2]}, {0, 2 3^Rational[1, 2]}, { 1, 2 3^Rational[1, 2]}, {2, 2 3^Rational[1, 2]}, { Rational[-3, 2], Rational[3, 2] 3^Rational[1, 2]}, { Rational[-1, 2], Rational[3, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[3, 2] 3^Rational[1, 2]}, { Rational[3, 2], Rational[3, 2] 3^Rational[1, 2]}, { Rational[5, 2], Rational[3, 2] 3^Rational[1, 2]}, {-2, 3^ Rational[1, 2]}, {-1, 3^Rational[1, 2]}, { 0, 3^Rational[1, 2]}, {1, 3^Rational[1, 2]}, { 2, 3^Rational[1, 2]}, {3, 3^Rational[1, 2]}, { Rational[-5, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[-3, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[3, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[5, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[7, 2], Rational[1, 2] 3^Rational[1, 2]}, {-3, 0}, {-2, 0}}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCQA2IQDQEP7EWdfbtX20s4wEQaLJ307pwQgfI/2KPyH+x/ pW9+kSdIEMa3R+X/QON/2L/KJ+JF1TZuuPmo/A/2aPIOqPwf+yH2s8DtR+Pb o/J/oPFZHFD5DAcg5v+2R3UfjA9zH1zeHk3eAZXPgcZngZr/2h7mflT+A3S+ PZp6ND6LAyqfB43PcYABFcD5AJ15iLg= "], {{}, {RGBColor[1, 0, 0], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.22220486043288973], DiskBox[2, 0.22220486043288973], DiskBox[3, 0.22220486043288973], DiskBox[4, 0.22220486043288973], DiskBox[5, 0.22220486043288973], DiskBox[6, 0.22220486043288973], DiskBox[7, 0.22220486043288973], DiskBox[8, 0.22220486043288973], DiskBox[9, 0.22220486043288973], DiskBox[10, 0.22220486043288973], DiskBox[11, 0.22220486043288973], DiskBox[12, 0.22220486043288973], DiskBox[13, 0.22220486043288973], DiskBox[14, 0.22220486043288973], DiskBox[15, 0.22220486043288973], DiskBox[16, 0.22220486043288973], DiskBox[17, 0.22220486043288973], DiskBox[18, 0.22220486043288973], DiskBox[19, 0.22220486043288973], DiskBox[20, 0.22220486043288973], DiskBox[21, 0.22220486043288973], DiskBox[22, 0.22220486043288973], DiskBox[23, 0.22220486043288973], DiskBox[24, 0.22220486043288973], DiskBox[25, 0.22220486043288973], DiskBox[26, 0.22220486043288973], DiskBox[27, 0.22220486043288973], DiskBox[28, 0.22220486043288973], DiskBox[29, 0.22220486043288973], DiskBox[30, 0.22220486043288973]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], TraditionalForm], {1755., -2149.7142857142853}, { Center, Center}, {360., 359.9999999999998}]}}, StyleBox[{{}, {LineBox[{{0, 0}, {0, -390.85714285714283`}}], LineBox[{{0, -390.85714285714283`}, {0, -781.7142857142857}}], LineBox[{{0, -781.7142857142857}, {0, -1172.5714285714284`}}], LineBox[{{0, -1172.5714285714284`}, {0, -1563.4285714285713`}}], LineBox[{{0, -1563.4285714285713`}, {0, -1954.2857142857142`}}], LineBox[{{0, -1954.2857142857142`}, {0, -2345.142857142857}}], LineBox[{{390., 0}, {390., -390.85714285714283`}}], LineBox[{{390., -390.85714285714283`}, {390., -781.7142857142857}}], LineBox[{{390., -781.7142857142857}, {390., -1172.5714285714284`}}], LineBox[{{390., -1172.5714285714284`}, {390., -1563.4285714285713`}}], LineBox[{{390., -1563.4285714285713`}, {390., -1954.2857142857142`}}], LineBox[{{390., -1954.2857142857142`}, {390., -2345.142857142857}}], LineBox[{{780., 0}, {780., -390.85714285714283`}}], LineBox[{{780., -390.85714285714283`}, {780., -781.7142857142857}}], LineBox[{{780., -781.7142857142857}, {780., -1172.5714285714284`}}], LineBox[{{780., -1172.5714285714284`}, {780., -1563.4285714285713`}}], LineBox[{{780., -1563.4285714285713`}, {780., -1954.2857142857142`}}], LineBox[{{780., -1954.2857142857142`}, {780., -2345.142857142857}}], LineBox[{{1170., 0}, {1170., -390.85714285714283`}}], LineBox[{{1170., -390.85714285714283`}, {1170., -781.7142857142857}}], LineBox[{{1170., -781.7142857142857}, {1170., -1172.5714285714284`}}], LineBox[{{1170., -1172.5714285714284`}, {1170., -1563.4285714285713`}}], LineBox[{{1170., -1563.4285714285713`}, { 1170., -1954.2857142857142`}}], LineBox[{{1170., -1954.2857142857142`}, {1170., -2345.142857142857}}], LineBox[{{1560., 0}, {1560., -390.85714285714283`}}], LineBox[{{1560., -390.85714285714283`}, {1560., -781.7142857142857}}], LineBox[{{1560., -781.7142857142857}, {1560., -1172.5714285714284`}}], LineBox[{{1560., -1172.5714285714284`}, {1560., -1563.4285714285713`}}], LineBox[{{1560., -1563.4285714285713`}, { 1560., -1954.2857142857142`}}], LineBox[{{1560., -1954.2857142857142`}, {1560., -2345.142857142857}}], LineBox[{{1950., 0}, {1950., -390.85714285714283`}}], LineBox[{{1950., -390.85714285714283`}, {1950., -781.7142857142857}}], LineBox[{{1950., -781.7142857142857}, {1950., -1172.5714285714284`}}], LineBox[{{1950., -1172.5714285714284`}, {1950., -1563.4285714285713`}}], LineBox[{{1950., -1563.4285714285713`}, { 1950., -1954.2857142857142`}}], LineBox[{{1950., -1954.2857142857142`}, {1950., -2345.142857142857}}], LineBox[{{0, 0}, {390., 0}}], LineBox[{{390., 0}, {780., 0}}], LineBox[{{780., 0}, {1170., 0}}], LineBox[{{1170., 0}, {1560., 0}}], LineBox[{{1560., 0}, {1950., 0}}], LineBox[{{0, -390.85714285714283`}, {390., -390.85714285714283`}}], LineBox[{{390., -390.85714285714283`}, {780., -390.85714285714283`}}], LineBox[{{780., -390.85714285714283`}, {1170., -390.85714285714283`}}], LineBox[{{1170., -390.85714285714283`}, {1560., -390.85714285714283`}}], LineBox[{{1560., -390.85714285714283`}, { 1950., -390.85714285714283`}}], LineBox[{{0, -781.7142857142857}, {390., -781.7142857142857}}], LineBox[{{390., -781.7142857142857}, {780., -781.7142857142857}}], LineBox[{{780., -781.7142857142857}, {1170., -781.7142857142857}}], LineBox[{{1170., -781.7142857142857}, {1560., -781.7142857142857}}], LineBox[{{1560., -781.7142857142857}, {1950., -781.7142857142857}}], LineBox[{{0, -1172.5714285714284`}, {390., -1172.5714285714284`}}], LineBox[{{390., -1172.5714285714284`}, {780., -1172.5714285714284`}}], LineBox[{{780., -1172.5714285714284`}, {1170., -1172.5714285714284`}}], LineBox[{{1170., -1172.5714285714284`}, {1560., -1172.5714285714284`}}], LineBox[{{1560., -1172.5714285714284`}, { 1950., -1172.5714285714284`}}], LineBox[{{0, -1563.4285714285713`}, {390., -1563.4285714285713`}}], LineBox[{{390., -1563.4285714285713`}, {780., -1563.4285714285713`}}], LineBox[{{780., -1563.4285714285713`}, {1170., -1563.4285714285713`}}], LineBox[{{1170., -1563.4285714285713`}, {1560., -1563.4285714285713`}}], LineBox[{{1560., -1563.4285714285713`}, { 1950., -1563.4285714285713`}}], LineBox[{{0, -1954.2857142857142`}, {390., -1954.2857142857142`}}], LineBox[{{390., -1954.2857142857142`}, {780., -1954.2857142857142`}}], LineBox[{{780., -1954.2857142857142`}, {1170., -1954.2857142857142`}}], LineBox[{{1170., -1954.2857142857142`}, {1560., -1954.2857142857142`}}], LineBox[{{1560., -1954.2857142857142`}, { 1950., -1954.2857142857142`}}], LineBox[{{0, -2345.142857142857}, {390., -2345.142857142857}}], LineBox[{{390., -2345.142857142857}, {780., -2345.142857142857}}], LineBox[{{780., -2345.142857142857}, {1170., -2345.142857142857}}], LineBox[{{1170., -2345.142857142857}, {1560., -2345.142857142857}}], LineBox[{{1560., -2345.142857142857}, {1950., -2345.142857142857}}]}}, Antialiasing->False]}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output",ExpressionUUID->"d0d35997-2188-456f-\ 942f-4b840821c0a2"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Graphics", "Subsection",ExpressionUUID->"1f99af49-660b-4147-8661-3d91792d8313"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"a", "=", "1.1"}], ";"}], "\n", RowBox[{"Show", "[", RowBox[{ RowBox[{"GraphicsArray", "[", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "a"}], ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"-", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "a"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"PointSize", "[", ".05", "]"}], ",", RowBox[{"Point", "/@", RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", "1"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "}"}], ",", RowBox[{"CircularVertices", "[", "i", "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "5"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"GraphicsSpacing", "\[Rule]", ".2"}]}], "]"}]}], "Input", CellDingbat->None,ExpressionUUID->"ff8def53-5f24-402c-9e29-7148df6aebdc"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .17241 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.190476 0.00410509 0.190476 [ [ 0 0 0 0 ] [ 1 .17241 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .17241 L 0 .17241 L closepath clip newpath % Start of sub-graphic p 0.0238095 0.00410509 0.188013 0.168309 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.4329 0.5 0.4329 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .5 Mabswid [ ] 0 setdash .02381 .02381 m .02381 .97619 L .97619 .97619 L .97619 .02381 L .02381 .02381 L s .05 w .5 .5 Mdot 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.220854 0.00410509 0.385057 0.168309 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.4329 0.5 0.4329 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .5 Mabswid [ ] 0 setdash .02381 .02381 m .02381 .97619 L .97619 .97619 L .97619 .02381 L .02381 .02381 L s .05 w .0671 .5 Mdot .9329 .5 Mdot 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.417898 0.00410509 0.582102 0.168309 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.4329 0.5 0.4329 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .5 Mabswid [ ] 0 setdash .02381 .02381 m .02381 .97619 L .97619 .97619 L .97619 .02381 L .02381 .02381 L s .05 w .28355 .8749 Mdot .28355 .1251 Mdot .9329 .5 Mdot 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.614943 0.00410509 0.779146 0.168309 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.4329 0.5 0.4329 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .5 Mabswid [ ] 0 setdash .02381 .02381 m .02381 .97619 L .97619 .97619 L .97619 .02381 L .02381 .02381 L s .05 w .5 .9329 Mdot .0671 .5 Mdot .5 .0671 Mdot .9329 .5 Mdot 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.811987 0.00410509 0.97619 0.168309 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.4329 0.5 0.4329 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .5 Mabswid [ ] 0 setdash .02381 .02381 m .02381 .97619 L .97619 .97619 L .97619 .02381 L .02381 .02381 L s .05 w .63377 .91171 Mdot .14978 .75445 Mdot .14978 .24555 Mdot .63377 .08829 Mdot .9329 .5 Mdot 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath MathSubEnd P % End of sub-graphic % End of Graphics MathPictureEnd \ \>"], "Graphics", CellDingbat->None, ImageSize->{532.875, 91.8125}, ImageMargins->{{47, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnMFOwkAQhoeW6FFR9KKHHhQ96lXPFpUYSPTmqSEmcDAa5P1rZ9C1MVuy JWvsTv8ehmGYoftNt7uQ7uxDtpy9vGbL+TRLhovsfTaffiTp26IwxR2iqE9E zwmxnhfql/g5DlmULc6GHr888vf1WXuyaPLpgdF6pUCK81JDaGyx7VlsE89+ tvPuO/rtNA9nwDJi05kusFOWXTYN2g52yVKu8XEYiPU75YVJylEYiK7DSGPA pHFyTa49Izame4pNcn3lGfGfhxa1YH/XKQOZDIADHOAABzhKcLZZyoyW6gLb Yim/QW4AFgSY2q6obMgADnCAAxzgAAc4wAEOcIADHODIO3leKn9jzysb0i3b jP+t0WJHhFHtCHG+M2GRYw5GayPWZOOEpeDaHq3aWijOqQmznc8Wdl8rgiRl hRiasFUKvz1Wy0Mqz/HLeRcJqEwA7gfFgx1wgAMc4AAHOMABDnCAAxzgAAc4 HnDULglRu4hHLZjarqhsyAAOcIATJI7a6hqxaayHUgvWgupDtZWjrn4tqPpt Qe222rp7tTsl+JoCNtnZIzfH5tuKUOcT89+fgg==\ \>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 531.875}, {90.8125, \ 0.}} -> {0., 0., 0., 0.}, {{15.0625, 101.562}, {88.625, 2.125}} -> {-1., -1., \ 0., 0.}, {{118.875, 205.375}, {88.625, 2.125}} -> {-4., -1., 0., 0.}, \ {{222.688, 309.125}, {88.625, 2.125}} -> {-7., -1., 0., 0.}, {{326.438, \ 412.938}, {88.625, 2.125}} -> {-9., -1., 0., 0.}, {{430.25, 516.75}, {88.625, \ 2.125}} -> {-12., -1., 0., \ 0.}},ExpressionUUID->"2d9ebcde-bf82-4f4e-a351-caccea5699e7"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "GraphicsArray", "\[SkeletonIndicator]"}], False, Editable->False]], "Output", CellDingbat->None,ExpressionUUID->"86022a48-10fe-4588-a504-90b476e7646f"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Classes", "Section",ExpressionUUID->"c9cb68c0-5109-40d2-930c-8c8774a7be2c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Intersection", "@@", RowBox[{"GraphData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellLabel->"In[60]:=",ExpressionUUID->"c0320338-8471-4c95-85b3-801629d3fb56"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Apex\"\>", ",", "\<\"Bicolorable\"\>", ",", "\<\"Bipartite\"\>", ",", "\<\"Bishop\"\>", ",", "\<\"Block\"\>", ",", "\<\"Cayley\"\>", ",", "\<\"Chordal\"\>", ",", "\<\"Chordless\"\>", ",", "\<\"ChromaticallyUnique\"\>", ",", "\<\"Circulant\"\>", ",", "\<\"Class1\"\>", ",", "\<\"ClawFree\"\>", ",", "\<\"DeterminedBySpectrum\"\>", ",", "\<\"DistanceRegular\"\>", ",", "\<\"DistanceTransitive\"\>", ",", "\<\"DominatingUnique\"\>", ",", "\<\"EdgeTransitive\"\>", ",", "\<\"Empty\"\>", ",", "\<\"Eulerian\"\>", ",", "\<\"Forest\"\>", ",", "\<\"Integral\"\>", ",", "\<\"Knight\"\>", ",", "\<\"Line\"\>", ",", "\<\"LinklesslyEmbeddable\"\>", ",", "\<\"Map\"\>", ",", "\<\"Matchstick\"\>", ",", "\<\"Meyniel\"\>", ",", "\<\"Outerplanar\"\>", ",", "\<\"Perfect\"\>", ",", "\<\"Planar\"\>", ",", "\<\"ProjectivePlanar\"\>", ",", "\<\"Pseudoforest\"\>", ",", "\<\"Ptolemaic\"\>", ",", "\<\"Regular\"\>", ",", "\<\"Simple\"\>", ",", "\<\"Split\"\>", ",", "\<\"SquareFree\"\>", ",", "\<\"StronglyPerfect\"\>", ",", "\<\"StronglyRegular\"\>", ",", "\<\"Symmetric\"\>", ",", "\<\"TriangleFree\"\>", ",", "\<\"Turan\"\>", ",", "\<\"Unigraphic\"\>", ",", "\<\"UniquelyColorable\"\>", ",", "\<\"UniquelyEmbeddable\"\>", ",", "\<\"UnitDistance\"\>", ",", "\<\"VertexTransitive\"\>", ",", "\<\"WeaklyPerfect\"\>", ",", "\<\"WellCovered\"\>"}], "}"}]], "Output", CellLabel->"Out[60]=",ExpressionUUID->"c74ad8b4-e575-45f8-9e50-edd15af21ee8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphClassesThatAre", "[", "\"\\"", "]"}]], "Input", CellLabel->"In[59]:=",ExpressionUUID->"fc6873ee-b94a-41f5-a3d7-d42e33c47736"], Cell[BoxData[ RowBox[{"{", "\<\"Empty\"\>", "}"}]], "Output", CellLabel->"Out[59]=",ExpressionUUID->"94402f99-5f63-41ec-84de-cc42434a88bd"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Embeddings", "Section",ExpressionUUID->"f20e60ab-271d-4c08-badd-5f7076b49dd0"], Cell[BoxData[ RowBox[{ RowBox[{"EmptyEmbedding", "[", "n_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"m", "=", RowBox[{"Ceiling", "[", RowBox[{"Sqrt", "[", "n", "]"}], "]"}]}], "}"}], ",", RowBox[{"Sort", "[", RowBox[{"Reverse", "/@", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"m", ",", "0"}], "}"}], "+", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], "#2"}], ")"}]}], "&"}], ",", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Range", "[", "n", "]"}], ",", "m", ",", "m", ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", "1"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input",ExpressionUUID->"bcbfc681-fb94-\ 4da9-97d3-d6f2cf8d63ae"], Cell[BoxData[ RowBox[{ RowBox[{"EmptyEmbedding2", "[", "n_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "-", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", "2."}]}], ",", "0."}], "}"}], "&"}], "/@", RowBox[{"Range", "[", "n", "]"}]}], ",", RowBox[{"EmptyEmbedding", "[", "n", "]"}]}], "}"}]}]], "Input",ExpressionU\ UID->"89cfcb71-86ec-4c81-a387-e086b1c6947e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"{", RowBox[{"#", ",", RowBox[{"EmptyEmbedding", "[", "#", "]"}]}], "}"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"3", ",", "20"}], "]"}]}], ";"}]], "Input",ExpressionUUID->\ "56a2678b-a5e4-44bb-87c8-9fe850e99b06"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}]}], "}"}]], "Print",ExpressionUUI\ D->"2e7fe891-984b-4adb-9f58-ba35653ae3f5"], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}]}], "}"}]], "Print",ExpressionUUI\ D->"fa23b9c8-9c5d-4f9a-b169-f98f892f024f"], Cell[BoxData[ RowBox[{"{", RowBox[{"5", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], "}"}]}], "}"}]], "Print",ExpressionUUI\ D->"6b6d8a67-f343-4c0e-8e17-5b05f323f786"], Cell[BoxData[ RowBox[{"{", RowBox[{"6", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], "}"}]}], "}"}]], "Print",ExpressionUUI\ D->"e14d04ad-4114-4c7e-822b-6042f0ab049e"], Cell[BoxData[ RowBox[{"{", RowBox[{"7", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], "}"}]}], "}"}]], "Print",ExpressionUUI\ D->"61ef18bb-1a66-4acc-924b-85de02ea2c31"], Cell[BoxData[ RowBox[{"{", RowBox[{"8", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], "}"}]}], "}"}]], "Print",ExpressionUUI\ D->"f923a00f-f02f-43dc-ba1d-a66f0d272298"], Cell[BoxData[ RowBox[{"{", RowBox[{"9", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], "}"}]}], "}"}]], "Print",ExpressionUUI\ D->"f9c81510-a5b2-4355-b664-056066e97e77"], Cell[BoxData[ RowBox[{"{", RowBox[{"10", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}]}], "}"}]}], "}"}]], "Print",ExpressionUUI\ D->"d55fe186-ff09-4bfa-8cd6-4667f12571c7"], Cell[BoxData[ RowBox[{"{", RowBox[{"11", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}]}], "}"}]}], "}"}]], "Print",ExpressionUUI\ D->"3e7aaba7-45c2-4b02-970c-1e06fe4e5fc5"], Cell[BoxData[ RowBox[{"{", RowBox[{"12", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}]}], "}"}]}], "}"}]], "Print",ExpressionUUI\ D->"3cc5cc8d-53d4-4da5-9bba-559d4e66c23d"], Cell[BoxData[ RowBox[{"{", RowBox[{"13", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}]}], "}"}]}], "}"}]], "Print",ExpressionUUI\ D->"3bd0b0c0-94bd-4a74-a53c-31d892a3c714"], Cell[BoxData[ RowBox[{"{", RowBox[{"14", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}]}], "}"}]}], "}"}]], "Print",ExpressionUUI\ D->"f8b64950-334b-4abc-aff3-97a1e04d71b6"], Cell[BoxData[ RowBox[{"{", RowBox[{"15", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}]}], "}"}]}], "}"}]], "Print",ExpressionUUI\ D->"7ba14981-519e-4e46-a243-39bb59a6ac15"], Cell[BoxData[ RowBox[{"{", RowBox[{"16", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}]}], "}"}]}], "}"}]], "Print",ExpressionUUI\ D->"1b5c71b9-2982-418e-bfa6-efcce19f21d2"], Cell[BoxData[ RowBox[{"{", RowBox[{"17", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}]}], "}"}]}], "}"}]], "Print",ExpressionUUI\ D->"4c4af9f6-5fa3-414c-9cc7-40fb07ef3643"], Cell[BoxData[ RowBox[{"{", RowBox[{"18", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}]}], "}"}]}], "}"}]], "Print",ExpressionUUI\ D->"3c5e7841-c18f-4795-a1cb-9e779808ae26"], Cell[BoxData[ RowBox[{"{", RowBox[{"19", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}]}], "}"}]}], "}"}]], "Print",ExpressionUUI\ D->"e0d6e612-9d2e-4b0c-b441-17264af84cbe"], Cell[BoxData[ RowBox[{"{", RowBox[{"20", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}]}], "}"}]}], "}"}]], "Print",ExpressionUUI\ D->"5114da9a-ad9e-47b5-a44e-f00faa07113c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"Point", "[", "#", "]"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameTicks", "\[Rule]", "None"}], ",", RowBox[{"PlotRangePadding", "\[Rule]", ".1"}], ",", RowBox[{"ImagePadding", "\[Rule]", "1"}]}], "]"}], "&"}], "/@", RowBox[{"EmptyEmbedding", "/@", RowBox[{"Range", "[", RowBox[{"3", ",", "20"}], "]"}]}]}]], "Input",ExpressionUUID->"8b4b46e2-\ 382c-42bb-82b5-c1c3e9cbccbd"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[PointBox[{{1, 0}, {1, 1}, {2, 1}}], Frame->True, FrameTicks->None, ImagePadding->1, PlotRangePadding->0.1, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwbAFhBQYWIPs/kIlE MDD/BwEYdyNEEEkURG0AkYyjUjSS4gGTzP8PHDjw38fHB0QzLCSsHKQUJAak iVFOpOmDJExGpUalRqVGpUalRqVGpUalRqVGpUalRqVGpUalhooUtp73RCxi vISNQO7rT8QiRoQRFLhikITncJQC8aCDblugYowAOJyonw==\ \>"]], ",", GraphicsBox[PointBox[{{1, 0}, {1, 1}, {2, 0}, {2, 1}}], Frame->True, FrameTicks->None, ImagePadding->1, PlotRangePadding->0.1, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwbAFhBQYWIPs/kIlE MDD/BwEYdyNEEEkURG0AkYyjUjSS4gGTzP8PHDjw38fHB0QzTMQixkvYCJBS kBiQhhuBLEaEERS4YpCE56jUqNSo1KjUqNSo1KjUqNSo1KjUqNSo1KjUqNRQ kRodExiVIiQF4kEH7LZAxRgBQO3KGg==\ \>"]], ",", GraphicsBox[PointBox[{{1, 1}, {1, 2}, {2, 1}, {2, 2}, {3, 2}}], Frame->True, FrameTicks->None, ImagePadding->1, PlotRangePadding->0.1, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwbAHiZAUGFiD7P5CJ RDAw/wcBGHcjRBBJFERtAJGMg1mKFUwy/z9w4MB/Hx8fEM3gh0UsnLARIKUg MSANNwJZjAgjKHDFIAnPUalRqVGpUalRqVGpUakhIUVs4wObGBthYwk1i7CJ EWEslV07SOIChxSIB21hb4GKMQIAc/VIgg==\ \>"]], ",", GraphicsBox[PointBox[{{1, 1}, {1, 2}, {2, 1}, {2, 2}, {3, 1}, {3, 2}}], Frame->True, FrameTicks->None, ImagePadding->1, PlotRangePadding->0.1, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwbAXiZAUGFiD7P5CJ RDAw/wcBGHcjiGSEiiCkQNQGEMk4dOXZwCTz/wMHDvz38fEB0Qx+RIqxEmk2 SD1IDEjDzSEkRqzZtHD3QMfJqPyo/Kj8qPyo/Kj8qPyo/Kj8aJt2JLdpgRil C7YVKsEIAKWt8Og=\ \>"]], ",", GraphicsBox[ PointBox[{{1, 0}, {1, 1}, {1, 2}, {2, 1}, {2, 2}, {3, 1}, {3, 2}}], Frame->True, FrameTicks->None, ImagePadding->1, PlotRangePadding->0.1, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzt2MEOgjAMBuAuU59jT6OXyTssxGQciAR5J6+ayH1vNluCAW8lxhDjT7J2 9GODwKXhGLp4qkNXlcEd2tDEqry4/bnlkjVE1PN4ONrwPPN0FshmOV6nd4lm rEwk6SbR/K7vhmhzSil77yXTVblGrpcaZ/WaJfdZ+93A4XA4HA6Hwz/vLQtl bavce96DFsqadu9vPPfa3wQOh8PhcDgcjp72n3taHm+/9/sRzBPONfih\ \>"]], ",", GraphicsBox[ PointBox[{{1, 0}, {1, 1}, {1, 2}, {2, 0}, {2, 1}, {2, 2}, {3, 1}, {3, 2}}], Frame->True, FrameTicks->None, ImagePadding->1, PlotRangePadding->0.1, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzt2cEKgzAMBuCUbnuOPs126XbcvchAD8OhPtgG894365Lh1EHBwhCR/UKT mk9C0UvAo2vyy9U1RebMoXK3vMhqsy8rLmlFRC2vp6EN7wNvR4F0kOtz+5Co uspAku4S1Xp99446eO+DtVYynSK1c2IfeV5qnPs+41pqn1/Ps/R7hcPhcDgc DofPM5fGatvE3lOzaqyW2nuOcy/9TeBwOBwOh8PhmGn/eabl9fVroO1AvQAt ghor\ \>"]], ",", GraphicsBox[ PointBox[{{1, 0}, {1, 1}, {1, 2}, {2, 0}, {2, 1}, {2, 2}, {3, 0}, {3, 1}, {3, 2}}], Frame->True, FrameTicks->None, ImagePadding->1, PlotRangePadding->0.1], ",", GraphicsBox[ PointBox[{{1, 1}, {1, 2}, {1, 3}, {2, 1}, {2, 2}, {2, 3}, {3, 2}, {3, 3}, {4, 2}, {4, 3}}], Frame->True, FrameTicks->None, ImagePadding->1, PlotRangePadding->0.1], ",", GraphicsBox[ PointBox[{{1, 1}, {1, 2}, {1, 3}, {2, 1}, {2, 2}, {2, 3}, {3, 1}, {3, 2}, {3, 3}, {4, 2}, {4, 3}}], Frame->True, FrameTicks->None, ImagePadding->1, PlotRangePadding->0.1], ",", GraphicsBox[ PointBox[{{1, 1}, {1, 2}, {1, 3}, {2, 1}, {2, 2}, {2, 3}, {3, 1}, {3, 2}, {3, 3}, {4, 1}, {4, 2}, {4, 3}}], Frame->True, FrameTicks->None, ImagePadding->1, PlotRangePadding->0.1], ",", GraphicsBox[ PointBox[{{1, 0}, {1, 1}, {1, 2}, {1, 3}, {2, 1}, {2, 2}, {2, 3}, {3, 1}, {3, 2}, {3, 3}, {4, 1}, {4, 2}, {4, 3}}], Frame->True, FrameTicks->None, ImagePadding->1, PlotRangePadding->0.1], ",", GraphicsBox[ PointBox[{{1, 0}, {1, 1}, {1, 2}, {1, 3}, {2, 0}, {2, 1}, {2, 2}, {2, 3}, {3, 1}, {3, 2}, {3, 3}, {4, 1}, {4, 2}, {4, 3}}], Frame->True, FrameTicks->None, ImagePadding->1, PlotRangePadding->0.1], ",", GraphicsBox[ PointBox[{{1, 0}, {1, 1}, {1, 2}, {1, 3}, {2, 0}, {2, 1}, {2, 2}, {2, 3}, {3, 0}, {3, 1}, {3, 2}, {3, 3}, {4, 1}, {4, 2}, {4, 3}}], Frame->True, FrameTicks->None, ImagePadding->1, PlotRangePadding->0.1], ",", GraphicsBox[ PointBox[{{1, 0}, {1, 1}, {1, 2}, {1, 3}, {2, 0}, {2, 1}, {2, 2}, {2, 3}, {3, 0}, {3, 1}, {3, 2}, {3, 3}, {4, 0}, {4, 1}, {4, 2}, {4, 3}}], Frame->True, FrameTicks->None, ImagePadding->1, PlotRangePadding->0.1], ",", GraphicsBox[ PointBox[{{1, 1}, {1, 2}, {1, 3}, {1, 4}, {2, 1}, {2, 2}, {2, 3}, {2, 4}, {3, 2}, {3, 3}, {3, 4}, {4, 2}, {4, 3}, {4, 4}, {5, 2}, {5, 3}, {5, 4}}], Frame->True, FrameTicks->None, ImagePadding->1, PlotRangePadding->0.1], ",", GraphicsBox[ PointBox[{{1, 1}, {1, 2}, {1, 3}, {1, 4}, {2, 1}, {2, 2}, {2, 3}, {2, 4}, {3, 1}, {3, 2}, {3, 3}, {3, 4}, {4, 2}, {4, 3}, {4, 4}, {5, 2}, {5, 3}, {5, 4}}], Frame->True, FrameTicks->None, ImagePadding->1, PlotRangePadding->0.1, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwbAXiLgUGFiD7P5CJ RGz9DwRAmvk/lAEW3QgiGTGkQNQGEMlIvjwTmGT+f+DAgf8+Pj4gmkEdi5gG FrEwIs0GqQeJAWm42chiGljEiDWbFu6mNExH5UflR+VH5QerPCVlJzZ12MSY iHQDOXUDNnXYxIh1w0CGw0CnhVH5UflR+VH50bpmtK4ZlR+VH5UflR+u8oOh DB6tiyiPSyBGGRKFDZoyAgAUp0wB\ \>"]], ",", GraphicsBox[ PointBox[{{1, 1}, {1, 2}, {1, 3}, {1, 4}, {2, 1}, {2, 2}, {2, 3}, {2, 4}, {3, 1}, {3, 2}, {3, 3}, {3, 4}, {4, 1}, {4, 2}, {4, 3}, {4, 4}, {5, 2}, {5, 3}, {5, 4}}], Frame->True, FrameTicks->None, ImagePadding->1, PlotRangePadding->0.1, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwbAXiLgUGFiD7P5CJ RGz9DwRAmvk/lAEW3QgiGTGkQNQGEMlIvjwTmGT+f+DAgf8+Pj4gmkEdi5gG kep0iLQPpB4kBqTh5iCLaRCpjlj76OU/SuNjVH5UflR+VH6wylO7PMUmxkSk G6hVh2ATI9YNAxkOA50WRuVH5UflR+VH65rRumZUflR+VH5UfrjKD4YyeLQu ojwugRhlOBU24MoIACiabXw=\ \>"]], ",", GraphicsBox[ PointBox[{{1, 1}, {1, 2}, {1, 3}, {1, 4}, {2, 1}, {2, 2}, {2, 3}, {2, 4}, {3, 1}, {3, 2}, {3, 3}, {3, 4}, {4, 1}, {4, 2}, {4, 3}, {4, 4}, {5, 1}, {5, 2}, {5, 3}, {5, 4}}], Frame->True, FrameTicks->None, ImagePadding->1, PlotRangePadding->0.1, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwbAXiLgUGFiD7P5CJ RGz9DwRAmvk/lAEW3QgiGTGkQNQGEMlIvjwTmGT+f+DAgf8+Pj4gmkEdi5gG keqwiTER6QaQepAYkIabgyymQaQ6bGLEumEgw4HSuByVH5UflR+VH6zyg6GM Ha1rBkdaGJUflR+VH5UfrWtG65pR+VH5UflR+eEqPxjK4NG6iPK4BGKUoVjY YC0jAB+xjvc=\ \>"]]}], "}"}]], "Output",ExpressionUUID->"5def0d6a-eba2-4301-98f7-80440ee5e17a"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"{", RowBox[{"#", ",", RowBox[{"EmptyEmbedding2", "[", "#", "]"}]}], "}"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"21", ",", "30"}], "]"}]}], ";"}]], "Input",ExpressionUUID->\ "4fc5ac64-bbeb-4d00-8366-a5eacaa2c01c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"21", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", "0.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Print",Ex\ pressionUUID->"bd96a767-64a0-4a03-9bda-de2ef36bc6ed"], Cell[BoxData[ RowBox[{"{", RowBox[{"22", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.5`", ",", "0.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Print",Ex\ pressionUUID->"f8a58e70-ac0f-4f81-9c9a-456c5978c089"], Cell[BoxData[ RowBox[{"{", RowBox[{"23", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "11.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"11.`", ",", "0.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Print",Ex\ pressionUUID->"8eddb3fa-08a5-4002-acd4-2774579ba08b"], Cell[BoxData[ RowBox[{"{", RowBox[{"24", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "11.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"11.5`", ",", "0.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Print",Ex\ pressionUUID->"0ca4108d-643a-486d-92a8-0a4138ba2b5b"], Cell[BoxData[ RowBox[{"{", RowBox[{"25", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "12.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "11.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"11.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"12.`", ",", "0.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Print",Ex\ pressionUUID->"bc1a0c73-0b92-48ff-93dc-c8adad8b272f"], Cell[BoxData[ RowBox[{"{", RowBox[{"26", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "12.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "11.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"11.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"12.5`", ",", "0.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Print",Ex\ pressionUUID->"c7f6bb82-8159-477e-9cda-29dd94004751"], Cell[BoxData[ RowBox[{"{", RowBox[{"27", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "13.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "12.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "11.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"11.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"12.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.`", ",", "0.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Print",Ex\ pressionUUID->"631ff139-d668-410c-945b-f7c55d1a7942"], Cell[BoxData[ RowBox[{"{", RowBox[{"28", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "13.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "12.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "11.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"11.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"12.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.5`", ",", "0.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Print",Ex\ pressionUUID->"e05d9a1c-5581-4bc7-8a4a-db98f5c26827"], Cell[BoxData[ RowBox[{"{", RowBox[{"29", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "14.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "13.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "12.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "11.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"11.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"12.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"14.`", ",", "0.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Print",Ex\ pressionUUID->"ec1d2fe2-1727-4f70-a7f9-efb4b2618e59"], Cell[BoxData[ RowBox[{"{", RowBox[{"30", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "14.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "13.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "12.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "11.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"11.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"12.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"13.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"14.5`", ",", "0.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Print",Ex\ pressionUUID->"b339e62a-d3d9-426b-a656-7e3a0da0b9ac"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Properties", "Section",ExpressionUUID->"3ae4724a-1a4a-4d59-8ca5-4b32cb9b3757"], Cell[CellGroupData[{ Cell["Acyclic", "Subsection",ExpressionUUID->"1bd2771e-7d51-431a-b36a-c3763bb00593"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\ "50585b48-f85e-4217-94dc-95249cedf59c"], Cell[BoxData[ RowBox[{"{", RowBox[{ "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}]], "Output",ExpressionUUID->\ "33a06025-17ab-4808-ae97-7c3ae08f2fc2"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["AdjacencyMatrixCount", "Subsection",ExpressionUUID->"ab75ff9b-5ad2-4fe9-bc01-a06132384571"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "12d61920-0cbe-49f7-aec7-59aefb9f3281"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output",ExpressionU\ UID->"0779bf62-947f-44d1-8115-4fc08c0c4fde"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Arboricity", "Subsection",ExpressionUUID->"01bc7540-c5f1-4151-8841-6feb03ed7a41"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\ "a7e63134-5f4d-47a1-a0e6-9a0412177514"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output",ExpressionU\ UID->"905626a3-4f98-467c-b2a6-02bf5af314d0"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["ArcTransitive", "Subsection",ExpressionUUID->"2f8e39ab-e58b-45d5-b312-94cb6a52ac5e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\ "528ba21e-467a-4679-ad33-f35676c1c6cd"], Cell[BoxData[ RowBox[{"{", RowBox[{ "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False"}], "}"}]], "Output",ExpressionUUID->"61240d52-a10d-4536-8cd3-323375086582"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["ArcTransitivity", "Subsection",ExpressionUUID->"87ea5caf-c2b9-456c-946e-b0caab450e7f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\ "198dca11-c47e-4a0e-b106-67c752fdbac0"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"a8bfab95-107d-4170-971c-112a25c4fc02"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["AutomorphismCount", "Subsection",ExpressionUUID->"7112865c-0fc2-4e31-97a6-3c0ac5c1be99"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "da45be1f-55c6-498b-99e1-b3aaacef30dd"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "6", ",", "24", ",", "120", ",", "720", ",", "5040", ",", "40320", ",", "362880", ",", "3628800", ",", "39916800", ",", "479001600", ",", "6227020800", ",", "87178291200", ",", "1307674368000", ",", "20922789888000", ",", "355687428096000", ",", "6402373705728000", ",", "121645100408832000", ",", "2432902008176640000"}], "}"}]], "Output",E\ xpressionUUID->"a97ae0e2-7c6c-4827-863b-219628f563e6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindSequenceFunction", "[", RowBox[{"seq", ",", "n"}], "]"}]], "Input",ExpressionUUID->"e4f49a3d-fe9a-\ 422b-a4a5-d0168f5ff16b"], Cell[BoxData[ RowBox[{"n", "!"}]], "Output",ExpressionUUID->"5f1a6d28-55bf-496f-85e7-7386f946527a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["BalabanIndex", "Subsection",ExpressionUUID->"501cf160-938b-4b92-8b8d-0c01552cf47b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\ "8448f849-4004-46ab-b470-bdaa915143e6"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"3cd1de30-bd4a-4c9d-9ac8-98195a740f92"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Bandwidth", "Subsection",ExpressionUUID->"e2b3db35-f82b-40dc-aa98-73677b996624"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\ "577d4e59-fb73-4584-ad64-0099a656e06b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output",ExpressionU\ UID->"9045b93d-2df7-47a2-80ce-6bd9f71ac8ec"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["BridgeCount", "Subsection",ExpressionUUID->"db9825b6-1e1b-41ef-951f-11d03b007236"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "c2bd6b5e-7bff-41e8-b9c7-a6402a10f637"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"bdcc3895-7207-4445-9db2-eefe2c47605e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["BurningNumber", "Subsection",ExpressionUUID->"9edb9442-6295-45bc-a6c3-305125289607"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "ad1078a1-4bdf-4fc1-9e1d-3385e8b1e0b6"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20"}], "}"}]], "Output",\ ExpressionUUID->"b6ad15c0-0adf-4386-87a7-409513cf240f"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["CharacteristicPolynomial", "Subsection",ExpressionUUID->"8100f992-85c3-4fc6-8f66-13af71eb2938"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "6203ecf6-554a-4cee-9644-7c8d1914c04b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "x"}], ",", SuperscriptBox["x", "2"], ",", RowBox[{"-", SuperscriptBox["x", "3"]}], ",", SuperscriptBox["x", "4"], ",", RowBox[{"-", SuperscriptBox["x", "5"]}], ",", SuperscriptBox["x", "6"], ",", RowBox[{"-", SuperscriptBox["x", "7"]}], ",", SuperscriptBox["x", "8"], ",", RowBox[{"-", SuperscriptBox["x", "9"]}], ",", SuperscriptBox["x", "10"], ",", RowBox[{"-", SuperscriptBox["x", "11"]}], ",", SuperscriptBox["x", "12"], ",", RowBox[{"-", SuperscriptBox["x", "13"]}], ",", SuperscriptBox["x", "14"], ",", RowBox[{"-", SuperscriptBox["x", "15"]}], ",", SuperscriptBox["x", "16"], ",", RowBox[{"-", SuperscriptBox["x", "17"]}], ",", SuperscriptBox["x", "18"], ",", RowBox[{"-", SuperscriptBox["x", "19"]}], ",", SuperscriptBox["x", "20"]}], "}"}]], "Output",ExpressionUUID->"3d873d9a-\ 28bc-4456-a352-df54ca1d56f4"] }, Open ]], Cell[BoxData[ RowBox[{"FindSequenceFunction", "[", RowBox[{"seq", ",", "n"}], "]"}]], "Input",ExpressionUUID->"bd49612e-e3a1-\ 469a-bd1b-29ac5c53ef01"] }, Closed]], Cell[CellGroupData[{ Cell["ChordCount", "Subsection",ExpressionUUID->"2ff493a6-ed5c-4540-a6a1-2d7318469ae1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "827a97d2-98a2-4224-9820-bc116795d94b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"71387af2-3a74-4c87-9ff9-0767a137925d"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["ChordlessCycleCount", "Subsection",ExpressionUUID->"20a21354-406b-4e08-80a9-781b06ca7385"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "122dbdc5-b6f2-496e-b55e-189f19803b94"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"c2b7c83b-fb64-4b5b-bd31-9912f8d7a42f"] }, Open ]], Cell[BoxData[ RowBox[{"FindSequenceFunction", "[", RowBox[{"seq", ",", "n"}], "]"}]], "Input",ExpressionUUID->"01990c28-0a55-\ 48a1-ab62-d9c236732dad"] }, Closed]], Cell[CellGroupData[{ Cell["ChromaticInvariant", "Subsection",ExpressionUUID->"f7383f5a-3c72-4858-a501-2ad36c8ff428"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "79f5370d-5569-4d3f-805f-54537a76e530"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", RowBox[{"-", "3"}], ",", "4", ",", RowBox[{"-", "5"}], ",", "6", ",", RowBox[{"-", "7"}], ",", "8", ",", RowBox[{"-", "9"}], ",", "10", ",", RowBox[{"-", "11"}], ",", "12", ",", RowBox[{"-", "13"}], ",", "14", ",", RowBox[{"-", "15"}], ",", "16", ",", RowBox[{"-", "17"}], ",", "18", ",", RowBox[{"-", "19"}], ",", "20"}], "}"}]], "Output",ExpressionUUID->\ "5d206c02-60c9-4c03-a9f8-60bd670f9405"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindSequenceFunction", "[", RowBox[{ RowBox[{"Rest", "@", "seq"}], ",", RowBox[{"n", "-", "1"}]}], "]"}]], "Input",ExpressionUUID->"6ab2c4ff-5a0c-\ 4b2f-86eb-7d1acdfdc8a7"], Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", "n"}]], "Output",ExpressionUUID->\ "b731980e-e6e1-400d-89f3-94f7ac828154"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["ChromaticNumber", "Subsection",ExpressionUUID->"e173bb97-7f69-44c1-9a80-98461c9d0b79"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "a627ecf0-df27-4dc8-8cd4-0a492ec6b167"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output",ExpressionU\ UID->"689a36a2-cd7f-4c34-9fed-22aa22008a9a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Circumference", "Subsection",ExpressionUUID->"725cf0f2-2cd3-424d-b670-7bc5a0fd3e1e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "e8bbfc86-6950-4136-9e45-006ebc319347"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], "}"}]], "Output",\ ExpressionUUID->"bcd3a822-69a7-4e14-b289-da4e215088ae"] }, Open ]], Cell[BoxData[ RowBox[{"FindSequenceFunction", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{"seq", ",", "2"}], "]"}], ",", "n"}], "]"}]], "Input",ExpressionUU\ ID->"3ebb4518-b1cf-4b4d-888a-19f8bde8fbc9"] }, Closed]], Cell[CellGroupData[{ Cell["Classes", "Subsection",ExpressionUUID->"8dd1c46f-c4f1-4fe8-88e5-8b98a5571fc5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Intersection", "@@", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"GraphData", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}], "/@", RowBox[{"GraphData", "[", "\"\\"", "]"}]}], ")"}]}]], "Input",Expr\ essionUUID->"b02e3af7-37d4-4ffc-9a9c-bb9387ac6fb6"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Acyclic\"\>", ",", "\<\"Apex\"\>", ",", "\<\"Bicolorable\"\>", ",", "\<\"Bipartite\"\>", ",", "\<\"Bishop\"\>", ",", "\<\"Bridgeless\"\>", ",", "\<\"Cayley\"\>", ",", "\<\"Chordal\"\>", ",", "\<\"Chordless\"\>", ",", "\<\"ChromaticallyUnique\"\>", ",", "\<\"Circulant\"\>", ",", "\<\"Class1\"\>", ",", "\<\"ClawFree\"\>", ",", "\<\"DeterminedBySpectrum\"\>", ",", "\<\"EdgeTransitive\"\>", ",", "\<\"Empty\"\>", ",", "\<\"Eulerian\"\>", ",", "\<\"Forest\"\>", ",", "\<\"Integral\"\>", ",", "\<\"Line\"\>", ",", "\<\"NoPerfectMatching\"\>", ",", "\<\"Perfect\"\>", ",", "\<\"Planar\"\>", ",", "\<\"Pseudoforest\"\>", ",", "\<\"Regular\"\>", ",", "\<\"Simple\"\>", ",", "\<\"SquareFree\"\>", ",", "\<\"StronglyPerfect\"\>", ",", "\<\"StronglyRegular\"\>", ",", "\<\"Symmetric\"\>", ",", "\<\"TriangleFree\"\>", ",", "\<\"Turan\"\>", ",", "\<\"VertexTransitive\"\>", ",", "\<\"WeaklyPerfect\"\>", ",", "\<\"WellCovered\"\>"}], "}"}]], "Output",ExpressionUUID->"e17a9a83-e63a-4cee-8ab2-f3657e038c7a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["CliqueCount", "Subsection",ExpressionUUID->"e3dd5b71-8bf7-422e-83bd-878692f36398"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "70544ca2-fbb1-4731-806c-850b8850d2ab"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], "}"}]], "Output",ExpressionUUID->"ad0c319d-c394-4b76-818a-d4368d0bb6fb"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["CliqueCoveringNumber", "Subsection",ExpressionUUID->"bf1db1bf-1539-48b7-935f-d2d71ece0af7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "6e7862c4-eb7c-4964-9d13-b2fd06a4cec6"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20"}], "}"}]], "Output",\ ExpressionUUID->"bf6f16f1-dabf-447d-b13a-20385611edae"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["CliqueNumber", "Subsection",ExpressionUUID->"364135d5-e703-4ce0-b73f-fa92832ced3a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "d70e52b1-655f-49d2-b2f4-ee279d6731e7"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output",ExpressionU\ UID->"c2ea1d67-de73-4f8b-8836-937d712d1a56"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["CliquePolynomial", "Subsection",ExpressionUUID->"cab9750a-1633-4579-a589-0a4c9b225483"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"poly", "=", RowBox[{"Factor", "@", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"k0", "=", "1"}], ",", "10"}], "}"}]}], "]"}]}]}], ")"}], "//", "Column"}]], "Input",ExpressionUUID->"22e0c89c-3172-4bab-bd8b-\ 469095ceebd0"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"1", "+", "x"}]}, { RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}]}, { RowBox[{"1", "+", RowBox[{"3", " ", "x"}]}]}, { RowBox[{"1", "+", RowBox[{"4", " ", "x"}]}]}, { RowBox[{"1", "+", RowBox[{"5", " ", "x"}]}]}, { RowBox[{"1", "+", RowBox[{"6", " ", "x"}]}]}, { RowBox[{"1", "+", RowBox[{"7", " ", "x"}]}]}, { RowBox[{"1", "+", RowBox[{"8", " ", "x"}]}]}, { RowBox[{"1", "+", RowBox[{"9", " ", "x"}]}]}, { RowBox[{"1", "+", RowBox[{"10", " ", "x"}]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output",ExpressionUUID->"e530acc9-5171-40d0-80a3-ef835d19ff54"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"coef", "=", RowBox[{"Factor", "/@", RowBox[{"FindLinearRecurrence", "[", "poly", "]"}]}]}]], "Input",Expression\ UUID->"ff482731-f160-4aa6-a3a5-d31a0721dcc0"], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}]}], "}"}]], "Output",ExpressionUUID->"2b64724d-59aa-4696-\ b777-cdbc48ec22a2"] }, Open ]], Cell[BoxData[ RowBox[{"coef", "=", RowBox[{"Factor", "/@", RowBox[{"FindPolynomialRecurrence", "[", RowBox[{"poly", ",", "6"}], "]"}]}]}]], "Input",ExpressionUUID->"def689ff-\ a5c9-4ce9-aa3f-f032d9f84f88"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToPolynomialRecurrence", "[", RowBox[{"p", ",", "x", ",", "n", ",", "coef"}], "]"}]], "Input",ExpressionUU\ ID->"faf219ac-8ce8-4757-be7b-deaa0b5a267d"], Cell[BoxData[ RowBox[{ RowBox[{"p", "[", RowBox[{"n", ",", "x"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"p", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ",", "x"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"p", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ",", "x"}], "]"}]}]}]}]], "Output",Expr\ essionUUID->"eedd30e3-4258-41e9-9e7f-16d4a2eb8e0f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FormattedPolynomialRecurrence", "[", RowBox[{"p", ",", "x", ",", "n", ",", "coef"}], "]"}], "//", "TraditionalForm"}]], "Input",ExpressionUUID->"79857be0-ab94-43ff-a369-\ bad8bb1913ed"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox[ TagBox["p", HoldForm], "n"], "(", "x", ")"}], "\[LongEqual]", RowBox[{ RowBox[{"2", " ", RowBox[{ SubscriptBox[ TagBox["p", HoldForm], RowBox[{"n", "-", "1"}]], "(", "x", ")"}]}], "-", RowBox[{ SubscriptBox[ TagBox["p", HoldForm], RowBox[{"n", "-", "2"}]], "(", "x", ")"}]}]}], TraditionalForm]], "Output",ExpressionUUID->"197193d5-775e-4d7c-a628-\ 68d57952e597"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TeXForm", "[", "%", "]"}]], "Input",ExpressionUUID->"d3390998-c033-41ea-8674-dae2ed9e9887"], Cell["p_n(x)=2 p_{n-1}(x)-p_{n-2}(x)", "Output",ExpressionUUID->"af65cad0-29df-44fc-923f-32926f4b6492"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LinearRecurrence", "[", RowBox[{"coef", ",", "poly", ",", RowBox[{"{", RowBox[{ RowBox[{"2", "-", "k0"}], ",", RowBox[{ RowBox[{"Length", "[", "coef", "]"}], "-", "k0", "+", "1"}]}], "}"}]}], "]"}]], "Input",ExpressionUUID->"e34acc9f-881c-48e8-91a3-9dc54bcc4e8f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"1", "+", "x"}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "x"}]}]}], "}"}]], "Output",ExpressionUUID->"ecf70fa9-\ 906d-4ff1-ba62-939040f71c81"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"RSolve", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"p", "[", RowBox[{ RowBox[{"k", "+", "k0", "-", "1"}], ",", "x"}], "]"}], "\[Equal]", RowBox[{"poly", "[", RowBox[{"[", "k", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"Length", "[", "coef", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"ToPolynomialRecurrence", "[", RowBox[{"p", ",", "x", ",", "n", ",", "coef"}], "]"}]}], "]"}], ",", RowBox[{"p", "[", RowBox[{"n", ",", "x"}], "]"}], ",", "n"}], "]"}], ",", RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "&&", RowBox[{"n", ">", "0"}]}]}], "]"}]], "Input",ExpressionUUID->"35b5334a-\ c8ba-4f28-800b-4c8f49e6455e"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"n", ",", "x"}], "]"}], "\[Rule]", RowBox[{"1", "+", RowBox[{"n", " ", "x"}]}]}], "}"}], "}"}]], "Output",ExpressionUUID->\ "3cdd68e2-e100-4e2a-8bf3-5457dd76b7ce"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gf", "=", RowBox[{"Factor", "[", RowBox[{ SuperscriptBox["z", "k0"], RowBox[{"FindGeneratingFunction", "[", RowBox[{"poly", ",", "z"}], "]"}]}], "]"}]}]], "Input",ExpressionUUID->\ "eeb122e4-1405-4694-8bdb-8675345f0c0d"], Cell[BoxData[ FractionBox[ RowBox[{"z", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "x"}], "+", SuperscriptBox["x", "2"], "-", "z", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"], " ", "z"}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], "2"]]], "Output",ExpressionUUID->\ "11c3c09a-bf0f-4ae6-b763-debf075a8c21"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"gf", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"n", ">", "0"}]}], "]"}]], "Input",ExpressionUUID->"7591f2f9-9328-\ 4fc8-b913-ba9452418055"], Cell[BoxData[ RowBox[{"1", "-", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"n", " ", "x", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", "x"}]}], ")"}]}]}]], "Output",ExpressionUUID->\ "ed8c546a-1ebe-49ff-8b97-084f40acc394"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"n", " ", "x", RowBox[{"(", RowBox[{ RowBox[{"3", "x"}], "+", "2"}], ")"}]}], "-", RowBox[{"2", RowBox[{"x", "^", "2"}]}], "+", "1"}], ",", RowBox[{"{", RowBox[{"n", ",", "10"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\ "700d2aff-9d09-4fdb-baa0-1f59b61d9e67"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"x", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", "x"}]}], ")"}]}]}], ",", RowBox[{"1", "-", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"2", " ", "x", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", "x"}]}], ")"}]}]}], ",", RowBox[{"1", "-", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"3", " ", "x", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", "x"}]}], ")"}]}]}], ",", RowBox[{"1", "-", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"4", " ", "x", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", "x"}]}], ")"}]}]}], ",", RowBox[{"1", "-", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"5", " ", "x", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", "x"}]}], ")"}]}]}], ",", RowBox[{"1", "-", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"6", " ", "x", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", "x"}]}], ")"}]}]}], ",", RowBox[{"1", "-", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"7", " ", "x", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", "x"}]}], ")"}]}]}], ",", RowBox[{"1", "-", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"8", " ", "x", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", "x"}]}], ")"}]}]}], ",", RowBox[{"1", "-", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"9", " ", "x", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", "x"}]}], ")"}]}]}], ",", RowBox[{"1", "-", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"10", " ", "x", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", "x"}]}], ")"}]}]}]}], "}"}]], "Output",ExpressionUUID\ ->"65d13b36-8a00-4a3c-9ab1-be5426f772d5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"%", "-", "poly"}], "]"}]], "Input",ExpressionUUID->"c3b38a8a-0f17-\ 4345-82d7-bf9ee3a44f1b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionUUID->"db4a29f1-63ea-419a-\ a664-f934dfae4ada"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["ComplementOddChordlessCycleCount", "Subsection",ExpressionUUID->"27ea2d75-65d0-4ab1-a6bc-71357190101c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "efe73d75-d0e0-4672-b3dd-9ef87d2f3efc"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"8ab0149a-2e63-4da4-865e-ee71f94c11e1"] }, Open ]], Cell[BoxData[ RowBox[{"FindSequenceFunction", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{"seq", ",", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}]}], "]"}], ",", "n"}], "]"}]], "Input",Exp\ ressionUUID->"41ea07e0-ec4a-423b-960a-16c45c34ca9b"] }, Closed]], Cell[CellGroupData[{ Cell["ConnectedComponentCount", "Subsection",ExpressionUUID->"119fc5b6-e3ab-44df-b0d6-e4edaf3ae0cf"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "f63fb4b2-d156-4f24-8d73-193881ce0d4e"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20"}], "}"}]], "Output",\ ExpressionUUID->"cba34498-2794-4615-a3e5-90346d46699c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["ConnectedDominatingSetCount", "Subsection",ExpressionUUID->"3a963c6f-9724-4e87-9535-5c48652f6b64"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "5b0e90c2-28ab-4e8b-af57-fc817a0da8b5"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"09bd56f6-c5e9-4541-a01e-013319aa168c"] }, Open ]], Cell[BoxData[ RowBox[{"FindSequenceFunction", "[", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{"seq", ",", "_Missing"}], "]"}], ",", "n"}], "]"}]], "Input",Expre\ ssionUUID->"eade1444-817b-485d-8019-99cae4664c27"] }, Closed]], Cell[CellGroupData[{ Cell["ConnectedDominationNumber", "Subsection",ExpressionUUID->"e4d0a638-227a-49bb-85ed-23106282c480"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "9f5266af-8ee6-4dfa-b9dd-77947bd66a2e"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], "}"}]], "Output",\ ExpressionUUID->"c0b7f62b-ce50-4a0f-a98f-ef0cb67d7540"] }, Open ]], Cell[BoxData[ RowBox[{"FindSequenceFunction", "[", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{"seq", ",", "_Missing"}], "]"}], ",", "n"}], "]"}]], "Input",Expre\ ssionUUID->"fe966a94-e04e-4a70-9d7a-7e7b1644ea00"] }, Closed]], Cell[CellGroupData[{ Cell["ConnectedDominationPolynomial", "Subsection",ExpressionUUID->"5721b317-211c-4c4f-bcbb-7f56e55acd85"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"poly", "=", RowBox[{"Factor", "@", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"k0", "=", "1"}], ",", "20"}], "}"}]}], "]"}]}]}], ")"}], "//", "Column"}]], "Input",ExpressionUUID->"bc312579-bc7d-4fa8-b2bd-\ 8b8b1e786599"], Cell[BoxData[ TagBox[GridBox[{ {"x"}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output",ExpressionUUID->"b31e8d60-bd1f-4d5f-a2dd-583dedf43d72"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["ConnectedDominationNumber", "Subsection",ExpressionUUID->"8973cc11-660d-448f-a7cb-467bebd1ebc0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "44f95b3c-314f-483d-bf5a-cb4d7c01606c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], "}"}]], "Output",\ ExpressionUUID->"d5220dcd-8dbb-48b1-aad2-e7959603caf4"] }, Open ]], Cell[BoxData[ RowBox[{"FindSequenceFunction", "[", RowBox[{"seq", ",", "n"}], "]"}]], "Input",ExpressionUUID->"31dc38a9-a226-\ 41e2-8637-135aee6c06b9"] }, Closed]], Cell[CellGroupData[{ Cell["ConnectedInducedSubgraphCount", "Subsection",ExpressionUUID->"0f187a6a-a0b6-46ca-9b3e-7a4586c0e716"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "00912dda-a28d-45db-9003-a53435c12718"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20"}], "}"}]], "Output",\ ExpressionUUID->"0c4289ef-508d-4aa1-9fa0-0570292e5c9e"] }, Open ]], Cell[BoxData[ RowBox[{"FindSequenceFunction", "[", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{"seq", ",", "_Missing"}], "]"}], ",", "n"}], "]"}]], "Input",Expre\ ssionUUID->"9e2eaf79-13bc-4b76-be0f-9157c5dbd0b6"] }, Closed]], Cell[CellGroupData[{ Cell["ConnectedInducedSubgraphPolynomial", "Subsection",ExpressionUUID->"c0b64711-0312-4c2e-9f71-e74010048d81"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"(", RowBox[{"poly", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Factor", "@", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"k0", "=", "1"}], ",", RowBox[{"kmax", "=", "30"}]}], "}"}]}], "]"}]}], ",", RowBox[{"_Missing", "[", "x", "]"}]}], "]"}]}], ")"}]], "Input",Expressio\ nUUID->"4c411998-e8a8-4f6d-99ba-25443d728e5a"], Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", RowBox[{"2", " ", "x"}], ",", RowBox[{"3", " ", "x"}], ",", RowBox[{"4", " ", "x"}], ",", RowBox[{"5", " ", "x"}], ",", RowBox[{"6", " ", "x"}], ",", RowBox[{"7", " ", "x"}], ",", RowBox[{"8", " ", "x"}], ",", RowBox[{"9", " ", "x"}], ",", RowBox[{"10", " ", "x"}], ",", RowBox[{"11", " ", "x"}], ",", RowBox[{"12", " ", "x"}], ",", RowBox[{"13", " ", "x"}], ",", RowBox[{"14", " ", "x"}], ",", RowBox[{"15", " ", "x"}], ",", RowBox[{"16", " ", "x"}], ",", RowBox[{"17", " ", "x"}], ",", RowBox[{"18", " ", "x"}], ",", RowBox[{"19", " ", "x"}], ",", RowBox[{"20", " ", "x"}], ",", RowBox[{"21", " ", "x"}], ",", RowBox[{"22", " ", "x"}], ",", RowBox[{"23", " ", "x"}], ",", RowBox[{"24", " ", "x"}], ",", RowBox[{"25", " ", "x"}], ",", RowBox[{"26", " ", "x"}]}], "}"}]], "Output",ExpressionUUID->"b03be9a8-\ 16ad-48b6-8a1b-eae998629429"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["CrossingNumber", "Subsection",ExpressionUUID->"f5eee144-8803-4da3-8705-72384bba6688"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "037d46b3-6d53-496a-9818-1b8326e65c4f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"fee33e27-6d6e-42a9-aa4b-715e62f847d8"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["CycleCount", "Subsection",ExpressionUUID->"fad019d3-6023-4d22-b30d-600e4d4efe90"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "f1f30d7f-bf0d-4720-90a2-20d61aad74ef"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"31bd40b5-3f86-4228-8c9c-6e89fd72d823"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["CyclePolynomial", "Subsection",ExpressionUUID->"86b76094-f7bf-4f7e-a843-607782e3c8cc"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"poly", "=", RowBox[{"Factor", "@", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"k0", "=", "1"}], ",", "10"}], "}"}]}], "]"}]}]}], ")"}], "//", "Column"}]], "Input",ExpressionUUID->"d3eb6136-cc6a-44ec-8885-\ e59147655b8d"], Cell[BoxData[ TagBox[GridBox[{ {"0"}, {"0"}, {"0"}, {"0"}, {"0"}, {"0"}, {"0"}, {"0"}, {"0"}, {"0"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output",ExpressionUUID->"4b3f620d-26e4-40a2-bdcc-570cfd833a2b"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"coef", "=", RowBox[{"Factor", "/@", RowBox[{"FindLinearRecurrence", "[", "poly", "]"}]}]}]], "Input",Expression\ UUID->"fe0ff513-d97c-4294-9c6d-0a6f6c7707b6"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"2", "+", SuperscriptBox["x", "2"]}], ",", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], ",", SuperscriptBox["x", "2"]}], "}"}]], "Output",ExpressionUUID->"b6a2cc7d-\ 2836-4206-8f8f-088ed90842c7"] }, Open ]], Cell[BoxData[ RowBox[{"coef", "=", RowBox[{"Factor", "/@", RowBox[{"FindPolynomialRecurrence", "[", RowBox[{"poly", ",", "6"}], "]"}]}]}]], "Input",ExpressionUUID->"cf974675-\ bee3-4fc6-ac82-a237f4f899ef"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToPolynomialRecurrence", "[", RowBox[{"p", ",", "x", ",", "n", ",", "coef"}], "]"}]], "Input",ExpressionUU\ ID->"6e2df3b8-e7a7-4811-875f-404355fef079"], Cell[BoxData[ RowBox[{ RowBox[{"p", "[", RowBox[{"n", ",", "x"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], " ", RowBox[{"p", "[", RowBox[{ RowBox[{ RowBox[{"-", "3"}], "+", "n"}], ",", "x"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], ")"}], " ", RowBox[{"p", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ",", "x"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", SuperscriptBox["x", "2"]}], ")"}], " ", RowBox[{"p", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ",", "x"}], "]"}]}]}]}]], "Output",Expr\ essionUUID->"5f8e372f-c38a-410f-983e-82074f386b94"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FormattedPolynomialRecurrence", "[", RowBox[{"p", ",", "x", ",", "n", ",", "coef"}], "]"}], "//", "TraditionalForm"}]], "Input",ExpressionUUID->"b209bd33-fb6b-47a5-a5d9-\ 9068f241c4e7"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox[ TagBox["p", HoldForm], "n"], "(", "x", ")"}], "\[LongEqual]", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], " ", RowBox[{ SubscriptBox[ TagBox["p", HoldForm], RowBox[{"n", "-", "3"}]], "(", "x", ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", "1"}], ")"}], " ", RowBox[{ SubscriptBox[ TagBox["p", HoldForm], RowBox[{"n", "-", "2"}]], "(", "x", ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", "2"}], ")"}], " ", RowBox[{ SubscriptBox[ TagBox["p", HoldForm], RowBox[{"n", "-", "1"}]], "(", "x", ")"}]}]}]}], TraditionalForm]], "Output",ExpressionUUID->"dc2f0297-bacc-45e6-84f6-\ e0bdb43b19bf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TeXForm", "[", "%", "]"}]], "Input",ExpressionUUID->"c87ca2c1-f190-46c2-ac3e-cc948abf5ced"], Cell["\<\ p_n(x)=x^2 p_{n-3}(x)-\\left(2 x^2+1\\right) p_{n-2}(x)+\\left(x^2+2\\right) \ p_{n-1}(x)\ \>", "Output",ExpressionUUID->"922a88bd-4b29-4543-a09e-f557bb88d757"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LinearRecurrence", "[", RowBox[{"coef", ",", "poly", ",", RowBox[{"{", RowBox[{ RowBox[{"2", "-", "k0"}], ",", RowBox[{ RowBox[{"Length", "[", "coef", "]"}], "-", "k0", "+", "1"}]}], "}"}]}], "]"}]], "Input",ExpressionUUID->"2d33876b-2c01-4170-819c-34502c8b0f99"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", SuperscriptBox["x", "4"], ",", RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"2", "+", SuperscriptBox["x", "2"]}], ")"}]}]}], "}"}]], "Output",ExpressionUUID->\ "7404e626-8ada-4b86-be9e-2425cd984d33"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"RSolve", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"p", "[", RowBox[{ RowBox[{"k", "+", "k0", "-", "1"}], ",", "x"}], "]"}], "\[Equal]", RowBox[{"poly", "[", RowBox[{"[", "k", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"Length", "[", "coef", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"ToPolynomialRecurrence", "[", RowBox[{"p", ",", "x", ",", "n", ",", "coef"}], "]"}]}], "]"}], ",", RowBox[{"p", "[", RowBox[{"n", ",", "x"}], "]"}], ",", "n"}], "]"}], ",", RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "&&", RowBox[{"n", ">", "0"}]}]}], "]"}]], "Input",ExpressionUUID->"ab58e826-\ 38cd-4fc6-b9bd-584e336327ee"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"n", ",", "x"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", RowBox[{"2", " ", "n"}]], "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"]}], ")"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"]}], ")"}], "2"]]}]}], "}"}], "}"}]], "Output",\ ExpressionUUID->"5c62e39d-ef02-43b6-8644-d6e81520512e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gf", "=", RowBox[{"Factor", "[", RowBox[{ SuperscriptBox["z", "k0"], RowBox[{"FindGeneratingFunction", "[", RowBox[{"poly", ",", "z"}], "]"}]}], "]"}]}]], "Input",ExpressionUUID->\ "df0cd57c-f8f6-4f3f-92cd-23e659c59edc"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["x", "4"], " ", SuperscriptBox["z", "2"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["x", "2"], " ", "z"}]}], ")"}]}]]}]], "Output",Expressio\ nUUID->"101c7761-8965-4b0b-bf83-38f36e45b68f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"gf", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"n", ">", "0"}]}], "]"}]], "Input",ExpressionUUID->"afaca36b-3303-\ 400b-b7fb-76a9a0a99a87"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", RowBox[{"2", " ", "n"}]], "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"]}], ")"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"]}], ")"}], "2"]]}]], "Output",ExpressionUUID->\ "b09ea9ae-45a1-4997-8467-f507e67f17f1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", RowBox[{"2", " ", "n"}]], "-", RowBox[{"n", " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", "1"}], ")"}]}], "-", "1"}], ")"}], SuperscriptBox["x", "4"], " "}], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", "1"}], ")"}], "2"]], ",", RowBox[{"{", RowBox[{"n", ",", "10"}], "}"}]}], "]"}], "//", "Factor"}]], "Input",Expr\ essionUUID->"c7ed07f1-8dfe-40ac-9b3a-f7547b2661be"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", SuperscriptBox["x", "4"], ",", RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"2", "+", SuperscriptBox["x", "2"]}], ")"}]}], ",", RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "4"]}], ")"}]}], ",", RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "4"]}], "+", SuperscriptBox["x", "6"]}], ")"}]}], ",", RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"5", "+", RowBox[{"4", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "6"]}], "+", SuperscriptBox["x", "8"]}], ")"}]}], ",", RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"6", "+", RowBox[{"5", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "8"]}], "+", SuperscriptBox["x", "10"]}], ")"}]}], ",", RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"7", "+", RowBox[{"6", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"5", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"3", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "10"]}], "+", SuperscriptBox["x", "12"]}], ")"}]}], ",", RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"8", "+", RowBox[{"7", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"6", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"5", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"3", " ", SuperscriptBox["x", "10"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "12"]}], "+", SuperscriptBox["x", "14"]}], ")"}]}], ",", RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"9", "+", RowBox[{"8", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"7", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"6", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"5", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "10"]}], "+", RowBox[{"3", " ", SuperscriptBox["x", "12"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "14"]}], "+", SuperscriptBox["x", "16"]}], ")"}]}]}], "}"}]], "Output",ExpressionUUID->\ "f2d3e9f4-22d3-4452-8454-d7c6721c3924"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"%", "-", "poly"}], "]"}]], "Input",ExpressionUUID->"1eec94fc-1b6e-\ 4934-bb7d-2ee8640fdbce"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionUUID->"1491b31d-41c2-4923-\ 9a51-2bc0e891cf50"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Cyclic", "Subsection",ExpressionUUID->"4bd6f72e-de25-4ff0-8ff3-56f0c6cd8cbb"], Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\ "3358da57-9e97-4b0c-b704-b3e70cb547a7"] }, Closed]], Cell[CellGroupData[{ Cell["CyclomaticNumber", "Subsection",ExpressionUUID->"8066cc91-e3e5-485f-b9c9-02b5e02f4726"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "b7891889-e0c6-40dc-9351-d2cd6a44c6cc"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"39fb4c2f-192c-4502-a611-61a91cde5478"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["DetourIndex", "Subsection",ExpressionUUID->"d13034e3-ef82-414b-aec9-1356981dce48"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "c95b7b1d-630b-4011-906d-35191d09f650"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], "}"}]], "Output",\ ExpressionUUID->"973e5074-4be3-4a11-9ec9-95bebb2fbd5d"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["DetourMatrix", "Subsection",ExpressionUUID->"bab8c87b-7863-4600-97a2-555b174fa109"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "5"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "3b0622ab-3808-400d-8e90-6164f3158a94"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", "0", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Infinity]", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Infinity]", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Infinity]", ",", "\[Infinity]", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "0", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "\[Infinity]", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "0", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "\[Infinity]", ",", "0", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output",Expressio\ nUUID->"6c9aa4b2-1e5f-48da-932d-081023d0d260"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Normal", "/@", RowBox[{"Table", "[", RowBox[{ RowBox[{"SparseArray", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"i_", ",", "i_"}], "}"}], "\[RuleDelayed]", "0"}], ",", RowBox[{"{", RowBox[{"n", ",", "n"}], "}"}], ",", "Infinity"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "5"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "61746d40-d913-428c-b65d-78bc94bc4720"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", "0", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Infinity]", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Infinity]", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Infinity]", ",", "\[Infinity]", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "0", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "\[Infinity]", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "0", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "\[Infinity]", ",", "0", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output",Expressio\ nUUID->"eaf4339e-b173-428c-a169-ca33a8d50b99"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Normal", "/@", RowBox[{"Table", "[", RowBox[{ RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Band", "[", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "]"}], "\[Rule]", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "n"}], "}"}], ",", "Infinity"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "5"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "8e8b7890-6dc7-4135-974a-40f2b71e0f7f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", "0", "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Infinity]", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Infinity]", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Infinity]", ",", "\[Infinity]", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "0", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "\[Infinity]", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "0", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "\[Infinity]", ",", "0", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{ "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output",Expressio\ nUUID->"9cab2e1d-b621-460c-9d1a-dc38fa5f1ff1"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["DetourPolynomial", "Subsection",ExpressionUUID->"a6ff91f4-f4d3-407c-93e7-dd6643b4136a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"poly", "=", RowBox[{"Factor", "@", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"k0", "=", "1"}], ",", "10"}], "}"}]}], "]"}]}]}], ")"}], "//", "Column"}]], "Input",ExpressionUUID->"377ca3e5-182c-445a-aa82-\ 5ac2a145fa24"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"-", "x"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]}, { RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], "[", "x", "]"}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output",ExpressionUUID->"2ab08cb2-1c96-4f87-bb7b-6552daf25037"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"coef", "=", RowBox[{"Factor", "/@", RowBox[{"FindLinearRecurrence", "[", "poly", "]"}]}]}]], "Input",Expression\ UUID->"a15fb688-618c-42dd-b88c-ad0dbcf8436a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"2", "+", SuperscriptBox["x", "2"]}], ",", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], ",", SuperscriptBox["x", "2"]}], "}"}]], "Output",ExpressionUUID->"b9067af7-\ 120c-43ab-a081-22c60230017d"] }, Open ]], Cell[BoxData[ RowBox[{"coef", "=", RowBox[{"Factor", "/@", RowBox[{"FindPolynomialRecurrence", "[", RowBox[{"poly", ",", "6"}], "]"}]}]}]], "Input",ExpressionUUID->"3c346474-\ 9a15-4b8f-bb48-e4a65e0c7280"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToPolynomialRecurrence", "[", RowBox[{"p", ",", "x", ",", "n", ",", "coef"}], "]"}]], "Input",ExpressionUU\ ID->"c119c642-51b0-43e9-8b59-0ee1ac4fea10"], Cell[BoxData[ RowBox[{ RowBox[{"p", "[", RowBox[{"n", ",", "x"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], " ", RowBox[{"p", "[", RowBox[{ RowBox[{ RowBox[{"-", "3"}], "+", "n"}], ",", "x"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], ")"}], " ", RowBox[{"p", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ",", "x"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", SuperscriptBox["x", "2"]}], ")"}], " ", RowBox[{"p", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ",", "x"}], "]"}]}]}]}]], "Output",Expr\ essionUUID->"87e20cb7-485c-499c-9140-df7a54e69f3c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FormattedPolynomialRecurrence", "[", RowBox[{"p", ",", "x", ",", "n", ",", "coef"}], "]"}], "//", "TraditionalForm"}]], "Input",ExpressionUUID->"b23116d0-d262-4c70-9ba1-\ fe85a3da3d8f"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox[ TagBox["p", HoldForm], "n"], "(", "x", ")"}], "\[LongEqual]", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], " ", RowBox[{ SubscriptBox[ TagBox["p", HoldForm], RowBox[{"n", "-", "3"}]], "(", "x", ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", "1"}], ")"}], " ", RowBox[{ SubscriptBox[ TagBox["p", HoldForm], RowBox[{"n", "-", "2"}]], "(", "x", ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", "2"}], ")"}], " ", RowBox[{ SubscriptBox[ TagBox["p", HoldForm], RowBox[{"n", "-", "1"}]], "(", "x", ")"}]}]}]}], TraditionalForm]], "Output",ExpressionUUID->"a21c578b-05eb-47f5-a783-\ c5cefde1f435"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TeXForm", "[", "%", "]"}]], "Input",ExpressionUUID->"bd891d6a-24b5-4a1a-bc1b-e3b341c00194"], Cell["\<\ p_n(x)=x^2 p_{n-3}(x)-\\left(2 x^2+1\\right) p_{n-2}(x)+\\left(x^2+2\\right) \ p_{n-1}(x)\ \>", "Output",ExpressionUUID->"ca23a56e-0276-4ee1-b6ed-d3025437bc80"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LinearRecurrence", "[", RowBox[{"coef", ",", "poly", ",", RowBox[{"{", RowBox[{ RowBox[{"2", "-", "k0"}], ",", RowBox[{ RowBox[{"Length", "[", "coef", "]"}], "-", "k0", "+", "1"}]}], "}"}]}], "]"}]], "Input",ExpressionUUID->"c054aea3-921e-46f7-81cd-ed291a6abb3e"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", SuperscriptBox["x", "4"], ",", RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"2", "+", SuperscriptBox["x", "2"]}], ")"}]}]}], "}"}]], "Output",ExpressionUUID->\ "575f7d36-20c0-476d-8382-4ebd828cfcdc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"RSolve", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"p", "[", RowBox[{ RowBox[{"k", "+", "k0", "-", "1"}], ",", "x"}], "]"}], "\[Equal]", RowBox[{"poly", "[", RowBox[{"[", "k", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"Length", "[", "coef", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"ToPolynomialRecurrence", "[", RowBox[{"p", ",", "x", ",", "n", ",", "coef"}], "]"}]}], "]"}], ",", RowBox[{"p", "[", RowBox[{"n", ",", "x"}], "]"}], ",", "n"}], "]"}], ",", RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "&&", RowBox[{"n", ">", "0"}]}]}], "]"}]], "Input",ExpressionUUID->"5b75ac6b-\ 3ddc-42df-b465-db72d5acee3b"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"n", ",", "x"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", RowBox[{"2", " ", "n"}]], "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"]}], ")"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"]}], ")"}], "2"]]}]}], "}"}], "}"}]], "Output",\ ExpressionUUID->"8ac7f51d-7ba3-4889-beb1-fb571f427369"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gf", "=", RowBox[{"Factor", "[", RowBox[{ SuperscriptBox["z", "k0"], RowBox[{"FindGeneratingFunction", "[", RowBox[{"poly", ",", "z"}], "]"}]}], "]"}]}]], "Input",ExpressionUUID->\ "b66cb0e3-cc30-4a51-8c1e-526401078c21"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["x", "4"], " ", SuperscriptBox["z", "2"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SuperscriptBox["x", "2"], " ", "z"}]}], ")"}]}]]}]], "Output",Expressio\ nUUID->"6b6f869b-3835-405d-9851-3db368df780a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"gf", ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"n", ">", "0"}]}], "]"}]], "Input",ExpressionUUID->"d19b31aa-4a1a-\ 4ccd-b013-13b2fcf54e97"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", RowBox[{"2", " ", "n"}]], "+", RowBox[{"n", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"]}], ")"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"]}], ")"}], "2"]]}]], "Output",ExpressionUUID->\ "5d3164fc-4110-42d3-948e-a38a5d584a33"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", RowBox[{"2", " ", "n"}]], "-", RowBox[{"n", " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", "1"}], ")"}]}], "-", "1"}], ")"}], SuperscriptBox["x", "4"], " "}], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", "1"}], ")"}], "2"]], ",", RowBox[{"{", RowBox[{"n", ",", "10"}], "}"}]}], "]"}], "//", "Factor"}]], "Input",Expr\ essionUUID->"b251a472-9e39-455e-b4a4-a4b348ff5618"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", SuperscriptBox["x", "4"], ",", RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"2", "+", SuperscriptBox["x", "2"]}], ")"}]}], ",", RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "4"]}], ")"}]}], ",", RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "4"]}], "+", SuperscriptBox["x", "6"]}], ")"}]}], ",", RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"5", "+", RowBox[{"4", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "6"]}], "+", SuperscriptBox["x", "8"]}], ")"}]}], ",", RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"6", "+", RowBox[{"5", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "8"]}], "+", SuperscriptBox["x", "10"]}], ")"}]}], ",", RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"7", "+", RowBox[{"6", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"5", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"3", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "10"]}], "+", SuperscriptBox["x", "12"]}], ")"}]}], ",", RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"8", "+", RowBox[{"7", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"6", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"5", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"3", " ", SuperscriptBox["x", "10"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "12"]}], "+", SuperscriptBox["x", "14"]}], ")"}]}], ",", RowBox[{ SuperscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{"9", "+", RowBox[{"8", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"7", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"6", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"5", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "10"]}], "+", RowBox[{"3", " ", SuperscriptBox["x", "12"]}], "+", RowBox[{"2", " ", SuperscriptBox["x", "14"]}], "+", SuperscriptBox["x", "16"]}], ")"}]}]}], "}"}]], "Output",ExpressionUUID->\ "a706f90f-412a-4009-93d8-7057f808c6f4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"%", "-", "poly"}], "]"}]], "Input",ExpressionUUID->"c98bff31-06f3-\ 43b9-9373-8f205a8b8452"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionUUID->"f11f4379-559a-4e2e-\ ad9d-00b72abd22a8"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Diameter", "Subsection",ExpressionUUID->"bb5b377a-8b37-4425-b56f-7501083ec907"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "d466d173-f1ae-42bf-8495-24ad12c591f9"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}]], "Output",ExpressionUUID->\ "915f34df-9a95-43b9-94b3-deaa59c2149e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["DistinguishingNumber", "Subsection",ExpressionUUID->"ab04197c-e07d-4271-af11-3bd73bd3479a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "5e4833cb-b2bf-4349-862d-0feacca42b08"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20"}], "}"}]], "Output",\ ExpressionUUID->"840aded8-d479-4cdb-9c4b-c08f8cc6dc0d"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["DominatingSetCount", "Subsection",ExpressionUUID->"96d3f726-3108-44fa-b8ef-ab83b0afae3f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "84880c04-ab97-4a89-a3c7-8f2ffcbf0fcb"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output",ExpressionU\ UID->"21cbf4e1-0140-4498-b53d-d88ccd42560d"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["DominationNumber", "Subsection",ExpressionUUID->"dcf7cb8c-bf11-487c-a612-5b6c479ec919"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "cd33e0c0-4704-43de-9d62-d68389a2cc53"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20"}], "}"}]], "Output",\ ExpressionUUID->"0f9fa288-388b-40f3-a507-0c586100e5eb"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["DominationPolynomial", "Subsection",ExpressionUUID->"e4ab3b05-43a4-4611-9b94-27c392d19032"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "4f77598a-4abf-4ae7-b1b3-42b44132461d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"#1", "&"}], ",", RowBox[{ SuperscriptBox["#1", "2"], "&"}], ",", RowBox[{ SuperscriptBox["#1", "3"], "&"}], ",", RowBox[{ SuperscriptBox["#1", "4"], "&"}], ",", RowBox[{ SuperscriptBox["#1", "5"], "&"}], ",", RowBox[{ SuperscriptBox["#1", "6"], "&"}], ",", RowBox[{ SuperscriptBox["#1", "7"], "&"}], ",", RowBox[{ SuperscriptBox["#1", "8"], "&"}], ",", RowBox[{ SuperscriptBox["#1", "9"], "&"}], ",", RowBox[{ SuperscriptBox["#1", "10"], "&"}], ",", RowBox[{ SuperscriptBox["#1", "11"], "&"}], ",", RowBox[{ SuperscriptBox["#1", "12"], "&"}], ",", RowBox[{ SuperscriptBox["#1", "13"], "&"}], ",", RowBox[{ SuperscriptBox["#1", "14"], "&"}], ",", RowBox[{ SuperscriptBox["#1", "15"], "&"}], ",", RowBox[{ SuperscriptBox["#1", "16"], "&"}], ",", RowBox[{ SuperscriptBox["#1", "17"], "&"}], ",", RowBox[{ SuperscriptBox["#1", "18"], "&"}], ",", RowBox[{ SuperscriptBox["#1", "19"], "&"}], ",", RowBox[{ SuperscriptBox["#1", "20"], "&"}]}], "}"}]], "Output",ExpressionUUID->\ "0840ed4c-1b28-4ed0-b90f-59bfa6bd439a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["EdgeChromaticNumber", "Subsection",ExpressionUUID->"2e95f5c6-d601-47b0-91db-28bcea2c8423"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "e6dc058d-2850-43ba-84dc-9699db50e8d2"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"29fa425c-072b-46b1-aa52-42d2331784c1"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["EdgeConnectivity", "Subsection",ExpressionUUID->"0de2a1f5-6a19-4706-992f-a0fa0692b365"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\ "1204caed-22c7-4fc4-876d-8b1141037309"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionUUID->"a25bc162-b69e-\ 4367-a11d-577f259e5d0e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["EdgeCount", "Subsection",ExpressionUUID->"6ca9fa61-dfdc-4d80-a847-87c3bc8fbd81"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "38b9b9bc-c909-4d1e-8086-ccefbf3824fa"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"3f94bd27-e30a-4686-821b-1ffef47ed85b"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["EdgeCoverCount", "Subsection",ExpressionUUID->"964193d5-b363-4c21-b06a-b6245b6a8197"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "fec37148-c571-44de-9ee3-a8d54569ddc5"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"eda6d97b-0e35-4d2f-a822-959e5f1a332d"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["EdgeCoverNumber", "Subsection",ExpressionUUID->"f7353d03-aa0c-4084-9033-cbff7d30330e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "f5e1fd10-148b-4d88-a868-91ca5a8762fa"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"8d4a57af-259e-4ea8-813b-c9d7bbd9f0b5"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["EulerianCycleCount", "Subsection",ExpressionUUID->"88285c1d-c6f5-4efc-b395-eee88e6577e6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "7a2e245b-9fdd-4afb-9985-bc2ab2cce716"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}]}], "}"}]], "Output",E\ xpressionUUID->"b8d9569d-551c-4c80-943e-5a90d0dfd2c3"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["FaceCount", "Subsection",ExpressionUUID->"51b7d8db-9405-4e13-a6fa-f255a6c0a997"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "e393bfd8-e3a5-40db-b92b-3eabe0cf283a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"83711cf6-6ba8-49ce-914f-29f6f217217c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["FibonacciCube", "Subsection",ExpressionUUID->"5a60a29e-1652-4e55-857b-444058ea2d61"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Entity", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}]}], "]"}], "[", "\"\\"", "]"}]], "Input", CellLabel-> "In[119]:=",ExpressionUUID->"0b772822-d011-4e46-b051-2453204cc709"], Cell[BoxData["False"], "Output", CellLabel-> "Out[119]=",ExpressionUUID->"518f0f4c-7574-4068-b0a2-d1c57ad57935"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellLabel->"In[35]:=",ExpressionUUID->"0316d68b-e278-44a9-ad25-a57d21f5268e"], Cell[BoxData[ RowBox[{"{", RowBox[{ "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False"}], "}"}]], "Output", CellLabel->"Out[35]=",ExpressionUUID->"5d5a0d93-52c9-46ba-a536-fe9925d2d59e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["FlowPolynomial", "Subsection",ExpressionUUID->"d4ecbf17-872d-4e9f-a62e-a3656342854b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"poly", "=", RowBox[{"Factor", "@", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"k0", "=", "1"}], ",", "10"}], "}"}]}], "]"}]}]}], ")"}], "//", "Column"}]], "Input",ExpressionUUID->"850d4f4e-5dfe-440e-bdbd-\ a5cf787c8b53"], Cell[BoxData[ TagBox[GridBox[{ {"1"}, {"1"}, {"1"}, {"1"}, {"1"}, {"1"}, {"1"}, {"1"}, {"1"}, {"1"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output",ExpressionUUID->"fe678233-72c2-41f0-ad1e-319ce863a319"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["FractionalChromaticNumber", "Subsection",ExpressionUUID->"56007a36-9769-4be3-8e99-adab6a85f324"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "553e7514-1877-4d3d-aeac-618b394bb441"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output",ExpressionU\ UID->"326a37b8-a4e1-45c6-8ba9-3c274ddc4210"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["FractionalEdgeChromaticNumber", "Subsection",ExpressionUUID->"9d53efd4-7bd0-4eb7-be75-897b41ed6528"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "740de0be-1473-4699-8366-78f871fb80c8"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"a99e17a5-c96a-4007-a1bc-fbb49b4a43cc"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Girth", "Subsection",ExpressionUUID->"c0a826d0-da16-46d1-a6d8-e73afc99d23e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "d48bb305-d6b0-4022-bc36-d7861c1e4b64"], Cell[BoxData[ RowBox[{"{", RowBox[{ "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}]], "Output",ExpressionUUID->\ "08586908-862c-47eb-90a8-f21030d57592"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Gonality", "Subsection", FontColor->RGBColor[ 1, 0, 0],ExpressionUUID->"0c592524-2998-45d1-bcb5-894d16a1c02a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "f7e73acb-e456-49ea-8861-a34f93023cd7"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}]}], "}"}]], "Output",E\ xpressionUUID->"9a6f8968-dc46-4779-baeb-19cab54ceb05"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["HamiltonConnected", "Subsection",ExpressionUUID->"99f0a4aa-a418-4b61-a66c-82a10ae1d40c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "a5e98d4c-b63a-4e8c-9c7f-d01a24b8bb00"], Cell[BoxData[ RowBox[{"{", RowBox[{ "True", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False"}], "}"}]], "Output",ExpressionUUID->"458ec5d6-1ad2-4bca-9729-05683c3232d2"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["HamiltonDecompositionCount", "Subsection",ExpressionUUID->"4f77eb78-c0f1-4758-bd92-8b0984f4fbac"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "c991f2c0-ce72-4d01-9316-fc099961bda8"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], "}"}]], "Output",\ ExpressionUUID->"cafd1d62-a0c9-44ab-b98e-4a9c3a45f923"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Hamiltonian", "Subsection",ExpressionUUID->"08d194e4-27f6-4dd5-a319-6b5d1034fd1b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\ "45956b33-8366-4b2d-9c89-b5b43b28077d"], Cell[BoxData[ RowBox[{"{", RowBox[{ "True", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False"}], "}"}]], "Output",ExpressionUUID->"270ecec9-bdcb-4513-a449-c2949d3b6446"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["HamiltonianCycleCount", "Subsection",ExpressionUUID->"647e770f-3daf-4ae1-9470-08091654d40c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "b6b2a4f9-0a2d-4d8e-ad92-c8195e1e6258"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"f5b2cf92-ae21-4a68-a2bb-ce47052ad061"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["HamiltonianNumber", "Subsection",ExpressionUUID->"436b9901-23da-402f-8835-60da8ac33bf7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "b85b3c6b-37bb-45f8-a766-7f767ba3be10"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], "}"}]], "Output",\ ExpressionUUID->"0267f2d0-847c-4bdf-8c2e-3e358955a5d6"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["HamiltonianPathCount", "Subsection",ExpressionUUID->"f5750efc-8bdd-4d26-afba-593d1221c80c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "f9e51359-06b9-45fb-908c-22a37d4c7088"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"bbae5146-d2b2-4da5-80fa-a7e551e2b060"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["HamiltonianWalkCount", "Subsection",ExpressionUUID->"a89cf038-cbd7-4895-bc06-06e12bf799a4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "fc253759-f6d6-4850-a58c-675424ab0420"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionUUID->"8f443e8d-61f1-456e-\ 8914-cf1c5ee81109"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["HararyIndex", "Subsection",ExpressionUUID->"abe1639f-a398-47c3-906c-da27dd59762e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "66ecafec-f149-44ae-b57e-86553e520ab1"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"dcaa371c-78c6-44a4-b7ec-51a662bdf273"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["HexagonCount", "Subsection",ExpressionUUID->"16f8359d-2d27-4e05-baf0-76418f49c524"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "073f7a5c-9383-4210-8e3f-f8f71c860c74"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"a94778fb-d96b-4202-84e4-5b0933e4a511"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["IdiosyncraticPolynomial", "Subsection",ExpressionUUID->"208b0279-9a9e-425b-915f-a0df7839a4a3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"poly", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "10"}], "}"}]}], "]"}]}], ")"}], "//", "Column"}]], "Input",ExpressionUUID->"1dc8558f-c12f-4d8d-b89b-0f6cc7bddcda"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"-", "x"}]}, { RowBox[{ RowBox[{"(", RowBox[{"x", "-", "y"}], ")"}], " ", RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"x", "-", RowBox[{"2", " ", "y"}]}], ")"}]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "2"]}]}, { RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"3", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "3"]}]}, { RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"x", "-", RowBox[{"4", " ", "y"}]}], ")"}]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "4"]}]}, { RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"5", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "5"]}]}, { RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"x", "-", RowBox[{"6", " ", "y"}]}], ")"}]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "6"]}]}, { RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"7", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "7"]}]}, { RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"x", "-", RowBox[{"8", " ", "y"}]}], ")"}]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "8"]}]}, { RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"9", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "9"]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output",ExpressionUUID->"de735b55-92a0-447d-a366-02316e28ea38"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], " ", "y"}]}], ")"}], " ", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "^", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"n", ",", "10"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\ "b07f0b2f-6002-416b-9ae8-d03cd307e1b8"], Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "y"}], ")"}], " ", RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"2", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "2"]}], ",", RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"3", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "3"]}], ",", RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"4", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "4"]}], ",", RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"5", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "5"]}], ",", RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"6", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "6"]}], ",", RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"7", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "7"]}], ",", RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"8", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "8"]}], ",", RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"9", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "9"]}]}], "}"}]], "Output",ExpressionUUI\ D->"6cbddc0b-b26e-46bc-8880-d4b43901a12f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"Abs", "[", RowBox[{"%", "/", "poly"}], "]"}], "]"}]], "Input",ExpressionUUID->\ "36249edd-0aa4-4f65-a1be-fb84f95095ed"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output",ExpressionUUID->"6ede823f-e2b1-4149-\ a7d2-fa171067410f"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["IncidenceMatrix", "Subsection",ExpressionUUID->"2ae1be39-1c50-444d-b4d8-27a7ccf634d1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "183a35fd-e9ad-426c-b91c-d0cc06888de2"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], "}"}]], "Output",\ ExpressionUUID->"2e3455aa-d4db-4476-9de3-f3757375c30f"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["IndependenceNumber", "Subsection",ExpressionUUID->"fab6e724-4fd5-4b15-9195-fa50918991db"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "75dc15c7-e01c-4011-b0e9-f7cf0cd504ff"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20"}], "}"}]], "Output",\ ExpressionUUID->"0c8cabd6-37bb-488d-b651-d2ff725739d4"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["IndependenceRatio", "Subsection",ExpressionUUID->"22c9cb22-581c-44ea-9064-d940e7ed7e2e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "09c1e8b7-1d55-49b7-ab62-2bb9090d47df"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output",ExpressionU\ UID->"a01cde50-726b-4e41-8cf6-6a41e52ea289"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["IndependentEdgeSetCount", "Subsection",ExpressionUUID->"9518d15a-2e21-4e42-936f-7fcd092f5c2f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "3b67ae63-a8db-421f-91f9-eaf300639374"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output",ExpressionU\ UID->"7d8d6021-6db6-4147-8581-f56d60e88041"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["IndependentVertexSetCount", "Subsection",ExpressionUUID->"21615408-01fe-4ffe-a091-aabb9d43277c"], Cell[TextData[ButtonBox["A000079", BaseStyle->"Hyperlink", ButtonData->{ URL["https://oeis.org/A000079"], None}, ButtonNote->"https://oeis.org/A000079"]], "Text",ExpressionUUID->"37357fd8-\ 6cd8-4f69-a2e6-d3ec006f8145"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "681306e2-28be-4c29-9efd-935db93667ca"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "4", ",", "8", ",", "16", ",", "32", ",", "64", ",", "128", ",", "256", ",", "512", ",", "1024", ",", "2048", ",", "4096", ",", "8192", ",", "16384", ",", "32768", ",", "65536", ",", "131072", ",", "262144", ",", "524288", ",", "1048576", ",", "2097152", ",", "4194304", ",", "8388608", ",", "16777216", ",", "33554432", ",", "67108864", ",", "134217728", ",", "268435456", ",", "536870912", ",", "1073741824"}], "}"}]], "Output",Expres\ sionUUID->"e9c9f2c1-bb8d-4afc-8e09-4de6cc07eeaa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindSequenceFunction", "[", RowBox[{"seq", ",", "n"}], "]"}]], "Input",ExpressionUUID->"f4e59ef6-5b35-\ 491d-b879-b64161d52c03"], Cell[BoxData[ SuperscriptBox["2", "n"]], "Output",ExpressionUUID->"bf800016-886d-4cb6-abeb-66dd53d47a89"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"2", "^", RowBox[{"Range", "[", RowBox[{"0", ",", "20"}], "]"}]}]}]], "Input",ExpressionUUID->"17f5456f-\ bedc-4740-b93c-b4bb19a55b2e"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "4", ",", "8", ",", "16", ",", "32", ",", "64", ",", "128", ",", "256", ",", "512", ",", "1024", ",", "2048", ",", "4096", ",", "8192", ",", "16384", ",", "32768", ",", "65536", ",", "131072", ",", "262144", ",", "524288", ",", "1048576"}], "}"}]], "Output",ExpressionUUID->\ "54b92253-1158-4551-9007-783e141d1ba9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindLinearRecurrence", "[", "seq", "]"}]], "Input",ExpressionUUID->"731a3a97-b87b-464a-9111-1e66133742e4"], Cell[BoxData[ RowBox[{"{", "2", "}"}]], "Output",ExpressionUUID->"827b65e3-6acf-45ed-9bc8-16766437a25f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LinearRecurrence", "[", RowBox[{ RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "20"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\ "8496b7c8-11b1-4735-8b96-4952340cf98b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "4", ",", "8", ",", "16", ",", "32", ",", "64", ",", "128", ",", "256", ",", "512", ",", "1024", ",", "2048", ",", "4096", ",", "8192", ",", "16384", ",", "32768", ",", "65536", ",", "131072", ",", "262144", ",", "524288", ",", "1048576"}], "}"}]], "Output",ExpressionUUID->\ "884fb0ed-f416-4018-bf15-d9e8a8ab6940"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindGeneratingFunction", "[", RowBox[{"seq", ",", "x"}], "]"}]], "Input",ExpressionUUID->"eabc1f44-8cd7-\ 4790-9e17-c7feaef22207"], Cell[BoxData[ FractionBox["1", RowBox[{"1", "-", RowBox[{"2", " ", "x"}]}]]], "Output",ExpressionUUID->"a2fbc0be-a08c-4604-\ ae2f-d90351e4d031"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CoefficientList", "[", RowBox[{ RowBox[{"Series", "[", RowBox[{ FractionBox["1", RowBox[{"1", "-", RowBox[{"2", " ", "x"}]}]], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}], ",", "x"}], "]"}]], "Input",ExpressionUUID->"d8ad9ca8-f01c-4c9e-9eea-1248a0c13202"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "4", ",", "8", ",", "16", ",", "32", ",", "64", ",", "128", ",", "256", ",", "512", ",", "1024", ",", "2048", ",", "4096", ",", "8192", ",", "16384", ",", "32768", ",", "65536", ",", "131072", ",", "262144", ",", "524288", ",", "1048576"}], "}"}]], "Output",ExpressionUUID->\ "66d4539c-8935-43ac-b6aa-0515bbf691b8"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["IntersectionNumber", "Subsection", FontColor->RGBColor[ 1, 0, 0],ExpressionUUID->"d73442c4-4dbf-4584-8787-792848ca75b7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "a6da3d93-930d-4080-a50d-c5f438eeca4f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}]}], "}"}]], "Output",E\ xpressionUUID->"0dfeb39a-fc93-4c20-9983-e3376a406ae0"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["IrredundantSetCount", "Subsection",ExpressionUUID->"2dd11b1c-9b59-4fc3-accc-a3b580afc4cf"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "8d3fee52-bef0-4b23-9746-e76738f8873b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "4", ",", "8", ",", "16", ",", "32", ",", "64", ",", "128", ",", "256", ",", "512", ",", "1024", ",", "2048", ",", "4096", ",", "8192", ",", "16384", ",", "32768", ",", "65536", ",", "131072", ",", "262144", ",", "524288", ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}]}], "}"}]], "Output",E\ xpressionUUID->"befaa5b3-76c1-46b7-a7c5-b4458ff505d5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindSequenceFunction", "[", RowBox[{ RowBox[{"DeleteMissing", "@", "seq"}], ",", "n"}], "]"}]], "Input",Expressi\ onUUID->"415531f0-1dce-4957-a7cc-fec6a73bbdf1"], Cell[BoxData[ SuperscriptBox["2", "n"]], "Output",ExpressionUUID->"208e2113-f5b8-4b05-83df-2f27112c7357"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["KirchhoffIndex", "Subsection",ExpressionUUID->"6248b676-7735-4cc6-b98a-b6a51204f53b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "b0473419-d10a-488f-b419-372cbb5023f3"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}]], "Output",ExpressionUUID->\ "cc4dceda-2b40-4048-99ac-77317d84cb63"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["KirchhoffSumIndex", "Subsection",ExpressionUUID->"863af5cb-e48f-4033-bb49-c5864eda63b8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "9de921f8-ec65-4b87-a081-9c1f26092aee"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate"}], "}"}]], "Output",ExpressionUUID->"55f1224c-e2ba-45f6-\ bfab-5d1387a22e9c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["LeafCount", "Subsection",ExpressionUUID->"bbf14212-48bc-4d1f-94b9-cb9760d61bf9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "5f0278d0-dcdd-4447-870a-8f00fb4b69e7"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"79649cdf-580e-4e2d-b066-d11a85c69675"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["LongestCycleCount", "Subsection",ExpressionUUID->"711b76d2-65c3-438b-a53b-c535625fbee8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "fbf7abf2-793b-4ef5-a82d-f2eb0fd9b61b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"5a123c2e-1c36-410e-820b-080f1ee22076"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["LovaszNumber", "Subsection",ExpressionUUID->"a331d4a1-469a-4ea3-886f-c52c4e54966c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "22dd2bb1-9d19-4b09-a68f-959e32f447c3"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20"}], "}"}]], "Output",\ ExpressionUUID->"166f5d57-b07a-4d03-be35-aa273484b0fe"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["LucasCube", "Subsection",ExpressionUUID->"484ea4c0-3a71-4837-bdac-55617ab96209"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Entity", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}]}], "]"}], "[", "\"\\"", "]"}]], "Input", CellLabel-> "In[120]:=",ExpressionUUID->"ca7b9a3a-bb32-4b90-95c0-b88b9f09fa4e"], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"True", RowBox[{"n", "\[Equal]", "1"}]}, {"False", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}, Selectable->True]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False, StripWrapperBoxes->True]], "Output", CellLabel-> "Out[120]=",ExpressionUUID->"f590d410-4b93-419e-9f9a-30a934ce7a3e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellLabel->"In[36]:=",ExpressionUUID->"29b3c4ef-d6f4-4e58-b4bf-1ddbf391d63a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "True", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False"}], "}"}]], "Output", CellLabel->"Out[36]=",ExpressionUUID->"25bfae33-eff6-4db8-9e21-2f4448e8ffae"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MatchingGeneratingPolynomial", "Subsection",ExpressionUUID->"b87fd71e-fe0e-4172-9efb-bbf0dbd07a71"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"poly", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "2cd31554-b39f-46bf-a7a1-e2660f322a74"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output",ExpressionU\ UID->"62481ab1-7efe-4cd8-ba06-0002e3f48139"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MatchingNumber", "Subsection",ExpressionUUID->"62b55c3b-1f63-4278-9d57-215b7b1aa7fa"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "5cb9b459-49b4-499c-9848-1828bce62e77"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"80c5942b-6dab-4f50-8d3b-3818591f3c63"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MatchingPolynomial", "Subsection",ExpressionUUID->"a3b25b91-37d5-4019-9a62-0081ac2fe06b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"poly", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "9b5abc90-76a9-41b1-a6c7-f8840fff9f7c"], Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", SuperscriptBox["x", "2"], ",", SuperscriptBox["x", "3"], ",", SuperscriptBox["x", "4"], ",", SuperscriptBox["x", "5"], ",", SuperscriptBox["x", "6"], ",", SuperscriptBox["x", "7"], ",", SuperscriptBox["x", "8"], ",", SuperscriptBox["x", "9"], ",", SuperscriptBox["x", "10"], ",", SuperscriptBox["x", "11"], ",", SuperscriptBox["x", "12"], ",", SuperscriptBox["x", "13"], ",", SuperscriptBox["x", "14"], ",", SuperscriptBox["x", "15"], ",", SuperscriptBox["x", "16"], ",", SuperscriptBox["x", "17"], ",", SuperscriptBox["x", "18"], ",", SuperscriptBox["x", "19"], ",", SuperscriptBox["x", "20"]}], "}"}]], "Output",ExpressionUUID->"7d55650e-\ 4b3f-4cfd-968a-43b1b26ca83e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MaximalCliqueCount", "Subsection",ExpressionUUID->"7b5fca9c-a9d9-4429-9b3b-9a1b04403bca"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "fd3560fd-63cd-41e8-b976-49ec5d6fdf22"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20"}], "}"}]], "Output",\ ExpressionUUID->"d70a6ff1-ca13-40af-80e1-6ec2d3202389"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MaximalIndependentEdgeSetCount", "Subsection",ExpressionUUID->"c73112eb-4780-4f03-879d-a86be639afbd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "4cc5c95e-0702-4022-a255-dd0afec98565"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"8b237b94-2c04-4b51-a1f2-883b430102d5"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MaximalIndependentVertexSetCount", "Subsection",ExpressionUUID->"be8941a7-973b-4b73-a693-699a0226e122"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "9f543167-a172-4f68-9b47-8c5c99030dfc"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output",ExpressionU\ UID->"17d1f432-09fa-4f11-b72f-28817bd44f11"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MaximalIrredundantSetCount", "Subsection",ExpressionUUID->"c2a91a36-ae74-42ee-8bb5-e642c0e45713"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "6fb09a15-db37-4de4-9b25-03beca95e3f6"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output",ExpressionU\ UID->"cff9c60f-446a-44f4-b8eb-7b4875bccab5"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MaximumCliqueCount", "Subsection",ExpressionUUID->"2c5f4c3a-ca2e-4ad5-8ed3-db986fd12dad"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "ee976b54-0d7f-4573-b085-8d357c267d07"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20"}], "}"}]], "Output",\ ExpressionUUID->"1715e1b5-0ce0-48e8-bd7c-869f149133e8"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MaximumIndependentEdgeSetCount", "Subsection",ExpressionUUID->"c284a6b5-66c1-432a-a6cb-f5048f3dd2a1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "a4a50c02-df13-4535-85f9-322618c67eaf"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output",ExpressionU\ UID->"a1b0e562-c0ef-4816-93c8-74028e450f7c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MaximumIndependentVertexSetCount", "Subsection",ExpressionUUID->"235c57d6-64a1-4a53-806f-e50523576c16"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "7bd8b377-ffa8-4054-8c95-e31bfdff71e8"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output",ExpressionU\ UID->"efc6b0bd-df2e-4b15-b130-e9713563628a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MaximumLeafNumber", "Subsection",ExpressionUUID->"d1a8368f-c5b3-4a89-9d10-4b7a03376e7b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "0c7605e8-6964-47a1-a5fc-47adbb47b4ce"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], "}"}]], "Output",\ ExpressionUUID->"d1d77cfe-206d-4842-9f24-cc4271a35719"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MaximumVertexDegree", "Subsection",ExpressionUUID->"3186cad6-e46a-40e8-b17b-be827c027723"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "4467e8b2-3a7d-4169-83df-dd1e6d682ef6"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"8aa919d0-c737-4d06-bec3-8e992ec97675"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MeanDistance", "Subsection",ExpressionUUID->"e5a7b9ec-df8b-4ffa-9502-4c1bb69ea760"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "350f5946-ac05-4acd-9984-5f3a2b2bd482"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}]], "Output",ExpressionUUID->\ "5aa446f9-dcc0-476d-bd1b-f18827ad3c93"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MinimalDominatingSetCount", "Subsection",ExpressionUUID->"d036d25b-9199-49cc-8656-d78f621d7a6f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "3cb2f47b-7fbc-4326-950a-cf9ffd8cc408"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}]}], "}"}]], "Output",E\ xpressionUUID->"7446c32e-5682-4693-9c3f-43e5806252ff"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MinimalDominatingSetSignature", "Subsection",ExpressionUUID->"fb958d0f-d070-4848-85e5-976dbc030d98"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "438457c5-9bd9-498b-9fff-e2ddbd1d67df"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"6", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"7", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"8", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"9", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"10", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"11", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"12", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"13", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"14", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"15", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"16", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"17", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"18", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"19", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"20", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"21", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"22", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"23", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"24", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"25", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"26", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"27", ",", "1"}], "}"}], "}"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}]}], "}"}]], "Output",E\ xpressionUUID->"f1f840be-118c-4cb6-bcaf-992fb1ab2448"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MinimumCliqueCoveringCount", "Subsection",ExpressionUUID->"e7b76134-1265-4eee-b90b-e94f51605914"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "0627cdf2-2019-4ac7-b7c3-1fb42168d751"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], ",", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}]}], "}"}]], "Output",E\ xpressionUUID->"491e7605-473f-4175-91e7-6e99c5c1e200"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MinimumConnectedDominatingSetCount", "Subsection",ExpressionUUID->"877dcee1-15cc-42c0-b8ca-3f53c07a92a4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "5f565252-d1f4-4f76-8c8b-fb5607442659"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"2338d763-254a-4771-93d3-7b9bd5800fa5"] }, Open ]], Cell[BoxData[ RowBox[{"FindSequenceFunction", "[", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{"seq", ",", "_Missing"}], "]"}], ",", "n"}], "]"}]], "Input",Expre\ ssionUUID->"65694c3f-bfa3-4909-9b96-3ca4f7b4b1b9"] }, Closed]], Cell[CellGroupData[{ Cell["MinimumDistinguishingLabelingCount", "Subsection",ExpressionUUID->"a14596b9-50f5-4e2b-bc34-d03428c57695"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "874bfacf-3590-49b7-80c6-dfb47305df67"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "6", ",", "24", ",", "120", ",", "720", ",", "5040", ",", "40320", ",", "362880", ",", "3628800", ",", "39916800", ",", "479001600", ",", "6227020800", ",", "87178291200", ",", "1307674368000", ",", "20922789888000", ",", "355687428096000", ",", "6402373705728000", ",", "121645100408832000", ",", "2432902008176640000"}], "}"}]], "Output",E\ xpressionUUID->"3a9f62c7-0621-41ef-a764-e0d317166d88"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindSequenceFunction", "[", RowBox[{"seq", ",", "n"}], "]"}]], "Input",ExpressionUUID->"815280c8-911b-\ 400b-abb0-444a186d5e21"], Cell[BoxData[ RowBox[{"n", "!"}]], "Output",ExpressionUUID->"7105cc99-40c8-48db-99e9-4846a37d4b6d"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MinimumDominatingSetCount", "Subsection",ExpressionUUID->"3d3b7c8a-965b-4c72-b173-040ea3fbc03f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "13b572d8-b883-443e-82b4-8c8de8be4243"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output",ExpressionU\ UID->"e65a3a2f-0777-44a2-9385-500aeae1ad2c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MinimumEdgeCoverCount", "Subsection",ExpressionUUID->"f14d35d7-45f3-4016-b9a8-6c5ef4609865"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "af2ca9d3-1862-4c12-a9d6-a5b0edc7c187"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"975239c8-f2b1-4148-b5bb-09b0e57e2e67"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MinimumVertexDegree", "Subsection",ExpressionUUID->"9e67fbc1-c8a2-4adb-808b-ccc2977a4d7a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "545dd927-9c7c-4a79-94d1-fcae7a9298e9"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"ecd28007-b53a-41a4-adb1-c37a98ae1af7"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["MolecularTopologicalIndex", "Subsection",ExpressionUUID->"496f44ca-1ec4-4954-a0b1-20702bd08ad6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "e00bff86-0dc0-43e2-a291-6f86e35ae7f6"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", "Indeterminate"}], "}"}]], "Output",ExpressionUUID->"46803b8c-c229-4cd1-\ 8a19-5c86717e5a34"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Nonhamiltonian", "Subsection",ExpressionUUID->"4fe22bc4-5da1-459b-8a1e-13f50653a268"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\ "3ef0a688-1453-41de-a014-3e63f7ba4254"], Cell[BoxData[ RowBox[{"{", RowBox[{ "False", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}]], "Output",ExpressionUUID->\ "fd6dbe28-3bbe-4277-8e37-d217965ab5d0"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["OddChordlessCycleCount", "Subsection",ExpressionUUID->"110b53bb-8095-4f99-87e4-9214d2cdf269"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "31f691a1-4670-45a6-a580-003270ec861b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"6065020b-ee85-42c0-89ef-ef1f0227b215"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["PathCount", "Subsection",ExpressionUUID->"4c4ed9a1-f3e6-40b0-aa96-34cbfd4c4a25"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "debe28e2-9727-4ee6-b43d-aed2e17f1fb1"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"843d3a5a-2d01-4a26-8c5d-48655fdfb705"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindLinearRecurrence", "[", RowBox[{"DeleteMissing", "@", "seq"}], "]"}]], "Input",ExpressionUUID->\ "fbc3b6e5-5021-413c-bdf4-f91525429702"], Cell[BoxData[ RowBox[{"FindLinearRecurrence", "[", RowBox[{"{", RowBox[{ "396", ",", "2040", ",", "9130", ",", "37944", ",", "151172", ",", "586608", ",", "2235618"}], "}"}], "]"}]], "Output",ExpressionUUID->\ "4fbd13a4-a962-437c-a119-f80748049523"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindSequenceFunction", "[", RowBox[{ RowBox[{"DeleteMissing", "@", "seq"}], ",", "n"}], "]"}]], "Input",Expressi\ onUUID->"0e7105db-f9f4-48af-9e93-72628ddbe0a2"], Cell[BoxData[ RowBox[{"FindSequenceFunction", "[", RowBox[{ RowBox[{"{", RowBox[{ "396", ",", "2040", ",", "9130", ",", "37944", ",", "151172", ",", "586608", ",", "2235618"}], "}"}], ",", "n"}], "]"}]], "Output",Expressio\ nUUID->"9bf9edbe-15eb-4d5f-bcd8-4048d8ad8782"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gf", "=", RowBox[{"x", " ", RowBox[{"FindGeneratingFunction", "[", RowBox[{ RowBox[{"DeleteMissing", "@", "seq"}], ",", "x"}], "]"}]}]}]], "Input",Ex\ pressionUUID->"f1a1c994-eaf0-448e-981e-23d85dd0d8c5"], Cell[BoxData[ RowBox[{"x", " ", RowBox[{"FindGeneratingFunction", "[", RowBox[{ RowBox[{"{", RowBox[{ "396", ",", "2040", ",", "9130", ",", "37944", ",", "151172", ",", "586608", ",", "2235618"}], "}"}], ",", "x"}], "]"}]}]], "Output",Expres\ sionUUID->"76bb48ce-eea6-42fe-8daf-5dffc04115ce"] }, Open ]], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"SeriesCoefficient", "[", RowBox[{"gf", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"n", ">", "0"}]}], "]"}]], "Input",ExpressionUUID->"571cb537-447e-\ 4e92-a48c-fe60085274be"] }, Closed]], Cell[CellGroupData[{ Cell["PathPolynomial", "Subsection",ExpressionUUID->"a2f5f495-d43b-4720-b607-c3d1a394cec5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"(", RowBox[{"poly", "=", RowBox[{"Factor", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"k0", "=", "1"}], ",", RowBox[{"kmax", "=", "30"}]}], "}"}]}], "]"}], "/.", RowBox[{"f_Function", ":>", RowBox[{"f", "[", "x", "]"}]}]}], "]"}]}], ")"}]], "Input",ExpressionUUI\ D->"ed64b644-48af-4cd5-a850-d7851ad52b5d"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"c2aa0501-03d9-4f00-9ae0-423fffc2546f"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Pell", "Subsection",ExpressionUUID->"5ca05531-1300-426b-9f56-078292677210"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Entity", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}]}], "]"}], "[", "\"\\"", "]"}]], "Input", CellLabel-> "In[121]:=",ExpressionUUID->"7641c642-1fd9-4e79-a297-aad2d147880b"], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"True", RowBox[{"n", "\[Equal]", "1"}]}, {"False", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}, Selectable->True]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False, StripWrapperBoxes->True]], "Output", CellLabel-> "Out[121]=",ExpressionUUID->"4799af75-6541-4e35-952d-133a66012d0d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellLabel->"In[37]:=",ExpressionUUID->"15cf0f02-306d-4bf0-a6ec-c430d67e398d"], Cell[BoxData[ RowBox[{"{", RowBox[{ "True", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False"}], "}"}]], "Output", CellLabel->"Out[37]=",ExpressionUUID->"9c44b39a-0eaf-4c48-8d9a-7f00322e3e11"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["PentagonCount", "Subsection",ExpressionUUID->"11d94d15-b128-43a6-9d87-e35935e0becb"], Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "f393bc64-23d1-44f4-890e-0b935f7fd47c"], Cell[BoxData[ RowBox[{"FindSequenceFunction", "[", RowBox[{"seq", ",", "n"}], "]"}]], "Input",ExpressionUUID->"02015ea6-ee8d-\ 4444-a07f-0f04cb3b61de"], Cell[BoxData[ RowBox[{"FindSequenceFunction", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{"seq", ",", "2"}], "]"}], ",", "n"}], "]"}]], "Input",ExpressionUU\ ID->"aef3e8cd-ce6e-4a50-9fe2-6be06a548524"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindGeneratingFunction", "[", RowBox[{"seq", ",", "x"}], "]"}]], "Input",ExpressionUUID->"64f8c2ed-189a-\ 4a82-bb9c-595821fd4894"], Cell[BoxData[ TemplateBox[{ "CoefficientList", "poly", "\"\\!\\(\\*RowBox[{SqrtBox[\\\"Discrete`FindGeneratingFunctionDump`x\\\"],\ \\\"-\\\", FractionBox[RowBox[{\\\"31\\\", \\\" \\\", \ \\\"Discrete`FindGeneratingFunctionDump`x\\\"}], \\\"2\\\"], \\\"+\\\", \ FractionBox[RowBox[{\\\"2341\\\", \\\" \\\", \ SuperscriptBox[\\\"Discrete`FindGeneratingFunctionDump`x\\\", RowBox[{\\\"3\\\ \", \\\"/\\\", \\\"2\\\"}]]}], \\\"8\\\"], \\\"-\\\", \ FractionBox[RowBox[{\\\"12131\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \\\"2\\\"]}], \\\ \"2\\\"], \\\"+\\\", FractionBox[RowBox[{\\\"16926151\\\", \\\" \\\", \ SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"37\\\", \\\"\ \[RightSkeleton]\\\"}], RowBox[{\\\"5\\\", \\\"/\\\", \\\"2\\\"}]]}], \\\"128\ \\\"], \\\"-\\\", RowBox[{\\\"2971029\\\", \\\" \\\", \ SuperscriptBox[\\\"Discrete`FindGeneratingFunctionDump`x\\\", \\\"3\\\"]}], \ \\\"+\\\", FractionBox[RowBox[{\\\"69664987069\\\", \\\" \\\", \ SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"37\\\", \\\"\ \[RightSkeleton]\\\"}], RowBox[{\\\"7\\\", \\\"/\\\", \\\"2\\\"}]]}], \ \\\"1024\\\"], \\\"-\\\", FractionBox[RowBox[{\\\"3154162187\\\", \\\" \\\", \ SuperscriptBox[\\\"Discrete`FindGeneratingFunctionDump`x\\\", \\\"4\\\"]}], \ \\\"2\\\"], \\\"+\\\", FractionBox[RowBox[{\\\"1207444635955723\\\", \\\" \ \\\", SuperscriptBox[\\\"Discrete`FindGeneratingFunctionDump`x\\\", \ RowBox[{\\\"9\\\", \\\"/\\\", \\\"2\\\"}]]}], \\\"32768\\\"]}]\\) is not a \ polynomial.\"", 2, 33, 7, 18592088716962775384, "Local"}, "MessageTemplate"]], "Message", \ "MSG",ExpressionUUID->"c60839ef-89b1-452a-8b35-ba05ffa63770"], Cell[BoxData[ TemplateBox[{ "CoefficientList", "poly", "\"\\!\\(\\*RowBox[{SqrtBox[\\\"Discrete`FindGeneratingFunctionDump`x\\\"],\ \\\"-\\\", FractionBox[RowBox[{\\\"31\\\", \\\" \\\", \ \\\"Discrete`FindGeneratingFunctionDump`x\\\"}], \\\"2\\\"], \\\"+\\\", \ FractionBox[RowBox[{\\\"2341\\\", \\\" \\\", \ SuperscriptBox[\\\"Discrete`FindGeneratingFunctionDump`x\\\", RowBox[{\\\"3\\\ \", \\\"/\\\", \\\"2\\\"}]]}], \\\"8\\\"], \\\"-\\\", \ FractionBox[RowBox[{\\\"12131\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \\\"2\\\"]}], \\\ \"2\\\"], \\\"+\\\", FractionBox[RowBox[{\\\"16926151\\\", \\\" \\\", \ SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"37\\\", \\\"\ \[RightSkeleton]\\\"}], RowBox[{\\\"5\\\", \\\"/\\\", \\\"2\\\"}]]}], \\\"128\ \\\"], \\\"-\\\", FractionBox[RowBox[{\\\"147161161\\\", \\\" \\\", \ SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"37\\\", \\\"\ \[RightSkeleton]\\\"}], \\\"3\\\"]}], \\\"62\\\"], \\\"+\\\", \ FractionBox[RowBox[{\\\"69664987069\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\ \"\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ RowBox[{\\\"7\\\", \\\"/\\\", \\\"2\\\"}]]}], \\\"1024\\\"], \\\"-\\\", \ FractionBox[RowBox[{\\\"1785212044091\\\", \\\" \\\", SuperscriptBox[RowBox[{\ \\\"\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ \\\"4\\\"]}], \\\"1922\\\"], \\\"+\\\", \ FractionBox[RowBox[{\\\"1207444635955723\\\", \\\" \\\", \ SuperscriptBox[\\\"Discrete`FindGeneratingFunctionDump`x\\\", RowBox[{\\\"9\\\ \", \\\"/\\\", \\\"2\\\"}]]}], \\\"32768\\\"], \\\"-\\\", \ FractionBox[RowBox[{\\\"21656407306867921\\\", \\\" \\\", \ SuperscriptBox[\\\"Discrete`FindGeneratingFunctionDump`x\\\", \\\"5\\\"]}], \ \\\"59582\\\"]}]\\) is not a polynomial.\"", 2, 33, 8, 18592088716962775384, "Local"}, "MessageTemplate"]], "Message", \ "MSG",ExpressionUUID->"0997e00b-b944-4813-a7f5-a8d27e737936"], Cell[BoxData[ TemplateBox[{ "PolynomialGCD", "lrgexp", "\"Exponent is out of bounds for function \ \\!\\(\\*RowBox[{\\\"PolynomialGCD\\\"}]\\).\"", 2, 33, 9, 18592088716962775384, "Local"}, "MessageTemplate"]], "Message", \ "MSG",ExpressionUUID->"af0ea938-7666-4350-82fd-778a5cced43c"], Cell[BoxData[ TemplateBox[{ "CoefficientList", "poly", "\"\\!\\(\\*RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"31\\\", \ RowBox[{\\\"2\\\", \\\" \\\", RowBox[{\\\"(\\\", \ RowBox[{SqrtBox[\\\"Discrete`FindGeneratingFunctionDump`x\\\"], \\\"+\\\", \ FractionBox[RowBox[{\\\"2341\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ RowBox[{\\\"3\\\", \\\"/\\\", \\\"2\\\"}]]}], \\\"8\\\"], \\\"+\\\", \ FractionBox[RowBox[{\\\"16926151\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ RowBox[{\\\"5\\\", \\\"/\\\", \\\"2\\\"}]]}], \\\"128\\\"], \\\"+\\\", \ FractionBox[RowBox[{\\\"69664987069\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\ \"\[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ RowBox[{\\\"7\\\", \\\"/\\\", \\\"2\\\"}]]}], \\\"1024\\\"], \\\"+\\\", \ FractionBox[RowBox[{\\\"1207444635955723\\\", \\\" \\\", \ SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"37\\\", \\\"\ \[RightSkeleton]\\\"}], RowBox[{\\\"9\\\", \\\"/\\\", \\\"2\\\"}]]}], \ \\\"32768\\\"]}], \\\")\\\"}]}]]}], \\\"+\\\", \ FractionBox[RowBox[{FractionBox[\\\"1\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ \\\"1\\\", \\\"\[RightSkeleton]\\\"}]], \\\"+\\\", \ RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\ \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ \\\"\[RightSkeleton]\\\"}]}], \ RowBox[{SqrtBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"37\\\", \\\"\ \[RightSkeleton]\\\"}]], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\ \\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}]], \\\"+\\\", RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ RowBox[{\\\"Discrete`FindGeneratingFunctionDump`x\\\", \\\" \\\", \ RowBox[{\\\"(\\\", RowBox[{FractionBox[RowBox[{\\\"31\\\", \\\" \\\", \ RowBox[{\\\"(\\\", RowBox[{FractionBox[\\\"1\\\", RowBox[{\\\"2\\\", \\\" \ \\\", SqrtBox[\\\"Discrete`FindGeneratingFunctionDump`x\\\"]}]], \\\"+\\\", \ FractionBox[RowBox[{\\\"7023\\\", \\\" \\\", SqrtBox[RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"37\\\", \\\"\[RightSkeleton]\\\"}]]}], \\\"16\\\"], \ \\\"+\\\", FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ \[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\ \[RightSkeleton]\\\"}]], \\\"+\\\", FractionBox[RowBox[{RowBox[{\\\"\\\", \ RowBox[{\\\"\[LeftSkeleton]\\\", \\\"12\\\", \\\"\[RightSkeleton]\\\"}], \\\"\ \\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ \[RightSkeleton]\\\"}]}], \\\"2048\\\"], \\\"+\\\", \ FractionBox[RowBox[{\\\"10867001723601507\\\", \\\" \\\", \ SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"37\\\", \\\"\ \[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ \[RightSkeleton]\\\"}]]}], \\\"65536\\\"]}], \\\")\\\"}]}], \ RowBox[{\\\"2\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{SqrtBox[\\\"Discrete`FindGeneratingFunctionDump`x\\\"], \\\"+\\\", \ RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\ \\\", FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ \[RightSkeleton]\\\"}], RowBox[{\\\"\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ \"5\\\", \\\"\[RightSkeleton]\\\"}], \\\"\\\"}]]}], \\\")\\\"}], \ \\\"2\\\"]}]], \\\"+\\\", RowBox[{\\\"2\\\", \\\" \\\", RowBox[{\\\"(\\\", \ RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"961\\\", RowBox[{\\\"8\\\", \\\" \ \\\", SuperscriptBox[RowBox[{\\\"Plus\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ \\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"2\\\"]}]]}], \\\"-\\\", \ FractionBox[\\\"12131\\\", RowBox[{\\\"2\\\", \\\" \\\", \ RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"5\\\", \ \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}]}], \ \\\")\\\"}]}]}]\\) is not a polynomial.\"", 2, 33, 10, 18592088716962775384, "Local"}, "MessageTemplate"]], "Message", \ "MSG",ExpressionUUID->"fdd39d3d-6ada-4a8a-831b-fa16506c26fe"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"CoefficientList\\\", \\\ \"::\\\", \\\"poly\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ this calculation.\"", 2, 33, 11, 18592088716962775384, "Local"}, "MessageTemplate"]], "Message", \ "MSG",ExpressionUUID->"d87038f1-c42d-4ef4-90f3-009973d8ca62"] }, Closed]], Cell[BoxData[ RowBox[{"FindLinearRecurrence", "[", "seq", "]"}]], "Input",ExpressionUUID->"569f34b8-532b-4d98-b743-dbf2d5682c20"] }, Closed]], Cell[CellGroupData[{ Cell["Perfect", "Subsection",ExpressionUUID->"1937dacf-a4aa-4ec5-ada1-07a9bec7267e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\ "48e50a16-5747-4490-bf6b-eb3094ddafbd"], Cell[BoxData[ RowBox[{"{", RowBox[{ "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}]], "Output",ExpressionUUID->\ "4338b1cc-a23a-40af-9b41-5f7de1c60fcc"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["ProjectivePlaneCrossingNumber", "Subsection",ExpressionUUID->"b6e53b97-a7cc-4777-9850-8df81bc442b2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "6b701111-d6c3-4821-a024-165aaa2d1bed"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"4fd61bce-5672-45a7-a013-d76c51780867"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Radius", "Subsection",ExpressionUUID->"4b02403a-16d6-4ec9-95a5-b41ef73c0c48"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "d53e31bd-c9ba-47d1-8c84-7aeb47150a91"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}]], "Output",ExpressionUUID->\ "20600c6b-c0c8-4273-9257-671647ae73fc"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["RankPolynomial", "Subsection",ExpressionUUID->"8fb10136-52c8-473d-a413-1f04bd52eaec"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "10"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "42a5a565-0ff5-48bf-859a-15295bf7c2fe"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"1", "&"}], ",", RowBox[{"1", "&"}], ",", RowBox[{"1", "&"}], ",", RowBox[{"1", "&"}], ",", RowBox[{"1", "&"}], ",", RowBox[{"1", "&"}], ",", RowBox[{"1", "&"}], ",", RowBox[{"1", "&"}], ",", RowBox[{"1", "&"}], ",", RowBox[{"1", "&"}]}], "}"}]], "Output",ExpressionUUID->"6ddb944c-c23b-4698-\ 9fd5-44c139386a4c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["RectilinearCrossingNumber", "Subsection",ExpressionUUID->"953823e9-856a-4e5b-85a6-8f55fe1e13d5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"seq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "30"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "9fdccae9-f31a-41d9-8b80-57978e27fc9a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionU\ UID->"9fab9d3a-0922-4ae7-86c4-e8ac0289aff8"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["SigmaPolynomial", "Subsection",ExpressionUUID->"36abb659-c20f-44ed-9679-8775f74d8783"], Cell[TextData[ButtonBox["A008278", BaseStyle->"Hyperlink", ButtonData->{ URL["https://oeis.org/A008278"], None}, ButtonNote->"https://oeis.org/A008278"]], "Text",ExpressionUUID->"7ee15b22-\ 59b3-4d4f-bda6-b74b3a96ba15"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"poly", "=", RowBox[{"Factor", "@", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"GraphData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "n"}], "}"}], ",", "\"\