(* 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[ 114678, 2433] NotebookOptionsPosition[ 113789, 2401] NotebookOutlinePosition[ 114137, 2416] CellTagsIndexPosition[ 114094, 2413] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Test-Example~9.10: 3 Line Segments ", 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.805593606755274*^9, { 3.8064097852780495`*^9, 3.806409788285099*^9}, 3.8064686067317805`*^9, { 3.806755725601534*^9, 3.8067557305891647`*^9}, {3.8108663343820972`*^9, 3.8108663426976676`*^9}},ExpressionUUID->"6c11323a-6876-40c1-8f91-\ 5be7d8ec9ed3"], 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.822316129915928*^9, 3.8223161389742107`*^9}}, FontSize->12, ExpressionUUID -> "ee303e3b-3358-45fe-8974-09e8a70d63b6"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"SeedRandom", "[", "33", "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m0", "=", "100"}], ";", " ", RowBox[{"n", "=", "2"}], ";", RowBox[{"k", "=", "3"}], ";", " ", RowBox[{"m", "=", RowBox[{"k", " ", "m0"}]}], ";", RowBox[{"var", "=", ".0025"}], ";", " ", RowBox[{"PI0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sq", "=", RowBox[{"2", RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], "/", "2."}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L", "=", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"{", RowBox[{"sq", ",", "sq"}], "}"}]}], ",", RowBox[{"{", RowBox[{"sq", ",", "sq"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{".5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", RowBox[{"-", "1.5"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1."}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z0", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{".5", ",", ".5"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", RowBox[{"-", ".5"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slz0", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", "z0", "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Opacity", "[", ".8", "]"}], ",", RowBox[{"PointSize", "[", ".03", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slLines", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", "L", "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "200"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"al", "=", RowBox[{"Random", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"PI0", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Append", "[", RowBox[{ RowBox[{"PI0", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"RandomReal", "[", RowBox[{"MultinormalDistribution", "[", RowBox[{ RowBox[{ RowBox[{"al", "*", RowBox[{"L", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "1"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "al"}], ")"}], "*", RowBox[{"L", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "2"}], "]"}], "]"}]}]}], ",", RowBox[{"var", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], "]"}], "]"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"s", ",", "m0"}], "}"}]}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slPI0", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"PI0", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", ".015", "]"}], ",", RowBox[{"Hue", "[", RowBox[{"j", "/", "k"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"sldata", "=", RowBox[{"Show", "[", RowBox[{"slPI0", ",", " ", "slLines", ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"GridLines", "\[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]", "\[IndentingNewLine]", "\t\t\t\t\t\t\t\t", RowBox[{"(*", " ", "EXECUTION", " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"A", "=", RowBox[{"Flatten", "[", RowBox[{"PI0", ",", "1"}], "]"}]}], ";"}], "\[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[{"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[{ RowBox[{"Total", "[", "A", "]"}], "/", RowBox[{"Length", "[", "A", "]"}]}]}], ";"}], "\[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", " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slc", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", 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[{"Table", "[", RowBox[{ RowBox[{"Hue", "[", RowBox[{"j", "/", "k"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 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]], "\[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]", RowBox[{ RowBox[{ StyleBox["sl3", FontColor->GrayLevel[0]], StyleBox["=", FontColor->GrayLevel[0]], RowBox[{ StyleBox["Show", FontColor->GrayLevel[0]], StyleBox["[", FontColor->GrayLevel[0]], RowBox[{ StyleBox["slPI", FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox["sl", FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox["slc", FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox["slvec", FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{ StyleBox["PlotRange", FontColor->GrayLevel[0]], StyleBox["\[Rule]", FontColor->GrayLevel[0]], RowBox[{"{", RowBox[{"xG", ",", "yG"}], "}"}]}]}], StyleBox["]", FontColor->GrayLevel[0]]}]}], StyleBox[";", FontColor->GrayLevel[0]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"sldata", ",", "sl3"}], "}"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\t\t\t\t\t\t", StyleBox[ RowBox[{"(*", " ", "COMPARISON", " ", "*)"}], FontColor->RGBColor[0.5, 0, 0.5]]}], "\[IndentingNewLine]", StyleBox[ RowBox[{"Print", "[", "\"\\"", "]"}], FontColor->RGBColor[0.5, 0, 0.5]], "\[IndentingNewLine]", RowBox[{ RowBox[{"vec", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"u", "=", RowBox[{"v", "=", RowBox[{ RowBox[{"L", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}], "-", RowBox[{"L", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "2", ",", "2"}], "]"}], "]"}]}]}]}], ";", RowBox[{"v", "=", RowBox[{ RowBox[{"L", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "-", RowBox[{"L", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "2", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"vec", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"eig", "[", RowBox[{"[", RowBox[{"j", ",", "2", ",", RowBox[{ RowBox[{"Ordering", "[", RowBox[{ RowBox[{"eig", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", RowBox[{"-", "1"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"v", "\[Equal]", "0"}], ",", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "j", ",", "\"\<-th line: Ifinity\>\"", ",", "\"\<; Recognized: \>\"", ",", " ", RowBox[{ RowBox[{"vec", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], "/", RowBox[{"vec", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}]}], "]"}], ",", " ", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "j", ",", "\"\<-th line: \>\"", ",", RowBox[{"u", "/", "v"}], ",", "\"\<; Recognized: \>\"", ",", " ", RowBox[{ RowBox[{"vec", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], "/", RowBox[{"vec", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], "\t"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PI1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "j", ",", "All", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rnd", "=", RowBox[{"Rand", "[", RowBox[{"PI0", ",", "PI1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"rnd", "[", RowBox[{"[", "3", "]"}], "]"}], "//", "MatrixForm"}], ",", "\"\<; Rand-Jacard index: \>\"", ",", RowBox[{"{", RowBox[{ RowBox[{"rnd", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"rnd", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}], "\t"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.586142014945019*^9, 3.5861420446222715`*^9}, { 3.586142125290414*^9, 3.586142322217362*^9}, {3.5861423535326176`*^9, 3.5861424212185373`*^9}, {3.5861428135134306`*^9, 3.586142859121311*^9}, { 3.586143109036953*^9, 3.58614311891377*^9}, {3.586143298146287*^9, 3.5861434922304306`*^9}, {3.5861435735079746`*^9, 3.5861436048076296`*^9}, {3.5861438213518124`*^9, 3.5861438890689325`*^9}, 3.586144531669869*^9, {3.586144618103422*^9, 3.5861447599356728`*^9}, { 3.5861449369841857`*^9, 3.5861449373117867`*^9}, {3.586145010411916*^9, 3.5861450507001867`*^9}, {3.586145113580298*^9, 3.586145173564804*^9}, { 3.5861452472109346`*^9, 3.5861452506907406`*^9}, 3.5861453778881655`*^9, { 3.5861454101872225`*^9, 3.586145440348076*^9}, {3.5861455074924*^9, 3.5861455337522464`*^9}, {3.5861455790949264`*^9, 3.586145579516127*^9}, { 3.586145613033986*^9, 3.5861456314616194`*^9}, {3.586145677646701*^9, 3.5861457637360535`*^9}, {3.586145856388017*^9, 3.5861459223111334`*^9}, { 3.586146336737668*^9, 3.5861464367784452`*^9}, {3.5861465155735846`*^9, 3.586146525434802*^9}, {3.5861465883929133`*^9, 3.586146611283154*^9}, 3.5861467464883933`*^9, {3.5861491136745815`*^9, 3.5861491140645823`*^9}, { 3.5861492058107443`*^9, 3.5861492145517597`*^9}, {3.58614926557485*^9, 3.5861492793984747`*^9}, {3.5865785712577095`*^9, 3.5865785753615165`*^9}, {3.586612007609005*^9, 3.5866120142566166`*^9}, { 3.5866512648300047`*^9, 3.5866512695578127`*^9}, {3.5866513129514894`*^9, 3.5866513141994915`*^9}, 3.5866518000405507`*^9, {3.5866521505381727`*^9, 3.5866521819002285`*^9}, {3.586652250152749*^9, 3.586652268627182*^9}, { 3.5866525314860487`*^9, 3.586652543875471*^9}, 3.5866526632230816`*^9, { 3.586652703775553*^9, 3.5866527371822124`*^9}, {3.586652768013867*^9, 3.5866528876170783`*^9}, {3.586652982156646*^9, 3.586652988647257*^9}, { 3.5866530294689293`*^9, 3.5866530476459618`*^9}, {3.5866531297503066`*^9, 3.58665313720812*^9}, {3.5866531938678203`*^9, 3.586653200624632*^9}, { 3.5866544110485935`*^9, 3.5866544278528233`*^9}, {3.5866548642849965`*^9, 3.586654866828801*^9}, {3.586654901327462*^9, 3.5866549607433667`*^9}, { 3.5866550402561073`*^9, 3.5866550743803673`*^9}, {3.5866551274968615`*^9, 3.586655129134865*^9}, 3.586655195903383*^9, {3.587892663559682*^9, 3.5878926711014957`*^9}, {3.5878927820914917`*^9, 3.5878928046687317`*^9}, {3.587894665088893*^9, 3.5878946654788933`*^9}, { 3.587894706868767*^9, 3.58789479903153*^9}, {3.587894829473184*^9, 3.5878948804796743`*^9}, {3.5878949582764115`*^9, 3.5878949925606723`*^9}, {3.587895032007943*^9, 3.5878950363769507`*^9}, 3.587895193346629*^9, {3.5878952617035522`*^9, 3.5878952987868223`*^9}, { 3.587895336701889*^9, 3.58789543275406*^9}, {3.587896173699371*^9, 3.587896175040973*^9}, {3.5879015202160387`*^9, 3.5879015676647224`*^9}, 3.587958366299665*^9, 3.5879584309173794`*^9, {3.5886560995579576`*^9, 3.588656099916758*^9}, 3.5886563144511414`*^9, {3.5916627437191315`*^9, 3.5916627780391836`*^9}, {3.5916628877063484`*^9, 3.5916629157463913`*^9}, {3.5916629678214703`*^9, 3.591662970981475*^9}, { 3.591663046711588*^9, 3.5916630937336597`*^9}, {3.5916634790712543`*^9, 3.591663482441259*^9}, 3.591663591327423*^9, {3.591663634490488*^9, 3.591663635350489*^9}, 3.5916636705445423`*^9, 3.5916638596058254`*^9, { 3.591663903017892*^9, 3.5916639308589334`*^9}, {3.591663984339013*^9, 3.5916640197660666`*^9}, {3.591664243891406*^9, 3.5916642442814064`*^9}, 3.591664297605486*^9, 3.5916643880536222`*^9, 3.591664420711672*^9, 3.591664474485753*^9, {3.5916647106951094`*^9, 3.591664722000127*^9}, { 3.5916652190088797`*^9, 3.591665222988885*^9}, 3.5916683928916807`*^9, 3.591668759843234*^9, 3.5921849877876*^9, {3.5921850535236998`*^9, 3.592185080901741*^9}, {3.8055929370840664`*^9, 3.8055929380015783`*^9}, { 3.8055929711254997`*^9, 3.8055930085699315`*^9}, {3.8055930823902116`*^9, 3.805593136527993*^9}, {3.8055931816385813`*^9, 3.8055932247016897`*^9}, { 3.8055937417546363`*^9, 3.805593763360657*^9}, {3.805593920378213*^9, 3.8055939431355734`*^9}, {3.8055940270746484`*^9, 3.805594035572694*^9}, { 3.805594127837248*^9, 3.8055941349551773`*^9}, {3.8055942002384577`*^9, 3.805594223764701*^9}, {3.80559434820267*^9, 3.8055943706136217`*^9}, { 3.8055944033025713`*^9, 3.8055944049219112`*^9}, 3.8064686167402773`*^9, { 3.806724000556393*^9, 3.806724004347721*^9}, {3.806929416498251*^9, 3.806929430738697*^9}, {3.807075953071215*^9, 3.80707597090734*^9}, { 3.8070763583600907`*^9, 3.8070763668880005`*^9}, {3.8070769357409463`*^9, 3.807076964224464*^9}, {3.8071003011429343`*^9, 3.8071003018396273`*^9}, { 3.8107313215784006`*^9, 3.810731324359557*^9}, 3.8219609952204504`*^9}, ExpressionUUID -> "182e0022-1876-4fd5-9ea1-648705b9d92f"], Cell[BoxData[ GraphicsBox[{{{}, {{ {Hue[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], PointSize[0.015], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwV0fs71IkewHFKrMHu4xKrtdMOafW4Ky3Tro9qG8vRrq6q5aw0ZgllKTld XOdZSyRbihOiI7FdhKm05COXtsIYNMRoGubC3Mx85zvoojq7P7yf1x/wpkUf 3h6zxMDAgPl3/0hE/GYibCNB+XI+4XqGHsy1p0cW5ATUmtNGXNkExL4g+a7R I2C6ivdHn9M4nNRDge+gDi5yvPxsOCR48yp8lFQNaBxUx8UNWtig9k4KXDoL nSWBk3v4KqjytfdpiOMDt7XHiOH3HGocvfYVy7So6wZTlrUOWT8fbT9bLgH7 Owb28uti0MeNNl3RnIHKLVezgs9z8MSfAm1kqhZN6hkHPJ20uMKdjPCkioGT cfjwtdcvQdsX4OIXJ4P8G7rdB9ZNA7vMR5j2kQaW7SiydzqrAr/fY5sHTz3A Ww/3uEipPRivqg5daNHi2jpF2ZQ9gb3VNZb+rir4rmfyyV+ZSvi4xGrCdZQA +oS6sMtRC/c6Dw6eJl6C5/sgJfeiCDpyI41sqQXgTet4IlrRBRk7VzKYuc+x aHGdf27lCMqa0t/s4krxeLKm7X3pDMrAleb1Pzl4jsXII6KVUNbP/rq1nIRT BRfdvONIcDKN1WcHD2K7Oqz2w+oBzK5tHVmjEmA6Y/mxPuYE1tdtE0v8FXhf Yrs6z1uNzulOUYHsedxvPsm6QllAdtFeyZqOAdhUou7IdRyALzv2ZzZJumBj ifGht3bdUPuvjb2/lvaA6FScgUdBAxyrTVGoqnQgpo9NnxvTwS92woce5QTY XvvIkEHRgoUPd8cilcSiXV+lJFvqsbN0dUDwFi4uG35aZn27H53j9u0uG5ej yOHSm6QbGizsFC69N6lFz6ftt6fDtBhR+pTXsE2Bf8/OQgsFPjQ3HBJ26cFY oDji/585cGJzo/3zSDyZmvpqnk2iY1+HOspKiJ9R9nVdISbwV/KzAe9qIRbG BInvVkwiLYfVRqmZwuiK8AzWkBQTPshZIno+ULhE/tLwO6Dbv7v5KkmCXrrl kvEJEr5w93qWkK3D+mpqYpAjiZQf0U9eXIe0d5+Gvf2pGdfLim/Os4dg34W5 pzYVfOgeuxDY/rgUPRKo4Ym/52N7ISNvM1cItd/Tw2e3SqDmWvD7kdApvCN2 W/JaOYkmy1ZQ/902DHQnGp12dBiG1inj+wQklHj3cBysSTAQavJPFalQbNv4 s1SuxiyL5X8U02XQkO1V1Zw3A/fRaQv9oASul1geuf1fCSzeG58N+kuPUY8D e4zb9NiYe/TqCx8ddnaZPGgM0eIm5avEfKkAqy0jO6x7+Jj4mjbqEFEPwSJR UqPJHTDaUb7MaoqAny63iLZ+p4NzP6beXNNHACWPfoY3TcDYVr6Vun8Q63wD IrjnerEtch1/fOQRynZtC2NFPcL3+dqDNXQefFF/LDzacBgKAwiq8JuH4Fyp u7AirxcaOHtMa9k6/D6WYrvJgkBCaWT2ZzcB0sW3iaPvdGDGt71lMyCElkNh S1tpQmgaDerfJOpAlzKO0GAhF0MHzjovcefDCdfHActfDELw1ubx4sfj2Hh9 MXC9UoD6J2ZFn++axcnj/e0y1GBOxsdf8dKnwSL7vHlXgwxW+vBOJK+aQuUb tw1pq0Xo++TzzO4oKdRw4iWGbhLwck8eS+PKUXs3INIoYQafc2vOrCzkQ0h8 eNhY7hCE0E0rXHc/gMWNB1ywlgPPQg/FhBHzmPShnbJdNYcep6t6vHPUmFOQ 1uIsUOKGSqLaw+oWfupit4qV3oC+UsmHvWwl9hq3tJY0ydGPaTE18kMsqNKf 5cwwLsOs786mH9hTyMk8JqjwkmJnPCPEOmkYuvfanPYoHoKI3mTemvMK+Ia0 NF++WQFmA0zTsxlzuL7RJzMySI9kaepORtY4NGUWabzChGC3Ni4rbUiPa2+Y p+gn5tDKN4EkX4hhVSQzRVQphYVLn1Q0zhAoCBlYMGvT4c2LabHV387jTKhD 1cnNc5iUsK091yID9j9KSXnlWAXHnwErhkni2P2Wy69Okjg8wc1avDoDBlHT 79zuKuB+v7O7v5cGRhezyu22a2D8S1OteK0CmAXU0k7LGVhiTTJvMqfB47J1 MFk/DbaGNhu+rZvDI7wd2bcd9Ph/5C9nUQ== "]]}, {Hue[ NCache[ Rational[2, 3], 0.6666666666666666], 1, 1], PointSize[0.015], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlGs41HkDhidLjmW9Y9eqLUm14q03lWi78pCOkkMrHa6dXYdVWcXSAdHq xJDToHgpOYSwFJPsbtJvVqMsSg4RSgbDmIz5z+E/5FBrPzzX8+25rvv5cJv6 BO33U2MwGD/N5d+uy4b+Gh85OI6Bp3MtHxChg0ZnUfwADP4blKZ3fxInpxlD lbkjiOVFmK1cT2O3riw83UeAHMf2tuyaj0iQEv+QPyXIev98q21WN6zP60bb smToCjc2jtPpJRqGd87X8Cdh40WnP/KYIFt42haJDykI4uuZ9+t4uJp883GR mxAHsxo31aXRWK3tqDr5YhDxDt/GtURPo+/bpqmyxyPoT5zW4xqrYOcbZaOK otByONXK/FwTbm02iR+MkOCk5HajUUkHyg1H6ssyBaj6tJHttGMWBiY1DvyZ cRC1ymuLj3QgpPhWYGCIBFPfzeh+Lh6Eb6qVc992CfwN1bpPVHVClehtcWbZ OHTrLNa2L2uA1GiqspI9jieGaRNLLghhm89O7F0gx3C7jefDo8/I4IUlZkX1 MgxU3ihxOscnpvN3xqlMaKgeRq74ZCkiOPPQ512tHOZbxJGP6b+IYFvX1SNO Urw2ln6zr7yQOEc3ZMXemwBTq7GoNXWCNDY3aSya26eLrnH2r3lJMscSemSH pcgpsLoSatOHIH7p7CdPGSpkvv6HAnhg1hq0WP9CYcYnxzvqWD3k0tQXzbwJ hGUMzrYSFfl4M+bsm8+kyGtnqlUqepA2ZVD8xmUABVleNkeefcSYh4u15mfv 4csybk/aOILlMTR/VS+N01zXk+3FcvLNzND/TfeM4vK5PYbXdSjka13KF3xH YaP30sytdxvxnneb7SSiseOeyGHh/yjisXi4J2xUCUVV+uUfpWNECwaTESlK zLO2bLLOFBNb2xs/G1gNYtg112BelQp3tnC9In8UQRmWrXNqqB/UhpzgzlEx IrA54+xtKRpOaRYOx0nwJKlwoihFAEdWopu7EwVOihU5LicQ/Ma/9YdKDhsH F4vR+WKSqyh3igmkoL6P05Lv+gJcTvikNoOGqfICZ/ObESJVq75+T/sDQo8W f7X4gJJo6d7YJJxWosH+9qu3r0fJgEVp7PJmGkfXaezzYMgIZ1kaVx40joRq y3C/38UQubGaSzZJ4Kz5YGk4EeJ65JLXkq2jOJB74vJmSwrbKleql7Np3KH+ NvTeqySMV167ijtVWFQh6EOZnHRV12950SfCwe161NBzIfxbQ7sCa1XYPpoQ 3O+rJBlhFaEi53eILhWFdryaRVfyquJsNgWzvGdxD6Rt5JjC9owek0bZRmog xfM9GSo/dGHqogC/JDUVwX0GzDzj2JCCITTeT9h2xVmJrp0W/Yo5/tdLL5Fr nDESoR6g9qWdAodqTNtXlL4l9kKtX3+yV2A80P6yX28TWRmrWGQxpUKB9Iv6 r/wVZHlH86qdGhK0Zv5mPv1MgCUNgX2vAkTgntpDtdao8HyDXVyFGQ1WsMZN I1MZmdUI0T3fNwaDMSZRBglx4m5m4Xk9BTwX289Ova0nWq1f2rocHIVKy/vB ca4S6Uw6hzd3zfRK8/wfMAsdG49+Y3Mp9j2NqnvLe4mBl9fM+PFCqGrZYd/7 y/A0aW0HK4iGJbNi7+p2CfHlMtsSy5QYPnP8k5uLkOztDNHX4MnQk1HNoeMf EWOumTBiYBTJtWvbhpvEmPaTrDf5D4V1+Vf3TBV3w+DKpahOayV+LxGtZzPG iY7TDz4j2RT2JgyOvPuaB5lZywGNZDnaTC7mBYT3k91PXI9HTcvheKx0RUBJ PTmb7Lrzbq0C8zWZH56uGSJFpRYHjFhipPTusksdE6Onu0Y2sW7OW2RTV16O lCxPSWrJWPgB0r/dgwvcacIxqru0IF0ETU537X72JPKCavSzM8SwVfeXOuv3 QdfGP7hencJh7yNbQ1fN+XWHu1uPgxLMp7vGVueMkOaB6GqHL0YQ0OKbmqqr wCRLfV7xh3eICXfxkS+YgWfuMcbF+ZPY/aj1dPQuGRFN29p5EQpVh3MyWDF8 5G/wu5pSIsTgwtCezgAaHT8Xxkj+kiHsT/Wj/LRksNV17b7WloOhvyBy9aLH 5O4NptwlVgHxIQfjkq4+8g9IHVa6 "]]}, {Hue[1, 1, 1], PointSize[0.015], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwV0HlczAkfwPF5yG467HZOeNoG6ZAebKtQfGnHJNdu1BLVDCrZVGSxtV20 ViFapdKByIRarC4hX5SOSdfUU5lXTTXzm5nf3DNMpXvtH5/X+//PooNRu0Jm USiU4M/9axn9N49iiw5wsjLrdaySIHN/8ugLwym4c8Rp5BpVg09Jg+thERw8 aCA6EWomxJ78R3oaHhfjYilB1v8lsMnG+PvCFRKgXSiL/tgjxrpPUZD+HRcG +c8eN7iKcM3x0fCG02IId+zO9nSSIbE5Jq22iITmH2zjR17K8dLdlw9fMUbg ucsUEZOgQK5DgQplElzv7TC1cN8QGnzhpY1P1QDffLGDR4UU+2oKDsXNqIFq lvLp8nwp8jkei0L/pwLGEzf9LLYcFZlxqWE0FdS32z8sP6lEpoYU5mk78dq1 ep7RQSF6VmwP3i4cA2xjOevPU2HXHe8aJqsL5p3grtJFSHHMOzPg2VsC9LPN A9pXKrAiwWDfmZ/KYO/qA1cbnhN4rOP+n7ToAvQs6bDvlkswpHCZaU8nF0WP 52Ymff5h+EtaQMeAFL8uXEpj+g+hy/TGknOhHyDioFdVpFiBCsXFpiXxcmAn mhqumE3ism3NJsPqT6AwZd4ruaLGFMne27RiEnnrqj9sOCrAOEHxj29/5YGL A+5eK5QgTU/Bl5XXQeIfHubdB0TY8ODHkfahWuQqk3nJJf3YXV16xJOphZyI 0AwllcRLTWuKqh3HYbPs0VifvQYrAtxP0VcMw9Uk13vnbOX47Xmya+IkD8zm dLypHhAj8W7B3j1iGRxlRRzKaSTR/i1w0op7sNFvtrBktRBLmESTlUyAQ5ii 98Z5ABdnjSj+YzIK1u7bLP6cr8Zbwiy75M5pKBNaepbMUSFfxNvY1ErZKM5e EtxrqMH7Xr6ZQ/u6ME0TlX4hSICb/V1tOTdqYVfR8KHLJhKMnMnIbXn6BJL8 2KmzIsX4McDDSi9GCeEDz89m0eV4HQL4C6vHgNevcRnbpsS2wLm7fWMHkbhI jSq/NYhJ1xhj5wv/wsnjiqO/+RKYX5bupvp7AgTTQbZsTw3q1Gt3c+kdWH+U vvCVjQCZuozT59z+RoO9KePnzoqwUtpXp9fXgzFzw6oN3UUYaacy1l/VC1aB e+JL/UmMGaH0cb8dhzf2t48vKFWhM688y2WxCsnlPmXZcj7uf0FjTP4uAMvN s4u+2EFiS4jWPyZdAH8dy7tv5kFi0FfN9AeRMgxcm1ifs0SAF6NeJLMpBCzy 6R/lSCVYNddufpfjJLBmzmp9ijW4xm1H677AZGRvLxpUnyQwqS6Cs+vSDBx2 uilmeGvw7OE7ZdkdWqAm5nFWn5IhQ0g38c2YgpXr3m/4eFmNVdnrH3918i40 po/eaNUJMS2W6VXpoIOLWwzPP1YqMQPPPOCwniJlgGcXa0Kgc/DMqfJbcjCe 3nPDeoJEfcYf8vBwDcR65Y+ufS1H7VTti8j741BdS9Z3dCnxm2CqMpraj+7Z nQNh+4fQTPW7XjTjNe5+UnFXV0vgrJb8DKdaHdw7UNzGz1WijVWLqd8ZOVSm tli7OUtx+23XeXnG46BYZio8skCD6yds/HcYK9Go16ItL5SP7+JmuGal5Uhs DR9MfU+gacZIVFeeDpaWeccuuaLElUUFRseFnyAgNqzB4rAaa9iVhXPWDYL7 XfqXCRckSO98qLcxdBhsI24Wq0MUuONUS7yhlxaebLr+vO7/JLJFLrnfD5bj VqqvNatFhJMlBQ0XaAQ8s+eJh1JI5Nx7P82mDoBbTq/9ESMxLhYb2EPRRxDn 98/uIRQYtCox83QpCQa/SH/OmpSj34c+syRXEWwpDgukzUiQJWvM744mcIt3 RORwyRAu5duabz09Bb8WsPK1jSqk2GzY2v6oGX2edl+1sRVhi0VYbo3RDHAo fZIGOzVybu9MQLtuqJy1c5OjjQRfcgVkllyMux7cOtBKG0TaO0y4WibBmwxb Xu4GIR5rNvcff6WF7p3ty1NFUpzXRVSF/KyF0f7aAs53cuTPt+RuMuiFr7kn tgi8xRi1Jy0BW/uQW3PlNctBgIoeL8svDT8A28fYp+28AvMmzKU5lhXwjV8T vS9biNuy6nyWJ6ohzlMneCgh8R8x34Y1 "]]}}, { {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]}, {Hue[1, 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]}, {Hue[1, 1, 1], PointSize[0.015], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, { LineBox[{{-1.4142135623730951`, -1.4142135623730951`}, { 1.4142135623730951`, 1.4142135623730951`}}], LineBox[{{0.5, 2}, {1.5, -1.5}}], LineBox[{{-1, -0.5}, {2, -1.}}]}}, 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->{{-1.4339145624297105`, 2.1009697977831214`}, {-1.4733444705202643`, 1.9236700213602171`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.8222845944973536`*^9}, CellLabel-> "Out[148]=",ExpressionUUID->"c7356687-959c-4b93-8c9d-e3373c780c73"], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.015], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVl3c4Fo7Xh1VUVv1EpGFEpTSoZFQOEpGKdn0pJJFVGlSKULJCQkJGMlLJ ahlHRsneIj3h2cuzkZHX+9f571zX+Zzruu9z1J19jl6cLyYmtnmemNj/V579 o0WECgEw/4x5FgQKQYYb2TtO50GOjHqvdigP3H4LerSde0FSs/11s8YABAgh Sq+DD0mlOgYKpQLQbU/bzlThAGc16zaxkAu72bpXTBaMQk2CyfDpHhZk6Clv L3TvgdbyenELg5+QvVbnbByFi/w6kHSV56PrpRtVsakkUC4TU6YXEEHo3lec xXkML/a/um/1tBTvfPnFdbjJxUX5Fhe2aXBx5RaB/TYVIpQG+vjk/v0D3GZj LQN3CkS84Z+8sJMKocnbCf6LOSBxLEZZI5YFBk/cSjruVuK7r6e1yCr16MHK tBn/xMUdeYzkEWUeNmVmyxlqs+BA/fCP70FMWJKwbFC7jwdGg+zo2rVc+Fhz uSOS9we2/bNktiYNQXWYg7iiShToqlf/GFpZC4HHVS1cwn5izPROw7AXvUgp vjd5opWMt305Ff+e0ZAC2uo6L+mwrf8i3d6ZCcktoXvKUwVwNypps667ADQk 3YTBVh1YxbbNmV3fhsE55b0bWb/wnsVyv2aXQczPsyOSDBn4maS4PlyXjevu aTiahI6hk8ywa5bUOIbGnCFtrG4DswR2ddjaNthQ7RRUTKoF04SF3lNKdZBz 0LTp4bN6GLrrLrY1qhD8cq4xWBl8IBr1U+P7+XBVifB1ayoPFHMXz7OQ4oLs 9tZj0yoCjDmhf81XTog1z9YbW+1vRYmuxmT59y24zv3syeQBOg6tTpm88oaD 0TWEBR+Hubitseo91ZaL9s8a2wvtGDi37Psoy8CvMvM6CbVCWPiLcd3wlgg0 QludDcMFGHDz5sRYqADXNlezHZcRcJXU2dos3iA+FKxq080kYPRFS+KHtGFU D3GtkMoeQee0U4GunWT0nKW7DhlFgFQrL2LBqTLgO50seSUQgJC8P2XhHQGo bdHp9gzmY36mipflWgFK/YcG9Lg8VJ9ZYTt1vgR3UeLejoV2wtlEUaNCWg/U 9SeaVDU8w62eKqe8nkRgVbRF+L5WAuQcNjo1eogE2blW/3ptRrCMuHn+X+Yw LpJYqXKuoguMNNSN1G90QedOpkfzLwEk6NaXrpYXgBiBE3E3hoVExaJLZDob 78sufx1nRIHCYJ2MknAafEaN/UaXSVCQIHf9/XMSTH8cGLX8LkTHBpP6hRVC LAq78er3dj7W1C6qLLLmohlzwiuC/Asz5Ryq5et70Ouvet9q+3ywGhq6UrSo DMSPpUosG+HB+fRPQ4cO8CH+v5tvNzbzQCrc6HE7lQf9h3qWsVs6ME/P2L41 vgkrHHb2DPR+Q8oJO1tXx2/4L4J7OduoHdTy/U45z+uCaGOeCmHvV1j3gp+4 MrwJCktPS+aE8vGwm5SimSwPeUxx6S91PCBPT3n1zfBBukfxnUIbAT552y4o VydAcZ9li9lQNWollxLExsPQpi123fwtPXBHu8F4+e8OsDpUMhDXMIBFBdMm u5i/UPhDOmbNiVEcvt1SRUEOhgQu0W+/RwXZ4KcytYUUUN3efsdXcwSZk5t3 +68fQr0fa4LqHMmQXepBmreZBDpbfPv9W+nI/WDsIO5Jw5+t2Y9Vo3vA2uOU bX9YJ1gbSaZpn6yEadMLWphTCt023hdteWN4ZbZK6ihLhFsjM+p1Q9gYEuX/ ad0vJu5+wcvcuuwdrtBS0nS9V4h6ZNLsmVAmNi38VJ5QTEcDF9mR3iNuwLrX HUKzSIdRvePFR0JHsDTI71eaDhlrPCys5a90Qd0ZhcitcZ1g3+TbvvEpA/YK 5GSW72OAdJuLZGygCHcVbQ9ysBSi4NnN4xb3B6A4KIajY0sApR3u9/07hbjj jcw14aAIl+l5CgS/iaDp4HJt6AUZxlOWphXRePjLum1cuoKPb5P83TLNx5Bm szojYJ8Ir3jaVYXJBoLTt2vXJtZmwO1ucL3oIsD+z5/SJwIE2DXYen/6FQ3E HKkzmz8w4HPLui2GOhzom76fqnSUAwMbJLnEHQxwiVJ5ViNHg/nyApe3LlTY mi5vJcinguI8hd3meSK83n4s+P3qOT6kwdItznyI3ed9PUO7DMmmEr05kSMg t9knXqZkArymxEhFGVR4VH1HY912ERyQ5t1KdB6G9H1dnWnl/yCKg+6+n9nw nNmy1+B5P+jdlX5g4MCDvlvKyuFSv1BCIfdued0E6DuKEiuOj+PuaslN0V+4 MBxZL19SUw0RMalVObZkOPW8cVdNvAg2Su4b82olQqSpUXjbgykgGDVNvqmi wlD0lEyx8hgYXwjUHwvkQtuZJ7pat5vghaFqJPEOG7zYLxuV8rvhrQK1/k3y MJTO7gyz3j8DcqrlpnXTo4Dzi56uOtsNvnkvvL192TB5bFr6fwwiXHiia0Mw Z4O7wvx+z9JeGIt22nRDbRSkazZt7VJrAI7SZFFR2CjUKsSPrwkig0FWWPQv WT5QuvRPfnH9jsSgNRo59TwYKUrJt75dh+oLLcLHVEUw9iVAc1abhnDji/Of Sj5o7WYEVIm+4rBZX8RZaw78VOZsOPT2Fdo8aHj+qHAc5Bc35nQ8GcfG5iaJ lXP9RTlPY49uacdkVtQA7wwH0rN1Q/30CeBT93pm9iQP3vMuuJ/2qAb5Srk2 vStcmHZOdwq8VA98zpPW5upx8E8iznTgGP5LfXhzcAEHMrvk5xcJBiB+Ui5v 8PAIZD931D/7/R+wjh/WW7SACRcclLsez/l37UNR3fpfIrhefMSrK4+PG6ZJ z9St6BBy20ohYc4vWYuDs4aPcWGnk0ry3neNwKx+GWZNE8H+Qprpkm1cPL6K MuBPF4KgNDHkPIeFi0Fu4k6cEObpaTfpJTPQwCDlspwuEShHMuTmlY5B7u5i x4DzNBD6p0ldIw0Bd0f61V46A+6AYdLNlxxouLboFSWcDbWPX43nxA3DPodo WztrLsTG6aIbH2G4oO7FpzE+6Jse3kRfyMAMwVvrh95cED8U25Z1pBWKY29N SIqJQF0YFGs4SEXO/A8JhZJ/wc81b8WqE0JcLJ2yizwlhAaTlz2/f9JxZNPr R2ubReCqI3HouBgPY9Xii/k+oxD1QfvWxY8MoNk6NOfvYoPNojKVW0iGhIA1 P9l76XAiwzPEUJsLZkXrxN+GiSCX+0PB6aAQxXocLfN6x2Dl+2ECvOFj34f6 3a0EGpwyl+GSWsjg3uHX5105Bub0qKtDF4SY5P/ej2bzBx68pvl198xAX8z6 vLQwLmhkfg8v43TiJYHBDRl5EbzZyR2JO8lE0tvTQZP3h+HK46YcsJsG+Uzl R77ZJGgsiTILtRFCn8WmIcHc/D9VgvFpLAvviHvMVzQWwOly9S7N17/RhLz4 nouJAEa9TUIu/mrCdY8EKzdNjkE2Z3n9Cvc5v3c3r7eQYENHcoHW1PdhWNPg TejxoEHxNStuR/kYtOwwDn+vIQKHqxKpSuo8nJHwlb5LYIEcSx6FPmTwfJf8 6q6MAE6uMpmZ/F2PizsUDQ6fosPYYqcyt2IhJMqL0qvnoplap5V1DmZASv/4 kLIWBw59C6z5Xd0OI+1PNeoiyTBWGeZv786Db4+3djv4iEBb/v3BjV1svFAs 3xn9RgiUG26ztofJeLDXd6lENQ8Gkj7EiiIrULlYg3xnhA4xlVs7KU0MmLrI 3q66jAs6WRFWk3n9IBcaHNirJ4SP+bTtYWKjKGV9zpmaxoWDUUTqn9XVwNNo OyERw4dO1fuZHreG8EDtEbfAKT7su/Ra0yO/Hm/GHLF4VymAhYvk/37bQsKc 15tOKDkwIO6XpfETFgMG+st54zpz3MJdfZnpHFwb97gtaclf4Pywu5ptJ8JY pZpg2UQaLIrtrzwaNgGZPuVL05IYYCDuzrFZSgBpffer9eJcOON0dq/f+jm+ 7rezHTAVgvw3S9bGdCo2jzz4YLqcCh5tF548kRbAhIP4vLy5u/rhrcPOfNlp OJlxSez+wgk4UNFx/YElD2lTBsaOyIXSM+lJDg/rIGvHxYi4fDIQl/gN9HqI oPvyq4fsrzzw/yzuWhcfA2Hi0sarJfkgtlQ2YOPKKnyXIs8//EgAjNOmyvl9 BCwxv7Mnd3kHaK+Q/7nxIxXP/xcyXiE9Ay/dtccSlLj4iSaV7ObViM5S5Guu 8kTsSy0U5w50YsBtsXNrVpPwh6rsvsxtVFCLKPEV9FGwbsIHYnd2whDhy/vv u8hocHXc47sfBTw29iaZaTOQtP9WdG02DZqOaN4dq2Ji1Kuqd9UWY1C+Y4Z0 6x4LO7XSRpFBxb1WWjOrzg6j1EJL3t1wLhAU1mrtKaPjYGXahYBZDijJP5p4 rExHQuMeddeto2BRrL84MYeJrKcB4W5z/P/WvuFd6Q02nufSiCm8LkxI+DYg 40xEszIbFxviX8A2xy2Ll4xi90uryvOO3bDkWqeu0IuOf62e2n+pJ8HiJAX7 dh0Wlt2TOnv/ZAmc1nN68r2chFc68uPUfNPQrKBjQy+TihczNy3r6+pE8nvJ p0FzeUhfj7bv+EPH/2WuUzt/Zhh3/DMpeODKBy9ny4/eFBayWJE/NO4yISdw mfS2BTTcdLBJTsSZANay83kFMRx8RD2dpZZLwwGjz3xjzxEMGMm1rfcfgB1a eMyQSEU1cRaBUVoHgQ/3KPQ6kfH7a9ux9uFa7GSHDIQU/Mbez2/czc7z4JmX azxbiYZRPwyyP2+chP2Mwr+DG7hYZr/7pvk2ETwJ2pX3QJOJ28No3VM3BkBe oqPm8x8KkppXnj5FYYCno9eFZw003FAPjdG5fdhwYgGxQI+IBedJP1YwRnAY H4nXbPmDaxPHWPPkxmHN7oPL45Q5mEFMXB/S9Q9KiIpmBRKjSCAPmPxoFTOh JGm4/JTmYr7l8afDZ7sxmusTG3FuBPef2aXZ+KIWjmaLLjyWo6L3bPzzlk/F EHQiJ3y+NwUF9ntWiN9ig8ef8uBEcyYmgz1h1ee/MPCbu+PvQTa2OUgeO357 CEmRSj6lGUMYlGDxNyzzLU5fZXneOU7C1JJY/dGiKRj5d04zx4yLQo7hsU7z Dvzmab6qWnUEzwvj/R7oF6HU6UeTD4LJ+IE+WCc+2Ie3JN0+S+8mo/f6UdnF uj9hhcOpu2/O0PDWmNhg5/ZJqNmQdXXlm1HcMlCauGPtKNI225UkMQn4X4Wa xXToCCjuX5C98BANWy7yztyKHYG3V1Ly5ffQ8NzSJvPX3gx0MAz89kxjBCN9 KkJyxEigbvd7vJFOxY+S65W7N06D42wwzy6Xiwb6h1rPOoRgjk32EOcGCYPq vBqPRs3CJe10ioUVF4MvvSxJ6uCBUmBKo95NBloQzeWOx8+AjlG/seAxBz8m 7X2/9MYraIgdf9EqJGL07fOWH7SEEHlAOuw9m43xeP91o+MnFPszsP62HAm3 uMzeLM1gguy/Uy/WTNFwscVDpocHF25bpo4bfmUib6a2wjt/Ej7X0r51dLNR xUWJ7av0G3cndf1x+28Y5UdDxX0tvuKx4rJXwloSzm9Jjdee+z/znHLbCM/Z qLqiZdmJ+0z4EN6yRn8LHW2ydi1JkZ0E1qZlRPeVXNw7pXrmkCwbZX4ub0tx JWBzwGyn/JtSJFl7DIX3k3BZ/JhPd4oQ1pVY3daIYaNOdprMVeIE2N92+778 Egcrcz5kShgNwe5X5ovuRVDRvOuduImrCDS90nM5F1l46GbLXWlLHhSbJpfX 9dAwh7zj+b6hUrRWOr7GsYWM0wVp3yPUSPBlwwBl+BENG/P6/+Uo/QH9Zz83 uMtQcC1FagNkC4CS+ntBH4mF53QDn/q9oYHUdfrlxGkmnuAPygftIsOBXDcH tVkqOjIaUnt9SXjAystbVDCM6wiaCtZ+M+Cf5pjKaxhFMVVj6/bCJrT71PtE VZOMLcvdnlfKzEKj2CD1+3oONmYdvofre+HD/MOmG1WpWNU5QktkUvDo6wyn VrUhVGvGe09KqJhuoTnw3JiIV5oUzkzO+bP3cPvmcDIdl3STPl68zIPx37Vp jTuZSFBW7DSV+gn/67x2YMSKgj6nou9h6yB2VsZ8ddQaQVafpeIiaT7k2Mna tYWxMGVKgf5MsQxUTvwwH0wi4sHEOrvNgRwIMBOOvKPS8P8ANDI/9A== "]]}, { {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->{{-1.4339145624297105`, 2.1009697977831214`}, {-1.4733444705202643`, 1.9236700213602171`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.8222845946004877`*^9}, CellLabel-> "Out[151]=",ExpressionUUID->"0655eb86-dd0b-472b-a6a5-337e9b1f6d1a"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\\nTime = \"\>", "\[InvisibleSpace]", "0.453125`"}], SequenceForm["\nTime = ", 0.453125], Editable->False]], "Print", CellChangeTimes->{3.8222845950462933`*^9}, CellLabel-> "During evaluation of \ In[139]:=",ExpressionUUID->"ca48a951-fced-4254-a91d-9f0efa439d47"], Cell[BoxData[ InterpretationBox[ RowBox[{ "27", "\[InvisibleSpace]", "\<\": MWF = \"\>", "\[InvisibleSpace]", "27.47434820655068`", "\[InvisibleSpace]", "\<\"; MWFmin = \"\>", "\[InvisibleSpace]", "27.47434820655068`", "\[InvisibleSpace]", "\<\"; mj: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"98", ",", "106", ",", "96"}], "}"}]}], SequenceForm[ 27, ": MWF = ", 27.47434820655068, "; MWFmin = ", 27.47434820655068, "; mj: ", {98, 106, 96}], Editable->False]], "Print", CellChangeTimes->{3.822284595085225*^9}, CellLabel-> "During evaluation of \ In[139]:=",ExpressionUUID->"220b2cb2-b899-429e-a9e5-5b6b4a11cd16"], Cell[BoxData["\<\"Mahalanobis k-means RECONSTRUCTION: \"\>"], "Print", CellChangeTimes->{3.822284595090537*^9}, CellLabel-> "During evaluation of \ In[139]:=",ExpressionUUID->"e48fd81a-116d-416a-be56-d872c8f028ac"], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{{{}, {{ {Hue[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], PointSize[0.015], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwV0fs71IkewHFKrMHu4xKrtdMOafW4Ky3Tro9qG8vRrq6q5aw0ZgllKTld XOdZSyRbihOiI7FdhKm05COXtsIYNMRoGubC3Mx85zvoojq7P7yf1x/wpkUf 3h6zxMDAgPl3/0hE/GYibCNB+XI+4XqGHsy1p0cW5ATUmtNGXNkExL4g+a7R I2C6ivdHn9M4nNRDge+gDi5yvPxsOCR48yp8lFQNaBxUx8UNWtig9k4KXDoL nSWBk3v4KqjytfdpiOMDt7XHiOH3HGocvfYVy7So6wZTlrUOWT8fbT9bLgH7 Owb28uti0MeNNl3RnIHKLVezgs9z8MSfAm1kqhZN6hkHPJ20uMKdjPCkioGT cfjwtdcvQdsX4OIXJ4P8G7rdB9ZNA7vMR5j2kQaW7SiydzqrAr/fY5sHTz3A Ww/3uEipPRivqg5daNHi2jpF2ZQ9gb3VNZb+rir4rmfyyV+ZSvi4xGrCdZQA +oS6sMtRC/c6Dw6eJl6C5/sgJfeiCDpyI41sqQXgTet4IlrRBRk7VzKYuc+x aHGdf27lCMqa0t/s4krxeLKm7X3pDMrAleb1Pzl4jsXII6KVUNbP/rq1nIRT BRfdvONIcDKN1WcHD2K7Oqz2w+oBzK5tHVmjEmA6Y/mxPuYE1tdtE0v8FXhf Yrs6z1uNzulOUYHsedxvPsm6QllAdtFeyZqOAdhUou7IdRyALzv2ZzZJumBj ifGht3bdUPuvjb2/lvaA6FScgUdBAxyrTVGoqnQgpo9NnxvTwS92woce5QTY XvvIkEHRgoUPd8cilcSiXV+lJFvqsbN0dUDwFi4uG35aZn27H53j9u0uG5ej yOHSm6QbGizsFC69N6lFz6ftt6fDtBhR+pTXsE2Bf8/OQgsFPjQ3HBJ26cFY oDji/585cGJzo/3zSDyZmvpqnk2iY1+HOspKiJ9R9nVdISbwV/KzAe9qIRbG BInvVkwiLYfVRqmZwuiK8AzWkBQTPshZIno+ULhE/tLwO6Dbv7v5KkmCXrrl kvEJEr5w93qWkK3D+mpqYpAjiZQf0U9eXIe0d5+Gvf2pGdfLim/Os4dg34W5 pzYVfOgeuxDY/rgUPRKo4Ym/52N7ISNvM1cItd/Tw2e3SqDmWvD7kdApvCN2 W/JaOYkmy1ZQ/902DHQnGp12dBiG1inj+wQklHj3cBysSTAQavJPFalQbNv4 s1SuxiyL5X8U02XQkO1V1Zw3A/fRaQv9oASul1geuf1fCSzeG58N+kuPUY8D e4zb9NiYe/TqCx8ddnaZPGgM0eIm5avEfKkAqy0jO6x7+Jj4mjbqEFEPwSJR UqPJHTDaUb7MaoqAny63iLZ+p4NzP6beXNNHACWPfoY3TcDYVr6Vun8Q63wD IrjnerEtch1/fOQRynZtC2NFPcL3+dqDNXQefFF/LDzacBgKAwiq8JuH4Fyp u7AirxcaOHtMa9k6/D6WYrvJgkBCaWT2ZzcB0sW3iaPvdGDGt71lMyCElkNh S1tpQmgaDerfJOpAlzKO0GAhF0MHzjovcefDCdfHActfDELw1ubx4sfj2Hh9 MXC9UoD6J2ZFn++axcnj/e0y1GBOxsdf8dKnwSL7vHlXgwxW+vBOJK+aQuUb tw1pq0Xo++TzzO4oKdRw4iWGbhLwck8eS+PKUXs3INIoYQafc2vOrCzkQ0h8 eNhY7hCE0E0rXHc/gMWNB1ywlgPPQg/FhBHzmPShnbJdNYcep6t6vHPUmFOQ 1uIsUOKGSqLaw+oWfupit4qV3oC+UsmHvWwl9hq3tJY0ydGPaTE18kMsqNKf 5cwwLsOs786mH9hTyMk8JqjwkmJnPCPEOmkYuvfanPYoHoKI3mTemvMK+Ia0 NF++WQFmA0zTsxlzuL7RJzMySI9kaepORtY4NGUWabzChGC3Ni4rbUiPa2+Y p+gn5tDKN4EkX4hhVSQzRVQphYVLn1Q0zhAoCBlYMGvT4c2LabHV387jTKhD 1cnNc5iUsK091yID9j9KSXnlWAXHnwErhkni2P2Wy69Okjg8wc1avDoDBlHT 79zuKuB+v7O7v5cGRhezyu22a2D8S1OteK0CmAXU0k7LGVhiTTJvMqfB47J1 MFk/DbaGNhu+rZvDI7wd2bcd9Ph/5C9nUQ== "]]}, {Hue[ NCache[ Rational[2, 3], 0.6666666666666666], 1, 1], PointSize[0.015], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlGs41HkDhidLjmW9Y9eqLUm14q03lWi78pCOkkMrHa6dXYdVWcXSAdHq xJDToHgpOYSwFJPsbtJvVqMsSg4RSgbDmIz5z+E/5FBrPzzX8+25rvv5cJv6 BO33U2MwGD/N5d+uy4b+Gh85OI6Bp3MtHxChg0ZnUfwADP4blKZ3fxInpxlD lbkjiOVFmK1cT2O3riw83UeAHMf2tuyaj0iQEv+QPyXIev98q21WN6zP60bb smToCjc2jtPpJRqGd87X8Cdh40WnP/KYIFt42haJDykI4uuZ9+t4uJp883GR mxAHsxo31aXRWK3tqDr5YhDxDt/GtURPo+/bpqmyxyPoT5zW4xqrYOcbZaOK otByONXK/FwTbm02iR+MkOCk5HajUUkHyg1H6ssyBaj6tJHttGMWBiY1DvyZ cRC1ymuLj3QgpPhWYGCIBFPfzeh+Lh6Eb6qVc992CfwN1bpPVHVClehtcWbZ OHTrLNa2L2uA1GiqspI9jieGaRNLLghhm89O7F0gx3C7jefDo8/I4IUlZkX1 MgxU3ihxOscnpvN3xqlMaKgeRq74ZCkiOPPQ512tHOZbxJGP6b+IYFvX1SNO Urw2ln6zr7yQOEc3ZMXemwBTq7GoNXWCNDY3aSya26eLrnH2r3lJMscSemSH pcgpsLoSatOHIH7p7CdPGSpkvv6HAnhg1hq0WP9CYcYnxzvqWD3k0tQXzbwJ hGUMzrYSFfl4M+bsm8+kyGtnqlUqepA2ZVD8xmUABVleNkeefcSYh4u15mfv 4csybk/aOILlMTR/VS+N01zXk+3FcvLNzND/TfeM4vK5PYbXdSjka13KF3xH YaP30sytdxvxnneb7SSiseOeyGHh/yjisXi4J2xUCUVV+uUfpWNECwaTESlK zLO2bLLOFBNb2xs/G1gNYtg112BelQp3tnC9In8UQRmWrXNqqB/UhpzgzlEx IrA54+xtKRpOaRYOx0nwJKlwoihFAEdWopu7EwVOihU5LicQ/Ma/9YdKDhsH F4vR+WKSqyh3igmkoL6P05Lv+gJcTvikNoOGqfICZ/ObESJVq75+T/sDQo8W f7X4gJJo6d7YJJxWosH+9qu3r0fJgEVp7PJmGkfXaezzYMgIZ1kaVx40joRq y3C/38UQubGaSzZJ4Kz5YGk4EeJ65JLXkq2jOJB74vJmSwrbKleql7Np3KH+ NvTeqySMV167ijtVWFQh6EOZnHRV12950SfCwe161NBzIfxbQ7sCa1XYPpoQ 3O+rJBlhFaEi53eILhWFdryaRVfyquJsNgWzvGdxD6Rt5JjC9owek0bZRmog xfM9GSo/dGHqogC/JDUVwX0GzDzj2JCCITTeT9h2xVmJrp0W/Yo5/tdLL5Fr nDESoR6g9qWdAodqTNtXlL4l9kKtX3+yV2A80P6yX28TWRmrWGQxpUKB9Iv6 r/wVZHlH86qdGhK0Zv5mPv1MgCUNgX2vAkTgntpDtdao8HyDXVyFGQ1WsMZN I1MZmdUI0T3fNwaDMSZRBglx4m5m4Xk9BTwX289Ova0nWq1f2rocHIVKy/vB ca4S6Uw6hzd3zfRK8/wfMAsdG49+Y3Mp9j2NqnvLe4mBl9fM+PFCqGrZYd/7 y/A0aW0HK4iGJbNi7+p2CfHlMtsSy5QYPnP8k5uLkOztDNHX4MnQk1HNoeMf EWOumTBiYBTJtWvbhpvEmPaTrDf5D4V1+Vf3TBV3w+DKpahOayV+LxGtZzPG iY7TDz4j2RT2JgyOvPuaB5lZywGNZDnaTC7mBYT3k91PXI9HTcvheKx0RUBJ PTmb7Lrzbq0C8zWZH56uGSJFpRYHjFhipPTusksdE6Onu0Y2sW7OW2RTV16O lCxPSWrJWPgB0r/dgwvcacIxqru0IF0ETU537X72JPKCavSzM8SwVfeXOuv3 QdfGP7hencJh7yNbQ1fN+XWHu1uPgxLMp7vGVueMkOaB6GqHL0YQ0OKbmqqr wCRLfV7xh3eICXfxkS+YgWfuMcbF+ZPY/aj1dPQuGRFN29p5EQpVh3MyWDF8 5G/wu5pSIsTgwtCezgAaHT8Xxkj+kiHsT/Wj/LRksNV17b7WloOhvyBy9aLH 5O4NptwlVgHxIQfjkq4+8g9IHVa6 "]]}, {Hue[1, 1, 1], PointSize[0.015], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwV0HlczAkfwPF5yG467HZOeNoG6ZAebKtQfGnHJNdu1BLVDCrZVGSxtV20 ViFapdKByIRarC4hX5SOSdfUU5lXTTXzm5nf3DNMpXvtH5/X+//PooNRu0Jm USiU4M/9axn9N49iiw5wsjLrdaySIHN/8ugLwym4c8Rp5BpVg09Jg+thERw8 aCA6EWomxJ78R3oaHhfjYilB1v8lsMnG+PvCFRKgXSiL/tgjxrpPUZD+HRcG +c8eN7iKcM3x0fCG02IId+zO9nSSIbE5Jq22iITmH2zjR17K8dLdlw9fMUbg ucsUEZOgQK5DgQplElzv7TC1cN8QGnzhpY1P1QDffLGDR4UU+2oKDsXNqIFq lvLp8nwp8jkei0L/pwLGEzf9LLYcFZlxqWE0FdS32z8sP6lEpoYU5mk78dq1 ep7RQSF6VmwP3i4cA2xjOevPU2HXHe8aJqsL5p3grtJFSHHMOzPg2VsC9LPN A9pXKrAiwWDfmZ/KYO/qA1cbnhN4rOP+n7ToAvQs6bDvlkswpHCZaU8nF0WP 52Ymff5h+EtaQMeAFL8uXEpj+g+hy/TGknOhHyDioFdVpFiBCsXFpiXxcmAn mhqumE3ism3NJsPqT6AwZd4ruaLGFMne27RiEnnrqj9sOCrAOEHxj29/5YGL A+5eK5QgTU/Bl5XXQeIfHubdB0TY8ODHkfahWuQqk3nJJf3YXV16xJOphZyI 0AwllcRLTWuKqh3HYbPs0VifvQYrAtxP0VcMw9Uk13vnbOX47Xmya+IkD8zm dLypHhAj8W7B3j1iGRxlRRzKaSTR/i1w0op7sNFvtrBktRBLmESTlUyAQ5ii 98Z5ABdnjSj+YzIK1u7bLP6cr8Zbwiy75M5pKBNaepbMUSFfxNvY1ErZKM5e EtxrqMH7Xr6ZQ/u6ME0TlX4hSICb/V1tOTdqYVfR8KHLJhKMnMnIbXn6BJL8 2KmzIsX4McDDSi9GCeEDz89m0eV4HQL4C6vHgNevcRnbpsS2wLm7fWMHkbhI jSq/NYhJ1xhj5wv/wsnjiqO/+RKYX5bupvp7AgTTQbZsTw3q1Gt3c+kdWH+U vvCVjQCZuozT59z+RoO9KePnzoqwUtpXp9fXgzFzw6oN3UUYaacy1l/VC1aB e+JL/UmMGaH0cb8dhzf2t48vKFWhM688y2WxCsnlPmXZcj7uf0FjTP4uAMvN s4u+2EFiS4jWPyZdAH8dy7tv5kFi0FfN9AeRMgxcm1ifs0SAF6NeJLMpBCzy 6R/lSCVYNddufpfjJLBmzmp9ijW4xm1H677AZGRvLxpUnyQwqS6Cs+vSDBx2 uilmeGvw7OE7ZdkdWqAm5nFWn5IhQ0g38c2YgpXr3m/4eFmNVdnrH3918i40 po/eaNUJMS2W6VXpoIOLWwzPP1YqMQPPPOCwniJlgGcXa0Kgc/DMqfJbcjCe 3nPDeoJEfcYf8vBwDcR65Y+ufS1H7VTti8j741BdS9Z3dCnxm2CqMpraj+7Z nQNh+4fQTPW7XjTjNe5+UnFXV0vgrJb8DKdaHdw7UNzGz1WijVWLqd8ZOVSm tli7OUtx+23XeXnG46BYZio8skCD6yds/HcYK9Go16ItL5SP7+JmuGal5Uhs DR9MfU+gacZIVFeeDpaWeccuuaLElUUFRseFnyAgNqzB4rAaa9iVhXPWDYL7 XfqXCRckSO98qLcxdBhsI24Wq0MUuONUS7yhlxaebLr+vO7/JLJFLrnfD5bj VqqvNatFhJMlBQ0XaAQ8s+eJh1JI5Nx7P82mDoBbTq/9ESMxLhYb2EPRRxDn 98/uIRQYtCox83QpCQa/SH/OmpSj34c+syRXEWwpDgukzUiQJWvM744mcIt3 RORwyRAu5duabz09Bb8WsPK1jSqk2GzY2v6oGX2edl+1sRVhi0VYbo3RDHAo fZIGOzVybu9MQLtuqJy1c5OjjQRfcgVkllyMux7cOtBKG0TaO0y4WibBmwxb Xu4GIR5rNvcff6WF7p3ty1NFUpzXRVSF/KyF0f7aAs53cuTPt+RuMuiFr7kn tgi8xRi1Jy0BW/uQW3PlNctBgIoeL8svDT8A28fYp+28AvMmzKU5lhXwjV8T vS9biNuy6nyWJ6ohzlMneCgh8R8x34Y1 "]]}}, { {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]}, {Hue[1, 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]}, {Hue[1, 1, 1], PointSize[0.015], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, { LineBox[{{-1.4142135623730951`, -1.4142135623730951`}, { 1.4142135623730951`, 1.4142135623730951`}}], LineBox[{{0.5, 2}, {1.5, -1.5}}], LineBox[{{-1, -0.5}, {2, -1.}}]}}, 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.154455674042069`, 1.5}, {1.5, 1.3614912539396187`}}, ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-1.4339145624297105`, 2.1009697977831214`}, {-1.4733444705202643`, 1.9236700213602171`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], {96., -90.8142492851951}, ImageScaled[{0.5, 0.5}], {180, 172.97952244799066}], InsetBox[ GraphicsBox[{{{}, {{ {Hue[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], PointSize[ 0.007333333333333334], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVk3s41PkCh2ctuZYzZ7RWbUm6iG032wXbw4d0lVza7k92GauyiqULokPb MoQMKktZd+GkMpV9Nuk7KxMhcolQk8GYC2N+cyWXOp0/3uf97/3vtWKG7Q3S odFozE/83y2FJXQnu3Hs5AmeN8aPYRR2VuuKJfi2L0hylDmGoy0RL9dclcJZ RTdZ6C5F15u2i7OlYtD8RXNf10jRv9qQGl4vxc+pS/+op4shdNPrKUsZAv3r sCyT+1M4NUMbqS4QIYkbY73yOw12GiuirzMFyHfv6syr/YDL6TeflPkIcTC3 eVN9lgZrDN21p9qGkeL2fXJ7wgz437dM334iwmDajAnHQosqMxHvdo4ADz5u YHlsm0NE+Z+hoREyTP8wa/wv6TDk5tPV1awJPDXLmlwSL0TOeGq/4rAc+SX2 v0c68JE1TS9/4zWEklx/hyONHzC+z2uj/udjCPSz6LqyQYTVsyN/WO2S4NL5 XWbXjCg4Ot74hW4/jFHvAvpnD7S4tZnjH/uTGOqoPKPTI4Og1ueH90ikiIFT 9rliOZpO65eOJsvw9ErpZFmGAOxlWRxl2ARSa+yig/6SQuzj11qxSQZP/YdL o4kQ12KXvJY5S7C/4OQlJzsKvTW8zW18MQ5uNaFGXgiRHXUvUuz5DgmV4sju V3MYqToUP31RgF+vtJTBdxaMQoukiJIRNN9P3fK7pxrLu1tXbdeToSPnvzYz jQIsaQrlvwoRg3N6F9VRq8WcXoTxBf446OMMog4TwqDjC0evgxJoDQIenuCo cZ2hyecK+JhZaVP0I+Yw9PKqdUOKENo6VtTRYAUsONbCmCEJ0uu+6RxtkaKs 0na/uZ8UGQM7XDLHpWCb1/82/7oY+uy+ur2sKRSG1ZrmZUvhqBss9zTlo3Uo ocZtoQgh7YGZmcYqTPnpflb+/h0So72YyvmzKFofdDmjQojhBZH9PSEapMpJ cMTfMuSOvXB2zO3Dh5uJ5958LkdhF0OnWtWPwEx7T/5WGYLNdPpOPujBTJDs O8t/U1hXdHnXdHkfjB2Cw3m6FA4HHHGOXNWHP50sU4ZjZDglK242r+gG3bLW rWF2AkSn+uriI90wctg3aGEjx55ncfVvuS+hTQuwPbtsAsb1tt90LWtCgarK IzGUgu4ednuRdxtcAuMctHEU2g9n2tucbwGjjt6+8VcKs8z8gLjjPBQZ/FYk +IHChoClOc53mrGZa2ib9oiCIIXHuF/PRVhD5dzHAwrcUwQGHwrhwt0vzcfX gwI7w56cUBIYefzIFOVR2J06LHr3FRfiGUcXf0LhweH8bL/EBgi29F4+4iHH awv56j1VpaT7l9JE2T8KRP2te6whKx31eTBdy1SC7R56psDuIdndE2Gqx1Wg P7uGrUl5TFi6xi5fGSpBM50fu2bRE+JYxEobmK/EaJfDgUfHGslw/BLrMp4C Q9U3KjzONxCcfcR8V6eEzWZp7BPNP8RVaPCfn11VmAh1vRQ00EJO3skpvWCi woHFrnPTb3lk51PvE3EzSrgfr1wRUsEjza0teos+9TVlV9l7174kvemryvNY FKwLG5MfyjtJjG6IzhcuKhyqtepaUfmW3LnBUHolqSA95GZR0csnGy8YJzj6 KdAbbWGRbDRAFNbt+/XSlei0vFgYEj1IAjmMzrTbaoyePfHRx0tIzqV7b79T p8I8fcb7Z2tHiJ7ZrQu1DVNw8Ndcf7xvkngmNOUm3Z0Ew6C5rCNzkijlmW2t 3ElEZQ/PdRAtsZq3PVlrqYH2UeyKj3ZiwmFHTxnSNLBSx7Od3oiIXKfm2l3D 94g8Vv7l4v1qsjzjSnv2gveQP/cNL/HVkI3bfH363dRgPNsxviZfRJYnahpW DWhwhuN9qqtcSbZUr9StYmlwi3puFrBbTWiv/HeU92ix6N6nCW8rSXBHZG9o nRZbJanhg4FqsjJJtch2WosS+ULel8EqYmB8Y5NwRo0m1+JXb19LyBi3mOUh 1mDbXbHbgm8pMmRbmbS8VYNj6/T27KMpyIv1Lsn3rDXwC9e7aW6lIP19tYrJ dVq4kE29hflycqDgOO3ivCnsfNxxJmGHgvwPnqVCmA== "]]}, {Hue[ NCache[ Rational[2, 3], 0.6666666666666666], 1, 1], PointSize[ 0.007333333333333334], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVinlYDIgfh2eJTYfdmg60aZBO1pEKxZd2lITfRi3R5SiRimwoXQoJEaXS gcgktbS6kS9bOiZdU1uZp6aa+z5quq/1++PzvM/7vJ8Vx0MO+M0jEAhnvu// PDW8OUyDOAJFm+TM+3+I0Odo/NgH9Rl4ftpy9KG+HO+8+Pj6k+MovLeaYYdH i9GhbO/JvawJwFbftaqLpWjh0qQ1IhsHsbbPy8J7MrzTuDmvynwSdgnfTPSa yrHM0+4ied0IPIi1eXndWIQr00bFP2iNgaGdi+79pTJ8ykozie+YhRKWnkPh AikyOPQdjS2EHdz0VSd71OX4CDwZBlUTQO+TW024SDC7JNlW+vcUMGe9jSkO cgwfJfTSNk7CP6bPzi8rkmLFIpOlnebT4DsXp3DNl2NsbRD1wJ05OGX5hOvo LEdHFlnLLWUG1m/9tn34rgwVMzUfggsmoaqGX9feKcG9z2wWZ2lOgthCm3V6 mRzX5+VonGeNg2dEQL3uKRmSO16r7PAfAeOgJ/kyPzGuZhjr7Lk0A5dzfLMV DVJs1g3IrNaYAyqhl1dvIkM3Ay79skAJw6Vp8T4yMaqC1viV+0r4wdqyyfqR EAcLax9Xjg6B7c79FoKFQux2tBgYJoxAz/I4TE0WY93dXzu9QkbAkljsYt4h Qa1rcTFd1kqoKOBvTCBIMSnCx6ncTAm3d6snFEskOK85O8WyRgkvj+W3MjIl qJ0yGtKZpYTVJc4Rq+5JcCVXzRTyhoGb3Te/my1GtYVOiqhEOTB0VprZlwmw tzrnROScDPSJN8fvLhWg1eyOwuv+QxB03KkimCvGrqqi0w4+CsgI8k+R6PMx 7tTzkvR2BejHZFGtLwpR1fGGKDBQDhFO2WNbPotw38XmKHUnBbzd+eh97b98 PNek4zH5SQFd+9vWJHIEuLiTXeF3RgFjfTU51E0iFHc76f2oPgQUV03X1gQx uqTVuq6JkUGkg5L5msdHBtV+hf+vUnB8a6uaRvn+T41MDCBJoa7N9HVpmASH Pe2XqIRLILD/fVwa+XsX325cFSUCSoy2+rr5fGR/XXb4EFcIZ32DTmQ08HHt ybmLpU9FoDl76LHhFB+NljRru18VQXlis6HtWgGyd4Un1eTxoel/xlGjH0Xo vSEm9VIRH9T+FJxJmxZho5Hmb7nreEC6VRI63M3FzefHAusvcSHQvCvdwVKI E86pnu++sEE1Xcezbb0Y3Yd6ibE2HNidH+BFmuPh7ZAP8RQCG1a49o1RBTyc Lsypv0ViwztTOnfwJh+PfiA5Tl9jgt6u+XkL9/Gx2U/hEZ7MhL/OZRUQ7flY TSnPXbB1AOxekH+MvsVD6stvsxT9frDN6DE9rcHFSGb+718u08HKDA9uYfFw YwK/cyqMDsQF7f9U9XMx2ESqqbqhB5Z4HYoq8uAj9dn+aDTpgvJ5+3eaG/GQ sVSPtlOtB36mXdjNdOZiCfmKfb5uO1guIfaYV/CwdjwEkjfRYIDxrrjehoOd z52rfXw7YfEF2gZlkABJKmKGsLQWYm7Y63Qd4+AuDxtj6uMaOJA3cuKuFg/L otWOXP2jBA5bH3tQ/56N59oL7pNCc9ChsN20S8TD4LmUzObKtxDrTkmcF8zF ivRtxT+FvYCG5LHHLUoWZk3pCDL0ymC5eyO5N52FsQ8dJxJy/8Lp8+KzV9zY 6KNMuXTd9m9UO3xz8nocBzfb7ms54hWPlL15A7IwNqbg1VdU30ok9NNNIrTY SJReUwl1/IwH35a9UNaw8WvkHI1YVIrsPYEDid/YSOFYZf42UIp79N0MfZs5 WMlXexQQRMXjapwL/kQWEoy272l704SulV0PjIw52J39RkVOp2FkBMHb8Bc2 +uVaaHd30JBTvCg19rvXv/p9tG2wBmmSeHp8YR8qZVsO0sjtWHeWbPDJiIlr 6aVpViulyF/jWpIuYqCPnM/KUnTgw4d1dI3jLDT9AtSk/G5scJ/PKrRmYYGT W+rgkU5Mkock3/JmYrmgt1altxvDFwVUqdtxcNuUkcc+TQlq9Oi2ZvkzUP3P JM/2fgH+nLua5OMxiN4/NZFfBQvRa0tMXcYqJn6kMflpIi4eePX0WAtpAGlm OVIU8nCbs9mMwZFBvMk7/IyUz0f61qqh7WeZuPykviRUvw/t0jv6A44OYsih pGhs6UVa9b3PvmZMvDFs0Lohl4FJfk6s8pxBJH3F6AclPHziaEzP3M5CX2FD dlcoG3c7BwWPFA7ifzwMutk= "]]}, {Hue[1, 1, 1], PointSize[0.007333333333333334], AbsoluteThickness[ 1.6], PointBox[CompressedData[" 1:eJwV0v8/0wkcwHFKZOgeIdJpNdLpIUIU685bqjlORZS+cElahHIpOZWve5x8 SyrFheghkUpYlyJv+dJVmG+NmNaw+bbN9tln6Ivquh9ej+c/8KIFnth1ZJ6K ikrA9/7XpjPfVkyVgcxYEjNSIYdNUpsI5/lT0JjtPLSXKwFWri0/eqEMFnhn GplekkCCzpK7WfRRqEi0LqxOGYekuEUbO2PHQCfxqnZTxSg8aTezdLSWQd9c Qp7hLhnM0yOD7geNgdVNPTeybAy05Wm9sxMElGjTei1YBJxTQrp9lwKus60d 9NkkyNuczB1CRiH1nmLPYbsxWJStO2jRRwB9UJrRZCKHMyWRk5JCBYzQ+8eu 9CvgD0P+c6s8AgzuLFRlUOSg5p23QHeYgIM3awTbf1XAlQNR99e0EUBJoV/s HCOAEKtpPW0mQDT3ObzviwLsXy2Pbw4QQTE7VKi6VgiE3wUNfh0J4vczYeVx SmAePV1/KU8IRo9UjCbKRyC3nfVzbR4J59Ovr7UJIUFxaE/1bZIEpWjbDfWz JHTbiUPbeCRk27SwjfVIeIKm2+jHhFCevfjUw7+FoGsfRpLvRmCVf1CkoEAE yyxJv3XUEWDHnThx5+N7eK6t2s1vUoI6b/KU45/T8LjxWFca8R7WfXUVc64L oD6DkbKFw4eSHXTfqe1CCH5Hci0Ce0FzVefdNtMB0OIaPNDv4EPNcc/5tTQ+ kDlRPoyEAaiKz5RZe/Kh0N7ItiKEC5zaFjWGw1vYMJp1f4bVDfuvTb/Wz+eC xoJl1N/reoBuSqPTTveAR8cls3mWXDhr8dJpybsueMspvrgigwvuob6e/cnd 0BjKcNeL6IHmffppVlndwMrcJ1zT0AEu2dKGZJMO+JoqP1ZM74SVZWd8A1V7 4KeGQ/FVwibYnK1+/LNhM2Q4EVT+L8/BrEBxbVlKKzQk+6sZUNPBhtbwSrCs CUp+29z6V04LCM6HqFilV0DYtwmmgJ4KFA6ROt/3EYR/pPUZ+5WBm0AQUanx CNzpmvkWe57B3ObD5ljCBocgneHencEgiX2TNM64CRFhXvXJOnFw6EVk5AeT QlCG9FXdkl2Egm23E9yusrG5/5pz/csctAqj+oZfTsWqPtd2F0EDmuey+Sqz yUg5gA4TWaVI+7LU8/PBatxUQBRZ6T7ApeaGq5ixFehwObi66/wzfPB8r7mI 2oJ1/nbcgd4XOLrby5MZ8AKLTaz3Z43KUdEMmkw9BZ59ypP7R8lRo4xxeJ2p HEMlRR6zNXJcXzqZO2xEYJzPCkZQ8lvMnLNzTC7oxdGq2E+7OSKMOSmr+5oz jqaawcpEty6sl3qWfFvdgYkltb1rJDyMZSw50xY0iGWlXiNCx0l8IjRYnWIj RbNY0wBn1gwe0h5i3qLMoo4tx3uOSmLm7o2RJxcrsTFntZPbNg4u6Hmdq/ew Hc1C9u/JHZhAgfGNTxH3ZJjRyJ//eEiO617XPxzzlKNfzuvOCq9J/D5TAupM oimLE+iYQuK5qKgPMywSTdoapAG6fPyRsr/pFjGItCRmHaV4GAPzfeOY3SJc aWn9JixRgWVF1HBXExKL77h97fUYxkcja+d9FA+hCl+Wej5TgiMGlUdFE1Kc ezww5fqvEgNeOreo1ymxMvn07Xe2Cmxs0nhW6S5HF/GH8FQRD4sW+zfotXCx fztXV9rehaX2Tn6cK61Ywd6rWcJS4I5gioGLDoFu26sHsl4OYGX5nPMGMQ+V r7Qyl++ewqGY9vpRlOEK286zJ1cNo/jT2k3RqwVobXmyP5ozgfJ/nPzVwsbx jcfxI57EDEZ8q6fskkyjVVphi02SFJPSo2vMeGK0Fwm/7WOJsVW9pja7agKn 7H2qdrKGkR1/hpdvLUKtjiDNS3HTuKHSNt7fVYmG60MSoruVuP6edqRycBpn b/yQXzlOIM+9Y1arToH3r0cHF22dwXEP48JzW6Yx5g0wjwSR2P+k5uaHcyQa qOpv2lo6jac6vRMfGiux/KDw1dLJYRzCC2qNlu+xw1/T2ydGgMI0wxPsQgH+ B7IMRs8= "]]}}, { {Hue[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], PointSize[ 0.007333333333333334], AbsoluteThickness[1.6]}, {Hue[ NCache[ Rational[2, 3], 0.6666666666666666], 1, 1], PointSize[ 0.007333333333333334], AbsoluteThickness[1.6]}, {Hue[1, 1, 1], PointSize[0.007333333333333334], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}}, { {Hue[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], PointSize[ 0.007333333333333334], AbsoluteThickness[1.6]}, {Hue[ NCache[ Rational[2, 3], 0.6666666666666666], 1, 1], PointSize[ 0.007333333333333334], AbsoluteThickness[1.6]}, {Hue[1, 1, 1], PointSize[0.007333333333333334], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {{ GraphicsComplexBox[CompressedData[" 1:eJxF2Hk0Fv/7P3BbSSVbCSkpOyUpe113KkJFpZREiQipKFK9o6xFSllDSvYU SSnbSyIJZc3Obb9x39z75sbX75xf8/ln5jzPdV4zc+acueZ6PRSdrx53FeDj 44tcOvy/c4q+zd5Nih1w/EjhhncXBXHp/F3L12t0QPerba9WOwriwr447242 6QDGLkJsgLEgrmE+2iDkdAc0GTEJYzKCuBZc1NpGxw7gOrqQVqwVxG0c/nPi 81JOlN+8xkxKEKfxSYk6vpTTf1iRAiUFcYYNg19tKzqgkO8+T/qPAO58az51 ur8DBqaf8A1WC+BsD3ryf+vrgMPOBaJdRQK46po/qQ1H/4JS2SLV30cAV3RC aplQ3l/IEIsOZ1sK4AydzhUplv4Fz0dXx8S3COBGRXd7Tw39hcj9ll3OVH6c 3aifyp0tnVB0ZrAzt4UfV0bS0WZYd4K1wi5F80p+nC4/z0rkYSew1ax/md7n x22/z8ibIXWC0qQMXUaHH1fKJ714ZaYT9rIry3t38OMSy+PUqpdyReBp1S9L udm8uWpithN+7eRtadLmxz1Q4xkJR3dBSN32ght4PtyI+XfV9Lgu+CAQnurY yIezWN4bFdjeBZKMHfrVb/lwdcu5as/lu+FX/MvXok/5cGmK113N9LtB/fgH i/PufDheiYYG3aAbDD39BSLc+HBtRHJIknE38A75xFa78uH8zTTIvx90g/il NbFZwIcrTnqc5PO5Gx5elss/pcKHi6JZqopNd8Mlu/ZV2gJ8OKekLwHxG3og 34O3OnBgEf7GSFhYhfdA0JU1j5uPLAIiNgUzn/dAw25pue+4Rfi0oTJIIrEH DET6KIV7FsFpGf/GU0k9YDKPtztmuAiPB8mn8VK90FOYGsOsXADflMR9A7he qMku+zucsgA7Rr6hpJO9oKaCf4P3WADJo+nvwsJ74Zta3jIdo6VcdnuqsqsX bMySy9by5mEPn09aLK8XxkbMM6s/zcNAYSJ7WqwPsmxCHhBS5mGMkyIi49oH faO3X5mdnYckHxM3hbt9MO7lKTmoOw+sgTsLxOY+8NHOeX+siQfxMg1jxpN9 4B5sH3qrlAe9vcdb3m/qh6NeczJDATw4F7B502HvfmBJD7YztXige1/PQT6i H+iKRh55sjxYcfj33Y3x/XDz8x3FEt4c7Bxqo4YS+8GI0x37LW8OJIzCcDHb ByCoSta679YcEA+49f45MwA3/pTuCtCag5tHo63Szw+Aj+qhDBmVORgI8o07 7zEABvt5pc1yc5C77anstYIBWO3E0V3TxQUvq5z3v8cHQIWmFtOcyYVOnUi5 DrVB+Jhinnj3DBdW8bKtb54chMT5LhmcPhfSvTcIGl4cBIV1JKbGVi64bT3V aJUwCAONh1Z1j3MArxx7RvLzIGTm5v+4VssBrrt/jMrgIPzUpm50e8WBGv+i RoeJQVBK+TJ/PZ4Dl7NPbJ6lD0Kt00H53eEceH22mmm6Ew/cp/N2JAUOpN1s ynp8FA+FRonDbxhssOA5ihz0xMPfej2TkgI2nG7kzCqn4cGk27+uw5YN8bON sb2VeDiaVmVzewsbYns/vFOYwsNPf7t84WIWUEumyKUqQzA6t7qEpskC65Oi Ge46QyBUWNB3SYYFpSN1TtRdQ2ArrR9jKMUCvYi9+Y76Q2Dfr3xDbRULnHny Ms5+Q3BVyVhSJIkJs/UHC3LDhwBfLO3n6cMEXNl+84qMIUjols223c0EzYSr p95/GoJvictqpqSZsFcm/YjY6BB4nWDap7Yw4JPxVOgemWF4ZXF1NNyBAcEK taN6RsPApnTAnx0M8Kg42UPHDUN4p1dbmwwDGA6rPnn5DEM0v8/B22/psF1+ fcbyhmFwsVTTV5WjQ7xbk/Pr3mEQ144T0Z2lQTdPbD6LPQzEzdp7Nr+nATJ9 PFx0fATEeG1qx+RocDxOwDI7aATUvGzb4t9Rgc2vFbCpcgTY6QPmfppUaEgu invSNAJvPCW1D66lAnKW3/1fxwj0OnZY3eCnwi52b2/v9lHA5Uqlcj0pIJuV 5F5gPgrN29tvW6hTQKSU0C5sOwqtl9796ZaigPxb8g+/0FFoNKfd12ogw5Uz PvWpL0bB+LAh34E4MhzS3POJWz4KncZPNV9aL+VfcVmyf0fh9HjrJUcNMtAM 75bkDoyCzzlJMd91ZOBmHd7TLDIGuTMiWQaBs6B4bTAiQWMMfoq4JmyWmoWO 7iq9rzpjUHJk1tibOLPUx+xo2y6PQZgpr29u2wwkuZis3fZwDIbMlC6EtJBg YP3HoVMFYzCQ8EJwuQ4JJK9aSu/CjwE3eESD8IQInpOkl+G8MbAPZFimGxLh wpphETedcZD8lk63OjoNPKsr/A9OjkM3XWshsXwKZP9bK9vx3zgwZLcs/NSd grJV6sdeRo6DxsKFyoLVU3CkTXXllsRxWJkVA9KNk5Dk77b+RM049F26vzVM bxKYv2HNt8lxMDVWjJBqIICyu8IJmvAEuPpJddzRI4BhU/BTXfEJWPeXtrBG mgBs8rL+fNwE2N/CH/N/OAG9iX5xEZETYBdol9XvMA6HQFKi4vkE+HxK29Br Pg4N36Nnc+Imlt4PQS7PZBwWyY9rdV9PwKmWfkuTNePg9b43LWEHAVY8+Pko z3oUfEnKsSPWBEjX3lSQXjMCRyovuo+EE2AjQ9mPOToMIXef/jyURYBSr/5b y4OHYUZaLC6yhACnbqogK+thEIh//3CMSAA/4Z95D64MwZuUc77dXAK05aaY euwbAunfr61iLCch/PKj2lf2eIgxWyco4jQJf5tKZFIWl/pEoJ8xIXgS6GSG TW3PACwqPr7NLZ2E5Yf08i/e7YcHF/FCw82TIBbx0938Yx8saxRas4I3CQ51 I+uSvXvhOezWLhSdAr3qYtDk9EDSFs++t+ungDVnU2/7tQeEjP8cSTCYgirQ C7pe0Q3Fyx7I3DGcgqOLviJPSrrh976HN1TPT4G/jpnV2+ouaNXKeSznPQVu Jrpt1JtdsFZVu+THnSk4piDVmEvrBC3vXt9luVNg9YOQVtW4NEdE59al1E5B 4ucPl0qpHRD6eFD72sAUHKjIak7a0wF5Inv3hc5OwcvCl157W9tBMUuqP3hu ClbR9l0vu9UO19dZS9/XmIafO3Zw719tg0mXl1KRd6fhLIwsPzLXDDaMwDPT 96aBnff+sQWxGep2SLzbGzQNtwq0cn1Hm2E5flbCImQaLi423Xj7vRnMOL7R VWPTYGNpb7qltRFSptQ2ti5Ow8PaqzRB2i/YdVwh1kWKCCEBpfu/MOuhqt/O 4+JBIhTutbv8oaEOvpzlf6fpSITnu0q7rCR/AO9EF8oPJkIT576bDuk7tP3g 6Pi/IIKEru1TXG01SJu/6FTKJsJkxqGhQZVqEAkV/8v9QwR3D5uLmvkIkrud uOw5IowcTfdO+68MWo8qa5UJk8A8olhAq+krZK6T+qlhTAIFQQdfzcJiwLf2 9FheIEGGfkp5xbUPYEEZko96ToJDyck3IoSz4VJweTi7gwRdpr1VFfJx4DB6 y0Rx3Qw0fw403nYoFK3W0HmRv2EGjkf6pC23jUTuh+06ZV1mwL9wHW33ikyU UhOTcu7eDOyUJxb99sxFon92cAhJM3ApW/q69MNCtMtfqfRJ/gyslmozIDkW IbyoTakVfgZOK99dVV/9Gc1O5q0S5czATEv3wD25UmRwrPhU/JZZiDsvKqFc Wol+G8TgWo1m4fCmb44dblVozZ9jjo5usyB61c77AKMaJYv7adtHz4LU2TWx aztr0FdF/dL6lFmYVq/RN/OuRWl2bJmPBbOQafH9dFPYD8TqNaoj8ZPh0e46 8ZIbv9ACRYj+UoYMxYe/e+p5NaJwsbOBO3XIoLHv16TqnT9ohZGhRMQZMmgl N586sqIVEWSOsUTPkUFFodBvi24rssIfTrroSAaXrEsXGnGtaG3A3HfkRIaO OcWUydOtKAmOSOSFkOGy7qoXZfLtaCj+U+Xxp2TYpUVoEqppR/01Oi/GMsnQ pKT+RIfYgep+9m1cmUuGmFeXcHjJv2jDyPQ50R9kECq6bLTHvBMFeK45uEAi g9S8reaK8G70577NJ2EGGdr1p7Nu/upG+vcySTlMMqgWNx41I3ajR1EWtPOL ZNDd+ydkzLMH1Wu03GqwoED5E6uNFoX9yPWWXORmBwrc2D8TON48gFj55zS/ 3qNAWeuHm65OePSgOq/FLZIC6aP6fmJ5eOQ+PWOz9RkFRh7pnZf6g0erBs90 GGZSIPI00VftwhDa7Mc+UlxBgUfZt/LfTg8hM5G1hOEaCoQLBS6Kqw+jfM3o 1mUDFLCer1jciobR7x1RQfUkCvh4fB023zaCDq9wNlNhL61/uU8u2WcEJXjT xBSFqJDjOjbS83kEJaZXrawSpUKgpaAVhzWCdN6KP09VooL9Nq7MqPcousFZ f0FAiwp9kjkmim9HUZSOR4mkFRUO1bufHL07htR8gp+VH6MCy1D5eOybMTRp 5yGXdIIKpmQj66DCMXTxcunbrXZUiC945TpeN4amzgdqnbxNhb2nd+31jx9H sQfsX3yMooL6xzuh8tRxFPy2U7k4jQp/Ksj6yU8mkHjzLiG511RodAkQJCdO oNzV3I+3EBXE/crLvugSUHbrVRCqp8ItjfVH5O4TUECe3K6jRCpkaxfwLnhN IpxO0zPhmaU5w2CeYntzEomG3E6aJlOhULv1v+MPJ9GLVcEG0jI0SOOoPJ/3 mEJC1nVnC1VpgJ/bo0b5PIXEVQQ2hRnQoEZpZVrDvml0ElZHbdtLgzVFG9aU O0+jmvGICAMHGvysvOf4mD2NrFOdHJ650UBwvyFb0paIlp/xfXEzlAY71AX2 JMmQ0JVxKYGdkTQovI9i1Y1IKEB6o5N6NA0+9Ft0dVuSUPTfR3dq4mkQGnJh wSeYhNIdnuUFldAgak8xx9JkBlH3+RCJVTRIPMDXUHtnBg1QcvS2tdEg7q77 7BR5KV/cJ/58YOn6OYGxW3bOol/apCr1ORoECe/jd66YRZvLXzEmhelL8xV5 zy8JMhrMXfUYKdJhvr7CxceVjJJ/hFvoatFh11jVhsBAMlodfsHOR5sOTcER mfujyEhcPflcqgkdjMeu97E/k9FhRFzoPE0H9YApixkhCsqI1oyXvkCHHLMh vSObKWiVjEbSvut0sO/tr7A7QUFilkV2sXfo4Ox//UDxNQo60TeV+yeIDssX L/2au0dBbjY3FfNS6CCfw398wzcK6nBSSjiZRwd6hZlSOIuC+li28g3f6PCq 9EGkiSkVhWfwVjb8psNTkS1XJi9QEe3h+uPFrXQYL5r5vOM6FcXceQt+w3TQ qv/6NeINFW1BCjXePDqMViClh5NU9O7ZV8UyYQYIeZpGlAjQUGZRj7S/FAPS W9vnjHbS0GNq6UMNZQbYJgwHdTnT0NtZ98ht+xhwq9H5TegbGjpQepC0w5oB 3Szc4YkeGvpgOm/vcokBlxp2Ua5tpSOHgNERgxsMIG4LrjxxgI4kf5cpWkcw oHVN3Hb3MDran9gs9jadATZChpLPG+iIxJcbEfWeAeefvOlWHKMjAZzsdV4l A+L8iCnKcgyk8PWdYx+dAe3k7/TZUAbaw7h24Oo8A4Y+v7i/7RMDxW5uFFTb zgRF4djW3tNMRB8+X9Nqw4SDRQJGs5lMdOfozx3i9kwo/yikGVXHRAflhcQe XWHCf8JrCXzLWMjpYxshO44JO9Ypm9m7s9C81wmr4zlMCFk0nSh+xkKtjbXr X9YzIcPv4AU1ETZKPnT4+tcGJpiZ7L+kLcFG63z7xvjamZD5cX2HsQYbpWXW 3tvNYYKcWvWNkVA2KhpfnkUSYoFMl+tdZi4bxRpLxQRvZIGBqonwHgobFSy3 3vZ5CwuezgeO+i6wkXytdbOpOQuiDMMSaiw5S/1lTYLvMRYUKHefJV/noPha Yl13AAtWJX1vaZ3goLvjlJWCd1hwumlngM8UBx3xJPu7LGW+5KyiZ9McVCyo LWV8lwXCe1r8h0gc1NAcbsrMYwGYjj6uduCizbmSm/fUsOAG70fT+SguSjfO U/X/y4Iglegzzm1cNG8uf4WEZy3tW3/sPk7mIvxyg7+WiywgnJsgbN82h+aH hP4MLWMDrSu1U89sDr1584cTK8OG9Gh/Ztx/c2i9zHxukQIbhL+h+lMxc2jF o4DGFl02NBf43b1dOoceCxy/mmnEBgckLDTfNIfe227M1bdkw8TmhXX6rDmk 7ieqcd6ZDftsmmOUtvNQ9aT0sndhS+s3qyk0ePPQctr696efs0Hu9hcr/zQe crP2bRH6yoZNJ67M+wrOow3ZOxIcEBsOPDhklCQ2j5wmhwTSq9igT9ga4bB2 HiV6iEZF1rJhQ+GdrjbFeXT2Zpps1FoOfBlxP+lWOI/Ofb06U6PMgW0bRZkE 2jxSMgzYoWbAgZSwfEa4wgL6ht8sTjjJAa2DD6/tPraA/vtcFm9lzwG1/Qf1 6y8sILmKjd4unhz4dsxAejFqAdENNcasn3HgxfiTebPGBbQSVEnrP3HgVVZu pCB1AX0O+zRb8IMDL1/yCg4bLaJ4c+pkZRcHxMtcyCsdFlFnNK5vHY8DUit+ ZbU8W0T9CRG1L516MO/7WGiguMmzB3zzlPCm5wVx/zxow8fMQ05nl7KX+ANP Sg/mf0FWrzMUtvfCBRfRw/dUBXFHdDPn3R71Yt7XpbdTdL61F9rOXnXYKiCI 6+455c0v1AcXXyZcFKQI4HSJuPRvdn3wQnqNwlyPAI61NK1nZfZh/mdCv7b6 RW0fPGKRJaS+COD+eY2szvbEwjcCOIld9cozhv1wv60u4O0LAZwjb1rrQHg/ HH/3eFApUAD3WyhMSDi9H/PChFbrG9wdA0BbQT5teEwAd046WkTKZgAcWDHH 1poL4P55jGr3w5AWnABO4XDGr6DaAcwT529kDLbzD8KQ3bsnBqsFcL/mbNXa zAZhjU+2Yz+HH/fPV8Sea6Rd6eHHnQ4/LdRQNwjD1MyCP238uN69b2IP/hnE /NE5T2WrLH4Q5l0eDsU08uO+E6S/OhrhofhnyXvHRH7cndRly72P4zGPzCT6 hzUl4mHPrab4Xkd+3GE7NamUL3jIjjuy47EVP05j1aGp+DY85pNbVhk/ukrG g6ZwQnjRVn7cP18pf+qsJCPEj1OvqSy/YjuE+eTT3rOhO28PwRbbPB3DRj7c 7OWOgbtvhuDhiquOVu/5cOXBPMkX1UOYT3YSL01pzg2B/4sWf2VfPhzufhy7 ZvcwBHPP3LM/yoeriQj/q205jHkkf7Lbyu4TS/VxsuoeAz7cPy85euRWXZEy H+7GBVOPwc/DmEeuDuQkbCQOQ4XZsHrQm0XQWWD3/OAOA9XQa3F99FLdp0G8 gX8EmqYbdu8MXoSys53vtiuPYD554HiiqtTJEbhx+oNYzcpFkBW0zx5NHYH4 mGq7B/kLYClr7ZCWOYL5ZMvOhbCn70bASc3Poi924X/eYnjcaHXQAjToBign iY1iPpmBdzuZbTUKP7xd1vqXzEM5RXe9k90oRDYrPXmWOQ/0alm9vrujmE/+ JyJ8h5g9ChLjwe9bNOeh/kcqu48xCk8zyCFKNTx4/0y+Ipk7ivmk/IrL5a6L S/cLCG7y/MTDPMVz2N5sPJsHBvESN8Ssx2Bc8meUiTEPOHcXRarcxzCvvCMb tXk6ZQzqXTq9zrTOgWZIbU1T5hjc2DW58m7NHOBUGj7kNIxhXvlI+LZkB30M XpKMRBcs5mC5aNsPtX3j8OdO5evpIS5Ia/N1Mg+OYz5ZfCg6q8xyHK7fiqW3 t3IxX3n1uF3kWg0XfANV7onkjWM+ueyK/l/88DgILWtq+UzlwDn9j4XWM+MQ qrJ/VxieA9EvXa4oSk1g/vhn/ZD4B5MJmLIPrS1x5UBmdY627YMJ+HFc6GGy EAckJl49bY2cwPxRkSH8MuvpBHgKPStJJbExL5HUiNIm/WVDhFvDZ9GZCcwj 64TKLMsUCGBbb+d2bz0bVgj2mpRoEuBBzsRXbyE2bMksEO/RIcAmm9ZpVS4L PrEP6d+1JWBeuTMudqthEAEajVydTgey4Ob7/HDzMgJwjJvummuyIIB8TL/3 BwHzyo48OS5fKwFwNF+y9nIW5i0rr/uO+OCZwI20+yS3bRLzykdPCvcrnZwE c+3I70PAhMVX4jTt65NAH/34DUkwIZhQ6Vn5bBL2bvU2CB9hwNtnPxxKUycx v3S/pXRRqGoSmHdVNqgnMCDRCcr9SZNAyM34YHSSAfTBliTCwiTmmQsaT8IC xKYgQJ/ggJdnYN5SZtKx7OUIHfSk+YYijaZg77eDO93xdBCJIUq+dZyCD8Hq PX7pdHD/PmSd6jkFIU8/KfE/pYMmw6zhYsgUqEz29+/zpIPEi7LrM/lTQFgb NJikSgdaqdXYnZ9TmIey0yOzjkpNw8E3z/7TWNoHfFjW1xy3cxpSmm7MuByl QfQq89Am02lwHhnhZm6nYV5ih+dO7Oyjwnfnn2j85TTmpQ9mL366/X4aZsoa dbckUSEZdQXGjU1DudfQYboxFcYjRd+G8KaheOWuLz9XU+HN9Z0DpnpEiDGW JJlWU4BPjM++ax8R3pMuVA4XUsDsVa/jggcR89SHly/jh4KIYHT7HPn1QQrm JZ/6no/M/iHDz1sxAfmtRMxTf8n30Xa1E2G9hOS4Qj0ZskoZYZ8ESCC5/uKN 2ttk4I2vOh+9gQSryZESAtZkeJ8dutlqG+l/vvrl8IWPF0kw+mCKcb92FsKm 725670kCHf5WCZm8WZBLeODn8oSE+WpV5S3XzE8kOOP40k+3cAb0SUOzXRQS LBu9/kCSS4I7zXYZWnMkzFcpPcXSWkIzYISrristXXqO/+8vTd7WHzVvkMA3 /dTNHdYzwOrEr+v9RgTniKgTxmdnMH/9/OLEuHHgDKyyTCp30iYCefTaDaWU GTiuuJLW+2sa9u4PHXjwdQbzWIXvXywMCDPA6FzuL9g2Bdd0wl2nV81CFjLk 2LtOQQvFXvzA5lnMY//5i4Dmwv6HJpPw3bVyvCZoFhI2NjoVjxDA0mXauyBs FvPYnYRPlwLiZoHbNXnS6SUBVoj6Ew4NzWL+OnN75vGqZWTYrl7g+npsHD7H yGVnKpIxf31Fvkb4eIoMdaI/tpetGgP1UdG11+zI8IjqOLZ3+Rj8Tkwub1/K vya9i6kCY/DPa963q9cOc0ah+GJ3//1gMuaxSa8ZcD+ZDJqDHyYYAiOgOi79 YW0fGaJc8Sf7Q4cg/dj9U5pjZMxb278FnpaaIoPh9rXZcjJD8M9T/E6INgy/ wUOQqcJkwDoK5q/T+5WFLBUpEO5dH7r+7iC0ZgkEiOhRIKq/XfX80pxjWsGz UTSlYB4rbrBBh32WAhJNtsUHz/fBZm7Cd08XChiucRB5QO8FbodRr50PBfPY dlWV1qpACugS++s73Hrgn7/Mrw+6aBvZBclhoeXZWRTMW9Uz1nuZ/6CA1cee b9M+fwF3ROCbTQsF89V1NajeaIwCVxonNgdy2+GDcbODyCIF89PIt7JFjZJU 0Lq+qX5fXCus0Te2rVSnwi+f8HuPr7TAttrSjJwdVMxTu20+eibpUyEmPyut +lUz/POXAzk58eGH/8DeSB0jZQcqeOg9PvfkVBMEDdvbTjpRMV/VvHyf+8mD CkprwkVK+xpAqyT5HiOQClyVZT+nXOvh7al18jaRVMxXvRLzRy9kUiF/F1fg +/1aoHGE+F+/pYJ0lZhA2UANPEo6aLG8lIr5Kk0oa8/en1RY8NZ1LX34Db66 bqAJEqnwZNBzZUl9GawuN/FdWMr/fNU1JzehkESF1Yk7Xty3KoN/HhP0tC4t 52sp5LrXJRuup2G+2u5StLd3qS8OmO608bTIguHneUL799Mg9v5pjWtPUsEq pNnH1Y0GVQePHaTNWsJ7iRfTvT40zFsNPP67YhBAAw291KCUphjMV7iU4/VX dDJQSHiR7D5Eg4aUgJ7Co8VoAz+l41stDfNUi86puIARGszJXor+5V6GTlxL NSeyaZif6oVF+auspMOJDZq3zGa/oZQaZYm3SnQ4YxHTElZcg05G07r3q9Mx P3Xuk/xisp0OZB+bnY39tZinSJ0Z0OxxrENmxGvq7tZ0cHb4U00drkeFqz4c 8jhJx3y1lhx7j+BEh7Uqbi9uhzWg2JVbU9QC6Ziv+q2xGy1f+k/1pXloPeQ2 I9Fhn3qhfDrmqeNtM7VmvXQQj19IVMlpR9/nVZWm++iYnypWCiufGqDD8quK v4Ta2zE/mdmk6rpxdQcyP5VVnLVIh0hdovyKv3+RcKO6TuQyBuapw0O0nk5p BvDWXJ91kexCSRdvG9RvYUB3YtshXnMXqog7orZfm4H5aum5edOwgwzwqiUL 3G7qQV9VlVbAcQbcMFJDfHd7Uem761cNHRiQUeEl9f5IH8q//0DqlBsDJA5U NTxp6sM8hT690/z58wHUKSVkKhbFwPy18szFH+U5DOht3kTT8sQjQXvzzrM1 DCjuwas+2DSERPsbUs73MTBfzf1+LF90igHXFKbMyq8OIxkP1ztqIkzMU//5 ylGSQ52K8ihK99e+HrabCQV64tSk86Po/U69hjR9JuanMxeinmgaM2E2Ve7l 5ohR5Bt2L7X9JBOaSavzn14cQ7KMX0dNzzExL705rUmc82WC+lP5nZP642h1 v4/t0C0mFNHdV+y+MI6Gqa9FFcOYmJfG8O2vPZ/EhD1cc4PGixNohE/9WvFb JlRmjck8H5tAsmcCtByLmJiXyux7H4JKmaC8meBY5ELAvMZ52wn7bplJZHPv 8rPaASbmpRU653y7R5hwsne/q1jsJCqYOru/h8cEi2wF81K3KfT2rNZX0xUs zEuv6Fpc27SBBacVdh3oxk0jPPn2Kw8FFkSfDK2zvjSNvrwjtUppsTAvXdFS snUbsODDlpKTJz2IqHk+oVngGAsg5KU9a4qINgnPu9rYsTAvDTdNc+1zYkFU 1ueGJ14kzH+URnrtOtVn0NbqUqXi+yxoD7l8NNJrBokupB5QCGZhXqqVc8b2 WjgL9qzed0EhfgbpXFdrevWKBZeeusRo+8wi74rtqkbZLMxLfda8uPK0nAVa b1y8ziuQ0a7LrVIW1Szofy0cs9+QjC5f2PTlYxML89KXrySCPwyx4NzEqoLU MjLqGd3nlUNmwedi8XUfqGT0dS8InmGxMB+tsqxQN+Vng5JFxu/mPRTMh6p0 fKIPFFBQjF96+4qtbMBdMVcYrKCglSsVGMlL+Z+PPqn8XOOmzIZhMTH+jB8U 5Lx+PykLxwazHR8zGPuoKOqx62HKQTbmo04Npofy7NhQrP7kxrZEKjrTx97U fZ4NM+0RW6K+U5H+ESUpZw825qFW13Z2GvmzIY19rSTrKA05ri088z6Gjfkn iegWt6+MDW4PW3rPGNER77pB5nw5G/POYf2vjawKNmz+jxiSb0XHfCnxmGfC 6Ut0lBdxyL6AxoaAKh5O9wwDBXx2ygtksTHfzCpZu7lDmgPxEtZDVe0MNL9M R+eMMgcOHR8Vq1RhouUKa5aDHgdYVcJ/D9oz0bZq0f/eWnDArSKioDuLiZ7Z BO56c5iDeefDM5OkjbYceHfodcjGASbmUSThlMeOJiz0dYNtKf06B9ZbPBOb v8BC4TYtJoO+HMxDMzvdhAb8OCAcfenxbV8WmnJ36q+L4WAeatx2/6HHa87S 9/itM/YmG5kl2m5R/cDBvPMXRzfj3c+lfZ5YUc5lIQ7K9SizzG3lYL655cTQ s49DHCD3JZ7uu8VBa7+ZpP9kcoC3YXF6uoWDAiNZh/xZHMwzrzU67/syz4Ec 1oeOwAUOShbbbrNHggvj+b3VIie5KKrUbF2qLBcUWv7bbRrCRSoLEmb35LiY byr/utsTt4kLUw4uAceSuOjqHL+WrA4XOtY+5rdaM4ekruWgBF3u/3yT6VNB MOXCPdPxartzc8g3VvRDgCUX5grjZe/Fz6G49gju9GEu5peuakVW0pe4sP5C aFCYPA8tZryxUnfjAlnzqNlhRR4yF3xWlLpU/+eX/SbKwZ0BXOhpVFPalsdD h1c/p/JCuFATlza6bJCH8r57lVOCuJhfmm+NaRSO5kIhv7m0u/48Ot938hzf ay6E7sdfnH8xjzpfz/iHpXAxv+xtJOLF33BB/kdFe/P3eSTvvHendAl3af7T M5AxXUCNKYu4Z1+48N28crbGegHp7BPsSFjK/zxzfPtNW9xXLsg9YX09emIB 7ciuJzhVc8HY/XGBxMQCqol98qL3Gxfzy4n+A8EpP7ggntu3QoJ/EQX6Jhvk 1XDh6a51R7NDF5FXBDM1eqn+zy//Dzktdeg= "], {{}, {}, TagBox[ TooltipBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJwl1FV4EAQUBeCNrtEwBoMxumGM2ghpAelWQqVBSSVFUEFpkJbu7lA6FKQ7 BekUpFNA4t/Hw3/u83k4N7xF57qdAgMCAj4QMTcWsYlDXOIRnwQkJBGJSUIQ SUlGclKQklSkJg1pCSYdIaQnA6FkJBNhZCacLGQlG9nJQU5ykZs85CUf+SlA QQoRQWEiKUJRilGcEkQRTUlKUZoyMd0pSznKU4GKVKIyH1KFqlTjI6pTg5rU ojZ1qEs96tOAhjSiMR/zCU1oSjOa8ymf8TktaEkrWtOGtrSjPR34gi/pSCc6 04WudOMrvqY7PehJL3rTh2/oy7f0oz/f8T0/MICB/MhPDGIwQxjKMIYzgpGM 4mdGM4axjGM8E5jIL0xiMlOYyjSmM4OZzGI2c5jLPOazgIUsYjFLWMoylrOC laxiNWtYy6/8xjrWs4GNbGIzW9jKNrbzO3+wg538yS52s4e97GM/BzjIIQ5z hKMc4zgnOMkpTvMXZzjL35zjPBe4yCUuc4WrXOM6N7jJP9ziNv9yh7vc4z4P eMgjHvOEpzzjOf/xgpe84n9e84a3xIw/kFjEJg5xiUd8EpCQRCQmCUEkJRnJ SUFKUpGaNKQlmHSEkJ4MhJKRTISRmXCykJVsZCcHOclFbvKQl3zkpwAFKUQE hYmkCEUpRnFKEEU0JSlFacoEvv997wDWSomU "]], LineBox[CompressedData[" 1:eJwlz2ecDwQAxvH/2SF7RXYpq2wN23Fn3HBu2OO44467szn7bGdTIRo0bFkN K0RRCmVkN1Qqo2krvj5efH/vnhdP+fi0qNSgQCDQVprQlGY0J5gWtCSEUFrR mjZBDzdhhBNBJO2Ioj3RxBBLHB3oSCc604WudKM7PehJPL3oTQKJ9KEvSSTT j/6k8OBAGgMYyCAGM4ShDGM4I0hnJKMYzRjGMo7xZDCBiUxiMlOYyjSmk8kM ZjKL2cxhLvOYzwJe4mVeYSGLWMyrLGEpr/E6b/Amy1jOW7zNO7zLClayitWs YS3rWM97bGAjm9jMFt7nAz7kI7ayje3sYCcfs4vd7OET9rKPT/mM/Rzgc77g IF/yFYc4zBG+5huOcozjnOBbTnKK05zhLOc4z3d8zw/8yAV+4md+4SK/8hu/ c4nLXOEqf/Anf/E3//Av17jODW5yi9vc4S7/8T/3CGQJBILIQlaykZ0c5CQX j5CbPOTlUfKRnwIUpBCFKUJRilGcEjxGSUrxOKUpQ1nKUZ4KVOQJnqQST/E0 lalCVapRnWd4lhrUpBa1qUNd6lGf53ieF3iRBjSkEY1pQlOa0ZxgWtCSEEJp RWva0JYwwokgknZE0Z5oYogljg50pBOd6UJXutGdHvQknl70JoFE+tCXJJLp R39SSCWNAQxkEIMZwlCGMZwRpDOSUYxmDGMZx3gymMBEJjGZKUxlGtPJZAb3 AYHkoXs= "]]}, RowBox[{ RowBox[{"0.05202741454562502`", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"1.0006160151497028`", "\[VeryThinSpace]"}], "-", TagBox["x", HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"313.35587172222375`", " ", RowBox[{"(", RowBox[{ RowBox[{"1.0006160151497028`", "\[VeryThinSpace]"}], "-", TagBox["x", HoldForm]}], ")"}]}], "+", RowBox[{"91.04677090840838`", " ", RowBox[{"(", RowBox[{ RowBox[{"0.25682830781746935`", "\[VeryThinSpace]"}], "-", TagBox["y", HoldForm]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"91.04677090840839`", " ", RowBox[{"(", RowBox[{ RowBox[{"1.0006160151497028`", "\[VeryThinSpace]"}], "-", TagBox["x", HoldForm]}], ")"}]}], "+", RowBox[{"27.632950663146264`", " ", RowBox[{"(", RowBox[{ RowBox[{"0.25682830781746935`", "\[VeryThinSpace]"}], "-", TagBox["y", HoldForm]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"0.25682830781746935`", "\[VeryThinSpace]"}], "-", TagBox["y", HoldForm]}], ")"}]}]}], ")"}]}], "\[Equal]", "0.31617660192320485`"}]], Annotation[#, 0.05202741454562502 ((1.0006160151497028` - HoldForm[$CellContext`x]) ( 313.35587172222375` (1.0006160151497028` - HoldForm[$CellContext`x]) + 91.04677090840838 (0.25682830781746935` - HoldForm[$CellContext`y])) + ( 91.04677090840839 (1.0006160151497028` - HoldForm[$CellContext`x]) + 27.632950663146264` (0.25682830781746935` - HoldForm[$CellContext`y])) (0.25682830781746935` - HoldForm[$CellContext`y])) == 0.31617660192320485`, "Tooltip"]& ]}], {}}, {GraphicsComplexBox[CompressedData[" 1:eJxdmXk0lW3Uxh28xkpJVEojkug1NJi6T5QhGZJSFEJpVFQiJGkiKRKJpEES L5KhkrZZZJ4KHc48D88xzz7fH51vre+vs/Za55nufd97X9dvr/O66HRSXExM rAsnJva/v7KxnWea/xPDX8b0ipfaCGGifm3s0ygx/NOto8+rzYTg/Pa0Yt9e MfzQyUVE6nYh3B5O/0MRzqGWFTt3jmoLYUNKUYU9YQ5Jx3mtSd4khLNnz4m/ uTiH3luSttutFULGm3xPSfwcSilfUxqyQgjntx3IaDaaQ+WXrFqtVgpBxf/G Z27BLFofoZ+5X0YIGw+k39B+Pos+Lf4U5i8lhC2L/qmlhM4ifonQkyUhhIvc 3iWaa2bRpT69FbWjGLyefZTqNDyDtFR+olMcDDTSjq3yLJ9BvYMTEgIeBoHu ij6R0TMoSMehXZmOwbqc8K/B9jPoWu0615RuDGokXAYWTE+jirsG/SdaMUg/ evF3+vtphEtIaPlcicHpVQ8c8d7TiHgnN7dqPgbfSqLO3mmUtvkRnggYrJH2 GK0Tn0bOpx9K3MzD4FfwPs6a9il0H3cwMCcXg7WWPdP6d6ZQWnjc66h3GKQV 2isJjk2hXxo5M7WpGNTeO1CZj6ZQA920sycFA+3ioByF2kl0ttBWTjIWg1Ve u/SVSyaR6ddjEcUPMKCi+sJ9OZNIEKL1dDQKgz87t1do+Uyi8wb3kpIjMHg/ zML9e3ASGdLKVcPDMWiMO30xduUkShavCg8MxCBFQdfRbMkkIkxkNXAuY5Bv oOoS/88kehOnNKh7BYP1QTmbJ6MnkMNBtt6AJwYry1b7+ZybQEUJw5tuHcFg NrCkQ8diAq3ouBsSMR+PVk48Z06MI97klaQv+zF4dnZhzIOacbT2cGmgAcIg dmWY+KWQcXR0yPnI2x0YqCyfySpYM4503Swlr2piEPPSw06NNIY+nKY6uKti kFjDresJHkOtj81GGIsxyNHdtV53fBSdmLz6XzUOg2WX/9DEOkfRzdGWs/Gj AlBcslrlXOkocgo14i/iCSBhbaPEJt1RFGFkN9PSKABWbm1FunAE3ZTejfMq E8Dn08ujyUkj6ITByBudl/PXN5euc7g/guTZMpHfEgWwZUm1/ejlEXTeb+NS 3lMB7LgY0nNXdgTVPXhCSvcXQFxINgokDyNm3jql6WMCeLli9Exf7jAyzOtK cTgqgD0XG+ZygoeR1NxHwwlLASzWSjn+wnQYBRkQn53UnL9fxno5Xc4Qkl33 ZzhwjQBMgx81ZjKHkFzwbulENQHEdkeHVCcOochI3zCpET6EOR79OOA2hCRd 9N9O8viQ93XkKHPDEBp4kvU6o58PC29fT+Zggyjw4njSvzV8aLw1lp/YNIi0 JXa/tSnng0vKh0Ob3AeR2pP3o3XpfIjRO1uiaDuI6KsNXnkn8aErR2lsDxpE Q4cjH2XF82Hf6H6jVpoQPdsj9rMmhA/yA0e7jDKEyGcmJO+nFx/IHxd+bU8S os8P7xn+OMGHWAda0o31QrT/m93q/3bwITrGZshzDkNRCt/de3T4MLckjD3T giHNLSdcSGv4ULhy7fjSBAxZt9U4msnxQcbYaMn9oxgi4XHMoxwemOZEZ7Nl McSfSd7rReJBVqV1h4skhhynn8kcG+DBopYD7u6+AmTcfjo0tYgHmSyCpHUw H0nndV3lJvAgwLhzdozAQ84dxtjMVR7I3lncPdnCRa8WXUq2ceKBpX1VgLEW F+VHQIKWMQ+kQ4vih9M4aF/jUIbdWh5IEQVLbG5zUL/m6tSG5TzgPNut3e3B QcrPWt3alXnwUpHVKHaPjahB5sfW87kgadJil7STjQaJfVuf/+bCweqs0exG FsrUxWvfbeOCUkZcWsY5Flo0MTdtAVwQT8yNonGZyH1ldy4/mwuVkhQfkyAm Ml37MtgtmQszmWNXDjgwkWOvnrRLHBeuO7Ub5Jgw0YFU07iDsVyYwx7WGLxi oOuhkudeneRCzZuRuEwjBrr4I+3D0DEuGFp79S/OoKNLVxJlP+7lwrTtBdyt Q3QUotXsr6zHhdTjurHb1tJRQrZwzngLF2LtlY8TFWlI3pMzfBjHhcl3+81a ZWmoEmevLz3HgdsX4r58l6Chh0znzIuzHDg/Y1t5aICKfny/4f5wnANekYtX JvEpiCOpPPOwngPjuC3Bat8paJ1B/bv/Sjkgb07Sib5OQTJaOnLSJRxQOxvq J+wmI6sZ2QnlJA6MHJMvOh9ARpSuF5XSIRxYEKDnEdVDQkFaLkMOPhwYLGFj XzVISP5Qd6gi4kCGTlTo/UIiautgt39Q5wBRPeGoYvEAWu79pLJHigP94Ya6 hT4EtOlklSvlNxv6+pzactUIiDtwMDCzjQ1S785d+yb8g2bIr86XNrJhvHZB iv/PPkScMtskLGZDd9wSG9t7vShYqkbL9gkbmD8ksrp29KKFroLYc4/ZUP8r 98OLxN8o7TFzUO0UG1qtWssZgl9o9pMJnWHHhstVhsINEr/QlgbtF5v2sIF3 n2m34FQ3cn4zNr3XkA0/Z2J33j7SheJsKtjKi9hwvQdIZ3Z2IsubE+NiODbs MFrx4VtzBzoYurRSdpwFtZ/s8tdWtCMGoyUtp50FFHZUh41iO6pv75xVaWDB toaZ12pPW5Hk9tVt3lksqDizYFOZVivyNOj2DkljwfJDFu9G6loQ7alnhkYS C8KiftUpf2tCYXvX86dusmBcP7zH/lMjGt85I3S+yoKCryeb/7vwE318+sDu rTcLglAi+rTxJ8o4MfFRcJwFtuB4a6S0Abk8lXEQurFgKrFZfrdGHdpvlUJ8 pM2CC9lLt3JHatCiIscPd5VYIGjR9UxTrkZHTDRVNHAsWIDMq7OvlyFn11Sz bQVM+Ci1etW3f0tQcPsKh/tPmOD0MHdfSHMOSvmh8OyjDxMMzHwynudlormj 5ub/OjHhP9W9uPFdSWhx4LfSzwZMwBc+bZ3NiURlLTmSbSuYEBq+W+xYfRCa yOncel2FCf47B2ifsp9CIjl23206A/Rr61W/vHwJzKLx/hO/GaDSQ7gypZwJ yxvpy9oqGaAuVUykr8uBT3oDgl0fGfAqecw3dG8BaGRl90rfZ4CXSlMwPbMY Pptvb1e/zgAsPfEz7tVnsDZsuXDNjwHFFdP35d58g0zS2ky8NQOKisuj+YJK qLVYqqi6jAG0YbFD+29Wgby4zEDvAgZs3lwRtplSBb/jB/KXyjHA3oDFXEir Aa1PIXdWDdJh/GpOxhr1H1D17o5YTisdsPuRJ5fm/QCBvltUYzUdasad3mEh 9fCYVdR2uZwO0aWJPd9PNILk1KDhxFM6TK6SCuwlNEFySLXB40A6UN3zHEs1 WqFGPLRv0JUOt47sqXK82waJ+0w+K/xLB0JIZciXQ+3A0bzyYOEyOtx7fce2 cHUnrE14viJMQAOJriabspxumCFvVnxYSIMYbm2HSlE3vH9HLXn0iQYaFo8v qX7thkfpYc/5BTTYfOFNAK27G8wxY4eb+TTgb9WKVmr+DV4WEfU7L9MgfrvM sZD9PbBL9wLT8RgNmhUCDhPleyFrQC69+CAN2pcfbuVze2E8/dTO+p00SLpp Q+2n9EHQxiuBUoto8C1CLuvsQgLkDCSpbJyjAjtZKMH0JoA34do2p1EqpDZE nzcP6YfeiT7xpjoqqBjwsFC5AejqLpw+WEgFR7lTk05RRFC/vsow/x4VLL78 ePRmIQlcdSaXU/2ocMHc7kroBxLIecV0vdtLhYN5d79LdpHAbLVzmrgZFWgT pQycChm+Vi28y9SlQnHd/nixIjKQBt8FXpGiwmHnzFvFaynwO605HE+ggL/j h/OCGgos9e0gX2+iQIli6ZaYOgpcvbCDtnY+PjJRZ3n6PBVuYZfUdeMooDdt 3dkWTQPpXWPZW49S4CfRmhzWRgP4sU+NvpcCsb8uX56Yz2PA2S9kKx0KCD45 /sP9Q4cjhCWZidIUOG4h2/JTggHaPz67Oo6Q4R5tk8NWcwaMZXwYqsfIcF9f 9zCDzADT8uCa2SoyeDK1noQ5MGHAMtL+fQ4Z/NoPGBMJTJiVSa4LjiFDwZck ga+ACUvdIs9/uUsGS0H+iw1zTGjQ+MYYv0UGr4f7XLamsOD0j4qeegsy8NeE b/XnsaDs55DjBRMyzApfXThfz4a6xXkrTGTI4KN/TpVEZ4M5R99/ZJoEYVvd PGqMORCdGZSTzSHB6y/PB+4PcUArMcAuJpcEvr8eDMTrc2H7F7ZNWDQJ5Pdm 2sqUcEGxQ0Lb7BwJzobmvNlzgwez2XKt+RtIoKJHu/n817xuGKLK5IqR4Py6 Jt/Rej641hls3tBGhL1SSVVGQQJ4Td0RqPCBCJtf2emqUASgBg+kZIKJsIMy uqxTDgPlx4+8l1gRYetJD/GvJhhIZbypMLWd3zcyl8WF5zAoMdl3uWYjEV7s T9t+Jw0D3UgVt92yRPi8TXo8Jx+Drz/NVTVoA8A/9Xp/bS8GFUb3t+lcGYAJ d4UzyfO+JqSwO4tpNAA3TS606lkK4YoFP5ze2g+e4kua5iyEcFBVanxRVD+o jYvfNVwuhNRX2w55IAJkv8m618nHoNmxxKVsF0H0vC85Rx7mryaAlN/hXpOb GGxyXhcYK0sAHXsli8BdGDw6d9hFsIwg+r41n7dFrPAkwKh3z5uhEgE0aAZH +UgQQPKYzmMH/fn1EOOoySwniNYv3J1kedaVAEcvTBjy5nXgTsUriy+oEOBl 8RbaYyEPxvZEES10CKJ83B30YQovEaDCX/tArgQPbvi9eHDKhACHOxWMlxZz 4d7CPz15+wmi/GakbF+ddoQAp3zMyxTS5/fDZqOKn2cIkHJ8RUBxGAd6Bqbo WwIIov1TMuuxc1clATq6blNMbef7st3rCqU3BPC4LBW8cTsbdAuSrE+/JYj2 53BT47LBIQKwN9+k2q1jwZ6GoroYKgE8v33ir6lmQstwj+0XPkF0HliEzKG5 Tf2AbbIM+zzCgLkX4Tlt6/uh1vV2kdsBBqSeXvPPDeN+0Xn7lOu8Msa+H8If 63co19OhzNnObZFHP1g4vLJT6J+vY3vFOvfd6wfXNKbcys80eBt82SQiuR8S tzxy+32DKsr/frteotlFKnDVrz492d0vqg+ZDqPqp+bj/6ra+dfPUMHXO/vl k/k4wfO6quJOMoijPJ+pxwOievVTGB6x5vkAPLv34rDtSRJwc22MY7MGgLWQ n+QyMAD44m8aSsuIonpp7HD0o8t6ItSSNQ6odvwB3VRHY6XtRNA1L2Jv2dUH 7wmhe0uPEkX1+9W+rQGK/kSwyj8dZkzrhm3nUgO+xBMhvDjaafhJNzQm/vkw m0yEpjsdF9vPdInO29/+kqC1tLChlgjSJmM1qygdcDeCvP3afFwst5ofvqgd /Op7lJdxiaJ+1f3khO+iWSIU+D0/6ParFcqv3D9Emo/jf9srbE9sgTuj4g+a lEii/qc11Bqnozdfx7PddXnpP2HnwhFJzHC+3vCdfl+U+gmpyRmeR0xIUIZq C9rW1oOy5ZE4wj6SqN/m11/t9HMgQZcq5VlcdC3UDtQFFZ8iwTNHU22DyBoI n3bs6PMjifr7gw41flMsCQx4RszvSpUABcEf5y0kGB6MT1lS8R2wCK1Vk1kk kV4I/7Zzb9RXEpzSqTHboFEK8TsjnSPKSEAQtmidiCuA7uB2VhCZJNIj0+0T 0ZVUElBv7JF3X1wAhsf2xprQ5t+Xt82lOT5fVD915dm5Z3U+QH58kNXBWRKE nvFRqDn3GsBZzlFdiSzSQ6ctvj4LWUEGw4zpi9IVz+DLzM2QkbVkeL+g7d6P pIPAP8qrvL6bLNJb69o61JuOkOH2tjWlvg+fIXZeQGXzcTL4r45KWOz5CnUO TE3InieDUdnWUbd3WUgmJP3Btlgy4NRvWST+9xEJQskPPiWSIevDMeky/wIk ZftAWuo5WaQHeebVjbfLyZCcrxqSoAaosebHUB6JDN4qcWrqdeXoBcHexH2+ f5mez3bXSqpAx62d4/omySL9mfM8zMBEbb6f3mIPD76rQ3/7o8JNj23vnjUg C2HvW2MHikjfHhdL9xo4QoHV/YYNVqSf6MBj9eWzrhSgBgQUWeNakNyf+3jz cIpIX986bXJg+ikFcB4BTXYKbUjNxY4Qn0oBndTTD01K29BSrRP7UQ5FpN9z HORkipspsL8+LY0+0oHGVloX6/dQoDvIfoas3Ymsb1h5qM/rg7/+4Mnt1S+m JKjQOSuPtW3sRmfy71r9lqeCpv4eRSOnX2jHXmOPgPVUkf9YJbjQELqdCjus 9vlSXX+jR/FFqlIm8/qjzHby5aVehK6PvKd7U0X+ZtR7fdbUSSqgkztcMxN7 UaMPo8vflwoeq0OCNUZ70V/989c/+T3uNNDKpILVHZua5D/96GaWqarTb6rI f12dOnRKjk4FAd1MffAsEeHKv0tdmKTCl18KupvSSajukePaamOayO/5u6AZ axca1MarHXj5kIKKmq4lX4+gQQ2jvyKRQEHN4lLD03E0KOlX6kOfqOivfvzr T9cvTBHHKmkwnn18s5YaDQl9kgaMq2ngYN/ktnwxHbFlhJ+bhmgi//v9u2RE gjQd1g8sWFdXPO+Hizd5ty6ig+rjcnbrJgbqP7Jwm7E6XeSv3+zqKSq0pEPj b02fYQsmSlqVn2TvTAeZXQoPfWyZqLxzOuL2IbrIz1eKLdALjZjX6z8V7si5 sFDHv5GZeg/owKxe2TVOZyFJ+ynridd0ES84PG3mVfeZDvMeYdDSj40S/91e vOg7HRbu+YPzDuOg4NQYjfMcuohH9DTFrTTl0SHfxyKm4z4H0ZlvvIrm46sx u317X3PQX7/g3sffdCuFi57PybZNb2T8H/+415rzxJABS6mXbG+t4yFqY5W/ 1m4GLNis9zxHlY+uFVAvEa8xYMfjHUu+lvARUBNbz6QyRLzlnriE/5JiBshN Hpqp2IKhrUoL79D+MET8RtGgeaM+xoCt6TWmhVcxxJy14CrPMEQ8aFP261JZ TSbYm9Ny+tSFIv/2dvH79D2xQrTm5vF6M0+miDdJKcUHhfkx4X31KebBWiFa yXr6knWZCZd7pVgrlw+iD71607GJTBHPOrLwJs24iAn6m6WrGxIGUXON7aH/ KpkQcEbcm/1mEKWYPolcUM8U8TKjQt8hzVEmBL5rrDm3ZQi5ZW+vG5z3p16e Mn2kk0NIRYH26r4yS8Tjjtoayx6f97fNNbckfxUNoZkpowdLjVjgelaFYrpt GLFvlLdK+bJEvG/5nvqITedYICH7pz3QdVjkr51LIwvUa4ZRCD+iTCeXJeKJ Wu9fFciWsCBSszojUn4E/XPK7StWzYLz+gy9wfYRJGFb1WaowRbxzY8/DvXJ WrChzFXlxeG8UVT6wdrx10U2SHvpSlmyR9E63fuxFQ/YcKOdfyrTb0zEN/7y 1ZQ8A+3Kb2zYpbEIrxY2hnw7N5halbFBlfNoYerMGIqjUKvkJ9giXnvOrKN2 92IOUMNP7b/tNI4SS7heYSs44DvQVHHx7jjabD110kmPI+K/1VVvf2S5cmDU T37WRWECeT57v8P/DAe+l0sN6mtMoLl+3mWPAI6ILycMuD40TOOAlKnqggNP J1BZGfczPpMDVmP4FNz0BPojoxLk2cIR8WuZKePNl/5wYPIWKjdUm0STeebO pwc4kFcV8+6R+6SITyld2+gglTGJGLmcmSeqXBFPd3f1P6WtxYW8Ejm12PZJ 5LJd/22bDhc03eVo+tpTKID2Km7uCFfE691P1zxLCOXCouWKVPuPU0gL836t ncoV8f+tHmGvI2u5kMyeWL9ObxpF6m7JsyZyRfOEcnqVjLcsD360uB0Z1poR 8ceSAT1GpOUM+ra61ynZhieaT/TZTL72duTBw2R9fZbrDLr56dugpRMP0j6a 7afUzyD7S09yLsfwRPMPIeF3Q+cLHmwz++eW6/ZZtNZ95sG2rzxY8G74isqB WaSv4LuOWMcD+YsFJ1nhs2gjZSBvrJcnmrfEH7Ds8mDxoPSF0rJLnbPozH/J KXVyfHgXf32jptIcKo+yVC3W4IvmObecTK12WPIhsmn5ouYjc+jVrKp1oS0f TLyuF3yvmxPxY43RcnMCbQ4JdDKZjY/58HvM+MhV4RyquKQTtjueD4WPqD0+ q8TwLxpPaH/4yoc/rRs8vm0Vw1tVhow+auOL5k9h/IIqJpUPx+XebDh/RgzP jL3dUvyPAKbMUXhSgBg+ryZBgqQggISmS5F1z8Twnm5J3587CsBGcjbTukAM X2Ec6nfNVQCa+Lial3/E8FrVNZ/otwTQNRo0/Ikjhr8ern6G9lwAL7tjpsaU cPi/8wJNXMx4vAEObxVqkI6YAlBeG3EyfRcOn/tI/185cQxO1BvtzjyAw9/x nohJlMDgInflY3QZh//+vYt4eQUGh22iumPicPh4oyxntiYGmaafOF9e4vDX C/9dtHwrBqmEaI2sAhz+2qtOog3CoPxthe3hBhw+KVRuqmU/BkkBcVbBVBz+ gvRE0aNTGFyiLV2AMBxeSSmt/cNpDLay3KzzV4rj/857FM/Hsp11xPEaqe9l JZ9g8Dsl+fPJHeL4KlnZFNccDKoKIwufHhPHv7Tt2Zlah8GKmldaTtHieO1d qR6e0/PXlx01DXgqjpdfoLHrq5wQtlD7PC6+FMfv+SducpeNUPT/w1/bTeut hCCWbeNR4y2Ot2q403Q0UAjfozWj7dzF8W9eylhnXRWKnr++8VCqzTEhRF2K WbFaURw/qbbBrzlICEKC36y/nDjeOStmKOiaUPS9f/B3FxE8hdDewsjZVYbD 39UK+C4zfz8D+Xs1277g8JraWj/1rwhF68s4aLc+yF8IgSu2hGZE4fBe1/z3 FF4Sgoxnf9Prszi8WdazmKpzQlhmXy/17iQOf953z+KJ+fhvPsWtbhzb5CKE J925Sw6r4fD4LTK7OO5CsKX83PFBHoe3DY03sp6P/+4XZeMx0y47Ifz/+en/ AIF4Phc= "], {{}, {}, TagBox[ TooltipBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJwl1WN7GAYUBeCkqW0rtW3bTO02NVPbqW3btm0bK+bV3erOfPPsw3vuLzjn BoeGhfQKDAgIuC8ibiSCiEwUohKN6MQgJrGITRziEo/4JCAhiUhMEpKSjOSk ICWpSE0a0pKO9ASTgYxkIjNZyEo2spODnOQiN3nISz7yU4CCFKIwRShKMYpT gpKUojRlKEs5ylOBilSiMlWoSjWqU4Oa1KI2dahLPeoTQgMa0ojGNKEpzWhO C1rSita0oS3tCKU9HehIJzrTha50ozs96EkvwuhNH/rSj/4MYCCDGMwQhjKM 4YxgJKMYzRjGEs44xjOBiUxiMlOYyjSmM4OZzGI2c5jLPOazgIUsYjFLWMoy lrOClaxiNWtYyzrWs4GNbGIzW9jKNrazg53sYjd72Ms+9nOAgxziMEc4yjGO c4KTnOI0ZzjLOc5zgYtc4jJXuMo1rnODm9ziNne4yz3u8wUPeMgjHvMlX/E1 3/At3/E9P/CEpzzjOS94ySte8yM/8Ya3vOM9H/jIJz7zM7/wK7/xO3/wJ3/x N//wLxHlDyQSQUQmClGJRnRiEJNYxCYOcYlHfBKQkEQkJglJSUZyUpCSVKQm DWlJR3qCyUBGMpGZLGQlG9nJQU5ykZs85CUf+SlAQQpRmCIUpRjFKUFJSlGa MpSlHOWpQEUqUZkqVKUa1alBTWpRmzrUpR71CaEBDWlEY5rQlGY0pwUtaUVr 2tCWdoTSng50pBOd6UJXutGdHvQkYrzD6E0f+tKP/gxgIIMYzBCGMozhjGAk oxjNGMYSzjjGM4GJTGIyU5jKNKYzg5nMYjZzmMs85rOAhSxiMUtYyjKWs4KV rGI1a1jLOtazgY1sYjNb2Mo2trODnexiN3vYyz72c4CDHOIwRzjKMY5zgpOc 4jRnOMs5znOBi1ziMle4yjWuc4Ob3OI2d7jLvcD/f+p/8I7b5w== "]]}, RowBox[{ RowBox[{"0.03641682992018892`", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"0.6290059803125393`", "\[VeryThinSpace]"}], "-", TagBox["x", HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"16.728542928070887`", " ", RowBox[{"(", RowBox[{ RowBox[{"0.6290059803125393`", "\[VeryThinSpace]"}], "-", TagBox["x", HoldForm]}], ")"}]}], "+", RowBox[{"85.6612207199155`", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "0.7722912548159306`"}], "-", TagBox["y", HoldForm]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"85.6612207199155`", " ", RowBox[{"(", RowBox[{ RowBox[{"0.6290059803125393`", "\[VeryThinSpace]"}], "-", TagBox["x", HoldForm]}], ")"}]}], "+", RowBox[{"483.71738625778136`", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "0.7722912548159306`"}], "-", TagBox["y", HoldForm]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "0.7722912548159306`"}], "-", TagBox["y", HoldForm]}], ")"}]}]}], ")"}]}], "\[Equal]", "0.16822178410816335`"}]], Annotation[#, 0.03641682992018892 ((0.6290059803125393 - HoldForm[$CellContext`x]) ( 16.728542928070887` (0.6290059803125393 - HoldForm[$CellContext`x]) + 85.6612207199155 (-0.7722912548159306 - HoldForm[$CellContext`y])) + ( 85.6612207199155 (0.6290059803125393 - HoldForm[$CellContext`x]) + 483.71738625778136` (-0.7722912548159306 - HoldForm[$CellContext`y])) (-0.7722912548159306 - HoldForm[$CellContext`y])) == 0.16822178410816335`, "Tooltip"]& ]}], {}}, {GraphicsComplexBox[CompressedData[" 1:eJxdmXk0le/392kgEiJTSSMfDZJUSNpEShMphSRkKpJUUipSSpEGKhUplCgZ kpmNjCGETJmnwzk4szOQn+cP93et56+z9lnn7Ou+13Vde7/3673K4YK50xwB AQG6oIDA//tcZ7omV8BjEm1QeN5UDR9r56h1UKwmMagzTedxBh9/nlZMT6ji 44CvNJrJ8vHDiaeYa8bHy5NlNXYhPKw+JaagK87H3OTtSc27eHiaIZIT94qH PopHn9XmcpGxuFoqYSsPQ3TuvSzZz8WfWeRjD4q5mOLAf9FUysGCMLxywJWL 6nM1SfF2HExg9B0YU+BinPcee1URDlZIVz1p9uZgyVWVi/YHJnDzZMKmb1oc NLTvUyqdN4HNIglumQIczPs2b0NIORtLPRKrlTdMoHl0o/KhWha+WS7TzBSe wF5bfSGJTyzMtrbfrz3MxkbqD+Z4IAuLKx8suNzFwuPLD8Q6HGGiWXNIl1or C8mBnVJn9zPR9H5o4Zc/LKSo3Sk4asTEezf/7gqMYGFnrMv8R9MMdNYNebdS j4Xajy8+XfaOgVKhx4OVPjJxntvuoMw5DBSrHb1tE8XEMwGLhF25dCxce9ao OIyJOg9t2rXG6dh4Llb94kUGKn4SNF9WRMNFKQUBX08x8OQh61DlLzQs8Nvn L7mPgRJa87wNn9NQS9Wd67aTjlsHCpf5+VFRTov6pWo5HYtTRY7InqZibtt/ ebaTNHwqm1JbqUvFuZ/bDEWEaRhhJFBV6juGhrYNVSkdVDxd+rXp+toxzNom zPmSQsUOZyHxObGjGJOlMhZwi4optzF83Y5RrFq6w+iRHhWNQrJKq5spqNXH lmkUpWJTo27Nuz0UTBT0UqyoGseKglu2jzhkjFk8WpO+YxzfPXf02hlMRvdV NS7syjEsvDnld5U0gpZ9JsbnXo9hN19PlZYxgvXXPL3UeaOoMvdv5c9dI3ju xpdYo1ujeLX909Kg4GHsD9KXJLuOIkd7inbsyjCGT87xfpBNwTL+kRIfOgmd y7lR9G0UlPTOy83SJKFLc3DXsy0UbFl7RF9nMwlXuBTVFPmQMe5+iOPej0M4 Jbk2JGdyBNd98w1UpA+i4xa3ZT2DI1gFrSI32wcxXCRCR+TICBqWVHIqDQbx iUIQz+DHMO6m7jD1TxlAh0f7T6i/GcYLHk1ukvcH8MqE0pJKNgmZ4dmt+8UH UC+ZxL33gITWajz5fo9+tCOtC7tpSkJbw0xv1pZ+ZGSxU55/H8KWNc5jt4v7 MMhS+P590yH0Opfdu1etD08ZitRWzR3ClxzbQ5u6epE7Ijqle3kQY46/X9fp 3YudCtEPDGQG8WG8z5fP5B60fksSXZo1gCTeiHJ+cA/62zWaJhgPoE70sQOL 5HvwlbRpQ1pbP8b0a3lLJHajJbfc2NW9H28EPNsfp92N8vJZLpK0PqzPv35Q trALu39eUmqN7sPLhmN+g3WdePxYfEDGyj6capDbVl3VgZIqGsW6yb2omXp+ Y/66Doz/MyqW5tiLcfnu0l8P/cWjyfcK5jX1YPO8aRnR/9rR9WK7ge75mVj/ pFx2WBsuCW1U0V3Xg41a5I9Xfraimagzz/xBN649LWEmfKcFmydNX37T6cad 8R/exPU04yYPlbS+ti6cl3Z2h97eZoz8+dB9t28nZpnd2lDZ1YSWBaVNdvUd CLKG2nmuTail3Dn00aEDt24k1cwracSX/ib9nX3tqBKSt9pCrwH/FRfd3nOw HaP3avVUNvzG1CmSec5wGzp+dLav1v+Nz7YvsPE92Iq3sK4/5U0dioWQlEvL WvCzaYqfDtRhiN8zOXnPFlxv8HP4P99aDKGUNch9/4N3hBKSS1hV+D5B+NHn o3/wWMQF5ViNKgyJ+SGbw2rCh9vKJTMv/8T7MYEH0pc3YvaLDVpd38uwfO74 uns5DRiQmBP/elMZ/hjZNPLqegOS15VoGXuUYoCl0Q+ze/UzeQrkC64W4bK3 Zj6oWY+1sfez6MJFeIWl3Z3yrw4PKhXZNrkUIk9RyLutowbDbybKdXhnoeuE 4gZhqxr8vKpJ1qYkE7ePqY+Pz61BS+UbCyuLM5AadMdJOrkC17UzNblzv6Dk Uk+HfOsKPOEuqjOQlohmh/Z9r11QgVsUKWm/3BJwgClgcdD/B/bT0vfm3A/B 9NH6s5o6PzD86aCzyssHqDkdl05b+APrMvx01fYFYkbRZJBobB4K/Ql/fszz DUh2Gx69b5qHlmpztIIPRELF/f2xwUvzMPy25XrPx1Hw/tWEy409aZj+rbpM ZE8qCHk7t91Zn4ZaX1LlXx5PhV3BK0y9FdIwTisyL98zFe4K3Qq8ppaIiw5L O/53NQNKnjXejWqLxpcjuvSB4FzYUla5LDt6Jl4gmen+NhdudAxsvJTlD4s1 jz3RLy0GWkDPAnerAHCYXxPa2FoM+unP6/59uQOqNUK0YGYxnPuudvju5U+Q suvE2dSqcjjvQk06sjwB1i79fHyYUg5L+YZp9GsZYLbfevfq39Xga+um2diQ AYGrL3/ZOF0NqULLFfM2Z8LNqmnPNJ0aaBe5wsvZUwicxK+PTCh1sKJtcY7N o0JwbmvrO7igHi4YRXJvXyiFis2bebcvNIBrkYpDamopSAxv63j+pAHOf5ZW p7BKIeThVY/3aQ0wJV5pOvrnJ2yJKMv0kP8DWgmRA2IJteCyU7OBfqUFyrSj RmSmakFD6kdjY3QLFJ0VU81fVwfivZ/y6n+2wP2WDgf5Z7+h9Y2Zf6lKO5R9 O5Sysug3yMedWK7i0A7vkgqevBlsBKF927+cudEBMoHpdatUmuCE5leqXlIH VE2Fat+1bILzvdpSPZQO2GvXt+rQ1Wb4U5MpHzndBSeeX9yemNMM7jcSY6IU usEx/mDrEYU2aEiI3H3OoAdq7VbHpZu2wfCgkOEpmx7483SxyYH7bTDmHbrX 368HJAr+smQj/0KOe4eP0J1e4CvpGxoN/AXR8imzv297ITXyW2GBQRfEqCsl x5T0QU1d9gkb3y6gRR3UUujpg27lcCupjC7wVaUlL/rXBxgfuFJApAcCMiyO Sq0ZgKN5D7/oafWC1/foZe17B0FldWr+q2O98GL5M2ap4yCwbBZ+d/fqBdnq +3T5gEEQG3Wtu/GuD556T57c8nEIOIIbrykV9IHESCW5oGoIPijJKtSU9cNu 3VVB0lUk6J57YNtnykysfznXYogEvI8H9epEBoByaomSidgwHNkumKK6ZBDW /7MvSBYbgcQUzVYVnUFIkVXYtkl1BHhJezrHzg2BVFEM88BhMjhpUbNpgUNw zDuqLduVDNPUR6Wa74egl3VxnnkwGTZsdVkkkTqzzp2+9aTHFJiu4g0uaiAB 68aTL+xPFNjAPW92b8EI9Bivtb9bPwodjvoBN1eOwM+lb1/1kkZhnm7toZfa I/DDYe6HEwJj4DWfVrjbgwzzl5fe9FUdB/3bRmq1M3ksB387266ngpbqScrp PAqUahU96dKkgkig5B9eLQVsJ0LW2+tR4Rnvt0Oz6BhYXPaJtGiggth6jddf lo3BgVDuu4WdVFAazuzftXcmb4J0FM+NBvT1HyM+W43DIS+P1LdeNBCvPWJr 6zIO0+F1jid8aTBHSDE55BAV0kW3ZlWI0SEwODTkwjEquFweCMteTIct9UZL JLhUUHU/1vAiiQ6Pl5Ua7pikwtOdPpNxKXR4GGLCsJumAtXt09mEdDroGW56 9ieGBpE1l8ccDzNAwXqrmVbczLqKj1+eNmUANzVHRnqUBpIul6bEwxkQonEu U+oAHbwZRR05IwzoUnFddPgwHRSWp7RJUhgw5jh4da4ZHSTVn4tojjNg0d3r r8hUOjisnn40EsCEeVZlhd48OmjIHjYqvMeE1SyHwcvTdLj75PtawSdMCP3z 0LfkBQMKnaz/7VvKgo2lrQ0W8QyI5ke1FqxkgW7Gjh2kZAZwaE1Qu5kFkuve nIrayYQw26no6hQWqGv0m+kdZsKLh51h9wpZUPTpo+55eya4H2VbR9Wz4Knv Z/DuZYJfXsFBN2M2KJn6HfuPx4SdUzalXifZUNDkNFdmCQu602W93bzYIPUr d5VpEAscvPV1l7azoTN2aKI0bWbdEwI7Fo2wYfR7oBK9nAXHZLWe6khPQPjK 6rmqm9iQ0ThCq/GYgGuRKrFSZ2byrnYeyPKfgLimxgz5m2youHrii3D6BMhc +jsg0MgGF4NY7euCHNii2DBHX3AClp2TqGercuCFfXbhW80J2Nl6tbzp2Exc SilvvTaT11tBRCqMA5SihIL2sgmwstM34iZyQH3BXvVI8gSk7IjojWVxQE5+ KiFtBQdWRfvfvL+GC+P871OethwYXcueemPFhW3OEeobPnBgbWTW1MUXXIg4 tygkuJQD+3Tu5lelcUG0jJovK86FmmjD28NULojje3dXu5nfTbXI62vxYGn+ cg9HNy4sazQY/qXPAwssfhmWywWnxcIa03d5cFjF4G99ARdqe7bLrL/Pg27y 0nkrkAvmm86qxM/EbyQ2mekt5sHNiNzbrBIekOef7chaxYNHv7TGpSp4cCeG vOXmBh6IneZqirfw4K/29qJ1jjwomKduzhTkg3FfPqMzkAdLsi+6lAnzwdv6 luWHVzwoe/zA4IoqHxQddm2RzeSB7PfgZIFdfPBbtvCqA3lmHW8Dqf+M+WAX dedivggf/AsVTP/68OFUsHHsHFE+nGVGuYpf48NAEGQ5mfOBnlqdIH2HD2/T Dy8Zt+HD2FG37T3hfFjOqFSsC+SD1xh7k987PshtWD313f1/+YZGPCvnuvDh UKaHhOyF//2/VKE8mXSKD6NKMmWwbib+0g0bZtb1cc7LkJ/5nH1fuyPXFkdS eOBy5tKAahyPeJ/S7zvIn41nvj+W/HR7Kg8WraiYQ9/JA/1aZStM4hH7M3nP 5c10DA8StNzaStfwoHgBqUj03Eyex+Qq5R4uhC7hH16wnkfs/+x+rO5h+DX4 cOEG9e/eoQYulL2WD1bU4IIj7Zc4+R2XOF+z+6+8bklt6ncOSNvpjsrt4oJa Vnh2kT8HjHws17rJc4nzO3u+eg8rzm+kTYDl/d4vMZ844O2wMFiibgIkDnV3 hj3hEPdj9vw+z/N7s1FtAnxszGRDpTlQLSgeO600AcspUwkXRTjE/dMrTDRa XzkBOX2dduZlM/dqUPBMT8IERHdYGEy9Y8NjUxHTdX4TxP3WFqk9tfHGzP1x +c1Y78km7pfZUTvrEHc2mJ/6+DuezCbqhyyzhmrWyQYjbZOwqJl7P3t/Ex/y jW5lsmCu+st9upZsoj4FK5LKL+qz4c7a5/XSK1hEfVCz1PjhOIcFh6U+xvWX sIj6911aoCg0hgXGcj9rH3kzifrz6s9xazjEhNK6oouh1iyI2vcg5vEyJhzM ezscp8Ei6m2VjLhgmBgLVDUkRG3LGES9e0WqCloUwYBlV66vv/mWSdT7NbZm 12M9mXBsMCmTsYxB1NPTy31Lf/XS4Wn7p2CPhUyinxgJpqwqaGRA5ZVz9/wu 0ol63WFz2C9AjQ73fH2MrvswiP4095u/Z582AzZdei8gWE4j+oGQ5ktFVR8a xHTEvHs/QCf6X8uaW9e6Q+iwLcdKQG0jDaRkzC0sZvpJ9V7G7Y1VVKL/KJd1 9D0vpYKJSJJ43xgN5nOknhfeoUJ85KfrZpk0oj8v7LJq0vlAgxEZqpiaHBVu hfXEdJvRwCQyQTgtYxzUtplY6yrRoELE6eVK6XGiP/o99a7Iqx+DV7rP57am UaFnkQ6f4jQGm8/uPyMTSCX0w4IdOouDrKigtifd0+LKKIwIXmyJWUmF7EGD yZ3/ZvRGLZmf2zxO6JHZfp6IE4XKChTYivRvX+fMPId53SQ5mQy7TxfLrvsw RuidWb0g2vr1mnr+CDg8XMCY/jEKC286LEizH4H+8KlKT69RQj/N6o8F3Qc8 LtsPg7oIJ0o7kAIvI2pJj6WH4Vnn4aynQCH0mVD3+GKTu2SwurT/Hns+Caqn lzvnaJOhu3HhePbvIbhftPXSQzEyWPt0H7n6YIjQR+OH9xRkJg5Ce3bM+jOT w9C3Vit5x4w+1L9JumbVOkzoyTkvvj4YoJCAa6W0Lsd0AF7cc5D7hyRYcP1c e4XGADBI27WnPpDgId12YJfQAKHn3pzeQZtm9oH7PdUnD+8MwT7W0oVOM3r2 79fd8y97DRF6d/LAecEAi0FYMlVvFfy6F/7r9ZUoMRkE5nsUPhvaCzta1Fbn 7Rok9PPVPRtbJRMHgJwcK/9hqAdk3eac6pcbgHPdSbWSpj2wqTuqJFh0gNDn Cbt2qyvPxGssywbkZuJZ/do1/ODnJ/0eqA+sfdtU20fo/SSpF7CqrG9Gh07o SVO7CH1s6R8Vv7S9CwJPkFa2hvcS8wRXTyydfbsXXm9Y/djAtoPQ2637bHaG bOuAm03VuuFWPbC9OH1Gu7aB1+6L7+L0euDgoNyDvOo2SF/8tCdcppuYd06R 2KuO0buAMhEx755uC6H/8z0mRa9TmmH1GmO1IyUdEJGR6pxDb4K7uRxpsbMd 0BKfPhyd2ATt7eb1X5U64P2PzxrT+5rgaUBEBO9AOzGPHX+hKHGhqw2qm103 iy1tIOaVp/JOmbs+/ob+kHZhwYYWYr4zCfTlXbeYea5ak57qB3XQclXnYofW H2JefHvq1Ge1qiZw+eG4sYJRRcxTKz900ATKfsKgv0mSZFcDMX8eYVzrv6vf AFebuKz4xjJiXtskq9OtEFgK3FAVHQnHemK+zf242eLW9zpoMg+O1Mso+t/8 t144oG5mDnWp29yRWFcDfYdjPKJv5oL9eTcN9WPVUCr3N2iZRjZsFu8G8qUK mJ23Qy+dPRe5sxx+9s4hXx5LIuZRsTUKjRIa8bA8xKnZoOMHzM7zlI2122Bt MVwj38q+z38GZ+SeKimXF4LnROvahYZeYJ6vdtK5OB9mecED+cCQtbI5kKh6 ZfHjruc4Oz9/WOl7S+FVDD7Vrfs8p/wbzPIIttSp6/olyVDn+4YvZ52MOvnq 7JMfEyC078+rF9nfsFVJQ+zak1iY5R123d43I1JfQEDrpqzg7mycnfffseKk f68uQLvic/058w4RPGXb5rWHj298hqrpe0o2iBTjLE8QGqJ8XWxUgm8/dfxr 94sjeM2D8ItKBUFJGMeSrtFYVY6zPMPZSaY643Ilml9ZseOpSTrBg0aSvbkB 01lYv6e58Yh2NcFLgqhl9iaxv/BPreTPJScKCN506kuS1t63Rbjx6/zC3fF1 BI9RbVs4+neoHocORrAObS0heNaZsAuB5fll+GrabFmfRgPBe+o/xQlM3mjE y07lJcpQSfCyXQdPXjbprMIlDc+fCOU1ETypOJBxiyvZjCIXy9WUD/4ieFw1 792GEb865NiTnyXsaSF41c2hrXHVsa3YkXEbUpLqCd4nQ7Xs11rcgGt83ntV /GojeNjV5I1H3Lf9RevUqLve2xsJnrg0d3vz4tgmvO/77OTpEx0Eb8t97SlU W9qJPot6X3oW/iF45ZN5wUo3trVg1n6bo+e6ulCmI31u34FWgn/O8r2cACWS 9UzsLSb873pFG25ehm+8NHvQ9DbV/0x7O8FXZ/kh07Jnb8d4D8K1qn4pmw5c viypY8C7FyWsbJhkt06C387ySf9XXoptW/swiPTiwj5qF/5KWPhNLKcP8Uoy u+hWN8GHZ/mnm2eu3uFr/XjFIHjbk9092BSiUdE/2Y8rJv7FKFT0EPx5lq+G XeWe3Z4/gJ231cimj3ox9o9wqhsM4j4WSAtK9RF8e5bfMpIyjR4LDGGxew7d qaUP9/wrHXp7ewj9rGPu3rDpJ/j5LB++k5ZjYWFIQiOl5XOa1gzgpehXVb4/ SGhu6H76SfwAweNn+bPSgy7hwMBhPLIhihJ9YRAN7bWjp+eNII6s1jFgDBK8 f5Zv+6+hxC8tH8E5Hp5xlblDyLKzvv+fMRk11Zv+hAGJ8BNm+bl7u9kZqQUU 9O1y3mmxYBiFrZc9oN6joI/8Q/VHIcOEXzHL5xmTrcau+0Zx/8204T0WIygU pR90onwUjblNHlvaRgg/ZJb/p3ua6ckHjaGLU8386BgyjuXY77ESHsf10xET QaoU9Bc2EHTIHyf8ha+BC8SVysfRJ9Bf0pFKQYcajtq1NVS00h9xfnF1lPBn Zv0Ms/6vSTkBVKzyXJQWsWsMRfOl3kn8oOLc11te2pWP4Sfjnu2HVtIIv2SO w6O6kFU0fLXxVr7+o3E0e3xSycOBRvgvkh91ToQiDXf9Syi5IUYl/CPTOY8V NntQ8XY0ZD0TpBP+zpZPjjL+NnT8NJC35kYGFZ+IrD4/bE/HLvvH76dkaOjh SXfyfUfHiv0Rb5i3aIR/1flvu+rCAhqyFkkIqwCD8Jf89tWYJoQz0Hj1F2dP MTr6VDvEBsYy8JV2F9famY46aivsn3QwcKea9lutGDruHG4/2qTOxP3C6Sre WXTCT9vPdvQbF2eg8pCQUpYvk/C7xAWUVtn+ZOIhRvudHU4MtHsc27pqgImW +0hQlclAhW/mP18rsBB+WzoMjzLwnezIFj1HFg4HeHiWSzEJf4/ikNRLtWNi 9kKnhm2ZLMJ/O6P8INFtioUDYYJh/xUxcZ95v0SBChs396zSOCPKwoAB/8B7 x9hocPWayhsdFk6tFjfpfc7GGIHvx509WYTf+Avjih0TWDjZ8juNzWcTfuJ7 90TXV2oTWGKoO/V45UxeGWVja9cJHKoJMLKdyZvruk22+uUEGim+HjkYyMZU JS9WUMkE8qhDaan1bML/fG2folc1zcZLN+h3NTQ5hL8Zzr/t9MmagwmSIh9a 70ygfIvTDXYCB6cWJQi5fpvAleFe7R/LOGhclPP1X90EHmjyThkb5+CgSvtS OS0O4cfu8AxbKmfJwetIyXjuyiX81gPBa43N73Lxnfnlp9fJHBR48zHtGZmL Rj8YxqKiXIxKvJMdP8VFE+d2rxRFLi4O9plXKcfD6p7F7TLvuYQ/HOpp40v9 zkXpxNDIlxE8wv8Vsri4cV8iD5947Nk9eYKHpFNDpE1qfNyavu89OPDwnm9b wSpNPh5YOLndwZWHOsWLj5fo8vFBRPrfg5M8pJzaYPE6j0/4z5s8DQQ1fvKx NuW0YNMSPor1rr7xopyPfxVt35JU+YS/Lf73Vljx3Em03/8mOWjVJOF3a4RV DO0ymMT/3w//P4RQ868= "], {{}, {}, TagBox[ TooltipBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJwl1dOWGAgQBNBMbNsT27bNiZ1MbNu2bdu2bds218zenH241V9Q1YHBnYM6 BYQIEeKb+HFDEorQhCEs4QhPBCISichEISrRiE4MYhKL2MQhLvGITwISkojE JCEpyUhOIClISSpSk4a0pCM9GchIJjKThaxkIzs5yEkucpOHvOQjPwUoSCEK U4SiFKM4JShJKUpThrKUozwVqEglKlOFqlSjOkHUoCa1qE0d6lKP+jSgIY1o TBOa0oxgmtOClrSiNW1oSzva04GOdKIzXehKN7rTg570ojd96Es/+jOAgQxi MEMYyjCGM4KRjGI0YxjLOMYzgYlMYjJTmMo0pjODmcxiNnOYyzzms4CFLGIx S1jKMpazgpWsYjVrWMs61rOBjWxiM1vYyja2s4Od7GI3e9jLPvZzgIMc4jBH OMoxjnOCk5ziNGc4yznOc4GLXOIyV7jKNa5zg5vc4jZ3uMs97vOAhzziMU94 yjOe84KXvOI1b3jLO97zgY984jNf+Mo3fuJnfuFXfuN3/uBP/uJv/uFfvvOj /AGEJBShCUNYwhGeCEQkEpGJQlSiEZ0YxCQWsYlDXOIRnwQkJBGJSUJSkpGc QFKQklSkJg1pSUd6MpCRTGQmC1nJRnZykJNc5CYPeclHfgpQkEIUpghFKUZx SlCSUpSmDGUpR3kqUJFKVKYKValGdYKoQU1qUZs61KUe9WlAQxrRmCY0pRnB NKcFLWlFa9rQlna0pwMd+THenelCV7rRnR70pBe96UNf+tGfAQxkEIMZwlCG MZwRjGQUoxnDWMYxnglMZBKTmcJUpjGdGcxkFrOZw1zmMZ8FLGQRi1nCUpax nBWsZBWrWcNa1rGeDWxkE5vZwla2sZ0d7GQXu9nDXvaxnwMc5BCHOcJRjnGc E5zkFKc5w1nOcZ4LXOQSl7nCVa5xnRvc5Ba3ucNd7nGfBzzkEY95wlOe8ZwX vOQVr3nDW97xng985BOf+cLXgP//+H9yQvX1 "]]}, RowBox[{ RowBox[{"0.04977399485691894`", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "0.06161380270262619`"}], "-", TagBox["x", HoldForm]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"268.52231214800827`", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "0.06161380270262619`"}], "-", TagBox["x", HoldForm]}], ")"}]}], "-", RowBox[{"267.4746317584752`", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "0.056377997176073336`"}], "-", TagBox["y", HoldForm]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "267.47463175847525`"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "0.06161380270262619`"}], "-", TagBox["x", HoldForm]}], ")"}]}], "+", RowBox[{"267.9342316371936`", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "0.056377997176073336`"}], "-", TagBox["y", HoldForm]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "0.056377997176073336`"}], "-", TagBox["y", HoldForm]}], ")"}]}]}], ")"}]}], "\[Equal]", "0.23831532144737547`"}]], Annotation[#, 0.04977399485691894 ((-0.06161380270262619 - HoldForm[$CellContext`x]) ( 268.52231214800827` (-0.06161380270262619 - HoldForm[$CellContext`x]) - 267.4746317584752 (-0.056377997176073336` - HoldForm[$CellContext`y])) + ((-267.47463175847525`) \ (-0.06161380270262619 - HoldForm[$CellContext`x]) + 267.9342316371936 (-0.056377997176073336` - HoldForm[$CellContext`y])) (-0.056377997176073336` - HoldForm[$CellContext`y])) == 0.23831532144737547`, "Tooltip"]& ]}], {}}}, {{}, { {GrayLevel[0], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{1.0006160151497028`, 0.25682830781746935`}, { 0.6290059803125393, -0.7722912548159306}, {-0.06161380270262619, \ -0.056377997176073336`}}]}, { {GrayLevel[0], PointSize[0.02], AbsoluteThickness[1.6]}, {}}, { {GrayLevel[0], PointSize[0.02], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, {GrayLevel[0.5], {Thickness[0.008], Arrowheads[Small], ArrowBox[{{1.0006160151497028`, 0.25682830781746935`}, { 0.7430806363120599, 1.140114031267743}}], {Arrowheads[Small], ArrowBox[{{1.0006160151497028`, 0.25682830781746935`}, { 0.9977915941567554, 0.2560048049450643}}]}}}, {GrayLevel[0.5], {Thickness[0.008], Arrowheads[Small], ArrowBox[{{ 0.6290059803125393, -0.7722912548159306}, {-0.02247417329852175, \ -0.6565594393396184}}], {Arrowheads[Small], ArrowBox[{{0.6290059803125393, -0.7722912548159306}, { 0.6286554212464358, -0.7742646298407233}}]}}}, {GrayLevel[0.5], {Thickness[0.008], Arrowheads[Small], ArrowBox[{{-0.06161380270262619, -0.056377997176073336`}, { 0.8763266892082756, 0.882594158380593}}], {Arrowheads[Small], ArrowBox[{{-0.06161380270262619, -0.056377997176073336`}, \ {-0.06293448833693813, -0.05505876260007909}}]}}}}, 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.154455674042069`, 1.5}, {1.5, 1.3614912539396187`}}, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-1.9339145624297105`, 2.6009697977831214`}, {-1.9733444705202643`, 2.423670021360217}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], {288., -90.8142492851951}, ImageScaled[{0.5, 0.5}], {180., 172.9795224479907}]}, {}}, ContentSelectable->True, ImageSize->Medium, PlotRangePadding->{6, 5}]], "Print", CellChangeTimes->{3.8222845962159915`*^9}, CellLabel-> "During evaluation of \ In[139]:=",ExpressionUUID->"7152fb17-7fe8-4287-9927-3f7a92a35f8f"], Cell[BoxData["\<\"COMPARISON: \"\>"], "Print", CellChangeTimes->{3.822284596228959*^9}, CellLabel-> "During evaluation of \ In[139]:=",ExpressionUUID->"9c56282e-2ad1-4c31-a876-b75766ede755"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Slope of \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"-th line: \"\>", "\[InvisibleSpace]", "1.`", "\[InvisibleSpace]", "\<\"; Recognized: \"\>", "\[InvisibleSpace]", RowBox[{"-", "3.4297645917111845`"}]}], SequenceForm[ "Slope of ", 1, "-th line: ", 1., "; Recognized: ", -3.4297645917111845`], Editable->False]], "Print", CellChangeTimes->{3.8222845962309527`*^9}, CellLabel-> "During evaluation of \ In[139]:=",ExpressionUUID->"4692bc50-b0b8-4d4f-b669-dce6c0bdf9a8"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Slope of \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\"-th line: \"\>", "\[InvisibleSpace]", RowBox[{"-", "3.5`"}], "\[InvisibleSpace]", "\<\"; Recognized: \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.17764442222042748`"}]}], SequenceForm[ "Slope of ", 2, "-th line: ", -3.5, "; Recognized: ", -0.17764442222042748`], Editable->False]], "Print", CellChangeTimes->{3.822284596232948*^9}, CellLabel-> "During evaluation of \ In[139]:=",ExpressionUUID->"7f7c03ee-50cc-4474-9780-69fd32e89013"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Slope of \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"-th line: \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.16666666666666666`"}], "\[InvisibleSpace]", "\<\"; Recognized: \"\>", "\[InvisibleSpace]", "1.0010999244138215`"}], SequenceForm[ "Slope of ", 3, "-th line: ", -0.16666666666666666`, "; Recognized: ", 1.0010999244138215`], Editable->False]], "Print", CellChangeTimes->{3.8222845962359715`*^9}, CellLabel-> "During evaluation of \ In[139]:=",ExpressionUUID->"3a808704-8754-48b5-b928-d3ee4fae0345"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Confusion Matrix = \"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"5", "1", "94"}, {"93", "7", "0"}, {"0", "98", "2"} }, 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.9840845854201447`", ",", "0.8228444003964321`"}], "}"}]}], SequenceForm["Confusion Matrix = ", MatrixForm[{{5, 1, 94}, {93, 7, 0}, {0, 98, 2}}], "; Rand-Jacard index: ", {0.9840845854201447, 0.8228444003964321}], Editable->False]], "Print", CellChangeTimes->{3.82228459623893*^9}, CellLabel-> "During evaluation of \ In[139]:=",ExpressionUUID->"84223193-c8ee-4156-a357-1ef84041ddf4"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1536, 779}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, 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, 633, 9, 70, "Section"], Cell[1216, 33, 864, 19, 65, "Text"], Cell[CellGroupData[{ Cell[2105, 56, 27311, 748, 1152, "Input"], Cell[29419, 806, 9060, 180, 192, "Output"], Cell[38482, 988, 7774, 145, 192, "Output"], Cell[CellGroupData[{ Cell[46281, 1137, 320, 8, 41, "Print"], Cell[46604, 1147, 662, 16, 22, "Print"], Cell[47269, 1165, 218, 4, 22, "Print"], Cell[47490, 1171, 63174, 1142, 194, "Print"], Cell[110667, 2315, 194, 4, 22, "Print"], Cell[110864, 2321, 558, 12, 22, "Print"], Cell[111425, 2335, 584, 14, 22, "Print"], Cell[112012, 2351, 601, 14, 22, "Print"], Cell[112616, 2367, 1133, 29, 50, "Print"] }, Open ]] }, Open ]] }, Open ]] } ] *)