(* 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[ 266747, 5339] NotebookOptionsPosition[ 262899, 5275] NotebookOutlinePosition[ 263243, 5290] CellTagsIndexPosition[ 263200, 5287] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["MInimal Distence index for ellipsoidal clusters", FontColor->RGBColor[1, 0, 0]]], "Subsection", CellChangeTimes->{ 3.5854097085807176`*^9, 3.585637218737363*^9, 3.8067555638956704`*^9, { 3.822221900508813*^9, 3.822221903815808*^9}, {3.822222129185065*^9, 3.822222147210169*^9}, 3.8222222736415343`*^9, {3.840425511829957*^9, 3.8404255367352767`*^9}, {3.840425570649557*^9, 3.8404255817671022`*^9}},ExpressionUUID->"14411fb2-9172-447c-ab3e-\ 9b738303af1d"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ StyleBox["Input", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"partition", " ", "\[CapitalPi]"}], FontColor->RGBColor[0, 0, 1]]}], StyleBox["=", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[Pi]", "1"], ",", "\[TripleDot]", ",", SubscriptBox["\[Pi]", "k"]}], "}"}], " ", "of", " ", "the", " ", "set", " ", "\[ScriptCapitalA]"}], " ", "\[Subset]", " ", SuperscriptBox["\[DoubleStruckCapitalR]", "n"]}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"centers", " ", SubscriptBox["c", "1"]}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox["\[TripleDot]", FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ SubscriptBox["c", "k"], " ", "\[Element]", " ", SuperscriptBox["\[DoubleStruckCapitalR]", "n"]}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ RowBox[{"covariance", " ", "matrices", " ", UnderscriptBox["\[Sum]", "j"]}], "\[Element]", SuperscriptBox["\[DoubleStruckCapitalR]", RowBox[{"n", "\[Cross]", "n"}]]}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ RowBox[{"j", "=", RowBox[{"1", "\[TripleDot]k"}]}], ";"}], FontColor->RGBColor[0, 0, 1]]}], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[0, 0, 1]], RowBox[{ RowBox[{ StyleBox["Output", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"MMD", " ", "-", "index"}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[";", FontColor->RGBColor[0, 0, 1]]}], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[0, 0, 1]], RowBox[{ RowBox[{ StyleBox["Submodules", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"IntersectTest", "[", "]"}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"MinR", "[", "]"}], FontColor->RGBColor[0, 0, 1]]}]}]}]], "Text", CellChangeTimes->{{3.5886541897699375`*^9, 3.5886541909877396`*^9}, { 3.588654263023868*^9, 3.588654339794004*^9}, {3.5917588683674088`*^9, 3.591758869047409*^9}, {3.5917590328866577`*^9, 3.591759044816675*^9}, { 3.5937444692479725`*^9, 3.5937444771129847`*^9}, {3.8067251659311037`*^9, 3.8067252085746784`*^9}, {3.8067252462048798`*^9, 3.806725247420523*^9}, { 3.8067555742205267`*^9, 3.8067555768738213`*^9}, {3.8071002028759546`*^9, 3.807100208919777*^9}, {3.8107927170556965`*^9, 3.8107927208402033`*^9}, { 3.813128996198531*^9, 3.81312899765561*^9}, {3.8131290871131477`*^9, 3.8131291044656687`*^9}, 3.813129162727297*^9, {3.813129217851308*^9, 3.81312926039266*^9}, {3.8131293311074486`*^9, 3.813129508676306*^9}, { 3.8208235288040915`*^9, 3.8208235296679153`*^9}, {3.820823683703711*^9, 3.820823686279229*^9}, {3.822221932773207*^9, 3.822222005492038*^9}, { 3.8222221607470207`*^9, 3.8222221750484905`*^9}, 3.8222222931703854`*^9, { 3.8223140281777897`*^9, 3.8223140337699394`*^9}, 3.840425602413227*^9, { 3.8404256614492426`*^9, 3.8404257026645403`*^9}, {3.840425742526178*^9, 3.840425816518633*^9}, 3.8404258466228037`*^9, {3.8907210911901503`*^9, 3.8907210914887867`*^9}, {3.890735201123381*^9, 3.8907352095950603`*^9}, 3.890735478311469*^9, {3.90020041908533*^9, 3.900200446447294*^9}}, FontSize->12,ExpressionUUID->"171af7dc-a083-47e9-966e-c9d7ee61e9da"], Cell[BoxData[{ RowBox[{"Clear", "[", StyleBox["MMD", FontColor->RGBColor[1, 0, 0]], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MMD", "[", RowBox[{"PI_", ",", "z_", ",", "Scov_", ",", RowBox[{"Ind2_:", "0"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"k", "=", RowBox[{"Length", "[", "PI", "]"}]}], ",", "min", ",", "P1", ",", "P2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"DDD", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"r", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"PI0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "All", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Ell", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Ellipsoid", "[", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"kappa", " ", RowBox[{"Scov", "[", RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\t ", RowBox[{"(*", " ", RowBox[{"M", "-", RowBox[{"udaljenosti", " ", RowBox[{"(", RowBox[{ "najprije", " ", "se", " ", "testira", " ", "je", " ", "li", " ", "presjek", " ", "prazan"}], ")"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"IntersectTest", "[", RowBox[{ RowBox[{"Ell", "[", RowBox[{"[", RowBox[{"r", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Ell", "[", RowBox[{"[", RowBox[{"r", ",", "2"}], "]"}], "]"}], ",", RowBox[{"Ell", "[", RowBox[{"[", RowBox[{"s", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Ell", "[", RowBox[{"[", RowBox[{"s", ",", "2"}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"min", "=", RowBox[{"FindMinimum", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EuclideanDistance", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Element]", RowBox[{"Ell", "[", RowBox[{"[", "r", "]"}], "]"}]}], ",", RowBox[{"y", "\[Element]", RowBox[{"Ell", "[", RowBox[{"[", "s", "]"}], "]"}]}]}], "}"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind2", "\[NotEqual]", " ", "0"}], ",", RowBox[{ RowBox[{"Print", "[", "min", "]"}], ";", RowBox[{ RowBox[{"{", RowBox[{"P1", ",", "P2"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"x", "/.", RowBox[{"min", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"y", "/.", RowBox[{"min", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}], ";"}]}], "\[IndentingNewLine]", "\t\t", "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"DDD", "[", RowBox[{"[", RowBox[{"r", ",", "s"}], "]"}], "]"}], "=", RowBox[{"min", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"P1", ",", "P2"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"Ell", "[", RowBox[{"[", RowBox[{"r", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Ell", "[", RowBox[{"[", RowBox[{"r", ",", "1"}], "]"}], "]"}]}], "}"}]}], ";", RowBox[{ RowBox[{"DDD", "[", RowBox[{"[", RowBox[{"r", ",", "s"}], "]"}], "]"}], "=", "0"}]}]}], "\[IndentingNewLine]", "\t", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind2", "\[NotEqual]", " ", "0"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"n", "\[Equal]", "2"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"boja", "[", RowBox[{"[", "r", "]"}], "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", ".004", "]"}], ",", RowBox[{"boja", "[", RowBox[{"[", "r", "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"Opacity", "[", "0.075", "]"}], ",", RowBox[{"Ell", "[", RowBox[{"[", "r", "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"boja", "[", RowBox[{"[", "s", "]"}], "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Thickness", "[", ".004", "]"}], ",", RowBox[{"boja", "[", RowBox[{"[", "s", "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"Opacity", "[", "0.075", "]"}], ",", RowBox[{"Ell", "[", RowBox[{"[", "s", "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{"PI0", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", ".008", "]"}], ",", RowBox[{"boja", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}]}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"P1", ",", "P2"}], "}"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", ".025", "]"}]}], "}"}]}]}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", "Thin", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"P1", ",", "P2"}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "True"}], ",", " ", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"AxesStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".005", "]"}], ",", RowBox[{"Thickness", "[", ".005", "]"}]}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{"tabx", ",", "taby"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "AG"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"z", "[", RowBox[{"[", "r", "]"}], "]"}], "]"}], ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Ell", "[", RowBox[{"[", "r", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"z", "[", RowBox[{"[", "s", "]"}], "]"}], "]"}], ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Ell", "[", RowBox[{"[", "s", "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ListPointPlot3D", "[", RowBox[{"PI0", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", ".001", "]"}], ",", RowBox[{"Opacity", "[", ".5", "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ListPointPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{"P1", ",", "P2"}], "}"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "Large", "]"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Red", ",", "Thin", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"P1", ",", "P2"}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Green", ",", "Blue"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", "\t\t", "]"}], ";"}]}], "\[IndentingNewLine]", "\t\t\t", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"r", "+", "1"}], ",", "k"}], "}"}]}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"r", ",", "k"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"MatrixForm", "[", "DDD", "]"}], ",", "\"\< - distance matrix between clusters\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"m", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "PI", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mwf", "=", RowBox[{"MWF", "[", RowBox[{"PI", ",", "z", ",", "Scov"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"m", "-", "k"}], ")"}], RowBox[{ RowBox[{"MinR", "[", "DDD", "]"}], " ", "/", "mwf"}]}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellChangeTimes->{{3.840425630493994*^9, 3.840425631079337*^9}, { 3.8907331073731437`*^9, 3.890733126287897*^9}, {3.8907332192722254`*^9, 3.8907332516676936`*^9}, 3.890733287196741*^9, {3.890735084430775*^9, 3.890735085354769*^9}, {3.8907351217420626`*^9, 3.8907351261382394`*^9}, 3.900199230525652*^9},ExpressionUUID->"a5f9f275-b56f-4b78-99af-\ 5714da4c2b42"] }, Open ]], Cell[CellGroupData[{ Cell["Example", "Section", CellChangeTimes->{{3.89073291405838*^9, 3.8907329212961655`*^9}},ExpressionUUID->"2c35eb98-c047-4235-9c0a-\ 76bc8592f58f"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Mahalanobis distance-like function and Normalized \ Mahalanobis distance-like function", FontColor->RGBColor[1, 0, 0]]], "Subsubsection", CellChangeTimes->{ 3.5854096427658014`*^9, {3.585636902492603*^9, 3.5856369150848255`*^9}, 3.8131270320776124`*^9, {3.813127824072362*^9, 3.813127841439308*^9}, { 3.8208185056215267`*^9, 3.8208185069556737`*^9}, {3.820818775063345*^9, 3.820818791392598*^9}, {3.820820759967064*^9, 3.820820768912135*^9}, { 3.822306435196814*^9, 3.8223064357209473`*^9}},ExpressionUUID->"dc4e36a1-0aed-47d0-b971-\ 4626b928bddf"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ StyleBox["Input", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"data", " ", "points", " ", "x"}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"y", " ", "\[Element]", " ", SuperscriptBox["\[DoubleStruckCapitalR]", "n"]}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ RowBox[{ RowBox[{ "symmetric", " ", "positive", " ", "definite", " ", "matrix", " ", "\[Sum]"}], " ", "\[Element]", " ", SuperscriptBox["\[DoubleStruckCapitalR]", RowBox[{"n", "\[Cross]", "n"}]]}], ";"}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[" ", FontColor->RGBColor[0, 0, 1]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ StyleBox["Output", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"dm", ":"}], FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["Mahalanobis", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["distance", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["between", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["the", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["points", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["x", FontColor->RGBColor[0, 0, 1]]}], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ RowBox[{"y", " ", "\[Element]", " ", SuperscriptBox["\[DoubleStruckCapitalR]", "n"]}], ";"}], FontColor->RGBColor[0, 0, 1]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ StyleBox["Output", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"dM", ":"}], FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["normalized", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["Mahalanobis", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["distance", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["between", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["the", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["points", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["x", FontColor->RGBColor[0, 0, 1]]}], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ RowBox[{"y", " ", "\[Element]", " ", SuperscriptBox["\[DoubleStruckCapitalR]", "n"]}], ";"}], FontColor->RGBColor[0, 0, 1]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ StyleBox["Submodules", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"none", " ", "needed"}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[" ", FontColor->RGBColor[0, 0, 1]]}], "\[IndentingNewLine]"}], "Text", CellChangeTimes->{{3.5866502699378433`*^9, 3.586650277895857*^9}, 3.5942185551808147`*^9, {3.805594762105279*^9, 3.805594764641291*^9}, { 3.8064680185995092`*^9, 3.806468028080453*^9}, {3.8099095382941337`*^9, 3.809909549475051*^9}, {3.8099095801234965`*^9, 3.809909601944172*^9}, { 3.813127071112588*^9, 3.813127071297781*^9}, 3.8131274310490584`*^9, { 3.813127472749838*^9, 3.813127475439375*^9}, 3.813127611601438*^9, { 3.813127720333233*^9, 3.813127766302763*^9}, {3.8131280374231367`*^9, 3.813128072050006*^9}, {3.8208190891837435`*^9, 3.8208190913077726`*^9}, { 3.8223064542549105`*^9, 3.8223064685591793`*^9}, 3.822306532413664*^9}, FontSize->12,ExpressionUUID->"c9099e2f-51d8-4147-9c08-9c84a82290b8"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"dm", "[", RowBox[{"x_", ",", "y_", ",", "S_"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "y"}], ")"}], ".", RowBox[{"Inverse", "[", "S", "]"}], ".", RowBox[{"(", RowBox[{"x", "-", "y"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dM", "[", RowBox[{"x_", ",", "y_", ",", "S_"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Det", "[", "S", "]"}], "^", RowBox[{"(", RowBox[{"1", "/", "n"}], ")"}]}], ")"}], RowBox[{ RowBox[{"(", RowBox[{"x", "-", "y"}], ")"}], ".", RowBox[{"Inverse", "[", "S", "]"}], ".", RowBox[{"(", RowBox[{"x", "-", "y"}], ")"}]}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.5866502699378433`*^9, 3.586650277895857*^9}, 3.5942185551808147`*^9, {3.805594762105279*^9, 3.805594764641291*^9}, { 3.8064680185995092`*^9, 3.806468028080453*^9}, {3.8099095382941337`*^9, 3.809909549475051*^9}, {3.8099095801234965`*^9, 3.809909601944172*^9}, { 3.813127071112588*^9, 3.813127071297781*^9}, 3.8131274310490584`*^9, { 3.813127472749838*^9, 3.813127475439375*^9}, 3.813127611601438*^9, { 3.813127720333233*^9, 3.813127766302763*^9}, {3.8131280374231367`*^9, 3.813128072050006*^9}, {3.8208190891837435`*^9, 3.8208190913077726`*^9}, 3.8223064542549105`*^9}, CellLabel-> "In[112]:=",ExpressionUUID->"06a3b0c6-67ef-4b54-b95b-e86539452c46"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Minimal element of the upper triangular matrix", FontColor->RGBColor[1, 0, 0]]], "Subsubsection", CellChangeTimes->{ 3.5854097085807176`*^9, 3.585637218737363*^9, 3.8067555638956704`*^9, { 3.822221900508813*^9, 3.822221903815808*^9}, {3.822222129185065*^9, 3.822222147210169*^9}, 3.8222222736415343`*^9, {3.8404253729166374`*^9, 3.840425376660223*^9}},ExpressionUUID->"a7352edc-dfe6-41ce-8da7-\ b1c2004626bd"], Cell[BoxData[{ RowBox[{ RowBox[{ StyleBox["Input", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], RowBox[{ StyleBox["The", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["upper", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["triangular", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["matrix", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox["\[DoubleStruckCapitalR]", FontColor->RGBColor[0, 0, 1]]}]}], StyleBox[";", FontColor->RGBColor[0, 0, 1]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ StyleBox["Output", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"Minimal", " ", "element"}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[";", FontColor->RGBColor[0, 0, 1]]}], "\[IndentingNewLine]", RowBox[{ StyleBox["Submodules", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["None", FontColor->RGBColor[0, 0, 1]]}]}], "Text", CellChangeTimes->{{3.5886541897699375`*^9, 3.5886541909877396`*^9}, { 3.588654263023868*^9, 3.588654339794004*^9}, {3.5917588683674088`*^9, 3.591758869047409*^9}, {3.5917590328866577`*^9, 3.591759044816675*^9}, { 3.5937444692479725`*^9, 3.5937444771129847`*^9}, {3.8067251659311037`*^9, 3.8067252085746784`*^9}, {3.8067252462048798`*^9, 3.806725247420523*^9}, { 3.8067555742205267`*^9, 3.8067555768738213`*^9}, {3.8071002028759546`*^9, 3.807100208919777*^9}, {3.8107927170556965`*^9, 3.8107927208402033`*^9}, { 3.813128996198531*^9, 3.81312899765561*^9}, {3.8131290871131477`*^9, 3.8131291044656687`*^9}, 3.813129162727297*^9, {3.813129217851308*^9, 3.81312926039266*^9}, {3.8131293311074486`*^9, 3.813129508676306*^9}, { 3.8208235288040915`*^9, 3.8208235296679153`*^9}, {3.820823683703711*^9, 3.820823686279229*^9}, {3.822221932773207*^9, 3.822222005492038*^9}, { 3.8222221607470207`*^9, 3.8222221750484905`*^9}, 3.8222222931703854`*^9, { 3.8223140281777897`*^9, 3.8223140337699394`*^9}, 3.8404253803665066`*^9, { 3.8404254152648797`*^9, 3.8404254916411805`*^9}, {3.8907216671534786`*^9, 3.890721668949444*^9}, 3.890735472660903*^9}, FontSize->12,ExpressionUUID->"479206f6-1f38-4d40-a9cc-8950bef3ae57"], Cell[BoxData[ RowBox[{ RowBox[{"MinR", "[", "R_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n", "=", RowBox[{"Length", "[", RowBox[{"R", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ",", RowBox[{"min", "=", "Infinity"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"red", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"R", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "i"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"minn", "=", RowBox[{"Min", "[", "red", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"minn", "<", "min"}], ",", RowBox[{"min", "=", "minn"}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "min"}]}], "]"}]}]], "Input", CellChangeTimes->{3.8907361424017143`*^9}, CellLabel-> "In[114]:=",ExpressionUUID->"056c64d3-ee3e-4289-8353-b8ba34914cc8"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Testing if two ellipsoids is not intersecting ", FontColor->RGBColor[1, 0, 0]]], "Subsubsection", CellChangeTimes->{ 3.5854097085807176`*^9, 3.585637218737363*^9, 3.8067555638956704`*^9, { 3.822221900508813*^9, 3.822221903815808*^9}, {3.822222129185065*^9, 3.822222147210169*^9}, 3.8222222736415343`*^9, {3.8404253729166374`*^9, 3.840425376660223*^9}, {3.8907324384217567`*^9, 3.890732489248695*^9}, 3.8907325319547405`*^9},ExpressionUUID->"c6aca932-01a8-4462-abda-\ a0a0ee7ce1ec"], Cell[BoxData[{ RowBox[{ RowBox[{ StyleBox["Input", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ StyleBox["Ell1", FontColor->RGBColor[0, 0, 1]], StyleBox["[", FontColor->RGBColor[0, 0, 1]], RowBox[{"c1", ",", "cov1"}], "]"}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ RowBox[{"Ell2", "[", RowBox[{"c2", ",", "cov2"}], "]"}], StyleBox[";", FontColor->RGBColor[0, 0, 1]]}], FontColor->RGBColor[0, 0, 1]]}], "\[IndentingNewLine]", RowBox[{ StyleBox["Output", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"True", " ", RowBox[{"(", RowBox[{"not", " ", "intersecting"}], ")"}], "or", " ", "False", " ", RowBox[{"(", "intersecting", ")"}]}], FontColor->RGBColor[0, 0, 1]]}], "\[IndentingNewLine]", RowBox[{ StyleBox["Submodules", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["None", FontColor->RGBColor[0, 0, 1]]}]}], "Text", CellChangeTimes->{{3.5886541897699375`*^9, 3.5886541909877396`*^9}, { 3.588654263023868*^9, 3.588654339794004*^9}, {3.5917588683674088`*^9, 3.591758869047409*^9}, {3.5917590328866577`*^9, 3.591759044816675*^9}, { 3.5937444692479725`*^9, 3.5937444771129847`*^9}, {3.8067251659311037`*^9, 3.8067252085746784`*^9}, {3.8067252462048798`*^9, 3.806725247420523*^9}, { 3.8067555742205267`*^9, 3.8067555768738213`*^9}, {3.8071002028759546`*^9, 3.807100208919777*^9}, {3.8107927170556965`*^9, 3.8107927208402033`*^9}, { 3.813128996198531*^9, 3.81312899765561*^9}, {3.8131290871131477`*^9, 3.8131291044656687`*^9}, 3.813129162727297*^9, {3.813129217851308*^9, 3.81312926039266*^9}, {3.8131293311074486`*^9, 3.813129508676306*^9}, { 3.8208235288040915`*^9, 3.8208235296679153`*^9}, {3.820823683703711*^9, 3.820823686279229*^9}, {3.822221932773207*^9, 3.822222005492038*^9}, { 3.8222221607470207`*^9, 3.8222221750484905`*^9}, 3.8222222931703854`*^9, { 3.8223140281777897`*^9, 3.8223140337699394`*^9}, 3.8404253803665066`*^9, { 3.8404254152648797`*^9, 3.8404254916411805`*^9}, {3.8907210314708405`*^9, 3.8907210654088526`*^9}, {3.8907211802343454`*^9, 3.890721188646778*^9}, { 3.890721865514022*^9, 3.8907218874753256`*^9}, {3.8907322898982067`*^9, 3.89073229480309*^9}, {3.890732554507679*^9, 3.890732567899692*^9}, { 3.890732612577505*^9, 3.89073264013723*^9}, 3.890732676566304*^9, { 3.8907353976405945`*^9, 3.8907354214931793`*^9}}, FontSize->12,ExpressionUUID->"35013480-e420-436f-bc18-cf317b91dce8"], Cell[BoxData[ RowBox[{ RowBox[{"IntersectTest", "[", RowBox[{"c1_", ",", "cov1_", ",", "c2_", ",", "cov2_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"FF", ",", "max"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"FF", "[", "lambda_", "]"}], ":=", RowBox[{"lambda", " ", RowBox[{"(", RowBox[{"1", "-", "lambda"}], ")"}], " ", RowBox[{ RowBox[{"(", RowBox[{"c2", "-", "c1"}], ")"}], ".", RowBox[{"Inverse", "[", RowBox[{ RowBox[{"lambda", " ", "cov2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "lambda"}], ")"}], " ", "cov1"}]}], "]"}], ".", RowBox[{"(", RowBox[{"c2", "-", "c1"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"max", "=", RowBox[{"First", "[", RowBox[{"FindMaximum", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FF", "[", "x", "]"}], ",", RowBox[{"0", "<", "x", "<", "1"}]}], "}"}], ",", "x"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"max", ">", "1"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{3.8907218274634156`*^9, 3.8907354608731093`*^9}, CellLabel-> "In[115]:=",ExpressionUUID->"f6f28c6b-04cc-48b9-9927-7284a1c46ab5"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Mahalanobis weighted \[ScriptK] - means algorithm", FontColor->RGBColor[1, 0, 0]]], "Subsubsection", CellChangeTimes->{3.5854097085807176`*^9, 3.585637218737363*^9, 3.8067555638956704`*^9, 3.822207054504098*^9},ExpressionUUID->"c690177a-61ae-49c2-a0ff-\ b57c5e7a1f7e"], Cell[BoxData[{ RowBox[{ RowBox[{ StyleBox["Input", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ RowBox[{"data", " ", "set", " ", "\[ScriptCapitalA]"}], " ", "\[Subset]", " ", SuperscriptBox["\[DoubleStruckCapitalR]", "n"]}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ RowBox[{"data", " ", "weights", " ", "w"}], " ", "\[Element]", " ", SuperscriptBox["\[DoubleStruckCapitalR]", "n"]}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"initial", " ", "centers", " ", SubscriptBox["z", "1"]}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox["\[TripleDot]", FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ SubscriptBox["z", "k"], " ", "\[Element]", " ", SuperscriptBox["\[DoubleStruckCapitalR]", "n"]}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[";", FontColor->RGBColor[0, 0, 1]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ StyleBox["Output", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"partition", " ", "\[CapitalPi]"}], FontColor->RGBColor[0, 0, 1]]}], StyleBox["=", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[Pi]", "1"], ",", "\[TripleDot]", ",", SubscriptBox["\[Pi]", "k"]}], "}"}], " ", RowBox[{"(", RowBox[{ RowBox[{ "each", " ", "partition", " ", "consists", " ", "of", " ", "clus"}], "-", RowBox[{ "ters", " ", "with", " ", "corresponding", " ", "weights", " ", "associated", " ", "\[IndentingNewLine]", "to", " ", "their", " ", "elements"}]}], ")"}]}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"centers", " ", SubscriptBox["c", "1"]}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox["\[TripleDot]", FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ SubscriptBox["c", "k"], " ", "\[Element]", " ", SuperscriptBox["\[DoubleStruckCapitalR]", "n"]}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ RowBox[{"covariance", " ", "matrices", " ", UnderscriptBox["\[Sum]", "j"]}], "\[Element]", SuperscriptBox["\[DoubleStruckCapitalR]", RowBox[{"n", "\[Cross]", "n"}]]}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"j", "=", RowBox[{"1", "\[TripleDot]k"}]}], FontColor->RGBColor[0, 0, 1]], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{ RowBox[{"number", " ", "of", " ", "iterations", " ", "It"}], ";"}], FontColor->RGBColor[0, 0, 1]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ StyleBox["Submodules", FontColor->RGBColor[1, 0, 0]], StyleBox[":", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"dM", "[", "]"}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[",", FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]], StyleBox[ RowBox[{"DIRECT", "[", "]"}], FontColor->RGBColor[0, 0, 1]], StyleBox[" ", FontColor->RGBColor[0, 0, 1]]}]}], "Text", CellChangeTimes->{{3.5886541897699375`*^9, 3.5886541909877396`*^9}, { 3.588654263023868*^9, 3.588654339794004*^9}, {3.5917588683674088`*^9, 3.591758869047409*^9}, {3.5917590328866577`*^9, 3.591759044816675*^9}, { 3.5937444692479725`*^9, 3.5937444771129847`*^9}, {3.8067251659311037`*^9, 3.8067252085746784`*^9}, {3.8067252462048798`*^9, 3.806725247420523*^9}, { 3.8067555742205267`*^9, 3.8067555768738213`*^9}, {3.8071002028759546`*^9, 3.807100208919777*^9}, {3.8107927170556965`*^9, 3.8107927208402033`*^9}, { 3.813128996198531*^9, 3.81312899765561*^9}, {3.8131290871131477`*^9, 3.8131291044656687`*^9}, 3.813129162727297*^9, {3.813129217851308*^9, 3.81312926039266*^9}, {3.8131293311074486`*^9, 3.813129508676306*^9}, { 3.8208235288040915`*^9, 3.8208235296679153`*^9}, {3.820823683703711*^9, 3.820823686279229*^9}, 3.8222070315393133`*^9, {3.822207092628523*^9, 3.8222071768599997`*^9}, {3.822207301571575*^9, 3.8222073795291257`*^9}, { 3.822207424813982*^9, 3.8222074303311787`*^9}, {3.82220747503852*^9, 3.8222075014187794`*^9}, {3.8222075319138308`*^9, 3.822207547370372*^9}, { 3.8223145377847414`*^9, 3.8223145620896053`*^9}, {3.8907365866319513`*^9, 3.890736589887092*^9}, 3.890874020072085*^9, {3.890874094881872*^9, 3.8908740978468904`*^9}},ExpressionUUID->"f8dc741d-344b-4482-a840-\ 216a92848387"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"It", " ", "is", " ", "used", " ", "dM"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MWKMeans", "[", RowBox[{"w_", ",", "A_", ",", "z_", ",", RowBox[{"Ind_:", "0"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"m", "=", RowBox[{"Length", "[", "w", "]"}]}], ",", RowBox[{"k", "=", RowBox[{"Length", "[", "z", "]"}]}], ",", RowBox[{"W", "=", RowBox[{"Total", "[", "w", "]"}]}], ",", "PI0", ",", "PIpriv", ",", "tab", ",", "min", ",", "imin", ",", "Pod", ",", "c", ",", "c0", ",", RowBox[{"n", "=", RowBox[{"Length", "[", RowBox[{"z", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ",", "Scov", ",", "pom", ",", "corr", ",", RowBox[{"It", "=", "0"}], ",", RowBox[{"epsilon", "=", ".000000001"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Pod", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"c0", "=", "z"}], ";", "\[IndentingNewLine]", "\t\t\t\t\t\t", RowBox[{"(*", " ", RowBox[{"Partition", " ", "calculating"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"PI", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", RowBox[{"Scov", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", RowBox[{"pom", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", RowBox[{"mj", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tab", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{ RowBox[{"Pod", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], "//", "N"}]}], ";", "\[IndentingNewLine]", RowBox[{"imin", "=", RowBox[{ RowBox[{"Ordering", "[", RowBox[{"tab", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", "imin", "]"}], "]"}], "=", RowBox[{"Append", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", "imin", "]"}], "]"}], ",", RowBox[{"Pod", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"PI", "=", RowBox[{"DeleteCases", "[", RowBox[{"PI", ",", RowBox[{"{", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"k", "=", RowBox[{"Length", "[", "PI", "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"(*", " ", RowBox[{"Centers", " ", "calculating"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "s", ",", "1"}], "]"}], "]"}], "*", RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "s", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], "/", RowBox[{"Sum", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "s", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\t\t\t\t\t\t\t", RowBox[{"(*", " ", "LOOP", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"While", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Chop", "[", RowBox[{"Norm", "[", RowBox[{"c", "-", "c0"}], "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"c0", "=", "c"}], ";", RowBox[{"It", "=", RowBox[{"It", "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"It", "<", "1"}], ",", RowBox[{ RowBox[{"c0", "=", "c"}], ";", RowBox[{"It", "=", RowBox[{"It", "+", "1"}]}], ";"}]}], "*)"}], "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"(*", " ", RowBox[{ "Covariance", " ", "matrices", " ", "Scov", " ", "calculating"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"mj", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "s", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Scov", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "s", ",", "1"}], "]"}], "]"}], "*", RowBox[{"KroneckerProduct", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "All", ",", "2"}], "]"}], "]"}], "[", RowBox[{"[", "s", "]"}], "]"}], "-", RowBox[{"c", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], ",", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "All", ",", "2"}], "]"}], "]"}], "[", RowBox[{"[", "s", "]"}], "]"}], "-", RowBox[{"c", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], "/", RowBox[{"mj", "[", RowBox[{"[", "j", "]"}], "]"}]}]}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Min", "[", RowBox[{"Eigenvalues", "[", RowBox[{"Scov", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], "<", "epsilon"}], ",", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "j", ",", "\"\<-tog centra (\>\"", ",", RowBox[{"c", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\"\<): \>\"", ",", RowBox[{"Scov", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\"\< je singularna\>\""}], "]"}], ";", RowBox[{"Print", "[", RowBox[{"\"\<|PI[j]|: \>\"", ",", RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", "\"\<, Eigen_min=\>\"", ",", RowBox[{"Min", "[", RowBox[{"Eigenvalues", "[", RowBox[{"Scov", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}]}], "]"}], ";", RowBox[{ RowBox[{"Scov", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"IdentityMatrix", "[", "n", "]"}]}]}]}], " ", "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"PIpriv", "=", "PI"}], ";", "\[IndentingNewLine]", RowBox[{"PI", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"corr", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Log", "[", RowBox[{ RowBox[{"m", "^", "2"}], " ", RowBox[{ RowBox[{"Det", "[", RowBox[{"Scov", "[", RowBox[{"[", "jj", "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"mj", "[", RowBox[{"[", "jj", "]"}], "]"}], "^", "2"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"jj", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tab", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"dM", "[", RowBox[{ RowBox[{"PIpriv", "[", RowBox[{"[", RowBox[{"jj", ",", "s", ",", "2"}], "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"Scov", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"imin", "=", RowBox[{ RowBox[{"Ordering", "[", RowBox[{"tab", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", "imin", "]"}], "]"}], "=", RowBox[{"Append", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", "imin", "]"}], "]"}], ",", RowBox[{"PIpriv", "[", RowBox[{"[", RowBox[{"jj", ",", "s"}], "]"}], "]"}]}], " ", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"PIpriv", "[", RowBox[{"[", "jj", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"jj", ",", "k"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"PI", "=", RowBox[{"DeleteCases", "[", RowBox[{"PI", ",", RowBox[{"{", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"k", "=", RowBox[{"Length", "[", "PI", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "s", ",", "1"}], "]"}], "]"}], "*", RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "s", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], "/", RowBox[{"Sum", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", RowBox[{"j", ",", "s", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", RowBox[{"PI", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", " ", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"(*", " ", RowBox[{ "The", " ", "case", " ", "of", " ", "reducing", " ", "the", " ", "number", " ", "of", " ", "clusters", " ", "in", " ", "a", " ", "partition"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "c", "]"}], "<", RowBox[{"Length", "[", "c0", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"F2", "[", RowBox[{"u_", ",", "v_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", "i", "]"}], "]"}], RowBox[{"Min", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"c", "[", RowBox[{"[", "s", "]"}], "]"}]}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", "c", "]"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"{", RowBox[{"u", ",", "v"}], "}"}]}], "]"}], "^", "2"}]}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dom", "=", RowBox[{"{", RowBox[{"xG", ",", "yG"}], "}"}]}], ";", "\[IndentingNewLine]", "\t\t\t\t\t\t\t\t", RowBox[{"(*", " ", RowBox[{"The", " ", "new", " ", "DIRECT", " ", "center"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"minp", "=", RowBox[{ RowBox[{"DIRECT", "[", RowBox[{"F2", ",", "dom", ",", RowBox[{"DMin", "\[Rule]", RowBox[{"10.", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ",", RowBox[{"MaxIter", "\[Rule]", "50"}], ",", " ", RowBox[{"Eps", "\[Rule]", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}]}], "]"}], "//", "Timing"}]}], ";", " ", RowBox[{"min", "=", RowBox[{"minp", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "min"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{"Append", "[", RowBox[{"c", ",", RowBox[{"min", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "c"}], "]"}], ";", StyleBox["\[IndentingNewLine]", FontColor->RGBColor[0.5, 0, 0.5]], RowBox[{"k", "=", RowBox[{"Length", "[", "c", "]"}]}], ";", " ", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "k"}], "]"}], ";", "\[IndentingNewLine]", "\t\t\t\t\t\t\t\t", RowBox[{"(*", " ", RowBox[{"The", " ", "new", " ", "partition"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"PI", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tab", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{ RowBox[{"Pod", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"c", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], "//", "N"}]}], ";", "\[IndentingNewLine]", RowBox[{"imin", "=", RowBox[{ RowBox[{"Ordering", "[", RowBox[{"tab", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", "imin", "]"}], "]"}], "=", RowBox[{"Append", "[", RowBox[{ RowBox[{"PI", "[", RowBox[{"[", "imin", "]"}], "]"}], ",", RowBox[{"Pod", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PI", ",", "c", ",", "Scov", ",", "It"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}]}]], "Input", CellChangeTimes->{{3.5854097343735633`*^9, 3.5854097510841928`*^9}, 3.5854422528934937`*^9, {3.5854427134983077`*^9, 3.585442775474617*^9}, { 3.585442845922742*^9, 3.585442875636194*^9}, {3.5854429350570993`*^9, 3.5854429395977077`*^9}, 3.585443159258896*^9, {3.5854443563520174`*^9, 3.585444366291235*^9}, {3.5854451379360123`*^9, 3.585445157845647*^9}, { 3.5854451929985094`*^9, 3.585445215093148*^9}, {3.585460068733981*^9, 3.585460069155182*^9}, {3.5856127989916306`*^9, 3.585612806047843*^9}, { 3.585670796116366*^9, 3.5856708026693773`*^9}, {3.5856708981689477`*^9, 3.585670918390583*^9}, {3.5858299052484636`*^9, 3.5858299388735228`*^9}, { 3.5858300073706436`*^9, 3.5858300077450447`*^9}, {3.585900458600043*^9, 3.5859004840018873`*^9}, {3.588248751354031*^9, 3.588248821404038*^9}, { 3.5882498810556464`*^9, 3.5882498973515787`*^9}, {3.588250161090664*^9, 3.5882502911901045`*^9}, {3.5882503246970215`*^9, 3.5882503277241945`*^9}, {3.5882503790181284`*^9, 3.588250383606391*^9}, { 3.5882504242917175`*^9, 3.588250464820036*^9}, {3.5882505105736527`*^9, 3.5882505114917054`*^9}, 3.5882507453700824`*^9, {3.588251032786522*^9, 3.5882510334005566`*^9}, {3.588487947786691*^9, 3.588487962672117*^9}, { 3.5884882407794094`*^9, 3.5884882441656156`*^9}, {3.588488355868213*^9, 3.5884883708804398`*^9}, {3.588488563666781*^9, 3.5884887402542934`*^9}, { 3.5885630334504766`*^9, 3.58856304123589*^9}, 3.5885632791621113`*^9, { 3.588563325440793*^9, 3.588563336488612*^9}, {3.5885633979365215`*^9, 3.5885634398929954`*^9}, {3.588563483504072*^9, 3.5885635078451157`*^9}, { 3.5885635511265917`*^9, 3.588563551610193*^9}, {3.5885636088742943`*^9, 3.588563625007723*^9}, {3.588563680617221*^9, 3.5885636883090343`*^9}, { 3.588563741765729*^9, 3.588563801354234*^9}, {3.588564036274249*^9, 3.588564058010088*^9}, {3.5885642241571817`*^9, 3.5885642437392163`*^9}, { 3.588564286960293*^9, 3.5885642917973013`*^9}, {3.588564427386545*^9, 3.5885644656448126`*^9}, {3.5885647028756323`*^9, 3.5885647307296815`*^9}, {3.588564767833547*^9, 3.5885647697689505`*^9}, 3.5885648242386465`*^9, {3.58856492207082*^9, 3.588564987698738*^9}, { 3.588572135897002*^9, 3.58857213993841*^9}, {3.5886546813328094`*^9, 3.588654739615913*^9}, 3.588655124544796*^9, {3.5886556751016054`*^9, 3.5886556860392246`*^9}, {3.5916293696412287`*^9, 3.5916293705512304`*^9}, {3.5916294227753096`*^9, 3.591629511524443*^9}, { 3.591629572599535*^9, 3.5916296059665856`*^9}, {3.5916296768786955`*^9, 3.5916297152957535`*^9}, {3.5916297727758408`*^9, 3.5916297974568777`*^9}, {3.591629847631954*^9, 3.591629849641957*^9}, { 3.5916299076980443`*^9, 3.591629908578046*^9}, {3.5916299990101824`*^9, 3.5916300010101852`*^9}, {3.591630323283673*^9, 3.5916303379066944`*^9}, { 3.5916305268829803`*^9, 3.5916305270929804`*^9}, {3.591660714605068*^9, 3.5916607198970757`*^9}, {3.5916607650771446`*^9, 3.591660803309202*^9}, { 3.59166166890351*^9, 3.591661669693511*^9}, {3.59166726848798*^9, 3.591667269147981*^9}, {3.591667312366047*^9, 3.591667313666049*^9}, { 3.591667570940436*^9, 3.5916676610655746`*^9}, {3.591667694300625*^9, 3.591667696650628*^9}, {3.5916677544017158`*^9, 3.591667773155744*^9}, 3.5917551025947275`*^9, {3.591755366982127*^9, 3.5917554493482513`*^9}, { 3.591755489010311*^9, 3.5917556047644854`*^9}, {3.5917556648575764`*^9, 3.59175569379862*^9}, {3.5917557618687215`*^9, 3.5917557873157606`*^9}, { 3.5917558408288403`*^9, 3.5917558610128703`*^9}, {3.5917558994739285`*^9, 3.591755929475973*^9}, {3.591756176614344*^9, 3.5917561773743453`*^9}, 3.5917562151114016`*^9, {3.591756366958629*^9, 3.591756392572668*^9}, { 3.5917579616330385`*^9, 3.591758013264118*^9}, {3.5917581921473875`*^9, 3.591758226619439*^9}, {3.5917582888085327`*^9, 3.591758291098536*^9}, { 3.5917590973337555`*^9, 3.5917590999237595`*^9}, {3.5917591371568155`*^9, 3.591759166136859*^9}, {3.591759256893997*^9, 3.5917592790000315`*^9}, { 3.591759533142414*^9, 3.5917595431854286`*^9}, {3.591843598531943*^9, 3.5918436338009963`*^9}, {3.591844425669197*^9, 3.591844426039197*^9}, { 3.5924640713958273`*^9, 3.5924641798789835`*^9}, {3.592464248131085*^9, 3.5924642487210855`*^9}, {3.5925376899035196`*^9, 3.592537705867544*^9}, { 3.592576875063138*^9, 3.592576875413139*^9}, {3.5925781562650175`*^9, 3.592578156475018*^9}, {3.592964548924782*^9, 3.592964555166792*^9}, { 3.592964585219837*^9, 3.5929645888298426`*^9}, {3.5929682001042895`*^9, 3.5929682159073133`*^9}, 3.5929763390111504`*^9, {3.5929764515003147`*^9, 3.592976467183339*^9}, {3.593053072760112*^9, 3.593053073730113*^9}, { 3.5930538105942287`*^9, 3.593053812714232*^9}, {3.593053856404299*^9, 3.5930538572843*^9}, {3.593053927802407*^9, 3.5930539356244183`*^9}, 3.593058968659049*^9, {3.593059020562127*^9, 3.5930590479781685`*^9}, { 3.5930590835552225`*^9, 3.5930590844352236`*^9}, {3.5930591188302755`*^9, 3.593059264793499*^9}, {3.5930605185343647`*^9, 3.593060519054365*^9}, { 3.5930684136272135`*^9, 3.593068453909273*^9}, {3.5930685369283977`*^9, 3.5930685378793993`*^9}, 3.593744511931036*^9, {3.5963702044622517`*^9, 3.596370223206278*^9}, 3.8064685397774334`*^9, {3.8069286765088053`*^9, 3.8069286828591075`*^9}, {3.8069296662564898`*^9, 3.8069296715367703`*^9}, {3.8232301372494383`*^9, 3.823230171721964*^9}, { 3.823232028129715*^9, 3.823232040378166*^9}, {3.8907366524220657`*^9, 3.890736773914321*^9}, {3.8907368084072223`*^9, 3.8907368269081345`*^9}, 3.890873962097377*^9}, CellLabel-> "In[116]:=",ExpressionUUID->"6f504339-8985-4aba-a66b-8af863cb94c7"] }, Closed]], Cell[CellGroupData[{ Cell["Execution", "Subsubsection", CellChangeTimes->{{3.8907353101435533`*^9, 3.890735319946576*^9}},ExpressionUUID->"677c4afe-8d0f-4391-9b85-\ 1c14d662306b"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"SeedRandom", "[", "7", "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tabx", "=", RowBox[{"taby", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "20"}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"boja", "=", RowBox[{"{", RowBox[{ "Blue", ",", "Green", ",", "Orange", ",", "Brown", ",", "Purple", ",", "Magenta"}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"m0", "=", "300"}], ";", " ", RowBox[{"k", "=", "4"}], ";", " ", RowBox[{"m", "=", RowBox[{"k", " ", "m0"}]}], ";", " ", RowBox[{"n", "=", "2"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{"p", "=", ".7"}], FontColor->RGBColor[1, 0, 0]], StyleBox[";", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"kappa", "=", RowBox[{"Quantile", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", "n", "]"}], ",", "p"}], "]"}]}], FontColor->RGBColor[1, 0, 0]], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\

\"", ",", "p", ",", "\"\<; kappa = \>\"", ",", "kappa"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CC", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.5", ",", "2.5"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "2.5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3.", ",", "5.5"}], "}"}], ",", RowBox[{"{", RowBox[{"7.5", ",", "7.5"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"AG", "=", RowBox[{ RowBox[{"{", RowBox[{"xG", ",", "yG"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slC", "=", RowBox[{"ListPlot", "[", RowBox[{"CC", ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[SixPointedStar]\>\"", ",", "15"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"PointSize", "[", ".025", "]"}], ",", RowBox[{"Opacity", "[", ".9", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cov", "=", RowBox[{"{", RowBox[{ RowBox[{".7", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], ",", " ", RowBox[{".3", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", "1.4"}], "}"}]}], "}"}]}], ",", " ", RowBox[{".3", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.6", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3.6"}], "}"}]}], "}"}]}], ",", RowBox[{"1.3", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{".8", ",", ".4"}], "}"}], ",", RowBox[{"{", RowBox[{".4", ",", ".8"}], "}"}]}], "}"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PI0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"MultinormalDistribution", "[", RowBox[{ RowBox[{"CC", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"cov", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", "m0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"A", "=", RowBox[{"Flatten", "[", RowBox[{"PI0", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"w", "=", RowBox[{"Table", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "A", "]"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"z0", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "8"}], "}"}]}], "}"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "=", RowBox[{"MWKMeans", "[", RowBox[{"w", ",", "A", ",", "z0", ",", "0"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"(*", " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"MMD", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "1"}], "]"}]}], "Input", CellChangeTimes->{{3.890732979672161*^9, 3.8907329801140766`*^9}, { 3.89073304495652*^9, 3.890733055508705*^9}, {3.8907341221204367`*^9, 3.8907341302521105`*^9}, {3.8907348870473313`*^9, 3.8907348884565563`*^9}, {3.890734921484782*^9, 3.890735024598974*^9}, { 3.890735055389875*^9, 3.890735059513955*^9}, {3.8907362616971965`*^9, 3.890736271565175*^9}, 3.8907369488055363`*^9}, CellLabel-> "In[117]:=",ExpressionUUID->"3888d11d-e985-45a5-98f7-9fed06cc6e07"], Cell[BoxData[ RowBox[{"{", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0., 0., 0.6666666666666666], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, { Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[0, 0, 1], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0., 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, { Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[0, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, { Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 0.5, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[0.6, 0.4, 0.2], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.6, 0.4, 0.2]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, { Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[0.6, 0.4, 0.2], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[0.5, 0, 0.5], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.33333333333333337`, 0., 0.33333333333333337`], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.5`", ",", "0", ",", "0.5`"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.5, 0, 0.5]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, { Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[0.5, 0, 0.5], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 0, 1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0., 0.6666666666666666], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, { Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 0, 1], Editable->False, Selectable->False]}], "}"}]], "Output", CellChangeTimes->{ 3.8907330572886095`*^9, {3.8907331128077836`*^9, 3.8907331328102646`*^9}, 3.8907332246194324`*^9, 3.8907332558355722`*^9, 3.8907332917736597`*^9, { 3.890734122716251*^9, 3.890734130815688*^9}, 3.8907350624479074`*^9, 3.8907350954757843`*^9, 3.8907351369347744`*^9, 3.8907362132592382`*^9, 3.890736288390632*^9, {3.8907369385990047`*^9, 3.890736952305652*^9}, 3.890874283084656*^9}, CellLabel-> "Out[119]=",ExpressionUUID->"be0e530e-f669-4dd2-931c-3cf97f7a41f3"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"p = \"\>", "\[InvisibleSpace]", "0.7`", "\[InvisibleSpace]", "\<\"; kappa = \"\>", "\[InvisibleSpace]", "2.407945608651872`"}], SequenceForm["p = ", 0.7, "; kappa = ", 2.407945608651872], Editable->False]], "Print", CellChangeTimes->{ 3.8907330573042307`*^9, {3.8907331128234053`*^9, 3.890733132825886*^9}, 3.8907332246350574`*^9, 3.890733255851194*^9, 3.8907332917736597`*^9, { 3.890734122716251*^9, 3.890734130815688*^9}, 3.8907350624635315`*^9, 3.890735095484761*^9, 3.890735136950403*^9, 3.8907362132748594`*^9, 3.8907362884062567`*^9, {3.890736938614626*^9, 3.890736952305652*^9}, 3.8908742831002855`*^9}, CellLabel-> "During evaluation of \ In[117]:=",ExpressionUUID->"16edf431-18ca-48a8-8515-bd6dfef56d52"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.6439222171175175`", ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"{", RowBox[{"4.037197399453137`", ",", "2.8026304743979775`"}], "}"}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"{", RowBox[{"4.499737560406586`", ",", "2.354643397349211`"}], "}"}]}]}], "}"}]}], "}"}]], "Print", CellChangeTimes->{ 3.8907330573042307`*^9, {3.8907331128234053`*^9, 3.890733132825886*^9}, 3.8907332246350574`*^9, 3.890733255851194*^9, 3.8907332917736597`*^9, { 3.890734122716251*^9, 3.890734130815688*^9}, 3.8907350624635315`*^9, 3.890735095484761*^9, 3.890735136950403*^9, 3.8907362132748594`*^9, 3.8907362884062567`*^9, {3.890736938614626*^9, 3.890736952305652*^9}, 3.890874284599934*^9}, CellLabel-> "During evaluation of \ In[117]:=",ExpressionUUID->"5082e0b6-c487-425f-987b-29e6aea43aa8"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0, 0, 1], Opacity[0.075], EdgeForm[{RGBColor[0, 0, 1], Thickness[ 0.004]}], InterpretationBox[ GeometricTransformationBox[ DiskBox[{0, 0}], {{{1.935701629990119, 0.}, {1.0235177216625755`, 0.8069485876717896}}, {2.5459433791152737`, 2.528602686436138}}], Ellipsoid[{2.5459433791152737`, 2.528602686436138}, {{ 3.7469408003464038`, 1.9812249221460203`}, {1.9812249221460203`, 1.6987545497028451`}}]]}, {RGBColor[0, 1, 0], Opacity[0.075], EdgeForm[{RGBColor[0, 1, 0], Thickness[ 0.004]}], InterpretationBox[ GeometricTransformationBox[ DiskBox[{0, 0}], {{{1.7382093694041454`, 0.}, {0.5877129239312422, 0.7736988011356426}}, {5.963093253628679, 2.431888696090106}}], Ellipsoid[{5.963093253628679, 2.431888696090106}, {{3.021371811884357, 1.021568110897191}, {1.021568110897191, 0.9440163158345407}}]]}, {{}, {{ {RGBColor[0, 0, 1], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVV3kgFFoXn33H2IUsUbwQj4Sie0roSRISvVD2UkhZsiVlSUpCJKQikjVr ytaKJD1CpRIJ2YaxjGH45vvr/nfPvee3nN9RdPG1dsdhMBgVLAbz/9PtbDfb xAAH8UoKcj0iFLisdfJN/doKGt745pV1Bw/t3LJ/PpHEQ553axnjIXjQsvQb viO9hDpqClOvNLOQTpPkjTIjPPiU6dxbmuagvTsOTBVKYQD7ckdyKB4HTSuc L6dSCxrlSy7cd/Fko0fOzmepP3AQxOhbXnOmgGdXYrxNAwZ6Z5cM33sRYUw1 zbBvAAsvHqUGPi9dRe01zpTpf/EQonUl/ucWHGQyHyq/y+egbfccnCU9uEha Tb8/oGYVXZdcSU9qI0PgYbKnfAwWtK9J3PCTJEIF4+v+zFwscGne7F16ZKCS A3LOxxPANT1sIvwCAW7bn77lKIiDXUa3ZCbDcFDdMXrCw5SNuvYVSFg5cVAT N1T5rFJD44+Ec6Sd7QvInOM8wHnCRnIh5TTKFA6MFNfnHEzBAakgST3pOgZS UzKnIsUwYCah2oG5R4D0ehImt2YQmTt0drNPrqC/eDv1Hsjg4HS2pIRdNB6k uj9ixvfjYMPd8K4iGSpsyL5dOqUxjo4+0sm0ejCK+rRHTG2FcXD9zbS9TjkZ Xqt8pLxXxsEOU52GCgkiFBgcU67UW0DN/ldafIxXEPNZRf5qxjRa2GRmP5/M RT7rglX16EQwte+0SHpGgqKnEq/39C2hBvFU+51Fa+i5/Iur7kMraChiuNlL Ggsnmu9cfF+Hhcn3cgGjfhj4Qw7a/Z2JA8knK7MsSxw0/D2yMlFKghGqTe8G +TWkpUde3YsjQIWUmFByFwlqqzBmMlmTqLK8IgdJsVEPjkG7dwMLUFAgpZ6B hbflC0FZUXiIvmP1o5T//z1XeyJdB9ZQ7og17mYIFxXH2f4cfEyAY0mh8umS FOD8qSVdvzmB1IvNtrhqraC4XRJB/wny0AtJIV1tezzsItczk6kEqKwKkF2J n0PDw6rxIXw8hfdkfSG0UaH8o4693PAccnxGn67OwIDSvZCEyOcEyKHLyUSZ E2A1IyN3LmoeeV0jR51bGkKh27PS/fIXkVX9NEuCz6+YZYPo8L95KHbbCF3f CwcoXdG+bT0O9imOBToq8/ulsle0WZGDEhYzD/XumkL9uS0C4pEYsC/fJDZd TQUrl2UT9sU3iGIe/rOA9QVdFdbKUauaR2nHk87XHcHA2HnxjLJmPLjIVGCT h1fRH4Wvyc5vx1HRw4bMV1cwYM2iT26PxIOnTNPha/vJYBRrFxJdR4TRpt5D YQ1LqLvqHcVP6yfSXFuf6P4XARQ+nec9FuttjFBovZKrNY6KC47ObDHAwIBV idnDQTaynUsMdd43j757+cylKC2j3zOpJcZGa2hbq0JyQsEyGnE0nLBLxUFh 6uj2BxgKFNy8I1OUNoeKPWdObvEigWFns4Fs+Ar64NJw8lw8D3F8U0s/SPNQ w8TGjnJdDhIwn1GXsMHDSwO32yQFHBBiv7mO7MFAyS/R701DHHQwbDZt5igO cijeJ2OPY+HMpa59pWQWstDFSdrbYMBCmZnQu8BGNlVOoh6CWIjuoQY4uc6j 7l8NViUbp1BJv7618dNV5Lv88fEY/96y8Zxdgi9W0RmDnsmmQBJ4/xDn6tN4 yHRE1UhWdA0FL6Mqyisi+N8WDOukLiN7vLNDYAQG4qy7ZZNbCdDf8qC6KpiL 0IDVX1yveRQshwtU5vPyhXgj11aYCGWWoXOlU4ONmTYvM55P/UFXkqJ9pE3I EKd3+9pbIS5KU1YnEd6vouc/8b9Hty4hhVtV2c+hGRXTtj20/raImhMkD107 sYwSrKQKtvHxVbfn3uDeXUS2a6eiebJr6Lxvnd07Qxy05rWkD+5bRbs/KB5/ ND+O3Hf3j36MwkBhY0/nsYsDyM9dfwErx0J2BSmYd1HLqMLsraSS2iw6+3PQ Pe4iX1dXr8dzivHw5niinmDnDNqDXaxszcLCFY8kvY6tBKg+GRR7eyMWMvsK /svH8JByuKDw5B88GGEdZ3n35tD3f9W3lzlwUb6J1f3QSb7PW7Fehx0hw065 rSlK3Rho8Fgf7DaHB9sjdo9+ZUygn7cIvfdO4MFqybCvMLILxfx4QrXDLiKD fJNccUcc+KvU/v05jAaFhiwblRJ2o4/Q7UoV5TEUoJ1W+4/5LNoWQ2BmH15F aT8ObvttRIRvThuc/vmGh8546Zpnc18aLyBXXXHTFTQ4sWrbU7yGbH/19XNr +PPhcDotdsMiaos0/vmkeRmp3jFVcefrzQmb0ts8jQVVrXEBTPkK4hwYPt+f S4C2obBpTYsVFOLY1qOxxEHcjSn5WSJrqOnA0V9t0gRw9/2sMGdLhoUHZuF6 RB5qmso/GyVY19imFvpy4vo4+kF/nh5eSgD2gFyuzx4CPL285rR1YRU5nF3a XHZtAbWqvHlwKYQA0Yp5JUZJa3z9+kz4dvxEzxYjLCqq59BazhBOLnoepSow /su1IsCBkm9O/xjPIdazg2vLA3PIq8DotLZ8F7px68AhUzEW2jO0O0XahYvU Q1UXB/vWkM/d3WZ1DXPo768Nhm6fMKButjXKErHRn33b9Hlqq4gTbKn57C0J sGwXy9ApLjrmcqx9LB0DxbuEyB924KGszdbxzfxHlKw3eeW9FA6+Jz0ypXmz 0JxkaWbeNy5aL54saJrFQqspezO4uitItcF7yJzDQ6GazI7VECIkn3p6/8nj BbRJ9o3SSBgJ9gu/DBY8jYPZrYoRdedJoBAsfNv4OgfVjp6PCl9HhDaHCNWC SwSQWUmkBx5cRZ1Koc9Kt48ji5mTXP2RVdQf+2KS+J2DHm8tzCPo4OHGnRL3 XFMM3HwV1pOaiIORsePFR9Pm0Sv20x3rKEsoJy3iZXJZC7qzbbZvTGIWXYpd UDu4DQu17oHtjvy6bjt81HXCMJAQu6nEU4GFdBtXPG2HcRCaZXyq8Rifv1bH cXG2WFBr9br5a5yHDrSyvAKCcTDh4bZAxVKBua7JMOjHZzS4Q+P9DQMusrPZ 6P+znM/3O2qi1leXkd+yh/+ofzPaEtuif2J5GH3r245bG11Fdv0gYP0UCxva vUKbZqfRyJbLRTQcBkTKZsvzu1ZQoM8Aq01zBcmfkB7VVGUht6smhSWneYhR H5tUEfsLmRdabgnZhIVN9uunHXADyEnIE5/6mYOimncVPvn8G22ddPI8bcXH lzi5XBLLn/O6CUW0h3hotG5viomZQRoVOqyvJzBAlpsKbi5fQ4x1gTdbUpeR l3i7sv0hPFQLnHWR91tAUl0aqUxzPp5RQrrr7SiAdbd87p2zikwZN3bOyFFA sRI7dGSQAuuop4aCNGiw5ML9bfKHAsreBgEpO/EQa6RRLuxNBvb79S/C+fnm WUWwgySdAlarj00HApZQF9X8zMFzJHC9dzjvN99nX9uUZV/RpML3/uLweD4P 4nnuyNGFCpJf06tfRdHA52OujK4PBboaLyb1ZtJh65ehfu46MpzzV/HC8PnK apVY+vcTGTIGHle8bsLDjk7DXW+lSTChsdRQp0sAfSxcc8yjwNBVstshMgP2 Bw1uWY0igoX95k39dWTQ9cEQGNvJECbspEzRpwI76ov/sB8d1jNuxTY2MiAs MDFUCkeHqsaz9evUaLDG5sEZfu71NxZesH2Kg7f9MuzcQ1Q4MKZ20odAg1O7 8X1dlSSw/4ZS4lKp4PvOVYLTQIZ290WTlctkmBq/Iix+ggQDC1QidSMFMFKi HR/yqeAniktcKqfB8c45E54fGZI8D7FIihg4X3kzLUiQAhrZZYYLFkSIfT6i 0TpHhqAPVO6un2T4biMi7z5OAn0HmWc3KwmwpuyQvlZBAW//MziTLDIUNVA6 2UNk2Lz7S/3ox1U0oHP9Wt4qCeQIgU+iU8kg+CPGNFqeBNbB/yjpHSVCoSrr Y+/fJGAm3VAWu0SFpxtIDg1tNAgkDURY72XATOkoG1dDAfHypPJpbzpcSfiq VhFNhuFTXt0d0RQIY6usXJiigp1we/WpeTLgJd3CO83IUD+QKJX5lAS9JeJz Jd+oYLJf+owtP5/8Tu8ovy9FhYKf2cNFjTiYdIvZZLqLDI6MvtPdyXiYo/aK ttZTwDIXY6Faz8+FlxsJli0k8F+v+MDLiQJoH9v4X2c6tG/WNNMpYsDvo3SR pYNUyD9gfVDiAgWeZ+1oc8+mgFzobFVmGBEEE0seZG6hgnJtT14chworgS0d 5mJkiPSwaAkmkqHK1/IzpY8EhJq8C1kX+LnbQ95aJJiPh+oX0VPv+X1RdZpI zaDAXgYl5mk0EQZIIjS8NhXo7kYXOt4TAdOUxZqJIcEpj03pyktEuFljIIzl 86VM0pnzQBIPHirMFw9mSGBhm6Zl7kWDV+UldIotBSJ0/tRNua2icp7U58C7 RGC9KaifUaCDS++msLl4PFjbOUlkJ9NBWkLqxacsGth7CjS3igrCQFXnIYeL DPBrDUzeJ42H9APe6inFAtA2ePdQGQiA0vy/va7TdGB3l3W5MEjwX8jlG8Zx dOBJCDUN8/eR+ueW5Uv36RDBomgZ2BBhb4K4p/czAVDTas10TaXB3u5U59Qz wrDo+bpf4qMgtE30yy6+EwTlHy3a/UcYkEzcO81UoUPgo7Xni3xf2FmSsceW Rgc1gfEbAWfIoNi69EAWBOHt+5ZblTVU6HPTf8TBCEJxhA01bacAaAuTh3t/ UAFlabtyZEmQI+EwjuxpkPCGzKieXUX3Bx6OtywxwNOg6mWMFQmGvwVyDssw IPDUmNfFdj7u7Me5ATwa6CdVGe84ToTLDrp7bb4wwEpfNNFQmp8nSt+Xu/L1 +2OR/juGr5PWljUHm2UqkH4vHbnEz5Pm901bFlkCME4ePaIeQIaj6mulqkcZ 4LHvj2VlDBleRJy4+VJTGGgyx55kEZjgT3J7Vl/MBPehhRoXmiAURpacUTJh wO2nyUWGRRS4bVRospBDg50vrxsFd5Dg2isPx+wZOkyzDm98cY4MpvOjcoWP 6fB35D/dsiYEuKl67D+evBCYD6fkS4cLwTFySX3DXSpUzxdVtM7z99Anpi4u f2ggzeS2dPL18XRyh6zvBBW+jCc0T83iwNAwLd9UTwAudQyViAfTQTbm/i1K nAg0+Op0/1ITBjG9g537jAXAWeysrW8LDRbGvjCkmqmQ2sdI32RGhMyHX4MW +XuPcqXb/mYTIgxaBDXm/8MAcqVsU+M1AuQFUzsaVJnwqv2sZHkFDVyupm/+ c1IAztWHORaG0oCnLVmVG0mDldfrV46+wMHo65EPYt+FQYNW2ye2VRhk9nzV qEUMcPQe5I65MUFRgN2R3U2E3DP7rOPjBeBYeET7umYBuHli327tOiHQjFJw aJdhgslJARHeKSZYaI25qhkIwp26S0J3yUzQjqxTtBBnAiYyu2Z8Nwm+X749 F4dlwrtmSaHUVgocCR2gr+gwofqliAj+AF+H4Yflfe+JAK60I+9jFAPcRTLu T6gIwl/nxAZ2HiHyeXN9b8gTJkgaqmXJKZGh4NHLoQoTMRCzxB5Zz6+TYVwQ LVAnCHcP3/cYEyMCSctd3O+uMIRpTE2e3kWH3PSavDKqGNjZl16tyBGE39+u Erb9KwzHDnDlPbVpYJV5I+4eTQSCok8PmKQz4JeK7qUjTqKAzpcRv9gz4fPe T9nOesKw89O2/Y69FFBIrO0zkhaCK7MvDsvxfZpdFWMycUIYptpslL52MUBB PezM6FYGPKJeY/UXYeD6w7rfcUxx+DKktUcuQARkS82tKnOpwAj2NY1exwQf StHnhGohsLsuCpJ/iUCJ1qW3ad/EIPUvU1dzMVF4U/B4SWijKKRsHLCif6OD G2N6bJ2pJEho4mkVNiLQkyUecvQTE9YX5vV+IPDf4/+f26+nEmBQ6+K5yGGC yFs7gc1dovCptu5oON8HrKVuj2p+lIK7RyIubOwShnfJxy6OciRBt4O5XHtZ FChmxpUq42LQ81bVU0+VAUG1XW8U/SThnlF2riaGCVkhPXs0KBLQP7Q5INxW AP4HT0crlQ== "]]}, {RGBColor[0, 1, 0], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVl3c81f/7xo8zOUaOcY4zjMInIiWrSO8rotAwKhnJatjl07SyMtohKbOM CA1lZlWUFkUqlUqSj6J8I9l+5/fX69/7vh/X67qe13zPIPudZBKJpC1CIv3/ +y3p2WvFVwzUVFkbc5r/EIxkE4fIC0wc1HupF8mZIpb9TXiiV8DA227fEZWG /xEsXfJ22UpRjKa9j1+xYpTYOZr5T04CE1LcNWsKQ/8QZYt/JpjVyGJB3kyQ 2hMqWO8ODRbSZKBuLdZrfZ0OZmf/YVIpCzvYyWfDdagQ/URlNaxlY7Ha76pG EVFstjBoI6rkIWKpK9uSQwPDbaeW1JQM5M1Uy/PzKci482DCv1iA953e/xyu oCPQUFom7oMc4h69j/Z2EEFBaxz/0UUW7mu0pgU+nCHm9ucm0HM42Chf4npu wxRhumXJlbmX86Cj/K/7scYZIu9LULVrAxemis8kXAMYMFu2oOi7qzJkxlo2 kIzoiEr3divM48KtmMhdHkaFnlut5qGtfHgWNjaeDhRFme+RtkcMHg7v/FWz YpICS60FN4/bcqAhKhK3a4wGS8t0td00WfSRBDVXd5Eg/sezK3+BAGGrg3c/ 8ZgjMqLTlS2ey+OK6hXJy4p0eDw/n9gULAPpW1akvrYJQrFYL69LnIfeoCrC i0IHKb/yyfLFC3BZsm2Hej4DRQp/hw3fy4Fx9lJOWy0JsyuikgwVeWgcfB79 dr8Ivoba8fpU2dDXX1kzE0HD+SfRHvEVHLze5SF+pYGMtkd8R5VLbMS/6K07 s4yKj4vvbFWt4EPf9N2jI/2ThPRrjX83ScsjPW6hydnJSYIX8n153A8uLDtT eac5FLBEtrRJLeaA/a2j1WlonIifM677pCeLro8SLrPCew09+pW3Y5yHT/UB 5lef0FFm9iI8VFMBmdmGW1QNmfgsMaJhFMUFtbfOk/adjLPHcw8+0pKDhzGV 8jGLhrjiIuplZUmM869wirLGiWcFlVVxKRx4Jui/vHOYjvXJKnzeUT40WgSL hsoo8D5kSWJ1CrCKPPK+bZMYBrK/W1Gz+Dj0Q+nvpIcYbOfL/ld/iA32Jo/J N0MTRAqHsFJW5WF4SLt0sFwCf1cvMH16TgAJ15Rc8RAakn7Wh6Vc5EKs5nzl 1a0MdBSV0yrqFRB56qGiMVcUqnzHstQeeZwttxmlkueI7W+ip15t4EJz3bfd zQw6ls8beh1apggNl4lLxkcZcBw3DV/XzsGt5qyKgBEKfk+bUI0VOTBm/1fm HUZH4/O2LZqtCnD/y3I5VkxGl2ti7nX1+fj30OrHObni+P5nScYab2WQN2RO 5Roz8dP0ZdIzKzlsNebFzdtARduG5qKgWDamI5zcV2wjo/2bWa/PGB+PBZu3 dFeKg3JEy1XsmTxa1jNvXDpPBz/XrYtKyOGner5ptAYFAezH6X5efNAywvfT nkugW8tt8nshC9od5rfPrCJh8fp5Kh+92IhQYjxvkZgh/NbFJY9ny0D17KCN VxQVBzKbTxqVCPdfdTFkyWYKXivFjMjU8PH3x4F3sm1kXFyg7KEVwUNx18Ar E5ooJEVNfBzzudAwSapdfoqOvYvz1qxLYsMcRkkWX8cIyqjEGVMLDnarVP+e cxRF3PkY8SwnAQLvPhmzCxfFiVcT/10P5mB9yoroT3MUBNMaI5YxFZGmffqg wzoxhMhHsZtISpifGtAe8x8TL59sC4pr4GDKydog0p2BAbdJiztkLrwVqtfS 51HxR4IRoOzEQ8KQctrmLBGkBPLCKvpkkRO7Y+DkwkkiYCK8h7paDu4ljeJn 3pFRs7YtdVqbA6uMgGVPvRiI0v0Yc4ohjx8m2SpdwTNEyC11C217BZR53h5n HSbB6OF8p8p1XDxUHNh4fEgSCoRdo7eMIvbkqTjl2jDxlfllk/MxLs4tKrYw kBTB+pA3dJ8gOYSJiDlnGNLQodOfmfSAg/jDO19r+tFwNe1e0PZaAVZk/221 WULH9YXeiT4VKuDdKP/l2SSKJPotkYh/FcFb91ir7zgT98zWaw3U8+CRelFA PkWBh9nXAnWCB4qh8wbVjxSklIxsTZBSRlqSW8L7eqFev96cJmK52FO6XPxD 1CyhNR5rpTvGwv++DCckPSXDedGekvAgDjKl2YFVc2R43emcfyOUj+Ofl+za 0kSB+9AHwyATHtbbZPkt/UYFb/1GhplwX6cW9YdZ4gz8GIq3W17Nhs61h81b M6cJX7JcfzVXBte0mkjZO2eI0YqPToSOAhadafV/oimGYCU5Vv0YB7E3ujmn p6kotf+vx99NgJmclOt6EmIYVnscIFfNQd9rC02l70x8eyF9+ni/0O9u/PPl zT0aJmx+qx0S6rkqbnWSmOUs4arr90HjMx8pF3wTrg+S0Hil+mBDhDzE530M j71GAWnpr3BBjizWUYbiwu1JaCHF5nUacfFyqUmDLV8EIR3DBeEGclj+5UVc 5aVxIiuEPNBjKYNNSqknghX/EkrbX8R32Apwbm3Re/IDMh7+vkIRdVTAyT6i Ius5A5WFOp9trrJRVK7ldS2MgqwVjHcuRYqIMXVvpjymw6laxb/ngSyW8Rp/ lL6YIXg7PUQZFnKwcbcgm4fRcPTmez+9Ojn8CBrc6+g1QwjaEvs/JcnA84b1 j9+8EYIX8GD7mDobO8U8BnyE8z9jjqgez1VB8srly01mSQipOZ/h7qmM71Nd Bb476LB/45z/+I8yOGeCRfoymRi709gWJa6AbX1uby00Z4hhVU7Wwhgl7I1o LD6YSMfLks8GQ7VsDOvL6f+vcJrYqVWUJspSAb3WqfKq0K/aA0m2xfJsDJy4 O365Z4bI+vDt1BRNGTUHydXETUlofnlT2trEw1P10cOHT1HheYDTYL9HHtds RbomO4V+5G2f8jyCg+RFP5v0zzFRnJssZRfOxvfLq84vjRGBWd7C7BZ9oR9q dYjUiUrgPFX2dViPAi6d3q9a+pOOgh8jpwzb5KF3TrBXdbMwf9LMPVpIChDU sWyallCwNjt1Va4GD54lu4pX75BA6K/Pg1ySAK9yGoPeBovjwqfbYxuvyKCl Xi/w5Lsx4kv/0h952gLMPrabTjIQQYDz6ujZbgEW+m1/8ekNCcnUnC171nKh v7vc/LIFCYMLHUelFbn48CK+e5EVCVI3nni8nJuPz6P92uU24nDumrK5I84H aUf9t4MrJaC/Z1d+lZQszHads/FcPE08e7TgajpJESuDjnkM5cwSEXOIr5aQ x3APo5T5cY6oKrne6r9zHu5HDW8oODlC9NpFjl8PlUedc3p060YqWv535oXk dRmw357WrrOdIOZuVDGMZWQwrPPC7B91MiI+vnvcv46F3vKGwuiyOcKEnK47 9UIO+vY64T6r/hIzuabSVsv48Em/eHD6iAjertheNu6ogrD3occiCyWw9sYn aY6QX3YHtp9qaSAhQrzRdglXEbtXKWWVmlARXJtmnrOJDRXDRku7VVNE+7jO krXCfWXcfoWIFVKwMHVNUzdNARx1K4PyWySUhJn0WnuykOKYX+vXS8Y2pZNn ex8IeW3gGbkgbZoIGvrlUcfhI1Ulj1fRTUPtsbuX1Ny4MIpMvXeim46J6ss/ BhnSSPYxT2PeEcGyjU47rWZkQS0PStGKmCKk1j6v5Zaz8ezo6beRUXOEloNF fGmQBJS4hsF+jjOENUnzC094r91xHiHzt5EguqBdvLJfBvyLrCHtwini8ryq FYvOsiHfWF16bh0VsbfedkXfFOaRk4PvoWAG6K4RS47GsJAg3SfprzVH5Bkc CCuUEGBXbw7Lq2KOcLkXLzlwgo2LMscmzukPE/unrzDvNvCwyijIW/ucKEzL unwc+HJoZXhv3Px6ggjpNFmUKeTXeM1LKeaiNCEXHju55y8f149foXheI+GM Vrfr3UEW2IeslKqnpoiFGdeIiUIBqLN8+aE0CTx8wnacHuRgw6xtzbJREqYK x3NFSXLYMtjwbnjRH2JMVn1uz0pF1D7TEO18S4eo5irleR5cdNbGLkk3IMOR EjLf15mDwshExq8gEihfd9VJXZUDeXGpa+LbaeKUqLVKyjE++p7yJ9lBDAy3 d2/M9xfO4x4Q+CBmnHhUei62OZCP1aYldY3WEpDobwoorBfqy6pSdEPJDOHv U6C7MkUeDV/tN597MUq8jx71XMBQhI35nauTUgy4eHDvBwoUcfvLoHr9cyb+ htcO8BMV8HGFlPplKzLs0q36OqflsfFQ9KceZyqeySX8c6ZQAST/t1tCRShQ uRCZeMuGg1ZZU3PXYiq8mFPkN7vZsE/zqy87RIdkSbxHzUUFiK+19zhGmyaG 638EqGyWweRPv7p7NnSghqrofJeLkuySQ9bJ40R/bFfOvKMsRByua7ddOUe8 Z/XmG3zh4GbHTg+16RliZOmX7iN3FWCwOi2i9DMNLn8sV+5ez4U5aaDz8zYK EsJn9jRdVULGWPrk87VMVFeXnJEuksXKzMZGNWsacvf5GA/tU4Dn6YF3fvsn CMeiBdUdakJeo1TNnEwg46XYpZ7suzwY27jOKjtNErRbgTdPanGQLm6n084V h1lau7uDFhvIjlc/HzxHGIgzR85R2SAlZIeOG0wRZ11Kpl+Zc7Dpxn2thVYU uIxVSkt5ySLZPZKV8lYEJmpnHny4JYc77GuVhpNUGLipWu/QnQezARmatyIZ FMXQjjcTHATdkYrdL0WHV6KC2v3Dwv7jt/zEHqEPccqVTH9kKAhzZSy1toKM BLuSgJoBOWjv4zEUlpNw/K3X/Wc72VhdIhFBeSWCby2GYcus5bAnKj/TT3gv X+/q4ngyG7sznlYuzp0g0q3M719mqGD3kXqfKCFfeU7nHF6gJY/AG0zGpuOz RPqRI79DLXmgPrHOXaPGgI8tnm5MEvYHs/KoCELob1tsG8JSuWjX7zJqXjVD 5EZm6zAjuYhworRGB00SpLPl3LvdHGhX+U89LBL+F5d7nxu1ufA/1a2j3cxE nr1NhWW8ANzazqOarnTYOke4WsgLUFGiezRI2GeY+a89PFXk0UtdFrBZTwTz BlNujjRx0Zr3omr191nCyDCM8vu7DOj9H/r9ZWeJFj17x6cUWZyIjUl26Jsi Xlb2t9z4Ion7E6MJ7vRp4vHH0WJVIz56PPRXuo2SUdjoGf11WAFjbTGVVY5M 2G7rVeW+YyHaxi9WL4KEMbfGfzc+EqDWkkMJ8BNH3gy7I82ah/d5W8SmlUTg fdvK1sBbgN7i5tKPQv2/vv9on/9tDnYEbw1ijlGQ+8u+zpnHxr38PywfTTKM crPFHMLl4JvmK/Czp6Knfey071YllGzSU32iLYoVdt9/3ioQwH89fW0ni4GR rk7LgDFhfkc1fDA/RILv7P6ya/dZME6K3LqP+p1wPXAp/MJPWThwWA9Mhfy7 3vTirQvNKti2ZNdQwUIxtAacfvxO2Mc8kw/Uf05lQHeioebUnAJkVJgeB46J Il7js00mWR4zL5kFHAcK0iLL216dVsKitxnyHdFiSHh96rTNCgHKL0Raaccx YF78Qez5CS42NxdfolWKoKWX8fLuJBc3WkwS5x8cIbSvcIiQ84rYLu8qETMr Aek7mzPc9XloV7vm6bpGBFqvddPnC/MktcT7Sl8FFV98XX7qVrPwaNT/79cS CuauCvJkRuURHHrpnoswf9QaS5c6SHIhNVPGDtz7m2jWDt7LHlTCj10a3160 i8J69FPbg0I+dKpy9kf20hD9J+Pp+n9YCNy3RadPyAdmiTGJHU0yqDOw2HpA lQKHlevlskM46Kq8nWlcM0pc/RD8uFdB+H+SlbxL9s4SOyuVzYsKeEhj+Q3k d4uh7Zsd1esVB+UZs923VlGgr1X208JZFrusdhjRy6eJS49dFQo7uGiiR9zp GBVBRzt7YU4DF//a+bvoGjMgrmF6uzBWATVd6wK7dOahuMfYyySFi197fett hDzIuq8bQqqSx46gh/IOomIwkf23qcCBh/Lx/H0XJBgY12x1vqopDd5BJYrP g3GiwmDX7uvH2Yh2X5kVqkDDPh/x7WRdFrI+9hxqTf1DPLVwPvlAhI+IaCMt t1BJbK7SPK8cI4N1wZYF+/eNEYZJAytdhH0sdmRv4m1hXy4/vib//k0OHjyi zPQTQv5oGv67MH4BajMtbo18k8T/AQIU+OA= "]]}, {RGBColor[1, 0.5, 0], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVV2k8FFwfHcbsZozZxxaiEGlDUc2hSIoWZSmFkoS0kC1FJREqKgrxJLJl KaJUSKXSppI2URGhbEVZ4p330/107/3dc8//LBpbdq3dJksgECQyBML/V41N h0tfuPyTqItrypZ50RD88dDugY2jkoPeTg56nVSc+bzqztTIXgl/t1K66k8y 0sdC+yIeDknuNB5uVR2iYOo7jZfdxTLY79Y+XXs9A2YG8z+VRExIymvWxL1P o8N1/IZJxrRxid7pv+4PptDRL3dqV6v/gORzXdIZ81gK/D932DY2E5HgWDS7 ekgelqnxHz+1EzG4fU1vnCwT9+fdcNFq7JP0OdD2jnLp2B0/ZxFhFgELJ0kz WSEMNC672GUTMiyhWDsaC5/R4MUTlGdMTEjoaf9sA88xQD1bLf/wwbCkzFr/ zdavDFiQR0fyVUYlgkeqjd3hDHxkvVWbsX9Y4vRwsuGBOxP3xlXytQf/Sj5a CaOCPZmQ3d04fY9YHvWvM4/ca1bEUk782kvXiNB0XJZZ/oUFBQuVa1aVVPzo 5CTa6LPh/Uwvz8CVAn31ftfXKYqYXV1W8zBLBvnf5n/bc1oeCzdNUXI0pSCa pNY/ZMlB/HujTSvOUNBZrlmilM+FdXu4mgNVEbp2Xas1ZMSQW0yuSX9KhtqS BkuyoQBf2a1Zy5pIGDEWyNQ852KvCdXNwEsWPQLbtb4DigjxV0sOFVHxfDUz O/6gEuaHFtT/W0pD3iLrZf9oKji4mPepkUdEZNmABd2TgwUZcxMFdgyklHlP DHUpYZvztyWJ1yn4nMpotzrPx/ALRqOVFgWRBbW+N7N42MYsVB/kk8ExuzTj Wj4PzZ5L6Fe3kaH3PGu0qEmMJYdfFUwNl8eGmoZPacf5cFHV2Py6VAGf/d9Y kjkC1EbsNk+IocKyr1fx6Wwe5IwiLoxsZMP8cv6L8csqyEofm173jI5vFT2B 7gIhTmzkT3NcPSZZd37T+WkfFUHY5bZ2YA8FhQWPA73HBNi732N+SasMbHNa Y2cZcVFRfq70bgQZl3RXmC3q4KFwPdW6KIeF8mOOEy3RKhh/3BDSq01CJan+ lNIZBdzQXh6lv4SJyNU2G6ddFqPnS5xBUpYcygn9/524x4Jmr/0zfel+UujO 461KQowHv/Bbv1cG83MbG9Yv4oPKDjoev5uEldUyzTw2H7ZnonOdNo1L5JeO HTs9xMRr3XWH1MWjEsf9Sg6jhWw0ddy4TvpDhMfMigwbIQ+mOf0Nui+JuEsI ydP7ycW6ADVjG+l/uqWZiRYsFMAqzCcpMZEErWW1H8/5CDBjuDTlXD8Jv3sZ 5ldNBBjUqa81M6IjyKNFiylWwpKa7ffUviqimpnkJXquiouSq2a3jOVwXt99 fvRcLqwKjaI/vWOA5dh7f38WH2F+lu9X/yZCf0Hb1tYoPo6+X3z6sxoJan6P XB/UicDR7F4wNECFw/36W6JHIrhvsXtWvJcGo2iXgkfT+Diep7w5NI2BpgYZ 1tFFSuj1CZ76fD8ZMRrP6fqRPAh26Wrl/KKgeOodm8tMEVwePfWtjpuQNJza 0K8oo4Cf5dbKe7JYSH5gUlbkKcb3a0Pco1/6JOkrjaZvO8mGfrW+1nJDeaRb +ERMLhUi3KOHzF4vC9//Aqbk+3DxM/tDRaCEiM6tPjJbXvNBLH++o6ZPDk1t Ef4mUjytmh4pm+6noGoyNV+nnwfJuSfPH86nomblm/1lI1yYzs254rSOgYTD 1zX973AwZ0OfwZknDAQHVTpq6/LxZlI5Z+NOKuYE+8cYlfPBfahrO1rEwaln fnck69Sh2zzX7GM2E3b7D9R9e6mC0Z4w45B6IjLTXk9fp8uBfPm9eXW32eh+ udh+5wcpPmQrH8M6OhI943o7RkRQZ2R0hqoxQZb8DXowIcaIQnFhTLMCVAPu dJGNxWg2czQO2aeA3WFhekd81PDydTPFxouMsFbXjek9fJwJXK6zv56MC/b2 zdk6POip3xqyTqXgcHFeiE4tB7EjEw67KRRQ088PzZ6riAdTHn6yMqTgA82K cnWdEJWmTnRyDBOFTVbbiyyUsIZBL2FF0AH66jVnVPlQnSe/eHDWuETFzqrn 5Dsmzjpr9RgOEtEUbmsa/pSLp7aPn0V/JkI5bdLwrz0HoV9W/Gp/IYvracs7 B6GIL2tSWNnSeft3LpfZ9lMRZTmpq9peslH0eMvAb1tV6LuL5Ds7FOE0eHuT 7yJ1/GjmH9i0ho1II7N5+tZS/dt7LV5LhomahDRvN7YIqT8rVbR/MWAiv6+7 9gofVm6sl0+amUjvsWpfNCzGDbXVgdZFFPhcj3lXu4WHXlLwTdoONhREAdZR 68WYXvf4R9kAAbYZY10OugqItKlrObiBBsPgKsPbbA7UGoaIG7LZuGuRO/0J UxUmnz3KZzkoYPXbrTMg5f/WE/aDQR9k4NhXIRSqcNFsV3r+vT8TOg3Wh8uU lXHMkN5jQKTANzyBdraKj82RGx8wGSzIaHWcNr+uio2BWql0c1lM1rx86pbO xEe18J8JMWTczZm2/DSRg2V+x8ICq2g4nRz3vl4ggsFcusLljbIweTX2IzKJ jRtTctinralImakT21rGh/b7fmGWDRUBnXKxQbelfFjy1cPwABtPjVSeHTRW wr/vM4ZmvJDqZfuPhB0pfFgONK/6TqcjIrXBv/2kAK2+Rpw1F2lYUGi13P4Y G68c3epcDrHw+d/2/F3hYty9N95WMo8Ni9b2vOv3VWHX9n1H5gU2CLWGPqO3 RGj09LF0i6Lh1VSJ2bPffNzVK9lC0yJgmffOE+uGpbjrePHJUn3c47zB0+sl H9n/5Fhrl5JxvEpjlu9CEcTChRrqrwn4MJphm8LkQ/F8m0H0Kjr8io5iYQwX mw2vpZ5OJCOp28Vn3FzqT29dbjg0s/A1r/9F9QUVKLbI9n4qIaPIZ++s1c58 pJab5kimyYPvW7p77IIAPD/3mvvKJHic0VMOvs5Bs29p3pUjsrBKCTDwC5Li /evkyEQiFc+y9kyP+8qDdWDRYqK7AkwsabmVHUpYoCfJdmfIYE5kzIEhFhci gw6DH5qykBvD+7NvFeAt/9QvrJSDdzaDfQW71VDxr6El+gMTsx5nK3UpKeHg z6+RP2dQcMpA6/KRD3z4sotEsn5kuI0VDmU/5cNpumn40stM3NTzTPq1UQm/ j6kwW5JkkTSiJ2oK5eJJpVAvOEoBWhrreCaByrD+S51p+1IB/501qbKVnie4 I9/S6sSCl2bumNpOMerPSZS/35+QRHscP3e8lwt7613EdDYJUYrjF1768HDF +O2axfvkEZLN/tMqK4aFZ/GMnUIiJukrx+2aOej/br4qzHFUklWvrOkYpIhy s60ebeMy0Ht0Nb9Rl4dr+0b81rkywc78o+Mk5cd28lX744qKmHfnG+GgnjIq esx2JgWTsP5b21oZqa9f/i9lygN3MkrG+m9t7uKirGD+SZdyWeSX6y0QDgtQ te3zorpPRFh2R0d8mcNFkbzBykweE1bqQ8vdmkQ4lCafP5Eri2Vq6tPMeVxc j/gS8+gCFc33/zhHbhAgomW8rmiIiLzxzADeLRZOXDWYQTggh12P5lv8qmTj 2qVPPU9ENFQfkFv1LYyPQme75ho+DRg6tFrmgAD9ioE9Y57y8PH+4T2vS4TQ Kwl9M8PZaBlJflvlqQxmdvrwtV4SdCoOVKqnKyBFT+Fb1zQKEkjX3GIUhLD5 UTcelUnHnWyr/j1VYkSZf8u5a0MBn7AluD+LjfS3v0qsP5EQWnr9x2x5DiSi Qr2uMTpUnR7/yBwTY6fepWplGTJqtW081aV6mpu2Z0zAJSDQ5vkcUjcPLk5H PMIC2fCk2fpoOytjdKziDTVeBgU3Zt+qKOajxuPFiTwvBpzldrm4ZojxIsC7 4/VUOiKDf9mpE/m4FP6Ptr6ejo66sKi+h0rYcmRT5pZ+FgZ5OVVZeWL8ncdv RBoV+fm+fcWn+BgIucO7u5KJFeKS2aOFfOy5NU/JfZyKsdMbKNd6eeBkCV8Z GJHwwiD+6vd6AdSmXN/RKNUt1g4Dz/ADqqi52ZmhMoWCFpaaboaYi5QP7IMt PVSojN0KZ1WKcTo3p2H/gQlJsCCC2LyUh7JVFG0tCwqUhBUH2sHDD4fK/Vfv 0MDov/D+WJIAaS1l93c8JMK+Nv/ZrlYpzx5nzPXoJOONv0HhJbL0/U7pf54+ pcI0w/ROWQEfRvfybI9aElDgkbG4sooHO+vvTiYkChbJG90fe82DpcN27tbF kxI18h+xYjAHFHffd1dimSjLfvrmkUSMNOf7axMr5aBuVTu7sk2AKwfYdEY1 Gd751TdPBAqQVHCLFnmXhNR3ER9SjvCgfrn3TdY8Ih6ZjrUvP8WG9ZgNV9ty UqK/7kZ9zEwWjhjQXn59KI/zP2y5I/dE+MB52pUbQcITzQR968UCGFAILHtl NlZtjva+VCzGbGVKh9YVEr6FX5g5OYOHvrGvyabrWYjS1shbd1UZ92LfaZua 0dB613FvQj8fXo0DUbfDKWA7RCfuO8ODJ//2lTqqPG7P1hhP71aF3yHBRWsL Elak1589OMKHUnpyaWuYdF4UfTtcpfPuUlnzTHMtGyfknsR4MlRxxuu44zYG BdPfsZo3H+JjdcSxG+RdLDQkWy6xmyPl9zJZ8qM2eSQeYT6OnCpEenJZ8IOj RBBiukpjLXhwvGXOMJVhIaXa+u5ghLI0v96/GPuQilknLthr7hVCgTaqH7Fy QuLGb3fsdVNE5k2j0gX9VNQOOE4NGRegcKuc/jkJDcdNYhWJ1iJYv47fV0ph gPIo1jeSJIKzwG3vzgwSttR/Jt6I58LEWS7vVSUTlOWHC50ISrjlXus/8oiE QwfGJ+ScOTifr/05PZeJC7t0Vny4JoTbuxr+14t0nL4UT8yeK8DNjZoNLAcy DC+LDf+7KO1fsSft20oUQO7elDWUzEfnkbVudCdFmJxbuOvKbGXM/b3BPy6D DNOHbz/5xKighE9fkmVFhUfpQXmdKdI8XuZ+s/svEXJ3Jy/7D/Lx3GymESF3 XLLA99XUT8aKYA+0HA6ypOOcBiW3JlQJlwXkL2U68ignkyaLjwgxafaz7+T7 EUn65PpUlR5pb8l0//c4mIryDpXP7ttEKNXjP2yokvbYvBPFugYibBu56P34 y6gkLiN66X/SHDL4zZTtqEbB12FSyOzFysgQ1SXciKdg+PVWa/lOPthKgWWv kmlYec/VcmGAEHaOc787b2HAwXHml9XLxMjs0pXZoUrE+9vpQ51JfJw6+VeU zGZjw5+25PIhaR48f1f1LYWNb2aXtKwURPhV77NG4wYTvJ2FpXUbhTi3kJK8 O4iFihcJM8IOquA+K98mTuoXPPvLhwbOKmOY9uCt9W0qAi+6JA1IuDDfHXcw aZccLnZ1BXUN8/F7noNHVBgbmb9dAlIahZAsJ3g5C9jom0YY+dWlDGNX/y63 KWyUN6/o9mwXIWrNluBfctL+ET1yt4wsQp92ZkuZGxWiMJvtS6X99KIke87U bCrC+97wClg8KD87Qi3NYmBq8jGfYGnfCM4p3/1qBht/D49dL78kQp1rNa+x ig7XJWF/aqOE+OBJszOV8jP1hMaC0rN89L9dvs9rPgU9Q5usM39y8JbjPf+L VA/9jrCznxRzUbXaK2eTnwKE5rHBJzqVwE6JiG1yImNIfTyozUQRr5oOhSwZ oCEDwZc23xHBbcnNyzuv0SHY+7M610gJ/h7zqEuuclAetHNe/dsp+P1jn0Gn vbQPcPaee14iQsDhoTjvAhbkXmcmHlMTQ+lTQ1WHJw2uiRryWxh86NCbQtyn MXDcVv0LPVcA49sPFg9V0zDHQ3cy1liE3h23d64IJkBD7Udij7S/CtzU4ub6 SPHv39rUncyG4qunpzdGE9BvPPwxns9BnOHrWtl9VKi77r+RFi2EyGxVBvuC tL8svJeS1Sbl9yJyabLBpKSstyQ7y4UN36xBZ7syMtgM7Y5TkQLYybbvKF7O BKxaV5x6K4aXuY2wh0CExlLSzfP50vt04vQP2Mrj64Jlz6J2CjH6tWRhZSER JbJG7+uFHPxqE9Rv/kJDYOiazVb/pOfdt2C9OkdGUMXqL3lS/dtbUnQ1m05G oVeB6lgMB+uvjW55l0pFZej7ow861RC8y2dG6AQXw/UBHzSTp0DbLcCS/R8V vxtaJ083cDHVvvGFD4mJ+VtPVgbcE8OfVcf5G8qE9eyO+Id6Yul/BwQdzmOD O2XqnAveylCvnZnRXSELPa74BEGWjSWrEpYzgrkwVr3j9OaPCHtzPWsbi9nQ 2lxtV0WS+leja+zkHD68V4Yu6IhVQeKFzZQTYj7y1Awpc08pQzYocXu7NKcE Nt1qOSbN46pNtXbHtvIR3eP363GjJpoKPsWvseFBW4U5bw5NE2esr5KXpfGg djVk1X2JOiz+LOpWoQqg4Prqll+xGnLoThUMaS5MTVh0RXhFFTa/1zmrcqS+ ZWNhVuCqhv8BvFlb+g== "]]}, {RGBColor[0.6, 0.4, 0.2], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVl2k8Vlsbxh1FKqLCM+397L2fx9DEEZJELilDMkSOMhySFFJpEioZKpmK 0GxuMh1jCUVKRagoGkzRoGiSVKLe/X7av/1lrXut+7qv678Yz632GyQlJCSE f0lI/P/rMCTd/KJLGUavhtwutSnjUpqbcU+bEhr0OAm0NgF6srXUeyUOXvlK P3hJcLHBQ7ZCYSkH9Ue+pd/LUQL5T7xhKkHCaa6WmmciieodxPYXKwj09LW/ MTASQqOlSOPgbCGsJkz1LqSVwZU8ZWr9isIWS709Z5qEuNUdlT0kycPpc79/ X1/Lh4ejgZSFAoPl6slpOwaE2JUtu2iCPwVvoyGblRI0dobpJ2aMUkjx0zg4 7boY23vK5Iv28nBNqeeOTgmBXW8X263MFSAh2i/8njoJa1+boBkFbL31pYO1 wQQ268yoymnkISPih5V6I4UcO/n2LZMpbCuo4luOcKHdNcGzNlEAiUbVc0Z1 HFhUPjV1X8BgY3JAmtpkEUIaF5XrRjHIHFIPvOfJIPRhzzP1MzyE7Sz83BpO YkSxsWYVhwetgrHgthoBXIK4u8xMGCQnrt4wS4XGxR0aZUdjKYj9H/C6YwWw D/sSbtvPwdbXH281Z9G4e2u4buIxCg73QhLGVGmYNZ96qrxKhLZ9b3ZQ9TT+ dvoTN79NgCR0H+cfJJCVkeBnOYXB1ucjdubXBRiaUdV73orCSu3/zv7qJOE9 O//0tkA+psWrisekuHjt4ZhQp0HDy1ijDTU0dqdNp5Nf0/BPb/EPieejy1Nt 7ribAAMHzm+P2ESjQX3tzDYnCpmR4XOvVFKoNLbPVz7Ch7vltzUnk0h8s/hn wllpBss03oQPrycguUZPe/1TBjcUfz7Sf8SgrtLt7eI5FBal/0iWzeagfW1k u/ZzEonGNuaH2ikQPz3V8r2EkCqfldoiwUerjaC6dgmJnLKFjxtHaSzdEqzG T2PvxSSkenAegz7Z8nfVrC4KU/7rvC9BQblx3umTiyloz5RPkflJIJZr7De3 mUHHvlGocoUY8w8+LdPJxauk/vimAxS6Uk5Q+9MI9v/c8TgHtt8n3ygeuUQj RS3q2O0OIUZLrV1rW8T4/lLbaNBRhI0dm+KGP/AwvkPPNdJUiHsDRX2vu7iI qgu99zNLgGrBUftmHQHubKiJu+FF4NxfcftLG2l4DhZstIsjYHLlx/QqVz7i t/KYj58EWPdsw/PSpwTcNon1iJ0Enl66/F9tCbuOVmzcHlkG5r+8gyIySBip jV/WN+bhY9uEJ3JXhThhkmweQRIwC+xfJ6FLQLpA1TB/mwi+iw45Tv1FYH/E hcbiLULIT6xu1qqjMWqff5ezkMDn+Zevd18Toj7UyGXGSwbZXot9K1spWD3R 5E7bTYF8gd/7ikjQe6bAn2TweFmpXuBpCtElx8XB02noInM4/BoFg4y+9hL2 Pvld778WRTNIvbZtXoaaCBkN10d1ZzIoSboYpsr2ycPSU7K0g4TeaT//mj4+ Dui5Rniy+hxmms8F17G6l5dIlOuiMGJzoIyZxNZROUymuQqQ7rN7cLEtFxrZ 9TM2fKRgYi7rkWpPYbts//K//qZR9XHXmnW/KLht/jCnLIKGwqJOzaxTFLpV csPGfomwqanNICCeRki9hZb6EQYtq5oDZvQQeG+5UCwbIkC2+bjpXAMRWldP x6RnFNpdbcJC5CkEtv9WILNFWPODtzFogEHM3izF1EkivLsrOf2GKw2rM8VK Nz9TWNiv3abcRyLtW3z8X84Upii3XLd+ReOK91ut+u00Apq3dU65w6As6s+P SXMIxDUvnStnL8D4cmMP2VYhfA+vm+C0k0FxRgD36kkKe+UWxPz9jEYqIcx4 /U2IRPMvib9oHiT3EX2DVTRcAm+W/JhCoSfVofy/UwJEnL1q0VZF4mvhvvLY VwSuH9yvtayPAHfBi8j0KBLHLHbemmHAQ3pq3U1/LwYu0U8sd9mT0JkeNv2X pQgVXiWlvM00tiwIcT3J9r1XuyEvuZzARW2HyWbpQoxXRydN3E+jI6FJMzGG jz2Pli+a40IjqbLfXmorg2+ZHb6nz4uw96/8QQsZPrTm58koFpLQHTdT3G9P wzd83opRdwbhH1Zvsg0SQjP/j3kBq9+gScWfiv6loZ83Z1iX1WPh+jaTx1+E 2P/r3PjZSTQ0pHzweSIN8ob60ZATYlg33l+40ZxCfGuuY54lAanbstMf6lFo fOp6XstKiB5idtZBmoHBmtYCubcCjCb9mSb9jAE/mC7MaWR1RGsHRinyoBMc ZL7Rm8Sb/hiXDlaP2aV+I5pDNDq/735x9gQP6ypPGWyyUELCBbXyq+0kRF0a 2kXPSKTM3as0aMOHaq0LZ+AkBw/vVGzakkkBFnsVMiYxCHM12qvgzurGTNM0 sJjGJ0VNHzNJBkLneeudjtNYq+tu48z6/HtK+nxxLQ9ql1/aLa5k4NkocanD iYvigUT5x+z8uK8qju98wvZ5G0fvXj4JDveszLeZFEKKjt08Pl+E6P0xv+vs aCxYvPi5pAKN2dGjPk8GKHhofr3Ye5SHyIuvLtLfOTDUOeGUeZ+DKInR1cWq BJjYzws9JDg4z00sD2PrdGzxvN1tKEbriJxi7HohmqSr81cc5qEozdunZh4f Uq/qdLdKs/v3uazTkSDxOLpiOKGJwJEhFde75nzk7evo9/IWYYFpjXv5CIX0 ClyLVWFg/yHG3aOaj8P2fa+vbGfz4btZ/iO2bmmLol15uTzYh079E1ZB4KbB qQh+GoVfEeEz+2eLsN13HRnWIITeiPLko+cF8B2+8SHxqgDvRi1UTGk2P8pD 6gdU+Iidt27wTCgHfdExWV6KInzL9ai+s5xGTul8s1A/Bl9uc2O7ckQoFMss CPkhwoo/4vjd0UIEf1/t65PA5mOQWfGBLiFWS212apSh4LvVKuSMiM3PhVlF ictoMLRmReVhBmO3rMfuczhQls7ICtVmfVpV6a+VPXz4JCySLFnO8kOD0T2J CAZnU5SvFRzmgi8H9/RYHgolfxgFj7DreHdeiwOBjw7hTM07AeyafDd1J/Eh kWCmOvuLEnSNTVpK/3Dg3CE3ySCCh71bT1p53aKQ/Pn8003hPFTJbOtrZn3H yKrARX1cBPkn6c8KFChcZFxknEQizEmS0vWVF0KlomjLLVMaD5In5gbw2PPo +JqOS7L5qLm1WjVAiKTZZc+MD5PoLjljV+7D8tZEV+rNKhJLkqQzf56kkegj mv/WgMZgifUJfzUG6q0r7mo8YbB/mPt73Rkxzmi3iizY+VAZ89xyO471/bfS BY6aBFIN/dQ/7RLA2K3G0L+XwJJD/xDLnWm4pp79us1EiBCFJUmF9gTLJz7m 9+ezHHXB6PhQO40wZ+e29xkU/i5dEfHkPwazSvo5ycGsT0au3uRWLcR2f+8u Az4foRWz7shU8DFlS/CmyREERJLNC4XdQrztutzQfYfA5fzEz59Zzgs82p90 Op/GrxOvfhjn0NAe7DILzBTB5btZmoshiZDKvuUDbUIEhh3IkI8RYtm39CkX /VjfqB1bfzRUACuHJR76YgFqOnWrNcNpyNU72DIhFKQvpKVms3y1PXZVxBeW g1T09Z1HjBgc6RF2xZuw873g4da4FgK58j8eytMkTFXSjVv4NHSKKv/29WXv pyf6WWaOGOrcn4utTBmEZNbaySYyGFEovFnWQWGWrOnJPDZHvQruLL0BCrae XRMbRkg89C1WWPCV1avs0bGvbO5aOna/DlojxEeB3gbF9XzYNB0V0Hkc7F7q 1vy6lUbtPspwDXueKGcNjVBWx1kDefeOd/PA0diROi9OgOEbu1c98yPA945Q DLLi4ryS/dPJR7mQXfmyvVGVwSlbvk7lPCGulOV3Vo0qYwqn7nX7Ox4G8+wX zzER4HfcWdfEByxHbjghDqxl87VlOHD4tBAyG40G7SIEOKhb/7EpXgnXogLS I8tIzB9w7FFmOdlEPDyyyIxGQeKMt21iGodvXfgWsIvVR1ZJSehLDs75V4Y9 4LKcnKH+3X0dA+cba9LH3rJ58M75+YoSIWwMLBws9GlMV7w8Vm1O4lP/2C+L AQGu+NUbbmF5/vH9jw4mCgS0785NdH/Px7vxcwMv2dyofZ2zvHcqheo4z7TN xwiEcc1emaTycaj7+/XbWjzo71x982QUHyOaUm4LX/Hh1CtW3jzKx2aRnNLe 76w/XW/bTi3hIJnoWfmQzRmbGukRfZZ7SvK3x85/K4RwTlCw2xk+Bpblpsz8 Q2HabTRYazLQujKlJm0LA9WVPjfqj/Ohw4k+sDOCwvXT7cTNXcqYdjVY7usZ GhXtoZFyi0nMW6KPp7NoWBbdk12awGCt2u8aM/a90SgqPJ/0lgcPr0kXl4lI xMZKlVQZEuh8HBMpJcfm6qzeiTIraRAxa65d2UOhPkUv7xDLcd92zChZZczB vJ8fti4m2P3T/J1Fu1neXeHTlOotxJTgxKyHbjwcpmNS9nQKYWp0xCRXS4iD NXaGL9RIiDdKVpe3CFHs79OVvYKDVWFm85jZBPRlcu8PFpP4YhhZEKMuQEvZ qkAVVyH0rQ6m2dmyfh9P9VbJUVhgP3Lorh6N1qf9XpuXKqOwvvONUhYD74qc 6bqtBKZZDbq/qxShwcO+fdd5Br4vpW61BLDz5/io5DW7T8s5yYgANg8ZP1x6 PswgQC4rRe8CgyjrYecJXWKsbpBYsfEajX8NvkyYO0DD8fBISGKoGPLKnyzy ZFUgXfHQ4cIpZUj/Htd6NSjAWMbJlllvaGycWmZpGEvjZcg7xUpZCocC/jXJ nMpH0o7uaPONBNQX6r4z/M3y6qTo1AJGjBHpoUefT9GIcFnuPyAQoKlMKbM4 jEb0hsGOS2x9pT9O3Da3I5GXekfZ7YgI/7mS6jETGFSYX5Xq3cDy1C+pmBK+ CE4HzVZY+avC9NHFgLfqDHL81a+tZTlgYhrHtrJXEUvWN1+1uU2APFy4Jl+W j2RvbbXHs0i0LiQn2RSxvvKk99zoIhU0f+J7OyeoQK+t7OCH01yYemWH2/hz kC05FL5rkIZFk3kIl+VE20dz0o3YeRCs1SqtzeLi+Gd3hZz5AhR+qCpT8OIi 51PRPq46gT0xlfx4B5avl3w2XrJKgJvuKv+GfBQhsHbHmx6OCFK5fZUrH5Ao S3T0NqcEsDhULf7Bzl9PabZj7xkRNp+PVB2nRYic0dAdxvb19a5C8WUjPlLa 6u4+Gxfgln9HuVM5B5TJTO8rQ0LUBZQbZ7QIIF5479gdLQbVG1Qyku5RMN5h rXkxgMbVsg6dsMvse2Cq5V3dSCG6wgm/we0Edi9LLZBNEeFn0G7p9/8wCF65 f/LyHC6m0pYhH5JpvCtX/LXbg0Z7UKHttk8UnOp6qlTS+ajR/nzlew/rZ37d ucZLKfSZD+yhDnIRejREZ3OZGNLpSpemszqUldNZENPGR2KsG+zzSOjrOQ+p HmbrPPbT6bkuy70rsjzy9Cms39lq/+6BCKemF7b+fsEH93CGla2cGLmzizw/ PGbgViEdEuckgvqb59s+bSHQML+pLZxDw/iA9Y4H7LvXsnZqYKYtiTGj5VYV uQTE6rNvtX6gcPb9U6fTcQyGltreP8fmy2Yva+WoayIM1Ht9GVkpROoVy+ut +yh8mV8TWWBEoLrAx+hKjCr2WVkNzx2iEL66d+TFNB72h1ffvFtB4ozibYc1 L2nMLfDov7yIxkxlv3z7AySCV1W2L53NcvDx/IwObzE+TZNerc2+D/8HtRuB HA== "]]}}, { {RGBColor[0, 0, 1], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0, 1, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[1, 0.5, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0.6, 0.4, 0.2], PointSize[0.008], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, { {RGBColor[0, 0, 1], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0, 1, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[1, 0.5, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0.6, 0.4, 0.2], PointSize[0.008], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, \ {}}}, {{}, { {RGBColor[1, 0, 0], PointSize[0.025], AbsoluteThickness[1.6], PointBox[{{4.037197399453137, 2.8026304743979775`}, {4.499737560406586, 2.354643397349211}}]}, { {RGBColor[1, 0, 0], PointSize[0.025], AbsoluteThickness[1.6]}, {}}, { {RGBColor[1, 0, 0], PointSize[0.025], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, {RGBColor[1, 0, 0], Thickness[Tiny], LineBox[{{4.037197399453137, 2.8026304743979775`}, {4.499737560406586, 2.354643397349211}}]}}, AspectRatio->Automatic, Axes->True, AxesOrigin->{0, 0}, AxesStyle->{ Thickness[0.005], Thickness[0.005]}, GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20}}, ImageSize->250, PlotRange->{{0, 10}, {0, 10}}]], "Print", CellChangeTimes->{ 3.8907330573042307`*^9, {3.8907331128234053`*^9, 3.890733132825886*^9}, 3.8907332246350574`*^9, 3.890733255851194*^9, 3.8907332917736597`*^9, { 3.890734122716251*^9, 3.890734130815688*^9}, 3.8907350624635315`*^9, 3.890735095484761*^9, 3.890735136950403*^9, 3.8907362132748594`*^9, 3.8907362884062567`*^9, {3.890736938614626*^9, 3.890736952305652*^9}, 3.890874284724902*^9}, CellLabel-> "During evaluation of \ In[117]:=",ExpressionUUID->"94348e23-efbe-43e8-a824-47310ab63508"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.5645315839048339`", ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"{", RowBox[{"2.52779614389814`", ",", "3.325919784988006`"}], "}"}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"{", RowBox[{"2.2623929354661656`", ",", "3.824173782643935`"}], "}"}]}]}], "}"}]}], "}"}]], "Print", CellChangeTimes->{ 3.8907330573042307`*^9, {3.8907331128234053`*^9, 3.890733132825886*^9}, 3.8907332246350574`*^9, 3.890733255851194*^9, 3.8907332917736597`*^9, { 3.890734122716251*^9, 3.890734130815688*^9}, 3.8907350624635315`*^9, 3.890735095484761*^9, 3.890735136950403*^9, 3.8907362132748594`*^9, 3.8907362884062567`*^9, {3.890736938614626*^9, 3.890736952305652*^9}, 3.890874284756173*^9}, CellLabel-> "During evaluation of \ In[117]:=",ExpressionUUID->"de9942d8-74bd-4871-9e1a-92c33c94b7a7"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0, 0, 1], Opacity[0.075], EdgeForm[{RGBColor[0, 0, 1], Thickness[ 0.004]}], InterpretationBox[ GeometricTransformationBox[ DiskBox[{0, 0}], {{{1.935701629990119, 0.}, {1.0235177216625755`, 0.8069485876717896}}, {2.5459433791152737`, 2.528602686436138}}], Ellipsoid[{2.5459433791152737`, 2.528602686436138}, {{ 3.7469408003464038`, 1.9812249221460203`}, {1.9812249221460203`, 1.6987545497028451`}}]]}, {RGBColor[1, 0.5, 0], Opacity[0.075], EdgeForm[{RGBColor[1, 0.5, 0], Thickness[0.004]}], InterpretationBox[ GeometricTransformationBox[ DiskBox[{0, 0}], {{{1.284657961103049, 0.}, {1.4731847022956073`, 0.9659094461642305}}, {3.075023800465487, 5.504164078130148}}], Ellipsoid[{3.075023800465487, 5.504164078130148}, {{1.6503460770254434`, 1.892538455979277}, {1.892538455979277, 3.1032542252670874`}}]]}, {{}, {{ {RGBColor[0, 0, 1], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVV3kgFFoXn33H2IUsUbwQj4Sie0roSRISvVD2UkhZsiVlSUpCJKQikjVr ytaKJD1CpRIJ2YaxjGH45vvr/nfPvee3nN9RdPG1dsdhMBgVLAbz/9PtbDfb xAAH8UoKcj0iFLisdfJN/doKGt745pV1Bw/t3LJ/PpHEQ553axnjIXjQsvQb viO9hDpqClOvNLOQTpPkjTIjPPiU6dxbmuagvTsOTBVKYQD7ckdyKB4HTSuc L6dSCxrlSy7cd/Fko0fOzmepP3AQxOhbXnOmgGdXYrxNAwZ6Z5cM33sRYUw1 zbBvAAsvHqUGPi9dRe01zpTpf/EQonUl/ucWHGQyHyq/y+egbfccnCU9uEha Tb8/oGYVXZdcSU9qI0PgYbKnfAwWtK9J3PCTJEIF4+v+zFwscGne7F16ZKCS A3LOxxPANT1sIvwCAW7bn77lKIiDXUa3ZCbDcFDdMXrCw5SNuvYVSFg5cVAT N1T5rFJD44+Ec6Sd7QvInOM8wHnCRnIh5TTKFA6MFNfnHEzBAakgST3pOgZS UzKnIsUwYCah2oG5R4D0ehImt2YQmTt0drNPrqC/eDv1Hsjg4HS2pIRdNB6k uj9ixvfjYMPd8K4iGSpsyL5dOqUxjo4+0sm0ejCK+rRHTG2FcXD9zbS9TjkZ Xqt8pLxXxsEOU52GCgkiFBgcU67UW0DN/ldafIxXEPNZRf5qxjRa2GRmP5/M RT7rglX16EQwte+0SHpGgqKnEq/39C2hBvFU+51Fa+i5/Iur7kMraChiuNlL Ggsnmu9cfF+Hhcn3cgGjfhj4Qw7a/Z2JA8knK7MsSxw0/D2yMlFKghGqTe8G +TWkpUde3YsjQIWUmFByFwlqqzBmMlmTqLK8IgdJsVEPjkG7dwMLUFAgpZ6B hbflC0FZUXiIvmP1o5T//z1XeyJdB9ZQ7og17mYIFxXH2f4cfEyAY0mh8umS FOD8qSVdvzmB1IvNtrhqraC4XRJB/wny0AtJIV1tezzsItczk6kEqKwKkF2J n0PDw6rxIXw8hfdkfSG0UaH8o4693PAccnxGn67OwIDSvZCEyOcEyKHLyUSZ E2A1IyN3LmoeeV0jR51bGkKh27PS/fIXkVX9NEuCz6+YZYPo8L95KHbbCF3f CwcoXdG+bT0O9imOBToq8/ulsle0WZGDEhYzD/XumkL9uS0C4pEYsC/fJDZd TQUrl2UT9sU3iGIe/rOA9QVdFdbKUauaR2nHk87XHcHA2HnxjLJmPLjIVGCT h1fRH4Wvyc5vx1HRw4bMV1cwYM2iT26PxIOnTNPha/vJYBRrFxJdR4TRpt5D YQ1LqLvqHcVP6yfSXFuf6P4XARQ+nec9FuttjFBovZKrNY6KC47ObDHAwIBV idnDQTaynUsMdd43j757+cylKC2j3zOpJcZGa2hbq0JyQsEyGnE0nLBLxUFh 6uj2BxgKFNy8I1OUNoeKPWdObvEigWFns4Fs+Ar64NJw8lw8D3F8U0s/SPNQ w8TGjnJdDhIwn1GXsMHDSwO32yQFHBBiv7mO7MFAyS/R701DHHQwbDZt5igO cijeJ2OPY+HMpa59pWQWstDFSdrbYMBCmZnQu8BGNlVOoh6CWIjuoQY4uc6j 7l8NViUbp1BJv7618dNV5Lv88fEY/96y8Zxdgi9W0RmDnsmmQBJ4/xDn6tN4 yHRE1UhWdA0FL6Mqyisi+N8WDOukLiN7vLNDYAQG4qy7ZZNbCdDf8qC6KpiL 0IDVX1yveRQshwtU5vPyhXgj11aYCGWWoXOlU4ONmTYvM55P/UFXkqJ9pE3I EKd3+9pbIS5KU1YnEd6vouc/8b9Hty4hhVtV2c+hGRXTtj20/raImhMkD107 sYwSrKQKtvHxVbfn3uDeXUS2a6eiebJr6Lxvnd07Qxy05rWkD+5bRbs/KB5/ ND+O3Hf3j36MwkBhY0/nsYsDyM9dfwErx0J2BSmYd1HLqMLsraSS2iw6+3PQ Pe4iX1dXr8dzivHw5niinmDnDNqDXaxszcLCFY8kvY6tBKg+GRR7eyMWMvsK /svH8JByuKDw5B88GGEdZ3n35tD3f9W3lzlwUb6J1f3QSb7PW7Fehx0hw065 rSlK3Rho8Fgf7DaHB9sjdo9+ZUygn7cIvfdO4MFqybCvMLILxfx4QrXDLiKD fJNccUcc+KvU/v05jAaFhiwblRJ2o4/Q7UoV5TEUoJ1W+4/5LNoWQ2BmH15F aT8ObvttRIRvThuc/vmGh8546Zpnc18aLyBXXXHTFTQ4sWrbU7yGbH/19XNr +PPhcDotdsMiaos0/vmkeRmp3jFVcefrzQmb0ts8jQVVrXEBTPkK4hwYPt+f S4C2obBpTYsVFOLY1qOxxEHcjSn5WSJrqOnA0V9t0gRw9/2sMGdLhoUHZuF6 RB5qmso/GyVY19imFvpy4vo4+kF/nh5eSgD2gFyuzx4CPL285rR1YRU5nF3a XHZtAbWqvHlwKYQA0Yp5JUZJa3z9+kz4dvxEzxYjLCqq59BazhBOLnoepSow /su1IsCBkm9O/xjPIdazg2vLA3PIq8DotLZ8F7px68AhUzEW2jO0O0XahYvU Q1UXB/vWkM/d3WZ1DXPo768Nhm6fMKButjXKErHRn33b9Hlqq4gTbKn57C0J sGwXy9ApLjrmcqx9LB0DxbuEyB924KGszdbxzfxHlKw3eeW9FA6+Jz0ypXmz 0JxkaWbeNy5aL54saJrFQqspezO4uitItcF7yJzDQ6GazI7VECIkn3p6/8nj BbRJ9o3SSBgJ9gu/DBY8jYPZrYoRdedJoBAsfNv4OgfVjp6PCl9HhDaHCNWC SwSQWUmkBx5cRZ1Koc9Kt48ji5mTXP2RVdQf+2KS+J2DHm8tzCPo4OHGnRL3 XFMM3HwV1pOaiIORsePFR9Pm0Sv20x3rKEsoJy3iZXJZC7qzbbZvTGIWXYpd UDu4DQu17oHtjvy6bjt81HXCMJAQu6nEU4GFdBtXPG2HcRCaZXyq8Rifv1bH cXG2WFBr9br5a5yHDrSyvAKCcTDh4bZAxVKBua7JMOjHZzS4Q+P9DQMusrPZ 6P+znM/3O2qi1leXkd+yh/+ofzPaEtuif2J5GH3r245bG11Fdv0gYP0UCxva vUKbZqfRyJbLRTQcBkTKZsvzu1ZQoM8Aq01zBcmfkB7VVGUht6smhSWneYhR H5tUEfsLmRdabgnZhIVN9uunHXADyEnIE5/6mYOimncVPvn8G22ddPI8bcXH lzi5XBLLn/O6CUW0h3hotG5viomZQRoVOqyvJzBAlpsKbi5fQ4x1gTdbUpeR l3i7sv0hPFQLnHWR91tAUl0aqUxzPp5RQrrr7SiAdbd87p2zikwZN3bOyFFA sRI7dGSQAuuop4aCNGiw5ML9bfKHAsreBgEpO/EQa6RRLuxNBvb79S/C+fnm WUWwgySdAlarj00HApZQF9X8zMFzJHC9dzjvN99nX9uUZV/RpML3/uLweD4P 4nnuyNGFCpJf06tfRdHA52OujK4PBboaLyb1ZtJh65ehfu46MpzzV/HC8PnK apVY+vcTGTIGHle8bsLDjk7DXW+lSTChsdRQp0sAfSxcc8yjwNBVstshMgP2 Bw1uWY0igoX95k39dWTQ9cEQGNvJECbspEzRpwI76ov/sB8d1jNuxTY2MiAs MDFUCkeHqsaz9evUaLDG5sEZfu71NxZesH2Kg7f9MuzcQ1Q4MKZ20odAg1O7 8X1dlSSw/4ZS4lKp4PvOVYLTQIZ290WTlctkmBq/Iix+ggQDC1QidSMFMFKi HR/yqeAniktcKqfB8c45E54fGZI8D7FIihg4X3kzLUiQAhrZZYYLFkSIfT6i 0TpHhqAPVO6un2T4biMi7z5OAn0HmWc3KwmwpuyQvlZBAW//MziTLDIUNVA6 2UNk2Lz7S/3ox1U0oHP9Wt4qCeQIgU+iU8kg+CPGNFqeBNbB/yjpHSVCoSrr Y+/fJGAm3VAWu0SFpxtIDg1tNAgkDURY72XATOkoG1dDAfHypPJpbzpcSfiq VhFNhuFTXt0d0RQIY6usXJiigp1we/WpeTLgJd3CO83IUD+QKJX5lAS9JeJz Jd+oYLJf+owtP5/8Tu8ovy9FhYKf2cNFjTiYdIvZZLqLDI6MvtPdyXiYo/aK ttZTwDIXY6Faz8+FlxsJli0k8F+v+MDLiQJoH9v4X2c6tG/WNNMpYsDvo3SR pYNUyD9gfVDiAgWeZ+1oc8+mgFzobFVmGBEEE0seZG6hgnJtT14chworgS0d 5mJkiPSwaAkmkqHK1/IzpY8EhJq8C1kX+LnbQ95aJJiPh+oX0VPv+X1RdZpI zaDAXgYl5mk0EQZIIjS8NhXo7kYXOt4TAdOUxZqJIcEpj03pyktEuFljIIzl 86VM0pnzQBIPHirMFw9mSGBhm6Zl7kWDV+UldIotBSJ0/tRNua2icp7U58C7 RGC9KaifUaCDS++msLl4PFjbOUlkJ9NBWkLqxacsGth7CjS3igrCQFXnIYeL DPBrDUzeJ42H9APe6inFAtA2ePdQGQiA0vy/va7TdGB3l3W5MEjwX8jlG8Zx dOBJCDUN8/eR+ueW5Uv36RDBomgZ2BBhb4K4p/czAVDTas10TaXB3u5U59Qz wrDo+bpf4qMgtE30yy6+EwTlHy3a/UcYkEzcO81UoUPgo7Xni3xf2FmSsceW Rgc1gfEbAWfIoNi69EAWBOHt+5ZblTVU6HPTf8TBCEJxhA01bacAaAuTh3t/ UAFlabtyZEmQI+EwjuxpkPCGzKieXUX3Bx6OtywxwNOg6mWMFQmGvwVyDssw IPDUmNfFdj7u7Me5ATwa6CdVGe84ToTLDrp7bb4wwEpfNNFQmp8nSt+Xu/L1 +2OR/juGr5PWljUHm2UqkH4vHbnEz5Pm901bFlkCME4ePaIeQIaj6mulqkcZ 4LHvj2VlDBleRJy4+VJTGGgyx55kEZjgT3J7Vl/MBPehhRoXmiAURpacUTJh wO2nyUWGRRS4bVRospBDg50vrxsFd5Dg2isPx+wZOkyzDm98cY4MpvOjcoWP 6fB35D/dsiYEuKl67D+evBCYD6fkS4cLwTFySX3DXSpUzxdVtM7z99Anpi4u f2ggzeS2dPL18XRyh6zvBBW+jCc0T83iwNAwLd9UTwAudQyViAfTQTbm/i1K nAg0+Op0/1ITBjG9g537jAXAWeysrW8LDRbGvjCkmqmQ2sdI32RGhMyHX4MW +XuPcqXb/mYTIgxaBDXm/8MAcqVsU+M1AuQFUzsaVJnwqv2sZHkFDVyupm/+ c1IAztWHORaG0oCnLVmVG0mDldfrV46+wMHo65EPYt+FQYNW2ye2VRhk9nzV qEUMcPQe5I65MUFRgN2R3U2E3DP7rOPjBeBYeET7umYBuHli327tOiHQjFJw aJdhgslJARHeKSZYaI25qhkIwp26S0J3yUzQjqxTtBBnAiYyu2Z8Nwm+X749 F4dlwrtmSaHUVgocCR2gr+gwofqliAj+AF+H4Yflfe+JAK60I+9jFAPcRTLu T6gIwl/nxAZ2HiHyeXN9b8gTJkgaqmXJKZGh4NHLoQoTMRCzxB5Zz6+TYVwQ LVAnCHcP3/cYEyMCSctd3O+uMIRpTE2e3kWH3PSavDKqGNjZl16tyBGE39+u Erb9KwzHDnDlPbVpYJV5I+4eTQSCok8PmKQz4JeK7qUjTqKAzpcRv9gz4fPe T9nOesKw89O2/Y69FFBIrO0zkhaCK7MvDsvxfZpdFWMycUIYptpslL52MUBB PezM6FYGPKJeY/UXYeD6w7rfcUxx+DKktUcuQARkS82tKnOpwAj2NY1exwQf StHnhGohsLsuCpJ/iUCJ1qW3ad/EIPUvU1dzMVF4U/B4SWijKKRsHLCif6OD G2N6bJ2pJEho4mkVNiLQkyUecvQTE9YX5vV+IPDf4/+f26+nEmBQ6+K5yGGC yFs7gc1dovCptu5oON8HrKVuj2p+lIK7RyIubOwShnfJxy6OciRBt4O5XHtZ FChmxpUq42LQ81bVU0+VAUG1XW8U/SThnlF2riaGCVkhPXs0KBLQP7Q5INxW AP4HT0crlQ== "]]}, {RGBColor[0, 1, 0], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVl3c81f/7xo8zOUaOcY4zjMInIiWrSO8rotAwKhnJatjl07SyMtohKbOM CA1lZlWUFkUqlUqSj6J8I9l+5/fX69/7vh/X67qe13zPIPudZBKJpC1CIv3/ +y3p2WvFVwzUVFkbc5r/EIxkE4fIC0wc1HupF8mZIpb9TXiiV8DA227fEZWG /xEsXfJ22UpRjKa9j1+xYpTYOZr5T04CE1LcNWsKQ/8QZYt/JpjVyGJB3kyQ 2hMqWO8ODRbSZKBuLdZrfZ0OZmf/YVIpCzvYyWfDdagQ/URlNaxlY7Ha76pG EVFstjBoI6rkIWKpK9uSQwPDbaeW1JQM5M1Uy/PzKci482DCv1iA953e/xyu oCPQUFom7oMc4h69j/Z2EEFBaxz/0UUW7mu0pgU+nCHm9ucm0HM42Chf4npu wxRhumXJlbmX86Cj/K/7scYZIu9LULVrAxemis8kXAMYMFu2oOi7qzJkxlo2 kIzoiEr3divM48KtmMhdHkaFnlut5qGtfHgWNjaeDhRFme+RtkcMHg7v/FWz YpICS60FN4/bcqAhKhK3a4wGS8t0td00WfSRBDVXd5Eg/sezK3+BAGGrg3c/ 8ZgjMqLTlS2ey+OK6hXJy4p0eDw/n9gULAPpW1akvrYJQrFYL69LnIfeoCrC i0IHKb/yyfLFC3BZsm2Hej4DRQp/hw3fy4Fx9lJOWy0JsyuikgwVeWgcfB79 dr8Ivoba8fpU2dDXX1kzE0HD+SfRHvEVHLze5SF+pYGMtkd8R5VLbMS/6K07 s4yKj4vvbFWt4EPf9N2jI/2ThPRrjX83ScsjPW6hydnJSYIX8n153A8uLDtT eac5FLBEtrRJLeaA/a2j1WlonIifM677pCeLro8SLrPCew09+pW3Y5yHT/UB 5lef0FFm9iI8VFMBmdmGW1QNmfgsMaJhFMUFtbfOk/adjLPHcw8+0pKDhzGV 8jGLhrjiIuplZUmM869wirLGiWcFlVVxKRx4Jui/vHOYjvXJKnzeUT40WgSL hsoo8D5kSWJ1CrCKPPK+bZMYBrK/W1Gz+Dj0Q+nvpIcYbOfL/ld/iA32Jo/J N0MTRAqHsFJW5WF4SLt0sFwCf1cvMH16TgAJ15Rc8RAakn7Wh6Vc5EKs5nzl 1a0MdBSV0yrqFRB56qGiMVcUqnzHstQeeZwttxmlkueI7W+ip15t4EJz3bfd zQw6ls8beh1apggNl4lLxkcZcBw3DV/XzsGt5qyKgBEKfk+bUI0VOTBm/1fm HUZH4/O2LZqtCnD/y3I5VkxGl2ti7nX1+fj30OrHObni+P5nScYab2WQN2RO 5Roz8dP0ZdIzKzlsNebFzdtARduG5qKgWDamI5zcV2wjo/2bWa/PGB+PBZu3 dFeKg3JEy1XsmTxa1jNvXDpPBz/XrYtKyOGner5ptAYFAezH6X5efNAywvfT nkugW8tt8nshC9od5rfPrCJh8fp5Kh+92IhQYjxvkZgh/NbFJY9ny0D17KCN VxQVBzKbTxqVCPdfdTFkyWYKXivFjMjU8PH3x4F3sm1kXFyg7KEVwUNx18Ar E5ooJEVNfBzzudAwSapdfoqOvYvz1qxLYsMcRkkWX8cIyqjEGVMLDnarVP+e cxRF3PkY8SwnAQLvPhmzCxfFiVcT/10P5mB9yoroT3MUBNMaI5YxFZGmffqg wzoxhMhHsZtISpifGtAe8x8TL59sC4pr4GDKydog0p2BAbdJiztkLrwVqtfS 51HxR4IRoOzEQ8KQctrmLBGkBPLCKvpkkRO7Y+DkwkkiYCK8h7paDu4ljeJn 3pFRs7YtdVqbA6uMgGVPvRiI0v0Yc4ohjx8m2SpdwTNEyC11C217BZR53h5n HSbB6OF8p8p1XDxUHNh4fEgSCoRdo7eMIvbkqTjl2jDxlfllk/MxLs4tKrYw kBTB+pA3dJ8gOYSJiDlnGNLQodOfmfSAg/jDO19r+tFwNe1e0PZaAVZk/221 WULH9YXeiT4VKuDdKP/l2SSKJPotkYh/FcFb91ir7zgT98zWaw3U8+CRelFA PkWBh9nXAnWCB4qh8wbVjxSklIxsTZBSRlqSW8L7eqFev96cJmK52FO6XPxD 1CyhNR5rpTvGwv++DCckPSXDedGekvAgDjKl2YFVc2R43emcfyOUj+Ofl+za 0kSB+9AHwyATHtbbZPkt/UYFb/1GhplwX6cW9YdZ4gz8GIq3W17Nhs61h81b M6cJX7JcfzVXBte0mkjZO2eI0YqPToSOAhadafV/oimGYCU5Vv0YB7E3ujmn p6kotf+vx99NgJmclOt6EmIYVnscIFfNQd9rC02l70x8eyF9+ni/0O9u/PPl zT0aJmx+qx0S6rkqbnWSmOUs4arr90HjMx8pF3wTrg+S0Hil+mBDhDzE530M j71GAWnpr3BBjizWUYbiwu1JaCHF5nUacfFyqUmDLV8EIR3DBeEGclj+5UVc 5aVxIiuEPNBjKYNNSqknghX/EkrbX8R32Apwbm3Re/IDMh7+vkIRdVTAyT6i Ius5A5WFOp9trrJRVK7ldS2MgqwVjHcuRYqIMXVvpjymw6laxb/ngSyW8Rp/ lL6YIXg7PUQZFnKwcbcgm4fRcPTmez+9Ojn8CBrc6+g1QwjaEvs/JcnA84b1 j9+8EYIX8GD7mDobO8U8BnyE8z9jjqgez1VB8srly01mSQipOZ/h7qmM71Nd Bb476LB/45z/+I8yOGeCRfoymRi709gWJa6AbX1uby00Z4hhVU7Wwhgl7I1o LD6YSMfLks8GQ7VsDOvL6f+vcJrYqVWUJspSAb3WqfKq0K/aA0m2xfJsDJy4 O365Z4bI+vDt1BRNGTUHydXETUlofnlT2trEw1P10cOHT1HheYDTYL9HHtds RbomO4V+5G2f8jyCg+RFP5v0zzFRnJssZRfOxvfLq84vjRGBWd7C7BZ9oR9q dYjUiUrgPFX2dViPAi6d3q9a+pOOgh8jpwzb5KF3TrBXdbMwf9LMPVpIChDU sWyallCwNjt1Va4GD54lu4pX75BA6K/Pg1ySAK9yGoPeBovjwqfbYxuvyKCl Xi/w5Lsx4kv/0h952gLMPrabTjIQQYDz6ujZbgEW+m1/8ekNCcnUnC171nKh v7vc/LIFCYMLHUelFbn48CK+e5EVCVI3nni8nJuPz6P92uU24nDumrK5I84H aUf9t4MrJaC/Z1d+lZQszHads/FcPE08e7TgajpJESuDjnkM5cwSEXOIr5aQ x3APo5T5cY6oKrne6r9zHu5HDW8oODlC9NpFjl8PlUedc3p060YqWv535oXk dRmw357WrrOdIOZuVDGMZWQwrPPC7B91MiI+vnvcv46F3vKGwuiyOcKEnK47 9UIO+vY64T6r/hIzuabSVsv48Em/eHD6iAjertheNu6ogrD3occiCyWw9sYn aY6QX3YHtp9qaSAhQrzRdglXEbtXKWWVmlARXJtmnrOJDRXDRku7VVNE+7jO krXCfWXcfoWIFVKwMHVNUzdNARx1K4PyWySUhJn0WnuykOKYX+vXS8Y2pZNn ex8IeW3gGbkgbZoIGvrlUcfhI1Ulj1fRTUPtsbuX1Ny4MIpMvXeim46J6ss/ BhnSSPYxT2PeEcGyjU47rWZkQS0PStGKmCKk1j6v5Zaz8ezo6beRUXOEloNF fGmQBJS4hsF+jjOENUnzC094r91xHiHzt5EguqBdvLJfBvyLrCHtwini8ryq FYvOsiHfWF16bh0VsbfedkXfFOaRk4PvoWAG6K4RS47GsJAg3SfprzVH5Bkc CCuUEGBXbw7Lq2KOcLkXLzlwgo2LMscmzukPE/unrzDvNvCwyijIW/ucKEzL unwc+HJoZXhv3Px6ggjpNFmUKeTXeM1LKeaiNCEXHju55y8f149foXheI+GM Vrfr3UEW2IeslKqnpoiFGdeIiUIBqLN8+aE0CTx8wnacHuRgw6xtzbJREqYK x3NFSXLYMtjwbnjRH2JMVn1uz0pF1D7TEO18S4eo5irleR5cdNbGLkk3IMOR EjLf15mDwshExq8gEihfd9VJXZUDeXGpa+LbaeKUqLVKyjE++p7yJ9lBDAy3 d2/M9xfO4x4Q+CBmnHhUei62OZCP1aYldY3WEpDobwoorBfqy6pSdEPJDOHv U6C7MkUeDV/tN597MUq8jx71XMBQhI35nauTUgy4eHDvBwoUcfvLoHr9cyb+ htcO8BMV8HGFlPplKzLs0q36OqflsfFQ9KceZyqeySX8c6ZQAST/t1tCRShQ uRCZeMuGg1ZZU3PXYiq8mFPkN7vZsE/zqy87RIdkSbxHzUUFiK+19zhGmyaG 638EqGyWweRPv7p7NnSghqrofJeLkuySQ9bJ40R/bFfOvKMsRByua7ddOUe8 Z/XmG3zh4GbHTg+16RliZOmX7iN3FWCwOi2i9DMNLn8sV+5ez4U5aaDz8zYK EsJn9jRdVULGWPrk87VMVFeXnJEuksXKzMZGNWsacvf5GA/tU4Dn6YF3fvsn CMeiBdUdakJeo1TNnEwg46XYpZ7suzwY27jOKjtNErRbgTdPanGQLm6n084V h1lau7uDFhvIjlc/HzxHGIgzR85R2SAlZIeOG0wRZ11Kpl+Zc7Dpxn2thVYU uIxVSkt5ySLZPZKV8lYEJmpnHny4JYc77GuVhpNUGLipWu/QnQezARmatyIZ FMXQjjcTHATdkYrdL0WHV6KC2v3Dwv7jt/zEHqEPccqVTH9kKAhzZSy1toKM BLuSgJoBOWjv4zEUlpNw/K3X/Wc72VhdIhFBeSWCby2GYcus5bAnKj/TT3gv X+/q4ngyG7sznlYuzp0g0q3M719mqGD3kXqfKCFfeU7nHF6gJY/AG0zGpuOz RPqRI79DLXmgPrHOXaPGgI8tnm5MEvYHs/KoCELob1tsG8JSuWjX7zJqXjVD 5EZm6zAjuYhworRGB00SpLPl3LvdHGhX+U89LBL+F5d7nxu1ufA/1a2j3cxE nr1NhWW8ANzazqOarnTYOke4WsgLUFGiezRI2GeY+a89PFXk0UtdFrBZTwTz BlNujjRx0Zr3omr191nCyDCM8vu7DOj9H/r9ZWeJFj17x6cUWZyIjUl26Jsi Xlb2t9z4Ion7E6MJ7vRp4vHH0WJVIz56PPRXuo2SUdjoGf11WAFjbTGVVY5M 2G7rVeW+YyHaxi9WL4KEMbfGfzc+EqDWkkMJ8BNH3gy7I82ah/d5W8SmlUTg fdvK1sBbgN7i5tKPQv2/vv9on/9tDnYEbw1ijlGQ+8u+zpnHxr38PywfTTKM crPFHMLl4JvmK/Czp6Knfey071YllGzSU32iLYoVdt9/3ioQwH89fW0ni4GR rk7LgDFhfkc1fDA/RILv7P6ya/dZME6K3LqP+p1wPXAp/MJPWThwWA9Mhfy7 3vTirQvNKti2ZNdQwUIxtAacfvxO2Mc8kw/Uf05lQHeioebUnAJkVJgeB46J Il7js00mWR4zL5kFHAcK0iLL216dVsKitxnyHdFiSHh96rTNCgHKL0Raaccx YF78Qez5CS42NxdfolWKoKWX8fLuJBc3WkwS5x8cIbSvcIiQ84rYLu8qETMr Aek7mzPc9XloV7vm6bpGBFqvddPnC/MktcT7Sl8FFV98XX7qVrPwaNT/79cS CuauCvJkRuURHHrpnoswf9QaS5c6SHIhNVPGDtz7m2jWDt7LHlTCj10a3160 i8J69FPbg0I+dKpy9kf20hD9J+Pp+n9YCNy3RadPyAdmiTGJHU0yqDOw2HpA lQKHlevlskM46Kq8nWlcM0pc/RD8uFdB+H+SlbxL9s4SOyuVzYsKeEhj+Q3k d4uh7Zsd1esVB+UZs923VlGgr1X208JZFrusdhjRy6eJS49dFQo7uGiiR9zp GBVBRzt7YU4DF//a+bvoGjMgrmF6uzBWATVd6wK7dOahuMfYyySFi197fett hDzIuq8bQqqSx46gh/IOomIwkf23qcCBh/Lx/H0XJBgY12x1vqopDd5BJYrP g3GiwmDX7uvH2Yh2X5kVqkDDPh/x7WRdFrI+9hxqTf1DPLVwPvlAhI+IaCMt t1BJbK7SPK8cI4N1wZYF+/eNEYZJAytdhH0sdmRv4m1hXy4/vib//k0OHjyi zPQTQv5oGv67MH4BajMtbo18k8T/AQIU+OA= "]]}, {RGBColor[1, 0.5, 0], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVV2k8FFwfHcbsZozZxxaiEGlDUc2hSIoWZSmFkoS0kC1FJREqKgrxJLJl KaJUSKXSppI2URGhbEVZ4p330/107/3dc8//LBpbdq3dJksgECQyBML/V41N h0tfuPyTqItrypZ50RD88dDugY2jkoPeTg56nVSc+bzqztTIXgl/t1K66k8y 0sdC+yIeDknuNB5uVR2iYOo7jZfdxTLY79Y+XXs9A2YG8z+VRExIymvWxL1P o8N1/IZJxrRxid7pv+4PptDRL3dqV6v/gORzXdIZ81gK/D932DY2E5HgWDS7 ekgelqnxHz+1EzG4fU1vnCwT9+fdcNFq7JP0OdD2jnLp2B0/ZxFhFgELJ0kz WSEMNC672GUTMiyhWDsaC5/R4MUTlGdMTEjoaf9sA88xQD1bLf/wwbCkzFr/ zdavDFiQR0fyVUYlgkeqjd3hDHxkvVWbsX9Y4vRwsuGBOxP3xlXytQf/Sj5a CaOCPZmQ3d04fY9YHvWvM4/ca1bEUk782kvXiNB0XJZZ/oUFBQuVa1aVVPzo 5CTa6LPh/Uwvz8CVAn31ftfXKYqYXV1W8zBLBvnf5n/bc1oeCzdNUXI0pSCa pNY/ZMlB/HujTSvOUNBZrlmilM+FdXu4mgNVEbp2Xas1ZMSQW0yuSX9KhtqS BkuyoQBf2a1Zy5pIGDEWyNQ852KvCdXNwEsWPQLbtb4DigjxV0sOFVHxfDUz O/6gEuaHFtT/W0pD3iLrZf9oKji4mPepkUdEZNmABd2TgwUZcxMFdgyklHlP DHUpYZvztyWJ1yn4nMpotzrPx/ALRqOVFgWRBbW+N7N42MYsVB/kk8ExuzTj Wj4PzZ5L6Fe3kaH3PGu0qEmMJYdfFUwNl8eGmoZPacf5cFHV2Py6VAGf/d9Y kjkC1EbsNk+IocKyr1fx6Wwe5IwiLoxsZMP8cv6L8csqyEofm173jI5vFT2B 7gIhTmzkT3NcPSZZd37T+WkfFUHY5bZ2YA8FhQWPA73HBNi732N+SasMbHNa Y2cZcVFRfq70bgQZl3RXmC3q4KFwPdW6KIeF8mOOEy3RKhh/3BDSq01CJan+ lNIZBdzQXh6lv4SJyNU2G6ddFqPnS5xBUpYcygn9/524x4Jmr/0zfel+UujO 461KQowHv/Bbv1cG83MbG9Yv4oPKDjoev5uEldUyzTw2H7ZnonOdNo1L5JeO HTs9xMRr3XWH1MWjEsf9Sg6jhWw0ddy4TvpDhMfMigwbIQ+mOf0Nui+JuEsI ydP7ycW6ADVjG+l/uqWZiRYsFMAqzCcpMZEErWW1H8/5CDBjuDTlXD8Jv3sZ 5ldNBBjUqa81M6IjyKNFiylWwpKa7ffUviqimpnkJXquiouSq2a3jOVwXt99 fvRcLqwKjaI/vWOA5dh7f38WH2F+lu9X/yZCf0Hb1tYoPo6+X3z6sxoJan6P XB/UicDR7F4wNECFw/36W6JHIrhvsXtWvJcGo2iXgkfT+Diep7w5NI2BpgYZ 1tFFSuj1CZ76fD8ZMRrP6fqRPAh26Wrl/KKgeOodm8tMEVwePfWtjpuQNJza 0K8oo4Cf5dbKe7JYSH5gUlbkKcb3a0Pco1/6JOkrjaZvO8mGfrW+1nJDeaRb +ERMLhUi3KOHzF4vC9//Aqbk+3DxM/tDRaCEiM6tPjJbXvNBLH++o6ZPDk1t Ef4mUjytmh4pm+6noGoyNV+nnwfJuSfPH86nomblm/1lI1yYzs254rSOgYTD 1zX973AwZ0OfwZknDAQHVTpq6/LxZlI5Z+NOKuYE+8cYlfPBfahrO1rEwaln fnck69Sh2zzX7GM2E3b7D9R9e6mC0Z4w45B6IjLTXk9fp8uBfPm9eXW32eh+ udh+5wcpPmQrH8M6OhI943o7RkRQZ2R0hqoxQZb8DXowIcaIQnFhTLMCVAPu dJGNxWg2czQO2aeA3WFhekd81PDydTPFxouMsFbXjek9fJwJXK6zv56MC/b2 zdk6POip3xqyTqXgcHFeiE4tB7EjEw67KRRQ088PzZ6riAdTHn6yMqTgA82K cnWdEJWmTnRyDBOFTVbbiyyUsIZBL2FF0AH66jVnVPlQnSe/eHDWuETFzqrn 5Dsmzjpr9RgOEtEUbmsa/pSLp7aPn0V/JkI5bdLwrz0HoV9W/Gp/IYvracs7 B6GIL2tSWNnSeft3LpfZ9lMRZTmpq9peslH0eMvAb1tV6LuL5Ds7FOE0eHuT 7yJ1/GjmH9i0ho1II7N5+tZS/dt7LV5LhomahDRvN7YIqT8rVbR/MWAiv6+7 9gofVm6sl0+amUjvsWpfNCzGDbXVgdZFFPhcj3lXu4WHXlLwTdoONhREAdZR 68WYXvf4R9kAAbYZY10OugqItKlrObiBBsPgKsPbbA7UGoaIG7LZuGuRO/0J UxUmnz3KZzkoYPXbrTMg5f/WE/aDQR9k4NhXIRSqcNFsV3r+vT8TOg3Wh8uU lXHMkN5jQKTANzyBdraKj82RGx8wGSzIaHWcNr+uio2BWql0c1lM1rx86pbO xEe18J8JMWTczZm2/DSRg2V+x8ICq2g4nRz3vl4ggsFcusLljbIweTX2IzKJ jRtTctinralImakT21rGh/b7fmGWDRUBnXKxQbelfFjy1cPwABtPjVSeHTRW wr/vM4ZmvJDqZfuPhB0pfFgONK/6TqcjIrXBv/2kAK2+Rpw1F2lYUGi13P4Y G68c3epcDrHw+d/2/F3hYty9N95WMo8Ni9b2vOv3VWHX9n1H5gU2CLWGPqO3 RGj09LF0i6Lh1VSJ2bPffNzVK9lC0yJgmffOE+uGpbjrePHJUn3c47zB0+sl H9n/5Fhrl5JxvEpjlu9CEcTChRrqrwn4MJphm8LkQ/F8m0H0Kjr8io5iYQwX mw2vpZ5OJCOp28Vn3FzqT29dbjg0s/A1r/9F9QUVKLbI9n4qIaPIZ++s1c58 pJab5kimyYPvW7p77IIAPD/3mvvKJHic0VMOvs5Bs29p3pUjsrBKCTDwC5Li /evkyEQiFc+y9kyP+8qDdWDRYqK7AkwsabmVHUpYoCfJdmfIYE5kzIEhFhci gw6DH5qykBvD+7NvFeAt/9QvrJSDdzaDfQW71VDxr6El+gMTsx5nK3UpKeHg z6+RP2dQcMpA6/KRD3z4sotEsn5kuI0VDmU/5cNpumn40stM3NTzTPq1UQm/ j6kwW5JkkTSiJ2oK5eJJpVAvOEoBWhrreCaByrD+S51p+1IB/501qbKVnie4 I9/S6sSCl2bumNpOMerPSZS/35+QRHscP3e8lwt7613EdDYJUYrjF1768HDF +O2axfvkEZLN/tMqK4aFZ/GMnUIiJukrx+2aOej/br4qzHFUklWvrOkYpIhy s60ebeMy0Ht0Nb9Rl4dr+0b81rkywc78o+Mk5cd28lX744qKmHfnG+GgnjIq esx2JgWTsP5b21oZqa9f/i9lygN3MkrG+m9t7uKirGD+SZdyWeSX6y0QDgtQ te3zorpPRFh2R0d8mcNFkbzBykweE1bqQ8vdmkQ4lCafP5Eri2Vq6tPMeVxc j/gS8+gCFc33/zhHbhAgomW8rmiIiLzxzADeLRZOXDWYQTggh12P5lv8qmTj 2qVPPU9ENFQfkFv1LYyPQme75ho+DRg6tFrmgAD9ioE9Y57y8PH+4T2vS4TQ Kwl9M8PZaBlJflvlqQxmdvrwtV4SdCoOVKqnKyBFT+Fb1zQKEkjX3GIUhLD5 UTcelUnHnWyr/j1VYkSZf8u5a0MBn7AluD+LjfS3v0qsP5EQWnr9x2x5DiSi Qr2uMTpUnR7/yBwTY6fepWplGTJqtW081aV6mpu2Z0zAJSDQ5vkcUjcPLk5H PMIC2fCk2fpoOytjdKziDTVeBgU3Zt+qKOajxuPFiTwvBpzldrm4ZojxIsC7 4/VUOiKDf9mpE/m4FP6Ptr6ejo66sKi+h0rYcmRT5pZ+FgZ5OVVZeWL8ncdv RBoV+fm+fcWn+BgIucO7u5KJFeKS2aOFfOy5NU/JfZyKsdMbKNd6eeBkCV8Z GJHwwiD+6vd6AdSmXN/RKNUt1g4Dz/ADqqi52ZmhMoWCFpaaboaYi5QP7IMt PVSojN0KZ1WKcTo3p2H/gQlJsCCC2LyUh7JVFG0tCwqUhBUH2sHDD4fK/Vfv 0MDov/D+WJIAaS1l93c8JMK+Nv/ZrlYpzx5nzPXoJOONv0HhJbL0/U7pf54+ pcI0w/ROWQEfRvfybI9aElDgkbG4sooHO+vvTiYkChbJG90fe82DpcN27tbF kxI18h+xYjAHFHffd1dimSjLfvrmkUSMNOf7axMr5aBuVTu7sk2AKwfYdEY1 Gd751TdPBAqQVHCLFnmXhNR3ER9SjvCgfrn3TdY8Ih6ZjrUvP8WG9ZgNV9ty UqK/7kZ9zEwWjhjQXn59KI/zP2y5I/dE+MB52pUbQcITzQR968UCGFAILHtl NlZtjva+VCzGbGVKh9YVEr6FX5g5OYOHvrGvyabrWYjS1shbd1UZ92LfaZua 0dB613FvQj8fXo0DUbfDKWA7RCfuO8ODJ//2lTqqPG7P1hhP71aF3yHBRWsL Elak1589OMKHUnpyaWuYdF4UfTtcpfPuUlnzTHMtGyfknsR4MlRxxuu44zYG BdPfsZo3H+JjdcSxG+RdLDQkWy6xmyPl9zJZ8qM2eSQeYT6OnCpEenJZ8IOj RBBiukpjLXhwvGXOMJVhIaXa+u5ghLI0v96/GPuQilknLthr7hVCgTaqH7Fy QuLGb3fsdVNE5k2j0gX9VNQOOE4NGRegcKuc/jkJDcdNYhWJ1iJYv47fV0ph gPIo1jeSJIKzwG3vzgwSttR/Jt6I58LEWS7vVSUTlOWHC50ISrjlXus/8oiE QwfGJ+ScOTifr/05PZeJC7t0Vny4JoTbuxr+14t0nL4UT8yeK8DNjZoNLAcy DC+LDf+7KO1fsSft20oUQO7elDWUzEfnkbVudCdFmJxbuOvKbGXM/b3BPy6D DNOHbz/5xKighE9fkmVFhUfpQXmdKdI8XuZ+s/svEXJ3Jy/7D/Lx3GymESF3 XLLA99XUT8aKYA+0HA6ypOOcBiW3JlQJlwXkL2U68ignkyaLjwgxafaz7+T7 EUn65PpUlR5pb8l0//c4mIryDpXP7ttEKNXjP2yokvbYvBPFugYibBu56P34 y6gkLiN66X/SHDL4zZTtqEbB12FSyOzFysgQ1SXciKdg+PVWa/lOPthKgWWv kmlYec/VcmGAEHaOc787b2HAwXHml9XLxMjs0pXZoUrE+9vpQ51JfJw6+VeU zGZjw5+25PIhaR48f1f1LYWNb2aXtKwURPhV77NG4wYTvJ2FpXUbhTi3kJK8 O4iFihcJM8IOquA+K98mTuoXPPvLhwbOKmOY9uCt9W0qAi+6JA1IuDDfHXcw aZccLnZ1BXUN8/F7noNHVBgbmb9dAlIahZAsJ3g5C9jom0YY+dWlDGNX/y63 KWyUN6/o9mwXIWrNluBfctL+ET1yt4wsQp92ZkuZGxWiMJvtS6X99KIke87U bCrC+97wClg8KD87Qi3NYmBq8jGfYGnfCM4p3/1qBht/D49dL78kQp1rNa+x ig7XJWF/aqOE+OBJszOV8jP1hMaC0rN89L9dvs9rPgU9Q5usM39y8JbjPf+L VA/9jrCznxRzUbXaK2eTnwKE5rHBJzqVwE6JiG1yImNIfTyozUQRr5oOhSwZ oCEDwZc23xHBbcnNyzuv0SHY+7M610gJ/h7zqEuuclAetHNe/dsp+P1jn0Gn vbQPcPaee14iQsDhoTjvAhbkXmcmHlMTQ+lTQ1WHJw2uiRryWxh86NCbQtyn MXDcVv0LPVcA49sPFg9V0zDHQ3cy1liE3h23d64IJkBD7Udij7S/CtzU4ub6 SPHv39rUncyG4qunpzdGE9BvPPwxns9BnOHrWtl9VKi77r+RFi2EyGxVBvuC tL8svJeS1Sbl9yJyabLBpKSstyQ7y4UN36xBZ7syMtgM7Y5TkQLYybbvKF7O BKxaV5x6K4aXuY2wh0CExlLSzfP50vt04vQP2Mrj64Jlz6J2CjH6tWRhZSER JbJG7+uFHPxqE9Rv/kJDYOiazVb/pOfdt2C9OkdGUMXqL3lS/dtbUnQ1m05G oVeB6lgMB+uvjW55l0pFZej7ow861RC8y2dG6AQXw/UBHzSTp0DbLcCS/R8V vxtaJ083cDHVvvGFD4mJ+VtPVgbcE8OfVcf5G8qE9eyO+Id6Yul/BwQdzmOD O2XqnAveylCvnZnRXSELPa74BEGWjSWrEpYzgrkwVr3j9OaPCHtzPWsbi9nQ 2lxtV0WS+leja+zkHD68V4Yu6IhVQeKFzZQTYj7y1Awpc08pQzYocXu7NKcE Nt1qOSbN46pNtXbHtvIR3eP363GjJpoKPsWvseFBW4U5bw5NE2esr5KXpfGg djVk1X2JOiz+LOpWoQqg4Prqll+xGnLoThUMaS5MTVh0RXhFFTa/1zmrcqS+ ZWNhVuCqhv8BvFlb+g== "]]}, {RGBColor[0.6, 0.4, 0.2], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVl2k8Vlsbxh1FKqLCM+397L2fx9DEEZJELilDMkSOMhySFFJpEioZKpmK 0GxuMh1jCUVKRagoGkzRoGiSVKLe/X7av/1lrXut+7qv678Yz632GyQlJCSE f0lI/P/rMCTd/KJLGUavhtwutSnjUpqbcU+bEhr0OAm0NgF6srXUeyUOXvlK P3hJcLHBQ7ZCYSkH9Ue+pd/LUQL5T7xhKkHCaa6WmmciieodxPYXKwj09LW/ MTASQqOlSOPgbCGsJkz1LqSVwZU8ZWr9isIWS709Z5qEuNUdlT0kycPpc79/ X1/Lh4ejgZSFAoPl6slpOwaE2JUtu2iCPwVvoyGblRI0dobpJ2aMUkjx0zg4 7boY23vK5Iv28nBNqeeOTgmBXW8X263MFSAh2i/8njoJa1+boBkFbL31pYO1 wQQ268yoymnkISPih5V6I4UcO/n2LZMpbCuo4luOcKHdNcGzNlEAiUbVc0Z1 HFhUPjV1X8BgY3JAmtpkEUIaF5XrRjHIHFIPvOfJIPRhzzP1MzyE7Sz83BpO YkSxsWYVhwetgrHgthoBXIK4u8xMGCQnrt4wS4XGxR0aZUdjKYj9H/C6YwWw D/sSbtvPwdbXH281Z9G4e2u4buIxCg73QhLGVGmYNZ96qrxKhLZ9b3ZQ9TT+ dvoTN79NgCR0H+cfJJCVkeBnOYXB1ucjdubXBRiaUdV73orCSu3/zv7qJOE9 O//0tkA+psWrisekuHjt4ZhQp0HDy1ijDTU0dqdNp5Nf0/BPb/EPieejy1Nt 7ribAAMHzm+P2ESjQX3tzDYnCpmR4XOvVFKoNLbPVz7Ch7vltzUnk0h8s/hn wllpBss03oQPrycguUZPe/1TBjcUfz7Sf8SgrtLt7eI5FBal/0iWzeagfW1k u/ZzEonGNuaH2ikQPz3V8r2EkCqfldoiwUerjaC6dgmJnLKFjxtHaSzdEqzG T2PvxSSkenAegz7Z8nfVrC4KU/7rvC9BQblx3umTiyloz5RPkflJIJZr7De3 mUHHvlGocoUY8w8+LdPJxauk/vimAxS6Uk5Q+9MI9v/c8TgHtt8n3ygeuUQj RS3q2O0OIUZLrV1rW8T4/lLbaNBRhI0dm+KGP/AwvkPPNdJUiHsDRX2vu7iI qgu99zNLgGrBUftmHQHubKiJu+FF4NxfcftLG2l4DhZstIsjYHLlx/QqVz7i t/KYj58EWPdsw/PSpwTcNon1iJ0Enl66/F9tCbuOVmzcHlkG5r+8gyIySBip jV/WN+bhY9uEJ3JXhThhkmweQRIwC+xfJ6FLQLpA1TB/mwi+iw45Tv1FYH/E hcbiLULIT6xu1qqjMWqff5ezkMDn+Zevd18Toj7UyGXGSwbZXot9K1spWD3R 5E7bTYF8gd/7ikjQe6bAn2TweFmpXuBpCtElx8XB02noInM4/BoFg4y+9hL2 Pvld778WRTNIvbZtXoaaCBkN10d1ZzIoSboYpsr2ycPSU7K0g4TeaT//mj4+ Dui5Rniy+hxmms8F17G6l5dIlOuiMGJzoIyZxNZROUymuQqQ7rN7cLEtFxrZ 9TM2fKRgYi7rkWpPYbts//K//qZR9XHXmnW/KLht/jCnLIKGwqJOzaxTFLpV csPGfomwqanNICCeRki9hZb6EQYtq5oDZvQQeG+5UCwbIkC2+bjpXAMRWldP x6RnFNpdbcJC5CkEtv9WILNFWPODtzFogEHM3izF1EkivLsrOf2GKw2rM8VK Nz9TWNiv3abcRyLtW3z8X84Upii3XLd+ReOK91ut+u00Apq3dU65w6As6s+P SXMIxDUvnStnL8D4cmMP2VYhfA+vm+C0k0FxRgD36kkKe+UWxPz9jEYqIcx4 /U2IRPMvib9oHiT3EX2DVTRcAm+W/JhCoSfVofy/UwJEnL1q0VZF4mvhvvLY VwSuH9yvtayPAHfBi8j0KBLHLHbemmHAQ3pq3U1/LwYu0U8sd9mT0JkeNv2X pQgVXiWlvM00tiwIcT3J9r1XuyEvuZzARW2HyWbpQoxXRydN3E+jI6FJMzGG jz2Pli+a40IjqbLfXmorg2+ZHb6nz4uw96/8QQsZPrTm58koFpLQHTdT3G9P wzd83opRdwbhH1Zvsg0SQjP/j3kBq9+gScWfiv6loZ83Z1iX1WPh+jaTx1+E 2P/r3PjZSTQ0pHzweSIN8ob60ZATYlg33l+40ZxCfGuuY54lAanbstMf6lFo fOp6XstKiB5idtZBmoHBmtYCubcCjCb9mSb9jAE/mC7MaWR1RGsHRinyoBMc ZL7Rm8Sb/hiXDlaP2aV+I5pDNDq/735x9gQP6ypPGWyyUELCBbXyq+0kRF0a 2kXPSKTM3as0aMOHaq0LZ+AkBw/vVGzakkkBFnsVMiYxCHM12qvgzurGTNM0 sJjGJ0VNHzNJBkLneeudjtNYq+tu48z6/HtK+nxxLQ9ql1/aLa5k4NkocanD iYvigUT5x+z8uK8qju98wvZ5G0fvXj4JDveszLeZFEKKjt08Pl+E6P0xv+vs aCxYvPi5pAKN2dGjPk8GKHhofr3Ye5SHyIuvLtLfOTDUOeGUeZ+DKInR1cWq BJjYzws9JDg4z00sD2PrdGzxvN1tKEbriJxi7HohmqSr81cc5qEozdunZh4f Uq/qdLdKs/v3uazTkSDxOLpiOKGJwJEhFde75nzk7evo9/IWYYFpjXv5CIX0 ClyLVWFg/yHG3aOaj8P2fa+vbGfz4btZ/iO2bmmLol15uTzYh079E1ZB4KbB qQh+GoVfEeEz+2eLsN13HRnWIITeiPLko+cF8B2+8SHxqgDvRi1UTGk2P8pD 6gdU+Iidt27wTCgHfdExWV6KInzL9ai+s5xGTul8s1A/Bl9uc2O7ckQoFMss CPkhwoo/4vjd0UIEf1/t65PA5mOQWfGBLiFWS212apSh4LvVKuSMiM3PhVlF ictoMLRmReVhBmO3rMfuczhQls7ICtVmfVpV6a+VPXz4JCySLFnO8kOD0T2J CAZnU5SvFRzmgi8H9/RYHgolfxgFj7DreHdeiwOBjw7hTM07AeyafDd1J/Eh kWCmOvuLEnSNTVpK/3Dg3CE3ySCCh71bT1p53aKQ/Pn8003hPFTJbOtrZn3H yKrARX1cBPkn6c8KFChcZFxknEQizEmS0vWVF0KlomjLLVMaD5In5gbw2PPo +JqOS7L5qLm1WjVAiKTZZc+MD5PoLjljV+7D8tZEV+rNKhJLkqQzf56kkegj mv/WgMZgifUJfzUG6q0r7mo8YbB/mPt73Rkxzmi3iizY+VAZ89xyO471/bfS BY6aBFIN/dQ/7RLA2K3G0L+XwJJD/xDLnWm4pp79us1EiBCFJUmF9gTLJz7m 9+ezHHXB6PhQO40wZ+e29xkU/i5dEfHkPwazSvo5ycGsT0au3uRWLcR2f+8u Az4foRWz7shU8DFlS/CmyREERJLNC4XdQrztutzQfYfA5fzEz59Zzgs82p90 Op/GrxOvfhjn0NAe7DILzBTB5btZmoshiZDKvuUDbUIEhh3IkI8RYtm39CkX /VjfqB1bfzRUACuHJR76YgFqOnWrNcNpyNU72DIhFKQvpKVms3y1PXZVxBeW g1T09Z1HjBgc6RF2xZuw873g4da4FgK58j8eytMkTFXSjVv4NHSKKv/29WXv pyf6WWaOGOrcn4utTBmEZNbaySYyGFEovFnWQWGWrOnJPDZHvQruLL0BCrae XRMbRkg89C1WWPCV1avs0bGvbO5aOna/DlojxEeB3gbF9XzYNB0V0Hkc7F7q 1vy6lUbtPspwDXueKGcNjVBWx1kDefeOd/PA0diROi9OgOEbu1c98yPA945Q DLLi4ryS/dPJR7mQXfmyvVGVwSlbvk7lPCGulOV3Vo0qYwqn7nX7Ox4G8+wX zzER4HfcWdfEByxHbjghDqxl87VlOHD4tBAyG40G7SIEOKhb/7EpXgnXogLS I8tIzB9w7FFmOdlEPDyyyIxGQeKMt21iGodvXfgWsIvVR1ZJSehLDs75V4Y9 4LKcnKH+3X0dA+cba9LH3rJ58M75+YoSIWwMLBws9GlMV7w8Vm1O4lP/2C+L AQGu+NUbbmF5/vH9jw4mCgS0785NdH/Px7vxcwMv2dyofZ2zvHcqheo4z7TN xwiEcc1emaTycaj7+/XbWjzo71x982QUHyOaUm4LX/Hh1CtW3jzKx2aRnNLe 76w/XW/bTi3hIJnoWfmQzRmbGukRfZZ7SvK3x85/K4RwTlCw2xk+Bpblpsz8 Q2HabTRYazLQujKlJm0LA9WVPjfqj/Ohw4k+sDOCwvXT7cTNXcqYdjVY7usZ GhXtoZFyi0nMW6KPp7NoWBbdk12awGCt2u8aM/a90SgqPJ/0lgcPr0kXl4lI xMZKlVQZEuh8HBMpJcfm6qzeiTIraRAxa65d2UOhPkUv7xDLcd92zChZZczB vJ8fti4m2P3T/J1Fu1neXeHTlOotxJTgxKyHbjwcpmNS9nQKYWp0xCRXS4iD NXaGL9RIiDdKVpe3CFHs79OVvYKDVWFm85jZBPRlcu8PFpP4YhhZEKMuQEvZ qkAVVyH0rQ6m2dmyfh9P9VbJUVhgP3Lorh6N1qf9XpuXKqOwvvONUhYD74qc 6bqtBKZZDbq/qxShwcO+fdd5Br4vpW61BLDz5/io5DW7T8s5yYgANg8ZP1x6 PswgQC4rRe8CgyjrYecJXWKsbpBYsfEajX8NvkyYO0DD8fBISGKoGPLKnyzy ZFUgXfHQ4cIpZUj/Htd6NSjAWMbJlllvaGycWmZpGEvjZcg7xUpZCocC/jXJ nMpH0o7uaPONBNQX6r4z/M3y6qTo1AJGjBHpoUefT9GIcFnuPyAQoKlMKbM4 jEb0hsGOS2x9pT9O3Da3I5GXekfZ7YgI/7mS6jETGFSYX5Xq3cDy1C+pmBK+ CE4HzVZY+avC9NHFgLfqDHL81a+tZTlgYhrHtrJXEUvWN1+1uU2APFy4Jl+W j2RvbbXHs0i0LiQn2RSxvvKk99zoIhU0f+J7OyeoQK+t7OCH01yYemWH2/hz kC05FL5rkIZFk3kIl+VE20dz0o3YeRCs1SqtzeLi+Gd3hZz5AhR+qCpT8OIi 51PRPq46gT0xlfx4B5avl3w2XrJKgJvuKv+GfBQhsHbHmx6OCFK5fZUrH5Ao S3T0NqcEsDhULf7Bzl9PabZj7xkRNp+PVB2nRYic0dAdxvb19a5C8WUjPlLa 6u4+Gxfgln9HuVM5B5TJTO8rQ0LUBZQbZ7QIIF5479gdLQbVG1Qyku5RMN5h rXkxgMbVsg6dsMvse2Cq5V3dSCG6wgm/we0Edi9LLZBNEeFn0G7p9/8wCF65 f/LyHC6m0pYhH5JpvCtX/LXbg0Z7UKHttk8UnOp6qlTS+ajR/nzlew/rZ37d ucZLKfSZD+yhDnIRejREZ3OZGNLpSpemszqUldNZENPGR2KsG+zzSOjrOQ+p HmbrPPbT6bkuy70rsjzy9Cms39lq/+6BCKemF7b+fsEH93CGla2cGLmzizw/ PGbgViEdEuckgvqb59s+bSHQML+pLZxDw/iA9Y4H7LvXsnZqYKYtiTGj5VYV uQTE6rNvtX6gcPb9U6fTcQyGltreP8fmy2Yva+WoayIM1Ht9GVkpROoVy+ut +yh8mV8TWWBEoLrAx+hKjCr2WVkNzx2iEL66d+TFNB72h1ffvFtB4ozibYc1 L2nMLfDov7yIxkxlv3z7AySCV1W2L53NcvDx/IwObzE+TZNerc2+D/8HtRuB HA== "]]}}, { {RGBColor[0, 0, 1], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0, 1, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[1, 0.5, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0.6, 0.4, 0.2], PointSize[0.008], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, { {RGBColor[0, 0, 1], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0, 1, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[1, 0.5, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0.6, 0.4, 0.2], PointSize[0.008], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, \ {}}}, {{}, { {RGBColor[1, 0, 0], PointSize[0.025], AbsoluteThickness[1.6], PointBox[{{2.52779614389814, 3.325919784988006}, {2.2623929354661656`, 3.824173782643935}}]}, { {RGBColor[1, 0, 0], PointSize[0.025], AbsoluteThickness[1.6]}, {}}, { {RGBColor[1, 0, 0], PointSize[0.025], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, {RGBColor[1, 0, 0], Thickness[Tiny], LineBox[{{2.52779614389814, 3.325919784988006}, {2.2623929354661656`, 3.824173782643935}}]}}, AspectRatio->Automatic, Axes->True, AxesOrigin->{0, 0}, AxesStyle->{ Thickness[0.005], Thickness[0.005]}, GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20}}, ImageSize->250, PlotRange->{{0, 10}, {0, 10}}]], "Print", CellChangeTimes->{ 3.8907330573042307`*^9, {3.8907331128234053`*^9, 3.890733132825886*^9}, 3.8907332246350574`*^9, 3.890733255851194*^9, 3.8907332917736597`*^9, { 3.890734122716251*^9, 3.890734130815688*^9}, 3.8907350624635315`*^9, 3.890735095484761*^9, 3.890735136950403*^9, 3.8907362132748594`*^9, 3.8907362884062567`*^9, {3.890736938614626*^9, 3.890736952305652*^9}, 3.890874284834253*^9}, CellLabel-> "During evaluation of \ In[117]:=",ExpressionUUID->"ffcf284f-39f1-4fac-9387-a06e93d28955"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.2188029426617537`", ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"{", RowBox[{"4.396803543380866`", ",", "3.7435335927260667`"}], "}"}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"{", RowBox[{"6.456358863190282`", ",", "6.217179539164785`"}], "}"}]}]}], "}"}]}], "}"}]], "Print", CellChangeTimes->{ 3.8907330573042307`*^9, {3.8907331128234053`*^9, 3.890733132825886*^9}, 3.8907332246350574`*^9, 3.890733255851194*^9, 3.8907332917736597`*^9, { 3.890734122716251*^9, 3.890734130815688*^9}, 3.8907350624635315`*^9, 3.890735095484761*^9, 3.890735136950403*^9, 3.8907362132748594`*^9, 3.8907362884062567`*^9, {3.890736938614626*^9, 3.890736952305652*^9}, 3.8908742848655024`*^9}, CellLabel-> "During evaluation of \ In[117]:=",ExpressionUUID->"dc250d53-5dcc-4d5b-9e64-7940da09edbb"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0, 0, 1], Opacity[0.075], EdgeForm[{RGBColor[0, 0, 1], Thickness[ 0.004]}], InterpretationBox[ GeometricTransformationBox[ DiskBox[{0, 0}], {{{1.935701629990119, 0.}, {1.0235177216625755`, 0.8069485876717896}}, {2.5459433791152737`, 2.528602686436138}}], Ellipsoid[{2.5459433791152737`, 2.528602686436138}, {{ 3.7469408003464038`, 1.9812249221460203`}, {1.9812249221460203`, 1.6987545497028451`}}]]}, {RGBColor[0.6, 0.4, 0.2], Opacity[0.075], EdgeForm[{RGBColor[ 0.6, 0.4, 0.2], Thickness[0.004]}], InterpretationBox[ GeometricTransformationBox[ DiskBox[{0, 0}], {{{1.563750175375212, 0.}, {0.6996489634038591, 1.3856056351246184`}}, {7.742113769531119, 7.581104492616173}}], Ellipsoid[{7.742113769531119, 7.581104492616173}, {{2.4453146109860064`, 1.09407618922387}, {1.09407618922387, 2.409411648081192}}]]}, {{}, {{ {RGBColor[0, 0, 1], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVV3kgFFoXn33H2IUsUbwQj4Sie0roSRISvVD2UkhZsiVlSUpCJKQikjVr ytaKJD1CpRIJ2YaxjGH45vvr/nfPvee3nN9RdPG1dsdhMBgVLAbz/9PtbDfb xAAH8UoKcj0iFLisdfJN/doKGt745pV1Bw/t3LJ/PpHEQ553axnjIXjQsvQb viO9hDpqClOvNLOQTpPkjTIjPPiU6dxbmuagvTsOTBVKYQD7ckdyKB4HTSuc L6dSCxrlSy7cd/Fko0fOzmepP3AQxOhbXnOmgGdXYrxNAwZ6Z5cM33sRYUw1 zbBvAAsvHqUGPi9dRe01zpTpf/EQonUl/ucWHGQyHyq/y+egbfccnCU9uEha Tb8/oGYVXZdcSU9qI0PgYbKnfAwWtK9J3PCTJEIF4+v+zFwscGne7F16ZKCS A3LOxxPANT1sIvwCAW7bn77lKIiDXUa3ZCbDcFDdMXrCw5SNuvYVSFg5cVAT N1T5rFJD44+Ec6Sd7QvInOM8wHnCRnIh5TTKFA6MFNfnHEzBAakgST3pOgZS UzKnIsUwYCah2oG5R4D0ehImt2YQmTt0drNPrqC/eDv1Hsjg4HS2pIRdNB6k uj9ixvfjYMPd8K4iGSpsyL5dOqUxjo4+0sm0ejCK+rRHTG2FcXD9zbS9TjkZ Xqt8pLxXxsEOU52GCgkiFBgcU67UW0DN/ldafIxXEPNZRf5qxjRa2GRmP5/M RT7rglX16EQwte+0SHpGgqKnEq/39C2hBvFU+51Fa+i5/Iur7kMraChiuNlL Ggsnmu9cfF+Hhcn3cgGjfhj4Qw7a/Z2JA8knK7MsSxw0/D2yMlFKghGqTe8G +TWkpUde3YsjQIWUmFByFwlqqzBmMlmTqLK8IgdJsVEPjkG7dwMLUFAgpZ6B hbflC0FZUXiIvmP1o5T//z1XeyJdB9ZQ7og17mYIFxXH2f4cfEyAY0mh8umS FOD8qSVdvzmB1IvNtrhqraC4XRJB/wny0AtJIV1tezzsItczk6kEqKwKkF2J n0PDw6rxIXw8hfdkfSG0UaH8o4693PAccnxGn67OwIDSvZCEyOcEyKHLyUSZ E2A1IyN3LmoeeV0jR51bGkKh27PS/fIXkVX9NEuCz6+YZYPo8L95KHbbCF3f CwcoXdG+bT0O9imOBToq8/ulsle0WZGDEhYzD/XumkL9uS0C4pEYsC/fJDZd TQUrl2UT9sU3iGIe/rOA9QVdFdbKUauaR2nHk87XHcHA2HnxjLJmPLjIVGCT h1fRH4Wvyc5vx1HRw4bMV1cwYM2iT26PxIOnTNPha/vJYBRrFxJdR4TRpt5D YQ1LqLvqHcVP6yfSXFuf6P4XARQ+nec9FuttjFBovZKrNY6KC47ObDHAwIBV idnDQTaynUsMdd43j757+cylKC2j3zOpJcZGa2hbq0JyQsEyGnE0nLBLxUFh 6uj2BxgKFNy8I1OUNoeKPWdObvEigWFns4Fs+Ar64NJw8lw8D3F8U0s/SPNQ w8TGjnJdDhIwn1GXsMHDSwO32yQFHBBiv7mO7MFAyS/R701DHHQwbDZt5igO cijeJ2OPY+HMpa59pWQWstDFSdrbYMBCmZnQu8BGNlVOoh6CWIjuoQY4uc6j 7l8NViUbp1BJv7618dNV5Lv88fEY/96y8Zxdgi9W0RmDnsmmQBJ4/xDn6tN4 yHRE1UhWdA0FL6Mqyisi+N8WDOukLiN7vLNDYAQG4qy7ZZNbCdDf8qC6KpiL 0IDVX1yveRQshwtU5vPyhXgj11aYCGWWoXOlU4ONmTYvM55P/UFXkqJ9pE3I EKd3+9pbIS5KU1YnEd6vouc/8b9Hty4hhVtV2c+hGRXTtj20/raImhMkD107 sYwSrKQKtvHxVbfn3uDeXUS2a6eiebJr6Lxvnd07Qxy05rWkD+5bRbs/KB5/ ND+O3Hf3j36MwkBhY0/nsYsDyM9dfwErx0J2BSmYd1HLqMLsraSS2iw6+3PQ Pe4iX1dXr8dzivHw5niinmDnDNqDXaxszcLCFY8kvY6tBKg+GRR7eyMWMvsK /svH8JByuKDw5B88GGEdZ3n35tD3f9W3lzlwUb6J1f3QSb7PW7Fehx0hw065 rSlK3Rho8Fgf7DaHB9sjdo9+ZUygn7cIvfdO4MFqybCvMLILxfx4QrXDLiKD fJNccUcc+KvU/v05jAaFhiwblRJ2o4/Q7UoV5TEUoJ1W+4/5LNoWQ2BmH15F aT8ObvttRIRvThuc/vmGh8546Zpnc18aLyBXXXHTFTQ4sWrbU7yGbH/19XNr +PPhcDotdsMiaos0/vmkeRmp3jFVcefrzQmb0ts8jQVVrXEBTPkK4hwYPt+f S4C2obBpTYsVFOLY1qOxxEHcjSn5WSJrqOnA0V9t0gRw9/2sMGdLhoUHZuF6 RB5qmso/GyVY19imFvpy4vo4+kF/nh5eSgD2gFyuzx4CPL285rR1YRU5nF3a XHZtAbWqvHlwKYQA0Yp5JUZJa3z9+kz4dvxEzxYjLCqq59BazhBOLnoepSow /su1IsCBkm9O/xjPIdazg2vLA3PIq8DotLZ8F7px68AhUzEW2jO0O0XahYvU Q1UXB/vWkM/d3WZ1DXPo768Nhm6fMKButjXKErHRn33b9Hlqq4gTbKn57C0J sGwXy9ApLjrmcqx9LB0DxbuEyB924KGszdbxzfxHlKw3eeW9FA6+Jz0ypXmz 0JxkaWbeNy5aL54saJrFQqspezO4uitItcF7yJzDQ6GazI7VECIkn3p6/8nj BbRJ9o3SSBgJ9gu/DBY8jYPZrYoRdedJoBAsfNv4OgfVjp6PCl9HhDaHCNWC SwSQWUmkBx5cRZ1Koc9Kt48ji5mTXP2RVdQf+2KS+J2DHm8tzCPo4OHGnRL3 XFMM3HwV1pOaiIORsePFR9Pm0Sv20x3rKEsoJy3iZXJZC7qzbbZvTGIWXYpd UDu4DQu17oHtjvy6bjt81HXCMJAQu6nEU4GFdBtXPG2HcRCaZXyq8Rifv1bH cXG2WFBr9br5a5yHDrSyvAKCcTDh4bZAxVKBua7JMOjHZzS4Q+P9DQMusrPZ 6P+znM/3O2qi1leXkd+yh/+ofzPaEtuif2J5GH3r245bG11Fdv0gYP0UCxva vUKbZqfRyJbLRTQcBkTKZsvzu1ZQoM8Aq01zBcmfkB7VVGUht6smhSWneYhR H5tUEfsLmRdabgnZhIVN9uunHXADyEnIE5/6mYOimncVPvn8G22ddPI8bcXH lzi5XBLLn/O6CUW0h3hotG5viomZQRoVOqyvJzBAlpsKbi5fQ4x1gTdbUpeR l3i7sv0hPFQLnHWR91tAUl0aqUxzPp5RQrrr7SiAdbd87p2zikwZN3bOyFFA sRI7dGSQAuuop4aCNGiw5ML9bfKHAsreBgEpO/EQa6RRLuxNBvb79S/C+fnm WUWwgySdAlarj00HApZQF9X8zMFzJHC9dzjvN99nX9uUZV/RpML3/uLweD4P 4nnuyNGFCpJf06tfRdHA52OujK4PBboaLyb1ZtJh65ehfu46MpzzV/HC8PnK apVY+vcTGTIGHle8bsLDjk7DXW+lSTChsdRQp0sAfSxcc8yjwNBVstshMgP2 Bw1uWY0igoX95k39dWTQ9cEQGNvJECbspEzRpwI76ov/sB8d1jNuxTY2MiAs MDFUCkeHqsaz9evUaLDG5sEZfu71NxZesH2Kg7f9MuzcQ1Q4MKZ20odAg1O7 8X1dlSSw/4ZS4lKp4PvOVYLTQIZ290WTlctkmBq/Iix+ggQDC1QidSMFMFKi HR/yqeAniktcKqfB8c45E54fGZI8D7FIihg4X3kzLUiQAhrZZYYLFkSIfT6i 0TpHhqAPVO6un2T4biMi7z5OAn0HmWc3KwmwpuyQvlZBAW//MziTLDIUNVA6 2UNk2Lz7S/3ox1U0oHP9Wt4qCeQIgU+iU8kg+CPGNFqeBNbB/yjpHSVCoSrr Y+/fJGAm3VAWu0SFpxtIDg1tNAgkDURY72XATOkoG1dDAfHypPJpbzpcSfiq VhFNhuFTXt0d0RQIY6usXJiigp1we/WpeTLgJd3CO83IUD+QKJX5lAS9JeJz Jd+oYLJf+owtP5/8Tu8ovy9FhYKf2cNFjTiYdIvZZLqLDI6MvtPdyXiYo/aK ttZTwDIXY6Faz8+FlxsJli0k8F+v+MDLiQJoH9v4X2c6tG/WNNMpYsDvo3SR pYNUyD9gfVDiAgWeZ+1oc8+mgFzobFVmGBEEE0seZG6hgnJtT14chworgS0d 5mJkiPSwaAkmkqHK1/IzpY8EhJq8C1kX+LnbQ95aJJiPh+oX0VPv+X1RdZpI zaDAXgYl5mk0EQZIIjS8NhXo7kYXOt4TAdOUxZqJIcEpj03pyktEuFljIIzl 86VM0pnzQBIPHirMFw9mSGBhm6Zl7kWDV+UldIotBSJ0/tRNua2icp7U58C7 RGC9KaifUaCDS++msLl4PFjbOUlkJ9NBWkLqxacsGth7CjS3igrCQFXnIYeL DPBrDUzeJ42H9APe6inFAtA2ePdQGQiA0vy/va7TdGB3l3W5MEjwX8jlG8Zx dOBJCDUN8/eR+ueW5Uv36RDBomgZ2BBhb4K4p/czAVDTas10TaXB3u5U59Qz wrDo+bpf4qMgtE30yy6+EwTlHy3a/UcYkEzcO81UoUPgo7Xni3xf2FmSsceW Rgc1gfEbAWfIoNi69EAWBOHt+5ZblTVU6HPTf8TBCEJxhA01bacAaAuTh3t/ UAFlabtyZEmQI+EwjuxpkPCGzKieXUX3Bx6OtywxwNOg6mWMFQmGvwVyDssw IPDUmNfFdj7u7Me5ATwa6CdVGe84ToTLDrp7bb4wwEpfNNFQmp8nSt+Xu/L1 +2OR/juGr5PWljUHm2UqkH4vHbnEz5Pm901bFlkCME4ePaIeQIaj6mulqkcZ 4LHvj2VlDBleRJy4+VJTGGgyx55kEZjgT3J7Vl/MBPehhRoXmiAURpacUTJh wO2nyUWGRRS4bVRospBDg50vrxsFd5Dg2isPx+wZOkyzDm98cY4MpvOjcoWP 6fB35D/dsiYEuKl67D+evBCYD6fkS4cLwTFySX3DXSpUzxdVtM7z99Anpi4u f2ggzeS2dPL18XRyh6zvBBW+jCc0T83iwNAwLd9UTwAudQyViAfTQTbm/i1K nAg0+Op0/1ITBjG9g537jAXAWeysrW8LDRbGvjCkmqmQ2sdI32RGhMyHX4MW +XuPcqXb/mYTIgxaBDXm/8MAcqVsU+M1AuQFUzsaVJnwqv2sZHkFDVyupm/+ c1IAztWHORaG0oCnLVmVG0mDldfrV46+wMHo65EPYt+FQYNW2ye2VRhk9nzV qEUMcPQe5I65MUFRgN2R3U2E3DP7rOPjBeBYeET7umYBuHli327tOiHQjFJw aJdhgslJARHeKSZYaI25qhkIwp26S0J3yUzQjqxTtBBnAiYyu2Z8Nwm+X749 F4dlwrtmSaHUVgocCR2gr+gwofqliAj+AF+H4Yflfe+JAK60I+9jFAPcRTLu T6gIwl/nxAZ2HiHyeXN9b8gTJkgaqmXJKZGh4NHLoQoTMRCzxB5Zz6+TYVwQ LVAnCHcP3/cYEyMCSctd3O+uMIRpTE2e3kWH3PSavDKqGNjZl16tyBGE39+u Erb9KwzHDnDlPbVpYJV5I+4eTQSCok8PmKQz4JeK7qUjTqKAzpcRv9gz4fPe T9nOesKw89O2/Y69FFBIrO0zkhaCK7MvDsvxfZpdFWMycUIYptpslL52MUBB PezM6FYGPKJeY/UXYeD6w7rfcUxx+DKktUcuQARkS82tKnOpwAj2NY1exwQf StHnhGohsLsuCpJ/iUCJ1qW3ad/EIPUvU1dzMVF4U/B4SWijKKRsHLCif6OD G2N6bJ2pJEho4mkVNiLQkyUecvQTE9YX5vV+IPDf4/+f26+nEmBQ6+K5yGGC yFs7gc1dovCptu5oON8HrKVuj2p+lIK7RyIubOwShnfJxy6OciRBt4O5XHtZ FChmxpUq42LQ81bVU0+VAUG1XW8U/SThnlF2riaGCVkhPXs0KBLQP7Q5INxW AP4HT0crlQ== "]]}, {RGBColor[0, 1, 0], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVl3c81f/7xo8zOUaOcY4zjMInIiWrSO8rotAwKhnJatjl07SyMtohKbOM CA1lZlWUFkUqlUqSj6J8I9l+5/fX69/7vh/X67qe13zPIPudZBKJpC1CIv3/ +y3p2WvFVwzUVFkbc5r/EIxkE4fIC0wc1HupF8mZIpb9TXiiV8DA227fEZWG /xEsXfJ22UpRjKa9j1+xYpTYOZr5T04CE1LcNWsKQ/8QZYt/JpjVyGJB3kyQ 2hMqWO8ODRbSZKBuLdZrfZ0OZmf/YVIpCzvYyWfDdagQ/URlNaxlY7Ha76pG EVFstjBoI6rkIWKpK9uSQwPDbaeW1JQM5M1Uy/PzKci482DCv1iA953e/xyu oCPQUFom7oMc4h69j/Z2EEFBaxz/0UUW7mu0pgU+nCHm9ucm0HM42Chf4npu wxRhumXJlbmX86Cj/K/7scYZIu9LULVrAxemis8kXAMYMFu2oOi7qzJkxlo2 kIzoiEr3divM48KtmMhdHkaFnlut5qGtfHgWNjaeDhRFme+RtkcMHg7v/FWz YpICS60FN4/bcqAhKhK3a4wGS8t0td00WfSRBDVXd5Eg/sezK3+BAGGrg3c/ 8ZgjMqLTlS2ey+OK6hXJy4p0eDw/n9gULAPpW1akvrYJQrFYL69LnIfeoCrC i0IHKb/yyfLFC3BZsm2Hej4DRQp/hw3fy4Fx9lJOWy0JsyuikgwVeWgcfB79 dr8Ivoba8fpU2dDXX1kzE0HD+SfRHvEVHLze5SF+pYGMtkd8R5VLbMS/6K07 s4yKj4vvbFWt4EPf9N2jI/2ThPRrjX83ScsjPW6hydnJSYIX8n153A8uLDtT eac5FLBEtrRJLeaA/a2j1WlonIifM677pCeLro8SLrPCew09+pW3Y5yHT/UB 5lef0FFm9iI8VFMBmdmGW1QNmfgsMaJhFMUFtbfOk/adjLPHcw8+0pKDhzGV 8jGLhrjiIuplZUmM869wirLGiWcFlVVxKRx4Jui/vHOYjvXJKnzeUT40WgSL hsoo8D5kSWJ1CrCKPPK+bZMYBrK/W1Gz+Dj0Q+nvpIcYbOfL/ld/iA32Jo/J N0MTRAqHsFJW5WF4SLt0sFwCf1cvMH16TgAJ15Rc8RAakn7Wh6Vc5EKs5nzl 1a0MdBSV0yrqFRB56qGiMVcUqnzHstQeeZwttxmlkueI7W+ip15t4EJz3bfd zQw6ls8beh1apggNl4lLxkcZcBw3DV/XzsGt5qyKgBEKfk+bUI0VOTBm/1fm HUZH4/O2LZqtCnD/y3I5VkxGl2ti7nX1+fj30OrHObni+P5nScYab2WQN2RO 5Roz8dP0ZdIzKzlsNebFzdtARduG5qKgWDamI5zcV2wjo/2bWa/PGB+PBZu3 dFeKg3JEy1XsmTxa1jNvXDpPBz/XrYtKyOGner5ptAYFAezH6X5efNAywvfT nkugW8tt8nshC9od5rfPrCJh8fp5Kh+92IhQYjxvkZgh/NbFJY9ny0D17KCN VxQVBzKbTxqVCPdfdTFkyWYKXivFjMjU8PH3x4F3sm1kXFyg7KEVwUNx18Ar E5ooJEVNfBzzudAwSapdfoqOvYvz1qxLYsMcRkkWX8cIyqjEGVMLDnarVP+e cxRF3PkY8SwnAQLvPhmzCxfFiVcT/10P5mB9yoroT3MUBNMaI5YxFZGmffqg wzoxhMhHsZtISpifGtAe8x8TL59sC4pr4GDKydog0p2BAbdJiztkLrwVqtfS 51HxR4IRoOzEQ8KQctrmLBGkBPLCKvpkkRO7Y+DkwkkiYCK8h7paDu4ljeJn 3pFRs7YtdVqbA6uMgGVPvRiI0v0Yc4ohjx8m2SpdwTNEyC11C217BZR53h5n HSbB6OF8p8p1XDxUHNh4fEgSCoRdo7eMIvbkqTjl2jDxlfllk/MxLs4tKrYw kBTB+pA3dJ8gOYSJiDlnGNLQodOfmfSAg/jDO19r+tFwNe1e0PZaAVZk/221 WULH9YXeiT4VKuDdKP/l2SSKJPotkYh/FcFb91ir7zgT98zWaw3U8+CRelFA PkWBh9nXAnWCB4qh8wbVjxSklIxsTZBSRlqSW8L7eqFev96cJmK52FO6XPxD 1CyhNR5rpTvGwv++DCckPSXDedGekvAgDjKl2YFVc2R43emcfyOUj+Ofl+za 0kSB+9AHwyATHtbbZPkt/UYFb/1GhplwX6cW9YdZ4gz8GIq3W17Nhs61h81b M6cJX7JcfzVXBte0mkjZO2eI0YqPToSOAhadafV/oimGYCU5Vv0YB7E3ujmn p6kotf+vx99NgJmclOt6EmIYVnscIFfNQd9rC02l70x8eyF9+ni/0O9u/PPl zT0aJmx+qx0S6rkqbnWSmOUs4arr90HjMx8pF3wTrg+S0Hil+mBDhDzE530M j71GAWnpr3BBjizWUYbiwu1JaCHF5nUacfFyqUmDLV8EIR3DBeEGclj+5UVc 5aVxIiuEPNBjKYNNSqknghX/EkrbX8R32Apwbm3Re/IDMh7+vkIRdVTAyT6i Ius5A5WFOp9trrJRVK7ldS2MgqwVjHcuRYqIMXVvpjymw6laxb/ngSyW8Rp/ lL6YIXg7PUQZFnKwcbcgm4fRcPTmez+9Ojn8CBrc6+g1QwjaEvs/JcnA84b1 j9+8EYIX8GD7mDobO8U8BnyE8z9jjqgez1VB8srly01mSQipOZ/h7qmM71Nd Bb476LB/45z/+I8yOGeCRfoymRi709gWJa6AbX1uby00Z4hhVU7Wwhgl7I1o LD6YSMfLks8GQ7VsDOvL6f+vcJrYqVWUJspSAb3WqfKq0K/aA0m2xfJsDJy4 O365Z4bI+vDt1BRNGTUHydXETUlofnlT2trEw1P10cOHT1HheYDTYL9HHtds RbomO4V+5G2f8jyCg+RFP5v0zzFRnJssZRfOxvfLq84vjRGBWd7C7BZ9oR9q dYjUiUrgPFX2dViPAi6d3q9a+pOOgh8jpwzb5KF3TrBXdbMwf9LMPVpIChDU sWyallCwNjt1Va4GD54lu4pX75BA6K/Pg1ySAK9yGoPeBovjwqfbYxuvyKCl Xi/w5Lsx4kv/0h952gLMPrabTjIQQYDz6ujZbgEW+m1/8ekNCcnUnC171nKh v7vc/LIFCYMLHUelFbn48CK+e5EVCVI3nni8nJuPz6P92uU24nDumrK5I84H aUf9t4MrJaC/Z1d+lZQszHads/FcPE08e7TgajpJESuDjnkM5cwSEXOIr5aQ x3APo5T5cY6oKrne6r9zHu5HDW8oODlC9NpFjl8PlUedc3p060YqWv535oXk dRmw357WrrOdIOZuVDGMZWQwrPPC7B91MiI+vnvcv46F3vKGwuiyOcKEnK47 9UIO+vY64T6r/hIzuabSVsv48Em/eHD6iAjertheNu6ogrD3occiCyWw9sYn aY6QX3YHtp9qaSAhQrzRdglXEbtXKWWVmlARXJtmnrOJDRXDRku7VVNE+7jO krXCfWXcfoWIFVKwMHVNUzdNARx1K4PyWySUhJn0WnuykOKYX+vXS8Y2pZNn ex8IeW3gGbkgbZoIGvrlUcfhI1Ulj1fRTUPtsbuX1Ny4MIpMvXeim46J6ss/ BhnSSPYxT2PeEcGyjU47rWZkQS0PStGKmCKk1j6v5Zaz8ezo6beRUXOEloNF fGmQBJS4hsF+jjOENUnzC094r91xHiHzt5EguqBdvLJfBvyLrCHtwini8ryq FYvOsiHfWF16bh0VsbfedkXfFOaRk4PvoWAG6K4RS47GsJAg3SfprzVH5Bkc CCuUEGBXbw7Lq2KOcLkXLzlwgo2LMscmzukPE/unrzDvNvCwyijIW/ucKEzL unwc+HJoZXhv3Px6ggjpNFmUKeTXeM1LKeaiNCEXHju55y8f149foXheI+GM Vrfr3UEW2IeslKqnpoiFGdeIiUIBqLN8+aE0CTx8wnacHuRgw6xtzbJREqYK x3NFSXLYMtjwbnjRH2JMVn1uz0pF1D7TEO18S4eo5irleR5cdNbGLkk3IMOR EjLf15mDwshExq8gEihfd9VJXZUDeXGpa+LbaeKUqLVKyjE++p7yJ9lBDAy3 d2/M9xfO4x4Q+CBmnHhUei62OZCP1aYldY3WEpDobwoorBfqy6pSdEPJDOHv U6C7MkUeDV/tN597MUq8jx71XMBQhI35nauTUgy4eHDvBwoUcfvLoHr9cyb+ htcO8BMV8HGFlPplKzLs0q36OqflsfFQ9KceZyqeySX8c6ZQAST/t1tCRShQ uRCZeMuGg1ZZU3PXYiq8mFPkN7vZsE/zqy87RIdkSbxHzUUFiK+19zhGmyaG 638EqGyWweRPv7p7NnSghqrofJeLkuySQ9bJ40R/bFfOvKMsRByua7ddOUe8 Z/XmG3zh4GbHTg+16RliZOmX7iN3FWCwOi2i9DMNLn8sV+5ez4U5aaDz8zYK EsJn9jRdVULGWPrk87VMVFeXnJEuksXKzMZGNWsacvf5GA/tU4Dn6YF3fvsn CMeiBdUdakJeo1TNnEwg46XYpZ7suzwY27jOKjtNErRbgTdPanGQLm6n084V h1lau7uDFhvIjlc/HzxHGIgzR85R2SAlZIeOG0wRZ11Kpl+Zc7Dpxn2thVYU uIxVSkt5ySLZPZKV8lYEJmpnHny4JYc77GuVhpNUGLipWu/QnQezARmatyIZ FMXQjjcTHATdkYrdL0WHV6KC2v3Dwv7jt/zEHqEPccqVTH9kKAhzZSy1toKM BLuSgJoBOWjv4zEUlpNw/K3X/Wc72VhdIhFBeSWCby2GYcus5bAnKj/TT3gv X+/q4ngyG7sznlYuzp0g0q3M719mqGD3kXqfKCFfeU7nHF6gJY/AG0zGpuOz RPqRI79DLXmgPrHOXaPGgI8tnm5MEvYHs/KoCELob1tsG8JSuWjX7zJqXjVD 5EZm6zAjuYhworRGB00SpLPl3LvdHGhX+U89LBL+F5d7nxu1ufA/1a2j3cxE nr1NhWW8ANzazqOarnTYOke4WsgLUFGiezRI2GeY+a89PFXk0UtdFrBZTwTz BlNujjRx0Zr3omr191nCyDCM8vu7DOj9H/r9ZWeJFj17x6cUWZyIjUl26Jsi Xlb2t9z4Ion7E6MJ7vRp4vHH0WJVIz56PPRXuo2SUdjoGf11WAFjbTGVVY5M 2G7rVeW+YyHaxi9WL4KEMbfGfzc+EqDWkkMJ8BNH3gy7I82ah/d5W8SmlUTg fdvK1sBbgN7i5tKPQv2/vv9on/9tDnYEbw1ijlGQ+8u+zpnHxr38PywfTTKM crPFHMLl4JvmK/Czp6Knfey071YllGzSU32iLYoVdt9/3ioQwH89fW0ni4GR rk7LgDFhfkc1fDA/RILv7P6ya/dZME6K3LqP+p1wPXAp/MJPWThwWA9Mhfy7 3vTirQvNKti2ZNdQwUIxtAacfvxO2Mc8kw/Uf05lQHeioebUnAJkVJgeB46J Il7js00mWR4zL5kFHAcK0iLL216dVsKitxnyHdFiSHh96rTNCgHKL0Raaccx YF78Qez5CS42NxdfolWKoKWX8fLuJBc3WkwS5x8cIbSvcIiQ84rYLu8qETMr Aek7mzPc9XloV7vm6bpGBFqvddPnC/MktcT7Sl8FFV98XX7qVrPwaNT/79cS CuauCvJkRuURHHrpnoswf9QaS5c6SHIhNVPGDtz7m2jWDt7LHlTCj10a3160 i8J69FPbg0I+dKpy9kf20hD9J+Pp+n9YCNy3RadPyAdmiTGJHU0yqDOw2HpA lQKHlevlskM46Kq8nWlcM0pc/RD8uFdB+H+SlbxL9s4SOyuVzYsKeEhj+Q3k d4uh7Zsd1esVB+UZs923VlGgr1X208JZFrusdhjRy6eJS49dFQo7uGiiR9zp GBVBRzt7YU4DF//a+bvoGjMgrmF6uzBWATVd6wK7dOahuMfYyySFi197fett hDzIuq8bQqqSx46gh/IOomIwkf23qcCBh/Lx/H0XJBgY12x1vqopDd5BJYrP g3GiwmDX7uvH2Yh2X5kVqkDDPh/x7WRdFrI+9hxqTf1DPLVwPvlAhI+IaCMt t1BJbK7SPK8cI4N1wZYF+/eNEYZJAytdhH0sdmRv4m1hXy4/vib//k0OHjyi zPQTQv5oGv67MH4BajMtbo18k8T/AQIU+OA= "]]}, {RGBColor[1, 0.5, 0], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVV2k8FFwfHcbsZozZxxaiEGlDUc2hSIoWZSmFkoS0kC1FJREqKgrxJLJl KaJUSKXSppI2URGhbEVZ4p330/107/3dc8//LBpbdq3dJksgECQyBML/V41N h0tfuPyTqItrypZ50RD88dDugY2jkoPeTg56nVSc+bzqztTIXgl/t1K66k8y 0sdC+yIeDknuNB5uVR2iYOo7jZfdxTLY79Y+XXs9A2YG8z+VRExIymvWxL1P o8N1/IZJxrRxid7pv+4PptDRL3dqV6v/gORzXdIZ81gK/D932DY2E5HgWDS7 ekgelqnxHz+1EzG4fU1vnCwT9+fdcNFq7JP0OdD2jnLp2B0/ZxFhFgELJ0kz WSEMNC672GUTMiyhWDsaC5/R4MUTlGdMTEjoaf9sA88xQD1bLf/wwbCkzFr/ zdavDFiQR0fyVUYlgkeqjd3hDHxkvVWbsX9Y4vRwsuGBOxP3xlXytQf/Sj5a CaOCPZmQ3d04fY9YHvWvM4/ca1bEUk782kvXiNB0XJZZ/oUFBQuVa1aVVPzo 5CTa6LPh/Uwvz8CVAn31ftfXKYqYXV1W8zBLBvnf5n/bc1oeCzdNUXI0pSCa pNY/ZMlB/HujTSvOUNBZrlmilM+FdXu4mgNVEbp2Xas1ZMSQW0yuSX9KhtqS BkuyoQBf2a1Zy5pIGDEWyNQ852KvCdXNwEsWPQLbtb4DigjxV0sOFVHxfDUz O/6gEuaHFtT/W0pD3iLrZf9oKji4mPepkUdEZNmABd2TgwUZcxMFdgyklHlP DHUpYZvztyWJ1yn4nMpotzrPx/ALRqOVFgWRBbW+N7N42MYsVB/kk8ExuzTj Wj4PzZ5L6Fe3kaH3PGu0qEmMJYdfFUwNl8eGmoZPacf5cFHV2Py6VAGf/d9Y kjkC1EbsNk+IocKyr1fx6Wwe5IwiLoxsZMP8cv6L8csqyEofm173jI5vFT2B 7gIhTmzkT3NcPSZZd37T+WkfFUHY5bZ2YA8FhQWPA73HBNi732N+SasMbHNa Y2cZcVFRfq70bgQZl3RXmC3q4KFwPdW6KIeF8mOOEy3RKhh/3BDSq01CJan+ lNIZBdzQXh6lv4SJyNU2G6ddFqPnS5xBUpYcygn9/524x4Jmr/0zfel+UujO 461KQowHv/Bbv1cG83MbG9Yv4oPKDjoev5uEldUyzTw2H7ZnonOdNo1L5JeO HTs9xMRr3XWH1MWjEsf9Sg6jhWw0ddy4TvpDhMfMigwbIQ+mOf0Nui+JuEsI ydP7ycW6ADVjG+l/uqWZiRYsFMAqzCcpMZEErWW1H8/5CDBjuDTlXD8Jv3sZ 5ldNBBjUqa81M6IjyKNFiylWwpKa7ffUviqimpnkJXquiouSq2a3jOVwXt99 fvRcLqwKjaI/vWOA5dh7f38WH2F+lu9X/yZCf0Hb1tYoPo6+X3z6sxoJan6P XB/UicDR7F4wNECFw/36W6JHIrhvsXtWvJcGo2iXgkfT+Diep7w5NI2BpgYZ 1tFFSuj1CZ76fD8ZMRrP6fqRPAh26Wrl/KKgeOodm8tMEVwePfWtjpuQNJza 0K8oo4Cf5dbKe7JYSH5gUlbkKcb3a0Pco1/6JOkrjaZvO8mGfrW+1nJDeaRb +ERMLhUi3KOHzF4vC9//Aqbk+3DxM/tDRaCEiM6tPjJbXvNBLH++o6ZPDk1t Ef4mUjytmh4pm+6noGoyNV+nnwfJuSfPH86nomblm/1lI1yYzs254rSOgYTD 1zX973AwZ0OfwZknDAQHVTpq6/LxZlI5Z+NOKuYE+8cYlfPBfahrO1rEwaln fnck69Sh2zzX7GM2E3b7D9R9e6mC0Z4w45B6IjLTXk9fp8uBfPm9eXW32eh+ udh+5wcpPmQrH8M6OhI943o7RkRQZ2R0hqoxQZb8DXowIcaIQnFhTLMCVAPu dJGNxWg2czQO2aeA3WFhekd81PDydTPFxouMsFbXjek9fJwJXK6zv56MC/b2 zdk6POip3xqyTqXgcHFeiE4tB7EjEw67KRRQ088PzZ6riAdTHn6yMqTgA82K cnWdEJWmTnRyDBOFTVbbiyyUsIZBL2FF0AH66jVnVPlQnSe/eHDWuETFzqrn 5Dsmzjpr9RgOEtEUbmsa/pSLp7aPn0V/JkI5bdLwrz0HoV9W/Gp/IYvracs7 B6GIL2tSWNnSeft3LpfZ9lMRZTmpq9peslH0eMvAb1tV6LuL5Ds7FOE0eHuT 7yJ1/GjmH9i0ho1II7N5+tZS/dt7LV5LhomahDRvN7YIqT8rVbR/MWAiv6+7 9gofVm6sl0+amUjvsWpfNCzGDbXVgdZFFPhcj3lXu4WHXlLwTdoONhREAdZR 68WYXvf4R9kAAbYZY10OugqItKlrObiBBsPgKsPbbA7UGoaIG7LZuGuRO/0J UxUmnz3KZzkoYPXbrTMg5f/WE/aDQR9k4NhXIRSqcNFsV3r+vT8TOg3Wh8uU lXHMkN5jQKTANzyBdraKj82RGx8wGSzIaHWcNr+uio2BWql0c1lM1rx86pbO xEe18J8JMWTczZm2/DSRg2V+x8ICq2g4nRz3vl4ggsFcusLljbIweTX2IzKJ jRtTctinralImakT21rGh/b7fmGWDRUBnXKxQbelfFjy1cPwABtPjVSeHTRW wr/vM4ZmvJDqZfuPhB0pfFgONK/6TqcjIrXBv/2kAK2+Rpw1F2lYUGi13P4Y G68c3epcDrHw+d/2/F3hYty9N95WMo8Ni9b2vOv3VWHX9n1H5gU2CLWGPqO3 RGj09LF0i6Lh1VSJ2bPffNzVK9lC0yJgmffOE+uGpbjrePHJUn3c47zB0+sl H9n/5Fhrl5JxvEpjlu9CEcTChRrqrwn4MJphm8LkQ/F8m0H0Kjr8io5iYQwX mw2vpZ5OJCOp28Vn3FzqT29dbjg0s/A1r/9F9QUVKLbI9n4qIaPIZ++s1c58 pJab5kimyYPvW7p77IIAPD/3mvvKJHic0VMOvs5Bs29p3pUjsrBKCTDwC5Li /evkyEQiFc+y9kyP+8qDdWDRYqK7AkwsabmVHUpYoCfJdmfIYE5kzIEhFhci gw6DH5qykBvD+7NvFeAt/9QvrJSDdzaDfQW71VDxr6El+gMTsx5nK3UpKeHg z6+RP2dQcMpA6/KRD3z4sotEsn5kuI0VDmU/5cNpumn40stM3NTzTPq1UQm/ j6kwW5JkkTSiJ2oK5eJJpVAvOEoBWhrreCaByrD+S51p+1IB/501qbKVnie4 I9/S6sSCl2bumNpOMerPSZS/35+QRHscP3e8lwt7613EdDYJUYrjF1768HDF +O2axfvkEZLN/tMqK4aFZ/GMnUIiJukrx+2aOej/br4qzHFUklWvrOkYpIhy s60ebeMy0Ht0Nb9Rl4dr+0b81rkywc78o+Mk5cd28lX744qKmHfnG+GgnjIq esx2JgWTsP5b21oZqa9f/i9lygN3MkrG+m9t7uKirGD+SZdyWeSX6y0QDgtQ te3zorpPRFh2R0d8mcNFkbzBykweE1bqQ8vdmkQ4lCafP5Eri2Vq6tPMeVxc j/gS8+gCFc33/zhHbhAgomW8rmiIiLzxzADeLRZOXDWYQTggh12P5lv8qmTj 2qVPPU9ENFQfkFv1LYyPQme75ho+DRg6tFrmgAD9ioE9Y57y8PH+4T2vS4TQ Kwl9M8PZaBlJflvlqQxmdvrwtV4SdCoOVKqnKyBFT+Fb1zQKEkjX3GIUhLD5 UTcelUnHnWyr/j1VYkSZf8u5a0MBn7AluD+LjfS3v0qsP5EQWnr9x2x5DiSi Qr2uMTpUnR7/yBwTY6fepWplGTJqtW081aV6mpu2Z0zAJSDQ5vkcUjcPLk5H PMIC2fCk2fpoOytjdKziDTVeBgU3Zt+qKOajxuPFiTwvBpzldrm4ZojxIsC7 4/VUOiKDf9mpE/m4FP6Ptr6ejo66sKi+h0rYcmRT5pZ+FgZ5OVVZeWL8ncdv RBoV+fm+fcWn+BgIucO7u5KJFeKS2aOFfOy5NU/JfZyKsdMbKNd6eeBkCV8Z GJHwwiD+6vd6AdSmXN/RKNUt1g4Dz/ADqqi52ZmhMoWCFpaaboaYi5QP7IMt PVSojN0KZ1WKcTo3p2H/gQlJsCCC2LyUh7JVFG0tCwqUhBUH2sHDD4fK/Vfv 0MDov/D+WJIAaS1l93c8JMK+Nv/ZrlYpzx5nzPXoJOONv0HhJbL0/U7pf54+ pcI0w/ROWQEfRvfybI9aElDgkbG4sooHO+vvTiYkChbJG90fe82DpcN27tbF kxI18h+xYjAHFHffd1dimSjLfvrmkUSMNOf7axMr5aBuVTu7sk2AKwfYdEY1 Gd751TdPBAqQVHCLFnmXhNR3ER9SjvCgfrn3TdY8Ih6ZjrUvP8WG9ZgNV9ty UqK/7kZ9zEwWjhjQXn59KI/zP2y5I/dE+MB52pUbQcITzQR968UCGFAILHtl NlZtjva+VCzGbGVKh9YVEr6FX5g5OYOHvrGvyabrWYjS1shbd1UZ92LfaZua 0dB613FvQj8fXo0DUbfDKWA7RCfuO8ODJ//2lTqqPG7P1hhP71aF3yHBRWsL Elak1589OMKHUnpyaWuYdF4UfTtcpfPuUlnzTHMtGyfknsR4MlRxxuu44zYG BdPfsZo3H+JjdcSxG+RdLDQkWy6xmyPl9zJZ8qM2eSQeYT6OnCpEenJZ8IOj RBBiukpjLXhwvGXOMJVhIaXa+u5ghLI0v96/GPuQilknLthr7hVCgTaqH7Fy QuLGb3fsdVNE5k2j0gX9VNQOOE4NGRegcKuc/jkJDcdNYhWJ1iJYv47fV0ph gPIo1jeSJIKzwG3vzgwSttR/Jt6I58LEWS7vVSUTlOWHC50ISrjlXus/8oiE QwfGJ+ScOTifr/05PZeJC7t0Vny4JoTbuxr+14t0nL4UT8yeK8DNjZoNLAcy DC+LDf+7KO1fsSft20oUQO7elDWUzEfnkbVudCdFmJxbuOvKbGXM/b3BPy6D DNOHbz/5xKighE9fkmVFhUfpQXmdKdI8XuZ+s/svEXJ3Jy/7D/Lx3GymESF3 XLLA99XUT8aKYA+0HA6ypOOcBiW3JlQJlwXkL2U68ignkyaLjwgxafaz7+T7 EUn65PpUlR5pb8l0//c4mIryDpXP7ttEKNXjP2yokvbYvBPFugYibBu56P34 y6gkLiN66X/SHDL4zZTtqEbB12FSyOzFysgQ1SXciKdg+PVWa/lOPthKgWWv kmlYec/VcmGAEHaOc787b2HAwXHml9XLxMjs0pXZoUrE+9vpQ51JfJw6+VeU zGZjw5+25PIhaR48f1f1LYWNb2aXtKwURPhV77NG4wYTvJ2FpXUbhTi3kJK8 O4iFihcJM8IOquA+K98mTuoXPPvLhwbOKmOY9uCt9W0qAi+6JA1IuDDfHXcw aZccLnZ1BXUN8/F7noNHVBgbmb9dAlIahZAsJ3g5C9jom0YY+dWlDGNX/y63 KWyUN6/o9mwXIWrNluBfctL+ET1yt4wsQp92ZkuZGxWiMJvtS6X99KIke87U bCrC+97wClg8KD87Qi3NYmBq8jGfYGnfCM4p3/1qBht/D49dL78kQp1rNa+x ig7XJWF/aqOE+OBJszOV8jP1hMaC0rN89L9dvs9rPgU9Q5usM39y8JbjPf+L VA/9jrCznxRzUbXaK2eTnwKE5rHBJzqVwE6JiG1yImNIfTyozUQRr5oOhSwZ oCEDwZc23xHBbcnNyzuv0SHY+7M610gJ/h7zqEuuclAetHNe/dsp+P1jn0Gn vbQPcPaee14iQsDhoTjvAhbkXmcmHlMTQ+lTQ1WHJw2uiRryWxh86NCbQtyn MXDcVv0LPVcA49sPFg9V0zDHQ3cy1liE3h23d64IJkBD7Udij7S/CtzU4ub6 SPHv39rUncyG4qunpzdGE9BvPPwxns9BnOHrWtl9VKi77r+RFi2EyGxVBvuC tL8svJeS1Sbl9yJyabLBpKSstyQ7y4UN36xBZ7syMtgM7Y5TkQLYybbvKF7O BKxaV5x6K4aXuY2wh0CExlLSzfP50vt04vQP2Mrj64Jlz6J2CjH6tWRhZSER JbJG7+uFHPxqE9Rv/kJDYOiazVb/pOfdt2C9OkdGUMXqL3lS/dtbUnQ1m05G oVeB6lgMB+uvjW55l0pFZej7ow861RC8y2dG6AQXw/UBHzSTp0DbLcCS/R8V vxtaJ083cDHVvvGFD4mJ+VtPVgbcE8OfVcf5G8qE9eyO+Id6Yul/BwQdzmOD O2XqnAveylCvnZnRXSELPa74BEGWjSWrEpYzgrkwVr3j9OaPCHtzPWsbi9nQ 2lxtV0WS+leja+zkHD68V4Yu6IhVQeKFzZQTYj7y1Awpc08pQzYocXu7NKcE Nt1qOSbN46pNtXbHtvIR3eP363GjJpoKPsWvseFBW4U5bw5NE2esr5KXpfGg djVk1X2JOiz+LOpWoQqg4Prqll+xGnLoThUMaS5MTVh0RXhFFTa/1zmrcqS+ ZWNhVuCqhv8BvFlb+g== "]]}, {RGBColor[0.6, 0.4, 0.2], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVl2k8Vlsbxh1FKqLCM+397L2fx9DEEZJELilDMkSOMhySFFJpEioZKpmK 0GxuMh1jCUVKRagoGkzRoGiSVKLe/X7av/1lrXut+7qv678Yz632GyQlJCSE f0lI/P/rMCTd/KJLGUavhtwutSnjUpqbcU+bEhr0OAm0NgF6srXUeyUOXvlK P3hJcLHBQ7ZCYSkH9Ue+pd/LUQL5T7xhKkHCaa6WmmciieodxPYXKwj09LW/ MTASQqOlSOPgbCGsJkz1LqSVwZU8ZWr9isIWS709Z5qEuNUdlT0kycPpc79/ X1/Lh4ejgZSFAoPl6slpOwaE2JUtu2iCPwVvoyGblRI0dobpJ2aMUkjx0zg4 7boY23vK5Iv28nBNqeeOTgmBXW8X263MFSAh2i/8njoJa1+boBkFbL31pYO1 wQQ268yoymnkISPih5V6I4UcO/n2LZMpbCuo4luOcKHdNcGzNlEAiUbVc0Z1 HFhUPjV1X8BgY3JAmtpkEUIaF5XrRjHIHFIPvOfJIPRhzzP1MzyE7Sz83BpO YkSxsWYVhwetgrHgthoBXIK4u8xMGCQnrt4wS4XGxR0aZUdjKYj9H/C6YwWw D/sSbtvPwdbXH281Z9G4e2u4buIxCg73QhLGVGmYNZ96qrxKhLZ9b3ZQ9TT+ dvoTN79NgCR0H+cfJJCVkeBnOYXB1ucjdubXBRiaUdV73orCSu3/zv7qJOE9 O//0tkA+psWrisekuHjt4ZhQp0HDy1ijDTU0dqdNp5Nf0/BPb/EPieejy1Nt 7ribAAMHzm+P2ESjQX3tzDYnCpmR4XOvVFKoNLbPVz7Ch7vltzUnk0h8s/hn wllpBss03oQPrycguUZPe/1TBjcUfz7Sf8SgrtLt7eI5FBal/0iWzeagfW1k u/ZzEonGNuaH2ikQPz3V8r2EkCqfldoiwUerjaC6dgmJnLKFjxtHaSzdEqzG T2PvxSSkenAegz7Z8nfVrC4KU/7rvC9BQblx3umTiyloz5RPkflJIJZr7De3 mUHHvlGocoUY8w8+LdPJxauk/vimAxS6Uk5Q+9MI9v/c8TgHtt8n3ygeuUQj RS3q2O0OIUZLrV1rW8T4/lLbaNBRhI0dm+KGP/AwvkPPNdJUiHsDRX2vu7iI qgu99zNLgGrBUftmHQHubKiJu+FF4NxfcftLG2l4DhZstIsjYHLlx/QqVz7i t/KYj58EWPdsw/PSpwTcNon1iJ0Enl66/F9tCbuOVmzcHlkG5r+8gyIySBip jV/WN+bhY9uEJ3JXhThhkmweQRIwC+xfJ6FLQLpA1TB/mwi+iw45Tv1FYH/E hcbiLULIT6xu1qqjMWqff5ezkMDn+Zevd18Toj7UyGXGSwbZXot9K1spWD3R 5E7bTYF8gd/7ikjQe6bAn2TweFmpXuBpCtElx8XB02noInM4/BoFg4y+9hL2 Pvld778WRTNIvbZtXoaaCBkN10d1ZzIoSboYpsr2ycPSU7K0g4TeaT//mj4+ Dui5Rniy+hxmms8F17G6l5dIlOuiMGJzoIyZxNZROUymuQqQ7rN7cLEtFxrZ 9TM2fKRgYi7rkWpPYbts//K//qZR9XHXmnW/KLht/jCnLIKGwqJOzaxTFLpV csPGfomwqanNICCeRki9hZb6EQYtq5oDZvQQeG+5UCwbIkC2+bjpXAMRWldP x6RnFNpdbcJC5CkEtv9WILNFWPODtzFogEHM3izF1EkivLsrOf2GKw2rM8VK Nz9TWNiv3abcRyLtW3z8X84Upii3XLd+ReOK91ut+u00Apq3dU65w6As6s+P SXMIxDUvnStnL8D4cmMP2VYhfA+vm+C0k0FxRgD36kkKe+UWxPz9jEYqIcx4 /U2IRPMvib9oHiT3EX2DVTRcAm+W/JhCoSfVofy/UwJEnL1q0VZF4mvhvvLY VwSuH9yvtayPAHfBi8j0KBLHLHbemmHAQ3pq3U1/LwYu0U8sd9mT0JkeNv2X pQgVXiWlvM00tiwIcT3J9r1XuyEvuZzARW2HyWbpQoxXRydN3E+jI6FJMzGG jz2Pli+a40IjqbLfXmorg2+ZHb6nz4uw96/8QQsZPrTm58koFpLQHTdT3G9P wzd83opRdwbhH1Zvsg0SQjP/j3kBq9+gScWfiv6loZ83Z1iX1WPh+jaTx1+E 2P/r3PjZSTQ0pHzweSIN8ob60ZATYlg33l+40ZxCfGuuY54lAanbstMf6lFo fOp6XstKiB5idtZBmoHBmtYCubcCjCb9mSb9jAE/mC7MaWR1RGsHRinyoBMc ZL7Rm8Sb/hiXDlaP2aV+I5pDNDq/735x9gQP6ypPGWyyUELCBbXyq+0kRF0a 2kXPSKTM3as0aMOHaq0LZ+AkBw/vVGzakkkBFnsVMiYxCHM12qvgzurGTNM0 sJjGJ0VNHzNJBkLneeudjtNYq+tu48z6/HtK+nxxLQ9ql1/aLa5k4NkocanD iYvigUT5x+z8uK8qju98wvZ5G0fvXj4JDveszLeZFEKKjt08Pl+E6P0xv+vs aCxYvPi5pAKN2dGjPk8GKHhofr3Ye5SHyIuvLtLfOTDUOeGUeZ+DKInR1cWq BJjYzws9JDg4z00sD2PrdGzxvN1tKEbriJxi7HohmqSr81cc5qEozdunZh4f Uq/qdLdKs/v3uazTkSDxOLpiOKGJwJEhFde75nzk7evo9/IWYYFpjXv5CIX0 ClyLVWFg/yHG3aOaj8P2fa+vbGfz4btZ/iO2bmmLol15uTzYh079E1ZB4KbB qQh+GoVfEeEz+2eLsN13HRnWIITeiPLko+cF8B2+8SHxqgDvRi1UTGk2P8pD 6gdU+Iidt27wTCgHfdExWV6KInzL9ai+s5xGTul8s1A/Bl9uc2O7ckQoFMss CPkhwoo/4vjd0UIEf1/t65PA5mOQWfGBLiFWS212apSh4LvVKuSMiM3PhVlF ictoMLRmReVhBmO3rMfuczhQls7ICtVmfVpV6a+VPXz4JCySLFnO8kOD0T2J CAZnU5SvFRzmgi8H9/RYHgolfxgFj7DreHdeiwOBjw7hTM07AeyafDd1J/Eh kWCmOvuLEnSNTVpK/3Dg3CE3ySCCh71bT1p53aKQ/Pn8003hPFTJbOtrZn3H yKrARX1cBPkn6c8KFChcZFxknEQizEmS0vWVF0KlomjLLVMaD5In5gbw2PPo +JqOS7L5qLm1WjVAiKTZZc+MD5PoLjljV+7D8tZEV+rNKhJLkqQzf56kkegj mv/WgMZgifUJfzUG6q0r7mo8YbB/mPt73Rkxzmi3iizY+VAZ89xyO471/bfS BY6aBFIN/dQ/7RLA2K3G0L+XwJJD/xDLnWm4pp79us1EiBCFJUmF9gTLJz7m 9+ezHHXB6PhQO40wZ+e29xkU/i5dEfHkPwazSvo5ycGsT0au3uRWLcR2f+8u Az4foRWz7shU8DFlS/CmyREERJLNC4XdQrztutzQfYfA5fzEz59Zzgs82p90 Op/GrxOvfhjn0NAe7DILzBTB5btZmoshiZDKvuUDbUIEhh3IkI8RYtm39CkX /VjfqB1bfzRUACuHJR76YgFqOnWrNcNpyNU72DIhFKQvpKVms3y1PXZVxBeW g1T09Z1HjBgc6RF2xZuw873g4da4FgK58j8eytMkTFXSjVv4NHSKKv/29WXv pyf6WWaOGOrcn4utTBmEZNbaySYyGFEovFnWQWGWrOnJPDZHvQruLL0BCrae XRMbRkg89C1WWPCV1avs0bGvbO5aOna/DlojxEeB3gbF9XzYNB0V0Hkc7F7q 1vy6lUbtPspwDXueKGcNjVBWx1kDefeOd/PA0diROi9OgOEbu1c98yPA945Q DLLi4ryS/dPJR7mQXfmyvVGVwSlbvk7lPCGulOV3Vo0qYwqn7nX7Ox4G8+wX zzER4HfcWdfEByxHbjghDqxl87VlOHD4tBAyG40G7SIEOKhb/7EpXgnXogLS I8tIzB9w7FFmOdlEPDyyyIxGQeKMt21iGodvXfgWsIvVR1ZJSehLDs75V4Y9 4LKcnKH+3X0dA+cba9LH3rJ58M75+YoSIWwMLBws9GlMV7w8Vm1O4lP/2C+L AQGu+NUbbmF5/vH9jw4mCgS0785NdH/Px7vxcwMv2dyofZ2zvHcqheo4z7TN xwiEcc1emaTycaj7+/XbWjzo71x982QUHyOaUm4LX/Hh1CtW3jzKx2aRnNLe 76w/XW/bTi3hIJnoWfmQzRmbGukRfZZ7SvK3x85/K4RwTlCw2xk+Bpblpsz8 Q2HabTRYazLQujKlJm0LA9WVPjfqj/Ohw4k+sDOCwvXT7cTNXcqYdjVY7usZ GhXtoZFyi0nMW6KPp7NoWBbdk12awGCt2u8aM/a90SgqPJ/0lgcPr0kXl4lI xMZKlVQZEuh8HBMpJcfm6qzeiTIraRAxa65d2UOhPkUv7xDLcd92zChZZczB vJ8fti4m2P3T/J1Fu1neXeHTlOotxJTgxKyHbjwcpmNS9nQKYWp0xCRXS4iD NXaGL9RIiDdKVpe3CFHs79OVvYKDVWFm85jZBPRlcu8PFpP4YhhZEKMuQEvZ qkAVVyH0rQ6m2dmyfh9P9VbJUVhgP3Lorh6N1qf9XpuXKqOwvvONUhYD74qc 6bqtBKZZDbq/qxShwcO+fdd5Br4vpW61BLDz5/io5DW7T8s5yYgANg8ZP1x6 PswgQC4rRe8CgyjrYecJXWKsbpBYsfEajX8NvkyYO0DD8fBISGKoGPLKnyzy ZFUgXfHQ4cIpZUj/Htd6NSjAWMbJlllvaGycWmZpGEvjZcg7xUpZCocC/jXJ nMpH0o7uaPONBNQX6r4z/M3y6qTo1AJGjBHpoUefT9GIcFnuPyAQoKlMKbM4 jEb0hsGOS2x9pT9O3Da3I5GXekfZ7YgI/7mS6jETGFSYX5Xq3cDy1C+pmBK+ CE4HzVZY+avC9NHFgLfqDHL81a+tZTlgYhrHtrJXEUvWN1+1uU2APFy4Jl+W j2RvbbXHs0i0LiQn2RSxvvKk99zoIhU0f+J7OyeoQK+t7OCH01yYemWH2/hz kC05FL5rkIZFk3kIl+VE20dz0o3YeRCs1SqtzeLi+Gd3hZz5AhR+qCpT8OIi 51PRPq46gT0xlfx4B5avl3w2XrJKgJvuKv+GfBQhsHbHmx6OCFK5fZUrH5Ao S3T0NqcEsDhULf7Bzl9PabZj7xkRNp+PVB2nRYic0dAdxvb19a5C8WUjPlLa 6u4+Gxfgln9HuVM5B5TJTO8rQ0LUBZQbZ7QIIF5479gdLQbVG1Qyku5RMN5h rXkxgMbVsg6dsMvse2Cq5V3dSCG6wgm/we0Edi9LLZBNEeFn0G7p9/8wCF65 f/LyHC6m0pYhH5JpvCtX/LXbg0Z7UKHttk8UnOp6qlTS+ajR/nzlew/rZ37d ucZLKfSZD+yhDnIRejREZ3OZGNLpSpemszqUldNZENPGR2KsG+zzSOjrOQ+p HmbrPPbT6bkuy70rsjzy9Cms39lq/+6BCKemF7b+fsEH93CGla2cGLmzizw/ PGbgViEdEuckgvqb59s+bSHQML+pLZxDw/iA9Y4H7LvXsnZqYKYtiTGj5VYV uQTE6rNvtX6gcPb9U6fTcQyGltreP8fmy2Yva+WoayIM1Ht9GVkpROoVy+ut +yh8mV8TWWBEoLrAx+hKjCr2WVkNzx2iEL66d+TFNB72h1ffvFtB4ozibYc1 L2nMLfDov7yIxkxlv3z7AySCV1W2L53NcvDx/IwObzE+TZNerc2+D/8HtRuB HA== "]]}}, { {RGBColor[0, 0, 1], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0, 1, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[1, 0.5, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0.6, 0.4, 0.2], PointSize[0.008], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, { {RGBColor[0, 0, 1], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0, 1, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[1, 0.5, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0.6, 0.4, 0.2], PointSize[0.008], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, \ {}}}, {{}, { {RGBColor[1, 0, 0], PointSize[0.025], AbsoluteThickness[1.6], PointBox[{{4.396803543380866, 3.7435335927260667`}, {6.456358863190282, 6.217179539164785}}]}, { {RGBColor[1, 0, 0], PointSize[0.025], AbsoluteThickness[1.6]}, {}}, { {RGBColor[1, 0, 0], PointSize[0.025], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, {RGBColor[1, 0, 0], Thickness[Tiny], LineBox[{{4.396803543380866, 3.7435335927260667`}, {6.456358863190282, 6.217179539164785}}]}}, AspectRatio->Automatic, Axes->True, AxesOrigin->{0, 0}, AxesStyle->{ Thickness[0.005], Thickness[0.005]}, GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20}}, ImageSize->250, PlotRange->{{0, 10}, {0, 10}}]], "Print", CellChangeTimes->{ 3.8907330573042307`*^9, {3.8907331128234053`*^9, 3.890733132825886*^9}, 3.8907332246350574`*^9, 3.890733255851194*^9, 3.8907332917736597`*^9, { 3.890734122716251*^9, 3.890734130815688*^9}, 3.8907350624635315`*^9, 3.890735095484761*^9, 3.890735136950403*^9, 3.8907362132748594`*^9, 3.8907362884062567`*^9, {3.890736938614626*^9, 3.890736952305652*^9}, 3.8908742849279795`*^9}, CellLabel-> "During evaluation of \ In[117]:=",ExpressionUUID->"f6968d6a-d400-492b-ba2a-8b698c675104"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.5395340451294452`", ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"{", RowBox[{"4.543696540433364`", ",", "2.398560298507245`"}], "}"}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"{", RowBox[{"2.7775870626512513`", ",", "4.223413848483165`"}], "}"}]}]}], "}"}]}], "}"}]], "Print", CellChangeTimes->{ 3.8907330573042307`*^9, {3.8907331128234053`*^9, 3.890733132825886*^9}, 3.8907332246350574`*^9, 3.890733255851194*^9, 3.8907332917736597`*^9, { 3.890734122716251*^9, 3.890734130815688*^9}, 3.8907350624635315`*^9, 3.890735095484761*^9, 3.890735136950403*^9, 3.8907362132748594`*^9, 3.8907362884062567`*^9, {3.890736938614626*^9, 3.890736952305652*^9}, 3.8908742849592223`*^9}, CellLabel-> "During evaluation of \ In[117]:=",ExpressionUUID->"cafc4460-b4ca-47fe-bbc5-285b7602e214"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0, 1, 0], Opacity[0.075], EdgeForm[{RGBColor[0, 1, 0], Thickness[ 0.004]}], InterpretationBox[ GeometricTransformationBox[ DiskBox[{0, 0}], {{{1.7382093694041454`, 0.}, {0.5877129239312422, 0.7736988011356426}}, {5.963093253628679, 2.431888696090106}}], Ellipsoid[{5.963093253628679, 2.431888696090106}, {{3.021371811884357, 1.021568110897191}, {1.021568110897191, 0.9440163158345407}}]]}, {RGBColor[1, 0.5, 0], Opacity[0.075], EdgeForm[{RGBColor[1, 0.5, 0], Thickness[0.004]}], InterpretationBox[ GeometricTransformationBox[ DiskBox[{0, 0}], {{{1.284657961103049, 0.}, {1.4731847022956073`, 0.9659094461642305}}, {3.075023800465487, 5.504164078130148}}], Ellipsoid[{3.075023800465487, 5.504164078130148}, {{1.6503460770254434`, 1.892538455979277}, {1.892538455979277, 3.1032542252670874`}}]]}, {{}, {{ {RGBColor[0, 0, 1], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVV3kgFFoXn33H2IUsUbwQj4Sie0roSRISvVD2UkhZsiVlSUpCJKQikjVr ytaKJD1CpRIJ2YaxjGH45vvr/nfPvee3nN9RdPG1dsdhMBgVLAbz/9PtbDfb xAAH8UoKcj0iFLisdfJN/doKGt745pV1Bw/t3LJ/PpHEQ553axnjIXjQsvQb viO9hDpqClOvNLOQTpPkjTIjPPiU6dxbmuagvTsOTBVKYQD7ckdyKB4HTSuc L6dSCxrlSy7cd/Fko0fOzmepP3AQxOhbXnOmgGdXYrxNAwZ6Z5cM33sRYUw1 zbBvAAsvHqUGPi9dRe01zpTpf/EQonUl/ucWHGQyHyq/y+egbfccnCU9uEha Tb8/oGYVXZdcSU9qI0PgYbKnfAwWtK9J3PCTJEIF4+v+zFwscGne7F16ZKCS A3LOxxPANT1sIvwCAW7bn77lKIiDXUa3ZCbDcFDdMXrCw5SNuvYVSFg5cVAT N1T5rFJD44+Ec6Sd7QvInOM8wHnCRnIh5TTKFA6MFNfnHEzBAakgST3pOgZS UzKnIsUwYCah2oG5R4D0ehImt2YQmTt0drNPrqC/eDv1Hsjg4HS2pIRdNB6k uj9ixvfjYMPd8K4iGSpsyL5dOqUxjo4+0sm0ejCK+rRHTG2FcXD9zbS9TjkZ Xqt8pLxXxsEOU52GCgkiFBgcU67UW0DN/ldafIxXEPNZRf5qxjRa2GRmP5/M RT7rglX16EQwte+0SHpGgqKnEq/39C2hBvFU+51Fa+i5/Iur7kMraChiuNlL Ggsnmu9cfF+Hhcn3cgGjfhj4Qw7a/Z2JA8knK7MsSxw0/D2yMlFKghGqTe8G +TWkpUde3YsjQIWUmFByFwlqqzBmMlmTqLK8IgdJsVEPjkG7dwMLUFAgpZ6B hbflC0FZUXiIvmP1o5T//z1XeyJdB9ZQ7og17mYIFxXH2f4cfEyAY0mh8umS FOD8qSVdvzmB1IvNtrhqraC4XRJB/wny0AtJIV1tezzsItczk6kEqKwKkF2J n0PDw6rxIXw8hfdkfSG0UaH8o4693PAccnxGn67OwIDSvZCEyOcEyKHLyUSZ E2A1IyN3LmoeeV0jR51bGkKh27PS/fIXkVX9NEuCz6+YZYPo8L95KHbbCF3f CwcoXdG+bT0O9imOBToq8/ulsle0WZGDEhYzD/XumkL9uS0C4pEYsC/fJDZd TQUrl2UT9sU3iGIe/rOA9QVdFdbKUauaR2nHk87XHcHA2HnxjLJmPLjIVGCT h1fRH4Wvyc5vx1HRw4bMV1cwYM2iT26PxIOnTNPha/vJYBRrFxJdR4TRpt5D YQ1LqLvqHcVP6yfSXFuf6P4XARQ+nec9FuttjFBovZKrNY6KC47ObDHAwIBV idnDQTaynUsMdd43j757+cylKC2j3zOpJcZGa2hbq0JyQsEyGnE0nLBLxUFh 6uj2BxgKFNy8I1OUNoeKPWdObvEigWFns4Fs+Ar64NJw8lw8D3F8U0s/SPNQ w8TGjnJdDhIwn1GXsMHDSwO32yQFHBBiv7mO7MFAyS/R701DHHQwbDZt5igO cijeJ2OPY+HMpa59pWQWstDFSdrbYMBCmZnQu8BGNlVOoh6CWIjuoQY4uc6j 7l8NViUbp1BJv7618dNV5Lv88fEY/96y8Zxdgi9W0RmDnsmmQBJ4/xDn6tN4 yHRE1UhWdA0FL6Mqyisi+N8WDOukLiN7vLNDYAQG4qy7ZZNbCdDf8qC6KpiL 0IDVX1yveRQshwtU5vPyhXgj11aYCGWWoXOlU4ONmTYvM55P/UFXkqJ9pE3I EKd3+9pbIS5KU1YnEd6vouc/8b9Hty4hhVtV2c+hGRXTtj20/raImhMkD107 sYwSrKQKtvHxVbfn3uDeXUS2a6eiebJr6Lxvnd07Qxy05rWkD+5bRbs/KB5/ ND+O3Hf3j36MwkBhY0/nsYsDyM9dfwErx0J2BSmYd1HLqMLsraSS2iw6+3PQ Pe4iX1dXr8dzivHw5niinmDnDNqDXaxszcLCFY8kvY6tBKg+GRR7eyMWMvsK /svH8JByuKDw5B88GGEdZ3n35tD3f9W3lzlwUb6J1f3QSb7PW7Fehx0hw065 rSlK3Rho8Fgf7DaHB9sjdo9+ZUygn7cIvfdO4MFqybCvMLILxfx4QrXDLiKD fJNccUcc+KvU/v05jAaFhiwblRJ2o4/Q7UoV5TEUoJ1W+4/5LNoWQ2BmH15F aT8ObvttRIRvThuc/vmGh8546Zpnc18aLyBXXXHTFTQ4sWrbU7yGbH/19XNr +PPhcDotdsMiaos0/vmkeRmp3jFVcefrzQmb0ts8jQVVrXEBTPkK4hwYPt+f S4C2obBpTYsVFOLY1qOxxEHcjSn5WSJrqOnA0V9t0gRw9/2sMGdLhoUHZuF6 RB5qmso/GyVY19imFvpy4vo4+kF/nh5eSgD2gFyuzx4CPL285rR1YRU5nF3a XHZtAbWqvHlwKYQA0Yp5JUZJa3z9+kz4dvxEzxYjLCqq59BazhBOLnoepSow /su1IsCBkm9O/xjPIdazg2vLA3PIq8DotLZ8F7px68AhUzEW2jO0O0XahYvU Q1UXB/vWkM/d3WZ1DXPo768Nhm6fMKButjXKErHRn33b9Hlqq4gTbKn57C0J sGwXy9ApLjrmcqx9LB0DxbuEyB924KGszdbxzfxHlKw3eeW9FA6+Jz0ypXmz 0JxkaWbeNy5aL54saJrFQqspezO4uitItcF7yJzDQ6GazI7VECIkn3p6/8nj BbRJ9o3SSBgJ9gu/DBY8jYPZrYoRdedJoBAsfNv4OgfVjp6PCl9HhDaHCNWC SwSQWUmkBx5cRZ1Koc9Kt48ji5mTXP2RVdQf+2KS+J2DHm8tzCPo4OHGnRL3 XFMM3HwV1pOaiIORsePFR9Pm0Sv20x3rKEsoJy3iZXJZC7qzbbZvTGIWXYpd UDu4DQu17oHtjvy6bjt81HXCMJAQu6nEU4GFdBtXPG2HcRCaZXyq8Rifv1bH cXG2WFBr9br5a5yHDrSyvAKCcTDh4bZAxVKBua7JMOjHZzS4Q+P9DQMusrPZ 6P+znM/3O2qi1leXkd+yh/+ofzPaEtuif2J5GH3r245bG11Fdv0gYP0UCxva vUKbZqfRyJbLRTQcBkTKZsvzu1ZQoM8Aq01zBcmfkB7VVGUht6smhSWneYhR H5tUEfsLmRdabgnZhIVN9uunHXADyEnIE5/6mYOimncVPvn8G22ddPI8bcXH lzi5XBLLn/O6CUW0h3hotG5viomZQRoVOqyvJzBAlpsKbi5fQ4x1gTdbUpeR l3i7sv0hPFQLnHWR91tAUl0aqUxzPp5RQrrr7SiAdbd87p2zikwZN3bOyFFA sRI7dGSQAuuop4aCNGiw5ML9bfKHAsreBgEpO/EQa6RRLuxNBvb79S/C+fnm WUWwgySdAlarj00HApZQF9X8zMFzJHC9dzjvN99nX9uUZV/RpML3/uLweD4P 4nnuyNGFCpJf06tfRdHA52OujK4PBboaLyb1ZtJh65ehfu46MpzzV/HC8PnK apVY+vcTGTIGHle8bsLDjk7DXW+lSTChsdRQp0sAfSxcc8yjwNBVstshMgP2 Bw1uWY0igoX95k39dWTQ9cEQGNvJECbspEzRpwI76ov/sB8d1jNuxTY2MiAs MDFUCkeHqsaz9evUaLDG5sEZfu71NxZesH2Kg7f9MuzcQ1Q4MKZ20odAg1O7 8X1dlSSw/4ZS4lKp4PvOVYLTQIZ290WTlctkmBq/Iix+ggQDC1QidSMFMFKi HR/yqeAniktcKqfB8c45E54fGZI8D7FIihg4X3kzLUiQAhrZZYYLFkSIfT6i 0TpHhqAPVO6un2T4biMi7z5OAn0HmWc3KwmwpuyQvlZBAW//MziTLDIUNVA6 2UNk2Lz7S/3ox1U0oHP9Wt4qCeQIgU+iU8kg+CPGNFqeBNbB/yjpHSVCoSrr Y+/fJGAm3VAWu0SFpxtIDg1tNAgkDURY72XATOkoG1dDAfHypPJpbzpcSfiq VhFNhuFTXt0d0RQIY6usXJiigp1we/WpeTLgJd3CO83IUD+QKJX5lAS9JeJz Jd+oYLJf+owtP5/8Tu8ovy9FhYKf2cNFjTiYdIvZZLqLDI6MvtPdyXiYo/aK ttZTwDIXY6Faz8+FlxsJli0k8F+v+MDLiQJoH9v4X2c6tG/WNNMpYsDvo3SR pYNUyD9gfVDiAgWeZ+1oc8+mgFzobFVmGBEEE0seZG6hgnJtT14chworgS0d 5mJkiPSwaAkmkqHK1/IzpY8EhJq8C1kX+LnbQ95aJJiPh+oX0VPv+X1RdZpI zaDAXgYl5mk0EQZIIjS8NhXo7kYXOt4TAdOUxZqJIcEpj03pyktEuFljIIzl 86VM0pnzQBIPHirMFw9mSGBhm6Zl7kWDV+UldIotBSJ0/tRNua2icp7U58C7 RGC9KaifUaCDS++msLl4PFjbOUlkJ9NBWkLqxacsGth7CjS3igrCQFXnIYeL DPBrDUzeJ42H9APe6inFAtA2ePdQGQiA0vy/va7TdGB3l3W5MEjwX8jlG8Zx dOBJCDUN8/eR+ueW5Uv36RDBomgZ2BBhb4K4p/czAVDTas10TaXB3u5U59Qz wrDo+bpf4qMgtE30yy6+EwTlHy3a/UcYkEzcO81UoUPgo7Xni3xf2FmSsceW Rgc1gfEbAWfIoNi69EAWBOHt+5ZblTVU6HPTf8TBCEJxhA01bacAaAuTh3t/ UAFlabtyZEmQI+EwjuxpkPCGzKieXUX3Bx6OtywxwNOg6mWMFQmGvwVyDssw IPDUmNfFdj7u7Me5ATwa6CdVGe84ToTLDrp7bb4wwEpfNNFQmp8nSt+Xu/L1 +2OR/juGr5PWljUHm2UqkH4vHbnEz5Pm901bFlkCME4ePaIeQIaj6mulqkcZ 4LHvj2VlDBleRJy4+VJTGGgyx55kEZjgT3J7Vl/MBPehhRoXmiAURpacUTJh wO2nyUWGRRS4bVRospBDg50vrxsFd5Dg2isPx+wZOkyzDm98cY4MpvOjcoWP 6fB35D/dsiYEuKl67D+evBCYD6fkS4cLwTFySX3DXSpUzxdVtM7z99Anpi4u f2ggzeS2dPL18XRyh6zvBBW+jCc0T83iwNAwLd9UTwAudQyViAfTQTbm/i1K nAg0+Op0/1ITBjG9g537jAXAWeysrW8LDRbGvjCkmqmQ2sdI32RGhMyHX4MW +XuPcqXb/mYTIgxaBDXm/8MAcqVsU+M1AuQFUzsaVJnwqv2sZHkFDVyupm/+ c1IAztWHORaG0oCnLVmVG0mDldfrV46+wMHo65EPYt+FQYNW2ye2VRhk9nzV qEUMcPQe5I65MUFRgN2R3U2E3DP7rOPjBeBYeET7umYBuHli327tOiHQjFJw aJdhgslJARHeKSZYaI25qhkIwp26S0J3yUzQjqxTtBBnAiYyu2Z8Nwm+X749 F4dlwrtmSaHUVgocCR2gr+gwofqliAj+AF+H4Yflfe+JAK60I+9jFAPcRTLu T6gIwl/nxAZ2HiHyeXN9b8gTJkgaqmXJKZGh4NHLoQoTMRCzxB5Zz6+TYVwQ LVAnCHcP3/cYEyMCSctd3O+uMIRpTE2e3kWH3PSavDKqGNjZl16tyBGE39+u Erb9KwzHDnDlPbVpYJV5I+4eTQSCok8PmKQz4JeK7qUjTqKAzpcRv9gz4fPe T9nOesKw89O2/Y69FFBIrO0zkhaCK7MvDsvxfZpdFWMycUIYptpslL52MUBB PezM6FYGPKJeY/UXYeD6w7rfcUxx+DKktUcuQARkS82tKnOpwAj2NY1exwQf StHnhGohsLsuCpJ/iUCJ1qW3ad/EIPUvU1dzMVF4U/B4SWijKKRsHLCif6OD G2N6bJ2pJEho4mkVNiLQkyUecvQTE9YX5vV+IPDf4/+f26+nEmBQ6+K5yGGC yFs7gc1dovCptu5oON8HrKVuj2p+lIK7RyIubOwShnfJxy6OciRBt4O5XHtZ FChmxpUq42LQ81bVU0+VAUG1XW8U/SThnlF2riaGCVkhPXs0KBLQP7Q5INxW AP4HT0crlQ== "]]}, {RGBColor[0, 1, 0], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVl3c81f/7xo8zOUaOcY4zjMInIiWrSO8rotAwKhnJatjl07SyMtohKbOM CA1lZlWUFkUqlUqSj6J8I9l+5/fX69/7vh/X67qe13zPIPudZBKJpC1CIv3/ +y3p2WvFVwzUVFkbc5r/EIxkE4fIC0wc1HupF8mZIpb9TXiiV8DA227fEZWG /xEsXfJ22UpRjKa9j1+xYpTYOZr5T04CE1LcNWsKQ/8QZYt/JpjVyGJB3kyQ 2hMqWO8ODRbSZKBuLdZrfZ0OZmf/YVIpCzvYyWfDdagQ/URlNaxlY7Ha76pG EVFstjBoI6rkIWKpK9uSQwPDbaeW1JQM5M1Uy/PzKci482DCv1iA953e/xyu oCPQUFom7oMc4h69j/Z2EEFBaxz/0UUW7mu0pgU+nCHm9ucm0HM42Chf4npu wxRhumXJlbmX86Cj/K/7scYZIu9LULVrAxemis8kXAMYMFu2oOi7qzJkxlo2 kIzoiEr3divM48KtmMhdHkaFnlut5qGtfHgWNjaeDhRFme+RtkcMHg7v/FWz YpICS60FN4/bcqAhKhK3a4wGS8t0td00WfSRBDVXd5Eg/sezK3+BAGGrg3c/ 8ZgjMqLTlS2ey+OK6hXJy4p0eDw/n9gULAPpW1akvrYJQrFYL69LnIfeoCrC i0IHKb/yyfLFC3BZsm2Hej4DRQp/hw3fy4Fx9lJOWy0JsyuikgwVeWgcfB79 dr8Ivoba8fpU2dDXX1kzE0HD+SfRHvEVHLze5SF+pYGMtkd8R5VLbMS/6K07 s4yKj4vvbFWt4EPf9N2jI/2ThPRrjX83ScsjPW6hydnJSYIX8n153A8uLDtT eac5FLBEtrRJLeaA/a2j1WlonIifM677pCeLro8SLrPCew09+pW3Y5yHT/UB 5lef0FFm9iI8VFMBmdmGW1QNmfgsMaJhFMUFtbfOk/adjLPHcw8+0pKDhzGV 8jGLhrjiIuplZUmM869wirLGiWcFlVVxKRx4Jui/vHOYjvXJKnzeUT40WgSL hsoo8D5kSWJ1CrCKPPK+bZMYBrK/W1Gz+Dj0Q+nvpIcYbOfL/ld/iA32Jo/J N0MTRAqHsFJW5WF4SLt0sFwCf1cvMH16TgAJ15Rc8RAakn7Wh6Vc5EKs5nzl 1a0MdBSV0yrqFRB56qGiMVcUqnzHstQeeZwttxmlkueI7W+ip15t4EJz3bfd zQw6ls8beh1apggNl4lLxkcZcBw3DV/XzsGt5qyKgBEKfk+bUI0VOTBm/1fm HUZH4/O2LZqtCnD/y3I5VkxGl2ti7nX1+fj30OrHObni+P5nScYab2WQN2RO 5Roz8dP0ZdIzKzlsNebFzdtARduG5qKgWDamI5zcV2wjo/2bWa/PGB+PBZu3 dFeKg3JEy1XsmTxa1jNvXDpPBz/XrYtKyOGner5ptAYFAezH6X5efNAywvfT nkugW8tt8nshC9od5rfPrCJh8fp5Kh+92IhQYjxvkZgh/NbFJY9ny0D17KCN VxQVBzKbTxqVCPdfdTFkyWYKXivFjMjU8PH3x4F3sm1kXFyg7KEVwUNx18Ar E5ooJEVNfBzzudAwSapdfoqOvYvz1qxLYsMcRkkWX8cIyqjEGVMLDnarVP+e cxRF3PkY8SwnAQLvPhmzCxfFiVcT/10P5mB9yoroT3MUBNMaI5YxFZGmffqg wzoxhMhHsZtISpifGtAe8x8TL59sC4pr4GDKydog0p2BAbdJiztkLrwVqtfS 51HxR4IRoOzEQ8KQctrmLBGkBPLCKvpkkRO7Y+DkwkkiYCK8h7paDu4ljeJn 3pFRs7YtdVqbA6uMgGVPvRiI0v0Yc4ohjx8m2SpdwTNEyC11C217BZR53h5n HSbB6OF8p8p1XDxUHNh4fEgSCoRdo7eMIvbkqTjl2jDxlfllk/MxLs4tKrYw kBTB+pA3dJ8gOYSJiDlnGNLQodOfmfSAg/jDO19r+tFwNe1e0PZaAVZk/221 WULH9YXeiT4VKuDdKP/l2SSKJPotkYh/FcFb91ir7zgT98zWaw3U8+CRelFA PkWBh9nXAnWCB4qh8wbVjxSklIxsTZBSRlqSW8L7eqFev96cJmK52FO6XPxD 1CyhNR5rpTvGwv++DCckPSXDedGekvAgDjKl2YFVc2R43emcfyOUj+Ofl+za 0kSB+9AHwyATHtbbZPkt/UYFb/1GhplwX6cW9YdZ4gz8GIq3W17Nhs61h81b M6cJX7JcfzVXBte0mkjZO2eI0YqPToSOAhadafV/oimGYCU5Vv0YB7E3ujmn p6kotf+vx99NgJmclOt6EmIYVnscIFfNQd9rC02l70x8eyF9+ni/0O9u/PPl zT0aJmx+qx0S6rkqbnWSmOUs4arr90HjMx8pF3wTrg+S0Hil+mBDhDzE530M j71GAWnpr3BBjizWUYbiwu1JaCHF5nUacfFyqUmDLV8EIR3DBeEGclj+5UVc 5aVxIiuEPNBjKYNNSqknghX/EkrbX8R32Apwbm3Re/IDMh7+vkIRdVTAyT6i Ius5A5WFOp9trrJRVK7ldS2MgqwVjHcuRYqIMXVvpjymw6laxb/ngSyW8Rp/ lL6YIXg7PUQZFnKwcbcgm4fRcPTmez+9Ojn8CBrc6+g1QwjaEvs/JcnA84b1 j9+8EYIX8GD7mDobO8U8BnyE8z9jjqgez1VB8srly01mSQipOZ/h7qmM71Nd Bb476LB/45z/+I8yOGeCRfoymRi709gWJa6AbX1uby00Z4hhVU7Wwhgl7I1o LD6YSMfLks8GQ7VsDOvL6f+vcJrYqVWUJspSAb3WqfKq0K/aA0m2xfJsDJy4 O365Z4bI+vDt1BRNGTUHydXETUlofnlT2trEw1P10cOHT1HheYDTYL9HHtds RbomO4V+5G2f8jyCg+RFP5v0zzFRnJssZRfOxvfLq84vjRGBWd7C7BZ9oR9q dYjUiUrgPFX2dViPAi6d3q9a+pOOgh8jpwzb5KF3TrBXdbMwf9LMPVpIChDU sWyallCwNjt1Va4GD54lu4pX75BA6K/Pg1ySAK9yGoPeBovjwqfbYxuvyKCl Xi/w5Lsx4kv/0h952gLMPrabTjIQQYDz6ujZbgEW+m1/8ekNCcnUnC171nKh v7vc/LIFCYMLHUelFbn48CK+e5EVCVI3nni8nJuPz6P92uU24nDumrK5I84H aUf9t4MrJaC/Z1d+lZQszHads/FcPE08e7TgajpJESuDjnkM5cwSEXOIr5aQ x3APo5T5cY6oKrne6r9zHu5HDW8oODlC9NpFjl8PlUedc3p060YqWv535oXk dRmw357WrrOdIOZuVDGMZWQwrPPC7B91MiI+vnvcv46F3vKGwuiyOcKEnK47 9UIO+vY64T6r/hIzuabSVsv48Em/eHD6iAjertheNu6ogrD3occiCyWw9sYn aY6QX3YHtp9qaSAhQrzRdglXEbtXKWWVmlARXJtmnrOJDRXDRku7VVNE+7jO krXCfWXcfoWIFVKwMHVNUzdNARx1K4PyWySUhJn0WnuykOKYX+vXS8Y2pZNn ex8IeW3gGbkgbZoIGvrlUcfhI1Ulj1fRTUPtsbuX1Ny4MIpMvXeim46J6ss/ BhnSSPYxT2PeEcGyjU47rWZkQS0PStGKmCKk1j6v5Zaz8ezo6beRUXOEloNF fGmQBJS4hsF+jjOENUnzC094r91xHiHzt5EguqBdvLJfBvyLrCHtwini8ryq FYvOsiHfWF16bh0VsbfedkXfFOaRk4PvoWAG6K4RS47GsJAg3SfprzVH5Bkc CCuUEGBXbw7Lq2KOcLkXLzlwgo2LMscmzukPE/unrzDvNvCwyijIW/ucKEzL unwc+HJoZXhv3Px6ggjpNFmUKeTXeM1LKeaiNCEXHju55y8f149foXheI+GM Vrfr3UEW2IeslKqnpoiFGdeIiUIBqLN8+aE0CTx8wnacHuRgw6xtzbJREqYK x3NFSXLYMtjwbnjRH2JMVn1uz0pF1D7TEO18S4eo5irleR5cdNbGLkk3IMOR EjLf15mDwshExq8gEihfd9VJXZUDeXGpa+LbaeKUqLVKyjE++p7yJ9lBDAy3 d2/M9xfO4x4Q+CBmnHhUei62OZCP1aYldY3WEpDobwoorBfqy6pSdEPJDOHv U6C7MkUeDV/tN597MUq8jx71XMBQhI35nauTUgy4eHDvBwoUcfvLoHr9cyb+ htcO8BMV8HGFlPplKzLs0q36OqflsfFQ9KceZyqeySX8c6ZQAST/t1tCRShQ uRCZeMuGg1ZZU3PXYiq8mFPkN7vZsE/zqy87RIdkSbxHzUUFiK+19zhGmyaG 638EqGyWweRPv7p7NnSghqrofJeLkuySQ9bJ40R/bFfOvKMsRByua7ddOUe8 Z/XmG3zh4GbHTg+16RliZOmX7iN3FWCwOi2i9DMNLn8sV+5ez4U5aaDz8zYK EsJn9jRdVULGWPrk87VMVFeXnJEuksXKzMZGNWsacvf5GA/tU4Dn6YF3fvsn CMeiBdUdakJeo1TNnEwg46XYpZ7suzwY27jOKjtNErRbgTdPanGQLm6n084V h1lau7uDFhvIjlc/HzxHGIgzR85R2SAlZIeOG0wRZ11Kpl+Zc7Dpxn2thVYU uIxVSkt5ySLZPZKV8lYEJmpnHny4JYc77GuVhpNUGLipWu/QnQezARmatyIZ FMXQjjcTHATdkYrdL0WHV6KC2v3Dwv7jt/zEHqEPccqVTH9kKAhzZSy1toKM BLuSgJoBOWjv4zEUlpNw/K3X/Wc72VhdIhFBeSWCby2GYcus5bAnKj/TT3gv X+/q4ngyG7sznlYuzp0g0q3M719mqGD3kXqfKCFfeU7nHF6gJY/AG0zGpuOz RPqRI79DLXmgPrHOXaPGgI8tnm5MEvYHs/KoCELob1tsG8JSuWjX7zJqXjVD 5EZm6zAjuYhworRGB00SpLPl3LvdHGhX+U89LBL+F5d7nxu1ufA/1a2j3cxE nr1NhWW8ANzazqOarnTYOke4WsgLUFGiezRI2GeY+a89PFXk0UtdFrBZTwTz BlNujjRx0Zr3omr191nCyDCM8vu7DOj9H/r9ZWeJFj17x6cUWZyIjUl26Jsi Xlb2t9z4Ion7E6MJ7vRp4vHH0WJVIz56PPRXuo2SUdjoGf11WAFjbTGVVY5M 2G7rVeW+YyHaxi9WL4KEMbfGfzc+EqDWkkMJ8BNH3gy7I82ah/d5W8SmlUTg fdvK1sBbgN7i5tKPQv2/vv9on/9tDnYEbw1ijlGQ+8u+zpnHxr38PywfTTKM crPFHMLl4JvmK/Czp6Knfey071YllGzSU32iLYoVdt9/3ioQwH89fW0ni4GR rk7LgDFhfkc1fDA/RILv7P6ya/dZME6K3LqP+p1wPXAp/MJPWThwWA9Mhfy7 3vTirQvNKti2ZNdQwUIxtAacfvxO2Mc8kw/Uf05lQHeioebUnAJkVJgeB46J Il7js00mWR4zL5kFHAcK0iLL216dVsKitxnyHdFiSHh96rTNCgHKL0Raaccx YF78Qez5CS42NxdfolWKoKWX8fLuJBc3WkwS5x8cIbSvcIiQ84rYLu8qETMr Aek7mzPc9XloV7vm6bpGBFqvddPnC/MktcT7Sl8FFV98XX7qVrPwaNT/79cS CuauCvJkRuURHHrpnoswf9QaS5c6SHIhNVPGDtz7m2jWDt7LHlTCj10a3160 i8J69FPbg0I+dKpy9kf20hD9J+Pp+n9YCNy3RadPyAdmiTGJHU0yqDOw2HpA lQKHlevlskM46Kq8nWlcM0pc/RD8uFdB+H+SlbxL9s4SOyuVzYsKeEhj+Q3k d4uh7Zsd1esVB+UZs923VlGgr1X208JZFrusdhjRy6eJS49dFQo7uGiiR9zp GBVBRzt7YU4DF//a+bvoGjMgrmF6uzBWATVd6wK7dOahuMfYyySFi197fett hDzIuq8bQqqSx46gh/IOomIwkf23qcCBh/Lx/H0XJBgY12x1vqopDd5BJYrP g3GiwmDX7uvH2Yh2X5kVqkDDPh/x7WRdFrI+9hxqTf1DPLVwPvlAhI+IaCMt t1BJbK7SPK8cI4N1wZYF+/eNEYZJAytdhH0sdmRv4m1hXy4/vib//k0OHjyi zPQTQv5oGv67MH4BajMtbo18k8T/AQIU+OA= "]]}, {RGBColor[1, 0.5, 0], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVV2k8FFwfHcbsZozZxxaiEGlDUc2hSIoWZSmFkoS0kC1FJREqKgrxJLJl KaJUSKXSppI2URGhbEVZ4p330/107/3dc8//LBpbdq3dJksgECQyBML/V41N h0tfuPyTqItrypZ50RD88dDugY2jkoPeTg56nVSc+bzqztTIXgl/t1K66k8y 0sdC+yIeDknuNB5uVR2iYOo7jZfdxTLY79Y+XXs9A2YG8z+VRExIymvWxL1P o8N1/IZJxrRxid7pv+4PptDRL3dqV6v/gORzXdIZ81gK/D932DY2E5HgWDS7 ekgelqnxHz+1EzG4fU1vnCwT9+fdcNFq7JP0OdD2jnLp2B0/ZxFhFgELJ0kz WSEMNC672GUTMiyhWDsaC5/R4MUTlGdMTEjoaf9sA88xQD1bLf/wwbCkzFr/ zdavDFiQR0fyVUYlgkeqjd3hDHxkvVWbsX9Y4vRwsuGBOxP3xlXytQf/Sj5a CaOCPZmQ3d04fY9YHvWvM4/ca1bEUk782kvXiNB0XJZZ/oUFBQuVa1aVVPzo 5CTa6LPh/Uwvz8CVAn31ftfXKYqYXV1W8zBLBvnf5n/bc1oeCzdNUXI0pSCa pNY/ZMlB/HujTSvOUNBZrlmilM+FdXu4mgNVEbp2Xas1ZMSQW0yuSX9KhtqS BkuyoQBf2a1Zy5pIGDEWyNQ852KvCdXNwEsWPQLbtb4DigjxV0sOFVHxfDUz O/6gEuaHFtT/W0pD3iLrZf9oKji4mPepkUdEZNmABd2TgwUZcxMFdgyklHlP DHUpYZvztyWJ1yn4nMpotzrPx/ALRqOVFgWRBbW+N7N42MYsVB/kk8ExuzTj Wj4PzZ5L6Fe3kaH3PGu0qEmMJYdfFUwNl8eGmoZPacf5cFHV2Py6VAGf/d9Y kjkC1EbsNk+IocKyr1fx6Wwe5IwiLoxsZMP8cv6L8csqyEofm173jI5vFT2B 7gIhTmzkT3NcPSZZd37T+WkfFUHY5bZ2YA8FhQWPA73HBNi732N+SasMbHNa Y2cZcVFRfq70bgQZl3RXmC3q4KFwPdW6KIeF8mOOEy3RKhh/3BDSq01CJan+ lNIZBdzQXh6lv4SJyNU2G6ddFqPnS5xBUpYcygn9/524x4Jmr/0zfel+UujO 461KQowHv/Bbv1cG83MbG9Yv4oPKDjoev5uEldUyzTw2H7ZnonOdNo1L5JeO HTs9xMRr3XWH1MWjEsf9Sg6jhWw0ddy4TvpDhMfMigwbIQ+mOf0Nui+JuEsI ydP7ycW6ADVjG+l/uqWZiRYsFMAqzCcpMZEErWW1H8/5CDBjuDTlXD8Jv3sZ 5ldNBBjUqa81M6IjyKNFiylWwpKa7ffUviqimpnkJXquiouSq2a3jOVwXt99 fvRcLqwKjaI/vWOA5dh7f38WH2F+lu9X/yZCf0Hb1tYoPo6+X3z6sxoJan6P XB/UicDR7F4wNECFw/36W6JHIrhvsXtWvJcGo2iXgkfT+Diep7w5NI2BpgYZ 1tFFSuj1CZ76fD8ZMRrP6fqRPAh26Wrl/KKgeOodm8tMEVwePfWtjpuQNJza 0K8oo4Cf5dbKe7JYSH5gUlbkKcb3a0Pco1/6JOkrjaZvO8mGfrW+1nJDeaRb +ERMLhUi3KOHzF4vC9//Aqbk+3DxM/tDRaCEiM6tPjJbXvNBLH++o6ZPDk1t Ef4mUjytmh4pm+6noGoyNV+nnwfJuSfPH86nomblm/1lI1yYzs254rSOgYTD 1zX973AwZ0OfwZknDAQHVTpq6/LxZlI5Z+NOKuYE+8cYlfPBfahrO1rEwaln fnck69Sh2zzX7GM2E3b7D9R9e6mC0Z4w45B6IjLTXk9fp8uBfPm9eXW32eh+ udh+5wcpPmQrH8M6OhI943o7RkRQZ2R0hqoxQZb8DXowIcaIQnFhTLMCVAPu dJGNxWg2czQO2aeA3WFhekd81PDydTPFxouMsFbXjek9fJwJXK6zv56MC/b2 zdk6POip3xqyTqXgcHFeiE4tB7EjEw67KRRQ088PzZ6riAdTHn6yMqTgA82K cnWdEJWmTnRyDBOFTVbbiyyUsIZBL2FF0AH66jVnVPlQnSe/eHDWuETFzqrn 5Dsmzjpr9RgOEtEUbmsa/pSLp7aPn0V/JkI5bdLwrz0HoV9W/Gp/IYvracs7 B6GIL2tSWNnSeft3LpfZ9lMRZTmpq9peslH0eMvAb1tV6LuL5Ds7FOE0eHuT 7yJ1/GjmH9i0ho1II7N5+tZS/dt7LV5LhomahDRvN7YIqT8rVbR/MWAiv6+7 9gofVm6sl0+amUjvsWpfNCzGDbXVgdZFFPhcj3lXu4WHXlLwTdoONhREAdZR 68WYXvf4R9kAAbYZY10OugqItKlrObiBBsPgKsPbbA7UGoaIG7LZuGuRO/0J UxUmnz3KZzkoYPXbrTMg5f/WE/aDQR9k4NhXIRSqcNFsV3r+vT8TOg3Wh8uU lXHMkN5jQKTANzyBdraKj82RGx8wGSzIaHWcNr+uio2BWql0c1lM1rx86pbO xEe18J8JMWTczZm2/DSRg2V+x8ICq2g4nRz3vl4ggsFcusLljbIweTX2IzKJ jRtTctinralImakT21rGh/b7fmGWDRUBnXKxQbelfFjy1cPwABtPjVSeHTRW wr/vM4ZmvJDqZfuPhB0pfFgONK/6TqcjIrXBv/2kAK2+Rpw1F2lYUGi13P4Y G68c3epcDrHw+d/2/F3hYty9N95WMo8Ni9b2vOv3VWHX9n1H5gU2CLWGPqO3 RGj09LF0i6Lh1VSJ2bPffNzVK9lC0yJgmffOE+uGpbjrePHJUn3c47zB0+sl H9n/5Fhrl5JxvEpjlu9CEcTChRrqrwn4MJphm8LkQ/F8m0H0Kjr8io5iYQwX mw2vpZ5OJCOp28Vn3FzqT29dbjg0s/A1r/9F9QUVKLbI9n4qIaPIZ++s1c58 pJab5kimyYPvW7p77IIAPD/3mvvKJHic0VMOvs5Bs29p3pUjsrBKCTDwC5Li /evkyEQiFc+y9kyP+8qDdWDRYqK7AkwsabmVHUpYoCfJdmfIYE5kzIEhFhci gw6DH5qykBvD+7NvFeAt/9QvrJSDdzaDfQW71VDxr6El+gMTsx5nK3UpKeHg z6+RP2dQcMpA6/KRD3z4sotEsn5kuI0VDmU/5cNpumn40stM3NTzTPq1UQm/ j6kwW5JkkTSiJ2oK5eJJpVAvOEoBWhrreCaByrD+S51p+1IB/501qbKVnie4 I9/S6sSCl2bumNpOMerPSZS/35+QRHscP3e8lwt7613EdDYJUYrjF1768HDF +O2axfvkEZLN/tMqK4aFZ/GMnUIiJukrx+2aOej/br4qzHFUklWvrOkYpIhy s60ebeMy0Ht0Nb9Rl4dr+0b81rkywc78o+Mk5cd28lX744qKmHfnG+GgnjIq esx2JgWTsP5b21oZqa9f/i9lygN3MkrG+m9t7uKirGD+SZdyWeSX6y0QDgtQ te3zorpPRFh2R0d8mcNFkbzBykweE1bqQ8vdmkQ4lCafP5Eri2Vq6tPMeVxc j/gS8+gCFc33/zhHbhAgomW8rmiIiLzxzADeLRZOXDWYQTggh12P5lv8qmTj 2qVPPU9ENFQfkFv1LYyPQme75ho+DRg6tFrmgAD9ioE9Y57y8PH+4T2vS4TQ Kwl9M8PZaBlJflvlqQxmdvrwtV4SdCoOVKqnKyBFT+Fb1zQKEkjX3GIUhLD5 UTcelUnHnWyr/j1VYkSZf8u5a0MBn7AluD+LjfS3v0qsP5EQWnr9x2x5DiSi Qr2uMTpUnR7/yBwTY6fepWplGTJqtW081aV6mpu2Z0zAJSDQ5vkcUjcPLk5H PMIC2fCk2fpoOytjdKziDTVeBgU3Zt+qKOajxuPFiTwvBpzldrm4ZojxIsC7 4/VUOiKDf9mpE/m4FP6Ptr6ejo66sKi+h0rYcmRT5pZ+FgZ5OVVZeWL8ncdv RBoV+fm+fcWn+BgIucO7u5KJFeKS2aOFfOy5NU/JfZyKsdMbKNd6eeBkCV8Z GJHwwiD+6vd6AdSmXN/RKNUt1g4Dz/ADqqi52ZmhMoWCFpaaboaYi5QP7IMt PVSojN0KZ1WKcTo3p2H/gQlJsCCC2LyUh7JVFG0tCwqUhBUH2sHDD4fK/Vfv 0MDov/D+WJIAaS1l93c8JMK+Nv/ZrlYpzx5nzPXoJOONv0HhJbL0/U7pf54+ pcI0w/ROWQEfRvfybI9aElDgkbG4sooHO+vvTiYkChbJG90fe82DpcN27tbF kxI18h+xYjAHFHffd1dimSjLfvrmkUSMNOf7axMr5aBuVTu7sk2AKwfYdEY1 Gd751TdPBAqQVHCLFnmXhNR3ER9SjvCgfrn3TdY8Ih6ZjrUvP8WG9ZgNV9ty UqK/7kZ9zEwWjhjQXn59KI/zP2y5I/dE+MB52pUbQcITzQR968UCGFAILHtl NlZtjva+VCzGbGVKh9YVEr6FX5g5OYOHvrGvyabrWYjS1shbd1UZ92LfaZua 0dB613FvQj8fXo0DUbfDKWA7RCfuO8ODJ//2lTqqPG7P1hhP71aF3yHBRWsL Elak1589OMKHUnpyaWuYdF4UfTtcpfPuUlnzTHMtGyfknsR4MlRxxuu44zYG BdPfsZo3H+JjdcSxG+RdLDQkWy6xmyPl9zJZ8qM2eSQeYT6OnCpEenJZ8IOj RBBiukpjLXhwvGXOMJVhIaXa+u5ghLI0v96/GPuQilknLthr7hVCgTaqH7Fy QuLGb3fsdVNE5k2j0gX9VNQOOE4NGRegcKuc/jkJDcdNYhWJ1iJYv47fV0ph gPIo1jeSJIKzwG3vzgwSttR/Jt6I58LEWS7vVSUTlOWHC50ISrjlXus/8oiE QwfGJ+ScOTifr/05PZeJC7t0Vny4JoTbuxr+14t0nL4UT8yeK8DNjZoNLAcy DC+LDf+7KO1fsSft20oUQO7elDWUzEfnkbVudCdFmJxbuOvKbGXM/b3BPy6D DNOHbz/5xKighE9fkmVFhUfpQXmdKdI8XuZ+s/svEXJ3Jy/7D/Lx3GymESF3 XLLA99XUT8aKYA+0HA6ypOOcBiW3JlQJlwXkL2U68ignkyaLjwgxafaz7+T7 EUn65PpUlR5pb8l0//c4mIryDpXP7ttEKNXjP2yokvbYvBPFugYibBu56P34 y6gkLiN66X/SHDL4zZTtqEbB12FSyOzFysgQ1SXciKdg+PVWa/lOPthKgWWv kmlYec/VcmGAEHaOc787b2HAwXHml9XLxMjs0pXZoUrE+9vpQ51JfJw6+VeU zGZjw5+25PIhaR48f1f1LYWNb2aXtKwURPhV77NG4wYTvJ2FpXUbhTi3kJK8 O4iFihcJM8IOquA+K98mTuoXPPvLhwbOKmOY9uCt9W0qAi+6JA1IuDDfHXcw aZccLnZ1BXUN8/F7noNHVBgbmb9dAlIahZAsJ3g5C9jom0YY+dWlDGNX/y63 KWyUN6/o9mwXIWrNluBfctL+ET1yt4wsQp92ZkuZGxWiMJvtS6X99KIke87U bCrC+97wClg8KD87Qi3NYmBq8jGfYGnfCM4p3/1qBht/D49dL78kQp1rNa+x ig7XJWF/aqOE+OBJszOV8jP1hMaC0rN89L9dvs9rPgU9Q5usM39y8JbjPf+L VA/9jrCznxRzUbXaK2eTnwKE5rHBJzqVwE6JiG1yImNIfTyozUQRr5oOhSwZ oCEDwZc23xHBbcnNyzuv0SHY+7M610gJ/h7zqEuuclAetHNe/dsp+P1jn0Gn vbQPcPaee14iQsDhoTjvAhbkXmcmHlMTQ+lTQ1WHJw2uiRryWxh86NCbQtyn MXDcVv0LPVcA49sPFg9V0zDHQ3cy1liE3h23d64IJkBD7Udij7S/CtzU4ub6 SPHv39rUncyG4qunpzdGE9BvPPwxns9BnOHrWtl9VKi77r+RFi2EyGxVBvuC tL8svJeS1Sbl9yJyabLBpKSstyQ7y4UN36xBZ7syMtgM7Y5TkQLYybbvKF7O BKxaV5x6K4aXuY2wh0CExlLSzfP50vt04vQP2Mrj64Jlz6J2CjH6tWRhZSER JbJG7+uFHPxqE9Rv/kJDYOiazVb/pOfdt2C9OkdGUMXqL3lS/dtbUnQ1m05G oVeB6lgMB+uvjW55l0pFZej7ow861RC8y2dG6AQXw/UBHzSTp0DbLcCS/R8V vxtaJ083cDHVvvGFD4mJ+VtPVgbcE8OfVcf5G8qE9eyO+Id6Yul/BwQdzmOD O2XqnAveylCvnZnRXSELPa74BEGWjSWrEpYzgrkwVr3j9OaPCHtzPWsbi9nQ 2lxtV0WS+leja+zkHD68V4Yu6IhVQeKFzZQTYj7y1Awpc08pQzYocXu7NKcE Nt1qOSbN46pNtXbHtvIR3eP363GjJpoKPsWvseFBW4U5bw5NE2esr5KXpfGg djVk1X2JOiz+LOpWoQqg4Prqll+xGnLoThUMaS5MTVh0RXhFFTa/1zmrcqS+ ZWNhVuCqhv8BvFlb+g== "]]}, {RGBColor[0.6, 0.4, 0.2], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVl2k8Vlsbxh1FKqLCM+397L2fx9DEEZJELilDMkSOMhySFFJpEioZKpmK 0GxuMh1jCUVKRagoGkzRoGiSVKLe/X7av/1lrXut+7qv678Yz632GyQlJCSE f0lI/P/rMCTd/KJLGUavhtwutSnjUpqbcU+bEhr0OAm0NgF6srXUeyUOXvlK P3hJcLHBQ7ZCYSkH9Ue+pd/LUQL5T7xhKkHCaa6WmmciieodxPYXKwj09LW/ MTASQqOlSOPgbCGsJkz1LqSVwZU8ZWr9isIWS709Z5qEuNUdlT0kycPpc79/ X1/Lh4ejgZSFAoPl6slpOwaE2JUtu2iCPwVvoyGblRI0dobpJ2aMUkjx0zg4 7boY23vK5Iv28nBNqeeOTgmBXW8X263MFSAh2i/8njoJa1+boBkFbL31pYO1 wQQ268yoymnkISPih5V6I4UcO/n2LZMpbCuo4luOcKHdNcGzNlEAiUbVc0Z1 HFhUPjV1X8BgY3JAmtpkEUIaF5XrRjHIHFIPvOfJIPRhzzP1MzyE7Sz83BpO YkSxsWYVhwetgrHgthoBXIK4u8xMGCQnrt4wS4XGxR0aZUdjKYj9H/C6YwWw D/sSbtvPwdbXH281Z9G4e2u4buIxCg73QhLGVGmYNZ96qrxKhLZ9b3ZQ9TT+ dvoTN79NgCR0H+cfJJCVkeBnOYXB1ucjdubXBRiaUdV73orCSu3/zv7qJOE9 O//0tkA+psWrisekuHjt4ZhQp0HDy1ijDTU0dqdNp5Nf0/BPb/EPieejy1Nt 7ribAAMHzm+P2ESjQX3tzDYnCpmR4XOvVFKoNLbPVz7Ch7vltzUnk0h8s/hn wllpBss03oQPrycguUZPe/1TBjcUfz7Sf8SgrtLt7eI5FBal/0iWzeagfW1k u/ZzEonGNuaH2ikQPz3V8r2EkCqfldoiwUerjaC6dgmJnLKFjxtHaSzdEqzG T2PvxSSkenAegz7Z8nfVrC4KU/7rvC9BQblx3umTiyloz5RPkflJIJZr7De3 mUHHvlGocoUY8w8+LdPJxauk/vimAxS6Uk5Q+9MI9v/c8TgHtt8n3ygeuUQj RS3q2O0OIUZLrV1rW8T4/lLbaNBRhI0dm+KGP/AwvkPPNdJUiHsDRX2vu7iI qgu99zNLgGrBUftmHQHubKiJu+FF4NxfcftLG2l4DhZstIsjYHLlx/QqVz7i t/KYj58EWPdsw/PSpwTcNon1iJ0Enl66/F9tCbuOVmzcHlkG5r+8gyIySBip jV/WN+bhY9uEJ3JXhThhkmweQRIwC+xfJ6FLQLpA1TB/mwi+iw45Tv1FYH/E hcbiLULIT6xu1qqjMWqff5ezkMDn+Zevd18Toj7UyGXGSwbZXot9K1spWD3R 5E7bTYF8gd/7ikjQe6bAn2TweFmpXuBpCtElx8XB02noInM4/BoFg4y+9hL2 Pvld778WRTNIvbZtXoaaCBkN10d1ZzIoSboYpsr2ycPSU7K0g4TeaT//mj4+ Dui5Rniy+hxmms8F17G6l5dIlOuiMGJzoIyZxNZROUymuQqQ7rN7cLEtFxrZ 9TM2fKRgYi7rkWpPYbts//K//qZR9XHXmnW/KLht/jCnLIKGwqJOzaxTFLpV csPGfomwqanNICCeRki9hZb6EQYtq5oDZvQQeG+5UCwbIkC2+bjpXAMRWldP x6RnFNpdbcJC5CkEtv9WILNFWPODtzFogEHM3izF1EkivLsrOf2GKw2rM8VK Nz9TWNiv3abcRyLtW3z8X84Upii3XLd+ReOK91ut+u00Apq3dU65w6As6s+P SXMIxDUvnStnL8D4cmMP2VYhfA+vm+C0k0FxRgD36kkKe+UWxPz9jEYqIcx4 /U2IRPMvib9oHiT3EX2DVTRcAm+W/JhCoSfVofy/UwJEnL1q0VZF4mvhvvLY VwSuH9yvtayPAHfBi8j0KBLHLHbemmHAQ3pq3U1/LwYu0U8sd9mT0JkeNv2X pQgVXiWlvM00tiwIcT3J9r1XuyEvuZzARW2HyWbpQoxXRydN3E+jI6FJMzGG jz2Pli+a40IjqbLfXmorg2+ZHb6nz4uw96/8QQsZPrTm58koFpLQHTdT3G9P wzd83opRdwbhH1Zvsg0SQjP/j3kBq9+gScWfiv6loZ83Z1iX1WPh+jaTx1+E 2P/r3PjZSTQ0pHzweSIN8ob60ZATYlg33l+40ZxCfGuuY54lAanbstMf6lFo fOp6XstKiB5idtZBmoHBmtYCubcCjCb9mSb9jAE/mC7MaWR1RGsHRinyoBMc ZL7Rm8Sb/hiXDlaP2aV+I5pDNDq/735x9gQP6ypPGWyyUELCBbXyq+0kRF0a 2kXPSKTM3as0aMOHaq0LZ+AkBw/vVGzakkkBFnsVMiYxCHM12qvgzurGTNM0 sJjGJ0VNHzNJBkLneeudjtNYq+tu48z6/HtK+nxxLQ9ql1/aLa5k4NkocanD iYvigUT5x+z8uK8qju98wvZ5G0fvXj4JDveszLeZFEKKjt08Pl+E6P0xv+vs aCxYvPi5pAKN2dGjPk8GKHhofr3Ye5SHyIuvLtLfOTDUOeGUeZ+DKInR1cWq BJjYzws9JDg4z00sD2PrdGzxvN1tKEbriJxi7HohmqSr81cc5qEozdunZh4f Uq/qdLdKs/v3uazTkSDxOLpiOKGJwJEhFde75nzk7evo9/IWYYFpjXv5CIX0 ClyLVWFg/yHG3aOaj8P2fa+vbGfz4btZ/iO2bmmLol15uTzYh079E1ZB4KbB qQh+GoVfEeEz+2eLsN13HRnWIITeiPLko+cF8B2+8SHxqgDvRi1UTGk2P8pD 6gdU+Iidt27wTCgHfdExWV6KInzL9ai+s5xGTul8s1A/Bl9uc2O7ckQoFMss CPkhwoo/4vjd0UIEf1/t65PA5mOQWfGBLiFWS212apSh4LvVKuSMiM3PhVlF ictoMLRmReVhBmO3rMfuczhQls7ICtVmfVpV6a+VPXz4JCySLFnO8kOD0T2J CAZnU5SvFRzmgi8H9/RYHgolfxgFj7DreHdeiwOBjw7hTM07AeyafDd1J/Eh kWCmOvuLEnSNTVpK/3Dg3CE3ySCCh71bT1p53aKQ/Pn8003hPFTJbOtrZn3H yKrARX1cBPkn6c8KFChcZFxknEQizEmS0vWVF0KlomjLLVMaD5In5gbw2PPo +JqOS7L5qLm1WjVAiKTZZc+MD5PoLjljV+7D8tZEV+rNKhJLkqQzf56kkegj mv/WgMZgifUJfzUG6q0r7mo8YbB/mPt73Rkxzmi3iizY+VAZ89xyO471/bfS BY6aBFIN/dQ/7RLA2K3G0L+XwJJD/xDLnWm4pp79us1EiBCFJUmF9gTLJz7m 9+ezHHXB6PhQO40wZ+e29xkU/i5dEfHkPwazSvo5ycGsT0au3uRWLcR2f+8u Az4foRWz7shU8DFlS/CmyREERJLNC4XdQrztutzQfYfA5fzEz59Zzgs82p90 Op/GrxOvfhjn0NAe7DILzBTB5btZmoshiZDKvuUDbUIEhh3IkI8RYtm39CkX /VjfqB1bfzRUACuHJR76YgFqOnWrNcNpyNU72DIhFKQvpKVms3y1PXZVxBeW g1T09Z1HjBgc6RF2xZuw873g4da4FgK58j8eytMkTFXSjVv4NHSKKv/29WXv pyf6WWaOGOrcn4utTBmEZNbaySYyGFEovFnWQWGWrOnJPDZHvQruLL0BCrae XRMbRkg89C1WWPCV1avs0bGvbO5aOna/DlojxEeB3gbF9XzYNB0V0Hkc7F7q 1vy6lUbtPspwDXueKGcNjVBWx1kDefeOd/PA0diROi9OgOEbu1c98yPA945Q DLLi4ryS/dPJR7mQXfmyvVGVwSlbvk7lPCGulOV3Vo0qYwqn7nX7Ox4G8+wX zzER4HfcWdfEByxHbjghDqxl87VlOHD4tBAyG40G7SIEOKhb/7EpXgnXogLS I8tIzB9w7FFmOdlEPDyyyIxGQeKMt21iGodvXfgWsIvVR1ZJSehLDs75V4Y9 4LKcnKH+3X0dA+cba9LH3rJ58M75+YoSIWwMLBws9GlMV7w8Vm1O4lP/2C+L AQGu+NUbbmF5/vH9jw4mCgS0785NdH/Px7vxcwMv2dyofZ2zvHcqheo4z7TN xwiEcc1emaTycaj7+/XbWjzo71x982QUHyOaUm4LX/Hh1CtW3jzKx2aRnNLe 76w/XW/bTi3hIJnoWfmQzRmbGukRfZZ7SvK3x85/K4RwTlCw2xk+Bpblpsz8 Q2HabTRYazLQujKlJm0LA9WVPjfqj/Ohw4k+sDOCwvXT7cTNXcqYdjVY7usZ GhXtoZFyi0nMW6KPp7NoWBbdk12awGCt2u8aM/a90SgqPJ/0lgcPr0kXl4lI xMZKlVQZEuh8HBMpJcfm6qzeiTIraRAxa65d2UOhPkUv7xDLcd92zChZZczB vJ8fti4m2P3T/J1Fu1neXeHTlOotxJTgxKyHbjwcpmNS9nQKYWp0xCRXS4iD NXaGL9RIiDdKVpe3CFHs79OVvYKDVWFm85jZBPRlcu8PFpP4YhhZEKMuQEvZ qkAVVyH0rQ6m2dmyfh9P9VbJUVhgP3Lorh6N1qf9XpuXKqOwvvONUhYD74qc 6bqtBKZZDbq/qxShwcO+fdd5Br4vpW61BLDz5/io5DW7T8s5yYgANg8ZP1x6 PswgQC4rRe8CgyjrYecJXWKsbpBYsfEajX8NvkyYO0DD8fBISGKoGPLKnyzy ZFUgXfHQ4cIpZUj/Htd6NSjAWMbJlllvaGycWmZpGEvjZcg7xUpZCocC/jXJ nMpH0o7uaPONBNQX6r4z/M3y6qTo1AJGjBHpoUefT9GIcFnuPyAQoKlMKbM4 jEb0hsGOS2x9pT9O3Da3I5GXekfZ7YgI/7mS6jETGFSYX5Xq3cDy1C+pmBK+ CE4HzVZY+avC9NHFgLfqDHL81a+tZTlgYhrHtrJXEUvWN1+1uU2APFy4Jl+W j2RvbbXHs0i0LiQn2RSxvvKk99zoIhU0f+J7OyeoQK+t7OCH01yYemWH2/hz kC05FL5rkIZFk3kIl+VE20dz0o3YeRCs1SqtzeLi+Gd3hZz5AhR+qCpT8OIi 51PRPq46gT0xlfx4B5avl3w2XrJKgJvuKv+GfBQhsHbHmx6OCFK5fZUrH5Ao S3T0NqcEsDhULf7Bzl9PabZj7xkRNp+PVB2nRYic0dAdxvb19a5C8WUjPlLa 6u4+Gxfgln9HuVM5B5TJTO8rQ0LUBZQbZ7QIIF5479gdLQbVG1Qyku5RMN5h rXkxgMbVsg6dsMvse2Cq5V3dSCG6wgm/we0Edi9LLZBNEeFn0G7p9/8wCF65 f/LyHC6m0pYhH5JpvCtX/LXbg0Z7UKHttk8UnOp6qlTS+ajR/nzlew/rZ37d ucZLKfSZD+yhDnIRejREZ3OZGNLpSpemszqUldNZENPGR2KsG+zzSOjrOQ+p HmbrPPbT6bkuy70rsjzy9Cms39lq/+6BCKemF7b+fsEH93CGla2cGLmzizw/ PGbgViEdEuckgvqb59s+bSHQML+pLZxDw/iA9Y4H7LvXsnZqYKYtiTGj5VYV uQTE6rNvtX6gcPb9U6fTcQyGltreP8fmy2Yva+WoayIM1Ht9GVkpROoVy+ut +yh8mV8TWWBEoLrAx+hKjCr2WVkNzx2iEL66d+TFNB72h1ffvFtB4ozibYc1 L2nMLfDov7yIxkxlv3z7AySCV1W2L53NcvDx/IwObzE+TZNerc2+D/8HtRuB HA== "]]}}, { {RGBColor[0, 0, 1], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0, 1, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[1, 0.5, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0.6, 0.4, 0.2], PointSize[0.008], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, { {RGBColor[0, 0, 1], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0, 1, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[1, 0.5, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0.6, 0.4, 0.2], PointSize[0.008], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, \ {}}}, {{}, { {RGBColor[1, 0, 0], PointSize[0.025], AbsoluteThickness[1.6], PointBox[{{4.543696540433364, 2.398560298507245}, {2.7775870626512513`, 4.223413848483165}}]}, { {RGBColor[1, 0, 0], PointSize[0.025], AbsoluteThickness[1.6]}, {}}, { {RGBColor[1, 0, 0], PointSize[0.025], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, {RGBColor[1, 0, 0], Thickness[Tiny], LineBox[{{4.543696540433364, 2.398560298507245}, {2.7775870626512513`, 4.223413848483165}}]}}, AspectRatio->Automatic, Axes->True, AxesOrigin->{0, 0}, AxesStyle->{ Thickness[0.005], Thickness[0.005]}, GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20}}, ImageSize->250, PlotRange->{{0, 10}, {0, 10}}]], "Print", CellChangeTimes->{ 3.8907330573042307`*^9, {3.8907331128234053`*^9, 3.890733132825886*^9}, 3.8907332246350574`*^9, 3.890733255851194*^9, 3.8907332917736597`*^9, { 3.890734122716251*^9, 3.890734130815688*^9}, 3.8907350624635315`*^9, 3.890735095484761*^9, 3.890735136950403*^9, 3.8907362132748594`*^9, 3.8907362884062567`*^9, {3.890736938614626*^9, 3.890736952305652*^9}, 3.8908742850217075`*^9}, CellLabel-> "During evaluation of \ In[117]:=",ExpressionUUID->"e8da5723-c5da-47e8-b962-281debc14379"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.625418804708296`", ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"{", RowBox[{"7.0221492405139685`", ",", "3.4034723855773072`"}], "}"}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"{", RowBox[{"7.032386716712978`", ",", "6.02887123036204`"}], "}"}]}]}], "}"}]}], "}"}]], "Print", CellChangeTimes->{ 3.8907330573042307`*^9, {3.8907331128234053`*^9, 3.890733132825886*^9}, 3.8907332246350574`*^9, 3.890733255851194*^9, 3.8907332917736597`*^9, { 3.890734122716251*^9, 3.890734130815688*^9}, 3.8907350624635315`*^9, 3.890735095484761*^9, 3.890735136950403*^9, 3.8907362132748594`*^9, 3.8907362884062567`*^9, {3.890736938614626*^9, 3.890736952305652*^9}, 3.8908742850529504`*^9}, CellLabel-> "During evaluation of \ In[117]:=",ExpressionUUID->"97a8d299-9966-40b3-bb61-414bf8b233ee"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0, 1, 0], Opacity[0.075], EdgeForm[{RGBColor[0, 1, 0], Thickness[ 0.004]}], InterpretationBox[ GeometricTransformationBox[ DiskBox[{0, 0}], {{{1.7382093694041454`, 0.}, {0.5877129239312422, 0.7736988011356426}}, {5.963093253628679, 2.431888696090106}}], Ellipsoid[{5.963093253628679, 2.431888696090106}, {{3.021371811884357, 1.021568110897191}, {1.021568110897191, 0.9440163158345407}}]]}, {RGBColor[0.6, 0.4, 0.2], Opacity[0.075], EdgeForm[{RGBColor[ 0.6, 0.4, 0.2], Thickness[0.004]}], InterpretationBox[ GeometricTransformationBox[ DiskBox[{0, 0}], {{{1.563750175375212, 0.}, {0.6996489634038591, 1.3856056351246184`}}, {7.742113769531119, 7.581104492616173}}], Ellipsoid[{7.742113769531119, 7.581104492616173}, {{2.4453146109860064`, 1.09407618922387}, {1.09407618922387, 2.409411648081192}}]]}, {{}, {{ {RGBColor[0, 0, 1], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVV3kgFFoXn33H2IUsUbwQj4Sie0roSRISvVD2UkhZsiVlSUpCJKQikjVr ytaKJD1CpRIJ2YaxjGH45vvr/nfPvee3nN9RdPG1dsdhMBgVLAbz/9PtbDfb xAAH8UoKcj0iFLisdfJN/doKGt745pV1Bw/t3LJ/PpHEQ553axnjIXjQsvQb viO9hDpqClOvNLOQTpPkjTIjPPiU6dxbmuagvTsOTBVKYQD7ckdyKB4HTSuc L6dSCxrlSy7cd/Fko0fOzmepP3AQxOhbXnOmgGdXYrxNAwZ6Z5cM33sRYUw1 zbBvAAsvHqUGPi9dRe01zpTpf/EQonUl/ucWHGQyHyq/y+egbfccnCU9uEha Tb8/oGYVXZdcSU9qI0PgYbKnfAwWtK9J3PCTJEIF4+v+zFwscGne7F16ZKCS A3LOxxPANT1sIvwCAW7bn77lKIiDXUa3ZCbDcFDdMXrCw5SNuvYVSFg5cVAT N1T5rFJD44+Ec6Sd7QvInOM8wHnCRnIh5TTKFA6MFNfnHEzBAakgST3pOgZS UzKnIsUwYCah2oG5R4D0ehImt2YQmTt0drNPrqC/eDv1Hsjg4HS2pIRdNB6k uj9ixvfjYMPd8K4iGSpsyL5dOqUxjo4+0sm0ejCK+rRHTG2FcXD9zbS9TjkZ Xqt8pLxXxsEOU52GCgkiFBgcU67UW0DN/ldafIxXEPNZRf5qxjRa2GRmP5/M RT7rglX16EQwte+0SHpGgqKnEq/39C2hBvFU+51Fa+i5/Iur7kMraChiuNlL Ggsnmu9cfF+Hhcn3cgGjfhj4Qw7a/Z2JA8knK7MsSxw0/D2yMlFKghGqTe8G +TWkpUde3YsjQIWUmFByFwlqqzBmMlmTqLK8IgdJsVEPjkG7dwMLUFAgpZ6B hbflC0FZUXiIvmP1o5T//z1XeyJdB9ZQ7og17mYIFxXH2f4cfEyAY0mh8umS FOD8qSVdvzmB1IvNtrhqraC4XRJB/wny0AtJIV1tezzsItczk6kEqKwKkF2J n0PDw6rxIXw8hfdkfSG0UaH8o4693PAccnxGn67OwIDSvZCEyOcEyKHLyUSZ E2A1IyN3LmoeeV0jR51bGkKh27PS/fIXkVX9NEuCz6+YZYPo8L95KHbbCF3f CwcoXdG+bT0O9imOBToq8/ulsle0WZGDEhYzD/XumkL9uS0C4pEYsC/fJDZd TQUrl2UT9sU3iGIe/rOA9QVdFdbKUauaR2nHk87XHcHA2HnxjLJmPLjIVGCT h1fRH4Wvyc5vx1HRw4bMV1cwYM2iT26PxIOnTNPha/vJYBRrFxJdR4TRpt5D YQ1LqLvqHcVP6yfSXFuf6P4XARQ+nec9FuttjFBovZKrNY6KC47ObDHAwIBV idnDQTaynUsMdd43j757+cylKC2j3zOpJcZGa2hbq0JyQsEyGnE0nLBLxUFh 6uj2BxgKFNy8I1OUNoeKPWdObvEigWFns4Fs+Ar64NJw8lw8D3F8U0s/SPNQ w8TGjnJdDhIwn1GXsMHDSwO32yQFHBBiv7mO7MFAyS/R701DHHQwbDZt5igO cijeJ2OPY+HMpa59pWQWstDFSdrbYMBCmZnQu8BGNlVOoh6CWIjuoQY4uc6j 7l8NViUbp1BJv7618dNV5Lv88fEY/96y8Zxdgi9W0RmDnsmmQBJ4/xDn6tN4 yHRE1UhWdA0FL6Mqyisi+N8WDOukLiN7vLNDYAQG4qy7ZZNbCdDf8qC6KpiL 0IDVX1yveRQshwtU5vPyhXgj11aYCGWWoXOlU4ONmTYvM55P/UFXkqJ9pE3I EKd3+9pbIS5KU1YnEd6vouc/8b9Hty4hhVtV2c+hGRXTtj20/raImhMkD107 sYwSrKQKtvHxVbfn3uDeXUS2a6eiebJr6Lxvnd07Qxy05rWkD+5bRbs/KB5/ ND+O3Hf3j36MwkBhY0/nsYsDyM9dfwErx0J2BSmYd1HLqMLsraSS2iw6+3PQ Pe4iX1dXr8dzivHw5niinmDnDNqDXaxszcLCFY8kvY6tBKg+GRR7eyMWMvsK /svH8JByuKDw5B88GGEdZ3n35tD3f9W3lzlwUb6J1f3QSb7PW7Fehx0hw065 rSlK3Rho8Fgf7DaHB9sjdo9+ZUygn7cIvfdO4MFqybCvMLILxfx4QrXDLiKD fJNccUcc+KvU/v05jAaFhiwblRJ2o4/Q7UoV5TEUoJ1W+4/5LNoWQ2BmH15F aT8ObvttRIRvThuc/vmGh8546Zpnc18aLyBXXXHTFTQ4sWrbU7yGbH/19XNr +PPhcDotdsMiaos0/vmkeRmp3jFVcefrzQmb0ts8jQVVrXEBTPkK4hwYPt+f S4C2obBpTYsVFOLY1qOxxEHcjSn5WSJrqOnA0V9t0gRw9/2sMGdLhoUHZuF6 RB5qmso/GyVY19imFvpy4vo4+kF/nh5eSgD2gFyuzx4CPL285rR1YRU5nF3a XHZtAbWqvHlwKYQA0Yp5JUZJa3z9+kz4dvxEzxYjLCqq59BazhBOLnoepSow /su1IsCBkm9O/xjPIdazg2vLA3PIq8DotLZ8F7px68AhUzEW2jO0O0XahYvU Q1UXB/vWkM/d3WZ1DXPo768Nhm6fMKButjXKErHRn33b9Hlqq4gTbKn57C0J sGwXy9ApLjrmcqx9LB0DxbuEyB924KGszdbxzfxHlKw3eeW9FA6+Jz0ypXmz 0JxkaWbeNy5aL54saJrFQqspezO4uitItcF7yJzDQ6GazI7VECIkn3p6/8nj BbRJ9o3SSBgJ9gu/DBY8jYPZrYoRdedJoBAsfNv4OgfVjp6PCl9HhDaHCNWC SwSQWUmkBx5cRZ1Koc9Kt48ji5mTXP2RVdQf+2KS+J2DHm8tzCPo4OHGnRL3 XFMM3HwV1pOaiIORsePFR9Pm0Sv20x3rKEsoJy3iZXJZC7qzbbZvTGIWXYpd UDu4DQu17oHtjvy6bjt81HXCMJAQu6nEU4GFdBtXPG2HcRCaZXyq8Rifv1bH cXG2WFBr9br5a5yHDrSyvAKCcTDh4bZAxVKBua7JMOjHZzS4Q+P9DQMusrPZ 6P+znM/3O2qi1leXkd+yh/+ofzPaEtuif2J5GH3r245bG11Fdv0gYP0UCxva vUKbZqfRyJbLRTQcBkTKZsvzu1ZQoM8Aq01zBcmfkB7VVGUht6smhSWneYhR H5tUEfsLmRdabgnZhIVN9uunHXADyEnIE5/6mYOimncVPvn8G22ddPI8bcXH lzi5XBLLn/O6CUW0h3hotG5viomZQRoVOqyvJzBAlpsKbi5fQ4x1gTdbUpeR l3i7sv0hPFQLnHWR91tAUl0aqUxzPp5RQrrr7SiAdbd87p2zikwZN3bOyFFA sRI7dGSQAuuop4aCNGiw5ML9bfKHAsreBgEpO/EQa6RRLuxNBvb79S/C+fnm WUWwgySdAlarj00HApZQF9X8zMFzJHC9dzjvN99nX9uUZV/RpML3/uLweD4P 4nnuyNGFCpJf06tfRdHA52OujK4PBboaLyb1ZtJh65ehfu46MpzzV/HC8PnK apVY+vcTGTIGHle8bsLDjk7DXW+lSTChsdRQp0sAfSxcc8yjwNBVstshMgP2 Bw1uWY0igoX95k39dWTQ9cEQGNvJECbspEzRpwI76ov/sB8d1jNuxTY2MiAs MDFUCkeHqsaz9evUaLDG5sEZfu71NxZesH2Kg7f9MuzcQ1Q4MKZ20odAg1O7 8X1dlSSw/4ZS4lKp4PvOVYLTQIZ290WTlctkmBq/Iix+ggQDC1QidSMFMFKi HR/yqeAniktcKqfB8c45E54fGZI8D7FIihg4X3kzLUiQAhrZZYYLFkSIfT6i 0TpHhqAPVO6un2T4biMi7z5OAn0HmWc3KwmwpuyQvlZBAW//MziTLDIUNVA6 2UNk2Lz7S/3ox1U0oHP9Wt4qCeQIgU+iU8kg+CPGNFqeBNbB/yjpHSVCoSrr Y+/fJGAm3VAWu0SFpxtIDg1tNAgkDURY72XATOkoG1dDAfHypPJpbzpcSfiq VhFNhuFTXt0d0RQIY6usXJiigp1we/WpeTLgJd3CO83IUD+QKJX5lAS9JeJz Jd+oYLJf+owtP5/8Tu8ovy9FhYKf2cNFjTiYdIvZZLqLDI6MvtPdyXiYo/aK ttZTwDIXY6Faz8+FlxsJli0k8F+v+MDLiQJoH9v4X2c6tG/WNNMpYsDvo3SR pYNUyD9gfVDiAgWeZ+1oc8+mgFzobFVmGBEEE0seZG6hgnJtT14chworgS0d 5mJkiPSwaAkmkqHK1/IzpY8EhJq8C1kX+LnbQ95aJJiPh+oX0VPv+X1RdZpI zaDAXgYl5mk0EQZIIjS8NhXo7kYXOt4TAdOUxZqJIcEpj03pyktEuFljIIzl 86VM0pnzQBIPHirMFw9mSGBhm6Zl7kWDV+UldIotBSJ0/tRNua2icp7U58C7 RGC9KaifUaCDS++msLl4PFjbOUlkJ9NBWkLqxacsGth7CjS3igrCQFXnIYeL DPBrDUzeJ42H9APe6inFAtA2ePdQGQiA0vy/va7TdGB3l3W5MEjwX8jlG8Zx dOBJCDUN8/eR+ueW5Uv36RDBomgZ2BBhb4K4p/czAVDTas10TaXB3u5U59Qz wrDo+bpf4qMgtE30yy6+EwTlHy3a/UcYkEzcO81UoUPgo7Xni3xf2FmSsceW Rgc1gfEbAWfIoNi69EAWBOHt+5ZblTVU6HPTf8TBCEJxhA01bacAaAuTh3t/ UAFlabtyZEmQI+EwjuxpkPCGzKieXUX3Bx6OtywxwNOg6mWMFQmGvwVyDssw IPDUmNfFdj7u7Me5ATwa6CdVGe84ToTLDrp7bb4wwEpfNNFQmp8nSt+Xu/L1 +2OR/juGr5PWljUHm2UqkH4vHbnEz5Pm901bFlkCME4ePaIeQIaj6mulqkcZ 4LHvj2VlDBleRJy4+VJTGGgyx55kEZjgT3J7Vl/MBPehhRoXmiAURpacUTJh wO2nyUWGRRS4bVRospBDg50vrxsFd5Dg2isPx+wZOkyzDm98cY4MpvOjcoWP 6fB35D/dsiYEuKl67D+evBCYD6fkS4cLwTFySX3DXSpUzxdVtM7z99Anpi4u f2ggzeS2dPL18XRyh6zvBBW+jCc0T83iwNAwLd9UTwAudQyViAfTQTbm/i1K nAg0+Op0/1ITBjG9g537jAXAWeysrW8LDRbGvjCkmqmQ2sdI32RGhMyHX4MW +XuPcqXb/mYTIgxaBDXm/8MAcqVsU+M1AuQFUzsaVJnwqv2sZHkFDVyupm/+ c1IAztWHORaG0oCnLVmVG0mDldfrV46+wMHo65EPYt+FQYNW2ye2VRhk9nzV qEUMcPQe5I65MUFRgN2R3U2E3DP7rOPjBeBYeET7umYBuHli327tOiHQjFJw aJdhgslJARHeKSZYaI25qhkIwp26S0J3yUzQjqxTtBBnAiYyu2Z8Nwm+X749 F4dlwrtmSaHUVgocCR2gr+gwofqliAj+AF+H4Yflfe+JAK60I+9jFAPcRTLu T6gIwl/nxAZ2HiHyeXN9b8gTJkgaqmXJKZGh4NHLoQoTMRCzxB5Zz6+TYVwQ LVAnCHcP3/cYEyMCSctd3O+uMIRpTE2e3kWH3PSavDKqGNjZl16tyBGE39+u Erb9KwzHDnDlPbVpYJV5I+4eTQSCok8PmKQz4JeK7qUjTqKAzpcRv9gz4fPe T9nOesKw89O2/Y69FFBIrO0zkhaCK7MvDsvxfZpdFWMycUIYptpslL52MUBB PezM6FYGPKJeY/UXYeD6w7rfcUxx+DKktUcuQARkS82tKnOpwAj2NY1exwQf StHnhGohsLsuCpJ/iUCJ1qW3ad/EIPUvU1dzMVF4U/B4SWijKKRsHLCif6OD G2N6bJ2pJEho4mkVNiLQkyUecvQTE9YX5vV+IPDf4/+f26+nEmBQ6+K5yGGC yFs7gc1dovCptu5oON8HrKVuj2p+lIK7RyIubOwShnfJxy6OciRBt4O5XHtZ FChmxpUq42LQ81bVU0+VAUG1XW8U/SThnlF2riaGCVkhPXs0KBLQP7Q5INxW AP4HT0crlQ== "]]}, {RGBColor[0, 1, 0], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVl3c81f/7xo8zOUaOcY4zjMInIiWrSO8rotAwKhnJatjl07SyMtohKbOM CA1lZlWUFkUqlUqSj6J8I9l+5/fX69/7vh/X67qe13zPIPudZBKJpC1CIv3/ +y3p2WvFVwzUVFkbc5r/EIxkE4fIC0wc1HupF8mZIpb9TXiiV8DA227fEZWG /xEsXfJ22UpRjKa9j1+xYpTYOZr5T04CE1LcNWsKQ/8QZYt/JpjVyGJB3kyQ 2hMqWO8ODRbSZKBuLdZrfZ0OZmf/YVIpCzvYyWfDdagQ/URlNaxlY7Ha76pG EVFstjBoI6rkIWKpK9uSQwPDbaeW1JQM5M1Uy/PzKci482DCv1iA953e/xyu oCPQUFom7oMc4h69j/Z2EEFBaxz/0UUW7mu0pgU+nCHm9ucm0HM42Chf4npu wxRhumXJlbmX86Cj/K/7scYZIu9LULVrAxemis8kXAMYMFu2oOi7qzJkxlo2 kIzoiEr3divM48KtmMhdHkaFnlut5qGtfHgWNjaeDhRFme+RtkcMHg7v/FWz YpICS60FN4/bcqAhKhK3a4wGS8t0td00WfSRBDVXd5Eg/sezK3+BAGGrg3c/ 8ZgjMqLTlS2ey+OK6hXJy4p0eDw/n9gULAPpW1akvrYJQrFYL69LnIfeoCrC i0IHKb/yyfLFC3BZsm2Hej4DRQp/hw3fy4Fx9lJOWy0JsyuikgwVeWgcfB79 dr8Ivoba8fpU2dDXX1kzE0HD+SfRHvEVHLze5SF+pYGMtkd8R5VLbMS/6K07 s4yKj4vvbFWt4EPf9N2jI/2ThPRrjX83ScsjPW6hydnJSYIX8n153A8uLDtT eac5FLBEtrRJLeaA/a2j1WlonIifM677pCeLro8SLrPCew09+pW3Y5yHT/UB 5lef0FFm9iI8VFMBmdmGW1QNmfgsMaJhFMUFtbfOk/adjLPHcw8+0pKDhzGV 8jGLhrjiIuplZUmM869wirLGiWcFlVVxKRx4Jui/vHOYjvXJKnzeUT40WgSL hsoo8D5kSWJ1CrCKPPK+bZMYBrK/W1Gz+Dj0Q+nvpIcYbOfL/ld/iA32Jo/J N0MTRAqHsFJW5WF4SLt0sFwCf1cvMH16TgAJ15Rc8RAakn7Wh6Vc5EKs5nzl 1a0MdBSV0yrqFRB56qGiMVcUqnzHstQeeZwttxmlkueI7W+ip15t4EJz3bfd zQw6ls8beh1apggNl4lLxkcZcBw3DV/XzsGt5qyKgBEKfk+bUI0VOTBm/1fm HUZH4/O2LZqtCnD/y3I5VkxGl2ti7nX1+fj30OrHObni+P5nScYab2WQN2RO 5Roz8dP0ZdIzKzlsNebFzdtARduG5qKgWDamI5zcV2wjo/2bWa/PGB+PBZu3 dFeKg3JEy1XsmTxa1jNvXDpPBz/XrYtKyOGner5ptAYFAezH6X5efNAywvfT nkugW8tt8nshC9od5rfPrCJh8fp5Kh+92IhQYjxvkZgh/NbFJY9ny0D17KCN VxQVBzKbTxqVCPdfdTFkyWYKXivFjMjU8PH3x4F3sm1kXFyg7KEVwUNx18Ar E5ooJEVNfBzzudAwSapdfoqOvYvz1qxLYsMcRkkWX8cIyqjEGVMLDnarVP+e cxRF3PkY8SwnAQLvPhmzCxfFiVcT/10P5mB9yoroT3MUBNMaI5YxFZGmffqg wzoxhMhHsZtISpifGtAe8x8TL59sC4pr4GDKydog0p2BAbdJiztkLrwVqtfS 51HxR4IRoOzEQ8KQctrmLBGkBPLCKvpkkRO7Y+DkwkkiYCK8h7paDu4ljeJn 3pFRs7YtdVqbA6uMgGVPvRiI0v0Yc4ohjx8m2SpdwTNEyC11C217BZR53h5n HSbB6OF8p8p1XDxUHNh4fEgSCoRdo7eMIvbkqTjl2jDxlfllk/MxLs4tKrYw kBTB+pA3dJ8gOYSJiDlnGNLQodOfmfSAg/jDO19r+tFwNe1e0PZaAVZk/221 WULH9YXeiT4VKuDdKP/l2SSKJPotkYh/FcFb91ir7zgT98zWaw3U8+CRelFA PkWBh9nXAnWCB4qh8wbVjxSklIxsTZBSRlqSW8L7eqFev96cJmK52FO6XPxD 1CyhNR5rpTvGwv++DCckPSXDedGekvAgDjKl2YFVc2R43emcfyOUj+Ofl+za 0kSB+9AHwyATHtbbZPkt/UYFb/1GhplwX6cW9YdZ4gz8GIq3W17Nhs61h81b M6cJX7JcfzVXBte0mkjZO2eI0YqPToSOAhadafV/oimGYCU5Vv0YB7E3ujmn p6kotf+vx99NgJmclOt6EmIYVnscIFfNQd9rC02l70x8eyF9+ni/0O9u/PPl zT0aJmx+qx0S6rkqbnWSmOUs4arr90HjMx8pF3wTrg+S0Hil+mBDhDzE530M j71GAWnpr3BBjizWUYbiwu1JaCHF5nUacfFyqUmDLV8EIR3DBeEGclj+5UVc 5aVxIiuEPNBjKYNNSqknghX/EkrbX8R32Apwbm3Re/IDMh7+vkIRdVTAyT6i Ius5A5WFOp9trrJRVK7ldS2MgqwVjHcuRYqIMXVvpjymw6laxb/ngSyW8Rp/ lL6YIXg7PUQZFnKwcbcgm4fRcPTmez+9Ojn8CBrc6+g1QwjaEvs/JcnA84b1 j9+8EYIX8GD7mDobO8U8BnyE8z9jjqgez1VB8srly01mSQipOZ/h7qmM71Nd Bb476LB/45z/+I8yOGeCRfoymRi709gWJa6AbX1uby00Z4hhVU7Wwhgl7I1o LD6YSMfLks8GQ7VsDOvL6f+vcJrYqVWUJspSAb3WqfKq0K/aA0m2xfJsDJy4 O365Z4bI+vDt1BRNGTUHydXETUlofnlT2trEw1P10cOHT1HheYDTYL9HHtds RbomO4V+5G2f8jyCg+RFP5v0zzFRnJssZRfOxvfLq84vjRGBWd7C7BZ9oR9q dYjUiUrgPFX2dViPAi6d3q9a+pOOgh8jpwzb5KF3TrBXdbMwf9LMPVpIChDU sWyallCwNjt1Va4GD54lu4pX75BA6K/Pg1ySAK9yGoPeBovjwqfbYxuvyKCl Xi/w5Lsx4kv/0h952gLMPrabTjIQQYDz6ujZbgEW+m1/8ekNCcnUnC171nKh v7vc/LIFCYMLHUelFbn48CK+e5EVCVI3nni8nJuPz6P92uU24nDumrK5I84H aUf9t4MrJaC/Z1d+lZQszHads/FcPE08e7TgajpJESuDjnkM5cwSEXOIr5aQ x3APo5T5cY6oKrne6r9zHu5HDW8oODlC9NpFjl8PlUedc3p060YqWv535oXk dRmw357WrrOdIOZuVDGMZWQwrPPC7B91MiI+vnvcv46F3vKGwuiyOcKEnK47 9UIO+vY64T6r/hIzuabSVsv48Em/eHD6iAjertheNu6ogrD3occiCyWw9sYn aY6QX3YHtp9qaSAhQrzRdglXEbtXKWWVmlARXJtmnrOJDRXDRku7VVNE+7jO krXCfWXcfoWIFVKwMHVNUzdNARx1K4PyWySUhJn0WnuykOKYX+vXS8Y2pZNn ex8IeW3gGbkgbZoIGvrlUcfhI1Ulj1fRTUPtsbuX1Ny4MIpMvXeim46J6ss/ BhnSSPYxT2PeEcGyjU47rWZkQS0PStGKmCKk1j6v5Zaz8ezo6beRUXOEloNF fGmQBJS4hsF+jjOENUnzC094r91xHiHzt5EguqBdvLJfBvyLrCHtwini8ryq FYvOsiHfWF16bh0VsbfedkXfFOaRk4PvoWAG6K4RS47GsJAg3SfprzVH5Bkc CCuUEGBXbw7Lq2KOcLkXLzlwgo2LMscmzukPE/unrzDvNvCwyijIW/ucKEzL unwc+HJoZXhv3Px6ggjpNFmUKeTXeM1LKeaiNCEXHju55y8f149foXheI+GM Vrfr3UEW2IeslKqnpoiFGdeIiUIBqLN8+aE0CTx8wnacHuRgw6xtzbJREqYK x3NFSXLYMtjwbnjRH2JMVn1uz0pF1D7TEO18S4eo5irleR5cdNbGLkk3IMOR EjLf15mDwshExq8gEihfd9VJXZUDeXGpa+LbaeKUqLVKyjE++p7yJ9lBDAy3 d2/M9xfO4x4Q+CBmnHhUei62OZCP1aYldY3WEpDobwoorBfqy6pSdEPJDOHv U6C7MkUeDV/tN597MUq8jx71XMBQhI35nauTUgy4eHDvBwoUcfvLoHr9cyb+ htcO8BMV8HGFlPplKzLs0q36OqflsfFQ9KceZyqeySX8c6ZQAST/t1tCRShQ uRCZeMuGg1ZZU3PXYiq8mFPkN7vZsE/zqy87RIdkSbxHzUUFiK+19zhGmyaG 638EqGyWweRPv7p7NnSghqrofJeLkuySQ9bJ40R/bFfOvKMsRByua7ddOUe8 Z/XmG3zh4GbHTg+16RliZOmX7iN3FWCwOi2i9DMNLn8sV+5ez4U5aaDz8zYK EsJn9jRdVULGWPrk87VMVFeXnJEuksXKzMZGNWsacvf5GA/tU4Dn6YF3fvsn CMeiBdUdakJeo1TNnEwg46XYpZ7suzwY27jOKjtNErRbgTdPanGQLm6n084V h1lau7uDFhvIjlc/HzxHGIgzR85R2SAlZIeOG0wRZ11Kpl+Zc7Dpxn2thVYU uIxVSkt5ySLZPZKV8lYEJmpnHny4JYc77GuVhpNUGLipWu/QnQezARmatyIZ FMXQjjcTHATdkYrdL0WHV6KC2v3Dwv7jt/zEHqEPccqVTH9kKAhzZSy1toKM BLuSgJoBOWjv4zEUlpNw/K3X/Wc72VhdIhFBeSWCby2GYcus5bAnKj/TT3gv X+/q4ngyG7sznlYuzp0g0q3M719mqGD3kXqfKCFfeU7nHF6gJY/AG0zGpuOz RPqRI79DLXmgPrHOXaPGgI8tnm5MEvYHs/KoCELob1tsG8JSuWjX7zJqXjVD 5EZm6zAjuYhworRGB00SpLPl3LvdHGhX+U89LBL+F5d7nxu1ufA/1a2j3cxE nr1NhWW8ANzazqOarnTYOke4WsgLUFGiezRI2GeY+a89PFXk0UtdFrBZTwTz BlNujjRx0Zr3omr191nCyDCM8vu7DOj9H/r9ZWeJFj17x6cUWZyIjUl26Jsi Xlb2t9z4Ion7E6MJ7vRp4vHH0WJVIz56PPRXuo2SUdjoGf11WAFjbTGVVY5M 2G7rVeW+YyHaxi9WL4KEMbfGfzc+EqDWkkMJ8BNH3gy7I82ah/d5W8SmlUTg fdvK1sBbgN7i5tKPQv2/vv9on/9tDnYEbw1ijlGQ+8u+zpnHxr38PywfTTKM crPFHMLl4JvmK/Czp6Knfey071YllGzSU32iLYoVdt9/3ioQwH89fW0ni4GR rk7LgDFhfkc1fDA/RILv7P6ya/dZME6K3LqP+p1wPXAp/MJPWThwWA9Mhfy7 3vTirQvNKti2ZNdQwUIxtAacfvxO2Mc8kw/Uf05lQHeioebUnAJkVJgeB46J Il7js00mWR4zL5kFHAcK0iLL216dVsKitxnyHdFiSHh96rTNCgHKL0Raaccx YF78Qez5CS42NxdfolWKoKWX8fLuJBc3WkwS5x8cIbSvcIiQ84rYLu8qETMr Aek7mzPc9XloV7vm6bpGBFqvddPnC/MktcT7Sl8FFV98XX7qVrPwaNT/79cS CuauCvJkRuURHHrpnoswf9QaS5c6SHIhNVPGDtz7m2jWDt7LHlTCj10a3160 i8J69FPbg0I+dKpy9kf20hD9J+Pp+n9YCNy3RadPyAdmiTGJHU0yqDOw2HpA lQKHlevlskM46Kq8nWlcM0pc/RD8uFdB+H+SlbxL9s4SOyuVzYsKeEhj+Q3k d4uh7Zsd1esVB+UZs923VlGgr1X208JZFrusdhjRy6eJS49dFQo7uGiiR9zp GBVBRzt7YU4DF//a+bvoGjMgrmF6uzBWATVd6wK7dOahuMfYyySFi197fett hDzIuq8bQqqSx46gh/IOomIwkf23qcCBh/Lx/H0XJBgY12x1vqopDd5BJYrP g3GiwmDX7uvH2Yh2X5kVqkDDPh/x7WRdFrI+9hxqTf1DPLVwPvlAhI+IaCMt t1BJbK7SPK8cI4N1wZYF+/eNEYZJAytdhH0sdmRv4m1hXy4/vib//k0OHjyi zPQTQv5oGv67MH4BajMtbo18k8T/AQIU+OA= "]]}, {RGBColor[1, 0.5, 0], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVV2k8FFwfHcbsZozZxxaiEGlDUc2hSIoWZSmFkoS0kC1FJREqKgrxJLJl KaJUSKXSppI2URGhbEVZ4p330/107/3dc8//LBpbdq3dJksgECQyBML/V41N h0tfuPyTqItrypZ50RD88dDugY2jkoPeTg56nVSc+bzqztTIXgl/t1K66k8y 0sdC+yIeDknuNB5uVR2iYOo7jZfdxTLY79Y+XXs9A2YG8z+VRExIymvWxL1P o8N1/IZJxrRxid7pv+4PptDRL3dqV6v/gORzXdIZ81gK/D932DY2E5HgWDS7 ekgelqnxHz+1EzG4fU1vnCwT9+fdcNFq7JP0OdD2jnLp2B0/ZxFhFgELJ0kz WSEMNC672GUTMiyhWDsaC5/R4MUTlGdMTEjoaf9sA88xQD1bLf/wwbCkzFr/ zdavDFiQR0fyVUYlgkeqjd3hDHxkvVWbsX9Y4vRwsuGBOxP3xlXytQf/Sj5a CaOCPZmQ3d04fY9YHvWvM4/ca1bEUk782kvXiNB0XJZZ/oUFBQuVa1aVVPzo 5CTa6LPh/Uwvz8CVAn31ftfXKYqYXV1W8zBLBvnf5n/bc1oeCzdNUXI0pSCa pNY/ZMlB/HujTSvOUNBZrlmilM+FdXu4mgNVEbp2Xas1ZMSQW0yuSX9KhtqS BkuyoQBf2a1Zy5pIGDEWyNQ852KvCdXNwEsWPQLbtb4DigjxV0sOFVHxfDUz O/6gEuaHFtT/W0pD3iLrZf9oKji4mPepkUdEZNmABd2TgwUZcxMFdgyklHlP DHUpYZvztyWJ1yn4nMpotzrPx/ALRqOVFgWRBbW+N7N42MYsVB/kk8ExuzTj Wj4PzZ5L6Fe3kaH3PGu0qEmMJYdfFUwNl8eGmoZPacf5cFHV2Py6VAGf/d9Y kjkC1EbsNk+IocKyr1fx6Wwe5IwiLoxsZMP8cv6L8csqyEofm173jI5vFT2B 7gIhTmzkT3NcPSZZd37T+WkfFUHY5bZ2YA8FhQWPA73HBNi732N+SasMbHNa Y2cZcVFRfq70bgQZl3RXmC3q4KFwPdW6KIeF8mOOEy3RKhh/3BDSq01CJan+ lNIZBdzQXh6lv4SJyNU2G6ddFqPnS5xBUpYcygn9/524x4Jmr/0zfel+UujO 461KQowHv/Bbv1cG83MbG9Yv4oPKDjoev5uEldUyzTw2H7ZnonOdNo1L5JeO HTs9xMRr3XWH1MWjEsf9Sg6jhWw0ddy4TvpDhMfMigwbIQ+mOf0Nui+JuEsI ydP7ycW6ADVjG+l/uqWZiRYsFMAqzCcpMZEErWW1H8/5CDBjuDTlXD8Jv3sZ 5ldNBBjUqa81M6IjyKNFiylWwpKa7ffUviqimpnkJXquiouSq2a3jOVwXt99 fvRcLqwKjaI/vWOA5dh7f38WH2F+lu9X/yZCf0Hb1tYoPo6+X3z6sxoJan6P XB/UicDR7F4wNECFw/36W6JHIrhvsXtWvJcGo2iXgkfT+Diep7w5NI2BpgYZ 1tFFSuj1CZ76fD8ZMRrP6fqRPAh26Wrl/KKgeOodm8tMEVwePfWtjpuQNJza 0K8oo4Cf5dbKe7JYSH5gUlbkKcb3a0Pco1/6JOkrjaZvO8mGfrW+1nJDeaRb +ERMLhUi3KOHzF4vC9//Aqbk+3DxM/tDRaCEiM6tPjJbXvNBLH++o6ZPDk1t Ef4mUjytmh4pm+6noGoyNV+nnwfJuSfPH86nomblm/1lI1yYzs254rSOgYTD 1zX973AwZ0OfwZknDAQHVTpq6/LxZlI5Z+NOKuYE+8cYlfPBfahrO1rEwaln fnck69Sh2zzX7GM2E3b7D9R9e6mC0Z4w45B6IjLTXk9fp8uBfPm9eXW32eh+ udh+5wcpPmQrH8M6OhI943o7RkRQZ2R0hqoxQZb8DXowIcaIQnFhTLMCVAPu dJGNxWg2czQO2aeA3WFhekd81PDydTPFxouMsFbXjek9fJwJXK6zv56MC/b2 zdk6POip3xqyTqXgcHFeiE4tB7EjEw67KRRQ088PzZ6riAdTHn6yMqTgA82K cnWdEJWmTnRyDBOFTVbbiyyUsIZBL2FF0AH66jVnVPlQnSe/eHDWuETFzqrn 5Dsmzjpr9RgOEtEUbmsa/pSLp7aPn0V/JkI5bdLwrz0HoV9W/Gp/IYvracs7 B6GIL2tSWNnSeft3LpfZ9lMRZTmpq9peslH0eMvAb1tV6LuL5Ds7FOE0eHuT 7yJ1/GjmH9i0ho1II7N5+tZS/dt7LV5LhomahDRvN7YIqT8rVbR/MWAiv6+7 9gofVm6sl0+amUjvsWpfNCzGDbXVgdZFFPhcj3lXu4WHXlLwTdoONhREAdZR 68WYXvf4R9kAAbYZY10OugqItKlrObiBBsPgKsPbbA7UGoaIG7LZuGuRO/0J UxUmnz3KZzkoYPXbrTMg5f/WE/aDQR9k4NhXIRSqcNFsV3r+vT8TOg3Wh8uU lXHMkN5jQKTANzyBdraKj82RGx8wGSzIaHWcNr+uio2BWql0c1lM1rx86pbO xEe18J8JMWTczZm2/DSRg2V+x8ICq2g4nRz3vl4ggsFcusLljbIweTX2IzKJ jRtTctinralImakT21rGh/b7fmGWDRUBnXKxQbelfFjy1cPwABtPjVSeHTRW wr/vM4ZmvJDqZfuPhB0pfFgONK/6TqcjIrXBv/2kAK2+Rpw1F2lYUGi13P4Y G68c3epcDrHw+d/2/F3hYty9N95WMo8Ni9b2vOv3VWHX9n1H5gU2CLWGPqO3 RGj09LF0i6Lh1VSJ2bPffNzVK9lC0yJgmffOE+uGpbjrePHJUn3c47zB0+sl H9n/5Fhrl5JxvEpjlu9CEcTChRrqrwn4MJphm8LkQ/F8m0H0Kjr8io5iYQwX mw2vpZ5OJCOp28Vn3FzqT29dbjg0s/A1r/9F9QUVKLbI9n4qIaPIZ++s1c58 pJab5kimyYPvW7p77IIAPD/3mvvKJHic0VMOvs5Bs29p3pUjsrBKCTDwC5Li /evkyEQiFc+y9kyP+8qDdWDRYqK7AkwsabmVHUpYoCfJdmfIYE5kzIEhFhci gw6DH5qykBvD+7NvFeAt/9QvrJSDdzaDfQW71VDxr6El+gMTsx5nK3UpKeHg z6+RP2dQcMpA6/KRD3z4sotEsn5kuI0VDmU/5cNpumn40stM3NTzTPq1UQm/ j6kwW5JkkTSiJ2oK5eJJpVAvOEoBWhrreCaByrD+S51p+1IB/501qbKVnie4 I9/S6sSCl2bumNpOMerPSZS/35+QRHscP3e8lwt7613EdDYJUYrjF1768HDF +O2axfvkEZLN/tMqK4aFZ/GMnUIiJukrx+2aOej/br4qzHFUklWvrOkYpIhy s60ebeMy0Ht0Nb9Rl4dr+0b81rkywc78o+Mk5cd28lX744qKmHfnG+GgnjIq esx2JgWTsP5b21oZqa9f/i9lygN3MkrG+m9t7uKirGD+SZdyWeSX6y0QDgtQ te3zorpPRFh2R0d8mcNFkbzBykweE1bqQ8vdmkQ4lCafP5Eri2Vq6tPMeVxc j/gS8+gCFc33/zhHbhAgomW8rmiIiLzxzADeLRZOXDWYQTggh12P5lv8qmTj 2qVPPU9ENFQfkFv1LYyPQme75ho+DRg6tFrmgAD9ioE9Y57y8PH+4T2vS4TQ Kwl9M8PZaBlJflvlqQxmdvrwtV4SdCoOVKqnKyBFT+Fb1zQKEkjX3GIUhLD5 UTcelUnHnWyr/j1VYkSZf8u5a0MBn7AluD+LjfS3v0qsP5EQWnr9x2x5DiSi Qr2uMTpUnR7/yBwTY6fepWplGTJqtW081aV6mpu2Z0zAJSDQ5vkcUjcPLk5H PMIC2fCk2fpoOytjdKziDTVeBgU3Zt+qKOajxuPFiTwvBpzldrm4ZojxIsC7 4/VUOiKDf9mpE/m4FP6Ptr6ejo66sKi+h0rYcmRT5pZ+FgZ5OVVZeWL8ncdv RBoV+fm+fcWn+BgIucO7u5KJFeKS2aOFfOy5NU/JfZyKsdMbKNd6eeBkCV8Z GJHwwiD+6vd6AdSmXN/RKNUt1g4Dz/ADqqi52ZmhMoWCFpaaboaYi5QP7IMt PVSojN0KZ1WKcTo3p2H/gQlJsCCC2LyUh7JVFG0tCwqUhBUH2sHDD4fK/Vfv 0MDov/D+WJIAaS1l93c8JMK+Nv/ZrlYpzx5nzPXoJOONv0HhJbL0/U7pf54+ pcI0w/ROWQEfRvfybI9aElDgkbG4sooHO+vvTiYkChbJG90fe82DpcN27tbF kxI18h+xYjAHFHffd1dimSjLfvrmkUSMNOf7axMr5aBuVTu7sk2AKwfYdEY1 Gd751TdPBAqQVHCLFnmXhNR3ER9SjvCgfrn3TdY8Ih6ZjrUvP8WG9ZgNV9ty UqK/7kZ9zEwWjhjQXn59KI/zP2y5I/dE+MB52pUbQcITzQR968UCGFAILHtl NlZtjva+VCzGbGVKh9YVEr6FX5g5OYOHvrGvyabrWYjS1shbd1UZ92LfaZua 0dB613FvQj8fXo0DUbfDKWA7RCfuO8ODJ//2lTqqPG7P1hhP71aF3yHBRWsL Elak1589OMKHUnpyaWuYdF4UfTtcpfPuUlnzTHMtGyfknsR4MlRxxuu44zYG BdPfsZo3H+JjdcSxG+RdLDQkWy6xmyPl9zJZ8qM2eSQeYT6OnCpEenJZ8IOj RBBiukpjLXhwvGXOMJVhIaXa+u5ghLI0v96/GPuQilknLthr7hVCgTaqH7Fy QuLGb3fsdVNE5k2j0gX9VNQOOE4NGRegcKuc/jkJDcdNYhWJ1iJYv47fV0ph gPIo1jeSJIKzwG3vzgwSttR/Jt6I58LEWS7vVSUTlOWHC50ISrjlXus/8oiE QwfGJ+ScOTifr/05PZeJC7t0Vny4JoTbuxr+14t0nL4UT8yeK8DNjZoNLAcy DC+LDf+7KO1fsSft20oUQO7elDWUzEfnkbVudCdFmJxbuOvKbGXM/b3BPy6D DNOHbz/5xKighE9fkmVFhUfpQXmdKdI8XuZ+s/svEXJ3Jy/7D/Lx3GymESF3 XLLA99XUT8aKYA+0HA6ypOOcBiW3JlQJlwXkL2U68ignkyaLjwgxafaz7+T7 EUn65PpUlR5pb8l0//c4mIryDpXP7ttEKNXjP2yokvbYvBPFugYibBu56P34 y6gkLiN66X/SHDL4zZTtqEbB12FSyOzFysgQ1SXciKdg+PVWa/lOPthKgWWv kmlYec/VcmGAEHaOc787b2HAwXHml9XLxMjs0pXZoUrE+9vpQ51JfJw6+VeU zGZjw5+25PIhaR48f1f1LYWNb2aXtKwURPhV77NG4wYTvJ2FpXUbhTi3kJK8 O4iFihcJM8IOquA+K98mTuoXPPvLhwbOKmOY9uCt9W0qAi+6JA1IuDDfHXcw aZccLnZ1BXUN8/F7noNHVBgbmb9dAlIahZAsJ3g5C9jom0YY+dWlDGNX/y63 KWyUN6/o9mwXIWrNluBfctL+ET1yt4wsQp92ZkuZGxWiMJvtS6X99KIke87U bCrC+97wClg8KD87Qi3NYmBq8jGfYGnfCM4p3/1qBht/D49dL78kQp1rNa+x ig7XJWF/aqOE+OBJszOV8jP1hMaC0rN89L9dvs9rPgU9Q5usM39y8JbjPf+L VA/9jrCznxRzUbXaK2eTnwKE5rHBJzqVwE6JiG1yImNIfTyozUQRr5oOhSwZ oCEDwZc23xHBbcnNyzuv0SHY+7M610gJ/h7zqEuuclAetHNe/dsp+P1jn0Gn vbQPcPaee14iQsDhoTjvAhbkXmcmHlMTQ+lTQ1WHJw2uiRryWxh86NCbQtyn MXDcVv0LPVcA49sPFg9V0zDHQ3cy1liE3h23d64IJkBD7Udij7S/CtzU4ub6 SPHv39rUncyG4qunpzdGE9BvPPwxns9BnOHrWtl9VKi77r+RFi2EyGxVBvuC tL8svJeS1Sbl9yJyabLBpKSstyQ7y4UN36xBZ7syMtgM7Y5TkQLYybbvKF7O BKxaV5x6K4aXuY2wh0CExlLSzfP50vt04vQP2Mrj64Jlz6J2CjH6tWRhZSER JbJG7+uFHPxqE9Rv/kJDYOiazVb/pOfdt2C9OkdGUMXqL3lS/dtbUnQ1m05G oVeB6lgMB+uvjW55l0pFZej7ow861RC8y2dG6AQXw/UBHzSTp0DbLcCS/R8V vxtaJ083cDHVvvGFD4mJ+VtPVgbcE8OfVcf5G8qE9eyO+Id6Yul/BwQdzmOD O2XqnAveylCvnZnRXSELPa74BEGWjSWrEpYzgrkwVr3j9OaPCHtzPWsbi9nQ 2lxtV0WS+leja+zkHD68V4Yu6IhVQeKFzZQTYj7y1Awpc08pQzYocXu7NKcE Nt1qOSbN46pNtXbHtvIR3eP363GjJpoKPsWvseFBW4U5bw5NE2esr5KXpfGg djVk1X2JOiz+LOpWoQqg4Prqll+xGnLoThUMaS5MTVh0RXhFFTa/1zmrcqS+ ZWNhVuCqhv8BvFlb+g== "]]}, {RGBColor[0.6, 0.4, 0.2], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVl2k8Vlsbxh1FKqLCM+397L2fx9DEEZJELilDMkSOMhySFFJpEioZKpmK 0GxuMh1jCUVKRagoGkzRoGiSVKLe/X7av/1lrXut+7qv678Yz632GyQlJCSE f0lI/P/rMCTd/KJLGUavhtwutSnjUpqbcU+bEhr0OAm0NgF6srXUeyUOXvlK P3hJcLHBQ7ZCYSkH9Ue+pd/LUQL5T7xhKkHCaa6WmmciieodxPYXKwj09LW/ MTASQqOlSOPgbCGsJkz1LqSVwZU8ZWr9isIWS709Z5qEuNUdlT0kycPpc79/ X1/Lh4ejgZSFAoPl6slpOwaE2JUtu2iCPwVvoyGblRI0dobpJ2aMUkjx0zg4 7boY23vK5Iv28nBNqeeOTgmBXW8X263MFSAh2i/8njoJa1+boBkFbL31pYO1 wQQ268yoymnkISPih5V6I4UcO/n2LZMpbCuo4luOcKHdNcGzNlEAiUbVc0Z1 HFhUPjV1X8BgY3JAmtpkEUIaF5XrRjHIHFIPvOfJIPRhzzP1MzyE7Sz83BpO YkSxsWYVhwetgrHgthoBXIK4u8xMGCQnrt4wS4XGxR0aZUdjKYj9H/C6YwWw D/sSbtvPwdbXH281Z9G4e2u4buIxCg73QhLGVGmYNZ96qrxKhLZ9b3ZQ9TT+ dvoTN79NgCR0H+cfJJCVkeBnOYXB1ucjdubXBRiaUdV73orCSu3/zv7qJOE9 O//0tkA+psWrisekuHjt4ZhQp0HDy1ijDTU0dqdNp5Nf0/BPb/EPieejy1Nt 7ribAAMHzm+P2ESjQX3tzDYnCpmR4XOvVFKoNLbPVz7Ch7vltzUnk0h8s/hn wllpBss03oQPrycguUZPe/1TBjcUfz7Sf8SgrtLt7eI5FBal/0iWzeagfW1k u/ZzEonGNuaH2ikQPz3V8r2EkCqfldoiwUerjaC6dgmJnLKFjxtHaSzdEqzG T2PvxSSkenAegz7Z8nfVrC4KU/7rvC9BQblx3umTiyloz5RPkflJIJZr7De3 mUHHvlGocoUY8w8+LdPJxauk/vimAxS6Uk5Q+9MI9v/c8TgHtt8n3ygeuUQj RS3q2O0OIUZLrV1rW8T4/lLbaNBRhI0dm+KGP/AwvkPPNdJUiHsDRX2vu7iI qgu99zNLgGrBUftmHQHubKiJu+FF4NxfcftLG2l4DhZstIsjYHLlx/QqVz7i t/KYj58EWPdsw/PSpwTcNon1iJ0Enl66/F9tCbuOVmzcHlkG5r+8gyIySBip jV/WN+bhY9uEJ3JXhThhkmweQRIwC+xfJ6FLQLpA1TB/mwi+iw45Tv1FYH/E hcbiLULIT6xu1qqjMWqff5ezkMDn+Zevd18Toj7UyGXGSwbZXot9K1spWD3R 5E7bTYF8gd/7ikjQe6bAn2TweFmpXuBpCtElx8XB02noInM4/BoFg4y+9hL2 Pvld778WRTNIvbZtXoaaCBkN10d1ZzIoSboYpsr2ycPSU7K0g4TeaT//mj4+ Dui5Rniy+hxmms8F17G6l5dIlOuiMGJzoIyZxNZROUymuQqQ7rN7cLEtFxrZ 9TM2fKRgYi7rkWpPYbts//K//qZR9XHXmnW/KLht/jCnLIKGwqJOzaxTFLpV csPGfomwqanNICCeRki9hZb6EQYtq5oDZvQQeG+5UCwbIkC2+bjpXAMRWldP x6RnFNpdbcJC5CkEtv9WILNFWPODtzFogEHM3izF1EkivLsrOf2GKw2rM8VK Nz9TWNiv3abcRyLtW3z8X84Upii3XLd+ReOK91ut+u00Apq3dU65w6As6s+P SXMIxDUvnStnL8D4cmMP2VYhfA+vm+C0k0FxRgD36kkKe+UWxPz9jEYqIcx4 /U2IRPMvib9oHiT3EX2DVTRcAm+W/JhCoSfVofy/UwJEnL1q0VZF4mvhvvLY VwSuH9yvtayPAHfBi8j0KBLHLHbemmHAQ3pq3U1/LwYu0U8sd9mT0JkeNv2X pQgVXiWlvM00tiwIcT3J9r1XuyEvuZzARW2HyWbpQoxXRydN3E+jI6FJMzGG jz2Pli+a40IjqbLfXmorg2+ZHb6nz4uw96/8QQsZPrTm58koFpLQHTdT3G9P wzd83opRdwbhH1Zvsg0SQjP/j3kBq9+gScWfiv6loZ83Z1iX1WPh+jaTx1+E 2P/r3PjZSTQ0pHzweSIN8ob60ZATYlg33l+40ZxCfGuuY54lAanbstMf6lFo fOp6XstKiB5idtZBmoHBmtYCubcCjCb9mSb9jAE/mC7MaWR1RGsHRinyoBMc ZL7Rm8Sb/hiXDlaP2aV+I5pDNDq/735x9gQP6ypPGWyyUELCBbXyq+0kRF0a 2kXPSKTM3as0aMOHaq0LZ+AkBw/vVGzakkkBFnsVMiYxCHM12qvgzurGTNM0 sJjGJ0VNHzNJBkLneeudjtNYq+tu48z6/HtK+nxxLQ9ql1/aLa5k4NkocanD iYvigUT5x+z8uK8qju98wvZ5G0fvXj4JDveszLeZFEKKjt08Pl+E6P0xv+vs aCxYvPi5pAKN2dGjPk8GKHhofr3Ye5SHyIuvLtLfOTDUOeGUeZ+DKInR1cWq BJjYzws9JDg4z00sD2PrdGzxvN1tKEbriJxi7HohmqSr81cc5qEozdunZh4f Uq/qdLdKs/v3uazTkSDxOLpiOKGJwJEhFde75nzk7evo9/IWYYFpjXv5CIX0 ClyLVWFg/yHG3aOaj8P2fa+vbGfz4btZ/iO2bmmLol15uTzYh079E1ZB4KbB qQh+GoVfEeEz+2eLsN13HRnWIITeiPLko+cF8B2+8SHxqgDvRi1UTGk2P8pD 6gdU+Iidt27wTCgHfdExWV6KInzL9ai+s5xGTul8s1A/Bl9uc2O7ckQoFMss CPkhwoo/4vjd0UIEf1/t65PA5mOQWfGBLiFWS212apSh4LvVKuSMiM3PhVlF ictoMLRmReVhBmO3rMfuczhQls7ICtVmfVpV6a+VPXz4JCySLFnO8kOD0T2J CAZnU5SvFRzmgi8H9/RYHgolfxgFj7DreHdeiwOBjw7hTM07AeyafDd1J/Eh kWCmOvuLEnSNTVpK/3Dg3CE3ySCCh71bT1p53aKQ/Pn8003hPFTJbOtrZn3H yKrARX1cBPkn6c8KFChcZFxknEQizEmS0vWVF0KlomjLLVMaD5In5gbw2PPo +JqOS7L5qLm1WjVAiKTZZc+MD5PoLjljV+7D8tZEV+rNKhJLkqQzf56kkegj mv/WgMZgifUJfzUG6q0r7mo8YbB/mPt73Rkxzmi3iizY+VAZ89xyO471/bfS BY6aBFIN/dQ/7RLA2K3G0L+XwJJD/xDLnWm4pp79us1EiBCFJUmF9gTLJz7m 9+ezHHXB6PhQO40wZ+e29xkU/i5dEfHkPwazSvo5ycGsT0au3uRWLcR2f+8u Az4foRWz7shU8DFlS/CmyREERJLNC4XdQrztutzQfYfA5fzEz59Zzgs82p90 Op/GrxOvfhjn0NAe7DILzBTB5btZmoshiZDKvuUDbUIEhh3IkI8RYtm39CkX /VjfqB1bfzRUACuHJR76YgFqOnWrNcNpyNU72DIhFKQvpKVms3y1PXZVxBeW g1T09Z1HjBgc6RF2xZuw873g4da4FgK58j8eytMkTFXSjVv4NHSKKv/29WXv pyf6WWaOGOrcn4utTBmEZNbaySYyGFEovFnWQWGWrOnJPDZHvQruLL0BCrae XRMbRkg89C1WWPCV1avs0bGvbO5aOna/DlojxEeB3gbF9XzYNB0V0Hkc7F7q 1vy6lUbtPspwDXueKGcNjVBWx1kDefeOd/PA0diROi9OgOEbu1c98yPA945Q DLLi4ryS/dPJR7mQXfmyvVGVwSlbvk7lPCGulOV3Vo0qYwqn7nX7Ox4G8+wX zzER4HfcWdfEByxHbjghDqxl87VlOHD4tBAyG40G7SIEOKhb/7EpXgnXogLS I8tIzB9w7FFmOdlEPDyyyIxGQeKMt21iGodvXfgWsIvVR1ZJSehLDs75V4Y9 4LKcnKH+3X0dA+cba9LH3rJ58M75+YoSIWwMLBws9GlMV7w8Vm1O4lP/2C+L AQGu+NUbbmF5/vH9jw4mCgS0785NdH/Px7vxcwMv2dyofZ2zvHcqheo4z7TN xwiEcc1emaTycaj7+/XbWjzo71x982QUHyOaUm4LX/Hh1CtW3jzKx2aRnNLe 76w/XW/bTi3hIJnoWfmQzRmbGukRfZZ7SvK3x85/K4RwTlCw2xk+Bpblpsz8 Q2HabTRYazLQujKlJm0LA9WVPjfqj/Ohw4k+sDOCwvXT7cTNXcqYdjVY7usZ GhXtoZFyi0nMW6KPp7NoWBbdk12awGCt2u8aM/a90SgqPJ/0lgcPr0kXl4lI xMZKlVQZEuh8HBMpJcfm6qzeiTIraRAxa65d2UOhPkUv7xDLcd92zChZZczB vJ8fti4m2P3T/J1Fu1neXeHTlOotxJTgxKyHbjwcpmNS9nQKYWp0xCRXS4iD NXaGL9RIiDdKVpe3CFHs79OVvYKDVWFm85jZBPRlcu8PFpP4YhhZEKMuQEvZ qkAVVyH0rQ6m2dmyfh9P9VbJUVhgP3Lorh6N1qf9XpuXKqOwvvONUhYD74qc 6bqtBKZZDbq/qxShwcO+fdd5Br4vpW61BLDz5/io5DW7T8s5yYgANg8ZP1x6 PswgQC4rRe8CgyjrYecJXWKsbpBYsfEajX8NvkyYO0DD8fBISGKoGPLKnyzy ZFUgXfHQ4cIpZUj/Htd6NSjAWMbJlllvaGycWmZpGEvjZcg7xUpZCocC/jXJ nMpH0o7uaPONBNQX6r4z/M3y6qTo1AJGjBHpoUefT9GIcFnuPyAQoKlMKbM4 jEb0hsGOS2x9pT9O3Da3I5GXekfZ7YgI/7mS6jETGFSYX5Xq3cDy1C+pmBK+ CE4HzVZY+avC9NHFgLfqDHL81a+tZTlgYhrHtrJXEUvWN1+1uU2APFy4Jl+W j2RvbbXHs0i0LiQn2RSxvvKk99zoIhU0f+J7OyeoQK+t7OCH01yYemWH2/hz kC05FL5rkIZFk3kIl+VE20dz0o3YeRCs1SqtzeLi+Gd3hZz5AhR+qCpT8OIi 51PRPq46gT0xlfx4B5avl3w2XrJKgJvuKv+GfBQhsHbHmx6OCFK5fZUrH5Ao S3T0NqcEsDhULf7Bzl9PabZj7xkRNp+PVB2nRYic0dAdxvb19a5C8WUjPlLa 6u4+Gxfgln9HuVM5B5TJTO8rQ0LUBZQbZ7QIIF5479gdLQbVG1Qyku5RMN5h rXkxgMbVsg6dsMvse2Cq5V3dSCG6wgm/we0Edi9LLZBNEeFn0G7p9/8wCF65 f/LyHC6m0pYhH5JpvCtX/LXbg0Z7UKHttk8UnOp6qlTS+ajR/nzlew/rZ37d ucZLKfSZD+yhDnIRejREZ3OZGNLpSpemszqUldNZENPGR2KsG+zzSOjrOQ+p HmbrPPbT6bkuy70rsjzy9Cms39lq/+6BCKemF7b+fsEH93CGla2cGLmzizw/ PGbgViEdEuckgvqb59s+bSHQML+pLZxDw/iA9Y4H7LvXsnZqYKYtiTGj5VYV uQTE6rNvtX6gcPb9U6fTcQyGltreP8fmy2Yva+WoayIM1Ht9GVkpROoVy+ut +yh8mV8TWWBEoLrAx+hKjCr2WVkNzx2iEL66d+TFNB72h1ffvFtB4ozibYc1 L2nMLfDov7yIxkxlv3z7AySCV1W2L53NcvDx/IwObzE+TZNerc2+D/8HtRuB HA== "]]}}, { {RGBColor[0, 0, 1], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0, 1, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[1, 0.5, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0.6, 0.4, 0.2], PointSize[0.008], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, { {RGBColor[0, 0, 1], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0, 1, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[1, 0.5, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0.6, 0.4, 0.2], PointSize[0.008], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, \ {}}}, {{}, { {RGBColor[1, 0, 0], PointSize[0.025], AbsoluteThickness[1.6], PointBox[{{7.0221492405139685`, 3.4034723855773072`}, { 7.032386716712978, 6.02887123036204}}]}, { {RGBColor[1, 0, 0], PointSize[0.025], AbsoluteThickness[1.6]}, {}}, { {RGBColor[1, 0, 0], PointSize[0.025], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, {RGBColor[1, 0, 0], Thickness[Tiny], LineBox[{{7.0221492405139685`, 3.4034723855773072`}, {7.032386716712978, 6.02887123036204}}]}}, AspectRatio->Automatic, Axes->True, AxesOrigin->{0, 0}, AxesStyle->{ Thickness[0.005], Thickness[0.005]}, GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20}}, ImageSize->250, PlotRange->{{0, 10}, {0, 10}}]], "Print", CellChangeTimes->{ 3.8907330573042307`*^9, {3.8907331128234053`*^9, 3.890733132825886*^9}, 3.8907332246350574`*^9, 3.890733255851194*^9, 3.8907332917736597`*^9, { 3.890734122716251*^9, 3.890734130815688*^9}, 3.8907350624635315`*^9, 3.890735095484761*^9, 3.890735136950403*^9, 3.8907362132748594`*^9, 3.8907362884062567`*^9, {3.890736938614626*^9, 3.890736952305652*^9}, 3.890874285115435*^9}, CellLabel-> "During evaluation of \ In[117]:=",ExpressionUUID->"e270596d-b7ea-47f2-87cd-878c081a70e2"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.8198830217309012`", ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"{", RowBox[{"4.359429871774391`", ",", "6.958325035224426`"}], "}"}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"{", RowBox[{"6.178741787404398`", ",", "6.912735930922311`"}], "}"}]}]}], "}"}]}], "}"}]], "Print", CellChangeTimes->{ 3.8907330573042307`*^9, {3.8907331128234053`*^9, 3.890733132825886*^9}, 3.8907332246350574`*^9, 3.890733255851194*^9, 3.8907332917736597`*^9, { 3.890734122716251*^9, 3.890734130815688*^9}, 3.8907350624635315`*^9, 3.890735095484761*^9, 3.890735136950403*^9, 3.8907362132748594`*^9, 3.8907362884062567`*^9, {3.890736938614626*^9, 3.890736952305652*^9}, 3.8908742851466784`*^9}, CellLabel-> "During evaluation of \ In[117]:=",ExpressionUUID->"7c62f0a5-0731-42a4-be6d-74dfb6d3a91f"], Cell[BoxData[ GraphicsBox[{ {RGBColor[1, 0.5, 0], Opacity[0.075], EdgeForm[{RGBColor[1, 0.5, 0], Thickness[0.004]}], InterpretationBox[ GeometricTransformationBox[ DiskBox[{0, 0}], {{{1.284657961103049, 0.}, {1.4731847022956073`, 0.9659094461642305}}, {3.075023800465487, 5.504164078130148}}], Ellipsoid[{3.075023800465487, 5.504164078130148}, {{1.6503460770254434`, 1.892538455979277}, {1.892538455979277, 3.1032542252670874`}}]]}, {RGBColor[0.6, 0.4, 0.2], Opacity[0.075], EdgeForm[{RGBColor[ 0.6, 0.4, 0.2], Thickness[0.004]}], InterpretationBox[ GeometricTransformationBox[ DiskBox[{0, 0}], {{{1.563750175375212, 0.}, {0.6996489634038591, 1.3856056351246184`}}, {7.742113769531119, 7.581104492616173}}], Ellipsoid[{7.742113769531119, 7.581104492616173}, {{2.4453146109860064`, 1.09407618922387}, {1.09407618922387, 2.409411648081192}}]]}, {{}, {{ {RGBColor[0, 0, 1], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVV3kgFFoXn33H2IUsUbwQj4Sie0roSRISvVD2UkhZsiVlSUpCJKQikjVr ytaKJD1CpRIJ2YaxjGH45vvr/nfPvee3nN9RdPG1dsdhMBgVLAbz/9PtbDfb xAAH8UoKcj0iFLisdfJN/doKGt745pV1Bw/t3LJ/PpHEQ553axnjIXjQsvQb viO9hDpqClOvNLOQTpPkjTIjPPiU6dxbmuagvTsOTBVKYQD7ckdyKB4HTSuc L6dSCxrlSy7cd/Fko0fOzmepP3AQxOhbXnOmgGdXYrxNAwZ6Z5cM33sRYUw1 zbBvAAsvHqUGPi9dRe01zpTpf/EQonUl/ucWHGQyHyq/y+egbfccnCU9uEha Tb8/oGYVXZdcSU9qI0PgYbKnfAwWtK9J3PCTJEIF4+v+zFwscGne7F16ZKCS A3LOxxPANT1sIvwCAW7bn77lKIiDXUa3ZCbDcFDdMXrCw5SNuvYVSFg5cVAT N1T5rFJD44+Ec6Sd7QvInOM8wHnCRnIh5TTKFA6MFNfnHEzBAakgST3pOgZS UzKnIsUwYCah2oG5R4D0ehImt2YQmTt0drNPrqC/eDv1Hsjg4HS2pIRdNB6k uj9ixvfjYMPd8K4iGSpsyL5dOqUxjo4+0sm0ejCK+rRHTG2FcXD9zbS9TjkZ Xqt8pLxXxsEOU52GCgkiFBgcU67UW0DN/ldafIxXEPNZRf5qxjRa2GRmP5/M RT7rglX16EQwte+0SHpGgqKnEq/39C2hBvFU+51Fa+i5/Iur7kMraChiuNlL Ggsnmu9cfF+Hhcn3cgGjfhj4Qw7a/Z2JA8knK7MsSxw0/D2yMlFKghGqTe8G +TWkpUde3YsjQIWUmFByFwlqqzBmMlmTqLK8IgdJsVEPjkG7dwMLUFAgpZ6B hbflC0FZUXiIvmP1o5T//z1XeyJdB9ZQ7og17mYIFxXH2f4cfEyAY0mh8umS FOD8qSVdvzmB1IvNtrhqraC4XRJB/wny0AtJIV1tezzsItczk6kEqKwKkF2J n0PDw6rxIXw8hfdkfSG0UaH8o4693PAccnxGn67OwIDSvZCEyOcEyKHLyUSZ E2A1IyN3LmoeeV0jR51bGkKh27PS/fIXkVX9NEuCz6+YZYPo8L95KHbbCF3f CwcoXdG+bT0O9imOBToq8/ulsle0WZGDEhYzD/XumkL9uS0C4pEYsC/fJDZd TQUrl2UT9sU3iGIe/rOA9QVdFdbKUauaR2nHk87XHcHA2HnxjLJmPLjIVGCT h1fRH4Wvyc5vx1HRw4bMV1cwYM2iT26PxIOnTNPha/vJYBRrFxJdR4TRpt5D YQ1LqLvqHcVP6yfSXFuf6P4XARQ+nec9FuttjFBovZKrNY6KC47ObDHAwIBV idnDQTaynUsMdd43j757+cylKC2j3zOpJcZGa2hbq0JyQsEyGnE0nLBLxUFh 6uj2BxgKFNy8I1OUNoeKPWdObvEigWFns4Fs+Ar64NJw8lw8D3F8U0s/SPNQ w8TGjnJdDhIwn1GXsMHDSwO32yQFHBBiv7mO7MFAyS/R701DHHQwbDZt5igO cijeJ2OPY+HMpa59pWQWstDFSdrbYMBCmZnQu8BGNlVOoh6CWIjuoQY4uc6j 7l8NViUbp1BJv7618dNV5Lv88fEY/96y8Zxdgi9W0RmDnsmmQBJ4/xDn6tN4 yHRE1UhWdA0FL6Mqyisi+N8WDOukLiN7vLNDYAQG4qy7ZZNbCdDf8qC6KpiL 0IDVX1yveRQshwtU5vPyhXgj11aYCGWWoXOlU4ONmTYvM55P/UFXkqJ9pE3I EKd3+9pbIS5KU1YnEd6vouc/8b9Hty4hhVtV2c+hGRXTtj20/raImhMkD107 sYwSrKQKtvHxVbfn3uDeXUS2a6eiebJr6Lxvnd07Qxy05rWkD+5bRbs/KB5/ ND+O3Hf3j36MwkBhY0/nsYsDyM9dfwErx0J2BSmYd1HLqMLsraSS2iw6+3PQ Pe4iX1dXr8dzivHw5niinmDnDNqDXaxszcLCFY8kvY6tBKg+GRR7eyMWMvsK /svH8JByuKDw5B88GGEdZ3n35tD3f9W3lzlwUb6J1f3QSb7PW7Fehx0hw065 rSlK3Rho8Fgf7DaHB9sjdo9+ZUygn7cIvfdO4MFqybCvMLILxfx4QrXDLiKD fJNccUcc+KvU/v05jAaFhiwblRJ2o4/Q7UoV5TEUoJ1W+4/5LNoWQ2BmH15F aT8ObvttRIRvThuc/vmGh8546Zpnc18aLyBXXXHTFTQ4sWrbU7yGbH/19XNr +PPhcDotdsMiaos0/vmkeRmp3jFVcefrzQmb0ts8jQVVrXEBTPkK4hwYPt+f S4C2obBpTYsVFOLY1qOxxEHcjSn5WSJrqOnA0V9t0gRw9/2sMGdLhoUHZuF6 RB5qmso/GyVY19imFvpy4vo4+kF/nh5eSgD2gFyuzx4CPL285rR1YRU5nF3a XHZtAbWqvHlwKYQA0Yp5JUZJa3z9+kz4dvxEzxYjLCqq59BazhBOLnoepSow /su1IsCBkm9O/xjPIdazg2vLA3PIq8DotLZ8F7px68AhUzEW2jO0O0XahYvU Q1UXB/vWkM/d3WZ1DXPo768Nhm6fMKButjXKErHRn33b9Hlqq4gTbKn57C0J sGwXy9ApLjrmcqx9LB0DxbuEyB924KGszdbxzfxHlKw3eeW9FA6+Jz0ypXmz 0JxkaWbeNy5aL54saJrFQqspezO4uitItcF7yJzDQ6GazI7VECIkn3p6/8nj BbRJ9o3SSBgJ9gu/DBY8jYPZrYoRdedJoBAsfNv4OgfVjp6PCl9HhDaHCNWC SwSQWUmkBx5cRZ1Koc9Kt48ji5mTXP2RVdQf+2KS+J2DHm8tzCPo4OHGnRL3 XFMM3HwV1pOaiIORsePFR9Pm0Sv20x3rKEsoJy3iZXJZC7qzbbZvTGIWXYpd UDu4DQu17oHtjvy6bjt81HXCMJAQu6nEU4GFdBtXPG2HcRCaZXyq8Rifv1bH cXG2WFBr9br5a5yHDrSyvAKCcTDh4bZAxVKBua7JMOjHZzS4Q+P9DQMusrPZ 6P+znM/3O2qi1leXkd+yh/+ofzPaEtuif2J5GH3r245bG11Fdv0gYP0UCxva vUKbZqfRyJbLRTQcBkTKZsvzu1ZQoM8Aq01zBcmfkB7VVGUht6smhSWneYhR H5tUEfsLmRdabgnZhIVN9uunHXADyEnIE5/6mYOimncVPvn8G22ddPI8bcXH lzi5XBLLn/O6CUW0h3hotG5viomZQRoVOqyvJzBAlpsKbi5fQ4x1gTdbUpeR l3i7sv0hPFQLnHWR91tAUl0aqUxzPp5RQrrr7SiAdbd87p2zikwZN3bOyFFA sRI7dGSQAuuop4aCNGiw5ML9bfKHAsreBgEpO/EQa6RRLuxNBvb79S/C+fnm WUWwgySdAlarj00HApZQF9X8zMFzJHC9dzjvN99nX9uUZV/RpML3/uLweD4P 4nnuyNGFCpJf06tfRdHA52OujK4PBboaLyb1ZtJh65ehfu46MpzzV/HC8PnK apVY+vcTGTIGHle8bsLDjk7DXW+lSTChsdRQp0sAfSxcc8yjwNBVstshMgP2 Bw1uWY0igoX95k39dWTQ9cEQGNvJECbspEzRpwI76ov/sB8d1jNuxTY2MiAs MDFUCkeHqsaz9evUaLDG5sEZfu71NxZesH2Kg7f9MuzcQ1Q4MKZ20odAg1O7 8X1dlSSw/4ZS4lKp4PvOVYLTQIZ290WTlctkmBq/Iix+ggQDC1QidSMFMFKi HR/yqeAniktcKqfB8c45E54fGZI8D7FIihg4X3kzLUiQAhrZZYYLFkSIfT6i 0TpHhqAPVO6un2T4biMi7z5OAn0HmWc3KwmwpuyQvlZBAW//MziTLDIUNVA6 2UNk2Lz7S/3ox1U0oHP9Wt4qCeQIgU+iU8kg+CPGNFqeBNbB/yjpHSVCoSrr Y+/fJGAm3VAWu0SFpxtIDg1tNAgkDURY72XATOkoG1dDAfHypPJpbzpcSfiq VhFNhuFTXt0d0RQIY6usXJiigp1we/WpeTLgJd3CO83IUD+QKJX5lAS9JeJz Jd+oYLJf+owtP5/8Tu8ovy9FhYKf2cNFjTiYdIvZZLqLDI6MvtPdyXiYo/aK ttZTwDIXY6Faz8+FlxsJli0k8F+v+MDLiQJoH9v4X2c6tG/WNNMpYsDvo3SR pYNUyD9gfVDiAgWeZ+1oc8+mgFzobFVmGBEEE0seZG6hgnJtT14chworgS0d 5mJkiPSwaAkmkqHK1/IzpY8EhJq8C1kX+LnbQ95aJJiPh+oX0VPv+X1RdZpI zaDAXgYl5mk0EQZIIjS8NhXo7kYXOt4TAdOUxZqJIcEpj03pyktEuFljIIzl 86VM0pnzQBIPHirMFw9mSGBhm6Zl7kWDV+UldIotBSJ0/tRNua2icp7U58C7 RGC9KaifUaCDS++msLl4PFjbOUlkJ9NBWkLqxacsGth7CjS3igrCQFXnIYeL DPBrDUzeJ42H9APe6inFAtA2ePdQGQiA0vy/va7TdGB3l3W5MEjwX8jlG8Zx dOBJCDUN8/eR+ueW5Uv36RDBomgZ2BBhb4K4p/czAVDTas10TaXB3u5U59Qz wrDo+bpf4qMgtE30yy6+EwTlHy3a/UcYkEzcO81UoUPgo7Xni3xf2FmSsceW Rgc1gfEbAWfIoNi69EAWBOHt+5ZblTVU6HPTf8TBCEJxhA01bacAaAuTh3t/ UAFlabtyZEmQI+EwjuxpkPCGzKieXUX3Bx6OtywxwNOg6mWMFQmGvwVyDssw IPDUmNfFdj7u7Me5ATwa6CdVGe84ToTLDrp7bb4wwEpfNNFQmp8nSt+Xu/L1 +2OR/juGr5PWljUHm2UqkH4vHbnEz5Pm901bFlkCME4ePaIeQIaj6mulqkcZ 4LHvj2VlDBleRJy4+VJTGGgyx55kEZjgT3J7Vl/MBPehhRoXmiAURpacUTJh wO2nyUWGRRS4bVRospBDg50vrxsFd5Dg2isPx+wZOkyzDm98cY4MpvOjcoWP 6fB35D/dsiYEuKl67D+evBCYD6fkS4cLwTFySX3DXSpUzxdVtM7z99Anpi4u f2ggzeS2dPL18XRyh6zvBBW+jCc0T83iwNAwLd9UTwAudQyViAfTQTbm/i1K nAg0+Op0/1ITBjG9g537jAXAWeysrW8LDRbGvjCkmqmQ2sdI32RGhMyHX4MW +XuPcqXb/mYTIgxaBDXm/8MAcqVsU+M1AuQFUzsaVJnwqv2sZHkFDVyupm/+ c1IAztWHORaG0oCnLVmVG0mDldfrV46+wMHo65EPYt+FQYNW2ye2VRhk9nzV qEUMcPQe5I65MUFRgN2R3U2E3DP7rOPjBeBYeET7umYBuHli327tOiHQjFJw aJdhgslJARHeKSZYaI25qhkIwp26S0J3yUzQjqxTtBBnAiYyu2Z8Nwm+X749 F4dlwrtmSaHUVgocCR2gr+gwofqliAj+AF+H4Yflfe+JAK60I+9jFAPcRTLu T6gIwl/nxAZ2HiHyeXN9b8gTJkgaqmXJKZGh4NHLoQoTMRCzxB5Zz6+TYVwQ LVAnCHcP3/cYEyMCSctd3O+uMIRpTE2e3kWH3PSavDKqGNjZl16tyBGE39+u Erb9KwzHDnDlPbVpYJV5I+4eTQSCok8PmKQz4JeK7qUjTqKAzpcRv9gz4fPe T9nOesKw89O2/Y69FFBIrO0zkhaCK7MvDsvxfZpdFWMycUIYptpslL52MUBB PezM6FYGPKJeY/UXYeD6w7rfcUxx+DKktUcuQARkS82tKnOpwAj2NY1exwQf StHnhGohsLsuCpJ/iUCJ1qW3ad/EIPUvU1dzMVF4U/B4SWijKKRsHLCif6OD G2N6bJ2pJEho4mkVNiLQkyUecvQTE9YX5vV+IPDf4/+f26+nEmBQ6+K5yGGC yFs7gc1dovCptu5oON8HrKVuj2p+lIK7RyIubOwShnfJxy6OciRBt4O5XHtZ FChmxpUq42LQ81bVU0+VAUG1XW8U/SThnlF2riaGCVkhPXs0KBLQP7Q5INxW AP4HT0crlQ== "]]}, {RGBColor[0, 1, 0], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVl3c81f/7xo8zOUaOcY4zjMInIiWrSO8rotAwKhnJatjl07SyMtohKbOM CA1lZlWUFkUqlUqSj6J8I9l+5/fX69/7vh/X67qe13zPIPudZBKJpC1CIv3/ +y3p2WvFVwzUVFkbc5r/EIxkE4fIC0wc1HupF8mZIpb9TXiiV8DA227fEZWG /xEsXfJ22UpRjKa9j1+xYpTYOZr5T04CE1LcNWsKQ/8QZYt/JpjVyGJB3kyQ 2hMqWO8ODRbSZKBuLdZrfZ0OZmf/YVIpCzvYyWfDdagQ/URlNaxlY7Ha76pG EVFstjBoI6rkIWKpK9uSQwPDbaeW1JQM5M1Uy/PzKci482DCv1iA953e/xyu oCPQUFom7oMc4h69j/Z2EEFBaxz/0UUW7mu0pgU+nCHm9ucm0HM42Chf4npu wxRhumXJlbmX86Cj/K/7scYZIu9LULVrAxemis8kXAMYMFu2oOi7qzJkxlo2 kIzoiEr3divM48KtmMhdHkaFnlut5qGtfHgWNjaeDhRFme+RtkcMHg7v/FWz YpICS60FN4/bcqAhKhK3a4wGS8t0td00WfSRBDVXd5Eg/sezK3+BAGGrg3c/ 8ZgjMqLTlS2ey+OK6hXJy4p0eDw/n9gULAPpW1akvrYJQrFYL69LnIfeoCrC i0IHKb/yyfLFC3BZsm2Hej4DRQp/hw3fy4Fx9lJOWy0JsyuikgwVeWgcfB79 dr8Ivoba8fpU2dDXX1kzE0HD+SfRHvEVHLze5SF+pYGMtkd8R5VLbMS/6K07 s4yKj4vvbFWt4EPf9N2jI/2ThPRrjX83ScsjPW6hydnJSYIX8n153A8uLDtT eac5FLBEtrRJLeaA/a2j1WlonIifM677pCeLro8SLrPCew09+pW3Y5yHT/UB 5lef0FFm9iI8VFMBmdmGW1QNmfgsMaJhFMUFtbfOk/adjLPHcw8+0pKDhzGV 8jGLhrjiIuplZUmM869wirLGiWcFlVVxKRx4Jui/vHOYjvXJKnzeUT40WgSL hsoo8D5kSWJ1CrCKPPK+bZMYBrK/W1Gz+Dj0Q+nvpIcYbOfL/ld/iA32Jo/J N0MTRAqHsFJW5WF4SLt0sFwCf1cvMH16TgAJ15Rc8RAakn7Wh6Vc5EKs5nzl 1a0MdBSV0yrqFRB56qGiMVcUqnzHstQeeZwttxmlkueI7W+ip15t4EJz3bfd zQw6ls8beh1apggNl4lLxkcZcBw3DV/XzsGt5qyKgBEKfk+bUI0VOTBm/1fm HUZH4/O2LZqtCnD/y3I5VkxGl2ti7nX1+fj30OrHObni+P5nScYab2WQN2RO 5Roz8dP0ZdIzKzlsNebFzdtARduG5qKgWDamI5zcV2wjo/2bWa/PGB+PBZu3 dFeKg3JEy1XsmTxa1jNvXDpPBz/XrYtKyOGner5ptAYFAezH6X5efNAywvfT nkugW8tt8nshC9od5rfPrCJh8fp5Kh+92IhQYjxvkZgh/NbFJY9ny0D17KCN VxQVBzKbTxqVCPdfdTFkyWYKXivFjMjU8PH3x4F3sm1kXFyg7KEVwUNx18Ar E5ooJEVNfBzzudAwSapdfoqOvYvz1qxLYsMcRkkWX8cIyqjEGVMLDnarVP+e cxRF3PkY8SwnAQLvPhmzCxfFiVcT/10P5mB9yoroT3MUBNMaI5YxFZGmffqg wzoxhMhHsZtISpifGtAe8x8TL59sC4pr4GDKydog0p2BAbdJiztkLrwVqtfS 51HxR4IRoOzEQ8KQctrmLBGkBPLCKvpkkRO7Y+DkwkkiYCK8h7paDu4ljeJn 3pFRs7YtdVqbA6uMgGVPvRiI0v0Yc4ohjx8m2SpdwTNEyC11C217BZR53h5n HSbB6OF8p8p1XDxUHNh4fEgSCoRdo7eMIvbkqTjl2jDxlfllk/MxLs4tKrYw kBTB+pA3dJ8gOYSJiDlnGNLQodOfmfSAg/jDO19r+tFwNe1e0PZaAVZk/221 WULH9YXeiT4VKuDdKP/l2SSKJPotkYh/FcFb91ir7zgT98zWaw3U8+CRelFA PkWBh9nXAnWCB4qh8wbVjxSklIxsTZBSRlqSW8L7eqFev96cJmK52FO6XPxD 1CyhNR5rpTvGwv++DCckPSXDedGekvAgDjKl2YFVc2R43emcfyOUj+Ofl+za 0kSB+9AHwyATHtbbZPkt/UYFb/1GhplwX6cW9YdZ4gz8GIq3W17Nhs61h81b M6cJX7JcfzVXBte0mkjZO2eI0YqPToSOAhadafV/oimGYCU5Vv0YB7E3ujmn p6kotf+vx99NgJmclOt6EmIYVnscIFfNQd9rC02l70x8eyF9+ni/0O9u/PPl zT0aJmx+qx0S6rkqbnWSmOUs4arr90HjMx8pF3wTrg+S0Hil+mBDhDzE530M j71GAWnpr3BBjizWUYbiwu1JaCHF5nUacfFyqUmDLV8EIR3DBeEGclj+5UVc 5aVxIiuEPNBjKYNNSqknghX/EkrbX8R32Apwbm3Re/IDMh7+vkIRdVTAyT6i Ius5A5WFOp9trrJRVK7ldS2MgqwVjHcuRYqIMXVvpjymw6laxb/ngSyW8Rp/ lL6YIXg7PUQZFnKwcbcgm4fRcPTmez+9Ojn8CBrc6+g1QwjaEvs/JcnA84b1 j9+8EYIX8GD7mDobO8U8BnyE8z9jjqgez1VB8srly01mSQipOZ/h7qmM71Nd Bb476LB/45z/+I8yOGeCRfoymRi709gWJa6AbX1uby00Z4hhVU7Wwhgl7I1o LD6YSMfLks8GQ7VsDOvL6f+vcJrYqVWUJspSAb3WqfKq0K/aA0m2xfJsDJy4 O365Z4bI+vDt1BRNGTUHydXETUlofnlT2trEw1P10cOHT1HheYDTYL9HHtds RbomO4V+5G2f8jyCg+RFP5v0zzFRnJssZRfOxvfLq84vjRGBWd7C7BZ9oR9q dYjUiUrgPFX2dViPAi6d3q9a+pOOgh8jpwzb5KF3TrBXdbMwf9LMPVpIChDU sWyallCwNjt1Va4GD54lu4pX75BA6K/Pg1ySAK9yGoPeBovjwqfbYxuvyKCl Xi/w5Lsx4kv/0h952gLMPrabTjIQQYDz6ujZbgEW+m1/8ekNCcnUnC171nKh v7vc/LIFCYMLHUelFbn48CK+e5EVCVI3nni8nJuPz6P92uU24nDumrK5I84H aUf9t4MrJaC/Z1d+lZQszHads/FcPE08e7TgajpJESuDjnkM5cwSEXOIr5aQ x3APo5T5cY6oKrne6r9zHu5HDW8oODlC9NpFjl8PlUedc3p060YqWv535oXk dRmw357WrrOdIOZuVDGMZWQwrPPC7B91MiI+vnvcv46F3vKGwuiyOcKEnK47 9UIO+vY64T6r/hIzuabSVsv48Em/eHD6iAjertheNu6ogrD3occiCyWw9sYn aY6QX3YHtp9qaSAhQrzRdglXEbtXKWWVmlARXJtmnrOJDRXDRku7VVNE+7jO krXCfWXcfoWIFVKwMHVNUzdNARx1K4PyWySUhJn0WnuykOKYX+vXS8Y2pZNn ex8IeW3gGbkgbZoIGvrlUcfhI1Ulj1fRTUPtsbuX1Ny4MIpMvXeim46J6ss/ BhnSSPYxT2PeEcGyjU47rWZkQS0PStGKmCKk1j6v5Zaz8ezo6beRUXOEloNF fGmQBJS4hsF+jjOENUnzC094r91xHiHzt5EguqBdvLJfBvyLrCHtwini8ryq FYvOsiHfWF16bh0VsbfedkXfFOaRk4PvoWAG6K4RS47GsJAg3SfprzVH5Bkc CCuUEGBXbw7Lq2KOcLkXLzlwgo2LMscmzukPE/unrzDvNvCwyijIW/ucKEzL unwc+HJoZXhv3Px6ggjpNFmUKeTXeM1LKeaiNCEXHju55y8f149foXheI+GM Vrfr3UEW2IeslKqnpoiFGdeIiUIBqLN8+aE0CTx8wnacHuRgw6xtzbJREqYK x3NFSXLYMtjwbnjRH2JMVn1uz0pF1D7TEO18S4eo5irleR5cdNbGLkk3IMOR EjLf15mDwshExq8gEihfd9VJXZUDeXGpa+LbaeKUqLVKyjE++p7yJ9lBDAy3 d2/M9xfO4x4Q+CBmnHhUei62OZCP1aYldY3WEpDobwoorBfqy6pSdEPJDOHv U6C7MkUeDV/tN597MUq8jx71XMBQhI35nauTUgy4eHDvBwoUcfvLoHr9cyb+ htcO8BMV8HGFlPplKzLs0q36OqflsfFQ9KceZyqeySX8c6ZQAST/t1tCRShQ uRCZeMuGg1ZZU3PXYiq8mFPkN7vZsE/zqy87RIdkSbxHzUUFiK+19zhGmyaG 638EqGyWweRPv7p7NnSghqrofJeLkuySQ9bJ40R/bFfOvKMsRByua7ddOUe8 Z/XmG3zh4GbHTg+16RliZOmX7iN3FWCwOi2i9DMNLn8sV+5ez4U5aaDz8zYK EsJn9jRdVULGWPrk87VMVFeXnJEuksXKzMZGNWsacvf5GA/tU4Dn6YF3fvsn CMeiBdUdakJeo1TNnEwg46XYpZ7suzwY27jOKjtNErRbgTdPanGQLm6n084V h1lau7uDFhvIjlc/HzxHGIgzR85R2SAlZIeOG0wRZ11Kpl+Zc7Dpxn2thVYU uIxVSkt5ySLZPZKV8lYEJmpnHny4JYc77GuVhpNUGLipWu/QnQezARmatyIZ FMXQjjcTHATdkYrdL0WHV6KC2v3Dwv7jt/zEHqEPccqVTH9kKAhzZSy1toKM BLuSgJoBOWjv4zEUlpNw/K3X/Wc72VhdIhFBeSWCby2GYcus5bAnKj/TT3gv X+/q4ngyG7sznlYuzp0g0q3M719mqGD3kXqfKCFfeU7nHF6gJY/AG0zGpuOz RPqRI79DLXmgPrHOXaPGgI8tnm5MEvYHs/KoCELob1tsG8JSuWjX7zJqXjVD 5EZm6zAjuYhworRGB00SpLPl3LvdHGhX+U89LBL+F5d7nxu1ufA/1a2j3cxE nr1NhWW8ANzazqOarnTYOke4WsgLUFGiezRI2GeY+a89PFXk0UtdFrBZTwTz BlNujjRx0Zr3omr191nCyDCM8vu7DOj9H/r9ZWeJFj17x6cUWZyIjUl26Jsi Xlb2t9z4Ion7E6MJ7vRp4vHH0WJVIz56PPRXuo2SUdjoGf11WAFjbTGVVY5M 2G7rVeW+YyHaxi9WL4KEMbfGfzc+EqDWkkMJ8BNH3gy7I82ah/d5W8SmlUTg fdvK1sBbgN7i5tKPQv2/vv9on/9tDnYEbw1ijlGQ+8u+zpnHxr38PywfTTKM crPFHMLl4JvmK/Czp6Knfey071YllGzSU32iLYoVdt9/3ioQwH89fW0ni4GR rk7LgDFhfkc1fDA/RILv7P6ya/dZME6K3LqP+p1wPXAp/MJPWThwWA9Mhfy7 3vTirQvNKti2ZNdQwUIxtAacfvxO2Mc8kw/Uf05lQHeioebUnAJkVJgeB46J Il7js00mWR4zL5kFHAcK0iLL216dVsKitxnyHdFiSHh96rTNCgHKL0Raaccx YF78Qez5CS42NxdfolWKoKWX8fLuJBc3WkwS5x8cIbSvcIiQ84rYLu8qETMr Aek7mzPc9XloV7vm6bpGBFqvddPnC/MktcT7Sl8FFV98XX7qVrPwaNT/79cS CuauCvJkRuURHHrpnoswf9QaS5c6SHIhNVPGDtz7m2jWDt7LHlTCj10a3160 i8J69FPbg0I+dKpy9kf20hD9J+Pp+n9YCNy3RadPyAdmiTGJHU0yqDOw2HpA lQKHlevlskM46Kq8nWlcM0pc/RD8uFdB+H+SlbxL9s4SOyuVzYsKeEhj+Q3k d4uh7Zsd1esVB+UZs923VlGgr1X208JZFrusdhjRy6eJS49dFQo7uGiiR9zp GBVBRzt7YU4DF//a+bvoGjMgrmF6uzBWATVd6wK7dOahuMfYyySFi197fett hDzIuq8bQqqSx46gh/IOomIwkf23qcCBh/Lx/H0XJBgY12x1vqopDd5BJYrP g3GiwmDX7uvH2Yh2X5kVqkDDPh/x7WRdFrI+9hxqTf1DPLVwPvlAhI+IaCMt t1BJbK7SPK8cI4N1wZYF+/eNEYZJAytdhH0sdmRv4m1hXy4/vib//k0OHjyi zPQTQv5oGv67MH4BajMtbo18k8T/AQIU+OA= "]]}, {RGBColor[1, 0.5, 0], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVV2k8FFwfHcbsZozZxxaiEGlDUc2hSIoWZSmFkoS0kC1FJREqKgrxJLJl KaJUSKXSppI2URGhbEVZ4p330/107/3dc8//LBpbdq3dJksgECQyBML/V41N h0tfuPyTqItrypZ50RD88dDugY2jkoPeTg56nVSc+bzqztTIXgl/t1K66k8y 0sdC+yIeDknuNB5uVR2iYOo7jZfdxTLY79Y+XXs9A2YG8z+VRExIymvWxL1P o8N1/IZJxrRxid7pv+4PptDRL3dqV6v/gORzXdIZ81gK/D932DY2E5HgWDS7 ekgelqnxHz+1EzG4fU1vnCwT9+fdcNFq7JP0OdD2jnLp2B0/ZxFhFgELJ0kz WSEMNC672GUTMiyhWDsaC5/R4MUTlGdMTEjoaf9sA88xQD1bLf/wwbCkzFr/ zdavDFiQR0fyVUYlgkeqjd3hDHxkvVWbsX9Y4vRwsuGBOxP3xlXytQf/Sj5a CaOCPZmQ3d04fY9YHvWvM4/ca1bEUk782kvXiNB0XJZZ/oUFBQuVa1aVVPzo 5CTa6LPh/Uwvz8CVAn31ftfXKYqYXV1W8zBLBvnf5n/bc1oeCzdNUXI0pSCa pNY/ZMlB/HujTSvOUNBZrlmilM+FdXu4mgNVEbp2Xas1ZMSQW0yuSX9KhtqS BkuyoQBf2a1Zy5pIGDEWyNQ852KvCdXNwEsWPQLbtb4DigjxV0sOFVHxfDUz O/6gEuaHFtT/W0pD3iLrZf9oKji4mPepkUdEZNmABd2TgwUZcxMFdgyklHlP DHUpYZvztyWJ1yn4nMpotzrPx/ALRqOVFgWRBbW+N7N42MYsVB/kk8ExuzTj Wj4PzZ5L6Fe3kaH3PGu0qEmMJYdfFUwNl8eGmoZPacf5cFHV2Py6VAGf/d9Y kjkC1EbsNk+IocKyr1fx6Wwe5IwiLoxsZMP8cv6L8csqyEofm173jI5vFT2B 7gIhTmzkT3NcPSZZd37T+WkfFUHY5bZ2YA8FhQWPA73HBNi732N+SasMbHNa Y2cZcVFRfq70bgQZl3RXmC3q4KFwPdW6KIeF8mOOEy3RKhh/3BDSq01CJan+ lNIZBdzQXh6lv4SJyNU2G6ddFqPnS5xBUpYcygn9/524x4Jmr/0zfel+UujO 461KQowHv/Bbv1cG83MbG9Yv4oPKDjoev5uEldUyzTw2H7ZnonOdNo1L5JeO HTs9xMRr3XWH1MWjEsf9Sg6jhWw0ddy4TvpDhMfMigwbIQ+mOf0Nui+JuEsI ydP7ycW6ADVjG+l/uqWZiRYsFMAqzCcpMZEErWW1H8/5CDBjuDTlXD8Jv3sZ 5ldNBBjUqa81M6IjyKNFiylWwpKa7ffUviqimpnkJXquiouSq2a3jOVwXt99 fvRcLqwKjaI/vWOA5dh7f38WH2F+lu9X/yZCf0Hb1tYoPo6+X3z6sxoJan6P XB/UicDR7F4wNECFw/36W6JHIrhvsXtWvJcGo2iXgkfT+Diep7w5NI2BpgYZ 1tFFSuj1CZ76fD8ZMRrP6fqRPAh26Wrl/KKgeOodm8tMEVwePfWtjpuQNJza 0K8oo4Cf5dbKe7JYSH5gUlbkKcb3a0Pco1/6JOkrjaZvO8mGfrW+1nJDeaRb +ERMLhUi3KOHzF4vC9//Aqbk+3DxM/tDRaCEiM6tPjJbXvNBLH++o6ZPDk1t Ef4mUjytmh4pm+6noGoyNV+nnwfJuSfPH86nomblm/1lI1yYzs254rSOgYTD 1zX973AwZ0OfwZknDAQHVTpq6/LxZlI5Z+NOKuYE+8cYlfPBfahrO1rEwaln fnck69Sh2zzX7GM2E3b7D9R9e6mC0Z4w45B6IjLTXk9fp8uBfPm9eXW32eh+ udh+5wcpPmQrH8M6OhI943o7RkRQZ2R0hqoxQZb8DXowIcaIQnFhTLMCVAPu dJGNxWg2czQO2aeA3WFhekd81PDydTPFxouMsFbXjek9fJwJXK6zv56MC/b2 zdk6POip3xqyTqXgcHFeiE4tB7EjEw67KRRQ088PzZ6riAdTHn6yMqTgA82K cnWdEJWmTnRyDBOFTVbbiyyUsIZBL2FF0AH66jVnVPlQnSe/eHDWuETFzqrn 5Dsmzjpr9RgOEtEUbmsa/pSLp7aPn0V/JkI5bdLwrz0HoV9W/Gp/IYvracs7 B6GIL2tSWNnSeft3LpfZ9lMRZTmpq9peslH0eMvAb1tV6LuL5Ds7FOE0eHuT 7yJ1/GjmH9i0ho1II7N5+tZS/dt7LV5LhomahDRvN7YIqT8rVbR/MWAiv6+7 9gofVm6sl0+amUjvsWpfNCzGDbXVgdZFFPhcj3lXu4WHXlLwTdoONhREAdZR 68WYXvf4R9kAAbYZY10OugqItKlrObiBBsPgKsPbbA7UGoaIG7LZuGuRO/0J UxUmnz3KZzkoYPXbrTMg5f/WE/aDQR9k4NhXIRSqcNFsV3r+vT8TOg3Wh8uU lXHMkN5jQKTANzyBdraKj82RGx8wGSzIaHWcNr+uio2BWql0c1lM1rx86pbO xEe18J8JMWTczZm2/DSRg2V+x8ICq2g4nRz3vl4ggsFcusLljbIweTX2IzKJ jRtTctinralImakT21rGh/b7fmGWDRUBnXKxQbelfFjy1cPwABtPjVSeHTRW wr/vM4ZmvJDqZfuPhB0pfFgONK/6TqcjIrXBv/2kAK2+Rpw1F2lYUGi13P4Y G68c3epcDrHw+d/2/F3hYty9N95WMo8Ni9b2vOv3VWHX9n1H5gU2CLWGPqO3 RGj09LF0i6Lh1VSJ2bPffNzVK9lC0yJgmffOE+uGpbjrePHJUn3c47zB0+sl H9n/5Fhrl5JxvEpjlu9CEcTChRrqrwn4MJphm8LkQ/F8m0H0Kjr8io5iYQwX mw2vpZ5OJCOp28Vn3FzqT29dbjg0s/A1r/9F9QUVKLbI9n4qIaPIZ++s1c58 pJab5kimyYPvW7p77IIAPD/3mvvKJHic0VMOvs5Bs29p3pUjsrBKCTDwC5Li /evkyEQiFc+y9kyP+8qDdWDRYqK7AkwsabmVHUpYoCfJdmfIYE5kzIEhFhci gw6DH5qykBvD+7NvFeAt/9QvrJSDdzaDfQW71VDxr6El+gMTsx5nK3UpKeHg z6+RP2dQcMpA6/KRD3z4sotEsn5kuI0VDmU/5cNpumn40stM3NTzTPq1UQm/ j6kwW5JkkTSiJ2oK5eJJpVAvOEoBWhrreCaByrD+S51p+1IB/501qbKVnie4 I9/S6sSCl2bumNpOMerPSZS/35+QRHscP3e8lwt7613EdDYJUYrjF1768HDF +O2axfvkEZLN/tMqK4aFZ/GMnUIiJukrx+2aOej/br4qzHFUklWvrOkYpIhy s60ebeMy0Ht0Nb9Rl4dr+0b81rkywc78o+Mk5cd28lX744qKmHfnG+GgnjIq esx2JgWTsP5b21oZqa9f/i9lygN3MkrG+m9t7uKirGD+SZdyWeSX6y0QDgtQ te3zorpPRFh2R0d8mcNFkbzBykweE1bqQ8vdmkQ4lCafP5Eri2Vq6tPMeVxc j/gS8+gCFc33/zhHbhAgomW8rmiIiLzxzADeLRZOXDWYQTggh12P5lv8qmTj 2qVPPU9ENFQfkFv1LYyPQme75ho+DRg6tFrmgAD9ioE9Y57y8PH+4T2vS4TQ Kwl9M8PZaBlJflvlqQxmdvrwtV4SdCoOVKqnKyBFT+Fb1zQKEkjX3GIUhLD5 UTcelUnHnWyr/j1VYkSZf8u5a0MBn7AluD+LjfS3v0qsP5EQWnr9x2x5DiSi Qr2uMTpUnR7/yBwTY6fepWplGTJqtW081aV6mpu2Z0zAJSDQ5vkcUjcPLk5H PMIC2fCk2fpoOytjdKziDTVeBgU3Zt+qKOajxuPFiTwvBpzldrm4ZojxIsC7 4/VUOiKDf9mpE/m4FP6Ptr6ejo66sKi+h0rYcmRT5pZ+FgZ5OVVZeWL8ncdv RBoV+fm+fcWn+BgIucO7u5KJFeKS2aOFfOy5NU/JfZyKsdMbKNd6eeBkCV8Z GJHwwiD+6vd6AdSmXN/RKNUt1g4Dz/ADqqi52ZmhMoWCFpaaboaYi5QP7IMt PVSojN0KZ1WKcTo3p2H/gQlJsCCC2LyUh7JVFG0tCwqUhBUH2sHDD4fK/Vfv 0MDov/D+WJIAaS1l93c8JMK+Nv/ZrlYpzx5nzPXoJOONv0HhJbL0/U7pf54+ pcI0w/ROWQEfRvfybI9aElDgkbG4sooHO+vvTiYkChbJG90fe82DpcN27tbF kxI18h+xYjAHFHffd1dimSjLfvrmkUSMNOf7axMr5aBuVTu7sk2AKwfYdEY1 Gd751TdPBAqQVHCLFnmXhNR3ER9SjvCgfrn3TdY8Ih6ZjrUvP8WG9ZgNV9ty UqK/7kZ9zEwWjhjQXn59KI/zP2y5I/dE+MB52pUbQcITzQR968UCGFAILHtl NlZtjva+VCzGbGVKh9YVEr6FX5g5OYOHvrGvyabrWYjS1shbd1UZ92LfaZua 0dB613FvQj8fXo0DUbfDKWA7RCfuO8ODJ//2lTqqPG7P1hhP71aF3yHBRWsL Elak1589OMKHUnpyaWuYdF4UfTtcpfPuUlnzTHMtGyfknsR4MlRxxuu44zYG BdPfsZo3H+JjdcSxG+RdLDQkWy6xmyPl9zJZ8qM2eSQeYT6OnCpEenJZ8IOj RBBiukpjLXhwvGXOMJVhIaXa+u5ghLI0v96/GPuQilknLthr7hVCgTaqH7Fy QuLGb3fsdVNE5k2j0gX9VNQOOE4NGRegcKuc/jkJDcdNYhWJ1iJYv47fV0ph gPIo1jeSJIKzwG3vzgwSttR/Jt6I58LEWS7vVSUTlOWHC50ISrjlXus/8oiE QwfGJ+ScOTifr/05PZeJC7t0Vny4JoTbuxr+14t0nL4UT8yeK8DNjZoNLAcy DC+LDf+7KO1fsSft20oUQO7elDWUzEfnkbVudCdFmJxbuOvKbGXM/b3BPy6D DNOHbz/5xKighE9fkmVFhUfpQXmdKdI8XuZ+s/svEXJ3Jy/7D/Lx3GymESF3 XLLA99XUT8aKYA+0HA6ypOOcBiW3JlQJlwXkL2U68ignkyaLjwgxafaz7+T7 EUn65PpUlR5pb8l0//c4mIryDpXP7ttEKNXjP2yokvbYvBPFugYibBu56P34 y6gkLiN66X/SHDL4zZTtqEbB12FSyOzFysgQ1SXciKdg+PVWa/lOPthKgWWv kmlYec/VcmGAEHaOc787b2HAwXHml9XLxMjs0pXZoUrE+9vpQ51JfJw6+VeU zGZjw5+25PIhaR48f1f1LYWNb2aXtKwURPhV77NG4wYTvJ2FpXUbhTi3kJK8 O4iFihcJM8IOquA+K98mTuoXPPvLhwbOKmOY9uCt9W0qAi+6JA1IuDDfHXcw aZccLnZ1BXUN8/F7noNHVBgbmb9dAlIahZAsJ3g5C9jom0YY+dWlDGNX/y63 KWyUN6/o9mwXIWrNluBfctL+ET1yt4wsQp92ZkuZGxWiMJvtS6X99KIke87U bCrC+97wClg8KD87Qi3NYmBq8jGfYGnfCM4p3/1qBht/D49dL78kQp1rNa+x ig7XJWF/aqOE+OBJszOV8jP1hMaC0rN89L9dvs9rPgU9Q5usM39y8JbjPf+L VA/9jrCznxRzUbXaK2eTnwKE5rHBJzqVwE6JiG1yImNIfTyozUQRr5oOhSwZ oCEDwZc23xHBbcnNyzuv0SHY+7M610gJ/h7zqEuuclAetHNe/dsp+P1jn0Gn vbQPcPaee14iQsDhoTjvAhbkXmcmHlMTQ+lTQ1WHJw2uiRryWxh86NCbQtyn MXDcVv0LPVcA49sPFg9V0zDHQ3cy1liE3h23d64IJkBD7Udij7S/CtzU4ub6 SPHv39rUncyG4qunpzdGE9BvPPwxns9BnOHrWtl9VKi77r+RFi2EyGxVBvuC tL8svJeS1Sbl9yJyabLBpKSstyQ7y4UN36xBZ7syMtgM7Y5TkQLYybbvKF7O BKxaV5x6K4aXuY2wh0CExlLSzfP50vt04vQP2Mrj64Jlz6J2CjH6tWRhZSER JbJG7+uFHPxqE9Rv/kJDYOiazVb/pOfdt2C9OkdGUMXqL3lS/dtbUnQ1m05G oVeB6lgMB+uvjW55l0pFZej7ow861RC8y2dG6AQXw/UBHzSTp0DbLcCS/R8V vxtaJ083cDHVvvGFD4mJ+VtPVgbcE8OfVcf5G8qE9eyO+Id6Yul/BwQdzmOD O2XqnAveylCvnZnRXSELPa74BEGWjSWrEpYzgrkwVr3j9OaPCHtzPWsbi9nQ 2lxtV0WS+leja+zkHD68V4Yu6IhVQeKFzZQTYj7y1Awpc08pQzYocXu7NKcE Nt1qOSbN46pNtXbHtvIR3eP363GjJpoKPsWvseFBW4U5bw5NE2esr5KXpfGg djVk1X2JOiz+LOpWoQqg4Prqll+xGnLoThUMaS5MTVh0RXhFFTa/1zmrcqS+ ZWNhVuCqhv8BvFlb+g== "]]}, {RGBColor[0.6, 0.4, 0.2], PointSize[0.008], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVl2k8Vlsbxh1FKqLCM+397L2fx9DEEZJELilDMkSOMhySFFJpEioZKpmK 0GxuMh1jCUVKRagoGkzRoGiSVKLe/X7av/1lrXut+7qv678Yz632GyQlJCSE f0lI/P/rMCTd/KJLGUavhtwutSnjUpqbcU+bEhr0OAm0NgF6srXUeyUOXvlK P3hJcLHBQ7ZCYSkH9Ue+pd/LUQL5T7xhKkHCaa6WmmciieodxPYXKwj09LW/ MTASQqOlSOPgbCGsJkz1LqSVwZU8ZWr9isIWS709Z5qEuNUdlT0kycPpc79/ X1/Lh4ejgZSFAoPl6slpOwaE2JUtu2iCPwVvoyGblRI0dobpJ2aMUkjx0zg4 7boY23vK5Iv28nBNqeeOTgmBXW8X263MFSAh2i/8njoJa1+boBkFbL31pYO1 wQQ268yoymnkISPih5V6I4UcO/n2LZMpbCuo4luOcKHdNcGzNlEAiUbVc0Z1 HFhUPjV1X8BgY3JAmtpkEUIaF5XrRjHIHFIPvOfJIPRhzzP1MzyE7Sz83BpO YkSxsWYVhwetgrHgthoBXIK4u8xMGCQnrt4wS4XGxR0aZUdjKYj9H/C6YwWw D/sSbtvPwdbXH281Z9G4e2u4buIxCg73QhLGVGmYNZ96qrxKhLZ9b3ZQ9TT+ dvoTN79NgCR0H+cfJJCVkeBnOYXB1ucjdubXBRiaUdV73orCSu3/zv7qJOE9 O//0tkA+psWrisekuHjt4ZhQp0HDy1ijDTU0dqdNp5Nf0/BPb/EPieejy1Nt 7ribAAMHzm+P2ESjQX3tzDYnCpmR4XOvVFKoNLbPVz7Ch7vltzUnk0h8s/hn wllpBss03oQPrycguUZPe/1TBjcUfz7Sf8SgrtLt7eI5FBal/0iWzeagfW1k u/ZzEonGNuaH2ikQPz3V8r2EkCqfldoiwUerjaC6dgmJnLKFjxtHaSzdEqzG T2PvxSSkenAegz7Z8nfVrC4KU/7rvC9BQblx3umTiyloz5RPkflJIJZr7De3 mUHHvlGocoUY8w8+LdPJxauk/vimAxS6Uk5Q+9MI9v/c8TgHtt8n3ygeuUQj RS3q2O0OIUZLrV1rW8T4/lLbaNBRhI0dm+KGP/AwvkPPNdJUiHsDRX2vu7iI qgu99zNLgGrBUftmHQHubKiJu+FF4NxfcftLG2l4DhZstIsjYHLlx/QqVz7i t/KYj58EWPdsw/PSpwTcNon1iJ0Enl66/F9tCbuOVmzcHlkG5r+8gyIySBip jV/WN+bhY9uEJ3JXhThhkmweQRIwC+xfJ6FLQLpA1TB/mwi+iw45Tv1FYH/E hcbiLULIT6xu1qqjMWqff5ezkMDn+Zevd18Toj7UyGXGSwbZXot9K1spWD3R 5E7bTYF8gd/7ikjQe6bAn2TweFmpXuBpCtElx8XB02noInM4/BoFg4y+9hL2 Pvld778WRTNIvbZtXoaaCBkN10d1ZzIoSboYpsr2ycPSU7K0g4TeaT//mj4+ Dui5Rniy+hxmms8F17G6l5dIlOuiMGJzoIyZxNZROUymuQqQ7rN7cLEtFxrZ 9TM2fKRgYi7rkWpPYbts//K//qZR9XHXmnW/KLht/jCnLIKGwqJOzaxTFLpV csPGfomwqanNICCeRki9hZb6EQYtq5oDZvQQeG+5UCwbIkC2+bjpXAMRWldP x6RnFNpdbcJC5CkEtv9WILNFWPODtzFogEHM3izF1EkivLsrOf2GKw2rM8VK Nz9TWNiv3abcRyLtW3z8X84Upii3XLd+ReOK91ut+u00Apq3dU65w6As6s+P SXMIxDUvnStnL8D4cmMP2VYhfA+vm+C0k0FxRgD36kkKe+UWxPz9jEYqIcx4 /U2IRPMvib9oHiT3EX2DVTRcAm+W/JhCoSfVofy/UwJEnL1q0VZF4mvhvvLY VwSuH9yvtayPAHfBi8j0KBLHLHbemmHAQ3pq3U1/LwYu0U8sd9mT0JkeNv2X pQgVXiWlvM00tiwIcT3J9r1XuyEvuZzARW2HyWbpQoxXRydN3E+jI6FJMzGG jz2Pli+a40IjqbLfXmorg2+ZHb6nz4uw96/8QQsZPrTm58koFpLQHTdT3G9P wzd83opRdwbhH1Zvsg0SQjP/j3kBq9+gScWfiv6loZ83Z1iX1WPh+jaTx1+E 2P/r3PjZSTQ0pHzweSIN8ob60ZATYlg33l+40ZxCfGuuY54lAanbstMf6lFo fOp6XstKiB5idtZBmoHBmtYCubcCjCb9mSb9jAE/mC7MaWR1RGsHRinyoBMc ZL7Rm8Sb/hiXDlaP2aV+I5pDNDq/735x9gQP6ypPGWyyUELCBbXyq+0kRF0a 2kXPSKTM3as0aMOHaq0LZ+AkBw/vVGzakkkBFnsVMiYxCHM12qvgzurGTNM0 sJjGJ0VNHzNJBkLneeudjtNYq+tu48z6/HtK+nxxLQ9ql1/aLa5k4NkocanD iYvigUT5x+z8uK8qju98wvZ5G0fvXj4JDveszLeZFEKKjt08Pl+E6P0xv+vs aCxYvPi5pAKN2dGjPk8GKHhofr3Ye5SHyIuvLtLfOTDUOeGUeZ+DKInR1cWq BJjYzws9JDg4z00sD2PrdGzxvN1tKEbriJxi7HohmqSr81cc5qEozdunZh4f Uq/qdLdKs/v3uazTkSDxOLpiOKGJwJEhFde75nzk7evo9/IWYYFpjXv5CIX0 ClyLVWFg/yHG3aOaj8P2fa+vbGfz4btZ/iO2bmmLol15uTzYh079E1ZB4KbB qQh+GoVfEeEz+2eLsN13HRnWIITeiPLko+cF8B2+8SHxqgDvRi1UTGk2P8pD 6gdU+Iidt27wTCgHfdExWV6KInzL9ai+s5xGTul8s1A/Bl9uc2O7ckQoFMss CPkhwoo/4vjd0UIEf1/t65PA5mOQWfGBLiFWS212apSh4LvVKuSMiM3PhVlF ictoMLRmReVhBmO3rMfuczhQls7ICtVmfVpV6a+VPXz4JCySLFnO8kOD0T2J CAZnU5SvFRzmgi8H9/RYHgolfxgFj7DreHdeiwOBjw7hTM07AeyafDd1J/Eh kWCmOvuLEnSNTVpK/3Dg3CE3ySCCh71bT1p53aKQ/Pn8003hPFTJbOtrZn3H yKrARX1cBPkn6c8KFChcZFxknEQizEmS0vWVF0KlomjLLVMaD5In5gbw2PPo +JqOS7L5qLm1WjVAiKTZZc+MD5PoLjljV+7D8tZEV+rNKhJLkqQzf56kkegj mv/WgMZgifUJfzUG6q0r7mo8YbB/mPt73Rkxzmi3iizY+VAZ89xyO471/bfS BY6aBFIN/dQ/7RLA2K3G0L+XwJJD/xDLnWm4pp79us1EiBCFJUmF9gTLJz7m 9+ezHHXB6PhQO40wZ+e29xkU/i5dEfHkPwazSvo5ycGsT0au3uRWLcR2f+8u Az4foRWz7shU8DFlS/CmyREERJLNC4XdQrztutzQfYfA5fzEz59Zzgs82p90 Op/GrxOvfhjn0NAe7DILzBTB5btZmoshiZDKvuUDbUIEhh3IkI8RYtm39CkX /VjfqB1bfzRUACuHJR76YgFqOnWrNcNpyNU72DIhFKQvpKVms3y1PXZVxBeW g1T09Z1HjBgc6RF2xZuw873g4da4FgK58j8eytMkTFXSjVv4NHSKKv/29WXv pyf6WWaOGOrcn4utTBmEZNbaySYyGFEovFnWQWGWrOnJPDZHvQruLL0BCrae XRMbRkg89C1WWPCV1avs0bGvbO5aOna/DlojxEeB3gbF9XzYNB0V0Hkc7F7q 1vy6lUbtPspwDXueKGcNjVBWx1kDefeOd/PA0diROi9OgOEbu1c98yPA945Q DLLi4ryS/dPJR7mQXfmyvVGVwSlbvk7lPCGulOV3Vo0qYwqn7nX7Ox4G8+wX zzER4HfcWdfEByxHbjghDqxl87VlOHD4tBAyG40G7SIEOKhb/7EpXgnXogLS I8tIzB9w7FFmOdlEPDyyyIxGQeKMt21iGodvXfgWsIvVR1ZJSehLDs75V4Y9 4LKcnKH+3X0dA+cba9LH3rJ58M75+YoSIWwMLBws9GlMV7w8Vm1O4lP/2C+L AQGu+NUbbmF5/vH9jw4mCgS0785NdH/Px7vxcwMv2dyofZ2zvHcqheo4z7TN xwiEcc1emaTycaj7+/XbWjzo71x982QUHyOaUm4LX/Hh1CtW3jzKx2aRnNLe 76w/XW/bTi3hIJnoWfmQzRmbGukRfZZ7SvK3x85/K4RwTlCw2xk+Bpblpsz8 Q2HabTRYazLQujKlJm0LA9WVPjfqj/Ohw4k+sDOCwvXT7cTNXcqYdjVY7usZ GhXtoZFyi0nMW6KPp7NoWBbdk12awGCt2u8aM/a90SgqPJ/0lgcPr0kXl4lI xMZKlVQZEuh8HBMpJcfm6qzeiTIraRAxa65d2UOhPkUv7xDLcd92zChZZczB vJ8fti4m2P3T/J1Fu1neXeHTlOotxJTgxKyHbjwcpmNS9nQKYWp0xCRXS4iD NXaGL9RIiDdKVpe3CFHs79OVvYKDVWFm85jZBPRlcu8PFpP4YhhZEKMuQEvZ qkAVVyH0rQ6m2dmyfh9P9VbJUVhgP3Lorh6N1qf9XpuXKqOwvvONUhYD74qc 6bqtBKZZDbq/qxShwcO+fdd5Br4vpW61BLDz5/io5DW7T8s5yYgANg8ZP1x6 PswgQC4rRe8CgyjrYecJXWKsbpBYsfEajX8NvkyYO0DD8fBISGKoGPLKnyzy ZFUgXfHQ4cIpZUj/Htd6NSjAWMbJlllvaGycWmZpGEvjZcg7xUpZCocC/jXJ nMpH0o7uaPONBNQX6r4z/M3y6qTo1AJGjBHpoUefT9GIcFnuPyAQoKlMKbM4 jEb0hsGOS2x9pT9O3Da3I5GXekfZ7YgI/7mS6jETGFSYX5Xq3cDy1C+pmBK+ CE4HzVZY+avC9NHFgLfqDHL81a+tZTlgYhrHtrJXEUvWN1+1uU2APFy4Jl+W j2RvbbXHs0i0LiQn2RSxvvKk99zoIhU0f+J7OyeoQK+t7OCH01yYemWH2/hz kC05FL5rkIZFk3kIl+VE20dz0o3YeRCs1SqtzeLi+Gd3hZz5AhR+qCpT8OIi 51PRPq46gT0xlfx4B5avl3w2XrJKgJvuKv+GfBQhsHbHmx6OCFK5fZUrH5Ao S3T0NqcEsDhULf7Bzl9PabZj7xkRNp+PVB2nRYic0dAdxvb19a5C8WUjPlLa 6u4+Gxfgln9HuVM5B5TJTO8rQ0LUBZQbZ7QIIF5479gdLQbVG1Qyku5RMN5h rXkxgMbVsg6dsMvse2Cq5V3dSCG6wgm/we0Edi9LLZBNEeFn0G7p9/8wCF65 f/LyHC6m0pYhH5JpvCtX/LXbg0Z7UKHttk8UnOp6qlTS+ajR/nzlew/rZ37d ucZLKfSZD+yhDnIRejREZ3OZGNLpSpemszqUldNZENPGR2KsG+zzSOjrOQ+p HmbrPPbT6bkuy70rsjzy9Cms39lq/+6BCKemF7b+fsEH93CGla2cGLmzizw/ PGbgViEdEuckgvqb59s+bSHQML+pLZxDw/iA9Y4H7LvXsnZqYKYtiTGj5VYV uQTE6rNvtX6gcPb9U6fTcQyGltreP8fmy2Yva+WoayIM1Ht9GVkpROoVy+ut +yh8mV8TWWBEoLrAx+hKjCr2WVkNzx2iEL66d+TFNB72h1ffvFtB4ozibYc1 L2nMLfDov7yIxkxlv3z7AySCV1W2L53NcvDx/IwObzE+TZNerc2+D/8HtRuB HA== "]]}}, { {RGBColor[0, 0, 1], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0, 1, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[1, 0.5, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0.6, 0.4, 0.2], PointSize[0.008], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, { {RGBColor[0, 0, 1], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0, 1, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[1, 0.5, 0], PointSize[0.008], AbsoluteThickness[1.6]}, {RGBColor[0.6, 0.4, 0.2], PointSize[0.008], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, \ {}}}, {{}, { {RGBColor[1, 0, 0], PointSize[0.025], AbsoluteThickness[1.6], PointBox[{{4.359429871774391, 6.958325035224426}, {6.178741787404398, 6.912735930922311}}]}, { {RGBColor[1, 0, 0], PointSize[0.025], AbsoluteThickness[1.6]}, {}}, { {RGBColor[1, 0, 0], PointSize[0.025], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, {RGBColor[1, 0, 0], Thickness[Tiny], LineBox[{{4.359429871774391, 6.958325035224426}, {6.178741787404398, 6.912735930922311}}]}}, AspectRatio->Automatic, Axes->True, AxesOrigin->{0, 0}, AxesStyle->{ Thickness[0.005], Thickness[0.005]}, GridLines->{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20}}, ImageSize->250, PlotRange->{{0, 10}, {0, 10}}]], "Print", CellChangeTimes->{ 3.8907330573042307`*^9, {3.8907331128234053`*^9, 3.890733132825886*^9}, 3.8907332246350574`*^9, 3.890733255851194*^9, 3.8907332917736597`*^9, { 3.890734122716251*^9, 3.890734130815688*^9}, 3.8907350624635315`*^9, 3.890735095484761*^9, 3.890735136950403*^9, 3.8907362132748594`*^9, 3.8907362884062567`*^9, {3.890736938614626*^9, 3.890736952305652*^9}, 3.8908742852091646`*^9}, CellLabel-> "During evaluation of \ In[117]:=",ExpressionUUID->"84075b10-70bb-481d-a079-b0dd20de787b"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"DDD=\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0.6439222171175175`", "0.5645315839048339`", "3.2188029426617537`"}, {"0", "0", "2.5395340451294452`", "2.625418804708296`"}, {"0", "0", "0", "1.8198830217309012`"}, {"0", "0", "0", "0"} }, 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]", "\<\" - distance matrix between clusters\"\>"}], SequenceForm["DDD=", MatrixForm[{{ 0, 0.6439222171175175, 0.5645315839048339, 3.2188029426617537`}, { 0, 0, 2.5395340451294452`, 2.625418804708296}, { 0, 0, 0, 1.8198830217309012`}, {0, 0, 0, 0}}], " - distance matrix between clusters"], Editable->False]], "Print", CellChangeTimes->{ 3.8907330573042307`*^9, {3.8907331128234053`*^9, 3.890733132825886*^9}, 3.8907332246350574`*^9, 3.890733255851194*^9, 3.8907332917736597`*^9, { 3.890734122716251*^9, 3.890734130815688*^9}, 3.8907350624635315`*^9, 3.890735095484761*^9, 3.890735136950403*^9, 3.8907362132748594`*^9, 3.8907362884062567`*^9, {3.890736938614626*^9, 3.890736952305652*^9}, 3.8908742852091646`*^9}, CellLabel-> "During evaluation of \ In[117]:=",ExpressionUUID->"1a57aeac-79d9-484a-a888-0e6a48b2fed6"] }, Open ]], Cell[BoxData["0.5645315839048339`"], "Output", CellChangeTimes->{ 3.8907330572886095`*^9, {3.8907331128077836`*^9, 3.8907331328102646`*^9}, 3.8907332246194324`*^9, 3.8907332558355722`*^9, 3.8907332917736597`*^9, { 3.890734122716251*^9, 3.890734130815688*^9}, 3.8907350624479074`*^9, 3.8907350954757843`*^9, 3.8907351369347744`*^9, 3.8907362132592382`*^9, 3.890736288390632*^9, {3.8907369385990047`*^9, 3.890736952305652*^9}, 3.8908742852091646`*^9}, CellLabel-> "Out[132]=",ExpressionUUID->"d24f0c6f-9477-4b06-97ee-2deb086e103d"] }, Open ]] }, Open ]] }, Closed]] }, WindowSize->{834, 762}, WindowMargins->{{-1923, Automatic}, {Automatic, 9}}, FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 498, 8, 53, "Subsection",ExpressionUUID->"14411fb2-9172-447c-ab3e-9b738303af1d"], Cell[1081, 32, 4486, 119, 126, "Text",ExpressionUUID->"171af7dc-a083-47e9-966e-c9d7ee61e9da"], Cell[5570, 153, 14228, 329, 865, "Input",ExpressionUUID->"a5f9f275-b56f-4b78-99af-5714da4c2b42"] }, Open ]], Cell[CellGroupData[{ Cell[19835, 487, 153, 3, 67, "Section",ExpressionUUID->"2c35eb98-c047-4235-9c0a-76bc8592f58f"], Cell[CellGroupData[{ Cell[20013, 494, 594, 10, 44, "Subsubsection",ExpressionUUID->"dc4e36a1-0aed-47d0-b971-4626b928bddf"], Cell[20610, 506, 4448, 140, 111, "Text",ExpressionUUID->"c9099e2f-51d8-4147-9c08-9c84a82290b8"], Cell[25061, 648, 1487, 37, 48, "Input",ExpressionUUID->"06a3b0c6-67ef-4b54-b95b-e86539452c46"] }, Closed]], Cell[CellGroupData[{ Cell[26585, 690, 448, 7, 36, "Subsubsection",ExpressionUUID->"a7352edc-dfe6-41ce-8da7-b1c2004626bd"], Cell[27036, 699, 2675, 68, 66, "Text",ExpressionUUID->"479206f6-1f38-4d40-a9cc-8950bef3ae57"], Cell[29714, 769, 1302, 37, 143, "Input",ExpressionUUID->"056c64d3-ee3e-4289-8353-b8ba34914cc8"] }, Closed]], Cell[CellGroupData[{ Cell[31053, 811, 524, 8, 36, "Subsubsection",ExpressionUUID->"c6aca932-01a8-4462-abda-a0a0ee7ce1ec"], Cell[31580, 821, 2877, 68, 66, "Text",ExpressionUUID->"35013480-e420-436f-bc18-cf317b91dce8"], Cell[34460, 891, 1391, 37, 105, "Input",ExpressionUUID->"f6f28c6b-04cc-48b9-9927-7284a1c46ab5"] }, Closed]], Cell[CellGroupData[{ Cell[35888, 933, 300, 5, 36, "Subsubsection",ExpressionUUID->"c690177a-61ae-49c2-a0ff-b57c5e7a1f7e"], Cell[36191, 940, 5571, 163, 176, "Text",ExpressionUUID->"f8dc741d-344b-4482-a840-216a92848387"], Cell[41765, 1105, 25905, 587, 1435, "Input",ExpressionUUID->"6f504339-8985-4aba-a66b-8af863cb94c7"] }, Closed]], Cell[CellGroupData[{ Cell[67707, 1697, 162, 3, 36, "Subsubsection",ExpressionUUID->"677c4afe-8d0f-4391-9b85-1c14d662306b"], Cell[CellGroupData[{ Cell[67894, 1704, 5613, 177, 352, "Input",ExpressionUUID->"3888d11d-e985-45a5-98f7-9fed06cc6e07"], Cell[73510, 1883, 10266, 271, 32, "Output",ExpressionUUID->"be0e530e-f669-4dd2-931c-3cf97f7a41f3"], Cell[CellGroupData[{ Cell[83801, 2158, 801, 16, 22, "Print",ExpressionUUID->"16edf431-18ca-48a8-8515-bd6dfef56d52"], Cell[84605, 2176, 914, 22, 22, "Print",ExpressionUUID->"5082e0b6-c487-425f-987b-29e6aea43aa8"], Cell[85522, 2200, 28419, 482, 260, "Print",ExpressionUUID->"94348e23-efbe-43e8-a824-47310ab63508"], Cell[113944, 2684, 907, 21, 22, "Print",ExpressionUUID->"de9942d8-74bd-4871-9e1a-92c33c94b7a7"], Cell[114854, 2707, 28423, 482, 260, "Print",ExpressionUUID->"ffcf284f-39f1-4fac-9387-a06e93d28955"], Cell[143280, 3191, 916, 22, 22, "Print",ExpressionUUID->"dc250d53-5dcc-4d5b-9e64-7940da09edbb"], Cell[144199, 3215, 28431, 482, 260, "Print",ExpressionUUID->"f6968d6a-d400-492b-ba2a-8b698c675104"], Cell[172633, 3699, 916, 22, 22, "Print",ExpressionUUID->"cafc4460-b4ca-47fe-bbc5-285b7602e214"], Cell[173552, 3723, 28410, 481, 260, "Print",ExpressionUUID->"e8da5723-c5da-47e8-b962-281debc14379"], Cell[201965, 4206, 915, 22, 22, "Print",ExpressionUUID->"97a8d299-9966-40b3-bb61-414bf8b233ee"], Cell[202883, 4230, 28414, 481, 260, "Print",ExpressionUUID->"e270596d-b7ea-47f2-87cd-878c081a70e2"], Cell[231300, 4713, 915, 22, 22, "Print",ExpressionUUID->"7c62f0a5-0731-42a4-be6d-74dfb6d3a91f"], Cell[232218, 4737, 28416, 481, 260, "Print",ExpressionUUID->"84075b10-70bb-481d-a079-b0dd20de787b"], Cell[260637, 5220, 1653, 38, 65, "Print",ExpressionUUID->"1a57aeac-79d9-484a-a888-0e6a48b2fed6"] }, Open ]], Cell[262305, 5261, 554, 9, 65, "Output",ExpressionUUID->"d24f0c6f-9477-4b06-97ee-2deb086e103d"] }, Open ]] }, Open ]] }, Closed]] } ] *)