(* 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[ 89219, 2105] NotebookOptionsPosition[ 84540, 1988] NotebookOutlinePosition[ 86300, 2040] CellTagsIndexPosition[ 86257, 2037] WindowTitle->LloydAlgorithm | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["\<\ Perform five iterations of the algorithm on some random points:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.794670402062831*^9, 3.794670424601884*^9}, { 3.79467049466889*^9, 3.7946705041186323`*^9}, {3.8575808463158712`*^9, 3.857580848674094*^9}}, CellID->1417607849], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"pts", "=", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"List", "ListIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["List", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"10", ",", "2"}], "}"}], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["1000", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], {{0.7051415661084366, 0.8127461249573649}, {0.24818358106692706`, 0.7163485756499937}, {0.0025428587961178195`, 0.28314953970466283`}, { 0.5733698624847858, 0.9737674379351713}, {0.22813077794397185`, 0.22547353064271713`}, {0.19238874468210732`, 0.649219075575642}, { 0.42688137383256564`, 0.4511465320841044}, {0.7744365030958476, 0.11274092143618653`}, {0.6724513430791277, 0.8062991370825388}, { 0.6677413538921941, 0.37679516587705786`}}, SelectWithContents->True, Selectable->False]}], ";"}], "\[IndentingNewLine]", 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["LloydAlgorithm", "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["LloydAlgorithm", "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/LloydAlgorithm"}, "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], "LloydAlgorithm"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["LloydAlgorithm"], BoxID -> "LloydAlgorithm", Selectable->False], "[", RowBox[{"pts", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", "5"}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7946703371260357`*^9, 3.7946703929885693`*^9}, { 3.7946704421811733`*^9, 3.794670493307629*^9}}, CellLabel->"In[517]:=", CellID->1551538325], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.5217954153036086`", ",", "0.8927668034713269`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3904765877262605`", ",", "0.130734067989224`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.15705150362228867`", ",", "0.5750517755250276`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.780635966137942`", ",", "0.14300316511293254`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.8319937229793617`", ",", "0.44180277378545585`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1851041462583348`", ",", "0.8569506480794613`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.11939630458026604`", ",", "0.2194864324270963`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.8604708208929401`", ",", "0.8153019672414978`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5748677960089865`", ",", "0.6609804010929399`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4453991771880269`", ",", "0.419556752755241`"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.794670393726205*^9, {3.7946704620508137`*^9, 3.794670506193502*^9}, 3.794675811384968*^9}, CellLabel->"Out[518]=", CellID->918439158] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->292543444], Cell["\<\ Spread 15 points evenly in a square box and visualize their neighborhood:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.794670402062831*^9, 3.7946704102348623`*^9}, { 3.794670517807053*^9, 3.794670526680204*^9}, {3.79519566545133*^9, 3.795195669008505*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"pts", "=", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"List", "ListIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["List", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"10", ",", "2"}], "}"}], "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["1000", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], {{0.7051415661084366, 0.8127461249573649}, {0.24818358106692706`, 0.7163485756499937}, {0.0025428587961178195`, 0.28314953970466283`}, { 0.5733698624847858, 0.9737674379351713}, {0.22813077794397185`, 0.22547353064271713`}, {0.19238874468210732`, 0.649219075575642}, { 0.42688137383256564`, 0.4511465320841044}, {0.7744365030958476, 0.11274092143618653`}, {0.6724513430791277, 0.8062991370825388}, { 0.6677413538921941, 0.37679516587705786`}}, SelectWithContents->True, Selectable->False]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"newpts", "=", 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["LloydAlgorithm", "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["LloydAlgorithm", "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/LloydAlgorithm"}, "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], "LloydAlgorithm"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["LloydAlgorithm"], BoxID -> "LloydAlgorithm", Selectable->False], "[", RowBox[{"pts", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", "15"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"VoronoiMesh", "[", "pts", "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"Point", "[", "pts", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"VoronoiMesh", "[", "newpts", "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"Point", "[", "newpts", "]"}], "]"}]}], "}"}], "]"}]}], "}"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7946703371260357`*^9, 3.7946703929885693`*^9}}, CellLabel->"In[519]:=", CellID->443871870], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQ3XJiwd/01VftuTmumz/c/Mj+X+fx5TqVp+2LFJ8k tjPfsV9WOUenTvCu/afMH2uyPV/a7+mYnME274i930znu407b9vfSpCe0PTk vn3dtCcSnOcP28vMTGFtcntsvzD3kxLXl0f2jkf0o/bFPrV/29vwzjjkrb3N /qfvpabdsy9nTH79YctTe8YZO1jqb9yz947UzXZ9ctL+VS5L3f3s5/bTujW6 0l48sj8g+GwR69d39rt3SbjsnfbJPkpP0pE94cT+A79vm4ptegznK1S6ab5N +gBXbztz6qKfHNfg/IJb+orPnB7ZJ3irLJTYddDe5t4iSTu2z/YZylvbK9fP sD/geFO7wm7XfvkvDns21d2B82Hmw9TD7YfKw8yHycP4MHkAmy+w0A== "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{11, 7, 10, 15}, {22, 14, 5, 18}, {17, 4, 12, 20}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{12, 4, 2, 1, 13}, {9, 6, 8, 1, 2}, {6, 10, 7, 3, 8}, {16, 3, 7, 11, 21}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{19, 13, 1, 8, 3, 16}, {15, 10, 6, 9, 5, 14}, {18, 5, 9, 2, 4, 17}}], Annotation[#, "Geometry"]& ]}], PointBox[{{0.7051415661084366, 0.8127461249573649}, { 0.24818358106692706`, 0.7163485756499937}, {0.0025428587961178195`, 0.28314953970466283`}, {0.5733698624847858, 0.9737674379351713}, { 0.22813077794397185`, 0.22547353064271713`}, {0.19238874468210732`, 0.649219075575642}, {0.42688137383256564`, 0.4511465320841044}, { 0.7744365030958476, 0.11274092143618653`}, {0.6724513430791277, 0.8062991370825388}, {0.6677413538921941, 0.37679516587705786`}}]}], ",", GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQHVZarcKy74l9huzMZ4+j79nf+yRvfUbumb1Ko7hz /7cr9tO4mb0/zXtu77pkSZPuzyf2PlWBnoc6rtg39q0XPXrmqf3qveZt+9Ov 2nNqZivIHDxvP/cpi6mj4FP7ufar24XfvbB354182rX0on3Cb8EfBySu2ce8 5NHb5H7Nfs7KfcLysc/tF52/nhofet1+0o67KYlyD+35BO5UPG18Yv9UrJHB Zsl5+292F9foWn2wZ1sXxdv9/LJ9w52ynOXik/f/2fiZs+v4Uzj/e0apVej1 a3D139fzeIb/fmIvNCvt0/ZVT+1n6f7rzPq8cf/Sa0f85ty8COcrnt/B2Fbw zL5RdtG/2Yof7SNYbxTkTbwM58PMg6mH2QeTh/Fh8jD1MHkAAvq5WA== "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{18, 8, 6, 17}, {15, 10, 5, 16}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{13, 7, 9, 4, 12}, {19, 11, 2, 10, 15}, {14, 3, 1, 2, 11}, {20, 12, 4, 8, 18}, {16, 5, 7, 13, 21}, {17, 6, 3, 14, 22}}], Annotation[#, "Geometry"]& ], TagBox[PolygonBox[{{1, 3, 6, 8, 4, 9}, {7, 5, 10, 2, 1, 9}}], Annotation[#, "Geometry"]& ]}], PointBox[{{0.497388593740334, 0.8805677596118042}, {0.4806757214653647, 0.12001716315155642`}, {0.1671437338868045, 0.5225074452203168}, { 0.8255848929220168, 0.15940060388201008`}, {0.8420622761001687, 0.4810924506269798}, {0.16654772038125631`, 0.839405914209827}, { 0.1534965189444481, 0.17713489244687664`}, {0.8417285806820475, 0.8299404402459841}, {0.5364582947531643, 0.6329289310537414}, { 0.48140992308779507`, 0.37530116234197153`}}]}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.794670393726205*^9, 3.7946705156530848`*^9, 3.7946758133795757`*^9}, CellLabel->"Out[521]=", CellID->1332185500] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->964056545], Cell["Perform 15 iterations in a complicated region:", "Text", TaggingRules->{}, CellChangeTimes->{{3.79467069848102*^9, 3.7946707203102694`*^9}}, CellID->649685796], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"SeedRandom", "[", "1234", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"reg", "=", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}], ",", "5"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"reg", "=", RowBox[{"RegionDifference", "[", RowBox[{"reg", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "7"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"reg", "=", RowBox[{"BoundaryDiscretizeRegion", "[", "reg", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"RandomPoint", "[", RowBox[{"reg", ",", "20"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", 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["LloydAlgorithm", "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["LloydAlgorithm", "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/LloydAlgorithm"}, "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], "LloydAlgorithm"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["LloydAlgorithm"], BoxID -> "LloydAlgorithm", Selectable->False], "[", RowBox[{"p", ",", "reg", ",", "15"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"{", RowBox[{"reg", ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "Black", "]"}], ",", RowBox[{"FaceForm", "[", "Gray", "]"}], ",", "Black", ",", RowBox[{"Point", "[", "p", "]"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.794670541676454*^9, 3.7946706735860786`*^9}}, CellLabel->"In[398]:=", CellID->836153427], Cell[BoxData[ GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGBwAGIQDQEqDhBaxOGE0nTtjMfKDkYcqkHPWQQd/vxeaejS p+ywQun+vy2mPA6Pevi/VjEpO8z5MuM8+1I2B+d9169rOys5XMiPdJlVzujQ d+7t/Tkhig5MxY+/8E/7ae+/67Sbko2Cg0lIYbR4yUf7P/9BQNZhRoNb2cz8 p/avLkw72e0n7ZBwRXTCJblr9teiKhb7FUs4LDjMO/U89wF7q7n5VvPqRB0Y 6lI+CS/qsd+fNOFoYqOQA0MDhG/jxb8zSZLfgeEIRL1c3KWcF0mcDg1Q836D 7WN22AG1L0l30cm3cv/sQ6DuqeqeyCAZ/dVeAureDdItTU5nX9vfhfqnIZkv buGG+/Zrof5tYGic+jnvjP1+aHgwWNzNuDJ9jb0FNLxgIcoMDc8GqPy577fW SvwWczgA1b8sb0KD6lNJhw1Q89e3GkvUrJVxOAG1X9Tj8l0jF3mHHqj7FkxM ZrQ7q+DQAHV/xdWJIrUXgeEMtofF4dv02RlsK5UctKD+jwmsz+b0V3bwgobP xxOrD17Yr+xwGBp+D9KYq6//UHZwgIYvjH8PGv4foOrfQeMHZh7Ed3IOX6H2 BUHjtxzqngnQ+J8Hda8LNH2IQP3zBJp+1kD9+w+avpZAwwOW/k5BwwsanFBa wCHv9rbc29tY4XwwN5cbzlfxnAREAmjywnD+JLACMTgfrFxFEs6H0DI4+MJo fDE0viQaXwbNfBk0+2XQ3CeD5n4ZNP/JoPkfZg8DDr4kGh89PIUdACb+Ujo= "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[ FilledCurveBox[{{ Line[{1, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2}]}, { Line[{63, 64, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62}]}}], Annotation[#, "Geometry"]& ]}], {GrayLevel[0], EdgeForm[GrayLevel[0]], PointBox[CompressedData[" 1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAA+U3sJlIM8j+mx/uvI+sPQC5Kck+l SSJA27ei7uHvDkCX8gAwjk4PQDrEtx1I7yFAzB7jKY3TF0DuMO7vND8iQGZT i4+FzxxAThNUbLS29D+aKxURT73wP3aL91eYcBhAsawzj6thIkD/WGIwGKMV QCXLLc5VdBtAM7ryV+uDBkDqroIE7KECQLtVoB4IoR9AeUvvnjD7DUC3ShOM surxP+ahaBmEOQBA4U4PrBhuAUAQd1CkdBgWQAItirB2SvA/AKB85pGJHUD0 kOJkAiQgQCHmpyXokyFAHd8w5p1PHEAcrtAF8N4gQKEtEWKj/ANAlvVPThew HkB1BEz7pDkYQNaDmyF+sB5AQ1utNQwoEUBbOLmSp/wMQD+c6l0gAQlAZuSO iNaTFUBT6icQX4AIQKXpI9v+TxRAd1fGW0+UHkDH2IrC "]]}}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.794670579568123*^9, {3.794670636121895*^9, 3.794670681374489*^9}}, CellLabel->"Out[404]=", CellID->2127524343] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1607549736], Cell["Perform 15 iterations in a different complicated region:", "Text", TaggingRules->{}, CellChangeTimes->{{3.79467069848102*^9, 3.7946707203102694`*^9}, { 3.857580858586863*^9, 3.8575808605943413`*^9}}, CellID->882281396], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"SeedRandom", "[", "12345", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"reg", "=", RowBox[{"ImplicitRegion", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "^", "4"}], "+", RowBox[{"y", "^", "4"}], "+", RowBox[{"3", RowBox[{"x", "^", "3"}]}], "-", RowBox[{"4", "y"}]}], "\[LessEqual]", "1"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"reg", "=", RowBox[{"BoundaryDiscretizeRegion", "[", "reg", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"RandomPoint", "[", RowBox[{"reg", ",", "20"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", 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["LloydAlgorithm", "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["LloydAlgorithm", "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/LloydAlgorithm"}, "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], "LloydAlgorithm"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["LloydAlgorithm"], BoxID -> "LloydAlgorithm", Selectable->False], "[", RowBox[{"p", ",", "reg", ",", "10"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"{", RowBox[{"reg", ",", RowBox[{"Graphics", "[", RowBox[{"Point", "[", "p", "]"}], "]"}]}], "}"}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.794670955495715*^9, 3.794670974756878*^9}, { 3.79467534072021*^9, 3.794675370247672*^9}, {3.7946758377090597`*^9, 3.794675840408592*^9}, {3.794675997124436*^9, 3.7946759979130983`*^9}}, CellLabel->"In[543]:=", CellID->2051039173], Cell[BoxData[ GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJw9kXdQ03cYh38kQMIsJVrOVZVoC1aLIFjUhjdqOcBgNRjRUqogpKAEB0NT VCTiSRWlKFAEpLmerFOphSIu8P3C2aAiUAhDKMoKU0ISAyHs7n7uPvf8/zzL DxzxEdIoinL/83+xIe47bdO9YSz0mmhMsu3BLJnIQJDQi4/yDKMHW9qQBJjO XxzVjS4rZ0Se9i2Yqt/D+cK2A1H7xvz48UZc8/PQFMmWY4HLXGq8XT0GfFn8 0ebaMvTBcw7N1G9oXnb5QJG/DA4ZqVZ27KnD/Urv2zeV9ZB/3ym4I6MGPdgb bs/NbwG7nTy39p7nmOHTG5dJbwdXTei31GMZpmSOnXP36gR1U7i+06ECnQ7k xoj3dkNJjj2R9Zfgpx4tpRdCFVAmCVz4uO0SWvDM5PNP9cFoUtdGB5diGI6C TdLEAQiVKaPjD8tgtTLdr0YyBGz9VwMG6gaoGtXt5d9WwjOvW6f19V3wqK54 wbIoFbyjyvFYJR4E6u+p/2dMBJ4XNqkgIDcpct4NDZRcqUNTfxXkV+U4h9ho 4UXYyfuG2SMwHK/YXLl/FGbr5EWtUiVcfFrY3HFmDPLuuF6wUQ3BeOeLwLZ9 4xDv25684EQ/rBoUmNiV6eHr9AlHjm0PlL/6pHKseAJolUtNmfzfIYC1biNn xyQki7UD8ZefQV+cxjM8bRJOLktks+7eRVmmSOSQPQnrHgQrrGNa8LLlpfQt FZNwPE2Q5Drag0X3d+yM3TAFzbt/tS+vHsYQ2ZoyYE8DP0KWGlL9FsPQfuvn ghkQVjdKZteO48GF50Ojrs2C31JZgujHKdxSpby0/vEcLHt9o4ZvTZG8RT8U HvWiuP94oRFJrBO9L4zivmu+y9d3nEbo1rtm3AIp7utvuhVSOZ24lDo9VG6h uDYRPu5m1wxJZ+y5pfNYFDe0NWt4kYcRuR4+UTKSNwfs6OqGzkhjoijyMlBv mwUWy+P7C/4MwnWOuWJwcRpKVwXnrO9iEHG+tXTAdAp8aldE8l2YRM6PsjxW OQEXr75MDo1lEheOQ3y7ux7YU/zcQw+ZxGniJ291kg7W1kYfPNzPJPWBu18F pYwCTM9WmpuZkP/6Ls6i6+RaJsnMHVpeatkPyQuf33ivnEmMAz+UevPaISSI bnVHzCStbX7pbpQMhEKOw1FHJhHvc1xd8tld5LiuyExQMkiRwrg74Z4cBS97 22qlDBJ3ykJ6k9mFPpxcZtrHDMKGjiXdbwewnRlydSbfmJSdfsNNBhXqDc/a WpoYk33pStYv5m/RL7v2EY9nRJb0l2Swh7Qof5LCeCo0JGDdJQDvMTwhsU7y 9KYT8eKgO7GOOpxOeKKLKqSRBxXOxzjhOqT92yeFE3xmUqLDOTPPbVsLKDJ0 JFGwfZMO5RbvJ2p4s7i2RiR+7TeGI1YdvtKZSdxz5lZrUZ0W/dVNQR7qcTSh mUq2KzSYX359Znv5KAa6f5AhrBvBoLOdphvPa7DASmTEYgziH5ZBNGU= "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[ PolygonBox[{{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, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69}}], Annotation[#, "Geometry"]& ]}], PointBox[CompressedData[" 1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAsSEEBKdS0L+dkqHNBIi9Pw6M1F1r C+I/DrM6Umpg4z9gT+je5xj/vyBoF0ScWPs/FCqfbBJO/L9VuVmnccDtvwYT ZjyNYwbA3y4A6K+P4z9oWpD4wPsBwA6uyShEyNM/tBgLuj9rBcBdwv7WWyj3 Py2R7XCL8vG/kBWzYDU39z9Ioz7+90QFwCHK+j9gM9S/1hRMJcFO6r+BMunn C7RYv9Pm8NGXINC/C1KHbrj69T993vofhEEDwN+lNpipGvC/k9DswAkk4T8j JeE2NsPzPx4D67VIddM/dekv63U+tD+actJYuwPwv6CUAp1hl+g/3eWicVNh /r9MLUCsDjnRv7eyxh2SWvi/Xo4SrMFm1j/Wj3csDTLQv4T3eodtNOg/8K07 eJ7c87+ULghjx+Xdv84E5aqr6v6/TIWLCSMK8D9OM6ev "]]}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.794675352443*^9, 3.7946753754914923`*^9}, 3.794675850653338*^9, 3.794676003866275*^9}, CellLabel->"Out[548]=", CellID->812662305] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Neat Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->540091361], Cell["\<\ See how the standard deviation of the Voronoi areas changes with iterations:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.794675394753501*^9, 3.7946754285454473`*^9}}, CellID->1629801508], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"SeedRandom", "[", "1", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bb", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pts", "=", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pts", "=", RowBox[{"NestList", "[", RowBox[{ 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["LloydAlgorithm", "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["LloydAlgorithm", "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/LloydAlgorithm"}, "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], "LloydAlgorithm"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["LloydAlgorithm"], BoxID -> "LloydAlgorithm", Selectable->False], "[", RowBox[{"#", ",", "bb", ",", "1"}], "]"}], "&"}], ",", "pts", ",", "15"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"s", "=", RowBox[{ RowBox[{ RowBox[{"StandardDeviation", "[", RowBox[{"Area", "/@", RowBox[{"MeshPrimitives", "[", RowBox[{ RowBox[{"VoronoiMesh", "[", RowBox[{"#", ",", "bb"}], "]"}], ",", "2"}], "]"}]}], "]"}], "&"}], "/@", "pts"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{"s", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.794675434504981*^9, 3.7946755425281267`*^9}, { 3.794675584902535*^9, 3.7946756628010893`*^9}, {3.794675744379737*^9, 3.794675756208192*^9}}, CellLabel->"In[536]:=", CellID->588091157], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 0.04299138649314089}, {2., 0.031588328789697445`}, {3., 0.025780758282187524`}, {4., 0.021664093802360153`}, {5., 0.01873691188339166}, {6., 0.016603110807881644`}, {7., 0.015040826413215403`}, {8., 0.013910604149837136`}, {9., 0.013106117802498573`}, {10., 0.01254159945389598}, {11., 0.012149141238638179`}, {12., 0.011877203776069609`}, {13., 0.011688292325934551`}, {14., 0.011556034401273077`}, {15., 0.011462313657087114`}, {16., 0.011394866593076699`}}]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.6875, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0.6875, 16.}, {0, 0.04299138649314089}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.794675519139299*^9, 3.7946755439086*^9}, { 3.7946755857316017`*^9, 3.794675663830296*^9}, {3.794675745363844*^9, 3.794675756692094*^9}, 3.7946758562238617`*^9}, CellLabel->"Out[541]=", CellID->716235477] }, Open ]], Cell["Visualize the evolution:", "Text", TaggingRules->{}, CellChangeTimes->{{3.794675791818633*^9, 3.7946757956909723`*^9}}, CellID->329126100], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Multicolumn", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"VoronoiMesh", "[", RowBox[{"#", ",", "bb"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"Point", "[", "#", "]"}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "100"}]}], "]"}], "&"}], "/@", "pts"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"Appearance", "->", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.794675625579605*^9, 3.794675783100608*^9}}, CellLabel->"In[542]:=", CellID->1140214683], Cell[BoxData[ TagBox[GridBox[{ { GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQ/fLEVhXxZU/sjx2OWhDSvt3+H+vqyc+YntmviThV u9nihf2a4oxG01k37ZO+xAbN2bXNvqvrP8/zyc/slZv8pgU8vm0vcCi6d7LY XXvvTVND9s1ZaP/11EHZN9PO2X9m6+Zorblnn+22u0Kn/oH98sSfB4/uuWfP FHFi3lLrJ/aBDr+35HQ8sM9TXK8x2/mSffabez7+d+/aM4DBB/t+7uMvLUKv wvld9zbWnQg+A+dbd+x+sEr+GZTPwFAmOGVdl+EdOP/h15vSp56etZ/g9OZd QdxjuLiD5nXzbJ97cL6pQm/QW/4bcHM1019fWRX+BM5HpQkBdPUf7AHJiH4X "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[ PolygonBox[{{10, 4, 1, 11}, {21, 13, 6, 17}, {9, 3, 5, 7}, {19, 11, 1, 15}, {18, 2, 12, 22}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{12, 2, 8, 4, 10}, {14, 3, 9, 6, 13}, {16, 5, 3, 14, 20}}], Annotation[#, "Geometry"]& ], TagBox[PolygonBox[{{15, 1, 4, 8, 7, 5, 16}, {17, 6, 9, 7, 8, 2, 18}}], Annotation[#, "Geometry"]& ]}], PointBox[{{0.8173894901710712, 0.11141961113123644`}, { 0.7895259946338515, 0.18780314670602638`}, {0.24136096745765045`, 0.06573875950878105}, {0.5422466205096241, 0.23115450673602744`}, { 0.3960060815485871, 0.7004737819422449}, {0.21182597905412748`, 0.748656881482948}, {0.42285064933994887`, 0.247494780864008}, { 0.9771717617407765, 0.8251629394885138}, {0.9252752011788627, 0.5780561519943792}, {0.2928697367979225, 0.20805106478059265`}}]}, ImageSize->100], GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQvURi0ZzolZfs/SKO+k2Re2i/Zs3B6Bkhj+xvLa0N dHt43162ovnzumeP7Dv/xYV85XtgH/zm9cWujsv2yo9m9BWknLBfOCNU6uL7 W/b6mxeVlL3bZM+j4GjmLPnMXsT0aIH1uWf2+emi+vy3ntqvXnb4zCr52/Y1 N/kUd2c+s88R//SP7cBh+6LrHKU/vC7bszT1+Qb7PbRnAIMP9isiVFbkvD0J 58+Nbf48M/cmnN9kfCxPZ+MzKJ+B4Zbz78aY3Adw/rXpKTtSOE/a6xw8sjTo 1x24+MXfCWenGj2G82fl5t206b0KN/d2ZKqGb+MjOJ8BBXwgUZyBAQBa1nvD "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[ PolygonBox[{{11, 7, 8, 10}, {20, 10, 8, 16}, {14, 4, 1, 13}, {18, 6, 12, 21}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{19, 13, 1, 9, 17}, {2, 9, 1, 4, 5}, {12, 6, 3, 7, 11}, {15, 5, 4, 14, 22}}], Annotation[#, "Geometry"]& ], TagBox[PolygonBox[{{17, 9, 2, 3, 6, 18}}], Annotation[#, "Geometry"]& ], TagBox[PolygonBox[{{16, 8, 7, 3, 2, 5, 15}}], Annotation[#, "Geometry"]& ]}], PointBox[{{0.8101131962727627, 0.26769256794306057`}, { 0.15429689920388287`, 0.7500231705867105}, {0.41371293570034934`, 0.3109826847954482}, {0.8401724144156373, 0.0810894498443472}, { 0.8377917389633727, 0.8653686761123809}, {0.834252497933735, 0.5566463246999055}, {0.18753334301634084`, 0.30203703433126045`}, { 0.18392120848282056`, 0.08303467751699274}, {0.576929402253184, 0.2525184140714156}, {0.4788486682304062, 0.7250771493570756}}]}, ImageSize->100], GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQfb0hNS5R8qn9XnerW6yLb9nfzK1ntWt4ZC985M+H lgMP7N3rnoebT7toz9Hy1fzo3XP2C5u7E9szLtkvMlKpCnj10L44ylr0+KHH 9nP3+bixT7hjn3xHd4Xe9cv2XFHccyXDH9m3rm6+o//ghr22Xsaxzd8O2VfK aHtGXHlqfzLPd1XPqmf2Ygv7/hRZPrdffWSej+GCE/YMYPDBvmSGPZPQ3eNQ PgNDSubq3weEHsHlHef0Smn/vg3nx94QkGm8+gyu/sHtebdenzph//Pxysbn KxD6JDeUCUgHXoXzX/y590WJ+wlCX95OBgXBO3A+TB12Pi5xBAAAWBp6PQ== "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[ PolygonBox[{{12, 1, 9, 10}, {19, 10, 9, 17}, {14, 3, 4, 11}, {15, 8, 13, 20}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{21, 11, 4, 6, 16}, {16, 6, 2, 8, 15}, {18, 7, 3, 14, 22}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{5, 2, 6, 4, 3, 7}, {13, 8, 2, 5, 1, 12}, {17, 9, 1, 5, 7, 18}}], Annotation[#, "Geometry"]& ]}], PointBox[{{0.8374514181815441, 0.29512228052976947`}, { 0.8328868343889831, 0.08490390407840143}, {0.1512539246213633, 0.3574725961985641}, {0.8162009266027481, 0.8629017455505292}, { 0.15827891186289608`, 0.766793609143232}, {0.40728834351758797`, 0.34716047036774106`}, {0.8212271804575488, 0.5582416586552432}, { 0.19741925573045943`, 0.0901202164503999}, {0.48172371899557315`, 0.7493156451621507}, {0.5761155664148211, 0.21757249296829081`}}]}, ImageSize->100], GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQrWi2PVzh7nX79a4h2k0JJ+07HRe4du28aO+/hmu+ Qu8je9vQ3xvfvr1sv8lhmmq902P72YW3fYyrn9j/TGFLsZ50095ptaWbWscT +54ZrzedV7llf1Dx17a/My/a/2cStTsRc9H+aMO0R0+LHtk/aFWe8PvwQ/vU b4p6LAuf2otMumWj8eKZ/ZRti1M3Oj23n3Jv846vM07ZM4DBB/tjM1wDr8w/ AeUzMLzxyN59WuwxnO9wmmlq+VmEer/LPSmt5+7C+Uoyy11L1z+z/5KzMvcH 22O4eNcywSV9wVfhfJ8VmzS3PXoCN9fnl9qRtxtuwfkwddj5uMQRAAD7+X3i "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{19, 10, 9, 17}, {12, 6, 2, 11}, {15, 8, 14, 20}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{13, 5, 4, 9, 10}, {21, 11, 2, 3, 16}, {16, 3, 7, 8, 15}, {14, 8, 7, 5, 13}, {17, 9, 4, 1, 18}, {18, 1, 6, 12, 22}}], Annotation[#, "Geometry"]& ], TagBox[PolygonBox[{{4, 5, 7, 3, 2, 6, 1}}], Annotation[#, "Geometry"]& ]}], PointBox[{{0.8483741447896866, 0.3126226298369793}, { 0.8358060968355513, 0.08995871968495274}, {0.13700173030032858`, 0.39100860255964653`}, {0.8145914800250834, 0.861894230188022}, { 0.1608473416901916, 0.7839833778364944}, {0.4809537708268834, 0.7664333046798906}, {0.20159558928526572`, 0.10398158935148807`}, { 0.4145300335594814, 0.38927598117839785`}, {0.8082296736426998, 0.5639971439085717}, {0.5679707176925508, 0.18562027618015417`}}]}, ImageSize->100]}, { GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQXWArJiqYe93et2XaLQXDs/ap+Tdz5q1+Yl96kWmN b8Mte4v9NvFP2C/Z808yZ3yy8pK9tmH0coXaR/avuFU5pi15ZO/IOc3j6pqL 9qvPuVlu53tsr3Fa77x681P7t1/UywT0ntvvbzslGc3x3N7rXlVVb9hpe25P 1/+rFa/Y/45U7JB4/dj+rt5fvZVhT+xnrFubntZx3Z4BDD7Yvzgm3HSn/RSU z8Ag8a0iiHHXY7i86FS+P1q9z+D8a0Yyi49evgdXz2Do2KodeNb+kXKKS4Hi Vbi6xF16hdplCHPeWRjrTwl/Ctd3zMjxg07uTYQ5UHXY+bjEEQAAk/Vw4g== "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{19, 10, 7, 17}, {14, 3, 5, 11}, {16, 6, 12, 20}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{13, 2, 9, 7, 10}, {21, 11, 5, 8, 15}, {15, 8, 4, 6, 16}, {12, 6, 4, 2, 13}, {17, 7, 9, 1, 18}, {18, 1, 3, 14, 22}}], Annotation[#, "Geometry"]& ], TagBox[PolygonBox[{{3, 1, 9, 2, 4, 8, 5}}], Annotation[#, "Geometry"]& ]}], PointBox[{{0.8419637276878117, 0.09628000943652189}, { 0.1327781701584241, 0.41403497193598016`}, {0.8176753474642282, 0.8615959680223643}, {0.8471178730153791, 0.325260794984764}, { 0.1617408346623372, 0.7965781655258856}, {0.4812229307772243, 0.7833684327990134}, {0.800246587257862, 0.5707658901555662}, { 0.5569839519259456, 0.16677041135033502`}, {0.1986117694266767, 0.11765428628190522`}, {0.4261099919014102, 0.41939901767649274`}}]}, ImageSize->100], GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQvWSe3p+7Stftb52JvzZj9Xl73h13Z9ceemL/bvm2 yCtWt+1nLml6mpJ7yb43b6nzhebL9r+ul5XvnvDIvq6mWMLZ67F9mZy5zfa/ F+2bJ7I4aFU8tk9quZLFVPLUnrdJ+Xpy3nP7M/oT1nidfmbftrsuTWTrafup yyxyTFKu2LsGxvDHxj2xd/uQ0Fmo/cS+r3COzYb51+wZwOCD/ZHCtcG3/M9A +QwMHB1yS5pVn8DlGU+4+KxrfAbnr5BiWmwTeR+uniEo4Yz7ofP2hidimn8/ vgJX99ymRi33xmM4P3N/fX1Z7VO4vn/i0XG6FTcQ5kDVYefjEkcAAGX+eF0= "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{19, 10, 7, 17}, {14, 3, 5, 11}, {16, 6, 12, 20}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{13, 2, 9, 7, 10}, {21, 11, 5, 8, 15}, {15, 8, 4, 6, 16}, {12, 6, 4, 2, 13}, {17, 7, 9, 1, 18}, {18, 1, 3, 14, 22}}], Annotation[#, "Geometry"]& ], TagBox[PolygonBox[{{3, 1, 9, 2, 4, 8, 5}}], Annotation[#, "Geometry"]& ]}], PointBox[{{0.845473719726875, 0.10224914151277667`}, { 0.13389827990123918`, 0.4321053773440525}, {0.8218688876249528, 0.8616111376533658}, {0.8416525321807917, 0.33498781488449186`}, { 0.1619518436648204, 0.8047830504710369}, {0.4823533060405628, 0.7979084435224479}, {0.7970448543908474, 0.5784591967115496}, { 0.5467420614194508, 0.15848718713446722`}, {0.19374266009474977`, 0.1287663567220257}, {0.4360901335024569, 0.4388923415815903}}]}, ImageSize->100], GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQ/Vxmxpt3D67ZSwVMNDbfe8H+4b7f+rPyn9of23xf /+fS5/byJw7USl57Ym82yeG+DdMd+4U3ls6cvOKR/dNQ0bgf+x7b775/d83K xEv2Et6x0+6fe2xfNqfsbyTbE/vrHpHxEsbX7DnF7m29Of2Zfbp//KECtjP2 YavnbPbce8legUdcSknsir0Hy2YZm3lX7NWOrnv5Zf0TewYw+GB/IOkm78cV Z6F8BoaUt9WR4kUIeTurtZFGC+7D+eUFijlTup7B1Rv8qboq/e6C/W/Fyky9 vVfg6owuN07rVUCYw7N6zeu+mqdwfT+YmjYWHroO58PUYefjEkcAAPVafAQ= "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{19, 10, 7, 17}, {14, 8, 5, 11}, {16, 2, 13, 20}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{12, 3, 6, 7, 10}, {21, 11, 5, 9, 15}, {15, 9, 4, 2, 16}, {13, 2, 4, 3, 12}, {17, 7, 6, 1, 18}, {18, 1, 8, 14, 22}}], Annotation[#, "Geometry"]& ], TagBox[PolygonBox[{{6, 3, 4, 9, 5, 8, 1}}], Annotation[#, "Geometry"]& ]}], PointBox[{{0.8463342896966545, 0.10697717636364538`}, { 0.1369023640218199, 0.44666155380475236`}, {0.8255848258435514, 0.8622709069879929}, {0.8360946507229745, 0.3426619010389661}, { 0.16213852717125776`, 0.8104480363063422}, {0.4839201963929979, 0.8087287921157238}, {0.7966499328544877, 0.5861480342619632}, { 0.538058965126874, 0.15566779088724322`}, {0.18900942210974883`, 0.1372989491621531}, {0.4437331250427213, 0.4522846684094938}}]}, ImageSize->100], GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQrbi5qqNsyTX734axvaZFF+1lEvoF7hQ+tffK5z1u cPm5vduykDl9L57Y/0qY+511+x37gt+FM9MOPbLveMfzwF3wiX2+ws11ansu 2T8I0FqxQfSJ/YHwJzYOLx/bL2+zffjn71X7LacdftrnPrN/dOSr4aSIM/bm fSvXN/2+ZO+wvYfNpfaKvepCvdDvJ67YWxz90+v2+ok9Axh8sP8fr3jw74Jz UD4Dg0Rk4zKbNQj55o2hTQ0n7sP5nazX1FIXPoOrV2id9r7pxEV7EX2r/f/X X4Gr+9U+4TZLIMIcC7Vv005nP4XrE+derv/C/DqcD1OHnY9LHAEAcBJ+cQ== "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{19, 10, 7, 17}, {14, 8, 5, 11}, {16, 2, 13, 20}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{12, 3, 6, 7, 10}, {21, 11, 5, 9, 15}, {15, 9, 4, 2, 16}, {13, 2, 4, 3, 12}, {17, 7, 6, 1, 18}, {18, 1, 8, 14, 22}}], Annotation[#, "Geometry"]& ], TagBox[PolygonBox[{{6, 3, 4, 9, 5, 8, 1}}], Annotation[#, "Geometry"]& ]}], PointBox[{{0.845762189844466, 0.11054929004937247`}, { 0.1401056576340174, 0.45822869001479455`}, {0.8283573596261515, 0.863550513301524}, {0.83155913023319, 0.3487898750439209}, { 0.16249211681566908`, 0.8148247967651483}, {0.48561567998566346`, 0.8162467658197778}, {0.7977583307881532, 0.5931642761718009}, { 0.5307760932347281, 0.15525063810314033`}, {0.18492477521598452`, 0.14383297163235723`}, {0.4495742936099574, 0.46212057130568013`}}]}, ImageSize->100]}, { GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQLX8rgCM475r944rCtwYsl+wXHOZVTy5/ah+Ru0w6 +Ntz+5myKcu//Xxi735l4YL+wLv2K42LM3LvPLLfcCHkQZjPE/vW2ZdbVdgv 29vLlPMw+D+x91A+91Dw8mP7n4eZ7rM9vmo/t4Y76prnM/vTGxYu/rfijP3t Zbsjputctr/DsYL18Ikr9s0FUpczn12xFxHcvYxX/Kk9Axh8sN8ul3BkQ+B5 KJ+BQeFU2udXN5/A5ack39no/eA+nP/0+oyn6/Y/g6t3eCog/7X0kv23mQ+C Dm2+AlfXF+O9LqMAYc7URr/staFP4fq0dsZdOnf6GpwPU4edj0scAQCgdH3t "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{19, 10, 7, 17}, {14, 8, 5, 11}, {16, 2, 13, 20}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{12, 3, 6, 7, 10}, {21, 11, 5, 9, 15}, {15, 9, 4, 2, 16}, {13, 2, 4, 3, 12}, {17, 7, 6, 1, 18}, {18, 1, 8, 14, 22}}], Annotation[#, "Geometry"]& ], TagBox[PolygonBox[{{6, 3, 4, 9, 5, 8, 1}}], Annotation[#, "Geometry"]& ]}], PointBox[{{0.8445621430216186, 0.11325167236671943`}, { 0.1429393277530206, 0.4673395096610383}, {0.8302573621013095, 0.8651940423341719}, {0.8281035704895848, 0.3537037991830666}, { 0.1629636236711836, 0.8184152978925456}, {0.4872462686783077, 0.8213559753209199}, {0.7996203422458417, 0.5992405566015175}, { 0.5246734492637184, 0.15583258869785116`}, {0.18152933902911794`, 0.1488774714085332}, {0.4541336420468173, 0.4696348065339879}}]}, ImageSize->100], GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQHf7m4M1HdtfsEx03axRXX7JPytII+FH71D53/+mD ZwVe2H8q2D1biuupvWutzuEJl+7ae3on+3p/fWR/+qTSo83lT+xL9M3XXnS+ bL/Nm329aO0T+2v3LO/5HXps75pRUHn0ylV7LqP0j9E6z+wFbSLy7n0+Y/81 JLqaJeSyvfQPgckejFft2VcHfo77dcV+tnX92+XmT+0ZwOCD/f9aru8vzp+H 8hkYCr6e1LL79wQu7y+8XT7x3X04f/WcmcIdD57B1V8wfPjk9b9L9kdWLZH9 uP8KXF3H/7lby1sQ5izbX7r2nt1TuL7qpLxC67JrcD5MHXY+LnEEAABDNX8k "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{19, 10, 7, 17}, {14, 8, 5, 11}, {16, 2, 13, 20}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{12, 3, 6, 7, 10}, {21, 11, 5, 9, 15}, {15, 9, 4, 2, 16}, {13, 2, 4, 3, 12}, {17, 7, 6, 1, 18}, {18, 1, 8, 14, 22}}], Annotation[#, "Geometry"]& ], TagBox[PolygonBox[{{6, 3, 4, 9, 5, 8, 1}}], Annotation[#, "Geometry"]& ]}], PointBox[{{0.84315151502357, 0.11531475379118152`}, { 0.14529719520407205`, 0.4745028598943805}, {0.8314927469190192, 0.8669441487623927}, {0.8255221356276293, 0.3576464152303547}, { 0.16346657886344532`, 0.8213958762078385}, {0.48870796011663137`, 0.8248381178269845}, {0.8017907594309321, 0.6043528209334527}, { 0.5195720381596264, 0.1567869765776072}, {0.17873921327209433`, 0.15280008966136785`}, {0.4577787101291619, 0.4754928523905116}}]}, ImageSize->100], GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQXcY15/VT0Wv2OSdn1VXevWRf+JP1S3LLU/uT6t9E E1Re2EfnKvy7KPHU/vhMzV3MtvfsPZNq/RV5Htt/mHL+YfCMJ/YsXZ+Tr5Vc tr/Je8mHbdET+4PnPu5atfWxfYfKGdN9Z67aB/1In3JN+Jn91fsTtr8wO2vf teH2x2ig+jPN/2V4dK7ah6zMkPrGftX++t6pSwQDntozgMEH+307bPndRC9A +QwMC7wmCipLI+Sfxi+b3/ntPpzPctBI6iDDc7j6io787frZl+2tNpR9/nPu Clxd24IVjuYTn8D5Lp6c+zI0n8L1ScQnMd01vAbnw9Rh5+MSRwAAAuh6Kw== "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{19, 10, 7, 17}, {14, 8, 5, 11}, {16, 2, 13, 20}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{12, 3, 6, 7, 10}, {21, 11, 5, 9, 15}, {15, 9, 4, 2, 16}, {13, 2, 4, 3, 12}, {17, 7, 6, 1, 18}, {18, 1, 8, 14, 22}}], Annotation[#, "Geometry"]& ], TagBox[PolygonBox[{{6, 3, 4, 9, 5, 8, 1}}], Annotation[#, "Geometry"]& ]}], PointBox[{{0.8417371124418503, 0.11690186245053222`}, { 0.1472262051838355, 0.48013968869755563`}, {0.8322588495861973, 0.8686264348952364}, {0.8235981562721326, 0.36080630287337084`}, { 0.16394144361415183`, 0.8238530553637626}, {0.48995841176537436`, 0.827247557242029}, {0.804000749895486, 0.6085844665669774}, { 0.5153186467566838, 0.15782867198048048`}, {0.17645172466989087`, 0.15586645474201552`}, {0.46075556056311123`, 0.4801105358770659}}]}, ImageSize->100], GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQvabhdNaJT1ftt1uf2xCld9k+saBbWbTrqf21q5s0 Vhm9sHfYzR7Dp/bUvmbFTWvTKffsD12PCmtQeGzP8N3Yu3jjE/ve7awCq+Zc tj9xbYbLnP1P7Ke/c2JQXfPYvqvolfeB41ftHXZs4Sn//9R+yY2fU+ILz9of zt65u6T/sv2N7zHulT5X7fnanpzxE7xqn/nSrCM16ak9Axh8sF/yvSX3o+kF KJ+BQSb1ZDGDEUI+OeaUjtTv+3C+X32QcZ/cc7h6jkU5wjwHL9v/1Jxpd//u Fbi6P3c8zF1nPoHzGbYnF0mKPYXr87nNlPr011U4H64OKx+XOAIAAJL7eYs= "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{19, 10, 7, 17}, {14, 8, 5, 11}, {16, 2, 13, 20}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{12, 3, 6, 7, 10}, {21, 11, 5, 9, 15}, {15, 9, 4, 2, 16}, {13, 2, 4, 3, 12}, {17, 7, 6, 1, 18}, {18, 1, 8, 14, 22}}], Annotation[#, "Geometry"]& ], TagBox[PolygonBox[{{6, 3, 4, 9, 5, 8, 1}}], Annotation[#, "Geometry"]& ]}], PointBox[{{0.8404164731475731, 0.11812949839052675`}, { 0.14880659254610218`, 0.4845795900019842}, {0.832705788339151, 0.870147842082953}, {0.8221612904092785, 0.36333474290472373`}, { 0.1643580173161528, 0.8258575215912358}, {0.49099269523861006`, 0.8289486099728647}, {0.8060947578004989, 0.6120538014455426}, { 0.51177874693232, 0.15882948669454508`}, {0.17457427967684216`, 0.15827233648152206`}, {0.4632285321770679, 0.483776420800323}}]}, ImageSize->100]}, { GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQ/WvxktjrV67aWyfsdPQqvGxv8zL5ys2+p/bSsxVc WWxf2IsWtERcM3xqv34bn6fl7Xv2S2b8zvI2emzve/LND+OjT+xDDZ4cd9x7 2f7ZedX8oOtP7Fu262b8W/LY3o59x2XLI1ftJ/sKPel999T+MP/3zU2Lz9p/ qbtkM33ZZfulZfMZfqZctT/YXfL6qPhV+3Shxt/qBU/tGcDgg320Zv6ket8L UD4Dwxr3F7ZfnRHyTQcfqvb9vQ/nb9j51kzK8jlc/Y4TCw6lsF6xd645/0fn 9RW4unXdi6p85j2B8ys+m95SZX0K12crv/RBw7mrcD5MHXY+LnEEAACyQX9d "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{19, 10, 7, 17}, {14, 8, 5, 11}, {16, 2, 13, 20}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{12, 3, 6, 7, 10}, {21, 11, 5, 9, 15}, {15, 9, 4, 2, 16}, {13, 2, 4, 3, 12}, {17, 7, 6, 1, 18}, {18, 1, 8, 14, 22}}], Annotation[#, "Geometry"]& ], TagBox[PolygonBox[{{6, 3, 4, 9, 5, 8, 1}}], Annotation[#, "Geometry"]& ]}], PointBox[{{0.8392294368595272, 0.11908257129440757`}, { 0.1501125520516952, 0.488077860815395}, {0.8329411370984334, 0.8714719523468378}, {0.8210874425333771, 0.36535439169518724`}, { 0.16470551531839067`, 0.8274773935157175}, {0.4918258113130112, 0.8301751661801119}, {0.807992476339983, 0.6148816244032611}, { 0.5088354414477732, 0.15973678725027962`}, {0.17302984348094266`, 0.16016438615282028`}, {0.4653095705411862, 0.48670228017116474`}}]}, ImageSize->100], GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQbWz88W/s7qv2vL0+56+tuGwf8+eSwMZJT+071sjk Vrm8sD8p+n+Tnc1T+8lT/R6dFLlvvyEgWHOW42P7hQ8l3zBffWJ/2svigfSN y/bHwrQ7o149sX99/3XzivmP7V+EHYjKOHjV3u/B96C2B0/t82cvjxA6d9b+ Tvu+xqW7Lttv/dLMHlp+1d7nn76utcxV+2WWdhplVU/tGcDgg/3Dn2eUUuMu QPkMDA2LFGzeByLkn0R3BV/+dx/On58vpKgd8Byu/sd7yUl/rK/YS99bzZD0 7Qpc3dkZC2/ELHwC5+8rEvhX+e0JXN9pH7FNHauuwvkwddj5uMQRAAC7FoBa "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{19, 10, 7, 17}, {14, 8, 5, 11}, {16, 2, 13, 20}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{12, 3, 6, 7, 10}, {21, 11, 5, 9, 15}, {15, 9, 4, 2, 16}, {13, 2, 4, 3, 12}, {17, 7, 6, 1, 18}, {18, 1, 8, 14, 22}}], Annotation[#, "Geometry"]& ], TagBox[PolygonBox[{{6, 3, 4, 9, 5, 8, 1}}], Annotation[#, "Geometry"]& ]}], PointBox[{{0.8381855627303424, 0.1198240477205787}, { 0.15120313578415112`, 0.4908330682447149}, {0.8330394879561005, 0.8725959436373362}, {0.820287160459245, 0.36696472614541076`}, { 0.16498413493700648`, 0.8287766768748591}, {0.49248167711266183`, 0.8310775975954839}, {0.8096622660907632, 0.6171783346677485}, { 0.5063887702848101, 0.1605347700661904}, {0.17175597971830028`, 0.16165400650478975`}, {0.46707747810731703`, 0.4890479656343062}}]}, ImageSize->100], GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQ/fHV8tgtS6/aS715JS5w/bJ9RD7fig1Tn9qL1R74 e9Xzhb1mi5F1iutT+7/LjGSdne/bh9+xb1/o99i+cnMn472HT+wL/i3ojn53 2T7/Oo/Rip9P7HeUhf7ePvuxvb7Oxpsf9l2173lkcvHRlaf2f272Mf/7eNY+ Zt3UD9ZnLtt71k/VeNNy1X7iG7/HjvJX7c9dT+pUaXpqzwAGH+w5M+5dj8u6 AOUzMLxIf7RzSwySfEr49Mr/9+H8QE1+2QfJz+HqM1TPpe9Mv2Lv7rRyb+H/ K3B1cmsl+lQWP4HzV/nannz48glcX7SwPktQ71U4H6YOOx+XOAIAAJGgf1w= "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{19, 10, 7, 17}, {14, 8, 5, 11}, {16, 2, 13, 20}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{12, 3, 6, 7, 10}, {21, 11, 5, 9, 15}, {15, 9, 4, 2, 16}, {13, 2, 4, 3, 12}, {17, 7, 6, 1, 18}, {18, 1, 8, 14, 22}}], Annotation[#, "Geometry"]& ], TagBox[PolygonBox[{{6, 3, 4, 9, 5, 8, 1}}], Annotation[#, "Geometry"]& ]}], PointBox[{{0.837279259288811, 0.12040126917732354`}, { 0.15212302294398977`, 0.4930007052251829}, {0.8330514671463213, 0.8735344643639342}, {0.8196950171779177, 0.368246228816023}, { 0.1651996697389863, 0.8298126033842036}, {0.49298681137637484`, 0.8317538675056091}, {0.8111021370208976, 0.6190397697175247}, { 0.5043542987091054, 0.16122505518171898`}, {0.1707024714705913, 0.1628268911253379}, {0.4685898959540746, 0.4909360520405416}}]}, ImageSize->100], GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQ3XHnUaHr5Kv2Gh8f7Vn497J9Qseq79+mP7U/eq+V f7XvC/sXwg+c0n2f2ucoXj+xPOO+fcupX+sXRz62n/qbO6TozRP7hfoL+R8y XLG/fGNZyR/Wp/Zxm96uujXjsf3xO6liq/dctZ8/5YuQ1emn9imZf3vNBc7Z 36qIFDl5+7L9AmuR3+f7rtr/nrtyr53iVftJ9++7XG5/as8ABh/sCyJniawr ugDlMzBoXRE3fJWCkBerPPng8v/7cH5OcOuF1pLncPUL9K7k3uq6Yr/4hFZm B9tVuLq5hYuTRZY8gfP37F1qLHf/CVyf98TJNr2lV+F8mDrsfFziCAAAgMqD ag== "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{19, 10, 7, 17}, {14, 8, 5, 11}, {16, 2, 13, 20}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{12, 3, 6, 7, 10}, {21, 11, 5, 9, 15}, {15, 9, 4, 2, 16}, {13, 2, 4, 3, 12}, {17, 7, 6, 1, 18}, {18, 1, 8, 14, 22}}], Annotation[#, "Geometry"]& ], TagBox[PolygonBox[{{6, 3, 4, 9, 5, 8, 1}}], Annotation[#, "Geometry"]& ]}], PointBox[{{0.8364981497219798, 0.12085026765023171`}, { 0.15290564290566927`, 0.49470321838425907`}, {0.8330108350165568, 0.8743096544812983}, {0.8192621152908586, 0.3692638818123351}, { 0.1653603397713715, 0.8306344307988093}, {0.49336698108074795`, 0.8322689861311297}, {0.8123266280961704, 0.6205468137744207}, { 0.502661290670543, 0.16181680770761314`}, {0.1698289411238849, 0.16374966113217987`}, {0.46989057380874827`, 0.49246150655671483`}}]}, ImageSize->100]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", TaggingRules->{}, CellChangeTimes->{{3.794675649963779*^9, 3.794675783752087*^9}, 3.7946758591030703`*^9}, CellLabel->"Out[542]=", CellID->1223070272] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"LloydAlgorithm | 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[627, 23, 168, 7, 70, "Subsection",ExpressionUUID->"df44c0c4-1894-44a4-9410-e1480f5d6320", CellID->462042388], Cell[798, 32, 294, 7, 70, "Text",ExpressionUUID->"b7011046-20fd-4145-b25d-e700eb5bd0e4", CellID->1417607849], Cell[CellGroupData[{ Cell[1117, 43, 8918, 223, 70, "Input",ExpressionUUID->"d12cc31d-7277-4e8b-94df-cee652211cd8", CellID->1551538325], Cell[10038, 268, 1202, 32, 70, "Output",ExpressionUUID->"39e07889-7c36-4f1e-9e09-7f1ca5c85304", CellID->918439158] }, Open ]], Cell[CellGroupData[{ Cell[11277, 305, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"2cb9c4df-c224-4f80-a329-4ebdcaba9d16", CellID->292543444], Cell[11424, 311, 300, 7, 70, "Text",ExpressionUUID->"5046dfc0-ac47-4b7e-8319-b5ef8a557f19", CellID->13078159], Cell[CellGroupData[{ Cell[11749, 322, 9747, 240, 70, "Input",ExpressionUUID->"c0286ce0-d1e5-4430-b93a-210c2f2a8bae", CellID->443871870], Cell[21499, 564, 3172, 61, 70, "Output",ExpressionUUID->"1b444468-6efc-4058-8f6e-40a7287b1ac1", CellID->1332185500] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24732, 632, 159, 7, 70, "Subsection",ExpressionUUID->"21b251b6-05a6-4a5e-875a-73fdbe88f6b6", CellID->964056545], Cell[24894, 641, 168, 3, 70, "Text",ExpressionUUID->"4bb39872-5a7e-440c-96af-8c31bbf92f04", CellID->649685796], Cell[CellGroupData[{ Cell[25087, 648, 8806, 224, 70, "Input",ExpressionUUID->"3c179a76-fad0-4151-91ad-00f97e5876df", CellID->836153427], Cell[33896, 874, 2042, 40, 70, "Output",ExpressionUUID->"af59ea95-2e94-4fad-9c53-2f049c1ec79d", CellID->2127524343] }, Open ]], Cell[CellGroupData[{ Cell[35975, 919, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"37085518-6668-41a8-8a2f-8a1098811e5c", CellID->1607549736], Cell[36123, 925, 229, 4, 70, "Text",ExpressionUUID->"0989f97e-a77b-49b1-9b33-f69b25afa2b8", CellID->882281396], Cell[CellGroupData[{ Cell[36377, 933, 8696, 217, 70, "Input",ExpressionUUID->"619a2de6-a451-4f1c-aa25-25130dc9fa44", CellID->2051039173], Cell[45076, 1152, 2716, 48, 70, "Output",ExpressionUUID->"bfb15797-b30c-4aca-93fa-6574cc424bf4", CellID->812662305] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[47853, 1207, 167, 7, 70, "Subsection",ExpressionUUID->"cb220158-427f-43c5-9d03-efd6762d332a", CellID->540091361], Cell[48023, 1216, 208, 5, 70, "Text",ExpressionUUID->"dbe66a7a-bbc3-419f-a18b-353ec895d97a", CellID->1629801508], Cell[CellGroupData[{ Cell[48256, 1225, 9378, 232, 70, "Input",ExpressionUUID->"569bef78-89dc-4cc8-b226-5e6a1578b878", CellID->588091157], Cell[57637, 1459, 2147, 51, 70, "Output",ExpressionUUID->"64e5f973-a470-4518-9345-3762a3913d52", CellID->716235477] }, Open ]], Cell[59799, 1513, 147, 3, 70, "Text",ExpressionUUID->"c73fb48d-c535-4f47-b619-60b8d009b845", CellID->329126100], Cell[CellGroupData[{ Cell[59971, 1520, 700, 21, 70, "Input",ExpressionUUID->"0bbb4bee-6df5-4a54-aa9b-d7ded0fbe360", CellID->1140214683], Cell[60674, 1543, 23838, 441, 70, "Output",ExpressionUUID->"77549982-c891-4ede-a20e-bcc544c1c479", CellID->1223070272] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)