(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 123595, 3543] NotebookOptionsPosition[ 108324, 3194] NotebookOutlinePosition[ 110090, 3246] CellTagsIndexPosition[ 110047, 3243] WindowTitle->PowerTriangulation | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->904125756], Cell["Generate the power triangulation of a set of circles:", "Text", TaggingRules->{}, CellID->439112949], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"circles", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", "]"}], ",", "2"}], "]"}], ",", RowBox[{"RandomReal", "[", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "2"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{"{", "10", "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"\[ScriptCapitalR]", "=", RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", "circles", "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{3.81999560667083*^9, 3.820149836017706*^9}, CellID->891070020], Cell[BoxData[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = {MeshRegion, {}}}, TagBox[ GraphicsComplexBox[{{-1.0120483245308216`, 0.826338175973712}, {-1.1802413394902191`, -0.4330005370022226}, { 0.42156677744473037`, 1.5004503129000923`}, {-0.012845284804943805`, 0.2321855004953036}, { 0.02229161145076356, -0.8149003267424594}, {-0.005273330193722052, \ -0.0777799934242389}, {-0.40025728427119917`, 1.3399440713269122`}, { 0.8181036042368096, -0.5727133973128478}, {-0.48546639624167653`, \ -0.08341749788081136}, {0.39643396980296525`, 0.00392833734227489}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[ PolygonBox[{{8, 3, 10}, {8, 10, 5}, {2, 5, 9}, {2, 9, 1}, {10, 6, 5}, {5, 6, 9}, {1, 4, 7}, {1, 9, 4}, {3, 4, 10}, {3, 7, 4}, {10, 4, 6}, {9, 6, 4}}], Annotation[#, "Geometry"]& ]}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}]], "Output", TaggingRules->{}, CellID->710592918] }, Open ]], Cell["Show the power triangulation with the generating circles:", "Text", TaggingRules->{}, CellID->304703923], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"\[ScriptCapitalR]", ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Orange", ",", "circles"}], "}"}], "]"}]}], "]"}]], "Input", TaggingRules->{}, CellID->547382694], Cell[BoxData[ GraphicsBox[{ GraphicsComplexBox[{{-1.0120483245308216`, 0.826338175973712}, {-1.1802413394902191`, -0.4330005370022226}, { 0.42156677744473037`, 1.5004503129000923`}, {-0.012845284804943805`, 0.2321855004953036}, { 0.02229161145076356, -0.8149003267424594}, {-0.005273330193722052, \ -0.0777799934242389}, {-0.40025728427119917`, 1.3399440713269122`}, { 0.8181036042368096, -0.5727133973128478}, {-0.48546639624167653`, \ -0.08341749788081136}, {0.39643396980296525`, 0.00392833734227489}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[ PolygonBox[{{8, 3, 10}, {8, 10, 5}, {2, 5, 9}, {2, 9, 1}, {10, 6, 5}, { 5, 6, 9}, {1, 4, 7}, {1, 9, 4}, {3, 4, 10}, {3, 7, 4}, {10, 4, 6}, {9, 6, 4}}], Annotation[#, "Geometry"]& ]}], {RGBColor[1, 0.5, 0], CircleBox[{-1.0120483245308216, 0.826338175973712}, 0.1735346767548297], CircleBox[{-1.1802413394902191, -0.4330005370022226}, 0.14458462668369476], CircleBox[{0.42156677744473037, 1.5004503129000923}, 0.16258485289151958], CircleBox[{-0.012845284804943805, 0.2321855004953036}, 0.2752908022019288], CircleBox[{0.02229161145076356, -0.8149003267424594}, 0.43017439968673077], CircleBox[{-0.005273330193722052, -0.0777799934242389}, 0.01918227788847071], CircleBox[{-0.40025728427119917, 1.3399440713269122}, 0.2640709544709954], CircleBox[{0.8181036042368096, -0.5727133973128478}, 0.4203413038690187], CircleBox[{-0.48546639624167653, -0.08341749788081136}, 0.28030229390754435], CircleBox[{0.39643396980296525, 0.00392833734227489}, 0.45031012579217533]}}]], "Output", TaggingRules->{}, CellID->630751238] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->204653245], Cell["Create a power triangulation from a set of disks:", "Text", TaggingRules->{}, CellID->581757957], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"cl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"RandomReal", "[", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "4"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{"{", "20", "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"\[ScriptCapitalR]", "=", RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", "cl", "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{3.8201498428147078`*^9}, CellLabel->"In[78]:=", CellID->212785713], Cell[BoxData[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = {MeshRegion, {}}}, TagBox[GraphicsComplexBox[CompressedData[" 1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAgFtk4EW18D+QKI62n/n2v2gMTDlf 0/O/IJwV57kTx78sxwG/AC/9v/CQgg5SUee/cLRTrUCD1D+oSIOADzPiv7wt ZzZNffG/ALilPdyCwr+AwVp8pUv5v2C9e6j+FPG/EG2xCOJq97/8/Wy7MrD+ Pzxn4/W4QvW/ILfDGfyC0z/I4cKGQCz3v4AddixTReG/qL7trM74+j8Yivt2 chPgP7DZkCl9eOE/7Bkwfz+a8D+s0EyA7Wf6v8Aosp58fbo/1IzL8M6i9D9w nlBWDU3uv4xE7cgDwPu/MPGHWERR/r+AuWx2Mc2jvwgRt5m8NO0/uLrwDbZa /L+QoTuzDgXeP6iiTpqSRfu/lLRefYVv/T9AA6DqFau7P0y8aEw2pfm/jI2I 2M3P/L9A8toZeDG4v+CIeDMtUsK/GISHENMc/r+/NbI4 "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[ PolygonBox[{{7, 15, 11}, {7, 8, 15}, {3, 14, 6}, {7, 17, 16}, {7, 16, 8}, {15, 8, 5}, {18, 20, 1}, {14, 20, 6}, {18, 6, 20}, {10, 11, 4}, { 15, 4, 11}, {18, 1, 4}, {15, 5, 4}, {18, 4, 5}, {17, 19, 16}, {10, 4, 13}, {1, 13, 4}, {8, 16, 12}, {16, 19, 12}, {3, 9, 19}, {3, 6, 9}, { 18, 9, 6}, {18, 5, 9}, {19, 2, 12}, {5, 2, 9}, {19, 9, 2}, {8, 2, 5}, {8, 12, 2}}], Annotation[#, "Geometry"]& ]}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8201503396587973`*^9}, CellLabel->"Out[79]=", CellID->207304886] }, Open ]], Cell["Basic properties:", "Text", TaggingRules->{}, CellID->323700837], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"RegionQ", "[", "\[ScriptCapitalR]", "]"}], ",", RowBox[{"MeshRegionQ", "[", "\[ScriptCapitalR]", "]"}]}], "}"}]], "Input", TaggingRules->{}, CellLabel->"In[81]:=", CellID->788211868], Cell[BoxData[ RowBox[{"{", RowBox[{"True", ",", "True"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8201503482057343`*^9}, CellLabel->"Out[81]=", CellID->344451069] }, Open ]], Cell["Power triangulations are full dimensional:", "Text", TaggingRules->{}, CellID->46888364], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"RegionDimension", "[", "\[ScriptCapitalR]", "]"}], ",", RowBox[{"RegionEmbeddingDimension", "[", "\[ScriptCapitalR]", "]"}]}], "}"}]], "Input", TaggingRules->{}, CellLabel->"In[82]:=", CellID->829957990], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.820150350977974*^9}, CellLabel->"Out[82]=", CellID->2087716217] }, Open ]], Cell["Power triangulations are bounded:", "Text", TaggingRules->{}, CellID->390518799], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"BoundedRegionQ", "[", "\[ScriptCapitalR]", "]"}], ",", RowBox[{"RegionBounds", "[", "\[ScriptCapitalR]", "]"}]}], "}"}]], "Input",\ TaggingRules->{}, CellLabel->"In[83]:=", CellID->553709412], Cell[BoxData[ RowBox[{"{", RowBox[{"True", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.8239753209313205`"}], ",", "1.6857439761187525`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8948405702822804`"}], ",", "1.9180171319311503`"}], "}"}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.820150329328691*^9, 3.82015035768075*^9}}, CellLabel->"Out[83]=", CellID->1713865693] }, Open ]], Cell["Find its area and centroid:", "Text", TaggingRules->{}, CellID->762351292], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"RegionMeasure", "[", "\[ScriptCapitalR]", "]"}], ",", " ", RowBox[{"RegionCentroid", "[", "\[ScriptCapitalR]", "]"}]}], "}"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.820150266424199*^9}, CellLabel->"In[84]:=", CellID->856185380], Cell[BoxData[ RowBox[{"{", RowBox[{"9.847338213017931`", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3379919521110643`"}], ",", RowBox[{"-", "0.17206531025665614`"}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.820150323978162*^9, 3.820150359779155*^9}, CellLabel->"Out[84]=", CellID->339901356] }, Open ]], Cell["\<\ Test for point membership or distance to the closest point in the region:\ \>", "Text", TaggingRules->{}, CellID->728946748], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RegionMember", "[", RowBox[{"\[ScriptCapitalR]", ",", RowBox[{"{", RowBox[{"0.5", ",", "0.5"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[85]:=", CellID->55554092], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.820150362821466*^9}, CellLabel->"Out[85]=", CellID->1320506357] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"RegionDistance", "[", RowBox[{"\[ScriptCapitalR]", ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"RegionNearest", "[", RowBox[{"\[ScriptCapitalR]", ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "]"}]}], "}"}]], "Input", TaggingRules->{}, CellLabel->"In[86]:=", CellID->435246827], Cell[BoxData[ RowBox[{"{", RowBox[{"1.4891645262824316`", ",", RowBox[{"{", RowBox[{"1.3669693476258913`", ",", "0.6520819092048697`"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.820150365553589*^9}, CellLabel->"Out[86]=", CellID->733525804] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell[TextData[{ "Generate the power triangulation of a mixture of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Circle", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Circle", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Disk", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Disk", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " objects:" }], "Text", TaggingRules->{}, CellID->40958163], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"cl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"RandomChoice", "[", RowBox[{"{", RowBox[{"Circle", ",", "Disk"}], "}"}], "]"}], "[", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", "]"}], ",", "2"}], "]"}], ",", RowBox[{"RandomReal", "[", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "2"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{"{", "10", "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", "cl", "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{3.819995642516849*^9, 3.8201498525142803`*^9}, CellID->426191955], Cell[BoxData[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = {MeshRegion, {}}}, TagBox[ GraphicsComplexBox[{{0.11327253090597272`, -0.5549338382901781}, { 0.1046217741831831, 0.6310947525481428}, {-0.8144814584680563, -1.139924610377717}, { 0.6687242912618178, 0.8160063555387179}, {0.19848718412088998`, 0.23774158511281251`}, {-0.24370519270399355`, 0.610255925704648}, { 1.6837439546336432`, -1.018359326863361}, {0.9040558719560146, 0.8012769799854255}, { 0.7812336649041123, -0.869232557413468}, {-0.749820536175867, \ -0.6601614561187038}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[ PolygonBox[{{3, 7, 9}, {7, 8, 9}, {4, 5, 9}, {4, 9, 8}, {5, 6, 10}, { 4, 2, 5}, {4, 6, 2}, {5, 2, 6}, {5, 1, 9}, {5, 10, 1}, {3, 9, 1}, {3, 1, 10}}], Annotation[#, "Geometry"]& ]}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}]], "Output", TaggingRules->{}, CellID->264053785] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Options", "\[NonBreakingSpace]", Cell["(10)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->890561554], Cell[CellGroupData[{ Cell[TextData[{ "MeshCellHighlight", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellID->261933308], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["MeshCellHighlight", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/MeshCellHighlight", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " allows you to specify highlighting for parts of a ", Cell[BoxData[ StyleBox["PowerTriangulation", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellID->975574379], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"RandomReal", "[", "]"}]}], "]"}], ",", RowBox[{"{", "5", "}"}]}], "]"}], ",", RowBox[{"MeshCellHighlight", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "All"}], "}"}], "\[Rule]", "Red"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "All"}], "}"}], "\[Rule]", "Black"}]}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellID->429177435], Cell[BoxData[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = { MeshRegion, { Properties -> {{0, 1} -> (MeshCellHighlight -> GrayLevel[0]), {0, 2} -> ( MeshCellHighlight -> GrayLevel[0]), {0, 3} -> (MeshCellHighlight -> GrayLevel[0]), {0, 4} -> (MeshCellHighlight -> GrayLevel[0]), {0, 5} -> (MeshCellHighlight -> GrayLevel[0]), {0, Default} -> ( MeshCellHighlight -> Automatic), {1, 1} -> (MeshCellHighlight -> RGBColor[1, 0, 0]), {1, 2} -> (MeshCellHighlight -> RGBColor[1, 0, 0]), {1, 3} -> (MeshCellHighlight -> RGBColor[1, 0, 0]), {1, 4} -> (MeshCellHighlight -> RGBColor[1, 0, 0]), {1, 5} -> (MeshCellHighlight -> RGBColor[1, 0, 0]), {1, 6} -> (MeshCellHighlight -> RGBColor[1, 0, 0]), {1, 7} -> (MeshCellHighlight -> RGBColor[1, 0, 0]), {1, 8} -> (MeshCellHighlight -> RGBColor[1, 0, 0]), {1, Default} -> (MeshCellHighlight -> Automatic)}}}}, TagBox[ GraphicsComplexBox[{{0.00046888690575808134`, 0.9177956164184642}, { 0.4774713408197886, 0.5646738669251108}, {0.7575595655669651, 0.9931973061400736}, {0.6671852862972596, 0.9538905523555286}, { 0.14789641129073572`, 0.47177787009634}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{1, 5, 2}, {1, 4, 3}, {1, 2, 4}, {3, 4, 2}}], Annotation[#, "Geometry"]& ], { {RGBColor[1, 0, 0], LineBox[{{1, 5}}]}, {RGBColor[1, 0, 0], LineBox[{{5, 2}}]}, {RGBColor[1, 0, 0], LineBox[{{2, 1}}]}, {RGBColor[1, 0, 0], LineBox[{{1, 4}}]}, {RGBColor[1, 0, 0], LineBox[{{4, 3}}]}, {RGBColor[1, 0, 0], LineBox[{{3, 1}}]}, {RGBColor[1, 0, 0], LineBox[{{2, 4}}]}, {RGBColor[1, 0, 0], LineBox[{{2, 3}}]}}, { {GrayLevel[0], PointBox[{1}]}, {GrayLevel[0], PointBox[{2}]}, {GrayLevel[0], PointBox[{3}]}, {GrayLevel[0], PointBox[{4}]}, {GrayLevel[0], PointBox[{5}]}}}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}]], "Output", TaggingRules->{}, CellID->910785660] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["Individual cells can be highlighted using their cell index:", "Text", TaggingRules->{}, CellID->382797188], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"RandomReal", "[", "]"}]}], "]"}], ",", RowBox[{"{", "5", "}"}]}], "]"}], ",", RowBox[{"MeshCellHighlight", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"Dashed", ",", "Black"}], "}"}]}]}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellID->762904064], Cell[BoxData[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = { MeshRegion, {Properties -> {{1, 2} -> (MeshCellHighlight -> { Dashing[{Small, Small}], GrayLevel[0]}), {1, 1} -> (MeshCellHighlight -> { Thickness[Large], RGBColor[1, 0, 0]}), {1, Default} -> (MeshCellHighlight -> Automatic)}}}}, TagBox[ GraphicsComplexBox[{{0.00046888690575808134`, 0.9177956164184642}, { 0.4774713408197886, 0.5646738669251108}, {0.7575595655669651, 0.9931973061400736}, {0.6671852862972596, 0.9538905523555286}, { 0.14789641129073572`, 0.47177787009634}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{1, 5, 2}, {1, 4, 3}, {1, 2, 4}, {3, 4, 2}}], Annotation[#, "Geometry"]& ], { {RGBColor[1, 0, 0], Thickness[Large], LineBox[{{1, 5}}]}, {GrayLevel[0], Dashing[{Small, Small}], LineBox[{{5, 2}}]}}}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}]], "Output", TaggingRules->{}, CellID->431606144] }, Open ]], Cell["Or by the cell itself:", "Text", TaggingRules->{}, CellID->159251512], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"RandomReal", "[", "]"}]}], "]"}], ",", RowBox[{"{", "5", "}"}]}], "]"}], ",", RowBox[{"MeshCellHighlight", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{"Dashed", ",", "Black"}], "}"}]}]}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellID->96643868], Cell[BoxData[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = { MeshRegion, {Properties -> {{1, 3} -> (MeshCellHighlight -> { Thickness[Large], RGBColor[1, 0, 0]}), {1, 8} -> (MeshCellHighlight -> { Dashing[{Small, Small}], GrayLevel[0]}), {1, Default} -> (MeshCellHighlight -> Automatic)}}}}, TagBox[ GraphicsComplexBox[{{0.00046888690575808134`, 0.9177956164184642}, { 0.4774713408197886, 0.5646738669251108}, {0.7575595655669651, 0.9931973061400736}, {0.6671852862972596, 0.9538905523555286}, { 0.14789641129073572`, 0.47177787009634}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{1, 5, 2}, {1, 4, 3}, {1, 2, 4}, {3, 4, 2}}], Annotation[#, "Geometry"]& ], { {RGBColor[1, 0, 0], Thickness[Large], LineBox[{{2, 1}}]}, {GrayLevel[0], Dashing[{Small, Small}], LineBox[{{2, 3}}]}}}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}]], "Output", TaggingRules->{}, CellID->98488187] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "MeshCellLabel", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellID->638605723], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["MeshCellLabel", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/MeshCellLabel", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " can be used to label parts of a ", Cell[BoxData[ StyleBox["PowerTriangulation", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellID->828400937], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"RandomReal", "[", "]"}]}], "]"}], ",", RowBox[{"{", "5", "}"}]}], "]"}], ",", RowBox[{"MeshCellLabel", "\[Rule]", RowBox[{"{", RowBox[{"0", "\[Rule]", "\"\\""}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellID->85905972], Cell[BoxData[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = { MeshRegion, { Properties -> {{0, Default} -> (MeshCellLabel -> "Index")}}}}, TagBox[ GraphicsComplexBox[{{0.00046888690575808134`, 0.9177956164184642}, { 0.4774713408197886, 0.5646738669251108}, {0.7575595655669651, 0.9931973061400736}, {0.6671852862972596, 0.9538905523555286}, { 0.14789641129073572`, 0.47177787009634}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{1, 5, 2}, {1, 4, 3}, {1, 2, 4}, {3, 4, 2}}], Annotation[#, "Geometry"]& ], {{PointBox[{1}], InsetBox["1", Offset[{2, 2}, {0.00046888690575808134, 0.9177956164184642}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {PointBox[{2}], InsetBox["2", Offset[{2, 2}, {0.4774713408197886, 0.5646738669251108}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {PointBox[{3}], InsetBox["3", Offset[{2, 2}, {0.7575595655669651, 0.9931973061400736}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {PointBox[{4}], InsetBox["4", Offset[{2, 2}, {0.6671852862972596, 0.9538905523555286}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {PointBox[{5}], InsetBox["5", Offset[{2, 2}, {0.14789641129073572, 0.47177787009634}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}]], "Output", TaggingRules->{}, CellID->310615575] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell["Individual cells can be labeled using their cell index:", "Text", TaggingRules->{}, CellID->413770231], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"RandomReal", "[", "]"}]}], "]"}], ",", RowBox[{"{", "5", "}"}]}], "]"}], ",", RowBox[{"MeshCellLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "\"\\""}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "\"\\""}]}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellID->616070693], Cell[BoxData[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = { MeshRegion, { Properties -> {{1, 2} -> (MeshCellLabel -> "y"), {1, 1} -> ( MeshCellLabel -> "x"), {1, Default} -> (MeshCellLabel -> Automatic)}}}}, TagBox[ GraphicsComplexBox[{{0.00046888690575808134`, 0.9177956164184642}, { 0.4774713408197886, 0.5646738669251108}, {0.7575595655669651, 0.9931973061400736}, {0.6671852862972596, 0.9538905523555286}, { 0.14789641129073572`, 0.47177787009634}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{1, 5, 2}, {1, 4, 3}, {1, 2, 4}, {3, 4, 2}}], Annotation[#, "Geometry"]& ], {{LineBox[{{1, 5}}], InsetBox["\<\"x\"\>", {0.0741826490982469, 0.6947867432574021}, ImageScaled[{0.5, 0.5}], BaseStyle->"Graphics"]}, {LineBox[{{5, 2}}], InsetBox["\<\"y\"\>", {0.31268387605526216, 0.5182258685107254}, ImageScaled[{0.5, 0.5}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}]], "Output", TaggingRules->{}, CellID->743110371] }, Open ]], Cell["Or by the cell itself:", "Text", TaggingRules->{}, CellID->159251513], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"RandomReal", "[", "]"}]}], "]"}], ",", RowBox[{"{", "5", "}"}]}], "]"}], ",", RowBox[{"MeshCellLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}], "\[Rule]", "\"\\""}], ",", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}], "\[Rule]", "\"\\""}]}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellID->205404294], Cell[BoxData[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = { MeshRegion, { Properties -> {{1, 6} -> (MeshCellLabel -> "x"), {1, 3} -> ( MeshCellLabel -> "y"), {1, Default} -> (MeshCellLabel -> Automatic)}}}}, TagBox[ GraphicsComplexBox[{{0.00046888690575808134`, 0.9177956164184642}, { 0.4774713408197886, 0.5646738669251108}, {0.7575595655669651, 0.9931973061400736}, {0.6671852862972596, 0.9538905523555286}, { 0.14789641129073572`, 0.47177787009634}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{1, 5, 2}, {1, 4, 3}, {1, 2, 4}, {3, 4, 2}}], Annotation[#, "Geometry"]& ], {{LineBox[{{2, 1}}], InsetBox["\<\"y\"\>", {0.23897011386277334, 0.7412347416717875}, ImageScaled[{0.5, 0.5}], BaseStyle->"Graphics"]}, {LineBox[{{3, 1}}], InsetBox["\<\"x\"\>", {0.3790142262363616, 0.9554964612792689}, ImageScaled[{0.5, 0.5}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}]], "Output", TaggingRules->{}, CellID->220656441] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "MeshCellMarker", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellID->160491569], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["MeshCellMarker", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/MeshCellMarker", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " can be used to assign values to parts of a ", Cell[BoxData[ StyleBox["PowerTriangulation", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellID->109652449], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"RandomReal", "[", "]"}]}], "]"}], ",", RowBox[{"{", "5", "}"}]}], "]"}], ",", RowBox[{"MeshCellMarker", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], "\[Rule]", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], "\[Rule]", "3"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}], "\[Rule]", "4"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}], "\[Rule]", "5"}]}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellID->790128220], Cell[BoxData[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = { MeshRegion, { Properties -> {{0, {1, 2, 3, 4, 5}} -> ( MeshCellMarker -> {1, 2, 3, 4, 5}), {0, Default} -> (MeshCellMarker -> 0)}}}}, TagBox[ GraphicsComplexBox[{{0.00046888690575808134`, 0.9177956164184642}, { 0.4774713408197886, 0.5646738669251108}, {0.7575595655669651, 0.9931973061400736}, {0.6671852862972596, 0.9538905523555286}, { 0.14789641129073572`, 0.47177787009634}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{1, 5, 2}, {1, 4, 3}, {1, 2, 4}, {3, 4, 2}}], Annotation[#, "Geometry"]& ]}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}]], "Output", TaggingRules->{}, CellID->51956961] }, Open ]], Cell[TextData[{ "Use ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["MeshCellLabel", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/MeshCellLabel", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to show the markers:" }], "Text", TaggingRules->{}, CellID->337875992], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"RandomReal", "[", "]"}]}], "]"}], ",", RowBox[{"{", "5", "}"}]}], "]"}], ",", RowBox[{"MeshCellMarker", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], "\[Rule]", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], "\[Rule]", "3"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}], "\[Rule]", "4"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}], "\[Rule]", "5"}]}], "}"}]}], ",", RowBox[{"MeshCellLabel", "\[Rule]", RowBox[{"{", RowBox[{"0", "\[Rule]", "\"\\""}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellID->32187217], Cell[BoxData[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = { MeshRegion, { Properties -> {{0, Default} -> (MeshCellLabel -> "Marker"), { 0, {1, 2, 3, 4, 5}} -> (MeshCellMarker -> {1, 2, 3, 4, 5}), { 0, Default} -> (MeshCellMarker -> 0)}}}}, TagBox[ GraphicsComplexBox[{{0.00046888690575808134`, 0.9177956164184642}, { 0.4774713408197886, 0.5646738669251108}, {0.7575595655669651, 0.9931973061400736}, {0.6671852862972596, 0.9538905523555286}, { 0.14789641129073572`, 0.47177787009634}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{1, 5, 2}, {1, 4, 3}, {1, 2, 4}, {3, 4, 2}}], Annotation[#, "Geometry"]& ], {{PointBox[{1}], InsetBox["1", Offset[{2, 2}, {0.00046888690575808134, 0.9177956164184642}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {PointBox[{2}], InsetBox["2", Offset[{2, 2}, {0.4774713408197886, 0.5646738669251108}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {PointBox[{3}], InsetBox["3", Offset[{2, 2}, {0.7575595655669651, 0.9931973061400736}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {PointBox[{4}], InsetBox["4", Offset[{2, 2}, {0.6671852862972596, 0.9538905523555286}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {PointBox[{5}], InsetBox["5", Offset[{2, 2}, {0.14789641129073572, 0.47177787009634}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}]], "Output", TaggingRules->{}, CellID->105177211] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "MeshCellStyle", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellID->511850935], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["MeshCellStyle", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/MeshCellStyle", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " allows you to specify styling for parts of a ", Cell[BoxData[ StyleBox["PowerTriangulation", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellID->748642435], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"RandomReal", "[", "]"}]}], "]"}], ",", RowBox[{"{", "5", "}"}]}], "]"}], ",", RowBox[{"MeshCellStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "All"}], "}"}], "\[Rule]", "Red"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "All"}], "}"}], "\[Rule]", "Black"}]}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellID->233533510], Cell[BoxData[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = { MeshRegion, { Properties -> {{0, 1} -> (MeshCellStyle -> GrayLevel[0]), {0, 2} -> ( MeshCellStyle -> GrayLevel[0]), {0, 3} -> (MeshCellStyle -> GrayLevel[0]), {0, 4} -> (MeshCellStyle -> GrayLevel[0]), {0, 5} -> ( MeshCellStyle -> GrayLevel[0]), {0, Default} -> (MeshCellStyle -> Automatic), {1, 1} -> (MeshCellStyle -> RGBColor[1, 0, 0]), {1, 2} -> (MeshCellStyle -> RGBColor[1, 0, 0]), {1, 3} -> (MeshCellStyle -> RGBColor[1, 0, 0]), {1, 4} -> (MeshCellStyle -> RGBColor[1, 0, 0]), { 1, 5} -> (MeshCellStyle -> RGBColor[1, 0, 0]), {1, 6} -> ( MeshCellStyle -> RGBColor[1, 0, 0]), {1, 7} -> (MeshCellStyle -> RGBColor[1, 0, 0]), {1, 8} -> (MeshCellStyle -> RGBColor[1, 0, 0]), { 1, Default} -> (MeshCellStyle -> Automatic)}}}}, TagBox[ GraphicsComplexBox[{{0.00046888690575808134`, 0.9177956164184642}, { 0.4774713408197886, 0.5646738669251108}, {0.7575595655669651, 0.9931973061400736}, {0.6671852862972596, 0.9538905523555286}, { 0.14789641129073572`, 0.47177787009634}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{1, 5, 2}, {1, 4, 3}, {1, 2, 4}, {3, 4, 2}}], Annotation[#, "Geometry"]& ], {RGBColor[1, 0, 0], LineBox[{{1, 5}, {5, 2}, {2, 1}, {1, 4}, {4, 3}, {3, 1}, {2, 4}, {2, 3}}]}, {GrayLevel[0], PointBox[{1, 2, 3, 4, 5}]}}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}]], "Output", TaggingRules->{}, CellID->226768500] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell["Individual cells can be highlighted using their cell index:", "Text", TaggingRules->{}, CellID->382797189], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"RandomReal", "[", "]"}]}], "]"}], ",", RowBox[{"{", "5", "}"}]}], "]"}], ",", RowBox[{"MeshCellStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"Dashed", ",", "Black"}], "}"}]}]}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellID->978301941], Cell[BoxData[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = { MeshRegion, {Properties -> {{1, 2} -> (MeshCellStyle -> { Dashing[{Small, Small}], GrayLevel[0]}), {1, 1} -> (MeshCellStyle -> { Thickness[Large], RGBColor[1, 0, 0]}), {1, Default} -> (MeshCellStyle -> Automatic)}}}}, TagBox[ GraphicsComplexBox[{{0.00046888690575808134`, 0.9177956164184642}, { 0.4774713408197886, 0.5646738669251108}, {0.7575595655669651, 0.9931973061400736}, {0.6671852862972596, 0.9538905523555286}, { 0.14789641129073572`, 0.47177787009634}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{1, 5, 2}, {1, 4, 3}, {1, 2, 4}, {3, 4, 2}}], Annotation[#, "Geometry"]& ], { {RGBColor[1, 0, 0], Thickness[Large], LineBox[{{1, 5}}]}, {GrayLevel[0], Dashing[{Small, Small}], LineBox[{{5, 2}}]}}}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}]], "Output", TaggingRules->{}, CellID->122088221] }, Open ]], Cell["Or by the cell itself:", "Text", TaggingRules->{}, CellID->159251514], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"RandomReal", "[", "]"}]}], "]"}], ",", RowBox[{"{", "5", "}"}]}], "]"}], ",", RowBox[{"MeshCellStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}], "\[Rule]", RowBox[{"{", RowBox[{"Dashed", ",", "Black"}], "}"}]}]}], "}"}]}]}], "]"}]], "Input", TaggingRules->{}, CellID->319959900], Cell[BoxData[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = { MeshRegion, {Properties -> {{1, 6} -> (MeshCellStyle -> { Thickness[Large], RGBColor[1, 0, 0]}), {1, 3} -> (MeshCellStyle -> { Dashing[{Small, Small}], GrayLevel[0]}), {1, Default} -> (MeshCellStyle -> Automatic)}}}}, TagBox[ GraphicsComplexBox[{{0.00046888690575808134`, 0.9177956164184642}, { 0.4774713408197886, 0.5646738669251108}, {0.7575595655669651, 0.9931973061400736}, {0.6671852862972596, 0.9538905523555286}, { 0.14789641129073572`, 0.47177787009634}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{1, 5, 2}, {1, 4, 3}, {1, 2, 4}, {3, 4, 2}}], Annotation[#, "Geometry"]& ], { {RGBColor[1, 0, 0], Thickness[Large], LineBox[{{3, 1}}]}, {GrayLevel[0], Dashing[{Small, Small}], LineBox[{{2, 1}}]}}}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}]], "Output", TaggingRules->{}, CellID->565202560] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "PlotTheme", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsubsection", TaggingRules->{}, CellID->290749303], Cell["Use a theme with grid lines and a legend:", "Text", TaggingRules->{}, CellID->370165313], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"RandomReal", "[", "]"}]}], "]"}], ",", RowBox[{"{", "10", "}"}]}], "]"}], ",", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellID->187776206], Cell[BoxData[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = {MeshRegion, {PlotTheme -> "Detailed"}}}, TagBox[ GraphicsComplexBox[{{0.2968480626450438, 0.2064076444638916}, { 0.9733246886114033, 0.2587960215042713}, {0.717286648744436, 0.7543526005471366}, {0.9969658446871783, 0.7392260961589487}, { 0.376127158995208, 0.2961986475539444}, {0.6073518077632123, 0.902794607273971}, {0.9244210196694638, 0.0015770440762274962`}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[ PolygonBox[{{1, 7, 5}, {1, 5, 6}, {4, 7, 2}, {7, 3, 5}, {6, 5, 3}, {4, 3, 7}, {4, 6, 3}}], Annotation[#, "Geometry"]& ]}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], Axes->False, DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}, Frame->True]], "Output", TaggingRules->{}, CellID->232019161] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107566], Cell["Use a theme to draw a wireframe:", "Text", TaggingRules->{}, CellID->392919982], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"RandomReal", "[", "]"}]}], "]"}], ",", RowBox[{"{", "10", "}"}]}], "]"}], ",", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellID->213816536], Cell[BoxData[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = HoldComplete[ MeshRegion[{{0.2968480626450438, 0.2064076444638916}, { 0.9733246886114033, 0.2587960215042713}, {0.717286648744436, 0.7543526005471366}, {0.9969658446871783, 0.7392260961589487}, { 0.376127158995208, 0.2961986475539444}, {0.6073518077632123, 0.902794607273971}, {0.9244210196694638, 0.0015770440762274962`}}, { Polygon[{{1, 7, 5}, {1, 5, 6}, {4, 7, 2}, {7, 3, 5}, {6, 5, 3}, {4, 3, 7}, {4, 6, 3}}]}, Method -> { "EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic, "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> Automatic, "SeparateBoundaries" -> Automatic, "TJunction" -> Automatic, "PropagateMarkers" -> True, "ZeroTest" -> Automatic, "Hash" -> 9091961428862384171}, {PlotTheme -> "Lines"}]]}, TagBox[ GraphicsComplexBox[{{0.2968480626450438, 0.2064076444638916}, { 0.9733246886114033, 0.2587960215042713}, {0.717286648744436, 0.7543526005471366}, {0.9969658446871783, 0.7392260961589487}, { 0.376127158995208, 0.2961986475539444}, {0.6073518077632123, 0.902794607273971}, {0.9244210196694638, 0.0015770440762274962`}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], LineBox[{{1, 7}, {7, 5}, {5, 1}, {5, 6}, {6, 1}, {4, 7}, {7, 2}, {2, 4}, {7, 3}, {3, 5}, {3, 6}, {4, 3}, {4, 6}}]}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}]], "Output", TaggingRules->{}, CellID->379487090] }, Open ]] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Properties and Relations", "\[NonBreakingSpace]", Cell["(4)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->232113220], Cell[TextData[{ "The output of ", Cell[BoxData[ StyleBox["PowerTriangulation", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is always a full-dimensional ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["MeshRegion", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/MeshRegion", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellID->804695129], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"circles", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", "]"}], ",", "2"}], "]"}], ",", RowBox[{"RandomReal", "[", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "2"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{"{", "10", "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", "circles", "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{3.82014988114564*^9}, CellID->891070021], Cell[BoxData[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = {MeshRegion, {}}}, TagBox[ GraphicsComplexBox[{{-1.0120483245308216`, 0.826338175973712}, {-1.1802413394902191`, -0.4330005370022226}, { 0.42156677744473037`, 1.5004503129000923`}, {-0.012845284804943805`, 0.2321855004953036}, { 0.02229161145076356, -0.8149003267424594}, {-0.005273330193722052, \ -0.0777799934242389}, {-0.40025728427119917`, 1.3399440713269122`}, { 0.8181036042368096, -0.5727133973128478}, {-0.48546639624167653`, \ -0.08341749788081136}, {0.39643396980296525`, 0.00392833734227489}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[ PolygonBox[{{8, 3, 10}, {8, 10, 5}, {2, 5, 9}, {2, 9, 1}, {10, 6, 5}, {5, 6, 9}, {1, 4, 7}, {1, 9, 4}, {3, 4, 10}, {3, 7, 4}, {10, 4, 6}, {9, 6, 4}}], Annotation[#, "Geometry"]& ]}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}]], "Output", TaggingRules->{}, CellID->710592919] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"MeshRegionQ", "[", "%", "]"}], ",", RowBox[{"RegionDimension", "[", "%", "]"}]}], "}"}]], "Input", TaggingRules->{}, CellID->201446199], Cell[BoxData[ RowBox[{"{", RowBox[{"True", ",", "2"}], "}"}]], "Output", TaggingRules->{}, CellID->373997084] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107567], Cell["\<\ The circumcircle for each triangle in a power triangulation contains no other \ circles' centers:\ \>", "Text", TaggingRules->{}, CellID->512664465], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"circles", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", "]"}], ",", "2"}], "]"}], ",", RowBox[{"RandomReal", "[", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "2"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{"{", "5", "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"\[ScriptCapitalR]", "=", RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", "circles", "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{3.8201498899612503`*^9}, CellID->238406357], Cell[BoxData[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = {MeshRegion, {}}}, TagBox[ GraphicsComplexBox[{{-1.0120483245308216`, 0.826338175973712}, {-1.1802413394902191`, -0.4330005370022226}, { 0.42156677744473037`, 1.5004503129000923`}, {-0.012845284804943805`, 0.2321855004953036}, {0.02229161145076356, -0.8149003267424594}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{2, 5, 4}, {3, 4, 5}, {2, 4, 1}, {3, 1, 4}}], Annotation[#, "Geometry"]& ]}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}]], "Output", TaggingRules->{}, CellID->185714330] }, Open ]], Cell["Find circumcircles for all triangles:", "Text", TaggingRules->{}, CellID->847955680], Cell[BoxData[ RowBox[{ RowBox[{"circum", "=", RowBox[{"Circumsphere", "@@@", RowBox[{"Normal", "@", RowBox[{"GraphicsComplex", "[", RowBox[{ RowBox[{"MeshCoordinates", "[", "\[ScriptCapitalR]", "]"}], ",", RowBox[{"MeshCells", "[", RowBox[{"\[ScriptCapitalR]", ",", "2"}], "]"}]}], "]"}]}]}]}], ";"}]], "Input", TaggingRules->{}, CellLabel->"In[87]:=", CellID->180066730], Cell["Plot the circumcircles as disks:", "Text", TaggingRules->{}, CellID->233895802], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"HighlightMesh", "[", RowBox[{"\[ScriptCapitalR]", ",", RowBox[{"Style", "[", RowBox[{"0", ",", RowBox[{"PointSize", "[", "Large", "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Orange", ",", "circum"}], "}"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "2"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[88]:=", CellID->178948899], Cell[BoxData[ GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAgFtk4EW18D+QKI62n/n2v2gMTDlf 0/O/IJwV57kTx78sxwG/AC/9v/CQgg5SUee/cLRTrUCD1D+oSIOADzPiv7wt ZzZNffG/ALilPdyCwr+AwVp8pUv5v2C9e6j+FPG/EG2xCOJq97/8/Wy7MrD+ Pzxn4/W4QvW/ILfDGfyC0z/I4cKGQCz3v4AddixTReG/qL7trM74+j8Yivt2 chPgP7DZkCl9eOE/7Bkwfz+a8D+s0EyA7Wf6v8Aosp58fbo/1IzL8M6i9D9w nlBWDU3uv4xE7cgDwPu/MPGHWERR/r+AuWx2Mc2jvwgRt5m8NO0/uLrwDbZa /L+QoTuzDgXeP6iiTpqSRfu/lLRefYVv/T9AA6DqFau7P0y8aEw2pfm/jI2I 2M3P/L9A8toZeDG4v+CIeDMtUsK/GISHENMc/r+/NbI4 "], {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[ PolygonBox[{{7, 15, 11}, {7, 8, 15}, {3, 14, 6}, {7, 17, 16}, {7, 16, 8}, {15, 8, 5}, {18, 20, 1}, {14, 20, 6}, {18, 6, 20}, {10, 11, 4}, { 15, 4, 11}, {18, 1, 4}, {15, 5, 4}, {18, 4, 5}, {17, 19, 16}, {10, 4, 13}, {1, 13, 4}, {8, 16, 12}, {16, 19, 12}, {3, 9, 19}, {3, 6, 9}, {18, 9, 6}, {18, 5, 9}, {19, 2, 12}, {5, 2, 9}, {19, 9, 2}, {8, 2, 5}, {8, 12, 2}}], Annotation[#, "Geometry"]& ], {PointSize[Large], PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20}]}}], {RGBColor[1, 0.5, 0], TagBox[ CircleBox[{-0.052207940418221056, 2.4059871230478915}, 1.4933608557132085], "Sphere"], TagBox[ CircleBox[{-0.9385720711580429, 1.1496850229859559}, 0.9305819404561292], "Sphere"], TagBox[ CircleBox[{-2.3394132251383226, -1.3548018169591776}, 0.8109924421168143], "Sphere"], TagBox[ CircleBox[{-1.3422278318155638, 1.1348405679492741}, 0.7925246942519396], "Sphere"], TagBox[ CircleBox[{-1.278529002502375, 1.1212760734492782}, 0.8179520408751346], "Sphere"], TagBox[ CircleBox[{-0.588451005442746, 0.4065408032209779}, 0.747287335180727], "Sphere"], TagBox[ CircleBox[{0.7369459221228118, -2.421272699262612}, 1.032140255473358], "Sphere"], TagBox[ CircleBox[{-0.9409626799802693, -1.6141499488255069}, 0.8416032689117477], "Sphere"], TagBox[ CircleBox[{-0.6773559851510746, -1.148754936834413}, 0.9072470958435255], "Sphere"], TagBox[ CircleBox[{0.8376788309032492, 0.17770136013440424}, 0.9080896209671947], "Sphere"], TagBox[ CircleBox[{0.41131768519324147, 0.23753851678700783}, 0.8113689496807507], "Sphere"], TagBox[ CircleBox[{0.5096867734654861, -1.1464651772811367}, 0.6079160779151491], "Sphere"], TagBox[ CircleBox[{-0.25659846114386764, 0.07559526574629392}, 0.864993783390007], "Sphere"], TagBox[ CircleBox[{-0.5574737097611334, -0.9272423817243443}, 0.9483597357135011], "Sphere"], TagBox[ CircleBox[{-713.423893080168, 36.285570127648846}, 712.5524761169322], "Sphere"], TagBox[ CircleBox[{1.0597213295309955, -0.10531402981175188}, 0.8724614574501172], "Sphere"], TagBox[ CircleBox[{0.7229260472731615, -0.9685027346935383}, 0.5672333806068962], "Sphere"], TagBox[ CircleBox[{-1.5703807752347596, 0.3331940037410651}, 0.24324581820394692], "Sphere"], TagBox[ CircleBox[{-1.9791051717602783, 0.19705000007653667}, 0.34179044225929595], "Sphere"], TagBox[ CircleBox[{-1.7469035745599668, -0.41398955100876833}, 0.32398785970081717], "Sphere"], TagBox[ CircleBox[{-1.5561394469824472, -0.7932392828127741}, 0.27550747102896633], "Sphere"], TagBox[ CircleBox[{-0.6378283111847383, -1.02401098293617}, 0.9441479783203477], "Sphere"], TagBox[ CircleBox[{-0.5900679727191545, -0.9540911173719492}, 0.9530363238878322], "Sphere"], TagBox[ CircleBox[{-1.5218745691375282, -0.15020052070249873}, 0.28436643125528954], "Sphere"], TagBox[ CircleBox[{-1.0803969384724734, -0.5132567956971771}, 0.36885675845257776], "Sphere"], TagBox[ CircleBox[{-1.5367571260631057, -0.2476360642763783}, 0.30517643331445976], "Sphere"], TagBox[ CircleBox[{-1.2237224754286202, 0.07342304465837819}, 0.254178400216639], "Sphere"], TagBox[ CircleBox[{-1.3886099409205843, 0.042942401647963084}, 0.2686714747677706], "Sphere"]}}, PlotRange->2]], "Output", TaggingRules->{}, CellChangeTimes->{3.820150491189974*^9}, CellLabel->"Out[88]=", CellID->1566298390] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107568], Cell[TextData[{ "The power triangulation of a set of circles all having the same radii is \ equivalent to the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["DelaunayMesh", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/DelaunayMesh", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " of the circles' centers:" }], "Text", TaggingRules->{}, CellID->870912840], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"circles", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", "]"}], ",", "2"}], "]"}], ",", "0.4"}], "]"}], ",", RowBox[{"{", "10", "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"GraphicsRow", "[", RowBox[{"{", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", "circles", "]"}], ",", RowBox[{"DelaunayMesh", "[", RowBox[{"First", "/@", "circles"}], "]"}]}], "}"}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{3.8201499036447783`*^9}, CellID->300629894], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ FormBox[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = {MeshRegion, {}}}, TagBox[ GraphicsComplexBox[{{-1.0120483245308216`, 0.826338175973712}, {-1.3937859274489706`, 0.41691976975519784`}, {-0.2639889629557516, 1.0509118252356147`}, {0.42156677744473037`, 1.5004503129000923`}, { 1.4779336750078151`, -0.2500563433924299}, {-1.5618705299594609`, \ -0.5138001813038491}, {0.02229161145076356, -0.8149003267424594}, { 0.5483844087652253, -0.010455754872955561`}, {0.7548935113636499, 0.18557666492857303`}, {-0.40025728427119917`, 1.3399440713269122`}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{5, 8, 7}, {8, 1, 7}, {5, 4, 9}, {5, 9, 8}, {6, 7, 2}, {1, 2, 7}, {8, 3, 1}, {4, 3, 9}, {8, 9, 3}, {4, 10, 3}, {1, 3, 10}}], Annotation[#, "Geometry"]& ]}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}], TraditionalForm], {192., -145.425}, {Center, Center}, {360., 277.}], InsetBox[ FormBox[ GraphicsBox[ TagBox[ DynamicModuleBox[{Typeset`mesh = {MeshRegion, {}}}, TagBox[ GraphicsComplexBox[{{-1.0120483245308216`, 0.826338175973712}, {-1.3937859274489706`, 0.41691976975519784`}, {-0.2639889629557516, 1.0509118252356147`}, {0.42156677744473037`, 1.5004503129000923`}, { 1.4779336750078151`, -0.2500563433924299}, {-1.5618705299594609`, \ -0.5138001813038491}, {0.02229161145076356, -0.8149003267424594}, { 0.5483844087652253, -0.010455754872955561`}, {0.7548935113636499, 0.18557666492857303`}, {-0.40025728427119917`, 1.3399440713269122`}}, {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], TagBox[PolygonBox[{{8, 5, 9}, {5, 8, 7}, {8, 9, 3}, {9, 5, 4}, {1, 8, 3}, {3, 9, 4}, {1, 3, 10}, {3, 4, 10}, {7, 8, 1}, {7, 1, 2}, {7, 2, 6}}], Annotation[#, "Geometry"]& ]}], MouseAppearanceTag["LinkHand"]], AllowKernelInitialization->False], "MeshGraphics", AutoDelete->True, Editable->False, Selectable->False], DefaultBaseStyle->{ "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]}], TraditionalForm], {576., -145.425}, { Center, Center}, {360., 277.}]}, {}}, ImageSize->{ UpTo[600], Automatic}, PlotRange->{{0, 768.}, {-290.85, 0}}, PlotRangePadding->{6, 5}]], "Output", TaggingRules->{}, CellID->126740573] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107569], Cell[TextData[{ "The resource function ", ButtonBox["PowerDiagram", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ PowerDiagram/"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ PowerDiagram/"], " is the dual of ", Cell[BoxData[ StyleBox["PowerTriangulation", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.820149741679296*^9, 3.820149759323204*^9}}, CellID->712612153], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"circles", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "7"}], "/", "2"}], ",", RowBox[{"7", "/", "2"}]}], "}"}], ",", "2"}], "]"}], ",", RowBox[{"RandomReal", "[", RowBox[{"1", "/", "3"}], "]"}]}], "]"}], ",", RowBox[{"{", "30", "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"pt", "=", RowBox[{"HighlightMesh", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ 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.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"PowerTriangulation\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PowerTriangulation\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PowerTriangulation"], BoxID -> "PowerTriangulation", Selectable->False], "[", "circles", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"0", ",", "Black"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"1", ",", "Orange"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"2", ",", RowBox[{"Opacity", "[", "0.5", "]"}]}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pd", "=", RowBox[{"HighlightMesh", "[", RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "circles", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"1", ",", "Green"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"2", ",", RowBox[{"Opacity", "[", "0.2", "]"}]}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"Show", "[", RowBox[{"pt", ",", "pd", ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Brown", ",", "circles"}], "}"}], "]"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{3.820149722098371*^9}, CellLabel->"In[72]:=", CellID->546082169], Cell[BoxData[ GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJwB8QEO/iFib1JlAgAAAB4AAAACAAAA0HU2P5hD9r9QRgFiCUvmv/h5ERdX TAlAwvUvB2JwBMDgZnYYSkrgvwDVYX9SSdi/EByr07rr+j/IiVNITXL1vwgn H4QzYAZAABY9loKTlT+sWZPi2AUBQIQxW7n9tAvAKBVfTPaxBUCg/MrUK/D7 v/CJpy50bgfAADBELNR0nD8AplCYQ1qWPwiIlLCc2vs/sN3/0rCj67+QCxwa WLcCwEDQ7acxRsi/wJDq66tV0r8E6HyPwk8FwNApsr3t1ApAgMeKHXCd47+A IQPY51/6P8Tk3CACYQtAcOzK4QNY+L+EmEuspY8KQAC7Rvh+QKE/LOdSQ+yB AcA0ZHv7grgCwGyTLdmfBgXAHMjD5T9GBECYx7y9+JwAQODktNmLOvk/IC8P /pFj+D+wW+JDPGYIQP42Ce0jXgXAkHAONQZMCsAc+PF5TysCwFgPVHGbjPo/ 5O0hZvdUCUBwcAF51IAIQIDMdNFEY8q/kAVcW3w9AcC0iEUHlY8GQKCXC7ar 6u0/UKwqpvfaBsDgiQ3XwODxvxDtaY+DKgnASG0mpUKr/r9AJVSa7gHnvwBW TRN3WAbAgJ2h3RAICUDWVMRkF7EIwIAoSL3U+Ni/MASh6zjs8T8ke6bDPn8F QAKseYXcuAnAu2XoZQ== "], {Hue[0.6, 0.3, 0.95], EdgeForm[RGBColor[1, 0.5, 0]], FaceForm[Opacity[ 0.5]], TagBox[ PolygonBox[{{26, 8, 12}, {12, 19, 22}, {14, 22, 15}, {4, 6, 7}, {12, 8, 17}, {12, 17, 13}, {12, 9, 19}, {12, 13, 9}, {19, 9, 18}, {19, 18, 22}, {8, 1, 21}, {8, 21, 17}, {13, 17, 21}, {10, 1, 16}, {26, 20, 16}, {14, 2, 28}, {14, 7, 2}, {4, 23, 6}, {11, 23, 4}, {11, 3, 23}, { 10, 23, 1}, {1, 23, 3}, {4, 7, 5}, {11, 4, 5}, {11, 5, 18}, {14, 15, 5}, {14, 5, 7}, {13, 21, 29}, {1, 29, 21}, {1, 3, 29}, {11, 29, 3}, { 13, 29, 9}, {11, 18, 29}, {9, 29, 18}, {26, 16, 25}, {1, 25, 16}, {26, 25, 8}, {8, 25, 1}, {7, 6, 30}, {7, 30, 2}, {28, 30, 6}, {28, 2, 30}, { 10, 27, 23}, {6, 23, 27}, {20, 6, 27}, {10, 16, 27}, {20, 27, 16}, {15, 24, 5}, {18, 5, 24}, {15, 22, 24}, {22, 18, 24}}], Annotation[#, "Geometry"]& ], {GrayLevel[0], PointBox[{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}]}}], GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCwA2IQvYlzhW/Nj9/7bV52Fu4IfWAf+E5N3u8R44HCrgta yw892H9f4uX/XbP+738at2bvr4ff9u9oX90i0/1j/8cdf+I6/H7tjwyQzzob 9WL/mS7vj92h3/ZXCUTdSMp9tt9D6pIYW+/X/UdUCw9alX3dH5L7VKjx+m37 wx/27UpI/bl/vkXzvKeOj+wVvH9YuOQzObTX7T5tuZv5gN3Mto/qC1kdZPTV Szawsx3obLgjZiEq6CBk09//6QKC/y9X4ROrFNOBJDOxnhMRnA7Hsu48mH74 /3731Zf1Yq7f268QvLHCovq6faWgdOGTgIn7v0wLdhVf/3l/3vpbostbvtj/ VD17MvDSAfv5W3ebuuU8sM8u9pjgfujz/ivVc9YtKvpob++q2W86jeWAWFFA 27wLf+1X3faQ1PZiPiCS92bxg6vMDvIG9S36aq/3MxxvDuJoZnNYe93BSmHV 6/3fF20+9piTwyF4Yrylq8HL/cZr5tatPM3uYNuz0s/I9J79iuA+wVqPv/bL UhzZX7I/sLezeHj/b+gX+y/2F9mCfp+zl1HjTP19/rZ92OtJ8icdBQ/IrWHa vzXwqb2SqN9R+yVcB/SK5Hx+iTE4RBdvyZLeyHzg1aN5qn6r2BxCoeqN3ucZ zYsVOPDwgprYobon+2H8Bc81+n5//Gb/mLlM201Q4EDJlX1skWe/2U+arW42 Le/B/tSq6VYnLfgdIs53Pl3i8mT/kc+qZUwLeB22SjmKcnld2b/KrijDtP6H /V57y34er/f2Z4Tkyttrn9oH50xR9sj5aP8gSWs7fxODgxZj7DTNzh/7Rbwn t2//z3rAJlmNf1bJvf0mf1vfLfFhPsD4dsqHHTfe2//6EXLrYNUje5j75ux+ VhSuLehgCOW/++Fc+VGL3eHLus3rO40+789YpD7zkw6Hw4b25cYneO/vh6l/ 9/CC/Br27/uVFFJtf11gdrDzvTeZS+/7/vxd89ss7nywh6WXWWpFZ2e1PdsP 48efZQ/w4/9sv3yR/5+Py9gOMJZr8x2vYDkQzCdlsKnr1/41V2+25jtwHkjz FZz6eSLzAebTKarrGX7vN3B56pNzncNBra8recGS//b2jHfePjrM5GDQEWwm 6M7ioLbKRDJnOZPDAqj7YP5Djx8vJRb389/YD1wQ0l2549bX/TB5mPs8IkKZ e2f/se+C8uegmWcSsf8mU93H/VvVplw858LpEALVD1MPMw8AuF7eWw== "], {Hue[0.6, 0.3, 0.95], EdgeForm[RGBColor[0, 1, 0]], FaceForm[Opacity[0.2]], TagBox[ PolygonBox[{{14, 7, 6, 15}, {4, 38, 39, 5}, {23, 22, 47, 48}, {49, 51, 60, 56}, {10, 61, 62, 11}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{9, 10, 11, 12, 13}, {16, 17, 18, 19, 20}, {2, 1, 32, 31, 30}, {33, 34, 35, 36, 37}, {34, 43, 45, 46, 35}, {13, 12, 47, 22, 21}, {45, 43, 42, 31, 32}, {37, 53, 54, 44, 33}, {57, 50, 49, 56, 55}, {46, 45, 32, 1, 8}, {54, 53, 52, 58, 59}, {24, 23, 48, 58, 52}, { 51, 3, 2, 30, 60}, {29, 61, 10, 9, 28}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{29, 28, 19, 18, 27, 26}, {19, 28, 9, 13, 21, 20}, {14, 15, 17, 16, 25, 40}, {41, 42, 43, 34, 33, 44}, {49, 50, 38, 4, 3, 51}, {26, 27, 39, 38, 50, 57}}], Annotation[#, "Geometry"]& ], TagBox[ PolygonBox[{{16, 20, 21, 22, 23, 24, 25}, {25, 24, 52, 53, 37, 36, 40}, {39, 27, 18, 17, 15, 6, 5}, {35, 46, 8, 7, 14, 40, 36}}], Annotation[#, "Geometry"]& ], TagBox[PolygonBox[{{1, 2, 3, 4, 5, 6, 7, 8}}], Annotation[#, "Geometry"]& ]}], {RGBColor[0.6, 0.4, 0.2], CircleBox[{-1.3915026158568828, -0.6966597475204228}, 0.08920935570293981], CircleBox[{3.1622754862030398, -2.5548744737158993}, 0.24920426793072065], CircleBox[{-0.5090685346396775, -0.37947523536361416}, 0.28435792451985503], CircleBox[{1.6825512188240772, -1.3404057336089057}, 0.14232063829812996], CircleBox[{2.7969732591635683, 0.021070518894040546}, 0.002827634291512171], CircleBox[{2.12785508167436, -3.46337456521559}, 0.1336550914673642], CircleBox[{2.7118955580250663, -1.7461355507109957}, 0.0559017394579539], CircleBox[{-2.928932537544135, 0.02778941650562672}, 0.22536206039607148], CircleBox[{0.02182870499760803, 1.7408720872558678}, 0.2890425669210008], CircleBox[{-0.863731777294495, -2.3395235099610048}, 0.15034581644607753], CircleBox[{-0.18964214992195316, -0.28647897757242546}, 0.18804611247729835], CircleBox[{-2.663945313453043, 3.3539690799709447}, 0.22114256789870018], CircleBox[{-0.6129684998506804, 1.6484144628503543}, 0.1614444261718384], CircleBox[{3.422367340794695, -1.5214880771661932}, 0.13114030495737833], CircleBox[{3.320140214974403, 0.033695190245785156}, 0.2771126066914306], CircleBox[{-2.188438917129039, -2.3400935790091584}, 0.050264277287357106], CircleBox[{-2.628234574035039, 2.5343015623448206}, 0.270499857857704], CircleBox[{2.0766463111148816, 1.57679352800033}, 0.23064239319507646], CircleBox[{1.5243091510955722, 3.049919634194758}, 0.05740437689489347], CircleBox[{-2.6709669607579363, -3.287121214392819}, 0.31152039511449287], CircleBox[{-2.2711476828544743, 1.6593279292000798}, 0.1303891674853806], CircleBox[{3.166487501058997, 3.062905259472295}, 0.12659308801236996], CircleBox[{-0.20615444400172933, -2.155022348161488}, 0.0764885840851191], CircleBox[{2.820108467874059, 0.9348963313648149}, 0.0572095333976777], CircleBox[{-2.8569176656506343, -1.1173714066031764}, 0.06529944395048992], CircleBox[{-3.145758743686777, -1.9168116046119668}, 0.22845091204122087], CircleBox[{-0.7189858450157445, -2.793195868299108}, 0.26635365484494306], CircleBox[{3.1289384188600593, -3.08647040104061}, 0.3221566046546109], CircleBox[{-0.39018743977124615, 1.1201714710480353}, 0.31446103839637235], CircleBox[{2.687131432073686, -3.2152643611675567}, 0.15973055361896799]}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.820149734610404*^9}, CellLabel->"Out[75]=", CellID->1506910374] }, Open ]] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"PowerTriangulation | Example Notebook", Visible->False, FrontEndVersion->"12.2 for Mac OS X x86 (64-bit) (December 12, 2020)", 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 -> "12.2 for Mac OS X x86 (64-bit) (December 12, 2020)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[631, 23, 168, 7, 70, "Subsection",ExpressionUUID->"2ef7aa9a-ff54-4f30-82d0-59e06206284c", CellID->904125756], Cell[802, 32, 108, 2, 70, "Text",ExpressionUUID->"7d5afda3-d1cf-457a-9172-bcfaa6ccf656", CellID->439112949], Cell[CellGroupData[{ Cell[935, 38, 2337, 64, 70, "Input",ExpressionUUID->"38c2bd3d-c0b2-4e4d-b666-2c2a1df1073e", CellID->891070020], Cell[3275, 104, 1226, 29, 70, "Output",ExpressionUUID->"7201d025-2e10-406b-91c7-b7298f267e41", CellID->710592918] }, Open ]], Cell[4516, 136, 112, 2, 70, "Text",ExpressionUUID->"8294f0a1-f7c9-45fe-8391-ecd525856777", CellID->304703923], Cell[CellGroupData[{ Cell[4653, 142, 233, 7, 70, "Input",ExpressionUUID->"29ab02fa-594e-447e-aa64-9e6950866f56", CellID->547382694], Cell[4889, 151, 1736, 34, 70, "Output",ExpressionUUID->"478fd656-aa13-4521-ba71-186961dffac8", CellID->630751238] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6674, 191, 159, 7, 70, "Subsection",ExpressionUUID->"df91cf1d-686f-4767-a4fe-48e11f33d532", CellID->204653245], Cell[6836, 200, 104, 2, 70, "Text",ExpressionUUID->"37205cf3-c3af-4317-8f8b-3304935d8f18", CellID->581757957], Cell[CellGroupData[{ Cell[6965, 206, 2398, 68, 70, "Input",ExpressionUUID->"9115ed58-6029-4ba1-8abf-96be88aa3550", CellID->212785713], Cell[9366, 276, 1538, 35, 70, "Output",ExpressionUUID->"9e30e857-91df-4305-ade6-a097c06fa86e", CellID->207304886] }, Open ]], Cell[10919, 314, 72, 2, 70, "Text",ExpressionUUID->"d7f36787-9e6b-4755-a8e1-1bef892ad47b", CellID->323700837], Cell[CellGroupData[{ Cell[11016, 320, 241, 7, 70, "Input",ExpressionUUID->"47e7b569-8c46-4d46-a6d3-819ca2574957", CellID->788211868], Cell[11260, 329, 186, 6, 70, "Output",ExpressionUUID->"3f775fb9-185b-4319-9f3c-aae6ae918ae7", CellID->344451069] }, Open ]], Cell[11461, 338, 96, 2, 70, "Text",ExpressionUUID->"be5ca885-81ba-4827-ba88-dadedc84c2a3", CellID->46888364], Cell[CellGroupData[{ Cell[11582, 344, 265, 8, 70, "Input",ExpressionUUID->"1031d906-3dd7-4b52-9f97-a1c4ec1feb1b", CellID->829957990], Cell[11850, 354, 179, 6, 70, "Output",ExpressionUUID->"fdf406ce-149b-4592-9cbf-24aeb25363b0", CellID->2087716217] }, Open ]], Cell[12044, 363, 88, 2, 70, "Text",ExpressionUUID->"a64f61e2-e7b3-4ac5-bba0-90f4601590d0", CellID->390518799], Cell[CellGroupData[{ Cell[12157, 369, 251, 8, 70, "Input",ExpressionUUID->"1cf419eb-2507-4334-acb7-4429a8f3fbe3", CellID->553709412], Cell[12411, 379, 492, 16, 70, "Output",ExpressionUUID->"3185e382-4da2-42c0-aa5e-e7a5449437c5", CellID->1713865693] }, Open ]], Cell[12918, 398, 82, 2, 70, "Text",ExpressionUUID->"fe6ba99b-1ad0-409c-b0dc-bfb9da0e185d", CellID->762351292], Cell[CellGroupData[{ Cell[13025, 404, 300, 9, 70, "Input",ExpressionUUID->"79525f0a-a02f-4a01-8ecd-5486c62e2025", CellID->856185380], Cell[13328, 415, 345, 10, 70, "Output",ExpressionUUID->"b5b6d4da-ffee-4f3d-a19b-5b3436e87440", CellID->339901356] }, Open ]], Cell[13688, 428, 136, 4, 70, "Text",ExpressionUUID->"ab4500bc-799e-4255-a02f-e24e7eba7ac4", CellID->728946748], Cell[CellGroupData[{ Cell[13849, 436, 219, 7, 70, "Input",ExpressionUUID->"fac55785-b5ea-4629-a7f8-3faae7130028", CellID->55554092], Cell[14071, 445, 137, 4, 70, "Output",ExpressionUUID->"965b9818-7599-47ee-8dc2-05dddbea793f", CellID->1320506357] }, Open ]], Cell[CellGroupData[{ Cell[14245, 454, 406, 13, 70, "Input",ExpressionUUID->"0694c2b5-b4b8-4a51-8b80-ddbb02f57dae", CellID->435246827], Cell[14654, 469, 284, 9, 70, "Output",ExpressionUUID->"36db19ff-5d00-44b3-b013-70447d6e2147", CellID->733525804] }, Open ]], Cell[CellGroupData[{ Cell[14975, 483, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"5e0bb061-1300-474d-96f3-9fadd7869cdf", CellID->14107562], Cell[15121, 489, 1082, 36, 70, "Text",ExpressionUUID->"aa4a5cb8-eb75-4965-9c8d-ce869bc6a67e", CellID->40958163], Cell[CellGroupData[{ Cell[16228, 529, 2349, 66, 70, "Input",ExpressionUUID->"502bd384-4d41-425d-a1e7-695bf2ce65bc", CellID->426191955], Cell[18580, 597, 1218, 30, 70, "Output",ExpressionUUID->"f59b391e-cea7-44b3-9e51-e81c4e25f3bd", CellID->264053785] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[19859, 634, 162, 7, 70, "Subsection",ExpressionUUID->"ef7e9c12-2d97-4f7e-af7d-cbca04250076", CellID->890561554], Cell[CellGroupData[{ Cell[20046, 645, 174, 7, 70, "Subsubsection",ExpressionUUID->"d650370d-76a3-4a10-ac8a-f6c05ffdd72e", CellID->261933308], Cell[20223, 654, 748, 23, 70, "Text",ExpressionUUID->"89eb376f-d807-4874-8afc-f272bcd6dc0f", CellID->975574379], Cell[CellGroupData[{ Cell[20996, 681, 2290, 67, 70, "Input",ExpressionUUID->"5421bf7d-3664-4024-86fc-452365922e8d", CellID->429177435], Cell[23289, 750, 2353, 50, 70, "Output",ExpressionUUID->"7430c261-7264-48bc-a896-0f4913b500cf", CellID->910785660] }, Open ]], Cell[CellGroupData[{ Cell[25679, 805, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"d9318025-5ccb-496c-8b92-9a6a5e064f4e", CellID->14107563], Cell[25825, 811, 114, 2, 70, "Text",ExpressionUUID->"682bb10a-f202-471c-824b-1ec06567b16f", CellID->382797188], Cell[CellGroupData[{ Cell[25964, 817, 2409, 71, 70, "Input",ExpressionUUID->"dc2bcd7b-28b4-4470-8928-2e7557050dc0", CellID->762904064], Cell[28376, 890, 1262, 30, 70, "Output",ExpressionUUID->"ae6d7408-65a0-4a90-a556-941f78235d03", CellID->431606144] }, Open ]], Cell[29653, 923, 77, 2, 70, "Text",ExpressionUUID->"9f3d6bd5-ad1a-4ec0-9609-855cf7556aef", CellID->159251512], Cell[CellGroupData[{ Cell[29755, 929, 2484, 73, 70, "Input",ExpressionUUID->"e6afd140-5432-4dd0-b227-b5ec1fb4b668", CellID->96643868], Cell[32242, 1004, 1261, 30, 70, "Output",ExpressionUUID->"d8968f17-e118-4d0f-8ba6-f201d468aeb8", CellID->98488187] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[33564, 1041, 170, 7, 70, "Subsubsection",ExpressionUUID->"7c6627ba-fed8-4366-b205-77ad3ac44c74", CellID->638605723], Cell[33737, 1050, 722, 23, 70, "Text",ExpressionUUID->"38939a8f-a873-4547-9cd2-58cc87c4fd68", CellID->828400937], Cell[CellGroupData[{ Cell[34484, 1077, 2110, 60, 70, "Input",ExpressionUUID->"b534907e-a154-4349-83bf-0631d558ace7", CellID->85905972], Cell[36597, 1139, 1805, 44, 70, "Output",ExpressionUUID->"2a974701-a1a1-40c1-b65e-a3b93e1cd943", CellID->310615575] }, Open ]], Cell[CellGroupData[{ Cell[38439, 1188, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"d4f3a64e-28f9-4fe5-b395-24f3223ce9af", CellID->14107564], Cell[38585, 1194, 110, 2, 70, "Text",ExpressionUUID->"d3694429-368a-426e-998e-965aa8f8eb24", CellID->413770231], Cell[CellGroupData[{ Cell[38720, 1200, 2292, 67, 70, "Input",ExpressionUUID->"a14bcc9b-ff74-405c-b902-676fbd53bf2a", CellID->616070693], Cell[41015, 1269, 1343, 32, 70, "Output",ExpressionUUID->"8fb9fd18-dfa5-4434-b198-65a9afee3c9e", CellID->743110371] }, Open ]], Cell[42373, 1304, 77, 2, 70, "Text",ExpressionUUID->"bd1fcabf-c23d-4ea1-b985-9971f39a1f48", CellID->159251513], Cell[CellGroupData[{ Cell[42475, 1310, 2371, 69, 70, "Input",ExpressionUUID->"ff3f38e8-31d1-4e5b-9553-add7a6c906f2", CellID->205404294], Cell[44849, 1381, 1343, 32, 70, "Output",ExpressionUUID->"77bd9a5c-5c0f-4cc6-83a1-170aa67e3413", CellID->220656441] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[46253, 1420, 171, 7, 70, "Subsubsection",ExpressionUUID->"573ba210-8003-417a-9def-8e8e78865059", CellID->160491569], Cell[46427, 1429, 735, 23, 70, "Text",ExpressionUUID->"4f3d8604-c3a2-4e69-a8da-a45889555d99", CellID->109652449], Cell[CellGroupData[{ Cell[47187, 1456, 2577, 76, 70, "Input",ExpressionUUID->"f091b810-b7bb-4b2b-a37c-bc2475c124f7", CellID->790128220], Cell[49767, 1534, 995, 26, 70, "Output",ExpressionUUID->"03126588-5e4e-4488-bcf2-5f1bcc6340fb", CellID->51956961] }, Open ]], Cell[50777, 1563, 586, 20, 70, "Text",ExpressionUUID->"391b371e-c83f-4568-adde-14d684a4787b", CellID->337875992], Cell[CellGroupData[{ Cell[51388, 1587, 2695, 78, 70, "Input",ExpressionUUID->"fb6c8de8-00cc-4dd6-81e2-3a16b471d0be", CellID->32187217], Cell[54086, 1667, 1926, 46, 70, "Output",ExpressionUUID->"a753326b-4893-4978-89d8-a23504410ad4", CellID->105177211] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[56061, 1719, 170, 7, 70, "Subsubsection",ExpressionUUID->"1e4f1668-206e-4d08-a961-138c8ed96e46", CellID->511850935], Cell[56234, 1728, 735, 23, 70, "Text",ExpressionUUID->"385391b7-a931-4256-89ec-90c8e1c88792", CellID->748642435], Cell[CellGroupData[{ Cell[56994, 1755, 2286, 67, 70, "Input",ExpressionUUID->"2657a3b1-3743-4b7b-997d-eefd7e0acbe7", CellID->233533510], Cell[59283, 1824, 1841, 38, 70, "Output",ExpressionUUID->"3277eec1-f3fb-4d5d-8c34-8f8e8c551229", CellID->226768500] }, Open ]], Cell[CellGroupData[{ Cell[61161, 1867, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"efbbe70c-32a5-46d4-8370-079a9f3c2e7c", CellID->14107565], Cell[61307, 1873, 114, 2, 70, "Text",ExpressionUUID->"188c7163-cfb5-4620-92db-bc413789eca5", CellID->382797189], Cell[CellGroupData[{ Cell[61446, 1879, 2405, 71, 70, "Input",ExpressionUUID->"bf09371c-79f3-4347-8105-1ad15b171856", CellID->978301941], Cell[63854, 1952, 1250, 30, 70, "Output",ExpressionUUID->"6e448fe3-265f-4f0c-aaea-8ab1e82c37ac", CellID->122088221] }, Open ]], Cell[65119, 1985, 77, 2, 70, "Text",ExpressionUUID->"5f453467-e13a-4185-afe4-444b2392888c", CellID->159251514], Cell[CellGroupData[{ Cell[65221, 1991, 2481, 73, 70, "Input",ExpressionUUID->"a6eee2cd-070e-4718-8782-61650ec8cd7a", CellID->319959900], Cell[67705, 2066, 1240, 29, 70, "Output",ExpressionUUID->"78feb6fe-ba17-417b-8c92-78d2ad48d8da", CellID->565202560] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[69006, 2102, 166, 7, 70, "Subsubsection",ExpressionUUID->"be58c928-0d22-4134-8a53-9510ff79c2e4", CellID->290749303], Cell[69175, 2111, 96, 2, 70, "Text",ExpressionUUID->"4e0848d8-9f24-4a74-a9af-caaa3c3babb6", CellID->370165313], Cell[CellGroupData[{ Cell[69296, 2117, 2054, 58, 70, "Input",ExpressionUUID->"e3a29c61-c314-4328-abe3-387bd73a93a0", CellID->187776206], Cell[71353, 2177, 1043, 27, 70, "Output",ExpressionUUID->"a694c7ae-1502-4bb4-ae72-a5f854627688", CellID->232019161] }, Open ]], Cell[CellGroupData[{ Cell[72433, 2209, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"88b8ef6c-7fd5-4c4c-9e34-c9f0c2156aae", CellID->14107566], Cell[72579, 2215, 87, 2, 70, "Text",ExpressionUUID->"3dca9ac2-ff5c-4e39-8165-3c850ae2d3a4", CellID->392919982], Cell[CellGroupData[{ Cell[72691, 2221, 2051, 58, 70, "Input",ExpressionUUID->"73b46efe-c5a6-44ad-84b8-377af431e063", CellID->213816536], Cell[74745, 2281, 1937, 38, 70, "Output",ExpressionUUID->"40574f71-bd0d-4f56-bee9-33a925e0b0a7", CellID->379487090] }, Open ]] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[76755, 2327, 178, 7, 70, "Subsection",ExpressionUUID->"3cc7c7cc-cedd-4004-af7b-f726b961d7a1", CellID->232113220], Cell[76936, 2336, 732, 24, 70, "Text",ExpressionUUID->"786b080c-b846-435a-9efe-17138e2d1cda", CellID->804695129], Cell[CellGroupData[{ Cell[77693, 2364, 2231, 63, 70, "Input",ExpressionUUID->"0d7d551c-4857-4f58-bb0e-9f2f6e75e64a", CellID->891070021], Cell[79927, 2429, 1226, 29, 70, "Output",ExpressionUUID->"9f403b0e-f5c6-4d2c-a4a4-9da24d00964d", CellID->710592919] }, Open ]], Cell[CellGroupData[{ Cell[81190, 2463, 193, 6, 70, "Input",ExpressionUUID->"0f201750-9535-45d4-8693-a2e7b15a060d", CellID->201446199], Cell[81386, 2471, 115, 4, 70, "Output",ExpressionUUID->"5da45c74-6306-4e51-93d1-f248424ff6c3", CellID->373997084] }, Open ]], Cell[CellGroupData[{ Cell[81538, 2480, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"03e68c5e-664c-41c6-a628-558f8e78a8e4", CellID->14107567], Cell[81684, 2486, 160, 5, 70, "Text",ExpressionUUID->"ce8b3014-3648-4801-b7d3-9aa675183918", CellID->512664465], Cell[CellGroupData[{ Cell[81869, 2495, 2317, 64, 70, "Input",ExpressionUUID->"58c3b722-58ef-4592-a07a-24d7fed642e1", CellID->238406357], Cell[84189, 2561, 859, 22, 70, "Output",ExpressionUUID->"7bb4865b-4eb2-4068-aaca-92b63c8d11d3", CellID->185714330] }, Open ]], Cell[85063, 2586, 92, 2, 70, "Text",ExpressionUUID->"c132e72b-3c1f-4a07-ac3e-dd6c0f2f9d76", CellID->847955680], Cell[85158, 2590, 426, 13, 70, "Input",ExpressionUUID->"0bc3db2e-52c9-4f45-9840-12e3c316d49b", CellID->180066730], Cell[85587, 2605, 87, 2, 70, "Text",ExpressionUUID->"834ff2e2-cbe1-40d3-93d6-2ede6bd5a02e", CellID->233895802], Cell[CellGroupData[{ Cell[85699, 2611, 477, 14, 70, "Input",ExpressionUUID->"b3e75de5-b000-49f5-8c40-43b0d9ce1428", CellID->178948899], Cell[86179, 2627, 4487, 127, 70, "Output",ExpressionUUID->"254e4271-8638-4b32-868f-8b0fb502c581", CellID->1566298390] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[90715, 2760, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"3154d36d-2bc3-49da-b5e7-9c8cc19ffd16", CellID->14107568], Cell[90861, 2766, 677, 21, 70, "Text",ExpressionUUID->"fa018331-9ee9-489f-a1ce-ad39c9c0c239", CellID->870912840], Cell[CellGroupData[{ Cell[91563, 2791, 2412, 65, 70, "Input",ExpressionUUID->"41829465-9fdc-4ed1-a37f-a32bb20be3cd", CellID->300629894], Cell[93978, 2858, 3010, 71, 70, "Output",ExpressionUUID->"66d28414-7a25-4b7e-8bb2-2f85bfdeced1", CellID->126740573] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[97037, 2935, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"ca1253ef-3202-4749-a745-df3403e998e7", CellID->14107569], Cell[97183, 2941, 582, 18, 70, "Text",ExpressionUUID->"755bc9e5-f4d0-4961-96ff-532143d1aea2", CellID->712612153], Cell[CellGroupData[{ Cell[97790, 2963, 3583, 102, 70, "Input",ExpressionUUID->"d118ba4a-8d5b-4393-8b9b-981a711edcda", CellID->546082169], Cell[101376, 3067, 6908, 122, 70, "Output",ExpressionUUID->"cfa4057e-e698-4be4-8b8a-403ffb733e4f", CellID->1506910374] }, Open ]] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)