(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 396514, 8452] NotebookOptionsPosition[ 387599, 8325] NotebookOutlinePosition[ 387945, 8340] CellTagsIndexPosition[ 387902, 8337] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ "Grayscale image segmentation: 4 clusters\n", StyleBox["Important: possible input JPG or BMP image\n", FontColor->RGBColor[0, 0, 1]], StyleBox["13-3-2022; 29-1-2023; 7-2-2023", FontSize->18, FontColor->RGBColor[0, 0, 1]] }], "Section", CellChangeTimes->{{3.8560624122919197`*^9, 3.8560624380099173`*^9}, { 3.856062560723629*^9, 3.856062567559482*^9}, {3.8840011592473383`*^9, 3.8840012192753763`*^9}, {3.884001281525323*^9, 3.8840013221439247`*^9}, { 3.8847493711149426`*^9, 3.884749379395727*^9}},ExpressionUUID->"145811fe-b433-429d-809b-\ 5f45612b6804"], Cell[CellGroupData[{ Cell["Modules", "Section", CellChangeTimes->{{3.8270222914988923`*^9, 3.827022298866822*^9}, { 3.884749216651493*^9, 3.8847492176417828`*^9}},ExpressionUUID->"82b4b094-c2aa-4eef-a099-\ 567a5e43b97b"], Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{3.8560947958958244`*^9}, CellLabel->"In[8]:=",ExpressionUUID->"04530f3f-1774-40c4-ac1e-25fe71de6d7a"], Cell[CellGroupData[{ Cell["SymDIRECT", "Subsection", CellChangeTimes->{{3.5773947665259075`*^9, 3.577394787224091*^9}, 3.680752863065717*^9},ExpressionUUID->"d8542b52-5ec4-4e56-ad9a-\ 8fdfd5d4fb51"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "For", " ", "a", " ", "given", " ", "center", " ", "and", " ", "length", " ", "of", " ", "the", " ", "side", " ", "of", " ", "the", " ", "hyperrectangle", " ", "the", " ", "function", " ", "test", " ", RowBox[{"returns", ":", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ "1", " ", "If", " ", "the", " ", "whole", " ", "hyperrectangle", " ", "is", " ", "located", " ", "in", " ", "the", " ", RowBox[{"region", " ", "\\", "Delta"}], "\[IndentingNewLine]", "0", " ", "If", " ", "a", " ", "hyperrectangle", " ", "lies", " ", "in", " ", "the", " ", RowBox[{"region", " ", "\\", "Delta"}], " ", "only", " ", "partially"}], "\[IndentingNewLine]", "-", RowBox[{ "1", " ", "If", " ", "a", " ", "hyperrectangle", " ", "appears", " ", "outside", " ", "the", " ", RowBox[{"region", " ", "\\", "Delta"}], " ", RowBox[{"(", RowBox[{ "or", " ", "if", " ", "a", " ", "hyperrectangle", " ", "has", " ", "only", " ", "one", " ", "point", " ", RowBox[{"in", " ", "\\", "Delta"}]}], ")"}]}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"test", "[", RowBox[{"c_", ",", "dd_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n", "=", RowBox[{"Length", "[", "c", "]"}]}], ",", "S", ",", RowBox[{"d", "=", RowBox[{"dd", "/", "2"}]}], ",", RowBox[{"unutra", "=", "1"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"S", "=", RowBox[{"Table", "[", RowBox[{"1", ",", RowBox[{"{", "n", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"d", "[", RowBox[{"[", "i", "]"}], "]"}]}], "<", RowBox[{ RowBox[{"c", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "+", RowBox[{"d", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"unutra", "=", "0"}], ";", RowBox[{"Break", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"unutra", "==", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "+", RowBox[{ RowBox[{"S", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{"d", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "<", RowBox[{ RowBox[{"c", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "+", RowBox[{"d", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "+", RowBox[{ RowBox[{"S", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{"d", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ">", RowBox[{ RowBox[{"c", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "-", RowBox[{"d", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"S", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{"-", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"unutra", "=", RowBox[{"-", "1"}]}], ";", RowBox[{"Break", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "unutra", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "\n", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Options", "[", "SymDIRECT", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"Eps", "\[Rule]", "0"}], ",", RowBox[{"MaxIter", "\[Rule]", "20"}], ",", RowBox[{"DMin", "\[Rule]", RowBox[{"10.", "^", RowBox[{"(", RowBox[{"-", "2"}], ")"}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SymDIRECT", "[", RowBox[{"f_", ",", "dom_", ",", RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "n", ",", "ff", ",", "c", ",", "d", ",", "dmax", ",", "fc", ",", "dmaxrazni", ",", "pot0", ",", "pot1", ",", "pot2", ",", "temp", ",", "temp2", ",", "ind", ",", "novic", ",", "novid", ",", "novifc", ",", "noviunutra", ",", "red", ",", "TMin", ",", "dtest", ",", RowBox[{"anim", "=", RowBox[{"{", "}"}]}], ",", "unutra", ",", "brisi"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dtest", "=", RowBox[{"N", "[", RowBox[{ RowBox[{"OptionValue", "[", "DMin", "]"}], "/", RowBox[{"Max", "[", RowBox[{"(", RowBox[{ RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ")"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"SymDIRECT", "::", "maxiter"}], "=", "\"\\""}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"Length", "[", "dom", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"iter", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "scaling", " ", "the", " ", "function", " ", "on", " ", "the", " ", "hypercube", " ", "with", " ", "length", " ", "of", " ", "the", " ", "side", " ", "1"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"ff", "=", RowBox[{"Function", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"f", "@@", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", "##", "}"}], RowBox[{"(", RowBox[{ RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ")"}]}], ",", "50"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"initial", " ", "center", " ", "and", " ", "diameters"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{"{", RowBox[{"Table", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"d", "=", RowBox[{"{", RowBox[{"Table", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"unutra", "=", RowBox[{"{", RowBox[{"test", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"d", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"dmax", "=", RowBox[{"{", RowBox[{"Max", "[", RowBox[{"d", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"dmaxrazni", "=", RowBox[{"Union", "[", "dmax", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fc", "=", RowBox[{"{", RowBox[{"ff", "@@", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ";", RowBox[{"Nf", "=", RowBox[{"Nf", "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"TMin", "=", RowBox[{"{", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"fc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"MAIN", " ", "LOOP"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Monitor", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"dmaxrazni", "[", RowBox[{"[", "1", "]"}], "]"}], ">", "dtest"}], ")"}], "&&", RowBox[{"(", RowBox[{"iter", "<", RowBox[{"OptionValue", "[", "MaxIter", "]"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"iter", "++"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"STEP", " ", "1"}], ":", " ", RowBox[{ "searching", " ", "for", " ", "potentially", " ", "optimal", " ", "hyperrectangles"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"dmaxrazni", "=", RowBox[{"Union", "[", "dmax", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "All", " ", "data", " ", "grouped", " ", "according", " ", "to", " ", "d"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"pot0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"Length", "[", "fc", "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"dmax", "[", RowBox[{"[", "#", "]"}], "]"}], "\[Equal]", RowBox[{"dmaxrazni", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "dmaxrazni", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Data", " ", "with", " ", "smallest", " ", "f", " ", "grouped", " ", "according", " ", "to", " ", "d"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"pot1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"pot0", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{ RowBox[{"Position", "[", RowBox[{ RowBox[{"fc", "[", RowBox[{"[", RowBox[{"pot0", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"Min", "[", RowBox[{"fc", "[", RowBox[{"[", RowBox[{"pot0", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "]"}]}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "dmaxrazni", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Checking", " ", "other", " ", "conditions"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"pot2", "=", RowBox[{"{", RowBox[{"pot1", "[", RowBox[{"[", RowBox[{"-", "1"}], "]"}], "]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"temp", "=", RowBox[{"Min", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fc", "[", RowBox[{"[", RowBox[{"pot1", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"fc", "[", RowBox[{"[", RowBox[{"pot2", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"dmax", "[", RowBox[{"[", RowBox[{"pot1", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"dmax", "[", RowBox[{"[", RowBox[{"pot2", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "pot2", "]"}]}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"temp", ">", RowBox[{"OptionValue", "[", "Eps", "]"}]}], "&&", RowBox[{"(", RowBox[{ RowBox[{"i", "\[Equal]", "1"}], "||", RowBox[{ RowBox[{"Max", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fc", "[", RowBox[{"[", RowBox[{"pot1", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"fc", "[", RowBox[{"[", RowBox[{"pot1", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"dmax", "[", RowBox[{"[", RowBox[{"pot1", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"dmax", "[", RowBox[{"[", RowBox[{"pot1", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "-", "1"}]}], "}"}]}], "]"}], "]"}], "<", "temp"}]}], ")"}]}], "\[IndentingNewLine]", ",", RowBox[{"AppendTo", "[", RowBox[{"pot2", ",", RowBox[{"pot1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Length", "[", "dmaxrazni", "]"}], "-", "1"}], ",", "1", ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"pot2", "=", RowBox[{"Flatten", "[", RowBox[{"pot2", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"STEP", " ", "2"}], ":", " ", RowBox[{ "dividing", " ", "potentially", " ", "optimal", " ", "hyperrectangles"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"brisi", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Dividing", " ", "directions"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ind", "=", RowBox[{"Flatten", "[", RowBox[{"Position", "[", RowBox[{ RowBox[{"d", "[", RowBox[{"[", "pot", "]"}], "]"}], ",", RowBox[{"Max", "[", RowBox[{"d", "[", RowBox[{"[", "pot", "]"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"novic", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "pot", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"2", "*", RowBox[{"Length", "[", "ind", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"novid", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"d", "[", RowBox[{"[", "pot", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"2", "*", RowBox[{"Length", "[", "ind", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "[", RowBox[{"[", RowBox[{"pot", ",", "ind"}], "]"}], "]"}], "/=", "3"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"dmax", "[", RowBox[{"[", "pot", "]"}], "]"}], "/=", "3"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"novic", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "-", "1"}], ",", RowBox[{"ind", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "]"}], "-=", RowBox[{"d", "[", RowBox[{"[", RowBox[{"pot", ",", RowBox[{"ind", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"novic", "[", RowBox[{"[", RowBox[{ RowBox[{"2", "i"}], ",", RowBox[{"ind", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "]"}], "+=", RowBox[{"d", "[", RowBox[{"[", RowBox[{"pot", ",", RowBox[{"ind", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "ind", "]"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"novifc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ff", "@@", RowBox[{"novic", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "novic", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"Nf", "=", RowBox[{"Nf", "+", RowBox[{"Length", "[", "novic", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"red", "=", RowBox[{"Ordering", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Min", "[", RowBox[{"{", RowBox[{ RowBox[{"novifc", "[", RowBox[{"[", RowBox[{ RowBox[{"2", "i"}], "-", "1"}], "]"}], "]"}], ",", RowBox[{"novifc", "[", RowBox[{"[", RowBox[{"2", "i"}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "ind", "]"}]}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"novid", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", RowBox[{"red", "[", RowBox[{"[", "j", "]"}], "]"}]}], "-", "1"}], ",", RowBox[{"ind", "[", RowBox[{"[", RowBox[{"red", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}], "]"}], "=", RowBox[{ RowBox[{"novid", "[", RowBox[{"[", RowBox[{ RowBox[{"2", RowBox[{"red", "[", RowBox[{"[", "j", "]"}], "]"}]}], ",", RowBox[{"ind", "[", RowBox[{"[", RowBox[{"red", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}], "]"}], "/=", "3"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "red", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "i", ",", RowBox[{"Length", "[", "red", "]"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Eliminating", " ", "those", " ", "that", " ", "are", " ", "not", " ", "inside"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"unutra", "[", RowBox[{"[", "pot", "]"}], "]"}], "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Central", " ", "hyperrectangle", " ", "can", " ", "go", " ", "out", " ", "or", " ", "stay", " ", "completely", " ", "inside"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"test", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "pot", "]"}], "]"}], ",", RowBox[{"d", "[", RowBox[{"[", "pot", "]"}], "]"}]}], "]"}], "\[Equal]", RowBox[{"-", "1"}]}], ",", RowBox[{"AppendTo", "[", RowBox[{"brisi", ",", RowBox[{"{", "pot", "}"}]}], "]"}], ",", RowBox[{ RowBox[{"unutra", "[", RowBox[{"[", "pot", "]"}], "]"}], "=", RowBox[{"test", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "pot", "]"}], "]"}], ",", RowBox[{"d", "[", RowBox[{"[", "pot", "]"}], "]"}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"temp", "=", RowBox[{"{", "}"}]}], ";", RowBox[{"noviunutra", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"temp2", "=", RowBox[{"test", "[", RowBox[{ RowBox[{"novic", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"novid", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"temp2", "\[Equal]", RowBox[{"-", "1"}]}], ",", RowBox[{"AppendTo", "[", RowBox[{"temp", ",", RowBox[{"{", "i", "}"}]}], "]"}], ",", RowBox[{"AppendTo", "[", RowBox[{"noviunutra", ",", "temp2"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "novic", "]"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"novic", "=", RowBox[{"Delete", "[", RowBox[{"novic", ",", "temp"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"novid", "=", RowBox[{"Delete", "[", RowBox[{"novid", ",", "temp"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"novifc", "=", RowBox[{"Delete", "[", RowBox[{"novifc", ",", "temp"}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "If", " ", "the", " ", "divided", " ", "hyperrectangle", " ", "lies", " ", "completely", " ", "inside"}], ",", " ", RowBox[{ "all", " ", "subhyperrectangles", " ", "remain", " ", "inside", " ", "too"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"noviunutra", "=", RowBox[{"Table", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"Length", "[", "novic", "]"}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{"Join", "[", RowBox[{"c", ",", "novic"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"d", "=", RowBox[{"Join", "[", RowBox[{"d", ",", "novid"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dmax", "=", RowBox[{"Join", "[", RowBox[{"dmax", ",", RowBox[{"Map", "[", RowBox[{"Max", ",", "novid"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fc", "=", RowBox[{"Join", "[", RowBox[{"fc", ",", "novifc"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"unutra", "=", RowBox[{"Join", "[", RowBox[{"unutra", ",", "noviunutra"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Update", " ", "of", " ", "actual", " ", "minimum"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"temp", "=", RowBox[{ RowBox[{"Position", "[", RowBox[{"novifc", ",", RowBox[{"Min", "[", "novifc", "]"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"novifc", "[", RowBox[{"[", "temp", "]"}], "]"}], "<", RowBox[{"TMin", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"TMin", "=", RowBox[{"N", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"novic", "[", RowBox[{"[", "temp", "]"}], "]"}], ",", RowBox[{"novifc", "[", RowBox[{"[", "temp", "]"}], "]"}]}], "}"}], ",", "10"}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"pot", ",", "pot2"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Deletion", " ", "of", " ", "those", " ", "hyperrectangles", " ", "which", " ", "went", " ", "outside"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{"Delete", "[", RowBox[{"c", ",", "brisi"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"d", "=", RowBox[{"Delete", "[", RowBox[{"d", ",", "brisi"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dmax", "=", RowBox[{"Delete", "[", RowBox[{"dmax", ",", "brisi"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fc", "=", RowBox[{"Delete", "[", RowBox[{"fc", ",", "brisi"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"unutra", "=", RowBox[{"Delete", "[", RowBox[{"unutra", ",", "brisi"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", RowBox[{"iter", ",", "\"\<: \>\"", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TMin", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{"TMin", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"iter", "\[Equal]", RowBox[{"OptionValue", "[", "MaxIter", "]"}]}], ",", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"SymDIRECT", "::", "maxiter"}], ",", RowBox[{"OptionValue", "[", "MaxIter", "]"}]}], "]"}], ";"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Figure", " ", "in", " ", "2", "D", " ", "case"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"n", "\[Equal]", "2"}], " ", "&&", " ", RowBox[{"iter", "<", "100"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"anim", ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Rectangle", "[", "]"}]}], "}"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Tooltip", "[", RowBox[{ RowBox[{"Rectangle", "[", RowBox[{ RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{ RowBox[{"d", "[", RowBox[{"[", "i", "]"}], "]"}], "/", "2"}], "+", RowBox[{ RowBox[{"d", "[", RowBox[{"[", "i", "]"}], "]"}], "/", "10"}]}], ",", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "+", RowBox[{ RowBox[{"d", "[", RowBox[{"[", "i", "]"}], "]"}], "/", "2"}], "-", RowBox[{ RowBox[{"d", "[", RowBox[{"[", "i", "]"}], "]"}], "/", "10"}]}]}], "]"}], ",", RowBox[{"unutra", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "d", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Point", "[", "c", "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"iter", ",", RowBox[{"Length", "[", "pot2", "]"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Back", " ", "to", " ", "the", " ", "initial", " ", "domain"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TMin", "[", RowBox[{"[", "1", "]"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"TMin", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Images", " ", "printing", " ", "in", " ", "2", "D", " ", "case"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"n", "\[Equal]", "2"}], ",", RowBox[{"Print", "[", RowBox[{"ListAnimate", "[", RowBox[{"anim", ",", RowBox[{"AnimationRunning", "\[Rule]", "False"}]}], "]"}], "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Return", "[", "TMin", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.577502821337183*^9, 3.577502855766443*^9}, { 3.577503068582014*^9, 3.5775030963032618`*^9}, {3.577503133509327*^9, 3.5775032703839655`*^9}, {3.577503310148435*^9, 3.5775033655441313`*^9}, { 3.577503410082209*^9, 3.577503461109898*^9}, {3.5775037863860655`*^9, 3.5775038044040966`*^9}, {3.577504039012906*^9, 3.5775040526317296`*^9}, { 3.577504335631823*^9, 3.5775044408384066`*^9}, {3.577504497856506*^9, 3.577504616588313*^9}, {3.5775046572107835`*^9, 3.5775046670388007`*^9}, 3.5775056796265745`*^9, {3.5799359549533615`*^9, 3.5799359555306125`*^9}, { 3.5799362018353395`*^9, 3.579936257514126*^9}, {3.5799617536703477`*^9, 3.579961784756315*^9}, {3.5799779078961306`*^9, 3.5799779342554803`*^9}, { 3.5799780892982693`*^9, 3.5799780953667316`*^9}, {3.6756445984164114`*^9, 3.6756446270115604`*^9}, {3.6756446704480753`*^9, 3.67564472246624*^9}, { 3.675644755460342*^9, 3.6756449219060035`*^9}, {3.6766904242285814`*^9, 3.6766904329946575`*^9}, {3.6766904632304907`*^9, 3.6766904743560295`*^9}, {3.8421804818580093`*^9, 3.8421804825650983`*^9}, {3.8421811184809523`*^9, 3.842181166714342*^9}, { 3.842181199478874*^9, 3.842181367745201*^9}, {3.842181577783028*^9, 3.8421816056519947`*^9}, {3.842181653919986*^9, 3.842181675109789*^9}, { 3.842181895995569*^9, 3.842181899243848*^9}, {3.842181975353194*^9, 3.842181983055413*^9}, {3.8421821943178043`*^9, 3.842182207054815*^9}, { 3.8421822536457872`*^9, 3.8421822715332875`*^9}, {3.842182348810605*^9, 3.8421823517814703`*^9}, {3.8421824608076544`*^9, 3.8421824733712277`*^9}, {3.8421825822662926`*^9, 3.842182589202812*^9}, { 3.8421826291566525`*^9, 3.842182633531372*^9}, {3.8421826900653715`*^9, 3.8421826947328806`*^9}, {3.8421829078194304`*^9, 3.8421829103221955`*^9}, {3.8421829613080873`*^9, 3.8421829670507655`*^9}, {3.842183363314885*^9, 3.842183366878023*^9}, { 3.8421835909771123`*^9, 3.8421836089555473`*^9}, {3.844774749276376*^9, 3.8447747669994383`*^9}, {3.844774936707678*^9, 3.844774955859447*^9}, 3.844775000144746*^9, {3.846310307485544*^9, 3.8463103202865486`*^9}, { 3.8560946195849867`*^9, 3.856094620821309*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"b1a34391-0924-4621-9877-b48ef5c0a9f5"] }, Closed]], Cell[CellGroupData[{ Cell["Princip", "Subsection", CellChangeTimes->{{3.8280160232054806`*^9, 3.82801603442729*^9}},ExpressionUUID->"6dc8213f-4e18-4f13-a444-\ d68097bd3976"], Cell[BoxData[ RowBox[{ RowBox[{"princip", "[", RowBox[{"x_", ",", "cen_"}], "]"}], ":=", RowBox[{"cen", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"cen", "[", RowBox[{"[", "i", "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "cen", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Min", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"cen", "[", RowBox[{"[", "i", "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "cen", "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{3.856095258974677*^9}, CellLabel->"In[12]:=",ExpressionUUID->"38c53e31-d64f-415d-986a-002afe60ce28"] }, Closed]], Cell[CellGroupData[{ Cell["WF", "Subsection", CellChangeTimes->{{3.8551560753800316`*^9, 3.855156081668908*^9}},ExpressionUUID->"8b432cb0-3ad5-4c82-b2ad-\ 4381134cbe0d"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"WF", "[", "PI_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"m", "=", RowBox[{"Length", "[", RowBox[{"Flatten", "[", RowBox[{"PI", ",", "1"}], "]"}], "]"}]}], ",", "c"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Mean", "[", RowBox[{"WeightedData", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "All", ",", "2"}], "]"}], "]"}], ",", RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "All", ",", "1"}], "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "s", ",", "1"}], "]"}], "]"}], "*", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "s", ",", "2"}], "]"}], "]"}], "-", RowBox[{"c", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}], " ", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.884930493150141*^9, 3.884930518052472*^9}, { 3.88493058918346*^9, 3.8849306021281123`*^9}, {3.8849306838871965`*^9, 3.884930695041611*^9}, {3.8849307294091597`*^9, 3.884930834770482*^9}, { 3.884930875728456*^9, 3.8849309240349803`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"c1333eca-7766-42f7-9902-2aa53f3d4ae2"], Cell[CellGroupData[{ Cell["Indexes", "Subsubsection", CellChangeTimes->{{3.884864630319628*^9, 3.884864642905488*^9}},ExpressionUUID->"12818404-6142-41e2-88e6-\ a13ee0cd1246"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Klasteri", " ", "trebaju", " ", "biti", " ", "poredani", " ", "od", " ", "najmanjeg", " ", RowBox[{"(", "najsvjetlije", ")"}], " ", "prema", " ", "najve\[CAcute]em", " ", RowBox[{"(", "najtamnijem", ")"}], " ", "centru"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"MD1", "[", RowBox[{"PI_", ",", "p_", ",", "Ind_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n", "=", "1"}], ",", RowBox[{"k", "=", RowBox[{"Length", "[", "PI", "]"}]}], ",", "z", ",", "q", ",", "edge", ",", "dist"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"q", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Mean", "[", RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "All", ",", "2"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Quantile", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "All", ",", "2"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", "p"}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", "0"}], ",", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "z", ",", "\"\<\\nq=\>\"", ",", RowBox[{"Round", "[", RowBox[{"q", ",", RowBox[{"-", ".01"}]}], "]"}], ",", "\"\<; p=\>\"", ",", "p"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"edge", "=", RowBox[{"{", RowBox[{ RowBox[{"Min", "[", RowBox[{ RowBox[{ RowBox[{"z", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"q", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"Max", "[", RowBox[{"PI", "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "2"}], "]"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{"z", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"q", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"Min", "[", RowBox[{"PI", "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "2"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"edge", "=", RowBox[{"Append", "[", RowBox[{"edge", ",", RowBox[{"Min", "[", RowBox[{ RowBox[{ RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}], "+", RowBox[{"q", "[", RowBox[{"[", "j", "]"}], "]"}]}], ",", RowBox[{"Max", "[", RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "All", ",", "2"}], "]"}], "]"}], "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"edge", "=", RowBox[{"Append", "[", RowBox[{"edge", ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"q", "[", RowBox[{"[", "j", "]"}], "]"}]}], ",", RowBox[{"Min", "[", RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "All", ",", "2"}], "]"}], "]"}], "]"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", "2", ",", "k"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Sortiranje", " ", "rubova", " ", "od", " ", "najmanjeg", " ", "prema", " ", "najve\[CAcute]em"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"edge", "=", RowBox[{"Sort", "[", "edge", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", "0"}], ",", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Round", "[", RowBox[{"edge", ",", RowBox[{"-", ".001"}]}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"dist", "=", RowBox[{"{", RowBox[{ RowBox[{"edge", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"edge", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "edge", "]"}], ">", "4"}], ",", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dist", "=", RowBox[{"Append", "[", RowBox[{"dist", ",", RowBox[{ RowBox[{"edge", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], "-", RowBox[{"edge", "[", RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", "4", ",", RowBox[{ RowBox[{"Length", "[", "edge", "]"}], "-", "2"}], ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "\t", "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", "0"}], ",", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Round", "[", RowBox[{"dist", ",", RowBox[{"-", ".001"}]}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"m", "-", "kk"}], ")"}], RowBox[{ RowBox[{"Min", "[", "dist", "]"}], "/", RowBox[{"WF", "[", "PI", "]"}]}]}], ",", "q", ",", "edge", ",", "dist"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Calinski", "-", RowBox[{"Harabasz", " ", "index"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "VCH", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"VCH", "[", "PI_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"k", "=", RowBox[{"Length", "[", "PI", "]"}]}], ",", "m", ",", "FF", ",", "mj", ",", "F", ",", "G"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FF", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"m", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Mean", "[", RowBox[{"WeightedData", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "All", ",", "2"}], "]"}], "]"}], ",", RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "All", ",", "1"}], "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"set", "=", RowBox[{"Flatten", "[", RowBox[{"PI", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"cc", "=", RowBox[{"Mean", "[", RowBox[{"WeightedData", "[", RowBox[{ RowBox[{"set", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", RowBox[{"set", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mj", "=", RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"FF", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "s", ",", "1"}], "]"}], "]"}], "*", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "s", ",", "2"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}]}], " ", "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "mj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", " ", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"F", "=", RowBox[{"Total", "[", "FF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"G", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "s", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], "*", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "cc"}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"m", "-", RowBox[{"Length", "[", "PI", "]"}]}], ")"}], "*", RowBox[{"G", "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Length", "[", "PI", "]"}], "-", "1"}], ")"}], "F"}], ")"}]}]}]}]}], "\[IndentingNewLine]", " ", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Davies", "-", "Bouldin"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "VDB", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"VDB", "[", "PI_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"FF", ",", "VV", ",", "mj", ",", RowBox[{"sum", "=", "0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FF", "=", RowBox[{"VV", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Mean", "[", RowBox[{"WeightedData", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "All", ",", "2"}], "]"}], "]"}], ",", RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "All", ",", "1"}], "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mj", "=", RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"FF", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "i", ",", "1"}], "]"}], "]"}], "*", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "mj"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"VV", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"FF", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"Sum", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "mj"}], "}"}]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", " ", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"max", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[NotEqual]", "j"}], ",", RowBox[{"max", "=", RowBox[{"Append", "[", RowBox[{"max", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"VV", "[", RowBox[{"[", "i", "]"}], "]"}], "+", RowBox[{"VV", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "/", RowBox[{"Norm", "[", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}]}], "]"}]}]}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"sum", "=", RowBox[{"sum", "+", RowBox[{"Max", "[", "max", "]"}]}]}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"sum", "/", RowBox[{"Length", "[", "PI", "]"}]}]}]}], "\[IndentingNewLine]", " ", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Simplified", " ", "Silhouette", " ", "With", " ", "Criterion"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "SSWC", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SSWC", "[", "PI_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"k", "=", RowBox[{"Length", "[", "PI", "]"}]}], ",", "a", ",", "b", ",", "dd", ",", "w"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"set", "=", RowBox[{"Flatten", "[", RowBox[{"PI", ",", "1"}], "]"}]}], ";", RowBox[{"m", "=", RowBox[{"Length", "[", "set", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"a", "=", RowBox[{"b", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"set", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", RowBox[{"A", "=", RowBox[{"set", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Mean", "[", RowBox[{"WeightedData", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "All", ",", "2"}], "]"}], "]"}], ",", RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "All", ",", "1"}], "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dd", "=", RowBox[{"Sort", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"dd", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", RowBox[{ RowBox[{"b", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"dd", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}]}], ")"}], "/", RowBox[{"Max", "[", RowBox[{"{", RowBox[{ RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"b", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], "/", "m"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Dunn", " ", "index"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "VD", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"VD", "[", "PI_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"z", ",", "DD", ",", "diam"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Mean", "[", RowBox[{"WeightedData", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "All", ",", "2"}], "]"}], "]"}], ",", RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "All", ",", "1"}], "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"DD", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[NotEqual]", "j"}], ",", RowBox[{"Min", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"i", ",", "p", ",", "2"}], "]"}], "]"}], "-", RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "q", ",", "2"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", "Infinity"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"diam", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Max", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"i", ",", "p", ",", "2"}], "]"}], "]"}], "-", RowBox[{"PI", "[", RowBox[{"[", RowBox[{"i", ",", "q", ",", "2"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Min", "[", RowBox[{"DD", "/", RowBox[{"Max", "[", "diam", "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.88466866788504*^9, 3.8846687112336226`*^9}, { 3.8846687485192246`*^9, 3.8846687489742765`*^9}, {3.8846763332784758`*^9, 3.884676405314555*^9}, {3.884676444291066*^9, 3.884676560362031*^9}, { 3.884676710499936*^9, 3.8846767332354493`*^9}, {3.8846767682962093`*^9, 3.884676796678876*^9}, {3.884676874517048*^9, 3.8846768861195474`*^9}, { 3.884676955189895*^9, 3.8846769674402466`*^9}, {3.8846770279712253`*^9, 3.884677037763546*^9}, {3.884677611090416*^9, 3.8846777751916885`*^9}, { 3.8846778165002213`*^9, 3.884677820146529*^9}, {3.884677879189869*^9, 3.8846778833854923`*^9}, 3.884779396371153*^9, {3.8847798131028347`*^9, 3.8847798911202393`*^9}, {3.8847801925755243`*^9, 3.8847801996187224`*^9}, {3.8848276500846796`*^9, 3.884827656156463*^9}, { 3.8848283869118233`*^9, 3.8848283909969387`*^9}, {3.8848284235872173`*^9, 3.8848284791545415`*^9}, {3.884828557753635*^9, 3.8848285770478563`*^9}, { 3.884828900657221*^9, 3.884828907988223*^9}, 3.884829036142025*^9, { 3.884829164794918*^9, 3.8848292223600616`*^9}, {3.8848292994357023`*^9, 3.884829325431643*^9}, {3.8848294752094765`*^9, 3.8848294806398106`*^9}, { 3.8848313890460463`*^9, 3.8848313974300237`*^9}, {3.8848385040087447`*^9, 3.884838542596575*^9}, {3.884838620949713*^9, 3.884838622718465*^9}, { 3.884838654073064*^9, 3.8848387734101267`*^9}, {3.884838854752265*^9, 3.8848389079789658`*^9}, 3.8848395664999857`*^9, {3.884839613455692*^9, 3.8848396255921774`*^9}, {3.88484213711663*^9, 3.884842137601731*^9}, { 3.8848422362229795`*^9, 3.8848422851817636`*^9}, {3.8848641932288694`*^9, 3.884864198737582*^9}, {3.8848642481827855`*^9, 3.8848642491550393`*^9}, { 3.884864343264578*^9, 3.8848643436718025`*^9}, {3.8848644052195597`*^9, 3.884864454744049*^9}, {3.884866294803443*^9, 3.8848663199367795`*^9}, { 3.8849264892059665`*^9, 3.884926511416593*^9}, {3.884929378051979*^9, 3.8849293871961374`*^9}, {3.88508798611987*^9, 3.8850879890506945`*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"7654cff9-0388-4c4d-8ed7-a5733159a95a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Weighted k - means for the data with additional information\t\t\ \>", "Subsection", CellChangeTimes->{{3.525616360604874*^9, 3.5256163644892807`*^9}, 3.5256170782217345`*^9, 3.5262058902050314`*^9, 3.5262060212488317`*^9, 3.526206146804221*^9, {3.5262146495319996`*^9, 3.526214660301216*^9}, { 3.526268235603675*^9, 3.5262682603453183`*^9}, {3.526271497881405*^9, 3.526271504183816*^9}, {3.526272345602494*^9, 3.526272371124139*^9}, { 3.526272761748825*^9, 3.5262727798448563`*^9}, {3.5262733652982845`*^9, 3.5262734414576187`*^9}, {3.526273604665105*^9, 3.5262736247735405`*^9}, 3.526289526950795*^9, {3.5712988897963448`*^9, 3.5712989095705805`*^9}, { 3.5713006259192133`*^9, 3.5713007138277683`*^9}, {3.5713007531946383`*^9, 3.571300771948871*^9}, {3.5713008158719487`*^9, 3.5713008213017583`*^9}, { 3.5713010538319693`*^9, 3.571301059058978*^9}, {3.5713026879974575`*^9, 3.5713027468205614`*^9}, {3.571302831529111*^9, 3.571302841748129*^9}, { 3.5713028969822264`*^9, 3.571302908216246*^9}, {3.571303208091176*^9, 3.571303209541979*^9}, {3.5713032974143333`*^9, 3.5713033007069397`*^9}, { 3.5713034979916883`*^9, 3.5713034993176904`*^9}, {3.571303581655036*^9, 3.5713035867260447`*^9}, {3.571304578139395*^9, 3.5713046065042453`*^9}, { 3.571304657245535*^9, 3.571304680884577*^9}, {3.571310017656273*^9, 3.571310032448099*^9}, {3.571310291879758*^9, 3.571310305546382*^9}, { 3.5713118990221987`*^9, 3.5713118994433994`*^9}, {3.5713119570019007`*^9, 3.5713119573451014`*^9}, 3.5713122470594134`*^9, 3.571365674705989*^9, { 3.57136576008634*^9, 3.57136582210345*^9}, 3.5713658564929104`*^9, { 3.571365903925994*^9, 3.5713659117592077`*^9}, {3.571365953060481*^9, 3.571365988119743*^9}, 3.571366114458166*^9, {3.5713663292159452`*^9, 3.5713664037264786`*^9}, {3.5713664475247555`*^9, 3.5713664652181873`*^9}, {3.583463667516041*^9, 3.5834636763476562`*^9}, { 3.5834637448145776`*^9, 3.5834638126820984`*^9}, {3.583463928036507*^9, 3.583463936587322*^9}, {3.5834640002474346`*^9, 3.5834640785287733`*^9}, { 3.583464283239937*^9, 3.583464301667569*^9}, {3.583464610199915*^9, 3.5834646193279314`*^9}, {3.58346479905805*^9, 3.58346481041787*^9}, { 3.5845924958427024`*^9, 3.584592509620527*^9}, {3.585384188395161*^9, 3.585384194558172*^9}, {3.5853842286668324`*^9, 3.5853842303828354`*^9}, { 3.5853904610529246`*^9, 3.5853905905625544`*^9}, {3.585390754049445*^9, 3.585390759806855*^9}, {3.585390809549743*^9, 3.5853908141215515`*^9}, { 3.5853908518494177`*^9, 3.585390872960255*^9}, {3.585390921657941*^9, 3.5853909252001476`*^9}, {3.585390970713428*^9, 3.585390982041048*^9}, { 3.5853911246397*^9, 3.5853911371851225`*^9}, {3.5853912967752047`*^9, 3.5853913671453285`*^9}, {3.585391510369982*^9, 3.5853915141461887`*^9}, { 3.5853916673824606`*^9, 3.5853916997117176`*^9}, {3.5853917298881707`*^9, 3.585391759222223*^9}, 3.5853919038976784`*^9, {3.585392081138392*^9, 3.585392094275615*^9}, {3.5853921646925397`*^9, 3.5853921652385406`*^9}, { 3.5853922544282985`*^9, 3.5853922707645273`*^9}, 3.5853926411463823`*^9, { 3.585392743689764*^9, 3.5853927724466143`*^9}, {3.585392821861902*^9, 3.585392892625027*^9}, {3.585392980566783*^9, 3.5853929924560037`*^9}, { 3.585393022648057*^9, 3.5853930568971176`*^9}, {3.585393089367775*^9, 3.585393089882576*^9}, {3.585393512453127*^9, 3.5853935139839296`*^9}, { 3.5853940508786793`*^9, 3.585394204396752*^9}, {3.5853942383172116`*^9, 3.5853942783236823`*^9}, {3.585394313274744*^9, 3.5853943259761667`*^9}, { 3.5853974538852997`*^9, 3.5853975400466523`*^9}, {3.585397570571306*^9, 3.585397570884307*^9}, {3.5853976141687837`*^9, 3.58539765707786*^9}, { 3.585398300135197*^9, 3.5853983391120663`*^9}, {3.585398538675419*^9, 3.585398561316059*^9}, {3.5853988501949697`*^9, 3.5853989417095327`*^9}, { 3.5853990606827426`*^9, 3.585399182486558*^9}, {3.5853994070305552`*^9, 3.585399461906852*^9}, {3.585399572267847*^9, 3.5853995737810497`*^9}, { 3.5853999723233557`*^9, 3.585400002031808*^9}, {3.585400050261493*^9, 3.5854000549113016`*^9}, {3.5854000992373805`*^9, 3.5854001568446827`*^9}, {3.5854012476180143`*^9, 3.5854012947234974`*^9}, {3.5854014618211927`*^9, 3.585401501578063*^9}, { 3.5854022421005745`*^9, 3.5854022449407797`*^9}, {3.5854023168251066`*^9, 3.585402336141941*^9}, {3.5854024165714836`*^9, 3.585402484833604*^9}, { 3.585408314941718*^9, 3.5854083322551494`*^9}, {3.5854083697334156`*^9, 3.585408392125257*^9}, {3.5854084715109262`*^9, 3.5854084897045584`*^9}, { 3.585408900137684*^9, 3.5854089006368847`*^9}, {3.5854090232785025`*^9, 3.5854090238401036`*^9}, {3.5854091870407925`*^9, 3.585409229653468*^9}, { 3.5854097244021454`*^9, 3.585409746340784*^9}, {3.5856371040607595`*^9, 3.5856371057309628`*^9}, 3.588251133089259*^9, 3.588654178816718*^9, { 3.649209957073268*^9, 3.6492099581496696`*^9}, {3.8205871597732425`*^9, 3.8205871772501287`*^9}, 3.827022238365058*^9, {3.884748410911316*^9, 3.8847484258234835`*^9}},ExpressionUUID->"8370571a-7bc2-4aa4-bc50-\ 820b79c2e738"], Cell[BoxData[ RowBox[{ RowBox[{"WKMeansDop", "[", RowBox[{"w_", ",", "B_", ",", "z_", ",", RowBox[{"Ind_:", "0"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"m", "=", RowBox[{"Length", "[", "B", "]"}]}], ",", RowBox[{"k", "=", RowBox[{"Length", "[", "z", "]"}]}], ",", RowBox[{"n", "=", RowBox[{"Length", "[", RowBox[{"B", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ",", "c0", ",", "Pod", ",", "imin", ",", "PI", ",", RowBox[{"It", "=", "0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Pod", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"B", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"B", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"c0", "=", "z"}], ";", " ", "\[IndentingNewLine]", RowBox[{"PI", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "k"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", "\t\t\t", RowBox[{"(*", " ", RowBox[{"Minimal", " ", "distance", " ", "principle"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tab", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"Pod", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"c0", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"imin", "=", RowBox[{ RowBox[{"Ordering", "[", RowBox[{"tab", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", "imin", "]"}], "]"}], "=", RowBox[{"Append", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", "imin", "]"}], "]"}], ",", RowBox[{"Pod", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"PI", "=", RowBox[{"DeleteCases", "[", RowBox[{"PI", ",", RowBox[{"{", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"k", "=", RowBox[{"Length", "[", "PI", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", " ", "0"}], ",", RowBox[{"Print", "[", RowBox[{"It", ",", "\"\<: F = \>\"", ",", RowBox[{"WF", "[", "PI", "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "z", ",", "\"\<; F = \>\"", ",", RowBox[{"WF", "[", "PI", "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", "\t\t\t\t\t\t", RowBox[{"(*", " ", RowBox[{"New", " ", "centers"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"While", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"c", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Mean", "[", RowBox[{"WeightedData", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "All", ",", "2"}], "]"}], "]"}], ",", RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "All", ",", "1"}], "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", "\t\t", RowBox[{"(*", " ", RowBox[{ RowBox[{ "The", " ", "case", " ", "of", " ", "reducing", " ", "the", " ", "number", " ", "of", " ", "clusters", " ", "in", " ", "a", " ", "partition", "\[IndentingNewLine]", "\t\t\t\t", "in", " ", "the", " ", "case", " ", "n"}], "=", RowBox[{"2", " ", "-", " ", RowBox[{ "can", " ", "be", " ", "extended", " ", "to", " ", "an", " ", "arbitrary", " ", "n"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "c", "]"}], "<", RowBox[{"Length", "[", "c0", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\\"", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Chop", "[", RowBox[{"Norm", "[", RowBox[{"c", "-", "c0"}], "]"}], "]"}], "\[NotEqual]", "0"}], StyleBox["&&", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"It", "<", "5"}], FontColor->RGBColor[1, 0, 0]]}]}], ",", RowBox[{ RowBox[{"c0", "=", "c"}], ";", RowBox[{"It", "=", RowBox[{"It", "+", "1"}]}], ";", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"(*", " ", RowBox[{"New", " ", "partition"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"PI", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "k"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tab", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"Pod", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"c0", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"imin", "=", RowBox[{ RowBox[{"Ordering", "[", RowBox[{"tab", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", "imin", "]"}], "]"}], "=", RowBox[{"Append", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", "imin", "]"}], "]"}], ",", RowBox[{"Pod", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"PI", "=", RowBox[{"DeleteCases", "[", RowBox[{"PI", ",", RowBox[{"{", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"k", "=", RowBox[{"Length", "[", "PI", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", " ", "0"}], ",", RowBox[{"Print", "[", RowBox[{"It", ",", "\"\<: F = \>\"", ",", RowBox[{"WF", "[", "PI", "]"}]}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PI", ",", "c0", ",", RowBox[{"WF", "[", "PI", "]"}], ",", "It"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.660187726791212*^9, 3.660187815882969*^9}, { 3.6601878911375012`*^9, 3.660188012833315*^9}, {3.660188087385846*^9, 3.6601880880878468`*^9}, {3.6601891507149134`*^9, 3.6601892166094294`*^9}, {3.6601892807567415`*^9, 3.660189322611615*^9}, { 3.6601893997381506`*^9, 3.660189407912565*^9}, {3.827107314944191*^9, 3.827107358731758*^9}, {3.8271074381896577`*^9, 3.8271075057044115`*^9}, { 3.827107548701977*^9, 3.827107581663885*^9}, {3.827107726426523*^9, 3.827107770799056*^9}, {3.8271078187408223`*^9, 3.827107854792225*^9}, { 3.827107886782772*^9, 3.827108145922803*^9}, {3.827108283611683*^9, 3.8271082914568834`*^9}, {3.8271083430155897`*^9, 3.8271083470732665`*^9}, {3.8271085583233147`*^9, 3.827108575447323*^9}, { 3.8271086226307445`*^9, 3.8271086274841585`*^9}, {3.82710865834188*^9, 3.8271086592425175`*^9}, {3.827108717703992*^9, 3.8271087598165336`*^9}, 3.827108807494562*^9, {3.827108880700163*^9, 3.8271088893880196`*^9}, { 3.8271091890761223`*^9, 3.8271092082398586`*^9}, {3.8271094166916084`*^9, 3.8271094720928154`*^9}, {3.8271097739990234`*^9, 3.8271097890446663`*^9}, {3.82710992867214*^9, 3.8271099506543045`*^9}, { 3.8271100262289906`*^9, 3.827110057528084*^9}, 3.827110161414834*^9, 3.8271103926194196`*^9, {3.8271104403684216`*^9, 3.827110555208688*^9}, { 3.8271105997176228`*^9, 3.827110618811429*^9}, {3.827110697723671*^9, 3.827110698195693*^9}, {3.8271107579425926`*^9, 3.82711078668906*^9}, { 3.827110849219391*^9, 3.8271109293997254`*^9}, {3.8271109761459837`*^9, 3.827111050407363*^9}, {3.8271110941728806`*^9, 3.8271110982436085`*^9}, { 3.827111128246429*^9, 3.827111175413885*^9}, {3.8271112577577915`*^9, 3.827111270278378*^9}, {3.8271114246259937`*^9, 3.8271114399722495`*^9}, 3.82711153409405*^9, {3.8271116419958057`*^9, 3.8271116908452373`*^9}, { 3.827111731524568*^9, 3.8271117321260395`*^9}, {3.8271119516211724`*^9, 3.8271119989467587`*^9}, {3.827112071259314*^9, 3.8271121038775477`*^9}, { 3.827112203541338*^9, 3.8271122632336354`*^9}, 3.8551559775764413`*^9, { 3.855156092424369*^9, 3.855156104241045*^9}, {3.8552311141481256`*^9, 3.8552311209871645`*^9}, {3.856065458756876*^9, 3.8560654758733225`*^9}, { 3.856065556156496*^9, 3.8560655563087454`*^9}, {3.8560656030082664`*^9, 3.856065604979433*^9}, {3.856065679702074*^9, 3.856065683750224*^9}, 3.856065721875281*^9, 3.8560659547043037`*^9}, CellLabel->"In[23]:=",ExpressionUUID->"4316d7f9-eb17-4a08-ad8c-e282df4658c8"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Important !!!\nImage consists of clusters from \ WKMeans in GrayLevel of its centers", FontSize->18, FontColor->RGBColor[0, 0, 1]]], "Subsection", CellChangeTimes->{{3.8388137272822*^9, 3.838813757232211*^9}, { 3.8388143877327237`*^9, 3.838814405797428*^9}, {3.8388150716568513`*^9, 3.8388150767803965`*^9}, {3.8388632412627945`*^9, 3.8388632506110544`*^9}, {3.855670643506099*^9, 3.8556706469814577`*^9}, 3.8847474924477625`*^9, {3.8847475322838755`*^9, 3.884747538388281*^9}},ExpressionUUID->"cdf1f20f-0e9a-4502-9f35-\ 161ddaa5ed23"], Cell[BoxData[ RowBox[{ RowBox[{"SelectedGrayLevel", "[", "sol_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"AAA", ",", "podDop0", ",", "sl0", ",", "pp0"}], "}"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"(*", " ", RowBox[{"The", " ", "whole", " ", "image", " ", "put", " ", "in", " ", RowBox[{"GrayLevel", " ", "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AAA", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "j", ",", "s", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "j"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\t\t", RowBox[{"(*", " ", RowBox[{"jj", "-", RowBox[{ "th", " ", "cluster", " ", "put", " ", "in", " ", "color", " ", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "jj"}], "]"}], "]"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"jj", "\[Equal]", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AAA", "[", RowBox[{"[", "jj", "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "jj"}], "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj", ",", "s", ",", "3"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"jj", "\[Equal]", "3"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AAA", "[", RowBox[{"[", "jj", "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "jj"}], "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj", ",", "s", ",", "3"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"jj", "\[Equal]", "4"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AAA", "[", RowBox[{"[", "jj", "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "jj"}], "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj", ",", "s", ",", "3"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"jj", "\[Equal]", "5"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AAA", "[", RowBox[{"[", "jj", "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "jj"}], "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj", ",", "s", ",", "3"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"jj", "\[Equal]", "6"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AAA", "[", RowBox[{"[", "jj", "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "jj"}], "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj", ",", "s", ",", "3"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"jj", "\[Equal]", "7"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AAA", "[", RowBox[{"[", "jj", "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "jj"}], "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj", ",", "s", ",", "3"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"jj", "\[Equal]", "8"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AAA", "[", RowBox[{"[", "jj", "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "jj"}], "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj", ",", "s", ",", "3"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "\t", "]"}], ";", "\[IndentingNewLine]", "\t\t", RowBox[{"(*", " ", RowBox[{"Image", " ", "construction"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"podDop0", "=", RowBox[{"Flatten", "[", RowBox[{"AAA", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sl0", "=", RowBox[{"SortBy", "[", RowBox[{"podDop0", ",", "Last"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp0", "=", RowBox[{"sl0", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"slikaN0", "[", "jj", "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"pp0", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"k", " ", "bb"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "bb"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"aa", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"Image", "[", RowBox[{ RowBox[{"slikaN0", "[", "jj", "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", "\t\t", RowBox[{"(*", " ", RowBox[{"Color", " ", "of", " ", "center", " ", RowBox[{"sol", "[", RowBox[{"[", "jj", "]"}], "]"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "jj"}], "]"}], "]"}], "]"}], ",", RowBox[{"Disk", "[", "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "20"}]}], "]"}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"jj", ",", "2", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ";", " ", "\[IndentingNewLine]", "\t\t\t\t\t\t", RowBox[{"(*", " ", RowBox[{"All", " ", "clusters", " ", "together"}], " ", "*)"}], "\[IndentingNewLine]", "\t\t", RowBox[{"(*", " ", RowBox[{"The", " ", "whole", " ", "image", " ", "put", " ", "in", " ", RowBox[{"GrayLevel", " ", "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"AAA", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "j", ",", "s", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "j"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\t\t", RowBox[{"(*", " ", RowBox[{ RowBox[{"For", " ", "all", " ", "jj"}], ",", " ", RowBox[{"jj", "-", RowBox[{ "th", " ", "cluster", " ", "put", " ", "in", " ", "color", " ", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "jj"}], "]"}], "]"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", " ", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"jj", "\[Equal]", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AAA", "[", RowBox[{"[", "jj", "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "jj"}], "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj", ",", "s", ",", "3"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"jj", "\[Equal]", "3"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AAA", "[", RowBox[{"[", "jj", "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "jj"}], "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj", ",", "s", ",", "3"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"jj", "\[Equal]", "4"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AAA", "[", RowBox[{"[", "jj", "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "jj"}], "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj", ",", "s", ",", "3"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"jj", "\[Equal]", "5"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AAA", "[", RowBox[{"[", "jj", "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "jj"}], "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj", ",", "s", ",", "3"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"jj", "\[Equal]", "6"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AAA", "[", RowBox[{"[", "jj", "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "jj"}], "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj", ",", "s", ",", "3"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"jj", "\[Equal]", "7"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AAA", "[", RowBox[{"[", "jj", "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "jj"}], "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj", ",", "s", ",", "3"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"jj", "\[Equal]", "8"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AAA", "[", RowBox[{"[", "jj", "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "jj"}], "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj", ",", "s", ",", "3"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "\t", "]"}], ";"}], "\[IndentingNewLine]", StyleBox[",", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"{", RowBox[{"jj", ",", "2", ",", "kk"}], "}"}], FontColor->RGBColor[1, 0, 0]]}], StyleBox["]", FontColor->RGBColor[1, 0, 0]]}], StyleBox[";", FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], "\t\t\t", RowBox[{"(*", " ", RowBox[{"Image", " ", "construction"}], " ", "*)"}], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], RowBox[{"podDop0", "=", RowBox[{"Flatten", "[", RowBox[{"AAA", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sl0", "=", RowBox[{"SortBy", "[", RowBox[{"podDop0", ",", "Last"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp0", "=", RowBox[{"sl0", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"slikaNAll", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"pp0", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"k", " ", "bb"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "bb"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"aa", "-", "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Image", "[", RowBox[{"slikaNAll", ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.8388623535387416`*^9, 3.8388624672187247`*^9}, { 3.838862498466937*^9, 3.8388625040109215`*^9}, {3.8388625362872086`*^9, 3.838862557713092*^9}, {3.8388625893004913`*^9, 3.8388625944411626`*^9}, { 3.8388626470883727`*^9, 3.8388627281402187`*^9}, {3.838862800591702*^9, 3.838862833455778*^9}, {3.838862925070126*^9, 3.8388629611224585`*^9}, 3.838862993220142*^9, {3.8388630556045713`*^9, 3.8388630567382345`*^9}, { 3.838863087165409*^9, 3.8388630934622393`*^9}, {3.8388631266169033`*^9, 3.8388632016016045`*^9}, 3.855401247332698*^9, {3.855401365166361*^9, 3.8554013710365133`*^9}, {3.8554015958981524`*^9, 3.85540160669532*^9}, 3.855401671924494*^9, {3.855401798702343*^9, 3.8554018076504025`*^9}, { 3.8556692886812243`*^9, 3.8556692921513047`*^9}, {3.855669400207303*^9, 3.855669430186816*^9}, 3.855669479762102*^9, {3.855669784599181*^9, 3.855669788206822*^9}, {3.855670186232417*^9, 3.8556702035237713`*^9}, { 3.8556702993737764`*^9, 3.855670300560832*^9}, 3.8556703447953186`*^9, { 3.855670425536416*^9, 3.8556704459886255`*^9}, {3.8560667357622538`*^9, 3.8560667663762503`*^9}, {3.8560668863584156`*^9, 3.8560668924276943`*^9}, {3.856067006956647*^9, 3.8560670194524183`*^9}, { 3.8560670575900574`*^9, 3.856067058993126*^9}, {3.856067197706045*^9, 3.856067248870369*^9}, {3.856067393697832*^9, 3.8560674277275715`*^9}, { 3.8560677010197506`*^9, 3.856067704462431*^9}, {3.8560677668863087`*^9, 3.856067767269146*^9}, {3.856067806857323*^9, 3.856067835085828*^9}, { 3.856067928839437*^9, 3.8560679293825884`*^9}, {3.8560679759253583`*^9, 3.8560680305354204`*^9}, {3.8560680969861374`*^9, 3.8560681262696743`*^9}, {3.8560681584659033`*^9, 3.856068284766799*^9}, { 3.8560683632722435`*^9, 3.8560683810923777`*^9}, {3.856068423730513*^9, 3.8560684248553877`*^9}, {3.8560684882673287`*^9, 3.856068571806359*^9}, { 3.856068619671393*^9, 3.856068655339863*^9}, {3.8560687394952726`*^9, 3.8560687462087793`*^9}, {3.856068804775933*^9, 3.8560688137014046`*^9}, { 3.8560688500119762`*^9, 3.8560689599691696`*^9}, {3.856069012284649*^9, 3.8560690444270506`*^9}, {3.8560690947321153`*^9, 3.8560691030739355`*^9}, {3.856069148536953*^9, 3.856069175827613*^9}, { 3.856069515787017*^9, 3.8560696516946683`*^9}, 3.856069733665599*^9, { 3.856070014640293*^9, 3.8560700506245365`*^9}, {3.856070085099483*^9, 3.856070100948456*^9}, 3.856070454383622*^9, {3.8560706232716837`*^9, 3.856070634425851*^9}, {3.8560706892821503`*^9, 3.8560707681411567`*^9}, { 3.856070811111532*^9, 3.8560708227920685`*^9}, 3.856070877292875*^9, { 3.856070965016043*^9, 3.8560709904917107`*^9}, {3.8560711218091726`*^9, 3.8560711880720105`*^9}, {3.856071385801752*^9, 3.856071406485253*^9}, { 3.8560714435091424`*^9, 3.8560714440758142`*^9}, {3.856071543673184*^9, 3.856071566743127*^9}, {3.85607159858788*^9, 3.8560716049814653`*^9}, { 3.856071651880246*^9, 3.856071674991808*^9}, 3.8560717110160913`*^9, { 3.8560877142907724`*^9, 3.856087790127199*^9}, 3.8560878578571577`*^9, { 3.8560879133514395`*^9, 3.856088114084386*^9}, {3.856088421054971*^9, 3.8560884287518024`*^9}, {3.856088538787299*^9, 3.856088565969947*^9}, { 3.856088980029848*^9, 3.856088991902113*^9}, {3.8560890329764843`*^9, 3.8560891544582844`*^9}, {3.856089216054227*^9, 3.8560892291846347`*^9}, { 3.856089364445979*^9, 3.856089467628541*^9}, {3.856089627259452*^9, 3.8560896309791317`*^9}, {3.856089683113948*^9, 3.8560896906448317`*^9}, { 3.856089721856186*^9, 3.8560897658048296`*^9}, {3.8560901489389153`*^9, 3.856090172377536*^9}, 3.856090267376937*^9, 3.856091422798134*^9, 3.856092057199336*^9, {3.856092117135536*^9, 3.856092168313858*^9}, { 3.8560922227888308`*^9, 3.85609222458352*^9}, {3.8560922778027353`*^9, 3.8560923562140017`*^9}, {3.8560924675228567`*^9, 3.8560925427258143`*^9}, {3.856092596258686*^9, 3.856092603369481*^9}, { 3.8560939254175777`*^9, 3.8560939701810417`*^9}, {3.8838924767907686`*^9, 3.8838924792401595`*^9}, {3.883892515088293*^9, 3.8838925155476294`*^9}, 3.883893698237438*^9, {3.883893767141463*^9, 3.8838938255486164`*^9}, { 3.8839676853059845`*^9, 3.8839676863166027`*^9}, {3.88396775956495*^9, 3.883967761212449*^9}, {3.884260653763349*^9, 3.8842606814665527`*^9}, { 3.88426230106281*^9, 3.8842623387079916`*^9}, {3.8842626730046077`*^9, 3.884262681848456*^9}, {3.8842631226142473`*^9, 3.8842631497547283`*^9}, { 3.884263594917967*^9, 3.8842636499006615`*^9}, {3.884263867423279*^9, 3.884263886076638*^9}, {3.884263921046727*^9, 3.884263928000792*^9}, { 3.8842640213146544`*^9, 3.884264040514945*^9}, {3.884264070552838*^9, 3.8842640923365173`*^9}, {3.8842642490101633`*^9, 3.8842642915132527`*^9}, {3.884264377981409*^9, 3.884264392549374*^9}, { 3.884264485150355*^9, 3.884264494040451*^9}, {3.8842645489896255`*^9, 3.8842645561191764`*^9}, {3.8843107875838575`*^9, 3.8843108102409525`*^9}, {3.8843108719218707`*^9, 3.884310873656627*^9}, { 3.8843109871792436`*^9, 3.8843110221150703`*^9}, {3.8843111039622173`*^9, 3.8843111422826085`*^9}, 3.884311336308675*^9, {3.884311442585289*^9, 3.884311451309107*^9}, {3.884311559788675*^9, 3.8843116098872104`*^9}, { 3.8843120993181906`*^9, 3.8843121456236224`*^9}, {3.884312251773532*^9, 3.884312253412967*^9}, {3.884312323231778*^9, 3.8843123247783127`*^9}, { 3.8843125272112217`*^9, 3.884312555018221*^9}, {3.8843125991295776`*^9, 3.8843126239381795`*^9}, {3.884312698136213*^9, 3.884312699339068*^9}, { 3.8843128893391886`*^9, 3.8843129179084263`*^9}, {3.884313039228232*^9, 3.8843130396260805`*^9}, {3.8843132332115126`*^9, 3.8843132437921686`*^9}, {3.884313279028308*^9, 3.884313279536148*^9}, { 3.884317800076601*^9, 3.8843178375660815`*^9}, {3.8843179218598895`*^9, 3.8843179370272894`*^9}, {3.8843180669650307`*^9, 3.88431808003796*^9}, { 3.8843181111896825`*^9, 3.8843181397667413`*^9}, {3.884318214156781*^9, 3.8843182146001415`*^9}, 3.8843183467512293`*^9, {3.884318433129513*^9, 3.884318451609151*^9}, {3.8843185936590347`*^9, 3.884318622649491*^9}, 3.8843186580427494`*^9, {3.884318713727738*^9, 3.884318775991477*^9}, { 3.8843193734162893`*^9, 3.884319470271037*^9}, {3.884319572481756*^9, 3.8843195823063636`*^9}, {3.8843196139549956`*^9, 3.8843196484679875`*^9}, {3.884319681610367*^9, 3.8843196937402563`*^9}, { 3.88431977324983*^9, 3.8843198078187027`*^9}, {3.8843199145617876`*^9, 3.8843199305870843`*^9}, {3.8843199630756993`*^9, 3.884320055236161*^9}, 3.884320160696851*^9, 3.8847463375486317`*^9, {3.8847477300228076`*^9, 3.884747758104007*^9}, {3.884843878951604*^9, 3.8848438857241073`*^9}, { 3.8848439213395586`*^9, 3.8848439289478536`*^9}, {3.8848440012645807`*^9, 3.884844006760373*^9}, {3.8848442983566685`*^9, 3.8848443659022827`*^9}, { 3.8848445221283965`*^9, 3.884844584043706*^9}, {3.8848448472187614`*^9, 3.8848448536093082`*^9}, {3.8848476216344085`*^9, 3.884847655573344*^9}, { 3.884847736805956*^9, 3.884847770281195*^9}, {3.884931195112375*^9, 3.884931202436842*^9}, {3.8849314205343714`*^9, 3.8849314338231106`*^9}, { 3.884931512858532*^9, 3.884931524076154*^9}, {3.8849316108083143`*^9, 3.8849316184516716`*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"551cacdd-c971-462e-8f71-6621f9ddf8b3"] }, Closed]], Cell[CellGroupData[{ Cell["Image processing (input is possiblein BMP or JPG format)", "Subsection", CellChangeTimes->{{3.8560940893485236`*^9, 3.8560940952108355`*^9}, { 3.884001116347542*^9, 3.8840011437899666`*^9}, 3.884748100179445*^9, { 3.884748136997319*^9, 3.8847481850127225`*^9}},ExpressionUUID->"49f55a51-87a9-493b-ba14-\ b549c22afaf3"], Cell[BoxData[ RowBox[{ RowBox[{"Processing", "[", RowBox[{"Fig_", ",", "Color_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"or", "=", RowBox[{"ImageResize", "[", RowBox[{"Fig", ",", "150"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fig", "=", RowBox[{"ImageData", "[", "or", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pod", "=", RowBox[{"Join", "@@", "fig"}]}], ";", " ", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"(*", " ", RowBox[{"BMP", " ", "image"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Dimensions", "[", "fig", "]"}], "]"}], "\[Equal]", "3"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc"}], "}"}], "=", RowBox[{"Dimensions", "[", "fig", "]"}]}], ";", "\[IndentingNewLine]", "\t\t\t", RowBox[{"(*", " ", RowBox[{"Additional", " ", "information"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"slikaDop", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"fig", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "aa"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "bb"}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "\t", "]"}], ";", "\[IndentingNewLine]", "\t\t\t", RowBox[{"(*", " ", RowBox[{"JPG", " ", "image"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Dimensions", "[", "fig", "]"}], "]"}], "\[Equal]", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb"}], "}"}], "=", RowBox[{"Dimensions", "[", "fig", "]"}]}], ";", "\[IndentingNewLine]", "\t\t", RowBox[{"(*", " ", RowBox[{"Additional", " ", "information"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"slikaDop", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"fig", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "aa"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "bb"}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "\t", "]"}], ";", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"(*", " ", "Continue", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Dimensions", "[", "fig", "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{"format", "=", "\"\\""}], ",", RowBox[{"format", "=", "\"\\""}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"podDop", "=", RowBox[{"Flatten", "[", RowBox[{"slikaDop", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"Table", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "podDop", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"(*", " ", RowBox[{"Image", " ", "construction"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"podDop", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"slikaN", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"k", " ", "bb"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "bb"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"aa", "-", "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\<\\nOriginal: \>\"", ",", "format", ",", "\"\< Dimension image: \>\"", ",", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc"}], "}"}], "=", RowBox[{"Dimensions", "[", "slikaDop", "]"}]}], ",", "\"\<; |pod| = \>\"", ",", RowBox[{"Length", "[", "podDop", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"sl0", "=", RowBox[{"Print", "[", RowBox[{"Image", "[", RowBox[{"slikaN", ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}], "]"}]}], ";"}], " ", "*)"}], "\[IndentingNewLine]", "\t\t", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Defining", " ", "of", " ", "objective", " ", "function", " ", "and", " ", "domenas"}], " ", "+", " ", "SymDIRECT"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"AA", "=", "podDop"}], ";", RowBox[{"Nf", "=", "0"}], ";", RowBox[{"m", "=", RowBox[{"Length", "[", "AA", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"IndMD1", "=", RowBox[{"IndSSWC", "=", RowBox[{"IndCH", "=", RowBox[{"IndDB", "=", RowBox[{"{", "}"}]}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"kk", "=", "it"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"kk", "\[Equal]", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FFCompile", "=", RowBox[{"Compile", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"c1", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c2", ",", "_Real"}], "}"}]}], "}"}], ",", RowBox[{"Evaluate", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Min", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"c1", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c2", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dom", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", "kk", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Sym", "=", RowBox[{"SymDIRECT", "[", RowBox[{"FFCompile", ",", "dom", ",", RowBox[{"DMin", "\[Rule]", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}], ",", RowBox[{"MaxIter", "\[Rule]", "50"}], ",", RowBox[{"Eps", "\[Rule]", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}]}], "]"}]}], ";"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"kk", "\[Equal]", "3"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FFCompile", "=", RowBox[{"Compile", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"c1", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c2", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c3", ",", "_Real"}], "}"}]}], "}"}], ",", RowBox[{"Evaluate", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Min", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"c1", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c2", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c3", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dom", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", "kk", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Sym", "=", RowBox[{"SymDIRECT", "[", RowBox[{"FFCompile", ",", "dom", ",", RowBox[{"DMin", "\[Rule]", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}], ",", RowBox[{"MaxIter", "\[Rule]", "50"}], ",", RowBox[{"Eps", "\[Rule]", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}]}], "]"}]}], ";"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"kk", "\[Equal]", "4"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FFCompile", "=", RowBox[{"Compile", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"c1", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c2", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c3", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c4", ",", "_Real"}], "}"}]}], "}"}], ",", RowBox[{"Evaluate", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Min", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"c1", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c2", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c3", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c4", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dom", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", "kk", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Sym", "=", RowBox[{"SymDIRECT", "[", RowBox[{"FFCompile", ",", "dom", ",", RowBox[{"DMin", "\[Rule]", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}], ",", RowBox[{"MaxIter", "\[Rule]", "50"}], ",", RowBox[{"Eps", "\[Rule]", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}]}], "]"}]}], ";"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"kk", "\[Equal]", "5"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FFCompile", "=", RowBox[{"Compile", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"c1", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c2", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c3", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c4", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c5", ",", "_Real"}], "}"}]}], "}"}], ",", RowBox[{"Evaluate", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Min", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"c1", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c2", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c3", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c4", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c5", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dom", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", "5", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Sym", "=", RowBox[{"SymDIRECT", "[", RowBox[{"FFCompile", ",", "dom", ",", RowBox[{"DMin", "\[Rule]", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}], ",", RowBox[{"MaxIter", "\[Rule]", "50"}], ",", RowBox[{"Eps", "\[Rule]", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}]}], "]"}]}], ";"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"kk", "\[Equal]", "6"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FFCompile", "=", RowBox[{"Compile", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"c1", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c2", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c3", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c4", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c5", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c6", ",", "_Real"}], "}"}]}], "}"}], ",", RowBox[{"Evaluate", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Min", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"c1", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c2", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c3", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c4", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c5", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c6", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dom", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", "6", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Sym", "=", RowBox[{"SymDIRECT", "[", RowBox[{"FFCompile", ",", "dom", ",", RowBox[{"DMin", "\[Rule]", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}], ",", RowBox[{"MaxIter", "\[Rule]", "50"}], ",", RowBox[{"Eps", "\[Rule]", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}]}], "]"}]}], ";"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"kk", "\[Equal]", "7"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FFCompile", "=", RowBox[{"Compile", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"c1", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c2", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c3", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c4", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c5", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c6", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c7", ",", "_Real"}], "}"}]}], "}"}], ",", RowBox[{"Evaluate", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Min", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"c1", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c2", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c3", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c4", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c5", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c6", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c7", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dom", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", "7", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Sym", "=", RowBox[{"SymDIRECT", "[", RowBox[{"FFCompile", ",", "dom", ",", RowBox[{"DMin", "\[Rule]", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}], ",", RowBox[{"MaxIter", "\[Rule]", "50"}], ",", RowBox[{"Eps", "\[Rule]", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}]}], "]"}]}], ";"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"kk", "\[Equal]", "8"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FFCompile", "=", RowBox[{"Compile", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"c1", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c2", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c3", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c4", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c5", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c6", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c7", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"c8", ",", "_Real"}], "}"}]}], "}"}], ",", RowBox[{"Evaluate", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Min", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"c1", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c2", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c3", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c4", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c5", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c6", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c7", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c8", "-", RowBox[{"AA", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dom", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", "8", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Sym", "=", RowBox[{"SymDIRECT", "[", RowBox[{"FFCompile", ",", "dom", ",", RowBox[{"DMin", "\[Rule]", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}], ",", RowBox[{"MaxIter", "\[Rule]", "50"}], ",", RowBox[{"Eps", "\[Rule]", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\\n\>\"", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "16", ",", "Blue"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"kk", ",", "16", ",", "Blue"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\< centers: \>\"", ",", "16", ",", "Blue"}], "]"}], ",", RowBox[{"Round", "[", " ", RowBox[{ RowBox[{"Sym", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"-", ".001"}]}], "]"}], ",", "\"\<; F=\>\"", ",", RowBox[{"Sym", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "\"\<; Iter = \>\"", ",", "iter"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", RowBox[{"Sym", "[", RowBox[{"[", RowBox[{"1", ",", "j"}], "]"}], "]"}], "]"}], ",", RowBox[{"Disk", "[", "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "20"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", RowBox[{"Sym", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"image", "=", RowBox[{"Image", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"princip", "[", RowBox[{"#", ",", RowBox[{"Sym", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ")"}], "&"}], ",", "fig", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\t\t\t\t\t\t\t", RowBox[{"(*", " ", "WKMeans", " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"WKMeansDop", "[", RowBox[{"w", ",", "AA", ",", RowBox[{"Sym", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"Round", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"-", ".001"}]}], "]"}], ",", "\"\<; F=\>\"", ",", RowBox[{"sol", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "\"\<; Iter = \>\"", ",", RowBox[{"sol", "[", RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "j"}], "]"}], "]"}], "]"}], ",", RowBox[{"Disk", "[", "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "20"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "i"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\t\t\t\t\t\t\t", RowBox[{"(*", " ", "Indexes", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"vmd1", "=", RowBox[{"MD1", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "p", ",", "0"}], "]"}]}], ";", " ", RowBox[{"IndMD1", "=", RowBox[{"Append", "[", RowBox[{"IndMD1", ",", RowBox[{"vmd1", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"vss", "=", RowBox[{"SSWC", "[", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", RowBox[{"IndSSWC", "=", RowBox[{"Append", "[", RowBox[{"IndSSWC", ",", "vss"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"vch", "=", RowBox[{"VCH", "[", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", RowBox[{"IndCH", "=", RowBox[{"Append", "[", RowBox[{"IndCH", ",", "vch"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"vdb", "=", RowBox[{"VDB", "[", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", RowBox[{"IndDB", "=", RowBox[{"Append", "[", RowBox[{"IndDB", ",", "vdb"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Round", "[", RowBox[{ RowBox[{"vmd1", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"-", ".001"}]}], "]"}], ",", "\"\<\\nThe smallest \>\"", ",", RowBox[{"Min", "[", RowBox[{"Round", "[", RowBox[{ RowBox[{"vmd1", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"-", ".001"}]}], "]"}], "]"}], ",", "\"\< is attain between \>\"", ",", RowBox[{"aaa", "=", RowBox[{ RowBox[{"Ordering", "[", RowBox[{ RowBox[{"vmd1", "[", RowBox[{"[", "4", "]"}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\"\< and \>\"", ",", RowBox[{"aaa", "+", "1"}], ",", "\"\< cluster from the left\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "kk", ",", "\"\<; MD1=\>\"", ",", RowBox[{"vmd1", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\"\<; CH=\>\"", ",", "vch", ",", "\"\<; DB=\>\"", ",", "vdb", ",", "\"\<; SSWC=\>\"", ",", "vss"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"qq", "=", RowBox[{"vmd1", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"Color", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"(*", " ", RowBox[{"Color", " ", "figure"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj", ",", "s", ",", "2"}], "]"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"jj", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sldata0", "=", " ", RowBox[{"Show", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"data0", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"boja", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"PointSize", "[", ".007", "]"}], ",", RowBox[{"Opacity", "[", ".8", "]"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"slcen0", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "jj"}], "]"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Opacity", "[", ".8", "]"}], ",", RowBox[{"PointSize", "[", ".02", "]"}]}], "}"}]}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[SixPointedStar]\>\"", ",", "20"}], "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sl1", "=", RowBox[{"Show", "[", RowBox[{"sldata0", ",", "slcen0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Show", "[", RowBox[{"sl1", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"boja", "[", RowBox[{"[", "s", "]"}], "]"}], ",", " ", RowBox[{"Opacity", "[", "0.25", "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"vmd1", "[", RowBox[{"[", RowBox[{"3", ",", RowBox[{ RowBox[{"2", "s"}], "-", "1"}]}], "]"}], "]"}], ",", RowBox[{"-", "0.025"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vmd1", "[", RowBox[{"[", RowBox[{"3", ",", RowBox[{"2", "s"}]}], "]"}], "]"}], ",", "0.025"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "kk"}], "}"}]}], "]"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".1"}], ",", ".1"}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", ".1"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"(*", " ", RowBox[{"Grayscale", " ", "figure"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj", ",", "s", ",", "2"}], "]"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "jj"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"jj", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sldata0", "=", " ", RowBox[{"Show", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"data0", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", ".05", "]"}], ",", RowBox[{"PointSize", "[", ".005", "]"}], ",", RowBox[{"Opacity", "[", ".8", "]"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"slcen0", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "jj"}], "]"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Opacity", "[", ".8", "]"}], ",", RowBox[{"PointSize", "[", ".02", "]"}]}], "}"}]}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[SixPointedStar]\>\"", ",", "15"}], "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sl1", "=", RowBox[{"Show", "[", RowBox[{"sldata0", ",", "slcen0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Show", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "s"}], "]"}], "]"}], "]"}], ",", " ", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"vmd1", "[", RowBox[{"[", RowBox[{"3", ",", RowBox[{ RowBox[{"2", "s"}], "-", "1"}]}], "]"}], "]"}], ",", RowBox[{"-", "0.05"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vmd1", "[", RowBox[{"[", RowBox[{"3", ",", RowBox[{"2", "s"}]}], "]"}], "]"}], ",", "0.05"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "kk"}], "}"}]}], "]"}], ",", "sl1", ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".1"}], ",", ".1"}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", ".1"}], ",", RowBox[{"ImageSize", "\[Rule]", "200"}]}], "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"(*", " ", RowBox[{ RowBox[{"Clusters", " ", "in", " ", "k"}], "-", "partition"}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{"SelectedGrayLevel", "[", "sol", "]"}]}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"it", ",", "2", ",", "KK"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\<\\nMD1: \>\"", ",", "IndMD1", ",", "\"\<; MAPart=\>\"", ",", RowBox[{ RowBox[{ RowBox[{"Ordering", "[", RowBox[{"IndMD1", ",", RowBox[{"-", "1"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", "\"\<\\nIndCH: \>\"", ",", "IndCH", ",", "\"\<; MAPart=\>\"", ",", RowBox[{ RowBox[{ RowBox[{"Ordering", "[", RowBox[{"IndCH", ",", RowBox[{"-", "1"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", " ", "\[IndentingNewLine]", "\"\<\\nIndDB: \>\"", ",", "IndDB", ",", "\"\<; MAPart=\>\"", ",", RowBox[{ RowBox[{ RowBox[{"Ordering", "[", RowBox[{"IndDB", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", " ", "\[IndentingNewLine]", "\"\<\\nIndSSWC: \>\"", ",", "IndSSWC", ",", "\"\<; MAPart=\>\"", ",", RowBox[{ RowBox[{ RowBox[{"Ordering", "[", RowBox[{"IndSSWC", ",", RowBox[{"-", "1"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"GraphicsGrid", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"IndMD1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "IndMD1", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesOrigin", "->", RowBox[{"{", RowBox[{"0", ",", ".5"}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}]}], "]"}], ",", " ", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"IndCH", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "IndCH", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesOrigin", "->", RowBox[{"{", RowBox[{"0", ",", "40000"}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"IndDB", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "IndDB", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesOrigin", "->", RowBox[{"{", RowBox[{"0", ",", ".5"}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"IndSSWC", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "IndSSWC", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesOrigin", "->", RowBox[{"{", RowBox[{"0", ",", ".8"}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}], "}"}], "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.8560940987835903`*^9, 3.856094159780575*^9}, { 3.8560941960665083`*^9, 3.856094262234415*^9}, {3.8560943295374355`*^9, 3.856094330750012*^9}, {3.8560943637517996`*^9, 3.856094364909745*^9}, { 3.856094395574521*^9, 3.8560944085425315`*^9}, 3.856094451676172*^9, { 3.8561516719339056`*^9, 3.8561516955638924`*^9}, 3.85615255624898*^9, { 3.8837959248196507`*^9, 3.883795931895194*^9}, 3.883796015098196*^9, { 3.883796048214207*^9, 3.8837960724917355`*^9}, {3.883796233823294*^9, 3.8837962662491283`*^9}, {3.8837972615042486`*^9, 3.883797296761336*^9}, { 3.883797511814204*^9, 3.8837975123453145`*^9}, {3.883999780153529*^9, 3.883999806351107*^9}, {3.8839999165465555`*^9, 3.8840000043015394`*^9}, { 3.8840000347918406`*^9, 3.8840000749014416`*^9}, {3.8840002374163036`*^9, 3.88400023837031*^9}, {3.8840003294757547`*^9, 3.8840003483667173`*^9}, { 3.884000567524156*^9, 3.884000635629588*^9}, {3.8840008452860985`*^9, 3.8840010206995993`*^9}, 3.8840853546049757`*^9, {3.8842612081017895`*^9, 3.884261231804927*^9}, 3.884261296372815*^9, {3.884261418211062*^9, 3.8842615650840673`*^9}, {3.884261631312604*^9, 3.8842617953320074`*^9}, { 3.884261829582559*^9, 3.884261883545325*^9}, {3.884261939360123*^9, 3.88426194271823*^9}, {3.884746625696392*^9, 3.88474672701224*^9}, { 3.884747781685796*^9, 3.884747819621733*^9}, {3.884747855755786*^9, 3.8847478634925222`*^9}, {3.8847482417508774`*^9, 3.884748317049322*^9}, 3.8847486241846037`*^9, {3.884748661507795*^9, 3.884748662418384*^9}, { 3.884843193708664*^9, 3.8848432460272274`*^9}, {3.884843294487625*^9, 3.884843301027154*^9}, {3.88484348264629*^9, 3.8848437011713495`*^9}, { 3.8848623524612436`*^9, 3.8848623587281685`*^9}, {3.8848625245999413`*^9, 3.8848625466566515`*^9}, {3.884862583545768*^9, 3.884862600413145*^9}, { 3.884862645617732*^9, 3.8848626827146025`*^9}, {3.884862731206365*^9, 3.884862733988841*^9}, {3.884862840201414*^9, 3.88486286409813*^9}, 3.884862900960024*^9, {3.884863027650215*^9, 3.884863032987204*^9}, { 3.884864839300903*^9, 3.8848648744531717`*^9}, {3.8848649452752934`*^9, 3.884864947436731*^9}, {3.8848650449018707`*^9, 3.884865183610197*^9}, { 3.884865247869195*^9, 3.884865284533905*^9}, {3.884865357370708*^9, 3.884865365351477*^9}, {3.88486543052302*^9, 3.8848654407725196`*^9}, 3.884865772455804*^9, {3.8848660024002886`*^9, 3.8848660141317997`*^9}, { 3.8848660704695654`*^9, 3.8848660716285133`*^9}, {3.884866399291881*^9, 3.884866419519675*^9}, {3.884866540599392*^9, 3.8848665846303415`*^9}, { 3.884866718848772*^9, 3.884866834376737*^9}, {3.884866905076358*^9, 3.884866948294036*^9}, {3.884867051027502*^9, 3.884867055690444*^9}, { 3.884867142852866*^9, 3.8848671430255055`*^9}, {3.884867184282977*^9, 3.8848672499879866`*^9}, {3.8848674061990795`*^9, 3.884867425998499*^9}, { 3.8848674679277287`*^9, 3.884867568147328*^9}, {3.8848676022295966`*^9, 3.8848676027781563`*^9}, {3.884867641690795*^9, 3.8848676508704066`*^9}, { 3.8848676840603733`*^9, 3.884867731485721*^9}, 3.884868095841996*^9, 3.8848689409758835`*^9, {3.884869045162921*^9, 3.884869048533129*^9}, 3.884873221833006*^9, {3.8849266556593003`*^9, 3.884926692134432*^9}, { 3.8849267363840694`*^9, 3.884926756497758*^9}, {3.8849268792615347`*^9, 3.8849268811562605`*^9}, {3.884926934365534*^9, 3.884926957464242*^9}, 3.884926989895472*^9, {3.884927049063574*^9, 3.8849270630929556`*^9}, { 3.8849285623041754`*^9, 3.884928709265476*^9}, 3.8849294334725637`*^9, { 3.8849312892987995`*^9, 3.8849312938214626`*^9}, {3.884931689331302*^9, 3.884931716862133*^9}, {3.88495198867494*^9, 3.8849520730359077`*^9}, { 3.884952177298027*^9, 3.8849522912353964`*^9}, {3.8850226185814953`*^9, 3.8850226219424562`*^9}, 3.8850226728596067`*^9, {3.8850228118132935`*^9, 3.8850228119393215`*^9}, 3.885034059947795*^9, 3.885034137163398*^9, 3.88503418004115*^9, 3.8850342718033924`*^9, {3.8850343559276075`*^9, 3.8850343904246283`*^9}, {3.8850345084671106`*^9, 3.8850345089379287`*^9}, 3.885085639436138*^9, {3.88508649969326*^9, 3.8850865304844923`*^9}, { 3.8850867404163246`*^9, 3.8850867409504466`*^9}, 3.8850875186980815`*^9, { 3.885088177466705*^9, 3.8850881786907864`*^9}, 3.885088881375738*^9, 3.8850890275790515`*^9, {3.8850891564703484`*^9, 3.885089156861708*^9}, 3.885089244228094*^9, {3.885123997081543*^9, 3.8851240072953444`*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"c4e2f0bc-957d-4df6-91c1-e524ce464bab"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Image segmentation", "Section", CellChangeTimes->{{3.826954815958087*^9, 3.826954845791814*^9}, { 3.827033979150225*^9, 3.827033983072815*^9}, {3.82801822014427*^9, 3.8280182214929514`*^9}, {3.8551541674675913`*^9, 3.8551541685971017`*^9}, { 3.8553984810087442`*^9, 3.855398481271847*^9}, {3.8560937403770914`*^9, 3.856093745773678*^9}, {3.8560941058930387`*^9, 3.85609410938633*^9}, { 3.8847485096015453`*^9, 3.884748516140278*^9}},ExpressionUUID->"74d58a06-a2b3-45e8-9b0a-\ 7d84cc53a716"], Cell[CellGroupData[{ Cell["An example : letter A", "Subsubsection", CellChangeTimes->{{3.884748712215065*^9, 3.884748726188672*^9}, 3.8847488528515725`*^9, 3.8847490361323967`*^9, {3.8850196604718733`*^9, 3.885019663198369*^9}},ExpressionUUID->"ebeadac1-bb60-44cb-9e59-\ 88dd61d94174"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Fig", "=", RowBox[{"Image", "[", RowBox[{"Import", "[", "\"\\"", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"kk", "=", "3"}], ";", " ", RowBox[{"Number", " ", "of", " ", "clusters"}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", ".7"}], ";", " ", RowBox[{"KK", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"boja", "=", RowBox[{"{", RowBox[{ "Red", ",", "Green", ",", "Blue", ",", "Orange", ",", "Purple", ",", "Magenta", ",", "Gray", ",", " ", "Brown"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"color", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Processing", "[", RowBox[{"Fig", ",", "color"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"If", " ", "color"}], " ", "\[NotEqual]", " ", "0"}], ",", " ", RowBox[{ RowBox[{ "figures", " ", "of", " ", "clusters", " ", "are", " ", "in", " ", "color"}], ";", " ", RowBox[{ "Otherwise", " ", "figures", " ", "of", " ", "clusters", " ", "are", " ", "grayscale"}]}]}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.884748906079618*^9, 3.884748936569664*^9}, { 3.8847489672440915`*^9, 3.884748967885846*^9}, {3.8847494209493036`*^9, 3.8847494447440042`*^9}, {3.8848433916328554`*^9, 3.8848433920858836`*^9}, {3.884843773145343*^9, 3.8848437997509203`*^9}, 3.8848439675776834`*^9, {3.8848443838587284`*^9, 3.884844414846331*^9}, { 3.8848623952287464`*^9, 3.8848623983445344`*^9}, {3.884864728979938*^9, 3.884864757991468*^9}, {3.884864916190206*^9, 3.8848649251042423`*^9}, 3.884865821637146*^9, {3.8848658687547493`*^9, 3.8848658952347507`*^9}, { 3.884926298878479*^9, 3.8849263002763147`*^9}, 3.884927212143995*^9, 3.884928110991399*^9, 3.8849291066213136`*^9, 3.884929637554236*^9, { 3.884931050198242*^9, 3.884931051732981*^9}, 3.8849313104630775`*^9, 3.8849317632474666`*^9, {3.88495231080375*^9, 3.8849523127746415`*^9}, 3.8849523828668056`*^9, {3.8849525108732705`*^9, 3.8849526031179953`*^9}, { 3.8849526337470174`*^9, 3.8849526729799767`*^9}, {3.884952755177741*^9, 3.8849527897548*^9}, {3.885019645414513*^9, 3.8850196696446495`*^9}, { 3.885020163354354*^9, 3.8850201659898324`*^9}, {3.885085065602693*^9, 3.8850850665251637`*^9}, 3.8850856886679573`*^9, 3.8850874400641127`*^9, 3.8850875658921204`*^9, 3.885091518895425*^9, 3.885123678476531*^9}, CellLabel->"In[26]:=",ExpressionUUID->"963182e9-5524-4d1f-9618-cee29589e5ea"], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnetzVVWaxq2ZL/Nx/oX5ZJfV5dBte2lt1FZaUbkIAgJ20wiiTosohAQE g4hcBGnUBg3XBEhAQEBuYsAgcgsgEHKD3A0hQUMuwDi00o5jz2/WM9l1GluL d59wOfb7VLFqnVStffZe67ef9a7Nedf+t2HP9X3yn6677rq0f6Ho+/i4X48Z 8/gLj/wrH/qPSvuPp0aNeOKBUWNHPDVizG3D/pk/5vPvM/79X72pk9Ro1EVN +Hjq1KnP7Pr8888pm5ubVS8sLDx69OiBAwc+sevQoUOUtN27d+/u3bt37dq1 2y7aquHBgwcPHz7MAanEOBlaHTlypKSkpKysrLS0tCSoNJbo2NOnT9PJVOgi upq+OmVUZ3Fy7ciJdWJTS06sE5tacmKd2NSSE+vEppacWCc2teTEOrGpJSfW iU0tObFObGrJiXViU0tOrBObWnJindjUkhPrxKaWnFgnNrXkxDqxqSUn1olN LVmJPdmhRFyFn5VYcFWXtra27t+/n4EGWishh4OAVsRC3cdBe4wS7ZQCdX/Q wVjiQuCtvLwcaMH1aFA8Yuvr6ynpH3q7Ocjaz1ebr86XldgI2ouItd77dH5L S4saUoGWwqDDRsmWZbM037dvHyV//Ngooc5p6IAHgjis9XxoG3lsedCxY8eO Hz9+zCiOQBfRw5Q4rdCNoavNV+crBrGRmhKItYq2kTO3t7eDWTSrmgSickWO AHIFBQU7duwQe9aogJKjidLIwA/YxRGKioqKgxQSwK3VYLFlQNVMhESsRwVN yRGbCG2zUY0hPNM5tLW1MQWDBwN9xChaMbiAQQXq5JaAZ40KAJ7mlIeCAI9T kmFaBaiyVlQeVxxEvdQUbm0mNQHsUUEMRBNbNXUQa7336X+CASqMBUMDM1ry WA1NHivGOAi4Cr9dRqmt4lgdTeGB1fN1hChwBTzq3IlHjYJ2+qehoeHEiRPq Xj42hcWXE2tSZIyJxJ4Ki1mTFJ5pLIgKGGUGl9jPGjdK0cpLzwrEnkkQq6hA po1VghnWbSUWZ+ZkaHhR+Gr1WLqCqUd3tMCjx6D3arJybSh5YptiPeDCPaKD aOW1LyjGs4JooRQxI3RNAvKdO3dSoTmH0iKOivXeUQSrh1pySz7KbE3iDuK+ pmdOB8lj6Sv32BjECtroLzpOnVEsJXAPyurq6qqqqtWrV+fm5mZnZ+cYtWTJ ksWLF1OuWLFiw4YN+fn527Zty7eLVh8Ebd++nY+bN2/maJs2bdpg1/r169es WZOXl8fpcUVLly7l0pYZxXHonDNnzpw7dw6zhT3qra2tLUZdVbgui6zEqkn0 dIuSqQoCP42l+qCamhrGCPCyY4mGUEEJbFu3bhVyMURDiBWllIJ2o1Hvvfce DXViQMutxKWB7lK7QJRI4OzZs61JyDq+PzDu14icWCfWiXVindjLJyfWiXVi nVgn9vLJiXVinVgn1om9fHJinVgn1ol1Yi+fnFgn1ol1Yp3Yyycn1ol1Yp1Y J/byyYl1Yp1YJ9aJvXxyYp3Y1CLWKqUkNwTpWiC2trbW+otuQa7fdVPPzc1l jFasWGHFdeHChfpRd1ZWVkFBQfSrbKsgFtrff/99gbp+/XqxZyWWtlu2bMkO P01/5513wHX58uV8tP6im96A1dOnT587d669vb2tra09lpzYpg6Plc0qjwCT PGEUrSAWVqH9+PHjQm7RokVWYuEBznEzjvDRRx+BK9Rt27Ztq1Effvgh3CoT QaBis7C3yShQp+RkuBbOjVKJEtbroqEyCPBJZR+fjqUfH7HWM8daE0MCPsIe 4FUbVZ8goAU5jEWZJiaJcwh5++234Q3YwIxKgVFqKINdt27d2iAqVmIRzCtN ZuXKlZxhXixd5LGIIEGlSU4s9hjFAyLW6q5SZWUl3NYEUceOFgfFyPPSzEvb nTt3wipWSeV9oxTH0py6glgBbI0KVq9eDfMKVDixBQsWWK9I4jaUQ2rnnGir jRj7QvyDE3syQY0dHsv8XmtUY0daLkeQxxKRzps3zzqyuBlRAcTSnJk9yii0 xrGKJbBHeWyUlmgllracg5ZOeKwiWOrLjeLScFRAVUIiaoulHx+xMdSY8KwA XCsqKoqLi+uNqqqqAlQMtipIi5QYcazcDCsjKsBamd+VS2v1WBrSHHRZcK1Z s4ZwFPwoNxtFSMy3y/y5myipx5g7uDSITUyh9WcFknUvF6RLUDo81B08eJCB 3mIXhqZVDyum+fPnY5KAt8Qo7Evc4kvcO9FdYH3ORhMalpaW7tq1C+Z37Ngh /q0rOK4LzmfPnj116tTXXntt+vTpM2fOnDZt2qtG0YpgifPhxLRTx/FY+vER a92xAen8ibIIk+hPeFu1apXVi7QSx9CYRhloHDI7PBFabBe0qzkDpPhEBm6S nL+8vBxQObH8sIOBQgWT9u7dS9s5c+ZMmTIF8GAV9qbbdRGxiPtRpUnXDrEx vlGVKARtTNiDyGSwsKqtdZrDdqZWViWo0BMkqMCUsEoMNgauOHN2eCpLyVIO YlVaiZVoqCddimmtuGrdh2bMmAGrlNgsZjtr1qwZRtEcVrFWlbBHxYqrE+vE OrFOrBPrxDqxTqwT68Q6sU6sE+vEOrFOrBPrxDqxTqwT68Q6sU6sE+vEOrFO rBPrxDqxTqwT68Q6sU6sE+vEOrFO7I+Y2MbvpGjFwPVUeMs8zfVK35aWlrq6 uj179liToRDQAuqGDRtEbE5OjhIQrMTqd+Dz58+nLcg1NDTU1NTEYFU5klwO 56NM8Hj7HihtQUkEUKc0hBg5CLTSb7k5JcATtJV2dRZXqUssoJ4M7z5Wdiej jLGsXr3amlfFsCoNYVtI2c7Ly1MSnzVrZnF4YWJWVhYVbZugFN14xEYeuz3s ubE9ZNdaPZaLUh7BlClT4HZqUIw0BHgrLy/nrKKsmRge++Mj1vq9ypoBV9EL IYzsxrAXilXr1q3Tvivvvvsu1L311luAZyVWyYzyWG2DQFkba4+a2pA7g7Xu 2LFDgYHyHE2iLR0yM0geyxRvNVgpIlYeG4/YZCBJVOoSi6/KbDnIqfDSeQaI 8f3AKFqpFPC5ubmwt9AuEauIQgmJDHSMqEA2K48F1Ngeq52UZgVFEWyMVC+a cDllZWXcgImZiU5sjKhAUh1itWlADI/VngBo7dq1SpSWZ1ql/SjgVgmJDFOU VG4VzRWoaBuuGNvNKZ0W3kQsFRFrXXnNnj0bViE2yczEzuLq2iH2c6NoRQmo LLu0CsvIyEhLS3vCqGHDhlE++eSTTz311IgRI/j4eNAIo4YPH/70009TUl8S NgfAeGPk5Ea55OPHj8/MzHzxxRcnTJjwol2ZQf379x84cGDfvn0fffTRfv36 DRgw4FGjaEVUT7Sja0kMgUyyJkp/n1NdO8Rad8XRIwKI1Q5mrM2B7bHHHhtu VEQspFGhFL3W4wjyoUOHUmF8CQ/mzZtHJcuo+UHQzt0HtOPGjUtPT6fMMIq2 oA6igwcPhttBgwZRQuBAo/r06QOic+fO5ZR0XUpyX2CU1ZG+j+Rrh1jrXnna G0fmLIblkFaPhU+8UYgCm44gbq165plnRL6CBIY1Rmghp8XQoBSrnDhx4gsv vKDSJDinhNjf/va34lYGO8AuPFZL0chj9djZJKsj/cDceuWJvahtInXWiwJd lXy0strpkmMDLS60OGyDGWMFJ0ei+dixYzFJqANdVayiFXM67kqJW8pjrYLY KGLhxAhX9DzEeidaPfYiJOS6VysqcGKdWCfWiXVinVgn1ol1Yp1YJ9aJdWKd WCfWiXVinVgn1ol1Yp1YJ9aJdWKdWCfWiXVinVgn1ol1Yp1YJ9aJdWKdWCfW if0B8b0NQWquSvQm9EuXEhD0el9d0YgRI2LkDqChQcNDwksEnhXXqC3EZmVl iT1lE5j09ttva9+Dl19+Wb/KnjhxIvTGwJWGyj4QscqasYpW2sMBLV++/K23 3qKkbiU2hh39XWKTVwxiT548eRGxskqTdLspB1xnAi0ixyQAE2lR3oE+WjUs SLkziUkli42aN28e3M6dOzczM3PMmDGwRyWGwQr1iFjKR0PKTH+7ssPbSxeF 1Ms33niDk4TbK0BsBK3qV4vYUyFfWy+aBzklzihpyyRBrrREvav36aBhRgk2 2Sy86WO8zESZLT6PQ2qYFodXf5oEFZgYLj158mSsdfz48YBHYBCDWEUFctfB gwdDLKU1z4tWnBXQ6r3hnFheXt6yZcsuKbkrQUkS21m4xiBWlIpYSR+t36sk NV1Ic0hUBLkhQ4bE8NjIV5WrNXLkSEqrxypHTOHEn/70p3lBeJE1HwqDhXM8 lqhAoAJeRkbGBKPU8JFHHmFm79Onj+b3GFEBV4SvateRBSHdkpNcZM+ltc6h DOhFH091RhAbI45tTMhMFMAnTpzQnk5WabeH8vJyyrKysgcffPC+++77tVF3 3333PffcQ+Wuu+7q1q1br169+vbt+/DDDw+ya3AQlWnTpmnLICrWrO2XXnrp lVdeAdcXwppLedxWXCPBKtD27NmTCpfGdfUy6t5773005ID3Cerduzf986Bd MYiNoI3ywa8KsQI1MTCor6/X26VNAteSkhIqxcXF4FpUVETfdu3atZtRtILz 3/zmN3D7wAMPDAjJp4r6rKIV0yhHgDptNTBp0qQpRoGZthoQcjqOglKraA6i YMZ1AS3YUPYwCmih9KGHHurevbuOwx/pt95GWfcruEgRrjEcMkkJ1IhYzuTT Tz/FJ48Zpc0hta8OdY5Al2KYVo+VtYKraMeRFPLF8NjHgoAWhwRacKUyyahp QaALq1CnHTYw2xi4wjmoAK1IgzrhZ1LUXAD3C+KPPY2Kgeh3ib3yuCYSSzAQ EYtJlhtFE9xVNgu3lPjknXfeea9d999/P21Bl5KlMR5rXZ7IWsUttLNoEn4Q O9koWKVV9HxAUYE2LjCJtqzahBzuSgVcFRuYRHOsQPEA6PIX0fuPQ6wC16aw q4YebfFHfNJKrKCN4ljQBTys0oorTQAVd8WfCQ8wEPlkjDV1RKw8FsUgVk2g PR6okRRLyFQhVq4obk2yktlZxH72PSsvJ9aJdWKdWCfWiXVinVgn1ol1Yp1Y J9aJdWKdWCfWiXVinVgn1ol1Yp1YJ9aJdWKdWCfWiXVinVgn1ol1Yp1YJ9aJ dWKd2GuNWFRXV9fe3g6uLS0t1JVBYM1BqKiooFVRURH1mpqaysrK7t273377 7VZiYfVXv/rVL3/5S4jlCIzsE0888fvf/36wUVEOAhUlaiEq1qwZcFX+goiN rfT0dE6gV0faWo8ePcBVOV8mcQTuYtrSPzTnOJSYg/U4nxvV2toKG0qahlU+ NnakXF1hcTJ4LKdRXV19KmSCc+MozdCkI0eOHA0SvcXFxTjJnXfeac3zUgYT 7np/EEODSSrhy6RoxxUqyvNCYs8k5SDIZuWx8XISn3/+eU6APoFYGIs882Gj 6BP1BnWOQ0dxgTEyHK250rBaX1+vHVSABI/V1HzliRWlzc3NeoO53H7Pnj1l Rn0ahD+XlpYeOHDgww8/hD0lGJqEwd4V1LVrV2xE+eMDwmsxrUr0WIEXw2Pl rpHBaoqP0hVN4mjwpvQuZWnFyIF9/PHH6Rahzkd6SekzVo+1hgR4GrNwW1sb xMro4OT8+fPJE3jSKKyekvOpra39LOw5wJy+aNEi61vUtVkKgzJ9+vTXX389 Ozt7+PDhY8aMed6o5557buzYsWlpaaNGjeKY27ZtO3jwIHfQQaO4az4JovLF F1+cC6Lyn3bRiqH58ssvL1y48Je//OXrr7/+71jiIKtXr16xYsXKlStXrVr1 btA7RmVlZUHpzTfffMcddxB0UeE2/9nPfnazUR8YtXnz5o0bN2JE7wfl5+dT Z8Fi5S15wSelYoPPwo5GmG0ML5ozZ87s2bNnzZqliHHmzJl4I+w9Z9To0aMJ +UD9D3/4A9wWFhbKww8ZBauHg6iAyhdBVP7LKLEKqN98882333771w59axRN vvrqK5DjXs7JyVm2bFlubq5KkzZt2nTbbbf95Cc/6dKlC6BSEvNff/31XYzK N2rLli2ACqVUABgn2bFjR6cQ2GCXGhKl6LkBlalTp84yCmudNm3aq6++Cr0A T/3ZZ58FOavHjhw5clQQxFLuC9q/f/9ho4D2SBCVP//5z8KPynmj5LE0hLcL HaL+tVEiFlOVwYIuZguxK42i7c9//vMbb7wRn7zppptgjwp/udUoq8eKUojl lqEOvVu3bo0BW/LSQy1C0IbwaIsKfwG8V4yCWHFOhIDBQiwGq1ne6rG0om1G Rsa4ceNKSkqY1lnQXa2oIPJYpvX/CcJsqf/VKKDlllFUAK6wJ2KtHrt06VL4 hFVABTzqOC2u++9GbTNq+/btmKqIpRS0jWH3gCssbQJDNKuHGESznAbsTTdK 7koFegU8yGGSo40iHpDNCl3ccteuXUVFRUeMoqFaUZG1ymOtOnv2LNxSUWCQ CK1JQAv5OOSyINizRrASR4BPrPWnP/0pxMItFQF8WeNYBLT46nvvvVdQUKA4 QXaXpKxRRGPCJhsS0SwOaSVWUQEeK2L5iGHGW3mpFUEFJcjhk9YgthPjWFhV Q0yScFS4qjQJaGmOr8LqmjVrli9frsDAqry8PHjDJHHXW265BYOl8otf/OIm o2IQqwUXoIKuooJOiWOdWCfWiXVinVgn1ol1Yp1YJ9aJdWKdWCfWiXVinVgn 1ol1Yp1YJ9aJdWKdWCfWiXVinVgn1ol1Yp1YJ9aJdWKdWCfWiXVif1jW39NG OQjK562trT179qzwM2nOnDkvv/yyWJ0xY8Yf//jH0aNHjxw50vqLbpqkpaUB LcSOHz9+z549paWlRUVFVmKVL1NYWFhSUtLe3n7hwgXwSyYtMUpDUNKWlVia 0LHr1q2D1ezs7FWrVgk/a9YMrbp27dqlS5cbbrgB8JSDcGWIhVX9lnv9+vUf f/zxxo0bq6qqks+ljfcjcKUlUq+rq2tubk5PT59plF5VrLzayZMnT5w4MSMj AwJHGYWvpgdRHzdu3EcffYRJ7tu37xOjioKolJWVtba2Qp0SZ6x5XkhJXnis 3FWZhlZiAb6lpWXDhg0YLNQp4QtirR67cOHC22+/HUQBlcqtt95KnfIWo6xZ M/JYJc5ALBXQ5Xa+8sSCqFo1NTVR1tfXUw4ZMsS6YwMaOHBgnz59tIMQR5g7 d+6SJUvyjMrJyWHexIgWL15MybnBGxNBvVFMFkwcFRUV+IB24GkIwU+8O7ox bOyQuJOPNd8fuz5z5gxTxv79+7kBCVcOHDhAvcio8vLyzMxMJSxjDsRgL730 knZjMOkFo5jvsBG+etKkSbjKhAkT+N7i4uIrTywjq002qOvVtAw04PU1qmfP noMGDbrvvvt6hrdaP/TQQ+CHk2TbtWzZsqVLly5atAh6OT1OrKam5oRRJzv2 LdEtSaW6uloJmPGI1dZksaXzgVWlnhHqHD16lIjFmnEJtDBD9AWuSmEGWurW KM66CxOsMuVRgXa9SJrvTR7XGMQyoBpZRhNrUt26tQ7q3bv37373O1CnHDx4 cI8ePZj1FixYYM0VRZr+lLvX0JE7WWtUZWWlLooL1GY7HIqAx0qafJWGpxN0 0cdLEedAia9CLNE1FWW1Wz2W4FzEEoNNCy8lByEqU42y7sIEsRlB0W5OVK4K sQyr5lwGV3X+2K9fvz5Gde/eHWulxG/79++P065du5aoYLlRBAO0wmkpMVsZ I6V1BUqThhDkRMRydZBmjS5oFdlsY3DaqGISQSwrL9wVXyW61sIQAg8YxRFY JkAsoGojOypWXJF1b0a9/RxiwVX7mPHHk52xU5yV2IaObQoaOvJwqWvzMZOG DRsG5wMGDFBMC70sMUAuxygFsTJbPFb7fmguMIkm2uKGyxGuCjCspCkY+K7T thilfdWIY8EVj9VjN7i1eiwC1Ndee03bmMhdYzyNtBKLzWKqimm1Fxl/6ZSd 4qy46jYRGJp/cSfYsxKLtXbr1o01V+8gogJmdmJRq8dGkBPKEgkrgo0Rf2o/ MUUFp8JOp9EMYlJks41/G8paV15A3tbWRiBK+KpHGdT13NgqLE67Q4hYbTl1 uaMCYlfMHIOlwkdhzC185YltCIGBHIDR0RLMGhJIQKsKxMI80zo+ucyupR2C WBmjYuwYEmwNCdN6jEfcEatyWiurkWiLqWr1pPk93n+ORNRhlYoQrkBUoNgV g03c4zF5XJ1YJ9aJdWKdWCfWiXVinVgn1ol1Yp1YJ9aJdWKdWCfWiXVinVgn 1ol1Yp1YJ9aJdWKdWCfWiXVinVgn1ol1Yp1YJ9aJdWI7XQ3hR8vqz6qqqpaW luLi4iFDhlh/0Q2l/fv3B1dY7dWr19ChQ+fOnbtq1SrrL7pzcnKUVJsb3sHK ECudx6rvuz1j5CB0igCes6qoqKB7o5eQ6tfdJhUUFLz55psTJkxQsoySvGK8 49JKbGZmZlpa2sSO9Jn09PQ5c+Zw/sn3jJVYNVHbY8eO0bFnz57Nz88/apR+ V38o5C4p564xZEzXGFVXV8cdRKW8vJw7iPuovb1dmX2d0g/J93A86fXujSF/ pz4hfcxq1OfPn6+urqZzlF5BF9FX/MWaVWQdX9jgFqPkq7npCgsLGesLFy4k 3zNWYhUPNIZtATT/YrP0wCW/svj/pVxmLur48eNcERUm9NLS0hhRSlNI7BK9 TcGdNAuY9H25scn3cDwBJ6XmsighN0bWCd1SVlaGV9M5lZWV2pABkCqMso4v A6rMX+WmEdvs3r0bWpLvGWsPCAZtBXPmzBk+cjlEWTEy5nRRoEsFaDkZoK0y im+vDqKuFC2GuDHYtTVr++8q+R6OpxN/myymkYqi60tXU1hunAj7MGAO9DAH obTOZWV2MaaUSgfmq7GjGHPfd2XtAa6XaVeQKJ2fG0cmaRJNYFULCqICKic6 9kAwSTZbH7K2G0I+LN0CtNZ+uNY8NlGJ/f+5UTSRD2h2pkInA1KlUVaPhVK+ ji9lZLV4JCrQxNGJvXEpAtRz5841hQTwxo6lNCdmJRZcdRsyQx0OK4sIPJM4 DRxAvUpFjy+Q1WOT78nOVeSrkuYOLCLGgwvZi6xSNzg9b92BxBrHHg7vUmcG LAnS+rFTeiYGsZgYHUiJoYkxJSmbRDxwKOQyM1mIWC2gPjWKb4+WEoppNbKp Tmw0o6nS1PG4zCragg23szoK9qjgEtboyxrygQSrLQZaTgu0jHKMue/7eubS xYKLbqQTGsMMpdtfsahJuvUAVcTylxNhqyurx0a2HEV90RCbdK2RrG9PDKcb Y8WxGEsU7UMO7srHarusxPKNn3RsyctAi+FO6U9rDzSGR7KnOvag+CzsyWnF 9UjY/exIWEXqohRiaYEQIzCQgVDRKDcmsfK6Ni03trTOwmOj9SniL5ebWKRI QO6ENWlxnbycWCfWiXVirx05sU5sasmJdWJTS06sE5tacmKd2NSSE+vEppac WCc2teTEOrGpJSfWiU0tObFObGrJiXViU0tOrBObWnJindjUkhPrxKaWfnzE /i90ZVYF "], {{0, 184}, {230, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", ImageResolution -> {72, 72}, Interleaving -> True, MetaInformation -> Association[ "Exif" -> Association[ "Software" -> "Created with the Wolfram Language : www.wolfram.com"]]], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{121., Automatic}, ImageSizeRaw->{230, 184}, PlotRange->{{0, 230}, {0, 184}}]], "Output", CellChangeTimes->{ 3.884748941228768*^9, 3.884748980243547*^9, {3.884749425988143*^9, 3.884749446261633*^9}, 3.8848434020681734`*^9, {3.8848437589412217`*^9, 3.8848438010800004`*^9}, 3.8848439685866055`*^9, {3.884844384412653*^9, 3.8848444153522997`*^9}, 3.88484460051935*^9, 3.8848448671966844`*^9, 3.8848627581214905`*^9, 3.8848629172430058`*^9, 3.884863039540911*^9, 3.884864883937987*^9, 3.8848649575357113`*^9, 3.8848652974932833`*^9, 3.8848653729114604`*^9, 3.8848657801329865`*^9, 3.884865822372548*^9, 3.8848658995849695`*^9, 3.884866083890219*^9, 3.884866859493307*^9, 3.8848669783302355`*^9, 3.8848670738071957`*^9, 3.8848672715796857`*^9, 3.88486810585816*^9, 3.88486846673011*^9, 3.8848689503509483`*^9, 3.884869063910631*^9, 3.8848730807681456`*^9, 3.8848732449175797`*^9, 3.8849263726208158`*^9, 3.8849267720308976`*^9, 3.8849268916669474`*^9, 3.8849269991303177`*^9, 3.8849270678195457`*^9, 3.884927213365094*^9, 3.8849281130765843`*^9, 3.884929107325282*^9, 3.884929442025658*^9, 3.884929638624316*^9, 3.8849309850283566`*^9, 3.8849310533170094`*^9, 3.8849313111770415`*^9, 3.8849316348245783`*^9, 3.8849317288921795`*^9, 3.8849317653551655`*^9, 3.8849320893911123`*^9, 3.8849510570543737`*^9, 3.8849520903970766`*^9, {3.8849523334926977`*^9, 3.884952353230482*^9}, 3.8849523867019744`*^9, 3.8850202543753943`*^9, 3.885022627981488*^9, 3.885022680132117*^9, 3.8850228185075502`*^9, 3.885034083547851*^9, 3.885034147397187*^9, 3.885034189927019*^9, 3.8850343978550167`*^9, 3.8850345191311417`*^9, 3.885085067010704*^9, 3.8850856565380607`*^9, 3.8850856893228397`*^9, 3.8850865572128134`*^9, 3.8850867469404364`*^9, 3.8850871200906067`*^9, 3.885087440487174*^9, 3.885087566943839*^9, 3.8850880976984124`*^9, 3.885088894602911*^9, 3.8850890412086987`*^9, 3.885089170402687*^9, 3.8850892700321302`*^9, 3.885091519584668*^9, 3.885123785616934*^9, 3.8851238385332365`*^9, 3.885124045386399*^9, 3.8851245382186947`*^9}, CellLabel->"Out[26]=",ExpressionUUID->"e6772cbe-8125-4daa-856d-a7cd3e31e053"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\\nOriginal: \"\>", "\[InvisibleSpace]", "\<\"BMP\"\>", "\[InvisibleSpace]", "\<\" Dimension image: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"120", ",", "150", ",", "2"}], "}"}], "\[InvisibleSpace]", "\<\"; |pod| = \"\>", "\[InvisibleSpace]", "18000"}], SequenceForm[ "\nOriginal: ", "BMP", " Dimension image: ", {120, 150, 2}, "; |pod| = ", 18000], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245382186947`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"8f5b8a1d-a161-4eaa-8125-05ad730fec6d"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\\n\"\>", "\[InvisibleSpace]", StyleBox["\<\"SymDIRECT \"\>", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontSize->16, FontColor->RGBColor[0, 0, 1]], "\[InvisibleSpace]", StyleBox["2", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontSize->16, FontColor->RGBColor[0, 0, 1]], "\[InvisibleSpace]", StyleBox["\<\" centers: \"\>", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontSize->16, FontColor->RGBColor[0, 0, 1]], "\[InvisibleSpace]", RowBox[{"{", RowBox[{"0.862`", ",", "0.466`"}], "}"}], "\[InvisibleSpace]", "\<\"; F=\"\>", "\[InvisibleSpace]", "140.00876003378738`", "\[InvisibleSpace]", "\<\"; Iter = \"\>", "\[InvisibleSpace]", "16"}], SequenceForm["\n", Style["SymDIRECT ", 16, RGBColor[0, 0, 1]], Style[2, 16, RGBColor[0, 0, 1]], Style[" centers: ", 16, RGBColor[0, 0, 1]], {0.862, 0.466}, "; F=", 140.00876003378738`, "; Iter = ", 16], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245384061503`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"e5cc4583-52ad-4bf3-be37-27db2a31a1b3"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ {GrayLevel[0.862089112432048], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.46585886297820456`], DiskBox[{0, 0}]}, ImageSize->20]}], "}"}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245384061503`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"d1e421be-05f7-4245-8e2c-4113ae6cba1f"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"WKMeans correctiona: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"0.862`", ",", "0.466`"}], "}"}], "\[InvisibleSpace]", "\<\"; F=\"\>", "\[InvisibleSpace]", "140.00875908759053`", "\[InvisibleSpace]", "\<\"; Iter = \"\>", "\[InvisibleSpace]", "1"}], SequenceForm[ "WKMeans correctiona: ", {0.862, 0.466}, "; F=", 140.00875908759053`, "; Iter = ", 1], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.885124539874596*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"5a5eb364-f41a-4639-865d-120f8a90fff9"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ {GrayLevel[0.8620814431770797], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.46585270134740325`], DiskBox[{0, 0}]}, ImageSize->20]}], "}"}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.885124539874596*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"1fa364ab-d259-4d0d-889e-1deb7486337b"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Clusters size: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"12604", ",", "5396"}], "}"}]}], SequenceForm["Clusters size: ", {12604, 5396}], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.885124539874596*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"83e3d631-be74-40dc-bef3-5848c1440078"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Gaps between p-clusters from left to right: \"\>", "\[InvisibleSpace]", RowBox[{"{", "0.199`", "}"}], "\[InvisibleSpace]", "\<\"\\nThe smallest \"\>", "\[InvisibleSpace]", "0.199`", "\[InvisibleSpace]", "\<\" is attain between \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" and \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cluster from the left\"\>"}], SequenceForm[ "Gaps between p-clusters from left to right: ", {0.199}, "\nThe smallest ", 0.199, " is attain between ", 1, " and ", 2, " cluster from the left"], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.88512454110868*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"ba225dd6-f61c-488c-b622-f0b0da66ef75"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"kk=\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\"; MD1=\"\>", "\[InvisibleSpace]", "25.539195568082707`", "\[InvisibleSpace]", "\<\"; CH=\"\>", "\[InvisibleSpace]", "76255.08723945156`", "\[InvisibleSpace]", "\<\"; DB=\"\>", "\[InvisibleSpace]", "0.48526592831948073`", "\[InvisibleSpace]", "\<\"; SSWC=\"\>", "\[InvisibleSpace]", "0.9191637672620522`"}], SequenceForm[ "kk=", 2, "; MD1=", 25.539195568082707`, "; CH=", 76255.08723945156, "; DB=", 0.48526592831948073`, "; SSWC=", 0.9191637672620522], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.88512454110868*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"7a3e580d-625e-4088-b621-5ac01743e1fa"], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.8620814431770797], RectangleBox[{0.3120975595575515, -0.05}, {0.6196078431372549, 0.05}]}, {GrayLevel[0.46585270134740325`], RectangleBox[{0.8182805334129829, -0.05}, {0.9058823529411765, 0.05}]}, \ {{{{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztndmyZEUVhjt8CEbF8BG8AZnkHYxQBBwijPDaOxBweAp6ZPAlBLqbwZeQ oZvBG6RBQW+gu5k0MrVOBl/E7lVJnXNW5q5v3RBf7DpN7qq9/v/PrNq5v/er 3/zo1986ceLEfd8/caL895mnS/3zgRP/r33j39Ual3vHy9e//FKpxm+/VWoe /vKLUo2/U+ujxfN9vNYHi3x3rcYP1RqXo/H/ttaVA/5BrcY/rTUP83x4vPf9 yf78IuZ4z54p1fjhWh8u8j21lo/Pxux/6tfaONv/ZNl8Zb7asPnKfGW+Ml+t hbP9T5bNV+arDZuvzFfmK/PVWjjb/2TZfGW+2rD5ynxlvjJfrYWz/U+WzVfm qw2br8xX5ivz1Vo42/9k2Xxlvtqw+cp8Zb4yX62Fs/1Pls1X5qsNm6/MV+Yr 89VaONv/ZNl8Zb7asPnKfGW+Ml+thbP9T5bNV+arDZuvzFfmK/PVWjjb/2TZ fGW+2rD5ynxlvjJfrYWz/U+W9zlfkX9Wa/n47HmKzDwV6S/99sL5UuP4aW+e ot+ar26cT26tNc7nuWu+eqLWh4vMfHVbrXHyUsQ8n2i+yPlWNB/L1q+Is/1P ls1X3zxfzaY35PtrLecrnt/1a6WaH9Nvo/WtbI7yQZSvorxyS63lPDYa9+ar KK9m56nefM38FOWtc2dLzcMcP/WL8ysep/7Ntv6V7X+ybL7annl+Ud6ifmVz rz7y7yO/Gp2ZF7j+xtczL127Wur9A47y12h85nSpxudfLHVl6/eLnP159jI/ 713Xg0bj3u8Ho/Ue169keVzOzkO9eWnXfDX694fUx5/XWp6/8u+Zrz67Xmoc /+zNV/y+iOcX5Sfmlez81Pv9IMd/2O9v9noV1ys5PuaPixdKbf99Yfb3f2SO 7/KlUo3Z/9+utf38qlf/sjnb/2R5n/NV1I+9+So7P0Xcq0f8++j7wWi9I5uj 7794fm++UWp5vSc7L/Uy1+N4PHp/et/P7HwVrbfx91Rkzh+i32ONxpw/MF/1 /j7AfCXL43B2furNV71/z99rffF5qX8c8FuXS43DL10s1ZjzV47/9lqNX3+t 1N8P+MFa7fuyu2o1vrnWuByN9+qnpdr5Plqr8Z21Gv+k1rjM8ZJ/XOu9xf64 o9bHB8z1z9/XWma+fjTO1ktZ3mc/5nij30Pz9fQv+l22//Yy/fmRWu04/Wk2 /+3145tqbe93fH3kf8fN0fj4/cErL5fa3m9n42z9yeZsf5D1X/1X/1063jvf 1X/n4mz9yeZsf5D1X/1X/106rv/qv2vmbH+Q9V/9V/9dOq7/6r9r5mx/kPVf /Vf/XTqu/+q/a+Zsf5D1X/1X/106rv/qv2vmbH+Q9V/9V/9dOq7/6r9r5mx/ kPVf/Vf/XTqu/+q/a+Zsf5D1X/1X/106rv/qv2vmbH+Q9V/9V/9dOq7/6r9r 5mx/kPebub8t/fe+WsvXb7TfY7af7ro/5ZO12nH61ex+HJ0P95/s3Q8r2297 mfs7P/tMqWX/4vHo9aNxtv9lc7b+ykfL2ddXxNF8N3o9/ezpc6WW/W105vlw P2j6V+/+0KMx/ZbnQz997a+l2n7Jn35S6r3F14/OzBfMo/Sr3v2fR+ds/cnm bH+Q99t/Od+L/DiaH4/2PIbe8UTrz5H/Rv42GnP80fpztB6dPX+Nxse8wDzB 5y/Qb/l8pOznJ+zK2fqTzdn+IO83R/7K4/Tbzz8r1Z7vRr/i/JLz42zunf8+ Vmt7f82e30Z8+lSpZe6d70b+Nxof9fw321+j8Wb7XzZn6698tJz9vM/e54Hy +uTvUTifvHa1VNNr6hnnV9n8wvOllo+fOllq2U8vXyrV8gb9/N5ajfn98WjM 8V+8UKqdH/2Y82Mez57P9+YhXg9P1Grnz/zFvDkb83x6v39aG2f7w76vvx72 eGfz38iP+XsUni/9ir/PoR+PNt+J5m88H/rr6PP7iDnfpz/z++ze33ONxswL PD/6L/2L+av3eDbrv/rvSNy7Htt7f062n+7KXI/jcc4fIr/LZuaFaLz048h/ Z/fjyH/pZ7P5b5Qnzp0ttexX9NfZ5sf6r/47Euu/+q/+q/9uWP8dS5/1X/1X /9V/N6z/6r/673o42x/1X/1X/9V/N6z/6r8j6bP+q//qv/rvhvVf/Vf/XQ9n +6P+q//qv/rvhvVf/XckfdZ/9V/9V//dsP6r/+q/6+Fsf9R/9V/9V//dsP6r /46kz/qv/qv/Lh/v9bNs1n/1X/1X/91wtj/qv/rvjZj7X/F4tF9/9n5Xvf4a HZ9tf2v99+vM/bsj/2XeGn1/K/1X/53Jf3v9lrw2vyVz/3Y+H4j763K/fvrZ 6P7L+TFfT3+i/0b7K4/GHC/zRTR/zPbTXf032v+Z7wf9dzY/pv+O7kf679jv 3+j+m/3+R9y7/szzp77Rv0Zn+mv0fXbv/Df7+YsRR+vn3C+Z/kWmP4/G0fMk 6L+c/0b7PdPfRmOez+jz31493nW9cm2c/fll++/oTH+Nvu8ln3yq1PLzVPn8 gtGZ8+Hn/1yqnc9sersr9z4/eHTm+JmvHq7VPl8+D4rr0xHz77OZ1+/ofnTU ep99frO/f6P5L/2L35+OxvRTPm/w2WdKLT9/kO8f//3I34+ajzq/ZPeX/btb //Lvef3cX+ujYZnfD7F/+XqeP69nvp7/3nHzYesdP9/s/rJ/v86958Pj/Lyz r99dmf0dnf9R98+u3Hv+kZ9n95f9a//av/bvEmf3o/1r/9q/9u+2r7d/7d81 cXY/2r/2r/1r/277evvX/l0TZ/ej/Wv/2r/277avt3/t3zVxdj/av/av/Wv/ bvt6+9f+XRNn92Nvv+56P9xovx/cldf2+8nD7t+1c3Z/Rszx7lv/9vrV7P0b nV/0e+fsfrJ/+/w36ufofqTsvNj7e/zo/ovo/evtn+M+v96/37e8PFt+jvqx t3+5P0X2/bq99/Py/mMev/RmqQ8OmPvZsd9H69+on/d9vjtb/0b9eV+t5fPj 9cvrn/vp9N6/f9TM/uR4efyz66WW+zeaP2bf/9v797Ndz/vGu97vy/7O7sde Zr9y/5Be/7V/5UyO/Dbq5133yxmNud/ehfOl5unfo57/Zl+vsv1r/9q/a2H7 1/61f+dl+9f+tX/nZfvX/rV/52X71/61f+dl+9f+tX/nZfvX/rV/52X71/61 f+fl3v4lZ/dbL0d6Y//avzNz9PnxeanR87lHY/Yrf9/M+zH4eurdaPcvcDz8 /KLxHvb9pfLhMj9Pfl58Xld0vyB/H3xPrQ+HZf7emczX31LrygHzedCj3T8a jYf9Gn2+0f3Q2ed72Nx7f8BRM8fH6y8aP6+HJ2u1v3/j9VLted5312r9fP7F Ulem4TffKNX4+rVSjfl8wldeLtX4nbdLLR8fne+o9fEBP/dsqcbvvlOq8X++ KjUPf7fWvw74h7Xa8VMnS7Xn4z5Wq13fd9XK4+j5vg/Wen/x+LWrpdpx5unR 9WxXZn7OZo6P8/No/PTbR2q1z5N6xrzF9YHR+PFay8c5f/pDrdbPr75Salm/ eHw0pv5Sv/5Yq/Gfniu1fPwvr5Zq/Ld3S+Uxx/O/+vfi+Z58qlR7Pj2fZ069 jJ7nftRMvY70/IXnSy2/vlcf5KPl6P786PX0X+r1Q7Wavp09U+qDxeOjM8fP vPmLWo2p5zw+OtNvfllre73mcerlcTPHQz2nXz1aazmf3lwrj6mvp0+Vasz5 QPTvRf2/Ns7O87vm/2h9k+uZ1GfmU+rbaByNl/k60mP2++jM8ZOpv1FejfQ7 mzneB2o1vrPWuPk5ytPMy9Rj/n2Un+WxmXpNPb+11vb6NxozL0frH1y/jPQ5 0r9sjsYb6TP1eHReuz5H69WRPq99PXptrD6rz+qz+iyPyeqz+qw+q8/ymKw+ q8/qs/osj8nqs/qsPqvP8pisPqvP6rP6LI/J6rP6rD6rz/KYrD6rz+qz+iyP yeqz+qw+r1efo/vTsvVn3zjS295/j/sJcT+ObP3dVa8jfY70Lft+7Ygjve69 fzC6nzCbOX7ux8H9N0a7v3tXPee/x/0aevcbno2z7y/vvf+c8xt+Pvx7vv7M 6VLL+hzl02yO/IT7JX31Zam2/xv1LdqfY3TmfkrR/htRns6+nzvyF35en35S qu2XdFOtZb3j/dTHzdxvg8c53mh+QH1Y+37g2XocMfcfjfI2mfuPcn8Ovp5+ zf9/NnP8PM79/Lgfa7TfTHZ+6OVof+lo//Hs5xVEzP2QuR8695eJ1vO43272 /l5RPuJ4eX33Pn9nNs7W34ipR9F+SDy/p8+V+uZ6l80cH/2j18+i+Uj29djL 1OPoeS27Ps/luJnj5flG+9NGnL3/V7TfF/1mbdfv7PpM5vij/bypz2R+3tTD bOb4qL+RPvP96F0vys7Hh52fZ9PniKP9cSM9zl6/i8ZHfeb1rT7ncu/6OfuT z++L8udses33J5pPzL5fY+TX7Nds/exlrmdEz3Pr1bvZ8jO/3+fnrz6Pxb36 wvXn2fJzL/fOP8jZ+nvc+Xk25vlE3x+P/v13b36O1juz9VR9Vp/V5/3VZ3K0 /qw+z83Zeqs+q8/qs/q8YfVZfVaf1ee1sPqsPo/E6rP6rD6rzxtWn8di9Vl9 Vp/V5w2rz2Ox+qw+q8/q84bV57FYfVaf1Wf1ecPq81isPqvP6rP6vGH1eSxW n9Vn9blxdH+g+jw3Z/dXxL16w7+/vVb7PE8+Vartz8j7v/n31O/ZOHr/ovc/ +/rsZfZrpN+zM8/v4Vrteo70m/k7+/7uiHm/N/MX35/e62N0zu6vXj/hceYL 5mXub8DPm37N/Q15PJs5PjL3n+T7wet7dOb+OPfWaky/jfLn6Pp92P2crS9y H0fXQ6SH2ePvvT7Zn0/Uav18+VKpxuz3ixdKbf/6bOb4ovlvNkf7FfN5BPQr +hH9OPt6NF/deH7M8+Hnx3xxT612fXM/El4v2XxbrTZezl94nOfHfBLlF+4H d9wc7e8c7bc/W56K9jvelQ87v8lHq7+RvkXr79nn08s830gfmFei51mMztTr 0Zl+Q/+MXk8/X7s+ZeeniNl/fF5ItN7I9XfmF+aV0TjKV5z/cH7B8x8tT/U+ nyj6fp/X92z+M/r6mJyrz9HvIWabT3C87Geu9/D7Y+oDX5+dn8hcf6cfMa+M xlxfpD9xvYvnx+t57fqUnZ/IHB9/X9M7P+ffZ1+fvczrNZov8PW96z+jMfWW esXPN+rf0TlbD+SxONLHaP0ze/y9zPWpaD5F5t9n56mIR8tX0foDvz+k/zB/ 8d/Pvr6y+zebOT/jenj0e1DqC/89ft7Z61MR946Xr6f+ZK9P7bp+FT3Pava8 Yn7bb97184zy2GjM82H+4HpVtJ6VnZdmX7+inzA/Rb+vj/JZ9vW27/kqylvR +nj099l5qZej9avoOPMV13uy81Rv3ormr5H/ZK9P7fr7K/OTvCamXnO9inmk 93h2npotX+26vhW9Pvt6y76+R2fzlfnqRutx5qux9EWWDzNfRXnFfGW+Gomz 85L5ynxlvjJfyfvJ5ivz1Zo5Oy+Zr8xX5ivzlbyfbL4yX62Zs/OS+cp8Zb4y X8n7yeYr89WaOTsvma/MV+Yr85W8n2y+Ml+tmbPzkvnKfGW+Ml/J+8nmK/PV mjk7L5mvzFfmK/OVvJ9svjJfrZmz85L5ynxlvjJfyfvJ5ivz1Zo5Oy+Zr8xX 5ivzlbyfbL4yX62Z/wsuUWrf "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}, {{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztnVmynMURhW94BZjBgJnCOwAEz2zBZjKDgQgieAYZFoKEBgZJsARkpC3Y YrLRPF1N6PIOSLwTleX+K+ILiuyKljrz1z3nRXGiuq+qOuucyr+6Kvsvb779 7Ft/2NjYuPe+jY3y7y83C7ae2fg/Tp0suD7xew1bs+Hs/3uG1s7xPm/o/z2+ n6+P5k8Z+v3f80FB+zyOfFEwX874kvPzuHmj4PpsuDd/OT7G1/t8snHG1/t8 vPhG+4/H2d+9ewoU3974Fd/cXPFVfBXfPPFSfBVfxVfx7XHFN1f8FN+x+HL/ Y3R/IBvn/Nzu8eX4+Hl5+yXZOPvrzVdvPzL7/izH6+1feZ9XNu75Mdv5+Xj6 ZXs2zvFwvjLezxnyxG+Uj/qtN7+j47dqfI8eKWj8HkMev/W451feeuz58Wi+ Fv39AuPL8c/t+yOOb4eh/3nsNFyb+E8/Flyd+BOGfvsfDdfScPbvX4cLri0d 3+z8XUM/vow/P5/j3xUsHz++Ppof/ryg8b8ZWn+pB66/0fEbjS859evN/1G9 RHPGW/FVfBVfxTcLV3wVX8VX8e21K76Kr+Kr+N4urvgqvnOOrxdvxnd0/zE6 fqvG1/s+LTvn/iPjy/gzvtzfY3x3vV+QJ56r6pf7t9Hx87inX75+966C/n4y 4+/5dTRnvDk+zn9+P5idcz566wvjR316+/l8fTR/x9A4vx87eKBgc+Iff1Rw fjb8ZUPjrxguTPzPhgtL/70L5w1pOcfr9X/0+97o/GnV76sfM1zp8iuXDUu/ Ppq/Yei3799XcGbiZ04bJv4nQ7+d74/m7C/b6d9evubN7+jzK+wfz+9Q3w8Y zk38/DlDWk6/In/J0F7/0YcF/fc/aJgP98Z/4+eC77vcy2fmxh81NP993XC5 205++ZIhLX/N0PiLhr7/kr9gaHzf3oI8nP2jX3P+Mv58vqKfe69fN2f/6N+f fFzQ8kv6X7T/jPpTdH/WPV7Gi+st/Zf5A+dH9Hwdnc/k9ONPDxX0/Zr5NNuz ca4n9K9RP/T8fN2c/eP6s+r+erbnRW+/nfsBzC+j/Uj89znjtao/Z+e3On/2 /Dsb3+7+zHiP+t/o98/R+bP8ed5c/ix/lj/Ln8Vzcvmz/Fn+LH8Wz8nlz/Jn +bP8WTwnlz/Ln+XP8mfxnFz+LH+WP8ufxXNy+bP8Wf4sfxbPyeXP8mf5s/xZ PCeXP8uf5c93rj/P/f4g/Wn0/vbcxjvqzydPFLT7sJ7fRfvvqD+znfcBvfvc np9Hc2/9GPXnud/vznY/+3b780OGi3esX3n+PPfnhVF/9uZH9Hwd7R/1Sn8+ dLDgUrc9uz+vmj+zfdV8O9qfOR/4+1befJpb/sz6bl59JC9fXTdn/1gPiZz1 3ehn0X476seeP//TsHx9pOj82OOsn8D+s74b6wuN5qvZOP2Z/nafYT77Gd7+ xt8NZyd+t6H/POg9L9Ifo+urUo+/3b+TE/+r4buJ13q0x2fDa73X1v9aL7e1 e/PXyzeyce7PsR7j44ariO/Vbvtdhrz8s08LrnTb6bdePdFov/W4l+9zPtf8 8OTSvPpXHs7+Vb89MXHm1zV/PrU05/83+v5bzTle+lFdj9r46/z9X9fvan3p OM71g/1jO9/v1b+N9ttR7tXTZf1g8qtXDLPh3nqyqh/z/dk4nwf27iloeqef kXt+mI3X5/2+X3+wu6Bx5pv0Q7ZHr0ccz+lThu746nzv+180p9/W3wvp5893 mj979dc5Hi/fnFv+zPyf/u35m1evPzunPz9v6PuP53fR/jvKOT6Oxxt/tB+P +jPbvfw0mtNvvf0Ntsuf5+3P7C/9mc8H0X66Kud6wv0NLz+M9tNVebR/yp/l z/Jn+XOPy59z+an8Wf4sf5Y/L7j8OZefyp/lz/Jn+fOCy59z+an8Wf4sf5Y/ L7j8OZefyp/lz/Jn+fOCy59z+an8Wf4sf5Y/L7j8OZefyp/lz/Jn+fOCy59z +an8Wf4sf5Y/L7j8OZefyp/H/HnUv+ln9xta/RXWs8jG2X+2nz1j6PrXaD2O 7PxW+zP9cN2c/eF4WF/kTvdnz69H72vP7X73s4bWXusR/Lfrb9H+7PWH9UN4 /5vjZ76Zvd6X1z/6tVdvg/lpdH2NUc7ng7nVP/Lqf/A+N+ul8n6359devaBo Tj+mf3G8bOd97+zrF/vj1bui39Hfojn92Wsn/3B/QcuX6c/Mp1nfMBvneM6d NUy8Pk80/z38ecF8OcfzjmH5/RpvfYp+HhjtP/2K+Yfn39m4Nx7mk2w/cdzQ 9e/o9Wc0f37S0OqPVn9u8+EJwzX4XRz/6ceCfv/IWS/24gXDxDcvGib+qqHx A58UxHH252HDZrf94IGC1l7rm7X65ayf/J5hq/v6pwx5eNVv46xnXvPLbyde 65t/NfH6exRf4/P6ZuK1/vmx7vvXzWv97y+7/aUeuH5Rz9Hc0zP328g5//9h 2Oy2Z+PsL/Xu6bf6d18PR48UxHH2j5yvr7/f1eZ7zTf/053/tb5947X+/bFu +7o5+0O97jS0+c/8Mjr/HeXUM/V+adPQXW+j9ejp0+sv95ufNvzQXV+pB+o7 Wr+enm/eKLiOz6PNb85/rrds99a7dXOu/xxf3Q9o8516iF5fyVft39zWV48z X6Y/1f2rpl9Pn7/cLFh+/Vs3Z/+YL3B+1/2ptv5yffb0G82p50cM7Xlg7vpl vjyq3+x65nrr5cuefjn/vfUter31+lf3s7bwebT11Xt+pT7Ynj1/ln63l349 fUq/0q/0K/3eLi79Sr/Sr/S74NKv9Cv9Sr+3i0u/0q/0K/1m4dKv9Cv9Sr89 Hq1X6Vf6lX77r9/u+t1u3/+Onq+am3537yrIq1/qc5TzPGV2vZJTn167p1+e n4zW46r65X2G+vm0+V3vC/67q1fvvHP285Pefbvo88xe/7z7Fbxfx/lNPfC8 fzSn37xmaPe163m6xlkPiecleR6a+qDeozn7y/PO9b5+q89APfK8Iddn6iGa 83w262fwvjLvU/I+YY3/+rh3n/MFw+nu+1l/YoehxZt+zfkQzXn/jfkh7/vx 9d79ZPqdd785mnv9Yz2RbNyrd8T4sL4G1y/Of9ZjiL6PzXoX1LOnb3LOf553 z86Z73r3+7znD84H3jfz9g+y8ej6Nh6nflnvxqvvQ32zHhL16+ll3Zzrq6dv 1ovhfKeeo++fk7N/XJ/ZTv3yeZ/69O5DZ39+Io+u5zpa35D3O8m9+r6sR5lt /fXW11E9e/M/Wq+jnOPhfo5Xf2F0PyFan3Nffz19enqmfvl8OJqvrpt7+mb/ +Xzg1YeJ1uOq+uX66+l3tD6Dp+9oHr2+jq6/Xn1Jcj7/z02/o/m09Cv9ZuLS r/Qr/Uq/Cy79Sr/Sr/QbxaVf6Vf6lX4XPFqP0q/0K/1Kvwsu/ebi0q/0K/1K vwsu/Uq/0u989cvfm+TvI1EP0dw7r8XzYzyvVdvbfK9+sIW/Nx/O+wq8X8Tz y975SU8ffH82Hn2+avT3P3m+yns/70Pw9wh5Xtj7fdlozvOf7D/vV3G94v11 rsfZOPXJdt7f5vz27kOzfkP079F5v2cV/fvCHud5R66/vI9AfXO8vwLB/Ff1 "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}}, {{}, { {RGBColor[1, 0.5, 0], PointSize[0.02], AbsoluteThickness[1.6], Opacity[ 0.8], GeometricTransformationBox[InsetBox[ StyleBox["\<\"\[SixPointedStar]\"\>", StripOnInput->False, FontSize->15], {0., 0.}], {{{0.8620814431770797, 0.}}, {{ 0.46585270134740325`, 0.}}}]}, { {RGBColor[1, 0.5, 0], PointSize[0.02], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {RGBColor[1, 0.5, 0], PointSize[0.02], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}}}, AspectRatio->0.1, Axes->{True, False}, AxesOrigin->{0, 0}, ImageSize->200, ImageSizeRaw->{230, 184}, PlotRange->{{0, 1}, {-0.1, 0.1}}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.885124541530813*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"bb6431b5-1bb6-41d8-8dd2-4cbb2ff424b5"], Cell[BoxData["\<\"Each cluster in GrayLevel of its center:\"\>"], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245419369645`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"f3d1df55-feba-48ca-8cd8-68a9698f0ae9"], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt0rFtlGEQBNCTA4s2aAHnWLRgKjgkO7KEZAIgc+AaKJMa8KUOcbD/7LyT 3kmnS/abmY/fvt89XJ1Opx8fXr/uzj+/PD2df3+9vvy4Pz/efHq8/Pnr1Z/T 5fN8CwAAAAAAAAAAHM/ty9/P/yvt5umsmzTtyrZ0tO3mNokdJd7cJrGjxJvb JHaUeHObxI4Sb26T2FHizW0SO0q8uU1iR4k3t0nsKPHmNokdJd7cJrGjxJvb JHaUeHObxI4Sb26T2FHizW0SO0q8uU1iR4k3t0nsKPHmNokdJd7cJrGjxJvb JHaUeHObxI4Sb26T2FHizW0SO0q8uU1iR4k3t0nsKPHmNokdJd7cJrGjxJvb JHaUeHOi9+SMTdqVXdnVPtM929VO0z3b1U7TPdvVTtM929VO0z3b1U7TPdvV TtM929VO0z3b1U7TPdvVTtM929VO0z3b1U7TPdvVTtM929VO0z3b1U7TPdvV TtM929VO0z3b1U7TPdvVTtM929VO0z3b1U7TPdvVTtM929VO0z3b1U7TPdvV TtM929VO0z3b1U7TPdvVTtM9J21j+t2yktWRyOq4OclKVrKSlaxkdRSykpWs ZJVCVrKSlaxSyEpWspJVClnJSlaySiErWclqnqyOm1NqVnL23qNpy7ntvXL2 3k3acm57r5y9d5O2nNveK2fv3aQt57b3ytl7N2nLue29cvbeTdpybnuvnL13 k7acm95qVwAAAAAAAAAAwFv/ALwHiwI= "], {{0, 120}, {150, 0}}, {0., 1.}, ColorFunction->GrayLevel], BoxForm`ImageTag["Real32", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Small, ImageSizeRaw->{150, 120}, PlotRange->{{0, 150}, {0, 120}}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245419525857`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"df434fbe-d3c1-40d9-a589-9001c2aa2b30"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\\n\"\>", "\[InvisibleSpace]", StyleBox["\<\"SymDIRECT \"\>", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontSize->16, FontColor->RGBColor[0, 0, 1]], "\[InvisibleSpace]", StyleBox["3", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontSize->16, FontColor->RGBColor[0, 0, 1]], "\[InvisibleSpace]", StyleBox["\<\" centers: \"\>", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontSize->16, FontColor->RGBColor[0, 0, 1]], "\[InvisibleSpace]", RowBox[{"{", RowBox[{"0.879`", ",", "0.623`", ",", "0.364`"}], "}"}], "\[InvisibleSpace]", "\<\"; F=\"\>", "\[InvisibleSpace]", "60.37795411130318`", "\[InvisibleSpace]", "\<\"; Iter = \"\>", "\[InvisibleSpace]", "26"}], SequenceForm["\n", Style["SymDIRECT ", 16, RGBColor[0, 0, 1]], Style[3, 16, RGBColor[0, 0, 1]], Style[" centers: ", 16, RGBColor[0, 0, 1]], {0.879, 0.623, 0.364}, "; F=", 60.37795411130318, "; Iter = ", 26], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245421712837`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"e114a33c-2cee-428e-ac3f-77ad4dbc9909"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ {GrayLevel[0.8786008230452675], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.6234567901234568], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.36419753086419754`], DiskBox[{0, 0}]}, ImageSize->20]}], "}"}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245421712837`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"fa794181-0806-4f34-85cd-edc579e09e77"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"WKMeans correctiona: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"0.877`", ",", "0.623`", ",", "0.364`"}], "}"}], "\[InvisibleSpace]", "\<\"; F=\"\>", "\[InvisibleSpace]", "60.34319424797666`", "\[InvisibleSpace]", "\<\"; Iter = \"\>", "\[InvisibleSpace]", "1"}], SequenceForm[ "WKMeans correctiona: ", {0.877, 0.623, 0.364}, "; F=", 60.34319424797666, "; Iter = ", 1], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245437338543`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"59a780db-f4d3-4e0f-8cbb-6e30f2e0d175"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ {GrayLevel[0.8768891327122669], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.62305253696318], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.36376084414348264`], DiskBox[{0, 0}]}, ImageSize->20]}], "}"}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245437338543`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"d742d877-0254-4a49-9932-9407852a43f5"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Clusters size: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"11473", ",", "3643", ",", "2884"}], "}"}]}], SequenceForm["Clusters size: ", {11473, 3643, 2884}], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245437338543`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"99464da7-ff41-44b6-8676-d125ca9ff5f4"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Gaps between p-clusters from left to right: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"0.057`", ",", "0.127`"}], "}"}], "\[InvisibleSpace]", "\<\"\\nThe smallest \"\>", "\[InvisibleSpace]", "0.057`", "\[InvisibleSpace]", "\<\" is attain between \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" and \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cluster from the left\"\>"}], SequenceForm[ "Gaps between p-clusters from left to right: ", {0.057, 0.127}, "\nThe smallest ", 0.057, " is attain between ", 1, " and ", 2, " cluster from the left"], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245454136705`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"ff4e6375-bfa0-4bfa-83fd-1c14c545e050"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"kk=\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"; MD1=\"\>", "\[InvisibleSpace]", "16.937888460898115`", "\[InvisibleSpace]", "\<\"; CH=\"\>", "\[InvisibleSpace]", "100338.80590598058`", "\[InvisibleSpace]", "\<\"; DB=\"\>", "\[InvisibleSpace]", "0.5583020711313522`", "\[InvisibleSpace]", "\<\"; SSWC=\"\>", "\[InvisibleSpace]", "0.8939974221054602`"}], SequenceForm[ "kk=", 3, "; MD1=", 16.937888460898115`, "; CH=", 100338.80590598058`, "; DB=", 0.5583020711313522, "; SSWC=", 0.8939974221054602], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245454292917`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"39a6ea1f-b287-4281-bd3b-84161219242a"], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.8768891327122669], RectangleBox[{0.25882352941176473, -0.05}, {0.468698158875201, 0.05}]}, {GrayLevel[0.62305253696318], RectangleBox[{0.5254901960784314, -0.05}, {0.7206148778479277, 0.05}]}, {GrayLevel[0.36376084414348264`], RectangleBox[{0.8478959124833566, -0.05}, {0.9058823529411765, 0.05}]}, \ {{{{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztnUmyHUcVhhWswg2YYM4CcAPeAyMs00QQwdhTbNNsw2psswxLsmS2wMyS 3DCUZDAMLbmBqIR6BV9E6dz0vU/nZNV3Joovqu5TZlWeP//Mqsz6wa9f++lv vnPhwoW//PDChenft69O8beXL/w39sa/a1GXe8vL82++P8XCH380xTj89VdT LPy9Fn9fre/rLe6v8vMtFn6lRV2Oyv/bFvfO+EctFv5Zi3GY9eHx3uuTff8i ZnkvX5pi4YstHqzyCy3Wj4/GzH/q19Y4u/+TZf2V/mpm/ZX+Sn+lv9oKZ/d/ sqy/0l/NrL/SX+mv9Fdb4ez+T5b1V/qrmfVX+iv9lf5qK5zd/8my/kp/NbP+ Sn+lv9JfbYWz+z9Z1l/pr2bWX+mv9Ff6q61wdv8ny/or/dXM+iv9lf5Kf7UV zu7/ZFl/pb+aWX+lv9Jf6a+2wtn9nyzrr/RXM+uv9Ff6K/3VVji7/5Nl/ZX+ amb9lf5Kf6W/2gpn93+yvGd/Rf55i/Xjo/spMv1UpL/sb69fm6JOf9rrp9jf 6q8e70+eblHnfh7rr95o8WCV6a+eaVHHL0XM+kTjRY63ovFYtn5FnN3/ybL+ 6tv7q9H0hvzjFuv+ivV7+MUUS3/M/jaa38rmyB9E/iryK0+1WPdj1bjXX0V+ NdtP9fpr+qfIb125PMU4zPJTvzi+4nHq32jzX9n9nyzrrw5n1i/yW9SvbO7V R/4+6q+qM/0C5994Pv1S5Leq8aW3plj42ntT3Dv4+pCz718v8/4eO/9TjXuf B0bzO85XyXJdzvY/vf7oWD9V/Xkh9fEXLdbHq/w9/dSjh1PU6T97/RSfD7F+ kX+iX8n2T73PA1n+U1/f7Pkpzk+yfPQfN65PcfjzweznfWSW7+6dKRZm/n+3 xeHjqV79y+bs/k+W9+yvonzs9VfZ/iniXj3i76PngdF8RzZHz7tYv9sfTrE+ 35Ptl3qZ8288Hl2f3uuZ7a+i+Ta+P0Xm+CF6/6oac/xAf9X7PoD+SpbrcLZ/ 6vVXvb/n+1lffTnFZ2f80d0p6vD7N6ZYmONXlv/ZFp+tXq/nWnx+xpwP+32L deb51Tg7f2R5z/rM8kbvw/J86hn1L1uPe5l6/WqL5TjnG2/dnOJwPR6Ns9tn Nmfrh6w+q8/q8xpnt89sztYPWX1Wn9XnNc5un9mcrR+y+qw+q89rnN0+szlb P2T1WX1Wn9c4u31mc7Z+yOqz+qw+r3F2+8zmbP2Q1Wf1WX1e4+z2mc3Z+iGr z+qz+rzG2e0zm7P1Q1af1Wf1eY2z22c2Z+uHrD6rz+rzGme3z2zO1g9538z9 IqjPL7VYb7/R+ulsvT12vfebLZbj3E/jnbenWNc3Ho/Or8bZ+pjN2fkpny9n t6+II78cnU+9u3plinX9q86sD/ffYH9GPevdf6M6Z7fPbM7WD3nf+ky/GOl1 5K+r7Y/UW55ofoP7I1GPuZ9d9v5Gx3J2+8zmbP2Q982R/vI49fjLR1Ms+3FS z+hP6a+zOds/Z+tvVN5sfczm7PyUz5ez9+/t3d+X7ZPPw+hH+f0J6t+LLRbm fG41Zvmj74VQv9lfjcasT+/819Y4Wz/2Pr4/dXlH0+dIr/k8jPWl/lb3yxHT P1O/qc/UN/ZXvcezWX1Wnytx73i/9/2zbL09lqPvB0X6PLpeU5+vXJ5iXc+o v6P5a/VZfa7E6rP6rD6rz2ucrZ/qs/qsPqvPa+VVn2vpqfqsPqvP6vPM6nMt PVWf1Wf1WX2eWX2upafqs/qsPqvPM6vPtfRUfVaf1Wf1eWb1uZaeqs/qs/qs Ps+sPtfSU/VZfVaf1eeZ1edaeqo+q8//y1w/yOOj7bdxan1m/1R9faD6rD6P pM+9ekzemh6TuX9OtD8y9Tna36Ias7zsf7i+m8epz6PpNfW5ul6pz7WvX3V9 zr7+EffOb7D+vf45e7/R3v36ydRn+udovw3qXzVmfar75958PXY8vDXOvn/Z +lydqb/RfDN5NP05li+2WOrL/e04/xExf5/NvJ/V9eq89SC7fqNfv2r6TH3j /G01pt5yP1F+j4n7i/L68e9H+n/efN79W3Z+mb/H5S9/z/bD7y1UY84/Mn95 PuvP9szz+feeNJ9a73h/s/PL/P1/7q0Pj/N+Z7ffYzn6Xgrrf975cyz31j/q z7Pzy/w1f81f83eNs/PR/DV/zV/z99DzzV/zd0ucnY/mr/lr/pq/h55v/pq/ W+LsfDR/zV/z1/w99Hzz1/zdEmfno/lr/pq/5u+h55u/5u+WODsfe/P12PVS 1d4fPJa39v7kqfN365ydnxGzvHvL397+avT8jeoXve+cnU/mb1//G+VztB4p 2y/2vo8frb+Irl9v/jzp+vX+fm9+eTT/HOVjb/5y/4Ls9bq963m5/pjH79ye 4v4Zc78k5nu1/I3yee/j3dHyN8rPl1qs14/tl+2f+630rt8/b2Z+srw8/ujh FOv5G40fs9f/9v5+tPa8Nz52vS/zOzsfe5n5yv1Devtf81fO5Ki/jfL52P1y qjH3Y7t+bYpx8ve8x7/Z7VU2f81f83crbP6av+bvuGz+mr/m77hs/pq/5u+4 bP6av+bvuGz+mr/m77hs/pq/5u+4bP6av+bvuNybv+TsfOvlSG/MX/N3ZI7u H78vGX3ftxozX/l+M9dj8HzqXbX1CywP719U3lOvL5VPy7yfvF/8Xle0XpDv B7/Q4kFZ5vvOZJ7/VIt7Z8zv51ZbPxqVh/ka3d9oPXR2fU/NvesDzptZPra/ qPxsD2+2WH7/fIslf6+9N8W9Yfj2h1Ms/PCLKRbm9whv3Zxi4U8+nmL9eHV+ rsXnZ/zuO1Ms/OknUyz8r2+mGIe/3+IfZ/yTFstx+snq+Xws0z9mM8vH8WlU fvY3r7ZY7ifzm36D4+Nq/HqL9eMcP/yhxdK+P7g1xXo+83g1ph4xn//YYuE/ vTvF+vE/fzDFwn/9dIo8Znn+E/9crW9vfsjny9H67Oh89j/Uq1daLPl9+dIU 91ePV2eWn/7jly0Wpp7xeHWm3v6qxeF6xePUiyfNLA/1jHod5cPWONvfHesH o/kezu9Qr+hXmO/VOCov/VakT2z/1ZnlJ1OPIv8S6Vk2s7wvtzjcX8m1mfpF fXu6xeF6UI3pp6LxIec7Ir2K9CCbo/JGekV9qs69erX1+autsXqlXqlXdfJR Vq/UK/VqZvVqbFav1Cv1qk4+yuqVeqVezaxejc3qlXqlXtXJR1m9Uq/Uq5nV q7FZvVKv1Ks6+SirV+qVejVz9P50dj7ujSP96f17XA/M9YPZenSsfkV6FeV7 9vqaiCP96n2/PXrfPZtZfq4f5Hqz3v2yRuPs9UC964Xof3l/+Huef+mtKdb1 KvIv2RzpK9c7f/P1FMt+Bsz3aH1hdeZ66Gj9YOS3stffRHrL+8X82Pp+btl6 FDH3j4n8F5n7x3A9Ic9nf8X/P5tZfh7nfhTcTydaH5vdf/ZytD9YtH9c9n6T EXM/K+5nx/Ww0XwH90/KXp8f+QOWl+27d//k0ThbfyOmHkXrt1m/q1em+PZ6 l80sH/uP3v4s8uPZ7bGXo++bR3qcvb9ob//B+kb7K0WcvV9BtD8B+5uttd/R 9ZnM8kf70VGfybzf1MNsZvmov5E+83r0zpdk++NT++fR9DniaH+rSI+z56+i 8lGf2b7V51zunT9mfvL7C5H/HE2veX2i8cTo++lE/TXzNVs/e5nzGdF+/L16 N5p/5vNe3n/1uRb36gvnn0fzz73cO/4gZ+vvk/bPozHrEz0/rf78t9c/R/Od 2XqqPqvP6vN+9ZkczT+rz2Nztt6qz+qz+qw+z6w+q8/qs/q8FVaf1edKrD6r z+qz+jyz+lyL1Wf1WX1Wn2dWn2ux+qw+q8/q88zqcy1Wn9Vn9Vl9nll9rsXq s/qsPqvPM6vPtVh9Vp/V54Wj9YHq89icnV8R9+oNf/9si+V+cr03z6dej8bR 9Yqud3Z77GXmZ6TXozPrd7HF0p4jvabfzl7PHTHXd9Nv8fr0to/qnJ1fvf0H j9NP0B9zPwPeb/bP3M+Qx7OZ5SNzv0leD7bv6sz9cF5ssd7fRn6zun6fOp+z 9UXu46g9RHqYXf7e9sn8fKPFks9370yxMPP9xvUpDj8/m1m+aLybzdH+xNx/ n/0V+yP2x9ntUX/1+PEw68P7R3/xQoulfXP/EbaXbH6mxVJejl94nPWjP4n8 C/d/e9Ic7ecc7a8/mp+K9jc+lk/t3+Tz1d9I36L59uz69DLrG+kD/Ur0/Yrq TL2uzuxv2H9G57M/37o+ZfuniJl//D5INN/I+Xf6F/qVahz5K45/OL5g/av5 qd7vEUXP89m+R+t/qs+Pybn6HL3/MNp4guVlPnO+h8+LqQ88P9s/kTn/zv6I fqUac36R/RPnu1g/tuet61O2fyKzfHyfpnd8zt9nt89eZnuNxgs8v3f+pxpT b6lXvL9R/lbnbD2Qa3Gkj9H8Z3b5e5nzU9F4iszfZ/upiKv5q2j+gc8P2f/Q f/HvZ7ev7PzNZo7POB8evQ9KfeHf4/3Onp+KuLe8PJ/6kz0/dez8VfT9qtH9 iv5t33zs/Yz8WDVmfeg/OF8VzWdl+6XR56/Yn9A/Re/XR/4su73t3V9Ffiua H49+n+2Xejmav4qO019xvifbT/X6rWj8GvU/2fNTx75/pX+St8TUa85X0Y/0 Hs/2U6P5q2Pnt6Lzs9tbdvuuzvor/dXj5uP0V7X0RZZP6a8iv6K/0l9V4my/ pL/SX+mv9FfyPll/pb/aMmf7Jf2V/kp/pb+S98n6K/3VljnbL+mv9Ff6K/2V vE/WX+mvtszZfkl/pb/SX+mv5H2y/kp/tWXO9kv6K/2V/kp/Je+T9Vf6qy1z tl/SX+mv9Ff6K3mfrL/SX22Zs/2S/kp/pb/SX8n7ZP2V/mrLnO2X9Ff6K/2V /kreJ+uv9Fdb5n8DStbdpA== "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}, {{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztnUmOHUUURb9YAKJnzA5ozcADtkDPHIkxrcw2sHHDDJaAwTbbANwxc5Ub mNq4qswQRYj/Qz5S6P4gpXwvf903QVeZZSLy3RMRP/NF5ksff/ruJ0+sVquT T65W5b//PCrx11ur/+LwoMTdjb52tcSdjX6uxt3FaLb/qxrt+M0bJf7c6I9q tOvxZo2mX6yRV6v2Pjoq0fp7qkbTJ2o0/WGNvJrtpaaf36/R9wv9wfOj9es1 mv6gxr1uf85+W6L5/9LPJZaryTP9vDReR/l9ocb2fPB8xcvcWrWP+ab/Dx6W uLMYreYj9o/88u+za/LL63Hc+B2dX5fOL/Ot+I1eLyrN9p47W8L8rrX5Nb+Z eDW/5tf8mt+1jubR/Jpf82t+19r8ml/zm1ebX/NrfvPwaH7Nr/k1v2ttfs3v LvHLeg9V/5Bdc/wxv+Z3l/ll/8iDqgfJptlejkf0+9J5Vv1hveRoPVY0r6Oa flD1k9nrhelnVX+leMim1XqZx+n/0XrobJq8sj/k8cb1Eq1+9uiwxL3u+dk1 xyf6X82/PJ5Nsz8cj8jzezXy8DmqVb4Uv4qPbJrtV+tntZ6Onj9V+zjecDxS /Kr66Gxa8Xv5Uommn62RZz2stFpv8Pfw1zW25zN6flX6uwsl+np0vlX8ZNOc f9Xv29H7ndFa/R7gfkJeD47v0fqXKyX6xy+cL9HnkTwvbb8V8/lajX7+yTPn Zx6PXk+Mjqf0w+c19jf6wf0Sexv9So3+8adr7KfRbN9PF0u04/Q772+Q52zj rZo/2B/Fb3b9ZY0+v+Sbv+dH74dl0xxv2D/6/7dfS2zPJ8+P1hd/LNH0OzVa ezl+KV6iNccb1V7yzPmMv/ej+Rzll5rz7+j7CaL5VFqNR2r+Gp3vojV5Nr/m 1/ya3yhtfs2v+TW/a21+za/5Nb9zafNrfs2v+V1r82t+za/5nUubX/Nrfs3v tudHa8XvKA/R2vyaX/O73+1/9vpXxeeu86t43nV+Wb/O9o/WR0bzOZVf1pey 3p08ZOeX8zPPV/sLs2vWR5Jf8q3mr2gep/LL33/kl/WH5Pf0NyXy8DrKL68P /Z9dk0/1e548sH44mk+l1fzL81kvTP9Tk+9sWu3HOHO6RL+emXyr9XS0Js/s 3/lzJfr7KVn/n11zPr5yuUTrD+cv7pfMrjneqPX/6P7h7Jrt5/hMPjm/qv0C PD9af1ajae6vGt0/F/17b+r+P/pdrU9V/6P3P7N93P/98O8St7tajQ9L0+wf j3O9Qj+o8+fWbJ+af+hP/n10f0b7q/TU8SF6vFL3r0bzm12P8jx6/Ubv9y+N 3+za+XV+nd88+XJ+nV/n1/ntaec3V/6cX+fX+XV+e/3dtfxe/b3E7a2vV3T+ RvOrjkfnZ+78qr+P7s9o+1S++f5J9f9bGr9f1Nj++UI0n0rz/jDb/0yN/nil xjNe3+jnwcwX2/dyjfb88O0ae93jT9XIq3/4vsSt7vG9WzUWo9X1V/1dWv7o P16PXesv2+v+ur/ub57+uL/ur/t7fPur1mNqvZxdq/7yekWvh0c1/cr6Se6/ WJpW9aCKR5XvaH+Otv/VGu33bvb6fPX9A2ren/jjZom2P4Hfz+T9Dn7PS31v M1rzeyi8P8X9OtxvEr0fTNWnc/8Jj/P7L/TLaP363Fr5nfMnNfef0K/Xr5XY /vtXc2u2j5rnc78C/RT9fRf1PTz1PSCez/0KnL+i59dRTb+ThzdqND9zPKY/ 6PdoPyt/s76Z+yfV+ynm1vQj9/9xflH/Hve/0h/R47H6/sno3z9foz8+0y+H ByW2Hx/n1mwf5xPuH8w2PqvxmuMx/cu/X7qf1X515Wf6QY1/0eOxah+fVy/d z2p9bT8/7mflV/vZfraf7ef/q+1n+9l+tp/X2n62n+3nPNp+tp/tZ/s5i7af 7efj7Gee7/vPu+1nvl8zm5+nvg+Yz7/pZz7vjvbnVD+zXon1G9med0/1P/89 VY8YXY+h2qfqp1h/eHRYov+8m/Ud9A95iNZsL+s3+P5c+oHPk+fWrM/gcbZX zTfc70u+eX2iNeshOb+q95+qel/yoeqFo/VoPTPHB14/1n9k15xfVT2kmv95 fVifp9az2TTzz+vD/EfXP1OzfRwPeJz55vqM+VT1uNnnd2q1X0ldv+h8j2r2 h+tVVT8+ul6Kzu/U/Kv9EdH5nJp/8q/yP1p/Hf3+e6W5HnC+nW/n2/leina+ nW/n2/nuXR/nO1c+nW/n2/l2vtfa+X4833z/qbr/ml3zeQqfB/L+uLrfOvq9 v2ya/mf9CvnOppk/Huf7KFjPweuh6iNY3xT9Phr1vo7o9zmNvq+Kz3vYn38B Kin4VQ== "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}, {{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztndmSFkUUhP/g1htxwRUNn8QbH0BwV9AII7z2VWTfwadRVBCGGWb9Z3gV o05jV/AFxemKf+hTNWTeEBlFQ1VnZ1b93XW6P/n519O/HFssFp+9tlikP2/d TFh+uniK69cSdrrh3xky/96wO/L3DbuT/73dHUOznOP1+v+x4UmRPzkwTP77 0fwnQ7n9yuWEzZFvPjaM/ISh3M7jozn7y3bq/65he+Q724ZmOa9n8m8N+e9f u5pQPv49Qz/cG/9HhuzPHw0HxXbyg31Ds/ysIfOvDWV/kn9lyPzypYR2OPtH P9+4npDnJ/oj+vqsvX6j+zP3eKkX85h+vXM7oexnzsdsb40zb3h91/rF8/vc nP1jPnG9yfkp+noVfzGnXvRv7fzr+bs1Lv/Kvz1z+Vf+lX/75fKv/Cv/9svl X/lX/u2Xy7/yr/zbL5d/5V/5t18u/8q/8m+/XP6Vf+Xffrn8+2r7t/f9V7x+ a/dH9jbeWv9yP5W3X9LzezT38qXWv73vn/zAsHdkr2fPv72vN2r9e/tWwn6x vXX/rjr/sn3V+Trav6zP8eoXvPlubs7+sV6BnPU5vN6j/VjrV8+/rM/h/v/a +a41Tv/y+n/b0M962Vs/f2PYGvmbhvWRf254OPLjhrVu+NpDw8jPn0tYm6yn l8+tcf4eYn0Z/ejVC0b70ePeeoH6XryQsD6Zf2Foh7N/648Mxfn5LcPGZM7/ r/b4w+YcL/35hiGPf7h+HxT9f+63hDjOPGX/2M7jvfrW6Pyp5V69LOuDyVfN Lx7fGuf66tLFhOwP+p/cy4/W+Ma6oTieC+cTMud6hfnB9uj85ngebxiK43vd UM6LaM58OmUor7+OWp557yPgeDy/e+9zaJ0zr740lP3o+T86j2o5x8fxeOOP zqfavGK7t76J5swf7/ci21+1vPLWW71x5it/L3rrh+h8WZVH54nySnmlvFJe TeXReaK8Ul4pr5RXU3l0niivlFfKK+XVVB6dJ8or5ZXySnk1lUfnifJKeaW8 Ul5N5dF5orxSXimvlFdTeXSeKK+UV8or5dVUHp0nyivllfJKeTWVR+eJ8mq1 vKrNM/r7HUOut2S9Xmuc/Wf71qbh0PIq+nuE7A/Hw/rJo55XXn7V1tf0Vo9z 2pDbh/qxf4t+j84rrz+sj2S9DsfP9Ujr9e5e/5hf3vdHo+ubV62HZj0O37fC +hwvz7x64WjOvKK/OV62s16n9Xxnf7x6d+YB/R/NmV9eO/nVKwl5fcX84vqL 779ojXM821uG4vXM/Pb83Rr3xsP5mO2P1gxFf0fnU+36Y2/XMPLlnmHkPxgy v3kjIY6zPx8alsV2fq9+mJ/uj3x4n9TfIx/eD/cPjr838uF9U3eLx8/Nh/ct /VXsL8/PGcOy2N4aZ395PVDf4f2c+fwM+fZn8XwN75/KfHg/1d1i+9yc/aG+ +0tD0b/R+nl6ev3l7+Gh/V7x/NC/bPf8MzdnnnB8vfnV48xnXr8c/7Ceyv6l vz19ozn1Pmm4X9S3db3pVy+fqe/Qnv3pzac8f2xvPZ+lr/SVvtJ3Li59pa/0 lb7/c+krfaWv9I3i0vfF+tben+pd32j9PE79vHbv/tXwfPCPop7e/ebW708+ f/yZ8/58NOf1eNaQ9ysM9+cy5/7R3+8kPCjqx/t79DvPXzTn/XLuP+LzbD5P 5fNEvj/6ZXPveS7fV8/juX/Hex94NPf2E3I/DsfP/RrRz+O5H4Z6evqSR++P 8jj1434pb38Y95dRT+/8zc3pN09v7i+Krieo3U/sfZ+I+51b86Pnt1o9o/3m 8drvr3G+qM2vubmnL/vP+SLaX7X+q/3+Rm961uar9JSe0lN6HhaXntJTeraj n/SUntJTek49n9Fcej7LWU/K+h2en2ju3T/i/aze7s9Sn9rvi/N+PevteH/T qy+O5rxfyf7z+ZD3fOI/sY/vag== "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}}, {{}, { {RGBColor[1, 0.5, 0], PointSize[0.02], AbsoluteThickness[1.6], Opacity[ 0.8], GeometricTransformationBox[InsetBox[ StyleBox["\<\"\[SixPointedStar]\"\>", StripOnInput->False, FontSize->15], {0., 0.}], {{{0.8768891327122669, 0.}}, {{ 0.62305253696318, 0.}}, {{0.36376084414348264`, 0.}}}]}, { {RGBColor[1, 0.5, 0], PointSize[0.02], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {RGBColor[1, 0.5, 0], PointSize[0.02], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}}}, AspectRatio->0.1, Axes->{True, False}, AxesOrigin->{0, 0}, ImageSize->200, ImageSizeRaw->{230, 184}, PlotRange->{{0, 1}, {-0.1, 0.1}}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.885124545741691*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"6620cf3f-f1f7-4c91-b9bb-d7258a548c5b"], Cell[BoxData["\<\"Each cluster in GrayLevel of its center:\"\>"], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245464919496`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"002b4246-4730-4c46-a2fb-44c6d6c2046c"], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt1UFKXGEQhdHGgWQX4hZ0rmQLugBpIRkJAR1EZ70KF+Ne3Iv9kIBD4wOr b9UJnISQCNX//dDT2z9Xv482m83Dj/1vV9u/P+/vt0/Xx8tffm3vzs/uln98 3HveLL92lwAAAAAAAABd3exOym8AgK9afo5NUv3eU1TvrKueqnfWVU/VO+uq p+qdddVT9c666ql6Z131VL2zrnqq3llXPVXvrKueqnfWVU/VO+uqp+qdddVT 9c666ql6Z10drsSNEm+eJnGjxJunSdwo8eZpEjdKvHmaxI0Sb54mcaPEm6dJ 3Cjx5mkSN0q8eZrEjRJvniZxo8Sbp0ncKPHmaRI3Srx5msSNEm+eJnGjxJun Sdwo8eZpXi9eLiqs2Tfx5uqddaWrDhI3Sry5emdd6aqDxI0Sb67eWVe66iBx o8Sbq3fWla46SNwo8ebqnXWlqw4SN0q8uXpnXemqg8SNEm+u3llXuuogcaPE m6t31tXhdrVG9c5TulrTV/XNujrcrny/6k1XutKVrlLoSle60lUKXelKV7pK oStd6UpXKXSlK13pKkXlW+uqr7Sm1tLV51W98/L11Z896a2+atpbVTeS9Fa6 0pWudJXyVrrSla50lfJWutKVrnSV8la60pWudJXyVrrSla50lfJWutKVrnSV 8la60pWu3k37vBOa/Pc1uuqv4nudrvr77q6q31lXvbr6+P911Z+fg7rSla5S 6EpXutJVCl3pSle6SqErXelKVyl0pasuXS101duat/rfBj/+Wf25AQAAAAAA AADg0L0BbUF6bw== "], {{0, 120}, {150, 0}}, {0., 1.}, ColorFunction->GrayLevel], BoxForm`ImageTag["Real32", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Small, ImageSizeRaw->{150, 120}, PlotRange->{{0, 150}, {0, 120}}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245464919496`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"646d8b04-9bb1-4063-94f0-90558ba3b01d"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\\n\"\>", "\[InvisibleSpace]", StyleBox["\<\"SymDIRECT \"\>", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontSize->16, FontColor->RGBColor[0, 0, 1]], "\[InvisibleSpace]", StyleBox["4", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontSize->16, FontColor->RGBColor[0, 0, 1]], "\[InvisibleSpace]", StyleBox["\<\" centers: \"\>", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontSize->16, FontColor->RGBColor[0, 0, 1]], "\[InvisibleSpace]", RowBox[{"{", RowBox[{"0.879`", ",", "0.667`", ",", "0.495`", ",", "0.318`"}], "}"}], "\[InvisibleSpace]", "\<\"; F=\"\>", "\[InvisibleSpace]", "33.13007647286954`", "\[InvisibleSpace]", "\<\"; Iter = \"\>", "\[InvisibleSpace]", "30"}], SequenceForm["\n", Style["SymDIRECT ", 16, RGBColor[0, 0, 1]], Style[4, 16, RGBColor[0, 0, 1]], Style[" centers: ", 16, RGBColor[0, 0, 1]], {0.879, 0.667, 0.495, 0.318}, "; F=", 33.13007647286954, "; Iter = ", 30], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.885124546757468*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"47bdea61-0740-49ee-b53d-d3ab1221cee4"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ {GrayLevel[0.8792612914697963], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.666641264034954], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.4945130315500686], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.31832037799115986`], DiskBox[{0, 0}]}, ImageSize->20]}], "}"}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.885124546757468*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"f2134316-f348-4a8f-9001-ebb30c5a1d72"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"WKMeans correctiona: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"0.879`", ",", "0.668`", ",", "0.494`", ",", "0.318`"}], "}"}], "\[InvisibleSpace]", "\<\"; F=\"\>", "\[InvisibleSpace]", "33.127242139846665`", "\[InvisibleSpace]", "\<\"; Iter = \"\>", "\[InvisibleSpace]", "1"}], SequenceForm[ "WKMeans correctiona: ", {0.879, 0.668, 0.494, 0.318}, "; F=", 33.127242139846665`, "; Iter = ", 1], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245485227175`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"1014edba-7400-41de-9a39-38dd11e666c0"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ {GrayLevel[0.8793118671336109], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.6676176737725065], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.4944563083759354], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.31833806693409095`], DiskBox[{0, 0}]}, ImageSize->20]}], "}"}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245485382967`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"a3e6f42e-f1f1-498c-874c-157ce2b46ce1"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Clusters size: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"11237", ",", "2936", ",", "1818", ",", "2009"}], "}"}]}], SequenceForm["Clusters size: ", {11237, 2936, 1818, 2009}], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245485382967`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"585d6e99-98f7-4ed6-9b88-a8df85cf7e79"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Gaps between p-clusters from left to right: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"0.07100000000000001`", ",", "0.084`", ",", "0.129`"}], "}"}], "\[InvisibleSpace]", "\<\"\\nThe smallest \"\>", "\[InvisibleSpace]", "0.07100000000000001`", "\[InvisibleSpace]", "\<\" is attain between \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" and \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cluster from the left\"\>"}], SequenceForm[ "Gaps between p-clusters from left to right: ", {0.07100000000000001, 0.084, 0.129}, "\nThe smallest ", 0.07100000000000001, " is attain between ", 1, " and ", 2, " cluster from the left"], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.885124550694087*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"dd33462a-b929-400d-b8b9-1f0e1bf4f235"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"kk=\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\"; MD1=\"\>", "\[InvisibleSpace]", "38.714209141358054`", "\[InvisibleSpace]", "\<\"; CH=\"\>", "\[InvisibleSpace]", "126770.12138062864`", "\[InvisibleSpace]", "\<\"; DB=\"\>", "\[InvisibleSpace]", "0.47502650234586463`", "\[InvisibleSpace]", "\<\"; SSWC=\"\>", "\[InvisibleSpace]", "0.9109926590017786`"}], SequenceForm[ "kk=", 4, "; MD1=", 38.714209141358054`, "; CH=", 126770.12138062864`, "; DB=", 0.47502650234586463`, "; SSWC=", 0.9109926590017786], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.885124550694087*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"7502aea9-d52f-4067-aa79-3891aa024b6d"], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.8793118671336109], RectangleBox[{0.2445192711230833, -0.05}, {0.39215686274509803, 0.05}]}, {GrayLevel[0.6676176737725065], RectangleBox[{0.46342242067343953, -0.05}, {0.5254901960784314, 0.05}]}, {GrayLevel[0.4944563083759354], RectangleBox[{0.6097451514665803, -0.05}, {0.7254901960784313, 0.05}]}, {GrayLevel[0.31833806693409095`], RectangleBox[{0.8549019607843137, -0.05}, {0.9037217734829076, 0.05}]}, \ {{{{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztnc2uHcUVRq/yFkBClHGeAEPCO2SG8ydFyjhjID/PgW0gr4GNTR4D2/xk EgkbQjLE5idRV9K3kyU1+xR97927uldN0FL3MdX31F71dZ3TdX70m9/97Lff Ozs7+9uPz86m/755a2qfvXz233Y0/n1rdbm3vzz/7rtTW/jDD6Y2Dn/91dQW /kFrf1+93ldbe7TKL7S28Cut1eXe/o9+vezvjTemtvD11h6v8rXW1o+PxqwH 1vPeOHs+kGXzhnljZvOGecO8sV/Ong9k2bxh3pjZvGHeMG/sl7PnA1k2b5g3 ZjZvmDfMG/vl7PlAls0b5o2ZzRvmDfPGfjl7PpBl84Z5Y2bzhnnDvLFfzp4P ZNm8Yd6Y2bxh3jBv7Jez5wNZNm+YN2Y2b5g3zBv75ez5QJbNG+aNmc0b5g3z xn45ez6QZfOGeWNm84Z5w7yxX86eD2T5yHmD/IvW1o+Pni/IzBeRfznf3n5n anXm0958wfk2yg88/kxrda5va954rbXHq8y88WxrdfJDxLye6H6CeTzK69n1 HHH2fCDL5o3vnjdG8w35J62t5w1e35MvpvbJ6nwbrX9kc5QPevNGlGey80Vv /mKeiPLHzRtTG4fZf9Yz8zeP0wejrY9kzweybN44nXl9Uf6gv7K51498fTRf VWfmBa7P9L6enH19vczr37peUI17P0+J1gNc35DlupydD3rzw9a8Uf3zFvrx l62t38/x9cwbT59Mrc782ZsX+HnCReepat/v4PoO+8f5+M7tqZ3++Ur25yVk 9u/hg6ktzHr4fmun5+9eH2Rz9nwgy0fOG1E99uaN7DwRca+P+Pro85To/j+b o89HeH3335/aJye/fuvnMVfN0foMv59BZt6Mvt9RjZk3mT96P280f8hyHc7O F735o/f1/P7HV19O7dNz/uDh1Orwu3emtjDv79j/51r7dPXv9Xxrn58z10/+ 0No68/xqnF0/snxkP7O/0ffteD59Rv9l+7iX6euft7Yc53rcvbtTO93Ho3H2 +MzmbH/I+lk/6+c1zh6f2ZztD1k/62f9vMbZ4zObs/0h62f9rJ/XOHt8ZnO2 P2T9rJ/18xpnj89szvaHrJ/1s35e4+zxmc3Z/pD1s37Wz2ucPT6zOdsfsn7W z/p5jbPHZzZn+0PWz/pZP69x9vjM5mx/yPpZP+vnNc4en9mc7Q/52Mz9Iujn l1pbH7/R89PZvt36vPfrrS3HuZ/GW29Obd1vPB6dX42z/ZjN2fUpXy5nj6+I o7wcnU/f3bo5tXX/VWdeD/ff4HxGn/Xuv1Gds8dnNmf7Qz62n5kXI19H+bra /ki9/YnWN7g/En3M/eyy9zfaytnjM5uz/SEfmyP/8jh9/OXTqS37cdJnzKfM 19mcnZ+z/Rv1N9uP2Zxdn/Llcvb+vb37+3J88vMw5lH+PgP992JrC3M9txqz /9HvadDfnK9GY15P7/rX3jjbH0e/v7/o/o7m58jX/DyM10v/Vs/LETM/09/0 M/3G+ar3eDbrZ/1ciXvv93u/f5bt260c/b5O5OfRfU0/8/fr6TP6d7R8rZ/1 cyXWz/pZP+vnNc72p37Wz/pZP6/1Vz/X8ql+1s/6WT/PrJ9r+VQ/62f9rJ9n 1s+1fKqf9bN+1s8z6+daPtXP+lk/6+eZ9XMtn+pn/ayf9fPM+rmWT/WzftbP +nlm/VzLp/pZP/8v8/lBHh9tv42L9jPnp+rPB+pn/TySn3t9TN6bj8ncPyfa H5l+jva3qMbsL+cfPt/N4/TzaL6mn6v7Sj/X/vtV93P23z/i3vUNXn9vfs7e b7R3v34y/cz8HO23Qf9VY15P9fzcW69b74f3xtnvX7afqzP9G603k0fzz1a+ 3tpyvdzfjusfEfP12cz3s7qvLtsH2dc3+t+vmp/pN67fVmP6lvuJ8veYuL8o /3789yP/XzZf9vyWXV/W77b65es5fvh7C9WY64+sX57P6+d45vn8966aL9p3 fH+z68v6/X/uvR4e5/udPX63cvR7Kbz+y66frdx7/dF8nl1f1q/1a/1av2uc XY/Wr/Vr/Vq/p55v/Vq/e+LserR+rV/r1/o99Xzr1/rdE2fXo/Vr/Vq/1u+p 51u/1u+eOLserV/r1/q1fk893/q1fvfE2fXYW69bn5eq9v3Brby3709edP3u nbPrM2L292j12ztfjV6/0fVF33fOrifrt2/+jeo5eh4pOy/2fh8/ev4i+vv1 1s9VX1/v64+Wl0fLz1E99tYv9y/Ifl6393lePn/M4w/uT+3ROXO/JNZ7tfqN 6vno97uj1W9Uny+1tn59HL8c/9xvpff5/ctm1if7y+NPn0xtvX6j+8fs5397 Xz/aeD4ab33el/WdXY+9zHrl/iG986/1K2dyNN9G9bx1v5xqzP3Ybr8ztXHq 97Lvf7PHq2z9Wr/W717Y+rV+rd9x2fq1fq3fcdn6tX6t33HZ+rV+rd9x2fq1 fq3fcdn6tX6t33HZ+rV+rd9xubd+ydn11suRb6xf63dkjt4//r5k9Pu+1Zj1 yu8383kMnk/fVXt+gf3h+xf196KfL5Uvlvl+8v3i73VFzwvy+8HXWntclvl9 ZzLP5+/lVnteNOoP6zN6P6Pnn7Ov96K593mAy2b2j+Mv6j/Hw+utLa9/obWl Xu+/P7VPzvnJF1NbmL/nd+/u1Bb+6MOprR+vzs+39vk5v/3W1Bb++KOpLfyv b6Y2Dv+wtX+c809bW44zj1Wvj63M/JXN7B/v76L+09/8fXrWN+dr3l9W41db Wz/O/P3H1pbx/d69qa3XM49XY/qI9fyn1hb+89tTWz/+l/emtvBfP55aHrM/ /2n/XL3e3vqQL5ej55uj8zn/0FevtLbU9403pvZo9Xh1Zv+ZP37V2sL0GY9X Z/r2162d7isepy+umtkf+oy+juphb5yd77bmwWi9hOsj9BXzCuu9Gkf9Zd6K /MTxX53ZfzJ9FOWXyGfZzP6+3Nrp+UquzfQX/fZMa6f7oBozT0X3h1zviHwV +SCbo/5GvqKfqnOvr/a+frU31lf6Sl/VqUdZX+krfTWzvhqb9ZW+0ld16lHW V/pKX82sr8ZmfaWv9FWdepT1lb7SVzPrq7FZX+krfVWnHmV9pa/01czR96ez 6/FoHPmn99/j88B8fjDbR1v9Ffkqqvfs52sijvzV+/326Pvu2cz+8/lBPm/W u9/UaJz9PFDv80LMv3x/+HqeTz9FeSWbI5/y+eZvvp7asn8B6zt6nrA68/nn 6HnBKF9lP28T+ZXvF+th7/ufZfsnYu6/EuUtMvdf4fODPJ/zE///2cz+8zj3 n+B+NNHzsNnzZS9H+2lt/b34bOZ+UNz/jc+/Rusb3H8o+3n8KB+wvxzfvfsN j8bZ/o2YPoqe1+b13bo5te/uu2xm/zh/9M5nUf7OHo+9HP0eeOTj7P04e+cP Xm+0n1LE2fsTRPsRcL7Z2/gd3c9k9j/af45+JvP9pg+zmf2jfyM/8+/Ruz6S nY8vOj+P5ueIo/2sIh9nr19F/aOfOb71cy73rhezPvl7BVH+HM3X/PtE9xOj 758Tzdes12x/9jLXM6L963t9N1p+5ue7fP/1cy3u9QvXn0fLz73ce/9Bzvbv Vefn0ZjXE31+Wv3z3978HK13ZvtUP+tn/XxcP5Oj9Wf9PDZn+1Y/62f9rJ9n 1s/6WT/r572wftbPlVg/62f9rJ9n1s+1WD/rZ/2sn2fWz7VYP+tn/ayfZ9bP tVg/62f9rJ9n1s+1WD/rZ/2sn2fWz7VYP+tn/bxw9Hygfh6bs+sr4l7f8PXP tba8n3zem+fT16Nx9PeK/t7Z47GXWZ+Rr0dnXt/11pbxHPmaeTv7ee6I+Xw3 8xb/Pr3jozpn11fv/MHjzBPMx9zPgO8352fuZ8jj2cz+kbnfJP8eHN/Vmfvh vNja+nwb5c3q/r7oes72i9zH0XiIfJjd/97xyfp8rbWlnh8+mNrCrPc7t6d2 +vnZzP5F97vZHO1PzP33OV9xPuJ8nD0ezVfffj/M6+H7x3xxrbVlfHP/EY6X bH62taW/vH/hcV4f80mUX7j/21VztJ9ztL/+aHkq2t94K190fpMv17+R36L1 9uzr6WVeb+QH5pXo9yuqM31dnTnfcP6Mzud8vnc/ZeeniFl//H2QaL2R6+/M L8wr1TjKV7z/4f0Fr79anur9PaLo83yO79Hmn+rrY3Kun6PvP4x2P8H+sp65 3sPPi+kHnp+dn8hcf+d8xLxSjbm+yPmJ6128Po7nvfspOz+R2T9+n6b3/pyv zx6fvczxGt0v8Pze9Z9qTN/SV3x/o/qtztk+kGtx5Mdo/TO7/73M9anoforM 12fnqYir5ato/YGfH3L+Yf7iv589vrLrN5t5f8b18Oj7oPQL/z2+39nrUxH3 9pfn0z/Z61Nb16+i368aPa+Y347NW9/PKI9VY14P8wfXq6L1rOy8NPr6FecT 5qfo+/VRPsseb0fPV1HeitbHo9dn56VejtavouPMV1zvyc5TvXkrun+N5p/s 9amt378yP8l7Yvqa61XMI73Hs/PUaPlq6/pWdH72eMse39XZfGW++rb1OPNV Lb/I8kXmqyivmK/MV5U4Oy+Zr8xX5ivzlXxMNl+Zr/bM2XnJfGW+Ml+Zr+Rj svnKfLVnzs5L5ivzlfnKfCUfk81X5qs9c3ZeMl+Zr8xX5iv5mGy+Ml/tmbPz kvnKfGW+Ml/Jx2Tzlflqz5ydl8xX5ivzlflKPiabr8xXe+bsvGS+Ml+Zr8xX 8jHZfGW+2jNn5yXzlfnKfGW+ko/J5ivz1Z753zXlxQU= "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}, {{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztncluFEEQREdcObJe+QbWG//AfkbizAEE/AdevwPb2L+Bjc3ZZvEZbxxR lRi39KRWTGnEZPY48oJC1WMqKyKqu6uyu2+9fP3o1aXRaPTh8mhU/61x+HD0 Lx7U6PCLGsPBzEe1O99c+Thf5+t8na/zzdF/5+t8p8lXtd+s0T8+2TDzYf// nJX4NfF4ZMOrKyU6vLVZYnJ++fvofFr1rPKP7m8rpj7ZfnJc4vs53tkucXCO r9b4PhjM/r+t0bXv7Zb4eY6f1+j8er9Gh2/UyItVf89OS3T5vqvR4Xs1Ovys Rl7M/hJTz09q9OuF+uDx0fhOjQ4/rfGjN5+FjyU6/a99KjFcTD9Tz0Pza6t/ r9eY3B88Xvll1lj1j3xT/8dHJQ4Gg9X5iPnRv/x9dkz/cjwumn9bz69D9y/5 Vv6Nvl5UmP1dXChh/46x/Wv/ZvKr/Wv/2r/27xhH+9H+tX/tX/t3jO1f+9f+ zYvtX/vX/s3jR/vX/rV/7d8xtn/t33nyL+s9VP1Ddsz5x/61f+fZv8yPflD1 INkw+8v5iHofup9VPqyXbK3HivZrK6YeVP1k9nph6lnVXyk/ZMPqepnt1H9r PXQ2TL8yH/px92uJrn729KTEj97js2POT9S/Ov+yPRtmPpyP6OfHNfL4sxUr vpR/lT+yYfZfXT+r6+no86fqH+cbzkfKv6o+OhtW/l1fK9HhKzXyXA8rrK43 eD/8vsbk/ow+vyq8slyiH7eeb5V/smGef9X9bet6ZzRW9wN83pXjwfk9Gn/e KNHfvrxUot+P9PPQnrcin7dr9PNPP/P8zPbo64nW+ZR6IP+836e+s80/aj5l PkrP2fGbGv16pt55f9u6PpQN03/Mj/pW+onG9J/qL/XN+Y73g9F6bdUzMefn 1ufXo/WqsPKn9Ww9W8/WcxS2nq1n69l6HuNo/VrP1rP1bD2PsfVsPWfSr/Vs PVvPF1fPrfqIxtaz9dyyP5S9XkHpdd71rPQ973pmvRH7z/1x1utQH9n1zPmb x6v66OyY+9nUM/Wu5rdofU6rZ14v83jqITumXtX9APXB+odovSqs5mcez3oH 6oGYes+GVX3V0mKJ/nph1vNkx5yvN9ZLdPlwfmM9cHZM/6nrpdb6+OyY/ed8 1VovGX29OG29J/lX53OVf3S9O/vHev+j3yX2e7Hyy9Aw82M7z2fUgzp+1pj9 U/Mx9cnfR+fTmq/C084P0fOVuv9t5Tc7bvVz6/i1rp8Nzb/Zsfk1v+Y3D1/m 1/yaX/Pbh81vLv7Mr/k1v+a3L99543f7S4n9iccrmr9WflV7ND+z5lf9Pjqf 1v4pvvm+EfX/Dc2/aj8h2o8Kcz1Y9V/NVxy/6P1P8sP+8Xv03/ZKdPvdW5sl DgeD+T5Y8sv306n3x0Zjvt+H/mO9CustouuD1H406y/YzvcZsf6C/H3dKTH5 +81mjdk/Yh7P/XqOb/T7e9T7DtX7nnj83Rodv/Qrx4v8R/Or+Ob+HuvLWuud /zcmP6yP4vyj/t61Gv3+5fidHJeY3D+zxuwf5xvWV2Xzr/Iz/arqlckvx0f5 I9qvqn+8nh86v+r8rPhV/Jlf82t+ze//wubX/Jpf85sFm1/za37N7xj7/ne+ +eX6ZDRf0/LL/QeuP2dbn5xWD/x7qysluv0kfh+D65Vcr+b4Ui/RmP3lejSf D+V4cT1w1pjrzWxnf9X8xP179b2naKy+d6OeZ1Tf/8mOOd+q/T31vcTo/V31 fSb1/Rrmq46Pzq8VMx+er9T+fnT/p82X/Dpf55spH+frfJ2v870o+bI+V11f Zse8P+D9LceD61nkOxtmPmxnPeFfCtHWDw== "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}, {{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztnUtuFDEURVtMmALD8BM7ADbAFoAhXwmJMZCVEIbkxxIIK4Fp0kknrAB2 gOqJ7pKOZN22EvFekXsn0ZUrkp+P7XL5uarvvXn39O2V2Wy2cXU2G/5+CJ09 mv3V71+DTlf+Qahdfj10Vsazft8OBrWv//F90Prx8Ppsf/B10OifhNZvn972 zPaM3/E6XsfreKvE53gd72WOt3e9mB3PRcfL9Rjj3fo4qE58vfF+2hrUXg+z PVT/zvaMn/ExHvJT63Nen+3fh0bP57/dnUHzlX8WOlz5jdDo74YWTb84Ca19 fbZ/HWqX3wmN8bwKnTTL6U+OQ2X9y9Dotz8POmzGu783qN0e5M/yap682P97 +av2qeYdv+N3/I7f8Tt+x+/4uf7jek6td1V7ZXvF52boqBn/3u6g47XbJzve Xv583tsM/Vx5Ph/xeaK3/at5tseN0Bj//dD4PP04dNosvxaq67/sD1o0y8lP Pd9n81NejVfuB9CfLkKT8ao/npcn/7+a5/yk+vvUxi/nH/JX7aP276r7/50v 60u+nJ+yeZzXq/1X863Fy3zN13zNd+nNtxYv8zVf8zXfpTffWrzM13x7+Kr9 PbUfXd1fNN/s82WsD+Ph/rrab+b4yN5f7vWcn6aWP1D739yPZL6Q5zN5fnhq Xp03Vfcb1b+z56Pe+j8MjfnC6uel1fuf9MyHHh2GVn5+FFr556HR72wPyvOs z63QvFnO89Fsr97z4f/aK95cL9CzfV6E5s3yap71ZX8gX56P53yWPd/2evJn /zieh5rjN5uf4qnqy/UV329he2WPV/W+d+//T228Ks/5mf136nzV+1mKb3Xe HK9qfjZf8zXfOt58zdd8zbfVftk8zdd8zdd8W+1jvtPmy+svG19+r6Qa3/N+ j4b7ldV50pOfKidflV/L3k9W9VP5EObTGD/bi/vz2Z79kd9PuR0aPc9vqPwm 20/lR7O9qp96ny7bq/Ma5MP8vpp/Ob/xeuaX1P2ums8+f6E8+fI8hjp/Qv68 P5GfyqdWn8/ps8/D9Z7vUu+fq/ORKr/fe//L5jf18av4Kd69fHvz/dnf91M+ e3z2jt/e98u5/jDfWt58zdd8zXfpzbeWN1/zNV/zXXrzreXN13x7+HL/WO1P 9v5+QDWfvT/V+35g7/cwma9g/pftofKp6vdqsj3rn/2+qvLcX+R4Zv6A/YHx /gEpLYCK "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}, {{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztnNlu1TAYhI+44ZZ9R4gn4RWg7LdIXPMqdN9bnoYWWmhPT7fD0yD/QYn4 JPMfqzS225mbauSk9eSfsZ3E6dMPn6Y+XhkMBuOrg0H4ubIcMH42+IPS+XvD 5Mf/GhuK5Z4eHr+4EHDc8uMjQ8vvGOLtPD83Z3/Zzutxz3Da8vGpoVjO+pK/ M3THLy8FxM+/b6iHe/rfGOJ+JX9t6PjCfEA5nP2jv+mP3PVJrV/u/vStl/Xi eMT6pvrF83vfnP1jPjk+5a6X+L856yX/yr81cflX/q2Zy7/yb81c/pV/a+by r/xbM5d/5d+aufwr/9bM5V/5t2Yu//7t39rev7F+qe+Ha9N73v7V++Oy6un5 t/b55qz+ZftZx+vc/vX273jjXd+c/eN+HXLu12K9c/sx1a+ef1n/24Z61gve +uGt4aTlNw2jlj837Lf8umFYDR/uG1o+Mx0wnLie3vhUGud6kPsNqXduNmA0 MX9pKIezf6MDQ3S8vmU4nJjz76We/7859dKvNwyd/ieGvWgepj8H5OMcX9g/ tvN8b/9v7jymcm8/8fxcQOcH+p3cy0tp/HBkiOqZnQnoOOcr5oXtuccr6jk6 NET1XTPE85GbM48vDPH596Ll1/s+gXpeGeL+9PKQO5+pnPqox9OfO6+p+WW7 N7/l5syjt35m+2XLrze/5M7bWXnufCm/yq/yq/zGuPKr/Cq/9XLlV/lVfuvl yq/yq/zWy5Vf5Vf5rZcrv8qv8lsvV36VX+W3Xq78Kr/Kb738ouc3Nd/0+11D tx+c+4lL4+w/20+ODZcmv16eU/dD1rZ/csrQtW9uBPyceH7rm3v94f5t7q+k fs5XpX+f4vWPeeb+SS/P3n7+3Jx5pb+pl+3cT1n6+Mb+eN+jMA/0f27O/Hrt 5EuLAd18y/xyPub3WqVx6jk9MUT9zPHLy3dp3NPD+YjtB0NDNN+5x6fU+Xdj PeBHyx8Yvrf8oWGn5etrAbstb76f3Y6e3zdvvh/9Fu3v6kpAd3zj/63o+c33 pR1vvj/djrb3zdkf6n1k2I0ez/qy3bu+fXP6jfrIm/F4K1p/T29uTv2PDV1e 11YDdqLXx/t9bC/dz9IrvdIrvdIrvSXqTV0/1aaX66vm/vdrVJ+3Xi59Pfll M2Avqsdbj3nr07451/t83srnF7x/5v0j/7/BeXPv/p3/P4Tn83klj+fzrNzP K/i8kPq960HO57PU6/3+vjnr510PPp/k+6bS6uvVL1U//Z3qn765dz3Yf+a1 Nr2p/pZe6ZXecvRJr/RKb3w/AN8/8fzc3FuPcX3I9Rjfn3K96e2XyM25Hmb/ ef/3G3J+rHI= "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}}, {{}, { {RGBColor[1, 0.5, 0], PointSize[0.02], AbsoluteThickness[1.6], Opacity[ 0.8], GeometricTransformationBox[InsetBox[ StyleBox["\<\"\[SixPointedStar]\"\>", StripOnInput->False, FontSize->15], {0., 0.}], {{{0.8793118671336109, 0.}}, {{ 0.6676176737725065, 0.}}, {{0.4944563083759354, 0.}}, {{ 0.31833806693409095`, 0.}}}]}, { {RGBColor[1, 0.5, 0], PointSize[0.02], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {RGBColor[1, 0.5, 0], PointSize[0.02], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}}}, AspectRatio->0.1, Axes->{True, False}, AxesOrigin->{0, 0}, ImageSize->200, ImageSizeRaw->{230, 184}, PlotRange->{{0, 1}, {-0.1, 0.1}}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245510533276`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"0be9915e-f2f7-4e0a-83f7-781e8bf433bc"], Cell[BoxData["\<\"Each cluster in GrayLevel of its center:\"\>"], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.885124552303033*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"d1be17c3-3e87-4c81-81c2-a88375ac4e1e"], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt2jFKA1EYhdFgIW7DUkvFVnELuoIRtAoIWqidq3ABrs5NKGaKgI1FMj7/ 3DdH+IQQJDNzD7F5hzf3V3d7i8Xi8WD162p4unx4GF6u98cXt8Py9GQ5vvm8 6m0x/rxezKmvj+Otq7527W5cqUVcqUVcqUVcqUVcqUVcqUVcqUVcqUVcqUVc qUVcqUVcqUVcqVVc6S9dpFb9vOdS9c5c9Vn1zlz1WfXOXPVZ9c5c9Vn1zlz1 WfXOXPVZ9c5c9Vn1zlz1WfXOXPVZ9c5c9Vn1zlz1WfXOXPVZ9c5c9Vn1zlzt bokbTfnc4ejzfNuqt0qKK6644iolrrjiiquUuOKKK65S4oorrrhKiSuuuOIq Ja644oqrlLjiiiuuUhqf19nn+0atn/Omf/ezKhtV11y983835TlzxdVffl9x xRVXXHHFVS9xxRVXXKXEFVdccZUSV1xxxVVKXHHFFVcpccVVT67Gz01zNeWa q3f+7ypMrTeqqOp+q3fmiqse4oorrrhKiSuuuOIqJa644oqrlLjiiiuuUuKK K664SokrrrjiKqHx/AZXXP1W1Ubrc0VJ55CmnM2b4irxTGCVq2ojXHG1K3HF FVdcpcQVV1xxlRJXXHHFVUpcccUVVylxxRVXXKXEFVdczdNV5T1z1b653W9V c/u/wBVXXOXGFVdccZUSV1xxxVVKXHHFFVcpccUVV1ylxBVXXHGVEldcccVV SnNzJUmSJEmSJEmSJEmSJKX0DaeDGF4= "], {{0, 120}, {150, 0}}, {0., 1.}, ColorFunction->GrayLevel], BoxForm`ImageTag["Real32", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Small, ImageSizeRaw->{150, 120}, PlotRange->{{0, 150}, {0, 120}}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245523186626`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"acf392c9-c66b-42d2-a5aa-399709854ed4"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\\n\"\>", "\[InvisibleSpace]", StyleBox["\<\"SymDIRECT \"\>", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontSize->16, FontColor->RGBColor[0, 0, 1]], "\[InvisibleSpace]", StyleBox["5", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontSize->16, FontColor->RGBColor[0, 0, 1]], "\[InvisibleSpace]", StyleBox["\<\" centers: \"\>", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontSize->16, FontColor->RGBColor[0, 0, 1]], "\[InvisibleSpace]", RowBox[{"{", RowBox[{ "0.879`", ",", "0.667`", ",", "0.495`", ",", "0.343`", ",", "0.232`"}], "}"}], "\[InvisibleSpace]", "\<\"; F=\"\>", "\[InvisibleSpace]", "28.932569858110725`", "\[InvisibleSpace]", "\<\"; Iter = \"\>", "\[InvisibleSpace]", "37"}], SequenceForm["\n", Style["SymDIRECT ", 16, RGBColor[0, 0, 1]], Style[5, 16, RGBColor[0, 0, 1]], Style[" centers: ", 16, RGBColor[0, 0, 1]], {0.879, 0.667, 0.495, 0.343, 0.232}, "; F=", 28.932569858110725`, "; Iter = ", 37], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245526623316`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"cd836312-ebd8-4052-9d97-aafa650543ae"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ {GrayLevel[0.8792612914697963], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.666641264034954], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.4951226947111721], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.3430117360158512], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.23220545648529187`], DiskBox[{0, 0}]}, ImageSize->20]}], "}"}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245526623316`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"8900eed7-8b24-4c83-8d63-0f92cb82f87c"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"WKMeans correctiona: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ "0.879`", ",", "0.668`", ",", "0.495`", ",", "0.343`", ",", "0.232`"}], "}"}], "\[InvisibleSpace]", "\<\"; F=\"\>", "\[InvisibleSpace]", "28.9297399910742`", "\[InvisibleSpace]", "\<\"; Iter = \"\>", "\[InvisibleSpace]", "1"}], SequenceForm[ "WKMeans correctiona: ", {0.879, 0.668, 0.495, 0.343, 0.232}, "; F=", 28.9297399910742, "; Iter = ", 1], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245546775155`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"5b3d1156-5e30-4a3b-a00e-a11d467821eb"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ {GrayLevel[0.8793118671336109], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.6676176737725065], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.4950980392156861], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.3430357496533971], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.23220331412747336`], DiskBox[{0, 0}]}, ImageSize->20]}], "}"}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245546775155`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"47fbfd96-baca-4c13-8160-8441a50bf1df"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Clusters size: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"11237", ",", "2936", ",", "1804", ",", "1584", ",", "439"}], "}"}]}], SequenceForm["Clusters size: ", {11237, 2936, 1804, 1584, 439}], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245546775155`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"3c6edcba-a6c4-4ad8-9e37-06debbdeb4c8"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Gaps between p-clusters from left to right: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"0.037`", ",", "0.08`", ",", "0.084`", ",", "0.129`"}], "}"}], "\[InvisibleSpace]", "\<\"\\nThe smallest \"\>", "\[InvisibleSpace]", "0.037`", "\[InvisibleSpace]", "\<\" is attain between \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" and \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cluster from the left\"\>"}], SequenceForm[ "Gaps between p-clusters from left to right: ", {0.037, 0.08, 0.084, 0.129}, "\nThe smallest ", 0.037, " is attain between ", 1, " and ", 2, " cluster from the left"], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245572394094`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"273b75a0-0ade-4519-b0fa-a54c6e5746c7"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"kk=\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\"; MD1=\"\>", "\[InvisibleSpace]", "23.233318536193735`", "\[InvisibleSpace]", "\<\"; CH=\"\>", "\[InvisibleSpace]", "109519.36913917214`", "\[InvisibleSpace]", "\<\"; DB=\"\>", "\[InvisibleSpace]", "0.5167988061400014`", "\[InvisibleSpace]", "\<\"; SSWC=\"\>", "\[InvisibleSpace]", "0.9084461204448008`"}], SequenceForm[ "kk=", 5, "; MD1=", 23.233318536193735`, "; CH=", 109519.36913917214`, "; DB=", 0.5167988061400014, "; SSWC=", 0.9084461204448008], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245572549863`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"98375658-8784-40ac-80b1-76b90f91a217"], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.8793118671336109], RectangleBox[{0.2, -0.05}, {0.2644066282549467, 0.05}]}, {GrayLevel[0.6676176737725065], RectangleBox[{0.3017577738165966, -0.05}, {0.3843137254901961, 0.05}]}, {GrayLevel[0.4950980392156861], RectangleBox[{0.46470588235294086, -0.05}, {0.5254901960784314, 0.05}]}, {GrayLevel[0.3430357496533971], RectangleBox[{0.6097451514665803, -0.05}, {0.7254901960784313, 0.05}]}, {GrayLevel[0.23220331412747336`], RectangleBox[{0.8549019607843137, -0.05}, {0.9037217734829074, 0.05}]}, \ {{{{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztnc2uHcUVRq/yFkBClHGeAEPCO2SG8ydFyjhjID/PgW0gr4GNTR4D2/xk EgkbQjLE5idRV9K3kyU1+xR97927uldN0FL3MdX31F71dZ3TdX70m9/97Lff Ozs7+9uPz86m/755a2qfvXz233Y0/n1rdbm3vzz/7rtTW/jDD6Y2Dn/91dQW /kFrf1+93ldbe7TKL7S28Cut1eXe/o9+vezvjTemtvD11h6v8rXW1o+PxqwH 1vPeOHs+kGXzhnljZvOGecO8sV/Ong9k2bxh3pjZvGHeMG/sl7PnA1k2b5g3 ZjZvmDfMG/vl7PlAls0b5o2ZzRvmDfPGfjl7PpBl84Z5Y2bzhnnDvLFfzp4P ZNm8Yd6Y2bxh3jBv7Jez5wNZNm+YN2Y2b5g3zBv75ez5QJbNG+aNmc0b5g3z xn45ez6QZfOGeWNm84Z5w7yxX86eD2T5yHmD/IvW1o+Pni/IzBeRfznf3n5n anXm0958wfk2yg88/kxrda5va954rbXHq8y88WxrdfJDxLye6H6CeTzK69n1 HHH2fCDL5o3vnjdG8w35J62t5w1e35MvpvbJ6nwbrX9kc5QPevNGlGey80Vv /mKeiPLHzRtTG4fZf9Yz8zeP0wejrY9kzweybN44nXl9Uf6gv7K51498fTRf VWfmBa7P9L6enH19vczr37peUI17P0+J1gNc35DlupydD3rzw9a8Uf3zFvrx l62t38/x9cwbT59Mrc782ZsX+HnCReepat/v4PoO+8f5+M7tqZ3++Ur25yVk 9u/hg6ktzHr4fmun5+9eH2Rz9nwgy0fOG1E99uaN7DwRca+P+Pro85To/j+b o89HeH3335/aJye/fuvnMVfN0foMv59BZt6Mvt9RjZk3mT96P280f8hyHc7O F735o/f1/P7HV19O7dNz/uDh1Orwu3emtjDv79j/51r7dPXv9Xxrn58z10/+ 0No68/xqnF0/snxkP7O/0ffteD59Rv9l+7iX6euft7Yc53rcvbtTO93Ho3H2 +MzmbH/I+lk/6+c1zh6f2ZztD1k/62f9vMbZ4zObs/0h62f9rJ/XOHt8ZnO2 P2T9rJ/18xpnj89szvaHrJ/1s35e4+zxmc3Z/pD1s37Wz2ucPT6zOdsfsn7W z/p5jbPHZzZn+0PWz/pZP69x9vjM5mx/yPpZP+vnNc4en9mc7Q/52Mz9Iujn l1pbH7/R89PZvt36vPfrrS3HuZ/GW29Obd1vPB6dX42z/ZjN2fUpXy5nj6+I o7wcnU/f3bo5tXX/VWdeD/ff4HxGn/Xuv1Gds8dnNmf7Qz62n5kXI19H+bra /ki9/YnWN7g/En3M/eyy9zfaytnjM5uz/SEfmyP/8jh9/OXTqS37cdJnzKfM 19mcnZ+z/Rv1N9uP2Zxdn/Llcvb+vb37+3J88vMw5lH+PgP992JrC3M9txqz /9HvadDfnK9GY15P7/rX3jjbH0e/v7/o/o7m58jX/DyM10v/Vs/LETM/09/0 M/3G+ar3eDbrZ/1ciXvv93u/f5bt260c/b5O5OfRfU0/8/fr6TP6d7R8rZ/1 cyXWz/pZP+vnNc72p37Wz/pZP6/1Vz/X8ql+1s/6WT/PrJ9r+VQ/62f9rJ9n 1s+1fKqf9bN+1s8z6+daPtXP+lk/6+eZ9XMtn+pn/ayf9fPM+rmWT/WzftbP +nlm/VzLp/pZP/8v8/lBHh9tv42L9jPnp+rPB+pn/TySn3t9TN6bj8ncPyfa H5l+jva3qMbsL+cfPt/N4/TzaL6mn6v7Sj/X/vtV93P23z/i3vUNXn9vfs7e b7R3v34y/cz8HO23Qf9VY15P9fzcW69b74f3xtnvX7afqzP9G603k0fzz1a+ 3tpyvdzfjusfEfP12cz3s7qvLtsH2dc3+t+vmp/pN67fVmP6lvuJ8veYuL8o /3789yP/XzZf9vyWXV/W77b65es5fvh7C9WY64+sX57P6+d45vn8966aL9p3 fH+z68v6/X/uvR4e5/udPX63cvR7Kbz+y66frdx7/dF8nl1f1q/1a/1av2uc XY/Wr/Vr/Vq/p55v/Vq/e+LserR+rV/r1/o99Xzr1/rdE2fXo/Vr/Vq/1u+p 51u/1u+eOLserV/r1/q1fk893/q1fvfE2fXYW69bn5eq9v3Brby3709edP3u nbPrM2L292j12ztfjV6/0fVF33fOrifrt2/+jeo5eh4pOy/2fh8/ev4i+vv1 1s9VX1/v64+Wl0fLz1E99tYv9y/Ifl6393lePn/M4w/uT+3ROXO/JNZ7tfqN 6vno97uj1W9Uny+1tn59HL8c/9xvpff5/ctm1if7y+NPn0xtvX6j+8fs5397 Xz/aeD4ab33el/WdXY+9zHrl/iG986/1K2dyNN9G9bx1v5xqzP3Ybr8ztXHq 97Lvf7PHq2z9Wr/W717Y+rV+rd9x2fq1fq3fcdn6tX6t33HZ+rV+rd9x2fq1 fq3fcdn6tX6t33HZ+rV+rd9xubd+ydn11suRb6xf63dkjt4//r5k9Pu+1Zj1 yu8383kMnk/fVXt+gf3h+xf196KfL5Uvlvl+8v3i73VFzwvy+8HXWntclvl9 ZzLP5+/lVnteNOoP6zN6P6Pnn7Ov96K593mAy2b2j+Mv6j/Hw+utLa9/obWl Xu+/P7VPzvnJF1NbmL/nd+/u1Bb+6MOprR+vzs+39vk5v/3W1Bb++KOpLfyv b6Y2Dv+wtX+c809bW44zj1Wvj63M/JXN7B/v76L+09/8fXrWN+dr3l9W41db Wz/O/P3H1pbx/d69qa3XM49XY/qI9fyn1hb+89tTWz/+l/emtvBfP55aHrM/ /2n/XL3e3vqQL5ej55uj8zn/0FevtLbU9403pvZo9Xh1Zv+ZP37V2sL0GY9X Z/r2162d7isepy+umtkf+oy+juphb5yd77bmwWi9hOsj9BXzCuu9Gkf9Zd6K /MTxX53ZfzJ9FOWXyGfZzP6+3Nrp+UquzfQX/fZMa6f7oBozT0X3h1zviHwV +SCbo/5GvqKfqnOvr/a+frU31lf6Sl/VqUdZX+krfTWzvhqb9ZW+0ld16lHW V/pKX82sr8ZmfaWv9FWdepT1lb7SVzPrq7FZX+krfVWnHmV9pa/01czR96ez 6/FoHPmn99/j88B8fjDbR1v9Ffkqqvfs52sijvzV+/326Pvu2cz+8/lBPm/W u9/UaJz9PFDv80LMv3x/+HqeTz9FeSWbI5/y+eZvvp7asn8B6zt6nrA68/nn 6HnBKF9lP28T+ZXvF+th7/ufZfsnYu6/EuUtMvdf4fODPJ/zE///2cz+8zj3 n+B+NNHzsNnzZS9H+2lt/b34bOZ+UNz/jc+/Rusb3H8o+3n8KB+wvxzfvfsN j8bZ/o2YPoqe1+b13bo5te/uu2xm/zh/9M5nUf7OHo+9HP0eeOTj7P04e+cP Xm+0n1LE2fsTRPsRcL7Z2/gd3c9k9j/af45+JvP9pg+zmf2jfyM/8+/Ruz6S nY8vOj+P5ueIo/2sIh9nr19F/aOfOb71cy73rhezPvl7BVH+HM3X/PtE9xOj 758Tzdes12x/9jLXM6L963t9N1p+5ue7fP/1cy3u9QvXn0fLz73ce/9Bzvbv Vefn0ZjXE31+Wv3z3978HK13ZvtUP+tn/XxcP5Oj9Wf9PDZn+1Y/62f9rJ9n 1s/6WT/r572wftbPlVg/62f9rJ9n1s+1WD/rZ/2sn2fWz7VYP+tn/ayfZ9bP tVg/62f9rJ9n1s+1WD/rZ/2sn2fWz7VYP+tn/bxw9Hygfh6bs+sr4l7f8PXP tba8n3zem+fT16Nx9PeK/t7Z47GXWZ+Rr0dnXt/11pbxHPmaeTv7ee6I+Xw3 8xb/Pr3jozpn11fv/MHjzBPMx9zPgO8352fuZ8jj2cz+kbnfJP8eHN/Vmfvh vNja+nwb5c3q/r7oes72i9zH0XiIfJjd/97xyfp8rbWlnh8+mNrCrPc7t6d2 +vnZzP5F97vZHO1PzP33OV9xPuJ8nD0ezVfffj/M6+H7x3xxrbVlfHP/EY6X bH62taW/vH/hcV4f80mUX7j/21VztJ9ztL/+aHkq2t94K190fpMv17+R36L1 9uzr6WVeb+QH5pXo9yuqM31dnTnfcP6Mzud8vnc/ZeeniFl//H2QaL2R6+/M L8wr1TjKV7z/4f0Fr79anur9PaLo83yO79Hmn+rrY3Kun6PvP4x2P8H+sp65 3sPPi+kHnp+dn8hcf+d8xLxSjbm+yPmJ6128Po7nvfspOz+R2T9+n6b3/pyv zx6fvczxGt0v8Pze9Z9qTN/SV3x/o/qtztk+kGtx5Mdo/TO7/73M9anoforM 12fnqYir5ato/YGfH3L+Yf7iv589vrLrN5t5f8b18Oj7oPQL/z2+39nrUxH3 9pfn0z/Z61Nb16+i368aPa+Y347NW9/PKI9VY14P8wfXq6L1rOy8NPr6FecT 5qfo+/VRPsseb0fPV1HeitbHo9dn56VejtavouPMV1zvyc5TvXkrun+N5p/s 9amt378yP8l7Yvqa61XMI73Hs/PUaPlq6/pWdH72eMse39XZfGW++rb1OPNV Lb/I8kXmqyivmK/MV5U4Oy+Zr8xX5ivzlXxMNl+Zr/bM2XnJfGW+Ml+Zr+Rj svnKfLVnzs5L5ivzlfnKfCUfk81X5qs9c3ZeMl+Zr8xX5iv5mGy+Ml/tmbPz kvnKfGW+Ml/Jx2Tzlflqz5ydl8xX5ivzlflKPiabr8xXe+bsvGS+Ml+Zr8xX 8jHZfGW+2jNn5yXzlfnKfGW+ko/J5ivz1Z753zXlxQU= "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}, {{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztncluFEEQREdcObJe+QbWG//AfkbizAEE/AdevwPb2L+Bjc3ZZvEZbxxR lRi39KRWTGnEZPY48oJC1WMqKyKqu6uyu2+9fP3o1aXRaPTh8mhU/61x+HD0 Lx7U6PCLGsPBzEe1O99c+Thf5+t8na/zzdF/5+t8p8lXtd+s0T8+2TDzYf// nJX4NfF4ZMOrKyU6vLVZYnJ++fvofFr1rPKP7m8rpj7ZfnJc4vs53tkucXCO r9b4PhjM/r+t0bXv7Zb4eY6f1+j8er9Gh2/UyItVf89OS3T5vqvR4Xs1Ovys Rl7M/hJTz09q9OuF+uDx0fhOjQ4/rfGjN5+FjyU6/a99KjFcTD9Tz0Pza6t/ r9eY3B88Xvll1lj1j3xT/8dHJQ4Gg9X5iPnRv/x9dkz/cjwumn9bz69D9y/5 Vv6Nvl5UmP1dXChh/46x/Wv/ZvKr/Wv/2r/27xhH+9H+tX/tX/t3jO1f+9f+ zYvtX/vX/s3jR/vX/rV/7d8xtn/t33nyL+s9VP1Ddsz5x/61f+fZv8yPflD1 INkw+8v5iHofup9VPqyXbK3HivZrK6YeVP1k9nph6lnVXyk/ZMPqepnt1H9r PXQ2TL8yH/px92uJrn729KTEj97js2POT9S/Ov+yPRtmPpyP6OfHNfL4sxUr vpR/lT+yYfZfXT+r6+no86fqH+cbzkfKv6o+OhtW/l1fK9HhKzXyXA8rrK43 eD/8vsbk/ow+vyq8slyiH7eeb5V/smGef9X9bet6ZzRW9wN83pXjwfk9Gn/e KNHfvrxUot+P9PPQnrcin7dr9PNPP/P8zPbo64nW+ZR6IP+836e+s80/aj5l PkrP2fGbGv16pt55f9u6PpQN03/Mj/pW+onG9J/qL/XN+Y73g9F6bdUzMefn 1ufXo/WqsPKn9Ww9W8/WcxS2nq1n69l6HuNo/VrP1rP1bD2PsfVsPWfSr/Vs PVvPF1fPrfqIxtaz9dyyP5S9XkHpdd71rPQ973pmvRH7z/1x1utQH9n1zPmb x6v66OyY+9nUM/Wu5rdofU6rZ14v83jqITumXtX9APXB+odovSqs5mcez3oH 6oGYes+GVX3V0mKJ/nph1vNkx5yvN9ZLdPlwfmM9cHZM/6nrpdb6+OyY/ed8 1VovGX29OG29J/lX53OVf3S9O/vHev+j3yX2e7Hyy9Aw82M7z2fUgzp+1pj9 U/Mx9cnfR+fTmq/C084P0fOVuv9t5Tc7bvVz6/i1rp8Nzb/Zsfk1v+Y3D1/m 1/yaX/Pbh81vLv7Mr/k1v+a3L99543f7S4n9iccrmr9WflV7ND+z5lf9Pjqf 1v4pvvm+EfX/Dc2/aj8h2o8Kcz1Y9V/NVxy/6P1P8sP+8Xv03/ZKdPvdW5sl DgeD+T5Y8sv306n3x0Zjvt+H/mO9CustouuD1H406y/YzvcZsf6C/H3dKTH5 +81mjdk/Yh7P/XqOb/T7e9T7DtX7nnj83Rodv/Qrx4v8R/Or+Ob+HuvLWuud /zcmP6yP4vyj/t61Gv3+5fidHJeY3D+zxuwf5xvWV2Xzr/Iz/arqlckvx0f5 I9qvqn+8nh86v+r8rPhV/Jlf82t+ze//wubX/Jpf85sFm1/za37N7xj7/ne+ +eX6ZDRf0/LL/QeuP2dbn5xWD/x7qysluv0kfh+D65Vcr+b4Ui/RmP3lejSf D+V4cT1w1pjrzWxnf9X8xP179b2naKy+d6OeZ1Tf/8mOOd+q/T31vcTo/V31 fSb1/Rrmq46Pzq8VMx+er9T+fnT/p82X/Dpf55spH+frfJ2v870o+bI+V11f Zse8P+D9LceD61nkOxtmPmxnPeFfCtHWDw== "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}, {{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztnUmOFDEQRUts2LAAtkziBsAFuAKwZZKQWDOchGZLDxyB5iSwpWvo5gRw A5QhqlJ6kvXLqhYRSf+/QV/Olhx+tsvpsJO7r948eX1pNptduTybDf++C509 nP3V71+DTjf+fqhdfi10Vsazfl+PB7Wf//5t0Pbx8Plsf/xl0Ogfh7Zvn972 zPaM3/E6XsfreKvE53gd70WOt3e9mB3PecfL9Rjj3fswqE58vfF+3BvUXg+z PVT/zvaMn/ExHvJT63M+n+3fhkbP97+D/UHzjb8TWjX9ahna+vls/zLULr8d GuN5EVo2y+mXi1BZ/zy0aMZ3dDioHT95s7yaV7zU86o9qnnH63gdr+OtEo/j dbwXOV6ul1R7qPbJ9orHjdBJM/7Dg0GLrdsnO95e3u9DPzee7xdcj/e2dzXP +K+Hxvjvhcb3zUeh02b51VBd//lo0KpZTn7q/Tibn/JqfPJ9mv50FZqMV/1x V578+2qe85Pq71Mbv5x/yF+1j9r/qu7/d76sL/lyfsrmsatX+5fmW4uX+Zqv +Zrv2ptvLV7ma77ma75rb761eJmv+fbwVft7aj+6uj9vvtnns1gfxsP9dbXf zPGRvb/c6zk/TS1/oPa/uR/J/CDPL/J87dS8Oo+pfm9U/86ej3rr/yA05gur nydW9yPpmQ89+RHa+PlJaOOfhka//2lQnmd9bobmzXKeH2Z79Z6f/tde8eZ6 gZ7t8yw0b5ZX86wv+wP58vw457Ps+bbXkz/7x2Ieao7fbH6Kp6ov11e8/8H2 yh6v6j50799Pbbwqz/mZ/XfqfNX9JcW3Om+OVzU/m6/5mm8db77ma77m22q/ bJ7ma77ma76t9jHfafPl8xeNL7/nUY3vrt9r4X5ldZ705KfKyVfl17L3k1X9 VD6E+TTGz/bi/ny2Z3/k90duhUbP8xsqv8n2U/nRbK/qp+7TZXt1XoN8mN9X 8y/nNz7P/JL6vavms89fKE++PI+hzp+QP3+fyE/lU6vP5/TZ5+F6z3ep++fq fKTK7/f+/mXzm/r4VfwU716+vfn+7O/fKZ89PnvHb+/9cq4/zLeWN1/zNV/z XXvzreXN13zN13zX3nxrefM13x6+3D9W+5O939ev5rP3p3rvB/Z+D5P5CuZ/ 2R4qn6r+P5dsz/pn31dVnvuLHM/MH7A/MN4/dBZTlA== "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}, {{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztmkmOFDEQRVMsuAAzO27ADbgDzbxEYs1d6Lm5FVVd02mQQyhTPMlEWkWn w+7/N60vZ1Y7Mp4jXeV49fX7228PhmF4/XAY0t+b66T9m+GPovvPpsl/MR1G /9J0mP15h70prGe83vwvL5I2o9/cmkb/1JQf5/21PefLcT6P56bd6Pc7U1jP /NJ/Mk3XX18l5e9/YWrHe/F/MOV5pX9vmvzFeVIcz/mR7583SVP9Ii+181Wa z9rzWTpe5ov1ifku5cfjf2nP+XG98v3M+lU7f/L/9syXeBbPLXvxLJ578uJZ PPfkxbN47smLZ/HckxfP4rknL57Fc09ePIvnnrx4/pvn1s8Hmc/S8+zW4r1r nls/7+4tnx6/rb9/juWX48fW79r8st/M6z/y6t/SnvNjvxE9+82Y/9p8lvLr 8Uwenpja2U94+4uPpu3oH5lWs+P11nM0z/0U+wkZ79lp0mq2PzHF8Zzf6pcp W98em9azPf9f6f3/2zNeb316/abRvdc/e36WtM7mn97jJ5pfr0zZeE5/JE2e 9Y38cLz2+mU8t2tTNr7W+fb61RnPO1M+fx4vtfkt9YyP8Xjx1+a5lG+O3ze+ vfpUm8djfW3+xLf4Ft/ie64X3+JbfIvvXrz4Ft+ReBTf4lt8i++cF9/iW3yL 7168+BbfkXiszTd5eGaa+lPYvxHNc/4c325M94Zvj/fS8/bWzufpWd+i9495 8yPfPI/3+Pb6iWp78st8M16O83w++nr3+v94/dVl0lSfyTfrN/sNo3nGs9ua svnm+vb4j+a9eLz3de31WVqPySOfB69n/9xdey8f7Nfk/azPvJ7rtzZ/rI+M v5RPvo8Yr/f5S3vmz3serMfcb0bLr5e/0vjJdyk/S3vveXD+XK+txVvKt+JV vIo3TnyKV/Eq3vzvH/y+wftre28/xv0h92P8Psz9pvf7UG3P/TDnz+9/vwHn dRQA "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}, {{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztl0tqAkEQhjuewLgxGoPkJF4hzhECWecq0YXv1y28gWOiRscTSRWhG34o KrPpHqG+zfBT01Jfdw+Ur++f2UfNObd9cI6eb8yl5/54ZIq7ycWF8Xk4IEK9 wVx97jJncf3gi0iX8TywP6zj+jojr0+dsd8+I59n2f1JnbFf7b5i3fzMz/zM z/zMz/zS+2h+Zf0zJsyj6xXx++/9ip21fnCe1uY5rKfO6KfVtfO8FozPqyVx 8rnN/Pj8zBx8Xi6Io89PzF5cHzu3mG+x3/mMCO9PxkQurp9NiZCnE2Iv1mNn 7Ad9O8xRfB/PF+va/sbOeN/QD3OTycXz13xTZ/R/YcL3upgTB3F/tN/DetXv s/mar/mar/mabxV9y85P9+aL89V4ROxEP21ervo8uVkTZ9FHm8e0+TR2xnkf /9/fALnLxxY= "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}}, {{}, { {RGBColor[1, 0.5, 0], PointSize[0.02], AbsoluteThickness[1.6], Opacity[ 0.8], GeometricTransformationBox[InsetBox[ StyleBox["\<\"\[SixPointedStar]\"\>", StripOnInput->False, FontSize->15], {0., 0.}], {{{0.8793118671336109, 0.}}, {{ 0.6676176737725065, 0.}}, {{0.4950980392156861, 0.}}, {{ 0.3430357496533971, 0.}}, {{0.23220331412747336`, 0.}}}]}, { {RGBColor[1, 0.5, 0], PointSize[0.02], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {RGBColor[1, 0.5, 0], PointSize[0.02], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}}}, AspectRatio->0.1, Axes->{True, False}, AxesOrigin->{0, 0}, ImageSize->200, ImageSizeRaw->{230, 184}, PlotRange->{{0, 1}, {-0.1, 0.1}}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245576611414`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"f7c8fccf-9e48-4b4e-b86f-bb8b132fe76e"], Cell[BoxData["\<\"Each cluster in GrayLevel of its center:\"\>"], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245594888783`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"8aa11fa4-47e6-4306-b44c-830db948fe72"], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt2jEuBGEcxuGNQlxDq6QnrsAJVkK1IqFAIXEKB3ABlSs4i0sQplBKZMa3 /32/eSQ/yUZhZt7HaL7ds6uTi63FYnGz8/3tZHl7fH29vD/dHj6cL1cH+6vh h3ffPS2Gr8ejOfX5vje66mvX5saVWsSVWsSVWsSVWsSVWsSVWsSVWsSVWsSV WsSVWsSVWsSVWsSVWsWV/tNFatXPey5V78xVn1XvzFWfVe/MVZ9V78xVn1Xv zFWfVe/MVZ9V78xVn1XvzFWfVe/MVZ9V78xVn1XvzFWfVe/MVZ9V78xVn1Xv zNXmlrjRlN/78PBxOLbqrZLiiiuuuEqJK6644iolrrjiiquUuOKKK65S4oor rrhKiSuuuOIqJa644oqrlIbndfb8svaqbFRdc/XO667CFFf9xxVXXHGVEldc ccVVSlxxxRVXKXHFFVdcpcQVV1xxlRJXXLVo6rPmiqtNel8NG6e5mnLN1TtX uHp9uxzV1I0qqvo7qt553Y01xRVX3ldcccVVD3HFFVdcpcQVV1xxlRJXXHHF VUpcccUVVylxxVWLxpriiqvfGs5veF/9vZ97HnPv1VuPqWqjn3NFSeeQppzN m/JuTzwTWOWq2ghXXG1KXHHFFVcpccUVV1ylxBVXXHGVEldcccVVSlxxxRVX KXHFFVfzdFV5z1y1b8qZosT7rWpu/xe44oqr3LjiiiuuUuKKK664Sokrrrji KiWuuOKKq5S44oorrlLiiiuuuEppbq4kSZIkSZIkSZIkSZKklL4Aj/6IDg== "], {{0, 120}, {150, 0}}, {0., 1.}, ColorFunction->GrayLevel], BoxForm`ImageTag["Real32", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Small, ImageSizeRaw->{150, 120}, PlotRange->{{0, 150}, {0, 120}}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245594888783`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"5a469d17-7483-4066-9246-7ec43701c957"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\\n\"\>", "\[InvisibleSpace]", StyleBox["\<\"SymDIRECT \"\>", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontSize->16, FontColor->RGBColor[0, 0, 1]], "\[InvisibleSpace]", StyleBox["6", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontSize->16, FontColor->RGBColor[0, 0, 1]], "\[InvisibleSpace]", StyleBox["\<\" centers: \"\>", StripOnInput->False, LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontSize->16, FontColor->RGBColor[0, 0, 1]], "\[InvisibleSpace]", RowBox[{"{", RowBox[{ "0.879`", ",", "0.667`", ",", "0.503`", ",", "0.40700000000000003`", ",", "0.323`", ",", "0.222`"}], "}"}], "\[InvisibleSpace]", "\<\"; F=\"\>", "\[InvisibleSpace]", "26.965192587662074`", "\[InvisibleSpace]", "\<\"; Iter = \"\>", "\[InvisibleSpace]", "42"}], SequenceForm["\n", Style["SymDIRECT ", 16, RGBColor[0, 0, 1]], Style[6, 16, RGBColor[0, 0, 1]], Style[" centers: ", 16, RGBColor[0, 0, 1]], {0.879, 0.667, 0.503, 0.40700000000000003`, 0.323, 0.222}, "; F=", 26.965192587662074`, "; Iter = ", 42], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245599262295`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"eeef57ea-6adc-4149-b41c-20697d519494"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ {GrayLevel[0.879210486206371], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.666641264034954], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.5028959000152415], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.4073311995122695], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.3230452674897119], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.22219681959050958`], DiskBox[{0, 0}]}, ImageSize->20]}], "}"}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245599262295`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"cd19c9b0-80f1-4436-8c7c-fa3bb7747ee2"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"WKMeans correctiona: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ "0.879`", ",", "0.668`", ",", "0.503`", ",", "0.40800000000000003`", ",", "0.323`", ",", "0.232`"}], "}"}], "\[InvisibleSpace]", "\<\"; F=\"\>", "\[InvisibleSpace]", "26.92253034684761`", "\[InvisibleSpace]", "\<\"; Iter = \"\>", "\[InvisibleSpace]", "2"}], SequenceForm[ "WKMeans correctiona: ", {0.879, 0.668, 0.503, 0.40800000000000003`, 0.323, 0.232}, "; F=", 26.92253034684761, "; Iter = ", 2], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245628946667`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"546c3e42-4264-40c0-908f-74101a4b16b7"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ {GrayLevel[0.8793118671336109], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.6676176737725065], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.5029535864978905], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.4082323892519972], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.32316208805421914`], DiskBox[{0, 0}]}, ImageSize->20], ",", GraphicsBox[ {GrayLevel[0.23173315303132755`], DiskBox[{0, 0}]}, ImageSize->20]}], "}"}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245628946667`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"06241e60-f3c2-473d-93b3-2f523f9c004f"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Clusters size: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ "11237", ",", "2936", ",", "1580", ",", "675", ",", "1137", ",", "435"}], "}"}]}], SequenceForm["Clusters size: ", {11237, 2936, 1580, 675, 1137, 435}], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245628946667`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"440db750-f530-47e1-a106-9a5cc672753b"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Gaps between p-clusters from left to right: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ "0.038`", ",", "0.037`", ",", "0.043000000000000003`", ",", "0.082`", ",", "0.129`"}], "}"}], "\[InvisibleSpace]", "\<\"\\nThe smallest \"\>", "\[InvisibleSpace]", "0.037`", "\[InvisibleSpace]", "\<\" is attain between \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" and \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" cluster from the left\"\>"}], SequenceForm[ "Gaps between p-clusters from left to right: ", {0.038, 0.037, 0.043000000000000003`, 0.082, 0.129}, "\nThe smallest ", 0.037, " is attain between ", 2, " and ", 3, " cluster from the left"], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245661599164`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"8b32c5ec-7855-4051-8ea2-4c02b64ad3d4"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"kk=\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\"; MD1=\"\>", "\[InvisibleSpace]", "24.600585122311582`", "\[InvisibleSpace]", "\<\"; CH=\"\>", "\[InvisibleSpace]", "94410.74655449166`", "\[InvisibleSpace]", "\<\"; DB=\"\>", "\[InvisibleSpace]", "0.4909195410352427`", "\[InvisibleSpace]", "\<\"; SSWC=\"\>", "\[InvisibleSpace]", "0.909834594740047`"}], SequenceForm[ "kk=", 6, "; MD1=", 24.600585122311582`, "; CH=", 94410.74655449166, "; DB=", 0.4909195410352427, "; SSWC=", 0.909834594740047], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245661599164`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"4b28d799-c93e-4b3a-8f29-64aefa061b27"], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.8793118671336109], RectangleBox[{0.2, -0.05}, {0.2634663060626551, 0.05}]}, {GrayLevel[0.6676176737725065], RectangleBox[{0.30196078431372547, -0.05}, {0.3443633917947125, 0.05}]}, {GrayLevel[0.5029535864978905], RectangleBox[{0.3811706608569355, -0.05}, {0.43529411764705883, 0.05}]}, {GrayLevel[0.4082323892519972], RectangleBox[{0.47843137254901963, -0.05}, {0.527475800446761, 0.05}]}, {GrayLevel[0.32316208805421914`], RectangleBox[{0.6097451514665803, -0.05}, {0.7254901960784313, 0.05}]}, {GrayLevel[0.23173315303132755`], RectangleBox[{0.8549019607843137, -0.05}, {0.9037217734829076, 0.05}]}, \ {{{{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztnc2uHcUVRq/yFkBClHGeAEPCO2SG8ydFyjhjID/PgW0gr4GNTR4D2/xk EgkbQjLE5idRV9K3kyU1+xR97927uldN0FL3MdX31F71dZ3TdX70m9/97Lff Ozs7+9uPz86m/755a2qfvXz233Y0/n1rdbm3vzz/7rtTW/jDD6Y2Dn/91dQW /kFrf1+93ldbe7TKL7S28Cut1eXe/o9+vezvjTemtvD11h6v8rXW1o+PxqwH 1vPeOHs+kGXzhnljZvOGecO8sV/Ong9k2bxh3pjZvGHeMG/sl7PnA1k2b5g3 ZjZvmDfMG/vl7PlAls0b5o2ZzRvmDfPGfjl7PpBl84Z5Y2bzhnnDvLFfzp4P ZNm8Yd6Y2bxh3jBv7Jez5wNZNm+YN2Y2b5g3zBv75ez5QJbNG+aNmc0b5g3z xn45ez6QZfOGeWNm84Z5w7yxX86eD2T5yHmD/IvW1o+Pni/IzBeRfznf3n5n anXm0958wfk2yg88/kxrda5va954rbXHq8y88WxrdfJDxLye6H6CeTzK69n1 HHH2fCDL5o3vnjdG8w35J62t5w1e35MvpvbJ6nwbrX9kc5QPevNGlGey80Vv /mKeiPLHzRtTG4fZf9Yz8zeP0wejrY9kzweybN44nXl9Uf6gv7K51498fTRf VWfmBa7P9L6enH19vczr37peUI17P0+J1gNc35DlupydD3rzw9a8Uf3zFvrx l62t38/x9cwbT59Mrc782ZsX+HnCReepat/v4PoO+8f5+M7tqZ3++Ur25yVk 9u/hg6ktzHr4fmun5+9eH2Rz9nwgy0fOG1E99uaN7DwRca+P+Pro85To/j+b o89HeH3335/aJye/fuvnMVfN0foMv59BZt6Mvt9RjZk3mT96P280f8hyHc7O F735o/f1/P7HV19O7dNz/uDh1Orwu3emtjDv79j/51r7dPXv9Xxrn58z10/+ 0No68/xqnF0/snxkP7O/0ffteD59Rv9l+7iX6euft7Yc53rcvbtTO93Ho3H2 +MzmbH/I+lk/6+c1zh6f2ZztD1k/62f9vMbZ4zObs/0h62f9rJ/XOHt8ZnO2 P2T9rJ/18xpnj89szvaHrJ/1s35e4+zxmc3Z/pD1s37Wz2ucPT6zOdsfsn7W z/p5jbPHZzZn+0PWz/pZP69x9vjM5mx/yPpZP+vnNc4en9mc7Q/52Mz9Iujn l1pbH7/R89PZvt36vPfrrS3HuZ/GW29Obd1vPB6dX42z/ZjN2fUpXy5nj6+I o7wcnU/f3bo5tXX/VWdeD/ff4HxGn/Xuv1Gds8dnNmf7Qz62n5kXI19H+bra /ki9/YnWN7g/En3M/eyy9zfaytnjM5uz/SEfmyP/8jh9/OXTqS37cdJnzKfM 19mcnZ+z/Rv1N9uP2Zxdn/Llcvb+vb37+3J88vMw5lH+PgP992JrC3M9txqz /9HvadDfnK9GY15P7/rX3jjbH0e/v7/o/o7m58jX/DyM10v/Vs/LETM/09/0 M/3G+ar3eDbrZ/1ciXvv93u/f5bt260c/b5O5OfRfU0/8/fr6TP6d7R8rZ/1 cyXWz/pZP+vnNc72p37Wz/pZP6/1Vz/X8ql+1s/6WT/PrJ9r+VQ/62f9rJ9n 1s+1fKqf9bN+1s8z6+daPtXP+lk/6+eZ9XMtn+pn/ayf9fPM+rmWT/WzftbP +nlm/VzLp/pZP/8v8/lBHh9tv42L9jPnp+rPB+pn/TySn3t9TN6bj8ncPyfa H5l+jva3qMbsL+cfPt/N4/TzaL6mn6v7Sj/X/vtV93P23z/i3vUNXn9vfs7e b7R3v34y/cz8HO23Qf9VY15P9fzcW69b74f3xtnvX7afqzP9G603k0fzz1a+ 3tpyvdzfjusfEfP12cz3s7qvLtsH2dc3+t+vmp/pN67fVmP6lvuJ8veYuL8o /3789yP/XzZf9vyWXV/W77b65es5fvh7C9WY64+sX57P6+d45vn8966aL9p3 fH+z68v6/X/uvR4e5/udPX63cvR7Kbz+y66frdx7/dF8nl1f1q/1a/1av2uc XY/Wr/Vr/Vq/p55v/Vq/e+LserR+rV/r1/o99Xzr1/rdE2fXo/Vr/Vq/1u+p 51u/1u+eOLserV/r1/q1fk893/q1fvfE2fXYW69bn5eq9v3Brby3709edP3u nbPrM2L292j12ztfjV6/0fVF33fOrifrt2/+jeo5eh4pOy/2fh8/ev4i+vv1 1s9VX1/v64+Wl0fLz1E99tYv9y/Ifl6393lePn/M4w/uT+3ROXO/JNZ7tfqN 6vno97uj1W9Uny+1tn59HL8c/9xvpff5/ctm1if7y+NPn0xtvX6j+8fs5397 Xz/aeD4ab33el/WdXY+9zHrl/iG986/1K2dyNN9G9bx1v5xqzP3Ybr8ztXHq 97Lvf7PHq2z9Wr/W717Y+rV+rd9x2fq1fq3fcdn6tX6t33HZ+rV+rd9x2fq1 fq3fcdn6tX6t33HZ+rV+rd9xubd+ydn11suRb6xf63dkjt4//r5k9Pu+1Zj1 yu8383kMnk/fVXt+gf3h+xf196KfL5Uvlvl+8v3i73VFzwvy+8HXWntclvl9 ZzLP5+/lVnteNOoP6zN6P6Pnn7Ov96K593mAy2b2j+Mv6j/Hw+utLa9/obWl Xu+/P7VPzvnJF1NbmL/nd+/u1Bb+6MOprR+vzs+39vk5v/3W1Bb++KOpLfyv b6Y2Dv+wtX+c809bW44zj1Wvj63M/JXN7B/v76L+09/8fXrWN+dr3l9W41db Wz/O/P3H1pbx/d69qa3XM49XY/qI9fyn1hb+89tTWz/+l/emtvBfP55aHrM/ /2n/XL3e3vqQL5ej55uj8zn/0FevtLbU9403pvZo9Xh1Zv+ZP37V2sL0GY9X Z/r2162d7isepy+umtkf+oy+juphb5yd77bmwWi9hOsj9BXzCuu9Gkf9Zd6K /MTxX53ZfzJ9FOWXyGfZzP6+3Nrp+UquzfQX/fZMa6f7oBozT0X3h1zviHwV +SCbo/5GvqKfqnOvr/a+frU31lf6Sl/VqUdZX+krfTWzvhqb9ZW+0ld16lHW V/pKX82sr8ZmfaWv9FWdepT1lb7SVzPrq7FZX+krfVWnHmV9pa/01czR96ez 6/FoHPmn99/j88B8fjDbR1v9Ffkqqvfs52sijvzV+/326Pvu2cz+8/lBPm/W u9/UaJz9PFDv80LMv3x/+HqeTz9FeSWbI5/y+eZvvp7asn8B6zt6nrA68/nn 6HnBKF9lP28T+ZXvF+th7/ufZfsnYu6/EuUtMvdf4fODPJ/zE///2cz+8zj3 n+B+NNHzsNnzZS9H+2lt/b34bOZ+UNz/jc+/Rusb3H8o+3n8KB+wvxzfvfsN j8bZ/o2YPoqe1+b13bo5te/uu2xm/zh/9M5nUf7OHo+9HP0eeOTj7P04e+cP Xm+0n1LE2fsTRPsRcL7Z2/gd3c9k9j/af45+JvP9pg+zmf2jfyM/8+/Ruz6S nY8vOj+P5ueIo/2sIh9nr19F/aOfOb71cy73rhezPvl7BVH+HM3X/PtE9xOj 758Tzdes12x/9jLXM6L963t9N1p+5ue7fP/1cy3u9QvXn0fLz73ce/9Bzvbv Vefn0ZjXE31+Wv3z3978HK13ZvtUP+tn/XxcP5Oj9Wf9PDZn+1Y/62f9rJ9n 1s/6WT/r572wftbPlVg/62f9rJ9n1s+1WD/rZ/2sn2fWz7VYP+tn/ayfZ9bP tVg/62f9rJ9n1s+1WD/rZ/2sn2fWz7VYP+tn/bxw9Hygfh6bs+sr4l7f8PXP tba8n3zem+fT16Nx9PeK/t7Z47GXWZ+Rr0dnXt/11pbxHPmaeTv7ee6I+Xw3 8xb/Pr3jozpn11fv/MHjzBPMx9zPgO8352fuZ8jj2cz+kbnfJP8eHN/Vmfvh vNja+nwb5c3q/r7oes72i9zH0XiIfJjd/97xyfp8rbWlnh8+mNrCrPc7t6d2 +vnZzP5F97vZHO1PzP33OV9xPuJ8nD0ezVfffj/M6+H7x3xxrbVlfHP/EY6X bH62taW/vH/hcV4f80mUX7j/21VztJ9ztL/+aHkq2t94K190fpMv17+R36L1 9uzr6WVeb+QH5pXo9yuqM31dnTnfcP6Mzud8vnc/ZeeniFl//H2QaL2R6+/M L8wr1TjKV7z/4f0Fr79anur9PaLo83yO79Hmn+rrY3Kun6PvP4x2P8H+sp65 3sPPi+kHnp+dn8hcf+d8xLxSjbm+yPmJ6128Po7nvfspOz+R2T9+n6b3/pyv zx6fvczxGt0v8Pze9Z9qTN/SV3x/o/qtztk+kGtx5Mdo/TO7/73M9anoforM 12fnqYir5ato/YGfH3L+Yf7iv589vrLrN5t5f8b18Oj7oPQL/z2+39nrUxH3 9pfn0z/Z61Nb16+i368aPa+Y347NW9/PKI9VY14P8wfXq6L1rOy8NPr6FecT 5qfo+/VRPsseb0fPV1HeitbHo9dn56VejtavouPMV1zvyc5TvXkrun+N5p/s 9amt378yP8l7Yvqa61XMI73Hs/PUaPlq6/pWdH72eMse39XZfGW++rb1OPNV Lb/I8kXmqyivmK/MV5U4Oy+Zr8xX5ivzlXxMNl+Zr/bM2XnJfGW+Ml+Zr+Rj svnKfLVnzs5L5ivzlfnKfCUfk81X5qs9c3ZeMl+Zr8xX5iv5mGy+Ml/tmbPz kvnKfGW+Ml/Jx2Tzlflqz5ydl8xX5ivzlflKPiabr8xXe+bsvGS+Ml+Zr8xX 8jHZfGW+2jNn5yXzlfnKfGW+ko/J5ivz1Z753zXlxQU= "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}, {{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztncluFEEQREdcObJe+QbWG//AfkbizAEE/AdevwPb2L+Bjc3ZZvEZbxxR lRi39KRWTGnEZPY48oJC1WMqKyKqu6uyu2+9fP3o1aXRaPTh8mhU/61x+HD0 Lx7U6PCLGsPBzEe1O99c+Thf5+t8na/zzdF/5+t8p8lXtd+s0T8+2TDzYf// nJX4NfF4ZMOrKyU6vLVZYnJ++fvofFr1rPKP7m8rpj7ZfnJc4vs53tkucXCO r9b4PhjM/r+t0bXv7Zb4eY6f1+j8er9Gh2/UyItVf89OS3T5vqvR4Xs1Ovys Rl7M/hJTz09q9OuF+uDx0fhOjQ4/rfGjN5+FjyU6/a99KjFcTD9Tz0Pza6t/ r9eY3B88Xvll1lj1j3xT/8dHJQ4Gg9X5iPnRv/x9dkz/cjwumn9bz69D9y/5 Vv6Nvl5UmP1dXChh/46x/Wv/ZvKr/Wv/2r/27xhH+9H+tX/tX/t3jO1f+9f+ zYvtX/vX/s3jR/vX/rV/7d8xtn/t33nyL+s9VP1Ddsz5x/61f+fZv8yPflD1 INkw+8v5iHofup9VPqyXbK3HivZrK6YeVP1k9nph6lnVXyk/ZMPqepnt1H9r PXQ2TL8yH/px92uJrn729KTEj97js2POT9S/Ov+yPRtmPpyP6OfHNfL4sxUr vpR/lT+yYfZfXT+r6+no86fqH+cbzkfKv6o+OhtW/l1fK9HhKzXyXA8rrK43 eD/8vsbk/ow+vyq8slyiH7eeb5V/smGef9X9bet6ZzRW9wN83pXjwfk9Gn/e KNHfvrxUot+P9PPQnrcin7dr9PNPP/P8zPbo64nW+ZR6IP+836e+s80/aj5l PkrP2fGbGv16pt55f9u6PpQN03/Mj/pW+onG9J/qL/XN+Y73g9F6bdUzMefn 1ufXo/WqsPKn9Ww9W8/WcxS2nq1n69l6HuNo/VrP1rP1bD2PsfVsPWfSr/Vs PVvPF1fPrfqIxtaz9dyyP5S9XkHpdd71rPQ973pmvRH7z/1x1utQH9n1zPmb x6v66OyY+9nUM/Wu5rdofU6rZ14v83jqITumXtX9APXB+odovSqs5mcez3oH 6oGYes+GVX3V0mKJ/nph1vNkx5yvN9ZLdPlwfmM9cHZM/6nrpdb6+OyY/ed8 1VovGX29OG29J/lX53OVf3S9O/vHev+j3yX2e7Hyy9Aw82M7z2fUgzp+1pj9 U/Mx9cnfR+fTmq/C084P0fOVuv9t5Tc7bvVz6/i1rp8Nzb/Zsfk1v+Y3D1/m 1/yaX/Pbh81vLv7Mr/k1v+a3L99543f7S4n9iccrmr9WflV7ND+z5lf9Pjqf 1v4pvvm+EfX/Dc2/aj8h2o8Kcz1Y9V/NVxy/6P1P8sP+8Xv03/ZKdPvdW5sl DgeD+T5Y8sv306n3x0Zjvt+H/mO9CustouuD1H406y/YzvcZsf6C/H3dKTH5 +81mjdk/Yh7P/XqOb/T7e9T7DtX7nnj83Rodv/Qrx4v8R/Or+Ob+HuvLWuud /zcmP6yP4vyj/t61Gv3+5fidHJeY3D+zxuwf5xvWV2Xzr/Iz/arqlckvx0f5 I9qvqn+8nh86v+r8rPhV/Jlf82t+ze//wubX/Jpf85sFm1/za37N7xj7/ne+ +eX6ZDRf0/LL/QeuP2dbn5xWD/x7qysluv0kfh+D65Vcr+b4Ui/RmP3lejSf D+V4cT1w1pjrzWxnf9X8xP179b2naKy+d6OeZ1Tf/8mOOd+q/T31vcTo/V31 fSb1/Rrmq46Pzq8VMx+er9T+fnT/p82X/Dpf55spH+frfJ2v870o+bI+V11f Zse8P+D9LceD61nkOxtmPmxnPeFfCtHWDw== "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}, {{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztnE1uFDEUhFssWAMHALFnAVyAKwB7QEJizc9JCHsSjkByknCA+QkngBsg W0xa+iSr5mki3mumahOV7M64XLbbfrb74dv3L9/dmqbp0e1pan8/dlw9m/7i 96+G7TV/0jFOv9txVYazfBfnDeP8Py4b9tfD/Nn8/HvDzF907F8/0frM5tRv vdZrvdZbRZ/1Wu8x643OF7P13LRezseo9+RzQx19Ub1fThrG82HWh2rf2Zz6 qY966J+anzN/Nv/QMXOu/x50bIZ8s+7YO382f9MxTr/fMet53bEeppOvVx1l +auO1VDf2WnDWD/9Zno1rvxS+VV9VOPWa73Wa71V9Fiv9R6zXs6XVH2o+snm 0fnh6deG1d71ka0v6u+njp/XnOsJzr+j9VuNU/+9jln/4455Pfm8YztMv9NR l387a9gM01X7Z3vI9k9x1T+5fibfbjoWw1V7PNRPPl+Nc3xS7X1p/ZfjD/1X 9aPiXdX5/+4vy0t/OT5l+3EoV/FK+1vLL/trf+2v/d1x+1vLL/trf+2v/d1x +1vLL/trfyP+qvieikdX5zftb/Z5LJaHehhfV/Fm9o/s+HKUc3xa2v6Bin8z Hsn9QZ5P5PnZpXF13lK9b1T7zh6PouV/2jHvF1Y/L6zuP5JzP5TPR88L/2uu 9PP9Sc7zw2zv2f0xylkfrC++n3g+nv8v2191XzT6/NL1qvsO1mu91luHW6/1 Wu/x6GV+3serpvfQ+5acb6r1ZPb8WJVPrXe4fuT9NMb31PqXv6fWz9lclU+d t8zmKp5Hfxj/Uf2X/YP5ub5U40c1nh2fU5z+Ml6n4pP0n+Mb/VPxherjH3n2 fkk0/q/uJ6j9MxXvir4vsv1bev9V/im/o/5G433Z3z9QPLt/Rvtv9P4B5x/2 txa3v/bX/trfHbe/tbj9tb/21/7uuP2txe2v/Y34y/ixik9Gv69YjWfHp6Ln R6PfS+F+BfcPWR9qP059zzebs/zZ55kVZ3yR/Zn7B2wP1PsHI2a9Ng== "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}, {{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztmU1uwjAUhCNOUWi74CTcgRX9WVVi3eMQIF31UEmc5C7Fo8qRRnJfs8H2 05sF6JMT5C/jRCjefnzuj6uqqr5vH/77q/EZd9VvLmefvhh+QWZ+RVzgDeL+ /XuuR7Jl9pXmz+MPSBe475BsmX2ZD8h8/Ln2iZ+/Rsphyf968XHR65d6/kv9 Us/n3r7cF9+v/Dzj9Z3ax/hv5r6sX11s/epm61c3W7+62frVzdavbrZ+dbP1 q5ulfkt/f8V+S98/lua7tN9HZFDrK/Vb+vNK6pf3V6T9Bel+uTfz/Hg/gVna X0nd19I+pX7rk08b5a5FAg8OCTwOSOA3ZObm6pOOeT5PyBgd5/1SPv4diY/n xjxfvj7sO41ItN/UPpKfNN/S+pOY1y/3x765+3N/0vo1X/M133zYfM3XfM03 Fx+J2UcaZ19mPp//X6dm7ucZmQL/APImB5s= "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}, {{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztmllOwzAURSPEChi/WQl7KNM/Et+IrdCBddF02A7KAzXSkawXi9L3Uu79 qa6ctL72ses4vnl+nbycNE3zdto03efHotPmtvnRZm3a+StTuZz3R3vWl+WP pnIe+gdT7xfzTnk868f89LXf77XPoT3rx/5UXuVV3jz5lFd5lVd5lfdbx76e 3Pf6Mzovr780jYdfj+cn03bnz03t4Lxef2fzHL98PmTe2bRTO9jfmfJ41q9d mor8X5hWgz1/r/b+fXvmJa9npj6/t58RzWut9/ZH5rNOfXuRB3qPp2x+1ZqK eabvnXrP+Y48sTx6PDPPemUq5hs7395+JPPcm8r95/ESzW+tZz7m8fJH81zL N8v/G9/e/BTN4299NH/iW3yLb/E91Itv8S2+xfexePEtvjPxKL7Ft/gW3yUv vsW3+Bbfx+LFt/jOxGM03+Th2tSfV+F5jmye9Wf5dmP6N3x7vNe+bx/b+/mJ qVzO+S77+TKvfuSd7+c93r3zRtGePLP/mZflfF+fffx75wN5PXnm/M3zh9k8 +4/j1eM5m/fyePPT8tNU5Dl6PNbOx+SR7cXreX7ur73XXzy/yfs5H/N6jtdo PjkfMr/XHvT8/2Fe7/sP7dl/Xntw/uV6M1v/ev1Xm5981/JzaO+1B+vP8Tq2 vLV8K6/yKm+efMqrvMpb3u/g8wbvj/beeozrQ67H+DzM9aa3HxTtuR5m/fn8 9wWPtrLT "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}, {{}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[CompressedData[" 1:eJztl01qAkEQRtucIK5MjCI5Sa5gPILgOldRF/47kzvkDmqcSWa8kVQhPfBB Uc6me4R6G/mobqnX3UL5Pv4aTZ6ccz8t5+hzyJQf7kabuTxMvpSMz/MZUdUH TCGun02JeBnPH/vDOu5/ZuT9sTP2+8nI91f3fGJn7Fd7n1g3P/MzP/MzP/Mz v/g+ml9d/zQh/u8+n9BZ6wfnZ21+w3rsjH5aHXOyJ/587jJnn9+YzOf9jsh9 fmFO4v7Q+ZX5Ffvdbohq/WpJHMX9mzVR5fWKOIn10Bn7Qd8ek4vr8X6xrp1v 6IzvDf0wd5ijeP+ab+yM/n2m+r3utkQmno/2fVhv+ns2X/M1X/M1X/Ntom/d +enRfHG+Wi6Ig+inzctNnye/U6IQfbR5TJtPQ2ec9/H/+xVHibmk "]]}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.05], PointSize[0.005], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}}, {{}, { {RGBColor[1, 0.5, 0], PointSize[0.02], AbsoluteThickness[1.6], Opacity[ 0.8], GeometricTransformationBox[InsetBox[ StyleBox["\<\"\[SixPointedStar]\"\>", StripOnInput->False, FontSize->15], {0., 0.}], {{{0.8793118671336109, 0.}}, {{ 0.6676176737725065, 0.}}, {{0.5029535864978905, 0.}}, {{ 0.4082323892519972, 0.}}, {{0.32316208805421914`, 0.}}, {{ 0.23173315303132755`, 0.}}}]}, { {RGBColor[1, 0.5, 0], PointSize[0.02], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {RGBColor[1, 0.5, 0], PointSize[0.02], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}}}, AspectRatio->0.1, Axes->{True, False}, AxesOrigin->{0, 0}, ImageSize->200, ImageSizeRaw->{230, 184}, PlotRange->{{0, 1}, {-0.1, 0.1}}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245665660686`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"eee41143-6800-4877-9522-8266579004d1"], Cell[BoxData["\<\"Each cluster in GrayLevel of its center:\"\>"], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245692216897`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"153617c6-d608-43d1-815b-91a61889d3e0"], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt2jFqVFEYhuFBQdyGrWXsI9Z2cQUT0CoiRILaZQs27sCFuAQb1+AqxJwi YOs9Hv/7/fME3oQQhrlzv+emOk8u3128eXA4HN4/vvt2cfzw4vr6+OnVo/HL 6+PVs7Or8cePd305jK/b56fUr59PN1d97dpvXGlFXGlFXGlFXGlFXGlFXGlF XGlFXGlFXGlFXGlFXGlFXGlFXGlVXOlfukit+n6fStU7c9Wz6p256ln1zlz1 rHpnrnpWvTNXPavemaueVe/MVc+qd+aqZ9U7c9Wz6p256ln1zlz1rHpnrnpW vTNXPavemav9lrjRzPt+/nbYXPVWSXHFFVdcpcQVV1xxlRJXXHHFVUpcccUV VylxxRVXXKXEFVdccZUSV1xxxVVKPx5+P6+oysbtzdfzrVU9R4lxxRVXXKXE FVdccZUSV1xxxVVKXHHFFVcpccUVV1ylxBVXXHGVEldcdXI1Nk5zNXPN1Tv/ 78b9unn5dlOzG1U0c80zVe/MFVcd4oorrrhKiSuuuOIqJa644oqrlLjiiiuu UuKKK664SokrrrjiKqFxfmPG1Tjv8rf3989zMlztu5n7PHs2795nyjmkmbN5 W5+/UeKZwCpX1Ua46udqvLbaCFf9XPl/xRVXXHHFFVf1Trjiag9xxRVXXKXE FVdccZUSV1xxxVVKXO3T1f1rxs/Kz8zV+mbOBSV+3qpmnt+ZuOodV1xxxVVK XHHFFVcpccUVV1ylxBVXXHGVEldcccVVSlxxxRVXKXHFFVeSJEmSJEmSJEmS JEnS6fQbPyeSqw== "], {{0, 120}, {150, 0}}, {0., 1.}, ColorFunction->GrayLevel], BoxForm`ImageTag["Real32", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Small, ImageSizeRaw->{150, 120}, PlotRange->{{0, 150}, {0, 120}}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245692216897`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"b6b0a051-df10-4df4-9f8e-ed625a998fdb"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\\nMD1: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ "25.539195568082707`", ",", "16.937888460898115`", ",", "38.714209141358054`", ",", "23.233318536193735`", ",", "24.600585122311582`"}], "}"}], "\[InvisibleSpace]", "\<\"; MAPart=\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\"\\nIndCH: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ "76255.08723945156`", ",", "100338.80590598058`", ",", "126770.12138062864`", ",", "109519.36913917214`", ",", "94410.74655449166`"}], "}"}], "\[InvisibleSpace]", "\<\"; MAPart=\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\"\\nIndDB: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ "0.48526592831948073`", ",", "0.5583020711313522`", ",", "0.47502650234586463`", ",", "0.5167988061400014`", ",", "0.4909195410352427`"}], "}"}], "\[InvisibleSpace]", "\<\"; MAPart=\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\"\\nIndSSWC: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ "0.9191637672620522`", ",", "0.8939974221054602`", ",", "0.9109926590017786`", ",", "0.9084461204448008`", ",", "0.909834594740047`"}], "}"}], "\[InvisibleSpace]", "\<\"; MAPart=\"\>", "\[InvisibleSpace]", "2"}], SequenceForm[ "\nMD1: ", {25.539195568082707`, 16.937888460898115`, 38.714209141358054`, 23.233318536193735`, 24.600585122311582`}, "; MAPart=", 4, "\nIndCH: ", { 76255.08723945156, 100338.80590598058`, 126770.12138062864`, 109519.36913917214`, 94410.74655449166}, "; MAPart=", 4, "\nIndDB: ", { 0.48526592831948073`, 0.5583020711313522, 0.47502650234586463`, 0.5167988061400014, 0.4909195410352427}, "; MAPart=", 4, "\nIndSSWC: ", { 0.9191637672620522, 0.8939974221054602, 0.9109926590017786, 0.9084461204448008, 0.909834594740047}, "; MAPart=", 2], Editable->False]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.885124569237311*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"b773b6d6-b98b-40b4-a0e2-cf444d935c42"], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{{}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{2., 25.539195568082707`}, {3., 16.937888460898115`}, {4., 38.714209141358054`}, {5., 23.233318536193735`}, {6., 24.600585122311582`}}]}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0.5}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->{{34.5204081632653, 1.5}, {12.995392011671612`, 17.447261256579253`}}, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox["\"MD1\"", TraditionalForm], PlotRange->{{0., 6.}, {0.5, 38.714209141358054`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], {194.4, -116.80842387373012}, ImageScaled[{0.5, 0.5}], {360.00000000000006, 222.49223594996212}], InsetBox[ GraphicsBox[{{}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{2., 76255.08723945156}, {3., 100338.80590598058`}, {4., 126770.12138062864`}, {5., 109519.36913917214`}, {6., 94410.74655449166}}]}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 40000.}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->{{34.5204081632653, 1.5}, {12.995392011671612`, 17.447261256579253`}}, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox["\"CH\"", TraditionalForm], PlotRange->{{0., 6.}, {40000., 126770.12138062864`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], {583.2, -116.80842387373012}, ImageScaled[{0.5, 0.5}], {360.00000000000006, 222.49223594996212}], InsetBox[ GraphicsBox[{{}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{2., 0.48526592831948073`}, {3., 0.5583020711313522}, {4., 0.47502650234586463`}, {5., 0.5167988061400014}, {6., 0.4909195410352427}}]}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0.5}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->{{34.5204081632653, 1.5}, {12.995392011671612`, 17.447261256579253`}}, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox["\"DB\"", TraditionalForm], PlotRange->{{0., 6.}, {0.47502650234586463`, 0.5583020711313522}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], {972., -116.80842387373012}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}], InsetBox[ GraphicsBox[{{}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{2., 0.9191637672620522}, {3., 0.8939974221054602}, {4., 0.9109926590017786}, {5., 0.9084461204448008}, {6., 0.909834594740047}}]}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0.8}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->{{34.5204081632653, 1.5}, {12.995392011671612`, 17.447261256579253`}}, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox["\"IndSSWC\"", TraditionalForm], PlotRange->{{0., 6.}, {0.8, 0.9191637672620522}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], {1360.8000000000002, -116.80842387373012}, ImageScaled[{0.5, 0.5}], {359.9999999999998, 222.49223594996212}]}, {}}, ContentSelectable->True, ImageSize->{ UpTo[600], UpTo[360]}, ImageSizeRaw->{230, 184}, PlotRangePadding->{6, 5}]], "Print", CellChangeTimes->{3.885123838580101*^9, 3.885124045433268*^9, 3.8851245698152995`*^9}, CellLabel-> "During evaluation of \ In[26]:=",ExpressionUUID->"9d965ff0-3fcb-46da-a4b3-26bcd95e2b05"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tab", "=", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"IndMD1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "IndMD1", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{"tab", ",", RowBox[{"{", RowBox[{"20", ",", "30", ",", "40"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesOrigin", "->", RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"{", RowBox[{"20", ",", "30", ",", "40"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "150"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"IndCH", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "IndCH", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{"tab", ",", RowBox[{"{", RowBox[{"80000", ",", "100000", ",", "120000"}], "}"}]}], "}"}]}], ",", RowBox[{"AxesOrigin", "->", RowBox[{"{", RowBox[{"0", ",", "70000"}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"{", RowBox[{"80000", ",", "100000", ",", "120000"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "150"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"IndDB", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "IndDB", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{"tab", ",", RowBox[{"{", RowBox[{".45", ",", ".50", ",", ".55"}], "}"}]}], "}"}]}], ",", RowBox[{"AxesOrigin", "->", RowBox[{"{", RowBox[{"0", ",", ".40"}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"{", RowBox[{".45", ",", ".50", ",", ".55"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "150"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"IndSSWC", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "IndSSWC", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{"tab", ",", RowBox[{"{", RowBox[{".89", ",", ".90", ",", ".91"}], "}"}]}], "}"}]}], ",", RowBox[{"AxesOrigin", "->", RowBox[{"{", RowBox[{"0", ",", ".88"}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"{", RowBox[{".89", ",", ".90", ",", ".91"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "150"}]}], "]"}], " "}]}], "Input", CellChangeTimes->{{3.8850353285389338`*^9, 3.885035780554714*^9}, { 3.885035822212658*^9, 3.885035967695421*^9}, {3.8850360252397346`*^9, 3.8850361926273246`*^9}, {3.8850362652041492`*^9, 3.8850362658923864`*^9}, { 3.8850366883659563`*^9, 3.8850367406580954`*^9}, {3.885036871670311*^9, 3.885036909578904*^9}, {3.885088591443965*^9, 3.8850886048548875`*^9}}, CellLabel->"In[31]:=",ExpressionUUID->"06a398aa-17e7-4308-a08e-5a6aa47ee7b3"], Cell[BoxData[ GraphicsBox[{{}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{2., 25.539195568082707`}, {3., 16.937888460898115`}, {4., 38.714209141358054`}, {5., 23.233318536193735`}, {6., 24.600585122311582`}}]}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 10.}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{1, 2, 3, 4, 5, 6}, {20, 30, 40}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->150, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 6.}, {10., 38.714209141358054`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, {{20, FormBox["20", TraditionalForm]}, {30, FormBox["30", TraditionalForm]}, {40, FormBox["40", TraditionalForm]}}}]], "Output", CellChangeTimes->{ 3.885035868500482*^9, {3.8850359085519843`*^9, 3.885035927225026*^9}, 3.885035969742488*^9, 3.885036070633027*^9, 3.885036194758574*^9, 3.8850362666461515`*^9, {3.8850366900589476`*^9, 3.885036742055608*^9}, 3.8850368730232487`*^9, 3.8850369113379583`*^9, 3.8850885280337944`*^9, { 3.8850885934396915`*^9, 3.885088605468483*^9}, 3.885089204124509*^9, 3.8850893181611404`*^9, 3.8851245700187683`*^9}, CellLabel->"Out[32]=",ExpressionUUID->"86b1713e-0d0a-4120-97df-a0d109c53733"], Cell[BoxData[ GraphicsBox[{{}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{2., 76255.08723945156}, {3., 100338.80590598058`}, {4., 126770.12138062864`}, {5., 109519.36913917214`}, {6., 94410.74655449166}}]}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 70000.}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{1, 2, 3, 4, 5, 6}, {80000, 100000, 120000}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->150, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 6.}, {70000., 126770.12138062864`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, {{80000, FormBox["80000", TraditionalForm]}, {100000, FormBox["100000", TraditionalForm]}, {120000, FormBox["120000", TraditionalForm]}}}]], "Output", CellChangeTimes->{ 3.885035868500482*^9, {3.8850359085519843`*^9, 3.885035927225026*^9}, 3.885035969742488*^9, 3.885036070633027*^9, 3.885036194758574*^9, 3.8850362666461515`*^9, {3.8850366900589476`*^9, 3.885036742055608*^9}, 3.8850368730232487`*^9, 3.8850369113379583`*^9, 3.8850885280337944`*^9, { 3.8850885934396915`*^9, 3.885088605468483*^9}, 3.885089204124509*^9, 3.8850893181611404`*^9, 3.885124570065632*^9}, CellLabel->"Out[33]=",ExpressionUUID->"1a446b45-ed88-4170-a996-42922285e37d"], Cell[BoxData[ GraphicsBox[{{}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{2., 0.48526592831948073`}, {3., 0.5583020711313522}, {4., 0.47502650234586463`}, {5., 0.5167988061400014}, {6., 0.4909195410352427}}]}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0.4}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{1, 2, 3, 4, 5, 6}, {0.45, 0.5, 0.55}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->150, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 6.}, {0.4, 0.5583020711313522}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, {{0.45, FormBox["0.45`", TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {0.55, FormBox["0.55`", TraditionalForm]}}}]], "Output", CellChangeTimes->{ 3.885035868500482*^9, {3.8850359085519843`*^9, 3.885035927225026*^9}, 3.885035969742488*^9, 3.885036070633027*^9, 3.885036194758574*^9, 3.8850362666461515`*^9, {3.8850366900589476`*^9, 3.885036742055608*^9}, 3.8850368730232487`*^9, 3.8850369113379583`*^9, 3.8850885280337944`*^9, { 3.8850885934396915`*^9, 3.885088605468483*^9}, 3.885089204124509*^9, 3.8850893181611404`*^9, 3.8851245700968757`*^9}, CellLabel->"Out[34]=",ExpressionUUID->"e1adcd52-6d56-4cbb-9eef-07e8d2f7482e"], Cell[BoxData[ GraphicsBox[{{}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{2., 0.9191637672620522}, {3., 0.8939974221054602}, {4., 0.9109926590017786}, {5., 0.9084461204448008}, {6., 0.909834594740047}}]}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0.88}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{1, 2, 3, 4, 5, 6}, {0.89, 0.9, 0.91}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->150, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 6.}, {0.88, 0.9191637672620522}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, {{0.89, FormBox["0.89`", TraditionalForm]}, {0.9, FormBox["0.9`", TraditionalForm]}, {0.91, FormBox["0.91`", TraditionalForm]}}}]], "Output", CellChangeTimes->{ 3.885035868500482*^9, {3.8850359085519843`*^9, 3.885035927225026*^9}, 3.885035969742488*^9, 3.885036070633027*^9, 3.885036194758574*^9, 3.8850362666461515`*^9, {3.8850366900589476`*^9, 3.885036742055608*^9}, 3.8850368730232487`*^9, 3.8850369113379583`*^9, 3.8850885280337944`*^9, { 3.8850885934396915`*^9, 3.885088605468483*^9}, 3.885089204124509*^9, 3.8850893181611404`*^9, 3.885124570174981*^9}, CellLabel->"Out[35]=",ExpressionUUID->"3b3d641a-4cc1-4aee-a6f7-c8c62dd97b64"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Angiography Import image.pre and call Processing Import image.post and call Processing\ \>", "Subsubsection", CellChangeTimes->{{3.856093778090787*^9, 3.856093796054755*^9}, { 3.8842233680597105`*^9, 3.8842233965308676`*^9}, {3.884223550269926*^9, 3.884223603757419*^9}, {3.8847485557658424`*^9, 3.884748578723429*^9}, { 3.8847491412645507`*^9, 3.88474915118559*^9}},ExpressionUUID->"ecf14a23-c5e6-4348-b55a-\ 192e759ef4ae"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Fig", "=", RowBox[{"Image", "[", RowBox[{ "Import", "[", "\"\\"", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", ".7"}], ";", " ", RowBox[{"KK", "=", "8"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"Number", " ", "of", " ", RowBox[{"clusters", ":", " ", "2"}]}], ",", "...", ",", "8"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"boja", "=", RowBox[{"{", RowBox[{ "Red", ",", "Green", ",", "Blue", ",", "Orange", ",", "Purple", ",", "Magenta", ",", "Yellow", ",", " ", "Brown"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Processing", "[", RowBox[{"Fig", ",", "0"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"If", " ", "color"}], " ", "\[NotEqual]", " ", "0"}], ",", " ", RowBox[{ RowBox[{ "figures", " ", "of", " ", "clusters", " ", "are", " ", "in", " ", "color"}], ";", " ", RowBox[{ "Otherwise", " ", "figures", " ", "of", " ", "clusters", " ", "are", " ", "grayscale"}]}]}], " ", "*)"}]}]}], "Input", InitializationGroup->True, CellChangeTimes->{{3.855143397719144*^9, 3.85514339916982*^9}, { 3.855143550823164*^9, 3.855143563282746*^9}, {3.855143609568632*^9, 3.8551436443159857`*^9}, {3.855143687009956*^9, 3.8551436886906843`*^9}, { 3.855156764029466*^9, 3.8551567863518867`*^9}, {3.85540093848318*^9, 3.855400941491245*^9}, 3.855453609130332*^9, {3.8554557095797253`*^9, 3.855455723618404*^9}, 3.8554560321319637`*^9, {3.8554576188981476`*^9, 3.8554576272196813`*^9}, {3.8555479093041716`*^9, 3.855547911784437*^9}, { 3.855629359080819*^9, 3.8556293620739565`*^9}, {3.85606260086619*^9, 3.8560626714074297`*^9}, {3.856062810310546*^9, 3.856062810792881*^9}, { 3.856062871524817*^9, 3.8560629460556545`*^9}, {3.8560658201878633`*^9, 3.8560659051659436`*^9}, {3.856065990052597*^9, 3.8560660160859385`*^9}, { 3.8560660621223097`*^9, 3.856066103901997*^9}, {3.8560662093235226`*^9, 3.8560662569383717`*^9}, {3.8560665176516895`*^9, 3.856066519705055*^9}, { 3.856087526213916*^9, 3.8560875378786097`*^9}, {3.8560875858515563`*^9, 3.8560876269988537`*^9}, {3.8560899590901923`*^9, 3.8560900875956225`*^9}, {3.8560931496826477`*^9, 3.8560931679453764`*^9}, {3.856094517994089*^9, 3.856094526551332*^9}, { 3.8561498088474197`*^9, 3.856149809969595*^9}, 3.8838901070563183`*^9, { 3.883892398005846*^9, 3.883892402957797*^9}, 3.883894056754531*^9, 3.8838953885589347`*^9, 3.8838955165930424`*^9, 3.8838958226673636`*^9, 3.883896550778578*^9, 3.8839667808212414`*^9, 3.883966868700916*^9, 3.8839669615173125`*^9, {3.883967009734312*^9, 3.883967029138486*^9}, 3.883967349516765*^9, 3.8840005145582275`*^9, 3.88400076032944*^9, 3.884001064899667*^9, 3.884001477722249*^9, 3.884085286477045*^9, 3.884085561636142*^9, 3.884085639615525*^9, 3.884085751291687*^9, 3.884087933547174*^9, 3.8840879718855104`*^9, 3.884088204759232*^9, 3.884088269328494*^9, 3.8840889800752707`*^9, 3.8840890228985896`*^9, { 3.884221924093046*^9, 3.884221925265423*^9}, {3.884222202052268*^9, 3.8842222027708387`*^9}, {3.884223250045332*^9, 3.884223259530851*^9}, 3.8842234528442435`*^9, {3.8842619682293367`*^9, 3.8842620156608324`*^9}, 3.884746463186973*^9, {3.884746498508213*^9, 3.884746581184583*^9}, { 3.884747936777433*^9, 3.8847479376517673`*^9}, {3.8847483451520987`*^9, 3.884748364005486*^9}, {3.8847485857667933`*^9, 3.8847485893597097`*^9}, { 3.884843054591218*^9, 3.8848430670408306`*^9}, {3.8848691709959664`*^9, 3.8848692126284533`*^9}, 3.8849318303661366`*^9, {3.8849523612576237`*^9, 3.88495236275564*^9}, {3.884952815212612*^9, 3.8849528162853208`*^9}, { 3.8850171860714073`*^9, 3.8850171951749983`*^9}, 3.8850172939653497`*^9, 3.885099008431711*^9, 3.8850992050933123`*^9}, CellLabel->"In[4]:=",ExpressionUUID->"9b5cd107-e765-4cf7-a8fb-87c7f173867f"], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzdvfnPndV1PZ62UpO2UtWqan+pVDVtpf6SqlWjDmqrdFDaEhHUMoTQEIZA GBzAGDyAjQHbGIfZZjKDGQ02xgwGwpABv++99xnva8KQhCSk8/BD+1981ves 715az3nuc+3XGAg5kl9d3/uMZ6+z99r77LPPx8+59KTzf/ojH/nI6o/hz0lf uuKvL7/8S+tP/iX853MrV6+4YOV5X/7MyjXnXXDe5X96zs/gy6/j34v49/99 btu2aZq6rqvU8AHfTKfT7373u9/5znfeeuutN95449vf/vahQ4eWlpbw/dIx atNj1Pi0uqb+yxfx7/nTKLXxeDyZTIqi4Cs30dpoun4dLTtgTmN/8gH038O+ RfYM6HD85X3xCq+99hq+4au9/vrrb775Jj7gLQ4ePIi/OAZ/y7KkHBcXF198 8cV9+/Y98sgjL730Et4UJ+JXHoO3xlnFETSchSvjgviME/EZzwAwfCc1PMO7 xMaxwsCcXuVT+X/R+DrsinFq7Dp+M0kNHyg1vJ2GhkNlDmaOEBvs3pnX9Cv7 f3n9DBuHUuP3aIQKDsAz40XwdgQ83o6iBDy++c1vvvLKK0888cTLL7/MN9Vb 85gjxAauibPwF7cDLKkxCAz8l0/yY4sNF5m+YXehi1599VX0Ev7iM7uII0id iVPwgmW0KpqPfb8F32sIGA4G/lciHmqumlpTg8IMIcEviRD8hGeGgCAdPCr0 AN5O+pCjgJd67LHHnnnmmW9961t8KRyDA3DNI8GGGxSqMuAB2HgjNdwaSkPY OIo2pw+PITZce1ANjqKh39AzxAa7TrDBXw4ijg7HRmZK+qpjznsJDDpSn/vN oci7OAD81YQNfgmhcPxyILDJYgoeMC7PPvvsCy+8gO8JCcLjSLChi9CUvB7t 26m9lhr12I8nNrzz+ZB4HVoNCpoqkV2HD+w6WRwewE6YCYbDQmUmNjTeNfwP iw0nezxLb6cvXQqyLBwRsp4aFHxfnAub8vTTT3/961/n8+NLqtDDNj4P7gIt 4eyi344OG8cQA0MtU7zoZHQLtQEPEM1g00/SMxnV9IvPNDRua7ImMLRdVTbH oPRVx9SIk+CxlBipUIEPvAL+i7HMSzmbYoM0oTMPHDgA1QEVytc5Qr3BG+Hi NCKinf12dAh5f7BBSslxRKIucUuNSElmgpv2DISuTKTNVB1zsMFHarte0mH5 hsPD1Y6ghc+QzpLxUh1G9b6UdKZEL15aJMcE2IBxgdsClcI+OWx7I1pGLbx/ 3g023gfMZNhAnywsLLDDSTsXUqMVbs2PcJzMJBXT5fuwS+YyOzbmPHxfe4iu zMRGdk3eC9wDv9Jk0KZQQ37jG9+YJo0Ky7J79+49e/bQuBwJNmhHMmzIljk9 5pfOS/lUzRH47/2mV3OozO9Dl5pjtQ1WIO0KLUrDgZ+AB6gRxgHItzUwnY0c TI18tbC4xxA2Mp2jp5oGF80ohG6aHa/r8/iy2zJNgpaJQA+AZ24TN8A3eCOO BapQfOD1AY8nn3wSCoRaRepUgMx8W6Ki749kzyBZ+FPpwZphrnWssDFf7VCI HFm4CLmWlCqJaJHIlb+7fJahgBilPIQNF002imtr/k1fO2WWZaZxcbvDruir d74+LQtenG+kgAaHAHx5AONrX/salAlxWFiox20Qm/yRTO59+3JsbcFyseFY dSnoFPY5DTE7ZzE16QH2hiOBYGBz79VH9xA29CRSRPrJpamfHC0u9OysphtT 1fUJDD7k1AgGj3H1vpQ4Kt8U2kMSZ4dAN77yyiugpnpl/kQgZWNnpjaYiY05 4jsKzAxhY6jNPEyGeClIO4/BOyrqxfiwooUCQ9GlpjPlNUdv9LExv9UDrQ+n mbfTAYxcQTTkHq35L+pPDhC+L4SuQYFz8Rnd8swzz6Bn+BOvqV8dG0O6eiYw PkBsDHUademShRHaRD8wZKA5YWHxl5DA63/rW99ya14b5TusTLP7LgsYc7Dh rU85amPLbLSMAsA0TMzUODltQZtICJBQRMC8SKFOaEt4K8899xx6huS8SoF3 apI52Jhj1t8fmzLUt/0IAFsdNLi1WTYqTxDyF198EfBA/0ijys6yibIO6fwh bPhw9p+yI3WR+TiRkyJUePTbX1kPo/d1Tt6ES8tYBD5jjPA6Ird4a3wJ1SF/ tokJtawJBlmky3tAz5Ax5Ol7wEWHsNG/gkyJGxc8Hl4KqICKgGEFNtAD+Eyf jpOJdQQBnGnMxMB0mG9kWHJk1t3IGL+Z9kyhX7YPkqGZYrxgk0LfHPKKdWRm 5bVoTXi1ZczSUu7PP/88egajhqaE32cxsZkhUD6AekO3y3wZvWl97HzYIWxk MXyd5QOTT45eBSQ4C4nXh94ANjiRLVVcR0DMiUfdZaG8xRA2+sFMXtz91qn5 s/3RlF0wA4keTCSZn+FXtmkChfFwTcjS0zwUEzHTRFDxDY7HkbQsbfLoSc5f SQ1mRYqlj40jsSbvRWuPUaPqqGNKaJq8e4ABnppQIdFX3abghoaVRrpHJ2a2 TLh6r769mN8yQ9M3Lllzl4ofGguN9uNRDIjRE5HaJE19+umnwTqgQDig8D1h 86HDxpA+ORR5Dm34Dgz4wJHHuGDIiwCQltB4FPHwee0PBBv672GxQV5NSLhi 73uabIcszcPjGOgQDJ9nU6On36ccH3ZskKLXkQNDS4fXx4vDrHAg0NNnDyis 0ade6vAjx4Z/c9TY6AOjjw09JNAuLVf3mPl0ls2SccSLE1pNYiy41DOpQXuI r34YsTHUlixm3ljKBLDByDn6BJ2Jz+xVD3wpkSMbjBmXmNnmY6bfDguSw6KC +g0gV8BTXLruxspaYy9VmkoA60BHsR9IvYrk2MKgQME++eSTslYfRmwMPWeb TIA4m6R24MABeCt8XybIgXuwY9nwJf7L+BgoWUZLyllzGe8dNuaYEqHCLSNz ll5NjS7YTAVCnAMbb775JhQsTlR+aZFS/r6RGohHkWYWfsKw0Vg82eGxb98+ qErInWENYoOjhtgQMAAhMBOfYnOaNyTN/lvMx8xhUeHAKCzZtYh5H80KCRvf TM2tTNvLrKaLRBemjpRRXrlJHBWnw63jPOOHFBtDrbH4hjocn/fs2YPhAFdF pkTTKzP1hoLGmQswHxvTYZ90udjIFEUfG9mcIMkD3o5USs8veExDdThgmjTV QhXBv+gBjBrAg4kNH0ZsDPWtd0VjSbx79+4FNl566SUOhzrCPqNuQ4dwdp59 W1qW4AeCDclF/5XSGEVqtLQE5UuQc+AXkcinZ5smekzM0M+lH1eliRX8pWpF X+EibQqzq73XGBjqw6br/bkSWFbfDtl3qIL777+figKfYTjwpawtLogeBl8F SydrRefQslSWucGu1lPpju3caRQXuk6pB2Lpznv9dcpumqtMSRFuFyMSZA78 LxUjTlxKgcomRURrc4WYfgzjQmxwLOBXnI5O6Of8HFvR99uxwsYcWcxsjz76 6K5du6AqQcJhWSB3/AUnp8PC5HP0BmDDkUifV/pECiTDhvjMe4QNHVZGxhoV gjvdVCCODR5ABcLv2at+3zrN0L3++uv4S1TINeNaJ3RR0W0fFmwsFzNbtmy5 /fbbH3vssTvuuAOQgHHZv3//U089BYIKXcGQILBBY62kQSaAcZahjkkogYGi pNI+CmxkWi6zKRk8iA1iWAmNVaQqyenmSKdBpD6hLyYKSmvS2jIosg4qIv6K CzKEnuWfHytsDHXUB4WN9evXX3PNNffdd99dd93FBRoAA5QDfFsAAzihk0ts QASSCIeqY0NgOGzQYw42+ifWXfcqg4dshwOD35N7TLqLLBaj8Y0oWWFjGsn2 VUoN4oyk9AZTwoAN4PDDiI3l8g2oi3Xr1j3wwANwZoENAMNpm6eGkvIJG+xh fu/0o4n80qPGhl9KB8g9yeChaIbuWAedzmaQeTp0nRwWJUBOI2LMvpXrCszw s/CG0+nLfxhtynKxASOyefPmhx9+GMDg6ow2Em51R5eg+J7Wu6GH0WOZaOS/ HDU21PhNYZM7bl8099HYKhsXnE+O0OnIAM9Whx1sIkmjTqS06nrNTIVCp30Y sTFfHP2GV4bquDs1EAyMCEaM+4LgfzNfgBpY+ZZNZH2Uh4uXDmGjtHxUVxru sWbwcFe6sfXsHvcoYhpI/jipCI8ZpXWOPEWqg1REF1SgFWYFjPS9wMYRgueo sbFczOBlYVC2bdu2du1auCoM74BvuBEnkaDQs5GlnOTSMn/eO2wU3VQNiruy ydNq1jyLfqJKBCoU+xUJaWJZNLuaF5+G2pzEIlBiA/3z46A35mBmGrGsOoI2 nms0UxD9BunDSYGrsmPHjq1bt9577734BqxDcUU36MJq9kZzZH1YG+dn8S00 Tsvu8ltprcrYZtWNhjksfbzrLL2ROBUDnvjMFfdVWj/epghYk3IbijQVy4AP fmXSCxQs0UUI/Xhiow2OcXTYQBcBG9u3bwc8brjhBjgs+Iapxb6mXoxO8Ohr pGOCjcaMgmuPxnI1+X0ZkYeZ2BBLUfNvqAccHvjMDuQxbZqZqhPloNGk/kTD 8eAb9FbeT2z0+3wIG22XK9ZRfme52MDbARu33HIL9MaNN94IT5Y8HNQUxoVD w/W5y90lO3T9+djwb/r8oTb71QSTccvlRqSPjZnfu6FRgJ2ei88T1RFRBzbq lL0gXwyfmZmvZLn3GhvL1Sf9Ydt2138dITZw1tNPPw2lAS6Kv/fccw/eGiZ1 7969gAcn5WXxJ921S7XxgeViY6iJJ9QWLWGaTd2NgFXhDc3BQL85gfEpGCdX QuPrr7/OfDDaryJW/FF1MD78Y4iN6aziV+0w5xySBVx4AOChhx569NFHd+/e DUhwrmHPnj1wW4QN5wDlgJvAC75LfTKEDR2Qyf3osFEZv6XFFDaqWMGEv7TR 1My0rbUVCuOKnveBi2Yibrt8r4+NjGnomOVio0rLl4AEWJb9+/eDhbLHnnrq qRdeeIEBQO/MIb1RdlOGGouADd03Qw6fc8imlD2GqS9nYmPIvvTNjejHyMrR TFKiNeMYfCMqGT4q55UYLn7fsNF0PdY52FBucB1MY3q42iYzG+Pe8F6hN/AX 2KAbq3GRaYm+TF29LxcbmbYRPPpc1MOb46hCNodvOP+U3it62dHCBq0GJ1nY kzCpMLL4hlpa2KgsB/vHGRvsvemR1b2Z2fCaOPf555+X3sBg2bdvH4ypVmS4 HIdsx7HCRjvgwwoJRUywjqJ0xkxsTGZVReinesqm1Mm9ZUSd2V+PP/742rVr MVLqNDPL+9ahaYUNnHWscnuGsDHUMlRkXw4dX5vSbudyVDLtJ5544pFHHtm2 bduDDz6IV1bmeW2LlAUAV/vS/EMY8OfJLMXMVvfs1JCamt+mVvPTtVAZs4Rl CoHWEddqUnoGvsQwOXDgADoB7vytt95amwNIeLDHmCRJm/thwQabd6af3m94 BYzBO+64g6FRxjfaWBE2RDBclPP1UtsrfTDzOkeNjWKg+TVLo511Ygu0BcJ8 FfMsUBcwprt27br//vsxTKg0phFHKm357YcUGy4snTXH1uAF77rrLtjW66+/ HqSU7y7nzi17bfHwvtSOEBvz23xsZBIvbblu1kbdOodK22DQm5ErzddzKp+L guHRP5oa2DjDX9M0WT9NgXSZKmAJfAwXmaRqxsekvdfYGMLAUONsAmwriCiU BvxWJmb7yhRfqzLpLnmTjIaw0XQjnxm0jhwbQ8dntEFNs/CeRApsQJovv/wy YIBRz7GP/+IvDoApAdECJOiDMHG6tgppGhp1mmvgpMxPMDb4vvtSg+rYvXs3 x4KmITTomFs1sppOGZeb2apZ3m6m898NNrLL6pEcD56woZxzPrbyMaAuOE2A z+SZesg2llo3MVdbxzov5knOkd2PFTbcjrRmX+boDbws1/Tt2LHjoYceAgCm yWUrLaRA/456eBQFe0uLLs7BhstXpywXG32F079L2Q1naUJNa9zKSDwWWR2l QjRQIPBYaUmBENZVYCcXKUCqmgl6jCLlcrBDPkTYqGfVtRjCBlkZegOq9d57 74WdRUf1ZSGZepZdbb7hEDZ0nWOCjfnstLAwuDe3g9QnJKJ1co2JHGoS9AMn WNGW0gYKhL0vWhE/51w/tNCHBRvVQF2LOTYFv0KjUm888MADXIZQdf1EXXMS 2yI0QXGruXGMohvS1Mg9VtiQNZl016dkFDoDD7VBY/k8hAc6geE+jJQqMU/m G0+jnowCZTQrpBzLlemxalOLhEvcc/iD+i3DUj1gaxj7gkYFJODJ7ty5s4zl wDNlMSTTcqD1uWs1lz+UlmjqkCisMg+lxgVKxAPfSOTQCYa4E6+sh6kt8RUn Pvfcc8ADtYeHRKhVmjTvBtZRRNIID8Ov6LcPCBrLxkbfgvA6Q9iYpFLewAaG zDXXXAM3Ft07Z5wuFxsODL/gHL0hU+VGQXpApk3rDpjB2CZuwOtrhePEqvro JyWlEBUsW6RcHT02j6ePhg8q5uwDB3cBoj4gaCwbGy56R8sQNqq0fhwOLKzJ hRdeeMUVV8C/a1Oc55hgo/9rPzblrU1mcRzLkSjlvnMknonPJIR1JL+hyTfJ Yv5l+Fz0R+CrssYssDHullcVpIuYnW9D/fKnOoLnOPd9B8X/35aLjYyfSKBD 2GiSXoXreueddwIbmzZtAjb6wj1qbNQ977Wwuf5+a2Jx4rdS0zB36+DUAgaR SJhEenMb6RZZ4I5tKZXXwDtCT0Jbcpke6yI6LSm6UzPUJ01M90xSDbE6RTk4 lD6Q9l5jg30L9wROCmzKww8/LE/kA8EGlQZzOJmlyVMoaPmkVAskFaxJVUYt ZT0wiQfXd0vWLJXw1FNPMal+HMU0ats4I4vsEWn0xdouNnDln2CbArKBDoRN 2bNnz1133YVBxOzZY4WN/q/F3CaSSWBIXpKRB7rxX3hY+/btg5Sb4Kg8sk3a g7mgWqfJCDCDwPREVPS+6iUel2ZQ9Ay8i+I5+IAe+4Cg8Z5zUdex9913H7px KZWJO1bYGOKiQ9jQ+hEtxNZ6GcGG/gipyP79+x955BHoAZoVipKym0Q2F/UJ OcaDDz4IbIBmMGalCdamm6tcBRmmRhLN4E/jKF5E8/cBQeM992HZ+ejtAwcO wIflXod9UR5zH3YIG74im5eFdJi4ywVlXLHLAlycHePUGL5RIhZvqnX0/Ixf ccwTTzyBv3R1nUhomVIVK7AILZbvbsOU+EtVkT14FDL1YFc2io+81QN1LeYc P9RmYmOcll2gr9jJGIZw5DlYxOhE55pUZ2A8a+eUUdTDKSO6VfT22uibD12W T4L7QgOopmUdCf/kpcAGV/oTLdwdiX/PPffc9evXc5oM/y1jfpZjnNNAeHIu 6mSVFeoTynoUWyzRWtVpTVaVlqJIfQlIdazhEkVZrkx/fLAxR8lQnbZpIxXm lsN2Z/ZXPgI7RPMpZTcZY2wZev1YU785kagj6w/yYl4NUyMmqSYbJ0k5Z0p1 gc8sEsLoBCBx+umnr1u3jsYCv8pA8MFUzQx2E9fnBOuou1Esd//knmskITy3 sSK0xAmfStryqLHh37w/2HATkJmVdlY+GA8jBsDr0L1cAOhkbGx5Ph6OLi10 ICWgE+fbDqGosBQLypFJvNQewAPdTNgCYAAcEg/JYrCAMfc3eeyxx770pS8x +QTmhoaGt67C6+HFAS0WvhM1HVmdySJxVxYpejo1Fo2kSdKOVJMoba32XmNg qL1LbOghl7plJOtIdWsjzIVv0C27d+/G0JM2KLp5ERo+414iR9FlKdIqQzyk Np9RFy9ilwpW9uPGi1wZsWvXLsCDK6rwE0S8OzX8F+7V5ZdfDlSzKjt+gkyZ hcLYKRSFsKGS/tBRrG7HeXYcgJ8AMxDyBx54APyWOYG8nZSGqIg/9pAsjpXt GGpHbVMypTEHG1oRj07A0EMnZzrTu2IozyezF4flqLUFxl0RtQnelAX+QsoQ /d133w2lAR3iPASjG7/ee++911133ebNmzWW8RYvpUZywqXfRAgwhm+Y1cO1 afgv0+lxtadSYy0aHAC9AUCiQ7hqvun6gN4DQ7JQZiD/2/SS8dSObh52udjI mrA6ZFPaFGGeRB4gOgTjBUNP2sCpYxaWnFhCqcjJxBYLFMOxcR0z6e63OIm8 C55ObNxzzz2UIAkGPVkoAc4db9u2DX9FhhlCB3iYs8cMQJJtaIMXUmPZLhY3 Y34gbsR9UiY2y4/rQDUxuqWlsiTPitMeNTZ85L4/2FAK69DzZA1HcjByNhMd deedd0K1up53nPQNQRVBSF8aIK4yhA0nJ2MrvqTgJ2GDgfzggw9ivJOdArT4 hmwEMIaVuT014FnbirEEKElCEcE0/MUVgA38Sn3CmBiuw8RynlWm6TOCikLH LZi0QHYqlavXp677UGBDuwtNo/ydFIU/Dz/XKRlyISorMkaKroYuzTSDs4iy G1sWNnzRsRTCEDYyD8Xzskj8+AFIAFAhTWIDHyBHihUfoPC/+tWvbt++HYqF wsXrwIIsRr1c5QHiL4b/Qw89RB+HDATPj8/gtGRZ9F+KqGs9SUvb6FNPwj1v okycG1CNsml3n80hGS0XG0PjOrvCYQ8ean3flo2dAFk0sfEQpHDDDTego9D5 RE4RkUYNebcdhQWWC8vH8xn20oLnMj3jWY0LgngvCBfkE/wHMoXsmOjL0oX4 HvoEkIBY4aGANMpAwAP9empEJhUIpAz9ACzRuHDVHj5AIz2YGn1k/J2E/86H BNL279/PWPE0bQPHAdgGeSu6NdJ/wrBRpMCv7AKxASmg35qUUVlG3eYiVpYd OTaytQCFle9z9qKpNM2VyJWABBnW4C4VNAGQMmzfzTffDBUHOgqQQIicMWcm eZMq6NIfx/cwDQ8//DD+0h6xyi6uBqThgvSJ+LeIkB2fAZcFFWmjBlqRVjge sr2YxTck4p8YbDRRlLWOmnvoNLC7+++/H91eRg3Axahw7nxD4p5YZsWRY8NP 0TQKM6kgEQ7thahrykQL8kb89Oijj95xxx3ABp4TLAKW5aabboJ6gftJAOBg YBuH4b8AEoABEXNKhdjDRaCIoBO4QTANGW1ZGfVsue4VVyARamJbBO3+RhS5 cB0h04H2YcEGFSODxtQGEM3WrVtZkWMc5VuZYUX7Mr9l2HDO5rhyljuxPC5u OklFoa0ncR1RjjLVgYTcYU0ABiCERQBoayBHlkUFEqBn8IHhEVyK3g2Lt7MO M06ECqJfQxaqCpOqn4knYTyQty4iyWcpqmmVqfa1c04/4EONDTFJx8aWLVug sXfu3MnpS45lDurlYsMxkPnFjhaKg4vFJKCFKOg3TtsO0i1t0pwO94tHg3wh fagOIHnVqlVXXnklNAZ5AikEyQkaVMeNN95422238dWgYQCeSar6wqFBDwVN e2rgV9yCufdAF1+tiZyoOnKBtHek5JURj6x9WLBRRqpVHWvV0Z+bNm26PzWy OHaa0qt8vOu/87HRb0LF2DZ14rznOM1iNIkbEzBEBRFSpplZQIJLz6AxIDtW 2AYwmNOIIyECztNBpsAJ9AnAAFf3xtSAEEAFp2vLS16W12QOAOuu4ArAHr7E ZSexrXDmczGV1BXCTxI2ylirhQ/on2uvvRYjEeydemOSZsEmltBbdedbq97a w74D4gFVMdux5epQay3YXloyNFQm+AYmYJzmVfF4lCN0PogoHvi666676qqr YA2hInAARI/voSLuuusuaAl8hgGCtoGVAa7ANAghedC0GgyP6/mLNAcHk0RK XEYt64ywaVPRJlTKTwY2aECrqHJGbFxzzTUYLMAGKVlt81bLxUaWyKfVAfIu +3m/E6uw5AhhKGyc5s6AjW9Gg+hXrFgBOkorAEUBAEDpMYGH/ixlSo0k01BF RnqdFowDaZwsaJN/yteh/SKJraMMvsuljRiX71td25qgTPpNz+GdDwxHiGgA 9fZRwGAIG9l/FZMUKigsDCho3R07dmAw8lfoTIyaKu0v4/5F0ZvEJ63VGnNl iRcWBVV8o29QpJ2yTAASRSYSkGYwDYkRXaDi8ssvh89CXQcTA7UwiuaUeBI5 Pwxi4C8kDl1E75hF/hnq4QpHPgyuRg+3jp1iFPMXWoawMe1u7VR3d5w8QmxI QWXnDnHd/hUyDnyE2GDIdxwbnNHEcwIL2oPVexZTxVEcoAnN/hpkYWZsu5nI E3TpZMLKDNCCVUJubOsc+ddMAgQjgo2Atod+uOWWWwBmWAoMcNAPBsYzL8lJ Thk5GFqZogQPTsBxtoWUA88DP4VHEt7sbcfGtLvfvYxLHfUZlrpJZS6vI1Ea br/aI7NBfou+LVsWNjiUFqPGJkYK986ANedk92LagUhTUXT3lKZb2AyLqAV1 xUK3Ka6V6R95Mb7veZuMnWL1RZpjBauE0rj44ovXrl0L5nnppZfCQ4EFxHNy hmXXrl28e//ickKLNO0CdcGVKVXsa4/HY21VKBPciwQViogrWfgYbW8fEIkg w0YR66yX0npJaZJMxNIq81tmUKjB5rQ+QpaLjUmUsuFQgvjwPToNPb9u3TqM QQ6fJinYKuZJR701p2KPCmwWkQtEIDGvT/6pxrXEx97Wr/4lnpDeJVMBoSs2 bNgAeHz5y18+77zzMK7xwDgRCIH2AP3o+0SOjWkKfUPWZK3sByZ1FCm9hwEW hliBENBaxluE0kns18PObMNpFTYoa6LO2UJrtaNb45DzUaErNDZBVh5Vnb2j wIYQwqlMDMA1a9ZcdNFF8PXIzykddp1cCSefsibSJ6MoDk/PlLxRy5H69og9 r7iTZlHpWnJVJte5cxtfaI+bbroJxgWAIWGASwKbAuRk2HD7RT1JyorL8qZ0 kEU+mXzIO+JeuCCpiLrdsaGxmVGOJkUGSiuRl7kSmRVo5s5r+PDnXZi4OLNV A2252FB8Azcto3A3en7jxo0geLfffjtcAx6AHhunuTCSEFlz6opJLC9l7Egr UsdRDiXTGzxgobeoWRtbTyJFEOodloL5w5xBwynoHCbwQFfgG07JgT/jL0hI 1V3jkGFDrtAkAl9cm0bLsmhFzpnhA/+XqYZVTMVKjk0UE2iTt+LYYKsiG2Ea K/EnsVNVXyEMNXEGQgLt26kN+cjZNQ/r18zBBp0L4o3Cgiy2bt26bds29DMo n8YyA6ReBt99VdXAIXgkce/whViP1mcgvA4j2OOUc840ctZ/aCKdpkrzs2+8 8QZnRnAAnReggnoDQnTFm8XlPGTHA+j+lN14vtQCFAh8HyaP8bEV4nDhclw7 HcU3EB+5TRX18ElglosN4oFXXrLg/JDe8MPeDTYmsV9MGcV40fPoZ2Djzjvv RIfArFCjLqQ14zQZvnURu5Fzpi+nJtstQbivqnw/n3IVNjiBgu85WQb+ALnz CVUkmUV1SBe5oxxrokL5syZV3/g65RDGSttZjGpEfr32SsbV8Axc/kDCwwB7 bV6D/1ejm/t5CRJFlCUsbE5fQmyCjcz0L47E1ky7878ZSIiTTGSV1dUZ0htj 2wIP77UQy2NvvvlmLvNBh9B/5OoA2oWDsQkvKQGOZE/i4hhlGOx4GM5Pyaul MhHZII2hihBgaPoZo4Ayr1KOHxURLT76nFxxlPYjgIp7/fXXQRfvu+8+fMlY BLuuiOSBzOYWUSZUuOUrjGIXSDJnYoDJP7gRX4RrH2jrW4tH9bHBDRQoHTm/ vHvVq5/jaqQv7iFsDJ0yhA2FodQbBMAQNiorB12lZeaLadEomB7IBikZ+l/J 2ExyUJyqiWVHUPvapAafcYWxrfTJXJtxKqtFhCgkzmtyh2uYBigNPAPHL09X shYn69k/UBqQAvxWHExGSolX3fWtooUei3Pcig+PY0dR2k1O5lJVcvIO2MAx LtZMjTjxoC2gbm8jYlNabMSbs1OX9Rxz0z93aqkCGTb67LSOScOZ2GiScypz 3KZYB3oDBgUOLMQBbEBSTMeiDmEUmsKltmQcCT0GqTHACL3BAKPYhdaxirhS cAuRvKdRjIuDOTzwwAMw9EtpA1/yHNp63o7qnZOt+AbAgO3jph68aWE5q4qo kGyLdVDcWu/gtT7kYqMrtL8hdTJzS6YWeupjwy2LZmlFAByrmYhnqoI5PGEO QvrYkPHSrWUTZ2KjTQ4dn5bTHHh9CBe9DUjQ6WCQkDneNCtMwFM4kUkXOGvn zp0QK51N1jFgT2otAHP+OTD5V3FIfM/1SrgOPA4YNVgKUgJOtLGf+Wq4NVcN 0Em58cYbcTxPr9IsyTgq8NAxV2yWqmySUhGYRUYrSa+HL0WQ8JVBNoBzXQpf wsRAkbogXEAuFz7woWgSkJOfmYGITMTHChuaENRN29heaiY2plHerYgtuen7 M3mbCZZUJuoxKmEihMl1zLNCH3Jmn0oGIw7dyD4nMJ5PjUsAdDVqIVJcwoOk F0dygTyXAIjxMsOH3KZOUReoOLhUgApVyii2oWcPEL1UHfS2aEe4fo1rJBmB 4bsQ9to9mXOOTETnOwKxeDWPb2TYkHTkZpJ+UEasYZsx5DnwmNOWa1NmYmO+ 3lAQUrYYHQXCANGg2yGdxbSVDPP2KUcm5nFtIP9yQSJHIvX2gdTowLLnWUYJ wxx9S/uieIjwpr2tcbW7774bloLVC2+55RZwY7BTbtaARvMB5Xb11Vffeuut dMPFW8aR/ExUcNTjAfC0zDPnPiC8tWrKeTRGsN+TthnS4n18qGIXD9nrmWIi 02hT6VphA4CZ9rzL+dpjqPUVxXwuutSd63Fsz8RGE9nCdVoHLYeOcoT2gK7m Olmm3XLdOpeHaN4Tv0Jq27dvh6JgN+IASA0yLaMQH8065IIT8RNLKpHpsUEE Dz30EEwSDMR11123ZcsWCP3iiy8+/fTTTz755NNOO+3UU0+99tpreSKfB0/I SVjcSLE7BtAmsUfSOCrN4jUhWdwIZ9HdwItoendiayKoRevYxGEhqorR7cKR 8IxEYPqKXSKTuibxoIy4z5fGb1919FXQ/OaomO/DTs0nGuK0jo06Juib4I00 LtQS0BsYuVx5Sj2AviU94Koi2B3oWEgKn2+44QYInTuwoN+AE5xOmopTOFqZ XIFTaEpwJFU3tASQBoBBAwAb1BKbN28+//zzAYl/+Id/OPvss0855RR8wykV HIy/+LxmzZpLL70U90L/c/jj9UlQhQ1KBx+4nJbsCDdVsiinA6pIjzwYFQgV tnrrrbdokqZpUQYX2XmsYKZM6+4sbT9slUWofPbH1ch0oOlekr6USQZU3ovj ZRrzbn7x1krFOlxLyxWfROomfQGu6QCFgHoHz4QOgXQgi40bN0J2119/PSgr vsQAP+OMMyBWdj7Fh+8xqCEvridlXRQgCsoBYx/ShOMJ4AFRzAeATti6dSsz uBiVvemmm/D5vPPO+/SnP3388cefeeaZq1ev3rRpE80TrgbsrVu3Ds/AzXyr SOKiR6OARp28bM6SMI5Hdi1nllKobOWmInKlrcr0IPDI8ueHsNF0vdoly7iQ I+OYcfnqkRRqqHtucl+9+NjPDIfYDv2m2uro+rl+3wyxk8iz8kA3d9nGeIda gDg2bNgACQIJED0kiJH7mc985oILLsBnqBEoEGaAwx4xeobG/Xa58xfz9CD9 q666CpLFX+ANFgQwANgY24TcaZ7QcCmA5Nxzz12xYgUQ+JWvfAVXppnD1YBS nMJ1BJPY/qCwudcmivvRdqgelIdkNac/6WXIHytsqGXwUCRkqZsB4vp/ZBlK GTnpmwMXrgcx2sR/yHyEDV52JsZEpdSTPp1Ktkk/lNSdnyEsKBMuVIcewLAF MMgQ1q5de8kll6xfvx7ShOAgCAgaoIKs8RffQFEAQlemBmAAZtAbUEoAFQwK MMNZkkmsoCRQcXcwUqARwAC7gOpgGg/wgxvhYRjDXIxKxa2tV60jtlyHX5/F PRT98OmhSTdluo8NP2Y+T8jIgGJZPpzdKGTI4fbWmRoprcKJ7qtjsrGvR8pw O6RbBMvWFtcrVMiANncHeCI1SGHv3r0MV0IzYNjSEShSJja+gejxEzghRAxZ gzBgdHPfN1wEJgOW6MILLwR/uD41ph3ieJxIVQ+YMeJNQdBw0IuBOQCucDDg BzgBVOSrUDi4NU4vLI+ISlLYKK0Y+9SCP5qAK60OwKSblua6NMPGxHKT5mOj j5A+GRAHcAohZfLtaG6DpmludCY2mm7T1TJN4ryljw0NqD42NAcHyUJRYLxD FuAVEDokC7FClIwbQL1AvXMWm8EHcDwcDzzApkClABVgkqtWrYL5gErB8Mel 8JdipegV/fBAGVnBwdi3hRNe3B8KpgT6B6aNBkuzvWMr0+Stspyr2pxHDRnn XW41hrDh6BrChndy2yUeM7lH35rwshnABJshm+L8wW89teCGK5Psjv7TTJtC OgplDo0NcdBkEBUYrdDqsAKUHQwNg1QsF8+ySDgMSMApJBVM0IJDCnLC9Ym4 IHNmGOZiWIPz+0zOBGC0HIAgZBgNNgj2CJYLwMN1FqJ2qKZ4ym4RISkEwUNv nRnlZXFRx9IcbLh+nklBHR6Zyylhld3mNLvPEzKcODy0N6iwQaho/aa6jgAb 4qIECQTEuW8gASaD8+YwGQAJ5MIN76DqWU9JqZ74APUCtwK+59/+7d/iL1QH IAHXlVnikD5EjHPpNUDPMHZ9MMoLL8SqBPkdbaTvAoTcG50sqIiSwoxtZvCo rDZdFYsLvPckYlGLcbcNYcOxNIQNOSDChgOj7c3T9a2Mk9Vpz9N0uWc+zkwu uhRbwPBcGRTGb+tYEC01O+TDck6NibX0CPamHerrVPoJigIWH1YD1n/79u0Q N4RL2OC/kPtFF10E5+VTn/rU5z//ebgY8E24ygPPwCkVeMQ4nsFJLX1diDUI iiyVkVNHt7RNZBv8h3mefB32CXP5OGnL78tZsaxJN3VH3ehk40i46JFgIzMB EnRmYqax5roZaJlaqA/XylmB1r6ZcOIBxHITkDoqZLpjJZrE2JeyJtAwVEEP yBaY6o8xC6UBr+Gyyy77y7/8y+OOO45Wg34EPv/d3/3dZz/72dWrVwM/0Bic 6BylWitcAs+NFDXLlpkGKg03nZnOFxVsolT1yHIAhHO1wjKTM7aftQwkmZXR pdzHOUJsCB7SJDIlHM6ZUXAC0Az4p0MtQwuv4NYq+xWPAWwweNuEw6vO54cq BRI1oUCEwJWANtgUDdrgL/7iLz7+8Y9/4hOf+J3f+Z2f/dmf/chHPvK7v/u7 n/70p7/whS+cddZZ0BWfSQ3/BXhAMwgJFleBKQHA6NpAh3DecxxL2ER1FHic xFrLkWWLCQBNlBKVpI4tNmb+V5EBtsNiI4NHYzFJX+40Xz9kTz6n9VkHm6sC N09tmvF5IzUPqdXmCNdRZJXFG0EGmLtLeslgOHTCRz/6UeLhp37qp/D3Yx/7 2K/+6q/+wi/8wu///u//1V/91V//9V//4z/+48knn/xHf/RHv/Irv/Knf/qn +ADeCM8FzETZ4Pfeey8QgssqsYdBNn5QhIqfqXaUjuiJ7tInHnZ4N9jITnRI ZDg5LDaGtIeOl+rgaO2z0L4SOBJ4OMb8LD3G1DJJJmkPU2IDqoOPV3br+MlU jVKWwtdSU+YGfQTICK4ogfEzP/Mz+PvzP//z+O/P/dzPASG/93u/B30CrXLK Kad88Ytf/OQnPwnw4Ms//MM/hKsC7rpr1y44NaCRYLbwi6E3mC+hXA76Jp6U zrtTtygV2ZVD1fU9hYR3gw0Hyai7am9iefVq87HRh0djFNQH8pDeWBbZqBOt mvbC73U3h7C2fLwy6pgJpWV3bRRvXcWeR0zj4aD2HLnzzz//l37pl6guPpIa sfGLv/iLAMZpp512+umnn3322V/60pdOOukkWJlrUoPbC5oKisL5bk7JqXa0 UtZHtoVrFtbOVLraEQ7/o8MGR4obqXFMJRwJNobsy7S34t7VRb9lmDksQvow 6zMWH1CKC83UXU24Tk2k2iptWLiicTz11FMBg1/+5V8GKvABCAEStm7dCq+W c6N0SDnfwSoZuBR3rAbfwAHjVB9YRflGsRW4m3KRirLrhxYWuChnFUMuuysO jg4bfrXMlIwiF/pIbMoQ/ViyJSStTZ1LgftPU8v7cuHOaUOmrenG/bIeKyOs 0Vc4GTa0foTZvFxNBslecsklBAYanJETTjiBq4fKmOXnSoFxyqtkbXnOwDIX ndqAE/TUzMolYz9X5nSMrVBYRjPKbtB7JkKODhv8XocV5qcsWjtybDTdKASN +9Qi1e0s17K1sHkGiZnv6y17kgyQdc+H9XiLDiiCy9UWfilitxGGkiQO8hB4 sn/+53/+27/923/zN38Dj/XMM8/csmULV3CUyX5pkQJtEAsuASQ4gKUPWAiU LLeMEP04lhzWwYd99dMkpXeSdSzG7o2ZQPtCPybYKK2GjPzrbA636VI+4aTq TnX1aUN2PF1Ifu/6JLMFPtKzK7ANOaq6tb9aEVUx3YGqU4CoiKU0+nKcVhpS ytTqzOHEMRDN3r174YOcccYZIKVwUcEr8OHqq6++4YYbcBaDyYupvN4khdEW Y2U6S4Uzu4NzuFyK4pKqBtZi9/WGRK8XdCpSmiUSUdH1i1k5G0P6uTD+mdFg BT36HIDfLBcbCoJNuoG7utv88WaqrOViQ1CUBWmMjgowTVqSwGwoDu0irYQl Nhi8gq4AKkBKzzrrrJUrV8IHWb9+PfgGRK8JCF8vADCw/gkXpxMbjI4u2Lpa 53t9bGj99bvEhnrDpZ9908fGuLdPnDAzin2XGmv8RkLJTP8QlhrbF8yNY3aM btG/49FhYxJL2/g9L8Leq2KmiQcUsQUesTFJ65W4irNMvP3ee++9/fbbmbB3 zjnngIsCLfi8evVqaI/t27eDhXJ2g4tWfJ2s3NJvRJPl8iYFLkHIUcpCW0eB DbcaWf/3h6c/la7j1x+lHGYXugTkwHC/cqbgXKbeZqoF8YeZbQgb2asJfsIG /9tE8ZBxrD6rggKVad5KhGGcwqSvxp7Lb7zxxjRlDuzfv/+rX/0qlAa0x9// /d+feOKJn/jEJ37rt37r13/9148//njtaz+JaOdCt+oCVxxoGwIOSRoO3k61 GjhUM2zId1guNubwt5lKWw8wsZncLHx0WGy499qHh5+ShS4zjeTAOGps+NsJ 5zyxsv0p9Mr6sokt2iVTClRrD6uoGgfRc2X0nXfe+bnPfe43f/M3PxLt4x// OCgrwCNcKZ7pondsCI0e7/LlZl7TQ8AYWR7FMcFGNqD8apmgNT1ad2NTDg8X aDb/PnR8G5Xl2oFlLzO1UHa1IWwM2c06wmVVpJcTG+oWxwakQOOiPZdJG+Rf yH0DtcY3cGyJip9L7dd+7ddASHbt2qWKtU7sqSK4St1LxmkmRdjweh0avEIC r7ZcbFQ9ql8O+zjjWPcqWdS25ksFUlz5Z8Y9G+mZ9sj0DMevYqcS3BAG/BtX ekeNjTrSxuqoDKnPZey+BwG1aQUoGSMeFb3E1RxcMcTYOx0ZSBDO7Ec/+tGP fexjDKej/cmf/Mljjz3GdRwZQ+CNtPjRAaPmM26iHM7Q5DscBTaqblZYHxVy QBZTMavMCuiOTVra0M/nzMa7W4qZqkPYoIx8eXVtWyC1PR9HIMmU3nKxUaYp GBlB4aSxsEYRafzEBj6whhKUA75nSXAKCycCHoupfg7+nnbaaZxh+emf/mmA BH//7M/+DIzUCcOoO4fOWTYRhpHVjZzpp3i3CxsLsVj7yLFRm9/q/qwu4mEu eUZlrxAB05CYzFn3/Mq+FfC2ZOvLjuT4mRiohms0DWHASXVhSSyVZcQ5wvsQ KmJuzrNlihSP4uJoans0qAVcDc7pKaecAgoqvgGzsmrVKq5X1cOwwzX773rb x2kWe5zMqhfhYKhjzmjRaojJ4vT7oQ8h4c010iiWrkzT0mZepI2sBmcgUsVH jg0f1zp+zilD2KiX2Vz7+ellRMsbSyqrIhZUWBRadpZBMOJBPxWx1xX+csg8 99xzcFX+4A/+4Dd+4zc++clP/vEf//HnP//5++67bxybb7KNoigcE8glOGFj MUox+JRrFoH0Ea0o5YLVIdTkflYzoe+6FhG80gUXraCQsCG5TLuTYhm6jhob rvPfa2yo4EPbXY1bWDCwtKmrsU1AOzyaCHRo9R/7RzMI6L2ltDUVbA246HHH HfepT33qzDPP/PKXvwwHVuU4MkopEWd+hwZ+trBo0QqFOV+Vs5OBR2DzwlOu oJxXjCyQ4txmHJtiU0U0NuMgOYqulBEBOHJsuMQzeMxvGTaG2tDpGZ1Wk2rN rPDEJjerrvtWRgGTg7HzZpNm0zg5y4xN6pYrr7wSjskJJ5xwXmovvPACj1Hd yFetrChvSvdEI9pdZn+kiS1i6hudxcijcCXPDpQ9UleMIwcge3H2Z6Yl2sQK MMq8z2e6NkehN4YQ8l5jwxm43NI2Kg+7Lu13lNtxugBllEZZjGqQVfJnX021 34vYCm3jxo0wKyeeeOI5qbE+WGWJ7mVUT1LtAs2aVbHF8MR29KuMNIqXZpqB zTlGYY7M1PK0pzG/rPctrOiWZ8xqtwsFMZbS8vzFyNkQSFxMy8VG9mvTIwBZ G8LGcm1Khgq54XOw4c3tfhFFOV6N2n1QArjUxEoLkl5u2bLln/7pn0466SQY lBUrVsC7oYCkx6pYrKqcLmeJmTYbW+RTz+O6wo2IWMeom6Cl5MwlW7NT9PLc 6l4soo2ioLwUrlBGpf0qQgeZTj4KbPjt3jdstL3wCIeA87GJJdW7Ecns/sQ2 iJchmKY0fnYXCQmOue22284++2yYFWDjK1/5yv333/9q7E3jusgHbF9ZERX9 QIfTTseGo0ig0rhw5elNUMzuKxs0sU2gOEAyBtKYk6huXxY2aguxtuYdLBcb Q7ZjyNZkI0UI72ODr+zRmDoCO9TVk6j9ztyMOpVUImzKiKu/mgo2witZvXr1 hRdeCLJx7rnnbt68mZVa2268yE18MeDDOj+c6aqMZ83bLtrcHG/hPsuipQm5 hnQnRdyYwFDYluavsK0xCCpKmV3Xh1/dXfziYFhKdTCKbp6Aur2yUpOuV4da dmv3KcTE2pRGzuUn/bIwrroLWynP4gmUL88SZ6tSqIR9KyLapPX+zuoZKX3p pZfWrVsHbwXAOOOMMy699FJWM8bplcVdfVyPYiqH/VOk+Akvu9iNhY4j+cdl OkQ/nIcIXeNuiENSKyzY1VjdUd53lBLsnQCPbc2Xi9uvOVNwlQVDSGBmHqnB MulG+F1pDGmq7CcZEZEKLl6b6T6X3QiSTLnXdXStUiUf5NXYJWch1hKObLNO WQEcduutt15xxRUwKFAdsCzr169ncR6dzls0KZ8Zj+oa3p8zsw4SX2b7pF6G sOGWQp6mK17vYb24n8g39XHtzn5jse4h3V53uUFju2nMlFEVidzsf16/6lmu TEVk3dhETlFra6OG0pXbmMfJ7iIdQgB4jIuiGadZVIaqlNMlc7zQ3VDp8ccf Bx5gVqA0AA/Qj02bNj3xxBMuHcekOp8+sl/KVZybj4yczMTGZKAVFkjPepJN x2TujBhCZQYlsylV12qo9SXicKq6oXsqf1k9wa/pzampf9zIFl1/3DGj1odH a+lefQROUo6Wdr2URpWV1wKEcRTcGFsN6kmsTDxw4MCGDRugMUA8Vq1aBeOC vzfddBPpymKatOKMNsXaRvKDaIaPbul8vXJmTdQhM1HhZCYjrn6uy7Sw4m9V MMOZ8XAHlcZd3eWffAVP86i6saOM8R6MbeN45CTSKZ0ANz0u6u+ljtK9Jr25 pGzNtSNEfe5DUsZ9ZKvXcdjBKN9K8JDacYLJ30vPDwDAW7nyyiuBkJUrV0Jv ACdgIFdfffV111139913P/vss9Q8tQX2/Wqcl2d9WhW5pbeb6ZxFW56QYcM1 rSNEsMmsjPhhm+ZKGFWeRsVFbmTgKkLNzYSjpbZYTdbbetSZilHUUdZce9T2 PTW2zGA5ODWKec0mFkRnKeWODSFKj8q7C66kiHWqjzSJeMhiqqTHBe86d9FW GPFIqI5HHnkExAPY+GJq4KUnnnjiKaecAivD5Uu7du0CTd29e/ejqeF40BLu 3Lpz584777wTp+/YseOuu+6655574AtzSTW3A874gH/jmpmtb82lkRpzGcTT vMQ0O5DfvG6Nh3HouU0fdeeLhQQ3GUJjbfuhZFleDuCRzexk6z0Fkky+Doy6 6+rqfT1DQIBvzJf0wTXqTkXpV1fdhBBLLy7aEuZFm6KqY5uMZ555BvJdu3Yt uAewcfLJJ59wwgknnXQSrMyl0WB3oGHWp7YhNXzgzr84EZ+hba699totW7bc eOONwAkrdbBU7Cjm8Rejutd4Vgzccx7UD5KFyh28Zs1zb2QLhBm2rKwfL8Xy mNS0bnf0VFUk7eAKwJjwmbHEKhb2FpH8X0V91KrnCC9FDag+W5D+ybhK2w27 Cf+ux/zE0laIVJHJMLJJLqn0cST48RvpGVk98QqgCNK85pprzjnnnLPOOgt6 AwjBhxWpXXTRRZdffvnq1LgfH8Bw1VVXAQ84BZ83btx4TTRWf6LC4UpJ4YEU OjO4ZW9iJeMGWWk+SSeradNEnF9eiTqTpwhR+OYHqX0/te9973vf/e5333rr rTfffJPL0utwvoqY5ac7WUXRDyIZl3K6UtkCcGG1T0frKLAjN6q21F8PW+HX Q1FTvTXfltjQK1P0vI67J6NYBUzMEzDs3kWrCi61NjG3t0gxUi5YowKB5wIG AolD3ADDxRdfDE1CbICHUEvgL5DA0g04EgoEDHbdunWEzfXXX799+3YYGgCD BujJJ59UceCxTaqOoz4brUmmPGuLZvR5o2RBAVFqRaR1NSmkw2xnfkPlD9Fz 1Tn++/bbb38/2tupfS81IATH0ACxh6tIwGu7ofImlghlngLPWupVRRASKgsQ TWxuUdd0kqmgaB8buq9fWWTP+YYo4igKWyly6IHrzOi7U8MicpAmzcRll122 MjWIfs2aNZQ+AUALAhUBkJDHrksNn2FQgA1W3SczYeFBF7TrDbcpTbd5t0uZ uL4VDRC3JFQYimF+yDhVrKKYGGZkV2eBONGG1sLCTqRH3az1TO7e+C7u72hc jKxwrk7UfzOvis1tSmvbAPVPKWPrk3GEPeVcy6CPYrPFLLMiI0t61CLVQqdT w3gpy3mxvCQ0wM0337xt27atW7fCvcVn2AuInlvGw3DwAzDwUGqgrDiL1UfR 7r33XmgPsA6ZPEmk6M7ZjaKWjtN4dogbHUdOn9ex61SuhKKkNcmSZMbdJpox smll9ysVLqhsbWPbi6LoUR0/daSoiZO4clBzdLlecoU5jannxiZ01EsyLm3E QARvHwujWFFCsiEuqiMnEUqtLLLHswT4IqLQ8lXlrjLyphwzESocDCcFBoVl S0lKucv8KJI9vA99WFUWP/Qu8h7LxpRbameJrHfE9GlVZPLARd9G1JaHKXIi cz+UV5CZALW+M0K0ZCWv+yfqZTUEsldzolVaZmARG6aIRTs1XbTMK01IHYzi S4XNRGikiLIWkZNM40JEVVHJjeNOVs9dKvabZIfrcKdgNCCEegNOgUR52IHD ASgl7z6aG9nKyuJVRu/blPdSRhp2E3Mu5B4ZN+h3iKKjPgGqh88MDeOBToFq W89eD7ve7pFVFhR1q8QmnPfrejU2M1tEIYWyW7a3jphJxjzHsSV3pi6kQNjn iu00actO7bDmpJEYc0Xno5v3knMEj5jmBvCguQE2mtiRfDowN9FYPmfZXVmQ eTRuqWdqY3XXuFcVROjyYVtbIS8fyH5TzzAsbTO7Oir5eEqSW0C3BT7bLluQ daaTB7w4TgEwwJChA+UCeweW3fmyDJO6/qtRO5oco7RF7pxkYYJHGb7txJaW 09PBf90G+TvWsRymsmw9Xo0Er4yiVdzn64477gA8wEyAECYOtcbqXQVJgYxj o0/dUUM70+RSL1VkoI1ixkc3mkSw3emf3qiwsKfr4dIin0XE5OWrCtiNLZGu U6SdYRBfGDWzSSJFZPO66qjDkZeCwgXhXtHFVs03j+eQf2q7Ridjrs2UmkVs 1JFYO0q1o7nyiCpilHLAPCC2GFvpTaxpdDCaOrFFiHLzqeLq5DLTjoNdwJSQ oxIb+IYdyKeVBFWesQwnixBdsjqNwoxjQ3ansmV9mg6QmSi6W0OWxmE8OOb7 /Aq9zjAZZ1iy1aweE/NOc9uaydpVa6bE6hSvo1MwtroxaO+8886PfvQjONfs DSofdhE1tpJYZBrKYDuF5Tj18x8IDxkRTaHyMNfhrsarbnMk8KZlhEd4AKOd ZVqUjb979uzhHiv4C5cWzgt+1ahZjFxiAU+v40RC+lYvKH9TzzzphlXV+Aoa VmJibheG4urCiTPGNrbokuHIeGxmGuook+IEqbQQR9bzVfJ5i1gqItjgRm+/ /fYPfvAD6A1ig7dmd0lbLnZXowuTbm2diI5sbZcLwhP2Jt15rrLLA/UK0r1O tKSviE/2Hn7dv38/IAGHF9i4/vrr8ZfbzvJdqogrZsQ4w4bb4sLStzIOoA+u PytzOjKAOcN5Ixqx4TMyWfpEGz7OktW3b23b+jYCd3V3FarjVqY50xvOf2rz mNgheLDvfOc7Mih6nb6ANHL1pZvmqlfnyudW1Dy07sPQtUT2OurPaUphHaWE K2o2PQAuAoO1d+9ehlXRWD79zjvvBP3gi4+6G+i4Za+ibnl26yoWfjYWXVTz Yctx7WOqiDVuVL/Zm9KmZNpDmzz2I97q7WmvqELTC/XX5n+V3XiFulQERp6R Zgf4/PgGwADZYDCfz9ZEREv2t47gCYUytiQZ9WppLHGxu3poZPkPE8ux0fdl N3rg7+INjz2xIBXhx/d94oknuOHXddddtzE1qA7upIPHoMKkFXPsVRaXbs3Z 1wPovw4kNamOJlYqVRF0dWpa2bIIkRAFkYgQqZE3U6M+kUpBcz3QWvyEIUr2 pB6j6dZMcP3Q9CIeehLNIHMo4b8wKICHJnoY8hJFLKy0VxVhmcXInViIreuo q8V5Fi0Fxf0OqaDMTpXd7LtRNzFJjaOysNXZk7Q7MB7j1ltvveSSS9atW7dp 0yZG1Ldv387JGnpMBKrUqZM02QWhpex5o8KDy0gqUTpkHFm1yi5zSPiMUmNr nRweb6WWwYM5IXrCxkrNc30xrzlNu4VS+XsUqOlFchwqbAQhL0h04RvO8vB5 0DiN4tpe3air9efOeLvG6oSLWoj7ZeYpI/P+nJmtdEqj4axnw4vAlGzZsmXl ypVXXHHFhg0b1qxZAwUCRopflcDAmXqxDsdGBobs7mW3VZbbIHbqMOC4GEeU dWRzkYuW8OwxLueZQ1zUbY3OdWiJ07oxcmczGwuOEGoJXlBBEnyA0vj+97/P 6T9iZhwrv9wEV+HIZ+xRWm4pUoMqm5grugtms6GXGZTMFLa9TQzJOQke0Y8X X3wRSAAqLr300lWrVq1duxaq48EHH+Tcq0JwC7HxluTu2ChiVr0Mn8ixIUuX sREdRp2gtLfsxV3PqB2y5syhjwrvFp/oX4qFdZAg3Mwf/vCHUDVNBFHLiE/2 Q6yuMdxet5G40sQ0Ii4IJ4Vkg2xqMWWS42VFS2Q4qBMaWyHOW3CCaeYDyBC4 BlZf+ZjNHttplZ6BFJThdHx+5ZVX7r///osuuojJ6uecc87ll19+9913M0he RGSPLgzxMOpu4ikw0Hr6f4UNNzfeykjSqJKnzzUpHicfR2E0DgTvB59n6XNC oUJjJLOG0jmKhHNoy9/p6xCNtabr/Mr3yVQTb/3OO+9QdYhsUEO6r6QeK2Om wMOw08in5cFEFzUPLut0QkOvjT19KDK+Zp0mKF0jOWwmabZlmlbJtWnKG/7p 6tWrzz///HPPPRem5IILLrjlllsOHDhQRNAp00iOW6mCstcylZsN/zrmC9zE uC+jv9NI26MeLi1vpOnNxTTm/85kBRkdamye1KHiIzTTde7tuomcdvNXXb7g G/RWFHHlY0t3tbacs7La15mr5byUZIMEyTWVNIAeSbRhKVLKq4FGjcFX5tzN jh07gAcojYsvvnjbtm2goA8//DBXWbY2t+7d28eGXm1I3/ox3s/ZRfSQmrhh 78l6FuamabiV3eilw7jtTpNpKLkgMqhkBMON0aHIZdWlagtouCV1sLnfJHjU KY6qKH3Tm6puugFzXr8KRjqOXI6J1fwvI5ZYWyWx0mbuqvB3ZkoQB7BL8Tys eX7VVVfBjqxYseKyyy674447brvttmeeeYbeXGFBqiFsZPDIsNFY8KrqBTek mqRS+FKHYsOsOsKVIysEMY7sBZfyzMeTrD37NKMibTe3xD3TpW4Ty/WIigZ+ Y2ttMkXk/rXsVBM5b+QhjVX3qrtusuuE2mbzNZHEHigsui7yU1uxwSZmgvoG hb9SjaNvgWTumAB2AWDAe4VB2ZnaSy+9VETB6plkprJ4XQaPjGa7KqisErX8 EbezTexRhWebRmXFymjqYqy9ogfHKe/KAixSuU7aqy7BcJBMI5tiZmu7Te9L sEniZJgzR4T4Sd8bYrxFTGBqMVWdmIV2M5xkcikj9OHTMa4hNQwzyqoRVEe2 D57nntSACvgm8Fuvueaah1PjQt3aoqCOMX5WJ2TwyHimzm27/pec1rLrC6ix w2V3JpGQMLKm3ODMqcmYj0RW9vyOdsCvkd5wP6g/fiW7OnKN+p5RHUH4JsW1 8MyMwICBuKlSwE3631XWNJKdlqzKpcQqdjTpLn6cqavLtNx+1F2+of7hMbjC jTfeuHXrVu4DyAj5/tQ0n5sRSG/Z6zt6XVdoNPWj0zw30/Zt1AxpupWcx5GT 7/MIuuY0lkHxXOf2LuXsaRvbjrMx2jnTEvl8TdPz3GUFsj7JukIKRPFYMUli oErT602X9qjf1EV11wVwEI6sGLWOydxbDcxMwfJLXAqk4tprr73iiisY74JB 4ZYKzAuiA14OzJOWkebRh0fflGTKViqXInP13oT/qziYSPUoVv8tWt0GXgSn c8KCZb1J3ftMsk1OmUIKMmE4vegGjgSPqksppVuor0oLyvFS1UB7zWos+Ovr gTUEmIlRd5m8etg7ypGwaHud9OfXvEsn3UL0HmxUlBXXB9nYuHEjvNd169YB JLAst956q5Qnk4ja5DzOwYY/OVsWnZOGz1SQa85pd29l/jqJxQ4UdBl+imZY eAV0L1emUF6MEU1i4k8I4WexxyaIn+CxFOlYU1sjQGLg/oiAyhObVO+UO9eQ AWY2l+/lfVXZ+pdMl7pKVwTJmVuTUlYIwjKmLye2aYKuUNuksMOAzbGRxaKp bcAruITtyiuvhOqAG/vII4/wjRTUdXk1XebcWvzHVQTnrca2GVmGXr0LYV92 nSC9izrNO3PRtmPA94AEZyugNwhpTojLvmfolYFYik0VpedFJokNHtb3VdkK cxIrW0pWWYCxsam6jDY0Njfd78nSyt1n5o9q9rUoyKwHqIwK6t1F5vvYYOtb FlkiIAHY2Lx5MwwKlMZFF1306KOPSmq8xTRF1Cc2Yaf+4UsJrmptZKllLzjp Ju+VkSSWmU7dyHussLlF15nkdfIUmiB7GXOQOA7Z2tupBa80bKuYn3WCMe0F wZpI2JOw6ij26y+uW7fdmImTLjVXy27X2JZsktdflo/n+tyxoS6ddHM8PHnM 7cI4qgMBCZtTg025+OKLwTdgZXQd3aIeaH1N6M7C2KaG2firOl9eW2u531l8 QBIpZy1B4l2oDRhcokJow7XXgJI4NI1yqFthyW1Ba17MoYGFBq5kqF4oiMVu hatMXi79zM668WXTY7MdilIDHk6ZRq6Iziq6S/gz2yEVoW708EgVszn48Nhj j8FJgU1Zu3YtXBVwD1Z00dvxChmdyHCeEYk+r1A/jGMWnpEB+fiuY/WQtQUb HRsCvHItyCJoXPCXE52MTjvnVAxKfetMdcmqHzhLydyEyuJsdTeUwevrUfX6 5UAetfNGGX1XO6VFehtLRsoINuHhwHC6TiQ4MISWmY0KH3fct28ffFj4rcQG fFhu+Sdto+Rkt1b9u0ghSJTCT2mRlrHV7HKdUPeKq2Q4ybDhNbEBBs5OLtmq N6JFpKIIj0acM9Pzbco3E2Dk1cooZA8msteGy1ykycFsfl/axgGfjayi6yws xB43yvjyLs0MX2vTQDpM8Y1FK9TmIst6NWOkRZrFwzWfffbZ22+/HfCATVmx YgVYx549e1wjuXwzJ6ivMfz5mwhYiUMy1CZTUlk5oKo7i9F08xMcG+w9FSHE Z9BOpsrIwjaRW7KUloRwTEllyYtsbeaUHodUhB7Sh2dmQCeWAMkeaGIaXTF5 xaMqmzvLuLGuOenWyeEca2mT1xos7H+Fa2orKiKmJ83vtLPvb+pdXLgLaX/A r33ta/fcc49KyV122WW7d+92jq03arqBOD6Yc0VHY2Xu28RWlzAXi6tcqwhr lxZxzQzxuOukq/d8WygtE8MjkZRO02wRp1o4vVVHBc5xhEokR+0CL4oo/XMo 1jIMYaO0GT2ZGNc/GtqleUx+qSrWUjWRbe4lNBlcas1TE8Uq0wQu09j48K4n x93VkRk2qsggctMmmzJOK19wwZdffnnXrl07duyADwtswFUBOy2t2C+Pr81x 1vD0MHJGR50wiNaSMZIENskl1/d1eCJjy2Erw4/T8wgbXMPrVRYnKbORpahG scEfpUaOcSilyPIs2lONaL1pHbPYbuLdHLhy87FWmE/hyWauH1zNlhYQyNQv RUPwEwPjWOPMA1T8TdxYlFULbXAuJIvrNCkWMbKlnaPYQzwzB1Ipo5Q5jF7C X5ZvWr9+/apVq1auXAkTsxBFj3nlNqV4zWyTbu1Z9ZJehAMBh2GE/uhHPzrU K75aBjfOjKC6S0a5jCwm1xuK1VA7qQzaJOWltLE0ifU6KGjVLtB4zPie3FXK zpftV7bvtmvjwubyZEoyj9VfzbEhXSRVKfCTaauVyQlatEL0aviVUqPSwACB RQA8WJtCvomriJnWhJ+JLrwFFAU4BtxYlnABL8U1Vbd2bKnL/aY30q317nzB hbSWn4p9pidY2dqx+dgobA04S6cyuXqasju4nJALQGjxReB9KgTPkG3eIcnO JI1Vdz53YoTf+aRsohsOAkMhL7eY2fGuWMaxbetTTz314osvsgYgSchLL730 zDPPkI0QPNqthr+ywxmkBTaeT+2g7fvsRn/mMJca5GZwoKMvvPDCLbfcsnr1 6ksvvRQOy+OPPw5PtopZ/jnwcFPrMiWf4aJsSo0qvU9O6ljTOh8bkiCxgU6D +VCJgDpyMgkP8pmpLaJ3r8Q5udusOsolLUZVJT6J923VDX1kgSy26UBrLAgg bNS9GM4oLWKFoCEFIIE1APEBUHnyySchF7w4vqTcuVE4j8EpjNsfjP2F+T3t rBcxrrq5TDJq6pPFVCwdx3Ab0Lvuugt6g54s6AfYKYXbxkLLiU2OSJR65bIb w+FkDcT0ve99jyUdKlubUFogqIn6ojOxMbHwqWMD3ULlNo6ypQQJNIMSqzRv MrUkkDpyyVwXye6PY4a3sqn2bw80j6E5Tnw+btqd7HPiqjd15VNYWUiMWcoa nzkzzv37tH8ri+ABSNwQVgSMeoaHERU4i5uJ87DFKMjgdkQuEtNQccokJltB OaA34K2cf/7527Zt27JlC4vLLaXi8K5+3XC0llbh64lw1ttvv/2v//qvP/zh D5dSmcdJmhwZ4mNzsMHPMpHjtLXlgQMH8KZeTIB3p5tAb4XJmWShngVB96ro FmN0vl3HfArl7mtbhIQlSz9+rVukxb9pLTCucEcWJ3GT5Hrjueee44Z9GPsA BlQHabaWLB3s7vnr66MFDw4frhzhdvP4y8tq0ZOMFOvKis4pSPLYY49dddVV a9asgd7YunUr6AceiZpBayodG/46TtfZCT/4wQ+4kkvrd8rYYF1CL2yHnfnY KCwITGxQ2TIhTX6fCtFQvmQddEhp17iyjD5vESuvFW6qehXAZIMmvZCR+yzZ RKrPqQkMbS8To5pVH6+JvdggPlgQqA7oigOpUU/OXM/l86d8WvaJVpkVESw9 aPv/8rOjgrqINcEWo0IpTsRj3HTTTcDGZZddtnHjRigQaBIyLq8jmmFjYqkO 8mohC5gSrlYoojZFHbnNjo3DctGxJSRMIpxLbGAI0FnIcl0am3DnN/gAYLzz zjtQYqwlyBlb6fYilr03kX1U2Upwp2oyx4tRFKVPGPpIEFR8HrYKn13AEGXl OwIbeE1aT05H8qesRpw0Kv1BPgyRT+EWMTklfSUrvBD7cbDCpLaTZrKB5tAB m507d1555ZWsIgjLsmnTJhxfxPKQmdhglzLworiWalmMbXG9/MSquxBDdvaw 2ODnPjYOddeVuOaf2uSpRPDP//zP8KZZ7oDrHHXZBduxjhqAMzKtpeephzUc Zpqb12IPYrlRmlgU3aptCYa6d5Q2lIdB2b17N94Rv6JXl3rr4Eor/8XmZMPN ymK3FoqeQRj2CwowZLwiPPv27YNZWbVqFVQH8wPBiqk3aqueoXGE6yjI2Viy 1sjqlmSttslWR4JsrlDhd+GXC7FRCHCOMQU1m1EXd5eIWHcPa5sXg7AADKgR KBOy5daqylDrat2HgOGZgWgOZsdPRoMVaHUPxftk0fbthSyo27mN+CS2qJPf R+Uw7i6id4RoIEvFHezuzeeuZdOdUeJPlCk+0NmhCcPj3XHHHaw1yrrW8Fa4 AzXpcZGSmhhNwhWgnF+zHbrLblz0vcMGngcOHUaWBmAfG2V37+/KIkXUzxjI UCD/8R//8Z//+Z//9m//hs80JYtpy2byeZJbfzaRjTrVhHnNNh+kAuFI0TR6 E6m5ZdDO2hIbCosqcOBTpSt4wlgHSZT0p/NM+dcjKy/ZpyKLvbThKvZxcAhx UIxSKhqzHVrbQQa6entqcFVuueWWm2++GU+LkYX3BRjIMBnFojvQ9KaB+uPi XWJj0ba85JcAKpQGqHIVFYyb3lSFqJ2HX6oI4zcx+QL68S//8i+Ax//8z/9A k5CHkA2K8rXdCXFpBk0WVN01F1lcZSbndFdlZNs6M6BHYqaJlYOxK9kklvU5 DGSdnSDJMxU7FSrUwwu9RtSxvDC6AtSdGVNEO7QEIAFSev311+/YsQM6BGhB B0L9/ig1lqtycthvxxAbZERF5MzzraFvYQHxt7K9I7MH6OtPHdZaBfIqMVXq wH9JDe+Iz6RM4mxqE8tBFVoyBSX+ma0pqLpNeizLIhCifMO7UezSBZ1Wd9vM a1YWK1js1V5rY2ZflImrgVhZCK/PRbtt5JXhJxakgilnBWNgA8bl0UcfxSlV Ny6hK2eiF2iPLTbkoRCTNHPspcJSbX3wekdlMbchu8/sIIwCkVWuYBV/K7r1 ewtLYPOYRmETFrqXzIqbXT4Dc5AoIDrah1I1OZ9PlBIrI61aJEGv5mGosWWD 4CL4W6UJXxW/wh1VnMTjeFSJTSQnKwhMPQl6zOjoueee+4UvfGHlypWAxyiq z41stVQG2tIm9Y4hNjSFx8viAcA0KCA6a/0nqaO0iD47NirLb29t+pvhUHYg BARgAB6Ayr//+7+TkOAzM5bJJZR7NuoWD1EkQU8+sQTLujuHUtse3E2EZxfS Fo3CxkJssLVke2076ty/Fn9QTExFFzMY+4Q+TYmYMNQy7l5EJQ1eDY8HXb15 8+YNGzacffbZZ555JuAB7iGi23SLhWYjtOqtdjzm2MCTgGzwdQjvepZfXEdy VN3znd0fL82R5CuUtoFvYZ4sIEG0QKX8c2rUKrTIWfiisg04HJlNJI0oLie/ CaOYhOe1WDup12m6tREWu/XfxCQba7XNv2d8Q9CSu0o1qB3qGbRn7JTRe0AC n2lf7rvvvrvvvnvFihXnnXfeZz7zGeiQPXv2cLT6xaexkXEmguqY8o0+Np59 9ll+30YJpqIbaK16PkVGmDVOy9hpd8n2Bs2MjsZ1HdVruVwRogQTA1TAUv41 NWgYOT74ngVFWeyFG3mwrBOlTEgADLgLNDYOxon/9V//hYsAePiv/CAlGtW2 ecrEpk3deKkHiijQwbmP2hK265gUoOcut53wYN9CgYDtQ+iw4PJk8cyMna5Z swZKgxt7QZOAe0xSUgTZch0bEDg8+vJ18jwHG2p+lpyUyiaU8abEhhvumdgY knXVTVgaR2GooeNdHbWRcQrBQWlA4gIABEqQyCnWl5Q185y1iq1KrJXGHReE Rvrv//7v//u///vf//1fwANwkt1RyJRgPmjbYQjkCgJLFmUEx7SFgUdl29iD TPEuxf2oTLSPxgup4QOuM0mzb4DK1Vdffeqpp37+85//7Gc/e1VqOIU4l7bs YyOTcibEo8AGhaLv8cysGHMk2CjN5OletS2X05E+6FzVOCxlgBRg1Ewc47Fk +7IX0+4668yrrWI7IXmaS6moFPBDUjHpzlLJWCza+gshVhzY/Ud+o0qD07RW Ilu+J9Wh/SJ5/NhWnPE6jNW3aQOCnTt3QmkAG8cffzx4KUwMSCmuLKnRpmSG bAgYbMvFxiiW8BcRBwM2nn/+eb9m1c06zmhPZlYI6UlsY1R1t2Coup5v//Eq i1H4K/jtPE/M51YyzaN19HSZpcEUAPGwVWHJ+Y720hbQSQMs2p5chU2sVJHD wDi2sqEYpxJE+ZBcG6g9znAML8VHxfBctWrV6aefDspxwgknnHLKKdAkfNo6 pebyfctZbeb3R4ENjYIi8oWo6zJs6ERdcCY21IqI/5eRxS1cZYxuCB71rCgW ZeQ5Zm03eYOxArIU8hCYEpgh/BU8Jmm+DKf7NJYIT2NRbt23tnk3Z0dsMhMc 9aQufBjOgqnwKYH6VjQtBFP/wKy0qYg9MHDDDTfAWznuuOOADbCOCy64gPoc 1yTCqwHamSkTyevosMEvx7GBIGcAM12UYUMkoQ8PqRqN0yaKcvSx0YeHIOSz bzqXUnstVlgrFb+JOhKKIwEhzGGQU1nbCuLCootu+Hgpd8Cb2D/IUwucWkwi AXscNXWnsQDEObZ4VJYfLk6Cc6l8RinZeO/evStXrvzc5z532mmnwbjAxHDi nlhajHWspRmRDBuZ9lsuNhwenCplVDnDRmVJXFXXn3VpNlHEQwNqHNvN+DEe eM9IrNuUzGEsg43Q26X/wqgI9xl8zeqOUrcQOa9bzWRfielrl3RrnxGedhdN vNYr5N7EuoZRFAQTpy0ipVw0QxTUw/JuqX1w4dY4AHYETOPMM8/84he/CLdl 69at5L1tSlPPXOkMGy6Ro8OGhg+xoVUbjo3GNkARNjyCkRkLOXSTmMhrbF5y CBsZMKa2rEnYaGLdOjNYaDK076RiF00si2CIEtpDTLK2jdfZz1VESKSXvDqu ot+tba/pAFiMiui0U1QLHPu8KV1XOimaeNVE/2K3NVHSc5I81i1btlx++eVn pwa9sWHDBni+uBrei3omw0YR1PFYYUMTiJwhpbfu2Ph/asYFQQ== "], {{0, 184}, {180, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", ImageResolution -> {72, 72}, Interleaving -> True, MetaInformation -> Association[ "Exif" -> Association[ "Software" -> "Created with the Wolfram Language : www.wolfram.com"]]], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{180., Automatic}, ImageSizeRaw->{180, 184}, PlotRange->{{0, 180}, {0, 184}}]], "Output", CellChangeTimes->{3.885017308486059*^9, 3.88502021191175*^9, 3.8850880538398952`*^9, 3.8850992208156476`*^9, 3.8851237855232058`*^9, 3.8851238712076836`*^9, 3.88512411055795*^9, 3.885124522038536*^9}, CellLabel->"Out[4]=",ExpressionUUID->"6e5f288d-d4d4-40f3-bd16-dca60a5cbca5"], Cell[BoxData[ RowBox[{"Processing", "[", RowBox[{ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzdvfnPndV1PZ62UpO2UtWqan+pVDVtpf6SqlWjDmqrdFDaEhHUMoTQEIZA GBzAGDyAjQHbGIfZZjKDGQ02xgwGwpABv++99xnva8KQhCSk8/BD+1981ves 715az3nuc+3XGAg5kl9d3/uMZ6+z99r77LPPx8+59KTzf/ojH/nI6o/hz0lf uuKvL7/8S+tP/iX853MrV6+4YOV5X/7MyjXnXXDe5X96zs/gy6/j34v49/99 btu2aZq6rqvU8AHfTKfT7373u9/5znfeeuutN95449vf/vahQ4eWlpbw/dIx atNj1Pi0uqb+yxfx7/nTKLXxeDyZTIqi4Cs30dpoun4dLTtgTmN/8gH038O+ RfYM6HD85X3xCq+99hq+4au9/vrrb775Jj7gLQ4ePIi/OAZ/y7KkHBcXF198 8cV9+/Y98sgjL730Et4UJ+JXHoO3xlnFETSchSvjgviME/EZzwAwfCc1PMO7 xMaxwsCcXuVT+X/R+DrsinFq7Dp+M0kNHyg1vJ2GhkNlDmaOEBvs3pnX9Cv7 f3n9DBuHUuP3aIQKDsAz40XwdgQ83o6iBDy++c1vvvLKK0888cTLL7/MN9Vb 85gjxAauibPwF7cDLKkxCAz8l0/yY4sNF5m+YXehi1599VX0Ev7iM7uII0id iVPwgmW0KpqPfb8F32sIGA4G/lciHmqumlpTg8IMIcEviRD8hGeGgCAdPCr0 AN5O+pCjgJd67LHHnnnmmW9961t8KRyDA3DNI8GGGxSqMuAB2HgjNdwaSkPY OIo2pw+PITZce1ANjqKh39AzxAa7TrDBXw4ijg7HRmZK+qpjznsJDDpSn/vN oci7OAD81YQNfgmhcPxyILDJYgoeMC7PPvvsCy+8gO8JCcLjSLChi9CUvB7t 26m9lhr12I8nNrzz+ZB4HVoNCpoqkV2HD+w6WRwewE6YCYbDQmUmNjTeNfwP iw0nezxLb6cvXQqyLBwRsp4aFHxfnAub8vTTT3/961/n8+NLqtDDNj4P7gIt 4eyi344OG8cQA0MtU7zoZHQLtQEPEM1g00/SMxnV9IvPNDRua7ImMLRdVTbH oPRVx9SIk+CxlBipUIEPvAL+i7HMSzmbYoM0oTMPHDgA1QEVytc5Qr3BG+Hi NCKinf12dAh5f7BBSslxRKIucUuNSElmgpv2DISuTKTNVB1zsMFHarte0mH5 hsPD1Y6ghc+QzpLxUh1G9b6UdKZEL15aJMcE2IBxgdsClcI+OWx7I1pGLbx/ 3g023gfMZNhAnywsLLDDSTsXUqMVbs2PcJzMJBXT5fuwS+YyOzbmPHxfe4iu zMRGdk3eC9wDv9Jk0KZQQ37jG9+YJo0Ky7J79+49e/bQuBwJNmhHMmzIljk9 5pfOS/lUzRH47/2mV3OozO9Dl5pjtQ1WIO0KLUrDgZ+AB6gRxgHItzUwnY0c TI18tbC4xxA2Mp2jp5oGF80ohG6aHa/r8/iy2zJNgpaJQA+AZ24TN8A3eCOO BapQfOD1AY8nn3wSCoRaRepUgMx8W6Ki749kzyBZ+FPpwZphrnWssDFf7VCI HFm4CLmWlCqJaJHIlb+7fJahgBilPIQNF002imtr/k1fO2WWZaZxcbvDruir d74+LQtenG+kgAaHAHx5AONrX/salAlxWFiox20Qm/yRTO59+3JsbcFyseFY dSnoFPY5DTE7ZzE16QH2hiOBYGBz79VH9xA29CRSRPrJpamfHC0u9OysphtT 1fUJDD7k1AgGj3H1vpQ4Kt8U2kMSZ4dAN77yyiugpnpl/kQgZWNnpjaYiY05 4jsKzAxhY6jNPEyGeClIO4/BOyrqxfiwooUCQ9GlpjPlNUdv9LExv9UDrQ+n mbfTAYxcQTTkHq35L+pPDhC+L4SuQYFz8Rnd8swzz6Bn+BOvqV8dG0O6eiYw PkBsDHUademShRHaRD8wZKA5YWHxl5DA63/rW99ya14b5TusTLP7LgsYc7Dh rU85amPLbLSMAsA0TMzUODltQZtICJBQRMC8SKFOaEt4K8899xx6huS8SoF3 apI52Jhj1t8fmzLUt/0IAFsdNLi1WTYqTxDyF198EfBA/0ijys6yibIO6fwh bPhw9p+yI3WR+TiRkyJUePTbX1kPo/d1Tt6ES8tYBD5jjPA6Ird4a3wJ1SF/ tokJtawJBlmky3tAz5Ax5Ol7wEWHsNG/gkyJGxc8Hl4KqICKgGEFNtAD+Eyf jpOJdQQBnGnMxMB0mG9kWHJk1t3IGL+Z9kyhX7YPkqGZYrxgk0LfHPKKdWRm 5bVoTXi1ZczSUu7PP/88egajhqaE32cxsZkhUD6AekO3y3wZvWl97HzYIWxk MXyd5QOTT45eBSQ4C4nXh94ANjiRLVVcR0DMiUfdZaG8xRA2+sFMXtz91qn5 s/3RlF0wA4keTCSZn+FXtmkChfFwTcjS0zwUEzHTRFDxDY7HkbQsbfLoSc5f SQ1mRYqlj40jsSbvRWuPUaPqqGNKaJq8e4ABnppQIdFX3abghoaVRrpHJ2a2 TLh6r769mN8yQ9M3Lllzl4ofGguN9uNRDIjRE5HaJE19+umnwTqgQDig8D1h 86HDxpA+ORR5Dm34Dgz4wJHHuGDIiwCQltB4FPHwee0PBBv672GxQV5NSLhi 73uabIcszcPjGOgQDJ9nU6On36ccH3ZskKLXkQNDS4fXx4vDrHAg0NNnDyis 0ade6vAjx4Z/c9TY6AOjjw09JNAuLVf3mPl0ls2SccSLE1pNYiy41DOpQXuI r34YsTHUlixm3ljKBLDByDn6BJ2Jz+xVD3wpkSMbjBmXmNnmY6bfDguSw6KC +g0gV8BTXLruxspaYy9VmkoA60BHsR9IvYrk2MKgQME++eSTslYfRmwMPWeb TIA4m6R24MABeCt8XybIgXuwY9nwJf7L+BgoWUZLyllzGe8dNuaYEqHCLSNz ll5NjS7YTAVCnAMbb775JhQsTlR+aZFS/r6RGohHkWYWfsKw0Vg82eGxb98+ qErInWENYoOjhtgQMAAhMBOfYnOaNyTN/lvMx8xhUeHAKCzZtYh5H80KCRvf TM2tTNvLrKaLRBemjpRRXrlJHBWnw63jPOOHFBtDrbH4hjocn/fs2YPhAFdF pkTTKzP1hoLGmQswHxvTYZ90udjIFEUfG9mcIMkD3o5USs8veExDdThgmjTV QhXBv+gBjBrAg4kNH0ZsDPWtd0VjSbx79+4FNl566SUOhzrCPqNuQ4dwdp59 W1qW4AeCDclF/5XSGEVqtLQE5UuQc+AXkcinZ5smekzM0M+lH1eliRX8pWpF X+EibQqzq73XGBjqw6br/bkSWFbfDtl3qIL777+figKfYTjwpawtLogeBl8F SydrRefQslSWucGu1lPpju3caRQXuk6pB2Lpznv9dcpumqtMSRFuFyMSZA78 LxUjTlxKgcomRURrc4WYfgzjQmxwLOBXnI5O6Of8HFvR99uxwsYcWcxsjz76 6K5du6AqQcJhWSB3/AUnp8PC5HP0BmDDkUifV/pECiTDhvjMe4QNHVZGxhoV gjvdVCCODR5ABcLv2at+3zrN0L3++uv4S1TINeNaJ3RR0W0fFmwsFzNbtmy5 /fbbH3vssTvuuAOQgHHZv3//U089BYIKXcGQILBBY62kQSaAcZahjkkogYGi pNI+CmxkWi6zKRk8iA1iWAmNVaQqyenmSKdBpD6hLyYKSmvS2jIosg4qIv6K CzKEnuWfHytsDHXUB4WN9evXX3PNNffdd99dd93FBRoAA5QDfFsAAzihk0ts QASSCIeqY0NgOGzQYw42+ifWXfcqg4dshwOD35N7TLqLLBaj8Y0oWWFjGsn2 VUoN4oyk9AZTwoAN4PDDiI3l8g2oi3Xr1j3wwANwZoENAMNpm6eGkvIJG+xh fu/0o4n80qPGhl9KB8g9yeChaIbuWAedzmaQeTp0nRwWJUBOI2LMvpXrCszw s/CG0+nLfxhtynKxASOyefPmhx9+GMDg6ow2Em51R5eg+J7Wu6GH0WOZaOS/ HDU21PhNYZM7bl8099HYKhsXnE+O0OnIAM9Whx1sIkmjTqS06nrNTIVCp30Y sTFfHP2GV4bquDs1EAyMCEaM+4LgfzNfgBpY+ZZNZH2Uh4uXDmGjtHxUVxru sWbwcFe6sfXsHvcoYhpI/jipCI8ZpXWOPEWqg1REF1SgFWYFjPS9wMYRgueo sbFczOBlYVC2bdu2du1auCoM74BvuBEnkaDQs5GlnOTSMn/eO2wU3VQNiruy ydNq1jyLfqJKBCoU+xUJaWJZNLuaF5+G2pzEIlBiA/3z46A35mBmGrGsOoI2 nms0UxD9BunDSYGrsmPHjq1bt9577734BqxDcUU36MJq9kZzZH1YG+dn8S00 Tsvu8ltprcrYZtWNhjksfbzrLL2ROBUDnvjMFfdVWj/epghYk3IbijQVy4AP fmXSCxQs0UUI/Xhiow2OcXTYQBcBG9u3bwc8brjhBjgs+Iapxb6mXoxO8Ohr pGOCjcaMgmuPxnI1+X0ZkYeZ2BBLUfNvqAccHvjMDuQxbZqZqhPloNGk/kTD 8eAb9FbeT2z0+3wIG22XK9ZRfme52MDbARu33HIL9MaNN94IT5Y8HNQUxoVD w/W5y90lO3T9+djwb/r8oTb71QSTccvlRqSPjZnfu6FRgJ2ei88T1RFRBzbq lL0gXwyfmZmvZLn3GhvL1Sf9Ydt2138dITZw1tNPPw2lAS6Kv/fccw/eGiZ1 7969gAcn5WXxJ921S7XxgeViY6iJJ9QWLWGaTd2NgFXhDc3BQL85gfEpGCdX QuPrr7/OfDDaryJW/FF1MD78Y4iN6aziV+0w5xySBVx4AOChhx569NFHd+/e DUhwrmHPnj1wW4QN5wDlgJvAC75LfTKEDR2Qyf3osFEZv6XFFDaqWMGEv7TR 1My0rbUVCuOKnveBi2Yibrt8r4+NjGnomOVio0rLl4AEWJb9+/eDhbLHnnrq qRdeeIEBQO/MIb1RdlOGGouADd03Qw6fc8imlD2GqS9nYmPIvvTNjejHyMrR TFKiNeMYfCMqGT4q55UYLn7fsNF0PdY52FBucB1MY3q42iYzG+Pe8F6hN/AX 2KAbq3GRaYm+TF29LxcbmbYRPPpc1MOb46hCNodvOP+U3it62dHCBq0GJ1nY kzCpMLL4hlpa2KgsB/vHGRvsvemR1b2Z2fCaOPf555+X3sBg2bdvH4ypVmS4 HIdsx7HCRjvgwwoJRUywjqJ0xkxsTGZVReinesqm1Mm9ZUSd2V+PP/742rVr MVLqNDPL+9ahaYUNnHWscnuGsDHUMlRkXw4dX5vSbudyVDLtJ5544pFHHtm2 bduDDz6IV1bmeW2LlAUAV/vS/EMY8OfJLMXMVvfs1JCamt+mVvPTtVAZs4Rl CoHWEddqUnoGvsQwOXDgADoB7vytt95amwNIeLDHmCRJm/thwQabd6af3m94 BYzBO+64g6FRxjfaWBE2RDBclPP1UtsrfTDzOkeNjWKg+TVLo511Ygu0BcJ8 FfMsUBcwprt27br//vsxTKg0phFHKm357YcUGy4snTXH1uAF77rrLtjW66+/ HqSU7y7nzi17bfHwvtSOEBvz23xsZBIvbblu1kbdOodK22DQm5ErzddzKp+L guHRP5oa2DjDX9M0WT9NgXSZKmAJfAwXmaRqxsekvdfYGMLAUONsAmwriCiU BvxWJmb7yhRfqzLpLnmTjIaw0XQjnxm0jhwbQ8dntEFNs/CeRApsQJovv/wy YIBRz7GP/+IvDoApAdECJOiDMHG6tgppGhp1mmvgpMxPMDb4vvtSg+rYvXs3 x4KmITTomFs1sppOGZeb2apZ3m6m898NNrLL6pEcD56woZxzPrbyMaAuOE2A z+SZesg2llo3MVdbxzov5knOkd2PFTbcjrRmX+boDbws1/Tt2LHjoYceAgCm yWUrLaRA/456eBQFe0uLLs7BhstXpywXG32F079L2Q1naUJNa9zKSDwWWR2l QjRQIPBYaUmBENZVYCcXKUCqmgl6jCLlcrBDPkTYqGfVtRjCBlkZegOq9d57 74WdRUf1ZSGZepZdbb7hEDZ0nWOCjfnstLAwuDe3g9QnJKJ1co2JHGoS9AMn WNGW0gYKhL0vWhE/51w/tNCHBRvVQF2LOTYFv0KjUm888MADXIZQdf1EXXMS 2yI0QXGruXGMohvS1Mg9VtiQNZl016dkFDoDD7VBY/k8hAc6geE+jJQqMU/m G0+jnowCZTQrpBzLlemxalOLhEvcc/iD+i3DUj1gaxj7gkYFJODJ7ty5s4zl wDNlMSTTcqD1uWs1lz+UlmjqkCisMg+lxgVKxAPfSOTQCYa4E6+sh6kt8RUn Pvfcc8ADtYeHRKhVmjTvBtZRRNIID8Ov6LcPCBrLxkbfgvA6Q9iYpFLewAaG zDXXXAM3Ft07Z5wuFxsODL/gHL0hU+VGQXpApk3rDpjB2CZuwOtrhePEqvro JyWlEBUsW6RcHT02j6ePhg8q5uwDB3cBoj4gaCwbGy56R8sQNqq0fhwOLKzJ hRdeeMUVV8C/a1Oc55hgo/9rPzblrU1mcRzLkSjlvnMknonPJIR1JL+hyTfJ Yv5l+Fz0R+CrssYssDHullcVpIuYnW9D/fKnOoLnOPd9B8X/35aLjYyfSKBD 2GiSXoXreueddwIbmzZtAjb6wj1qbNQ977Wwuf5+a2Jx4rdS0zB36+DUAgaR SJhEenMb6RZZ4I5tKZXXwDtCT0Jbcpke6yI6LSm6UzPUJ01M90xSDbE6RTk4 lD6Q9l5jg30L9wROCmzKww8/LE/kA8EGlQZzOJmlyVMoaPmkVAskFaxJVUYt ZT0wiQfXd0vWLJXw1FNPMal+HMU0ats4I4vsEWn0xdouNnDln2CbArKBDoRN 2bNnz1133YVBxOzZY4WN/q/F3CaSSWBIXpKRB7rxX3hY+/btg5Sb4Kg8sk3a g7mgWqfJCDCDwPREVPS+6iUel2ZQ9Ay8i+I5+IAe+4Cg8Z5zUdex9913H7px KZWJO1bYGOKiQ9jQ+hEtxNZ6GcGG/gipyP79+x955BHoAZoVipKym0Q2F/UJ OcaDDz4IbIBmMGalCdamm6tcBRmmRhLN4E/jKF5E8/cBQeM992HZ+ejtAwcO wIflXod9UR5zH3YIG74im5eFdJi4ywVlXLHLAlycHePUGL5RIhZvqnX0/Ixf ccwTTzyBv3R1nUhomVIVK7AILZbvbsOU+EtVkT14FDL1YFc2io+81QN1LeYc P9RmYmOcll2gr9jJGIZw5DlYxOhE55pUZ2A8a+eUUdTDKSO6VfT22uibD12W T4L7QgOopmUdCf/kpcAGV/oTLdwdiX/PPffc9evXc5oM/y1jfpZjnNNAeHIu 6mSVFeoTynoUWyzRWtVpTVaVlqJIfQlIdazhEkVZrkx/fLAxR8lQnbZpIxXm lsN2Z/ZXPgI7RPMpZTcZY2wZev1YU785kagj6w/yYl4NUyMmqSYbJ0k5Z0p1 gc8sEsLoBCBx+umnr1u3jsYCv8pA8MFUzQx2E9fnBOuou1Esd//knmskITy3 sSK0xAmfStryqLHh37w/2HATkJmVdlY+GA8jBsDr0L1cAOhkbGx5Ph6OLi10 ICWgE+fbDqGosBQLypFJvNQewAPdTNgCYAAcEg/JYrCAMfc3eeyxx770pS8x +QTmhoaGt67C6+HFAS0WvhM1HVmdySJxVxYpejo1Fo2kSdKOVJMoba32XmNg qL1LbOghl7plJOtIdWsjzIVv0C27d+/G0JM2KLp5ERo+414iR9FlKdIqQzyk Np9RFy9ilwpW9uPGi1wZsWvXLsCDK6rwE0S8OzX8F+7V5ZdfDlSzKjt+gkyZ hcLYKRSFsKGS/tBRrG7HeXYcgJ8AMxDyBx54APyWOYG8nZSGqIg/9pAsjpXt GGpHbVMypTEHG1oRj07A0EMnZzrTu2IozyezF4flqLUFxl0RtQnelAX+QsoQ /d133w2lAR3iPASjG7/ee++911133ebNmzWW8RYvpUZywqXfRAgwhm+Y1cO1 afgv0+lxtadSYy0aHAC9AUCiQ7hqvun6gN4DQ7JQZiD/2/SS8dSObh52udjI mrA6ZFPaFGGeRB4gOgTjBUNP2sCpYxaWnFhCqcjJxBYLFMOxcR0z6e63OIm8 C55ObNxzzz2UIAkGPVkoAc4db9u2DX9FhhlCB3iYs8cMQJJtaIMXUmPZLhY3 Y34gbsR9UiY2y4/rQDUxuqWlsiTPitMeNTZ85L4/2FAK69DzZA1HcjByNhMd deedd0K1up53nPQNQRVBSF8aIK4yhA0nJ2MrvqTgJ2GDgfzggw9ivJOdArT4 hmwEMIaVuT014FnbirEEKElCEcE0/MUVgA38Sn3CmBiuw8RynlWm6TOCikLH LZi0QHYqlavXp677UGBDuwtNo/ydFIU/Dz/XKRlyISorMkaKroYuzTSDs4iy G1sWNnzRsRTCEDYyD8Xzskj8+AFIAFAhTWIDHyBHihUfoPC/+tWvbt++HYqF wsXrwIIsRr1c5QHiL4b/Qw89RB+HDATPj8/gtGRZ9F+KqGs9SUvb6FNPwj1v okycG1CNsml3n80hGS0XG0PjOrvCYQ8ean3flo2dAFk0sfEQpHDDDTego9D5 RE4RkUYNebcdhQWWC8vH8xn20oLnMj3jWY0LgngvCBfkE/wHMoXsmOjL0oX4 HvoEkIBY4aGANMpAwAP9empEJhUIpAz9ACzRuHDVHj5AIz2YGn1k/J2E/86H BNL279/PWPE0bQPHAdgGeSu6NdJ/wrBRpMCv7AKxASmg35qUUVlG3eYiVpYd OTaytQCFle9z9qKpNM2VyJWABBnW4C4VNAGQMmzfzTffDBUHOgqQQIicMWcm eZMq6NIfx/cwDQ8//DD+0h6xyi6uBqThgvSJ+LeIkB2fAZcFFWmjBlqRVjge sr2YxTck4p8YbDRRlLWOmnvoNLC7+++/H91eRg3Axahw7nxD4p5YZsWRY8NP 0TQKM6kgEQ7thahrykQL8kb89Oijj95xxx3ABp4TLAKW5aabboJ6gftJAOBg YBuH4b8AEoABEXNKhdjDRaCIoBO4QTANGW1ZGfVsue4VVyARamJbBO3+RhS5 cB0h04H2YcEGFSODxtQGEM3WrVtZkWMc5VuZYUX7Mr9l2HDO5rhyljuxPC5u OklFoa0ncR1RjjLVgYTcYU0ABiCERQBoayBHlkUFEqBn8IHhEVyK3g2Lt7MO M06ECqJfQxaqCpOqn4knYTyQty4iyWcpqmmVqfa1c04/4EONDTFJx8aWLVug sXfu3MnpS45lDurlYsMxkPnFjhaKg4vFJKCFKOg3TtsO0i1t0pwO94tHg3wh fagOIHnVqlVXXnklNAZ5AikEyQkaVMeNN95422238dWgYQCeSar6wqFBDwVN e2rgV9yCufdAF1+tiZyoOnKBtHek5JURj6x9WLBRRqpVHWvV0Z+bNm26PzWy OHaa0qt8vOu/87HRb0LF2DZ14rznOM1iNIkbEzBEBRFSpplZQIJLz6AxIDtW 2AYwmNOIIyECztNBpsAJ9AnAAFf3xtSAEEAFp2vLS16W12QOAOuu4ArAHr7E ZSexrXDmczGV1BXCTxI2ylirhQ/on2uvvRYjEeydemOSZsEmltBbdedbq97a w74D4gFVMdux5epQay3YXloyNFQm+AYmYJzmVfF4lCN0PogoHvi666676qqr YA2hInAARI/voSLuuusuaAl8hgGCtoGVAa7ANAghedC0GgyP6/mLNAcHk0RK XEYt64ywaVPRJlTKTwY2aECrqHJGbFxzzTUYLMAGKVlt81bLxUaWyKfVAfIu +3m/E6uw5AhhKGyc5s6AjW9Gg+hXrFgBOkorAEUBAEDpMYGH/ixlSo0k01BF RnqdFowDaZwsaJN/yteh/SKJraMMvsuljRiX71td25qgTPpNz+GdDwxHiGgA 9fZRwGAIG9l/FZMUKigsDCho3R07dmAw8lfoTIyaKu0v4/5F0ZvEJ63VGnNl iRcWBVV8o29QpJ2yTAASRSYSkGYwDYkRXaDi8ssvh89CXQcTA7UwiuaUeBI5 Pwxi4C8kDl1E75hF/hnq4QpHPgyuRg+3jp1iFPMXWoawMe1u7VR3d5w8QmxI QWXnDnHd/hUyDnyE2GDIdxwbnNHEcwIL2oPVexZTxVEcoAnN/hpkYWZsu5nI E3TpZMLKDNCCVUJubOsc+ddMAgQjgo2Atod+uOWWWwBmWAoMcNAPBsYzL8lJ Thk5GFqZogQPTsBxtoWUA88DP4VHEt7sbcfGtLvfvYxLHfUZlrpJZS6vI1Ea br/aI7NBfou+LVsWNjiUFqPGJkYK986ANedk92LagUhTUXT3lKZb2AyLqAV1 xUK3Ka6V6R95Mb7veZuMnWL1RZpjBauE0rj44ovXrl0L5nnppZfCQ4EFxHNy hmXXrl28e//ickKLNO0CdcGVKVXsa4/HY21VKBPciwQViogrWfgYbW8fEIkg w0YR66yX0npJaZJMxNIq81tmUKjB5rQ+QpaLjUmUsuFQgvjwPToNPb9u3TqM QQ6fJinYKuZJR701p2KPCmwWkQtEIDGvT/6pxrXEx97Wr/4lnpDeJVMBoSs2 bNgAeHz5y18+77zzMK7xwDgRCIH2AP3o+0SOjWkKfUPWZK3sByZ1FCm9hwEW hliBENBaxluE0kns18PObMNpFTYoa6LO2UJrtaNb45DzUaErNDZBVh5Vnb2j wIYQwqlMDMA1a9ZcdNFF8PXIzykddp1cCSefsibSJ6MoDk/PlLxRy5H69og9 r7iTZlHpWnJVJte5cxtfaI+bbroJxgWAIWGASwKbAuRk2HD7RT1JyorL8qZ0 kEU+mXzIO+JeuCCpiLrdsaGxmVGOJkUGSiuRl7kSmRVo5s5r+PDnXZi4OLNV A2252FB8Azcto3A3en7jxo0geLfffjtcAx6AHhunuTCSEFlz6opJLC9l7Egr UsdRDiXTGzxgobeoWRtbTyJFEOodloL5w5xBwynoHCbwQFfgG07JgT/jL0hI 1V3jkGFDrtAkAl9cm0bLsmhFzpnhA/+XqYZVTMVKjk0UE2iTt+LYYKsiG2Ea K/EnsVNVXyEMNXEGQgLt26kN+cjZNQ/r18zBBp0L4o3Cgiy2bt26bds29DMo n8YyA6ReBt99VdXAIXgkce/whViP1mcgvA4j2OOUc840ctZ/aCKdpkrzs2+8 8QZnRnAAnReggnoDQnTFm8XlPGTHA+j+lN14vtQCFAh8HyaP8bEV4nDhclw7 HcU3EB+5TRX18ElglosN4oFXXrLg/JDe8MPeDTYmsV9MGcV40fPoZ2Djzjvv RIfArFCjLqQ14zQZvnURu5Fzpi+nJtstQbivqnw/n3IVNjiBgu85WQb+ALnz CVUkmUV1SBe5oxxrokL5syZV3/g65RDGSttZjGpEfr32SsbV8Axc/kDCwwB7 bV6D/1ejm/t5CRJFlCUsbE5fQmyCjcz0L47E1ky7878ZSIiTTGSV1dUZ0htj 2wIP77UQy2NvvvlmLvNBh9B/5OoA2oWDsQkvKQGOZE/i4hhlGOx4GM5Pyaul MhHZII2hihBgaPoZo4Ayr1KOHxURLT76nFxxlPYjgIp7/fXXQRfvu+8+fMlY BLuuiOSBzOYWUSZUuOUrjGIXSDJnYoDJP7gRX4RrH2jrW4tH9bHBDRQoHTm/ vHvVq5/jaqQv7iFsDJ0yhA2FodQbBMAQNiorB12lZeaLadEomB7IBikZ+l/J 2ExyUJyqiWVHUPvapAafcYWxrfTJXJtxKqtFhCgkzmtyh2uYBigNPAPHL09X shYn69k/UBqQAvxWHExGSolX3fWtooUei3Pcig+PY0dR2k1O5lJVcvIO2MAx LtZMjTjxoC2gbm8jYlNabMSbs1OX9Rxz0z93aqkCGTb67LSOScOZ2GiScypz 3KZYB3oDBgUOLMQBbEBSTMeiDmEUmsKltmQcCT0GqTHACL3BAKPYhdaxirhS cAuRvKdRjIuDOTzwwAMw9EtpA1/yHNp63o7qnZOt+AbAgO3jph68aWE5q4qo kGyLdVDcWu/gtT7kYqMrtL8hdTJzS6YWeupjwy2LZmlFAByrmYhnqoI5PGEO QvrYkPHSrWUTZ2KjTQ4dn5bTHHh9CBe9DUjQ6WCQkDneNCtMwFM4kUkXOGvn zp0QK51N1jFgT2otAHP+OTD5V3FIfM/1SrgOPA4YNVgKUgJOtLGf+Wq4NVcN 0Em58cYbcTxPr9IsyTgq8NAxV2yWqmySUhGYRUYrSa+HL0WQ8JVBNoBzXQpf wsRAkbogXEAuFz7woWgSkJOfmYGITMTHChuaENRN29heaiY2plHerYgtuen7 M3mbCZZUJuoxKmEihMl1zLNCH3Jmn0oGIw7dyD4nMJ5PjUsAdDVqIVJcwoOk F0dygTyXAIjxMsOH3KZOUReoOLhUgApVyii2oWcPEL1UHfS2aEe4fo1rJBmB 4bsQ9to9mXOOTETnOwKxeDWPb2TYkHTkZpJ+UEasYZsx5DnwmNOWa1NmYmO+ 3lAQUrYYHQXCANGg2yGdxbSVDPP2KUcm5nFtIP9yQSJHIvX2gdTowLLnWUYJ wxx9S/uieIjwpr2tcbW7774bloLVC2+55RZwY7BTbtaARvMB5Xb11Vffeuut dMPFW8aR/ExUcNTjAfC0zDPnPiC8tWrKeTRGsN+TthnS4n18qGIXD9nrmWIi 02hT6VphA4CZ9rzL+dpjqPUVxXwuutSd63Fsz8RGE9nCdVoHLYeOcoT2gK7m Olmm3XLdOpeHaN4Tv0Jq27dvh6JgN+IASA0yLaMQH8065IIT8RNLKpHpsUEE Dz30EEwSDMR11123ZcsWCP3iiy8+/fTTTz755NNOO+3UU0+99tpreSKfB0/I SVjcSLE7BtAmsUfSOCrN4jUhWdwIZ9HdwItoendiayKoRevYxGEhqorR7cKR 8IxEYPqKXSKTuibxoIy4z5fGb1919FXQ/OaomO/DTs0nGuK0jo06Juib4I00 LtQS0BsYuVx5Sj2AviU94Koi2B3oWEgKn2+44QYInTuwoN+AE5xOmopTOFqZ XIFTaEpwJFU3tASQBoBBAwAb1BKbN28+//zzAYl/+Id/OPvss0855RR8wykV HIy/+LxmzZpLL70U90L/c/jj9UlQhQ1KBx+4nJbsCDdVsiinA6pIjzwYFQgV tnrrrbdokqZpUQYX2XmsYKZM6+4sbT9slUWofPbH1ch0oOlekr6USQZU3ovj ZRrzbn7x1krFOlxLyxWfROomfQGu6QCFgHoHz4QOgXQgi40bN0J2119/PSgr vsQAP+OMMyBWdj7Fh+8xqCEvridlXRQgCsoBYx/ShOMJ4AFRzAeATti6dSsz uBiVvemmm/D5vPPO+/SnP3388cefeeaZq1ev3rRpE80TrgbsrVu3Ds/AzXyr SOKiR6OARp28bM6SMI5Hdi1nllKobOWmInKlrcr0IPDI8ueHsNF0vdoly7iQ I+OYcfnqkRRqqHtucl+9+NjPDIfYDv2m2uro+rl+3wyxk8iz8kA3d9nGeIda gDg2bNgACQIJED0kiJH7mc985oILLsBnqBEoEGaAwx4xeobG/Xa58xfz9CD9 q666CpLFX+ANFgQwANgY24TcaZ7QcCmA5Nxzz12xYgUQ+JWvfAVXppnD1YBS nMJ1BJPY/qCwudcmivvRdqgelIdkNac/6WXIHytsqGXwUCRkqZsB4vp/ZBlK GTnpmwMXrgcx2sR/yHyEDV52JsZEpdSTPp1Ktkk/lNSdnyEsKBMuVIcewLAF MMgQ1q5de8kll6xfvx7ShOAgCAgaoIKs8RffQFEAQlemBmAAZtAbUEoAFQwK MMNZkkmsoCRQcXcwUqARwAC7gOpgGg/wgxvhYRjDXIxKxa2tV60jtlyHX5/F PRT98OmhSTdluo8NP2Y+T8jIgGJZPpzdKGTI4fbWmRoprcKJ7qtjsrGvR8pw O6RbBMvWFtcrVMiANncHeCI1SGHv3r0MV0IzYNjSEShSJja+gejxEzghRAxZ gzBgdHPfN1wEJgOW6MILLwR/uD41ph3ieJxIVQ+YMeJNQdBw0IuBOQCucDDg BzgBVOSrUDi4NU4vLI+ISlLYKK0Y+9SCP5qAK60OwKSblua6NMPGxHKT5mOj j5A+GRAHcAohZfLtaG6DpmludCY2mm7T1TJN4ryljw0NqD42NAcHyUJRYLxD FuAVEDokC7FClIwbQL1AvXMWm8EHcDwcDzzApkClABVgkqtWrYL5gErB8Mel 8JdipegV/fBAGVnBwdi3hRNe3B8KpgT6B6aNBkuzvWMr0+Stspyr2pxHDRnn XW41hrDh6BrChndy2yUeM7lH35rwshnABJshm+L8wW89teCGK5Psjv7TTJtC OgplDo0NcdBkEBUYrdDqsAKUHQwNg1QsF8+ySDgMSMApJBVM0IJDCnLC9Ym4 IHNmGOZiWIPz+0zOBGC0HIAgZBgNNgj2CJYLwMN1FqJ2qKZ4ym4RISkEwUNv nRnlZXFRx9IcbLh+nklBHR6Zyylhld3mNLvPEzKcODy0N6iwQaho/aa6jgAb 4qIECQTEuW8gASaD8+YwGQAJ5MIN76DqWU9JqZ74APUCtwK+59/+7d/iL1QH IAHXlVnikD5EjHPpNUDPMHZ9MMoLL8SqBPkdbaTvAoTcG50sqIiSwoxtZvCo rDZdFYsLvPckYlGLcbcNYcOxNIQNOSDChgOj7c3T9a2Mk9Vpz9N0uWc+zkwu uhRbwPBcGRTGb+tYEC01O+TDck6NibX0CPamHerrVPoJigIWH1YD1n/79u0Q N4RL2OC/kPtFF10E5+VTn/rU5z//ebgY8E24ygPPwCkVeMQ4nsFJLX1diDUI iiyVkVNHt7RNZBv8h3mefB32CXP5OGnL78tZsaxJN3VH3ehk40i46JFgIzMB EnRmYqax5roZaJlaqA/XylmB1r6ZcOIBxHITkDoqZLpjJZrE2JeyJtAwVEEP yBaY6o8xC6UBr+Gyyy77y7/8y+OOO45Wg34EPv/d3/3dZz/72dWrVwM/0Bic 6BylWitcAs+NFDXLlpkGKg03nZnOFxVsolT1yHIAhHO1wjKTM7aftQwkmZXR pdzHOUJsCB7SJDIlHM6ZUXAC0Az4p0MtQwuv4NYq+xWPAWwweNuEw6vO54cq BRI1oUCEwJWANtgUDdrgL/7iLz7+8Y9/4hOf+J3f+Z2f/dmf/chHPvK7v/u7 n/70p7/whS+cddZZ0BWfSQ3/BXhAMwgJFleBKQHA6NpAh3DecxxL2ER1FHic xFrLkWWLCQBNlBKVpI4tNmb+V5EBtsNiI4NHYzFJX+40Xz9kTz6n9VkHm6sC N09tmvF5IzUPqdXmCNdRZJXFG0EGmLtLeslgOHTCRz/6UeLhp37qp/D3Yx/7 2K/+6q/+wi/8wu///u//1V/91V//9V//4z/+48knn/xHf/RHv/Irv/Knf/qn +ADeCM8FzETZ4Pfeey8QgssqsYdBNn5QhIqfqXaUjuiJ7tInHnZ4N9jITnRI ZDg5LDaGtIeOl+rgaO2z0L4SOBJ4OMb8LD3G1DJJJmkPU2IDqoOPV3br+MlU jVKWwtdSU+YGfQTICK4ogfEzP/Mz+PvzP//z+O/P/dzPASG/93u/B30CrXLK Kad88Ytf/OQnPwnw4Ms//MM/hKsC7rpr1y44NaCRYLbwi6E3mC+hXA76Jp6U zrtTtygV2ZVD1fU9hYR3gw0Hyai7am9iefVq87HRh0djFNQH8pDeWBbZqBOt mvbC73U3h7C2fLwy6pgJpWV3bRRvXcWeR0zj4aD2HLnzzz//l37pl6guPpIa sfGLv/iLAMZpp512+umnn3322V/60pdOOukkWJlrUoPbC5oKisL5bk7JqXa0 UtZHtoVrFtbOVLraEQ7/o8MGR4obqXFMJRwJNobsy7S34t7VRb9lmDksQvow 6zMWH1CKC83UXU24Tk2k2iptWLiicTz11FMBg1/+5V8GKvABCAEStm7dCq+W c6N0SDnfwSoZuBR3rAbfwAHjVB9YRflGsRW4m3KRirLrhxYWuChnFUMuuysO jg4bfrXMlIwiF/pIbMoQ/ViyJSStTZ1LgftPU8v7cuHOaUOmrenG/bIeKyOs 0Vc4GTa0foTZvFxNBslecsklBAYanJETTjiBq4fKmOXnSoFxyqtkbXnOwDIX ndqAE/TUzMolYz9X5nSMrVBYRjPKbtB7JkKODhv8XocV5qcsWjtybDTdKASN +9Qi1e0s17K1sHkGiZnv6y17kgyQdc+H9XiLDiiCy9UWfilitxGGkiQO8hB4 sn/+53/+27/923/zN38Dj/XMM8/csmULV3CUyX5pkQJtEAsuASQ4gKUPWAiU LLeMEP04lhzWwYd99dMkpXeSdSzG7o2ZQPtCPybYKK2GjPzrbA636VI+4aTq TnX1aUN2PF1Ifu/6JLMFPtKzK7ANOaq6tb9aEVUx3YGqU4CoiKU0+nKcVhpS ytTqzOHEMRDN3r174YOcccYZIKVwUcEr8OHqq6++4YYbcBaDyYupvN4khdEW Y2U6S4Uzu4NzuFyK4pKqBtZi9/WGRK8XdCpSmiUSUdH1i1k5G0P6uTD+mdFg BT36HIDfLBcbCoJNuoG7utv88WaqrOViQ1CUBWmMjgowTVqSwGwoDu0irYQl Nhi8gq4AKkBKzzrrrJUrV8IHWb9+PfgGRK8JCF8vADCw/gkXpxMbjI4u2Lpa 53t9bGj99bvEhnrDpZ9908fGuLdPnDAzin2XGmv8RkLJTP8QlhrbF8yNY3aM btG/49FhYxJL2/g9L8Leq2KmiQcUsQUesTFJ65W4irNMvP3ee++9/fbbmbB3 zjnngIsCLfi8evVqaI/t27eDhXJ2g4tWfJ2s3NJvRJPl8iYFLkHIUcpCW0eB DbcaWf/3h6c/la7j1x+lHGYXugTkwHC/cqbgXKbeZqoF8YeZbQgb2asJfsIG /9tE8ZBxrD6rggKVad5KhGGcwqSvxp7Lb7zxxjRlDuzfv/+rX/0qlAa0x9// /d+feOKJn/jEJ37rt37r13/9148//njtaz+JaOdCt+oCVxxoGwIOSRoO3k61 GjhUM2zId1guNubwt5lKWw8wsZncLHx0WGy499qHh5+ShS4zjeTAOGps+NsJ 5zyxsv0p9Mr6sokt2iVTClRrD6uoGgfRc2X0nXfe+bnPfe43f/M3PxLt4x// OCgrwCNcKZ7pondsCI0e7/LlZl7TQ8AYWR7FMcFGNqD8apmgNT1ad2NTDg8X aDb/PnR8G5Xl2oFlLzO1UHa1IWwM2c06wmVVpJcTG+oWxwakQOOiPZdJG+Rf yH0DtcY3cGyJip9L7dd+7ddASHbt2qWKtU7sqSK4St1LxmkmRdjweh0avEIC r7ZcbFQ9ql8O+zjjWPcqWdS25ksFUlz5Z8Y9G+mZ9sj0DMevYqcS3BAG/BtX ekeNjTrSxuqoDKnPZey+BwG1aQUoGSMeFb3E1RxcMcTYOx0ZSBDO7Ec/+tGP fexjDKej/cmf/Mljjz3GdRwZQ+CNtPjRAaPmM26iHM7Q5DscBTaqblZYHxVy QBZTMavMCuiOTVra0M/nzMa7W4qZqkPYoIx8eXVtWyC1PR9HIMmU3nKxUaYp GBlB4aSxsEYRafzEBj6whhKUA75nSXAKCycCHoupfg7+nnbaaZxh+emf/mmA BH//7M/+DIzUCcOoO4fOWTYRhpHVjZzpp3i3CxsLsVj7yLFRm9/q/qwu4mEu eUZlrxAB05CYzFn3/Mq+FfC2ZOvLjuT4mRiohms0DWHASXVhSSyVZcQ5wvsQ KmJuzrNlihSP4uJoans0qAVcDc7pKaecAgoqvgGzsmrVKq5X1cOwwzX773rb x2kWe5zMqhfhYKhjzmjRaojJ4vT7oQ8h4c010iiWrkzT0mZepI2sBmcgUsVH jg0f1zp+zilD2KiX2Vz7+ellRMsbSyqrIhZUWBRadpZBMOJBPxWx1xX+csg8 99xzcFX+4A/+4Dd+4zc++clP/vEf//HnP//5++67bxybb7KNoigcE8glOGFj MUox+JRrFoH0Ea0o5YLVIdTkflYzoe+6FhG80gUXraCQsCG5TLuTYhm6jhob rvPfa2yo4EPbXY1bWDCwtKmrsU1AOzyaCHRo9R/7RzMI6L2ltDUVbA246HHH HfepT33qzDPP/PKXvwwHVuU4MkopEWd+hwZ+trBo0QqFOV+Vs5OBR2DzwlOu oJxXjCyQ4txmHJtiU0U0NuMgOYqulBEBOHJsuMQzeMxvGTaG2tDpGZ1Wk2rN rPDEJjerrvtWRgGTg7HzZpNm0zg5y4xN6pYrr7wSjskJJ5xwXmovvPACj1Hd yFetrChvSvdEI9pdZn+kiS1i6hudxcijcCXPDpQ9UleMIwcge3H2Z6Yl2sQK MMq8z2e6NkehN4YQ8l5jwxm43NI2Kg+7Lu13lNtxugBllEZZjGqQVfJnX021 34vYCm3jxo0wKyeeeOI5qbE+WGWJ7mVUT1LtAs2aVbHF8MR29KuMNIqXZpqB zTlGYY7M1PK0pzG/rPctrOiWZ8xqtwsFMZbS8vzFyNkQSFxMy8VG9mvTIwBZ G8LGcm1Khgq54XOw4c3tfhFFOV6N2n1QArjUxEoLkl5u2bLln/7pn0466SQY lBUrVsC7oYCkx6pYrKqcLmeJmTYbW+RTz+O6wo2IWMeom6Cl5MwlW7NT9PLc 6l4soo2ioLwUrlBGpf0qQgeZTj4KbPjt3jdstL3wCIeA87GJJdW7Ecns/sQ2 iJchmKY0fnYXCQmOue22284++2yYFWDjK1/5yv333/9q7E3jusgHbF9ZERX9 QIfTTseGo0ig0rhw5elNUMzuKxs0sU2gOEAyBtKYk6huXxY2aguxtuYdLBcb Q7ZjyNZkI0UI72ODr+zRmDoCO9TVk6j9ztyMOpVUImzKiKu/mgo2witZvXr1 hRdeCLJx7rnnbt68mZVa2268yE18MeDDOj+c6aqMZ83bLtrcHG/hPsuipQm5 hnQnRdyYwFDYluavsK0xCCpKmV3Xh1/dXfziYFhKdTCKbp6Aur2yUpOuV4da dmv3KcTE2pRGzuUn/bIwrroLWynP4gmUL88SZ6tSqIR9KyLapPX+zuoZKX3p pZfWrVsHbwXAOOOMMy699FJWM8bplcVdfVyPYiqH/VOk+Akvu9iNhY4j+cdl OkQ/nIcIXeNuiENSKyzY1VjdUd53lBLsnQCPbc2Xi9uvOVNwlQVDSGBmHqnB MulG+F1pDGmq7CcZEZEKLl6b6T6X3QiSTLnXdXStUiUf5NXYJWch1hKObLNO WQEcduutt15xxRUwKFAdsCzr169ncR6dzls0KZ8Zj+oa3p8zsw4SX2b7pF6G sOGWQp6mK17vYb24n8g39XHtzn5jse4h3V53uUFju2nMlFEVidzsf16/6lmu TEVk3dhETlFra6OG0pXbmMfJ7iIdQgB4jIuiGadZVIaqlNMlc7zQ3VDp8ccf Bx5gVqA0AA/Qj02bNj3xxBMuHcekOp8+sl/KVZybj4yczMTGZKAVFkjPepJN x2TujBhCZQYlsylV12qo9SXicKq6oXsqf1k9wa/pzampf9zIFl1/3DGj1odH a+lefQROUo6Wdr2URpWV1wKEcRTcGFsN6kmsTDxw4MCGDRugMUA8Vq1aBeOC vzfddBPpymKatOKMNsXaRvKDaIaPbul8vXJmTdQhM1HhZCYjrn6uy7Sw4m9V MMOZ8XAHlcZd3eWffAVP86i6saOM8R6MbeN45CTSKZ0ANz0u6u+ljtK9Jr25 pGzNtSNEfe5DUsZ9ZKvXcdjBKN9K8JDacYLJ30vPDwDAW7nyyiuBkJUrV0Jv ACdgIFdfffV111139913P/vss9Q8tQX2/Wqcl2d9WhW5pbeb6ZxFW56QYcM1 rSNEsMmsjPhhm+ZKGFWeRsVFbmTgKkLNzYSjpbZYTdbbetSZilHUUdZce9T2 PTW2zGA5ODWKec0mFkRnKeWODSFKj8q7C66kiHWqjzSJeMhiqqTHBe86d9FW GPFIqI5HHnkExAPY+GJq4KUnnnjiKaecAivD5Uu7du0CTd29e/ejqeF40BLu 3Lpz584777wTp+/YseOuu+6655574AtzSTW3A874gH/jmpmtb82lkRpzGcTT vMQ0O5DfvG6Nh3HouU0fdeeLhQQ3GUJjbfuhZFleDuCRzexk6z0Fkky+Doy6 6+rqfT1DQIBvzJf0wTXqTkXpV1fdhBBLLy7aEuZFm6KqY5uMZ555BvJdu3Yt uAewcfLJJ59wwgknnXQSrMyl0WB3oGHWp7YhNXzgzr84EZ+hba699totW7bc eOONwAkrdbBU7Cjm8Rejutd4Vgzccx7UD5KFyh28Zs1zb2QLhBm2rKwfL8Xy mNS0bnf0VFUk7eAKwJjwmbHEKhb2FpH8X0V91KrnCC9FDag+W5D+ybhK2w27 Cf+ux/zE0laIVJHJMLJJLqn0cST48RvpGVk98QqgCNK85pprzjnnnLPOOgt6 AwjBhxWpXXTRRZdffvnq1LgfH8Bw1VVXAQ84BZ83btx4TTRWf6LC4UpJ4YEU OjO4ZW9iJeMGWWk+SSeradNEnF9eiTqTpwhR+OYHqX0/te9973vf/e5333rr rTfffJPL0utwvoqY5ac7WUXRDyIZl3K6UtkCcGG1T0frKLAjN6q21F8PW+HX Q1FTvTXfltjQK1P0vI67J6NYBUzMEzDs3kWrCi61NjG3t0gxUi5YowKB5wIG AolD3ADDxRdfDE1CbICHUEvgL5DA0g04EgoEDHbdunWEzfXXX799+3YYGgCD BujJJ59UceCxTaqOoz4brUmmPGuLZvR5o2RBAVFqRaR1NSmkw2xnfkPlD9Fz 1Tn++/bbb38/2tupfS81IATH0ACxh6tIwGu7ofImlghlngLPWupVRRASKgsQ TWxuUdd0kqmgaB8buq9fWWTP+YYo4igKWyly6IHrzOi7U8MicpAmzcRll122 MjWIfs2aNZQ+AUALAhUBkJDHrksNn2FQgA1W3SczYeFBF7TrDbcpTbd5t0uZ uL4VDRC3JFQYimF+yDhVrKKYGGZkV2eBONGG1sLCTqRH3az1TO7e+C7u72hc jKxwrk7UfzOvis1tSmvbAPVPKWPrk3GEPeVcy6CPYrPFLLMiI0t61CLVQqdT w3gpy3mxvCQ0wM0337xt27atW7fCvcVn2AuInlvGw3DwAzDwUGqgrDiL1UfR 7r33XmgPsA6ZPEmk6M7ZjaKWjtN4dogbHUdOn9ex61SuhKKkNcmSZMbdJpox smll9ysVLqhsbWPbi6LoUR0/daSoiZO4clBzdLlecoU5jannxiZ01EsyLm3E QARvHwujWFFCsiEuqiMnEUqtLLLHswT4IqLQ8lXlrjLyphwzESocDCcFBoVl S0lKucv8KJI9vA99WFUWP/Qu8h7LxpRbameJrHfE9GlVZPLARd9G1JaHKXIi cz+UV5CZALW+M0K0ZCWv+yfqZTUEsldzolVaZmARG6aIRTs1XbTMK01IHYzi S4XNRGikiLIWkZNM40JEVVHJjeNOVs9dKvabZIfrcKdgNCCEegNOgUR52IHD ASgl7z6aG9nKyuJVRu/blPdSRhp2E3Mu5B4ZN+h3iKKjPgGqh88MDeOBToFq W89eD7ve7pFVFhR1q8QmnPfrejU2M1tEIYWyW7a3jphJxjzHsSV3pi6kQNjn iu00actO7bDmpJEYc0Xno5v3knMEj5jmBvCguQE2mtiRfDowN9FYPmfZXVmQ eTRuqWdqY3XXuFcVROjyYVtbIS8fyH5TzzAsbTO7Oir5eEqSW0C3BT7bLluQ daaTB7w4TgEwwJChA+UCeweW3fmyDJO6/qtRO5oco7RF7pxkYYJHGb7txJaW 09PBf90G+TvWsRymsmw9Xo0Er4yiVdzn64477gA8wEyAECYOtcbqXQVJgYxj o0/dUUM70+RSL1VkoI1ixkc3mkSw3emf3qiwsKfr4dIin0XE5OWrCtiNLZGu U6SdYRBfGDWzSSJFZPO66qjDkZeCwgXhXtHFVs03j+eQf2q7Ridjrs2UmkVs 1JFYO0q1o7nyiCpilHLAPCC2GFvpTaxpdDCaOrFFiHLzqeLq5DLTjoNdwJSQ oxIb+IYdyKeVBFWesQwnixBdsjqNwoxjQ3ansmV9mg6QmSi6W0OWxmE8OOb7 /Aq9zjAZZ1iy1aweE/NOc9uaydpVa6bE6hSvo1MwtroxaO+8886PfvQjONfs DSofdhE1tpJYZBrKYDuF5Tj18x8IDxkRTaHyMNfhrsarbnMk8KZlhEd4AKOd ZVqUjb979uzhHiv4C5cWzgt+1ahZjFxiAU+v40RC+lYvKH9TzzzphlXV+Aoa VmJibheG4urCiTPGNrbokuHIeGxmGuook+IEqbQQR9bzVfJ5i1gqItjgRm+/ /fYPfvAD6A1ig7dmd0lbLnZXowuTbm2diI5sbZcLwhP2Jt15rrLLA/UK0r1O tKSviE/2Hn7dv38/IAGHF9i4/vrr8ZfbzvJdqogrZsQ4w4bb4sLStzIOoA+u PytzOjKAOcN5Ixqx4TMyWfpEGz7OktW3b23b+jYCd3V3FarjVqY50xvOf2rz mNgheLDvfOc7Mih6nb6ANHL1pZvmqlfnyudW1Dy07sPQtUT2OurPaUphHaWE K2o2PQAuAoO1d+9ehlXRWD79zjvvBP3gi4+6G+i4Za+ibnl26yoWfjYWXVTz Yctx7WOqiDVuVL/Zm9KmZNpDmzz2I97q7WmvqELTC/XX5n+V3XiFulQERp6R Zgf4/PgGwADZYDCfz9ZEREv2t47gCYUytiQZ9WppLHGxu3poZPkPE8ux0fdl N3rg7+INjz2xIBXhx/d94oknuOHXddddtzE1qA7upIPHoMKkFXPsVRaXbs3Z 1wPovw4kNamOJlYqVRF0dWpa2bIIkRAFkYgQqZE3U6M+kUpBcz3QWvyEIUr2 pB6j6dZMcP3Q9CIeehLNIHMo4b8wKICHJnoY8hJFLKy0VxVhmcXInViIreuo q8V5Fi0Fxf0OqaDMTpXd7LtRNzFJjaOysNXZk7Q7MB7j1ltvveSSS9atW7dp 0yZG1Ldv387JGnpMBKrUqZM02QWhpex5o8KDy0gqUTpkHFm1yi5zSPiMUmNr nRweb6WWwYM5IXrCxkrNc30xrzlNu4VS+XsUqOlFchwqbAQhL0h04RvO8vB5 0DiN4tpe3air9efOeLvG6oSLWoj7ZeYpI/P+nJmtdEqj4axnw4vAlGzZsmXl ypVXXHHFhg0b1qxZAwUCRopflcDAmXqxDsdGBobs7mW3VZbbIHbqMOC4GEeU dWRzkYuW8OwxLueZQ1zUbY3OdWiJ07oxcmczGwuOEGoJXlBBEnyA0vj+97/P 6T9iZhwrv9wEV+HIZ+xRWm4pUoMqm5grugtms6GXGZTMFLa9TQzJOQke0Y8X X3wRSAAqLr300lWrVq1duxaq48EHH+Tcq0JwC7HxluTu2ChiVr0Mn8ixIUuX sREdRp2gtLfsxV3PqB2y5syhjwrvFp/oX4qFdZAg3Mwf/vCHUDVNBFHLiE/2 Q6yuMdxet5G40sQ0Ii4IJ4Vkg2xqMWWS42VFS2Q4qBMaWyHOW3CCaeYDyBC4 BlZf+ZjNHttplZ6BFJThdHx+5ZVX7r///osuuojJ6uecc87ll19+9913M0he RGSPLgzxMOpu4ikw0Hr6f4UNNzfeykjSqJKnzzUpHicfR2E0DgTvB59n6XNC oUJjJLOG0jmKhHNoy9/p6xCNtabr/Mr3yVQTb/3OO+9QdYhsUEO6r6QeK2Om wMOw08in5cFEFzUPLut0QkOvjT19KDK+Zp0mKF0jOWwmabZlmlbJtWnKG/7p 6tWrzz///HPPPRem5IILLrjlllsOHDhQRNAp00iOW6mCstcylZsN/zrmC9zE uC+jv9NI26MeLi1vpOnNxTTm/85kBRkdamye1KHiIzTTde7tuomcdvNXXb7g G/RWFHHlY0t3tbacs7La15mr5byUZIMEyTWVNIAeSbRhKVLKq4FGjcFX5tzN jh07gAcojYsvvnjbtm2goA8//DBXWbY2t+7d28eGXm1I3/ox3s/ZRfSQmrhh 78l6FuamabiV3eilw7jtTpNpKLkgMqhkBMON0aHIZdWlagtouCV1sLnfJHjU KY6qKH3Tm6puugFzXr8KRjqOXI6J1fwvI5ZYWyWx0mbuqvB3ZkoQB7BL8Tys eX7VVVfBjqxYseKyyy674447brvttmeeeYbeXGFBqiFsZPDIsNFY8KrqBTek mqRS+FKHYsOsOsKVIysEMY7sBZfyzMeTrD37NKMibTe3xD3TpW4Ty/WIigZ+ Y2ttMkXk/rXsVBM5b+QhjVX3qrtusuuE2mbzNZHEHigsui7yU1uxwSZmgvoG hb9SjaNvgWTumAB2AWDAe4VB2ZnaSy+9VETB6plkprJ4XQaPjGa7KqisErX8 EbezTexRhWebRmXFymjqYqy9ogfHKe/KAixSuU7aqy7BcJBMI5tiZmu7Te9L sEniZJgzR4T4Sd8bYrxFTGBqMVWdmIV2M5xkcikj9OHTMa4hNQwzyqoRVEe2 D57nntSACvgm8Fuvueaah1PjQt3aoqCOMX5WJ2TwyHimzm27/pec1rLrC6ix w2V3JpGQMLKm3ODMqcmYj0RW9vyOdsCvkd5wP6g/fiW7OnKN+p5RHUH4JsW1 8MyMwICBuKlSwE3631XWNJKdlqzKpcQqdjTpLn6cqavLtNx+1F2+of7hMbjC jTfeuHXrVu4DyAj5/tQ0n5sRSG/Z6zt6XVdoNPWj0zw30/Zt1AxpupWcx5GT 7/MIuuY0lkHxXOf2LuXsaRvbjrMx2jnTEvl8TdPz3GUFsj7JukIKRPFYMUli oErT602X9qjf1EV11wVwEI6sGLWOydxbDcxMwfJLXAqk4tprr73iiisY74JB 4ZYKzAuiA14OzJOWkebRh0fflGTKViqXInP13oT/qziYSPUoVv8tWt0GXgSn c8KCZb1J3ftMsk1OmUIKMmE4vegGjgSPqksppVuor0oLyvFS1UB7zWos+Ovr gTUEmIlRd5m8etg7ypGwaHud9OfXvEsn3UL0HmxUlBXXB9nYuHEjvNd169YB JLAst956q5Qnk4ja5DzOwYY/OVsWnZOGz1SQa85pd29l/jqJxQ4UdBl+imZY eAV0L1emUF6MEU1i4k8I4WexxyaIn+CxFOlYU1sjQGLg/oiAyhObVO+UO9eQ AWY2l+/lfVXZ+pdMl7pKVwTJmVuTUlYIwjKmLye2aYKuUNuksMOAzbGRxaKp bcAruITtyiuvhOqAG/vII4/wjRTUdXk1XebcWvzHVQTnrca2GVmGXr0LYV92 nSC9izrNO3PRtmPA94AEZyugNwhpTojLvmfolYFYik0VpedFJokNHtb3VdkK cxIrW0pWWYCxsam6jDY0Njfd78nSyt1n5o9q9rUoyKwHqIwK6t1F5vvYYOtb FlkiIAHY2Lx5MwwKlMZFF1306KOPSmq8xTRF1Cc2Yaf+4UsJrmptZKllLzjp Ju+VkSSWmU7dyHussLlF15nkdfIUmiB7GXOQOA7Z2tupBa80bKuYn3WCMe0F wZpI2JOw6ij26y+uW7fdmImTLjVXy27X2JZsktdflo/n+tyxoS6ddHM8PHnM 7cI4qgMBCZtTg025+OKLwTdgZXQd3aIeaH1N6M7C2KaG2firOl9eW2u531l8 QBIpZy1B4l2oDRhcokJow7XXgJI4NI1yqFthyW1Ba17MoYGFBq5kqF4oiMVu hatMXi79zM668WXTY7MdilIDHk6ZRq6Iziq6S/gz2yEVoW708EgVszn48Nhj j8FJgU1Zu3YtXBVwD1Z00dvxChmdyHCeEYk+r1A/jGMWnpEB+fiuY/WQtQUb HRsCvHItyCJoXPCXE52MTjvnVAxKfetMdcmqHzhLydyEyuJsdTeUwevrUfX6 5UAetfNGGX1XO6VFehtLRsoINuHhwHC6TiQ4MISWmY0KH3fct28ffFj4rcQG fFhu+Sdto+Rkt1b9u0ghSJTCT2mRlrHV7HKdUPeKq2Q4ybDhNbEBBs5OLtmq N6JFpKIIj0acM9Pzbco3E2Dk1cooZA8msteGy1ykycFsfl/axgGfjayi6yws xB43yvjyLs0MX2vTQDpM8Y1FK9TmIst6NWOkRZrFwzWfffbZ22+/HfCATVmx YgVYx549e1wjuXwzJ6ivMfz5mwhYiUMy1CZTUlk5oKo7i9F08xMcG+w9FSHE Z9BOpsrIwjaRW7KUloRwTEllyYtsbeaUHodUhB7Sh2dmQCeWAMkeaGIaXTF5 xaMqmzvLuLGuOenWyeEca2mT1xos7H+Fa2orKiKmJ83vtLPvb+pdXLgLaX/A r33ta/fcc49KyV122WW7d+92jq03arqBOD6Yc0VHY2Xu28RWlzAXi6tcqwhr lxZxzQzxuOukq/d8WygtE8MjkZRO02wRp1o4vVVHBc5xhEokR+0CL4oo/XMo 1jIMYaO0GT2ZGNc/GtqleUx+qSrWUjWRbe4lNBlcas1TE8Uq0wQu09j48K4n x93VkRk2qsggctMmmzJOK19wwZdffnnXrl07duyADwtswFUBOy2t2C+Pr81x 1vD0MHJGR50wiNaSMZIENskl1/d1eCJjy2Erw4/T8wgbXMPrVRYnKbORpahG scEfpUaOcSilyPIs2lONaL1pHbPYbuLdHLhy87FWmE/hyWauH1zNlhYQyNQv RUPwEwPjWOPMA1T8TdxYlFULbXAuJIvrNCkWMbKlnaPYQzwzB1Ipo5Q5jF7C X5ZvWr9+/apVq1auXAkTsxBFj3nlNqV4zWyTbu1Z9ZJehAMBh2GE/uhHPzrU K75aBjfOjKC6S0a5jCwm1xuK1VA7qQzaJOWltLE0ifU6KGjVLtB4zPie3FXK zpftV7bvtmvjwubyZEoyj9VfzbEhXSRVKfCTaauVyQlatEL0aviVUqPSwACB RQA8WJtCvomriJnWhJ+JLrwFFAU4BtxYlnABL8U1Vbd2bKnL/aY30q317nzB hbSWn4p9pidY2dqx+dgobA04S6cyuXqasju4nJALQGjxReB9KgTPkG3eIcnO JI1Vdz53YoTf+aRsohsOAkMhL7eY2fGuWMaxbetTTz314osvsgYgSchLL730 zDPPkI0QPNqthr+ywxmkBTaeT+2g7fvsRn/mMJca5GZwoKMvvPDCLbfcsnr1 6ksvvRQOy+OPPw5PtopZ/jnwcFPrMiWf4aJsSo0qvU9O6ljTOh8bkiCxgU6D +VCJgDpyMgkP8pmpLaJ3r8Q5udusOsolLUZVJT6J923VDX1kgSy26UBrLAgg bNS9GM4oLWKFoCEFIIE1APEBUHnyySchF7w4vqTcuVE4j8EpjNsfjP2F+T3t rBcxrrq5TDJq6pPFVCwdx3Ab0Lvuugt6g54s6AfYKYXbxkLLiU2OSJR65bIb w+FkDcT0ve99jyUdKlubUFogqIn6ojOxMbHwqWMD3ULlNo6ypQQJNIMSqzRv MrUkkDpyyVwXye6PY4a3sqn2bw80j6E5Tnw+btqd7HPiqjd15VNYWUiMWcoa nzkzzv37tH8ri+ABSNwQVgSMeoaHERU4i5uJ87DFKMjgdkQuEtNQccokJltB OaA34K2cf/7527Zt27JlC4vLLaXi8K5+3XC0llbh64lw1ttvv/2v//qvP/zh D5dSmcdJmhwZ4mNzsMHPMpHjtLXlgQMH8KZeTIB3p5tAb4XJmWShngVB96ro FmN0vl3HfArl7mtbhIQlSz9+rVukxb9pLTCucEcWJ3GT5Hrjueee44Z9GPsA BlQHabaWLB3s7vnr66MFDw4frhzhdvP4y8tq0ZOMFOvKis4pSPLYY49dddVV a9asgd7YunUr6AceiZpBayodG/46TtfZCT/4wQ+4kkvrd8rYYF1CL2yHnfnY KCwITGxQ2TIhTX6fCtFQvmQddEhp17iyjD5vESuvFW6qehXAZIMmvZCR+yzZ RKrPqQkMbS8To5pVH6+JvdggPlgQqA7oigOpUU/OXM/l86d8WvaJVpkVESw9 aPv/8rOjgrqINcEWo0IpTsRj3HTTTcDGZZddtnHjRigQaBIyLq8jmmFjYqkO 8mohC5gSrlYoojZFHbnNjo3DctGxJSRMIpxLbGAI0FnIcl0am3DnN/gAYLzz zjtQYqwlyBlb6fYilr03kX1U2Upwp2oyx4tRFKVPGPpIEFR8HrYKn13AEGXl OwIbeE1aT05H8qesRpw0Kv1BPgyRT+EWMTklfSUrvBD7cbDCpLaTZrKB5tAB m507d1555ZWsIgjLsmnTJhxfxPKQmdhglzLworiWalmMbXG9/MSquxBDdvaw 2ODnPjYOddeVuOaf2uSpRPDP//zP8KZZ7oDrHHXZBduxjhqAMzKtpeephzUc Zpqb12IPYrlRmlgU3aptCYa6d5Q2lIdB2b17N94Rv6JXl3rr4Eor/8XmZMPN ymK3FoqeQRj2CwowZLwiPPv27YNZWbVqFVQH8wPBiqk3aqueoXGE6yjI2Viy 1sjqlmSttslWR4JsrlDhd+GXC7FRCHCOMQU1m1EXd5eIWHcPa5sXg7AADKgR KBOy5daqylDrat2HgOGZgWgOZsdPRoMVaHUPxftk0fbthSyo27mN+CS2qJPf R+Uw7i6id4RoIEvFHezuzeeuZdOdUeJPlCk+0NmhCcPj3XHHHaw1yrrW8Fa4 AzXpcZGSmhhNwhWgnF+zHbrLblz0vcMGngcOHUaWBmAfG2V37+/KIkXUzxjI UCD/8R//8Z//+Z//9m//hs80JYtpy2byeZJbfzaRjTrVhHnNNh+kAuFI0TR6 E6m5ZdDO2hIbCosqcOBTpSt4wlgHSZT0p/NM+dcjKy/ZpyKLvbThKvZxcAhx UIxSKhqzHVrbQQa6entqcFVuueWWm2++GU+LkYX3BRjIMBnFojvQ9KaB+uPi XWJj0ba85JcAKpQGqHIVFYyb3lSFqJ2HX6oI4zcx+QL68S//8i+Ax//8z/9A k5CHkA2K8rXdCXFpBk0WVN01F1lcZSbndFdlZNs6M6BHYqaJlYOxK9kklvU5 DGSdnSDJMxU7FSrUwwu9RtSxvDC6AtSdGVNEO7QEIAFSev311+/YsQM6BGhB B0L9/ig1lqtycthvxxAbZERF5MzzraFvYQHxt7K9I7MH6OtPHdZaBfIqMVXq wH9JDe+Iz6RM4mxqE8tBFVoyBSX+ma0pqLpNeizLIhCifMO7UezSBZ1Wd9vM a1YWK1js1V5rY2ZflImrgVhZCK/PRbtt5JXhJxakgilnBWNgA8bl0UcfxSlV Ny6hK2eiF2iPLTbkoRCTNHPspcJSbX3wekdlMbchu8/sIIwCkVWuYBV/K7r1 ewtLYPOYRmETFrqXzIqbXT4Dc5AoIDrah1I1OZ9PlBIrI61aJEGv5mGosWWD 4CL4W6UJXxW/wh1VnMTjeFSJTSQnKwhMPQl6zOjoueee+4UvfGHlypWAxyiq z41stVQG2tIm9Y4hNjSFx8viAcA0KCA6a/0nqaO0iD47NirLb29t+pvhUHYg BARgAB6Ayr//+7+TkOAzM5bJJZR7NuoWD1EkQU8+sQTLujuHUtse3E2EZxfS Fo3CxkJssLVke2076ty/Fn9QTExFFzMY+4Q+TYmYMNQy7l5EJQ1eDY8HXb15 8+YNGzacffbZZ555JuAB7iGi23SLhWYjtOqtdjzm2MCTgGzwdQjvepZfXEdy VN3znd0fL82R5CuUtoFvYZ4sIEG0QKX8c2rUKrTIWfiisg04HJlNJI0oLie/ CaOYhOe1WDup12m6tREWu/XfxCQba7XNv2d8Q9CSu0o1qB3qGbRn7JTRe0AC n2lf7rvvvrvvvnvFihXnnXfeZz7zGeiQPXv2cLT6xaexkXEmguqY8o0+Np59 9ll+30YJpqIbaK16PkVGmDVOy9hpd8n2Bs2MjsZ1HdVruVwRogQTA1TAUv41 NWgYOT74ngVFWeyFG3mwrBOlTEgADLgLNDYOxon/9V//hYsAePiv/CAlGtW2 ecrEpk3deKkHiijQwbmP2hK265gUoOcut53wYN9CgYDtQ+iw4PJk8cyMna5Z swZKgxt7QZOAe0xSUgTZch0bEDg8+vJ18jwHG2p+lpyUyiaU8abEhhvumdgY knXVTVgaR2GooeNdHbWRcQrBQWlA4gIABEqQyCnWl5Q185y1iq1KrJXGHReE Rvrv//7v//u///vf//1fwANwkt1RyJRgPmjbYQjkCgJLFmUEx7SFgUdl29iD TPEuxf2oTLSPxgup4QOuM0mzb4DK1Vdffeqpp37+85//7Gc/e1VqOIU4l7bs YyOTcibEo8AGhaLv8cysGHMk2CjN5OletS2X05E+6FzVOCxlgBRg1Ewc47Fk +7IX0+4668yrrWI7IXmaS6moFPBDUjHpzlLJWCza+gshVhzY/Ud+o0qD07RW Ilu+J9Wh/SJ5/NhWnPE6jNW3aQOCnTt3QmkAG8cffzx4KUwMSCmuLKnRpmSG bAgYbMvFxiiW8BcRBwM2nn/+eb9m1c06zmhPZlYI6UlsY1R1t2Coup5v//Eq i1H4K/jtPE/M51YyzaN19HSZpcEUAPGwVWHJ+Y720hbQSQMs2p5chU2sVJHD wDi2sqEYpxJE+ZBcG6g9znAML8VHxfBctWrV6aefDspxwgknnHLKKdAkfNo6 pebyfctZbeb3R4ENjYIi8oWo6zJs6ERdcCY21IqI/5eRxS1cZYxuCB71rCgW ZeQ5Zm03eYOxArIU8hCYEpgh/BU8Jmm+DKf7NJYIT2NRbt23tnk3Z0dsMhMc 9aQufBjOgqnwKYH6VjQtBFP/wKy0qYg9MHDDDTfAWznuuOOADbCOCy64gPoc 1yTCqwHamSkTyevosMEvx7GBIGcAM12UYUMkoQ8PqRqN0yaKcvSx0YeHIOSz bzqXUnstVlgrFb+JOhKKIwEhzGGQU1nbCuLCootu+Hgpd8Cb2D/IUwucWkwi AXscNXWnsQDEObZ4VJYfLk6Cc6l8RinZeO/evStXrvzc5z532mmnwbjAxHDi nlhajHWspRmRDBuZ9lsuNhwenCplVDnDRmVJXFXXn3VpNlHEQwNqHNvN+DEe eM9IrNuUzGEsg43Q26X/wqgI9xl8zeqOUrcQOa9bzWRfielrl3RrnxGedhdN vNYr5N7EuoZRFAQTpy0ipVw0QxTUw/JuqX1w4dY4AHYETOPMM8/84he/CLdl 69at5L1tSlPPXOkMGy6Ro8OGhg+xoVUbjo3GNkARNjyCkRkLOXSTmMhrbF5y CBsZMKa2rEnYaGLdOjNYaDK076RiF00si2CIEtpDTLK2jdfZz1VESKSXvDqu ot+tba/pAFiMiui0U1QLHPu8KV1XOimaeNVE/2K3NVHSc5I81i1btlx++eVn pwa9sWHDBni+uBrei3omw0YR1PFYYUMTiJwhpbfu2Ph/asYFQQ== "], {{0, 184}, {180, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", ImageResolution -> {72, 72}, Interleaving -> True, MetaInformation -> Association[ "Exif" -> Association[ "Software" -> "Created with the Wolfram Language : www.wolfram.com"]]], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{180, 184}, PlotRange->{{0, 180}, {0, 184}}], ",", "0"}], "]"}]], "Output", CellChangeTimes->{3.885017308486059*^9, 3.88502021191175*^9, 3.8850880538398952`*^9, 3.8850992208156476`*^9, 3.8851237855232058`*^9, 3.8851238712076836`*^9, 3.88512411055795*^9, 3.885124522038536*^9}, CellLabel->"Out[7]=",ExpressionUUID->"f15f920b-0df1-4191-b8e2-ab50124a31ff"] }, Open ]] }, Closed]] }, Open ]] }, WindowSize->{769, 735}, WindowMargins->{{-1367, Automatic}, {-77, Automatic}}, FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 593, 13, 130, "Section",ExpressionUUID->"145811fe-b433-429d-809b-5f45612b6804"], Cell[CellGroupData[{ Cell[1176, 37, 205, 4, 53, "Section",ExpressionUUID->"82b4b094-c2aa-4eef-a099-567a5e43b97b"], Cell[1384, 43, 209, 3, 28, "Input",ExpressionUUID->"04530f3f-1774-40c4-ac1e-25fe71de6d7a"], Cell[CellGroupData[{ Cell[1618, 50, 182, 3, 53, "Subsection",ExpressionUUID->"d8542b52-5ec4-4e56-ad9a-8fdfd5d4fb51"], Cell[1803, 55, 40692, 933, 2667, "Input",ExpressionUUID->"b1a34391-0924-4621-9877-b48ef5c0a9f5", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[42532, 993, 156, 3, 37, "Subsection",ExpressionUUID->"6dc8213f-4e18-4f13-a444-d68097bd3976"], Cell[42691, 998, 1163, 34, 67, "Input",ExpressionUUID->"38c53e31-d64f-415d-986a-002afe60ce28"] }, Closed]], Cell[CellGroupData[{ Cell[43891, 1037, 152, 3, 37, "Subsection",ExpressionUUID->"8b432cb0-3ad5-4c82-b2ad-4381134cbe0d"], Cell[44046, 1042, 2323, 62, 105, "Input",ExpressionUUID->"c1333eca-7766-42f7-9902-2aa53f3d4ae2"], Cell[CellGroupData[{ Cell[46394, 1108, 158, 3, 44, "Subsubsection",ExpressionUUID->"12818404-6142-41e2-88e6-a13ee0cd1246"], Cell[46555, 1113, 26946, 687, 1796, "Input",ExpressionUUID->"7654cff9-0388-4c4d-8ed7-a5733159a95a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[73550, 1806, 5189, 71, 53, "Subsection",ExpressionUUID->"8370571a-7bc2-4aa4-bc50-820b79c2e738"], Cell[78742, 1879, 10878, 253, 675, "Input",ExpressionUUID->"4316d7f9-eb17-4a08-ad8c-e282df4658c8"] }, Closed]], Cell[CellGroupData[{ Cell[89657, 2137, 581, 10, 59, "Subsection",ExpressionUUID->"cdf1f20f-0e9a-4502-9f35-161ddaa5ed23"], Cell[90241, 2149, 28014, 621, 1454, "Input",ExpressionUUID->"551cacdd-c971-462e-8f71-6621f9ddf8b3"] }, Closed]], Cell[CellGroupData[{ Cell[118292, 2775, 335, 5, 37, "Subsection",ExpressionUUID->"49f55a51-87a9-493b-ba14-b549c22afaf3"], Cell[118630, 2782, 58705, 1357, 2917, "Input",ExpressionUUID->"c4e2f0bc-957d-4df6-91c1-e524ce464bab"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[177384, 4145, 512, 8, 53, "Section",ExpressionUUID->"74d58a06-a2b3-45e8-9b0a-7d84cc53a716"], Cell[CellGroupData[{ Cell[177921, 4157, 273, 4, 44, "Subsubsection",ExpressionUUID->"ebeadac1-bb60-44cb-9e59-88dd61d94174"], Cell[CellGroupData[{ Cell[178219, 4165, 2652, 55, 143, "Input",ExpressionUUID->"963182e9-5524-4d1f-9618-cee29589e5ea"], Cell[180874, 4222, 12382, 205, 114, "Output",ExpressionUUID->"e6772cbe-8125-4daa-856d-a7cd3e31e053"], Cell[CellGroupData[{ Cell[193281, 4431, 659, 15, 41, "Print",ExpressionUUID->"8f5b8a1d-a161-4eaa-8125-05ad730fec6d"], Cell[193943, 4448, 1601, 45, 41, "Print",ExpressionUUID->"e5cc4583-52ad-4bf3-be37-27db2a31a1b3"], Cell[195547, 4495, 441, 13, 30, "Print",ExpressionUUID->"d1e421be-05f7-4245-8e2c-4113ae6cba1f"], Cell[195991, 4510, 657, 16, 22, "Print",ExpressionUUID->"5a5eb364-f41a-4639-865d-120f8a90fff9"], Cell[196651, 4528, 440, 13, 30, "Print",ExpressionUUID->"1fa364ab-d259-4d0d-889e-1deb7486337b"], Cell[197094, 4543, 428, 11, 22, "Print",ExpressionUUID->"83e3d631-be74-40dc-bef3-5848c1440078"], Cell[197525, 4556, 850, 18, 41, "Print",ExpressionUUID->"ba225dd6-f61c-488c-b622-f0b0da66ef75"], Cell[198378, 4576, 818, 17, 22, "Print",ExpressionUUID->"7a3e580d-625e-4088-b621-5ac01743e1fa"], Cell[199199, 4595, 11333, 198, 34, "Print",ExpressionUUID->"bb6431b5-1bb6-41d8-8dd2-4cbb2ff424b5"], Cell[210535, 4795, 270, 5, 22, "Print",ExpressionUUID->"f3d1df55-feba-48ca-8cd8-68a9698f0ae9"], Cell[210808, 4802, 1329, 28, 152, "Print",ExpressionUUID->"df434fbe-d3c1-40d9-a589-9001c2aa2b30"], Cell[212140, 4832, 1620, 45, 41, "Print",ExpressionUUID->"e114a33c-2cee-428e-ac3f-77ad4dbc9909"], Cell[213763, 4879, 538, 16, 30, "Print",ExpressionUUID->"fa794181-0806-4f34-85cd-edc579e09e77"], Cell[214304, 4897, 678, 16, 22, "Print",ExpressionUUID->"59a780db-f4d3-4e0f-8cbb-6e30f2e0d175"], Cell[214985, 4915, 536, 16, 30, "Print",ExpressionUUID->"d742d877-0254-4a49-9932-9407852a43f5"], Cell[215524, 4933, 449, 11, 22, "Print",ExpressionUUID->"99464da7-ff41-44b6-8676-d125ca9ff5f4"], Cell[215976, 4946, 894, 20, 41, "Print",ExpressionUUID->"ff4e6375-bfa0-4bfa-83fd-1c14c545e050"], Cell[216873, 4968, 821, 17, 22, "Print",ExpressionUUID->"39a6ea1f-b287-4281-bd3b-84161219242a"], Cell[217697, 4987, 11737, 206, 34, "Print",ExpressionUUID->"6620cf3f-f1f7-4c91-b9bb-d7258a548c5b"], Cell[229437, 5195, 270, 5, 22, "Print",ExpressionUUID->"002b4246-4730-4c46-a2fb-44c6d6c2046c"], Cell[229710, 5202, 1374, 29, 152, "Print",ExpressionUUID->"646d8b04-9bb1-4063-94f0-90558ba3b01d"], Cell[231087, 5233, 1640, 45, 41, "Print",ExpressionUUID->"47bdea61-0740-49ee-b53d-d3ab1221cee4"], Cell[232730, 5280, 631, 19, 30, "Print",ExpressionUUID->"f2134316-f348-4a8f-9001-ebb30c5a1d72"], Cell[233364, 5301, 703, 16, 22, "Print",ExpressionUUID->"1014edba-7400-41de-9a39-38dd11e666c0"], Cell[234070, 5319, 634, 19, 30, "Print",ExpressionUUID->"a3e6f42e-f1f1-498c-874c-157ce2b46ce1"], Cell[234707, 5340, 468, 11, 22, "Print",ExpressionUUID->"585d6e99-98f7-4ed6-9b88-a8df85cf7e79"], Cell[235178, 5353, 970, 20, 41, "Print",ExpressionUUID->"dd33462a-b929-400d-b8b9-1f0e1bf4f235"], Cell[236151, 5375, 822, 17, 22, "Print",ExpressionUUID->"7502aea9-d52f-4067-aa79-3891aa024b6d"], Cell[236976, 5394, 12166, 215, 34, "Print",ExpressionUUID->"0be9915e-f2f7-4e0a-83f7-781e8bf433bc"], Cell[249145, 5611, 268, 5, 22, "Print",ExpressionUUID->"d1be17c3-3e87-4c81-81c2-a88375ac4e1e"], Cell[249416, 5618, 1329, 28, 152, "Print",ExpressionUUID->"acf392c9-c66b-42d2-a5aa-399709854ed4"], Cell[250748, 5648, 1673, 46, 41, "Print",ExpressionUUID->"cd836312-ebd8-4052-9d97-aafa650543ae"], Cell[252424, 5696, 729, 22, 30, "Print",ExpressionUUID->"8900eed7-8b24-4c83-8d63-0f92cb82f87c"], Cell[253156, 5720, 726, 17, 22, "Print",ExpressionUUID->"5b3d1156-5e30-4a3b-a00e-a11d467821eb"], Cell[253885, 5739, 730, 22, 30, "Print",ExpressionUUID->"47fbfd96-baca-4c13-8160-8441a50bf1df"], Cell[254618, 5763, 490, 12, 22, "Print",ExpressionUUID->"3c6edcba-a6c4-4ad8-9e37-06debbdeb4c8"], Cell[255111, 5777, 936, 20, 41, "Print",ExpressionUUID->"273b75a0-0ade-4519-b0fa-a54c6e5746c7"], Cell[256050, 5799, 821, 17, 22, "Print",ExpressionUUID->"98375658-8784-40ac-80b1-76b90f91a217"], Cell[256874, 5818, 12684, 225, 34, "Print",ExpressionUUID->"f7c8fccf-9e48-4b4e-b86f-bb8b132fe76e"], Cell[269561, 6045, 270, 5, 22, "Print",ExpressionUUID->"8aa11fa4-47e6-4306-b44c-830db948fe72"], Cell[269834, 6052, 1358, 29, 152, "Print",ExpressionUUID->"5a469d17-7483-4066-9246-7ec43701c957"], Cell[271195, 6083, 1725, 46, 41, "Print",ExpressionUUID->"eeef57ea-6adc-4149-b41c-20697d519494"], Cell[272923, 6131, 824, 25, 30, "Print",ExpressionUUID->"cd19c9b0-80f1-4436-8c7c-fa3bb7747ee2"], Cell[273750, 6158, 780, 17, 22, "Print",ExpressionUUID->"546c3e42-4264-40c0-908f-74101a4b16b7"], Cell[274533, 6177, 828, 25, 30, "Print",ExpressionUUID->"06241e60-f3c2-473d-93b3-2f523f9c004f"], Cell[275364, 6204, 512, 13, 22, "Print",ExpressionUUID->"440db750-f530-47e1-a106-9a5cc672753b"], Cell[275879, 6219, 998, 21, 41, "Print",ExpressionUUID->"8b32c5ec-7855-4051-8ea2-4c02b64ad3d4"], Cell[276880, 6242, 816, 17, 22, "Print",ExpressionUUID->"4b28d799-c93e-4b3a-8f29-64aefa061b27"], Cell[277699, 6261, 13223, 235, 34, "Print",ExpressionUUID->"eee41143-6800-4877-9522-8266579004d1"], Cell[290925, 6498, 270, 5, 22, "Print",ExpressionUUID->"153617c6-d608-43d1-815b-91a61889d3e0"], Cell[291198, 6505, 1374, 29, 152, "Print",ExpressionUUID->"b6b0a051-df10-4df4-9f8e-ed625a998fdb"], Cell[292575, 6536, 2147, 44, 95, "Print",ExpressionUUID->"b773b6d6-b98b-40b4-a0e2-cf444d935c42"], Cell[294725, 6582, 8658, 198, 105, "Print",ExpressionUUID->"9d965ff0-3fcb-46da-a4b3-26bcd95e2b05"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[303432, 6786, 4364, 121, 257, "Input",ExpressionUUID->"06a398aa-17e7-4308-a08e-5a6aa47ee7b3"], Cell[307799, 6909, 2331, 54, 122, "Output",ExpressionUUID->"86b1713e-0d0a-4120-97df-a0d109c53733"], Cell[310133, 6965, 2364, 54, 101, "Output",ExpressionUUID->"1a446b45-ed88-4170-a996-42922285e37d"], Cell[312500, 7021, 2347, 54, 111, "Output",ExpressionUUID->"e1adcd52-6d56-4cbb-9eef-07e8d2f7482e"], Cell[314850, 7077, 2342, 54, 144, "Output",ExpressionUUID->"3b3d641a-4cc1-4aee-a6f7-c8c62dd97b64"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[317241, 7137, 445, 10, 86, "Subsubsection",ExpressionUUID->"ecf14a23-c5e6-4348-b55a-192e759ef4ae"], Cell[CellGroupData[{ Cell[317711, 7151, 4060, 75, 105, "Input",ExpressionUUID->"9b5cd107-e765-4cf7-a8fb-87c7f173867f", InitializationGroup->True], Cell[321774, 7228, 32858, 544, 70, "Output",ExpressionUUID->"6e5f288d-d4d4-40f3-bd16-dca60a5cbca5"], Cell[354635, 7774, 32924, 546, 70, "Output",ExpressionUUID->"f15f920b-0df1-4191-b8e2-ab50124a31ff"] }, Open ]] }, Closed]] }, Open ]] } ] *)