(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 99213, 2162] NotebookOptionsPosition[ 98207, 2127] NotebookOutlinePosition[ 98553, 2142] CellTagsIndexPosition[ 98510, 2139] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Test-Example~9.8: 3 very elongated clusters ", FontColor->RGBColor[1, 0, 0]]], "Section", CellChangeTimes->{{3.5861419875297704`*^9, 3.5861419976873884`*^9}, { 3.5866493144203615`*^9, 3.586649323782378*^9}, {3.586653229602487*^9, 3.5866532369355*^9}, {3.587901681219124*^9, 3.587901683465528*^9}, { 3.5879017693274794`*^9, 3.58790176959268*^9}, {3.806409773648491*^9, 3.806409776463213*^9}, 3.8064685894786506`*^9, {3.806755712880254*^9, 3.8067557177228513`*^9}, 3.8070633354795494`*^9, {3.8108663058090663`*^9, 3.8108663151112022`*^9}, {3.8222847222827578`*^9, 3.8222847883540955`*^9}},ExpressionUUID->"d12e0378-c030-425d-86e7-\ 5cc4bba9720a"], Cell[TextData[{ StyleBox["Submodules:", FontColor->RGBColor[1, 0, 0]], StyleBox[" MWKMeans[], MWF[], MWFmin[], Rand[], Hdist[], dM[], DIRECT[];\n", FontColor->RGBColor[0, 0, 1]], StyleBox["Output:", FontColor->RGBColor[1, 0, 0]], StyleBox[" data set, optimal partition, Rand and Jaccard index, confusion \ matrix;", FontColor->RGBColor[0, 0, 1]], "\n" }], "Text", CellChangeTimes->{{3.82227834221424*^9, 3.8222783524462333`*^9}, { 3.8222784104827623`*^9, 3.82227842074755*^9}, {3.8222784565826235`*^9, 3.8222784653253345`*^9}, {3.822278498707911*^9, 3.822278529865548*^9}, { 3.822284112350048*^9, 3.82228412133753*^9}, {3.822284161107955*^9, 3.8222841834356327`*^9}, {3.8222843051277027`*^9, 3.822284334640764*^9}, { 3.8223159368854256`*^9, 3.822315955322501*^9}}, FontSize->12, ExpressionUUID -> "ee303e3b-3358-45fe-8974-09e8a70d63b6"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"SeedRandom", "[", "33", "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m0", "=", "100"}], ";", " ", RowBox[{"k", "=", "3"}], ";", " ", RowBox[{"m", "=", RowBox[{"k", " ", "m0"}]}], ";", " ", RowBox[{"n", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CC", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "6"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slC", "=", RowBox[{"ListPlot", "[", RowBox[{"CC", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", ".8", "]"}], ",", RowBox[{"PointSize", "[", ".025", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cov", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{".4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "8."}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", ".6"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", ".05"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z0", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "9"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slz0", "=", RowBox[{"ListPlot", "[", RowBox[{"z0", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", ".7", "]"}], ",", RowBox[{"PointSize", "[", ".025", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PI0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"MultinormalDistribution", "[", RowBox[{ RowBox[{"CC", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"cov", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", "m0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\t\t\t\t\t\t\t", RowBox[{"(*", " ", "Execution", " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"A", "=", RowBox[{"Flatten", "[", RowBox[{"PI0", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"w", "=", RowBox[{"Table", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"xG", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Min", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], "-", ".5"}], ",", RowBox[{ RowBox[{"Max", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], "+", ".5"}]}], "}"}]}], ";", RowBox[{"yG", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Min", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "-", ".5"}], ",", RowBox[{ RowBox[{"Max", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "+", ".5"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cc", "=", RowBox[{"Mean", "[", RowBox[{"WeightedData", "[", RowBox[{"A", ",", "w"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slPI0", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"PI0", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", RowBox[{"j", "/", "k"}], "]"}], ",", RowBox[{"PointSize", "[", ".015", "]"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"xG", ",", "yG"}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"sldata", "=", RowBox[{"Show", "[", RowBox[{"slPI0", ",", "slC", ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"slA", "=", RowBox[{"ListPlot", "[", RowBox[{"A", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"PointSize", "[", ".015", "]"}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sl2", "=", RowBox[{"Show", "[", RowBox[{"slz0", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"PI0", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"PointSize", "[", ".01", "]"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"k", "-", "menas"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol1", "=", RowBox[{"Timing", "[", RowBox[{"MWKMeans", "[", RowBox[{"w", ",", "A", ",", "z0"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\<\\nTime = \>\"", ",", RowBox[{"sol1", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";", " ", RowBox[{"sol", "=", RowBox[{"sol1", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", "4", "]"}], "]"}], ",", "\"\<: MWF = \>\"", ",", RowBox[{"MWF", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "\"\<; MWFmin = \>\"", ",", RowBox[{"MWFmin", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "\"\<; mj: \>\"", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "j"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\t\t\t\t\t\t\t\t", RowBox[{"(*", " ", "FIGURE", " ", "*)"}], "\t"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slc", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"PointSize", "[", ".02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slPI", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "j", ",", "All", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", ".01", "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Hue", "[", RowBox[{"j", "/", "k"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{ RowBox[{"PI1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Union", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "j", ",", "All", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], FontColor->RGBColor[0.5, 0, 0.5]], "\t\t\t\t\t\t"}], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"eig", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigensystem", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"3", ",", "j"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";"}], FontColor->GrayLevel[0]], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"slvec", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";"}], FontColor->RGBColor[1, 0.5, 0]], "\[IndentingNewLine]", RowBox[{ RowBox[{ StyleBox["Do", FontColor->RGBColor[1, 0.5, 0]], StyleBox["[", FontColor->RGBColor[1, 0.5, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0.5, 0]], RowBox[{ RowBox[{ StyleBox[ RowBox[{"slvec", "[", RowBox[{"[", "j", "]"}], "]"}], FontColor->RGBColor[1, 0.5, 0]], StyleBox["=", FontColor->RGBColor[1, 0.5, 0]], RowBox[{ StyleBox["Graphics", FontColor->RGBColor[1, 0.5, 0]], StyleBox["[", FontColor->RGBColor[1, 0.5, 0]], RowBox[{ StyleBox["{", FontColor->RGBColor[1, 0.5, 0]], RowBox[{ StyleBox["Gray", FontColor->RGBColor[1, 0.5, 0]], StyleBox[",", FontColor->RGBColor[1, 0.5, 0]], RowBox[{ StyleBox["{", FontColor->RGBColor[1, 0.5, 0]], RowBox[{ StyleBox[ RowBox[{"Arrowheads", "[", "Small", "]"}], FontColor->RGBColor[1, 0.5, 0]], StyleBox[",", FontColor->RGBColor[1, 0.5, 0]], StyleBox[ RowBox[{"Thickness", "[", ".008", "]"}], FontColor->RGBColor[1, 0.5, 0]], StyleBox[",", FontColor->RGBColor[1, 0.5, 0]], RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "j"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "j"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"eig", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "1"}], "]"}], "]"}], " ", RowBox[{"eig", "[", RowBox[{"[", RowBox[{"j", ",", "2", ",", "1"}], "]"}], "]"}]}]}]}], "}"}], "]"}], ",", " ", RowBox[{"Arrowheads", "[", "Small", "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "j"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "j"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"eig", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "2"}], "]"}], "]"}], RowBox[{"eig", "[", RowBox[{"[", RowBox[{"j", ",", "2", ",", "2"}], "]"}], "]"}]}]}]}], "}"}], "]"}]}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", ",", StyleBox[ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], FontColor->RGBColor[1, 0.5, 0]]}], StyleBox["]", FontColor->RGBColor[1, 0.5, 0]]}], StyleBox[";", FontColor->RGBColor[1, 0.5, 0]]}], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mj", "=", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "j"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tab", "=", RowBox[{"Sort", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"dM", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "j"}], "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "j", ",", "s", ",", "2"}], "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"3", ",", "j"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "mj"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rad", "=", RowBox[{"tab", "[", RowBox[{"[", RowBox[{"Ceiling", "[", RowBox[{"95", RowBox[{"mj", "/", "100"}]}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"slcon", "[", "j", "]"}], "=", RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ RowBox[{"dM", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"2", ",", "j"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"3", ",", "j"}], "]"}], "]"}]}], "]"}], "\[Equal]", "rad"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"xG", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"xG", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"yG", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"yG", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], ";"}], FontColor->GrayLevel[0]], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"sl", "=", RowBox[{"Show", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"slcon", "[", "j", "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], "]"}]}], ";"}], FontColor->GrayLevel[0]], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"sl3", "=", RowBox[{"Show", "[", RowBox[{"slPI", ",", "sl", ",", "slc", ",", "slvec", ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}], ";"}], FontColor->GrayLevel[0]], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"sldata", ",", "sl3"}], "}"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], "]"}], "\[IndentingNewLine]", "\t\t\t\t\t", StyleBox[ RowBox[{"(*", " ", "COMPARISON", " ", "*)"}], FontColor->RGBColor[0.5, 0, 0.5]]}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "CC"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\<\\nInitial Covariance Matrices:\\n\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"cov", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\<\\nCovariance Matrices:\>\"", "]"}], "\[IndentingNewLine]", StyleBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"sol", "[", RowBox[{"[", RowBox[{"3", ",", "j"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], FontColor->RGBColor[1, 0.5, 0]], "\[IndentingNewLine]", RowBox[{ RowBox[{"rnd", "=", RowBox[{"Rand", "[", RowBox[{"PI0", ",", "PI1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"rnd", "[", RowBox[{"[", "3", "]"}], "]"}], "//", "MatrixForm"}], ",", "\"\<; Rand-Jacard index: \>\"", ",", RowBox[{"{", RowBox[{ RowBox[{"rnd", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"rnd", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.586653315716039*^9, 3.586653431460044*^9}, { 3.586653537098231*^9, 3.5866535456334457`*^9}, {3.5866535850627155`*^9, 3.5866535890105224`*^9}, {3.5866537602392254`*^9, 3.5866537942012854`*^9}, {3.586654056324765*^9, 3.5866540567615657`*^9}, { 3.5866541190860763`*^9, 3.586654149800332*^9}, {3.5866544949303417`*^9, 3.5866545465920334`*^9}, {3.586654590642312*^9, 3.5866546671754475`*^9}, { 3.5866547275479546`*^9, 3.586654742573781*^9}, {3.5866547785232444`*^9, 3.5866548170009127`*^9}, {3.586654933719119*^9, 3.586654938726728*^9}, { 3.5878913866842227`*^9, 3.5878914043464537`*^9}, {3.5878924899607754`*^9, 3.587892497591189*^9}, {3.5878925787263317`*^9, 3.5878926119915905`*^9}, 3.587897468631463*^9, {3.587897554002615*^9, 3.5878975736148496`*^9}, { 3.5879576298221602`*^9, 3.5879577659744015`*^9}, {3.587958172776523*^9, 3.5879581857577457`*^9}, {3.5879583069949603`*^9, 3.5879583076189613`*^9}, 3.5880381536914186`*^9, 3.588038802578968*^9, {3.588655981084547*^9, 3.5886560520458736`*^9}, {3.5886562690320597`*^9, 3.588656296498109*^9}, 3.5916287638293123`*^9, 3.5916288532604475`*^9, {3.591660879935319*^9, 3.5916608803353195`*^9}, {3.5916614337731543`*^9, 3.5916615515813313`*^9}, {3.591662003599015*^9, 3.591662004179016*^9}, 3.5916624745527277`*^9, {3.5916626482779884`*^9, 3.591662653207996*^9}, { 3.591663222079853*^9, 3.591663237872876*^9}, {3.5916633676930714`*^9, 3.591663368113073*^9}, {3.591663782005709*^9, 3.591663794808728*^9}, { 3.5916651849598274`*^9, 3.5916651888598337`*^9}, {3.591667281301*^9, 3.591667281991001*^9}, {3.591667334738081*^9, 3.5916673919201665`*^9}, 3.5916674938853197`*^9, {3.5916681802883606`*^9, 3.591668195868384*^9}, { 3.591668330468588*^9, 3.591668330928589*^9}, {3.591668619338022*^9, 3.5916687054151525`*^9}, {3.591885862431954*^9, 3.5918858865613346`*^9}, { 3.592185282097045*^9, 3.592185298789071*^9}, {3.5921903275186896`*^9, 3.5921903336196985`*^9}, 3.592190701490243*^9, 3.592261382113063*^9, 3.5922672763329754`*^9, {3.8055928837903194`*^9, 3.8055928847766027`*^9}, 3.8055932523693624`*^9, {3.805594464689146*^9, 3.805594466261752*^9}, { 3.805594547501693*^9, 3.805594551000722*^9}, {3.8055949712989707`*^9, 3.805594990953287*^9}, {3.805595054415868*^9, 3.80559507393316*^9}, { 3.8055951524403553`*^9, 3.805595169849341*^9}, {3.8055952022355976`*^9, 3.8055952958119445`*^9}, {3.8055953621856437`*^9, 3.805595362786484*^9}, { 3.806468104282979*^9, 3.806468178808792*^9}, {3.8064682642037935`*^9, 3.806468285145581*^9}, {3.806468327543151*^9, 3.8064683303828735`*^9}, 3.806468577788741*^9, {3.8067239575878754`*^9, 3.8067239614589167`*^9}, { 3.806928736433709*^9, 3.80692873989186*^9}, 3.8069289804427414`*^9, { 3.8069290747644606`*^9, 3.806929079362509*^9}, {3.8070625325232706`*^9, 3.8070626059454184`*^9}, {3.80706302437234*^9, 3.8070631502086477`*^9}, { 3.807063252809925*^9, 3.807063267195675*^9}, 3.807077085890875*^9, 3.807077118260154*^9, {3.8070771570215697`*^9, 3.807077166655207*^9}, { 3.807100269964244*^9, 3.8071002731947727`*^9}, {3.810731285538279*^9, 3.8107312884257083`*^9}, {3.813127214648337*^9, 3.8131272176874266`*^9}, 3.821960940349948*^9, {3.822283635301977*^9, 3.822283839312128*^9}, 3.822283891139806*^9, 3.8222839329584427`*^9, {3.8222848711209264`*^9, 3.822285012356138*^9}}, ExpressionUUID -> "3468d096-6dae-473d-bb29-4c8e19b40faf"], Cell[BoxData[ GraphicsBox[{{{{}, { {Hue[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], PointSize[0.015], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlHs81IkCxcWOYV5+v994TGrEeK1HyHVXHtscbbTKXtUaZVOKKZmp1W7S k7pEHtEmaddHjZG66OM9CskreYVW2SI2i3BvKo8QeV37x/mcf8/n8z3nGPgH 7zigrKSkJF7W3/6oOWkm+Zk6dv7+8cKsmwZGkgfLbmZwUH/y3cLRbRROzbeq WzmwcO/Gokvv+Ero2TXyfUvU8TBrdLXyNA/2KW8VpgNMRBqOSM8FroJBC7/8 6f8IWMq0tPdsJ9Buphoy9YqD3k6K0vfTxcENT9KGHSko04yrc1oJOJ/1Ts+6 wwL98skE8QMl3A7k2R4eINEmfV+YUciD2P/JfF45iYjT03YlP+rC5EyoS3a5 Bjb8KrPwf7wKY0Vbd8RIWDjWMrjqfSoHZrsc9vseIeD58kUBujRQOL21wtSB xOeU140v1o8Jr/w+FFagwoRis9LeJdoahJZL+vflaqIoOMms898sXLKPzHxt w8VFPjPDcMoA9q0ee5tKKWxVTP9DOk9gI9vBvqmBiVwf0vblHh7eu3bEv0kj sNN7k7tIh4YJs5E/Rm+RSHYxTz65joD/7bjUP4YoZPwcnJd6nwA3XCBOGGZC prdNkL2Bwq7MbSaNswRUPGNl42d14fBDNYvmROHsEZ939TuN0D3l6ta6ngJ1 MytNFj0nFHgdXDkvZ+GOZs1Ox5ZFYSQt4AH9E4mwbyX50bUU4kOkbT0DHIyL zjzdd3U1oDhTGuZOwOvN4JhsggayOWhB2YqznKvw4RMLPm5Pk1obI9mw736r HG9EQ+L3AzGuh5gQnShS53muQXFZ/D3tUQKa0/d/TDswU9V0scuSp02HTa8f S3pAFbZ+PK5ShQaeG2XHigS62Ki6ayqki0B9X2Tzzw91IA5pOXarhIYvix2W ZsfGq776tpy3+R6JkIjK7UbF2ijapTrsFqIO04bVDRIPNTg///TO+RQL1b89 8HugVSHk11qr2nWxIS+ZrXa8ro87gYm/gUaDec2YY785H6+HnjjdCFbDqhWC uMprOlh/7n6qYoqNPDnZN6LPxDclpSMHZCS+ClJ3qfxiUThnNCGXLHMsyP2T 3XClR5gwVh3l3aaGmUhLa6/MUeHHxA+BgxFMcCJehaczKJiTNv0mMhYqyvtO +fRqI896zCzoLybCfFtyLApYqGff9naP0kKK4wdFKVsZXloCmk0HAVa5xWnn dgqZ5rbldDUC3r5+wy+c+UDNjVHjShbexsQ+G0qkEMCT7A+YIDE000RumJgT TkyWrdBUkFAauBbwWau+ynBBPBEupUCopPpcKpgUTqhcTKs7R6F1s3mV0XUu WrKKQysLKFyI2bKlS8SE2kBy01IcAwNH4zsD9q/EiM43TPo7Luo3p59c50VB 87goeq1MEx9oPzGciknQTgx6ev603J9MhluCLRPbDS1UyibVwOiJ960M1UX1 9wfz/8zngr4lZvJTFA9WO9TKBIUE5gTGgz6P9NDYcPWKHbW818SihZQBfeQ/ Xhtp/R0JQWO+9rNqNiyT/JO6VbhwzW2Vd2YZYJ1721Vpugo+fx178ZmePrSl +eEedSyURl9+c7fkszDI+hGpabnM50NGj0/1uHDL+gonm2wmTiv65M366vhF ln6Jfp4FzoXrWTFP+dhz978uJiUc2Ni2NhTkDVcltf2TSf5KwkDEZ9OVaai9 ufvj1vME+gOZ3Cr5GoRPpRrXJRBYsDHYp7P8U+bdQUWTy/tSmHd+fbdWF7tf eBg68rmwibHTjko2xKWhgya07Rx09aS0u5VowvQHxXGSQUfYa0VHCqEMQc7g rZemJPrOdbQfPqSK2Iwo9eNQA0d8eO7xoZV4KKlTtT7CgE1+kvvumgFhiGH0 jLRx+UeWmk2y4paEmYxgrUQJiVvG0a6559lwUuPKnV5pQJzukpTSxIBVTZxw zSIFqy8v1/aLNRG6dkZ+8wsSec5Fnb1hBtiXfvaC2ScCESJipG7tCnRbyD16 9TWwerHZv4qlglrF29NHWQQ2jZ4wPSEyQQ5d0p4dTsGN7Jiyu8bH3tlr/7li zoYeQXPStdTGJtfe+8e+44AzOFM/qsXDL8Uf//X8LxUIK/1UTzkpoe55juxw AYmR+cE9jBk+/g8ria97 "]]}, { {Hue[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], PointSize[0.015], AbsoluteThickness[1.6]}, {}}, { {Hue[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], PointSize[0.015], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, {{}, { {Hue[ NCache[ Rational[2, 3], 0.6666666666666666], 1, 1], PointSize[0.015], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVk304FAgex2cSmWHGvKAZY95rpiacl6uZ0tx8B2kV1cpruZCX6npBi90o s1J52aJOVm9bKnHbtEW0WuXlubBho4RrZUleTlEa8lp2bu6P7/P78/vyfH7C nTG+UQsIBEKkQf+/sw+LvebNhTjSGdF6cTcTlMp7bK5eAme9vCNGzsZo4v6t OXEslLRHOWvOk9Be15G3d7kYhQO5fTxvS/hlSgf9NCKMRaQGu5xh4Cj/XbFK LcCeo196yk/RcEwpGxHYCLHs5BCrIIaKUdvK+rOuAhz1DHe/akqF/72Ygz16 LixTMk61dFPRnjtasuEZBwL/AvvvG80RUlQV7ERajIcFyz8+yF2AOsJWryhz Kxwp9IlIMjFC9eMtVb3hYuzetSN5oT0Tyj1l9hEkAZ7ebGDpPlORa+owVtYv QIblZ79bxy3wXEI4eDeAhzeNZzUN8RR8pdpRp1DzkZwzME0wIcO4d37xpZ9s cGYkZVbpugjarKqOniUi7Em4dXrgPh0Oh23zMuUCsLOdPWI66SghizeldYuR UH/5bmE8Ey+Zyv70Fh5cAqIVYUFUmMVeUYkkIpya1Ka25tOQ3mbxJNuPjVqz E+b8N6a4+WQw0N6JBUK6lMQ/uAjH6thVbnIRkjaok5w2MVC7KC6GOM7Dy+Lx psJEC6yf/cL/LUuEfQEkl5NWdBSNeM5ZuwjQ86BxxS8SOr7X3Qgg1rExxMRc yAELFN/0XaMqF2JTqluoOoqBfP90ZegFHroOKUl3P5ojXrZhzZ3XbKz025cS RCHDI7JMn57Ax1mJlzaui4Jtk395wKdbw+bZk3NlrWQEeX4l2b9FBFXj1uHg HxkYHp753W5IjKukniFRNgOfKxs+3ucLYZx4XRLYTcN3My5F/zktwGPpi6by ARoWR+46kDnMRfUut4WfMyyQx+GXlsLAg983aVUbGUgh/qwwLedA6Tve7thF wqeqX+XuYSI4vJm2dWVa4oPWQ6eLt0XcvXct19U0zKSnKvr9RXBLKzfti6Zh QPLC1+eWGIT32W9Ksizx9tx0RMMVS9jtf6WTrTRCjokmx3iKCyFj40jnCypW fTF647LBPzZrHTwzzNF5aKVK9Q0bmshml4L3i3BmbXvxxD/5GL7k2jf93ALt 12OHLoRycENeOremgwyF7aecfckG/4iJ6N5pBoyJvSfeV/JRccSvOtXQX0N+ 7b6zSIi2f62z1W4z9Htf8GjziBibj+1YtvNPOs5FKbqXP+bDs5E/Yy+iYu/Y pVeHDPvFP0s49uU4HbHkwd7z0wJ8WNXP+LWLji3/ZSTfmeJguCHExsqOCn3H P26/Uwghv3G5ixhOhfcvU9yKH3gozJU2GoVYoC0g8Q/qbREawlSfyuIYGDm+ ROmUZ/jPqbnSmNt09NbXzAfl8RDJDv66xsccm6o3bO+Yt0XP07CwO/lkfHq0 3z6zhAtKRXNjnZAG6ddL/J2bWLiyKry7J9cMU4Pa+sOjAkjnJwkOKQbe0jpU bfkcsMRnZBcCaVgn85I21/Lgbs9bSu2lwCHJTFv/WowjszXj7s2WyDw1lf1M JkBfDm8HdzcNTT6pyclSIdpvpbwaABPhg2b1Cyu5IFbXevvO0iHg5LjMj/Ew s8vRzy6Qguaf/gwJDOTCfKmTQm3gT/UHPcnbWAAH2YTU+qE5OnzputVeHJx8 Pn2XKDHBuMyM7K22RtbFla79+4zx1zRmBaGABua1okfriQvQzv7WaGuvNRxu t85lJZNw9bn36po4EeYOt33nDQayYlckVv9bCLdJTS30NIzdq/N8OcwHN7ht 9K2OioQfrgWGvRDinCxVSS1iwObp37YXHeQjeiJPuHGtIe/msevnJ2yguW/V sNqQx6TmVZOeYIkW0beNTZNkHNAmhtuZciDd2VdupDCFa+tv8td7Bbjqto0Y 9HcaxH0e7XqeGBVSCifE0QoDdlHqWqoQH645Vl3W0UA87pJf9bsQe9e3FN10 pGNqypQ48psElay1KzxOsJB6uidilihCqya6oDPdAhcFJrTaHD76nH1itMto UM6Xrg69KMKd5RluTSomhGLXPMelXNj/rN8uOETBj+MntR8NvAeqV4SG6Rj4 H+0boco= "]]}, { {Hue[ NCache[ Rational[2, 3], 0.6666666666666666], 1, 1], PointSize[0.015], AbsoluteThickness[1.6]}, {}}, { {Hue[ NCache[ Rational[2, 3], 0.6666666666666666], 1, 1], PointSize[0.015], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, {{}, { {Hue[1, 1, 1], PointSize[0.015], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlHs4FPgexqeyJRJh5vcbMzIzzLhLIpddvFtNKGVdhtoLlcsS63ZIdXpQ TYQplUsn0qzsKrbWYmNMKZvaOknZwrqdE0tFKKFV63J2zh/v8/33fb7P5/3w 98T5hS9mMBhhqvz/LrvNiy9zMYVszXlRQz9FJeU+0PrRAMbjm8u3biUI32Tz vCdTD1vEZzRi2WyYFlcc/j3dEAEhssAvDhJ4Xvvv4yfORhhfYjxcnEmgvPqs VOu9CK/sLSY7T1As5Fg6ZOVwsVxk07n9AQuzxV6NfHc+1kc2i8s3UbjKvW5p KIUY02Qlb7MnWD9+025tlQWKLzTuzXSl8LVqlMV+ZIboJRVHtOUsZC71ddJL MYWFxMD78AmCf7al2awqFIB9TqfnlDUFQ3303YQ1BzuHPnLxCqMwOH0k95gn E3EDukVZCyxY6Bx/7eiiD8XJC5NPFCyEHjijHd4hQtWHhe5BQmGTOV/7g6sA aS1JulUJFNE6dRzFYlNoe9V7pndQ0GanMomQD5/dn8W9SSKYtT5e7avJRdQ+ jn8+CMaKoqaWm5siZut5n7k8it5kS/VgIwEWz01/elqTIHLHsxdTlmbI9O+5 7jFNEBUb6vOrQA9B9lWTWRMUvGqtoaSLXKjb9C+duUGRukLxvnGbELe6Yhcq qwnqAtVi8mrUEOYWLKxgEFwTlEx51pgiKuB6im8eCy5r5pg3bAVQ3+faYVxB kVByUlnZp4/6+y2dTXI2ZuZXGVU8F+CbS+8WKjdSDA83K9PuCHHo4uuB+CsE Zl0FymVntJHs9XijcwZBenfkob5bXe4H2jccqDWk2LUtO7fvoRYivv/H5dt2 FMUewr4jbCHW2/btltwnGJUkt0UkCpFmpL9/10uKF2sTfqt6oQ8X6YiyUMVP revYn55dOkh2lr7xv67iZcEp7/fNBuDNb+51rCOw3avmFBDPR5jE1mF2C4Hu fQcrl0kh/nfWq3GogYV10V/NnNTk4bs+C+Xubyki1gdtsrujhxtF2V1b5ATb s96RzhAOpIs+NLzsZKEsU985pIILPY3m0ZwiAp343KUlfAtsG7z4pvzfFC+9 7j1eo2WKGkZrRulTFjTN6zODrfTAEt8dKHWm8Bt9u5/pQzBs31zg+4gF+3PW oR7fcWF4sL2nN57g0YUEN700Y0TLf9oZ00FgNKm0UYTwsOiPh9sDlxNEP3qa voFljEkZ/SWolqKLBrWLlwsRknjew96cwiF4JfSumIAZVtZy9yyBiYnT07uz 69CfZvm9CYdCbsz85nC0KRhXVnCKzhBMDcXlpehZw6NrX9dWCRs9ozX2DUd1 scFqZfeYqk8h52rMwiomwnY0/JVWSHCWCgLDh/iImMvuGPoXgbSu7LemGRGO DoxYGZhS9Pw8t1r7KROX/U9vfD/LBq8yZrztkRD7Qz/ltNRT5GdLE+0+N0Zc sz03UuUHy3Xzbld7hWjdeCojz4sgq3paye3nIX2mNH+ggMDyuN0n4gcCSG3M v9IoZ2Hluya/H9Os4DYQJLiXyMJehc/YsVQLGLpLu5feoph0nMq/n2CE+NRf RityCZY5qhftlOijWTE7w3CkCDMSBzpkGCN1dTzJHWdBJnKpPqRmhpjBj8du 7lHxeMmj4LnnGuz4szVj13ECMfPZkxQZH5+IieLzbAJr2fTpJE8R6k1yzunu JFAEMiPNvUUYee03Pfq16r+HGmpPpBtBxknSclPt37OV7Z2TaojKyrfTX6pR rORYjzU+ZKL+51enLjVRaFa7FpuF8bC/5q/LhuUUFkfClMPThui3j7idy6MI b1HmSMe46NOcvWMzwcJcZ0qZuJWH+S9PZoT0slCy+ElvQIkJEuLffyidpGi7 GT6eHWyOqGSOzJ2yMf9Hn5+T1Azdm49tKb5H0LbCeCF1rSEYC5Yj3mZshJZ+ rWHxmRBv2o/uLVL5LSW/8fyeZQK8jU462KRFIJf775Fm6qN3RCD3OEtxhfOF 0698Ab4NfZt42JmNtgijJcoPZvh4/tq+gwKCV0nSCRFXiEL3CclgHUV/O4Md e301xtJPWUer9trZ85+2Rd76iF17WTKYTqHRHeD4+JrKW7bnCuQ9FH8Dviyj Fg== "]]}, { {Hue[1, 1, 1], PointSize[0.015], AbsoluteThickness[1.6]}, {}}, { {Hue[1, 1, 1], PointSize[0.015], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}}, {{}, { {GrayLevel[0.5], PointSize[0.025], AbsoluteThickness[1.6], Opacity[0.8], PointBox[{{4., 5.}, {8., 4.}, {9., 6.}}]}, { {GrayLevel[0.5], PointSize[0.025], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.5], PointSize[0.025], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}}, AspectRatio->Automatic, Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->Automatic, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-0.11328971720340775`, 20.483487321096746`}, {-2.0248073887772806`, 11.66692469920202}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.8222850142575026`*^9}, CellLabel-> "Out[188]=",ExpressionUUID->"2c42e66d-ed18-4786-bd75-04a27c687e2b"], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.015], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVl3cg1d0fx0nm5bqDe7/G5d5rZSYpK923CiltIy3KqFDUI20qsqMyKg2k FCo7UkYlhaiEx3qSjAZlr6zf/f11/jyfcz6vz+u8D2efz1b3BQICAjqCAgL/ X19XX52MqxeH48eR4CkrafTF9Ty7c5eMyhP9s76baTg5UyuuZyKJp7fnLDqG 5KBk+I61q0AcJQ8HFBeMEzBK+JWv0UVCkEqfV+B+BXDes4o//KRAJ0mWsXsL BZ80RfzGWsnoaKbR2M7y8FhZc+u7KQ0LhNXKM2opWHHGIflhmiREY05ccnsu gPv7CQPvLirqvH7n3M0h4LavZuZJMRUXTo0bFhyWh/ppf4v0YmmsvJ6kve+N AgZz128N85TEP+97FH4nkqG53WTvrkMUbPq3KRst0sgZX/9Cw4SKvwlf3jUZ D/KufOw9my1EQr61wJ55YWX4F3t+c3ksg1yfq5rN5yURZRR074s+HaEs0l2V MQ6Mam33VBXRsD5/fKnXDAWrpEyMqt6S8NiJavDvbgK/LRsiu29R4Oiwxsae KYxhzb7GgVQq4iy04k4soWDf/YjExl4a7h71eZJYSAE9gOt26TsJSUqbuekr adh+b7P6uykKhDaFJw2dkYfJjnJJYTMazhxy6q90VEXbmKVVrTENtDsPbyWF TPO4dh5yMymSSJN56Wj6fo4XJOz6XHSCirNrPbNCXtEQ6edV195FxpD96Q8u sYpA/umiszYU2HX3DCYNC4NafXB2gR6ZX1dOSY02C/fHqbKrgqRg1PZrQaSq MKK3dYVZHiDB/niuOLFJGXnPIp8yBiiQGS88fMt9sqwqtEWHYIhCv8NZ0std BAbOBF3ghTQ+q6aH23PlsUpk+5hfCwWVnUHVR0uYcPN7/09qgTAW5ZnMTw0O lS1fW0xYP6XC70LpFtU8BnK3i3y38hOHxlvFt562YljxeaJ/xUlJlN947vxc 9gWP9WqxiGGLFFIKpspNr7GRtj/6BoSFofVy0PSbFgtfemvMbvuIQUGQG1Ea z4RxYGFi/pgUnqRQO/vYJKwuKOpzT6Ji+UFxi9KFc7xp1eEUT34fsx//J/X2 Sjvv0mD5RYc6MUwG6Sy2uzfAG4n+s7/nAgnkC60ByRI0aFH1v6knSeJFcedJ pw4Gniwe1Dz4lYSzu95naGdLolLqvoPNRVkkmP7JL5JaADtZrrB+AwWSxdqn Vnyi4Z6WQbGoGAUOu5y/N61gAS9vD6iVSuJXWHh9bzQNroTnXtdhKnonq6gr h6d5w6PPBGXyqRDoinf9K1tZpjLrNhzgRQNFKNEpKnuUNywUeqsikIZaa60y 1Wt0vH+Y51+aTUNw2Lp1LfYkiHXFVc1HSKDLN7LZda8c+pirSaL9dFRaJ59Y YkeDzDH7EN0kGfwRPiJhlkeF8PGeTZuO8Pm5J2F1yYCELSraQs9GxSDRHrmr 1F8e5ds8sv7LokN0XdjoxEUCelvFnnFzKJjmqvU4vVbCu7exVwxp/HmNzp1N 6GIj641u0OINVHDfZTHqy6Wgc3Xf1TYhOiwf16Y0P+RgiU1drFeyEP6ah4fW K7HB8MoKsK2QRFFITHdmwV/ewcWvqTI6/P78udvuVD7EW2f8wkw/nYRT+Z0p 1WxxXE5KjhI9Jwly8LWHYR9Y2J35w0K9gAx9g9q32U++l12tW0aiXqeCY8+S El0gjFd3do6sP0fBt/0kelmKMgLGEtUqLlEwq89xYfI9pdV2MHeUP1/5Ws3m ma/ksbPJVsWURYd+mCHjYpwKono91IW3kNHSnvDJqkAGGjvyj1ElRHH2S35D AmUBuBk9qf9qUNEZ2PDJ+4AIwu9eFD8GMZDdvKffHJBDiWeFyOJDEtDPumqz 82UXz08lZNLrHd8j89XqDyPmefckfGSjPalIVQuxfHxOCmZi9BSzVmm4JVtc TaiSgN7LCJ7yHA16i2JefXOTgb/uZMqdhVQ8WZHb3HGWA5fkM8GaExRcsKf0 VegKok07xbaDLQ3Fuep9ZZJCeJX/65SvJAVrBo5rHLdXR4ao56f0ABqsqA1j hvEs7JmKf3BFSwpKFGEzeR0G1lh2FP6zgQxyz2TlgCyBy3kjGz9/FQKv1Fnk pJkAKj5nJHlnU9E307NbYpKFqRcPbGYlOTjb5Prh5gE6pIoL5Fjz6jCYN2r0 MZJDv/+hbTFHCGQ3uBsE3hBHQ0VjvJemCu51x3Yq2crALlyjxy6QiwHX805L r9BwQfn3A54FGwcvbLEy4vcp2Fyrjy3PwaKoXiLZh4x+xeI3cWZsXLDauzpF jAz7Ap+jX+ZZkAkIu1TXTkZDbH/2uk8KYNsn6yZUSWJXWonTEnEmXiRrjj6P XYAKgW027pKyfN43uJ4SEULpu80lHXtVcGD/ntMLdekwP5in6yrOxseMSmJo hoxYMb2BPD7XYTIzdo8u8j2nLnA010EJP6viAiv9pPAPb0+FsYUyTsd0TwiI SEC4Y5Z567E8rvQFTJmbiSIzoqTxiyoXB489utxdRIXeGcX4cCM25KIN1vg0 UZEtobIxqF0Fx97cyb3nR0cb3bwrtE4JSx08jF22k0HyTeJx1bm4NJZ5/sM1 CkLrpWuj7eRQTgqRVP4phozaHkfdJQQEQjXElY+KIrhCrmSVERen1lmcWrKR hnLRIz6Cw0poezBcfc9fGtZTa+1/EVx4O4gvjZKlIq3P6i9jKRtfnldpP1On ImHovoNghRx66fi767A0HmRsNeXlc7Dx/CpnC3cartmHmjsnKqH1pLl47qgk /LTWmWZ9k8MyO++A7VISWOOWNx96TBlx6jaZR1qlsGNs8XNlKgPyn2qv532Q wHarf9QPbeaCV7Xth1M6DT9+TLbo9KogRfxLL5fvw5niytEiZQ6E/VPVHdsp iJxcmvbvZTbeaTRX53dTwHTbfzj8Bwul+1ctnAmTRryCck4O+DzYnQgqWU9D gOBTY7F8BZhvHW7QbxXHdMlbo9UuXOj9nFA0o8tgMHPN0JCfIo4U/K5LtaBg MvS8cZc9F6uC8sU6PSjoVm/euuGRCgT+RP/MjpDBr+sTrpV8X+oc+jqktUwI MSKBMcLjLHBo6/uamslYvrb//h3+/r4RlrAKk0TTyWU83gk5BLrVLE3+I4or KxoejFxVxo9bZp0Tn6XRkOrbm+isgPtGOX9NGyVgrDgd432av7/riEfHBA3C gh0hf4qVUXjWrvQ8//yBEt9W70vjoP6hpWLmDv75/iS/3tSngk3Bexbtm6Pi urtxu+Y7ZVhVKU/qcsnwGrj19ST//vw+HQvewn9XfCV6Om5MsDG4vIv2tpWK zd9pp7PGFfCjcpe8rA4Z842eT34b83PO/TutgnvJsH02ziq8rYR7sRpVQruk Ue/g/x/5CReVLrzpvCM09F1UNV8Sz5/P8b85Pk+o6HhTNrs9Xgluck7HyzZI YmPpup2Ns4r48tHFJeuaBKZfH9INz2ZBqrCmqoJDgcZxVXuDagJJy/e2f4kl Ybwn882ZfjY0ZscE9AL4vAU18uqvKYBQuaKV6EiBpZaNRk25ElbrKqmRO6Sg d4qU+eabCs5OlQ2vrpFB+KXx6E9abHTGKO1hHaCgesP506c1OGh4FPC1G3Ts 7SG9WVjMgmBpue3WKSrYCjFLZweUMLlf307HUQo1j+d2OTqyIKm2xNiCzx/v P+opW2E29LRGNBgvJNG4lTpkYqOAqM8TuYLqIhjWIknYWjAQcXOZWZe3MAyD 6IUCyfxcdzfttbXgAjTInRPaxs8Jek8+/I04LY6Uz7YmZUe4+HumPtIWNET4 avuXvuJg1VhgOeYpGCiosGr7oQyWU33/ryEyjt2+6+jSzMF1rfPm5DQa5D+u 3Jl2VBkeI/Gc9Sv49W4aSL0xIo/AItlKE349ImVfq+cFZFDHPVdVPSaBw5n+ e3XEFKCxrzNfyFgMZh/eG33zYiNl1Q7B7bspUOlc0zCvpIJCDSmFXfqy6NZx tygnczB4V7/kzhAFgheXXitp4cDLui4tQ5+K8XExwb736igmVmivCSFw/vIX 1ylBLj4EeiQ3hUrjJluEUh6jjE6DDT6Ziygwn80xcb7JRZZm2KpqHh0cFbN4 fTUWdJ/O72SflEL6cFTmKJ93RwttZ5chGkRfsX1TTTUQtfiW+rOvBDIIxWqp J/JQ+W2Vtn49E+5r9HpaQ+lYZ3lV4rCcHDRupp//9xwLds5RDjtPMbG24MuH ehNl/BZS+XEzlInixx0pUpPq+GWoNdx0icBcpPay8EhFiKvrNW2sZmD6pk0J h8fB8gOvLdPWEDBPsimTKFZDP4lxbIMhE8t/lxosydLCzTslnqHmBLbolEQd Fl4EL6H0C9JJDISKbDGmH9eAlr287flLTJz+GKhHTeBC7gal9bIu38NifWOD ugpw6hY2tXEjIH/lQszFtbLw6aQlhs8xoEUJ+2NkKoOi6DvD9UUMuJ68Ku3e qI6sqbmWLiY/X4XO5mWacxFY40fL4r+bXpSnCkULNCBtU7j2XCMB4rVxqr0a B5v2bvYZ8GNiWjcsZwtJEQf9FbbFgYn+xIMj4poa8F5/a9NMLIG2Y9pie5S5 WDAzanGFxMSB7R29I9qLELqt9bn1KBMHD7tuquTS4WiYNRw+SICdI9Xtd1cR YnpfRSZeEAiQLJos2aCGsubDcxk5TDx1WOgdm7sQbiv3qKULMFHAvT2yNlcD B+2eH98Sy4Dp4hnZF/pciPmbN6qkEzhyO7o4o10Ghe9qmsqT5DAxS1VO7+Hi 0IOxuYzVBN//r4sDK9Rw5u6fTt9HTCxqji8WvSqNYzYfVpuEMHGu5cCZ9rJm 3smGVSfzWARcNkTEtL+Xgsf9fx6+MiBw01qt/YKcGpbrt++1f8dEn/2xjx5H 1RCoLHPC5TuB3iVHPmX1ysA0+GdxAp+fPPP+8bXNFBwzCR7Y9pzPy5xx7L9W 8mDPWrUZPWVC33OhsZ0vB272+sum1zFBe7dMx3RYDfPXbEq6nzGw1Gv3RDSJ jXvtWsV7kwl4LHdcY1BBx4vEiOZ1SUxsDB9jNvH9Hiw49ex7EwOpoTImzumK oEu87otMZILiGyNym6OFDV13B9KqCHy3efthsZQGcgVqQ1I+M0DSLAzdo0MH w/JNZ4oJga19QydkNzHxw/B1/JY6Bgxv6Lpa31ME61RDa5svE3V3jqykB6rA KynbybuRCeXhYr0iZzYEv73f6MDPPV51n8+tYqhgOIp46ZhHoJlwbLAUV4Pz 0VvWhpoElu0hg/5IFbJuqTVvrjGhqmr8+c30UnwN1L6vqsD3tIrsofNeGhB4 JKmQeJWJkW6f2ON0XVg3+zevt5dDa1+u4bMgGlbpkFv6+fUkKDz2nqPKwm37 s7+BCUxcI7gO7t0ceMxENHZfZyL4aeqn8gl1BHX+1JHXINCaP6Mk/VkWD7dd WT05LQd2hvfvj3VqOOFqoVBTSCAuIviowQ4V+Lw2VDzA94P20tmVj9vUULv6 ckisDRPhOaPFil/ZODeREtfJ//9phxmssKzmIlhPc7dEGgPksfKtTwJ1sLLT kfv2KAOeRZv6LwZogcULbhEpIzBsNBL37ogyfANe9qXHMCFqJJboZC+D10XT EwJGBNyULR2WhaggQMmXGfObgSh105wzCxfBu8usv3Qfn8cH1vE9axdj+3ht iEsYE5ayHfXHozhYYcks2hHBhG7U6BW/teooVI28QXNioshB9oCmrTp+/tk6 2reff79nnuVdOqeMKAU/qZX8+V9bK2cbGcBCRsbQ6K6FBMgKuv0l72VRmP/r 8oNyAqQc85uL3Ng4kfv3ISuNgNYFt+Ifoyx8NfR4FcMm4F5THBncr4h20nSF 3iADM03HUy1r2ZjdFR3i3MbA7QX1bXa3VXHEd3IqZZjAx1L33xF7NPn5VCGK R8hh9lv7VuPgRWixurju5lsmPkqqzAUsYUFgTvun7SI5uKbsl9DarIaBhiDP RL7fjseV3NonysWQl9+pcikmkpK27QsOlUHbT26S9TUCjxR2GldyuEh2HTp6 3kQOHz2UhYqnFsFstsD/FJeJX37Bg+qKakjgDdp3PSXwtUFA7vBzJfSfu6zr xZ/Xptb/Pgry/wmHlzy07zpHQKLFzuhDAd9b+jfik1oJ/A8uO/AP "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.015], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.015], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0.}, 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]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 19.983487321096746`}, {-1.5248073887772806`, 11.16692469920202}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.822285014323328*^9}, CellLabel-> "Out[189]=",ExpressionUUID->"b5986d2a-34c8-435a-86a9-bd08b3213780"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\\nTime = \"\>", "\[InvisibleSpace]", "0.078125`"}], SequenceForm["\nTime = ", 0.078125], Editable->False]], "Print", CellChangeTimes->{3.8222850145030894`*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"8f000b5a-ae6e-4cd2-adc3-6d06b3db9551"], Cell[BoxData[ InterpretationBox[ RowBox[{ "5", "\[InvisibleSpace]", "\<\": MWF = \"\>", "\[InvisibleSpace]", "504.4425769277966`", "\[InvisibleSpace]", "\<\"; MWFmin = \"\>", "\[InvisibleSpace]", "504.4425769277967`", "\[InvisibleSpace]", "\<\"; mj: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"97", ",", "100", ",", "103"}], "}"}]}], SequenceForm[ 5, ": MWF = ", 504.4425769277966, "; MWFmin = ", 504.4425769277967, "; mj: ", {97, 100, 103}], Editable->False]], "Print", CellChangeTimes->{3.822285014546012*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"d5385362-d6fe-49e1-953a-4a53a2a2f6e7"], Cell[BoxData["\<\"Mahalanobis k-means RECONSTRUCTION: \"\>"], "Print", CellChangeTimes->{3.8222850145510187`*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"b175610b-9513-4a7d-bac7-663065ce3562"], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{{{{}, { {Hue[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], PointSize[0.015], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlHs81IkCxcWOYV5+v994TGrEeK1HyHVXHtscbbTKXtUaZVOKKZmp1W7S k7pEHtEmaddHjZG66OM9CskreYVW2SI2i3BvKo8QeV37x/mcf8/n8z3nGPgH 7zigrKSkJF7W3/6oOWkm+Zk6dv7+8cKsmwZGkgfLbmZwUH/y3cLRbRROzbeq WzmwcO/Gokvv+Ero2TXyfUvU8TBrdLXyNA/2KW8VpgNMRBqOSM8FroJBC7/8 6f8IWMq0tPdsJ9Buphoy9YqD3k6K0vfTxcENT9KGHSko04yrc1oJOJ/1Ts+6 wwL98skE8QMl3A7k2R4eINEmfV+YUciD2P/JfF45iYjT03YlP+rC5EyoS3a5 Bjb8KrPwf7wKY0Vbd8RIWDjWMrjqfSoHZrsc9vseIeD58kUBujRQOL21wtSB xOeU140v1o8Jr/w+FFagwoRis9LeJdoahJZL+vflaqIoOMms898sXLKPzHxt w8VFPjPDcMoA9q0ee5tKKWxVTP9DOk9gI9vBvqmBiVwf0vblHh7eu3bEv0kj sNN7k7tIh4YJs5E/Rm+RSHYxTz65joD/7bjUP4YoZPwcnJd6nwA3XCBOGGZC prdNkL2Bwq7MbSaNswRUPGNl42d14fBDNYvmROHsEZ939TuN0D3l6ta6ngJ1 MytNFj0nFHgdXDkvZ+GOZs1Ox5ZFYSQt4AH9E4mwbyX50bUU4kOkbT0DHIyL zjzdd3U1oDhTGuZOwOvN4JhsggayOWhB2YqznKvw4RMLPm5Pk1obI9mw736r HG9EQ+L3AzGuh5gQnShS53muQXFZ/D3tUQKa0/d/TDswU9V0scuSp02HTa8f S3pAFbZ+PK5ShQaeG2XHigS62Ki6ayqki0B9X2Tzzw91IA5pOXarhIYvix2W ZsfGq776tpy3+R6JkIjK7UbF2ijapTrsFqIO04bVDRIPNTg///TO+RQL1b89 8HugVSHk11qr2nWxIS+ZrXa8ro87gYm/gUaDec2YY785H6+HnjjdCFbDqhWC uMprOlh/7n6qYoqNPDnZN6LPxDclpSMHZCS+ClJ3qfxiUThnNCGXLHMsyP2T 3XClR5gwVh3l3aaGmUhLa6/MUeHHxA+BgxFMcCJehaczKJiTNv0mMhYqyvtO +fRqI896zCzoLybCfFtyLApYqGff9naP0kKK4wdFKVsZXloCmk0HAVa5xWnn dgqZ5rbldDUC3r5+wy+c+UDNjVHjShbexsQ+G0qkEMCT7A+YIDE000RumJgT TkyWrdBUkFAauBbwWau+ynBBPBEupUCopPpcKpgUTqhcTKs7R6F1s3mV0XUu WrKKQysLKFyI2bKlS8SE2kBy01IcAwNH4zsD9q/EiM43TPo7Luo3p59c50VB 87goeq1MEx9oPzGciknQTgx6ev603J9MhluCLRPbDS1UyibVwOiJ960M1UX1 9wfz/8zngr4lZvJTFA9WO9TKBIUE5gTGgz6P9NDYcPWKHbW818SihZQBfeQ/ Xhtp/R0JQWO+9rNqNiyT/JO6VbhwzW2Vd2YZYJ1721Vpugo+fx178ZmePrSl +eEedSyURl9+c7fkszDI+hGpabnM50NGj0/1uHDL+gonm2wmTiv65M366vhF ln6Jfp4FzoXrWTFP+dhz978uJiUc2Ni2NhTkDVcltf2TSf5KwkDEZ9OVaai9 ufvj1vME+gOZ3Cr5GoRPpRrXJRBYsDHYp7P8U+bdQUWTy/tSmHd+fbdWF7tf eBg68rmwibHTjko2xKWhgya07Rx09aS0u5VowvQHxXGSQUfYa0VHCqEMQc7g rZemJPrOdbQfPqSK2Iwo9eNQA0d8eO7xoZV4KKlTtT7CgE1+kvvumgFhiGH0 jLRx+UeWmk2y4paEmYxgrUQJiVvG0a6559lwUuPKnV5pQJzukpTSxIBVTZxw zSIFqy8v1/aLNRG6dkZ+8wsSec5Fnb1hBtiXfvaC2ScCESJipG7tCnRbyD16 9TWwerHZv4qlglrF29NHWQQ2jZ4wPSEyQQ5d0p4dTsGN7Jiyu8bH3tlr/7li zoYeQXPStdTGJtfe+8e+44AzOFM/qsXDL8Uf//X8LxUIK/1UTzkpoe55juxw AYmR+cE9jBk+/g8ria97 "]]}, { {Hue[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], PointSize[0.015], AbsoluteThickness[1.6]}, {}}, { {Hue[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], PointSize[0.015], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, {{}, { {Hue[ NCache[ Rational[2, 3], 0.6666666666666666], 1, 1], PointSize[0.015], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVk304FAgex2cSmWHGvKAZY95rpiacl6uZ0tx8B2kV1cpruZCX6npBi90o s1J52aJOVm9bKnHbtEW0WuXlubBho4RrZUleTlEa8lp2bu6P7/P78/vyfH7C nTG+UQsIBEKkQf+/sw+LvebNhTjSGdF6cTcTlMp7bK5eAme9vCNGzsZo4v6t OXEslLRHOWvOk9Be15G3d7kYhQO5fTxvS/hlSgf9NCKMRaQGu5xh4Cj/XbFK LcCeo196yk/RcEwpGxHYCLHs5BCrIIaKUdvK+rOuAhz1DHe/akqF/72Ygz16 LixTMk61dFPRnjtasuEZBwL/AvvvG80RUlQV7ERajIcFyz8+yF2AOsJWryhz Kxwp9IlIMjFC9eMtVb3hYuzetSN5oT0Tyj1l9hEkAZ7ebGDpPlORa+owVtYv QIblZ79bxy3wXEI4eDeAhzeNZzUN8RR8pdpRp1DzkZwzME0wIcO4d37xpZ9s cGYkZVbpugjarKqOniUi7Em4dXrgPh0Oh23zMuUCsLOdPWI66SghizeldYuR UH/5bmE8Ey+Zyv70Fh5cAqIVYUFUmMVeUYkkIpya1Ka25tOQ3mbxJNuPjVqz E+b8N6a4+WQw0N6JBUK6lMQ/uAjH6thVbnIRkjaok5w2MVC7KC6GOM7Dy+Lx psJEC6yf/cL/LUuEfQEkl5NWdBSNeM5ZuwjQ86BxxS8SOr7X3Qgg1rExxMRc yAELFN/0XaMqF2JTqluoOoqBfP90ZegFHroOKUl3P5ojXrZhzZ3XbKz025cS RCHDI7JMn57Ax1mJlzaui4Jtk395wKdbw+bZk3NlrWQEeX4l2b9FBFXj1uHg HxkYHp753W5IjKukniFRNgOfKxs+3ucLYZx4XRLYTcN3My5F/zktwGPpi6by ARoWR+46kDnMRfUut4WfMyyQx+GXlsLAg983aVUbGUgh/qwwLedA6Tve7thF wqeqX+XuYSI4vJm2dWVa4oPWQ6eLt0XcvXct19U0zKSnKvr9RXBLKzfti6Zh QPLC1+eWGIT32W9Ksizx9tx0RMMVS9jtf6WTrTRCjokmx3iKCyFj40jnCypW fTF647LBPzZrHTwzzNF5aKVK9Q0bmshml4L3i3BmbXvxxD/5GL7k2jf93ALt 12OHLoRycENeOremgwyF7aecfckG/4iJ6N5pBoyJvSfeV/JRccSvOtXQX0N+ 7b6zSIi2f62z1W4z9Htf8GjziBibj+1YtvNPOs5FKbqXP+bDs5E/Yy+iYu/Y pVeHDPvFP0s49uU4HbHkwd7z0wJ8WNXP+LWLji3/ZSTfmeJguCHExsqOCn3H P26/Uwghv3G5ixhOhfcvU9yKH3gozJU2GoVYoC0g8Q/qbREawlSfyuIYGDm+ ROmUZ/jPqbnSmNt09NbXzAfl8RDJDv66xsccm6o3bO+Yt0XP07CwO/lkfHq0 3z6zhAtKRXNjnZAG6ddL/J2bWLiyKry7J9cMU4Pa+sOjAkjnJwkOKQbe0jpU bfkcsMRnZBcCaVgn85I21/Lgbs9bSu2lwCHJTFv/WowjszXj7s2WyDw1lf1M JkBfDm8HdzcNTT6pyclSIdpvpbwaABPhg2b1Cyu5IFbXevvO0iHg5LjMj/Ew s8vRzy6Qguaf/gwJDOTCfKmTQm3gT/UHPcnbWAAH2YTU+qE5OnzputVeHJx8 Pn2XKDHBuMyM7K22RtbFla79+4zx1zRmBaGABua1okfriQvQzv7WaGuvNRxu t85lJZNw9bn36po4EeYOt33nDQayYlckVv9bCLdJTS30NIzdq/N8OcwHN7ht 9K2OioQfrgWGvRDinCxVSS1iwObp37YXHeQjeiJPuHGtIe/msevnJ2yguW/V sNqQx6TmVZOeYIkW0beNTZNkHNAmhtuZciDd2VdupDCFa+tv8td7Bbjqto0Y 9HcaxH0e7XqeGBVSCifE0QoDdlHqWqoQH645Vl3W0UA87pJf9bsQe9e3FN10 pGNqypQ48psElay1KzxOsJB6uidilihCqya6oDPdAhcFJrTaHD76nH1itMto UM6Xrg69KMKd5RluTSomhGLXPMelXNj/rN8uOETBj+MntR8NvAeqV4SG6Rj4 H+0boco= "]]}, { {Hue[ NCache[ Rational[2, 3], 0.6666666666666666], 1, 1], PointSize[0.015], AbsoluteThickness[1.6]}, {}}, { {Hue[ NCache[ Rational[2, 3], 0.6666666666666666], 1, 1], PointSize[0.015], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, {{}, { {Hue[1, 1, 1], PointSize[0.015], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlHs4FPgexqeyJRJh5vcbMzIzzLhLIpddvFtNKGVdhtoLlcsS63ZIdXpQ TYQplUsn0qzsKrbWYmNMKZvaOknZwrqdE0tFKKFV63J2zh/v8/33fb7P5/3w 98T5hS9mMBhhqvz/LrvNiy9zMYVszXlRQz9FJeU+0PrRAMbjm8u3biUI32Tz vCdTD1vEZzRi2WyYFlcc/j3dEAEhssAvDhJ4Xvvv4yfORhhfYjxcnEmgvPqs VOu9CK/sLSY7T1As5Fg6ZOVwsVxk07n9AQuzxV6NfHc+1kc2i8s3UbjKvW5p KIUY02Qlb7MnWD9+025tlQWKLzTuzXSl8LVqlMV+ZIboJRVHtOUsZC71ddJL MYWFxMD78AmCf7al2awqFIB9TqfnlDUFQ3303YQ1BzuHPnLxCqMwOH0k95gn E3EDukVZCyxY6Bx/7eiiD8XJC5NPFCyEHjijHd4hQtWHhe5BQmGTOV/7g6sA aS1JulUJFNE6dRzFYlNoe9V7pndQ0GanMomQD5/dn8W9SSKYtT5e7avJRdQ+ jn8+CMaKoqaWm5siZut5n7k8it5kS/VgIwEWz01/elqTIHLHsxdTlmbI9O+5 7jFNEBUb6vOrQA9B9lWTWRMUvGqtoaSLXKjb9C+duUGRukLxvnGbELe6Yhcq qwnqAtVi8mrUEOYWLKxgEFwTlEx51pgiKuB6im8eCy5r5pg3bAVQ3+faYVxB kVByUlnZp4/6+y2dTXI2ZuZXGVU8F+CbS+8WKjdSDA83K9PuCHHo4uuB+CsE Zl0FymVntJHs9XijcwZBenfkob5bXe4H2jccqDWk2LUtO7fvoRYivv/H5dt2 FMUewr4jbCHW2/btltwnGJUkt0UkCpFmpL9/10uKF2sTfqt6oQ8X6YiyUMVP revYn55dOkh2lr7xv67iZcEp7/fNBuDNb+51rCOw3avmFBDPR5jE1mF2C4Hu fQcrl0kh/nfWq3GogYV10V/NnNTk4bs+C+Xubyki1gdtsrujhxtF2V1b5ATb s96RzhAOpIs+NLzsZKEsU985pIILPY3m0ZwiAp343KUlfAtsG7z4pvzfFC+9 7j1eo2WKGkZrRulTFjTN6zODrfTAEt8dKHWm8Bt9u5/pQzBs31zg+4gF+3PW oR7fcWF4sL2nN57g0YUEN700Y0TLf9oZ00FgNKm0UYTwsOiPh9sDlxNEP3qa voFljEkZ/SWolqKLBrWLlwsRknjew96cwiF4JfSumIAZVtZy9yyBiYnT07uz 69CfZvm9CYdCbsz85nC0KRhXVnCKzhBMDcXlpehZw6NrX9dWCRs9ozX2DUd1 scFqZfeYqk8h52rMwiomwnY0/JVWSHCWCgLDh/iImMvuGPoXgbSu7LemGRGO DoxYGZhS9Pw8t1r7KROX/U9vfD/LBq8yZrztkRD7Qz/ltNRT5GdLE+0+N0Zc sz03UuUHy3Xzbld7hWjdeCojz4sgq3paye3nIX2mNH+ggMDyuN0n4gcCSG3M v9IoZ2Hluya/H9Os4DYQJLiXyMJehc/YsVQLGLpLu5feoph0nMq/n2CE+NRf RityCZY5qhftlOijWTE7w3CkCDMSBzpkGCN1dTzJHWdBJnKpPqRmhpjBj8du 7lHxeMmj4LnnGuz4szVj13ECMfPZkxQZH5+IieLzbAJr2fTpJE8R6k1yzunu JFAEMiPNvUUYee03Pfq16r+HGmpPpBtBxknSclPt37OV7Z2TaojKyrfTX6pR rORYjzU+ZKL+51enLjVRaFa7FpuF8bC/5q/LhuUUFkfClMPThui3j7idy6MI b1HmSMe46NOcvWMzwcJcZ0qZuJWH+S9PZoT0slCy+ElvQIkJEuLffyidpGi7 GT6eHWyOqGSOzJ2yMf9Hn5+T1Azdm49tKb5H0LbCeCF1rSEYC5Yj3mZshJZ+ rWHxmRBv2o/uLVL5LSW/8fyeZQK8jU462KRFIJf775Fm6qN3RCD3OEtxhfOF 0698Ab4NfZt42JmNtgijJcoPZvh4/tq+gwKCV0nSCRFXiEL3CclgHUV/O4Md e301xtJPWUer9trZ85+2Rd76iF17WTKYTqHRHeD4+JrKW7bnCuQ9FH8Dviyj Fg== "]]}, { {Hue[1, 1, 1], PointSize[0.015], AbsoluteThickness[1.6]}, {}}, { {Hue[1, 1, 1], PointSize[0.015], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}}, {{}, { {GrayLevel[0.5], PointSize[0.025], AbsoluteThickness[1.6], Opacity[ 0.8], PointBox[{{4., 5.}, {8., 4.}, {9., 6.}}]}, { {GrayLevel[0.5], PointSize[0.025], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.5], PointSize[0.025], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}}, AspectRatio->Automatic, Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->Automatic, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->{{10.759460978386599`, 1.5000000000000568`}, { 3.6287927603545427`, 3.1570967374295833`}}, ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-0.11328971720340775`, 20.483487321096746`}, {-2.0248073887772806`, 11.66692469920202}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], {96., -62.81898764588591}, ImageScaled[{0.5, 0.5}], {180, 119.65521456359221}], InsetBox[ GraphicsBox[{{{}, {{ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlHs01IkCx8WOYV5+v98wJjXFeGWIyXVXHjVfFVI6qjWV7aFQlqmt3fSO OliJ6CZp17GNkbroxGAkj7yyXqFVtoibq2m4N8qjiPK47h/f8/33e873+/2Y BR3dflBbS0vrwIL+749bUqZSn+lj558fY6e9DDCUqim7lcVBw+nh2WNbKZyZ adO3d2Hhwe9zHn1ji+Gc9k5lrWYixnxIdiF0CcxaBeVP/0vATm7E27uNQIeN bsTEKw76uijKNNAEh9Y+yRh0paBNs6zJayPgfn5HZs5dFuhXTyeFVGjhTijf 8bCaRLvsfWFWIR8hQU9m8stJRJ+ddCr50QRW50565JYbYO2vctugP5ZgtGjz 9vhwFo63apa8T+fAZpfLgT1HCPi9fKFEtwGu/TkQqdRhQuWttW+ethxXnGOy X4u5uCRgZplPmMG5zXdf80MKm1WTf5PNEFjHdnFubmTifgDp+HIvH+89OxPf ZhDYuWODj9SYhnGbob9GbpNI9RClnl5FIOhOQvpfAxSyfj6an15KgBslDEka ZEK+bKswdy2FXdlbrZqmCej4XZaPnTeBy/c1LJobhfNHAoYbdlqgZ8LTq201 BepWToY87qtE6H9o8YyChbuGtTtdW+ckMbTgCvpnEpEbwwvi6igkRsjae9Uc jEnPPd1/fSmgOvcw0oeA/1vNqHycBrIlbFbbnrOQq/DRE1sB7kySRuti2HDu eaedaEFD8nfqeM8fmJCeKtLn+y1H86VuOz6PDnFfIEt2UBeOgXyuVqUBnlvk XpYKTbBOd9dERDeBhv6Ylp8fGSMkovX47RIaVhS7zE+PjlV/u7Gc7/2ARER0 1TaLYh6KdukOekXow7pxaWO4rx7cn38edj/DQs1vFYEVRpUSQZ2DrlM3G4qS 6RrXm6a4G5r8G2g0iGpHXd+IBFh9oTRdNcFGvoLsHzJlYn3Jw6GDchLfhul7 VH0zJ0karfllR7sepmLsHPyzRyQfkz+EaqKZ4ES/ispkUBCR4jdWchYqy/vP BPTxkO8wahP2byYi97Tm2SpZ8DcS0sSdBFjltmfdOyhkixzL6XoEduwJHHzh LgBqfx+xrGLhXfzlZwPJFIL54QeCx0kMTDWTa8e/SsZ1LmXUX6DQ5i2qtrjJ RWtO8ckqJYXY+E2buqVM6KlTm+cTGFAfS+wKPrAYQ8brmfRhLhq8M0+v8qdg eEIat1JuiA+0nxhuxSRopzR+fj8t9JvN8EpyZGKbua1O2Sc9MHoT91SdNIH9 dr0yYSGBr0JLTcDjZWhqvH7NiVr4R3LRbJraFAV/rIxx2EJC2FTAe1bDhl1K UEqPDhee99sUXTlmWOXTfl2WqYMvay5ferbMFDxZQZRvPQsP466+vVfyRRLm 8Jg0tCOg/JDVG1AzJtm0utJNnMvEWVW/osVUH/+QZ16hX2SBE3szJ/6pACnt f2eSv5IwkwrYdG0a6m7t/rj5IoE3oUxutWI5oibSLeuTCMyKzfYbL3BA1BNW 9Glh3ypR15p7dSbY/cLX3FXAhTjeifdLqjmuDByyom3joLs3rcOrxBDW36tO kAw6Il+rOtMIbQjzNLdfWpPov9DZcfgHXTwKr9d1OMKAuCDFZ3etWhJhHjcl a1r47XyLVU7CvCSbcdQoOZzEbcs4z/sX2XDT4yrcXhkgJNMjJa2ZAfvaBMny OQr2K67WvQkxxMmVU4pb35DIdy/q6os0w/7M87E2nwlES4mh+pWL0GOr8O0z NcDSuZagapYO6lTvzh5jEdgwcsr6lNQKefTwjtwoCl5k54TTDQH2Td/45zUR G8sImpuJHQ8bPPtKj2/hgKOZahgx4qP+eZ78sJLE0IxmL2NKAKcYbqlW5gI3 su4+9l6kjRVdN8rpKQY44fN0vUucMfZvSbja28rGoTvHc+oc+SheMzy5sYvA CZfYke8qjFE4ubnS2oXEl7TXTS9Wj0qKyxIf8EYIGE6W/phxcKr6q8W4InyB a8r7/2I3XuuVjH8qW2SoIqGlvhH8xaih2nw2ZDxKRoHQSQ+4ovwk2XvvPx5W JRyIHdsalfmD1f8DpjmabQ== "]]}, {Hue[1, 1, 1], PointSize[0.007333333333333334], AbsoluteThickness[ 1.6], PointBox[CompressedData[" 1:eJwVk3k8FAgbx2cSmTEzZsYQxtxlMuElnzJlZ+c3lF2FWjnLhhzVdqDFLoqd jnVsUSvp2tLmeLfpcLW1yvHZxYY3imGtrJtVREPOsnbeP57P8+f393s+30ew N9IrfBmBQAjTzv+3XlVvwxKBhSbhN/UN02TElX/RH3yXhZLI7606lBScK53y bO3VgbwySC/eiYA6ar6v22ljXNw0XvaIugzzTwrdFikCHG8Pbb663whjcYd3 Zkabokgdvi75Mgnqmrbsg1Yi5A1m9XHdWfBOEw95JwsxEaoMcDjPxAnem0K5 go8DJz5zdTxLxymZZJRvLsCaM8OmuZE0jFmU115w4uOEa4jLTX0afB5EHu1e 4oCVlHq2qYsGddZY0dYXbPB9cm0u1lMQWFARYE9aiSe5Vu8eZy1DDWGnWzjF GMfzPEIT9HRQ+XRHRU+ICPv37UlcbmME2YFSm1ASH89v15lqPtCQpW87UTrA Ryrrg/ed04ZotSQcLfHl4lX9heS6GCq+lO+pkSp4SMwcnCXokaHbs7jy2l1z nB9Nmpc5rYAqvaKte5UQB2LvnBt8xIDtMYvsNEc+zDLWbY5sZ6CILPI82SVC bO31krwYI7w0kg2kNHHh4BshDfanwSDqhlxoKcTZaZWyOYeOlBbDZxneZqg2 +JbCe6WP28+G/GzsTUFIEZN4R1fgVI1ZhbOjEAlbFQn2nkxUr4iOJE5y8bJw siEvzhCfzH/q89pUiEO+JIczxgwUjLoumDjw0f24fu0vlgxc1OT7EmvMMGyE hcAjhii87bVJXiaAp9I5SBHORI5PiizoChed8TJSyTsKYiRbN93vN8N670NJ /lQyNoeVLqXE8nDB0k0V3UnFrun/POYxTGD+4tml0mYy/F2/tDy8Qwh5/c6R gJ+YGBmZ+9N6WISbpO5hYQYTH8rr3j3iCaAbd8vSr4uO7+YcCv44x8dTcUdD 2SAdK8P2HUkb4aByn/PyD6mGyGbziouh9cH765MV25hIIv4s1S9jQ+Y1qbbr JOF9xe+OLsFC2L6atXAyYuGtarNGE2OB6Advmm4p6JhLUUoHfIRwPlmm3xdB x6Blh5fHHREI4xmvitJZeH1pNrTuBgvWh3s1kvU6yNRLztSd4UDA3Dba3kHD hk/H8q9r+VHpW+CaSkF7/Hq5/GszJIc1OuSOr8D5j9SFU9/zMHLNqW+21RDq W1HDV4LYyHcsXtjURobU4n3moUQtP3QqomeWCV1iz7fj5Tw8PO5dqdT2Tyb3 u+wtEKDlv1ssVLu0/cZzf9s+KsL2U3vW7P2HgUvh0i6rpzy41vPmbIQ0HJy4 1huvvV/Mi9hTn00yEEUe6rk8y8fbDQPM3zsZ2PE3M/H+DBsjdYHmxtY0LLV9 ce+NVADH/OudxBAa3H+Z4Tz8gYu8LHG9TqAhWnzj/qLdE6IuWP6+NJqJ0dOr ZPbZ2v+cWSiOvMdAT23Von82F2FmAV9VeVDgWbl1d9uiBbqfBwffzyHj/W+H bdKKOKA+bKyvEdAh/mqVz7oGU9zYENLVnWWAmSFV7bExPsSL0wTbJK1vJ9vk LTlsmIrOS6740bFF4iZurObCxYa7mtZDhW2Cgaq2X4Tj81WTLo0spJ2dyXgh 4aMvk7uHs5+OBg9lYqJYAPWdpN5BGCFkyKB2eTkHxMpqd695BvjsTIfFCS7m 9tl5W/tR0Xj3n0A/Pw4oq+2lCq1/8r8YCe66fNhKpsQmTyho82JoNrqxcaZ1 toRoqYdJiQHZXWGC9KvrnQYO6UJt9o3Ozh4T2N5rXkhPJOFmq/vGqmghFo61 fOcOJtKj1sZV/iqA83RyNZbomHhQ4/pyhAdOQMvYaw0NsT/86BfcIcAliVJG K2DC/PnHuwuO8hAxlS3Y9pE23/aJW5enzJH8yLhuo5Z/RBUXYq3PhnhvX5mO VB9Ozf9z7D/Ix03nXUT/z+kQ9W1WL3FFeCimsgPtjDFoHa6opgnw9ke7iusa OoinHXIq/hTg4CdNBbftGFCe6w6dJwrRnByR255iiKt8PXp1Jg996zwiVWvo kC0Wbwy6KsR9q1TnBrkRBCKnbLvVHNj8vLSbH0/FT5NnVO+0/vop1gYFa5j4 F5tJpIk= "]]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlHs8FPgCxZEtj6iMmd9vzEzGMOMtaUQKZyt5pKx37bZUHhHr9SHV7YNq vJWKdCPNyl7FrXVpvaaUXbW5SdnCeu3GUhFKKLUe3bl/nM/593zO+X6O3v5o rxAlBQWFA3L931eLW3h7alTReO0tV+kDReaVVNUEqEAzOHLufhgbIVstXvSm M+DmdE4tis1GeFSQx68CBvzFlVOZkxS9Y9XihpNa2Gym2TMeQ/Dny9aNxdEq 4CgKsu6cJ2jyDq38o5KBZW4ZM7OpFDpnT+SmujARPahVmLnIgsnKjDc2dtqo P3156mk9C7V+ypF51coIdggQlisQxBafllX0a6OupbWrScrGy7Wxv1W+1Iad ZFRWIM8Tut5/q9U9Bm4XZnW7SQnUjevSA8wYYDndHyzZQFHAuRG5uIqJ4F0N fycXEPT+NL96xTMmrnmf3fJxjo1lNiqFu3210Vw/N6tgQyGVeu+XpGujb1Qg db5A0dX7R7uiuzai1l7zHUqhmO9KLHVq42Nhz+m0wD4WFFTG3k+ac7B7+As7 12CKlJ6wY/13ux2PdGw+cpNHIVu0zft9mw74C9v6bGoJvMbeHWZ6EIyIm897 PmZBk2M+3viIibqfXp+52kSh1uNj86SGINzy4nlpL0UF5T7U+FEH+hPbyrZv JzAsKj/+ewoPPoE5ft8cJXCp+fPJ0w26mFiiP1KUTrCYbWqdmc2Fqsiia+dD FuaKXBv1HPWwPqzZqWwrhUX6ws1/2wuQ3BqvVRlLQZttS32FevDY91X023iC OfOMKk91LsIPcbzzQdCXYKoSoCuA0vzMl2fVCfhVGsPxV7hQsRhYOnubwvKg sq1PjB6CfS2t59wI1kV8O3tanY8f+k1k+76n2Jn5nnQFciBR/NTwqouF0nTt DYHlXDDUmseyCwnEF82DnH/ggne0o7dPzo/ulMyiPpAPxb8e7fRTJbhABX4h w3oInc/qHP4nQWbVjIw7wEfKbEn+oJwv0wyrTU4PBZBYGH+rVsbClM10fkus LmKSfh4rzyUI1nXys07TR9LqGJI7wYIT8/nTxBw9bHIi9V9nEUiPNdw8laKL HE68hgOhcGlju2cn8VBR8W5mjzKFepV9kVEwH4er/77GK6MwOREsG5nhYUAc +ksunyKkVZYtGeeiX33unsUkC+3L9ReT1vKgsGg66m7ERmJ+46X9ywR4FxF/ tEmDYKBDgR11azXGU86YR8j51ZDVsHmfRbD6bNMZbcPGhw8qimOPRJDRTaZb 0yiW/cKPKbUzRM6aS6KGATlPN56XaHwU4bXYZKrrFIW91PWumkyIcXVWwg4x wfqJO1ZrK01QdLnxYLo9hadZY07UF0aIWFJ+YoWUhfSlnraMREOY+Oq4Hz9F 8I/2ZItVBQKwL67sPWNOEXTk3IqQThEqPy32DMn7iFhZy6lXMsQK1zqXlE6K 8cLwaVVjQ0Ruv+Qxn0cRtuv5y2lTI6R7995yniFIWl7/sXGHEHe7oxYrqghq BMXTLtWGCPe5leiZx4LdmnnmbUsBVA7Zd+qXU8wurNItfyHAd1ffL1ZsoRgZ aZYl3xPi2JU3gzHXCYqchf0n2EKst+zf59tCMOab0B4aJ0Syrvbhva8otFqs zeymhPh8wbVxuIGFlTG5S4v1TLBj6Mrbsv9SvHJ98GSNhiGqFdrSSp6x8Phy rAMjWR8R0v/sjuwkiHj8LGUzSx9TOfRn/5sU3dS/w0lViMC4S85iYwrrAE0w rhuAGVzaev8CgYGB7bP7c+swkGz6LwOO/C/0md8djzCEwvXlnMJzBNPD0XmJ DHM4dx/q3u7LhqS29LemWRFODo6a6RhS8CsiJ9ofC3E46EtOax1FfpYkzupr fUQ3i7lh8n1N1y043OgTom3LmbQ8VwLN901ePyabwWHQX/AgjoWD9R7jqUkm 4DlKepbepcgR2VUdUzZC5NDG8Tv7KfZedT7/wmUNdn1oS9ubQWCeM3M23kWE OoPsi1q7Cer9mGHG7iKMvvGaGTtAUaz0tM+n2ACxMR8/lUxRtN8JmcgKMEZ4 AifHkbKx8Fe/l63ECD3bUt2KHhAElRxQM/lKiLcdJw8Wyv/uOucb21/1BPg+ 6F3c8Q1stIfqLpF9MsLGhZpDRwUEr+MlkyKuEAWOk75DtRT/A8fMtWU= "]]}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], AbsoluteThickness[1.6]}, {Hue[1, 1, 1], PointSize[0.007333333333333334], AbsoluteThickness[ 1.6]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.01], AbsoluteThickness[1.6]}, {}, {}, {}, {}, {}, {}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], AbsoluteThickness[1.6]}, {Hue[1, 1, 1], PointSize[0.007333333333333334], AbsoluteThickness[ 1.6]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.01], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {{ GraphicsComplexBox[CompressedData[" 1:eJxdWWk4Ve/XNnQGU5xz9jHP5xyEn7FBqfbKlCRKSoOQUiEqEqVkTCpNVDJn KiGZosTOnCIqCmUeIlLJPP73+8H+8H7a1309z9rrGde61/0oOJ6ycuLh4uLC uLm4/u9rk8rS6xMQgP2nA/d/0h/HMk8pH2CrCQDt9pl5SB/HEGmN05LrBIB+ +Yp+fs84Fjx66qFuoACs/zCOZXNNYo7iCmIKpXj7o099s3GTGLnw7geLnwKg I2LSyOU6hVVS1OfvsgRh/FBKwkfaNHbihMFU8R5BoOfq1uffncbEtS3XuTkI Qu0n9ezn5dPYJ6jPDA4WhE32Peo9q2awwCHUQzhPEO5uOFpGC5/BVGwdD7YP CULKn/3aOVyz2KhgGuWQqhDQKyIL3ENnsdsrFX80gRB8viotOFgwi10efrcy 44YQeLp6X56WnsMsvp9T4CwIgbHFiPvd3DlMMObQBRkJYVCLUMya5prHar3l 71d5CcOAyo+7z6XmsU5Gxs6vHiLE/6XKkmpWe4lASVjejELgLJbE50TS9RaB ug7F2ZpLsxhNc597U6sIMT9mzu2o+gUROOKecqKPdxpz+PoSDdKlwcOg6uTC xknMMKT6X4EeDXzqgzfVZ0xiyalnSng30Ij1rDt5cFv3Zho88CGJlV2exFIo ZwQuutJAJOSKFXPzBJbe8+XV6vM0Yr/SApV/TcbQIHn+2MrgiH/YCxOdxpRC vP9lESQ0fwx72n121K6KBhdZobeTDccw2dSVFz7/psFxEJTRH/mD9f7i2dr6 D+/vnq1Wj/3B+F/k6vOK0SFp91X/68dGsZLB9V1O8nSQexV7Ren+L+za3OGm rZp0EDwh9CPXaATjF/0gstWcDrJRbQW5mUPYL4a5K8WODqTj08YWQoPYWGvW dl9vOsicE+/fXNGPLQ72xjET6HDfI2uPnlwPluYzs8iVRAdp673I+9ZuzMbQ 3fdTMh06pGLabmV1Y988juSzMumw6969huiBLozfufKdSBUd1h5VCX3W9Q1L 6Rr7aVtHB6WmoyX/wtqwwxVzQjaddOD93D28T+MLdtxr96hDPx3WyKf0Vws1 YWpN2d4NE3SIy3OVWLvYiFUWcPRm5+gQ0O/qJCzegI23CzhKkBhwvAi9Wur1 FuuJl0YXRBlg+cjmW8vzMqyidkKmVIoB82lRBqfsS7EJqz9C69kMeOvgfq0j IQez/t0ZuV+LAQOrudQFohOx48YC5hs3M8CqJvxcbHw0uqdq59dSAwb42RlP XbbJQPueHG0/uI0BO5GsgrgvueiHjXnOlfYMsKXFeo2UV6GOwuWJ6Q4MSO5s hWzfajQKikY9T+D+OlrW26e9Q0XNnhtL+jBgdND3zXaXT+ja0kxu1gUGfNb9 uwUT+Yy+C+rKz7vIgPtmGrMyg5/Rt2dizfPuMKDZ26s3rbcNrQgM3Z32iAFu O/M6JNW6UD71WqPXTxgw3H7RYOvBbjSyqurWjRwGdEpydLm7elD3jv8kN2EM GFnazCg26ked/QK3vallQOveIdIblR9osqHk3OpmBvxS4O7T0BhCT30SlDbo ZUCTzBUXw+JhND5SA0n+iY/XsCI/SewXWvx5zOfQHwbE5/5mW2iMos5aNrev LDFgOrfc4Lr/H7TEasH3Gw0BP9u82gWDMfTC2rdRHQwEpitYasZeY+jvJ/1v PZgI6FfMyXHFj6F7VwqtqmQjsGdl8/V38uNoQ1juXT1lvH9TMGPJeRy9OWOT trAGAVVtN4URrUn0wNi20MB1eHt//1yR3SQannLT3GA9AmJX+y+tvTeJomyb wl1b8fZJkz6P3dPokam0Xro5As5nD7+eKp5G1Z7MXIq2RqB8pKB05u0Mutk2 1j91LwIzlCd16qazqNmtS1JzBxCokjs4b90yi1b7lKCXnBCYFecrGNg4jw44 Hb2j6o7AOsmuprPuC6hIwKadLZ54+yqXuETtRbRmx0extRcQ+GxyP+AzsoRG cy4KvgjA1yOu3+A/BhcsDdz8bzwUAamxWO+MMC4Q2JBXz7yFwCJHdN01IW7g D389MnUft9/YqG+fyg17VMaHJ2Nw+2cmaj8oPLAjoS9BORGBFInbQXp2PLDi EKd03xPcfq23nBEPLxwQbFhvnIOApnQtQivhhezMpYcb8nF77DHj0TwvgNsz w1cvELh1uT7/9+oV4J4r0BSD4fZbWyiLkysgpUYiQrEWgbNRM4dDPpJATzkB 832H2zdS5w/8JYEzvxry6D0CC15XczqFyKCi0/astQmBpX3r/xQOk8E8xiog sgOB+IAbquU9FDiXkzKWj2P/buc+ZIACnqvMnjTieDRpZ6rYEAWQ74ePIN0I nHKfFcA4VDjqqbRN8gcCXC7RLWe6qGCpe+Lkf6O4v9FLo0dr+SAta7fMKxz7 j72r+9DGB24lWXe3/UZg16KMR+4vPiDHfj0wMIHb+869UWvmB5Ot9tlJcwjw K0kc3JApAPZN9n7RCwh8v/Kx8+yEAFy9GfCvm4cJXDds0/trBSG/byePF4UJ OQ6ryzfeEQKl1H5KPx8TLuXsk74yKwSfvot8oK5kAndcyZ2E0pVgf8PqZDSN CerosNN5H2FoU66XHKYzIZAzGjJfJAyaRZZH1REmnJ2ycP05LwwGmdxRe8Vw exvhksz9IlC+tT6JKskEq3jv2cXnIrD6qf5LMykmbIlRXvftiwhc0Rgp85Rm gmFCOu/uRRFQylT9Wy3LhIBONIfPmgZLNTrkAnl8vJyzW0fSaMAXus+0VJEJ 0a+F73TM08BYJNR1Dxv3d+J06jELPE84h8VHcphQLHClTyCeDk/VIsSFlXF/ i5ZjErN0WAhburaA44A/iQ8rTBkQV1YnFquCt4d573e6z4Aqrel6iVVMKF/9 kjFWxYCQGsEdzjheYxKyjjKJx80NOlWvcMxz/mO4vCG+b5rypRiOaTtr3bhu I9DmJN3eiWODkiGK5Rv8HB97OdOAY/LtCyef/EEAHqwPuIrjQG6ewEubmNBY 23j+H+6/eWa/Wv81Jig7KKib4Hi/5ouopSEm2G/2EHPEx8tzTedc2zpRqCph vVdVYkLYC81uqVBRiBPwGP6Az994OBhb2SMKjc/QjwYs/P/0Iy7rdMQAOKNV +xSYEG5wTCkrWAzoe0zszuLrWb7Xt88pWwx2GNzUc5PDxz+1outrixhs62sY 5Mjg/mIi7CLVxWHN4pjgaXz/Plkatj8KEoeStMLmvRL4/DozWsrTxYGVJbuS Lc6E1rdaE7YfxOF7XftVMhP3z6q0+qskgd8r3npH/PzM5Hmu5Q2WAP6uRw6T +Pm6+WFoIqFcArgjPOo6+XF/meMmFgqSoGvYVahIZsK1L575bSGS4GB4UfYH LxNquXmbkwokQaMgtTRzEYGg1Rz9DCkpiE9uXEycRmCQrKSpEyYFV34aU+un EKj02VTQGiUFa+ooWjOTCPw6sD3g+GMp0Oo7eOAEvg8rSvZoUkWloVd0yvzD IAL1dx5+ZdyUBuRoDs0Px0bc7ulrI6RBODjZWxPHVHZU/+8H0sR9PiHs06bJ LQNH9eJvdXciEGx8heUkIgMHiywfCHxBAClnNG26IgPfym6YOjfj4wmLj4sI x7HWuuIneDyp6e3e3nxPBt7e6NiyC48/Kz68ECvnlwWP7qDKp/i5af/mVHjU QxYcDpLvRZXi46E33PkTKgvdQV/uyr7G44/pOavARFlgnH21f3Mu7n/vDwE5 khxEv3mRrpWOQL/jfx5Kh+Tg0Ok/qVtScf/RSyE7AuVg7/UjCYF4fO0bcs9f nyUHZ5Zawh89wP13inFdXJKD3o08i4l4vG6PtS41YMlDaOw31qEwBJJo4pv2 bJYHcQ0F6WI83rN1/LaR7eShUO+ujyeeD8p12RdGLsqDRtibU0t4vtApSGYb PJAH6ZbK6F4XBHr2aBUGFcvDpaJc+Sx7/H+H7p24MiAPaxWdHmTi+YjHZ+O4 5Kw88GW+zrfah8cvJcmmTQIKYHerbNDbEoEDG6dL/VUVQK8/7Hz9NgQUo021 c/UUYBv3yh8MUwRSrdC37kYK0COVM2ijj8Bja13Ht6cUYP0NFzNjPQQMXlu7 b/NWgBwulNsCz6+djPPNHpcUYOwLl8M2JQRu+H3aYV+gAEuhB2gMHDt2OGR0 4Xg5f39VYrWvf6UAE/pl4v14/kdH2Bo6owqwsVvE944wAoFcboPe4wrgqO7N 8RVEQOJyutm1eQVAPUVVJqcYkKR4niOsqwjdr7dK3f3BgNSZv3aWhxRhw+6A X8GdDCg3CnFMO6MI+76Er8tsYoCmvoaT8Q1FUI2jmm+sZkDPsTsJm54rQpzY Ed+frxhgprp+S9p7RdC+U/9GMpMBPGFx35tGFcF/9bWWLw8YIDH4GMmUYUHc x51Vsji/UsxIlzj5Hwt4lZXJ/64zIMjdz01vPQtULhxvMPFigEF9wV7ekyxY 5nOLbv2/uK+y4K3m38tB+xjw29vExiKVBcYSJalW1gxw/F0WEf2UBZZbtFyN djGgQzPdyTKXBYv95nk8+gzYGhGxVqyNBa1bZNfVazAgkPahUXuIBT2tvw9m ijMg4PHLMiMhNqwdfHNJloqvj26bUK0yGzZ1T+qlztOh+fBj5esGbGh9HFV7 a5wOWgH+JAsLNjhdR94ZdtGhfM+AmcMxNgQ9cC3h+0oHHrNFz6SzbGikbji6 oZAOPd5joVMpbFjm67L1xUanC9hwRa/VvyicDkxvVz+PVjYcOLFq7ngAbh+9 WHmzlw0iozdVj7jRweNO7waXaTaoqwsbPDemg+Jrfh4lRQ4oN5XVFmnRQfUz T0fhOg7s8o2pXkWlg0GHKFriwIHlemZxUB5t8eFAbnCZ/b93NBglb/xMj+BA ZvrJB7o5NHDkYl20TuDAbs+ez7rhNBjYfIjELuFAhZWwXawvDQJbaZSJKg70 BWjkSJviWFHz5XA7B3aeKZGgGdAAaeWVKu/hwHI9N3GFj942xAFJTMhRrV8E ZHQed/vwKMGOXW+2pieJADfX0XaRlUqwXC9ynwqdb2EogbMg9/1yPE/b9vRS X9GV4PH7K6Yiv4ShZyayPpuqBMv1aIFBjefMHAd0s6kX0xWEoUn3rvjAMI7n yBUHJ1YS41uub/XN30Y4JnMg+rGWhv+EEDSfq8l/mMgBhvHhSu1/QsT8M3++ 4PowKAR/9z+X+xfDAdUE/ZWR/kJgfW3Pp9NeHNjSTw2qPyhErO/RaM2iqwwh ePX7fNW0KQe/Ny93BXYJggTfj4xT2hw4sao4/1+VILFfy/V84THy1bNkDkS9 SDpraiMIvS7FBoxhNgRspuhmmAkS+3/pvrfqz9WCeJznSFt/YUNxHdn1fJ8A cZ7+CNhl0wsFoH9VQlXwVTY4TC6+yrssQJzHS0eGfHQUBcDrqxnFT40N5gNC 3w5JCxDnO1dfp51HQgBWDzn3RnPYsKx/1N6uOK8nw4avEr+uhdfzE/fF+evP j5bR/HDxnUXRhRIWdAcz0puC+In7Z/ZDqFP1CD+kOD61u32TBdVWlTts9fmJ +xy5XcizXZ4fXE5ZMn2tWTDSIsejPM5HxIPWTklz03w+uPO47c6ucUWQ72Dt XfeMj4gndm+zEdmnfPC72ziWOqwI3/kuVBhG8IHkgagvw82KsH/u+lkXEz54 pwytrn6KcGBN5O4+Az4ing2yrbMvqvPBHoW5+jsOijD39vhiF4mPiIeft+ZI ew1R4WMxS/e5iCIMV6Tl5X+kEvE0vP9CnUoeFbySi8LXNyiAfvFUzON4KhGf teR4ax1u4f2r9tMuJCnA7jPke8UnqUS8n9kwcaAJqDCw6/UKAVQBBDen+I/p U4n8odD2nW2kR4Vtjaeyq3QVwMG90SJZkgrPnu6e+iGoAB+Uh61TVlKJ/CT/ zLT63ggFeN0WF1Qr5KGZ18cL+0Eh8psF8uXkVDdeB7CLnonnysN2clFLaxmF yI/beK1rdz6hwFL/2lnrXfJQczWkfzyWQuTXbLvK1bduUcBU5ryxnrI8JFXb kujnKUR+7i7IClpxnAL8D8cQ7lI5yBJyTNHZSyHyOz2uPTbRgILzF+37ARvk wIfrhPa+1RSCHzRffu9fpUKBvlC3MOsWWTD6OSETzKAQ/MJZMilMfo4Ml26I fHBQkYV/bIuOwn9kgp88+ijaVf6TDDwZ88MRYzLwJa74PukrGazvhuroJMiA 4p2zQ+NNZILvVD9Nj7rYQAZUWUbznJ8MKHRecqYUkaG0fPHBCzEZKJJf83Jj IZngT5np5mncBWTY95TejvDLQP8npTaeJDLIqIVrZuVJg623fHxiDJngZysM F1yrQ8jwYkKmxEVOGtTayNXjQWSC34nHpyjNBpBhuPajj6OANCRyl2++dZAM iRaJn5m6UqBXdjnRzpZM8EmRWFnbfisykPIGztlzS4Fv6Kokr9VkmBqs/1Ro LAkVicq3QzTIBF+te7aqa7MKGdreCJ9vnpYAxz/aEuEiZFjLOL3ZzEYCeJq7 u1z4yAQfljpWumqJmwzp7qzFsr/ikOgr+37oNwnGM14cqT4uDrdckvVTx0kE /777svuNbBcJvn1JuqY4IgYxiSbXEj+R4Hj1+F6Otxgc+e3A1m4lEXy/ZOTs 5vvlJIgsSH8y/kMUJG5v/FZdRAIZgL/2IaLw/lVX9uJzElFPdDDJ5nbpJEAf dfxY08+EerOd8x5JJJi8PVbvfpcJMRW7PE1iSES98tLoUfKpSBJs8znS3tuL 86yGs7+Kb5EgiovP1CwegetOP2vSYklEfTRpkiRcEUQCU95q1nwvAwSMw31e +uN1trmj988nDBBZc1L2G26/XI8VUUJddnmT4Nm7Pwcu9tPB+4TKhmAvEpxK +/rf1lw6rPvhHf/zDImo97iulsczTpFgl5y0iuMgDc5z5Txd404C8UaNcZtX NKiJt+jWPkki6sm7brfTeFxJMGSNrckYEQHLK5Iqgy4kuDfcQ0bKRMBCukla Eh/fcv26Uqn2uhjev+TgiuNP+4ThJkbjKsRxeX9gat8NYaDc7FgRFEgi6uWF mBfHt+PjUfttm1k8JgQd4S8vlJ4mwV+VnJ5PkULw/Vwd450niajHH/oOOT7A 50vKMswO4cXz0uf5fqkLJKgmnTDrfIjX87XM/S/8SES9r0MSLhjH1zMi8PIv XjF+cBj3e/QrlAQMyXcZEzF8YFcpBhsekQh9YdGlJsUW3y9v65pR7f+o0M5a o7Y7Gp+vbqoYdwwF/tttP+qSRyL0DaOii6Fvn5DgV2aakYAJGV6G5qm75ZBg 7k301+H7JNBJPu4LL0mEntKIbijTLiMBb6XjteuHV8DhkKWJT9UkQo8pq3V/ 3YNjXpONzNEIXqDv9X1NryWBDSvNwfUkLwhKn9vp30wi9J2MW8GVd9pJYNvV efTZZR5w6r5xcusoCYLzhw+tCOEG0/sNbtqTJEJPkh7UpvcskACEQwNPJXJB svlJKT0qmdCjTO8+OWCJkOGY3reZFaOL6H23Y372UmRCzxrVNVwvrUgGTad9 a++FLqDVj2whBiUD8L8S434/ix4sVt8rakwm9DO5m67Kv/F12Wg0EiLaMIPO aOnOju8mA0Mv9Kte8TQqnm7/7gkeX5b1OdlT+h5wiAwH5X08qdNTqG/t5xBJ dzKYb/drLU6eRIG/duywJ5nQ+zb9Dbq3+hz+f6vz933Zk+g99ps9hjfIhF64 HA9r9obWv64ZQ/df2/c3N40Mb79L5fj7jqF1RjYFYo/JhB557R59bSSO6xe8 lDrcxtDdXscWtteQCT2zMm1GdrGHDH1q0lOulb/Q7TxCT4cGyYQeuv0mc8Ly Dxl8D3NluW8dQQe/UCfHBCiEnnox0m9TBosCr6jM95fiBtDEVXXyLloUQo+N 06TNhwEF3oSL71md0IsqDYe578Lz1bKeW+Jezp97ggLhbzZ83LKiE+22NVDJ uEQh9GCuG81GYVEUOK2qLvaoshn1bWiIOZ9GIfRkR9ru/fy5FLDZ66l4ua8R ZV/7J4U1Ugh9uvRvuXXUNAVOqkvtGLr8HBX85sjlN08h9O7WE1oimUsUMIl8 XWf4PQ1dzv+NWn9SdBtisZpnydma+L1Z1tPLJl2rvG2pQA1Y7xzxsgpTffjB N+sYldDnfRKmvMW8qNCy3nKgYV0d1uI90URPohJ6v2jrzMLDCio0ubrmK9i1 YNz8m4KOdFKJ94Ps7Jac3RScjzknFeQ6dWE82nUTFap8xHvEGTM9/yeafFAo H1WS2tODLfOxyOumF55hg1ha9wC5PZkP7E+KDtzyH8LQ07X1tY/5iPcQvtSP SzY4vxt/3Xczb3wIUx16eFOYh594T8lKOdTntJYfAiL8Uprqf2OpN0RymPb8 xHuMciBbuiuFH54V12+/ozaGnTlccq63lJ9436EPTdc+/8APtxO6JvtI/7D/ /773P5FrLp4= "], {{}, {}, TagBox[ TooltipBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJwl1fOfEAYYBvC7LtvWZdu2edl1mZfty7Zt2/YYx9yW28JWW9hq+96nH77P +xc8zxscGhbSKzAgIOCkiLiRCCIyUYhKNKITg5jEIjZxiEs84pOAhCQiMUlI SjKSk4KUpCI1aUhLOtITTAYykonMZCEr2chODnKSi9zkIS/5yE8BClKIwhSh KMUoTglKUorSlKEs5ShPBSpSicpUoSrVqE4NalKL2tShLvWoTwgNaEgjGtOE pjSjOS1oSSta04a2tCOU9nSgI53oTBe60o3u9KAnvQijN33oSz/6M4CBDGIw QxjKMIYzgpGMYjRjGEs44xjPBCYyiclMYSrTmM4MZjKL2cxhLvOYzwIWsojF LGEpy1jOClayitWsYS3rWM8GNrKJzWxhK9vYzg52sovd7GEv+9jPAQ5yiMMc 4SjHOM4JTnKK05zhLOc4zwW+4Eu+4mu+4VsuconLXOEq1/iO7/mBH/mJn7nO DW5yi9vc4S73+IVfuc8DHvKIxzzhKc/4jd95zgte8oo/+JPXvOEv/uYt73jP B/7hXz7yif+IKH8gkQgiMlGISjSiE4OYxCI2cYhLPOKTgIQkIjFJSEoykpOC lKQiNWlISzrSE0wGMpKJzGQhK9nITg5ykovc5CEv+chPAQpSiMIUoSjFKE4J SlKK0pShLOUoTwUqUonKVKEq1ahODWpSi9rUoS71qE8IDWhIIxrThKY0ozkt aEkrWtOGtrQjlPZ0oCOd6EwXutKN7vSgJxHjHUZv+tCXfvRnAAMZxGCGMJRh DGcEIxnFaMYwlnDGMZ4JTGQSk5nCVKYxnRnMZBazmcNc5jGfBSxkEYtZwlKW sZwVrGQVq1nDWtaxng1sZBOb2cJWtrGdHexkF7vZw172sZ8DHOQQhznCUY5x nBOBn3/f/6dNylQ= "]]}, RowBox[{ RowBox[{"1.4383507120505021`", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3.984576856307504`", "\[VeryThinSpace]"}], "-", TagBox["x", HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3.410366077966767`", " ", RowBox[{"(", RowBox[{ RowBox[{"3.984576856307504`", "\[VeryThinSpace]"}], "-", TagBox["x", HoldForm]}], ")"}]}], "-", RowBox[{"0.05729814210871329`", " ", RowBox[{"(", RowBox[{ RowBox[{"4.638652551327876`", "\[VeryThinSpace]"}], "-", TagBox["y", HoldForm]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "0.05729814210871329`"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3.984576856307504`", "\[VeryThinSpace]"}], "-", TagBox["x", HoldForm]}], ")"}]}], "+", RowBox[{"0.14269516513496472`", " ", RowBox[{"(", RowBox[{ RowBox[{"4.638652551327876`", "\[VeryThinSpace]"}], "-", TagBox["y", HoldForm]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4.638652551327876`", "\[VeryThinSpace]"}], "-", TagBox["y", HoldForm]}], ")"}]}]}], ")"}]}], "\[Equal]", "8.353702881302247`"}]], Annotation[#, 1.4383507120505021` ((3.984576856307504 - HoldForm[$CellContext`x]) ( 3.410366077966767 (3.984576856307504 - HoldForm[$CellContext`x]) - 0.05729814210871329 (4.638652551327876 - HoldForm[$CellContext`y])) + ((-0.05729814210871329) ( 3.984576856307504 - HoldForm[$CellContext`x]) + 0.14269516513496472` (4.638652551327876 - HoldForm[$CellContext`y])) (4.638652551327876 - HoldForm[$CellContext`y])) == 8.353702881302247, "Tooltip"]& ]}], {}}, {GraphicsComplexBox[CompressedData[" 1:eJxdlmk01Wsbxtl7sw2bvf33wDbuUUc5GRsIXUQUFSUy1amoqCNKhgZTaSvp qDYlzeWo0EmmIoVToQGVylThSGnulJQhr/dD/3et98OznnV/ude9nue6f9cl XLF+YQhFQUHh4vj5783wr/w0u0QK7wTzirRVPBgcsI/NXSLFZv2i5cW7eHDL jE/g6kmxOizR/EgKD8z5Le/evpag4c3jhd0xPIRN9l7x7qoEPIe99kbRPEie uLMYOyTQ/PLsRGgoD2l1Ji43l0rwrkEmOxrAg8Dz2ECauwRtD6UBoV48FPw2 NuGoggSNXyj/DtjwYLHt1cDQsBiU3ZbR7dN4iI946nTuqhhUs+BnVC4Pjd9b 1DadEsOmeou8lMFD+OWLQWsjxLgUuXZw0QAXH/aff+fhLAbD78K67Z1cnA5e oH3ISoymz22MnmYuBsqvzyhRFqPWRXckv4ILlmlis6RPhF3cnNt1eVz0Hmxc 7nVJhGUnHQ8GJ3NhcXNx8YhMhBzBoN2bdVzsf64RYGwvQrIiJXmbPRed94SN d8xF6C/uK7O15mLh0klZLSYiuJ95GZVtzsXNG/pLq3gizBtw+agn4YJd7xZy qkyIcM25j1w7OZBnPA7Y8bsQmg9qDtee4qArmzBnvhWAEnc/XTCLgxO1hMXs OgEmtT2vr5dy8Lg2SWhdJEDkcNWyYh4HaSzrlY8CBei4LPz+5QEbtyhbPcc8 BViXdCQ/v54Ni9d+jXX9RjAfZEZKNrGRfMw8tavaCF26gcFfVrIhT91pMphs hKSPJ7L/dmOjbP5FvwmRhnD8/KjnrzoCPjF6NoY0Q5henPe+O4vAjmq7hF2h BlBcE5G7aj4B22LlFzu/6eNuZzpNyCVwb1aL24cF+ngbYqejf0MLdF+WHbNA D/n9R/YFR2rhunZQRF+CHjJtj0yt9tPCc3rUH3VRekh6PrNI1VsLrjtO5z0u 0MWtI+vDh16w4Ly1eNiFrgv6Jj8TbRkLrOPXxFu7+bAMokXc2cBCl+NTg+Ml fCj6MqsK/Fgo6OrYa83nI9XJ7axomImyBY6TfNt1kCx9nzJymYn6LlVZ7l4d WGlstvwcwMR7fp2Zu7cO/lZnCK0ZTOgcSqfZaehA8WjVvuPXNKHGLvVY/EAb FluafunZoAndpLEDd/ZqI3twla+GoSamOobtps3RRiIn/ajTDQ3Mc/mNUOJp o6krfCA8QQN9l6y5G+/zsEh/YSVTqoFPHGH1aDoPCnsCz71oYCAjRr21xI+H ynwrs30JDJQvnejxTocHv52b95+VMpDfW2kaO67jRKppaWqTOh6cKzsafJSL VSun6fwVoQ69D8YJZaFc/DOYa9vNV8caSxP1E7ZcKGwZrp70SA03iQ2l+ZUc RIWdpqUx1PBRrVDucpCDxH9v321sV8WLOY0LLwZzUMqfmPMgRRU+mhomNyQc WCR/T3fQVsX+mpT2WIID/jdXzxvfVDDDN4c3j8aBQtjh1sguFQx5pkwxr2XD krPAWBKqgje6BQ5aBWy87Vc7/32mCja1S52oCWwkdof2cvroKHOK1wqIZqP5 mz01+yEdh3D5/cY1bLS2nH11uYSO1UXbozzV2RhbYvOx/I0y1o753nHrJ5Bf 5G74+2FldGxYWSIuIPAPS1b7VVEZ7+86eLnlEohvVhnx/6SEOXk+kZXHCFw9 UFkve66EjB5Bo3ADgZGhHkUDZyXEaOQiNojAD9dW+o+vNEwt1T8zNIvAdOJP X30ZDRTvAfPpdgRKFsXeslhBw9n7mevqrcf7X89jnxyhQmVkUdZZSwKXA53i bp2mAjFdfJPxeqXt8Rmb/KmwZpanSVzH+0+NMXKmUFF20OD5nhACgUK8CjtD +d/8KnleLnMpyCqkLZcqshF/Yfakl3QK+AYbf7nnwcYNn7434n8UsemrwKxr Oxs57V4VkeP1z/9xa/6yIrNZEdcarOY31HCw2TggzOOZIvrkrD/aP3NAY+31 //ReETFp8V12q7hk/5/6CWwzLizhUXC6aM/h9vNc7Jk88dhdPgVzp310OTOB hyMm8pbo8fl+6jPf6qy90TIKnuW/Tmgp5qGsN3X0cgIFKcvSE69e4SFCf5r2 oWQKqX9OB7tsdREFw08rvKWztPGirjfI5RYFg8EfwmZe1ybf5+d+zex2L/+g TkWhzfwpK9x10KZdMbMogEruq3uX9FduHBWn1vYelk3iQ7Q7pPjJAyrMrmWx TRbzUfm20EvrA5XkxckqecqFcBqu1oiyV3noYsjqmg8vhwafqMYlyx7qkv/f LhrWM5ulB9OQvLdlrkokn/Sm3vc0i1ZC27a1S6Js9HGuNFBNeWBcP8aF9FMu +ghUvvuia1SJ5N+DLPmnb3JlrJ/sHVgsNICqET9oqEQZlV4RC14EG5B6dl6c Uf6Mboh7hxbKimLoJG/zCDml5hYdGaOeK9IzDcl9aaE21MS9NQSR5vF6q50K ovSV5DG/GsHjiaGsIVwFfoO06YGFRuQ+0rfvJPybjODArHgpp6qS/Lerdi4s 1lFFxfTv8XE2AixTvbOvKUsVtDnXKum+Ash2JS2d1qxK+ovVxZeC1J1qCJgx T9bZJiB5YpEud2kyFeKUt3SVbZI66V9GdnFUOw0GtLeOzqquF5J8m5vtHpoy KgR6xqaVz9Qg/bGkgc3/JU8DDZbzh6bkiUje2nfQfxjUi5ChVPo0WpNJ+vPi 3YFfOvyZsGvKeaYbJSZ5P3+x11b7NDEkmTplu2NZZD7wW09Y/X6AhfjsCY8M H4vhmDNhWsdjFixf3qZG94th/m5K0OkBFpk/UrboLq7V0sLy3oGWAXMJ6UfH vTqmfJgtwTpX25CKjVpknun4EbL3R5YW8vRydTRlEtSIl0yafl8Lu8c+dYtP SNAXG/Zx26AWmY9ena5enS0hIO5UMHVolZD+2XS7b4v/VwnUdzV9n5FA4FFb jWjHmATC3Vt7RvcQZP7KmFf+Ka2SQE5cgMRGIEVB+Plv12+M+7Hg0P1TEikc C1KNMu+Mc6r9YVOnkxQ1VYOdMQpsDJ2xaqbOkeJvVZ/eS+NcJbpTMheESkm/ nzBy9oh9nBQuT0au7AplQ7euYcoPuRT6HMsExkk2DKILm2v+lKLW+gr735ts KK98eCXkiRQs/7qDw9Yc7Gz9i6XQIcXDCtt5Pg4cfIvtW1/4VErml8BZE91C eqVw3WKxZ403B/2RmyJc6MZwquqnL6jmoMKsdfl1DWOEBNQ6zxjgwKfVXRIv MSbzlbaVDneZqTE8jl7Ijb7ARURwcezzicZkfsvMcJlL6Bujx92ZmT7ukwvp k9NXf5eS+fHnvMG50xnpvjz8f979Dz+/hZY= "], {{}, {}, TagBox[ TooltipBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176}]}, RowBox[{ RowBox[{"0.4754295906459098`", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"7.816438893926058`", "\[VeryThinSpace]"}], "-", TagBox["x", HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2.1559088501714982`", " ", RowBox[{"(", RowBox[{ RowBox[{"7.816438893926058`", "\[VeryThinSpace]"}], "-", TagBox["x", HoldForm]}], ")"}]}], "-", RowBox[{"3.5594908385696207`", " ", RowBox[{"(", RowBox[{ RowBox[{"3.929835240236697`", "\[VeryThinSpace]"}], "-", TagBox["y", HoldForm]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3.5594908385696207`"}], " ", RowBox[{"(", RowBox[{ RowBox[{"7.816438893926058`", "\[VeryThinSpace]"}], "-", TagBox["x", HoldForm]}], ")"}]}], "+", RowBox[{"7.928953954111777`", " ", RowBox[{"(", RowBox[{ RowBox[{"3.929835240236697`", "\[VeryThinSpace]"}], "-", TagBox["y", HoldForm]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3.929835240236697`", "\[VeryThinSpace]"}], "-", TagBox["y", HoldForm]}], ")"}]}]}], ")"}]}], "\[Equal]", "2.8401718964319627`"}]], Annotation[#, 0.4754295906459098 ((7.816438893926058 - HoldForm[$CellContext`x]) ( 2.1559088501714982` (7.816438893926058 - HoldForm[$CellContext`x]) - 3.5594908385696207` (3.929835240236697 - HoldForm[$CellContext`y])) + ((-3.5594908385696207`) ( 7.816438893926058 - HoldForm[$CellContext`x]) + 7.928953954111777 (3.929835240236697 - HoldForm[$CellContext`y])) (3.929835240236697 - HoldForm[$CellContext`y])) == 2.8401718964319627`, "Tooltip"]& ]}], {}}, {GraphicsComplexBox[CompressedData[" 1:eJxdmHk8VO37x+37HmfmIIx9rCPZ1XzqqUdJtlKWFJUWe0+WJEuiQkpIolRU QqulUmkRskREhRYJSQvJLuV3vn80f/z+mtf7deac+7rva/tcN2NzkLMPDxcX lx03F9f/fq9siGi8whCFUmCdX+NVAuEvd5iWTYugY6uNz+9rBHIuf+VpNBDB 0mbbH0LlBN4K733yT7owehZVaF++R+CYnN04y1UI68ou+kTXE/AKbLHPlxeC /aOG72rPCLy/YG3k3yCIMcl1DiXPCfS/0OziyRNA2H/yuaLvCGRmJPOrPubH nWVjP/YMEPA1i/LZzOTHk+tawRuHCHwVNY/N8+LDp+oHblWTBIZy2n48vsGL 4aXbTitw0ZDrNcV9XJkXYveTNo5z07DtS/rj8js8yA263rlXkIbdXDr7GOY8 sHA191wqQ4OA7PKRb0NcmDuTvT1ElYaprbGC+x9yQfTg56FWdRq2bG67Np3F hZT+MNmdGjTMFiQlb/SbY8fJbPE1W0A9tzm/8mv5H7Zud4pBnzkN02lXNR6n /GFH006FdVnR8FW39elx+z/sUR+/1NvWNAQtzPfZ6jDLZghW6/90oIFng7t1 7OlfbEanYshKTxrSh7NuBlvMsBOfLNWwCKBBTENwDbt4iv2z8HDcqhgavjz6 akSvn2TLv70W0JJIg9xQ6c4/FeNs/QqL1vfnaXC5yjS/nTXGrloX2edznYYV Olv5Cm+Osj/WSixVeEWD0m2v2Mq6n2wdS5WTc79oeG+44KLlxRE2T076xgw9 Ouf5ifmDFgJ2dByZXBLOqzrGxuUVB7yD6Zz1Ar6Vyzpk09HktL1Dd+0Ee2l3 cUdVIR1736/nO241xWak9i50vk/n2L+cd5lL9CM62reZrNnqPs12WLDb5H0t nbP/kviXSnpv6bD+FX5hv8Rvdok3b93uQTrnPFPKRUuHJ+i4G6/Fu8qPCz6p 3ydGRUiOv2qd9yU0SpEoaAvX7p/ggrVOs9FhWRIxscyybTI8iFOrdh7RJPHp n5dWtw7wYrPjToMvJiQnfpalRtdfMSNxZ3vd6/RBXrwqKhdotyA58beBzyxW 818SJlG+d1O0BHDS+jn3RQeSE7/Vqg0M5bUk5rRWeqpaCuKKks2C/W4kJ/7N PNLiTnqTUJZYpNPyXAgxD3cOD2wnOfnj60yGpgaScBk7u9EvTgTZB+2OBoaR WH9RzbxPVBRzrxQbRCJJ6N6LED+4TxSvpthqN6JJvEDTlfh4MbBr0x0FD5HY n2GRVVklDpOOf/+9lUrC/m0YQ+O3OAY+lLw8mEZx58LZ2/oSkDOTrppJJ1Ef rpJZEyoJg9QR9aQzJOIrY7iTWFKo2v72mfIFEktU8yoVd0thT+2M4+tL1P5O 7VRsjJSCqXlMjn4Btb/XFewDxtIo3+j/av01EoG16/n/eS2NuGpxyZAyEvIL YldoisogZLFezspbJN78t6VM7YoMPkcZJnDfJ3Fa30JfY9E8zFZx3x98RCJM oE9IJWsepno/RrU8IbFOQpxZrS6LqwYO3c51JHQOu1TUXJDFPaXSYtNnJGTf em+R7ZFF/CXnnb+aqHgYDG58qioHVrxDwrPn1PkU3jqz9YwcvEZ1xRzaKPt8 Ty/QkiBAX/fIwO0VidRw0Y4yNwL7sFjXvoNEeGJDhF4xges9Fjk2XSRWL/eS 4SdoePnSiTn9loR6/qCmXQRVR3Ti0hy6SQjNdERvMKLDtl3HZVUviboPwocu HqWj50Su7dp+EnsXSjPNPtFxr4iXQR8gQX6Za/QpJyHzpnfywxcSy/aV/lou KI9Dmtv3bvlGfS/4a8uXtfK4oTmjcvM7CR5bIdPMJ/I4Nm/z4aBhiv1l37uY KaB6YfFe6RESD2mewZ9iFLAl6nQF8yeJtabe93bWKCBNpPIlfZTEvv6bRabW iljaWuWfNkbCWFKuyuK2IsLHA5P6x0lYlgr0H5xShNKd4bnCCRJw35N0y2w+ vuUtilk9SWLgYQGpZKKEz9sfH/GZJnHL/oab1i4lbMoZtxqg+Ju2V39bsRKU 6v64rZ4h0XnFS1nypjJEem/knfpFwuiLW/PTQWU8C1y5po/ixaJs649SKti2 S+wsMUti0mM9n9gaFbx3TLjlR3Fvrq/LkRMqOEtGFSdS/KpqP2PhTRXssriu eoFi/RWVe2ueqYDfcPRAAcXlzCuLN0gykJHM+zOF4i0zi+XznRgQr9e1WURx Ruorj/gABga9TaKZFF+auSR8IpEBveTbln8oewJGy/xbxVSRcPRPxz3KfueN upntTFVEl7sYhVMs1KVp42yjio1OTSN0iiW1tlxXfKoK95TGRLEpElJ6sS3q n1QR2ik3d4w6r4A6xYw//GoYvSfRPk6d53Ba0Xe7ZWrgKc/xLaTOW3VFrnxS rBqcwi1tTSl/NE+3i4TmqeE4UysvjPKXUaL62pwaNaw+VCqUTvnzitec1hku dYi61/6a/EHiXbjsAyULdTgEDbSzqXhIfspcXrNRHW8FBJr0h0iEJJ/+zjyo jvgvNqVDVDwV/naJ6/6hjhGtgBuGgyRWnIiOkVPQQNYpus4dKh776q7UF9to QDw0f1TgE4mVrnY6rQUaOJe03kjsIwmBLW0VPq81sF64yYP+gcT8itVrVUU0 Idva3d/5jqp/9b9fpZho4lDPXEjnGxIp6efWTnlqokyZa9+bThLVLO2x8nRN 9OjfnnV8TfnTzWH2aJMmFHwd8nzaSeSfdJZ+P6KJhYTU8pgXJFoeSke5zdPC uKfLwfwWEnF/9hkIOGqh/t7Vs1up/Daz8zIePa6F5Mndiy7Xkzjvcf/31FMt uEykkL61VPw+a92xTkwbTsOfnrtUkTgpKBfouF4bVV/Gnp6tpPJl9xqpN5Ha eKdS37bwHok/pzTzL9Vpw+yOrLQWVZ++MobVLs9nUnrlhL3tDeq8uZweNWsy 4XJCK+bCdRJOC+ye8xoyEfPhNFOY4vvbI99NxDMhuDO2u+sylR/WMi2/nzA5 9XO/9ND54Q9M/NBo0jA/TyK7+eKMUi8T25oFjnBTHL5WglXYz8QNn8uuD8+R iDBpodks0QGfW675wpMk0hr83N2P6SA4YyTwwVESrqdnFgad1cHV/xoui6aQ EPnBS/co0cHTbufXk0kkTHk1nE/+1sGr+6s3H46j9pOpXP7DWhehffleOlT/ kPN1CHrooQv/7v7BonDKP7O1C4JidVF27myA224SYy0RRwYqdEHjs3+y25/E Jum7R+8M6oL9TLL2wDYSbWYXCiXpeoDtkl29XiQObBDw+uygh+u/wlZ+oPpd SW5zrVmYHkaNo0JnqH4o6d311TVLD1lBtV5OFBdB3M65XA/DshfXWDqSOM4/ 3bupXQ+VotWOFSso+yQj2tZ/10P8xC1fNYoTzLM//VbSx9eQpvNfQSLYX437 8AJ9JP/THadiTfnbQttNfak+PIJb95RYUfV3WZWVRKI+li/O4aMZkXBoW610 I1UfJc/OJ7EMSSjcF6tTbdTn6AGh4qdiE4P66Or5brxbhYSB5R6rjiF9fJbw t9mlTL1fUCN9bFwfGQNSKnxKJMTO57lyrTbAAtfBXB1Rqh+G/nu5MdkAZNwT HvZvOr4KNoVqFxvAbHlZfwClV8oGGpT5XxugzKyg/tw3OhoCJ9MchQ1BMn7S rHvoCLJdkdOmZ4jEanuf6Q46Lr9k3Niz3RB5prMGmY108HK9qu29a4jD6ZnX hO/QccjarulcjSEqb+1kRJXT4ac2cFCuyRCFnaaxV0rp+MV/PTp5whB/9Vip k1VonzQLunOtO9oz6LAaPXeqVZ4F1y1hFwTS6DA9qLUozogF08cJNRdj6VBN aDkwBRbS/lNtObCDjm8tkfNn17IQvElQ7Jk3HW9lcruMN7Mw/PxIg48THWl3 fNLEglmQdxDKz7CigxhQ/8AfysJmY3FaswUdidHVJrExLPzVlz/7TrqJHmXB n9X+TGuOhmz/zmuiqdR6vaE6sa9p+OUuJhebyMJf/fr3+xHSPwVr0mjIlKpd GOXOwh3+/4KS/WjQbt/+8hplX2lOz6nz22gc+zW0KhcNu9AwWR577JEpCw+o nNqymoZIsSady3Is/NXvNmscTqfKsDBONygMYNE45yUrvadmDcVmTMHCN1Is mPdaOoUbUvo/yNVy62tD6N0lsk/J0zj+yG6tOVgqR8Mevc9uhUWGUGkbWOop QQOz8IiyTaIh3qRUOy/np3H8y+e+Jk+fl4aMioQAR0tDuOwTcJEZIfCr5ce1 BhNDKu/sn+n8IDjxorsxWbz8O4FO3g5GS58Bfr3Z65PaT3Di7XtRTtZEB4Hg nS/2mWYaQDGq4GZPC4GuzI/+Hm4GCFyXsDSshuDEb/Zh7fwf1QT1Xu3iG/8Y IDd5VY7vYwKVq/ISIuf0OfPd33x4XEWGPS0hoODXwF2arY/gj6FpFQUEnOYe uKbH66N3IDlk6ALByU/HhLbexGwCnllW91OH9GDc2d1umkZAJ4T3pwKV/5Fn iq6EJxOcehFUNJYgEU+g0T9Ix3eJHoS/rNGWiCawwM/lreuALrY+WzGzLITg 1KeU4RJzxyACczqxCYvSdWGbkzO4xI9A9Ixkv5WCLrhbGVH/bCI49TCMMP+2 cgM1j9705hHu08H0J77Idkr36VocC73tqIOVm9zUve0ITv29FbTkwoQtgZMu L1sbjHVwZtN/y+pWEpz6veenT9bQUgKB9p+THhxiYoloRP4RK4LTD3anPQ53 onjFCU+V/XFM9KT4lSpT3G/b/TpoHRM8SQvCusyo+Xara4J3szb8dyZbW7MI Tj+690HRtZli98F61fAqbUQd8TA6b0hgtiay6w1dG7pcky0LtQhOv8uyGx47 p0mg3jlrK98fLdS4Dka2qBOQuM/HfPpAC7uEuDPrGQS8fQpWGVzTguKuL30B qgQqQt4vit+shbEXUfHLlAlOv/XcJ9FySIny94jsjiBrLSwPCLB/Pp/Ak8jz 6W7FmkigHW7xpxOc/n46wkdMU4HAjnETq4G9mniwwprZTRA4YdFf6T6qgZIz WkbXZQiOnvC0PdH1RZrA2vb3x9fe1UBB8eoAE4qzOqpPH7TUQHv7fA1xCYKj V95OMoa9xQlMMHddPTCljqTf17L7hAmkjNsf7etWx/afcW88KfY1WLv5+311 XG/+XpUiStlzz0nibaw6Tvf06B8WITh66epxCSE+ig96Wk9OW6mDcahPP4t6 P//t0SG3WjWEVV96zhAiOPrMWYErhIta3y7d44BWtBpKav+9mSlIQF7VnzYn oobSVO/jbwQIjh60XL3E6yHFU2YdSSaPVRFRerngf2ye/9irwV4VJWXPZ29R /Fdv6h/MqGyj+Ll9O/ddHlU0xLttesdL4E2XnnnFTwYC4tY/GaZ49yRXxJVG Bvhk9ifZUutHfbQ9d/c4A6ZronLLKf6rd0s7WB7ClP2tm78Vda9kYPetGmY4 xe+mzxc2t6mAda2Rv5Pa7199vefjRLS1JIE73Dl+/x1TAbdUyMpp6nw6Kyzt +eVUoJE/Wa1K7f+vns+pFHvfTLFHT/6Xi8XKmF1zkyuF8pdP2L27d4uU4Guh siuD8uffeaFG1IjmTvn/+eKc5khTJRDXWoy7pAjYX4u5+fH7fJgYhd8Zov4/ Feuh/LpsPnzVFj8XkiMwU/PvimLmfMQsXZ1nSCM488pdUUvz3xSP2O5f3FGv CJ+uAryg4rHv5ruuzksKKBULGx2n4vXvfGRn/nuzFxX/oWYv28w9FDAd0lK2 h4r33O5W3mWq8rDTPswzqEFw5rFXy0NV4qh8CsmvPTeP0tWfNDMz5Kl8054b dxjIoSOKHRgsQuXj33kvsbw8ZhmVr0mhfd1ecXRky0WVl1DPReaV27m8oKFZ JL3deCGBndLaAttW0Tj5P14k8ukQnYa6+bS6BAuCM29uvzSyqpLiVyZjwvzz aDhQv4C3k+JLZ8j+vWVy8N93Zo2xDcGZbxHBrzdvBYHJ5U79QQfkoBKhcUSB qlehPwfbvzrJQvyFe/V7F4IzT4ud+Mx4uJ4Aj/newsCReUjhbV85Q9XD2tuS Z+Z+yMCTfirvnA/BmdfXJRSdrtxB1dexrZ2zG2Sw7Ka0+R5/iiMfxBcfl8aB s/ebdoURnPuA+SpcdNFIAsbZg9/kaqUQdFjOPSuWgLWwBKvfWAqWhYObVx0m OPcP3EWiiheOUnP4b/Z5XzcJ5Fodv+uZScXDfab58uviELMNuKuZQ3DuO5IY mosS8gn8//vK/wMWq7y3 "], {{}, {}, TagBox[ TooltipBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJwl1GeYCAQcBvAbbrvpcPsct9zhttvLncOdUpdKWyJad4k0FCrae1AaaJcW WhQNTaUymrSTUWkPDfW7pw+/9//9fZ73nzWpu7MrMCAgYKzouUEE04sQQgkj nAgiiaI30cQQSxzxJNCHRPrSj/4kkUwKqaSRTgaZDCCLgQwimxxyySOfwRRQ yBCGMowiiimhlDLKqWA4lVRRTQ211FFPA4000cwIWmhlJG2MYjRjaKejpy8O 4EDGcRAH08khjOdQDuNwJnAER3IUR3MMx3IcEzmeSZzAZKZwIlOZxkmczCmc yml00c3pTOcMZjCTM5nFWZzNOZzLbM7jfOYwl3lcwIVcxHwWcDGXcCmXcTlX cCVXcTXXcC3XcT03cCM3sZBF3MwtLOZWbuN27mAJS1nGndzF3dzDvdzH/TzA gyznIR7mER7lMVawklU8zhM8yVM8zWrW8AzPspZ1PMfzvMCLrOclXuYVXuU1 XmcDb/AmG3mLt3mHTWxmC1t5l/d4nw/4kI/YxnY+5hM+5TM+5wu+5Ct28DU7 2cVu9vAN3/Ide/meH/iRn/iZX/iV3/idP9jHn/zF3/zDfv6lZ/yBBBFML0II JYxwIogkit5EE0MsccSTQB8S6Us/+pNEMimkkkY6GWQygCwGMohscsglj3wG U0AhQxjKMIoopoRSyiinguFUUkU1NdRSRz0NNNJEMyNooZWRtDGK0YyhnY7A ///lf2/AjTw= "]]}, RowBox[{ RowBox[{"0.6326049546641609`", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"8.838983369618491`", "\[VeryThinSpace]"}], "-", TagBox["x", HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"0.10199398769240174`", " ", RowBox[{"(", RowBox[{ RowBox[{"8.838983369618491`", "\[VeryThinSpace]"}], "-", TagBox["x", HoldForm]}], ")"}]}], "+", RowBox[{"0.09326415396728394`", " ", RowBox[{"(", RowBox[{ RowBox[{"6.0013685039719125`", "\[VeryThinSpace]"}], "-", TagBox["y", HoldForm]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"0.09326415396728394`", " ", RowBox[{"(", RowBox[{ RowBox[{"8.838983369618491`", "\[VeryThinSpace]"}], "-", TagBox["x", HoldForm]}], ")"}]}], "+", RowBox[{"24.584952388208094`", " ", RowBox[{"(", RowBox[{ RowBox[{"6.0013685039719125`", "\[VeryThinSpace]"}], "-", TagBox["y", HoldForm]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"6.0013685039719125`", "\[VeryThinSpace]"}], "-", TagBox["y", HoldForm]}], ")"}]}]}], ")"}]}], "\[Equal]", "3.8511804320941794`"}]], Annotation[#, 0.6326049546641609 ((8.838983369618491 - HoldForm[$CellContext`x]) ( 0.10199398769240174` (8.838983369618491 - HoldForm[$CellContext`x]) + 0.09326415396728394 (6.0013685039719125` - HoldForm[$CellContext`y])) + ( 0.09326415396728394 (8.838983369618491 - HoldForm[$CellContext`x]) + 24.584952388208094` (6.0013685039719125` - HoldForm[$CellContext`y])) (6.0013685039719125` - HoldForm[$CellContext`y])) == 3.8511804320941794`, "Tooltip"]& ]}], {}}}, {{}, { {GrayLevel[0.5], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{3.984576856307504, 4.638652551327876}, { 7.816438893926058, 3.929835240236697}, {8.838983369618491, 6.0013685039719125`}}]}, { {GrayLevel[0.5], PointSize[0.02], AbsoluteThickness[1.6]}, {}}, { {GrayLevel[0.5], PointSize[0.02], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, {GrayLevel[0.5], {Thickness[0.008], Arrowheads[Small], ArrowBox[{{3.984576856307504, 4.638652551327876}, {4.108274240011395, 11.695191738049479`}}], {Arrowheads[Small], ArrowBox[{{3.984576856307504, 4.638652551327876}, { 3.6914845642327956`, 4.64379030352539}}]}}}, {GrayLevel[0.5], {Thickness[0.008], Arrowheads[Small], ArrowBox[{{7.816438893926058, 3.929835240236697}, {5.852429531923476, 2.993889541870064}}], {Arrowheads[Small], ArrowBox[{{7.816438893926058, 3.929835240236697}, { 7.861133647786413, 3.8360467702780996`}}]}}}, {GrayLevel[0.5], {Thickness[0.008], Arrowheads[Small], ArrowBox[{{8.838983369618491, 6.0013685039719125`}, {-0.9997156387506099, 6.038847006738289}}], {Arrowheads[Small], ArrowBox[{{8.838983369618491, 6.0013685039719125`}, { 8.838828428830634, 5.960694099624702}}]}}}}, AspectRatio->Automatic, Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->{{10.759460978386599`, 1.5000000000000568`}, { 3.6287927603545427`, 3.1570967374295833`}}, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 19.983487321096746`}, {-1.5248073887772806`, 11.16692469920202}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], {288., -62.81898764588591}, ImageScaled[{0.5, 0.5}], {180., 119.65521456359221}]}, {}}, ContentSelectable->True, ImageSize->Medium, PlotRangePadding->{6, 5}]], "Print", CellChangeTimes->{3.822285015497779*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"c696e11d-c1f7-4c77-85d3-8a65c09ba6d4"], Cell[BoxData["\<\"COMPARISON: \"\>"], "Print", CellChangeTimes->{3.8222850155087166`*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"e00b16bd-5975-4c8c-85d6-778bfa4c59c5"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Initial Centers: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "6"}], "}"}]}], "}"}]}], SequenceForm["Initial Centers: ", {{4, 5}, {8, 4}, {9, 6}}], Editable->False]], "Print", CellChangeTimes->{3.82228501551174*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"3891c38c-7251-4169-85e6-f5587e82e66f"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Centers: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3.984576856307504`", ",", "4.638652551327876`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.816438893926058`", ",", "3.929835240236697`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.838983369618491`", ",", "6.0013685039719125`"}], "}"}]}], "}"}]}], SequenceForm[ "Centers: ", {{3.984576856307504, 4.638652551327876}, {7.816438893926058, 3.929835240236697}, {8.838983369618491, 6.0013685039719125`}}], Editable->False]], "Print", CellChangeTimes->{3.822285015513735*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"a5e43b95-6923-4db9-8ec1-3ebd9aef3d2b"], Cell[BoxData["\<\"\\nInitial Covariance Matrices:\\n\"\>"], "Print", CellChangeTimes->{3.82228501551571*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"678bd324-b70b-4058-9349-7ed103cbd6ca"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.4`", "0"}, {"0", "8.`"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"2", "1"}, {"1", "0.6`"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"10", "0"}, {"0", "0.05`"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "}"}]], "Output", CellChangeTimes->{3.8222850155187263`*^9}, CellLabel-> "Out[209]=",ExpressionUUID->"1980071f-98b9-4aff-bbeb-ac9511a22bb2"], Cell[BoxData["\<\"\\nCovariance Matrices:\"\>"], "Print", CellChangeTimes->{3.822285015528695*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"494e54bc-2fa7-4a1c-9584-21ed9bea5c10"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.29521528777725287`", "0.11854142006652303`"}, {"0.11854142006652303`", "7.055545310035491`"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.7922075933980486`", "0.8045634451196524`"}, {"0.8045634451196524`", "0.4873071825505704`"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"9.838628216028129`", RowBox[{"-", "0.03732329118549053`"}]}, { RowBox[{"-", "0.03732329118549053`"}], "0.04081687486435801`"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "}"}]], "Output", CellChangeTimes->{3.8222850155316863`*^9}, CellLabel-> "Out[211]=",ExpressionUUID->"ad8e8c3f-ffa5-4a26-920e-a2cc3773836a"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Confusion Matrix = \"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"93", "3", "4"}, {"1", "97", "2"}, {"3", "0", "97"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"; Rand-Jacard index: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"0.9860712298274902`", ",", "0.8431311105540235`"}], "}"}]}], SequenceForm["Confusion Matrix = ", MatrixForm[{{93, 3, 4}, {1, 97, 2}, {3, 0, 97}}], "; Rand-Jacard index: ", {0.9860712298274902, 0.8431311105540235}], Editable->False]], "Print", CellChangeTimes->{3.8222850155387096`*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"96f16a07-d409-4187-9379-f41752b347d6"] }, Open ]] }, Open ]] }, WindowSize->{689, 771}, WindowMargins->{{0, Automatic}, {Automatic, 42}}, FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (September 21, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 697, 10, 70, "Section"], Cell[1280, 34, 864, 19, 65, "Text"], Cell[CellGroupData[{ Cell[2169, 57, 21811, 601, 1266, "Input"], Cell[23983, 660, 9169, 182, 141, "Output"], Cell[33155, 844, 7687, 144, 135, "Output"], Cell[CellGroupData[{ Cell[40867, 992, 320, 8, 41, "Print"], Cell[41190, 1002, 662, 16, 22, "Print"], Cell[41855, 1020, 220, 4, 22, "Print"], Cell[42078, 1026, 49394, 902, 140, "Print"], Cell[91475, 1930, 196, 4, 22, "Print"], Cell[91674, 1936, 558, 16, 22, "Print"], Cell[92235, 1954, 756, 19, 22, "Print"], Cell[92994, 1975, 215, 4, 59, "Print"] }, Open ]], Cell[93224, 1982, 1675, 50, 48, "Output"], Cell[94902, 2034, 205, 4, 41, "Print"], Cell[95110, 2040, 1930, 52, 48, "Output"], Cell[97043, 2094, 1136, 29, 50, "Print"] }, Open ]] }, Open ]] } ] *)