(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 59174, 1439] NotebookOptionsPosition[ 55731, 1350] NotebookOutlinePosition[ 57497, 1402] CellTagsIndexPosition[ 57454, 1399] WindowTitle->VertexCoordinateList | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell[TextData[{ "Given a graph, ", Cell[BoxData[ StyleBox["VertexCoordinateList", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " returns the vertex coordinates in the expected order:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.760213237886359*^9, 3.7602132985959964`*^9}, { 3.76021334740701*^9, 3.7602133484225373`*^9}, {3.760213395180089*^9, 3.7602134152575464`*^9}, 3.760711650487344*^9}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"edges", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "\[UndirectedEdge]", "2"}], ",", RowBox[{"1", "\[UndirectedEdge]", "3"}], ",", RowBox[{"1", "\[UndirectedEdge]", "7"}], ",", RowBox[{"1", "\[UndirectedEdge]", "8"}], ",", RowBox[{"2", "\[UndirectedEdge]", "3"}], ",", RowBox[{"2", "\[UndirectedEdge]", "4"}], ",", RowBox[{"2", "\[UndirectedEdge]", "5"}], ",", RowBox[{"3", "\[UndirectedEdge]", "4"}], ",", RowBox[{"4", "\[UndirectedEdge]", "5"}], ",", RowBox[{"4", "\[UndirectedEdge]", "6"}], ",", RowBox[{"5", "\[UndirectedEdge]", "6"}], ",", RowBox[{"5", "\[UndirectedEdge]", "8"}], ",", RowBox[{"6", "\[UndirectedEdge]", "7"}], ",", RowBox[{"7", "\[UndirectedEdge]", "8"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", RowBox[{"Graph", "[", RowBox[{"edges", ",", RowBox[{"GraphLayout", "\[Rule]", "\"\\""}], ",", " ", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"g", ",", " ", RowBox[{"Graphics", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "#1"}], "]"}], "&"}], ",", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["VertexCoordinateList", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["VertexCoordinateList", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/VertexCoordinateList"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "VertexCoordinateList"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["VertexCoordinateList"], BoxID -> "VertexCoordinateList", Selectable->False], "[", "g", "]"}]}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "#1"}], "]"}], "&"}], ",", RowBox[{"GraphEmbedding", "[", "g", "]"}]}], "]"}], "]"}], ",", " ", RowBox[{"Graphics", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "#1"}], "]"}], "&"}], ",", RowBox[{ RowBox[{"GraphEmbedding", "[", "g", "]"}], "[", RowBox[{"[", RowBox[{"VertexList", "[", "g", "]"}], "]"}], "]"}]}], "]"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"Frame", "\[Rule]", " ", "All"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7602131589024067`*^9, 3.7602131855503826`*^9}, { 3.760213216826744*^9, 3.7602132219184732`*^9}}, CellLabel->"In[65]:=", CellID->313270173], Cell[BoxData[ TagBox[GridBox[{ { GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 7, 8, 4, 5, 6}, { Null, {{1, 2}, {1, 3}, {1, 4}, {1, 5}, {2, 3}, {2, 6}, {2, 7}, {3, 6}, {6, 7}, {6, 8}, {7, 8}, {7, 5}, {8, 4}, {4, 5}}}, { GraphLayout -> "TutteEmbedding", VertexLabels -> {"Name"}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmVmYGDgA2ImKObqmudjWblqDwMYfLDfsmHnftsPN/a3zL4r4521 wh5dniHURZgv/91+75f65u+PXcaQ/x8ClrcPxCH//eDG49fvXrbntO16wxZy FcM+dPPR5WOjSlmUzz/av/LL9Nnlj1/uR5d/s0v+wXTPKfu7KvralU9f3o9u Hrp+dPeiuw9dPg6i3345VD+6enT70e0jJI9uPrp6dHkAaK7png== "]]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], { DiskBox[{-1.8369701987210297*^-16, 1.}, 0.021812234931106983], InsetBox["1", Offset[{2, 2}, {0.0218122349311068, 1.021812234931107}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-0.38966315959147413, 0.047685954354896004}, 0.021812234931106983], InsetBox["2", Offset[{2, 2}, {-0.3678509246603672, 0.06949818928600299}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-0.9510565162951536, 0.3090169943749472}, 0.021812234931106983], InsetBox["3", Offset[{2, 2}, {-0.9292442813640467, 0.3308292293060542}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.9510565162951535, 0.3090169943749475}, 0.021812234931106983], InsetBox["7", Offset[{2, 2}, {0.9728687512262605, 0.3308292293060545}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.31041521550562784, 0.33325360393151066}, 0.021812234931106983], InsetBox["8", Offset[{2, 2}, {0.33222745043673485, 0.35506583886261767}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-0.587785252292473, -0.8090169943749476}, 0.021812234931106983], InsetBox["4", Offset[{2, 2}, {-0.5659730173613661, -0.7872047594438406}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-0.019811986021461545, -0.3092736076158721}, 0.021812234931106983], InsetBox["5", Offset[{2, 2}, {0.0020002489096454384, -0.2874613726847651}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.5877852522924731, -0.8090169943749473}, 0.021812234931106983], InsetBox["6", Offset[{2, 2}, {0.6095974872235801, -0.7872047594438404}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], GraphicsBox[{InsetBox["1", {-1.8369701987210297*^-16, 1.}], InsetBox["2", {-0.38966315959147413, 0.047685954354896004}], InsetBox["3", {-0.9510565162951536, 0.3090169943749472}], InsetBox["4", {-0.587785252292473, -0.8090169943749476}], InsetBox["5", {-0.019811986021461545, -0.3092736076158721}], InsetBox["6", {0.5877852522924731, -0.8090169943749473}], InsetBox["7", {0.9510565162951535, 0.3090169943749475}], InsetBox["8", {0.31041521550562784, 0.33325360393151066}]}]}, { GraphicsBox[{InsetBox["1", {-1.8369701987210297*^-16, 1.}], InsetBox["2", {-0.38966315959147413, 0.047685954354896004}], InsetBox["3", {-0.9510565162951536, 0.3090169943749472}], InsetBox["4", {0.9510565162951535, 0.3090169943749475}], InsetBox["5", {0.31041521550562784, 0.33325360393151066}], InsetBox["6", {-0.587785252292473, -0.8090169943749476}], InsetBox["7", {-0.019811986021461545, -0.3092736076158721}], InsetBox["8", {0.5877852522924731, -0.8090169943749473}]}], GraphicsBox[{InsetBox["1", {-1.8369701987210297*^-16, 1.}], InsetBox["2", {-0.38966315959147413, 0.047685954354896004}], InsetBox["3", {-0.9510565162951536, 0.3090169943749472}], InsetBox["4", {-0.019811986021461545, -0.3092736076158721}], InsetBox["5", {0.5877852522924731, -0.8090169943749473}], InsetBox["6", {0.9510565162951535, 0.3090169943749475}], InsetBox["7", {0.31041521550562784, 0.33325360393151066}], InsetBox["8", {-0.587785252292473, -0.8090169943749476}]}]} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", TaggingRules->{}, CellChangeTimes->{3.7602132237395725`*^9, 3.760214135698005*^9, 3.760711621239663*^9}, CellLabel->"Out[67]=", CellID->216519219] }, Open ]], Cell["The vertex coordinate list can be used with the given edges:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7602136165861745`*^9, 3.760213652063944*^9}, { 3.760213751498351*^9, 3.7602137524982758`*^9}}, CellID->7504727], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{ RowBox[{ RowBox[{"Line", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["VertexCoordinateList", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["VertexCoordinateList", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/VertexCoordinateList"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "VertexCoordinateList"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["VertexCoordinateList"], BoxID -> "VertexCoordinateList", Selectable->False], "[", "g", "]"}], "[", RowBox[{"[", "#", "]"}], "]"}], "]"}], "&"}], "/@", RowBox[{"List", "@@@", "edges"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.760213451595318*^9, 3.7602135513508215`*^9}}, CellLabel->"In[68]:=", CellID->135806497], Cell[BoxData[ GraphicsBox[{ LineBox[{{-1.8369701987210297`*^-16, 1.}, {-0.38966315959147413`, 0.047685954354896004`}}], LineBox[{{-1.8369701987210297`*^-16, 1.}, {-0.9510565162951536, 0.3090169943749472}}], LineBox[{{-1.8369701987210297`*^-16, 1.}, {0.9510565162951535, 0.3090169943749475}}], LineBox[{{-1.8369701987210297`*^-16, 1.}, {0.31041521550562784`, 0.33325360393151066`}}], LineBox[{{-0.38966315959147413`, 0.047685954354896004`}, {-0.9510565162951536, 0.3090169943749472}}], LineBox[{{-0.38966315959147413`, 0.047685954354896004`}, {-0.587785252292473, -0.8090169943749476}}], LineBox[{{-0.38966315959147413`, 0.047685954354896004`}, {-0.019811986021461545`, -0.3092736076158721}}], LineBox[{{-0.9510565162951536, 0.3090169943749472}, {-0.587785252292473, -0.8090169943749476}}], LineBox[{{-0.587785252292473, -0.8090169943749476}, \ {-0.019811986021461545`, -0.3092736076158721}}], LineBox[{{-0.587785252292473, -0.8090169943749476}, { 0.5877852522924731, -0.8090169943749473}}], LineBox[{{-0.019811986021461545`, -0.3092736076158721}, { 0.5877852522924731, -0.8090169943749473}}], LineBox[{{-0.019811986021461545`, -0.3092736076158721}, { 0.31041521550562784`, 0.33325360393151066`}}], LineBox[{{0.5877852522924731, -0.8090169943749473}, {0.9510565162951535, 0.3090169943749475}}], LineBox[{{0.9510565162951535, 0.3090169943749475}, {0.31041521550562784`, 0.33325360393151066`}}]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7602134585472536`*^9, 3.760213465599147*^9}, 3.760213515530995*^9, 3.7602135536076016`*^9, 3.760711659365179*^9}, CellLabel->"Out[68]=", CellID->994885465] }, Open ]], Cell["The raw form of the output:", "Text", TaggingRules->{}, CellChangeTimes->{{3.760213785684313*^9, 3.760213794626211*^9}}, CellID->39925455], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["VertexCoordinateList", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["VertexCoordinateList", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/VertexCoordinateList"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "VertexCoordinateList"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["VertexCoordinateList"], BoxID -> "VertexCoordinateList", Selectable->False], "[", "g", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[32]:=", CellID->337871470], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.8369701987210297`*^-16"}], ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.38966315959147413`"}], ",", "0.047685954354896004`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9510565162951536`"}], ",", "0.3090169943749472`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.587785252292473`"}], ",", RowBox[{"-", "0.8090169943749476`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.019811986021461545`"}], ",", RowBox[{"-", "0.3092736076158721`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.5877852522924731`", ",", RowBox[{"-", "0.8090169943749473`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.9510565162951535`", ",", "0.3090169943749475`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.31041521550562784`", ",", "0.33325360393151066`"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7602134374375505`*^9}, CellLabel->"Out[32]=", CellID->9055116] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Neat Examples", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellChangeTimes->{{3.854032183862661*^9, 3.8540321843655243`*^9}}, CellID->889784606], Cell[TextData[{ "Use ", Cell[BoxData[ StyleBox["VertexCoordinateList", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " on a given ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Graph", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, {"Link"}]], ButtonData->"paclet:ref/Graph", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.760213237886359*^9, 3.7602132985959964`*^9}, { 3.76021334740701*^9, 3.7602133484225373`*^9}, {3.760213395180089*^9, 3.7602134152575464`*^9}, 3.760711650487344*^9, {3.8540324614437447`*^9, 3.8540324837710733`*^9}}, CellID->2083991913], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"edges", "=", RowBox[{"RandomSample", "[", RowBox[{"{", RowBox[{ RowBox[{"1", "\[UndirectedEdge]", "2"}], ",", RowBox[{"1", "\[UndirectedEdge]", "3"}], ",", RowBox[{"1", "\[UndirectedEdge]", "4"}], ",", RowBox[{"1", "\[UndirectedEdge]", "5"}], ",", RowBox[{"2", "\[UndirectedEdge]", "3"}], ",", RowBox[{"2", "\[UndirectedEdge]", "6"}], ",", RowBox[{"3", "\[UndirectedEdge]", "7"}], ",", RowBox[{"4", "\[UndirectedEdge]", "7"}], ",", RowBox[{"4", "\[UndirectedEdge]", "8"}], ",", RowBox[{"5", "\[UndirectedEdge]", "9"}], ",", RowBox[{"5", "\[UndirectedEdge]", "10"}], ",", RowBox[{"6", "\[UndirectedEdge]", "7"}], ",", RowBox[{"6", "\[UndirectedEdge]", "8"}], ",", RowBox[{"6", "\[UndirectedEdge]", "10"}], ",", RowBox[{"8", "\[UndirectedEdge]", "9"}], ",", RowBox[{"9", "\[UndirectedEdge]", "10"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", RowBox[{"Graph", "[", RowBox[{"edges", ",", RowBox[{"GraphLayout", "\[Rule]", "\"\\""}], ",", " ", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"g", ",", " ", RowBox[{"Graphics", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "#1"}], "]"}], "&"}], ",", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["VertexCoordinateList", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["VertexCoordinateList", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{ LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/VertexCoordinateList"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "VertexCoordinateList"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["VertexCoordinateList"], BoxID -> "VertexCoordinateList", Selectable->False], "[", "g", "]"}]}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "#1"}], "]"}], "&"}], ",", RowBox[{"GraphEmbedding", "[", "g", "]"}]}], "]"}], "]"}], ",", " ", RowBox[{"Graphics", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "#1"}], "]"}], "&"}], ",", RowBox[{ RowBox[{"GraphEmbedding", "[", "g", "]"}], "[", RowBox[{"[", RowBox[{"VertexList", "[", "g", "]"}], "]"}], "]"}]}], "]"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"Frame", "\[Rule]", " ", "All"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7602139186634555`*^9, 3.7602139205170965`*^9}, { 3.760214004583339*^9, 3.760214015824552*^9}, 3.7602141178774724`*^9, { 3.7602141828247623`*^9, 3.7602141977108088`*^9}}, CellLabel->"In[53]:=", CellID->748369718], Cell[BoxData[ TagBox[GridBox[{ { GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{6, 10, 5, 9, 7, 2, 3, 4, 1, 8}, { Null, {{1, 2}, {3, 4}, {1, 5}, {6, 7}, {8, 5}, {3, 2}, {9, 8}, {1, 10}, {8, 10}, {9, 3}, {9, 7}, {10, 4}, {6, 1}, {4, 2}, {9, 6}, {7, 5}}}, {GraphLayout -> "TutteEmbedding", VertexLabels -> {"Name"}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmVmYGAQAGImKObqmudjWblqDwMYfLBnCHUR5st/t9/7pb75+2OX 7dHln7/PE2yecsne9KqpUxbnJQz5/yFg/faBOPR38MXZyGnt2B/c9GVuFVA/ un2xUaUsyucf7V/5Zfrs8scv96PLr+at+Hg5++H+tU88/snM27QfXT0h+TgI 3345DvXo7kP379Htqg8uND22j+/j/QtSjy5fMmGlqeCOC/b5/x1mKX/Ysh89 PND1o8ujuw9dPbo8un2E5NH9BwDwywDj "]]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], { DiskBox[{-1.8369701987210297*^-16, 1.}, 0.021812234931106983], InsetBox["6", Offset[{2, 2}, {0.0218122349311068, 1.021812234931107}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-0.9510565162951536, 0.3090169943749472}, 0.021812234931106983], InsetBox["10", Offset[{2, 2}, {-0.9292442813640467, 0.3308292293060542}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-0.587785252292473, -0.8090169943749476}, 0.021812234931106983], InsetBox["5", Offset[{2, 2}, {-0.5659730173613661, -0.7872047594438406}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-0.5444125858488652, -0.07272511680720824}, 0.021812234931106983], InsetBox["9", Offset[{2, 2}, {-0.5226003509177582, -0.050912881876101254}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.29031445219493296, 0.2818246504387674}, 0.021812234931106983], InsetBox["7", Offset[{2, 2}, {0.31212668712603997, 0.30363688536987443}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.9510565162951535, 0.3090169943749475}, 0.021812234931106983], InsetBox["2", Offset[{2, 2}, {0.9728687512262605, 0.3308292293060545}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.6097187402608532, -0.07272511652041079}, 0.021812234931106983], InsetBox["3", Offset[{2, 2}, {0.6315309751919601, -0.05091288158930381}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.2612345718428124, -0.0817892314526014}, 0.021812234931106983], InsetBox["4", Offset[{2, 2}, {0.28304680677391936, -0.05997699652149442}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.5877852522924731, -0.8090169943749473}, 0.021812234931106983], InsetBox["1", Offset[{2, 2}, {0.6095974872235801, -0.7872047594438404}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-0.09439267133535101, 0.28182855058006345}, 0.021812234931106983], InsetBox["8", Offset[{2, 2}, {-0.07258043640424403, 0.30364078551117046}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], GraphicsBox[{InsetBox["1", {0.5877852522924731, -0.8090169943749473}], InsetBox["2", {0.9510565162951535, 0.3090169943749475}], InsetBox["3", {0.6097187402608532, -0.07272511652041079}], InsetBox["4", {0.2612345718428124, -0.0817892314526014}], InsetBox["5", {-0.587785252292473, -0.8090169943749476}], InsetBox["6", {-1.8369701987210297*^-16, 1.}], InsetBox["7", {0.29031445219493296, 0.2818246504387674}], InsetBox["8", {-0.09439267133535101, 0.28182855058006345}], InsetBox["9", {-0.5444125858488652, -0.07272511680720824}], InsetBox["10", {-0.9510565162951536, 0.3090169943749472}]}]}, { GraphicsBox[{InsetBox["1", {-1.8369701987210297*^-16, 1.}], InsetBox["2", {-0.9510565162951536, 0.3090169943749472}], InsetBox["3", {-0.587785252292473, -0.8090169943749476}], InsetBox["4", {-0.5444125858488652, -0.07272511680720824}], InsetBox["5", {0.29031445219493296, 0.2818246504387674}], InsetBox["6", {0.9510565162951535, 0.3090169943749475}], InsetBox["7", {0.6097187402608532, -0.07272511652041079}], InsetBox["8", {0.2612345718428124, -0.0817892314526014}], InsetBox["9", {0.5877852522924731, -0.8090169943749473}], InsetBox["10", {-0.09439267133535101, 0.28182855058006345}]}], GraphicsBox[{InsetBox["1", {0.9510565162951535, 0.3090169943749475}], InsetBox["2", {-0.09439267133535101, 0.28182855058006345}], InsetBox["3", {0.29031445219493296, 0.2818246504387674}], InsetBox["4", {0.5877852522924731, -0.8090169943749473}], InsetBox["5", {0.6097187402608532, -0.07272511652041079}], InsetBox["6", {-0.9510565162951536, 0.3090169943749472}], InsetBox["7", {-0.587785252292473, -0.8090169943749476}], InsetBox["8", {-0.5444125858488652, -0.07272511680720824}], InsetBox["9", {-1.8369701987210297*^-16, 1.}], InsetBox["10", {0.2612345718428124, -0.0817892314526014}]}]} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.760213921720117*^9, 3.760214016918174*^9, 3.7602141189242496`*^9, { 3.760214183904679*^9, 3.760214198288848*^9}}, CellLabel->"Out[55]=", CellID->176062146] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"VertexCoordinateList | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[633, 23, 168, 7, 70, "Subsection",ExpressionUUID->"cd89603e-f39d-48b2-b04d-1858385f6d84", CellID->462042388], Cell[804, 32, 507, 12, 70, "Text",ExpressionUUID->"90becc16-cd78-43d4-84f1-85754ba66350", CellID->13078159], Cell[CellGroupData[{ Cell[1336, 48, 11167, 268, 70, "Input",ExpressionUUID->"0fd17401-6fc0-460e-9829-144396ffbb8f", CellID->313270173], Cell[12506, 318, 5317, 107, 70, "Output",ExpressionUUID->"65d6b626-67de-4ec3-ad1f-6b4057eb0b9d", CellID->216519219] }, Open ]], Cell[17838, 428, 232, 4, 70, "Text",ExpressionUUID->"68f7da11-3309-4626-87c2-80578e85959d", CellID->7504727], Cell[CellGroupData[{ Cell[18095, 436, 8329, 198, 70, "Input",ExpressionUUID->"23396fa9-ad71-49ed-b20e-58c3c8414741", CellID->135806497], Cell[26427, 636, 1726, 34, 70, "Output",ExpressionUUID->"92da7353-fc3b-43e3-b7a1-63a493ab3885", CellID->994885465] }, Open ]], Cell[28168, 673, 147, 3, 70, "Text",ExpressionUUID->"9114fd24-a19e-4d22-80a5-98bf28703dc9", CellID->39925455], Cell[CellGroupData[{ Cell[28340, 680, 7164, 181, 70, "Input",ExpressionUUID->"953032aa-3439-4a9a-a7cf-774c2c4f968c", CellID->337871470], Cell[35507, 863, 1094, 33, 70, "Output",ExpressionUUID->"028368fa-695b-4e41-b5c9-62a1d9d60324", CellID->9055116] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36650, 902, 235, 8, 70, "Subsection",ExpressionUUID->"991fd866-4488-4f6c-b540-6f5607015656", CellID->889784606], Cell[36888, 912, 973, 28, 70, "Text",ExpressionUUID->"60b7f993-db04-4f1e-82bd-48ea34f3361a", CellID->2083991913], Cell[CellGroupData[{ Cell[37886, 944, 11409, 272, 70, "Input",ExpressionUUID->"1c468a8a-1dc7-4740-a846-d4ca6a4eaf68", CellID->748369718], Cell[49298, 1218, 6405, 128, 70, "Output",ExpressionUUID->"6b715171-fbf1-438d-b927-2fb70c4cf815", CellID->176062146] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)