(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 9506, 248] NotebookOptionsPosition[ 9085, 230] NotebookOutlinePosition[ 9490, 246] CellTagsIndexPosition[ 9447, 243] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Graphical presentation of the partition of the data set \ \[ScriptCapitalA] \[Subset] ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ SuperscriptBox["\[DoubleStruckCapitalR]", "2"]], FontColor->RGBColor[1, 0, 0], ExpressionUUID -> "aff31911-581d-459f-b462-b0a75f589d32"] }], "Subsubsection", CellChangeTimes->{{3.73112424028771*^9, 3.7311242546173754`*^9}, { 3.8106047392458076`*^9, 3.8106047456549196`*^9}, {3.820818867452566*^9, 3.820818868566964*^9}, {3.82082069093102*^9, 3.8208206918250113`*^9}, { 3.820986097485687*^9, 3.8209861072255583`*^9}, 3.820986180123647*^9, 3.820986245713332*^9}, ExpressionUUID -> "e66d6e93-d6b2-4c5b-9154-8959b5b959a5"], Cell[TextData[{ StyleBox["Input:", FontColor->RGBColor[1, 0, 0]], StyleBox[" partition \[CapitalPi];\n", FontColor->RGBColor[0, 0, 1]], StyleBox["Output:", FontColor->RGBColor[1, 0, 0]], StyleBox[" graphical presentation;\n", FontColor->RGBColor[0, 0, 1]], StyleBox["Submodules:", FontColor->RGBColor[1, 0, 0]], StyleBox[" Needs[\"ComputationalGeometry`\"];\n", FontColor->RGBColor[0, 0, 1]] }], "Text", CellChangeTimes->{{3.7311239388490767`*^9, 3.7311241887665453`*^9}, { 3.731124262852821*^9, 3.7311242818390455`*^9}, {3.731124334688675*^9, 3.7311243931480875`*^9}, {3.731124464437002*^9, 3.7311245820590296`*^9}, { 3.731124626641944*^9, 3.7311246685996666`*^9}, 3.73112478187739*^9, 3.7311249716632557`*^9, 3.731125008229858*^9, {3.731131363164089*^9, 3.7311315307912507`*^9}, {3.8106047626816826`*^9, 3.810604763185858*^9}, { 3.810606445967278*^9, 3.810606530225013*^9}, {3.810606641466092*^9, 3.810606684833495*^9}, {3.810606749868683*^9, 3.810606752984932*^9}, { 3.8106068274532113`*^9, 3.810606866094061*^9}, {3.810606901083395*^9, 3.810607019637113*^9}, {3.810607054277118*^9, 3.8106071829172134`*^9}, { 3.8106072199097958`*^9, 3.8106072546405845`*^9}, 3.8106074697262*^9, { 3.8131282699269085`*^9, 3.813128270182798*^9}, {3.8131283217992973`*^9, 3.8131283433443713`*^9}, {3.8131285602764816`*^9, 3.813128631734671*^9}, { 3.820818897325577*^9, 3.8208189003135476`*^9}, {3.820818938286849*^9, 3.820818943227772*^9}, {3.820819014918785*^9, 3.8208190662244744`*^9}, { 3.82082070060423*^9, 3.8208207157889795`*^9}, {3.820986134898595*^9, 3.820986174338461*^9}, 3.8209862971146383`*^9, {3.8223091505947104`*^9, 3.822309155531849*^9}, 3.8223092171804256`*^9}, FontSize->12, ExpressionUUID -> "a16ffa28-7742-4592-bcc2-c1a697822085"], Cell[BoxData[ RowBox[{ RowBox[{"Figure2", "[", "PI_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"k", "=", RowBox[{"Length", "[", "PI", "]"}]}], ",", "centri", ",", "tab", ",", "imin"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"A", "=", RowBox[{"Flatten", "[", RowBox[{"PI", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Mean", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AG", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Floor", "[", RowBox[{"Min", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"Ceiling", "[", RowBox[{"Max", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Floor", "[", RowBox[{"Min", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"Ceiling", "[", RowBox[{"Max", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"slc", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", "c", "}"}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[SixPointedStar]\>\"", ",", "20"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", ".8", "]"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"PIP", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Union", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"konv", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ConvexHull", "[", RowBox[{"PIP", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"slKonv", "=", RowBox[{"Graphics", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".5", "]"}], ",", RowBox[{"Hue", "[", RowBox[{"j", "/", RowBox[{"(", RowBox[{"k", "+", "2"}], ")"}]}], "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{"Thin", ",", RowBox[{"Hue", "[", RowBox[{"j", "/", "k"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"PIP", "[", RowBox[{"[", RowBox[{"j", ",", RowBox[{"konv", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"slVoronoi", "=", RowBox[{"DiagramPlot", "[", RowBox[{"c", ",", RowBox[{"LabelPoints", "\[Rule]", "False"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"slpod1", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", RowBox[{ RowBox[{".3", "i"}], "+", ".1"}], "]"}], ",", RowBox[{"PointSize", "[", ".04", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Show", "[", RowBox[{"slpod1", ",", "slc", ",", "slVoronoi", ",", "slKonv", ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "150"}]}], "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.7639032634070635`*^9, 3.7639033942201395`*^9}, { 3.7639036385381155`*^9, 3.7639037206679444`*^9}, {3.763903911451414*^9, 3.7639039168719935`*^9}, {3.7639039652042303`*^9, 3.763903972046575*^9}, { 3.7639040127868385`*^9, 3.763904020597707*^9}, {3.763904133180565*^9, 3.7639041672977247`*^9}, {3.76390464001499*^9, 3.763904705827661*^9}, { 3.7639916145655313`*^9, 3.7639916159987483`*^9}, 3.8070805279895973`*^9, { 3.810700046644014*^9, 3.810700046955244*^9}, 3.810700090564697*^9, { 3.8107002026738586`*^9, 3.810700303349212*^9}, {3.810700353381591*^9, 3.8107003827356176`*^9}, 3.820986268511505*^9, 3.8209863146509695`*^9}, ExpressionUUID -> "e8e0e091-4b90-4bc8-ba01-3b75571d60ed"] }, Open ]] }, WindowSize->{754, 463}, WindowMargins->{{0, Automatic}, {Automatic, 2}}, TaggingRules->{"SlideshowSettings" -> {"Toolbar" -> True}}, FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (September 21, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 704, 14, 39, "Subsubsection"], Cell[1287, 38, 1815, 33, 83, "Text"], Cell[3105, 73, 5964, 154, 373, "Input"] }, Open ]] } ] *)