(* 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[ 425282, 8676] NotebookOptionsPosition[ 418430, 8553] NotebookOutlinePosition[ 418774, 8568] CellTagsIndexPosition[ 418731, 8565] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Fuzzy Clustering", FontColor->RGBColor[0, 0, 1]]], "Section", CellChangeTimes->{{3.8078490773108435`*^9, 3.807849104624096*^9}, { 3.8222260694296417`*^9, 3.822226070031295*^9}},ExpressionUUID->"1805bea1-431f-4c12-8a41-\ ebfef8360b42"], Cell[BoxData[ RowBox[{"(*", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ "Fuzzy", " ", "Spherical", " ", "Clustering", " ", "is", " ", "a", " ", "complete", " ", "Mathematica"}], "-", RowBox[{ "program", " ", "for", " ", "fuzzy", "\n", "spherical", " ", "clustering", " ", "using", " ", "the", " ", "LS", " ", "distance"}], "-", RowBox[{"like", " ", RowBox[{"function", ".", "All"}], " ", "modules", " ", "needed", "\n", "are", " ", "listed", " ", "in", " ", "the", " ", RowBox[{"preamble", ".", "One"}], " ", "has", " ", "to", " ", "load", " ", "one", " ", "of", " ", "the", " ", "suggested", " ", "examples", "\n", RowBox[{"first", ".", "After"}], " ", "that", " ", "one", " ", "can", " ", "perform", " ", "the", " ", "fuzzy", " ", "c"}], "-", RowBox[{"means", " ", "algorithm", " ", RowBox[{"cmeans", "[", "]"}], " ", "or", "\n", "the", " ", "fuzzy", " ", "incremental", " ", "algorithm", " ", RowBox[{"FInc", "[", "]"}]}]}], ",", RowBox[{"which", " ", "will"}], ",", RowBox[{"based", " ", "on", " ", "several", " ", "indexes"}], ",", RowBox[{ "propose", " ", "one", " ", "of", " ", "the", " ", "partitions", " ", "obtained", " ", "as", " ", "the", " ", RowBox[{"MAPart", ".", "If"}], " ", "the", " ", "original", " ", "partition", "\n", "is", " ", "known"}], ",", RowBox[{ "it", " ", "will", " ", "also", " ", "calculate", " ", "the", " ", "Rand", " ", "and", " ", "Jaccard", " ", "indexes"}], ",", RowBox[{ "as", " ", "well", " ", "as", " ", "the", "\n", "Hausdorff", " ", "distance", " ", "between", " ", "sets", " ", "of", " ", "original", " ", "and", " ", "calculated", " ", "cluster", " ", "centers"}]}], " ", "\[IndentingNewLine]", "*)"}]], "Input", CellChangeTimes->{{3.8222260892678566`*^9, 3.82222610278461*^9}},ExpressionUUID->"afa5fc91-31ad-41c3-9220-\ 634471d971ee"] }, Open ]], Cell[CellGroupData[{ Cell["Modules", "Section", CellChangeTimes->{{3.8078491295101776`*^9, 3.8078491372599535`*^9}},ExpressionUUID->"c0536289-39a6-4031-b6a0-\ acf2dac557b6"], Cell[CellGroupData[{ Cell["Membership matrix - popravljeno", "Subsection", CellChangeTimes->{{3.8078777882984753`*^9, 3.8078777985842714`*^9}, { 3.8079374102859097`*^9, 3.8079374189803286`*^9}, {3.820845373647959*^9, 3.8208453766487136`*^9}},ExpressionUUID->"2ec3b42c-7bad-496a-9122-\ 1263e8e5ec67"], Cell[BoxData[{ RowBox[{ RowBox[{"q", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"mu", "[", RowBox[{"A_", ",", "cen_", ",", "i_", ",", "j_"}], "]"}], ":=", RowBox[{"1", "/", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"cen", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "^", "2"}], "/", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"cen", "[", RowBox[{"[", "s", "]"}], "]"}]}], "]"}], "^", "2"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", RowBox[{"(", RowBox[{"q", "-", "1"}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", "cen", "]"}]}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "=", "2"}], ";", RowBox[{"Clear", "[", RowBox[{"i", ",", "j"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mu", "[", RowBox[{"A_", ",", "cen_", ",", "i_", ",", "j_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"uu", ",", RowBox[{"Ii", "=", RowBox[{"{", "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", RowBox[{"cen", "[", RowBox[{"[", "s", "]"}], "]"}]}], ",", RowBox[{"Ii", "=", RowBox[{"Append", "[", RowBox[{"Ii", ",", "s"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", "cen", "]"}]}], "}"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ii", "\[Equal]", RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"uu", "=", RowBox[{"1", "/", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"cen", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "^", "2"}], "/", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"cen", "[", RowBox[{"[", "s", "]"}], "]"}]}], "]"}], "^", "2"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", RowBox[{"(", RowBox[{"q", "-", "1"}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", "cen", "]"}]}], "}"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"Ii", ",", "j"}], "]"}], ",", RowBox[{"uu", "=", RowBox[{"1", "/", RowBox[{"Length", "[", "Ii", "]"}]}]}], ",", RowBox[{"uu", "=", "0"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "uu"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellChangeTimes->{{3.820826205771112*^9, 3.8208262951791215`*^9}, { 3.82082633824588*^9, 3.820826397548661*^9}, {3.820826444494691*^9, 3.8208264632393503`*^9}, {3.820826494292814*^9, 3.8208265641605263`*^9}, { 3.820826652840949*^9, 3.8208267276930323`*^9}, {3.8208268069050922`*^9, 3.8208268326514974`*^9}, {3.820827049811698*^9, 3.82082706725677*^9}, { 3.8208271235088797`*^9, 3.8208271593021393`*^9}, 3.82082739762513*^9, { 3.8208276287367325`*^9, 3.820827629663528*^9}, {3.8208452780587463`*^9, 3.820845305606882*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"0503c66f-0cac-4c4e-8e88-794c1e0751c8"] }, Open ]], Cell[CellGroupData[{ Cell["Fuzzy objective function", "Subsection", CellChangeTimes->{ 3.5854097085807176`*^9, 3.585637218737363*^9, {3.7255165931679688`*^9, 3.725516594386836*^9}, {3.8078509217486286`*^9, 3.8078509235303373`*^9}},ExpressionUUID->"b99ef419-b301-4b56-b3bc-\ 3a87251c99af"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Fz", "[", RowBox[{"A_", ",", "cen_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"m", "=", RowBox[{"Length", "[", "A", "]"}]}], ",", RowBox[{"k", "=", RowBox[{"Length", "[", "cen", "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Return", "[", "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"mu", "[", RowBox[{"A", ",", "cen", ",", "i", ",", "j"}], "]"}], "^", "q"}], " ", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"cen", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\t", "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", 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.724041619150714*^9, 3.7240416260661516`*^9}, {3.7240418334787807`*^9, 3.7240418762726283`*^9}, {3.7240419092262836`*^9, 3.724041910005359*^9}, { 3.7240419457023067`*^9, 3.724041984153574*^9}, {3.724042028248847*^9, 3.72404206950558*^9}, {3.7240422848453293`*^9, 3.724042286792523*^9}, 3.724045515376709*^9, 3.7255205876973066`*^9, {3.7255230033161693`*^9, 3.725523022546343*^9}, {3.807850938890945*^9, 3.8078509406073847`*^9}, { 3.807851014776679*^9, 3.8078510251455812`*^9}, {3.8078510788274*^9, 3.8078510943351793`*^9}, {3.808195777624118*^9, 3.8081957939175386`*^9}, 3.8267143540984955`*^9, {3.828179508347514*^9, 3.8281795089488573`*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"4ddcd84a-e47a-4888-8209-f828986445b4"] }, Open ]], Cell[CellGroupData[{ Cell["Fuzzy c - means algorithm\t\t", "Subsection", CellChangeTimes->{{3.525616360604874*^9, 3.5256163644892807`*^9}, 3.5256170782217345`*^9, 3.5262058902050314`*^9, 3.5262060212488317`*^9, 3.526206146804221*^9, {3.5262146495319996`*^9, 3.526214660301216*^9}, { 3.526268235603675*^9, 3.5262682603453183`*^9}, {3.526271497881405*^9, 3.526271504183816*^9}, {3.526272345602494*^9, 3.526272371124139*^9}, { 3.526272761748825*^9, 3.5262727798448563`*^9}, {3.5262733652982845`*^9, 3.5262734414576187`*^9}, {3.526273604665105*^9, 3.5262736247735405`*^9}, 3.526289526950795*^9, {3.5712988897963448`*^9, 3.5712989095705805`*^9}, { 3.5713006259192133`*^9, 3.5713007138277683`*^9}, {3.5713007531946383`*^9, 3.571300771948871*^9}, {3.5713008158719487`*^9, 3.5713008213017583`*^9}, { 3.5713010538319693`*^9, 3.571301059058978*^9}, {3.5713026879974575`*^9, 3.5713027468205614`*^9}, {3.571302831529111*^9, 3.571302841748129*^9}, { 3.5713028969822264`*^9, 3.571302908216246*^9}, {3.571303208091176*^9, 3.571303209541979*^9}, {3.5713032974143333`*^9, 3.5713033007069397`*^9}, { 3.5713034979916883`*^9, 3.5713034993176904`*^9}, {3.571303581655036*^9, 3.5713035867260447`*^9}, {3.571304578139395*^9, 3.5713046065042453`*^9}, { 3.571304657245535*^9, 3.571304680884577*^9}, {3.571310017656273*^9, 3.571310032448099*^9}, {3.571310291879758*^9, 3.571310305546382*^9}, { 3.5713118990221987`*^9, 3.5713118994433994`*^9}, {3.5713119570019007`*^9, 3.5713119573451014`*^9}, 3.5713122470594134`*^9, 3.571365674705989*^9, { 3.57136576008634*^9, 3.57136582210345*^9}, 3.5713658564929104`*^9, { 3.571365903925994*^9, 3.5713659117592077`*^9}, {3.571365953060481*^9, 3.571365988119743*^9}, 3.571366114458166*^9, {3.5713663292159452`*^9, 3.5713664037264786`*^9}, {3.5713664475247555`*^9, 3.5713664652181873`*^9}, {3.583463667516041*^9, 3.5834636763476562`*^9}, { 3.5834637448145776`*^9, 3.5834638126820984`*^9}, {3.583463928036507*^9, 3.583463936587322*^9}, {3.5834640002474346`*^9, 3.5834640785287733`*^9}, { 3.583464283239937*^9, 3.583464301667569*^9}, {3.583464610199915*^9, 3.5834646193279314`*^9}, {3.58346479905805*^9, 3.58346481041787*^9}, { 3.5845924958427024`*^9, 3.584592509620527*^9}, {3.585384188395161*^9, 3.585384194558172*^9}, {3.5853842286668324`*^9, 3.5853842303828354`*^9}, { 3.5853904610529246`*^9, 3.5853905905625544`*^9}, {3.585390754049445*^9, 3.585390759806855*^9}, {3.585390809549743*^9, 3.5853908141215515`*^9}, { 3.5853908518494177`*^9, 3.585390872960255*^9}, {3.585390921657941*^9, 3.5853909252001476`*^9}, {3.585390970713428*^9, 3.585390982041048*^9}, { 3.5853911246397*^9, 3.5853911371851225`*^9}, {3.5853912967752047`*^9, 3.5853913671453285`*^9}, {3.585391510369982*^9, 3.5853915141461887`*^9}, { 3.5853916673824606`*^9, 3.5853916997117176`*^9}, {3.5853917298881707`*^9, 3.585391759222223*^9}, 3.5853919038976784`*^9, {3.585392081138392*^9, 3.585392094275615*^9}, {3.5853921646925397`*^9, 3.5853921652385406`*^9}, { 3.5853922544282985`*^9, 3.5853922707645273`*^9}, 3.5853926411463823`*^9, { 3.585392743689764*^9, 3.5853927724466143`*^9}, {3.585392821861902*^9, 3.585392892625027*^9}, {3.585392980566783*^9, 3.5853929924560037`*^9}, { 3.585393022648057*^9, 3.5853930568971176`*^9}, {3.585393089367775*^9, 3.585393089882576*^9}, {3.585393512453127*^9, 3.5853935139839296`*^9}, { 3.5853940508786793`*^9, 3.585394204396752*^9}, {3.5853942383172116`*^9, 3.5853942783236823`*^9}, {3.585394313274744*^9, 3.5853943259761667`*^9}, { 3.5853974538852997`*^9, 3.5853975400466523`*^9}, {3.585397570571306*^9, 3.585397570884307*^9}, {3.5853976141687837`*^9, 3.58539765707786*^9}, { 3.585398300135197*^9, 3.5853983391120663`*^9}, {3.585398538675419*^9, 3.585398561316059*^9}, {3.5853988501949697`*^9, 3.5853989417095327`*^9}, { 3.5853990606827426`*^9, 3.585399182486558*^9}, {3.5853994070305552`*^9, 3.585399461906852*^9}, {3.585399572267847*^9, 3.5853995737810497`*^9}, { 3.5853999723233557`*^9, 3.585400002031808*^9}, {3.585400050261493*^9, 3.5854000549113016`*^9}, {3.5854000992373805`*^9, 3.5854001568446827`*^9}, {3.5854012476180143`*^9, 3.5854012947234974`*^9}, {3.5854014618211927`*^9, 3.585401501578063*^9}, { 3.5854022421005745`*^9, 3.5854022449407797`*^9}, {3.5854023168251066`*^9, 3.585402336141941*^9}, {3.5854024165714836`*^9, 3.585402484833604*^9}, { 3.585408314941718*^9, 3.5854083322551494`*^9}, {3.5854083697334156`*^9, 3.585408392125257*^9}, {3.5854084715109262`*^9, 3.5854084897045584`*^9}, { 3.585408900137684*^9, 3.5854089006368847`*^9}, {3.5854090232785025`*^9, 3.5854090238401036`*^9}, {3.5854091870407925`*^9, 3.585409229653468*^9}, { 3.5854097244021454`*^9, 3.585409746340784*^9}, {3.5856371040607595`*^9, 3.5856371057309628`*^9}, 3.588251133089259*^9, 3.588654178816718*^9, { 3.649209957073268*^9, 3.6492099581496696`*^9}, {3.8078493614065685`*^9, 3.8078493665635753`*^9}, {3.8078779324197307`*^9, 3.8078779340084457`*^9}},ExpressionUUID->"b645d237-04f6-4307-8430-\ 060d63804ec0"], Cell[BoxData[ RowBox[{ RowBox[{"cmeans", "[", RowBox[{"A_", ",", "z_", ",", RowBox[{"Ind_:", "0"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"q", "=", "2"}], ",", RowBox[{"k", "=", RowBox[{"Length", "[", "z", "]"}]}], ",", RowBox[{"m", "=", RowBox[{"Length", "[", "A", "]"}]}], ",", "F1", ",", "F2", ",", " ", "cen", ",", RowBox[{"eps", "=", ".00005"}], ",", RowBox[{"It", "=", "20"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t\t\t\t", RowBox[{"(*", " ", RowBox[{"Initial", " ", "approximation"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"kk", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"cen", "=", RowBox[{"z", "//", "N"}]}], ";", "\[IndentingNewLine]", RowBox[{"U1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"mu", "[", RowBox[{"A", ",", "cen", ",", "i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"F1", "=", RowBox[{"Fz", "[", RowBox[{"A", ",", "cen"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"slcen", "=", RowBox[{"ListPlot", "[", RowBox[{"cen", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", ".04", "]"}], ",", RowBox[{"Opacity", "[", ".7", "]"}]}], "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sl2", "=", RowBox[{"Show", "[", RowBox[{"slA", ",", "slcen"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"slA", ",", "sl2"}], "}"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\t\t\t\t\t\t", RowBox[{"(*", " ", RowBox[{"While", " ", "loop"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"While", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cenN", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"mu", "[", RowBox[{"A", ",", "cen", ",", "i", ",", "j"}], "]"}], "^", "q"}], " ", RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], "/", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"mu", "[", RowBox[{"A", ",", "cen", ",", "i", ",", "j"}], "]"}], "^", "q"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"slcen", "=", RowBox[{"ListPlot", "[", RowBox[{"cenN", ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[SixPointedStar]\>\"", ",", "20"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"PointSize", "[", ".04", "]"}], ",", RowBox[{"Opacity", "[", ".7", "]"}]}], "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sl1", "=", "sl2"}], ";", " ", RowBox[{"sl2", "=", RowBox[{"Show", "[", RowBox[{"slA", ",", "slcen"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"sl1", ",", "sl2"}], "}"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"mu", "[", RowBox[{"A", ",", "cenN", ",", "i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", " ", RowBox[{"DelU", "=", RowBox[{"U2", "-", "U1"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U1", "=", "U2"}], ";", "\[IndentingNewLine]", RowBox[{"F2", "=", RowBox[{"Fz", "[", RowBox[{"A", ",", "cenN"}], "]"}]}], ";", RowBox[{"DelF", "=", RowBox[{"Abs", "[", RowBox[{ RowBox[{"(", RowBox[{"F1", "-", "F2"}], ")"}], "/", "F2"}], "]"}]}], ";", RowBox[{"F1", "=", "F2"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", "0"}], ",", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "kk", ",", "\"\<: centri=\>\"", ",", "cenN", ",", "\"\<; Fz = \>\"", ",", "F2", ",", "\"\<; accuracy(U) = \>\"", ",", RowBox[{"Norm", "[", "DelU", "]"}], ",", "\"\<; accuracy(F)=\>\"", ",", " ", "DelF"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Norm", "[", "DelU", "]"}], ">", "eps"}], " ", "*)"}], RowBox[{ RowBox[{"DelF", ">", "eps"}], "&&", " ", RowBox[{"kk", "<", "It"}]}]}], ",", RowBox[{ RowBox[{"F1", "=", "F2"}], ";", "\[IndentingNewLine]", RowBox[{"kk", "=", RowBox[{"kk", "+", "1"}]}], ";", RowBox[{"cen", "=", "cenN"}]}]}], "\[IndentingNewLine]", " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"cen", ",", "U2", ",", "kk", ",", "DelF"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.8078514112201853`*^9, 3.8078514192323403`*^9}, { 3.8078516404656463`*^9, 3.807851757732685*^9}, {3.8078518507440805`*^9, 3.807851859746231*^9}, {3.8078519245678983`*^9, 3.807851947265774*^9}, { 3.807851990060711*^9, 3.8078520288719716`*^9}, {3.80785233087988*^9, 3.80785233228903*^9}, {3.8078524245278435`*^9, 3.8078524272678857`*^9}, 3.8078525534997044`*^9, 3.8078525950610743`*^9, {3.8078528972152863`*^9, 3.8078528982958794`*^9}, {3.807854621865383*^9, 3.8078546649092937`*^9}, { 3.8078547977284822`*^9, 3.807854802464085*^9}, {3.8078548466132355`*^9, 3.8078549168155546`*^9}, {3.8078549473837185`*^9, 3.8078549625284185`*^9}, {3.807855023717255*^9, 3.807855040443483*^9}, { 3.807855152498565*^9, 3.807855167387561*^9}, {3.8078554200231667`*^9, 3.8078554252628183`*^9}, {3.807855482729787*^9, 3.8078555061250257`*^9}, 3.807855731594569*^9, {3.807856102489863*^9, 3.8078561035771446`*^9}, { 3.8078784123550158`*^9, 3.807878413513898*^9}, {3.8080204210583982`*^9, 3.8080204221200504`*^9}, {3.8080204617990694`*^9, 3.808020519461898*^9}, { 3.808021943461977*^9, 3.8080219556933146`*^9}, {3.808022040078498*^9, 3.8080220456769075`*^9}, {3.8080221188475094`*^9, 3.8080221400335984`*^9}, {3.8080223381800385`*^9, 3.808022412158371*^9}, 3.808022542886857*^9, {3.8080225961984253`*^9, 3.808022603180905*^9}, { 3.808023034871134*^9, 3.808023117555831*^9}, {3.808023177112398*^9, 3.80802318618535*^9}, 3.808024269725197*^9, {3.808027625985741*^9, 3.8080276713205805`*^9}, {3.808027714290386*^9, 3.8080277612038827`*^9}, { 3.808028806416877*^9, 3.8080288083876705`*^9}, 3.808028852259066*^9, { 3.8273005500636764`*^9, 3.827300594026806*^9}, {3.827300684623496*^9, 3.827300763137643*^9}, {3.8273007959877634`*^9, 3.8273008168845315`*^9}, { 3.8273009099647164`*^9, 3.8273009233417664`*^9}, {3.8273009819249587`*^9, 3.827301019305402*^9}, {3.827301183299717*^9, 3.827301224094799*^9}, { 3.828179542375361*^9, 3.8281795500570955`*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"54383e9b-d9fb-45f3-98bf-1a4b462db071"] }, Closed]], Cell[CellGroupData[{ Cell["Fuzzy Incremental Algorithm", "Subsection", CellChangeTimes->{{3.807410659943698*^9, 3.807410671560322*^9}, { 3.8273174007352057`*^9, 3.8273174122533665`*^9}},ExpressionUUID->"3ea0fb14-8904-45b6-9e78-\ d2c154989c90"], Cell[BoxData[ RowBox[{ RowBox[{"FInc", "[", RowBox[{"A_", ",", "z_", ",", "KK_", ",", RowBox[{"Ind_:", "0"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"k", ",", "centri", ",", RowBox[{"m", "=", RowBox[{"Length", "[", "A", "]"}]}], ",", RowBox[{"n", "=", RowBox[{"Length", "[", RowBox[{"A", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ",", "dom", ",", RowBox[{"TT", "=", "0"}]}], "}"}], ",", "\[IndentingNewLine]", "\t\t\t\t\t", RowBox[{"(*", " ", "Initialization", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"centri", "=", "z"}], ";", "\[IndentingNewLine]", RowBox[{"PART", "=", RowBox[{"{", "}"}]}], ";", RowBox[{"IndFXB", "=", RowBox[{"IndFCH", "=", RowBox[{"IndFDB", "=", RowBox[{"IndFHV", "=", RowBox[{"IndRand", "=", RowBox[{"IndJaccard", "=", RowBox[{"IndH", "=", RowBox[{"{", "}"}]}]}]}]}]}]}]}], ";", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"(*", " ", RowBox[{"Iterative", " ", "Procedure"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\<\\nNa postojecih \>\"", ",", RowBox[{"Length", "[", "centri", "]"}], ",", "\"\< centara dodaje se 1 novi\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"u", ",", "v"}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"dom", "=", "AG"}], ";", "\[IndentingNewLine]", "\t\t\t\t\t", RowBox[{"(*", " ", "Compile", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"FCompile", "=", RowBox[{"Compile", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "_Real"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Evaluate", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Min", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"centri", "[", RowBox[{"[", "s", "]"}], "]"}]}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", "centri", "]"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"{", RowBox[{"u", ",", "v"}], "}"}]}], "]"}], "^", "2"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], " ", "]"}]}], "]"}]}], ";", "\t", "\[IndentingNewLine]", RowBox[{ RowBox[{"F2", "[", RowBox[{"u_", ",", "v_"}], "]"}], ":=", RowBox[{"Apply", "[", RowBox[{"FCompile", ",", RowBox[{"{", RowBox[{"u", ",", "v"}], "}"}]}], "]"}]}], ";", "\t", "\[IndentingNewLine]", "\t\t\t\t\t\t", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"Non", " ", "Compile", " ", "\[IndentingNewLine]", RowBox[{"F2", "[", RowBox[{"u_", ",", "v_"}], "]"}]}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Min", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"centri", "[", RowBox[{"[", "s", "]"}], "]"}]}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", "centri", "]"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"{", RowBox[{"u", ",", "v"}], "}"}]}], "]"}], "^", "2"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", "\t\t\t\t\t\t\t\t", RowBox[{"(*", " ", "DIRECT", " ", "*)"}], "\[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[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "min"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"centriN", "=", RowBox[{"Append", "[", RowBox[{"centri", ",", RowBox[{"min", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", "0"}], ",", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "centriN"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\t\t\t\t\t", RowBox[{"(*", " ", RowBox[{ RowBox[{"Poziv", " ", "c"}], "-", "means"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"t1", "=", RowBox[{"Timing", "[", RowBox[{"sol", "=", RowBox[{"cmeans", "[", RowBox[{"A", ",", "centriN", ",", "0"}], "]"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"TT", "=", RowBox[{"TT", "+", RowBox[{"minp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"t1", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"k", "=", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", "0"}], ",", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", "0"}], ",", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Fz", "[", RowBox[{"A", ",", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", "\"\<; Time (DIRECT+cmeans) = \>\"", ",", RowBox[{"minp", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\"\<+\>\"", ",", RowBox[{"t1", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\"\< = \>\"", ",", RowBox[{ RowBox[{"minp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"t1", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"fch", "=", RowBox[{"FCH", "[", RowBox[{"A", ",", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";", RowBox[{"IndFCH", "=", RowBox[{"Append", "[", RowBox[{"IndFCH", ",", "fch"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fdb", "=", RowBox[{"FDB", "[", RowBox[{"A", ",", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";", RowBox[{"IndFDB", "=", RowBox[{"Append", "[", RowBox[{"IndFDB", ",", "fdb"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fxb", "=", RowBox[{"FXB", "[", RowBox[{"A", ",", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";", RowBox[{"IndFXB", "=", RowBox[{"Append", "[", RowBox[{"IndFXB", ",", "fxb"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", "0"}], ",", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Length", "[", "centriN", "]"}], ",", "\"\<; FCH=\>\"", ",", "fch", ",", "\"\<; FDB=\>\"", ",", "fdb", ",", "\"\<; FXB=\>\"", ",", "fxb"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"ind", "=", RowBox[{"RandFrigue", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "U0"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"Huel", "=", RowBox[{"Hullermeier", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "U0"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"HD", "=", RowBox[{"Hdist", "[", RowBox[{"centers", ",", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", "0"}], ",", RowBox[{"Print", "[", RowBox[{"\"\<{Rand, Jaccard, Hausdorff}: \>\"", ",", RowBox[{"{", RowBox[{"ind", ",", "HD"}], "}"}]}], " ", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"IndRand", "=", RowBox[{"Append", "[", RowBox[{"IndRand", ",", RowBox[{"ind", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IndJaccard", "=", RowBox[{"Append", "[", RowBox[{"IndJaccard", ",", RowBox[{"ind", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IndH", "=", RowBox[{"Append", "[", RowBox[{"IndH", ",", "HD"}], "]"}]}], ";", "\[IndentingNewLine]", " \ ", RowBox[{"(*", " ", "FIGUREE", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"n", "\[Equal]", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"k", "=", RowBox[{"Length", "[", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"slc", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[SixPointedStar]\>\"", ",", "20"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"PointSize", "[", ".025", "]"}], ",", RowBox[{"Opacity", "[", ".9", "]"}]}], "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rad", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"mu", "[", RowBox[{"A", ",", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "i", ",", "j"}], "]"}], "^", "q"}], " ", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "j"}], "]"}], "]"}], "-", RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "A", "]"}]}], "}"}]}], "]"}], "/", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"mu", "[", RowBox[{"A", ",", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "i", ",", "j"}], "]"}], "^", "q"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rad", "=", RowBox[{"Sqrt", "[", "rad", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sle1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", RowBox[{"1", ",", "j"}], "]"}], "]"}], ",", RowBox[{"rad", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\t\t", RowBox[{"(*", " ", RowBox[{ "Ovo", " ", "je", " ", "samo", " ", "za", " ", "crtanje", " ", "sljedeceg", " ", "centra"}], " ", "*)"}], "\[IndentingNewLine]", "\t\t\t\t\t\t", RowBox[{"(*", " ", "Compile", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"u", ",", "v", ",", "F2"}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"FCompile", "=", RowBox[{"Compile", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "_Real"}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "_Real"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Evaluate", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Min", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"centriN", "[", RowBox[{"[", "s", "]"}], "]"}]}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"Length", "[", "centriN", "]"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"{", RowBox[{"u", ",", "v"}], "}"}]}], "]"}], "^", "2"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], " ", "]"}]}], "]"}]}], ";", "\t", "\[IndentingNewLine]", RowBox[{ RowBox[{"F2", "[", RowBox[{"u_", ",", "v_"}], "]"}], ":=", RowBox[{"Apply", "[", RowBox[{"FCompile", ",", RowBox[{"{", RowBox[{"u", ",", "v"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mini", "=", RowBox[{"DIRECT", "[", RowBox[{"F2", ",", "dom", ",", RowBox[{"DMin", "\[Rule]", RowBox[{"10.", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ",", RowBox[{"MaxIter", "\[Rule]", "20"}], ",", " ", RowBox[{"Eps", "\[Rule]", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nextc", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"mini", "[", RowBox[{"[", "1", "]"}], "]"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", ".04", "]"}], ",", RowBox[{"Opacity", "[", ".8", "]"}]}], "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\t\t\t\t\t\t\t\t", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Show", "[", RowBox[{"slA", ",", "sle1", ",", "slc", ",", "nextc", ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "AG"}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\t\t\t ", "\[IndentingNewLine]", RowBox[{"centri", "=", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"PART", "=", RowBox[{"Append", "[", RowBox[{"PART", ",", RowBox[{"{", RowBox[{ RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"brk", ",", "KK"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"(*", " ", "Indexes", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", "0"}], ",", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "IndRand", ",", "\"\<\\nJaccard: \>\"", ",", "IndJaccard", ",", "\"\<\\nHausdorff: \>\"", ",", "IndH", ",", "\"\<\\nFXB: \>\"", ",", "IndFXB", ",", "\"\<\\nFCH: \>\"", ",", "IndFCH", ",", "\"\<\\nIndFDB: \>\"", ",", "IndFDB"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "TT"}], "]"}], ";", "\[IndentingNewLine]", "\t\t\t\t", RowBox[{"(*", " ", "Figures", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ind", "\[NotEqual]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"slRand", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "+", "1"}], ",", RowBox[{"IndRand", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "KK"}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", RowBox[{".75", RowBox[{"Min", "[", "IndRand", "]"}]}]}], "}"}]}], ",", RowBox[{"PlotLabel", "->", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "200"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"slJaccard", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "+", "1"}], ",", RowBox[{"IndJaccard", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "KK"}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", RowBox[{".75", RowBox[{"Min", "[", "IndJaccard", "]"}]}]}], "}"}]}], ",", RowBox[{"PlotLabel", "->", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "200"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"slH", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "+", "1"}], ",", RowBox[{"IndH", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "KK"}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", RowBox[{".75", RowBox[{"Min", "[", "IndH", "]"}]}]}], "}"}]}], ",", RowBox[{"PlotLabel", "->", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "200"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"slFXB", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "+", "1"}], ",", RowBox[{"IndFXB", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "KK"}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", RowBox[{".75", RowBox[{"Min", "[", "IndFXB", "]"}]}]}], "}"}]}], ",", RowBox[{"PlotLabel", "->", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "200"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"slFDB", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "+", "1"}], ",", RowBox[{"IndFDB", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "KK"}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", RowBox[{".75", RowBox[{"Min", "[", "IndFDB", "]"}]}]}], "}"}]}], ",", RowBox[{"PlotLabel", "->", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "200"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"slFCH", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "+", "1"}], ",", RowBox[{"IndFCH", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "KK"}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", RowBox[{".75", RowBox[{"Min", "[", "IndFCH", "]"}]}]}], "}"}]}], ",", RowBox[{"PlotLabel", "->", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "200"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{"GraphicsGrid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"slFXB", ",", "slFDB", ",", "slFCH"}], "}"}], ",", RowBox[{"{", RowBox[{"slRand", ",", "slJaccard", ",", "slH"}], "}"}]}], "}"}], "]"}], "]"}], "]"}]}]}], "]"}], ";", "\t", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "PART", ",", "IndRand", ",", "IndJaccard", ",", "IndH", ",", "IndFXB", ",", "IndFCH", ",", "IndFDB"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{ 3.8070778620207543`*^9, {3.80733446123423*^9, 3.8073344821723948`*^9}, { 3.8073346145618553`*^9, 3.8073346302463217`*^9}, {3.807334698037506*^9, 3.8073347184914775`*^9}, {3.8073349721611814`*^9, 3.8073349736876945`*^9}, {3.8073351196979313`*^9, 3.807335126531347*^9}, { 3.8073351769899893`*^9, 3.8073352053562717`*^9}, {3.8073352984773903`*^9, 3.8073352994493713`*^9}, {3.807335339727481*^9, 3.8073353638525753`*^9}, { 3.8073354162146497`*^9, 3.8073354465280714`*^9}, {3.807335671662741*^9, 3.807335677053487*^9}, {3.807335728274678*^9, 3.8073357329032955`*^9}, { 3.8073358381795793`*^9, 3.807335898447956*^9}, {3.80733594665902*^9, 3.807336000648595*^9}, {3.8073363351640787`*^9, 3.8073363624567394`*^9}, { 3.8073367831195264`*^9, 3.807336798441772*^9}, 3.8073369675357203`*^9, { 3.807337015721323*^9, 3.8073370200457835`*^9}, {3.8073370738850594`*^9, 3.807337162001289*^9}, {3.807337961891038*^9, 3.8073379733665233`*^9}, { 3.807338054022019*^9, 3.807338088743576*^9}, {3.8073382322166643`*^9, 3.8073382393794684`*^9}, {3.8073382879677753`*^9, 3.807338308191094*^9}, { 3.80733840302866*^9, 3.80733840414657*^9}, {3.8073384473515196`*^9, 3.8073384971076527`*^9}, {3.8073387035938787`*^9, 3.8073387104408836`*^9}, {3.807339479623116*^9, 3.807339510226123*^9}, { 3.8073398015564127`*^9, 3.8073398025939713`*^9}, {3.8073564568316755`*^9, 3.8073564637983723`*^9}, {3.8073564996845603`*^9, 3.807356524999864*^9}, { 3.8073568821352215`*^9, 3.8073569199888525`*^9}, {3.807356972072094*^9, 3.8073569971977415`*^9}, {3.8073571818289666`*^9, 3.8073572386848974`*^9}, {3.8073574765727167`*^9, 3.8073574805843406`*^9}, {3.8073575214466944`*^9, 3.80735768877625*^9}, { 3.8073577189030027`*^9, 3.807357737031109*^9}, {3.807357982437543*^9, 3.8073580235909605`*^9}, {3.807358112436776*^9, 3.8073581221479855`*^9}, { 3.8073594490319176`*^9, 3.807359462933496*^9}, {3.807407554951126*^9, 3.8074075558159904`*^9}, {3.807407593591377*^9, 3.807407594301564*^9}, 3.8074077065700765`*^9, 3.8074077472515497`*^9, {3.80740777730503*^9, 3.8074078151683707`*^9}, 3.8074080882620025`*^9, {3.8074082976874766`*^9, 3.807408307053293*^9}, {3.8074083437767057`*^9, 3.8074083441510043`*^9}, 3.8074095488890676`*^9, {3.8074096266895733`*^9, 3.807409632359295*^9}, { 3.8074102411066046`*^9, 3.8074102716703696`*^9}, {3.807410499094212*^9, 3.8074105121670904`*^9}, 3.8074111154401236`*^9, {3.808017487467102*^9, 3.808017508082413*^9}, {3.8080176115850554`*^9, 3.8080176154949474`*^9}, { 3.8080177473288226`*^9, 3.80801782105583*^9}, {3.8080178552514153`*^9, 3.8080179191197767`*^9}, {3.8080179524676123`*^9, 3.8080180602047634`*^9}, {3.8080181874382625`*^9, 3.808018211523689*^9}, { 3.808018296064846*^9, 3.8080184745727005`*^9}, {3.80801851756781*^9, 3.8080185456293344`*^9}, {3.8080186045791636`*^9, 3.808018605966054*^9}, { 3.8080187331960926`*^9, 3.80801882962487*^9}, {3.808019131535711*^9, 3.8080191431406097`*^9}, 3.808019194785721*^9, {3.808019241326264*^9, 3.808019271448477*^9}, {3.8080193505027647`*^9, 3.8080193606922803`*^9}, { 3.8080198026324177`*^9, 3.8080198460557203`*^9}, {3.8080200069616346`*^9, 3.8080200110039377`*^9}, 3.808020056516824*^9, {3.8080200948903847`*^9, 3.808020108515316*^9}, {3.8080217066238422`*^9, 3.80802172380904*^9}, 3.808021764155905*^9, {3.808023363346987*^9, 3.808023391581169*^9}, 3.8080234376664824`*^9, {3.808023468209673*^9, 3.8080234786935167`*^9}, { 3.8080236562922974`*^9, 3.8080236580053577`*^9}, {3.8080237554823675`*^9, 3.808023763145875*^9}, {3.808023980637613*^9, 3.8080240327575626`*^9}, 3.808024180959425*^9, {3.8080243120233583`*^9, 3.8080243406712093`*^9}, { 3.8080243728836546`*^9, 3.808024376728157*^9}, {3.80802441691647*^9, 3.8080244175059595`*^9}, {3.808024714986085*^9, 3.8080247536203003`*^9}, { 3.8080248760236254`*^9, 3.8080248798078136`*^9}, {3.8080251688543015`*^9, 3.8080251694363513`*^9}, {3.8080253234725013`*^9, 3.808025401641448*^9}, { 3.8080256335897083`*^9, 3.8080257012118573`*^9}, {3.8080258303867445`*^9, 3.8080258322876854`*^9}, {3.808025926612808*^9, 3.8080259272708406`*^9}, 3.8080284765294*^9, {3.8080290134033995`*^9, 3.808029015723693*^9}, { 3.8080462819956975`*^9, 3.808046326143379*^9}, {3.8080463622500887`*^9, 3.8080464494215565`*^9}, {3.8080464859419794`*^9, 3.8080465065092793`*^9}, {3.8080465425911245`*^9, 3.8080466715951395`*^9}, {3.8080467510200653`*^9, 3.808046785350086*^9}, { 3.808046817481633*^9, 3.808046916872596*^9}, {3.808048647801354*^9, 3.808048690642096*^9}, {3.8080489586961365`*^9, 3.80804897416216*^9}, { 3.8080490281121063`*^9, 3.808049049395793*^9}, 3.808452184588271*^9, 3.8089635147391834`*^9, {3.8089841328828225`*^9, 3.8089841519743586`*^9}, { 3.808984700934676*^9, 3.808984704020496*^9}, {3.8089847663699713`*^9, 3.8089848376136804`*^9}, {3.8089850370913124`*^9, 3.8089850380287156`*^9}, {3.8089852548830523`*^9, 3.808985259047535*^9}, { 3.8094112333981647`*^9, 3.809411279959066*^9}, {3.809411311186953*^9, 3.809411327031459*^9}, 3.809411442729566*^9, 3.8094114783490057`*^9, { 3.8094130613741493`*^9, 3.8094130823324313`*^9}, {3.8094131329124985`*^9, 3.809413136878616*^9}, {3.8094132173964767`*^9, 3.8094132936849327`*^9}, { 3.8130492229012623`*^9, 3.8130492505378075`*^9}, {3.828179575930887*^9, 3.8281795784355664`*^9}, 3.8301609536265726`*^9, {3.8301610078586555`*^9, 3.8301610196260896`*^9}}, CellLabel-> "In[129]:=",ExpressionUUID->"1acf1efc-f54a-4e8e-bc84-4da73c4964ab"] }, Closed]], Cell[CellGroupData[{ Cell["Indexes", "Subsection", CellChangeTimes->{{3.7256073571804748`*^9, 3.7256073672793093`*^9}},ExpressionUUID->"49bdfdf1-80d8-405a-839b-\ 2d709819d758"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Xie", "-", RowBox[{"Beni", " ", "fuzzy", " ", "index"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "FXB", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FXB", "[", RowBox[{"A_", ",", "cen_", ",", "U_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"m", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{"m", "=", RowBox[{"Length", "[", "A", "]"}]}], ";", RowBox[{"k", "=", RowBox[{"Length", "[", "cen", "]"}]}], ";", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"U", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "q"}], " ", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"cen", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], "/", RowBox[{"(", RowBox[{"m", "*", RowBox[{"Min", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"cen", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"cen", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"k", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "k"}], "}"}]}], "]"}], ",", "1"}], "]"}], "]"}]}], ")"}]}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Davies", "-", RowBox[{"Bouldin", " ", "fuzzy", " ", "index"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "FDB", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FDB", "[", RowBox[{"A_", ",", "cen_", ",", "U_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"m", "=", RowBox[{"Length", "[", "A", "]"}]}], ",", RowBox[{"k", "=", RowBox[{"Length", "[", "cen", "]"}]}], ",", "VV", ",", "max", ",", RowBox[{"sum", "=", "0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"VV", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"VV", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"U", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "q"}], " ", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"cen", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], "/", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"U", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "q"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", " ", ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"max", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[NotEqual]", "j"}], ",", RowBox[{"max", "=", RowBox[{"Append", "[", RowBox[{"max", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"VV", "[", RowBox[{"[", "i", "]"}], "]"}], "+", RowBox[{"VV", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "/", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"cen", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"cen", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], " ", "^", "2"}]}]}], "]"}]}]}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", "k"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"sum", "=", RowBox[{"sum", "+", RowBox[{"Max", "[", "max", "]"}]}]}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"sum", "/", "k"}]}]}], "\[IndentingNewLine]", " ", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Calinski", "-", RowBox[{"Harabasz", " ", "fuzzy", " ", "index"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "FCH", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FCH", "[", RowBox[{"A_", ",", "cen_", ",", "U_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"m", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{"m", "=", RowBox[{"Length", "[", "A", "]"}]}], ";", RowBox[{"k", "=", RowBox[{"Length", "[", "cen", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"cc", "=", RowBox[{"Mean", "[", "A", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"kappa", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"U", "[", RowBox[{"[", RowBox[{"ii", ",", "j"}], "]"}], "]"}], "^", "q"}], ",", RowBox[{"{", RowBox[{"ii", ",", "m"}], "}"}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"kappa", "[", RowBox[{"[", "j", "]"}], "]"}], "*", RowBox[{ RowBox[{"Norm", "[", RowBox[{"cc", "-", RowBox[{"cen", "[", RowBox[{"[", "j", "]"}], "]"}]}], " ", "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], "/", RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"U", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "q"}], " ", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"cen", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}], "/", RowBox[{"(", RowBox[{"m", "-", "k"}], ")"}]}], ")"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.7256076810732865`*^9, {3.725607772049328*^9, 3.725607793017151*^9}, { 3.7256078320159206`*^9, 3.725607978521747*^9}, {3.7256080113731594`*^9, 3.7256080122905645`*^9}, {3.7256080573223805`*^9, 3.72560815090944*^9}, { 3.7256081809212584`*^9, 3.7256082970953717`*^9}, {3.725608351921254*^9, 3.725608358711321*^9}, {3.7256083984921694`*^9, 3.725608440889983*^9}, { 3.7256084725091467`*^9, 3.725608519903257*^9}, {3.7256085560624337`*^9, 3.725608589107362*^9}, {3.725608619594516*^9, 3.725608620788659*^9}, { 3.725608682900925*^9, 3.725608851664005*^9}, {3.725610369279866*^9, 3.725610381195572*^9}, {3.7256105106399965`*^9, 3.7256105289106092`*^9}, { 3.7256105773885956`*^9, 3.7256106442605343`*^9}, {3.7256107042762194`*^9, 3.7256107371567135`*^9}, {3.7256107826928763`*^9, 3.7256107830769005`*^9}, 3.7256108171665983`*^9, {3.725610861161704*^9, 3.7256108633324423`*^9}, 3.7256109232288113`*^9, {3.725610992701668*^9, 3.7256111445095997`*^9}, { 3.725611186319889*^9, 3.725611209337092*^9}, {3.725611267259213*^9, 3.725611268102498*^9}, 3.7256113160660777`*^9, {3.7256113779216976`*^9, 3.7256115297406178`*^9}, {3.725611574787487*^9, 3.725611577078624*^9}, { 3.7256119185532207`*^9, 3.725611946954793*^9}, {3.7256119843522882`*^9, 3.7256119911664267`*^9}, {3.725624363089554*^9, 3.725624373304741*^9}, { 3.7256246531672993`*^9, 3.7256246571930113`*^9}, {3.7256246893816586`*^9, 3.7256246956403465`*^9}, {3.7256257563051376`*^9, 3.725625783068348*^9}, 3.725625955938322*^9, {3.7256260159049215`*^9, 3.72562607880425*^9}, { 3.7256261343721466`*^9, 3.725626156325513*^9}, {3.725626280475855*^9, 3.725626287619909*^9}, {3.725626328244993*^9, 3.7256264036195145`*^9}, { 3.7256264758848467`*^9, 3.7256265151211977`*^9}, {3.725626759578684*^9, 3.7256267734435825`*^9}, 3.72562682573071*^9, {3.7256268681439037`*^9, 3.7256269585895567`*^9}, {3.725631839075894*^9, 3.7256318622844276`*^9}, { 3.7256319596745205`*^9, 3.7256319747035584`*^9}, {3.72563206808498*^9, 3.7256320776765428`*^9}, {3.7256324927920494`*^9, 3.7256325181826415`*^9}, {3.7256326015243635`*^9, 3.72563260202172*^9}, { 3.725980967830347*^9, 3.7259810282710094`*^9}, {3.72598111277672*^9, 3.725981114267641*^9}, {3.725981183377417*^9, 3.725981218712573*^9}, { 3.808030523209944*^9, 3.808030523505934*^9}, {3.808031820919571*^9, 3.8080318245772038`*^9}, 3.8080318832879705`*^9, {3.8080324325507517`*^9, 3.808032433784797*^9}, {3.8080324957586393`*^9, 3.8080325764158363`*^9}, { 3.808032620272132*^9, 3.8080327002425313`*^9}, {3.808032741716762*^9, 3.8080327477434874`*^9}, 3.80803279236156*^9, {3.8080328287525167`*^9, 3.8080328967236753`*^9}, {3.8080462106246014`*^9, 3.80804621119215*^9}, { 3.8080464701275682`*^9, 3.808046471625866*^9}, {3.808047863268696*^9, 3.808047938466256*^9}, {3.808048053015938*^9, 3.8080480584542866`*^9}, { 3.808049260418027*^9, 3.8080492614296083`*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"c3eb45f1-8c7f-411e-81c4-168499877e95"] }, Closed]], Cell[CellGroupData[{ Cell["Hausdorff distance between two sets of centroids", "Subsection", CellChangeTimes->{{3.583391840187419*^9, 3.5833918474278316`*^9}, { 3.5834155833889995`*^9, 3.5834155974164243`*^9}, {3.5847813598503017`*^9, 3.584781367511915*^9}, {3.585830854304944*^9, 3.585830857191949*^9}, { 3.58583330002109*^9, 3.585833320039925*^9}},ExpressionUUID->"ded787b6-3621-4a19-81df-\ ea91fd3b7ea4"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Hdist", "[", RowBox[{"a_", ",", "b_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"m", ",", "n", ",", "a1", ",", "b1"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "a", "]"}], ">", RowBox[{"Length", "[", "b", "]"}]}], ",", RowBox[{ RowBox[{"a1", "=", "b"}], ";", RowBox[{"b1", "=", "a"}]}], ",", RowBox[{ RowBox[{"a1", "=", "a"}], ";", RowBox[{"b1", "=", "b"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"m", "=", RowBox[{"Length", "[", "a1", "]"}]}], ";", RowBox[{"n", "=", RowBox[{"Length", "[", "b1", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Max", "[", RowBox[{ RowBox[{"Max", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Min", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"a1", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"b1", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "n"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Max", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Min", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"a1", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"b1", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "n"}], "}"}]}], "]"}], "]"}]}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input", CellLabel->"In[16]:=",ExpressionUUID->"16832d86-2cd5-4ccc-affb-a175268631f4"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Fuzzy Rand and Jaccard index according to Frigue et al. (2007)\ \>", "Subsection", CellChangeTimes->{{3.723697728796947*^9, 3.72369775187755*^9}, { 3.7237000172916794`*^9, 3.7237000203387995`*^9}, {3.725979423270348*^9, 3.7259794267836924`*^9}, 3.7259800606138906`*^9, {3.807858265310381*^9, 3.807858271049348*^9}},ExpressionUUID->"e25ade37-d63b-4e90-a3cc-\ b51e5ebfcfa6"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"A", ",", " ", RowBox[{"B", " ", "su", " ", "membership", " ", "matrices"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"RandFrigue", "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"m", "=", RowBox[{ RowBox[{"Dimensions", "[", "A", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "PsiA", ",", "PsiB", ",", "a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"PsiA", "=", RowBox[{"PsiB", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "m"}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PsiA", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], ".", RowBox[{"A", "[", RowBox[{"[", "j", "]"}], "]"}]}]}], ";", RowBox[{ RowBox[{"PsiB", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"B", "[", RowBox[{"[", "i", "]"}], "]"}], ".", RowBox[{"B", "[", RowBox[{"[", "j", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"m", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "m"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"a", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"PsiA", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"PsiB", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"m", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "m"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"b", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"PsiA", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"PsiB", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"m", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "m"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"PsiA", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ")"}], "*", RowBox[{"PsiB", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"m", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "m"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"d", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"PsiA", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"PsiB", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"m", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "m"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "+", "d"}], ")"}], "/", RowBox[{"(", RowBox[{"a", "+", "b", "+", "c", "+", "d"}], ")"}]}], ",", RowBox[{"a", "/", RowBox[{"(", RowBox[{"a", "+", "b", "+", "c"}], ")"}]}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQB2IQHbteLjFp32tH57t16SA6/qr7FRAtm+N/HUTf2iJt mwykr1StyQbRXV5u5SCaOU+uBkRP4vxaD6I1fJ92gmi92aJTQbRCXNY8EN03 cd+dFCDNOPksmBZcPaOsGEh/O/u8HESX1fHWguhJjTx1INqVu6YfRD95Uz0V RL96YjcTRMutnTsHrG/Cl0UgupF7wWIQ/WKJ5QoQneH2bDWILlridAJEGzD/ OQ2i3XbnfALLJ/F9B9FK7Vt/g+igE1f+gWiVxbMWlIDsP6K1EESvu19UVAak eUtDSkC0ns3+BhB97/MlML2OxUyrB0gvmOqpB6Jll4d96gPSFY7xYHrKqsSA r0C64cXWIBD9ZlXtmpdxbxwz1nSAaQDSWs6H "], CellLabel->"In[17]:=",ExpressionUUID->"bda91c45-c899-4814-ab0b-083f67910fba"] }, Closed]], Cell[CellGroupData[{ Cell["Fuzzy index according to Hullermeier et al. (2012)", "Subsection", CellChangeTimes->{{3.723697728796947*^9, 3.72369775187755*^9}, { 3.7237000172916794`*^9, 3.7237000203387995`*^9}, {3.7237862125312967`*^9, 3.7237862285721474`*^9}, 3.7259794341132154`*^9, 3.725980061790016*^9},ExpressionUUID->"1bcd3fd6-4a75-4e05-bb91-\ 35cbf8380b85"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"A", ",", " ", RowBox[{"B", " ", "su", " ", "membership", " ", "matrices"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Hullermeier", "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"m", "=", RowBox[{ RowBox[{"Dimensions", "[", "A", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "PsiA", ",", "PsiB", ",", "dAB"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"PsiA", "=", RowBox[{"PsiB", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "m"}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PsiA", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", RowBox[{"1", "-", RowBox[{"Norm", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"A", "[", RowBox[{"[", "j", "]"}], "]"}]}], ",", "Infinity"}], "]"}]}]}], ";", RowBox[{ RowBox[{"PsiB", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", RowBox[{"1", "-", RowBox[{"Norm", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"B", "[", RowBox[{"[", "j", "]"}], "]"}]}], ",", "Infinity"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"m", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "m"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"dAB", "=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"PsiA", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "-", RowBox[{"PsiB", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"m", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "m"}], "}"}]}], "]"}], "/", RowBox[{"(", RowBox[{"m", RowBox[{ RowBox[{"(", RowBox[{"m", "-", "1"}], ")"}], "/", "2"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"1", "-", "dAB"}]}]}], "\[IndentingNewLine]", "]"}]}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGCQAmIQHbteLjFp32tH57t16SA6/qr7FRAtm+N/HUTf2iJt mwykr1StyQbRXV5u5SCaOU+uBkRP4vxaD6I1fJ92gmi92aJTQbRCXNY8EN03 cd+dFCDNOPksmBZcPaOsGEh/O/u8HESX1fHWguhJjTx1INqVu6YfRD95Uz0V RL96YjcTRMutnTsHrG/Cl0UgupF7wWIQ/WKJ5QoQneH2bDWILlridAJEGzD/ OQ2i3XbnfALLJ/F9B9FK7Vt/g+igE1f+gWiVxbMWlIDsP6K1EESvu19UVAak eUtDSkC0ns3+BhB97/MlML2OxUyrB0gvmOqpB6JrvyUc6APSVTsXHwXRK6q/ XQbRZ2xW3APR8XdmPwbRZvNFPoDoX9lBLP1AmuviHnYQ3bD4HzeI/sbLxgOi 19xUXfsy7o3jgfu6YBoAaBTpuQ== "], CellLabel->"In[18]:=",ExpressionUUID->"798f7527-963a-4ae1-9a77-e062eb4acefb"] }, Closed]], Cell[CellGroupData[{ Cell["DIRECT Modul", "Subsection", CellChangeTimes->{{3.5690314804148345`*^9, 3.5690315052572556`*^9}, { 3.569034142379568*^9, 3.569034143986371*^9}},ExpressionUUID->"9c052f67-7f42-407a-b7b9-\ 567687feaaa3"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Options", "[", "DIRECT", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"Eps", "\[Rule]", "0"}], ",", RowBox[{"MaxIter", "\[Rule]", "20"}], ",", RowBox[{"DMin", "\[Rule]", RowBox[{"10.", "^", RowBox[{"(", RowBox[{"-", "2"}], ")"}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"DIRECT", "[", RowBox[{"f_", ",", "dom_", ",", RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "n", ",", "ff", ",", "c", ",", "d", ",", "dmax", ",", "fc", ",", "dmaxrazni", ",", "pot0", ",", "pot1", ",", "pot2", ",", "temp", ",", "ind", ",", "novic", ",", "novid", ",", "novifc", ",", "red", ",", "TMin", ",", RowBox[{"iter", "=", "0"}], ",", "dtest", ",", RowBox[{"anim", "=", RowBox[{"{", "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dtest", "=", RowBox[{"N", "[", RowBox[{ RowBox[{"OptionValue", "[", "DMin", "]"}], "/", RowBox[{"Max", "[", RowBox[{"(", RowBox[{ RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ")"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"DIRECT", "::", "maxiter"}], "=", "\"\\""}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"Length", "[", "dom", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "skaliranje", " ", "funkcije", " ", "na", " ", "hiperkocku", " ", "duljine", " ", "stranice", " ", "1"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"ff", "=", RowBox[{"Function", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"f", "@@", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", "##", "}"}], RowBox[{"(", RowBox[{ RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ")"}]}], ",", "50"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"po\[CHacek]etni", " ", "centar", " ", "i", " ", "promjeri"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{"{", RowBox[{"Table", "[", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"d", "=", RowBox[{"{", RowBox[{"Table", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"dmax", "=", RowBox[{"{", RowBox[{"Max", "[", RowBox[{"d", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"dmaxrazni", "=", RowBox[{"Union", "[", "dmax", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fc", "=", RowBox[{"{", RowBox[{"ff", "@@", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"TMin", "=", RowBox[{"{", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"fc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"GLAVNA", " ", "PETLJA"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Monitor", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"dmaxrazni", "[", RowBox[{"[", "1", "]"}], "]"}], ">", "dtest"}], ")"}], "&&", RowBox[{"(", RowBox[{"iter", "<", RowBox[{"OptionValue", "[", "MaxIter", "]"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"iter", "++"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"KORAK", " ", "1"}], ":", " ", RowBox[{ "tra\[ZHacek]enje", " ", "potencijalno", " ", "optimalnih", " ", "hiperkvadara"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"dmaxrazni", "=", RowBox[{"Union", "[", "dmax", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "svi", " ", "podaci", " ", "grupirani", " ", "po", " ", "d"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"pot0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"Length", "[", "fc", "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"dmax", "[", RowBox[{"[", "#", "]"}], "]"}], "\[Equal]", RowBox[{"dmaxrazni", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "dmaxrazni", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "podaci", " ", "s", " ", "najmanjim", " ", "f", " ", "grupirani", " ", "po", " ", "d"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"pot1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"pot0", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{ RowBox[{"Position", "[", RowBox[{ RowBox[{"fc", "[", RowBox[{"[", RowBox[{"pot0", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"Min", "[", RowBox[{"fc", "[", RowBox[{"[", RowBox[{"pot0", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "]"}]}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "dmaxrazni", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"provjera", " ", "ostalih", " ", "uvjeta"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"pot2", "=", RowBox[{"{", RowBox[{"pot1", "[", RowBox[{"[", RowBox[{"-", "1"}], "]"}], "]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"temp", "=", RowBox[{"Min", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fc", "[", RowBox[{"[", RowBox[{"pot1", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"fc", "[", RowBox[{"[", RowBox[{"pot2", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"dmax", "[", RowBox[{"[", RowBox[{"pot1", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"dmax", "[", RowBox[{"[", RowBox[{"pot2", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "pot2", "]"}]}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"temp", ">", RowBox[{"OptionValue", "[", "Eps", "]"}]}], "&&", RowBox[{"(", RowBox[{ RowBox[{"i", "\[Equal]", "1"}], "||", RowBox[{ RowBox[{"Max", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fc", "[", RowBox[{"[", RowBox[{"pot1", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"fc", "[", RowBox[{"[", RowBox[{"pot1", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"dmax", "[", RowBox[{"[", RowBox[{"pot1", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"dmax", "[", RowBox[{"[", RowBox[{"pot1", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "-", "1"}]}], "}"}]}], "]"}], "]"}], "<", "temp"}]}], ")"}]}], "\[IndentingNewLine]", ",", RowBox[{"AppendTo", "[", RowBox[{"pot2", ",", RowBox[{"pot1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Length", "[", "dmaxrazni", "]"}], "-", "1"}], ",", "1", ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"pot2", "=", RowBox[{"Flatten", "[", RowBox[{"pot2", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"KORAK", " ", "2"}], ":", " ", RowBox[{ "dijeljenje", " ", "potencijalno", " ", "optimalnih"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "smjerovi", " ", "po", " ", "kojima", " ", "se", " ", "dijeli"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ind", "=", RowBox[{"Flatten", "[", RowBox[{"Position", "[", RowBox[{ RowBox[{"d", "[", RowBox[{"[", "pot", "]"}], "]"}], ",", RowBox[{"Max", "[", RowBox[{"d", "[", RowBox[{"[", "pot", "]"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"novic", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "pot", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"2", "*", RowBox[{"Length", "[", "ind", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"novid", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"d", "[", RowBox[{"[", "pot", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"2", "*", RowBox[{"Length", "[", "ind", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "[", RowBox[{"[", RowBox[{"pot", ",", "ind"}], "]"}], "]"}], "/=", "3"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"dmax", "[", RowBox[{"[", "pot", "]"}], "]"}], "/=", "3"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"novic", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "i"}], "-", "1"}], ",", RowBox[{"ind", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "]"}], "-=", RowBox[{"d", "[", RowBox[{"[", RowBox[{"pot", ",", RowBox[{"ind", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"novic", "[", RowBox[{"[", RowBox[{ RowBox[{"2", "i"}], ",", RowBox[{"ind", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "]"}], "+=", RowBox[{"d", "[", RowBox[{"[", RowBox[{"pot", ",", RowBox[{"ind", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "ind", "]"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"novifc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ff", "@@", RowBox[{"novic", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "novic", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"red", "=", RowBox[{"Ordering", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Min", "[", RowBox[{"{", RowBox[{ RowBox[{"novifc", "[", RowBox[{"[", RowBox[{ RowBox[{"2", "i"}], "-", "1"}], "]"}], "]"}], ",", RowBox[{"novifc", "[", RowBox[{"[", RowBox[{"2", "i"}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "ind", "]"}]}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"novid", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", RowBox[{"red", "[", RowBox[{"[", "j", "]"}], "]"}]}], "-", "1"}], ",", RowBox[{"ind", "[", RowBox[{"[", RowBox[{"red", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}], "]"}], "=", RowBox[{ RowBox[{"novid", "[", RowBox[{"[", RowBox[{ RowBox[{"2", RowBox[{"red", "[", RowBox[{"[", "j", "]"}], "]"}]}], ",", RowBox[{"ind", "[", RowBox[{"[", RowBox[{"red", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}], "]"}], "/=", "3"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "red", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "i", ",", RowBox[{"Length", "[", "red", "]"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{"Join", "[", RowBox[{"c", ",", "novic"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"d", "=", RowBox[{"Join", "[", RowBox[{"d", ",", "novid"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dmax", "=", RowBox[{"Join", "[", RowBox[{"dmax", ",", RowBox[{"Map", "[", RowBox[{"Max", ",", "novid"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fc", "=", RowBox[{"Join", "[", RowBox[{"fc", ",", "novifc"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"novifc", "[", RowBox[{"[", RowBox[{ RowBox[{"2", RowBox[{"red", "[", RowBox[{"[", "1", "]"}], "]"}]}], "-", "1"}], "]"}], "]"}], "<", RowBox[{"TMin", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"TMin", "=", RowBox[{"N", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"novic", "[", RowBox[{"[", RowBox[{ RowBox[{"2", RowBox[{"red", "[", RowBox[{"[", "1", "]"}], "]"}]}], "-", "1"}], "]"}], "]"}], ",", RowBox[{"novifc", "[", RowBox[{"[", RowBox[{ RowBox[{"2", RowBox[{"red", "[", RowBox[{"[", "1", "]"}], "]"}]}], "-", "1"}], "]"}], "]"}]}], "}"}], ",", "10"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"novifc", "[", RowBox[{"[", RowBox[{"2", RowBox[{"red", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "<", RowBox[{"TMin", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"TMin", "=", RowBox[{"N", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"novic", "[", RowBox[{"[", RowBox[{"2", RowBox[{"red", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"novifc", "[", RowBox[{"[", RowBox[{"2", RowBox[{"red", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], "}"}], ",", "10"}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"pot", ",", "pot2"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", RowBox[{"iter", ",", "\"\<: \>\"", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TMin", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{"TMin", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"iter", "\[Equal]", RowBox[{"OptionValue", "[", "MaxIter", "]"}]}], ",", RowBox[{ RowBox[{"Message", "[", RowBox[{ RowBox[{"DIRECT", "::", "maxiter"}], ",", RowBox[{"OptionValue", "[", "MaxIter", "]"}]}], "]"}], ";"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"slika", " ", "za", " ", "2", "D", " ", "slu\[CHacek]aj"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"n", "\[Equal]", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"anim", ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Rectangle", "[", "]"}]}], "}"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{ RowBox[{"d", "[", RowBox[{"[", "i", "]"}], "]"}], "/", "2"}], "+", RowBox[{ RowBox[{"d", "[", RowBox[{"[", "i", "]"}], "]"}], "/", "10"}]}], ",", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "+", RowBox[{ RowBox[{"d", "[", RowBox[{"[", "i", "]"}], "]"}], "/", "2"}], "-", RowBox[{ RowBox[{"d", "[", RowBox[{"[", "i", "]"}], "]"}], "/", "10"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "d", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Point", "[", "c", "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"iter", ",", RowBox[{"Length", "[", "pot2", "]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "vra\[CAcute]anje", " ", "u", " ", "po\[CHacek]etnu", " ", "domenu"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TMin", "[", RowBox[{"[", "1", "]"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"TMin", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"dom", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "ispis", " ", "slika", " ", "za", " ", "2", "D", " ", "slu\[CHacek]aj"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"n", "\[Equal]", "2"}], ",", RowBox[{"Print", "[", RowBox[{"ListAnimate", "[", RowBox[{"anim", ",", RowBox[{"AnimationRunning", "\[Rule]", "False"}]}], "]"}], "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Return", "[", "TMin", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.5690282685181246`*^9, 3.5690282948786325`*^9}, { 3.5690283325717883`*^9, 3.569028377147338*^9}, {3.569028413363409*^9, 3.5690286275636606`*^9}, {3.5690287842946253`*^9, 3.5690288741987677`*^9}, {3.569028980607854*^9, 3.569028994988676*^9}, { 3.569029032554825*^9, 3.569029066964793*^9}, {3.5690291360257435`*^9, 3.569029139034915*^9}, {3.56902925171036*^9, 3.5690292912066193`*^9}, { 3.5690293287337656`*^9, 3.569029578720064*^9}, {3.569029619052371*^9, 3.569029657783586*^9}, {3.5690297936363564`*^9, 3.5690298040639524`*^9}, { 3.5690298854446077`*^9, 3.569029902780599*^9}, {3.5690299349124365`*^9, 3.569029937610591*^9}, {3.569030118563941*^9, 3.5690301319407063`*^9}, { 3.5690303469260025`*^9, 3.569030514669597*^9}, {3.569030550332637*^9, 3.569030568032649*^9}, {3.5690306363415565`*^9, 3.569030704429451*^9}, { 3.569030736262272*^9, 3.569030736604291*^9}, {3.569030814541749*^9, 3.5690308150677786`*^9}, {3.569030908481122*^9, 3.569030908938148*^9}, { 3.5690309721747646`*^9, 3.5690310044736123`*^9}, {3.5690310928516674`*^9, 3.569031133166973*^9}, {3.5690311721072006`*^9, 3.5690311755913997`*^9}, { 3.5690312057081223`*^9, 3.569031217839816*^9}, {3.569031298839449*^9, 3.5690313839433165`*^9}, {3.569031619688801*^9, 3.569031661484191*^9}, { 3.569031724786812*^9, 3.569031725743867*^9}, {3.5690318972166743`*^9, 3.5690319638634863`*^9}, {3.569032172902443*^9, 3.5690321734804754`*^9}, { 3.569032891911168*^9, 3.569032901895186*^9}, {3.5690329675713015`*^9, 3.5690330484262433`*^9}, {3.56903308638111*^9, 3.5690330867867107`*^9}, { 3.5690331529620266`*^9, 3.569033158858837*^9}, {3.5690332237549515`*^9, 3.569033273300638*^9}, {3.5690352716967516`*^9, 3.569035277187961*^9}, { 3.569035826121725*^9, 3.5690358340621395`*^9}, {3.569035877508216*^9, 3.5690358814862223`*^9}, {3.5690359230602956`*^9, 3.5690359400019255`*^9}, {3.5690359730271835`*^9, 3.569035989329212*^9}, { 3.5690361887755623`*^9, 3.569036191614767*^9}, {3.5690364020123367`*^9, 3.5690364135563574`*^9}, {3.5773906689475393`*^9, 3.5773907267398443`*^9}, {3.577390996030247*^9, 3.5773910663622704`*^9}, { 3.577392570136281*^9, 3.5773925795128174`*^9}, {3.577392625737461*^9, 3.577392644063509*^9}, 3.577394464618639*^9, {3.5799564494489346`*^9, 3.579956456710088*^9}, 3.5799565094498143`*^9, {3.5799565923496127`*^9, 3.579956592755282*^9}, {3.579956689879714*^9, 3.579956690221757*^9}, { 3.5799568985275793`*^9, 3.579956928013508*^9}, {3.5799570732540507`*^9, 3.579957077511533*^9}, {3.5799571531770415`*^9, 3.579957218341297*^9}, { 3.5799573896899137`*^9, 3.579957413402238*^9}, 3.5799574788229003`*^9, { 3.5799577604256535`*^9, 3.5799578140170593`*^9}, {3.5799578873582363`*^9, 3.579957938052377*^9}, {3.579957979011134*^9, 3.5799580262320967`*^9}, { 3.579958085262991*^9, 3.5799580879113255`*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"acf52947-6a0d-4768-b9e2-b02ace435140"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Test-example 1: 5 clusters uz var=1", FontColor->RGBColor[1, 0, 0]]], "Section", CellChangeTimes->{{3.5861419875297704`*^9, 3.5861419976873884`*^9}, { 3.5866493144203615`*^9, 3.586649323782378*^9}, {3.586653229602487*^9, 3.5866532369355*^9}, {3.586653296929606*^9, 3.5866532987080092`*^9}, { 3.586738830595744*^9, 3.5867388435925674`*^9}, 3.588047727583789*^9, { 3.6492089358834743`*^9, 3.649208937334276*^9}, {3.649249108128611*^9, 3.6492491291730485`*^9}, {3.8073278502934694`*^9, 3.807327856753771*^9}, { 3.807330606842617*^9, 3.807330607127431*^9}, 3.807419826983467*^9, { 3.8078769443369865`*^9, 3.8078769531871705`*^9}, {3.807876984596395*^9, 3.807877019410102*^9}, {3.807877052000938*^9, 3.8078770549271154`*^9}, 3.8078778566943216`*^9, 3.808999618991582*^9},ExpressionUUID->"84e9eaf4-5d6b-48fc-b73c-\ 88c9a830c0a6"], Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "2"}], ";", RowBox[{"SeedRandom", "[", "1213", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"centers", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "8"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"var", "=", "1"}], ";", " ", RowBox[{"number", "=", "100"}], ";", " ", RowBox[{"AG", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"MultinormalDistribution", "[", RowBox[{"ci", ",", RowBox[{"var", " ", RowBox[{"IdentityMatrix", "[", "2", "]"}]}]}], "]"}], ",", "number"}], "]"}], ",", RowBox[{"{", RowBox[{"ci", ",", "centers"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"data", "=", RowBox[{"Flatten", "[", RowBox[{"data0", ",", "1"}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "=", RowBox[{"Length", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k", "=", RowBox[{"Length", "[", "centers", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Dimensions", "[", "data", "]"}], "\t", "\[IndentingNewLine]", "\t\t\t\t\t", RowBox[{"(*", " ", "PODACI", " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"A", "=", RowBox[{"Flatten", "[", RowBox[{"data0", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"xG", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Min", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], "-", ".5"}], ",", RowBox[{ RowBox[{"Max", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], "+", ".5"}]}], "}"}]}], ";", RowBox[{"yG", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Min", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "-", ".5"}], ",", RowBox[{ RowBox[{"Max", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "+", ".5"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"AG", "=", RowBox[{"{", RowBox[{"xG", ",", "yG"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "=", RowBox[{"Length", "[", "A", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cc", "=", RowBox[{"Mean", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sldata", "=", RowBox[{"ListPlot", "[", RowBox[{"data0", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"PointSize", "[", ".015", "]"}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slcen", "=", RowBox[{"ListPlot", "[", RowBox[{"centers", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"PointSize", "[", ".04", "]"}], ",", RowBox[{"Opacity", "[", ".8", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slA", "=", RowBox[{"ListPlot", "[", RowBox[{"A", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"PointSize", "[", ".01", "]"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "AG"}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rad", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"mu", "[", RowBox[{"A", ",", "centers", ",", "i", ",", "j"}], "]"}], "^", "q"}], " ", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"centers", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "A", "]"}]}], "}"}]}], "]"}], "/", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"mu", "[", RowBox[{"A", ",", "centers", ",", "i", ",", "j"}], "]"}], "^", "q"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"rad", "=", RowBox[{"Sqrt", "[", "rad", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sle", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"centers", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"rad", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"slA1", "=", RowBox[{"Show", "[", RowBox[{"sldata", ",", "slcen", ",", "sle", ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "AG"}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z0", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "6"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slz0", "=", RowBox[{"ListPlot", "[", RowBox[{"z0", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"PointSize", "[", ".04", "]"}], ",", RowBox[{"Opacity", "[", ".8", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slA2", "=", RowBox[{"Show", "[", RowBox[{"slA", ",", "slz0", ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "AG"}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"slA1", ",", "slA2"}], "}"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Membership", " ", "Matrix"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"mu", "[", RowBox[{"A", ",", "centers", ",", "i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.6492090057091966`*^9, 3.6492090527432795`*^9}, { 3.649209088467342*^9, 3.6492091244098053`*^9}, {3.649209158417865*^9, 3.64920925818004*^9}, {3.649209311298133*^9, 3.6492093256033583`*^9}, { 3.649210113089142*^9, 3.6492101477836027`*^9}, {3.6492102101057124`*^9, 3.6492102852666445`*^9}, {3.649210331052725*^9, 3.649210366386787*^9}, { 3.649210460595352*^9, 3.6492104765385804`*^9}, 3.649210612446019*^9, { 3.649210958158227*^9, 3.649210985115074*^9}, {3.6492110384203677`*^9, 3.6492111235185175`*^9}, {3.649211229629904*^9, 3.649211315804455*^9}, { 3.6492113636653385`*^9, 3.649211429185454*^9}, {3.649211492505965*^9, 3.649211574265709*^9}, {3.649211638627022*^9, 3.6492116414818273`*^9}, { 3.649211676722289*^9, 3.649211697064725*^9}, {3.6492117276719785`*^9, 3.6492117988393035`*^9}, {3.6492125053333445`*^9, 3.6492125056921453`*^9}, {3.649217715871256*^9, 3.649217730379281*^9}, { 3.6492178205318394`*^9, 3.6492179033367853`*^9}, {3.6492179689349003`*^9, 3.649217984644128*^9}, {3.649218137820797*^9, 3.64921813949*^9}, { 3.767583963030263*^9, 3.767583963733317*^9}, {3.7710375889974017`*^9, 3.7710376674240637`*^9}, {3.771037704368685*^9, 3.771037739048053*^9}, { 3.7710378284800444`*^9, 3.7710379017911015`*^9}, {3.7710381152079144`*^9, 3.7710382385697584`*^9}, {3.8073339591929755`*^9, 3.8073340595236974`*^9}, {3.807334098655752*^9, 3.807334121739112*^9}, { 3.807334176227836*^9, 3.8073342078693533`*^9}, {3.807334984186531*^9, 3.807334995912425*^9}, 3.8073355280690455`*^9, 3.807335621383486*^9, { 3.807356212052678*^9, 3.8073562343090534`*^9}, {3.807358192031311*^9, 3.807358195326481*^9}, 3.807358257912961*^9, {3.807358372147204*^9, 3.8073583908680077`*^9}, {3.807358446346242*^9, 3.807358477389328*^9}, { 3.8073585386997623`*^9, 3.807358566510417*^9}, {3.8073588201917634`*^9, 3.807358850100436*^9}, {3.807358927205771*^9, 3.807358934396411*^9}, { 3.807359025589366*^9, 3.807359076250137*^9}, {3.8073591337267413`*^9, 3.807359134124939*^9}, {3.807408457995466*^9, 3.8074085079135485`*^9}, { 3.807408702156*^9, 3.8074087039561625`*^9}, {3.807408762039985*^9, 3.807408869037838*^9}, {3.807408912539135*^9, 3.807408936575889*^9}, { 3.8074089717808375`*^9, 3.8074089720769887`*^9}, 3.807420411573044*^9, 3.8078585079825974`*^9, {3.8078585509475365`*^9, 3.8078586414752483`*^9}, { 3.807858685408092*^9, 3.8078587105230036`*^9}, {3.8078587550414762`*^9, 3.807858755471266*^9}, 3.807858786893486*^9, {3.8078589887703376`*^9, 3.8078589963752546`*^9}, {3.8078596121024723`*^9, 3.8078596225156984`*^9}, {3.8078771024726067`*^9, 3.8078771165363812`*^9}, {3.807877208351427*^9, 3.8078772088994503`*^9}, { 3.807877264624716*^9, 3.807877317262556*^9}, {3.807877391568084*^9, 3.80787739397686*^9}, {3.807877772515596*^9, 3.807877773612644*^9}, { 3.808027794213889*^9, 3.808027820122106*^9}, {3.808027860732539*^9, 3.8080278614165773`*^9}, {3.8082778600903807`*^9, 3.8082779587380333`*^9}, {3.8082780189434595`*^9, 3.808278116552415*^9}, { 3.808278930089866*^9, 3.808278987403739*^9}, {3.8089851636323433`*^9, 3.808985173203862*^9}, {3.808985432897986*^9, 3.808985434678317*^9}, { 3.8089972305906305`*^9, 3.8089972314725103`*^9}, 3.8089987497306333`*^9, 3.8089987991472716`*^9, 3.808999143737692*^9, {3.830159731417697*^9, 3.8301597322036543`*^9}, {3.830159827124692*^9, 3.8301598424377394`*^9}, { 3.830160359042813*^9, 3.830160366921939*^9}}, CellLabel->"In[64]:=",ExpressionUUID->"32aa5f7a-9b76-492c-8d6d-e16054c27a68"] }, Closed]], Cell[CellGroupData[{ Cell["Test Example 9.2 : 5 clusters (Pinter, 1996)", "Section", CellChangeTimes->{{3.8078492676076655`*^9, 3.807849321279728*^9}, { 3.8089996097953353`*^9, 3.808999613334836*^9}},ExpressionUUID->"e958da36-47d3-43c0-8e6c-\ 15a88d848869"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "2"}], ";", RowBox[{"SeedRandom", "[", "1213", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"centers", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "8.5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"8.5", ",", "1.5"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"var", "=", "1"}], ";", " ", RowBox[{"number", "=", "200"}], ";", " ", RowBox[{"AG", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"MultinormalDistribution", "[", RowBox[{"ci", ",", RowBox[{"var", " ", RowBox[{"IdentityMatrix", "[", "2", "]"}]}]}], "]"}], ",", "number"}], "]"}], ",", RowBox[{"{", RowBox[{"ci", ",", "centers"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"data", "=", RowBox[{"Flatten", "[", RowBox[{"data0", ",", "1"}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "=", RowBox[{"Length", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k", "=", RowBox[{"Length", "[", "centers", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Dimensions", "[", "data", "]"}], "\t", "\[IndentingNewLine]", "\t\t\t\t\t\t", RowBox[{"(*", " ", "PODACI", " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"A", "=", RowBox[{"Flatten", "[", RowBox[{"data0", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"xG", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Min", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], "-", ".5"}], ",", RowBox[{ RowBox[{"Max", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], "+", ".5"}]}], "}"}]}], ";", RowBox[{"yG", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Min", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "-", ".5"}], ",", RowBox[{ RowBox[{"Max", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "+", ".5"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"AG", "=", RowBox[{"{", RowBox[{"xG", ",", "yG"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "=", RowBox[{"Length", "[", "A", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cc", "=", RowBox[{"Mean", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sldata", "=", RowBox[{"ListPlot", "[", RowBox[{"data0", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"PointSize", "[", ".01", "]"}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slcen", "=", RowBox[{"ListPlot", "[", RowBox[{"centers", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"PointSize", "[", ".04", "]"}], ",", RowBox[{"Opacity", "[", ".8", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rad", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"mu", "[", RowBox[{"A", ",", "centers", ",", "i", ",", "j"}], "]"}], " ", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"centers", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "A", "]"}]}], "}"}]}], "]"}], "/", RowBox[{"Length", "[", "A", "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"rad", "=", RowBox[{"Sqrt", "[", "rad", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sle", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"centers", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"rad", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slA", "=", RowBox[{"ListPlot", "[", RowBox[{"A", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"PointSize", "[", ".01", "]"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "AG"}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"slA1", "=", RowBox[{"Show", "[", RowBox[{"sldata", ",", "slcen", ",", "sle", ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "AG"}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z0", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "2"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slz0", "=", RowBox[{"ListPlot", "[", RowBox[{"z0", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"PointSize", "[", ".04", "]"}], ",", RowBox[{"Opacity", "[", ".8", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slA2", "=", RowBox[{"Show", "[", RowBox[{"slA", ",", "slz0", ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "AG"}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"slA1", ",", "slA2"}], "}"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Membership", " ", "Matrix"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"mu", "[", RowBox[{"A", ",", "centers", ",", "i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.8078498004553404`*^9, 3.8078498796227236`*^9}, { 3.8078499189696617`*^9, 3.807849999301194*^9}, {3.8078500693488817`*^9, 3.807850204343131*^9}, {3.807850237727662*^9, 3.8078502620426817`*^9}, { 3.807850296064624*^9, 3.8078502995791407`*^9}, {3.8078503431969566`*^9, 3.8078503672998705`*^9}, {3.807850399849724*^9, 3.8078504318102427`*^9}, { 3.8078504650352902`*^9, 3.8078506012292724`*^9}, {3.8078523685618753`*^9, 3.8078523833634424`*^9}, {3.8078531516670637`*^9, 3.80785336850959*^9}, 3.807853902812195*^9, {3.8078544951295056`*^9, 3.807854504678396*^9}, { 3.807858646434308*^9, 3.807858650513809*^9}, {3.8078587363291636`*^9, 3.807858736966229*^9}, 3.8078599906097507`*^9, {3.8078778305334167`*^9, 3.807877831222082*^9}, 3.8079379676627445`*^9, {3.807937998730116*^9, 3.807938048582668*^9}, {3.807938114743305*^9, 3.8079381220631886`*^9}, { 3.808020548713541*^9, 3.808020550061813*^9}, {3.808027775083375*^9, 3.8080277804014792`*^9}, {3.808225027415053*^9, 3.808225030234788*^9}, { 3.8082251188471537`*^9, 3.808225125924926*^9}, {3.8082251608007135`*^9, 3.808225275558816*^9}, {3.8082253443369207`*^9, 3.8082253465193386`*^9}, { 3.808225872929842*^9, 3.8082258761526465`*^9}, {3.808225974337821*^9, 3.8082259947497244`*^9}, {3.808226027169422*^9, 3.808226103266381*^9}, 3.8082262412416787`*^9, {3.8082264508893256`*^9, 3.8082264669403753`*^9}, { 3.8082265012873955`*^9, 3.808226523864938*^9}, {3.80822658654076*^9, 3.808226616061999*^9}, {3.8082267277233667`*^9, 3.8082267486902523`*^9}, 3.808226790754461*^9, {3.808226840393444*^9, 3.8082268418400307`*^9}, { 3.808226876097863*^9, 3.808226983032781*^9}, {3.8082270194906015`*^9, 3.8082270434764457`*^9}, 3.8082274967719*^9, {3.8082740561210675`*^9, 3.8082741772130337`*^9}, {3.80827466752699*^9, 3.8082748292865295`*^9}, { 3.808276131249487*^9, 3.8082761962988577`*^9}, {3.808276261507013*^9, 3.8082762831734657`*^9}, {3.8082778220009265`*^9, 3.8082778256073537`*^9}, {3.808278156469555*^9, 3.8082781582259555`*^9}}, CellLabel-> "In[247]:=",ExpressionUUID->"27473532-068f-4a57-a6b2-ec25f302fd84"], Cell[BoxData[ RowBox[{"{", RowBox[{"1000", ",", "2"}], "}"}]], "Output", CellChangeTimes->{ 3.8078503685283175`*^9, 3.807850433819927*^9, 3.807850465786765*^9, 3.8078505148009644`*^9, {3.807850547837539*^9, 3.8078506015738573`*^9}, 3.807852389908346*^9, 3.8078532910728865`*^9, 3.807853370054033*^9, 3.8078539032085094`*^9, 3.8078547043432198`*^9, 3.8078553288362355`*^9, 3.8078555197178183`*^9, 3.807855756050655*^9, 3.8078561697741985`*^9, 3.807858741566633*^9, 3.8078599550272694`*^9, 3.807859990984474*^9, 3.807876610382922*^9, 3.807877832447008*^9, 3.8078784571512685`*^9, 3.807937430309677*^9, 3.807938059703133*^9, 3.807938125192956*^9, 3.8080170548570623`*^9, 3.808019335924786*^9, 3.808020565209567*^9, 3.808021404936626*^9, 3.808022483673705*^9, 3.8080226297809114`*^9, 3.8080231288817887`*^9, 3.808024947249303*^9, 3.808028689762136*^9, 3.808046965115074*^9, 3.808048999548579*^9, 3.8080493641590843`*^9, { 3.808225260408915*^9, 3.8082252804939814`*^9}, 3.808225348812003*^9, 3.808225877930172*^9, {3.808226070228924*^9, 3.808226109809478*^9}, 3.808226241635625*^9, 3.8082264776913*^9, {3.808226509284398*^9, 3.8082265241606216`*^9}, {3.8082265869282165`*^9, 3.8082266163454065`*^9}, {3.8082267320784664`*^9, 3.808226749310108*^9}, 3.808226791292115*^9, 3.808226845103774*^9, 3.808226993397946*^9, { 3.8082270271096797`*^9, 3.808227047046482*^9}, 3.8082274978096294`*^9, 3.808274223129296*^9, {3.8082761679833717`*^9, 3.8082761971487675`*^9}, 3.808276284705385*^9, 3.808278162739342*^9, 3.808999425703858*^9}, CellLabel-> "Out[254]=",ExpressionUUID->"2d61a6f4-5e63-41b6-a569-32086d702b7d"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.0770134957364965`", ",", "1.0770134957364965`", ",", "1.0770134957364965`", ",", "1.0770134957364965`", ",", "1.0770134957364965`"}], "}"}]], "Output", CellChangeTimes->{ 3.8078503685283175`*^9, 3.807850433819927*^9, 3.807850465786765*^9, 3.8078505148009644`*^9, {3.807850547837539*^9, 3.8078506015738573`*^9}, 3.807852389908346*^9, 3.8078532910728865`*^9, 3.807853370054033*^9, 3.8078539032085094`*^9, 3.8078547043432198`*^9, 3.8078553288362355`*^9, 3.8078555197178183`*^9, 3.807855756050655*^9, 3.8078561697741985`*^9, 3.807858741566633*^9, 3.8078599550272694`*^9, 3.807859990984474*^9, 3.807876610382922*^9, 3.807877832447008*^9, 3.8078784571512685`*^9, 3.807937430309677*^9, 3.807938059703133*^9, 3.807938125192956*^9, 3.8080170548570623`*^9, 3.808019335924786*^9, 3.808020565209567*^9, 3.808021404936626*^9, 3.808022483673705*^9, 3.8080226297809114`*^9, 3.8080231288817887`*^9, 3.808024947249303*^9, 3.808028689762136*^9, 3.808046965115074*^9, 3.808048999548579*^9, 3.8080493641590843`*^9, { 3.808225260408915*^9, 3.8082252804939814`*^9}, 3.808225348812003*^9, 3.808225877930172*^9, {3.808226070228924*^9, 3.808226109809478*^9}, 3.808226241635625*^9, 3.8082264776913*^9, {3.808226509284398*^9, 3.8082265241606216`*^9}, {3.8082265869282165`*^9, 3.8082266163454065`*^9}, {3.8082267320784664`*^9, 3.808226749310108*^9}, 3.808226791292115*^9, 3.808226845103774*^9, 3.808226993397946*^9, { 3.8082270271096797`*^9, 3.808227047046482*^9}, 3.8082274978096294`*^9, 3.808274223129296*^9, {3.8082761679833717`*^9, 3.8082761971487675`*^9}, 3.808276284705385*^9, 3.808278162739342*^9, 3.8089994260933237`*^9}, CellLabel-> "Out[263]=",ExpressionUUID->"33b2f5f9-4e3d-4618-ba78-1631e40c5d1b"], Cell[BoxData[ GraphicsBox[{{{}, {{ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVVnk0FPoXn32fMba08EJpf5YkbXw/HgrRgoSQ5Sm0IEShhLxST6koklSK kojMqxRtpOhJUioaadGTSiKDYX7z++Oe+8c9555z7/0sV88/1DmQRqFQ6pTx /3zv666+qhIR1LSuNN+3oaFzxumW7QcpCPqs8u9k9hB5eohlHDh9gKjLPFf7 fFCQ7PWhlqs2j8PKk2n9Ja/7SEv02xS/JBbaTnTGfrs5RhzzI+JPSIdIXKdO J6dmhAwd3X/gTSMP4zJcwlIyhVgyWmQU0NZP1FQO3/4ywEZdnX/QXfcWkqCr SKZU8vFuXzHFwJ+D4ePXMw3WUHDGZP65rnd9ZMe5epPzK1WB3oapVc8ryLGj 9u2lR0SYc1ZQV2EgJ+2XuhZkb6Wg08ktzFyXBi95pavkrRgBZhdbPtTRcPzC 39u/v+HiQ/d3qUkaFTrTzvg0/caHbPOceMXO19XkvTApa1RGCvM7CjcukRHH 6qQ27WNMtH+y2RD4jYGpkUWlTlP6Cd/hwimzT0NEX7dQEmzNgsxwkVbfDCaW b3o+4U6LClKPGz4QWYsRa3FLbh8qhstFI0FHaj+J2d6SlrBBiOmJA8G2Nhxk pZV9frSeh7mt5TydRWzsyivZ5j9NAJ9/phiFZf4iKV5bzL5WqULP7biXIISC svQxn5QbPITrNLzvtqUi+kHBJ7siEc7cbqi9PkTDhceX13V30yB1nldRn0RH pHHqlwmNLARc6p6zsYEOP3bt/S2pTGh8ExT/vEnBqyPLP1n486BfFMYqyOsj Iu+67JRKFtq7luU6SljwGq+xuqmND25q0JQACRfOf1h4HE5UxZ8jkrIq6ndy NfUot8Wbg4U19X4l5gJYHnqTllRLg3fK9E/Ht3OQRN69aPydBZva7/OvdHSR eU8bPcSpQyTrqUXoVkMqTp6IHzxVyIZDVOq3CWU0HBRERVA3iyGhNOQ2CsbI lKtW/+Q8FSI/fGngQ5mMNFceuWcdyYHm8li3ID0xAjX36fuG0UAfMrJSe0XB hffkYlC8EJksSuZ4Bg1XFjb0JvyugrTp0t2WpmMkwqz3hbty/hVuifamx7ko EnJudaxlorVtZn/+AhnZ1zvq3aqsqx1ym7mf+ovctAtyj/TjID7LSbR6fD+h 5K39qtIzTBiLzjv/usdCzHPtOncmFyk7JrffGfhBkkrrg8gUES7t+BhQ+V6E O5L/vHkBdNRsvP9y/e1hsu1e0+/jugQY3JvzZGo4F751hoHjmtRRaU4RXVPh oCzFpSyqRogqreANGUoeDnQ6c/9icpDtWdg5eIOJMwIdzUO7KQgTGTQfiWRB butFq5TzYNFzpd3KgoZn5mVGrsM8pHTEu4SU88HeWGO4t2GQNEfaPgrW4qMp MyryPycVZf+68GFNPlpCQg4YeXDxed9l6YtoLuzP59Zt4qvD+3F//521bMR0 mK55+0yEedm0+xMLKTjp2CUybaSiddg1YXSQg7/qt6xnzxNAWHvn50wPERSy DkpGFRcue37tC97CQ3ptSIUNq5fcnJdgWSRmY3nFAX13VT5irIStp293kZjq G+5LM9oIK7F53eW7bESu2yVYV02HRs6TFc9mDJOvb8/meWSycbZxbujcnBGy /blxnle1EN+OHhpffpEOw3edm06eZGDwKEVfzfQHmX9Md0j6nYqOJ1/FR7Xo 6Jk44XTNEAsF4sQcSb+CBN7qP+LfzMFHh2P1l6SDJL331RaDE3SsSsjZ2qAv J77j5R0r5o2SZTpOwf43RolbQbU9Y6Kc9IIaZzRDhIcOpawFi/mwHZSY7FT9 RYbTP75WpKgiVyHQLbIRYEuEhmaRFRvTj8V6x+1kQTPT8XD7LSHG9Pynffdm oTvk4MtYJX8TXFXtqRYUvHTwYu77Q0EMQzv0Bn1l5LR6TepZBzW0hs/QaCkW waneryWYysY+i3KNh3kfSbZUZ4n2czrs7z1cpXWVhqBtbrkB3jRwDi6buiyL giOr7x4ca2GAay1wsbamY33e06qIOD72bNtlftWSgZxxlyPNdVWRVpthZV40 RqZXh8Q7x7IgvJ9wweauCrzT7QP/ma2C2PSSqoHzbFzLa5vtmi2GFO86S/To KDBNvrurhw31/ZLLMgUfitEdwe4GVEyPClvgqNSTbtPRWKsKGswD+Kc3uDCQ YX2KMXaFAe9TIXEdI2xIJh3YkVTAQMDGtMldT5lY5fV+5fKFVDw8Ldqr68+F VOvVcG48E7JpXj452lKSPfuJ7/HdbOwhGto55/nQ/pI6a/oDAS5fj7ObFijG 9JfPEvv95CQ3Kn97jBkXARFms7yMWQia8/GB6ScO7o1bGHZugI9j/9LFCQdp cG07Mnuacj8mT7N1HH+jw7VgrRybVEE9Y1yiv5kG2oOX9XXjRfA8EP30TrMY B6oEg+tGfpEuz/1TBCkMWCeOKNJ0lXd7k94yiSMGKbRznZ+hAnc12y9LXrHw YjSF29RDR7B+zbXhjzRsZjeW/qv0Bc7DDfp8CQPn39mdLKuk4N2vCbNbqvlw lvdJSqLp0DV72xfjLSeOW0aG9U24yG+bklpcPkoM8ir9llpToZ3/uS31iYLk Lvv7TsBSGkq7Gh8nu6qiWu6bpFNER22S2aWtnnScztTKS6liQ1/rRcFtKRcx gZNVjLfysCvQyPNnDhdNms0Y3s/CqyF1+gKoI7u6jRU2UYSMD2/yP0fSEG5Z vCh/ooL42qavlrzmQfG6tbqXyoL+HMO7v9spcWMvXEXZTIVf4OwJDYl8SKzW qxyexoKdoGnvC0sBlvx5zfGP9TRMWFK0fF+0GGsy1SWRrnT4BPwoJWYDZOaB YNbiZzwUFwc8bmrn4tvfs3IWXGdBwYh9Q6dRYX7/RdRSOxHSPKxjD7OGSc+X 9HlGtuqwKJPdrW+kIynLOyveQg24pVZeq/SXnoivPr4CBhJKJNrUzgGiJi0e atCnwyE7zqsqSEFeSr+cKckWoNWl2eOCxhhhbjyfu4rBg+DG5ZH/ilkoXSyZ vJ8yQvbWvlqwYpIY7yddTlu1aIDkeUsWuq9j4LGb7+CXpVQYW16lPTceInaX OAYNZS1EGL711sI3NGgnJRW52HeRlTtS5/z4wEE37ciZ3dEMSEfXGVNdmXCl PBJOjFKDg29w2IS1g0Q0e9XwXDJG+iJV/XdZiGAdT9mae1OMHYjgZW2g4dXt eXnOc1WQceJF6Iev/aTcysOmcKYIuf4oj9jDw8XwgRshf7Hw8uBMq8XlMuK5 Ud3reiMHj97w4x9cF+NrT+R7yW05Ofjl2rM/EwbIEp3CJec02Ui6cRvRFBbe eaUWPnKiQDCl93vyPgq2WTgPyAaEMCxL+iVLUZCqlgu2PTEq0LdxKuO/UkHe hZqKba5jZO6ih4HxLQrSqjUxm1/Dg2ePPlW0hoHh/JiI3tN8TJbqn9l5fYAI Wd8uxil5ZNbrGrFFiXvXrYxwW4oaiGHQV0UXDVzLeoF17ig57FS6cIV+Hyku NqhLVfpaQPfUw85HR8jWt1fHz5Ly4OidGGHVKURjVPzooL86CsnNlC0zxHAU vubb+4gw61aOT0UaEyY1ezw/P+BiXns755w2Hy9P5zS0jnGhPxz943MvC4tC KvRe9/LR/Ghx1yzpALE2K8pLlKsi8VhV4Ng2DRwId6x5u2mMPBvzl/2zUQ1/ +KSL1a/0EWZyePLARzrW6n5w6DrKRNVZE7f7BhxMdEkvt1nKRODsSb8OmfWS a/csI7J+cHHKxCvBwYWNXD+rF5k8NsaP6M1cViPAzvJQ58QYppJn7cldBX2E LxeopSr1usy0eOb6EC6aHxb8NF/Dw4mh7RHJcaOktmexQ8xEGi4tsl9pGjZM 5OtvJl1dLoTDmqTAUz+Z+Dbf+qTpMTrs3NMKlnmz0anppLtrvoL8TVruftxN hZXeoG5IAxX1svue+I2K5hvVL+dGquBYVM3zaCkV8WtPGA+4KYiRyb3/spr4 qF8co+Y9mQsbeYQVZY4IF0THr2UvECHrx+zMXb8p/5PkuM4phxjYeSDTqGQD B/zQ0W6pnI/brXkT3sqoKKVq1B0dFCF/meGCwQIxbv0ZqubnwUGVhllXYahS 7/SWny315OPI8CatmxwBDHQvGl3iMJE7+YP0bIMqDH0lr+0yBPgf9/J8KQ== "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlnk81NsbxzFjrAldlWX4fmespYhIkfOpECVEhZKihSRSWQptRNlVFC3K vel2pW5SWbIlcttLpRI1Q8mkZB/G8pvfH+d1/nye13k+5/28af9Q921SEhIS jeLz//tE8eYrvXdGyb3EgSu1Uzgg2fSWnkhlrJyxlV9hoouHnfSxqVJMKK40 uHdSho2IR98qrlhMwQ5niRejq7mwzrtpJ58sjQxXvvWHmTTcwt3u651gIf3q k1k7nmrAus04UsVRGowb07ccnqTgmnxZEBUqIudLjbqqGBwIlka0J86ThMGQ xLvEYh30zDZYatLHwPdKYcTnel14jThIe9+WQFLKlT2x7RTK3ecc11GRRaBZ a4ysKgWrLaqaPaaj5PxUzfLQP2l0zPA6JdwySuwqoj94JXPQPpR84YftAKmI rM9w2cyByTbeYJW5LLJfLjnpPF0buom0rUq7LBynr5ihVs6FvM9lD2OlflIX 0JG0L49GYSM7xJvNQqlftrLkcS6Chvm7Ujhj5E2KIOG9GxvBUwnz32AGnMkn A8/lFMrSzkieOTNBzu/lGcSnaeKiJS8vWkUClMGspes3cDA6qsEUqclgwa7h a9vqKfhfa3ca92XCzXnL46W2mvDd7qdet2KYlA6MTVot5iBIT9j0jMNEAXPm Q+3jNA5v7ly0nv8XmTzy/BazXAuB6wZnaapKIPu2w+JbvvrYIJqYDEtlwLTv 7cykExo4mG0/bXyqkCzodDrxqUgb7/0Kl5vaiIjHL5ad4TIuBig//2drfpBb Qdnd8f40DPUfvTeX7iTZrdd4+tXaWOiIUssaFgrOOb779oqL8rLY7SoTYySm piN4eIEe3sw1LKzNkkFU/lsra1MdSD5LbI6wFJIi89Ubs9K1MNqevm+aYhcx F6zKLxqk8XPa1w7DlmHSHK4o8LpGwWDJgvCwuRKYc/TQ1s+FXCTcauH42/LI Q9duYz1xv81u83j5c2TwoPHr2FoRGy5mG5ctOd1JLAjDIfSNBhoUbPwO50hi c3eBdWQOhXVVcn4tTweIpAwvW1+Pg3fHOp031g+Sv7SLM25N6KFnk6lcE5cB ndzCg60WNH6jIXPdYSUU1MvWjt0Vv3eD56W3BUxI+D4JKeliw8unrc0j6Bcp 0uWci+VwkOBpz7hPfyEO3/0c6ty04RO46ce7AhZ2SRzObW6hYfezJiXGsZ2M ZDbqLV/HRgozoVyJ85s86xsTHqnQgMVI2wv+zzHytPPXRnKBi8wrN+/ItImI vUfTwd0qFHwNyxUSF0vDNMNkZbI4r/EXu+fnqklAEFL2rW8fG1/uZzbTpQo4 G9DXnd2ogZk6xacZ52Rg8MGWZ5lOYdvtXUUVMqOEd9Q22SeSQoZqRp3AT/w/ PR15iadpmK+5uLNBhoWhfpsLvtu0IWx4+iFufht563GJq/RAC2FXK32inFhY 27FH2JxNodKVv1CzfCocddWfvjLh4tgR5c+pzVIos4+LUQcNW1033bf3J8jj XDMRL5WNkrTomwPSInK73Dl3uYiDlLGUrW6z5PGwpUel444e/MdWuJYJBYRd bDToa8SGz4ZX495nu8hXfuOC5eJ5rcqYVlPVOkle7fH/VNVLgXU6o3muvSrm 3nVyDjqsi7OJdZcOHGLhi10187ceG8Y3Rt+P3/hOnGPqG4yPcmDqlHhM30AW aTIhJY46NPRpjZdeawWEXxlyZ4qxDtqOJChb/svATlH5i/4gCmeDirjD2xno XyfD567h4Ilpz5F18qMkSCFWVncRjfh/7E9/48nB1FjDQOhPwUuOdFblS0Mu Z5lVrjsXyYVu0x4+GyKFt0+PJqzkoLvOX6pRTUS6AyRv+t/nIkwpfs3WY7Ji TvXErGikcPPl9r8fYpioveYFfprUgZSWVu4jZTmkFa/I2WxKQZ8v7D7W/5t8 YjkYJiZoo8IsuzvFSwGPGpOz5/nS0DI/5J4owSeK1X861WZy8cCQK6t5gIH/ eFKLtlpTSNlrfq4/fZwU/P732ON4Ll5I/ymw6xwhiq8uzimPZ+Ps49C/yz3H iXpxaNabo+oYdQl8TDKVMOfJkh0WSRzw9+Yo+W9VhZBTu1ZQRCFixcLc3mpp NFnpWG8Pp9Bn0RfYwBCSvyp6PvWu4qApZvJBWekkufhlp3d0MI37PnFGtlZy cLQeVverovElzWe28et3ZOuBvOC/X4r5Yhdr/3lshNDRLXc9hmncsHlSN/Mo A1HWAQe6xPNg7v4gZ7FGFtp5e6T43TQmwmEzO2uAUPNLKtjPaWy2+aiptreZ OO5/uXrjRg7MNlevUtosj/hTzxXPWVLYXfIpcCZE5Pr+Dl8tcT+NW25ExrZN hfxU84Cc9RQCXW77SIcNE9/VVRazejnQ1Y5fNxgmD1LcpRfxlYN99rnfReul 8TyTkdVmqYHHTf7dtmFTUBs6yHcS1yu7m+446iaJy7969+8J0ERWS1SA//0p cFF5FMxy1UBUb76Twi0phLtG5iSJ90/Q7l02o+YCojRveeWyBRxEBBdV3cqY ippgB5fmlTTGpxk3HZCRhHFgV2hruBYm3ljWevuOkJ36uxoDirmQnu6TbWI1 QtRN9q0+pcuB2zeVd2EGDcQK56sqt7OxPkP5/IGvkphflZHXO53CU89ZvHkj UriklxayO5QNnnB11/7H/aTjzBjbuImCVlyyEf84E3FWnb6aDC6cfwcdKTGR xotEv5HsTg5eDgu9VZxfka+PTxXqifnxR2FGhgNfEqqzkziKV2mcf/Kfyq6i YcJvmBNVvGQ6LmmUudeYjZPSPa+6e3q5eLrn0lO/60NkvDlkLHoVhbsm0QtO vOwnf7SnUCc+U0gKXCKXHqqAG1kJj9+OayPT9evc2C5Z0D4N7iurxbx6mB0z /rqH1BiNe7Uma+LNt7r/NBRZiMyivd2mcTBpvOkk9XQKcrVL1/neoWFhEeQk KBGS6oE5awZiaPxTnJrrqthLcs7cm1HXwUGflddYTn0HUbxnFe/fI87zbMX3 Q8EC8jpN5uqbKE0UbHMqH0uVxKx/P5/Oj+CioMtTjVKSgp1NTIxIzL/pFYtj I+sYeG/6KcHhwUxUFm9IiC6Xgnlch3rPIg5cOI9qZ+pLoHY03MFalotgyxon u7fDZEC+l/96NhepPyvPjpYNkAfasYlqpTr4GLf9nN/aXhJRWNmqMF0HBcs9 akdKGPgWsP+qeZs6iov0KxJ2S6Hxhu4D3600+rpsD87zkES1isHCsFkUPOdL FG9w6iPhoXULDlXp4MvsX52NNiwsbzkh6UrRWGj2ObX9sgREB77eivXjIHCr gTtTp4e00c6n48T7LpI7b/rkzTFSyLJzX9nKwY/XH9se3mHBiZiKGgzYaF2i pDU/ioXfF554K6RSMA15sWnK7QZy0u7hh36x/yRVSK413vCT/G0fOCQsEvsM cn4Y7mZBKWLR8Wc+urD1d5FnhjEB4Xhwwh0KJ5hxunGJ40S+Pr0jOU+c59LE wYJpfaRQkP7MVJPG+zBVqZzBSbIiJ/fH6u9s1Lh/dWsfryPb5M/aqZhwkC3l GXwld4qYT6S+vYLGGx6lrGT5k+gL4u7l76MhfeSKxcaASaJgl1pdKvYthz8P BSNKGfodGiHbJWdghdFma5o5RoySd1rnnaHRvanE7IviANnIPT7ikyn2v3Nz 5k7I/4GcpU7hztcpRF/fYXUsWwJ6Pl42w2KfiGQllNtsk0TmgUKGgZyYV95y TUoVg+ROjfk9/wENmCalHk/PeVXtOzJvP99EB/dv1gt2eShC7RcVorhGC/Ss fJ79Dyb2lC7RbBDzqCpaWuEfFQEhTg1Z3+t0sEoqJfA/7TGy2OQi0343jT2d yo472wTknV9z2scNFDLdPxq12kmBMRmzVHSXQtDln6K9EyyEHNlv7yz27YRl qh31ITJQSj07OG7KBvXBZ+Lkc0mk31sWa2emDS1D6dsRbQPEQTlr5Vp9HdTI rr1hfHKEDHnEHjzjTOGwcdUMuTQpzCn8XfnjHAe2pvm9eYd/ERMXA7Vre9kQ WD0quGo+SmJS7i59KfbNzk1hzybCRsiF0KNDO9u1kOKl0XuzSUQazTP+eaCk h6DFY9dnaI4Qz7L7SWQHBU1e8nnD9xKYLEwxz/8orufq0qHQIiTctfzRkAZ1 /A/cnIn9 "]]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlnk01VsbxxFS5Ay/8zu/MzhoVqYM11DSV1Ty0iDdZnEMSUQypElJJJUi JF0dRaWSMSlCqAxRIR1c0ts1RUrSleHe9/f+sddee6299tr72c/z+TyzxX6O HnIyMjLV9Pj/LPtZ4nt3gouzDQdqz5uI4HS1o+jUsZmwCNwd9tqei+L7jduu zGMj7+bMuod/81D1IkWrV1MVswMCD32v5aGh4H78NooNQeeqRaGfCYiNPU4I ugh8Gc81MVrOR+eKUx8NWykc2ryCW7pJgKOelacuLCcRKcxsO5TAwaFylQCX B7KIKPaVzY0VwfhT06NmARf7o42qJk9xsK1XSXt8hEDnRJqXxmMSSnI3l3Z4 0OsHTvdORBEoTzqoUPpCiFSnoPD6DTxMWuTVuIv5eN5W75rRwoHO5zAqzYvA 2R3T+jrDeDheF37aYZsq7sqTd0b8uWgJuEXULFbClbKZM5btEsLkX/PuBIKP IbdgC/sePtqMOnK5f1IQ91k6fkjhI6bk+PsXY/R53T3B6rpCrM5/6TC0nIcb zVkGtbZqUFzfNuXsyccMA2m0uHEWOAwXs9wiEpSnXffeNRS8lTSplCkSiwt6 r85YLwTzpLvk2BE23vNWFLRe5ILw0jl/t56LnB1zH0cpamJh/dHty6ZxYJla 8esLHbfZpTFfhvLZoI5divK4zsB3Cw2jjn4O2j8s0TCz4eKoQJ7Ju85Bbeuo RNeQguaiaQNyZ3n4+83zwaobFHqN0otWLhSgZ+O1Kef1aui+0+N9mKJw8XGB QaqQhyb3tS9vDTEQtNjG8+IJdXgP5O67nczA+q0xh7umk2js/ltVvU0Ad5+Q NQuWUahRw4PrS7jwsKO6dsWRKH387Vj3dwESp+QSV0s5GFb9eDSjgov2p7YX Lo/zkC0RaL/T5iFRKeb4uX0CzM9u/uyXSyLu3DzLGRUk3t5jXY8LISDlV/QG DnHwZ4BsiLKBKsYv1VhmHeEgeaFutkSdwNJUYT87hUDdnkVyymIK+yYv+93e q4FHCgpnnEY5mOA7HXUb4cIlM+lwzCYmiqVtseN0/PRm5JWJPilj6d7rgcpj FEJenzHdfZ+FgkK57hZ/CskWrZdaYyg4Vpgk5FZyEeT6p9f1EA7uVO7ZHLWb wu7BEwkxvygo+Zgd0BkRgWv/cbjPmQ3FFKliaDAJ+f47fj90mbg1+aMp9qAA X9d7uZb9w8fCupbt02y5uFiiz41v5kHr2ErnOGceOn1qU3YymVhmNnqok8+C /bbnj8T20xGW6p9ubM5HTuyz7OFzIrRVxlsbbhfAba1ZXcoJDowMTtWuDxWi z6PU2ns7C9VlNo1sGx52Oty/mL2QjYO25XMeJnOgGFodOWuQRBlzRd3VAyLc ijL59faZMp69a1wUNsmAaAllNVTDxjeX4qzhdgLrd/Abp9N5WBE7zdWI3m9n 2t2m8jsTjCv2xf4yAiweMFilUM2BQC/N75FEgIPMu2vWzqNQsmH/3nPbefDh XKjSqKP/48t6PadbfLxz+r3q1Eou7o0I7b4Z8qFhGaazbimJwGDTexHNHGQ8 3fJH1GUS5g03vqoxeHgwa11L7zgXpmxPY34agfYjP3O3Tc1EmVR7w2VdOv/k vu7wb6Yg4W92z24lEOKWsc9VRwFSS6aTE08Td06qjAraOFBZrhWWflkIU4GD wuh9NpJ0Oyvvt5NQaTCduVjAh5WLedqnTWrIH6ISjogZGHQ7Mibdw0FDxRJf BU0WbI03PDhmKEB88rN6b8fpCDfv+v2+HYGbgsKcikYSP2cO7ricykOPvWO6 eS8TssqWz63k+cCo9fivJAZW65k/vGkkwv2Pl9d46fIhX9Sf+9sVAaZ9tJ0j v4+HFz6ttpo3BZCGW7dF/GJDRlnV3rNGA0+WBdv2uLCxvFJzewNdrxHuRgMl DRw0aTu2y18TQGZqS1McScHXf+Js0F02eh8E3uga5qK5fMHeWVZ8GL4pLQyx mAXhSs87Uk8SBwubREc7uKhfc/q97jYBRpQ9rDzjCLj4r56hU8DHyg1hAT3/ 4YJUS0nqD1FD0l5xjVMoHw+eNFYbRpI4VCOXYX6Bg6q12wSa7proSS/5aa5L wdAvMTm3iAlc6W8cDWbhtd8atQlDNja/qFJ1bmThR2r7u6B0dZjJyTLzM1hI 0zLRD0zSgLGFsOlMEhc/CK9HuyJ4cP26J3y5lIC+bphFuaoIJVTGijtaXPhH nRRHbuLg1qP+7Ck9Lv5pGvVvH+PC7/FxOS2/6ejHiQqdvwSQWCgEVitxoK33 x1trdU2EqwuT48rofA9a8HOSSXNkSJwV0KWMHcEdpMdaAfKUbcLe5akhLzHl 9nOaO+ItzCkPgoRtkZnSmmuqeP1SqrNxriq2eavsmyhg4PP+hLkRq/nYHLCl vENbDXMyhuqmaB/ZJJn49tAcF8aL7G7m85FhdtqB08rDFxXdFOuTBJ4NHC8Z 1NdAztimguCoGfiPmvXkxkghNm4o9hFXERhiFi61ayRQOMdmYe5bIT4/7pNc 1Odjo8fPFGEmiVuDfyTXqhK4KuzxDtYnIOMh7xjwUIDtH9JCiiI46AlvYGnu of/N0fXByG4CTT8Vc88k85DgE3K7p5sNNfM7OlqjJBK3ajl8jORg8XBpQssK LnjPyNCT9hzsn/tGs3KI9kC9F/NXEQceqbAMiubBq1A1oUydgcYJOzeddi64 OePh/jQPBq/b7hR/E+HGRuljM5q/9n0e4/F3eWiUXX5eYxHt4Zvd3k+WUoga qztnEkPC5/BgYOeUBq6tWWRbRXu28I9T7kW+PLS4zo398Y6FM1lj85cX89G7 2+OXRMLGuwt9RT1pIjRbSxrvdTCwIcn7vLmEi5ONCb4ZlQTC47QyF1wRoTV+ a3GpNRNThcL8B+4CjJkyBqL5s5CgxHgf/oMD4/SDxl3xPNye99y0nubh2b/i WXF5BNL773UVdHIwmJkldbVjQZr2b3blViHUgheu07QmkX/GrKVljIfCM4dr Ti8kUFraLZj9nQ2bUtP91zqUIRv5haFbTUH39ctYMlENtifK+4haeh1qgD3z VDCA9cRDeS6Ov5juHRnEQ4VbzifnWiEGV0qfDRSzkL470KJ+vgCruHeWtp5m YUSp0nB1ExsHOr+Ol5qTGPze2+2gOBv1rNV56Q4Evh0cU9qoQeK3AXLwxAjN 34x2PuVDe0W49vqCbhHEvJoivxo+6jYrziga5mPtpZLV75cIkPz8auhs2pcq ofpX9boJaNxgDbdV0+84Eiq9EUHBZZdCaWUsiegcPddXtjz8NXbOTmkPC+f7 rp7tdOPBoLYsC3UsBGU3BrAecmD1Xcbv5BMSH416BSwegYbFZHnoQxKs6iXe jNUU7od5Gb4ZV0X5ObHbBbqPOGxa+0Q/i49h25jSGD8+mI6P/QeuMpH0T6bB EwNlPAxIffpFzMT3xPiiuQdZOLw14bKHMwn7y617oz6roaTHf/5MqQDHJuxf hXsIoEq9y/dqVgFGRB98RXz0pS2ZfsGPg4KLKn//8KS9J/H1D4xmYwytTVus 6DoOT7b+eE4FHlMGrxJSSRhFnrcJofsEzWbFXUaldD2MKvt1XaX9o/w0x+QK H7Iy8svEmiRqH+1/eNaBAd+ETz1DJQSaR1WK5MRcfM1y1syh8yH+mFSmw5b2 Q+qNpynGHDyyeH73AM3L1+uSjeaE0jxm932xNSfgNlnxK0/Ixl7xq7o4+j5v g99IGvvZULJtsotdpQFJmYNflguF2GrtfaKj6vDUm1LI56qisSLr685YDl5O SEYOb6f7iY11mQW0n3rNHQtsktjocz2zI8KURNjXbu0JBhOHnaLcJNPYIF/+ VpUzgwvFVXm1a2+rYVIrP/PUd5p/Ww5ZOvcQiNCNVRKN0D7j1RF6xQJoX7fy +jSkjuh7Est1qhQ8prVmvVIV4vhocMOchXyYJu/RCSljYGWoFc//OAcarqmX jlyiEP3pcc+KdgqDKn2Tr9epoXiJiyhalo2hDzl1ik0EWB13mxP/VcNYZ/9/ j7jQvrrUszxpHgeZifrH4vcL4fPjiZtOJhvd2RmzPlQTWHHaXXbnTQr/Az1F TO8= "]]}, {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVVmk4ldvfpsyFPe+N7dnPs6nQURlS1MldClFEhhKF0KBDRQPRKSnndKKQ JoqSkiT1FylThdiUZCpCJaQkEsn4Pu+Hda0v67rWb617pLwDHX2nSUlJVdDr //eVk72HJu1JGJU3KTm84mEyslYYuWUWdr90MnKfmgnjhJ7ZVIkWrB4WRe6d z8LurrkOZyw10fH4Q9y7HBWIb33qPi4WY3ma05X0SRZyU6I2UnKz0PrBQX/A nIeae3IzOtaSaG1Nqd9qxoHnCam46O/q0BaULd8zxoHOGlPJrEskZC18ZvR0 MdER+N8N/68ExpwP906XZuNmW1Coqi4FlQtW+52HNBCVuyci6606GKsNFtfe YmOzltjYwV8TjeKEO9VDAhzqHTJzWUZCY/aASaEdF6ODkrMBcSKsaPLOCu9S Qu/vz67vJikczfcoLJvJQWr4tGOJsSKYRRk9M5ew0bpxV0jMZTGuPXuTODDG x8Pl7AGPLE0c8+nO1D1An69+aVykpwHPp+Xr/zeljLjoYKfaNgp22+NlIvw5 eGpiGLJRjsTsACl549cMXDufreRQTSB1lYxe70sWTsY4Rh29RuCRWCPfj+Tg oclDTidBwn2c6yF6w4OeixuzrpwEMbP8gKSUh78Yni49MlpYv6CLxT/PRuxz M2/F+wSSnAbbagVMvJ8/VHae/n+rzar7GwoEKF9cE5hlSOGMj9OjgiY+JNpN M7ihIrjtvH1w/QkF/E/vhZfhNQrGP0srhVkcBOgwwub+VkORUsSKo25sPOxS rb7cpAlrkal0XQUbvLEj8pcXEigIt1v6b8s07DNxPiR6oYFTX5b0f53kIMRl UTrbk8IBUcuHGIEqui0WmkSfoPD85LTrW/lslPPdrTX4FBwNVSXaHXxop/hS oR4ieL+XH7etU8VSwnsj4SBEuiBU5WApE3Er+5RCfLTQ36UoerKEg5xTkY/6 ikW4LK9tFqTDQuDw7Gt/VKmjJa1v0ukkAzbTzTiDb2dBWbTIyGi7MjYbz0nY fk6I4VMZo7mkCtY9Mg66fIHABCda/5QmE2o7dZmJzQREaZ91z6ez4U/FHMlo JqHl88zF+hkHhNgvPiGIxsO7fc2fzQyEV6qNThygUJMWLCvazkeReU9JxVMS 3vdlfph6EPim8jHzdjSJtA8Rf+8uUsNQllv073YCsRo1TO02NkwvdO+X7iCQ ccHFWrJWFRsZlVcaEzQRbL/zd0SSKuJsVk3r9xJhcKh6ldcz+r+NZJNyorSw wTO5x7CchZ7jolLBbgJ77yr7jCgw8E6urUNhOgmPdYEOLWI2+g0dXBX3ifGo WBJNGQjAUq5RsnITY1+35Nu2MxzUWb1z8LCgsHlgycjG11y0jtqnv1pFwtd9 4Y7JT2x81Hdx6lclUJlltfjrXTWk3kln2FEiyKkdDt42k40HfvWOLwNE6D44 r6QoiAXTxOdhWmsIuOx+0K/nNRM22wKZogkCNep5EsufanjsmBl4upNEo830 KLtbfNgeM/2qdpjWQ+bSWFM/dUz9TFcZa6TncUrN+DNJgH2WOv+k2IhQoH/D /F6vAFkDu+8PhYsRMDSrt+c6jfPnhc5PjMWw+1v7Z4kBAzd835c+2UtixPPo f3PZPDxR8ArYyBOj6u3AjhwzFiQGWz78KS0EX0nAUxYIsKj2WOFdYxJnbpyL tfnIwfxdPctaq0iMxziflb/HwIIMjdWhhWqoCPXTbY9Sw4eIS9ku8+n31Cjv adLnIzSDEZu+gubzpgLbFeoMZHJDGh9sEOEpW/bLYRUBbu1MEUlf1oZkzb2m mzKaWHefX2wSqQnJ15HdgZ850HWwb+2bT+GRzOxT+i08FI95sNp61XGFmUjW xKvCU7u+kbpFou2m1eQmfwWEExdtK83VMWC1xmB/GAvt7hPxPrYknFMvXXFQ 58P/yXlNn79ImOw54CEMYuCR/qbYrbYEJIuK9ixLZqLgquf52NVi3Ks1SRrv YeCiYPNwfg+Jrd/v2zTkcuG+3atBt4OC+znxt1cNNH4K9uYHtpCIKP3xPOHX TDCcbge6ehPQcXi7gd/NhdyPD08Up0R4s+0FT6+ei9dOLuaXFMWIWBYS8m89 E137s+x8I2k83w4/7p5iokrscWSpjwi1bb5rfvXyET7+X/WlXRQWJpZ4J+uz gefZJT4zxFg42GlW4EPrO9/taGI1fb+l0+80fz5G/nmVV2yhhSvegfzNaxg4 Jfc4s5qeT8XuuPRfuRxcmvDLWXCLQtCq05YZhhxUcfMbQppI6N/2aX/jxYWf 6p19Ajs6L1hLVlR4cLGbE5hiEU+i6I4g0GA5D03zhNfarUkov5b3eXCMi3wb 2Wq/LhKf53qWnP2phEMPBh64gsA928K+9llqsI/ILCfvakJR+/7rnD0cdGZM 3DBW0kZ9Qp8iEc9CfPqU4PYSTXByCjVF1ioQbKvubbgqRin/tO+WUAH4jpZm cw6qozolwFb+Ox+uyde7ymieJBEfc5PnK8Hii8KGV/IUmLrPeoerWTgSl1Dw 5iEF9vixG/EyDGQ32Bfkz9EE0Xjarc+Z9nPTjrBUUgj/k4Wsa/k8qLypOKd8 VYiybpmEsUYprMu+niO7Xoj5U6ODsZYs+K4WdK6vpBD9xveGpywH+ty13yxu 0/5X+GPq7HMOBA3ptdItFD7KZL9qLFBDSmdcdsVmEiXJihNJhXx01i83nx6s iSZiyv1+ugA79/xuf99MYX1qiL/vKiUczlt1t/0gF9FjB2Y4/MFEsPmvsDAt Cn4tYSUFrrSf/s41bwxh4eXp/cPpq9ioF4ZvH6/SwuFrP+MfZvCgrWC7sP2s GMuqCLsGWr+fOYPaiRtIhAlbrAW0P2ld3yC4lETCVkGteXQXE4tPf6/6VCbA HTMFnalTPJiYtq/xUOBjb8t+QU+PIpKyC/uvfBEjXNpxbfl7Jhzn5eVt/kVg tHNJxNQjHkL6W2ZmeIqw2+Udv+k8A8tOfvD1kdJE5vdYG8tiNi6O6D33qxRh we/Vu+7+LYBFndVX4o4G6pMLnkRnCdDrO3y22UQDZ3b8yj39VRU1pHd3l0CI HSfDnTtllPGq8oqtId0HdKM7X9cZsXChpkSic1OMA4On76geU4S09bGiKEUK I/vM89YZciGSEaTrOc9CWVre+PhFJoy0TDwtaP6uGTvYGGPKhrcBd+EOR7pH SKvNeRGjipsq0V4T6Zo4021jzeiWxQMtrp7kIAUT2S+TZz/xcPjbr/EwCy4K i3+MFh+n+VPRqvXxhTYcXz19NTuLzmO/ysuVZeqIiJs+MzuDj5o/Yv6To/UX mTpi+biMibZlh5hL8wmU1ZmTe9M4SEvJsi91IkHZJJEvdLjIXJdIGgg1MLHN YWxYioeyqy1v3WVof3Ewvtm8mAmLqsaPdq9F2Jloc3LJNg6Kh9f29teRcJXb Zy7w5CJPOaQxeCWJ6hs8Kec5bAx6jCrJ0/ki0NgUN6HEQ3L90roNwUL0df51 osiEAc9FOd313hSyJULf6bR/nlsn4xcvonDcps6tie4vtj23H6V9IOBhsPxq dycHJ/I/rgzqp+Cckew9e546Or3u2LdKxJgd+qxEfiMTk09e54WNkJBQewIy t9L6KHLalT6TQFjA0YIMVy5cjv/bGTNOINt1147wawy45xs1GGeJcKHTfNOn MlXoqJ8cmJuhgRNJqRdnjbGwKN1s9al3QnzccnjFfj0udCXHZy+4TMHB6F14 kA0fGZGSvDlpdF61H3Ndp8rBJpUvFfGuFBabNcneesHG4VITMwatl0MupW/n m3OQ8Sz4puItAhtc9PS9XfhYatxmKvuDzqPFse3hfUw8zFXfbm5NIK26a3Be IRNyFzfcVVOcgyOK3RWe29joI0wqs3fQfK+A64IRFtZlnOuqvUchMnDn3Yhu JtiqQ78OSouw+U6z7+sFKnDUrb1vzdZClHPiqhh7ZYzU96b/TRK4uHKXYOtS JvQLhd0ZqSJkzbp+9JuPGvyTb0uihgn0eTc3jLupwC1FWYYTJEJvHa8jslmI yZYs10MrSPzzZsGPOR1sZJozq1roPmsTSbgTYWz8fuMVN6Cvgbjgk0HGEnX8 H8lDUmE= "]]}, {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlnk8lO33x2cMHoUsFRNj5r7vMUi2hIhcJ1lKyVKUlKhIJanRgmSJnyVL SFokKkIlS3k8hbFUlsj6yBqJbE/Zx853fn9cr+u/65zXuT6f9+fgJy/auPCR SKQq3vn/e8O0S51/JwZDsqnu3W+nES3ZumYhgIBI/Imt9jA/fIkE4aAgGkgN rIhnHabA0fbF0YBdsqAb05WapL6MIh8taUrr0cFyT8zh04ITKM9IuNvEBYf7 7e5e4Q4dKKTWUEImGwcNA5sfB44WchTnB3skV5lg41iglHmQAvjV5qPHrTCY uZ5qkjf3G8Uprzuh50SAmPShqFafebRStSV2rSUOpR49xlsO/kFZ2EY9xW0E uC0wlg16y9G0jWnLqTtM0I/+pB5uNYnUStd/vpKMQ/Pd6/1ZXVx0ZJvU5Y4p JtxcqLqo7TuP1H8EK1toYdAnueex+AYyiDe6PVcJI6C0jeTMPjuOnk6VNwh1 bgKPL6uXmhy5aG/vFomITAJOC9wS2VJBhmGjaFUFZzpERn1hvFjuQ3y0hsCu 3zgcM+8eCnqyiHbwdXflWtDh0D80VHJ9AVXdthrJq8Lg1hs7qbXRy+h2WmhB NZkOhXZ2ekke4kC21XIj38HATlDRvUZ7BM1teacmKYbB/nr1AcJhDjGeDWU9 MmBAEt8Xsv/5eZRsUty09bwMdCVX/vgYSwbJkWpx5lkGuBsMnDClDHESDcTr WwIx0FEe1ufPooBxirvo4h4Z0K2rfPfgKQnSOoLrbY9j4JOwWzeDRAZjmeH5 mHEmhK1URcXFiELtyk//oyI0gNX4R0PtsZyh2F6N9XtlIOgBbTqEw0UB1aYz mxcxqIZz/7bcnERp3/zKxNQJSE12VOV49aKidPzgliIMNm17rYRrzyI1/VrB r8ksiHAIyiUZzKHZDY30LCUM/DQuf1TLW0Tmr3tKaiQUgX6cpOGL80PTFoL/ eD4OAeeOXvETq0CGartcXIwxaCKxb3aMctF2PyOH+0wmME3u/fiVNoqsJxJ3 +Y7g8PHU+KNrDssoeZ35uG+sLFC7wgtCc1ZQiOiLhkQWBq7cau0V0yXUISZa tycEB1I+p9To8ziiRLreUDNkgI24JIhbTqGk4iWB1/E4RGrfzyWVL6BbbrLf 1l1hAElLs6bIpRVpa0WbfM3EYa50raSZYDNKQFVGMyYYhN1Ji+yHOdT5V6eV TBEDrveYrfTv4aIK74zNqplykN1m0SMhOI/GVGRiPypjcKSqKsP0+1dOvdu/ n1I7CSBZhR+QLP6G6DleY7s/YjA85bhSdHoJLZbdZ03YYxDPfWzk/VIQZvDf t2CYVz+jqHV27Qiy1PhXhBKNA+13PnXeaR61ynhTOxsYsFk1nZlwewHpPJEt C24j4OleLQ6cIMGKftwi9Q0d3teV6D0zE4Scfb7/JVsyobMkvhaPn0CWV3x2 2f3GwEk+2DxDsYiTaRpHZWfSoaJy81DL8xVES39nnd3PgDnhm9+/UspR77Do /E5TFgQazpEENCigwFA0OztFQG9k2UG1X+84zfpnYMiSgPH6FwsrI52oJuf3 SxsFHPprEpgvP42hphnBZFyUAA2tG/IOpbPo2h7pwfkdGGDuXwoNsQ5kXhBK 9uzGIOENg/XjvgCIR96LmP4bB9NQoaN9wWRY3eiTuIaFQ0qW/Kio3iq6kOpK /7qfAJYbJCq8EIaHpJiytVE46F6wLb43OMLJ8xK71qeOg2e56l59dRKIeewa CzHj8csp0wsLJMNJoYjrKso4vADlizvMB1G2p03D2EM5KG1dCmxcn4vOX9N/ PPkPE/ZPjS9pHmtAUuVR2c3jGJAlq4YSMd7/KhyK+imEQxv3j4+4ziQa2kQ9 F/gIgzJNofecyFnkZrGWOXgPBwX2tKdw7hK6bURthu04WDaGB8XZL6H61uKQ /Fqe/7cSchJHKHCkJ9blbhkdtIydrcOHKGC2J3pdGx2Hmi9V8ePai2j7Va2K dfcwUDhqfa3t3hByHPsy+/YfAvRWN2XKWw+hIp/X8sVncBgbjFC5iiZQ2Zkd nbkldDi97vJRdtgMerhXinx3K6++6P2s+Ma/QM/ctf6KFw6fcrrLfoYOIVmj pxEH6wjosumR8n4zhxYcOmQVEwiwSX4eIP6fAHisv9664zNPL2oHKi9tJYO3 /bBrYC8O7im+p/isyVDR/Ni7gff+0tSlxu1tv5CLvIZmx78EtJ3+e9nTdgZl ldbl475McPUM79WumUR+dstnjN4Q0CCRmLqYN44aMid/lLXIQxaE0/X8R1BO 09znTGF5iFCwu1ngPY0UyAm9z1Zw4L43fqa+TAK7WlvhqpM0OKNyMCz76iy6 BObVhcd5PPupt6bIrJhTlBe8+dMhAv5jxza8ifyOxLW6M6N1efoksobAfwa1 pDgta63IQBOH/yolYhYNrAb3xRgzoWb91ILgRjL4EUcc+3l89bP/wN4c2YfM zQx3caRZ8M5uW7crtoJkvnHZQqF0GFcjnHs8SVDxckDjdzDPjyb59k5eAiDa T0sreoXB9IGnOXfrVlBA66D1da4cj28RFyjzE0jCUTtITxODqZNWN+/vXERS Ho6nonj9ruO415avGUUvHBKimGcICHYT1LneMoA05sb5eooIkIhxZW1ikaD4 65yx0Dc5sHCOfujBLwReD6hpEXJM6N3MDlgHArDheWHHXjvefMOkxl1FZtF8 ytixX2QFUDJpM8r/NI3W9+16mLiAgw+fnhOlgAJxYd9Ltc9i4NiUUjGW8Add du4ZTq9mghNHqUjH4SWn0JNyzP0GDiLLXf4DbAp0iDY9i7jIyyuqto6fqAiQ nH1pYy8ZkJYU/ndJ8CT67hken9RJhx2a1I1mnfOo1+l9jnA8DdpvMEoGz/5E NeKW9uQjOLTAn7nduwWBa9G2xpyn5+dmgWwPFX74QKmvY+MY3AnfdvWjfSEn 6dH43zEqBEgGtS2/PD+NpMcUJX/z9g8sKVvmmgsFGr9x1dcqyoNy1Hc9+8pp xF9wSW9FgAF5Gv2eG7wpEMZZcon4gUGmc2zroZlJ1LvAZTvw9O9VcuXhg/3N aFVYJfjWSQxy63JVNDvnUPzud6GTOXJwOjH82SnfdhQX1eiQHCELWCbzfGPl Kw5OPakjz5SBttWdvY3Ws4iftbFD6hUD3NrftnrYUiC9ZPjq8E0CxAtsTBM2 FaAGq1rHs7V0UN44ylc0vYB+PRFruNDOghOHkocnFqeRquE5n5gIOXitNdZk nESGwtv57PeqPH5VORh5dHM474bPN1vJYpBiN2m5vXYEiaqK1dxCMkALv6RE dWhFu+wNPBMYvHnWN+VM/plD76dSy69M4bBP6N5l37IlJD6VF2utRMCJf+wW LuYKAFv5btuFJgYE7IyXVqLxQ0bj/OQ0jYA+XNZnqWcMne6b2txrJgfH2GG2 hTlTKEfg0PfgN/JgtNN367u6ZaTx+v3FSlsejxO2eyutfcVZCvpRr6zI4zs3 Jd/OrJqT/NY7844ZBs+dWz+LMdsR96nTW6xbDgzi+6m6FnzQYBnkx+TlD3/g 91rdRn64qikNshkEuNrnCBsVTyFjw9n2EwIYCHx8vnHw2yC6dalzRKqRBtRN /zfnyttn0kK6Kx58oEPUwOjWa3nDSEAslvxnBwEioaHm/Xl9KL3VX4eWLwOS OjE3XjWQAbGTLUKiCMjuDBnVevwH6Z9VuKu/kYDB8ciqDJVVpH1k4sU+aRpc Sy/drR08iwqoAu6vRXh+otoa5O1LQ3WNLPlRDww8Lfz0ta3qkKLxYelRK3kg bVh4eevkH1T59PTgRQ8cTnZGr8HQX7C3azml/hMGFVum1YbeLyLty5vObHDA 4fIV6oTu1ilkIqK8poGfAMMHb1reHlxCGOZ/apsuBuZCNq+d304iR/28xXQT aeh6QOaeYw0in22RU/hhGugaeAeNFJHAsy5fwPmVDDRnZD81P04Gr0ZVlRPr WcA2+TB/zrsX1e+uiDbg8djsK0ua/UsAtC89YXtyGSArXpDd5TqDfP1foCpe /pAOVf7Sc7fnxF3wUv8krQBq6Tb6ewtJEDDIqNj3DAeJVG+qxGcumjBUnu+t xiAgp2ymek0cJ9IqsJvdzgTRyLLQD40raIR57PAaKgsG580vlmf+hy58FDl8 TwmHu90Hzpk9HED/AwfXrSM= "]]}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], AbsoluteThickness[1.6]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.01], AbsoluteThickness[1.6]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.01], AbsoluteThickness[1.6]}, {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.01], AbsoluteThickness[1.6]}, {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.01], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], AbsoluteThickness[1.6]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.01], AbsoluteThickness[1.6]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.01], AbsoluteThickness[1.6]}, {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.01], AbsoluteThickness[1.6]}, {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.01], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}}}, {{}, {}}}, {{}, { {GrayLevel[0.5], PointSize[0.04], AbsoluteThickness[1.6], Opacity[0.8], PointBox[{{2.5, 3.}, {2., 8.5}, {5., 6.}, {8., 5.}, {8.5, 1.5}}]}, { {GrayLevel[0.5], PointSize[0.04], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.5], PointSize[0.04], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}, {RGBColor[1, 0, 0], CircleBox[{2.5, 3}, 1.0770134957364965]}, {RGBColor[1, 0, 0], CircleBox[{2, 8.5}, 1.0770134957364965]}, {RGBColor[1, 0, 0], CircleBox[{5, 6}, 1.0770134957364965]}, {RGBColor[1, 0, 0], CircleBox[{8, 5}, 1.0770134957364965]}, {RGBColor[1, 0, 0], CircleBox[{8.5, 1.5}, 1.0770134957364965]}}, AspectRatio->Automatic, Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->Automatic, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-0.9137572023771123, 12.034749951175986`}, {-1.3407701204227243`, 11.684945979004436`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.8078503685283175`*^9, 3.807850433819927*^9, 3.807850465786765*^9, 3.8078505148009644`*^9, {3.807850547837539*^9, 3.8078506015738573`*^9}, 3.807852389908346*^9, 3.8078532910728865`*^9, 3.807853370054033*^9, 3.8078539032085094`*^9, 3.8078547043432198`*^9, 3.8078553288362355`*^9, 3.8078555197178183`*^9, 3.807855756050655*^9, 3.8078561697741985`*^9, 3.807858741566633*^9, 3.8078599550272694`*^9, 3.807859990984474*^9, 3.807876610382922*^9, 3.807877832447008*^9, 3.8078784571512685`*^9, 3.807937430309677*^9, 3.807938059703133*^9, 3.807938125192956*^9, 3.8080170548570623`*^9, 3.808019335924786*^9, 3.808020565209567*^9, 3.808021404936626*^9, 3.808022483673705*^9, 3.8080226297809114`*^9, 3.8080231288817887`*^9, 3.808024947249303*^9, 3.808028689762136*^9, 3.808046965115074*^9, 3.808048999548579*^9, 3.8080493641590843`*^9, { 3.808225260408915*^9, 3.8082252804939814`*^9}, 3.808225348812003*^9, 3.808225877930172*^9, {3.808226070228924*^9, 3.808226109809478*^9}, 3.808226241635625*^9, 3.8082264776913*^9, {3.808226509284398*^9, 3.8082265241606216`*^9}, {3.8082265869282165`*^9, 3.8082266163454065`*^9}, {3.8082267320784664`*^9, 3.808226749310108*^9}, 3.808226791292115*^9, 3.808226845103774*^9, 3.808226993397946*^9, { 3.8082270271096797`*^9, 3.808227047046482*^9}, 3.8082274978096294`*^9, 3.808274223129296*^9, {3.8082761679833717`*^9, 3.8082761971487675`*^9}, 3.808276284705385*^9, 3.808278162739342*^9, 3.8089994261608543`*^9}, CellLabel-> "Out[266]=",ExpressionUUID->"a0673d7d-5756-4154-8cf5-16ea3b46fcbf"], Cell[BoxData[ GraphicsBox[{{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVmHc8le8bx+291zn2OQdpEGVEyfMpZKSMpBRCSBKKSGiglEQSRX2loUQk lSSrpISSTTLLTLL3+D2/v87rvI7Xc9/PfV/X+/O+0F18rN1YmJiYBliZmP7/ +eHv2fHi5wIQoWTXlxmyoGf1vcaAaCZ4DAh+k+ecI77Hcqi7KU8RorMHrBx/ rxDJh3z0Lb0kYHEnZvL5j3GiMbDjknM4B37e7gkeKVgmzB/5hd7unCNCemR7 uMoXiLn4K1fbanggkbDH91IiP/SWMtUO/5wkRASvF/2Z4kRFhYvH+/2NxHna SgTTO150X85iUnLhwvyt/ESlvUy4v0H7YX/3OBH0sGpDmoUwMFqtWNzwmrgZ b9qec0MAKg/4Kl4rLRLtGf06yd5M6Nll67uJxgL7xXc2eR1COKz1tPF3BQtu Pb4W8K+NG7+H/nVuiGGG7Kr7jrVyvJj1UgldOfOjhPjFH560NEukP+pKP6I3 S5iXhP+UucmO9j5Dd7cRNij6Z+bsUpgkeM0e/6fVN0cwaOl5Rw04MLt+M2V8 NTt2HmuQLG0URNSt9R8FDIQQvLVw0dRHCHueqvF1RU0SpwMaY86780M5bOqo kSEXkmJyB74c4sHGlpc8sps5cTb1+UmXVXxwfKOg5ps4TVyyP671t1gYdNtb 9nyeTMiNW3a89JYHJ2Srfw0ZMSPw45M+k0wB3C+q/pQ/x4LHlc8ODg2xoNNa 83VVOCv81aP+SNZw4HDGkMqRalY4c34qOx7FDrERvqyJAia03tjZt9WFB4xM X44nqeOEgENF8qV3HGjvN04xz+OAPVXMqvYnL7ijPBQO53HDevtWu+thwnBd yMstZv5HvIiK52504IJueZXz80180I9tiwn/xAKHS8p9twK4EE50N9WocsDw 0z/t7K5+QvN7jZ1Q1ByR9H2rj/d6Zty5HTrzXzonzE5FjUjmsiCa75Qfs5cQ 8piqU2r4lgmFF9ve3P3Oj0cndrh9np0l6t/d+GDgzwXxncG2HnQhuIlfZjj5 soB1Tm2bSCsTHv8innqE8iORgymRysaCbN3q0fOqgohR7jynr7FM+GmNNu0n 33+3bZipxi1uZPJzFXbtY0fLzzWTj3RmicujSw4t5O8isbZrrjBPEwUmHvv9 nbkQmrRLwIo6STCl7vsrODxPsG1Os57+wIHTDTIV+9m5cSlIvr10aowIz6ny IBQEkBHUe/jdLwGU5g068BxmRfmRsuZDRfPEyQ+1qhL9fJi5ePer4gluOFWs d5OoFcW7TUwCrwS5kHtpT+6pcn4UU466J5B9ONVjzR3JzoXkA+k9M2/ZcZ9P Vjz2HBN8BZTqb/hzYNHInuXdIg+2Dme3b9vKgrpNuWo28zy41BW6x/MlLziP lK+/WD1D1PsbfTlK4UVt4in/wV2C5PMrTsyL86LR0/Oqmh03Bi4/62wK5IZp WkrFMV5ROFROTpbu48TpLo29HXUC0ExmKZNKZ8Id834BjRpmtMzbnF+a4UJk 1fFDnJp84P9UOrHGTgArs11MCcXc2HNh+vLR4zyI++T52pBjlCjQPK+fKcSJ na+vMvYL8+L0Nv6We0X9xOmSt/t3JPwkOMLqDz57zwn/g2f5DpawQuzu1911 q+eJvx0PUu0SOfGgZqPPxrsLRECDeqp9CT9G4mOpL5+yYn13z7E7d9gwE8/E ENEYI7Rv0uY6/zGj6+tfoXgKK4alJO+Vz3HgiVDY3bzJFcKtcPKGSz0Xes1u VmV0zhBxo63HlW6zwvL8Xe9qxiLhRF3s2q25RBjL7jrq8naJsH1SYsomtUiM gjlEbbUAPpvlcOhs4YXRTN6GM8LTxHxc74+VS8JIWeGjZRry4bifmHjmNk4o 3wx2CDnDAfFE8+vthfxYprus+ufAgSHP6OZgsn/P2wibMm9lQrOZPfvl7SvE ep8u+ozTLHFPtDzqgZkIWk6sFmvMEsCuKufGo8ycuLz1pdjn1F4iuVNWT6aB FaYfPltSXrDA46RtymEHFnBFGysaJzHhhtX76OVGNnAb8O0xMGDFodTvxX4h vLhw8uymF/psuCvxzH8TTRgxnxK2bcpcJpRLPEOtgznAX3b+seF7QTjEmbq9 WSeI4LjnxVNpnHiV+nOdTbIQOtHd85zOiicaEe/PDnNC9Eres9kVXqwsBR3d r8QM5VO+OuYkT4Y0loK3vWbBpsO899z3sCHB4D+25Ww2OPznGdK1wIk86atB 4U/YcPhIjHz/d3ZY2v+y2KnLjM/3BC7SXLjRSWmdTwllx+wqe8e7Mp1E8rqv TrfOceICISZzN40XMn+i1ip/5MOz/BCTVW5CUG6uC5t0XiRSTj0KOK3FjcN+ Wmvt1TngodL7UaOPCx8kdH0fTvHi5jdWofPRLLD5eWPdKvJ8NnxPljWXY4XN k32LOCYM5vvqzxleLGD52FxVQRXAgauB30vrhXC1mG/m4MI00X/gigLfJTYY hC2sxNDIe2uLa5TmEgKRbmKjnSCI/SJGf/RaOdC0dIm7dpgVRxnlr+Z7WeDF WZPzjcwFrs/uDN48NqR1m9zJfceE7mnJdY0lvLBeHM97HsgKmlbH+GmHRcL8 +MI8YwM3Hv1UiMp6uUQopb5z3mHADJlHAz+jvq4QKcbXSg/vYEFOf01lhI0w ShadwmUzWfEpXCvD+wAr7iVSUi8Vc4JBaXpS1MmN027ygurePDjrpnZg4i43 asXrMX+FA61zoqw6EEVyyU8OXykBJPxuezTgz4IT+lmbH0mtEE5GcVZ5P3iw 8qOlZJSZAwyV9e9VTci6MeW3ZPJihrPbOsnqMF7kbTskeH0VB0z4ai826fNB z/WV+fZDLJDUy9x5OVAIexNF8/xtWOF4eCyH0Joi1lw9yrGljgdZWYcra9u5 MXJt7V2dfA6ssAW3sbIwY1NZ06kdJgKIsTMIvs4xTwz/idNUMxLF1tzZ91U1 rAhPckgK3SoCFIq8/ETmy7DfX0cnPjacf54nw9wzRYh0Zs1VM1hhlhxiX+yx QjR3/rn/PJkPLXvq7R6LLRPsR9JSLNl4wPf22cJgFgdytuTJX2FaIC5+atXZ LS2EX9LPYiw3TxGpDnm6+w+yodLWaebPDmao679gaVCfI0wyuJSqcxsJ/hPe hbptLJAJD8/cY9pPWARFqYz95sIQy4375wLZ0Ll0UJ3Zhh02TF/4pU6JwMzp qK/kvhlCYJ3l/EZimRj3F3Y5u1UABqFM3ikFQgiCH0+SOwtaizRTrTcKIuF2 k8/vv5PEy212hulrBJDigpd+F3jw9MTUW89IDjRHr9m25eUsceCIqH1+DRe+ tPGGfswXwt9h/195RYtE9J9Xda7npwg92XS9h+KcCH9bhEAmDnTbR6V/2cUE PoXRfxGXmXByq/XU7BQ/1ueGT89eWiGKGx8bDZ8WBMNwVy5vqyBSH5e/Pmmz TGzc/NkttHGFaKFIJfOW8+DAMINZYC8b5h+d9hu9xwv5Tsb9M/lTBD/HyNMQ so+0Rm38jpN1b+PNdsKISQTEeo+/K/0s4Nav4jNIWSKu78rR3c0YJ7KylCqi yFw7PKR43Tp+gfDueEFd28kDc4cwv209/Kg5Fbo04yKKdKLg0vHVQjDn/8Fr 6iiAtYV3HV/HsGND+YUDAx+5odnezvVQhhfN9+5WtyxzgzEfODYwyoHNnq/p P0Z5Uf9lS//azinCQCszNWxRGGE3i92WT4rh6gnz8o5jy0TdssvsmyMi2O4Y JySaPU6wR5yImOplxT7ab7P+eHYUP9hgW6bEBak9cS8Nd7DDbZ30dKzWKPHq g75f0hg3/ttgf95sDydSnLc1JfJwgrpAX2NczoczL32sw06zk33WHtH/ZJzg XeQTiSJ5nauRteaQJzfqPz+Z2LSXB7fnAvwiQpaIT8NbzE5LsSBjs6mFhu88 sXioIPzFTn6Y7Q13+2+CHSPaBnc0brLCZH/ME2MHTvSI76Kd1V4hrhGN73vP MWMbfYbmWc2MqtmyA5BjRv3bkuaN/oK4eaq8IbCTGaH7bqtP2a4Qahs+DCbV 8qJqy2kRB3luGC76bWNSEcBjgVuvknUEkDS2LvGsHOknESE9CrFsOHM1Ue25 Oxd4fZaGOhd5UdSSKtkxy4wcZrGK+BkBPDJerzPzRAiFrj4iznZcKBbT6k/3 IXlH3/kg5wAvbswfoxRw8UGJ9lQtg4sdKfK/Ox9UC2O9U94PkwQ+XMl1Sht7 PU+8iZxMe8/PAJFIP/yP5MdOimvPOzVFfOynXxRkYQPfTuU3NzhlEfC5712a Fj+OmjPVzFspYMu954Y8V9lx3aJnSyuVDstTloVKJOdin1StPVothS0dKoHC JuxgzZY4fH6FBour94dO+ywQd/PXDBazMjC0PeBX5AYyx6aZmiJz5fFvnfJ2 tXFWDBTNBnSWK2L/3A52u5dMiIpOOxn6i4YCa9XL8sJc8NjYHsIlQoPOYRHp f+rzxF1B6QKfh3T8puyPnz08Txi+C27df5WBX9NX//ujP0m8Cyy/vtuJATW3 7qliDS4kft92w1xCDoqRdH3hX1wwkTCjiBcogMf+/h4VgQmi7MjvKP97dGRW yHrbyXIg3zlRiPmyAjxneo5Hk77SED10qcVSFl6CBFuOFyvMiZ/K+4xpeBtz i/nWrWXirl+3ckSMNFK0u+8FCzOBprx2+4GDDMzPS7EtkFzYdHzmqVs5DS5P f5kuObLB0vxw5XZ9aTi6O0uWmc0Q+ZOLKzpbGfBUmq3/ymDDYzbqR7nLdJx3 6t98oOcRsXLh2wu2Ahl42E6tlRZhQuLLHVtfOK7CwYXllRPXWKE+3kiNuiKF s4lGokuCs8SmftMrP7Pk0OKcaayut0DsGeEwXG2ggEmas8tXmz/EC8/E4QgX Olav+tyiwd5PJLY/7V5VIgddE+Rrl3Lg8R2Tpr5aBRS8DXUXXl4kQkp/e81s UkLD+tWZ7xNIX33QqLNFXR7MXyObA7RniSwNK4eEWBnM/4r1F+UbJDSGdj3I mqLjr2jv79VtM0TzKb6h/U9pUN626dSJ9UxQDTvn2pmpgEsv2hgu+t3ER4th FSVyv82WG7ofqHLiQ0Xv4t4FWeze6GCw7WY/oUWw7vBpkMInXj3n80nMcBp+ vCUwiQbbYm7ntupJgpmzO3GVEgNNF/vNHcqniEdyuddfLCvh3yF17noFVsgn Z55t16JjFJ/ibM+T/VfO9X4xjzzvT/tSGx+zgcmxyvvVoCz223d07PEcIbIU GXdCGQxc2mfEWkjvInYMOO8os5SDvcehP02POXCc6Xxycxsdhn9Lo0NMfhFz cRVKxrayiGa7VCDAGCW+ji/OXngnBa25jpqev4tEdf+IA/GfAuLSnr/m7Fgg jPbUn/UVpsFxdQFv5FZ2qF9X23mVrNeIlGHNZHHS77zf9o37y6KrMK6Zns+L 20fGhxMrpECVz73Jeof03lb9bu1YGtxeHs96xzlPdIfpX7UPpOG6yPWyIWey P/eZdEfepEPDJuXYJ04OTE/o/efoJofZT9Wt4ZodROOeVAWBDzI48aTI/rQp B/b+PjnbnEhDkUWPrnSBIEwUJatr1RRw8YJQ57VmFrw1Cg+RBB36ipaKjYXL RGXyxoXua7J4FRP8fJJ9gXhZYJ5svMBA9GK0q+VaHnxs+yf8+7USXBbNLN7O DhGyuWumHNfIwv5g7ZLd7UGit6dikzF5X7uui5YWt68QtSddfhaP0cBx83rz eiMRrM8zNfc8r4jbkWWpZ85xoMuwhG1USRYq2fMtS9kDhHlI+SeVMAbUTSMv rlLmQgyn9ysTeTpW0aW+7987RPQUeb/mV5FHx4VLQto5rDi2UFAz4UnDbc8s hRl3VkzYcvYo2DBQpf7vgi3PPOHJG8qluJmOiAyjm33d3FBXkVKedaFhPzfR X/yAHdxJBjrJ1gq4mmkp+vHrNJH58ub8pZ0MDJe5sFSILxDDR5ifuxQq4IRA hI3rRS6SU/9CzCpoeP7dPf0jZgjxum6PnyvyYJGRSf4sxI2YXLMkJ3UaVvXM Dl+cGCV+cuxYHXlJDu82Jg5H7+fF54qriRsc6ZDROGcdydRD8JU8NH0fp4AP qxW4pM+w4ks3y2bXLTRE+2ncmYhdIh6P5lysjFBADfvDIcP+OYKvNkW1IEIW tyt90gv2LRGSuT4JDWGSmN/tUUnECUC1attRrSgGevySBFxcRTDLeL93KIuG ADPd5LESdtTryG9xP0XDuNa4xyfWWeLRu38/x3YxUB+y8uFtPunHXcfsgr3o KLQPX6Ovww2TLTOSzsV0dMXYr1OpayJcz9zzSv9O8sUw1KhzcY6gB7fl7Zmh I1uvqowaxorTW46cGSTvg823lVvLhgty906y9AzTsXwKeusSJgma5qt3st/o cNL7IS3u10yYBH23cnBgYKNTyS4BJx5ExH/ju6NNg++rnx5ULBDPgn47ypD7 qTicHRjaIQgeQY0jSQdo8Nj90p79xAzhaFWstXaMAUW5CNupEzwgcgeVAnoZ 8DdKHlg4wI5vcawJHdpSqKx3GdY/wY/3PlM9puR6b/NiTeYtmXF/ZCzo5BFp JLSdPuJCzpm7hT97cVhI4fTYA1Necj48ZRGYFEXmj6fvcb15jSFCYINxkcEm BgK8sopfXBdEqdeO3c076VgSVak/w8kMFY9Bn/ZTMlhu0H5v5zhHHFt1vOJI rgLYJewT1XTmCEk1f6t4RQYs+4SbTih/InRwt7jIXRYHrgvdPdPLDM3i6/fG JGio3re2e8McC1KVYrx9fWTRPWs1GFQ5Qfy+tSirUk8jvfnqmp7LbAjX6XeU ZlWA+ajnhVdq7KiJdJ5L7Gfg+8ysnbB5LdFbGZ+pRPJDLPP69R09zBBZF8Xg e0LH3aovwsezZoieT6qnc7dJIFXqrXXpxiUi/2Tt8L8xBVSfTK12fjZNLDV7 LwbvoiFPLXjTle8ThNivaNqVThqiPLZxx/rwIjvhUmXjkhziLHrXhw5ygW7/ yXpnCcmrj4khS3X/iNI1S/vbr0qjoa/sixQfBwIT6HaWogysqBy6QavmR7Jc vq3jazq0tDxNh17NEiWTqjaTIXRk5F5LtuAbI5JuvaGU/WZgXGf/YlL5b4Lv jU6Eyz+yntfxtUx7DRF1MZxPGk5L47GbacHiNWaszem8+SBAAY8H94nTBFhg qBcSskDyT+Ld1tDAMla0qP+8tOMDFUW5By8FF7BAI/y35L/NDOxmfH5PXcWE 9/OndmzhUoCXdqmpYeMMMckz1lO3TgHX/hbdnn87SXyQC40Uz5fHj3D3O857 x4iAzKJ2Xgl5PDbe837uFSv6jgQ90eiQRG7WqneXfFlQka34wdGVjvFB/bMb 9jCjRFhZ98RaGvZpMuUeNB0nTvmUbTpXLI+udSP9FXocMG67wmxBo0N3Y+e1 X/eZsHCm90WoMwMersrWbPL/iA66+c1wMu8CFTZIrDxfJDI5DK13tjPwp+5H x8fXHDAl1Bc+KcuifZuAjOZpDoz+V2XHe40Gde+aQ/wvPxE3DD+2TpD+E/WO ea/Kwb9EupHH9GwW6TNI+rPalwMCAZsvf7VXhL7Lbh62E2zA7JLXpdc0XGEL VwyPXCJ4ymN/X71H1nN+5NRj0XEicyj2q7o0HS0nRFiSplYIs6TkP1YDsii1 7rX8tVRGuPHcNhRWYyCRZZ9XWjI/ySei/Nc7Ohq6aUIC2n+JVUPhbx7408F+ IU3L4cgKwWt4rSSf9K0dD8954bQQVv2W8nZnpsBsjdMWOtsiOf8e23LvFh3D h15t7OKbJBwULs/Zx5H+d0d1/TKPGJK2m54yf0ZD8LOjOhcTmaBkv19vhvSJ QI5LBXpuzIg7k8mqzE3yyo67XuDdFPG6VOONy6QU1KOuXY5Nqi1xnNsQ1KMm j8Ln5UPH9/BBfITmzWcjA/raB91Gf9hwMn+b9CeSR8XB7LwZwkMEYfopYaBM HrtYoj2+yC0SW9VS2Ix86TjZL2RyrGOIaHJujvlxkIY46x9r2g1ZwLoSsn0h jwbP+38X/JY54H0hyMic9O1LBiK/y705IXDt9tSSuixorfbLN74xI/aNQajh RjnIrGZ/GdAxSewQSti5d5U8Srn2ZqvcmCOm94SevWVOw3mVYgp3DAtUM0eL /txhQF/9wdi98yOE2m5l8ad+shjS+fz4icY8ERKdt/076Zv9h058XT4xR/zn EzZ97JcMovdLjT2vXyAqNK5nfBBQgufWxWcU6Tli39vCKOIoDdLdV++ubmHC Sma0xoMf5HoWu3/zts0SCnt75r0/SYJ5KPV4xoIEor6dqLymLQub5Pb88FAe 6PkfOldjLoF3z+rsbiuKIPchT9XrGSo+frqzup8mAPpJ/9PjlVR8e/Us3o4i AqkOozVBQ6Jw0XQ7L9Ulir/zL7Q1tkqigwjv3thKwem9hETxHimEuJeFx2wV xyXppz9OJ4jhdCnfSadsZkS8O878IlYWmr/q3zRIScD7isbHxXAx2PVzrZuf EEXHwn0P+bfi4GJ5uLndjfyebZN5PlIUpbf82Is/kZ5vcyrsqyUVi3q5X1xd JFH+46tzWpMYVIbOUe57iCLqIOtAxzkqzlaFXdxlJ4AMNvH0CV8JNJ18LPpl LRdul/Bwb3GQhvaKbm+CqCRGDgfomfdJ4odG+wuJnxS4DOhbd96RxNXCs82f Zsnn9fYFyKmS9f7y866RrVQ8aMjaUGkiAw6LH0uO7pLg3tByxaWOH2KCTjov 8sVBcTfrPWpMgScXjXJnSRxrX/Unc1tIQ+iCa2posAiaqcSr1usSEPVQuZbx VQI5BxXeRnKQfv415MAWVjHop3yY+0ueG7346t+RlyKghMZFut0TxLievEb7 oBjaOtXldQwlECLFJkS9J4bK1qlU1Y0U0Naw/mGJomLme/nwxwcU9Gs8yt+u LIU+q7tLjhYy6E3v8zxDoeD621cbUqSpqHc1/fx4RBCn1hq6Xz8vB88/L449 SRKExf6rZ7o4xVHXOyMg90MKrl6Bxqu2UPBFBtn31CXgZkbpcrghjuK3o6G9 41JIXGJJ3NEihjGB7pC0DxJoKzKJuTlPxfNUqXWN66hI5Lp6NvqYFJSeNwz5 vBDHjWhFfe4P4qjNFL53I1AULZIf+v1HxPDzJHMg7wYBzMd90c8KJjmhrPo8 VU4Um1OkB0XuiKLqyBoWXhcKji3e9HlyVB5v2Nkv20yJYUHSJuTwhAScnt46 c3WPEN61/IidJ89vPXduiewvXmw+es+fd5aCwJrLmw49E8arPJbeJl8KkvRa 41qvUmD9QTvhRZkETjn/9LgXKIb0siN7Iw9RcGj4fMLVOQq4vHROqEzIQsK8 e2zAUQQcd1o4ggLEwTaY7jOpKoTHi5P1sX5S+Gfh4VyyLAnlqqYDrCYSuF6o JhHfQMXq0O2ONxyp6PCqvGMvJIQtOlOnOySFYW5X/sbFnBPnUnwfaepKIif2 /fOxaFn8KIs32HhACodNdarunBeDxobwSosgaQy4FRt4HhBGRYlhnYghFfa7 nl1/riwCP5NSxuskMXAEVVziHxZHiRBRlXxCFo8jtedq3/PifWPdmnOLgpBV p2wb+SKCUad3WWNtorA4KFnHSdbhh1hWZw3y78029f7gsxWC4G3zd75MUlj7 Z4MRe4UYpNbf93mTKgU/oQxjU0UKCi29j0YfoMJLLOajfBV5H38t1ts8lkSj je3H8O0SyJyQNhvdKAl5/XMquzeLwz9gU2ZEgxjSivb9F3lTHLrfHvyTEaQi m393U/+8BDaJuGtK3hdFW/D0C7slHpS0rLO8qUrWH8u/g74NFKRK7nV93iqK wMNpx5xV2NGiL2RjQ6Uh/QLflNQPMfBtXX3u0U1pbJLaxT71TAS3VDvKnrWJ g+/bJp61UpLY5qR7/9ceGbwcoSQEuwhi+HDwbMsRMXz7oH6cnSYME03L7NCN UohPev/V05oTYbpdts/MRPFQKi/nQ504pnmGD95MoaLP3PqRbr8QmHn1y7ex SQJTBvNztwSxY73u64casnjWfdPYQ1USbPmDL7RuS4G124TBdoyKT16tJrSH UmgJM/gRMScCJl4Bc/cv8ijYEmDS5ySCrWW0A9/Ifo1w1fhT+E0M9eus29ju SoFpaV/9DXEKjvsuRJ3KEEF/tv+DrjEJNJSuOsq/TRIbvxfnBerxQ3q7e3qL uzj88uplQ9ol8NX4YrOqnRQmeN22ud8QhZPvDm6VV5LYbnnuZN9OCYjL3Lk1 GCiDW0ddvtgESSK7oK5i4yVxnP7CkqYbI4aPpnZSNFca+h4VTuuqUrDRJzHp Rb4QcHuwbipAGDU+xjILG0Ww99NHAcc6YUymtDWeeiQHHRZmoZdpwri/WlvN /5Y8NPWk6y/fksCkqMcbhwgqnP8dCdvaIgo11XN6pQKyKKSkEemrJeAbecHl 0h4xPH4z+HxpvQSW66d822Yl4PP2LMtqH04M4vwHld9SSNVj96/gEsO69f/V GsjRECYnnXSjhKz3U6umF4VIjoy4ZJ3s4sXBgHZxN1Mp5PIanmvMlUFu4p0n 5SR3XPYJLbmJisMkX4fL+K4Aaj63qFgpCMDOk+/YwitBcu5PUIjYIYm9J/eV tq+TASNtpGqJzCPDW9rH+0iOS8fLmj18KYk0nYu7xFqp+Munesfggije/zlb OEz6SM7snlcBkdzYKWOwaHVJGlaW77xcPopiRChvs1mdKPIYhsovaqUx9HYg 9bqaJKzcpu9IPxXH4+H/kioFRJEs3ecZoCYKJjc265OvpXCg835gfoQY+sK+ CdOOkPdm7Zw9cUgU9dMcLy4nUZHgFfikr1cEMrrpKqunxJG4f/Wu7ktiWDtW nNBESID6XjzogrkYvBW+08pGyBz46iE0ly8GtxTon7pChUeeQEKJnCDqFswO q7RJQCJnPsyX5MHwPRN7l1FZPLBqeatD8td8wG0+PoOKOuat1+TXkDn8sNez YDMFkbNV0dpXxeF1Zti/Y0ked43XmHwkczbvv3DX/ONUNDkrxE42CuNy1qzS 1neSpM+4zaWmiqAxZiC/774sGgxS6zLbBWF5y/OabqoELtQlHE8rE0XYjdVP V92WRWv8/nfFBkJYypN+me0qhdlNgn+uSPIjgUuwOWxSDJqP/DS74ql4oli+ 6SvJw6jf8cI3ckXxaDCz61WHGIafZrU4mwmj5f7K87L90pAJUN5NMxDHy8s6 TU2zVORdPvPlorIoiot7pejjIjAs3uR9t50XzJf+CqpWUKBa8zlWPFEGJudL B0Qrye9BG3BEkQ9/YCH6mk0CZz9xel46RcWHwzm/HCulMby95f2fd8J4dMhf 76uSFIwk0je3XhTGBFfZxh31IjjR8W++WFccw+P9vbs46PgqvCP30S5RjPrN clnJi0Prj/jw+QmSv2ltkhQvMlekTe+t6pWFC/VLvs8XSVTt5eDOH5OEaVzh jmZ1KSSVJwfRybzkC1JLXt8rCvkHwmM/Ksj3CA5qeRBBgZMDe3FZrDiu5Kx3 rjah4vdstBnXEWFcG0iO6jhMxYbKkixUCePU87qTwq/FsG2cyedCgTi6Nfql hKmi+LZWvDTotTiEK9Q9BXdQ8Oycx8bv8wIojXY5HEN6xJlNlQVqWZIYM7la fNVHEkLWb33/JAvh1vLTDQUbePH6ZErRXxchjCfG5yv4CePM/oSbbo7iML/Z ejRySAaFfb5KPC1SCF0wrw5zk4IApfGlRwMfMCHbeVxWEgP31TljfMTw6jrf zKQ7mXupx339r4hgFq31+7aRfRyWZNAdzQe3pQ3VCSni0Lh0zTCQ9ARaA4eD RjHZD1O8Pl3JZP7wFuVo3yb9l4ltiwtNHJVvvF9H7RLE8YRffSOFomiY4stn cZHAvyxHWg5ZD/GhLUztJmQ+pDwouqMphjd65RknSF7W7E7SYASRPBYZ+Gui K4rDix/mcqVFcNSluuoGuZ/agO+pdYMi4DKpN4s1kkdqyS6fLCcKYivWHZMN kYP7+iX2lxICqPuQ9c8+VgyfF1InzhwgfcKq6ukrMp/6da1fGd4SwYDz5YMR m8Rx7l/vugVBIZyxiTycyioC8c9aH3O4JcBhlFtp+kQGi6tfPg0fJ/m377S+ Y58oIlRjuWQnyDyjVomufyeFdfe2efwakcOVzFT93QIUuLG2ZlULSOPsVMA3 hrIkNiUdUQksEcT2oG1U37NikHdOiQuOo+DKr7d9RBsFw3wDizW7ZfBO3Un2 CrMIRjpzqjjqRSHcntGQuCKD2Y7BnmAnMq/i+rbeUhTD00S10HhvaXhNFhxW eSqC3udp/J0VoiAuujLbP6TAcHk4eNmCBo1PzTxW30nOR9TKRBxSgu83Gw37 FT5oJgyuopcqwDi/OOKkmgh8+9ZZXd8hi1/vum/8fCUAxtPf/RcZDGxLs0lJ XxZBXmqkHZ1DCe3dVqpjJO9qXnDw/tpFQ3t7asPhzWJwusR049o/KShSy7ed WBDDanPdSqVkGtgNXHkH+4Txy+fq42N/5LCw9+wwK7MonnT4nRFcQ4fAbeOA vVPSiMw7EZbdKgUh0w06tU9F4ajA0LQ6JosmRkJW9RQVwcNTm231yblr1Zh2 0W5xzE9U3vS+IY/tzS7ZoX08GJ4b2PdzmY4Lbx2KyvnE8DCUJfxOnDw2R2qU EZWiaLfzCor5j4EHZS13xhYoyN8mOuaQLYtw1/5na0gPfVj9TbN4rTScPnza 83KFHzeu+dvUdtCx2yOeLeyYGD5obwyyI+eGVd5MnJp1QnhwK4fHqloOD43Y 1g5/E0FUjHXkhQdyKGBIv3WniSFfO1+sl8xN+0VxB/kWCay1PSBc/4kGOb5P gZUfJXBcyMl2kE0Be9T7RCi3RBH3ebMLd64c7tpMdNRShdGlNlV+izx/Y0fB gMZC0mt0anyyN9Jx3dWmoLCZgkrFZl7xM/I44Jl5es8lLrxc+9V54wM6NCc/ fpHJJnNotVDIujlJFPOEbb9wQBT5fYLV/zXLwkRel7merBOJhfOc/2nJoTB0 t96VNhac0t4bLP9VGtFDW0b/LIshyHZTuqgTHYHybd0xVEH0G2hpX7tEx+co lkeHKaL4RLE3kabQYb1RsFLxFwWKqW70Mw7ycOniXNxZLwg9ORc7OSsZpFPP CJz+KIwbhiM8Qa4KGO3jln+/heRMdETBSIk8/uNU3Oy3WgQ+06seqFRJoS1t ZNkmSghmrJvFJlqVwC+/SUPDgx+OmsoJHmQ+TEdnzOeRc7Jlgabff7flsCR2 TTVaVhiSnmuE7/yQg3zawJpb6aI4Ro85n0HO5QquZbYmZWKQY7jHJ/iR9+HS ab71hxBCv0jOLwXSUZPmzy7vQUExMVha8YEGl1y2cV0HOfwV6HmWeY2GtO6w c77FkpjKPnBtrlMOcdI1woodotC93R/A/EsOGbdtTSpJvtkJfUlpSpCFv4Xn XNhdQdwwM2IZdZbHxFS1kTOZsxIa7HdfRSpgv9O9wY2fRDB4Uf4j1VcOJ5/z u85yCeEnR8cvLlYaHCx9rNoYZE5ttNrHfYqBgpLKa/QNVIjw1/AYH2DgVH/l 3yPXSQ4Y/7RyMKDDcWzLrB3pze3zFunfjWhws9c6uvxbFD2qtjajgnL4km2s 8+e5JB5mpQvtpsuDQ/Ks/xE+Ubx2b7D+5i2P/tPrS4v9RKB753OIgrkcbH1f j6515oPZER9h+SU51Ei9qdwxKYl31s98YntpaDJjjdz9lIKd4bp/JM+S/fBM L07XXQork+kCC03kfmweZmy9S8WpHasvp5rJo1D1MfFimJw/xnxzp0IZ8J5S Gh58RN7zgNbe95oM7D6nOFm6gcxft66P70/SMOt04eo6UQm853L2tpNgoKp1 7OirzSKo3HCoeyuzDCg8VAl+KhWbasOLnmvScP1xYpxZjxjUvAb126toWIzZ e5PzhRDUM6RNzxRJouKM+5rOSEl0hyXn2KqR71PDf6KZ9OwzGUJx6dvJej5Y uHO7lBCeiQc1vd4vjw+i7ENnBah46pkqz/yfIirNXzQ/YZOFZS6lRDtCFpV/ Zn19BsSwxsqifUSNjgK2VdGqpM+VLDiIdAxLIUX4Dq0mXhBOig1N9Kc0dDwx Xj54jAuhckk7vxBSGDM23xAQIoJO+6V415007H2YnGIlRc5172/Juh6nQftE oIOMnxAKVA/GHd4ph8pNxSf07wmj8L7TrThTBl7Uat9dHBRCEtVx+u0gDYf/ 5Zo15onD3sO5cc0vOuwTGX+/N5L3x2VBBB4ivf3j+OeEGT4I2WT67HORw2qr 1v2UfnFwjHe/516RR8uRrxJrG8j5z8aWSOZmIEw/KOhKgzD6ArJ3u0WQ99k6 /a5/RRhVDIfzeq7yqO1wM58ZpiB08Wp1shcdWndKXe6pigKfc0pdeRnQmujd XOhK9vfbAxfuVJPr77CZSztGwezl729KDBSQ4uJDcTQXQjTHu2fV5P4Edl9k Pp4nhuQl91fqT+nwM4rdkbFRDFXibxuDmmlQzXTtbHEWh7tg1inqbjIvRLZs r3AQh6+YT6pBPA3FWVSfDdsk0Lxe5kGnCQ38dZyur8PF8daMvdq9j4aBdU6l Nyd5EPx67PU+yOHFzqKRTiVJWIQ9+0R7Lgtuxdy6VyfE0Jux9FiTRxENCSPc cvEiiE9foWZukYXYqyJZeRMBUI9UDzfeZ+AjJdbt0BkqKNY7NiuflkJ1qvdO zn8U7Lv3qK+crJO7cj1599R4YDDEtf87Jx3Ca8qGp6tFcP5GQmFLPh2ii+GP 49mEkNNoUfhWWRZyTbEHRvaSPNf9FfKQJoNjUUUiD95KQKClIpH/vgzK+9kS FpqYYJnz6BU76S1qK/MTcTtE4GZK7d3zhY5rLW6PndjFoCq+669BJsm/ovGV m5/FQG1Mr2Vuo6OHLed7U6EkUntv5FQ40lB6j3vpbhEFvQ3bCFZ/WTTLrdjn plPheWKus+sHHXseBh1zM+LB2TdGzztPi+PaQiCvlYow/ImZkBAFOtzbQkoL 95E8ncsjmoJE8C02YDrdiPQ6mVCPxSoFnH0wGZ+fIQFFrp1anTcZ0K+S291I 9u+A2ITinf00hMi0mVBJPik82k9NvkvDTi7JH/NewtCJ/Vf1u5yKrM1cq1ei JaCt22nuwEXBybYA6uAgN+7mFI2mDDEQymy961OXMKzXv3njOCOH+d4tYSsF EggabePLcJKHr+1PSvMtIehHdbu5Msni2b84sx0lokiaXfv5//8HUJ8z9Xp+ jgqDeuM/clnSaLhX+P5aNhXDbtM3f2hL4/rRmbzYP4Koobn091FlcDQqdG8v Gz++f0nZuZH0gTXXeuvqNURwu6a0cvUTBgInYrMEw7nBbBJeHMlNx+wp4o3l RnHIs1HT1+5VQnnam8XFJGFoKGg7GZD1a75wuimG9FmXDeJaR61Jj2CWVP4a I4gnAtecl9Jlcb3fzESonx2vFcTXVp6mQ5t9aPnmb3L++TuzGELOU0Ul4/Ml F8n6qWhX6PmqCOvvH76vyibz2P3Lf1/Kpch5jpUvJ4OCGpWYqxxk/0U8nN3x rlwYHfrBwnpv5VBeT9BOpokhLTXb4qMNDXSzu7Svq8XxzPIObYOMNJaOWC1M M0mg/H5bqz0byRcrzSc/dIRhUNXUs7tOHp53zKK2HBFDyfSu4dF6GvZxnCKo TuJ4wx/U5G9IQ/VjCaa9pNdPOMzzcJL5QpU+eGOJRwL3GvTq9/vLYKT3+KVi bSE4bXrV3+BCR06ljBsryc9ESzb3eHk6LprVH2gm/WXnYGZBWrccHDZsu9/f K4ZLb3sM/Ubp2Jtxz2XVein0OmdZtFcysOpMWSmnnTCW39e9CZmloZJ+wvvZ YbI/im280vnkEOJ9oTBjnzhsL17pjVmUQ84+r6OhD4Rg/1ajUTNbHrd7iYO/ ywWxWipqbF2GNC7dfZiktCCCTembTaN/yqDn0NntAWvFsaby4ir1/+iw0vgZ 6mdGQUZE5RvlNDKvOsP3WQqK4aDAUEX8Pjp0NjezP/0qirMftTcLkf0SbPux VY0QQ0aZ/xPup3LYb7tW1cWWAj3NDl32cTKPdOI6Q0eEkZ8n5UGYyCGtum9i fZEwOJL2P5fkVsZ57v4KpyOiGJHT/pJzlKz3CuxTnxWBZUZiX+0LOiJ8PJ+H 9QtDVHBq5jSzPByzfrjVqQvAek1tromoAiL33jGKseDHbMNw+jmaHJIMvaiH 9YShWiTTn/FQHtlKjy78dZXEsXuZlZHTchhx+dG4eEAAB1L52cT85DFcL/Er 4ocMltuy9wVvp+Fyi/q48i9RPCOEq9pInzWLkLOXCxHFXIvzjTFVadzwj/LT rJSC2KTb13NtJH+l73u1v5okZFKsKufPMxBNv7dXa5ANVdHgDQuTgUTvslDG PlYcaF34c36bNMmBn/fvqi0R0XcWN1J05WBhErvPlWOMyN3O227kRsftVi// Kwd/EBer9YWlsulQ17Pu3n0gv0R5rr9TZEUB1o55q5/uYQU9oP6AgyUNU6fv G+XO/iVurBU4pOvEgCDF5lrTmTliuWJdHI8FHaXenYbr9owQGTRxXWUNBjzm 5Zf0uj4Qk9Y7Gg5fV8CWmHK1K5bjxPpS0U+nUuiov3n6d8bPaWK/hsTJHxMk 7+YrfLSC5wi17oi1u0gf6REx+U9IjBlCtR6PVC4zUNrC5Ox3dJR4MPHhO1eb JLyrVk7UOU4Tpl3rhKOeMuDKHs63rowZg9tjVFc5yyH6WpX8k6UegkXm+4Wf f8k8N2sfCLu3QGxmaf/5YpccbN7KEMWn54mKq5ZDuRU0hD+3leCJWSKupkXm fWGWQ76tre5dbyEw79X0YL5Ogy2Hslel1hAxu+71ehFBGsxr1HoZB2cJ+YcD GXf05HGXpYr53LE5IsWoqG7DMSn8TPnc/TGOGSJDX4QUjsrDS6/30A7WgZJb ekI1DRdIP1k7uIUtgxWGqV78CyZS0Pn6+XXSAyak/Yio2etAw5kEA510JmYY Sg3OxY4q4PJyxbUbsfyoXv517gCfDLASf2egNa5kIK5LXdSU5FWSzOTFkmni /JcdU2sWaPgCz8aGs+NEWnPoe0E1Bu6nOKqW+HcRhY/pe9YV0iCpkbWarjVD rN9SzfEtRQlRB8NeMOnNEjNitXIZq2kIVT/5cX3uAmGW1VlcKawMOQcm9WA6 G+rWMdgcXtJx3vPAqVDBMkJ//TY3N5JXdUx+Z3/8mSY2hW4/eFtBAQpGid19 aX8Iq7Fb24KH6Ph4ePRO4MElIkXAbDQ4ThrUn1fyInOWiYv8T77fUqLBffqL 1vKOReKHIP9Xk4t0ML0sKd3+aZRgjXYPWa8vD2shEQhZTBB3ixbZs+LpiNa6 /YLpwzwR7iHdLHBKHkyaGysL3ZoILc0Yo2+k/8yW8ogYc9QTCUTF9inS5y9f T4v+jVmijbPNUqpQHqc7jZd/m0wTZUHpa1SfyiK7ZVenMMcc8U9FKu7jWhr2 V1Sk7+j4VlLj0UginAEmyyu7RYqaCbkc/38GH2kYnHBcLnRdJBbe31Yas6Mh fvq/7UGZHJii/w3HILl+emHTDM8QYaHeyMcaQ4fM35fUOac5okkqiNr2XR5r VB8rJFydJ7TvSb+PaCHnaVPNEhxiwvKWGwvU5+T8+7VY96ExB3J2Bg+nWCig rTi+mh4/RlicOrPN9i+N9OIIs3TlwpKnO25Q/Ugeln1eM9DwaJmQefzaKvu3 PGZ5z3Z8Y/1AdA3yz23doYQL+rNM7OqsWCWvbHx0goGu6Pd71ve9LqnfcgQD FgyM1jyZXx5qIypz/mZar6Ljd2WCQmb5P6JuiiOFzs+AumaI4sHSGSLQhNI/ t5kGmldVvj7tB2GWF8ns205DwnN5pe7b7BCKToyafEPHjkiuAz0RzFgRP3OL W4mO1AzFP/y6K8Tx++5y38wZUPLArVVPeJHMFPue5xrJ++N7ixL7h0py/QUD e8h5wPeDqukWNSYIem/7d9GY5JfTU3/aBWa4cEWdVllLxxOs9dls1k9k+1p/ /5csi9KmxQu1oi+IY4Fb/ht/qwDzidHFjfbfCYkP17LrR2lgFqkYuEUj73eV zbVfXHS0TI+cEdIeJwYkqZ4X7tDwfiNXQUn0DOGxi0ehP5GOVX6TvrwvFomr 26n12ESHRe2VsBt2i0RNU9HFl6QPmG9gyArvZ8X+zji3m+/loGnobHVlgBXG JjECLXJ0VFZVxI9qLRCbAjTLBBLJ+e6AVWBL4gDh+K9q5tVbBnRXJJ8qWg0Q hWeyFIuO0PGvP0olgBgj3h/Z3PaiWA6uAicP+F2eIpJNJZhvbiDX57+dEV/L CV0z95pT/nSU57S//xU5QEhvfxC15ysDP607JYKezxLzB39IKycwYJ3y6LzQ MDu8RU83bSbzxWn97s8nNjAjyG7Q/UIXHV6pwYdZrJhRVv9f0Hfy+YsTJ2o3 tfQRborqG380MtDi+mbJd+8UkVH69SU9WAHuvle6tCrHiVDbpSPbnzPwXfjW /YXcUeL7U3IAalBEBq7I6Z4bInLqZj895VVE1Crbs3lBk8Qq5oSuh8t0TBcY PlRbYoJt9V7eChcZHFHZczk7YIY4AbMv+Q4kz37pchcaF5UU5kasKbdhYNgv 7vvz6A5CSLP9aYwOWZ+MjAGcmyIaUp2WNJelUFfCFsAaNUP0rkT0xBoqoFJ0 Yp5DnBmhjP2Ov0m+htq981sT3UOYGetvK6Eo4bWtRrs7bZmQap7244qUw+h6 hnOnLxPKMnvV/0aQ/Wj00s7Jnx38v2XSCp/RMLn7Qc7Nr8vE+aZ+q9PTsiTf oo6zzo0Rwo5aYbobaZhwsTx7e+sCIeHtePgauV+BEq/qD9x/iCcHE64pHGEg woND+3RDL6E+O8rSWciAcKy7kqQSE4q+zRpyNctil3NMsjcbF/yTqGlRsgro WuN3XgDsEHuU/8PUljzfyxKj7nwzxFzqP/s+5lVYbdSy/WX5JCHasy351jwd Z1h0nVjzWHHjckep1lEaHOtSy/4ljBAnnTsHH39RgFPJ6kLtg5kl+b6s9l4h dPAt/TzX68eKH/x1D6N8yLyiammH8vOByTlY5l+mPNLuXnlTHDFOdPheib/b JofNG6nixm1zRJdTQQ5vvAxaQ+SL+4/+IiqFLOyY99PRgJFZAwMOTO9q4TYj 6/mR8QU/bxU2vGOt+epHp+H6FY2Aj3b5JXfvjL6JVWFAJKxlKfPYJEH5pyzy l/QP2t1sqUA3VtQ2T6vxKCti7bUOXbvPkwRb3gndZXZ55Kr/9hULYsXlkkW3 qG4anjrHNdlMjRNd89N+B8n69y8+lZxkXk+s8KpEhLvQ8OLrC5WNbbNEvMHr yPEcWbjeuvLwcHArceNa7cGUKGnQniocq/38rIROddFWVJBCy8rWrlqrGYJN SfyHxDN5eLS+avLey4rHxYMBg2cZEMqz3pEgmUd8t6x2PFoth7Xif1gKJ+eJ vnuC34+3KuGQTcrg2MIkoarveSY2ShZZmv/qDO8yI//qS78CVZJfFQe3e7eX lLwePFZvKU1Dqu24xabqIYJfVbAynJCCzJUTq6kHm4htdnq+CaSvN9TU5YyP zBIFE/c/nJqgk/Nc4sng94uE0ERunNVqBg69tZ33ecEOv7U3W46T88P5rfGU 1TJsSK+dG5+UYaCHLn1msfMf4dozsabLWBb2fpf35udMEDnsNh0RzxWxfWvw htdflwj1rAKfz3tJHidsClrN86xkMay7Zq0yyffp1Je2xl9KUl4FPb1uTMMj 56ZPggqtxPQDp1e0dlnoxf+m6uxiwXeLsFAFMn/YLnRU69SyIWAjBdLpDLjb 5fBuL5ogDPVnWg+x08D+8ZF4f3M/EX6ibUiiVgZUyUuz7qTPpF1sL0t6J4dr vX82BOYOEuyCccwjmxngi4w0+53bQzxuOqct81IKItqxIc++M4PwS9l18RoD 2W0X/2j+N0JsObrq5hZxBvpHoyvSVVYIrf1jT3ZSZBD4uNRAK2KGyKOye2Xx kf1E3auXuzON+FqrpPjHmwbfXaFbtCy/EsqG+yh/LBXBJDafGe4yQnx+4Nrv 402HS1sMN43ghOnPpdSachrK1k2uHyhYILROSh4RO0jHyVPUMZ0NE4QR31ru 72zkPJ70vOHVnkWCRjt3WEOH9Hcu6yznV+OE45bchcdGFPxMYp72VOonzmhE T9D3yUBHLyhsqJAJvl9fsjs/k0J9evYDMwdm+NeqqhwSVYKf0bs5z6Auosag LEaP5LHxNyWKXx87tE7c8/Odloe0UF72T/cpIvjcE6KCzB8mm899ul52JTeO +6uVU1Zh/WPrLab5TDjfL1+28yEdwveDqMKfpokx/bVzXV9oOJ/zfuoL942S aMsL7X6tCuCPfh/5rnaZGFKw38dNVUL/nJnPh6fDxPGPfPsSV9Nxs323p3Fy L/E/MchJAg== "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, {{}, { {GrayLevel[0.5], PointSize[0.04], AbsoluteThickness[1.6], Opacity[0.8], PointBox[{{2., 2.}, {3., 8.}, {5., 5.}, {9., 6.}, {8., 2.}}]}, { {GrayLevel[0.5], PointSize[0.04], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.5], PointSize[0.04], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}}, AspectRatio->Automatic, Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->Automatic, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-0.9137572023771123, 12.034749951175986`}, {-1.3407701204227243`, 11.684945979004436`}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.8078503685283175`*^9, 3.807850433819927*^9, 3.807850465786765*^9, 3.8078505148009644`*^9, {3.807850547837539*^9, 3.8078506015738573`*^9}, 3.807852389908346*^9, 3.8078532910728865`*^9, 3.807853370054033*^9, 3.8078539032085094`*^9, 3.8078547043432198`*^9, 3.8078553288362355`*^9, 3.8078555197178183`*^9, 3.807855756050655*^9, 3.8078561697741985`*^9, 3.807858741566633*^9, 3.8078599550272694`*^9, 3.807859990984474*^9, 3.807876610382922*^9, 3.807877832447008*^9, 3.8078784571512685`*^9, 3.807937430309677*^9, 3.807938059703133*^9, 3.807938125192956*^9, 3.8080170548570623`*^9, 3.808019335924786*^9, 3.808020565209567*^9, 3.808021404936626*^9, 3.808022483673705*^9, 3.8080226297809114`*^9, 3.8080231288817887`*^9, 3.808024947249303*^9, 3.808028689762136*^9, 3.808046965115074*^9, 3.808048999548579*^9, 3.8080493641590843`*^9, { 3.808225260408915*^9, 3.8082252804939814`*^9}, 3.808225348812003*^9, 3.808225877930172*^9, {3.808226070228924*^9, 3.808226109809478*^9}, 3.808226241635625*^9, 3.8082264776913*^9, {3.808226509284398*^9, 3.8082265241606216`*^9}, {3.8082265869282165`*^9, 3.8082266163454065`*^9}, {3.8082267320784664`*^9, 3.808226749310108*^9}, 3.808226791292115*^9, 3.808226845103774*^9, 3.808226993397946*^9, { 3.8082270271096797`*^9, 3.808227047046482*^9}, 3.8082274978096294`*^9, 3.808274223129296*^9, {3.8082761679833717`*^9, 3.8082761971487675`*^9}, 3.808276284705385*^9, 3.808278162739342*^9, 3.808999426219075*^9}, CellLabel-> "Out[269]=",ExpressionUUID->"b6a3afeb-d93f-4c83-ae44-1b28bfe294d8"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Test-example 9.3: 6 clusters uz var=3.5", FontColor->RGBColor[1, 0, 0]]], "Section", CellChangeTimes->{{3.5861419875297704`*^9, 3.5861419976873884`*^9}, { 3.5866493144203615`*^9, 3.586649323782378*^9}, {3.586653229602487*^9, 3.5866532369355*^9}, {3.586653296929606*^9, 3.5866532987080092`*^9}, { 3.586738830595744*^9, 3.5867388435925674`*^9}, 3.588047727583789*^9, { 3.6492089358834743`*^9, 3.649208937334276*^9}, {3.649249108128611*^9, 3.6492491291730485`*^9}, {3.8073278502934694`*^9, 3.807327856753771*^9}, { 3.807330606842617*^9, 3.807330607127431*^9}, 3.807419826983467*^9, { 3.8078769443369865`*^9, 3.8078769531871705`*^9}, {3.807876984596395*^9, 3.807877019410102*^9}},ExpressionUUID->"5badca24-592b-4ac4-888d-\ 1669609205a5"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "2"}], ";", RowBox[{"SeedRandom", "[", "1213", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"centers", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "8"}], ",", RowBox[{"-", "6"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "8"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"var", "=", "3.5"}], ";", " ", RowBox[{"number", "=", "200"}], ";", " ", RowBox[{"AG", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "15"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"MultinormalDistribution", "[", RowBox[{"ci", ",", RowBox[{"var", " ", RowBox[{"IdentityMatrix", "[", "2", "]"}]}]}], "]"}], ",", "number"}], "]"}], ",", RowBox[{"{", RowBox[{"ci", ",", "centers"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"data", "=", RowBox[{"Flatten", "[", RowBox[{"data0", ",", "1"}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "=", RowBox[{"Length", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k", "=", RowBox[{"Length", "[", "centers", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Dimensions", "[", "data", "]"}], "\t", "\[IndentingNewLine]", "\t\t\t\t\t", RowBox[{"(*", " ", "PODACI", " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"A", "=", RowBox[{"Flatten", "[", RowBox[{"data0", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"xG", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Min", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], "-", ".5"}], ",", RowBox[{ RowBox[{"Max", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], "+", ".5"}]}], "}"}]}], ";", RowBox[{"yG", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Min", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "-", ".5"}], ",", RowBox[{ RowBox[{"Max", "[", RowBox[{"A", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "+", ".5"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"AG", "=", RowBox[{"{", RowBox[{"xG", ",", "yG"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "=", RowBox[{"Length", "[", "A", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cc", "=", RowBox[{"Mean", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sldata", "=", RowBox[{"ListPlot", "[", RowBox[{"data0", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"PointSize", "[", ".01", "]"}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slcen", "=", RowBox[{"ListPlot", "[", RowBox[{"centers", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"PointSize", "[", ".04", "]"}], ",", RowBox[{"Opacity", "[", ".8", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rad", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"mu", "[", RowBox[{"A", ",", "centers", ",", "i", ",", "j"}], "]"}], " ", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"centers", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "A", "]"}]}], "}"}]}], "]"}], "/", RowBox[{"Length", "[", "A", "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"rad", "=", RowBox[{"Sqrt", "[", "rad", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sle", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"centers", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"rad", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slA", "=", RowBox[{"ListPlot", "[", RowBox[{"A", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"PointSize", "[", ".01", "]"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "AG"}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"slA1", "=", RowBox[{"Show", "[", RowBox[{"sldata", ",", "slcen", ",", "sle", ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "AG"}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z0", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", RowBox[{"-", "8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "10"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slz0", "=", RowBox[{"ListPlot", "[", RowBox[{"z0", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"PointSize", "[", ".04", "]"}], ",", RowBox[{"Opacity", "[", ".8", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slA2", "=", RowBox[{"Show", "[", RowBox[{"slA", ",", "slz0", ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "AG"}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]}], "\n", RowBox[{"(*", " ", RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"slA1", ",", "slA2"}], "}"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Membership", " ", "Matrix"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"mu", "[", RowBox[{"A", ",", "centers", ",", "i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.6492090057091966`*^9, 3.6492090527432795`*^9}, { 3.649209088467342*^9, 3.6492091244098053`*^9}, {3.649209158417865*^9, 3.64920925818004*^9}, {3.649209311298133*^9, 3.6492093256033583`*^9}, { 3.649210113089142*^9, 3.6492101477836027`*^9}, {3.6492102101057124`*^9, 3.6492102852666445`*^9}, {3.649210331052725*^9, 3.649210366386787*^9}, { 3.649210460595352*^9, 3.6492104765385804`*^9}, 3.649210612446019*^9, { 3.649210958158227*^9, 3.649210985115074*^9}, {3.6492110384203677`*^9, 3.6492111235185175`*^9}, {3.649211229629904*^9, 3.649211315804455*^9}, { 3.6492113636653385`*^9, 3.649211429185454*^9}, {3.649211492505965*^9, 3.649211574265709*^9}, {3.649211638627022*^9, 3.6492116414818273`*^9}, { 3.649211676722289*^9, 3.649211697064725*^9}, {3.6492117276719785`*^9, 3.6492117988393035`*^9}, {3.6492125053333445`*^9, 3.6492125056921453`*^9}, {3.649217715871256*^9, 3.649217730379281*^9}, { 3.6492178205318394`*^9, 3.6492179033367853`*^9}, {3.6492179689349003`*^9, 3.649217984644128*^9}, {3.649218137820797*^9, 3.64921813949*^9}, { 3.767583963030263*^9, 3.767583963733317*^9}, {3.7710375889974017`*^9, 3.7710376674240637`*^9}, {3.771037704368685*^9, 3.771037739048053*^9}, { 3.7710378284800444`*^9, 3.7710379017911015`*^9}, {3.7710381152079144`*^9, 3.7710382385697584`*^9}, {3.8073339591929755`*^9, 3.8073340595236974`*^9}, {3.807334098655752*^9, 3.807334121739112*^9}, { 3.807334176227836*^9, 3.8073342078693533`*^9}, {3.807334984186531*^9, 3.807334995912425*^9}, 3.8073355280690455`*^9, 3.807335621383486*^9, { 3.807356212052678*^9, 3.8073562343090534`*^9}, {3.807358192031311*^9, 3.807358195326481*^9}, 3.807358257912961*^9, {3.807358372147204*^9, 3.8073583908680077`*^9}, {3.807358446346242*^9, 3.807358477389328*^9}, { 3.8073585386997623`*^9, 3.807358566510417*^9}, {3.8073588201917634`*^9, 3.807358850100436*^9}, {3.807358927205771*^9, 3.807358934396411*^9}, { 3.807359025589366*^9, 3.807359076250137*^9}, {3.8073591337267413`*^9, 3.807359134124939*^9}, {3.807408457995466*^9, 3.8074085079135485`*^9}, { 3.807408702156*^9, 3.8074087039561625`*^9}, {3.807408762039985*^9, 3.807408869037838*^9}, {3.807408912539135*^9, 3.807408936575889*^9}, { 3.8074089717808375`*^9, 3.8074089720769887`*^9}, 3.807420411573044*^9, 3.8078585079825974`*^9, {3.8078585509475365`*^9, 3.8078586414752483`*^9}, { 3.807858685408092*^9, 3.8078587105230036`*^9}, {3.8078587550414762`*^9, 3.807858755471266*^9}, 3.807858786893486*^9, {3.8078589887703376`*^9, 3.8078589963752546`*^9}, {3.8078596121024723`*^9, 3.8078596225156984`*^9}, {3.8078778697439976`*^9, 3.8078778842716837`*^9}, {3.8080278368658867`*^9, 3.8080278509239917`*^9}, {3.8082790470135913`*^9, 3.8082792781506157`*^9}}, CellLabel-> "In[440]:=",ExpressionUUID->"8c48a023-4703-4b54-904e-3b3838e93458"], Cell[BoxData[ RowBox[{"{", RowBox[{"1200", ",", "2"}], "}"}]], "Output", CellChangeTimes->{ 3.6492089719819374`*^9, 3.6492090157088137`*^9, 3.649209125642207*^9, 3.6492091659214783`*^9, {3.649209253702832*^9, 3.649209267602456*^9}, 3.649210073324672*^9, 3.6492103831880164`*^9, 3.6492104784105835`*^9, 3.6492106130856204`*^9, 3.649211041197172*^9, 3.649211331498082*^9, 3.6492113751625595`*^9, 3.6492114078290167`*^9, 3.6492115781033154`*^9, 3.6492117016511326`*^9, 3.6492117354095917`*^9, {3.6492117732084584`*^9, 3.649211800196506*^9}, 3.649212476020893*^9, 3.64921250864055*^9, 3.64921774647851*^9, {3.6492179144752045`*^9, 3.649217938031246*^9}, 3.6492179703077025`*^9, 3.6492180737046843`*^9, 3.6492181454804106`*^9, 3.732369286521491*^9, 3.732370172021549*^9, 3.73354065692887*^9, 3.7675371170999527`*^9, 3.767583683267287*^9, 3.7675839702316494`*^9, 3.7710369775596037`*^9, 3.7710376476005516`*^9, 3.7710377401725893`*^9, 3.771037902821969*^9, 3.7710401580945196`*^9, 3.802610601108642*^9, 3.802612091414388*^9, 3.8026531219750395`*^9, 3.8026887795233493`*^9, 3.8073278736058073`*^9, 3.80732852295438*^9, 3.8073290775054197`*^9, 3.8073291354016824`*^9, 3.807330180302256*^9, 3.8073340669600215`*^9, { 3.8073341017851944`*^9, 3.807334122390812*^9}, {3.807334192334967*^9, 3.80733420857581*^9}, 3.8073581983551726`*^9, 3.8073582606617084`*^9, 3.8073583917249317`*^9, 3.8073584982775726`*^9, 3.807358568521472*^9, 3.8073588518468533`*^9, 3.8073590811786823`*^9, 3.80735913565681*^9, 3.8074087098159313`*^9, 3.8074088709624195`*^9, {3.8074089154096727`*^9, 3.8074089374645157`*^9}, 3.8074089733627453`*^9, 3.8074117666785383`*^9, 3.8074204135603495`*^9, 3.8078585205840416`*^9, 3.8078585546991763`*^9, 3.8078586550069847`*^9, {3.807858686893956*^9, 3.8078587109514637`*^9}, 3.807858803410642*^9, {3.807858989061447*^9, 3.8078589967235155`*^9}, 3.807859586259409*^9, 3.807859623223872*^9, {3.8078778715902367`*^9, 3.807877890226893*^9}, 3.8080228274001923`*^9, {3.808279236286865*^9, 3.808279279637349*^9}}, CellLabel-> "Out[447]=",ExpressionUUID->"8795aac4-a750-4657-af55-9bcdfa5d6b9c"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9722018963283658`", ",", "1.9722018963283658`", ",", "1.9722018963283658`", ",", "1.9722018963283658`", ",", "1.9722018963283658`", ",", "1.9722018963283658`"}], "}"}]], "Output", CellChangeTimes->{ 3.6492089719819374`*^9, 3.6492090157088137`*^9, 3.649209125642207*^9, 3.6492091659214783`*^9, {3.649209253702832*^9, 3.649209267602456*^9}, 3.649210073324672*^9, 3.6492103831880164`*^9, 3.6492104784105835`*^9, 3.6492106130856204`*^9, 3.649211041197172*^9, 3.649211331498082*^9, 3.6492113751625595`*^9, 3.6492114078290167`*^9, 3.6492115781033154`*^9, 3.6492117016511326`*^9, 3.6492117354095917`*^9, {3.6492117732084584`*^9, 3.649211800196506*^9}, 3.649212476020893*^9, 3.64921250864055*^9, 3.64921774647851*^9, {3.6492179144752045`*^9, 3.649217938031246*^9}, 3.6492179703077025`*^9, 3.6492180737046843`*^9, 3.6492181454804106`*^9, 3.732369286521491*^9, 3.732370172021549*^9, 3.73354065692887*^9, 3.7675371170999527`*^9, 3.767583683267287*^9, 3.7675839702316494`*^9, 3.7710369775596037`*^9, 3.7710376476005516`*^9, 3.7710377401725893`*^9, 3.771037902821969*^9, 3.7710401580945196`*^9, 3.802610601108642*^9, 3.802612091414388*^9, 3.8026531219750395`*^9, 3.8026887795233493`*^9, 3.8073278736058073`*^9, 3.80732852295438*^9, 3.8073290775054197`*^9, 3.8073291354016824`*^9, 3.807330180302256*^9, 3.8073340669600215`*^9, { 3.8073341017851944`*^9, 3.807334122390812*^9}, {3.807334192334967*^9, 3.80733420857581*^9}, 3.8073581983551726`*^9, 3.8073582606617084`*^9, 3.8073583917249317`*^9, 3.8073584982775726`*^9, 3.807358568521472*^9, 3.8073588518468533`*^9, 3.8073590811786823`*^9, 3.80735913565681*^9, 3.8074087098159313`*^9, 3.8074088709624195`*^9, {3.8074089154096727`*^9, 3.8074089374645157`*^9}, 3.8074089733627453`*^9, 3.8074117666785383`*^9, 3.8074204135603495`*^9, 3.8078585205840416`*^9, 3.8078585546991763`*^9, 3.8078586550069847`*^9, {3.807858686893956*^9, 3.8078587109514637`*^9}, 3.807858803410642*^9, {3.807858989061447*^9, 3.8078589967235155`*^9}, 3.807859586259409*^9, 3.807859623223872*^9, {3.8078778715902367`*^9, 3.807877890226893*^9}, 3.8080228274001923`*^9, {3.808279236286865*^9, 3.8082792801572485`*^9}}, CellLabel-> "Out[456]=",ExpressionUUID->"0117f991-52c0-4938-a386-88d0476d7408"], Cell[BoxData[ GraphicsBox[{{{}, {{ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlnk81Nsbx61lTcbMmH2+syBLSUo3kV1lS5ZCorQxuaWiIq202S/Zst4S yq4iWfpQVOinJCUkuhWi3BQV1W/uH+d1/jivc57lPM/7+fD89rrskJKQkHgg Xv/tJ8ZZJf9KULFU5od0qDcbAoeCQJMsHvxf2cZZ+fJg5xm51txfiJzp9vH8 c1zM5i1ftylSEh9/pne8fMxHu6YbVS+fjehE9vdBeQJhSYbnbzoKEN7Xns2p JVB4WNqmOZcO/cT4pv5mEkb8jjS0hgrhujQr8095GsptnunpMRdA3Z0QlZwi Q6GCFez2jomS9C31ZD0u7swso5lMCGEk0eJaTCihXddt9rucNnSeteTM9qiC d9zT90IzH6nTdbPWZC46PuWP73hN4H17/IDxfWW4V8uUnvyLwLtRq+xHllTc 2NIZWyHkYWu6hHELmYIY2eG3M+90oJS2renoVh7+CKiaU18mgEdpw3SPFQMz d7eukOBxUX7p3g3JSD4uUQtTtR0EmJxYFjmQQ8erSq+UlaMcPPjrbFdr0Xy0 bjDV+LKGDJFnn4HAXwX3NonSX8YIsYc29vfDzySolGpxbKVYGAwoXnHoPgVR V1N7TWdY2KM0OmHMIcPTV+2GiCRE+wKrCfsTCkhJWqfhXsKDMbYHnzlAQcC+ beeO2/Iwlp/9x0yTKr6VSfsUhREYTXl6UbmRheiADC91YwJ/Wsy8X8qmI3pP UR+PRiBq7ZrJYQcG5DbcdT52Vnxf3bhNt5mCJysMzh77LcSCvdIJkfp0MIt0 X0cdZINq9u6W4jYyENLYr1LIgHGOlpmWnyJarxgmnrmtAeriU1uMC9VhIHRs W+RMQ7fKmmjGGxacGXKFhk+Z0Dx8wJR8g46gYIvKsXhN/J59X5BnzsNg62j6 kfU8xL2SNK9fT8ODxfk3dDIJKNlEGAQGq2DB5hH3Ilc+yA0335yNJ+Gzf0xt WYQAg0Kb2FVJ6his+2Y1fJaMMtuZphJDNr4k3ZP1D+Xh+UFta+9+Eiz/1BmK GSewLZZnpLdWFRbph8NK7fhwThaemRXHr5tsqmbSzMDvx9/0loQzcNk+YUF2 uQCVfdkrT4vPTxibfjdZJkSV3q2v3XnqYOU6dOYVCBF0flyyT/yu5YOR85Ui NoRapU7nFNXhfGDO1RAtDexMcQ9faUmC87qoe86PKeC7zq8rc2ah5Mcp0Qu6 APylcu7fA9Twz5cs92fDDFz/xW/KghRa9rNd9xuyIH3la8RUOgmJ72pSt3UQ GFd76NX1Qx1PL7BSkvw48Jnz+4i/DBdp+/qmZG+wscvF6mfhUgouEZy2x50E vu4/yhg2ouCbgu/IcBsNy/10Hz0r5GHv7wZu92Y6Dv6751yvjirur75Uv9CX jgNGglpmPRV5LgPTfw0xcLe2bfvyPFnsbvWVjhxg4Z7xcasvWao4nLh9yimB h7k236b2tbLR0Kt5TNuLiY7jnzIOqZLx4GwQ79N6KsrnB8DSh4oIrW2pvbN0 iKhy5lZhAgS90xVJ8dlAU3n5Fh4Fcj0ihTkXNPG/nRnP2mM1oNOf/HpvOAvs b2f83H8wIWPr3ZRsIsD5uoyEp340VA/oPKp7y8f27IN3r+WQYGoZLrV5AQHp l2aXnPSYyFyzPnfWTQNKzDzHwSI2pNrDpG8GEmg6xrxl95UGnfoal8RBHvYE hB6wNlZHxfyMkcBmAQiHt9VSXBZ0FncWW7bw0VhlZ7pyB4H+xPy2hbv4UNh8 UMGsgAAxQmq7c5yK8x37NZf9IMNNUjbzlIEQM9NKiXHrFdFPSqqWt6Zh3aKS WflKGma07RYeK2XDdYFmrMQlEvIMNrkYPmQjLg2OCeL+3ZRPcd7ZxENKhMJC jy4xV5YXr15cIMBOi0TnuBA5eGhIDNdKUWE0Xt4j/EiDT+IFD6unmjhkVuf1 QcxF6njc1cvifjFxwqYgGzaMt540XJXKQ4wO+3X5VwbGH9rOs/Ug8GTI6pd+ PRkXi6jum5q5iH1xN5bfqYTWqauLcxfxwap8KUjaTcfCbz0+VEkKsCF36Qs7 Vby4+Ha1dwoLVjuax2j35+HxRf2lP3YRmJcTg1UksT/RT9wdImnYPRFu4RbA QZbLrUvtYp6UhSjYmk2K8ymR5DJbwYX5sdoYPQYTI+VZlF82LHQfGArS5THB snoWzXXkwOvG4sVFGzjIuabqPjjFQH6ozPc3Hgw0rbK9J3teC0kSV0+zD9Ng 6uP0qvMFDcNx+o35UWoIvzYUrCdPRuWk88bAFAJpdpUKBQQT5UM5ipUVdAio EZxHIiZ0VDfOPrUno/WcYRtKCBS3lq8+IrbD6/k1PyGAwKGb0yTfGkU4nKoY e1NHoG6uPV3WgQSWRM0Tc2M1BOaMRt3p4UHxvKRB5ikurPvzu202c+HQWl1h Uk2GjILTOe3h+TD+M92sz52N/DINxY4OJrSOGxm8jyDQHHHl6woxNytj9jRV uXOx64ODnVY7B5OTJ7fYg4bJLckNvqYsxMxpJUXd4kO2bDeROERFj92XwAh/ PuZklwrcxXmSUmF51o7y8LJkZnLSi413FfP6vdaScG3zKWtrZRbMDAfG9joS 0GHGd60ypWHkuRx160kxx/QfavyuoSCBnUzpvcNAs3JXWb+YAxP5X+5/8lNG 74NPhqF2JJRpEKEPbxGosh1wlHjPxc8p2emsFDrOpoZMsfvp8AqpGQzaQsKP DZ8TTbQ4+KxUZLftu7gO9l3W7rtNh5Kn8Yeja2kYnehLLbdi43O6hfODd2rY OTls5ubDAhiVY1I7hOjS9lgj8qZgnaes/sII8X/byXzIWELHPof86xY7efB4 bnwljUvC2XHXrDRrAW4nZI5T2mWQTC/NjqYS8FjvcL8uXw5654ZfzxXPF8K3 L3JtJRNm4zX5mSZCnBnd9rMlhgWNoZZORyk+8kI8SoIq1PDGdUK5ez0fp+9P q8uxqTgSeeiV3zE2dtJvu5NGCFzoElW7JJEhETlm22TJx8ZCH5W4a1y4x/b2 fFjLwYeujxYXDgqwqZa86PkXDRQ3lbR8PEegfvj6s9gTQqSRGYM/djNRe8vf n+LExPN1roFfGjlQMMx/Xtg9F88vWsP7rQAma7bueqJJ4HHqsOGT3VRUBqju Xu00DwZVwdNhdwictPNbes1aFfcaMx5WhgjRw7x40cSEhIl9r5tYo3S0jli+ ttxCx/3GI/aTSQJQwmZVK03VQStXYtcHqkH/9lK56RMEQsdSzINchfB1M362 opeG+IY3T/4mOEhe1vpragkXLPOqJnIOD2vt+d7JgSTEX77MNZnhoXu/XW+O lCqqArtCXoyKOXczxrGHJ+ZM8cWEgWEeRCUF1+/4U2C8omhNUDkXzJbDc39l kPG2vCrXxVaIzs3nJ5yXs7Hjsv7VarEe+li7N6c9Wh43NjWs+XqKgHlUhlaw A4Hr8vWhCmwNxFu+eddNMLDCxID6+D0f2TvUVNY7UxB3pyBTu5EKsUpIy/OW gW3wFbmWMHG/Wyh/l1QkoZj48EIhmoOAtt+zGz2o6BZxVk160FE4J/SkBp+K Gr+dWdVmbJyWrNFycibDZYlrmK2pEJ5zgoUD6WJ/0mNk1N/LYSTBluHLEusO O6P7J2znI00nLndtLx+/9y+bWqhEINXsmpqSNQNeP4paOjgs2Hz6V7kohoE+ l0F7mwQNhBqe7jy/iIr+txWl5WLd86pGNT7+LQ25UXRGXZs6Bt7osYo3i+dq jM/W9p9CdEg82ubwH6/liyR1PzEg3ZAl8npCQYqpd0VACB9/M6rN5CPZcHfz jv1HV4COrund/Ypq2GIysKRAj4PcbE2X63wW9JzXlHm8FNsrKkz/3sMFLeOx aKsuD847/XqUHrGxcm7toJInD0mPk/QU56oiy+JoSOkvAoadzcGtreK65h4S FZfRMNZEXrhkkoq+yqPMReFU/OEhcrBYREJmbZ6chhET9oHSit+WMxFUWeBG GWJiV6+7pooNGVFfyI6PPhMoG/FqzDqiCldpRWW9GDUUh0VXby9Wxx/7T9jE pnJRzzIautdHxr6N50qZ4TS0PHWQtW9hYKRP4/Ylf1UI5z/SOFalhv8D1igJ oA== "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlnk41IsbxWcsM3ZjG8uMMTPGeiVboWgqKbdCy221k0rRlEp0hVZLRSVL kgm3IksSpcL3KIVShC43hQplabKFUH5+f7zP++/7POec93w4voIN/mIkEql2 bv6/Q76uOZY2IodddqVDuQpM8OpSIworRfz+EGHaKxVV1PVvTtoTRcL9SD1l /k0eSN+j0w413OevkWFKx6xXR83AWf39y6eJhr55ByjZOtDOGG67dXaCuDhl QTtdrg+R/Bc2xX6G+NryvUJEYkNq2u+xgqMcjFr3NLOsmOj1KQ7dVS0J6bdn BvwNuDB78YnFyiDhXH9Oi9QnJVAbo9NCiyiI7F+yZfMCNoyEXcsk3gwT2cdK Js0rOHhxKPidpEAe14RJKkfTtfGWuGfrxJeH3XK6EWGjhZ23E+w9I5UgSvv6 qu4/LWy8YL411HWYiI+T9CHn6kKqLuLAWMQ34kjJygbxejWEcCfO9cor477h 2EmvPG3kmJ+onmX9JHyXXhjzi6ZD5L1f/tw1WTSN5VeW+PDQHfWc15FCRgG7 cseRbRzcy7w/y1kvDeNx552jFH0cTojrXN1JxV3RiNfGQS0sqZdpLgn/QQgX kF5lBbHBlPhAYt+YJT6tsm2R3KCPvrDfezOVaZjqflup6MHAHerVMkMHEsrk LbfcEWNBj5TauC5XC4cOxL9+IeKhZ7WuP7uDih3J3JTKRirkbat2JW0nQ+V1 cbjytD72bi96+SxQEUse1m1azNBFFW9fMPWwHC4zbPt/xahD2qq2dVGiKnrb tw17JbDQX3r2lGuSGkz3OHUoyOriV7Td02sV48RmuiK3O1gNOp5Hrlg1ykBC 0/Am15oGlTipZ+kZo0SaUYeJUyYXfhurTGudFJGeGHs6nK6HyzbZnpMMNfyZ 3X6xajcTEQr2J8wyFGHd9h+YWWxc2rPvPTOXipmighZTMh3j9cOOut/pIB4e fdc7dy9Bim435/0gDK9dNFj0RBeU8+1H2g+qYblBkFC8dM5fjwISu8mSONfz 50gTwUZW8NLKaTslNEl89OI8YKBxgfv8qloaNsue1OAKZZBz/998U7YYQi5t EhxaqDOnr+MNM+n/+K9NS8sOJ2mi4cuWeS6pv4nnuz9alDXpwpFDlKa+U4Hn jzgftSoGzpFOLiwxV8eDUSfX9cG6CLLa0RTPnCB83h8lB9Ux0ZWv/lzmMB0l LouGhO48SCZHldTvVUH7+fDav+r1MX+sJWtLpwysqvTufrGmIzw3pzv7gyxS Kso2uFRyMM/kZVHIjhnC0OP85d42LXhq2YqSWqkQ909f853PQ0zCJTI3rZEo /6tTRwP6aHeraB6KGyU6bnjlkprZWJtToHQhSR57/hm5eH2WjfE7ykdc3k8T twY5efwWbSw+sWmqTPCTMN14vFDGSxd0rn/OeoE6lm70XrLyCw/Rb7aT+sMm iSUDfz99VM0GL2CluLCoh9+1zKJz6xt1bEiu6+soFEOYaHyDEU0H7GPFmWtM pUE/eio03ZCH2ZyV7k9uyeHFCvtuUZIGDm2hXqeJPhNNXXmbhwg5yIoalj3N UYWvTWF25hkeVhh0JhhPqyJw0Hj1rfsMBIbVfZRhS0Fwgtp/W4uNwCVtP0nt M3ynqI0fBnqU0S+r/67lzgSh0VnT0BrLg2uYk1iFuRoa8g+10dy0IBqUU78S MUycyrv5x0icDsZYjbTJ16ooqhe/ZnaDi0f7y7/GaZIxeop/t5XOAYd0seBS Fhmx23U/ulIZ+Gwa4cJOlIdiCUfusL4OZhZ6DozJ9hJmZzSoNXocdJfV+lf0 TREXvVsuWbqqY62MQ6q6Mw2786W6Yg0YYApv3x1LlYMFJa7K/+lcjurPX57S HiJEA2fabHazcdZ0WNJFnYb93CcDip0cSPhsIHcZDhKhp68ZB53igKe3Fi3S Klh3KtCbslQXRUx3uzyzf4m/OIrWCUIWBC+nQ8ur6DCpbhr+4kvHZGTim6cR ZMwMW7ObBBw4Gi0IrFwlg5tR968HJNKxxmJMWXRPHlv3NfeYmPNgpyD+clO4 DKp/7vRrHDJAjt9QxGrKO/4E7YSQbK8FzHa8+bv6F39HZP7EhStsHA3fmXUs fIrYllXjulacA0+NH6ctQhVRPz1mE8FiYGU85WXecilo3TBja+5hofyFvGcC eYBwbe0OuW2tjcZ7tGfb1mqg4tsVmZWjTHTYJveWCeVRccl2dbIvExe/OaQ1 Csh48dCSMjCnx6sB649i/w4RcSHHvW/HMiESCg9Qtyghxde9pHaGiShJ3YWx thrYfsbJvL5bC0y91rYet0/EUOJtm+ehHKwlufZ5HZAD50ZzVPheFmY8ygO6 0csXvqiuFCzgQGezfmI5iYae19yTNY81sPs6J+Hb24+E98ta4uIXDVz0veLB H58mjioc5+1yMgDtYGjJPa8nfHnlY19Ue7TgbViXcClWEvlWltqRf+jj+sqh TW2GL/lOt0buvDY3gGXqvqz+cTE0m+0Sl5zrn3oHvZpn/6qijR9ObD8452/X pBdlR7v5zq59iYu6WYgee6CookJBjHO1zVlTPagESQjIVgr4WnFnfcVXNZgc z0ou2aKA4q93A5weMtAHH+GnPE3YXbc/a+vMg56JTjQOSsBFpEIXK+Eg+E+b Dd8FYvAUmObRHXmYTvh+sKVUCRKFlgEfNrKhpe5h6SU1SwxLHzh6I1QDjkFG xaapM4R1kKfF1U4NxK3Pjyke1oBB18NFVBIHkYW/iyrDJHDC0Hb5RLw2BIsp 8yZrFeE3XRyrO2OMgnqpisEMGbxm3A2lzOV4pfE7osSdBgeVhz2TzhwYZezv +V2shKjVxjbldmwMZSQz17W1EE3b2t0CG7kg7XiwvtflG+H3i5MvH8aG6biW 5rIzKtB72+KxT1ofAQ6CttNeP4kcD8c7HT/n/nnna19V0is+Uxhx2WebNkgG M0cimxTwMYGeFWLCwi3V2Ra738rYnX31/vx+DWiv0Cf6GXQICqdj1XTYaPaf mRdcpwrzQZKbHUMfI2+eswXqkugO1DDxqaUjK35ZXqmBBKy8WteHzv2/rD2v 6k/9IGHdletVon8M8R7VK5b3iOGtu++U0J+B+Qxzh0dlVDC2jNSE+msg3s6y 8F62Iha+7166tksdkzfGlRodlZCsbS1nxeWiYGZvr+J7ZTgOGqU8f8hF2uIi lUwaGQ+YQtmtVw0Qw17nlCEQB2/+MYmDMSxYWTbvDjotiZFju3KiEzgoif/w ajRAGQLxKD8rJhcDeNbhnTtJ/HK8+4gZrYNIcsEC7hsKHKfUrri91YKzqk7Y liIV3JK27Ki21oGR3wk1O01Z6LvQvrIpmvg7/6tfcfc4kZJruUInhoe+B+Qn 8i8niKtrWeOKrXP9nDNm/DBbE8ZOuTGtJ+mQS99aS9ZShdjtujtmDzQxZN8d q983QXgEvyj4Y67nLksrzS/wmSVuhvoE/nWWjWV1I9uyXWUgLbsw03k+HQUH 6+crn1SG2rwdig5pOtDMXUh6LC2F74eTG8VbdFGfbR/Fr9dE/c2NJyiXGFjn l7p1dGENv/hIkO70Um1cJzMH73BVsebn1r7kNSxcPpjOqomXwr3j5lZP5njL fVXz5r1PRfyO51zTN07GIFFmXUiPZDE0uvBeYa02yqghi58nK6GoYXnp5wW6 MDMTexWlKLnULThleUo6G+Y2miM7eymw2FkQ9rmSjbxHYel5fpIoZtstqfqg A/sGhk3iKxok62MPsVP0MZlnor+Koo0HP3jmV+f4Z87gdvvUK4kQ8iLmPBc9 6IXl+S5O/UWcvzyxmxzAwv5R898vO1RRXyMXyVPnokzKoYuWKQsal/tj0I2F WiJLqr9QFapUvwG6JQdsh8epzlXi6LBY0J8Ww0bdZoeR8pYfhMUHwy61GzoI 1C4pCDMbIyTvTvwTFcnDYurGbWkZEqh5m/i5NV4XqlPMbMJKCdkTbsFxt7ko 713tHi2uAGFPh8c/rhysSM31CLARhwXjR+njKU1crnZs93mrgl3kmQbdZTzc jvVeczRQHrW7/P3k5nizoKnYLJOjgOrHvpq0Wh7i/ra/te6LLG7WNB5b94YG 9+qa0IFghTk+KO+ianGw6tFgQdpeCn4WhUx+cWRjePTJhpZCBbg8u1meeNcA /wNjXSsB "]]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlXk81PsbxWcxxpaIoh2pm0ibIuLzzb5lLUtJdtqktEjqKhKlRIiSnat7 W2yV/fmgmEIoSva17GYwgzH4+f3xvM7fzzmv9zmyLhes3CkkEomxfP9XyYS2 dWSTX8iNfnKxlzKD2HZm4xvTxLB3yLn+rAIe2AQofXg2sABvqBTiRXAPaOhe In+8JoTD53PePpbrh9jALlaB4SJUtTnnkwzpWPxA9WL2OBNMHzzfoTjUCke5 d76tix9C+JofY2XqezR457b6rc5WCCuxXLmLwYdHKbajz7qlsROfrcP4izkU aBLbLdUTARb5I8LPBWn4/slQl1l7Jsg8Pu0wFkzC3UpWnpduT8PH/4x3WhYJ YPcF/olX0jQiTFco/R/9EbAqSzswbTyL9pZ/17NuomImcV6r/Nw01FaXMFRC BsFWxfoIISqEd3iyVqn8Ow8fbpx3vFC/ClvVRO0ssO9FPj1B8vsX2EiMfvvR mkclUBDwyvbExyGUMBo+nfqmHqbdtJtXHGCCXUAzOiLRhUzDa5MLAyaQw/3I 50krmci/Jg1/8JpFgZAxJkpejR2uBjYbsRigqmJsY+nOhseazQt2/+TA0ZuW cyZ3e9DL8E8WNifmIXLafPZWMRcS3s4Wrxn+jrzDLNYyNvMTEz0pZin1E8Cf 65nSZUnBujkyGez8OUhda6P3zVICp+aNdPy07oWokWNBU7M8eB89rPQ79zcM tu5NVefjADO351LuDAs99JtqflU4CdErpBoURRbRo4oYvy6CiYgC9ad3H7Qj PdcR2j8u4+B96WrtkBQdl8mh6+pHSYRFoGPT2Hs65peLr9u0gYpvTNheMEsj E7rohIR0ORtIqT4xJU1xqCBpwoa5mowncytcaSQKYblPQlP9KxXLfBtcp5H8 DZX4Wh/Nsu+BRaUqlbbz48hLsO+nei9GODtFKjntC4gcWX33iSsJ4xSpZ2O8 KfjqUDmkcYOKU43+Uoy0F8J+c5cD87bT8Fpnx/2hsRxYChaOWnNRAAtYfH9Z ltKLxNABkVMlVGLn2aAWjaweEMUPb69rnYGWN6fPtJfR8CMT77DsZf+iT6WP qb0UxU7Z7utCNZjwpmXHr9R8Eg7v/PTFYtc09G75M+4rMYBqX1msoKE5yOP8 +pRJHgLzM5WP2rKnoYz9VvDgzRFErH2v4hrCQ1YPKfaqe3gQ4tU0aXaLjKP3 uD24Y8KP/S73C7PKK5Bk9o6vS+08dPlIsF9EOw8Yq+UPvt46jWTrzVyj/YZh 5q8tuYeK+PEe6ax+mUExXGe+HEySBA5fmhQtcWqD6Jy3qfIlwkRy1Hd2TWYh MrmoV6VwYxCihPWSlhb6kH+4kovxHzJ2irukpkgbBWqSZ/31rwugHZ0tYlPA hws+ZQjQOgrB566NEaNkFn2UyvAN+iOKO6mZk8XcVVg6wDjLTmwObPPHik/e ouMsYqhG58xnJF9u5VFROItKmsSfB7yj4cF6tXK2dTa4+ZpmnzTrh+zLg6F7 LeuQUntE8qBQJ1LuWHCoyR8GEcsph8tVg4jxxTc7/VAdYOvSxxnbXiO5wnOR 1hvagb/B9U8DaoNRN2VPo3YqNnS1OLg+rwFqo7eK12+cgFqxzhOEyi90Piiu +cFxAdw1IhYbpiiG/T+QJ0UiKDhU7kpWh+UQ6vy9OaAxhI47OmJtbRNW45y+ NQncdH7i3IOtPbmoD4ZPaRSKPB1As1bPt+0YmoPWw67iGVQSzlqpK+OjzEE2 fntn3rgw0W32/Q1bNwlgZfks5YFLNHwk2LmhupyCiXBr3UWrBFTAeHKwKV4C U50EAkdeCGJ5i6ozr1oqwNhb5Vh80W+4tao/3ziWis+qulU1MbrBIPCalngR HXNNBL9JjHFQVeXVIp8yDup+iipGrWuQ0noVDqxkod3q4et9e+qQgtZVH/VX M+CjOGKcKEcj0lW06q3leOD3bYWxxzKvj0X77JqG+oDpIG86q1qLAkfsTt2x akcnZzgNLmxh3JLzM5SyrQXdcalc1XalFRZ6POiyW0Rw5t/O7KoCMma+FTzz tLIZOcXMNy0qFSKLi7smlFSmgHdvzuv30mfo1plaWDWTiyqsVBoO+7BQwr77 6s84s0haR4d1TYeMb5Cv2Di+/QMCa+IVdrULEIx4QffgNV1o/Z047bEX4jjT bwMpIICMv1FdPnrnr8BxN0tt/baR8J5N5Xvut5KIlj1GO5/VkbARXUmo1JOP KGCIvfhbsQZ1P+MTHNMehHNCjr9CFViwezjenv6LjQLNc+mJrUFo+F7b9Yll bomKDNGyqhjkfzFhr3LODFxk2e2evCWBxSrivFoe/EAlCu0a4QETkM6yueDe yE9crjbTdzlWDcWvx2fKrwjh/uHwHwfeiOKGoOtf1tXkoERebplIuACRGOak 6Z1Mwi6vxt6dr+2Cqn/G7qjoSuKHob51yFcIT1P+1k/RXOZwwvOcjf8M+tFI /feE9zh6Tz2i0bG8R9rHPDsU6UtQxsieHPuXi4YitMdXmPdB4nxCgmf+FEx3 pqk69lOI0nZypX6YOJYXOOCVg/vRevqk4uYyFpwpYovcTKXjHOftJhmHaYS/ /r5y89vt4DUwMKUXWwsDNv2y3JtC+KrV5k0PpTlg6OeesHF1Iyqp/l2bqDkI MZG9pNKpeXgyjSqyX09D6JPNWhv5/wDXKFRWEM1CgavY6XjDJXCk1ZSYbhwE w95E65K1C6B4aP+NmZARSN99K7KC8RM57rbUiN41AFXbt6Z+4PwBfQ+qYUeC AF4t4WJmETELJAETA7jzGSkNfb8ddJGHHHhHFKLiOXCgzyOcRv8N3nZpoQsG HMC1fw6hj2yYZmvPz39uBO1di03M3zSiocay5vm6CuQY0OjdFjME05HkZOG1 JEyqWtjRbMcAP8l1P8/qcYGnZnp53zYuukoz2v9GlY615ndXXzTkQliU9q2M ShZgpYG0Qx1zKEJp13XuHA3jg+Q460dliFpaFXfdTQTHhMTFRrtRcbLg5pmg w5Oo28/glh53BOxbTuPzOpOgnr/Wecd7Kj4U8v2dwRYK/tJ1fGP3ml5U9NHx v2rVVljUi9L84NsD5UoR4zPWHGjhHQtRGxLCdgbX7t7NE8UewnMxkMKCCj1z V38ZAaI9zvJE8BMWqCyaNEnuEsWhqjoSGk2LwFzLU3JzZCF97+ykncWDKPVa Nf2K//K/pnlPf9hcQuPhm+nVumScTZa895+DMDaeT/krwqINNnw7298Yv4KQ 38pl5h5gg7kCq+rMRwr2MhtMtvda7snxMXnNnatwgv2LCmX+FYTdSc/BLv5P ULVr6mTgDR4KzIqUgUPxSKCUseC5vJeCh/lIdSfo+EyQ/6Cb9Bx4npYtUHw+ BR7TydzSw40go1+7/3LZCJT5CxdLLvcEB+UImygMQ3d+sqXUYRKOE4kz51jy Ya+W2MWiYAbY8izD9U4IYbWj8+vbcz6DgecThUsX2LBlp1O5VLcAfjqpd9C3 hgNNh4ivmf5cpCVj7/MXfzNkSlKXavP4sLtLe7zeVSlscVr4i+ldGpb7aeG8 6bAYTu7VPX6D/hNcJFsHZj5Po1jl5H2hz8lEg35hdQirDBXH6ot+HRDB2rK2 z5SSO4FHzovy8B+Co8frBIdsxXD3LK3zxyQXNIc75tbqUTA5syIx6ewKfOlc d6HaIAlrugeJH2VOwuwjbaexiyTs8DpdWWu4HoLDQvqbdRtgu7OhRYlBJ0Rt W3jnmiiBZ9WYlT1sFrhF6hlR1/GgNbhQqtiKAxTTkd7vv2nYoF3RImV0FJSc dzvhcyxEuUE/cmy+D3nY4W3znYI4VogqsHP7IggULx7T1KXgWXKjRLbsLPzb mBJnuZ9K+O80KzR72IsyahRro3VIRI4Ot731vhD+cu18vlAXH27IlHM6acUD u01rAs2dmcjAKafn2gMueNmXkjpPU3CPdJrey2J+3HPq6Y8X7qI42y0i6Dsp C0bZnyYZ3yaRWlGltuPP99B6z6fbwZaOj3hrafbbLoHpBXGHEtyIyGmGMZqX xQgtk6TPr8Rm4OVoOpzzohDDTjkeiTc7wE72+X+7feh42vDJe8dNNCyvl1Nb 7jmA8r6mVFIlWLA59GNe3Wo6EZZ4PdPnvCgG1YTxcAsWRD/lRUZ6spFFzqkp 9olh+GJlwB/uzY+NX24q+fyVSiQuKbvv5QrjepHjSQ8SWNC/N4XQfjcJ/wP1 +ocR "]]}, {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlndYDYofxk/a+5zOqDM7S2gp3JJbzktK7o1bVgOV3IZEXKlQISRNWlpK pSFCQ8oqKW6RSFPjVqKhYTW0/Pr98X2+/7zP832e932fz/PlOXttdVlEIBD+ XZj/b/5r60c5cVxU/NFWGW9KRRJJp8NeURPbbzib05smRFMpmT3GEksQ7CCe UPebLBTau+wN+xlwkD5lSVkzJzrc4OR7dF4AO+uRYbaJAiwu+/F4rsvw3R7L A36joGFffkjJZS4MJi83Gh8kgvvgcMflYBrET1u/d2smwc6qVOTM5cFVNDrz t4YMfl4S1788zcb6xIhNY2YK+Kw4XleuxYd9zJ95pz9wIOeK6ew9NFiEuGaE PFbCvBaj+qcWE1NrD9THbKSjvuQkO82bi6Ia3jaTf1TQpHfHRmKlOvoY8m0Z UyOiV2u9Ux8+FEDnorf6R1UiKkMf+h7XV0eXeld/j4Ey1t8N1LjWJ4SVhUen wFsVVt+HFT1uMBEWEN032kWEpkxf6+ZxGlYbLAkxjp0WJfcnLq85JYDZfdIM t4YItunxmW55Lr4NlfIVmRJwiSk461TBxrAPVftMqDzm87XJS/9hQ8LgnFiq MRFkccbFV0Zc6O8SbNTfSoWb7GOvyaM8NLzpfiylS8VTl0sas1mLobT1aJyP rxLuJ80ZGkSxUeV/7ndzgSTSHG/2xS74r+JIYol1qkEh/HNMuQkfhRL7nNz0 VPFFx93XR1IduafWE9T2tYo6jyf1OSoJsKKCqPjIjAQJTSiml1Gg8+yQ9vNY RVQoCx7FTTDxY5MvM0JfGbdEUZ+9slm45OLerGU4Ws6V0WuhLVbDfsmtmkMd JHTJDX64Fb1w75enDOvOvKh10brSnPd8XOkgHMlOVEDZKJ21TI4P8w/5fz0x U4WhdUbYt3oOMstdtAeLCfD3qXsmzaLjqa1kc3CWNE5GHYx4ZquB7Ur0P2u9 iHjs2ictDFGHyfVh/TSmLLTt4r4Hradh547DpnwlcdQ/2anr/k0TKj65Vx33 TInKXktM5F6loze29P4z5RlR1pTtXLYjG2+m3GomVkniFOGKIqudjVrfy2Ff S5VQvnuxHi2RB5KmgGFzkISaqUXSJq1crD1DKOcYSYDtU1jkUc5HPq2+M96R hha473f35CHVIqegs4CHUFFkspwsD68I3+9/ecJAl13RiSUf2Sj7Oh791xll hDXKU94NsdFbFq22yeeXiJsjcz74JBN7u5f967GFAJOQwbo/WjmI+8/YRJet jDvveq/mJ2nA2E2X1blfHrcT4o63kdl4LkU2Z2qKoWND1sF8SS6MSQmPI6sU EDkX+vJtghB3uw0mr7eoQrTZQLnSVYgH8wE3liqRQAml3hzfzUfm5oRCH3cy Lurq3U4J4sJP+O3+9yRl1DY93fnDkQWiRv+255kMHPoeruPkyIHai4ZV4YcV YBTP6t/zhYNh5s1Eu9/kYFpQ8jPmDQsbOgZdV5z/IUqfu1h4m8lB+Jif9A0B E5emrV775vMQH/Bpe2gbDS98cr4MfuYiMjEyonmKCbUDwpfqRwSw1U+xlL6m hrFa2/zbtziYrv/MCDWg48h+Oa+zN4QY4N0z5xxiwVBg6BnFFUIzxs2iuFIM cjPj1XebubjquMrrQQ8ZanInyfn9AkzZpOUOO8pip3G1bkKwGg419TuU5ari +nEXXHbmIv9IlJZ9Dgk33Q4LXAJ4qOlkbxlJFcd43OuwH5soiCq5d/K9LQMy NuMPC5NYmJoI/BD5jYpmx5SgzF18KDAPB770EIM1VxQv/YKD2RWehLZ4VcgE rZ30Tl+K66oVheFeXAg9MmIi7Jng2Lx+0lpIQm5dmFXyaj7YxuopAzZUHJow uxl2hoYfJ2508NcSYDu3qMXDmIfTkwUrA+ubRWaWAxcfm1BhKbm4b2KHHELC zMgKEVyM7m17K/Oaiqajmv3Zr7iwzvgaILq/CKQk4xHt+oU8LMv/WMuQhuOa 47dPbRTC79u7YDlvCbwW/VQ1vcdDy6aBv2ZWkbFe2TZg6IIA/mxCWY7RhMjo rTArsZCL2i85r8VKJ0RV207fZE+zcOEjI8M0igyT5Se3rpxXh8DJcvb9ATLi J3oMG+sFyG7Vb87qkUbCi8CVac0L/pTtvDt0Vgb6Vwarr3RwoLRkLJhjqwrf yQ39rDw+vO2dCC3DCliUWkfQfSeA3K5du489ImKDdxulJpCHgxFtfD1XGvxt 7MTDmBrg6P13z0JjEYq+Un2NiriQ/TwVu2nHQp8V8jceYwownzO6rMaBiJL2 IRtODA8PNV1fzMapYHJzgZrsET5qY75O7o1UgaI8PewMmYdZw4TtjYYUuOzz DtwRwsXb506qO5tUYOsXeE/uDg/uyjfukp1HRbXrYgOCHrBAWPx7zLl0Ojo2 OkQ25zERZURKK2skImIy2KYhcgnSZR6PPMyTw7MBqVVNDQysMhkhGWTOiJal yEWkDwvhdODWvTwnNXSn7fLTz6FiTZul9fSuBf4J91L4ngxoJ9auWH5tQPS9 lDwaPsLD9+SeYp2z8iDekUwrXy3A9T7Pnjy6GFZ/lPx2Pp8B9WopuSgTGirE HLR2PFXD9NWcIQ06FdtbNWeiC+gYpuwbtMudKP/bPCD4ijodEZ9+0LaGyyLT OuRrrI0ATzljx5XliMj+s9EwLIiNI0fF4XyMhCIKUTvXT4C48Qyzbw8ZOD4/ RN5WwIWP1q/KC79oKDnYZbXWmIndHybrtt9XQ7o2NdRjQT/bnDTHMh0U7T6f 3lCZLINaqapAI09J9D7z19jK48M4iL5aeJ2IXH9bg7CX0yKPKrnYF+aKiJze u+0AYwnyjvnIrpujYMvi7ldOjUL8apJ54OYkiw0JM+ZVWVw02DLz4q8oY2nj +qKfQh6ik4O0tB2k4KFinVl1QgWfTnawsqop6KIE3jn3jxISvCR2nIr/JJK6 Rn34ynsx9vTU13kpy4DEjdYdJnJgSovKLmZSoRjZMjfQxIH91kMb8yGOFr+I L2P7GAi+UfLuraIyyMYU8fbEhX9g/ww12UMN279GjBsOqiKlu3RwU6Ua7M0P cSbkVeFwIX/dll4COm5LNrcXqsHi6cei+sEJUf2Jjty0QAHQbsnXN5fFxMcO kysTQqTorRRvjf0gap0U+1n5hQebqG8mRBMVUMQjdOd/LkP3gJtirJQ0sjen Otst9Je7o9r7FF0RKCaE0e0/ioJnXp6pWkVA5+N/n9inMdEd/U9hb0ld+d7u 1KKBCj40ak+HnN5PBWuC/GBRozTMCKUmc7OL0NrKyv80uxRK9MrdFXVKGGqd lfdaTYM7u7pYvYMGGzN5t8IFHgaVXjZEnjTu7u+6lJ/Chrq/p9X530iYUUq/ FJfKRbNo1y1TLRUEsds7KO9pCFXNtb5ZTsbJ/W1ey2S4mF45W85PlgQrTFB8 Lk8d710uuPKeElF9INr9TDgPnNK4E/eiVbBneOkU6TQXeyKLAjY3KeDoRn3q 4CgHRVnMKc8GMvQIHTVje+hIOXPsnFOTGN6Lt21qvMLHoN7X8sQFfob2HbcQ Y/Cx7flbKn0jCb6xh4MtBthIusioY90mweqiznz1NQG2Md18R6OYiOuyi99n tBg+Zf8uuUCWQnRJ6KnuNzxI6PHXGP6URdD36xJv7ViYDx4Xfg1SQZnR8ulr DA7G3uStCXYXR3bDI7dpV3WcP79/eVMyAe1HAi8UfVBFCMmJOb1cAVc048R6 uAzYug9IOuqqYIWoQElMUoD2Pv9RylIaOGclWdOreEj3e7Qpm0VE1M+Hq54H 8UG3fWSbZaqMluVjKRe4fGQXt6818CFifUrzDqdANt6OGJW5raWh1liKPiTF gVA/7FPlehms67x6wrKGhaDM2+s2hErjh9i11vBlOiAa8T59qVKEwyVn+05p NiiXS4oGhAoob7+1JUlLAOfrH95nLpUBp8biaoOAg+ARCGQsZ0TqFV1J/1Us xmrmjaplYlOiHgdH17FAFio/jnTY50piX6+VnOk2dRS1vC04ocrA2eFUVXtl DjJ6/YzqBmdExW6nxXdPcVC6vdeTb8GF7SEjcyd/Llb2u7mSY5UhfT+jUtqb hw+/+weFqSihQWfv4z9maAiqM13RW8TC/wCPcViV "]]}, {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlnk81tn7xpFd2Z/Ns36e1TqjIqVwhUhDskQKRU1DlmxtSpYampJmzIRk LZUUP5QtIcug0SpbypaxZC+tTPo+vz/O6/xzznmd+35d9/u6CN+Dzj9LSUhI tIrX/++1X++tCTpCgVHm6ZAOUwL5/B2Wh3OY+Px1ncScrhB7nKT2EoeUUPXg xgRxUABand4DxSZZxLbfiD6yhof5THdpzVlVvBsQ9AV5cxBa+6x0OpIGr5m3 S7tf0WGw9HUy6JwWIj8YzeqqUnH3ioO16mUCY4W+FyyDBEgiVf3YGUxCk0NY d0krG72Nk/+OCphY+KuiInUHF//mmj+vFdEgd7CU3dvHRvj+61SrKAb8lOzO TQzSUKy3GkttHFSHegZfucUBV03LdGybFmSnm+b6qwlc2XMvVD2eQE0eZ7xQ /F5t3Lh/hwwJRSNtFcv38LHHMr7Lp5oJa8eNbvfWcSCVoDz3d7wkHMYtpEKz COj95Du1di0LZb+Oe74vEZ8/tt1FxlQN2e3l4c4mTMxUsUeXjtHRlmw9ONrD hWKunVQOSQ3ed+jElz+5WNdKUSStpMBW0iwx0Z6HkGnWw8wEVXBe7E3kNOgh HU8Pf/Ak48zejfKnx1j4fVSmJj5SE3d1jizbRuKC9qHcOrVDHXhvbSG5nYum GWan3pVliCt/l9+dzset3d0pIyINaMvk2fZoa8CfrXNyUkSGWfKlVdcvCnB4 wfuUiLsMNjZ1mxZ1+Uh3aFvplU3CsfUvPn1x48PYWd51IppA68SHsxlrdMFS 2BWiUK0AjUTXMqlrVFhsbOqIFd+XKtyur1xGoNv1za2xaQq+uRktHirnoK3b unM+iIEj9OG7ydkMOD6+sn21FAU6Y8Mvk54RkLU8teFFHh9p0utF8spcqKzc 32PXqwkLx7Kb1n1cDFllTA3uFGHdmuOq8Y8FsO1m1jKztcDdVlBbOEyDlUnS 6HJLEhxWzKoF1hHw/JI5ESHBwYD89O+XzNig3lgX5BFER+zFW58rwUNQxlUL h1k5FFxxMTn+Ow8n3NIb2p5owsx/XYCaBA9OKt077r6nodYB54MdOfjBznPg TLc6TmbkMrTHOIj/Yyr0vLYWRhYuTNGucXHdrGt2lbkGlKX9b3fuo8OrZPH1 zuNaSJXNjh34rgVerZ3KiC0JkwVRY/oqXMQU/5bCaNTA5PeAzdsuEViQTq4v bFTBoEjF2M6Mi7nNkgnabzTBYwU/9P9ChsE7na7r8yzcDn7RspBIx+zsru0n ORR8fPdIR1aOh8Ujj+YLkkkg0r5eSfgmhImMXnOdHx0Zt8/ui+ljYeDxNr6n hhb+0zC1PufMRVnUueHZtxroMxxb2J3GRc3WvAKJcRaMhwcSjyvx0bTQuuNl mxq6Goc+dj4Rwm7FRZN2Zw6efPjpuHs0B5VWB5z07lFg2GekXDFPwaOV2u6b 69XwqqCsv/Y8Dwe2WzXKqmgi7WlKmFwHDRn3V5XxvvNw8mUyJ9VTgNibX1bm 2LPxi7OnXwKXij8iyedejjOAb5l0kiIDLPklvX0XqAiSqHCy0OJgIszd9vsM HfffebxiviPgv7V48jGLBJu+zytDO+jICYvsKjxJQW/Xjau0KCE+dtSI7Iu1 UH5h9O2zv/iIEbD6/zpLxfHgkDC/Yh78UjL1zPsYULsW5qLvrINeS2dGtYoW 1DdZWVUeV8fv3p++6t6h4uhSxFOZjzzsVB1fr6mohven9OVU/uTjzvvRkkeZ VGzp0FcvFc997Pwn+v4kFbCqJiZW29BQb+CcVkMjMFM3cZsl/kdBvMca0xYK XjFmNaOsuBh/rupmSVBhvu3c7dBrHNzYvXNmMYGMgylvnJaPEEgbOROZY6SF R/k6Xv1UHtbv2kOueSLm4trtpf7SPHjsLWpSBgUzDZ0MZzFv11PUlwXNqME1 cHh4uFSAsotjbn7hVKj0vby15gEXvY/J2ZfCyUha1CqPjGdh7dWaTRURLOxr TxswOMxClOGaatFpGgwsJwObAzjID97uKvdWDdckKW6OgQSMudeJ2CoqilgT 0aQEERK3cFTr79BQ9f3qzsU4FgZnsmU4tSy071zzUV5HXF9Rpve7SSZUDY/m SuYJIZS/LNMjokDXMCvgnyA+eDKHWmQ201E6lNZy/gQfgTEn9u29J64vnlIo z2IhaFVIk2w/C62K/qk+ewj4/lzxaW0eB7trJQvIrRx0PUpcyHZgIfnX0oip LRx88rBd16HLg0RRi37xFxZcpz82ZpYSsHL/avxdn0D0XM+d5ko6bHpXe3ts F/PNLvFawJIibCrsNwwPEHi2WX9D1KSiuD+Zm3+apCCzMCZZaZGBG83r+nt3 iPXo/CHi+B8M+BSV1mgfINBLtqg2a5WB/6MDF/z+JXAmUrGDMOfgZN3Mu2ix X6RkrC8XaJMhqxQvaGUwcW73VIMon4dY67D65mAekrokeCMxaii8nm5UpcGH bObK0Te7NCCzX2aZXKAQWQl/mB9qJeN+v5mPTSoPeo9DLUPDVNHlfalRN5UD hbPGXJUlTZTdNpKUbOBiueDCG9MFBvI0T82TaGz4jT/Z2mzBhHRyVsiWISZ+ pZ02SIphQU7L9NTmOTHvTN3v55iI/SXgWWJ/lggXTvS6W02w8fVjb0aSixCV W4emqiSYIP/pliffQmBHhOtyE28BunNCHJvMxX6X7eiUe5OODW/vp1peFkD3 XmBWWxsJPuv7rY5MszFuOf2GZULg9KzipeV7qPjELMpMfE5DTr6OmdsJASo/ l84PrtZAr8HQZYU4HSg++aXndZ4GvK04Uj0VHPBPv0nksNURYae2VnCQi7ql u2ZSd5RAJZUIrm5jQiK6WcvOjgbFFvvIfx4J4fn8HwNROAs6avV619oFMLJ8 dsGhThMxDIXFH8R5Yr++r/ylfQzk9+Znl+sQaJAcct0dRcPh5xI7Ug4JEDX0 yr5TPHdPv0l9E1oQaEph+h4IVsfi5tFXDScFGDB+rSSfRMHTo3q6+u0c5Bz8 LdRbrP+UlVonqPJ0GH2eTKgpJYE2hRjL1VxcsU60qx9UwWsDYbxuPR3ncs7/ l9Eph8Oyt3ZX7qRCY2pDYfJfUjD6Fh9i3U2g2vDoStE1DaTYdtSRgwWQklS5 W5XGhL8PcedhAA0qz8z+LpZSx+mtK5Q/F3PFOq5bH6MuwFzs2wfhP4nz2IrA F2wnFfiTf+l4kM2Hs+HWM7RbVDyRdkmf76bg2G/LYtzzNaGb4HesRFGcj9R4 J+8vSeFwuj0ldS8dc8k1c/qHqdAps/5v0IQLl9wf894liefFvjegnMHDjyOF 8lWuDBy9aK6QckaIjcsLvIamNKBYMH1Gvk2Ayangr8a6DIQXraK6MDmoM1r+ PMNdGcLR9KNL3zhw4nil6IxwkWTyWRiyiwfaU+niD6ChbpNI+qQXFcmhe0QH tjFwQHiGqm5PQQmn3mfcgYR/5QNTu8rpSE4eV5S3UoWn7Fz2qfd8DDnPewdV UVC7JVCuki0E+XZtwOtVLHyivFafliAQp9xy19xNE3Gy37JfeLDgmVrTKbq8 HAV3vMJ6xXmm4ZXXYbNhNZSW6Sg/aWXB3ad6alc6A7LxB5q6xLlSIXJx9cb/ k4bwRkCwVSUfbrnfR3yfMrGv4mGM7iwbzRlTro4rGIjXGf45rpCH9xlUv4Vh BSjqSkutGCbgulXYrHOLDd8/s9LJZBoYxVm5oiGxX2XVTHGitNAjcrH5wUjs u4NRbSFDbHDMdFtMMml4Fu36c4qlCD028m9shBQ4vE/8sHWAi2G/5G8PXWmQ SezINRjkQDtjE3PgKR3GR+XjFZeJ/cD0ZkCAJgn6qtPdiw1ifjPO7ggOmbUY VsrbRTZkIXyjaWFnuyL4h0zYW0z4aNQxzVRLkUbir+1e9nF8RJifsv2SzUPD Q12PghwG5I6VzK6rpOI3j3p3n1wxv1eYP7IwFOuHdDk2Yh+BH6pSnDzF/nPb doXZwUYqrhu6nCASBOCGb2lgG/OR9UVp13dfcd7I3vj2YjmB/tjbG6KNKfgv YYq4mUfFoJ+TfZErgWNx/0ybp/FQ6GjrVSrmY6FehJt3JBuhzSWUvlQqvmq6 /F30gon/Ad9sOEc= "]]}, {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlmk41WsXxu3Mx0zGPQ+GBlLHUJL/Kkk5ypAhRPMhDSRJQhFpkpRKhToy bjJFifI8xkSGpB0qbISiMg9b9Ho/rGtd68P6sK7rvtfvZu73sT+0REhIqHax /t8LL6t3HsySw11dw6MmAUwo+372v2MD4tjk2f08dQ4DfhSPqid2TaM9v8Lt Q8xVwWCTb3K6+iT63fnRumCaA1MWRjq5OvI4js/3vKXAAo/cnqLMUjF8K1HP Z9N7NjjXh5pZDI4h4CgA14MKhTWS7Yw8EhCUd7azLzXhTlthsaVPH9Hk8slP dR8DnNVP81X2LMHajFMOtYeVgX28OHVs3TQq7ElrCuArwQf1Db2KaSRsat35 m++mBuS8/Kv00q+IG3BVrLifBTrX81x/ds+ghBNEvEIjE4I3Kjka6LYSWv2z xyCFDjlGERfJRuNExxmNAFk3Bsi5G7SLHJTB/wqI4eTeFZBnv0dBsUAUz6/b RO04RofKDqWkmIfjiFdyh/dTmglSa6sVwYqEzxvUceh0Foyp1jvc27cEs6k7 3e8dZYPBpYWHxT3l6G6HigfPiQ4HtXOHYl0/oUabZ/fs+Krg9e12wz80Eey2 LujVDIsGeSPPy1tVZ9HeBL7W6BATSnQTVex39yPYEKbefYAJ0KcdbtjVQHSl XfHbgtRhpm/LyQn+EJoL9bFN6GLAhFZMSidjmsBbeGsVSWQofjo27JbQgt4d SniIi5Th/Leso+eeZ6Bau+vu8ndZYEkS1tU+PoEyfnWtbfBWgS9vnDvOVQvj ycE9Vu0nWfBElXLU69wsmgkjS4cO06EwskoWLx0hUjokrXLOM8E0oMjpZvkS rDx7ecT3Kgc6tEpk1fJE8PWQpJQNanTgbad+Ko9tQTpnYzg7YjiwOTfJ7t/z I8TXSJuwTa9VgPeign9cShVvDEy/FeBPBt8E7b8LXT4SxQEiPtJZFCgUe/Xe uXGIOFBj3vbhAAv8urukzicL4SqKZVK8mhYsi3Js6yiXxMXe21Isny+Ft02p RXaVfYSdBztRxF0D8vaLULfFD6Otbk/dS9cxwbhIoumNsQweukHNEjtBhXnr y+y4I0JwunM9JbJCFX5cP6Ko6dGNXH3OkaOamJApf/3aoU8kHGhNVqS3qsJN sQs3dI0HiJzxIbffX1hgtuN+s0InnziYverw64dkeCBq0Ny+cwjJR/PDZGMZ UFzh4+V7Wgi/E3nk7JHFAVurdRJvG8uJkfEdEUmzZLjpu2N6IHaKSPtYs0aB wYIz7PzC6DvTqJoL1a6iFHh01vfNkfImYmWyfH8+YgG52fqF4vpR1K1mWkCM UkE2I3Ot5LMJRH1e2b2KQQGjgKhlNk3yUPpFQc6Nz4YWR1m4UEjC6a3pVFlf JkisYWWnAgn3rKUkZBvQQNY7ZCdlfIpQiXvkf8RIE+TJqilCYbOE7PDgoEUm E/ZLut3MmVLEt7yjYlexOFBz8M6yiyu/ordcJ50iGyawwoLxw9FZ9E3WYn2q Ehtkpf/zmJOSx8FpN7miLB1QiX3VdvCQKObejRUO+k8VOrwKdEM7pwn7wyHX 6hvkQH7Mxkm5RwpkXdxr5m4y4GCWSN6lkjdor4bC9K8oVWitzvRZKS2Cxxkm dp7bGMATb0hjRo+hvr9ttRIdFYF2oZpx/9sU4VlNF+jPq8NSr2PvxMr4yEy9 07lchQyBpwzF2oT7iSPy6WZfldkg4Z4fVRAliYcfV0zGv1CDyODMe62Tk4h5 Pdl0VwQTfuv7SsTW16KjH1R/Tr1kQdkA+ajxgBC2lLnYJfOUBVOBDsNyPAX8 Yr19yo0gBrSaPoqVcRwhStVqWRvPUqB175BIKLQREXKNvxXf0yHo8PHekJK/ cE5f2vj2MQboPnjFzR6WwrSshK25XBaobHk58YwxRQh01b641zFgs95v9mZa CxFnElJ44aMcGJf0x8BJVczQeVt7pIIKJ1p+RZnqjaBLDrQzimkU2Lq5MOfy 01HkIrlx6AyTDXEnZzmnt0pAzTjZpyaUBrZLKU/sejqJ+hyz1X6F6mAwtnrU VnkOVcTrx17Ko4Cnx5O2oxUkXI72R61wYgIv2HFyc+QCim/Zof3IevF+sjDf 1VtA/Di5MTw2ngnjG9t55uXi8Cio7I9PHAOCUtcrbPs+Qfi5OD8aBiY0nnvd HO4pjB0uVvX4pLDApL06PGdkHg2fvTtYmsQCtUTbp+aW0vj25PZDieu1IPSJ 6qYGAzFgNHrVX3lMhWY/uW6yAQk//FN6OAppwiPtFTXHiu+gLYElb/d+I8OV 9FMPal+QcFq3sVNXqjbMeVRQlL0Gkc957znpGE24mvjhwWo8ipYLqqD/LzYk XTrS/3H1FLHObfupggsseB09l5VgMYic2LxgSh8TaonyvkgQoDc9n2I8PnPA v7dYI+uCMK4rTzBb81sF6jxTBmJShfGV1Z2GU4Es4NnrBsnWiGFjoUoal0+F tITd0oX3Jog9JG9d7xVMsCgOjn7vKECUz8crHNpVoGrC7szVzR8QttzzufCl PDgqN2uQFv3Ls18qd8lHAwbPbZp52rmA7kcGPN9+jQlxKhV/hto/IMe1Nn4Z eTqQvUn5zO+FeTSlduM7adFfOf4ml05U8tHpj2ZH9SzZcNTPufclbw5xqi/l WLXLQeuVv01aeRMoRXPnj/f3RIEoH5hd9nwa3fwwgnYKmNAWLqO5cEUWJ8zf jL2WToVk2mUuiTOGyqSaTO0ucuDt2lxvi2VCIG4bIBWpT4Gh1dbpgjx5OPeg U681QgO6fz4wwlRhDNkJAwIRClwtureJtrjfKnAyN7qoBipeuwogewjtTto/ bDPLAC438mP/xVmkpvmZPLyLDRwHUZeqW39h6YiZ+6t4quA7crLWy6WCqPmR fMv2DhXet9a9OYVksKexpRTPhQ76uzNpQYGKWPqbz215pjLIV+b7u0jNEAnb zA0FEWzY42jY55ouhqMpjGetTCaoaXlUvi2WwDrvC9fsDmeAr+dymqTCFLG/ PLgo+/biTC1KOOQ8jvyjDIdT3zMg+tWHQVHKT7Qx7Fnqv3w69NDOMFcbtSAF D8fbr2aosHJ/6LxGygThU58X9bZZDcKF7h4Moc6ix9xD7LJmeVgjozStu0oU 78sJVe8v0QArFzH9qNIPiF5H2EavZ4GtqzdzpvEpEevfpVJqoQr7m+ZenQ1f IPJ3tpVmjFHB19kk+dKeKuKfAI3XDjZ0qIiWiZE/tID6z9Sdm94rBv0ZG+5c TpEAVwel7hN1ZHAN4UaVCy0gfcaMaLcjBRZEnef/OimEs5qcMyfiF/OO18Vg z7PC2MWg0WrfvzRwyK+Z0jKaRga1vakOmpqwleVlGtU+QyRFfI/YN0cBXxzW jDN+ot77FRKhL6lgbP1G8oDfKDo3wScTCUuhwDvxboybBB53J0Q6OhiQstf6 3e6QGWLzi+8e5mkc+FPgV9i9XhjiFFSUm8x04NXyyW/C3BEkmRzuv2qcAtzl eltoU+K49NkV1JjAgjBzBRe3JGm8klWU1nGSDjNywhYR3M8o9ZcgFMexIaz4 1MvK54p4xX2rDo6+Gpi0fEsz7OIT6etbpDm5NNAKOD0/ID5P/PTIvb1qjA4Z nr90vz8UhvIVdsZK5EW9XL722Um2lPBXKpqmxdBg+SDXbgJ+ENvVe5OMkukQ qF7QWKPXhfhtp7MaFvNbuFAk+1dLH7F0j7GcTYs8dDoKLzDP/iHy1T93FAXQ ofu1RIXV0Xok0FUu/lqmAg2x/I0bLi/Bbl8Mvykt/lPTyeQm9qFfRJxkVv8T JQ3gbSuz2Zg+Reg+ST6g/mKR30veDGQrZyKfHQ//GP1Nh6SyF+KaCiQQ7A4K WXlXCxwr9Tv02kbRiWNy4jJNi/rbMOqeOyELtf6VBYartaE5xbz+iOkfZGm7 /MQFIwZ4373ezEGjSO3yKquGFCbkaflKhIeQMF4pSJrsZwCHW63nYyGKd/VW DcUEUcGQRFU6Pi6GD/wg+5k9ZsOW0fMlJuu+oong7xT9xv/z1p4d7iCLv159 Hzy6QQOuD9963LmYfzG1p2ReQIPVgSfjc0NVcC+PEZmawQSDDmpSvOEfFGWY 70BSp8EanmLlP1HCML7cffeogArbP43btrWPIPP2G3UvF3kN2y3FpatJeF54 rO0zXxN41JiGPssluDPyeM+t62zwftFSWGXcix683FIVfVod/gdsDPCK "]]}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], AbsoluteThickness[1.6]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.01], AbsoluteThickness[1.6]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.01], AbsoluteThickness[1.6]}, {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.01], AbsoluteThickness[1.6]}, {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.01], AbsoluteThickness[1.6]}, {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.01], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], AbsoluteThickness[1.6]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.01], AbsoluteThickness[1.6]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.01], AbsoluteThickness[1.6]}, {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.01], AbsoluteThickness[1.6]}, {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.01], AbsoluteThickness[1.6]}, {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.01], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {{}, { {GrayLevel[0.5], PointSize[0.04], AbsoluteThickness[1.6], Opacity[0.8], PointBox[{{-8., -6.}, {-3., -8.}, {-1., -1.}, {8., 4.}, {6., 9.}, {-1., 8.}}]}, { {GrayLevel[0.5], PointSize[0.04], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.5], PointSize[0.04], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}, {RGBColor[1, 0, 0], CircleBox[{-8, -6}, 1.9722018963283658]}, {RGBColor[1, 0, 0], CircleBox[{-3, -8}, 1.9722018963283658]}, {RGBColor[1, 0, 0], CircleBox[{-1, -1}, 1.9722018963283658]}, {RGBColor[1, 0, 0], CircleBox[{8, 4}, 1.9722018963283658]}, {RGBColor[1, 0, 0], CircleBox[{6, 9}, 1.9722018963283658]}, {RGBColor[1, 0, 0], CircleBox[{-1, 8}, 1.9722018963283658]}}, AspectRatio->Automatic, Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->Automatic, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-13.951140579770048`, 15.08115269616335}, {-13.992458632563006`, 14.44460237771018}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6492089719819374`*^9, 3.6492090157088137`*^9, 3.649209125642207*^9, 3.6492091659214783`*^9, {3.649209253702832*^9, 3.649209267602456*^9}, 3.649210073324672*^9, 3.6492103831880164`*^9, 3.6492104784105835`*^9, 3.6492106130856204`*^9, 3.649211041197172*^9, 3.649211331498082*^9, 3.6492113751625595`*^9, 3.6492114078290167`*^9, 3.6492115781033154`*^9, 3.6492117016511326`*^9, 3.6492117354095917`*^9, {3.6492117732084584`*^9, 3.649211800196506*^9}, 3.649212476020893*^9, 3.64921250864055*^9, 3.64921774647851*^9, {3.6492179144752045`*^9, 3.649217938031246*^9}, 3.6492179703077025`*^9, 3.6492180737046843`*^9, 3.6492181454804106`*^9, 3.732369286521491*^9, 3.732370172021549*^9, 3.73354065692887*^9, 3.7675371170999527`*^9, 3.767583683267287*^9, 3.7675839702316494`*^9, 3.7710369775596037`*^9, 3.7710376476005516`*^9, 3.7710377401725893`*^9, 3.771037902821969*^9, 3.7710401580945196`*^9, 3.802610601108642*^9, 3.802612091414388*^9, 3.8026531219750395`*^9, 3.8026887795233493`*^9, 3.8073278736058073`*^9, 3.80732852295438*^9, 3.8073290775054197`*^9, 3.8073291354016824`*^9, 3.807330180302256*^9, 3.8073340669600215`*^9, { 3.8073341017851944`*^9, 3.807334122390812*^9}, {3.807334192334967*^9, 3.80733420857581*^9}, 3.8073581983551726`*^9, 3.8073582606617084`*^9, 3.8073583917249317`*^9, 3.8073584982775726`*^9, 3.807358568521472*^9, 3.8073588518468533`*^9, 3.8073590811786823`*^9, 3.80735913565681*^9, 3.8074087098159313`*^9, 3.8074088709624195`*^9, {3.8074089154096727`*^9, 3.8074089374645157`*^9}, 3.8074089733627453`*^9, 3.8074117666785383`*^9, 3.8074204135603495`*^9, 3.8078585205840416`*^9, 3.8078585546991763`*^9, 3.8078586550069847`*^9, {3.807858686893956*^9, 3.8078587109514637`*^9}, 3.807858803410642*^9, {3.807858989061447*^9, 3.8078589967235155`*^9}, 3.807859586259409*^9, 3.807859623223872*^9, {3.8078778715902367`*^9, 3.807877890226893*^9}, 3.8080228274001923`*^9, {3.808279236286865*^9, 3.8082792802504168`*^9}}, CellLabel-> "Out[459]=",ExpressionUUID->"f39cecad-1930-4c4f-b9ae-ab73695933cf"], Cell[BoxData[ GraphicsBox[{{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwUmXdcje8bx9t7j9M4o7MqDSMiUp5LKSE0UEiljCQKSUIS30QpQktLkoyo hKJ6rpJEEamkHZX23oXf+f11/jjnee77vu7r+nzen9dhuXnb7Rfg4+PLEuLj +/9n0AAtc4SPgoZCs4KnnejIsX7gZZLIQo8WywhzFxZu3HlpA3hwMXmqciA9 VAPn04y27r7Ej4N/4qoavrCxUmsbRT+djmFR9Jl2cSYG3Fx25cVmDp5tqkxi vGFihr+gxbsUNVwcFVnS/E4Be9zOFH08zUV7w8SEI+KqmGVRq69PXYAq25me mcFKKJFN893WRcXMONdCJX0NJOeWq5oMc3EFX5n9E6YUVuptm58R00Hd2rLk +R/yyDq/0+XWOzbGTBXMr1PSwKqh9IH9bUz8XRnZavxeGre/Enp64QYTu3rN kz6ZUTDXtfpaNpeFe+P4jMuUlDFcuLtzrksXpWLdS87tZeHKQy9FCp9x0PFp 0dQPc3Wce7t3FR9LA7NSS3P5L7ExlZIRo2PNwbHh5Zdak9WwJWdX9OpeBpbf uFzz8bEcftxhqjlupYSeO5sMOB6yWLrbM64hnItHVfvvfhhVQNmn2gxLARq2 H3qy6tR7Zbz6MKbRdI6GR6V6h40ZSrjTRTHXU4GLlQvMhzcFSWD0za2a2zNZ aIz7fENOKOOhY+6h5y1Z2J+etHKuRB6nnwk6Pw5gYm/0t3jpYhqGHbqzS8WY iUfWzv02pKth2NHHTSxVJl7dYDXWba2OYjve2gRe5j2vYlyh904Zv64yuBz4 j4sLvAWvX1qshtTHem1X/ehIIbryJN2VEE8WN8tmqKNxsjah7SaJH+8viwp5 rYmUJcGuxhkqaMDdXLHIRhXrZK3C1H/R0EZdLGPZNypq+Z8wVcpVQx/ftTn9 kVr4b/73gzRgYfvH3rgztiyMaOGHQltVLF+SnqubwEQpi4sGXr6yuGBPz/bH 9mxUKnrx63KkAo56hL95dpGD7VyLa2tuqmB7wbR592UlfGY5V5K5jI7jN0uF PU6z8LufzjqnZgU0O6L7M3yAie7XWCv0N8jj2jj/gKcb2Whzmxsyzzu/3m1T RZN36vjvy7T+0rPqeG/T9QVJWRzMaUpa/R/v+yBj0xmT5Vx8qZ83UZemgrQU 6+q0B1z0uTLA38R7r1l5z5UcTzpytZ9uCZVUQZsTIg9PamvigejtZ1ebKaDN 1qulNl+UkW0vV/DMhoaZs8Ge9WocZBuKbZ85pIgd44nba7vV8flfdkkiCmDZ cbr98WU0FLw/cXEyTgGjuvJj3KuYOKD4YVfNrAp+u0WLvunGQGeRf2c8hDQw 9ljTpHAuHQ/amf/JMFTGVCaj4ks1EyeOn1PvXqGM0xIuPd0VqmjkpvepNoOF 3v+KNOr2qKHfyNHQRl15fL8+tXChixqeWMF5Qy2kYJpd69SNn+r49k3FPqM0 YTz80UXwUisNS43Pm48nyqN/1L7JLddZKGoxPXnsIx2LGrUCdXZRser80J1T 8kpYftmHNWRLwSy5Q2jmTMGL2u4xjfNq6EkRA/MADvp06XkKsOmIJVlZrixl FPvhKSFySws/H7hTW3lNE3Wbb7d5n6UhfTrEbfssFYUsnUpum3DwSsGd69/c VPFVq+6ngk427kvye/soWQFNzc4K7FnARMEGInWLPhUTrGxT5rdpohQ1bXP7 YzoKVAYIvvBiYkkgNW/jhCrqFubbRbWz8Oih0yfWGatgttydHq93HGRad74S 0KCh7pLqJ2ZlbCx+udF09X4mNkelVyw8yEaJPX4SxAMmMnsUKsjzFLxSdVxr +awSbuMXTgg24OLclFRUhK0kNivcfCW+ThW3LsqcF89RxTmdjQsDn9LRfoHW Nb5UBUwz2G237AMdI2Jx83Xe/O5OV7Y5UMLC6IsSCx1reLpi9GT9kgccPLA2 yibipBg6avJ1vxGg4IqBrB/cQVV0jrrlaP5NC08RBbv6eLpIGYh4eI83LyZb cLePBR2N915YtiaGheG69LasCXUc+GApY+nIxK8/zf8uLlTC+MeU7bvfaeC1 +rfX2NVS+HHy4ZKURWyk5TRwbh5Ww4XTP5wp/MqIO1IM6zfKY31853qnaBqa 73/Xr/peBr/ELzacPchEmeRwXKPA20/Y1+3Wl1Tx8PDZtdsOMTDRLi+1kqcn z05KWBJjvHry3bSbz9ZACHwTrq9OxZ6sROW/FjSsO/HTR49FRZp5bZjGZgbu yl2y5PEOBiY/kt/ePqmO6aeFZn45qmPJGstS4SvaeJPv4X90f1U0dd7SUl2v it0Ri4vTryri2Uc/ffXFlTBnzMbBK5qJsRtzJB4wqZj1M1kyJ1sNOZSLjE+e VNSVd5j/tkkJP4Yuq8BMJj75mLX+DG8d1o+/ctcPMfHUiykFl3xJtA7O7v9V wMQC0U1qwtYKSOPL/wrGiuiV3HuV/MFCySv8BgnBGriuOb3OYo8GWn98lW3y SgmFJLaE6nTLofGROKJpOx3Tn2lKVlVRUfv8CoPfF5n47uL9iVU83cwJP1ry crsGHuyz3qhdycCxsQuum1AVx1xvF7mY0jBc5KPC1Tw2Cj87zIz6ScEfG8e9 LnqwUSTpKWc7r04CsrSdb3pZ2JA5Nza2i45d2TLNuzYo4KM9wevWSdOQWNba 772ZibrUyJo1pqrY812MsvcCT8cWf9D8l6+M1+m3lRtJdXwnXfOsmacDw+nj 74fcpLGxfGjZ6Y0K+EyTefpDHhNfWrZu5vutgX8mhacSo9XwcszJSXqzGu46 md/u46qAsztGo0y0GTgq9Xij+wyvD47d02l6rYZSO437zm1Qxd7hppgsczqO xq21Ke9SxANj3cQ2Zxqiek6/wH4u1ug4Wnk6KePWncKLF17k3fdGob47S9Xw mHX687UHWOj43fh+rIYCXh6wT4xdx8HX1xMGlCuF8Lba06QwChMdba3fF6SL oX5od5soz1+YLk2XNuRQkRjIT08w4WJIr/ufsnAaav4sq94swMa0k46ZPtmK +Mt+WLrOlo3/vZ9SEaNT8MylUy1ugXQ8oPZ6u0IPE2/VeL6yu6mEfJf6LUvM 2OiQ4Swb8UgDt19r/NG3gYF9NYNrb/lxcPcbpUXfxzXxSUlm2WAoEwu7n9de C+JirJJ6++xhKr7J8/BQ3kLF71vtvcaLGSixLP17Rp0ofo9fh06dHDSx2nvw qxYTv8R0L/t6mII5h+QPr98igwYvfacCSCZe2Ohm+GidPJYW3/mQc5KLP6jx 8SYmCjh8rK2E1quGH3vM2sxc1fB98ZlNYzc5qBwwL59jqoKqWVL0Qi9FXPza UGwqiImn+6PBx56LLtuMa1c1qmJk0a+vd5kMvL3849/JpRpIg5clSsks3LCJ 7XTbSwEj793TMJljYd3xjY3JAvL40qvmZH0vT+dehG/+weLpzJP4663dLPTM fPCc9FBG41WPrXyyNJBa5i/6944Sdma9TLGz5GL1nivDNkZ03H9v8cNXPB4a fOOdXBkmjrm7i6wmgpkIV+9o+1oz8bl44WkJuiZGmv3qqmOq4yoTA8qX32xM 2q8oa2ujjBHkgwSdYgryKCE2zUkILX3vi5UF8OZ9rfQMv6QCPmH21UuEMfBQ xb95B0cK1nky1ow5qmGGyOkLmmwK5rsdSHxF0PE//nztLTZKaLfUPsDSlIs7 RXy5rXG8/cSFC6n8FsOe65bqLjQed2xc8T7IUg5jdSNSNjSy8d/x5ZMLpZgY QzxSlFqnjrtmH5dVMWhoMTQi/ThcHZvs2jdZXNfE08v+q76yiILNndlPs3jc 05IvHxnZqYopV9XUCypUsPWXPu3JHp6vhjvvrfzDxSq+T+7W/9dr8cf8ekPq KFiU6LnrqzJGmzplHzrJxrvqrwjxS3Tcvs3pWoceB6tqpg43Syqiq0nr0gf6 DExJ0rJ7zqahvo3VM8cG3nqPM+Jmfmig6p0vnnv1WGhzwO2H1Cc6rhZ90y61 k4U3v9zUlxSVx8S1504+/cvEZdXvfD9+5PW1xinPJ89Usb9EaeHSMQo25Zyj LjpLwZWOntZrFylgwps0Mc0VVNzkJSg5bURFn5wH25R/UvFg43YtWQslvDqu tPnTKBOf9ewqTjwjj/aCktL64Yr4JCDs1b4nKrjyeJDFtRgNLKSt+FnapITH HEKfUs+qYtk3a+FNZerY06T5OtVDHrlynzQDXyqiX/emc/GjUnjQ5MXwQxka cj/EBj4tGiR6/ZLjPykq4YfeHbc9g/jw5XlNBSKdi3xDl+N9q14SmyRo4qG2 Kvi+L0zLx2yOrOpZeEzkngbSk0bqH4RNkTdml8r9V6CFg9K/mSKm82R3zVDh IB8Txebc38hYSKHOd89vDEMadu3N8T9YKozitSF9+7XZuOTjTwYjiQ/DezNq xH7Ko+iXy/H+WSJ4vneNw47lTNRJblsr9HWEvHcud9qgkIUffY83CHtLY2Ly bcWABDrWks9XWRHSaGJG0SFXquOBR5GmzuflcTC++9OHH+pof93A0X/rCBlx VXgv/0MOin0IPDYeOECeyrWsEqxURj/2VHiXtAK+XDB+0YXHMxkGwaX/GDOk G1wfd79MwUFXH+nwREmsHn9SlLuXix1BZdyWGH6exRXtO8W79+d3X/5j2Yqj 7uTmA2MiWngy8mrrxlZRzB4cdbHvV8c1lRLfcs9OkMnL+T6lHmEiTaiZj3n/ H/lz/aoaYTst7Dn99/BdBTmc7agtkt1DxWeid/IWmPNhnvQyh2cCDNTki/1i 81AdfY9FfP44yMXOjZz9zBZR3BfNjin6IorSq4oP3t7Fj4qfc84qzGnh4V1Z Fe+8ZHFN/oftq6kcLOYePS56UgpvUVf1/glVQXHD8u/GPP3tatw54hLJwN4X YZe23lbGRZ5WLTKSHPxz2eRtYuEkuYMiy+44rowazqfiDL9IoJDagnS2kRwq XhV7l5A0RsbrtOhb3WWju33xonIrWUy4eeW/sxRNvLXynvM0VRk33Gu8UexB w0AZ0+AlSbJoVP8DaalMjPI82kR7KIrzWZk1i/gpOFk5YsEZoiCZH9DQxdsv yXe50YA7QS5IvKFtXMJBkWuNpxp5HGemfSRZ8AWvv14futnBL4zhnRtGq3k6 nnociuZM5LFaqN2F9YqKX5Y7LS4ul8MdkhdV2ckSmPGy7skipgD6RW339l2h wbtfi/tLxH8Qnxe9yDt5Ww2rfjss3BL7lyzzaF+aV81BCxb5IrZBEZ0nru5V LqZiON/FFbkGKvhqzGqr7XEOHjHcVx1BmyL3NgXwH/lAw7YnKmUSJ3k5d4vx cLITF4Wjg3IrDyti47Wz5dsqtXDxeE2qQ6sEGhZrZv82ouDZhxkd95olMaYw z25LEQsX6ldk+e2bJxfsuXarq14dndVXDd7+LoqC+xM2DRFcDI2M4mfHfyEL trVqqKIWNu4u/DZ8dYxsue/ykO8bE60zMuWv35ZGz7TRGyn/mDj5TOHUlqY5 8kE/6zFRw9On4O2zed4z5CL7C08lXDhIYe/PsPVWQbB3XWP5m4uXv+7i6z09 Ta7pO/P2dSkTuYcsBZOzOom2tUtbHb+qoF30h56WpwJ4enDSTkdOA5nncu5u WiSOlIBL/gkLuPgvgxcgHvA4d51px+BtVfR1EE2RG/xFVrc93jFMSqHkYNXa txlK6Lby6b27IVxcp90aqTunhF79uhsfvKSi1+kP7RJMMfQOFu19pM5ErzX1 M3yN84RVkH1zX6cC9kpqNdQ8myJVW99Xfb/Cxa2nrQQKDZSx6olvvdxudRzs l1KJCxwhLz1O1xu9qoHjjC9y05+VMKtSMHHJfTa+9inovqrGj2OXiOzvFBay +G5kRqXy45VdnPatolT8tShwC/OmNMrmsqROamng/ArnvnHJLnJJiKroe00W duSV7y/smSVvuNZELduqgtYS5rEqm+XQ44lY2xVtHl8nP8oej5XCpSJXi/e/ 5c1R5bVbs/RhcrAvpH6lBxPDFo0Ib1GRQx92SZ9sKwuF9trxty3oJ/3/S9Q9 comFXE1rrBFXRJtLXq4iwMEsmpPJ4yV15DaWrFFkMgO9K+b8C3j+rF9aPfLb jYLT529+fRvIj/MjRsxqbxZa6Cz3KlovgelBL1MO3aTgpqXjCoPPpdHx6LdO fV5uMpERrNh+VgJLZw64fxnWxgz34cCNIg3ElFxwMr+pOuK/lq9nSv8Q+84/ mboex8SAswdSz52dJXemvt9qLchCZ9WJ/5b6y2Ll3PjKQAYVLSNEKh6biaH6 /SVMNU8GFnyUdo7k7yO3fu/we8TjkS/P5d7ttFbFwoE4CUtePmlZFd2VlyyN hVGrNka70fDGgHn8F29+/Ji/TKSPdx+f+ozaBeqGyat+F1wfXaHhYHLyMVEH eYxxc8otn6dhkDBnxZVVqrgrxMqgskMdaZrf6zt3/ySHbz5aWebPQmu+rT0u x6SQdf9b0NnDDJzfU3CoA7uI5I+lRd7LWaixQ+tmAZ8cdn5mX3z/RhU9UliR A7XtpGtFOXnjtyrecIvbQ0zOkQEyF7gHrbRR7oR/7nOXEkJa4dxvpU51dF3w ITLqijA+MVxGP6+nhSmWw9vrF1QQVg9Gn3020MZlsUdTeycF8NuSg4LCPP+p NNd8/65OCeuJs+SuE7z+3nr7Y15AB7F5a89N4w4GXh5/JauoKIKhm0tXhi3S RMUjQt78hjLYXfjMtrBbGfUvpEbnOshgTnf2Iat8Xp7Dvck/H6uhSYpp2KrN XNTU17iMJ4Rwy6AiRSCXhcc3rLQb8hZAZ+9FjykWvJwcOXSi5oU8Cj1ddqjZ nonqKnuWuYj9I0fEjwXc5+U7iyM6OYti50mjI85L77Sq4lXbJ6E5I6qo3ZZv LMrHwvNP/2YVnRbC4AWrzKYi6Oi9WmThdLksus/lXOHM62JmpVhhf5IEfqZm +4vw5thSt4HMdZJDc8X8zunNLNRJ8un8myOPQRt1VxaYMHE4KZpmU19DVu9s 3O31hY18+17Zdm0ZIN3/sJ5In2biokl1tbUhiqhZW7PnqLgWHjL3rv/PZYbM 2GPxrGWGp+etn92U+D4RtOTAW3t30pFPe/7U+WoZbI+kpPrxOO2B0r8ak78K 6HHvzsvFvapIX6dF9lIp6P107oqyBhO/7Z9fePyDEhr08+02oWrh6NcypreK MHZ4qervLadgasTaxy+0hdDQ5butP0//Uj0/VV6a4EObuJTiwbQF2ISl68w6 BbDWyW02eT8VF1MNzF/niSLVYfS9/35VjDBZ9vT5PVlc0dQB1m0qOH1/Uv6L hTxG042kDNlszJw/3CXbpIAW/ToxZflsjF+dpXhXjh9f0ZIlHe9oYyjTxirJ WxC5i88JnQhloOGybx5H/hPG0XMHMy5HsjA3ovnT2CEF9BYMcjeksbEP37W4 Ppwm/1hkv6Zd1sDz/JnL2V9F0GJWOW53rTpuVtI47ZCliA/El7WUGmmgjnuw somaJGptketmiqjhmSfd7jkdk2TMw2XrNEK52POKv0S6Yoq8Y82YlP3O8+eM cd38e2qoa/Uw9PtFCkolOJbzqyuhwKMPz5a84uVZ044rWj1T5J7jHzP1eD53 S1x+cebef2S6/16vbWFMXPthdOe9rRIoLrni7ubFFMw8UblY4aICKi/cJ2se r4FqD1fwvREXw6GT0V8EazhYec80iKhUw8p0+2CRKCrauMc6jq14T+ScOsKZ Azqm8NP6n7GVcNOMY0/0JgbeOpHAeB8hhs8vGBiW8HjLaf23HYffDhItZexF X610kU/k3xa+15I4PLbi+dNyOuaJ+q0ui5bHrCqzF7+Wc3DJEoFPQbLCsPt4 jFlMAhMNVqqNHugSwaUHMk//KmLi49enEx67C2MO02RNcbMGmlZRV978JIfC lVd8mTFaOP1YX2u9CB1fTXAN7vD4h9fgJkdVikg/fmPawi2aqHn6sdvq2D/k tVtTHvyHGOgzZvC3okUJK99LneeqsDFPzLxN7q4kyrHZE/27GVhOpor1PlVC JVH3PsoyFjLN38RuLhbElqXLe+N5uffDDvPRgpoJcmnzgjbl+xroRc/NPL1k nBTOnkoLOs/l5Q/7nfFJQvi+9uav7xEcVJql3SMN5fHe1O7jVx+xsaBro9Nl QRlM7mzZk7aVhetiH+45tFIQl1InXryZVcNbpRaNe2sV8SD/fBVnLRcfXXHd FOAljeUH97tL8XgzszpnyV2WDJa+cVOTK+fi1TOmD2x+S2L6+y/nbL7KoVPp e/++4zI8PihoE1Vn4frX/Znxh0VwJstv+rcFE0fGSuxqnsrglnfpBTeztVEp oVGdf9MPYp/onr8/BaaICcctg/R7cng0xKsjI2+e3HFW/1V85x/yqaAAJF5q J1evO85fekoCw+eyn11nd5DRQa0jeVY8Xmvcm8tnJYryK97/zRocJq3D7ujq 9TSQ22aDq9Xjegg85V8um/qS6A6+YBzY0kBeKbCVXVwuhP0CDv3xbaroKuTg NJg4QwRtim5TaY8kbXL7JO+IC+PVPaFu0zuHSeb1Q04Dl/iwTd/u4PEL42Tp 440LbV+L4f4/IkNPVIXhyjqJtAeWfaRd0b0V4xuniaXF3yzsawRxGI6sKfYa JyvfF5QbhnSTDob2m0FGAnUPjigYPpojX5054uxdpYB2FVEL83b+JHzaL3KX /5kg5EQvRFAiCsi8s08cdpf2EAn94eOpT6vI8X1mtdIrhknHs7XEZsVWwjq8 MiX/7BDhdPXGnWTZYSKg4h6+8pgmgsj7AzL8yujkF1S7YaScNDLcuMN2/wR5 3bT2j+ODbHLbOduZTf+1Ew/D39ns2D1H3hjfOh34ZpZMeDb9htL7jTh6xUat XEMEhtrvbrlbNUSK5By822orgOuymfcncmfIVLUdFtW2ipj6vK/5u/1PMqpv +8Wx6Xny5a1e/a6cLrK7YWmqsdAkOZzTfjxnaoS45j9W+yR/lLwlrfJFT+ov EVFy278VhgnIM475L6yJsHDvE37gNkgePe5X2aMiikVs4rTxNj6wCXKuGXgp iiLsuE8MmiCeGXLw3nKPH9YRuxVViydIvlSf2wU1sURe8tCOYWV+HM0pcRfm EwDbZYqmxp8FkVndrb46pZooOGG/LWNnO/lXv8yw8cgg4SH+67vxTyQw665K yr2PpNRm5f9uuvMh3lWJH5gfIz87ve1ZfUYQUzdo693YKYH+M75BzxcIo9pe 5+Wh0ZPkv0uSUZRjYihm8+1h0d2fhByxQsqlQBAWHr5YvzqjnZTBaxfUG6bI +qeHPJuKhDFi09ErWbz63XJJG1j5UAZds/arh64eJp/W6/5IzeXl3ZZ3H20W j5M/Ob8HTyh2EpVPbKSFiRny+eSPd+n8PeRWz7cRjVnjZNHEM/FV5/oIUHtp 6B4yT9hdE9hpZDBPhnjUjG7hceAtg31hwZtE0N+3Q3KkuIRQytL9/K9pnvDd fMk/smmeLFfmrsrUHCdYVVvcb/n3klPanByT1yJooJrRweyWw09beReTrIjh /0ZlClwbyVvZz1K5BZKQEvVtoiI9n9h0zKJM50w3GSVpkfzvzy8iIFzfbeNv fnSNPb5ST7ifFEw+WHX68x/S7FaW1I48Icx7d19MuDmf9Plvx4bygmmiVOX+ iYu/ZbBFMH30zawCqp7dmOEoN0M65A682RMoihnQU2Hu+YHgFtsdKMmfJgpq 5O+cfSGM3VUriyfss8h9J6yz9mzpILN8u0OX2n4i9JsiU7olWohFzX+cKnJ7 SSnbMSffsm6i/OOJrDSTTyTaF16/r5VJsPO9btjTmkiRL+6/vxCNZP++RQc3 NAmilbvNKurzL2TlLU35KvoQWSnXshsMfxBHLsbWhu0Sw9Y+uegrenIY8Ip/ VCpSAEPZJzOabXuIli6Ns19DRLG5OdrBIUEZs39REmbTRMArTLM9h/hF9rqs zpeK6SSm7e5o6fbMkA1r3eXvC/Jhhuw6ps+iSWKH/9Kpp27DxIWJqzRNhhgu 4mYs6jwujJsv7f3yvlgAIdx+3V+7BCKv/OaqmjhFFHQVC+pLFEeuTZnnk/oS cuNRw+1xr7vIQIWO3I3RgnjYaF9ZTXkbuT7o1Br516I4u0m8WnFgkih76/fa p2iSaIshSvrtKwh9quEkKTtCLDEOp55o/0TorPHzMX4yRfro9W1MYgtDmuGa Knv2POlfLb3xAG9er8v8cqzp+UUOO3Gtp40qiaA+R5dguyZiz9TkF7cJSazP /h4qoFVPBLu9VWg82UD+aT8gyuJIYfr5vRNlefw4/EzcM+ZtLeF6e67mr34+ YXNs8ZC+4Rg5f3nGo+vfB7LNfOyPwlQOUWJn+GWtzwiRsOyqcfzkNKFqbj5y ypwfz/Cf3OH87DcpRonTWdwkBuVx4vsvUVoJanCs2UCiPKb70/jOnuXHakG3 0qO50hh7rtDBX4sPDRjFBlcb+KDeYMPC+E98uEFUX6LwoBDklcslnterINri hcQHzLpJLwnnH6E6I+SS3ridoj8miKCtOaJJDReJ3suNp4d4cwsl92WKym4T AccSli7KniKPjTguGQ1URLmSWI/6sDqiQKdpdfjZITJtZIf3/q8i4Pt+i6Xb 9vfkm8zBqeKTEtjRG163gud3Xy6e/qhekU0kzecUSYWLQdIVV9OjKXzo9mTg xZHKVrLswUCw4TolvBZ64hNxQgLHBc5b3jXlzeHQQa8dAVNE3VfBR7uPDhIv BTevbub5kdn2g816ov/IovKs0YFHs0RPpNmg9NZfZNJcQsLB3DFyvOWekXOH ABQ28b+1vCKPXLEVHtnYQVBFR/U0ikZIz9cTUudSRTF774JN99cKQ4DlsuKt F5pIj87OMYvoSrJzRwdr9pwE+tlpMK6pTpJW/vsT6MpfiYL3XZVJpt3k7Rs/ +QrH5sib40RJVuY4GXpTYw1d5Dc5uyGUJU5Mk3nucofirP6RzsIVBdb0btLq Z5J9gdofUs9k+ZmpkD4ybUngjZLy74TzEtvVtxZ3kmULNFNfTf4mLQ8IWjUn iKGyotsWm8hpkk9s03oy+AOh3/PtwsVj84TT/GadqLhJcsWvA+HCol3kUcd7 oX/WT5JY+duEKJ0gxyfM5uY+fCXNFv+tGe4Shi8VthV31EsI57Nfjzbe7iHH b/CnSKrxIV/ZH91ax3LSX0n9+2GLWXJ+pbXvMq1Zwk94w/KnRqK4Zm7J+2NW s+SVKLPA+29HSNTvvGfSPENE6i8+PTsjjLiKP9Y+oogQLCyLPb1PCm+HxEbf 2ieIKeIaUxfXjhJt/usDLWb7yJ31h/CI+ShpnKu2V/elIJqEfHuxniOAH1t3 0dsoP4nXpc6P3xs1kH8tokxfnWgni/UjB6fsJ8n6+e0hK3sk0HH9qf/+ey6D ByRnbpN3R8gSi63uAUwxaIq13X3p5ghp+HdTjdJiGQw1MldcXfOXHFab19/n PEJYHs1KXvimm0g99V70ZADvvNbPY+p2HCcGwzVE36/jxyx+pcuPnSRx49xd 7UibRpJWfbjja5w0cDVnh3NWTJBbdUbKPEsF0GNLd8pOD55ODg5wTRcqYMLO xJJFItLguOdgd6vIO7Js8dieoDPzRFDGDSZpEkeIFZb/OcjzS/G1Qnyfdoui 58WA7n2qM+TBQ6w8vTtj5IHxlNnCtV9JpmXlct+iPrIoQPKNEk8nJolsyU06 vWRbboqtylo+jJWK3TppK4Qe9dF/X18qJx3mbcMtdkvgym1z1KbsD+T6gzd1 jntPkJyFrsUqbWIYM2qx6kTFJFljAp/TA2aJNcydPtoitWS6kuC/yudCuN+t Kc7CTwVtDkl+tOblKfZ3m72MtXKY8nPdrjOi30k3pYbOqQ/jRPSilGWhd/jh i2X++5CRIuJNtKXM504pNGM5xOuntJDz/M+jDgT0kNt2fRLvcZDDtmnhlrrR WdK0t3lGzUIA+dNLkpIPS+Nxr7b8ld18aLr/ovy24VFyOsLMdeAYHzplpi1a 01tFXroS0lG77gu5YK+VTcH6FjJK688L9yRFnF45/LZ9YoTcd8Nig6D6PNlw KV/ljd0kKWDd9/NblzCub9KzudvfT+rvXeKKXiOEwBnRzdvnfhEHHFFrrkUc oyUExRYu+EuKvfm73XSdAE7zf1XMYk2Tj77ejbVdLggBC7fkb7n2k7hfoVd5 y5wPss1nmxquSuDHU0dyJVqF8Es623WP3TzpyKAEbd07TKx3zW4/FTZLeuws 5Gs5JIDtqvcsHr4RwXaXmLrE/TKYtS/y4je+DLJ/4t1oefUosfL1WzPn7y/J hss+bU4Oorj56BrTDod/pLW3vFMBfiX471ndNvWVgzWbkj88kZsiH/ankV4e AtDrmn0g6Vwz6ci683iJjyiOW9186cwQRq5FdmXxwU7i+ee7bwUVR0iN0NLn n5RF4UrS6XSfIzJIGiUMhtuMkLdi5m/cODhB2GS7jE3s7iU/2q0XCT8qghsf Mgo+fBaEpH+L9i+dlcQqqV3JYQkjZMfSu2D2YpRkf7YteHCbCbjxR0m0uTLE yy9s2iWtC9seulmq1U4S0wn32k2EtCHEWTD203JxkGps2WX0Wx2cRc9bKxn/ IXyqXU+d+MuBnbYD/XRTKbC64c9iHdCBsV2w+NxyJah2zwx9eYMJK6Zu1Jgc kQPma5+mGyEUEAyybThYJw87bfIINyYLDhCDc/u0xGDmuqDBjVk6mMVd2zBk IQV90hOfSD027Lq56VHQLwZIHIDZ9D0UsAo9kBpaKAN/9dTfzehRYXrN4aqb 69Wg6uUZerIvE55/YNmbHleA2iXPHISWaUCHuuSP1OkBonKNb9KbNxxYeMVX o1NFDkquvjl12kADWjRafrevkAWzrECtlA4u2Fh5NnN8VcBmrF/a8yEVws5F dQy2yIGuWEf95gkKrFyhHWpya5a48ztu8YfzHLB4JT/H/CAHdPPTc22STBjt zWNLU4Vg/83si65Ih34/Zf0LVyXhb6a+4oLjdBBacYk/yUQOFAXVr1SuYoLB bs56AztlOChe6D11ggXVX9oKRRYpQ/H+61rz9zVBxu7Ebb9TMvAq/o/Rikg6 lJ69tNqSIwzJLo87bvHqr+AiT+NvVgWp8L6bpCkbcoTcXQ8uUYHhhR6n/IQ1 IOO8GZ+qez3RfDq+w0WGA0tRTrrAQh6EdEH6br4SLHx7VL/sljSgLKfg9iQV xjecol4zkIUnRGSfdzoNru/3qNMzGiSZYku+UzRV4ZCwnW5vkzy0SPT8ehLF W++flxjt2V+iXmBt3oMGNsQ08R1Lj5OC/EE1mo4EGyx/ZW4tslABI9vUsNEq Btwj9+v35PLBWb9Pb0VpalDsKFwXcl8UzkQeufbWUQu2yaht+ugtB4UHOkS5 oRpgmtZvkEwVB/2dt8eCzSiwY7uPOVtGEKqKdizyGNUFBb+MRJc900T+Z6HJ jEQ1+Hkr79Vb2Tni/rTjn3QXOnyZPvhh0lAYzvPFSNMa6fDx1I2wkTwZIJ00 l1DiWCCvy1F3OCIPH6YFRE3rmbDmAh/JWCUEdL+c554kGzIpVc3RLhT4Dh6H PLxYkGT1ILs5mwVXiYg7EuIsqOQbezVcpA4tO58HaHfSIX9kImrrBVkIq5FU +tZLh5/5Uaob/P4RzAdi/4WcocLeNp1yzy18YBra82ljPQNut5qYLqLLwrNv PxMz47XA5OAiWvMhSXgae/v0D0U6lIkoWlJ1+aFp3f0jmcJMMJGPLYwolYKI P1crvsZyIattxVTadxUgNq+QLTnAhdd/zz1cICMPSleVH084seHe5tgcPw9F uLJoydOEYCb4c0dfjcXLwsfa4h3jLjSQ0/ptX3ZPHY6OhS90dWGA6vtqw3Af KVgVTfu9Z5gB/dTHcTuXS4B59suZm19osK6p58DS/8aJu3+u5DylMiB8yF/0 IYcK12dtPp/KZEH0ua5tV39Q4L3fg+GePiZExEVcq5umguphboXGMQ44GiRY i6aowtBHx8ynTxgwW9WnfnWFGhw7JOF98SEXulkvLBlHaWDEMfKKZHJB9+ZB q9wSfpCYm3iXVceERBdD79ftiqAqcUYx8zcHph2SM/pdxGGHybtFsSGqcLT2 t3N+hgqknd4PN9yYkHksUm/XA3l4fNCHs/8cCz4007cMJAnCxO3PYeMblCDy 5YszDY7qIOYw8SYnngbTk4G/IkaVoc4lIfjebjZIUX0CKzz5wZZJRIu+Z8D8 Ui++H9EqIBa8Zsr37gJIU8GccG8mcD1Tb17bRQWGw+ei+hx5yPgUZnNnJRvo JhoJ3Q7KcHTS4nHYBQqMBzxsYq/hA8c/At89TVgQNJW9LLCqjrCw7r5SaKoM 1sKaHZPbJSA0zEJR6hoTBvf++Cr2WRlqT+j+Tq9kgm3qyDnilQDIx5sM6Ffx 7sOa3LhGXRRcjE8/Pb+eC/6j30IkfIXgMzGjYv6CBd83dG+dM1QEM1nHc72X OXCWzpf/YNUkseor935cDhM+Dj/4zJ83SZTaBz2mz9Lgcqd6qnmkIpguPmO3 7K8GcFyt5xsOK0L0ZLtRTRUH0usN6u63i0Ls+8BlyXW8+uTvyOq9KAYGMT3v YpoYIKM9FMJwVIFTU+t+0x6xwXeXK9/3fikQSPrEt+gbByR273Y6WSAH63x/ KH0IZMGRaz/YSw5Q4KzDTsEwqhYwlrS+sNISgOcjyqdWPWeCeN/0rQ3bef0s lbn+JJUDfx8M6nxwloOXjb0OjJsseKN74P38bQWY2pytKn6MDR9vjkztjVAA aUm1sAuKLJg3it1WY6QE+919A7eHMuFrmavKjloFcPQPfCHxjAUesg+zFN0G iY9rb50Lfk0DPs3VNy/dVYOm9c4RdY+oELlKPjm/Rg6uTYU4VEdow12xwoE3 jyTgbbeIYW21OhiaDsivuDdH6CRIXLvbzwXXw09ePHJVhbbk3f4GD5TB+Ie1 7exunv5x9yqxvdRBP+7j0sUp3cRYnuJg+AALxu605y68KAlyz4STyZUcSOvw an+kxg8rO4VH/8tUB413IhKRphRAfme97cWqMJv4oFdLTRm21evORWWrQb+S e8/OjElyn+W5kBgNNbjWNU6xCxeHe7ahI7ccOFDMGDotKyEH6ZtqjMKC6XDs hCC4nZSH50py+hn+HLg9kWox+kYdTv/tVbTPZoKf3r+Sy/8o8PJIi80aEyo4 /Zr6tO2VKtzVV77qyfv9fF38H5p5D+H0393qkjti8FGkNHCVlzD8fHtWy47F BpNgtZXcNDnIOOu4IqxilvAslbj13lIaImb32h9W14ZHJ/3E1/5Rgi2abZWu NVz4Vyv2+qCrOKyLnbMsvc+Eakfqo+gYWVhQY/Z8hsuCqDvBevrOIuCpYHuv NEABus400e6/U4IWpcBnl47LQKy30Pbz0V2ESIrym0pfTdjTXvXJW1YM5JlR i/rlGGBOiUzPpSqDdMT3P921DNhld3R9JgjCd/9rw0Pu6hDy8OW3r9KyoGii JNgYx+OBQ3PKdzxVYdvItQmjHhVIaMvr2VCiCrssjzImJVXA+XLm2i0/+aDp qXBdY44qWBV3Pq/qmSSqApoykgM5AI3WbANLcZjsbDKNmeRCwpJlgvW3fhH1 U/wzJcMscIgcNZUzVQAlwWuL/s7oQFv3QelbIqKQvjnJbSevf5nb3/meV5MG yOULU9vVSYTMVVwoNeSD5sLyol3JVGiLOp7z8+Uncm9b0vNuZIPWx6DQoEPK QJtUfC1QIwoWfHmmf+YFoL6eltk1vwBk1Eqc8JMM9NbPS3qvpIAH/V2uRhMF HCwkD+bw9DA474YRPBKFrEMt1zMT6KBx1svmv+XyMCdz9/rtJCbUEbufmOsp QDC9sUmpgQJXVTJsH5OKcObQD28dMSbMLpsn2XeEgRbGyb30SAMa9l8+wCqW g3eHozwuhLOAkXc74EWUAuzpXzAtH8SEPRHPz22ulYIT6w2UewYZ8Pw+ddqr WhGW8DV9GNqjBgkXTl5yreWHBsEfG2pi2NCzZISM4+nn1Y7TVvzqbLAv+6qs tl4eTt3yCbHqpkP8FfVPtKfyYHNl4d93KRywpx48NRhJhdstO6PdV2mCX365 9mVFEYh6efV82xcWCC1hGxvNiEPwWJrQ1500+BsywR0JVoD8VYtnU9QZMPTl kXGIhyCkVxccnD2gAf/9d2hx7R0+aDwWePn5LxUIlXelzi6Wghjd2/ztTHVw 9OgWdlmkAEuJbBl+YQ40dpwdVFpAAcZFYdqsIQvu+hdsSKfJQeTMG8OyYDao ORY43jeXhe+LhxIuM9mQntu4ZoWfHJgl1G13DaTD14FV+QfXUOCjiYharwgD uAZhXSVmYrC2OTHA+gMNgu89XbvuqiiM86fUh+ssBLlVrK7hUmlwvu62q1mU Dko3Xj7v5koB2fhkS7weB9zSfjXcWyAGjA9WidUcBoQMAEfMeo7QwJb4VtSE ldSHpTr800S7s8uBoUAalHQONO3KEAb3nzYS5vYa8Pz71+wAFXW42J+kskuW Aak//Vd96pkjcg8GCTpNMyBv208vthUTHI+usnQ9y4Rlvw8eULwlC6KvUktE fVnwa/XZ4DAFGaheuLdw4xwFgj+ZL/35nAZFM69XHDmlAoaJl3xqjFmQwXU0 80uhw9TMKr5hXS1wtRVwZ52UhHx80Mvy1gQ1Ug8lSkXgQvWD86dWcGAs0UFI aUgORlo1m484M+FY0ZecgQA12DPY89elkQoL/870HQlTh4BxwyFdOVXITd28 Tu4OC35nukWaHdGECOX8xbVHlaF08/Hv2eW8vn3b19GlSYfZW69exTiyoePu mq9F2mog6p2j0dCsAScOpKuan6OBh+SGsN42NcjSWwZ/K5jw5pjT0dTHTGDL qxv/tlEHkYHS4ZY3LEh1fX1MIYQFhWnM7kze+4qCuw/VCCvD086KV1KuPJ8w C6nb+4YO67au3fGalwMELssMvwvhh83dhMCxJBbobXLrX7mSAS/+63Yazeb9 /vR2e2FjeUiufnnCzogOg/kaXX9PU6Eial1bVz0bJO5uEEhRlgfn51TW9E02 rCpXkVA2UIH1/Kbh4dYc8BlgfEi8zMth39zDmSV6EA9VfuNOFAh1Xyt26TcD rncJF4YEKEGuzilBG2Ven46/XBdTowAwuo7g386G0kF6rV6qIAS/HMn4Hs+F xy7fozu1FWGBcNr6+gWKcEhDJ7BPmwKmUXFL02/z5m7W+aI2WxAsLUmLOV0u xG+uMNiTrAynV3+bnN7BheV2Ytt6z7OgvHf8asIKXWCI7/YRfyMOiuHbXgjc VwVibWnNBd7zApnb9WX+zzHbfj7+PaACf3YYzp18yYSK7+tqx47Q4BT1V25U Mg22fkrdvkxABXR+//oRwZtzEbOLJt/SuBArtFpbTIYNsgYH6jc0KAGx9cXD dc1saDdP6G/bpQ2rVpyRC/mkCeu/04voyerAtnlUlPlLDcyNIrqkzJRhs/SQ vBfJAqfpxF5fPia0ig1cjzPVANUHq47sPEKFC7cfT+UBB44k3CM2D4nCo1R7 ozPXeZy1I76k4rMSmB5adViejwO2st8dc0fVoGgzXDu6lQmLNji1hn5XgMCE u7QFv5kQcqP/2LUF6tA5G9mvdp+nC6Z1Q0vXKIKM0KEntfuosCd7rmnXGXWI EUm+0PpPHThFG2Q71ytD36Nzv/Vl2RCUdSWa9lYR+v4dtrLh5ZpZoajizLey 0KYtu3wDLxcOW/FfXvBTCTiMox8OTVNg4YhOXfoYA54c/fZ+NpwKQ0O7twcy VWBipFJHRJQDc6cqxx5FKQMrdib18h8tMBLWKyM9qJDw5Oq+oGYGtH6y4Top qsO8ovG6MDs2vDgX9muoRxGal/yedYllQ+GWtEd83QxY/qs1/IwkF0pnyx1/ VMhD3dv2idrPWrBB+rZRtR0TPo9vOuNwngl55p62eq9VYEmzocyrMRWoNFjg YFUsD42PXrQUXeOA53bztyKyShBbFX1ctIbnEwVLX3D+cSDwRxQzxkkTLjyc Nkix1oCDdk4el9mqcCOAEvajmwbwJ5GqLEEDhthfvX2RqnCE75Utoc6E3uMO 6/8NUqFgZGcjfYQFh7Zk9X1iKINl85TBsRoqpBwPqMsMVIGGugf31M5pwURN obZ1ljq8jOzq+XKLC0GajJZbV1XhzFGf4x5ZHPCITtRb00wD+fvH7fXtdKDB zI72RlYdFCzMzfPOKMB158kZ3eeq4P/Xt0p4ggO75LpXK0nIw+hFfVHZm1x4 PtqVXZmoChtr9BVyeHN/YWySeiBCFhj5vb3LLHk5eaFdbKEaCwbJ3icM3j4e hexcYfxeBRppQ0rnzNnQ/VVuhxlLFdbYhD05xuOoBy67BucuU8A7+qetVCcL YjtDA1IM1aEyQ2dPiyoHVu92pRR+5uniyu05h4Q4sNP9aakMqMBgSS3Njqe3 q1UUBI8MysM2r1+/fuVowovbv3d4nFAF2eYfj1fwuKPhEyU57gQFIubUXwaE MGDlvUKLV74M2Fcd27rQjwHnlqx4o31JDRaa9XmVHWZCxtHt20R75OE+v8qO rbwcvZydzrqQrwpPGb3nlS9rQ/hGplzxczXI/3dv11wwA9oGk4WZRQyo3rVi QkyHd76nic4jfXSQW+J/lz9NC7TE7gjXa6uA7pKkwx+PcIEjfPK9sBUVctpj 3187ywWvoLP73F/zzheikinGYMCRpT6lIi0MKJc4FLPXlQVu+19NrkxjgksR /yNKOY9zKsNnkzczIOq/HN/+jUyY3Ll+VY0uB/ievtfP4vnctoGJt4k5LDB3 mFn+T58F54frn5flUcGyYZnzzu08fdsQfv/wXwmwfGVt8quVBV+s9E3O9Unw 6pNotalPBRIzg6Ik52jwoGxVS4Mjrx/txn3P3KDB3qc5hQs8WdBAId6YlgvD oUrPSI8OFoQGSNSw1jAhkBwcOc/zi+iE1S81eVwhIhmiWU6jQ5hLf4l2Bgcu rDteXHaUAxF1fJzOIHnITI83zFfkgkiiQdfP3YogfEBYUNRLC5Iu31hzspwC BS2mey1jOKD36ZjZseNyUOcc91Y3hpezri5ny/5VghdPDPn5S3i5TjPypzEv D6YpXRxTVtMAj+7PW8oIOghFJflsbKfDf2qXFkYEMUBU3fii1TBP74wdClKM eP5y+Et4S5I2RJ5tcDDv1YCZiYaECHstyNvS3p/PRwfKzR1pYu9Z4Oi7TcrI WRO+p/hsLV3D87vkrbZ3H1LBpKcgxuyOJui+9kqqqFCGvatbzE8NaEC32cBP hhELLg1JxEnx8tUk/Wli+Fc1SMnQMd1xVhPypnLG2pYpQsPC9jviwTog8flg fVOaIjibMwXqX/Hy+aWf4UwNBfDdIL9S05sN5N9cU4HnkqCqnK15z4YOfOfL 1DdsUAOJ99YBHyu1wOnrx4XaJxigI1+sd79aEwzNvkRuJpUgiCY+t4jHEwf0 3cTi9tEgoyEj+aUOC0r427e5nFMDv698jtEnNeFce6N1LW/uqv4I/NEiWFAa TXfzPKoAc1ZdjSWBmtC6vElSLEIFqvz1dPWrmZDifeWYM6//ow3Uz6qKUcFw qu9yYY4yqPVDkNkyNqSuC99Q3CYLTQu1QnSLqRCWcm0+oVYU/EQeu+TtUgXF fpPMqFsCYPgnxGfdd14uXuJvoH2fl9vX15CUo5ogwC+bmx9Lh0N7Wc8/HFYD 2S+m77IEFODSFmmZqSw2r4/J1UEKmjB8oQdPbOLxmLTXNw1bWThEOViDyVyw W7IlVO2xKnwWso8f+64Cp68IBjlkKIHuZY/T2RI8PpLnBBb8FQC/eGuVGHcq DEcVDuv7qYLOi3XzbUY8br+7OG0kgjcv1g2HX9I4sLgzUyx/Gw38b68Rjw7V grVSj/a09yuCxKOBULEKTejrPzqzXJcGJ54uVbWnM4E0lPqa4CADWl3x/n// MMGWuSdap5MNEUZTWj67OaBWJZQ1DmpAWmgLBe5RhahjrtqeNjTw1ApVVbBW gWxm8d7uzcrQIeYVU/eSClFR3RJi5nLgJDKcfHGUC+12Y85H8lWgaKOXaJ6G FlCeFB1uWsqASZUmhQE+Xk6SeZ+7ZocSBIv8Sf62kwFOMYW12nek4NHzPccb eDxT0rjHz/SXPOS80JH5XM4Ah71v+nfH00AkxLO0jseV4gFzy9Y+EwKtB4eP mudxYcfdf51uVXTY9+pDkO6QBpQl9G/bKk2DEJ1f+4MzOTCaoOox+0scJHSF BKR/sWDbFq0yncca4HYzKZ5CUQNaVtJd7XaeXyUV9jPPqUO9tr3lIkOe77ad q/Bp1wCmqe57o0Q1+HJ+2/5oM22otxT7aamlAptHw8e3tLLhl0fUnw/b1EA4 vObuwjYmLEiwoLdWUWG5v1iIhCDPD4wfHj6spAz6cgPf50p4+k276njUZ4j4 JZm2m7KEASfWGmfWVksA96SRxkYjLrzVMU6UjxaC8P+q91gHc8F3zcX108kc KPmgu/NRCg1ET2cPrcpThSs7ix323uXpt/SaSmIJr3+U71zw3ceCRfnRtk48 /3myXtrU+60qpC+xP8u6rAnsExtLNJZzIWlacvc/Nx5vJK/tuf2SBS0Xnpic X64C85f7WQ/TVKHNw9b66TYWnA7+OLAmlgOZW9fvyeHpY6ae7w7nAA04Vpat 0hyjCjNK9u+efqND7hW1ln2PZbG1tX/E2I8FRb1n7h75LYrGL+Oz1LhMGMgb UUtsnSJdhoLtzpnzcoqZT+oDtQlyvuW7dc4UFyYtVix4tkAOb7W3H7wpzwbn Zz9f/P//oZuJi7zNvnHAoSJwjUX3KAlceXjkzFuvTPwHM4sfCNpXm5kCTYiu z81b791BVO1sPK6ylwkOaqfaKS4CqM08ua2cl+c5R/Puj66aInN/plf5tStC rZrpL4V0fjSxbplv360K1KzsMI03neQjvzCRvC42LIjI2jXYNk0mHCNi5T+z 4Oxaxe2GC2sIra6ZI5CmAU9XXAqhrhgjGk6r+8nsZoLsHsMfQvuk8cAs0Z/6 Sw+y7FzkFXKE8c8qM3rDEQ1426CYFJk8Rta9jq4blGKB5Mp3CrCRH4MMP3I1 NNgwqlKxLW6vAHLo9nvivDhgGPo3Oe9nMRnTQHGu26EB+7Sf9d3Y1Uh+3voy zrZdBTx6bn/axBDC3asCCqfZDMgaflVcozJDuia0a430seD1wkSKnVMXCaYX 1NrcWQAd2sHLWz8RrelXj1uSajDdYXlivL2PnAv0tkloZcK4VmRaC3OKQMu6 lQr8VMh7Ptq/O6Ga/Lo/IRlfKENQz2Ov868yyHLbiD1yMWxeDhJcqH10nMwY al35yZMCzR8cGs6/E8SJbpeNP06wIVOF5uVxfoacvkCVCuzXgNz/SmVQaZhI axDf+DSIBSZ+L3ZEFQug8syVYZ8wLjRovZZRzRLCiHNJaaaqGlC3md5YfKOa XHAmkrslkgvrniXZHggaJjr/23rB7D0F6vJL2o9KquBa/wc3/Xyp4JOgvSx3 53ciz0/IW+oxDXJFCr85fO4j3MvM62vd2XC8rVUyKJUPS2nrk2JVtUDn8vb6 hmJxzPPckPa/iss0nur8i+PuXGtZLrLexV1QKVtjKeR3SlKGUJZkaZkaoomk ktBk6VJJSqVIRtZLQlSWfH/WkDC2MEa2UFT25Qr/3//heXAenNfrnPN5vy1e b4DG5rQiu6phzM6d80TQTRnyTgjS98dPoH0uL91Kd7DAsEi0ud5QAh+/Q88W PkeHFasoTpy3AFzqM6ZFVCrAt9veMmru/eiIz1Uqt5kFWZTbt079S8IDrKgy Ku0KcFc47I6m4SiWOzPu8pPwJdMDj1uk+wawkznap989pUKCkF5L96FxRIke uCYZS/B7pY+n7yUB/B/BZCf3bFWwtdwh2thUgU3OHAhPWiL+re+BhdHYeSz9 Y+02aSYbLnPyC6MfLKAaHtQcEaJB8hXfeu+KZmxrCmUkH7GB2mJVLGM8hfoV TQqwKTpIZmZtF3s1i+ivq/q1mTQwuMjdbNNMgdL/pKVcBjjQ6iAJYYUkPKM9 gy7pywLRbeycNCDhg9tpiTl6DJD0Cj5Em5nH5OOS/b0N1IBCVUgVuLaESU6M jZlnETwo5nI3d14Gv+fFjdVmq0LtyQebr2/9jBp5jpuKbFjAvhaEP51aQl8k zY3TZDkgKf63+/J6Ch6UfpcnxN4E8rFvu06eEsJ5D2PJgX8T3uBZoBnSt4Ad PB186/0HKaBM2zjKDa4HSWe32uW7TDiZLZgXWVKPjilLL/zgKkB7TZbPVnFB fIZpZOexn+BRkQ/prOhpNPyrrfoTBxlghNUwH3+ZxzxqVPg6K0qwwfPPf4TL B5CpUp9ThTwVAi7oC3eRRzBvSobpZzkOiLrlcwu4YvjEs8q5eIKzI4KyHrXP zSHW7RSTw+Es+KnjKxr7vg6d6VD4Pl/GhvJR6hnDUQHcQuL6J4mXbJgPsJ+Q 6pTGi40Ppt4JZEK7SXKshMMkVqpYx951hQbtx8YFQ6ALC5dq+inTpgKBp88O BZesw3OH02esp5mgmfCWlzOxHmdkJ+57wWOD/N6y2VfMeYyvqfifWwMT9mj9 5OxhtGJxRsGFYR+lwLBkJAbOK+DMTY113pV0ONf6g2uiNYki7RmXZdJpsG9P YW7UyynkLLZr/DKLA3Hnl1Qv7ROF2hmqT20IA2w30J7bDfZh73NNdf0KlUBv WnfKVm4ZVcbrxEbm0cDD/XnXmUoSXoFOcLc4sqAzyGFuT8Qqim89sDHZipif Sh444sXHvp3fFRobz4KZXd2dZhUikBxYvuYTx4TANGPp/V9nMT9np+QJYEHT 1XctoR5k3P569aBPKhuMumtCcydX0MSVh2OlSWxQfGL70sxCHL8/Z33qibE6 hDxX2P1BTxiYTZ7vbzyjQ4ufVD9Vj4Q/XSs9zUVqkLxxS+2fbx6gvQEljce+ UOFGxoWEumISnt5v6PgpbSMsu1fS5DzHkM9fXsviMWpw80lHgi4+hTT41TCy jgNJkd4jH3XnsR0u1hcKwtjwLno5O9F8DDlyOoNohE/UYRXDEcBH9YP/xrj3 Evk89EY5O4yMN1Qkmm77KQ8NHqmjMWlk/IZun/58ABs6D2oGStYK44YCVQwe wfvpia7ihY9msaMkL02vLSwwfxMU3ebAR7Tes5X23fJQPWt3+eaeDoRbHO0t LKOAg1yLMom4386DG6QifZRh7OruxZd9q+hxxMXX1rdYECdfuTbe3YEcttv4 ZeZtgpzdcpd/rq6gecU7X0nEfeX6G0WeqxpAlz6antGy4MAZP6ehss5lpFoT mWvZLQXtN341au+cRalqh761PRICrGJ0afPrBXS3YxId4rOgK1RCbfWGJJ64 cjf2VgYdUhhRPJLqNCpf32xid10VGre/8DLfLAAithfXR+jQYFzXKoOfR4Gr CX1a7eHKhH8mGOB0Mg45iaN8QRrcLHq0m0H0t/MdzQyuK4K85+ECyBlHrkkn JmyWmMDjRXwcub6EFNV6qROHOaBqL+RcfW8dLh6++Fi7UwF8J8/XeTpXYrXf Uu7ZPqBDW3tD/QUkgXsYWqzvdFYBHdcsRmCADC7+xec+hSUHlKp8f+f1i1ji fjN9fjgHjjroDx/JEMajacxX7SwWKKq7VzW+EcU3tRVucw1lgq+HBkNMeh47 URFUlHOfqOlFiaecZpA/V38irY0J0W87xoRo39Gua6/S/iD4cJBxmaVr0Iqk 3R3uv12kw9YTISvKqbOYz/s8bmOLIoQKPDwZTF9Cz3inOOUtFNgmIbugqS2E H88NURopUQZLZ2EdbmkHUmnAbKON2WB7xIu12PQSi/X/JF9qrgAnmpffXgld xfIPdZVmTtPB18koJfJoNfbbReV39jYqUBktEUM5tYpGLjdcXTgmDCOZOx9E pYrCEXvZ/nMNVDgSzONWCKwiHeaiUL8DDVaFnFbWnRfAs5udsmbjCd7xvB7k cYWMO+s1WR7/g/Dz/Np5dYMFpFc3lGavpgb72J4m3O5FLCn8a/hxwrt98Wst eOZ3NPS4UjSkjA6GVvViv/tNoauzA1QscQMUeD15GOMiis+4YYI9PUxIPWb1 j2vwIran+Ku7WboqrBX4FfYbkyFOWl6u2XQTvNWY+0LmTSKxlFB/7Rka8DS0 9jLmRfDSVzdQUyIbrplJO7skieNb2UXpPedVYFGKbB7O60VpP/gheBzh7W8u lFW9lsG3PLbsUdVRBKPWL+n6nwawDONWcdUXDFC/eGllVGQF++7+4r72tApk evzQ/PqUDBVb7AxlqcS+RN3qdZQsxfxlixYYMQzQGOPZzcI3zFppKMkgRQUC lAqaarU+oYGuS9kfCH4LFYjg/GgdxjYcNZSyaaVAnwN5lXVlDctX6u0puqgC /e9EKy3PvEd8Tbk3n8vl4UPswK6dUb/gLv/pf5El/qnJXEoz59QPLE4se+S5 rDJ07i+32ZUxj2k+T/ldqZjI71/qR3PkspDPgadrBr+qQFJ5sYiaNAn4roHB Wx+qg0OVTo9W1xQ696eUiEQzsX87p9xezEpCnX9Vgb7uRmhJNXvvbbKGLGw1 zoUZMMHr4e0WVTSFFKO0LT+ksiBP3Vc0NJiE41v5SXMjhM/zarR8zIXww0PV 4zGBdNAn0WXPzgjjv3+j+pk+48Deqb9KjHZ8RrNBX2k6Tf/P24OcUHtJ/PPN tqCpncpwe+Lesz6Cf3H6YMkKnwG6AefjX4TI40OdzIi0TBbo9dCT4vXXEFc/ 356kxIBtnTJVv3HJMKPh5jrFp4P1vzO2Xd2TyKz7TkMZkddgbSEiXkPCV8jT Xb0DatBJj/kwbPEL3hdxdvDebQ54FbcWVhsOoYSyvdXRl5Tgf0RTMNQ= "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, {{}, { {GrayLevel[0.5], PointSize[0.04], AbsoluteThickness[1.6], Opacity[0.8], PointBox[{{-10., -8.}, {0., -8.}, {0., 0.}, {0., 8.}, {8., 2.}, {8., 10.}}]}, { {GrayLevel[0.5], PointSize[0.04], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}, { {GrayLevel[0.5], PointSize[0.04], AbsoluteThickness[1.6], Opacity[ 0.8]}, {}}}, {{}, {}}}}, AspectRatio->Automatic, Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->Automatic, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-13.951140579770048`, 15.08115269616335}, {-13.992458632563006`, 14.44460237771018}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6492089719819374`*^9, 3.6492090157088137`*^9, 3.649209125642207*^9, 3.6492091659214783`*^9, {3.649209253702832*^9, 3.649209267602456*^9}, 3.649210073324672*^9, 3.6492103831880164`*^9, 3.6492104784105835`*^9, 3.6492106130856204`*^9, 3.649211041197172*^9, 3.649211331498082*^9, 3.6492113751625595`*^9, 3.6492114078290167`*^9, 3.6492115781033154`*^9, 3.6492117016511326`*^9, 3.6492117354095917`*^9, {3.6492117732084584`*^9, 3.649211800196506*^9}, 3.649212476020893*^9, 3.64921250864055*^9, 3.64921774647851*^9, {3.6492179144752045`*^9, 3.649217938031246*^9}, 3.6492179703077025`*^9, 3.6492180737046843`*^9, 3.6492181454804106`*^9, 3.732369286521491*^9, 3.732370172021549*^9, 3.73354065692887*^9, 3.7675371170999527`*^9, 3.767583683267287*^9, 3.7675839702316494`*^9, 3.7710369775596037`*^9, 3.7710376476005516`*^9, 3.7710377401725893`*^9, 3.771037902821969*^9, 3.7710401580945196`*^9, 3.802610601108642*^9, 3.802612091414388*^9, 3.8026531219750395`*^9, 3.8026887795233493`*^9, 3.8073278736058073`*^9, 3.80732852295438*^9, 3.8073290775054197`*^9, 3.8073291354016824`*^9, 3.807330180302256*^9, 3.8073340669600215`*^9, { 3.8073341017851944`*^9, 3.807334122390812*^9}, {3.807334192334967*^9, 3.80733420857581*^9}, 3.8073581983551726`*^9, 3.8073582606617084`*^9, 3.8073583917249317`*^9, 3.8073584982775726`*^9, 3.807358568521472*^9, 3.8073588518468533`*^9, 3.8073590811786823`*^9, 3.80735913565681*^9, 3.8074087098159313`*^9, 3.8074088709624195`*^9, {3.8074089154096727`*^9, 3.8074089374645157`*^9}, 3.8074089733627453`*^9, 3.8074117666785383`*^9, 3.8074204135603495`*^9, 3.8078585205840416`*^9, 3.8078585546991763`*^9, 3.8078586550069847`*^9, {3.807858686893956*^9, 3.8078587109514637`*^9}, 3.807858803410642*^9, {3.807858989061447*^9, 3.8078589967235155`*^9}, 3.807859586259409*^9, 3.807859623223872*^9, {3.8078778715902367`*^9, 3.807877890226893*^9}, 3.8080228274001923`*^9, {3.808279236286865*^9, 3.8082792803273973`*^9}}, CellLabel-> "Out[462]=",ExpressionUUID->"bd0f0020-afde-402a-b147-583b19ead21f"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Call Fuzzy c - means", "Section", CellChangeTimes->{{3.8078545185144033`*^9, 3.8078545396273193`*^9}, { 3.808017097936695*^9, 3.80801709926919*^9}},ExpressionUUID->"e2ce8467-a8b8-4cc1-be7d-\ 6994d9027979"], Cell[BoxData[{ RowBox[{ RowBox[{"Time", "=", RowBox[{"Timing", "[", RowBox[{"cm", "=", RowBox[{"cmeans", "[", RowBox[{"A", ",", "z0", ",", "0"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"cm", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "\"\<; eps=\>\"", ",", RowBox[{"cm", "[", RowBox[{"[", "4", "]"}], "]"}], ",", "\"\<; CPU = \>\"", ",", RowBox[{"Time", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\"\<\\ncenters=\>\"", ",", RowBox[{"Round", "[", RowBox[{ RowBox[{"cm", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"-", ".01"}]}], "]"}]}], " ", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slcenN", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"cm", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[SixPointedStar]\>\"", ",", "20"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"PointSize", "[", ".04", "]"}], ",", RowBox[{"Opacity", "[", ".7", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rad", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"mu", "[", RowBox[{"A", ",", RowBox[{"cm", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "i", ",", "j"}], "]"}], "^", "q"}], " ", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"cm", "[", RowBox[{"[", RowBox[{"1", ",", "j"}], "]"}], "]"}], "-", RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "A", "]"}]}], "}"}]}], "]"}], "/", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"mu", "[", RowBox[{"A", ",", RowBox[{"cm", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "i", ",", "j"}], "]"}], "^", "q"}], ",", RowBox[{"{", RowBox[{"i", ",", "m"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"rad", "=", RowBox[{"Sqrt", "[", "rad", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sle1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"cm", "[", RowBox[{"[", RowBox[{"1", ",", "j"}], "]"}], "]"}], ",", RowBox[{"rad", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"slA", ",", "slcenN", ",", "sle", ",", "sle1", ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Timing2", "=", RowBox[{"Timing", "[", RowBox[{"rand", "=", RowBox[{"RandFrigue", "[", RowBox[{"U0", ",", RowBox[{"cm", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Hdist", "[", RowBox[{"centers", ",", RowBox[{"cm", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", " ", "\"\<; RandFrigue = \>\"", ",", RowBox[{"rand", "[", RowBox[{"[", "1", "]"}], "]"}], ",", " ", "\"\<; JaccFrigue = \>\"", ",", RowBox[{ RowBox[{"rand", "[", RowBox[{"[", "2", "]"}], "]"}], "\"\<; Huller = \>\""}], ",", RowBox[{"Hullermeier", "[", RowBox[{"U0", ",", RowBox[{"cm", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "\"\<; CPU(indexes)=\>\"", ",", RowBox[{"Timing2", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Attention", ":", " ", RowBox[{ "generally", " ", "the", " ", "matrix", " ", "CC", " ", "is", " ", "of", " ", "the", " ", "tipe", " ", RowBox[{"(", RowBox[{"k", ",", "l"}], ")"}]}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CC", "=", RowBox[{ RowBox[{"Transpose", "[", "U0", "]"}], ".", RowBox[{"cm", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";", " ", RowBox[{"dim", "=", RowBox[{"Dimensions", "[", "CC", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CC2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Append", "[", RowBox[{ RowBox[{"CC", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Total", "[", RowBox[{"CC", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"dim", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"added", " ", "a", " ", "column"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"CC2", "=", RowBox[{"Append", "[", RowBox[{"CC2", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"CC2", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"dim", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "2", "]"}], "]"}], "+", "1"}]}], "}"}]}], "]"}]}], "]"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"added", " ", "a", " ", "row"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"CCN", "=", "CC2"}], ";"}], "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CCN", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", RowBox[{"100", RowBox[{ RowBox[{"CC2", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "/", RowBox[{"CC2", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "2", "]"}], "]"}], "+", "1"}]}], "]"}], "]"}]}]}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "2", "]"}], "]"}], "+", "1"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"dim", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"CCN", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", "j"}], "]"}], "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"CCN", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"dim", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Round", "[", RowBox[{"CC2", ",", RowBox[{"-", ".1"}]}], "]"}], "]"}], ",", "\"\<; C(%)=\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Round", "[", RowBox[{"CCN", ",", RowBox[{"-", ".1"}]}], "]"}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.807852088933731*^9, 3.80785211550082*^9}, 3.8078521480684943`*^9, 3.8078526311123238`*^9, {3.8078527104426956`*^9, 3.8078527471691246`*^9}, {3.8078527914878035`*^9, 3.807852829136306*^9}, { 3.807852880861682*^9, 3.807852908851192*^9}, {3.8078534190881395`*^9, 3.8078534837035246`*^9}, {3.807853663211647*^9, 3.807853712298602*^9}, { 3.807853796842805*^9, 3.807853818864472*^9}, {3.807853851284239*^9, 3.807853859317224*^9}, {3.8078540601290646`*^9, 3.807854063186411*^9}, { 3.807854571588772*^9, 3.8078545721287766`*^9}, 3.8078547300634985`*^9, 3.807855787006508*^9, {3.807856024968981*^9, 3.8078560796208425`*^9}, { 3.807858048728136*^9, 3.8078582274166236`*^9}, {3.807858302111186*^9, 3.807858411558423*^9}, {3.8078587496225786`*^9, 3.8078587518527966`*^9}, { 3.807858859760171*^9, 3.807858927851898*^9}, {3.807858973878671*^9, 3.8078589743123837`*^9}, {3.8078591581746063`*^9, 3.8078591634198666`*^9}, 3.807859206208969*^9, {3.807860120962207*^9, 3.8078601345413036`*^9}, 3.807876393782133*^9, 3.8078766947026596`*^9, {3.8078768044384074`*^9, 3.8078768074524107`*^9}, {3.8079389439879303`*^9, 3.8079389704511223`*^9}, 3.8080214123796935`*^9, 3.808028774465094*^9, {3.8080289144364786`*^9, 3.808028938030249*^9}, {3.8082254017181797`*^9, 3.808225422394404*^9}, { 3.808227080706936*^9, 3.8082270977062855`*^9}, {3.808227132527857*^9, 3.80822713384109*^9}, {3.808227185215695*^9, 3.808227185802622*^9}, { 3.8082272265807567`*^9, 3.8082272345019197`*^9}, 3.808227526194766*^9, 3.808274269632354*^9, {3.8082743001921196`*^9, 3.808274346672409*^9}, { 3.8082743898591843`*^9, 3.8082743904929905`*^9}, {3.8082744281251917`*^9, 3.808274578498622*^9}, {3.8082762246716995`*^9, 3.8082762254141645`*^9}, { 3.808276301998147*^9, 3.80827631478913*^9}, 3.8273004537821712`*^9, 3.8273010940356703`*^9, 3.830160741037865*^9, {3.8301607797404857`*^9, 3.830160787807256*^9}}, CellLabel-> "In[115]:=",ExpressionUUID->"950550d1-d92f-4ae5-9a0b-fa910b91c0a1"], Cell[CellGroupData[{ Cell["Za text", "Subsubsection", CellChangeTimes->{{3.808998111436575*^9, 3.8089981183161716`*^9}},ExpressionUUID->"4e37fc26-b035-47c2-80a5-\ fb7fda415fef"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Round", "[", RowBox[{"CC2", ",", RowBox[{"-", ".1"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Round", "[", RowBox[{"CCN", ",", RowBox[{"-", ".1"}]}], "]"}]}], "Input", CellChangeTimes->{{3.8089975197507124`*^9, 3.8089975309061255`*^9}}, CellLabel->"In[90]:=",ExpressionUUID->"e134b53d-249a-48f3-99d3-9d2a29ec6129"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "65.`", ",", "16.900000000000002`", ",", "4.6000000000000005`", ",", "7.5`", ",", "2.8000000000000003`", ",", "96.80000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{ "16.5`", ",", "64.3`", ",", "11.200000000000001`", ",", "8.6`", ",", "5.1000000000000005`", ",", "105.60000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{ "4.800000000000001`", ",", "11.4`", ",", "56.6`", ",", "9.3`", ",", "18.6`", ",", "100.7`"}], "}"}], ",", RowBox[{"{", RowBox[{ "7.1000000000000005`", ",", "9.5`", ",", "9.700000000000001`", ",", "62.300000000000004`", ",", "7.1000000000000005`", ",", "95.60000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{ "2.9000000000000004`", ",", "5.4`", ",", "23.200000000000003`", ",", "6.800000000000001`", ",", "62.900000000000006`", ",", "101.2`"}], "}"}], ",", RowBox[{"{", RowBox[{ "96.2`", ",", "107.4`", ",", "105.30000000000001`", ",", "94.5`", ",", "96.5`", ",", "500.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.8089975335462112`*^9}, CellLabel->"Out[90]=",ExpressionUUID->"60de353f-befc-454a-b1bc-a5fcf2126057"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "67.10000000000001`", ",", "17.5`", ",", "4.800000000000001`", ",", "7.7`", ",", "2.9000000000000004`", ",", "100.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "15.600000000000001`", ",", "60.800000000000004`", ",", "10.600000000000001`", ",", "8.1`", ",", "4.9`", ",", "100.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "4.800000000000001`", ",", "11.3`", ",", "56.2`", ",", "9.200000000000001`", ",", "18.400000000000002`", ",", "100.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "7.4`", ",", "9.9`", ",", "10.200000000000001`", ",", "65.10000000000001`", ",", "7.4`", ",", "100.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "2.9000000000000004`", ",", "5.300000000000001`", ",", "22.900000000000002`", ",", "6.7`", ",", "62.1`", ",", "100.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "97.7`", ",", "104.9`", ",", "104.7`", ",", "97.`", ",", "95.80000000000001`", ",", "500.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.808997533568117*^9}, CellLabel->"Out[91]=",ExpressionUUID->"2e4a5aaf-2f54-46b7-bec5-d51904127701"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Call Fuzzy Incremental", "Section", CellChangeTimes->{{3.8078545185144033`*^9, 3.8078545396273193`*^9}, { 3.808017097936695*^9, 3.8080171299375763`*^9}},ExpressionUUID->"d62689de-9f62-4243-8879-\ 2e434c5d492a"], Cell[BoxData[ RowBox[{ RowBox[{"finc", "=", RowBox[{"FInc", "[", RowBox[{"A", ",", RowBox[{"{", RowBox[{"Mean", "[", "A", "]"}], "}"}], ",", "5", ",", "1"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.80802184874607*^9, {3.8080291909275684`*^9, 3.8080291994326334`*^9}, 3.808029234943619*^9, {3.8080493144218845`*^9, 3.808049318652955*^9}, 3.8089635306409655`*^9, {3.8089982663186426`*^9, 3.808998281429614*^9}}, CellLabel-> "In[130]:=",ExpressionUUID->"3b1ee7d9-ee9b-4228-89e7-826d74751c0e"], Cell[CellGroupData[{ Cell["Figures", "Subsubsection", CellChangeTimes->{{3.830161959495944*^9, 3.83016196667322*^9}},ExpressionUUID->"7e306de9-eb91-4dc6-b273-\ 067d5e31609f"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"slFXB", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "+", "1"}], ",", RowBox[{"finc", "[", RowBox[{"[", RowBox[{"5", ",", "j"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", RowBox[{".75", RowBox[{"Min", "[", "IndFXB", "]"}]}]}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slFCH", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "+", "1"}], ",", RowBox[{"finc", "[", RowBox[{"[", RowBox[{"6", ",", "j"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", RowBox[{".75", RowBox[{"Min", "[", "IndFCH", "]"}]}]}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"{", RowBox[{"600", ",", "700", ",", "800"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]}], "\t"}], "\[IndentingNewLine]", RowBox[{"slFDB", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "+", "1"}], ",", RowBox[{"finc", "[", RowBox[{"[", RowBox[{"7", ",", "j"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", RowBox[{".75", RowBox[{"Min", "[", "IndFDB", "]"}]}]}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"slFDB", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "+", "1"}], ",", RowBox[{"finc", "[", RowBox[{"[", RowBox[{"4", ",", "j"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", RowBox[{".75", RowBox[{"Min", "[", "IndH", "]"}]}]}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.8080574187854247`*^9, 3.8080575260574474`*^9}, { 3.8080587450424185`*^9, 3.80805876935058*^9}, {3.808058960553664*^9, 3.8080590577377214`*^9}, {3.8089999258210087`*^9, 3.80899993435561*^9}, { 3.8248809348817806`*^9, 3.8248810049993505`*^9}}, CellLabel->"In[62]:=",ExpressionUUID->"be5868c0-858b-459a-a18c-6a4430b9ed9f"], Cell[BoxData[ GraphicsBox[{{}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{2., 0.14396876671777886`}, {3., 0.113599325107807}, {4., 0.13087850789589708`}, {5., 0.1822070862011005}, {6., 0.26575994131272973`}}]}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1., 0.08519949383085525}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1., 6.}, {0.08519949383085525, 0.26575994131272973`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8080575143213596`*^9, 3.808057527245675*^9}, 3.8080587703093796`*^9, 3.808059017171731*^9, 3.8080590617021685`*^9, 3.808984006286585*^9, 3.8089844745598497`*^9, 3.8089855978548946`*^9, 3.8090001091564546`*^9, 3.8090008223668733`*^9, 3.8094128915079455`*^9, 3.8094133749666166`*^9, 3.809413725154193*^9, 3.820845194457262*^9, 3.8281798727255487`*^9}, CellLabel->"Out[62]=",ExpressionUUID->"811965c1-6cb2-45a7-9259-493ea87d2bd1"], Cell[BoxData[ GraphicsBox[{{}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{2., 671.4160923785469}, {3., 764.0277304695854}, {4., 799.7545751827823}, {5., 820.1701823873692}, {6., 735.9220169602903}}]}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1., 503.56206928391015`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, {600, 700, 800}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1., 6.}, {503.56206928391015`, 820.1701823873692}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8080575143213596`*^9, 3.808057527245675*^9}, 3.8080587703093796`*^9, 3.808059017171731*^9, 3.8080590617021685`*^9, 3.808984006286585*^9, 3.8089844745598497`*^9, 3.8089855978548946`*^9, 3.8090001091564546`*^9, 3.8090008223668733`*^9, 3.8094128915079455`*^9, 3.8094133749666166`*^9, 3.809413725154193*^9, 3.820845194457262*^9, 3.8281798727724485`*^9}, CellLabel->"Out[63]=",ExpressionUUID->"539c8eff-aab8-4a8f-ba1b-5f887f376560"], Cell[BoxData[ GraphicsBox[{{}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{2., 0.3721496633500366}, {3., 0.32889376686544447`}, {4., 0.3125140092642886}, {5., 0.4207899312392176}, {6., 0.6592930048742434}}]}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1., 0.23438550694821642`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1., 6.}, {0.23438550694821642`, 0.6592930048742434}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8080575143213596`*^9, 3.808057527245675*^9}, 3.8080587703093796`*^9, 3.808059017171731*^9, 3.8080590617021685`*^9, 3.808984006286585*^9, 3.8089844745598497`*^9, 3.8089855978548946`*^9, 3.8090001091564546`*^9, 3.8090008223668733`*^9, 3.8094128915079455`*^9, 3.8094133749666166`*^9, 3.809413725154193*^9, 3.820845194457262*^9, 3.828179872825853*^9}, CellLabel->"Out[64]=",ExpressionUUID->"0e73fd60-5ba1-4f64-9ca3-ba691bbf309d"], Cell[BoxData[ GraphicsBox[{{}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{2., 3.860640159455131}, {3., 1.7988133310612429`}, {4., 1.739744895057072}, {5., 0.30405246754193815`}, {6., 0.9438121409823214}}]}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1., 0.22803935065645362`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1., 6.}, {0, 3.860640159455131}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8080575143213596`*^9, 3.808057527245675*^9}, 3.8080587703093796`*^9, 3.808059017171731*^9, 3.8080590617021685`*^9, 3.808984006286585*^9, 3.8089844745598497`*^9, 3.8089855978548946`*^9, 3.8090001091564546`*^9, 3.8090008223668733`*^9, 3.8094128915079455`*^9, 3.8094133749666166`*^9, 3.809413725154193*^9, 3.820845194457262*^9, 3.828179872888382*^9}, CellLabel->"Out[65]=",ExpressionUUID->"83acde17-fa97-4045-b33d-df3270d32e88"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Dissipation of cluster elements", "Section"]], \ "Subsubsection", CellChangeTimes->{3.723293735803277*^9, 3.7260215558919*^9},ExpressionUUID->"9211ec5d-56c4-4b51-8017-adb3c1010a7c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sl", "[", "j", "]"}], "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{"cm", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"PointSize", "[", ".015", "]"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"sl", "[", "j", "]"}], "]"}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.807859557966242*^9, 3.8078595686158533`*^9}, { 3.807859645641374*^9, 3.807859655834649*^9}, {3.807859696289011*^9, 3.8078597002463903`*^9}, {3.807859817230383*^9, 3.80785984668509*^9}, 3.8089982912725725`*^9, {3.808998335502782*^9, 3.8089983356482735`*^9}, { 3.8089985435023117`*^9, 3.8089985439129076`*^9}, {3.808998698089123*^9, 3.808998701278617*^9}, {3.8089988610533123`*^9, 3.8089988738877096`*^9}}, CellLabel-> "In[166]:=",ExpressionUUID->"9e59ce89-fad9-4090-bbbe-8c852d5c12c9"], Cell[CellGroupData[{ Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.015], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw9WHk81Ov3nzbao1Qot2kvlUTay1vWEonspbGNnTGDMcwwqSSpBtGGhhat N1cSJY2bolSUNt3KENUlXYWbNn37ve75/Pqn1/F8znmf91mfZyZ7hdn79mex WN39WKz/+/+/f53GKk07eeM4Lcb0B7w1GJp/6PI/JA9GH//NE92SdpLV8CF8 meBNUhXJGhDFjv+Rt5s518TwgbLDScI3JE/EZOP8YRu3NpPMRqjww7gzvNck T8HB/R/Xftdhvp+GCW3hHh3Vf5M8A497MkLX/c7Yn4W7DxrbbVyY73VhduRN 40+XDyTPxfZJC6vl0Y0k6+GKf8UFwzcMH30IvINYJaYM/gJYB6zJ+fSOkQ0w 4E8uXII6SDaEvu2Z2eV6jP5CfN8W+02MNpKN4Hf/6opJ09+TvAiTtcN+sWL4 Loaq750KUTrj/xJc4V50mll8n+Sl0HiR5p1uxuAtw1azRK7hGOb75dD6U1L5 s4Y5X4GrQy/VxS99SPJKOKSoqRubM/6tgsrtXF2nb4y+MaL6PVuU3PWMZKAl T71k6RE6lwL9y1bKfvv3LZ2bIG7eiz39PRro3AQhK2StUWuZ89Ww6lz9OOHu OzpfjTnDT4667cycm2K0UWiitZjyJzXFLEmW9asgJp9msMqJMD/ZRPmSmiFY uvWz8CgTT3M4X858ULKT+ErNkVE/tLjFhomvBbhz42Mdzyjp3AI5kspXj5yZ /FnCwnOB4ksbxUNqiRzVi3W3/r9+rWB7YLPP4kLCk1phYI7JZX8Lxv4aYEPh Fs8qkqVrEPrV75nrbcb/tTDdtLtlSi7lV7oWDi1iD5/NjH1r7HU8bDdNh/yR WuN0TeZ3/nXmfB30HNb4VXOZ+K2DP/tLUrHrIzq3wWUdUX3qHsY/G6QJ0g51 72Xq2xaWOuWeiU8Y/2zhc9xX7VQ7Ux/rUVjKMbvfWU/n66Ho5rKKfQiPZYd9 Nnwtsyskww52Y+60eh2k/EntcPe8uCx4KdlT2CHU9KZ0ozdTXxvgZ56st/Aj 9R82IHHwreHeQTQ/pBuQpzUgtbvxJelvwPfu+59fm/1F+vbgaCkzOQsonrDH D2P33OwDDL49hp3XOaz9jMG3h+j3sz4TxUx9OGBMqklhUeMN0neAYzZ77Imd r0jfAT39ssslV8lfhQM+m3ycdf8OE7+NuKFzr/HaLob/RoQ2TZ5+24apx404 X7XkxgsZ+afYiKlv3/roeDP15YhnDsrJ9cson3DE6aZJhgvrKB5SR9yIXGH+ oJH8VTjia4b2xA5VBt8JrX7tQzKZfoUTOBev9z3VYerdCZEYWPTEk+KpcIJf /oCYe6OY+nPGTWO725VPyD6ccW7L4MvXzJj4OUPXYOQt2WzCUzjjyKfkYzfc GXwXfPl7buTuApLhgvDfp24qUKkmfRckli1yX95N9aVwgVlD/D0Xayb+rjhg knTjdMR10neFV0De2lvZCtJ3RU4dt8RySS3pu0IilsUk8ihfLDdERnkn1B95 TvpuuLCxTt53nM6lbtD4rJ7oMf4m6bvhGO9ly/STZ0jfHdz2vAyTDNo/cMfa vxO6oj/LSN8dP75k7WHfukL67mB1TBp5b3gx6W9CikZGk3BRIelvwp2X7Knz v1wl/U0wXexzZkPVbdLfBFmqkZdZQAnpb8bwT6nfdHIvkP5mXFOZoFf9qI70 N+P9y/FXen0zSH8zIvtE7k8nMPXvgRrZ7unfTOWk7wGPSaov9zSfJX0P2P50 skxQkD8KD2h+1f+zeOAfpL8FySv4jl5GmaS/BayVxTVOqwhPugVlNt/qHwUQ P8UWtLr3uicO3Er6HAytOfJqhyH5z+bg/Bpxvduze2SPgxbZjgbVtqj/ZA4H 74TPPWy0L5N9DlLTHE4rRsX8J8s5CK6uG3wx5RThcVATU3vfdtyx/2QlB70z Rwa9/8r474n5h9edQKsu4XuinTtN7c7dS4Tvia04qhzaUkr4ngif46yuV8DU hyf2buvISTuwm/A9wW2Iy602o/wqPFFTeD7h3nWqF6Unsi49iT32KpXwvTDy 8WrLs2lPCd8Llot2KCe2U/7ghWn9o/S6myjfHC+cEexqn/iF2Wde0Op0fFvm QP0m90K+zoyIvlFZhP/rfP9vlZPvkz9KLySN+zRIZymTf28I54jq7zRRftje UOzLjTJYWUD43jCbsdut0KCI8L1Rd+r81KctRwjfG71Xctdf0KFzuTc2unht aONQfBTe0B4VsNdytAPhe+OkXePf89MfEL4Pqge3tFzZQvFh+0BScnallgVT zz6YEm5lNMqN5jfHB3Euj1X2+jL16YPO9ccmSh4dJXwfOMlqdU+rlRG+D1h9 V+sLbYif0ge2Osez7e/TPmL5IsPvH1ONAqpfti+eLfD7ylI5TPi+OOX9cZp7 FfU3xxcn5nYOqnrA4PvCZGbWKKmE7Ml90bxrj2X2gNOE74uXq1+pl03LI3xf zKuwdz74nvxhccE3V2qjhvqbzcWMofld97a3Ej4XOfPY547sFhI+F9nZyuNL //UlfC54ZSofrzYRnpyLqjtr7wfvZeLPxXuOi8ZmNs1TJReZZd/zf9TkE74f ip7q9zjOZvLvh/EJLhnazmQPfrigmZc5TO8c4fuBZ6s5YmTuIcL3Q+maxLz9 Bx4Tvh/eaMZsSLK8Rvh+uKZZqVL0L9WT0g8Sbfagomziy/KH4fGr3m6v6Jzt j8U7ny3bHUT9CX80nPOcUjuT8sPxx6ogrxcRFnQu9Ufb4K4GrX2kL//1/Wjo Jr1m+t8fN9g/1D25DL4/tn01i9unCCf8AJS9mpVk7079xQ5AXdS5BudaOkcA nj9bpd3rYk34Adj58GloQP1Jwg+ATb3vXs/++wk/ALwqbc3xwVLCD4C5bpb4 slkK4QegRWXlyrr9TP8H4v2Qmm7jKRRfdiB277qUe+JeGuEHYlF92+fyPBHh ByJC/8zDUJccwg9EcKJhzoO59L08EGv8cmv8mw8QfiDW7p2jdfbVDsIPROmb s2skJ6geWUG4qZS1KkQ7CT8I3psTYqf10P5CEDZ93X9lWDPZ5wTh7pTgsamH qN+kQTgRoZrZ/Yz2hzwI9uU+t3xGUX0qgjB6y/49DhY0n5VB+GOQ1aZxntGE HwydYxX2wmiqR3Ywniq9ba9/5hN+MJ7s1vMqKSb/OcFI5xcKTiVQ/KTBeL/x m+5AKyb/wVhnt+X1oR7CUwRjQeyIgiMrqB6UwfizXLPefgyzf0LQOa4t7MjU XYQfgrsG0iX39+USfggeVOzu8XMlfU4INJZYjZz9nPItDYGmhsPSfwYfJPwQ mPO1EoSulG9FCMaVpGjnR5E9ZQh+7nQtqt3KxD8U4eOKFub2UvzYoUg62Hrn 5IZYwg9FR/zrStfhNA85oZjd7sU3tCB9aSiUyamexXF0Lg/F+q6NBSU/LQg/ FDZ//VjutnUP4YciWeeOWqk2yawwNLjvSXH5EkT4Yb/u9wO4Z44lE34YpKqi ByEcqg9OGG7omQetFJwg/DBctaqX1qxh8MOgPaSrsmvsdsIPw1itlNo1JvS9 Mgxet3KGW2XT/GDxcEg79G35DupvNR4yzmVd/rCRqUceDM1fXrMvpnrR5+Gr 7OwBaSszn3kw9uzif+BQPdjxsNp1QXeXN+WTw0OsRm2+ZRftZx4Pzk+TG/sx 9SDlYeBAA6c3hbQvZTwYpe8Q+MfRuZyHA1o1i7PtiU8BD6+a+W/C9fcRPx4S n+mM2vwp/T+5jod9X/b+O6PUkvjyYCEaek2hTvXZyUNqXsL3xflM/MNhsbN4 aWYf9b9aONJNrl1ybad6YYej6cVL3d5LVB/64fDetPBn63zii3Dopn5Mz5lO 9WgXjj6pZv4Kb8LjhKOsU330vGaKJy8ca6fa5NteJHvScDjW+aT1V6P4yMLx M7y+MqSC/JGHY2J7WeCp7RSfgnCs//Y479JKsqcIxz3vlXbnkmge1IVDFpv1 es4bqh9lOJ7Nc2efzKd67QyHYeD0gvQHpM/io/7WDpXkDJovanwU69b7CbYl EX8+xD8rNufE0zzT54Pn5sffkUb9Bj664mfZKI7SvrLjY0zlwh3uCCX+fIzs n1UbWZRN/Plo/6p+61Au5VPKx4UfaQ++hEmIPx+mHga3Mj9QfOV8NC6z8jXV ovtsAR8nnNvbtw+j7xV86Fnquf1UoXqo46Mo6mCG6jKyr/xl/0QI23XdceLP h1W5XsnMImb/CzDAyOXNpxc0z9UE0FCd/e1sO/UvW4DR9voGben0vtEX4Oeh 5yZ+8WQfAkzWM9g1fS71j50Au7+l9DZYUz1yBEj7Nt9FuJ/mK08AzUfd53pc XYi/AP5L1ZJXzKX+lAkgteM3GN2geMkFuPdpJdfqFPlbIIDNrqzrd55Q/BUC qOWpcnuaaN/XCVDfUdr+xuIi8Rcg58/OCzf2Uf46BUg49m6C7BDVNysC8zSP Z6+Ko3pVi8D74bXPTfufJ/4RWBS4RH4ohe77+hHgfhgw791ZygcikPlTte2m N9mzi0CW8TdDg/QK4h8B1YfX2zmVVO+8CIRftth/aag78Y9A27hIc7kG3fdl ETCYxA/q30P48gj0aWxI/dBA96mCX/bH1kyb95DeE4oIHOWkRNzqX078I7DV yWH7qfl0P1BGYHGjSaAzn/zrjMC6gEbhgB7yhxWJ7kXy9rwiwlOLxIuFlU5D ZRRfdiTKEh7tvqwkfP1IaIcmzdS2Z/o/Etuqr7kLBLQf7SJR8s9zD41Qss/5 pf+tTWIUSv3Mi4T5BhtFyBFm/kXCIrInY42ihvhHgtX/rXXTa6oHeSQ+6Ziv P90TT/wjoasy0Ml8Ar2HFJGIdxo0sFRE/tRFotf2j98tGpl9F4maJfslg5fS fa0zEjaDjw15EULzmRWFdTH3e18vYuZfFJoVY8zOrKX3BDsKpwfeDOrhUX3o R4Ff5vfH1Qrm95YoiMdZ92ERk/8omBbE3rS2ZuZ/FKZ8fO+fNpr2DS8Kjs4G jpVTaV9Jf32/9tauVE96L8iiYNORPvnZOepXeRRC4u96L6niEf8o5K7+cmzA VSb/UfAMWGLU20v+10Xh+Ygm3gQrpv6jYDQpw2DHXB/iH4VDNX72DhkUX5YQ kr19L48PdiP+Qnhsatyad4fea2whBjf66HaV0vzVF6JhQexyDQ7hQYjXrcHc IfsovnZCdPia750C5r4uhMroVlZZG/0ewhOiuGhDZcdQ5v4qxIyUv0IKgqm/ ZEJ8O3/quP4kmt9yIVYZzzy4bed44i/EuYmzppokUTwVQsSX3D5zxoXyVSfE BaODrT0hNM+VQmTorffgZdP86fzlX9IyyamL24h/NCKOmBkbMvNGLRr6f59Y tWA+4bOjEdsuajlSw+y/aKyIUIn2VLcl/tEQGLR3H/9O+8suGoVmYR4zOwiP E40FrsufbIynfPOikVq1qW3bgkTiH415Vyurb86m/SWLxp5dZWPHVzP32Wjc Do8csXId2SuIBssnaufIIub3kGiklSbmxs+n93pdNL7Wsj865jL9H401AmVj w0dv4h+N6t+L3ryewLw/RHgiNfCpnUfxUxPh6LKCiuSTdP9jizAkwnrVfmeq P30RfCJHzFF/zcx/Ef7IE7WPaaJ5bydC0b0Pm3YuiyP+IrQ6pVS9uiwg/iI8 GvLz/vcvYuIvQtSLrxUpBcRXJsKf90w0IurpfiUXoVBF/GCygEv8RRhTsWbz AGfaNwoRxu5bnWE9gNn/IhS7ujtqx9F9RCnCq9/uSqs/0PedIqwcrtFvVge9 L1gxmO84dMcLHuVPLQanuZlWlRV0X2DHIEAx+e1fhxKIfwy2jfknUJRM+xIx +I3bffyvGc7EPwa1VU2f54bS7xOcGHjNymh+dJ7yzful/9vczaeazIl/DNqb HoVcXU6yLAYmJhMWH42h95Y8BsZZW/pde0nvmYIYaOQv9W6+QvtT8cte79iH X7QiiX8MxmttberrNSH+MQjVstYtt6H3QGcMcPqpV9ZCyh8rFgHChcYa0+lc LRbWlvMvX1nlT/xjMfPmychts+h+oR+LVqPZD0ZUM/M/FpNMkzIbJjH5j8Ul 5b6YbUaexD8WvwsPzv+ngvYJLxYeoiFt3w03Ef9YdIyqChzRRfiyWJSnf6q6 tpzsyWMR3FwjU59C5wWxSF61snSoHfWnIhZ64xeb89QoP3WxcKv643LVR6pX ZSzqP35YwQ4zI/6xaEm9G6ZZQfOBJcadjGqjiX00b9XE6HNOL2weQvudLYbP NbfHLHWqD30xinT9+jU0Mu9DMUq7bJ2GJRC+nRi8osS9e1bR/YwjxuERWqke /9J9kieG4MHFw2Z9zPtRjOByccWBn7Q/ZGI8GXiit3oy1Y9cjJ6Hfqf/qmPq XwyzXnunA1o0rxRi/Fiymb0E1N91YnQteb3EWUJ4SjGmDZ0lW6pL+e4UY8us wy/+PU/7gCWBbdeUnWtdKN5qEpQ/GxO8Vof6gy3B17lTdIZrkr/6EoyvlaSl l5F9SDDu4cXvzlpk306CL82cx/ZJzP1XgtmZXLXEEXT/4kkwJYR/vs6Ueb9K MK9Bp11iN5P4S1BaMbt1XiHVh1yCQYfnfHcuYe6/ElxsHmEbosvc/yXoOjz9 gu8Yep/VSeDUsSzO2YzwlBJ0zLf8Os2E7HdKsNMrc1e+nH7PYsVhCz9ogsY6 yp9aHIzmHI17d4D8Y8ehsLJ6z1QLwtOPg67+7Y6ks/R+Rxzuujx1KHOjeWcX h+gnxUF18RQ/ThzyNa2KNs5h3j9x6N9W8mPZebovSeOw5PQHh2HfqL9kcZi6 a/CIDZE0f+VxsPv4dMc7NuEVxOGE56Ax2/4OJv5xeDlp1UFTN7oP1MVBUiPx WaHO8I9Du/5oRUAjzZPOOKiWp0zRSCK+rHi8yWkoFRoy+y8eOcMO9ec00+9N 7HgcNN7u/ciU/NWPR3LdY+/zWcz7Jx6yXdETw1W5xv8DLB+16A== "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.015], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.015], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 500.}, {0, 0.9974335435645478}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Print", CellChangeTimes->{3.807859660042322*^9, 3.807859702644552*^9, 3.807859798709735*^9, 3.807859848534177*^9, 3.807859970908902*^9, 3.8078600208560257`*^9, 3.8078774177288876`*^9, 3.807878512475897*^9, 3.8089982393799806`*^9, 3.8089983476611423`*^9, 3.8089985488328133`*^9, 3.808998876287748*^9}, CellLabel-> "During evaluation of \ In[166]:=",ExpressionUUID->"b838505c-0428-4d99-bd29-1817d615c13f"], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.015], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw1WXlczOv3H1mzZCxRrst8K/vSEKlEb4QSmfaUatrXqampaWbapiSESqJQ TEgIN1ukYm4iW5q4tpAplcpyk7h2v/t73fPxj9fpfM5znvc573Oe8zzzP58I e38NFovV24fF+v////vXbeHQdFXiOOS6Bf0BWg7VF30ex5A8CB3GuTo/o8+T zIYsXttrh/MNkkdDkDDb6WDsRZJ1MMMu/skgsz9JHo8HH75oTUu5TzIH5msP 2hZUN5CsB83TWXu8nWtJNkD80BTnk5VKkifDV+P40lknzpI8Fcf3cnQ+fa0h eTpWT9dtvZe+n+SZ6H7AShYaNpI8G6k+sdu323mRzMWC63WjFLeZ/cxBjdZ2 jqX3LZLnIv1TxsDCN8UkG8Fvg9xmYm0myfOQxk/1uOpxheT5yJ6k8Ivv/YNk Y7y+GM36vpnBswAZmo0hRe7M/k1g1aEZO0XSRrIpDHZcyXOyOUayGUZrucuy 95eTvBCRtYaDT95n9mOOS/u9bUPxkuRFcLLu1W/+kU7yYmTF+D7fcL2MZAs8 M/1xJc5VTTLQaNATsaOW8iUH7CK1v3wwvEb6Jeh4VXUnew59L1+CebfOlI/K Z/AuBcdk8fhOdjXpl+Jsr0G8XhqT72Wwj9y2qNyb9i9fhqZw9ZOPr6tIb4nN krzmZedzSW+JL7vWzxo7n+HXciQ2CsbvOV5E+uXQqMh8vIJVSvoVKLk0i+9T pSL9Cszcxp5xYguTz5U417qqO0qwjvQr8SvndvCXP06T3gp9u3fwtQ5cIL0V RvWpG6Mxn8mPNTx9LF1rfpwivTUUW3P9Lvky+ViFlpMtC1u+/UX6VcjqsSx8 1JfZvw3KGk6Z3Wb4KbfByg9Jd0LrmXyshtCz8OzC6krSr0a18Wfp43MtpF8D /ZY/z4SJaT35GrBPvX60rDOf9Lao4foV2gSUkN4WZdf1bSWTD5J+LTZ9sjii 5NB68rXYu3J0/wHbLpOeh/5n6lvyt1F9gYf31vyLzjdJL+cBYnVB+dfj/8lK HpJGv+cNeJtG9nbwqJn04tYExt4Olz3rWo5sZfDaQTd0wXmvbKo/pR1OWtVq zg1vInt76CYf8H1zhvgEe9xtqnV3WEj9RG4P77u6o5IVlH+lPfbdmR2qNGLi 5wBF/tbSmRM6yN4BUq3HHaZlj8jeAQnHnYPfyaLJ3gEaZkr226V7yN4R2Xv9 NP+4Q/GHI3hOPilBFoVk74jMzXq9ThbEb6UjRn28PviLiOk3Thg2+8IizWyq Hzjhctncu33kxH+5E7rMN064kH6O7J2w6MhcHCo5RPbO0Pf/6fnk13ayd0b1 wfvarSMp3nJneH3w8i9cQf1Y6Qy2+qeDxQEmfy7IDPxbbFZD9QQX/DWpyb+g 8ybZu4Ade7Ok5AP5U7rA4i/jdNZ2wsdyxYvBn1t0h+WRvSvWWC3+EmNJ/Uju ignD4wRWH06QvSs0bZPq/Xcz/XgdDmrfCRtT2En26/A144X1/cMky9ehw5n3 q3VpK9mvw9z6lK3FDpQvlhtGzFupue3zM7J3w+bfU/R4w0kvd4PdhaBTG7+2 k70bfOv1BuqcYezdYWtUvOXVN9LDHT1GY/Z75rwje3dM/d9Mm5YT9L3SHS9d f56OaqX9sNajH7/vxYYU6m9YD02fGdbirFdkvx6PDH2u+VcTX5XrMdF8v09+ fBfZe+Bcf5OWMeH0PTzAu/ns7fPT1I/lHqgdkLSptpL2o/TAWYureXYqwsvy xC0YW2rPJj08YWn65c7bSga/J6bmX3NzL6F8KD2xCPVhnLuMfy84en+c9jWO sfeCy8bEaaJ+DH4vTBq/8bmjHtW/0gvXd+ZOruH9TfZ8TO5TeGLeO1qfw8f8 BRlGimskgw/B8Ul3nQrpez4fniOFk+oDXtP6fOyItq//nEh6BR9PdH7ElTu/ JX983HDOX5lpTLKaD9bTC1VNhUx/88bSQ9926H8ne443Zr8438fnHlPP3mia 2+pTXtxM/r1Rvk//ZPgcpp95Y4TfZofeqYx/bwx4byMw+snwxRtWfyQGWO6n 9dTeWDUkOHCHhOLD8sFMq0EzN0yg9Tk+eHDWO3DCCYYPPvhl68CNaKD88n1g 5P92gosu0x99kP08rcSjjc53hQ8OLCl5ZR7A5NsHx3NTNX9sp/2qfZCha9Kw qvc5+feF9mWnotjJtF+OL25c8WwZvISJvy9mCG553jSjeuL7wqg99MO9SIqn 3BcetefzqhVPyL8vPrc73JPWMHzxxawbQUuGdVF81L5wN29n35nF8N8PIVpa vnpptD7HD63e67qijjJ89sPXl5mmSSlPyb8fjCvGz7osYvjph+DZL4qftrwh /35YNKn9/Jr5TL34QSvSYKZqCMlqP3BOzd2SrM3MK/4wMTNaWTGW4sXxR0Eg Z/EMOeGDPw55dzW8vPGC/PtjtV3vl9ovjH9/OA+LcF+hpvUV/mBbewxcmEr7 UfpDuOJ7UmkZyWp/HFu1eO8IXWb+CUBq/Y9Jfi1M/AOwyXlTDasPzRMIwO7M +z9GKRj+ByBn0tnIwSqS5QGoKLltsieMwR8A5wFa3axSip8yAHv2HsteHkvr qwPw+a/oC33r6HtWINLra3vvtxM/OIHo++5ESrgZgz8QuVY+aoduhn+BCA9J fJ1nytR3ILrydLsKWWSvCMRJo2mVTp2ETxmISM2fJY+fMfwPxO5RNa1Cpl+y gjDZYMTcptNUz5wgfBqvt5d3g+nnQVBHvfmWbkf++EGYJQzVWdbL1F8QLK6G /W+IN32vCEKNd/8+cyZSf1IGISjeWqWcSHxUB8FU5dm+s4zpP8EQSALGLvxG ++MEw21Qaefh7cx5GIxhH4uvhVmvJ//BMHXi7s/Yy9RfMMbu112z1PkI+Q+G oY1NjbHRLvIfDOsGc61DpnTeqYNhNTTtss45Zn4OwarX829WHaR5gxOC/HGV i5+lHiX/IeCmtB5MebyD/IfAQ3tFVtqmM+Q/BFtWVNRXVTL+QzC/stZaP5/m U2UIDhf0OxuWpyD/IUitrry7axczP4ZizfILWYe+0jzHCcW5nTMfztWm8xqh +HQsY/S+zbQePxS/rzzFy5LTPCEPhf3EUdYrbWk+VIRi+ZqyIs1xCeQ/FO6f 6vyLrSke6lBkFya47bPYSf7DcLR6mKbujwryH4b92tN/JkRuIf9h8DUfUjew meLHD8O+MNdtf0dQfORhsAzVWdxgTPWiCENYZt2YbUtpfWUYWrz+WT3ejeYF dRh4Td9//hHOzK8C7Db8PfbXI5rvOAIsXfTUquoizVsQYPXHrHGvne+SfwEq K1+3bH7PzEcCFC7QjfugQ/FRCGBh3ZBQ0krxVgrwbYb5Zet6xr8AQ6OKFsxo Zu4v4bg69sWRlsM0T3LCIXB2t87eRPFCOJS/G+S8C6J5kh+OyaarBE1V9L08 HI/1nH/j5T0k/+EI2mhV45jFJ//hiBPUxk/Mp/ucOhyJ0wL/PjCQ4seKwGej 7Rs3ztpA/iOQK1afmKJTQP4jELDI2/XrIMLDj8CElPwCWzYz30VAc1TfqcNb aX+KCMTpzKucsprmW2UETJNTVyv16T6njoD32Kpft7jM/VyIQ5kf1+Q60X2H LUSH7JD7qemUb44QBnG5FwO8sv6TuUI8HXPGethx4huEGONiYqA94PB/Mk/4 7314tE2Xku7ffCHM7vy8EfmC9EIhFMd3z/AIY+pXiL2jVi43/pPqKUuI1qcP J5y7SPtVCNHH6+GW+UcJT6kQX7cV91YVMfkVQmNbdqPLgJP/ySohVtgMKuyT 6EN4hTDs97JNfOX2f3K3EClTWy/YhJE9KxLXk9aZfAfdF9mRePrqw5DoMuIf 51+54ewBs9VUb9xIeJim3r70juwRiUGzM0a/MiE+8iIxTyxWV5tcJfyReFcp DXTMo3wKI7GtePGAKWHER3kkcg9VX+7Sp3rPioR2RpxGwWu6PygikTb5mUHQ QspPaSSGrb981cB2H+GPxBtrcyPJn7Q/VSSOdhx7MCib+KWOxMfifre1VOSv OxJb2r59fDGG9sOKQsXSjCuSJTTfs6OQ/fDUojN1TD+KwvEdRdEBRyjf3CiM yzs8Y7obfY8oqD4NO9+XRfXPi4JVyeWcm/tSCX8Ucs12qReuoH4njEKvW1rF P2PofiqPgkWU7HqiJ90/sqIwZ8SdLr1NFA9FFGqSf0sVFBB/SqOwN77IsPl7 NuGPwvLib6K0ONqPKgpnykznJD/NIPxRGIGtl/o0Ez+6o3DedEz9q0rmfUKE TcOXjKhnzgO2CBrOC7vSmtcSfhEGRi/pmVpG+Lgi3Bz6ZYPLP1QPEOHWYL/5 G3IJD0+EEknL4qHz9xJ+Ea6Yfx+luEz9SShCX0PjMQf/ov4gF0F3tp+lIovi myVC4+ydX6f9RXxSiBBcE/r0zAIm/yLYhnlOPCCleChFaO5/yWjZTOrfqn/3 Fy2aN3cL8UEtwpB1SRsHb6Lvu0V4ZBF7vN2N3gtY0Qj1cl+trCB7djQmfvBu PxdC7x2caJxgjzTuf/Ye4Y/G7qDWA182Un/Av/La1NwR+ylfvGiUvko01hpI 91V+NPSO2XNzdpJeGI2FR981Vu31JfzRSNxz7EizNb23ZUXjs6FFxjsO9VdF NFZ7DXcI0KT6LY1Genj4c7f19H6jjIaGUcKIKf3p/q6KhoCr4bdeSPbqaBQ3 NmRyf1B+u6Nxcq9qTfch5vyPQd/DXVU/dlH/YcdgtXd/Q1NjyicnBov1TRti vlD9cGPQFmo502It1QdiIPhkXG5eR/MBLwY8Lvfz45FUf/wYZLaPbGM9oX4n jIHWtUd2V4ZSPuUxSHv0qJc7jfpdVgzsh/p/SmXOI0UMuiJRE7Ke3ltKY/DU rFn7ecklwh+Dq5ktXVN/o36risHQneVy3WLKnzoGI9eNSOAI6b2iOwbvRU09 RunEX5YYXenT74/oIX6yxWjVt1Ft0Cf+cMTwfmzZr2A+xZcrxkb9wYsz1TQv QYz9oRO0LVfS/MMTo/x4xO1dVXT+88Vo3KOaJznD9H8xVqXdsw89zLwHipG/ 2VXNf079N0uMNIuKdQUPmHlKDF/D/hpFbbGEX4w/fzMcdbuX8qUUQ3f02YbF 1yi+KjHaVb4isRHNC2oxOkz0cirsBIRfDMnuzoiBD8meFYvps3qU7QeIj+xY jJD5tmk40vnIiYXLlD0ldZdoP9xYPB4yQXReh+KDWHx3SR1SUkz+ebEw7NEe +D87ij8/FimD7WMzuyl+wljM7e6wf9VI78PyWJTLBNfKDSifWbGIGX3fVtOe +psiFv9M5+dpVnAIfyysFimrj7Yw7zmxCM3bZ1l/l/ikisU+3bZWHQ96T1XH os53dHVKGs0f3bH41S0sWneXeb+WYN19+UibtbQeWwLhjN8W6j+l/HEkyPh8 4fvLrQx+CdZbjnuz644T4ZdAtsHrkVYtzUs8Cd4eOGIe8xv1L74EvXkGeeNO Ub0KJfCc8cXY89NWwi9B2JZwkcMz4keWBHby4H/cOcw8J8GNtzNvlBVQvyqV wKHjTGHZG4b/EtSx57V0jqR5SCXB9FtrRtimMPUvwY51bBNJQyjhl6CfENUG Ainhl2LSaOvT8lWUT7YUU9m+xgM66f2cI8Xv/gE9QelUf1wp8jwHsnoOUXwh xe3lfUoaHKmf8KS4GFr6cm8j1RdfinOXmiKnSuk8FEpxqFF2LiuEwS/FuLnz X0fEE94sKXRPJI6fU0L7UUhxqenH6wo9MeGXoqfH3byogPwppZAtePbDdinx TSWFTaVL46kPzH1HirbwAYWcWqb/S+ETNfF9jxHz/ifDT7N+u648oHmGLcOm R5uNrmsw87AM3HzxhbwF1N+4MnjKl7+KMGHOfxk+yqyr3gQGEX4ZhnHSpRG9 TP+ToWfeO1+ruhzCL8NzC4HGkb7OhF+GCsE/ghe/E5+yZJCe6vw5b9Y2wi/D Iaurbm986PenUhk6lui4fO8MJvwyJKly7lT/ovyoZNiiHFxwx92e8MuQ3Lqg 4A8RzTvdMnwt+LutW0X1xYpDkPOE3ecjaL5kx8FhSVE0dzP1G04cdO7cPDWO eU/nxqFiec4c82SKJ+IQ4ugfMPwbxY8Xh/qxeWM7x0cS/jggKDzZ/U+63wjj ULNIIjTdSXyUx0G/uaMhzZjmuaw4NFl1nHlnzsw/cUhPej77+A06b0rjEO08 oevbEmb+jUPOiiV6zTeoXlVxqE15uGkn5IQ/DvxVvU7TWBTf7jh4JggbhnKY 8y8et9OGfHjsRflmx0Pc71pSnTflj/Ov3vVw9zcZxYcbj0UWq7Qcq+m+gnjY 58yU5m1nzr94DHq7b8raNuov/Hi86PHQM2pk5t94eB5268k1o/3L41F5/pXe wB/UD7Pi4Xvf5dWeZTSvKeIhDHumpzRKIfzxuJS8soW1m/anjMdjvkmUXY2I 8MdjS7/w63dzKF7qeOj55rkG3t5N+ONR4tbweUoc/R7ASkD+5bUfw94y818C 9p+8d3hoO3P/SUBa3c/M35bRfrkJqLgurxiwmM5bJODJ+WRtt0fEb14C3r/M /lkeQfdvfgIOH0yuLFzO5D8B1n9PPTWpnfIrT8CUic3La4oXEP4EtEsctwQM oPNKkYCaBe0Oi54y828COtOzEnaHkn9lAq6ctnJ494DhfwKK1puHXjWmfqJO QMw2r5P9u2j97gTcVGzlDu3L/D6YiPHDbOxmvKF+xU6ElqtR2F1figcnEblF Fg0ZFsRPbiKuzrll2hZKfEAi5N8328c00HsNLxHX3JoGv7xL+PiJsGjbNOSc iPIhTERt+tiEqD4UL/m/65dPajr2mPiRlQjpnFpXI2NaT5GI8OnbWodvpnot TURnjPXJke+Z941EvNmgHlkmofNFlYgtc9usTmdSvNWJUD1km8wxI352J8Ij Y1TDp1qSWUm4VzlembOVuf8kYd+VTIchu9wJfxImF+XjQzLVFzcJ5VfbUkza KD5IgnmvYGoHL8bi/wDieLvz "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.015], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.015], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 500.}, {0, 0.9995286799649892}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Print", CellChangeTimes->{3.807859660042322*^9, 3.807859702644552*^9, 3.807859798709735*^9, 3.807859848534177*^9, 3.807859970908902*^9, 3.8078600208560257`*^9, 3.8078774177288876`*^9, 3.807878512475897*^9, 3.8089982393799806`*^9, 3.8089983476611423`*^9, 3.8089985488328133`*^9, 3.8089988763572607`*^9}, CellLabel-> "During evaluation of \ In[166]:=",ExpressionUUID->"42401669-5fdf-459c-8c8e-04fcfe3d2b54"], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.015], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw1WXk81Ov3HxEtikrI0p3U7bqiq3CTpd4tUonGFpEa+85YhmEYk0RapFAp 1aSUitJGaZuUSouQaKGGFkVdQlq0/Pq9vufTP72O53Oe9/M+23POM5N8Ip38 h7BYrH45Fuv////fv565vRrXtcuCiufSH6BsPn3Mq0dOJA+D96He3OJ/t5Os CqfbcwZRdI5kNcy21U5pLt1CsibGak/JOdPE7KcDUYbDsY/HD5LMxiR55yZD 6yMk6+F6fv41/15GnoLICrnJG9/mkjwVh53Hb5dMZ2R9JPp4WnZ+YfY3wNWM 4lVD7JNJNkTloHr9K+VDJE+HgmwWu2CCBcnG0Mh1sZiw9gDJM1CStrfaWa+M 5JlYIldx74ZlBskmeNmgcqyjJZhkU6x11l1tszmPZDOMcngV4m2/jeR/sWit HGe5SynJs7DdS+GJApv53hwpf97Zf1apkOTZiFCbZBY+Lp1kC8zT/X6073sO yZbY1ep+4dkYMclW6M6wcotvY/hbI/LZmLa+Y0Ekz4Hm9JiKSQs2kjwXKr0q SrYrGHsAT6/75Am7yF9iQGnxSKFJrITW5yGu/KZygD75SzwPF2rTTH8NZfTn Y5LJfruxm/fT+nyMHnyXWazP8FmAIxouts8W7aX1BbgRsjAh5Ax9z1oIUU1+ +fuDPFpfCJ+H/W0jUvJp3Qa5K7cdHFFA9hDbwHNuW2V1DGPfRah1+fT5Gci+ 4kVIk1vfPOc1409b1E3fbhWRZkbrthgVW3n9qBcTP4sx+2ygcstG8od4McbZ LUocXJBF60sgGzg8qcx7M60vAT9xwwQNJeb8S9GgYr1MvYLsJV6KL/fDVU7W M/61g+xuZ+rFdyW0boepQfHz+yyyaX0ZXgljjD//SecVL0NfSacwxYTJD3sM 2rw/btBL9hDbw+mnVpDZCz6tO2CM4uG7f+tvonUHGH41aQ/elErry9Ev9Ajx iDtM68vBvuo6p3QB418OzE/HjHbZWPA/GRyc9H4579BSxt8c1H0J37TJf/3/ ZCkHpQptNS4f/UjfERX3dg5MtSgifUcYDU4rWDnrKOk7QjFzVHfLEFqXOqIj si9v1EiGnxPe7pAUHdej88AJeUNO3FIOZfg6QXV2Z1Hd87Wk74TRpod/Tvi6 m/SdsVT36wOPxxSPcMZMW16LxSTKX7EzVh/WHDt5gyPpO8P1+odZRWnRpO8C j1Nqdeb9FK9wwX7755ZqEULSd8Elx20L5c12kL4L1vDlGz3LyZ8sVwT8SrPO OED5CVfsft4z37mTsZ8r5HacWp40bSfpu0JFsmV5z12mPq1AyJsabZOyANJf gbWPh8Rk8ClfxStQ89HglsZCym/pCmha2ow4NYmJbzdcyjZpdk+heIIbdh3I XPdKbQ/pu+GJ++RhWo0JpO8GpaSalNFu8aTvjlZnKx05LZLhjkkXkm4YKR4n fXe86bvf+aOL6p/UHddqkgpntzL5txJLbCc2Kn3dR/orMdxp6onDESSLV+K7 yPSz2U3aT7oSiqYpo0pVmPrhgUKlxw29k8me8ECrau++gRaKF7EHHkWmLxt3 kdH3wAIVp4aEyErS94TVw/6i4rFkb3jCPP1I5gN7Jh88IXjZcTW09STpe6Ij 23xll+sV0l+FwJyKsKhz9aS/CnO9LJREHmdJfxW0fvmpu1ysIP1VuPTANV3e l8l/L3zvsbq+6MBV0vfCt5y3d0brM/bzQliq5iU/fyZ+vfD3B+tLJY3HSH81 ErjsNT+LqL5hNfJCLrp7vyA88Wpk+LvuHutJ96t0NdRfNt85mMXYbw38RZu9 5tiRf7AGXzqMe65YM/VsDT6tiuA9UrpL+mtQJdycsv8pxQOLi8vSWJb6wPX/ yWwuvMLNEw3fUXyBC7U7hWXzXlJ8crmwVzjcJxqgfBBzISpR2+fkTPkk4aK2 rf3wlC6qn1IuCrYYPcywp+9lXOhr8cxtF9whfG/s8bFf0n2ZTfjemFqYkzrQ eJrwvZF6aXWR4lH6nusNr7lV12efrSJ8byTeVLabHErxK/FGtfcOdTUdxl7e OOfSoK1wheJF5o05v0w6v7GZ+usD8enpO8daUvywfTD9msKmyjWnCN8HAe/2 WOzSoXrC9cHtLIOO8SMY/j7YMMxP3PiG8k3iA5UFQ7M2taYRvg9cgwb/6pWn 88t8YOK7fsNrXarHLF8obF//uP7NNcL3hUq1b6vpjWrC90X3wxbugRFkD64v srcd/WBqQvVP7Isbq2/3F6U1EL4vKoyzrQtHM/HuC+u6wlKJ3GLC98W8cOX2 iQpM/PjhhKNC7dfwcsL3Q/ftMQHH0yg/4AfVX83v9f6hfozrB6sNV/X/45E9 xX5455H5+Yof1U+JH8oWau5y8bpB+H5wzhAkZqg1Er4fylX/Mfy4kKn//tA9 quoyRo/6SbY/ao+5Pop8y9xH/miqiMDz07Qf1x+LDXL4zbfOE74/VP8Nrf0j h2SJP8yH53K4pVR/pP6IGHHyzOsYOp/MH2VTTDyKdcherABEuLvaJY2keGcH oE3e8J/5iQx+AHI8I2euOcbEfwDOyS9p9x/nTvgB0K44YhJtTvVAEoDYeBXX Lmu6/6QB6PWQCL9NJVkWAC0rbT1d0H3ACoR2upXGKJ0awg9E7Mr8n02GTD0P hLhqf5jNt8uEH4g/mh3KzmQw9S0Q/o2p+l4y8qckEPebPhWbW1I8SQNhNLLv nuwo+VcWiMaDcjkPupj7PwjLKmZee6HD8A/63V+kPvqLz8R/0O/+yuL7jHrq f7hBiIib2ZuzheJZHIT5DhPWlSyieikJwpXv32ynjaN4lQbBVl2adeUB+U8W hP+mO4S0BXkTfjAGPshHbjSg/GIHY4Tili8N0f8RfjDieIGzToRuIPxgBNkW 9tdaPyf8YHicjg/uOPuE8IPhl+CR5/byHeEH4+X9m15+x9oIPxh7LxS/X6j5 lvBDkF/fGVRgS/uxQ6AgnPFB/e5rwg/BgM1H16CP7wk/BO++LFz587yM8EPQ b7R965UM+l4SglXP3A7NXv+G8ENQETIQIHnSRfghcOD6pmr7vST8UKSc0DyZ wSN9dijWr1BX/9T9kPBDscWwXPHun52EH4rvIZPPj3jeTvihMEnbkavSRPwk oRiu5Gg/IZ/sJw3FjlaeV0/xB8IPxdleuw2zrpHMCoPgSn9nTf5jwg/DnazU yCl6tI4wnKvwXKvjzPAPQ8C6MXP+PkP2E4dBhSU4dvHIC8IPwwUzS/+KN/S9 NAwu9ZkC9eIWwg/D88ZVlz20GPxwzBwx9dDFF2Qfdjiq5454qTPI2D8crcbt lm9/ED9uODh6TVolzLo4HO0TbzvrJzL2D0eWgdLjNcWthB8O25Zn/pNFtC4L R8COj/ZzGX+xIrCP26KYvYb8wY5Anv/Or1uTGP4RSNfRbWoNfEr4Eah/fWDR 5M2M/yOgtm1JSPISWpdEoFO7a0vN0W7Cj0D4uxV5lQ6M/yOw0mzm0JkzSGZF YkLW8vd3RpG/2JHI07+ke+9MHeFH4ouLik1ZLuP/SCy0G3+yMofOK47Eh/Lx 9WO+M/EfCRUHTeuYJR2EHwlhqdpIO/9XhB+J1Cf7Rl9JYOKfB/Mh/e4W5SSr 8jDh8u09dsx52TyEFvHO84zJn8Y8vDR3ydYcQvuDh+VZ5zMK15K9OTzs/sdv lJsl4y8eFM0O5SwtofPzeJDJWzYH3qfzinlYcW+sXVUb8cnm4Zz4U/VRVZIl PDQ0yOfoLyK8Mh6kNxfP1vQi+0h5SDJ7eiycS+ev42Fz9kOH3eVkfxkPmZvW /TB/RXg9POx5VqX8KoX0WVEw69Rhp3fR+VWjEGjQ4TW6lcnHKOwftjXKwIn8 bRyFCqPWh4ajbhH/KEwXaBTnBFG+c6Kw2F1Vv+jGM+Ifha3TTd/d66P9eFGI kB+c0JhB34ujsO2u5sUpDmSf7CikPlw7Vg/MfR4F1qDMc0MJ+a8sCvNcd9RL oijepFGYdfixZ7sB2asuCjtljhd515l4i4LEw5DTupX0e6IQtGXdRN8XTP2J xgu1ZXe9gqleqkZDXl/O7+ZWshc7GsNT0qdtZtG6cTQU0yu9bAYp3xGNU15H HqcLyN+caFSmcTYebab84UbDV/VjvlhEfHnRUPsv/X3zfooncTQ01D1O/Iqi 77OjETE+51D4IeoXJNFYLy/YHJlO901ZNIyTqz93WhA/aTQWW51XPzGR5Lpo eC7fLevIpPleFg2V7WWPp6yn/qAnGsPkXUwr3UhmxSDUPnyxnOUZ4h+DLe/j p9Qu5hD/GKiKlNYLVKm/N46BhHvCRq+V9kcMan/dlU/TofcHTgwWmsVH+JhS /82NgV786yfVH6lf4sXAaXxO489MLvGPQdi6vF2NNpeIfwxy0c7n76D7WhID t3jpjC+v6D4ui0GPa+Zlo910X0pjYLnWP2aUFa3XxcDgWmBm6XDqf2Ux2Hgl lXO6g/rBnhi0VGmoKvnTfMGKhYXJpmjd23Rfq8Zi0wdZtbUj9XvsWCiUd0at 7ib7G8ei+7X3oMW/NN8gFqElPo9PC6mf4MTiTVaDXLkL4XNjMT+q/YH6bur3 eLEw9XwUygmmfkocC/EtBffzD6k/yI5F3V9Vizh11P9KYnFW+rn/1mE6b1ks 9qjeHfEglewtjUVgqnGFp98F4h+LZmv7jUvcbhP/WOi+7zqedYP6m55YSF54 vGv/wLzv8eE4Z8KO1nsUD6p8zNlgY6bMo/cqNh9NZ6sD/jCh+DDm4++9rr0F zcx7Ax8dynUamS4UDxw+BFOf/NiwhenX+fiUH3GgZ7OU+POx7cS90z/AzId8 fBgcZbSxi/qnbD7yusYk1o+keUzCx+OJ9zJCK+k9oIwP9VP/Kfxxh/pBKR+K uUbK6ZV0njo+ynL8JK3/0LqMj8Nfr+4vfkb27fl9/p/8huapzPttHMZfdz03 uZvmEdU49ET++LEkkeKJHYc1+b79k9wZ/r+/F+/bK0uh+EQcnrjesAobTvM7 Jw7rx80dqhdG+3PjsCrSvs2iiezNi0NAQYqjRzbtL46D5jfWgqlDGf/H4a+u vIuytcw8EQc1uXXJhgFxxD8OSkvHPE2W0Pwn/b3//dWLvxjRvFIXh1C5F3nf hlH9lMWhaqCjYGBXGPGPQ7ssIzr9FuGx4jHM84RmfjjFo2o8Vr+t638+8gTx j8e+twMDmmfJn8bxMO97XRhjRv014iHf+uOPH/vJf5x41Lmc0dhnQfbgxuPu Kx/bX5pkL148el8aalzupngVx2NpYXq4xTzKz+x47Jn95ms5i+YDSTxKWz8N 882cRPzjEfjf8rXCLMo3aTxuzerZdW8UnbcuHiODdav2JdH7mSwe77qd3knl yb898RiYd4jbkMTMvwLUZB1QiaihfFcV4G99w9ipM2meZQuwPPqj3FBj2t9Y gC/Kqp8Gv7oSfwGOsvN1Xn+i9y+OALZm64U+mhSPXAFMddtTrvXR/jwBjMxP /VCfycwvAiyw63KaF0L5kC1A2wTHx8YWzDwhwHDdrAVvlMg+ZQJUSw3u2EQy 9U+AecrDZzsHUr2pE+BnSnjdzz56z5EJ8K4qemLvnhDiL8DEQq+mjaUC4p+A wmHPPms5MPUvAQ5yI5TczElmJ2B43ne1gzV0Pxkn4FTtCO2nV5n3ogTMV4Hc tJd033MScFJv5yLvZqpf3ARYPylqPPmZif8EOD2buGdXJ/ERJ6BDzVr1lzL1 +9kJ0Hu78Ih0MfU7kgQEnTo5yFlB82zZb7m+7rKaGd2P0gRMnjFMtCO/lvgn wOCWwYW7dlRvZAmYdS3PefkvJv8ToNLDf9BfepP4J2K7Zp1i6TaaJ1QT8U9H 9WB0GfVD7ERoSuq1H2gz+Z+IE2YH1kcU3yP+idhglfnpbC7FKycR/iYWFUsP 0/7cRMzTupzR3k7+4SXilv1Fc+2Z9B4mTsS46ae/v7kpIv6JMIVbyfyblF+S RAwqJG8p3En1uCwR7TmTTNpqmffURNRfefyL38DU/0Q0hgzprmqn91VZIrQ8 rAPX1tN83ZOIKlYLW5xD8cUSwmj/L8PWT6SvKsSQMyUhY5JpnmcLMflgzl6V dpqPjIUoHGtVe1OHZAihrny0uNyN7M0RIut+8PWEeMo/rhB9U4I1TTXJ/jwh MkqkMzZ2UX0UCxFfMGCjW0P9RbYQS05vPaLqQu91EiEMn26xWKVG+mVCDP/B +zo6i/o3qRDlVYEaPvJ039UJ8fOsYu3P2ZR/MiGixW8u3dSl3wN6hOhJN4h6 IaF+kJUE+ZgpY9Udmol/EibpTE9SUqd+l50ENfmwyqYLF4l/EoZbanM+VzPv c0nQKSl+HxxO/uUk4dX0zRXW6uQ/bhJkg+s03r6m+ZqXBM4+/x/FPLKXOAlD bUeyFv1J/UV2EioD7hlp+zD9XxJMb9g9P9lL81FZEkpXYbuRPvO+lIQzWW/5 H4ZRPaxLgr7JXm3LEuqPZUlg658MCB2kfr8nCTczQtJm5dD7DisZrWlbSp77 MPGfjPSxx1XKmh8R/2TcHPPAqOAA8TFORn3l1gNaS8h+SMZdj19xvHi6jzjJ KN409sbSIrq/uMlw2aC1Y3QG4/9k3N5V7zHqX+b9JBnTdtW8X97gQ/yTYWk6 JHefC1P/k7Ezd5pilTnFb1kyvu3UkF93keYdaTKuJAYItk2g+lmXjN6WW7M2 VFK/LUvGVYdjhp7r6PeanmSM+yu0fr4W2Z8lQu7S6tKsA0z9E+FI3wrDA9Mo HtgiXNId7r36B80DxiL8KQh+2q5D/TtECOQvt4q0ovrAEcH2XtG+zbfJnlwR 9A3LTbxvULzyRLj65mmLnDLdh2IRCjnspx/+o/NkiyCa+adiehP1yxIRXnws mHPOkexbJsJfL/Zm3f5E7+fS3/hncrsLC6ge1Ylg/MH84wUvqr8yEVzT/Ta/ MaHz9ojg95aXdEOF+b06BcXLOBFHNt4n/ilI7vKX/tGyjvinwOfyhF75h1Qv jFMQVLOirTmB/IEUXG1a+cxJsWDu/wGv5LCB "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.015], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.015], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 500.}, {0, 0.9910403766230202}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Print", CellChangeTimes->{3.807859660042322*^9, 3.807859702644552*^9, 3.807859798709735*^9, 3.807859848534177*^9, 3.807859970908902*^9, 3.8078600208560257`*^9, 3.8078774177288876`*^9, 3.807878512475897*^9, 3.8089982393799806`*^9, 3.8089983476611423`*^9, 3.8089985488328133`*^9, 3.808998876427603*^9}, CellLabel-> "During evaluation of \ In[166]:=",ExpressionUUID->"ed54b215-3c46-45bd-8846-416c75d82e11"], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.015], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw9WXlczOv3nyhLSinqWmIINwkJWZLeCYlUUmlT077XrDVLM00bIWTJTmNJ ypZd2UZxyZJspbg1tyRZ414i29fv5Xx+/vE6PZ/znPM++3lmeGiSZ0Q3Fov1 nxaL9X////7X4cAr3j3SSn3Rgf6AoM47zcovAUT3Qlzg9gfnTm0m2hB2969n P1I1Ed0fY9U97dPNmPM/8HTxeeeq0NNED8GOGMO4vsKjRLORfNRvmmF0EdEj YFd7oDCjuYTokdgRuX9mt10qokfjRcLYCdWSHURbYHWPZ7GB0cx9lhjVOWuv cW420Vbo2WuUs8vL/USPx7Le/XaOs5tDtDWGn1KdMLLaR/REzJz8pr1A+wTR NuAWhOSXcPKInoTI3lXGHJaI6MkIH2S+r8p3G9FTEFe7e2LXfwVE28L0L3M7 z/pKoqcCpbfc54XvJnoaml3thh9IZORPx/d8dWbcwY1Ez8BXU8NqM7OtRNtB WbjhyR4tBt9MZERMvTF3TyHR9pizqodsr56Q6FkwMKz8/DZ7PdEOWFIozfd+ wtgDWFo/qOvWwQ2/aSXQVaV7pzVsL507Qtq7KaL8Kt2vdMSQiy6uHZ8Zf87G auMNY3u50vfK2Zjpd65s75eTdO6ET00DliwcSf5ROmFKsevT8daM/Dn4kPV2 /9GzyXQ+B4KHbieGDWXiYS5CDLckRlwg/ZVzkS3UC5kRvp3O5yHb4VvjgZNq Op+Hmx851Tw/xp7OcGn3SqoWgc6d4X/DsXrJJSae5kPnQM5k3XrSRzkfg1ZV XEhoJHuwXGC2dYLfwirGPi7o7P84+cMGRr8F6N7rYtl+K8Y+C+C0zrfUJn8X nS+EKnXf2K+vKuh8IWo/2IXtqmb86wotJ2F2jTfFm9IV+4waV6qqGX8uwsSt O8e/9iV5ykUocd44pzgvnc7d0Cfyw4mXWhR/SjdMqBs3r2jIOjp3R/mnqa4K 1RE6d8fpHjsLFqQdp3MPfNaN+bPboMO/aXgg/Kd9/4xPp+h7Dzz523v/Gy/C r/bArUqln5Mul/gXI95IKb1udJb4F2NO/N1+xzIvE/9iCA4e3fSfH8lXL0bx q3djk7wOEL8ndK6tn1HcQf6CJ7Jul750EzHx5Im6q1tn3dy+gvg90TLk3tmS /gz/Emw6emGtfzb5E0ug9ymnNoPF4F2C5/VtJ6ddovqlXoIJ0eW5tR1i4vfC 2asnF1W9o/iEF9pbH06aOCuD+L0gKr1eP7MXxZvaC5aDXid5hpM/Wd54ZFc1 sa1hC/F7I6kif1LUhTPE7w37mMwGazHpq/aGr5Fd3H+BOcTvg7PTdvc46pJE /D7o2750RNsIig+lD6KNz6w9z6F6rPaBxuWF8Xp/Bv9S+J7ISbA3yCf+pfDo fulOwZ9Uf5RLEfD++O1BvQmPeikidzXy9LuUxO+LVVr9ul6vpHiCLzLmLyxc G8vEoy8GL5uVN1SX7lf7ov+PeaNfPGDqux/+3a2fZNfE2N8P2xtbfnBLyF5K PyxUtn87MJfB74fbLXvr+AZM/vlj4IR+L1kLi4nfH8E7R+z91k7nSn9cN71q wGun+FD7o8cRt7N5egz+AIzlDStKSSIaAbgsdvzs8C6T+ANQ9kr+vKGI4kkd gLZnQ+uvBpcTfyBGjdBVz1ZQPiAQK4P+3tzC5J8yEOcV1+bszL9O/IG46pmk qTPfQ/zLcDBKo2vpR/mJZejbey/nVijpo1yGawbWQQ2jZcS/DL1vcgK2rD5I /EFQSDfrHxKSvggC19UxYpst9T9lEAo/uBdIYsqIPwjZ/JNhOkVM/QxGunmw 6Vm3LOIPRmJL4N/1vNXEHwy9G75Oa0LOEX8wZg3pP/5QNJ/4OThrOpq3YxPl P5uDoguForVTyV7goLD4Q5kTK+Q3zeGAf/JZpP1rigclB2kzanK/Po79Tas4 qDQvW7TJJ5fkcVB8smzfG9tNv2kNB1/6jvftvEf5wQrBXtvoiZanTUl+CHiO d3+2mjL1IATCGrtrC0H+4YTg4+l5BposopUhsB7/NDt/k4Dkh+DtAptptibU n9QhmFhz7UO6gPyhCUHvP96XbxRRPrBCcY/b+mkHyN/sUDzsY7/Jo4jyDaH4 aGvy8tUsygdOKBq9jujU+ZN+ylD8bK4YHjSY7leFYpFvWqDNS8ovdSh+ONmu FNuWkvxQvEvJ0otn+ikrDAGHClO/HKX4Z4eheIn5GX0Tql8Ig3Hlvoa4UeQP ThhuOi8ehl1MPwrDzNhjSZ7dr5L8MIRo150rMWDwhyFn4KiD+/dQ/9OEwTHY aviDOUx/DP81X5wadXEj3c8Ox/LP8swe95l8CseE4VOS1q0kmhOOh3rDisQW pK8yHKsaR14MLSJ9VL/uC+yWY/emiuSHI3Dtj+61zDylCcfi62O2dX5n5Ecg O1lqe1hE8cqOQNP6uirTrWtJfgTWO6wx3h5E/YgTgdKW3RLec8b+Eeg+Po/v lEvxoIrA6HOBm9ZdYvpVBDZqQt/87E31VBOBhIaLU0NzmP4XibjG405fv1I+ syMRLgr9scOPif9I+Bk1HJ8+h4n/SPSWtt59cMqT5Edi+MAjlSlj6H5VJJyj H60ZE8rUm0hYaltoq1aQvppIJPm6rwuKZupnFARfbXZmDaX+yY7CZtte3slg 8Edh1/2Kdudqqi+cKGzRykLkdOofyiiUW8zT3bSc6oEqCjO72fL5Vn+R/CiI t+0YaCVi5EfhhvGgqWauTP2KhlfxPK8cC9KHHY0VURH7Jr5j6nk0LuU6WK24 Sv2XE40BLot+XF3HzAfRGHsm7tUKc8KrikaAnmzooCMU3+polHqH9Vt6n+yt icaX/l2DXBKZfSIGNrrXZ5RPZuIvBiHyD9E2+pSfiEHWmYLHb+8y9o+BI780 5v6C2yQ/BsHeI/6RH6X4UsWArfXkustkqjfqGPhOc9LewKd+qInBsYiPCk8z Zl+IRWJfo0/3Esle7Fj8cz/zo+FKsg9isbjVfKqfFcUTJxaO7sql2SVM/Mei 3xz21i3fjpH8WLyx+zo95wHTr2LRd/jfu+LOMvEXi4s3zGuXCg6R/DhckVxc I9pJ9mbH4f2Rp8sddzPy47Ai9/zg3Ee0L3Di8GJWlrai9xWSH4fDJ1rLZzP7 kioO81z6KpJHSkl+HDRJ93/gCM2Dmji4lQ8uysuh+GLFI2W/+7CZpg9Ifjz0 Mrre1e8nfyMeC9yvZHNA+nPicWh4WgzLmpmvfn1vsugQp5nJv3jcO/NE/Kp1 FcmPx6onkS5NZdUkPx4LV4SdO7mMmU8TcOpb+qB9e3aS/ATotgduf7Gf8CAB 8ZuPaob8ZOp/AuZ3qzi7YQLtF8oEsPvcKTgkYeI/AdUZNqO6HpO/1Qm40Tlz 0WM5xasmAZPdUgott5L/WIkoa8sVHLcgeexEBLbPmPV8Ke0bSMSdhgHng8Op nnISMa2lWXdyKMWLMhHBmw88uH2E+qsqEbP/TVzZN8qf5Cei5hY7NdCO5nNN IsxPmq0JOMvsc0lwEUT4rAimfsFOwp+v4+1HuTH1Nwlat7JbJtkw9T8JOXdu jvzxnul/SUhfsbpsuznpp0pCWq4sTO5B8tRJmNWcXlgfQv1dkwTpmhOVgV1M /eVimMmSFhtn8qchF7ZtB7TNZlF/Z3Oxe8WxcbtSaP+15mKoyZ2wu1PInuDi UvevS+fcJX4PLmSmET0KzZl45aKI4/Y1ZwPh5XKRfGBc8NsB90l/LnrJSp+c FlG/zeOCVzzi26XLlJ8qLmqfFa/9WEv8pVz8E7U+/Wp3wqPmwvrEGotqb+qv NVy8YFW6tgwk+2u46DtF+LbL49ZvuoMLiWnoRINtzH7Ow0dheJLbf1R/DXk4 dfPvHSaLmHjgQWw+OrojnPLVmod9A1prf6STPPCg3+TaWTuH6o8HDz7BPS7f UzD9igeDBqXPe3fKZy4P24bvfuDhTfOfkoeT00fuvzOZ6mUeDxuy2ra56TUQ fh4WX3KaH69L9b+UB2/nvB73ZGRfNQ+Ge7sFLGD23xoehg16UbX9NRNvPHT2 i7udakDzYwcPRUM0cwYLmfmbD8cbU15I2uk+Qz6K2kQjJslof2Xzsf2hvvHT NRR/1nyM68ad3fiT4h18VE0+GpQZS/HowYdOvy+b3nylfYLDh8WDRD31PbIH l4+6T0FvWv9l5kc+VqfjydQplG95fAjN9ll2TyT7qvjYJn9Q6yej+C7lo9fK mnXns6geqfnonnUm4xCL8NTwIXFO+t75x1vCz8eARuNd1z88J/x8+LcliFtO PCP8AtQEpvpuYbcTfgE+fnOzPPzsHeEXwGRmdHzCwKeEX4AJzVuXjzGl+yHA gJ8rd8TrvyL8Apwzf5kQlPGG8Aswf6ho286rrYRfAFkvdZP8Ot2vFODR6HzD x8WkX54AmbHnuz5ffEH4BXixbZRv3Yw2wi+AVp1xnI3PS8IvwPPbtz0XLaD7 awSIMBMPcDCn+zQCvAqzefT2CH3fIcDO6i8GZ8voPpYQCuP4mPY2+t5QiNgF 7WMa7pM92ELYzYjaOGHII8IvRIkVP2b+XMILIRa9WBN44R2DX4gbOs/Kpd/+ IfxCBKyRitetpXOuEMv8Pa/9e47BL0R0c4NuRW0j4RdCe9LlilcziVYJkSzr 41i5nt4XS3/db3fK0fIa6acWostsyjRFSzPhF6LuxKvmj+OJ1gjRULE907eQ 5HcIoXVe2mYvJ36WCFMsREV/XCT7GYqgkcSMvrHvNeEXwe2DDYye0H3WIlip TZxNAukcIrC2PjXpxsSDhwhajcYH/z+eOCKcuJTvOsuD4o0rws8vZhcbeHSu FOGmqVorxYjw5YkQnFud8XM9fa/6Jd/e6IvkMN1fKsKj+TvSFzmQPmoR6r80 eF2LIn1qRLD+wK24kcr4XwTtBVPN9i4gf3SIcET33vCDjL6sZNg0J/1hWcPE fzK+TdSxX2hI8cFOhqv757bNV+g+62RsrPo0r3G5hvAn43gPY9v98ym+PJJR 9WCfrsqI7uckw/t7UW2lE51zk/HJqMeVp2l0vzIZAk3mOOn3WsKfjPb8ZP18 T/KXKhl7z5R6ZUZQvJQmQ1VSaGRWT/ZRJyPs+OhO0R2ia5JREGztyLF8SPiT EZ7y+OLVAuLvSIbftpGp/UvIfqwUvNf3faVdTueGKWiQHTNfaczgT8GH1KyF ZSKyj3UKdoseH3O9TPxIwcxVJatzBpB9PFIQNDB/gvskxv8p0P9U51zk3EL4 U/Dn+o7Ve+bT98oUrCisYx04yuR/CjK297QsuEz1Q5WCGcGViWHfGPy/9Fm5 r6eWD/lbnYLT3u8ntVWSvjUpGPNT+8USF+LXpOC7p6uZTi6T/yn4vMevIzqY 8b8Ys/UWHBeak70NxRjv2ydvrZz42WIMPP7dSaBD/NZi6M7X66N8QvpAjGij 6CNhz+h7DzE+Bo6Y53mVvueIkWDhsP1OKNmDK4bHIbOmIDnJV4oRNz/HJ4vR L0+MD7p79zT0pe9VYmTfvy7UsSe6VIytV3wmPqihfFWLwXMRcwQ3qV/WiDFG r2zE6b/qCL8YbaaX0wL2M/4Xw8WwenKzP9EsCW53hKc/e8jUPwmmPbDOzs9k 9iEJfso3BBi60D5iLUGzlRa/rw31S0hQlTW0YskNmqc8JKifM7np0mhmXpbg 3cWAwEtymqe5Eiy8++ZH/Hpmf5dg3um2oLep1wi/BAGPo9y1tjDzrAQ+ff1t J2xNJfwSHPqvXD5dTe8nagnCOv6aUdFG81CNBHeSWt9scmbmPQkOTJyxYFET 9c8OCYq7NY2YsInZ/6TQWt4WE36S6f9SBGwRfu9k0fzFliLmykXFzUj6vcVa Cj11gWZaFu0fkMK04qRuugW9X3pIoVM7cmXFQZLPkUI2uclkjC3dz5ViG+9a oPbWYMIvRd1c42WSkkDCL4VD12pt9g2aN1VSnL1dJVS603xcKsUpfWOv1h8k Ty3FzS57Tr2K9o0aKfxNTVNHZS4l/FJY7Q3dqiejeb9DiuyZvX/6HGZ+r5Eh /W1b0+BpNH8ZyjCsw2SCQzPNL2wZpAOv97x9g+YLaxmWlBoMG+vDvA/I4LYt t9LtOtnLQwY/08KSg08khF+GeSaH2DV/kL+4MuQX6Neu6kO/zyhlMGtfkyUq IP3yZOgbNSHrigHtNyoZdlX2ODxGm+xXKsPXyLny4OM0n6ll2LvTY5rLbvJP zS95/bMzl2cvJ/wyuM88sdiSvYzwy6Dov8Yy/hDNV6xUnGxVe194QrRhKly0 716yP0Py2anIXrbiph2zP1unwlx/9+iWHmsIfypabhkNUTqSfh6puHtlceOy JJrnOKkoworY+dMY/6eiLSqj2VvG/B6UismpJl46dTQ/5qXi5+EX3527kz1U qajOdbQcs5D22dJf+vkeab+mx8R/Kh5quTX4vk8h/Kkw0umt3i6g+NakIt64 Z1xUC+2XHalwLOgssnSm+1hypEWfm573D/nTUI7wz65O5Y9p3mfLYfF4yqrc 48z8Kwd3Zz8j+7+Y/VyOLZK7nmIDoj3kWJB1bXbiMHqP5cgh95dsmn2c5n2u HMb1XK2XYcz7iRxO87yfKywcCL8cr/SGjTFMpt8XVXIM/VF2d9wowlsqxxPj A7OHW9A+pP4lv/FVjwsltE/XyHHTSKr7NZp575FDZ1ngriwWvf91yCGIPp0X fYbZvxVoNfA5fKAnvdcbKuCiu+OQng/VH7YCJ9rvXB0Wx/hfgc7SinqLLspP KHC7a9v3yFbyt4cCbp31toGJZD+OAu1sX17/PhSvXAUyxkQmWVUw7/sKWA0O t0k8RvUiTwH3rQY1Q/WZ/Fdgeky5wugK1dNSBf7cOHHVYxOKb7UCfjMGHd0w hfavGgVO9YrP4U4je2sU8OF87dSqJP06FJhlfT6RY8y8v6VhKH9Dyi0V6WuY hushf63auTuM8KfBPdTIuqIfxa91GsKmfzn2TzzdjzS4FowwSxOkOfwPRDKS bg== "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.015], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.015], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 500.}, {0, 0.9995591319411468}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Print", CellChangeTimes->{3.807859660042322*^9, 3.807859702644552*^9, 3.807859798709735*^9, 3.807859848534177*^9, 3.807859970908902*^9, 3.8078600208560257`*^9, 3.8078774177288876`*^9, 3.807878512475897*^9, 3.8089982393799806`*^9, 3.8089983476611423`*^9, 3.8089985488328133`*^9, 3.8089988764941936`*^9}, CellLabel-> "During evaluation of \ In[166]:=",ExpressionUUID->"2c4ef7f5-b4ab-4195-8736-b40374e3ded9"], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.015], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw9eHk81O33/rRoQaX0ob3pSUpSRFFRF62W7IQsY98Z2zCMMUWRVEiKFkQl UipF6zOUdluLimKEpITS016+/V6d988/Xmfu97mvc53tPvc9yy3Y0nMoi8X6 NITF+n////71r/qq0OEcW39wFf2AKB8VlQTttSSPwqPEPaWZvASS5dAze3j6 R/VCkici/8XwRYWvhCRPQt2VsFrZYbkkT4P/z8vc96F7SWbD8sq5KUG8AyT/ gxvDb4/IamfwleBYWFd1oWwbycrQ/a+06tDlRJLnQW3mVt5wxyMkz8e+VXOb s/u4JC+AQZ6O7p5UBm8hzGOkagonqZGsjjuHHzQfD08jWQPB12cubzmcT/Ji VN1dnJf/KZpkTZwqn3rKbY8jyVr4wI5ZnDSPsWcJNiZuk0pyZfyzFPslRZc3 sfNI1sZk288dNSt2kKyDiBfTuthOqSQvw5Ie8y+T9kaRvBzPhgsPBktvJ3kF ms7eXXt5RQjJulA5urd7hs1+kvUwSmPkeHdpxr6VKEr8sL3ENIbkVRAKb9gX WzP+AO5YNXd0Bsf9lUXA/AZuzmbZdFrXh06x1jFdeZJF+jhR/vPBRAsmXgZI ae55uOwm+U9kgF9810W9hzNofTUGxImmOhxmfTW8XskNZIqZ/dcg2W7XbY+v rrS+Bo26mXPLhu6h9bWQSbloNvsY+V+0Fl+aPogOPmb8uw6F/4QeWyGm+IvW 4Wn2wfl4z8RzPVrtp2mYTZpH6+vxxcvz5susJFrfgJGnJn17OEjxE22AgaLn trdXRbRuiImDVi1muiSLDLG21de+dRLjPyN0+UYUjLal+ImMYHRowlPvy0x8 jSHJU27qLKT4i4zxT/Xr+ZUZW2jdBCenHWh4FE3+Eplg/NEnczZUM/ZvRHCG M39mLvlDtBEDr4rva4u9ad0UcxdfPhe2mImfKd59MZaRL4ygdTNcOl2fYFPC 7G+G6NKy9qNljP/NUfqu80r0PNof5uCWxKZ+caZ8Epmj6nfI/JE2kX9lsTls vFU/TWzfRPoWMN5o71w+O5v0LXDHYmXDl4rDpG8BN4vWjEmzCF9sAd+gJ27H xzH4lmhSnPIkrY1kWKLyRfo52Qryn8gSLTI2e8J/hJG+JU6kbjcbupOpFyuk Gk/Msd/C6FthzvQG0bha6jciKxx8pH+hqWA16Vvhe5v/IG+RB+lbY9oHnWPx NcQX1ugb3c319A8ifWtUJw6c67Oj/BBbI7357Meci0w924A1e98VuSrqT7DB r41LGudqMv6zgdTT9eeXCXeSvg1Wy067L1Rm+pMt4hsCepzb7EjfFq/aZ2/V GsHE0xbGc4x2srZRPxTbYjBJS7MulamvTThh/NOvZhzlEzZhTRBP7/w1whNt wo/3cz+2evuT/iaMK0uXHtLoQ/p26BqSlS1V6kf6dkjr/fhs7jbGfjt86NJ8 dWA91Z/YDrdX7lJY4LqV9O2hIFprMvl4MunbY6NRW3zWVZJF9uDnbPXzuZtF +vYYlGrpz77D5LcDFr3den/mC+IHB4w3k5vL5lB9iRwwxvSm4cZi6jdiB/xz UCq7KIvp95sx59zz+MrHlA/YjFvuo2afjqJ8EW1GkbWu4glQfoo3Q+eUqkuT ZgHpOyItxvvdB+ezpO+IGumLW5y2MvnjiAnFse9Chh4jfUes27K5wmkZ8WM5 QdF3r9nVtqOk74Q16nkyMm7EV+SErJlRw/znBJC+EzTP9Ka8EZA9LGcMc/lf q0ZuKOk7o97GgR967hDpOyNtd4mFGsgesTPy7kazkmOY/uiCRewz1bxvdB7A BQ3fvDI5HwWk74JNR0y0DyidIv0/32cbHp6f70b6HHSP3NyxQkD82By0RmZP KFnP+JMDp5++/GWdFn9lDgfXlk34alkWT/tzEOH/ZPb0eoe/ci4Hu9deaNC+ zCc8Dk5JXvaN/E79U8LBNr7h1UUrignfFUH3P38LUBpN+K6YFFYt/PCT+MMV iq1rv9YbnyN8VxRm+r5sUi4lfFfofZZ36C8hPrmu+O+W+751TpQfYldMvP7t yY1nJEtcEWIXqFdcwyN8N/x2y+tNGkP9g+2Gjz1Bu3VO5xC+G6Zm/leo84Ly j+OGumg1/YQg5rxww814g7d341II3w3Tt15LUJhA8RC7oT9rj0JWPNkrcYPX BkP3Vo99hO8Ou8f/KZ1JPk747pAXzKiUMT1B+O5oencvvsSL6oPjjj1BF24U san+RH++fzbi4Oh15wnfHd7vBu7Hj2Hy3R3b0pIfG49YTPjuMGloWHmQ6Zcs D6QV/TR/cYj2Z3vg/pFpNQ6bmHz2QEsgx6GsOpPwPXClZItTeCFz3npA6rCQ 53CdztNcD9QurI4eHF1C+B6Ykt6wa9ICsk/iAYXyi+GPOpj698TWssCswF7K F7YnuDUZY7VFlF/wRNvQ0U3uO0if44lKWZkeDW0G3xNqe8/MGfGI5s9cT4SP z0S3NNkj9sTOwIFx9i/pPJF4wkmgvvSpGeUTywuRPX6ZCvt2E74XltzhqvEs KJ7wQtvqmlb3B0z+e6FyZfKK1gADwveCTJz5lN7dDH8v7J4585aFCflL7IWN XVGj1MtJlngh8fhQttJKpn9649iGu5pP04sI3xuKU8wc8pqp38IbZiO0c9tH 03nD8UbJyxvzZ6jR+S7yRrdJ48LMAuqXud7QW3RXrUv3JOF7Y9k41d8rvzL5 743tGcnWj3yIL8sHPQVbSuUa6Lxg+2CUIF7zWgb1L/hAb7LJokfBhMfxgeTy zB/Sz8lekQ/U65wTQ0H1musDlcwPar3FDH8f7Bo4zk+yovyW+CDF3e/8Q1Vj wveFS3GfuEyR8pXtC42Wo6YuTH3AF43OEvftkX2E74tzrbpDg7SrCN8XtnMv XknOeEn4vuAW7Jnbv5LWxb5YdmHLiLKip4TvCy+dkp7evn8J3w/L9F3aTUsu E74fXLwHDMM/3yd8PwROePu47Bz1K44f3jQbjjdqeEz4frj06Zumwvu7hO+H 3RV3854VVxO+H/zz1JQU9Oh8kfjhpAb7dtqMe4Tvj+CvLWe64+oJ3x8Vahtk 5ixpJ3x/vK1TFSs3kz7HH2sDu+teGNH+In+8SOZOeZPUQPj+iHedVWboT/EQ +0Nh5IYdiurUzyT+0FXxONupSzIrAFL9q9INK28SfgAcQ7b8o7rsDOEH4OSv B5UWrZRPnAAobDn4RX7pFcIPQEVXRKL35uuEH4DhUqu3/6+Zqf8AsG8kp5Sm VBJ+ALw1niReHsGcv4FYc3Ldy13p1O/YgfD+ltRjcLCM8AOhpmgnp6h9gfAD 4Rtn0NIyi+EfCJfVS5Qc3zH+D8TOiib7Mw6UD+JADAmdEz2H0ZcEoji4U/Xl 02uEH4Sp58Z2ffN6QPhBePHI1XCcE9UbgjBPEHZJ/yHTf4KgfHrT7SrBbcIP gvDx+M48GbI3NwhlgV19VvbM+ReExhmXOYujyR+SIAyRc3gekkfnASsY3Uf0 Y6JE5A92MIJlTC52ve8g/GDMOO82+My8nPCDcU33TEj/PsITBUP/1Im8HxeZ /h+M9KP2qqvWUv6Kg6GYcc9q39VLhB+MZUrGyjcP0fcsLt6adF5POU/9UI4L rvT9ZuXrtD+bi6xVMorWV0hW56J07qeTv23IHnCxpj7NNV+t+a9szkWCUGje 3feM7OXiMy/NqCv54l+Zy4VGrmib0iemfrl4fiv06+zblH+pXLAn+L6fskRM fLgo+O4ea2pJfEq5uKPv/GlyMvlHzMX9zj1mQ+YSv/o/9n0qlV/+mc5fCReT XusUROpSffdz4amV39G+tpP4hyAm5/V4pybiJxeCD7bj6wN2U76wQ6AfneG2 qprqXT0EnqrR8tIZr4l/CGZ8tDexm0f2m4cgqWxBbYQX1SMnBIcqhCeOFtcS /xBID2h5VXqQP0QhuJPNz49lkZwagu33vnmZZF4l/iG4FXbM+bsj9YvSEGwa tWlC90EJ8Q/B8YFPaQ5mhF8fgsE2R0X5RKonSQh0Fv+QKYylePWHYOBLzLUr Rx8R/1C8slIxytAi/8iFwv2b85Pbw9qIfyg6ZBbtdltI+aIeipvcsRE2peQP hCKyyqjNdgjZbx6KMfylz8J+UL/nhOJMUEpd23Ym/qE4erdRXv0uva+IQtFy 03TPfB+ab1NDkXktvn3WM8LPDQV/38HeTVcp3qWhONKqfSOpnOwVhyJQuPL2 gqfUn+pDUWszd1rhgV3EPxRB0loN/TWE3x+K5+wb7p63yD+sMEzV5p/NWUj1 KBeGIV/L9yX203sXOwyPWwwOJS6n+Vk9DEcGDyesHsPcd8LwuyfTcJoL1a95 GMb+e3LZo180b3DCMMHRKZvPIXu5YVhS7P1r1Hsb4h8Gk88nz9ntoP1Tw7Ar TmeLWI/6RW4Y+MMfZubfofXSMChrxlvz42neEYfBurWj4sgt8nd9GEZ/OFkE WapnSRgcNrT+DntL9vWHYW9jt6yUFeU7KxzbQlVK1WMpHnLhqPe3b1KeSPFg h2P+b1nbxk1M/MNxqW9iuflk2g/h2DDocdllDN0Xzf/s90aj4PUc8i8nHM0x Nyd9M6T5g/tHP1GwLF/KhfiHI/JwVdpsGzrfUsPhZnnDgj2P6j03HHUNiwVD 9xPf0nBsFqV/slpF55c4HMrfpw2pjqR6rQ9H1/gXarssqH4k4WixK0RVD92X +8NRntLb511O/mVFIEm89fuYJqoPuQh4rrm6IXQKzafsCOx4PvZKVxzhq0fA 4vWZjvwF9L6BCChrjDWOSaL5zzwCYfZDFVarUT5xIrCk45nPrMLTxD8CeqdK Fj5+xryPROCkwukAwz7K39QI7NUZZ/+ukunnEehKqbzdWEfzcGkEVt222GoZ TvzEEYi76OTk/YvmtfoI3PZ11jp1nPJdEoGihrEu1k3k3/4ITPUJ+TJsHc17 LB42yI839HpN878cDzVLP0k7zqd5h80DZ0Zu+bxuyg91Hmpf796/cDT5Azz8 uppner+X4m3Ow/o2jX79S/QewuFBtOyI785m+p7Lw4DmHYuOcLpfiHiwnH6r 4sI88lcqD9Ly7u1nC4hPLg+2v3OS9tvS/bmUh077hIba2RQvMQ/p13SUlhtS fdTzoPZgsklKPK1LePAy7b4hrUT3w34eDvywlav7l+YRViTeiAquJzx0Iv6R UC85O2SNkOxjR6Lmzu9JoUoUP/VIvHc3evKtkM4vRGKLMn/WxO9M/UdC61qO veog3ac5kdDXrWT92078uJF/brRnfxk/qyD+kUj5EjAj7SzhpUbiqvTg7KqT lH+5kZBxXHvp3hZF4h+J0xvXcWye0P1NHIlp9xcZPvAgvPpIZLtVhz7ZRfcB SSR6NybM+q5I9dwfieEJ+VLTiyifWFEYkZKt4lbL1H8Uhp77fsZYheqFHYVx B4a8XDeL5n31KHTfScgwdTUh/lHY9m7G3UQu3YfNo5CjJhx7SZO5r0ahLm9j 8YWRTP1H4Slr92QzU+b9IAry6//tMXCk/EmNQkd6ifqcfcQnNwrTNltm1+oR fmkUXB+8G1b+kPwtjsLilDn/TVZg+n8UDtfeyJiaR/1DEgV+coK07lp6X+6P wpmlRpoFpfS+x+JjbMWwujYl6gdyfCSaHFjT5dpD/PnYOKrv8S+mn6nzwZux sqhxOs0P4ANOHhNmxtC8ac6HltaOhhNq3cSfjw0G+aeuj35P/PmwvPy6YUE1 7S/ig+NjoOY4SPNTKh85z41+LxnJzD98ZNjKijzSeok/H3GqpUNfSJjzn4/K U4b9LafpvlDPx/Hc7UN9PN8Qfz4ObLmq6cCieaWfD6Ofz/3253YR/2iECr4+ Vv/xhPhHQz0+szf+YiPxj8a4o9p7Vd+/I/7R6PuQ7/jjKp3PiEbxykuCpSy6 n5lHIzFi/b15swiPE417h07U1ZuTPjcavgsbrT5k0/eiaEzIq1ZYVUByajQ6 P242SPB4S/yjESUtbe36//lHQ081Od/gB8niaIwKKWn+/pj2r4/G19FOlQ+K aD9JNGr2KnpP2c/wj0awg4bxowr6nhWD/Dvnj5RqEJ5czJ95ZKPjqgjanx2D Ids+l3u3k7/VY5ATaHqh8z+SEYMRjluPv7cmf5vHwPpEZ/L0GtLnxODSSd2b 5ycSPjcGbm4STqsCwz8G+99eS/eYSfmSGgPOmHkPbH/QvJMbg4faBrLfz9P+ pTG48n2FgexCmr/EMXiZr+t1agWt18egumrrVI9ByjdJDH7bqgw4ZhFefwxC Ci+1HxtRQ/wFUHLpm6i/+gXxFyBHvfbqjh1M/AX4fDHeW9GG/KMuwGQV5UTH 65S/EKDkvHd9ww7yp7kAU7uDjNvD6XuOALFvlFbopdH+XAGmq8RfT/Ahe0UC 8BS1uoZNI76pf+RDrGG8NGb+E6Dofvk9wTp6rygVoFfN/X+Lqqj+xAIojHlz sDqD/F0vwITnkwdkTSg+EgHk643652fQ9/0CHI+7fkLzJH3PisXCqjS7liLy p1ws9r9cv9SinJl/Y3G/dXD87layVz0WPZstJ6zc+ZD4x+KadfgCWQeKn3ks dixve1StysQ/Fj781x2u66jeuLEwdaxLEkqRPaI/+r9qc1o6mPyPxdtbaYHj +kg/9w/+FOdF5z8w828s5HovKTc+oHlfHIuX0efC9NZQvOtjsT3mRcV5bbof S2Khffq4ukw7E/9YWEntUtnQTvFhCfErp8dwUJriKSdEyXG38IejGf5CZLTt ffCqlsl/IRZKFJM/GdJ8CSGeB+1PN7YhfXMhbvdVPtKPo/sFR4gkr9n+n+eQ f7lCpOfujj20gvJFJMT5Srn5h5LJv6lCKJzRez6UT+u5Qigvmvuj+hP5t1SI sBtxAYIc4isWgpMV+dFXjel/QhRURcVvkyd/S4QQHXqqlTSM5t1+IUYu7/aU fcLUfxz6F/zj/kmd/CsXhxrNu7fUkshf7DhMXXUy4WM80//iYHHG6dvWp0z/ j0PW/lgVvdzeVf8He0K/Dg== "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.015], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.015], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 500.}, {0, 0.9966881867657588}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Print", CellChangeTimes->{3.807859660042322*^9, 3.807859702644552*^9, 3.807859798709735*^9, 3.807859848534177*^9, 3.807859970908902*^9, 3.8078600208560257`*^9, 3.8078774177288876`*^9, 3.807878512475897*^9, 3.8089982393799806`*^9, 3.8089983476611423`*^9, 3.8089985488328133`*^9, 3.8089988765539303`*^9}, CellLabel-> "During evaluation of \ In[166]:=",ExpressionUUID->"7654f14e-75e2-49bc-bf21-d351c0342813"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"sl", "[", "j", "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "3"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"sl", "[", "j", "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "4", ",", "k"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]], "Input", CellChangeTimes->{{3.723293813046097*^9, 3.7232938198905783`*^9}, { 3.723293850643976*^9, 3.7232939100877123`*^9}, {3.7232940070044036`*^9, 3.723294010535943*^9}, {3.723780721477073*^9, 3.723780724462539*^9}, { 3.724422341152158*^9, 3.7244223751184716`*^9}, {3.8078593858985023`*^9, 3.80785942906863*^9}, {3.8078594838471093`*^9, 3.807859492138398*^9}, { 3.807859869898765*^9, 3.8078599355030556`*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"26602c58-3a83-4d85-8ff3-dd2ba10b68fb"], Cell[BoxData[ GraphicsBox[{{}, {{InsetBox[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.004583333333333334], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw9WnlcjN/3HxJJFJFQZIkQki2J3oQ2lCKFatoobdM+7VNT00wzk5LsKmvJ FkqRJUQhiiyRSLYskSXK+uv3+pz79Y/X7ZnnnvM+532We+4z0j3Qzqs7h8Np UeBw/v////61mf54Jvc7W/falP6ApeFpi9+qvKO1EhqLmvdf/d9aDZINYU5+ LrW0HoiV2Xmnz8vf01oTvU5Ue6z53++1EM7ZOdvoRgutdRDG+zn7VRj7/Sjg gEHLGadXtB6DN0uEFzU92fOxsMTMH1e+vaS1Hk5ftTikNu0FrScgLOJNXVwl +70+rrX06m4Uw+RNhizji+ug7E+0NoCF0WPFbrUfaT0Vf/puvTlxDNvPECnd /ubVSj/Qehoq6sPPV+ux/abDmjP82+qxrbSegUrf2e0pYoZ3JtKLR/mpzW+g 9SyoRprI3EPe0toINZs+NkiesvdnI9/NIVA/hq2NceXSqIw/DQzvHCj239VX Jmf6mqBjCvRm9Wb6zcUBrZqNUmf2fB68xlV9MnrO8JoivXLOiWGZbA3s0XDX XX+Xfi8AVmrP/SO9yPSfj2OzuGFG/0gfwXwM9fE323CkmZ4vQKiusk1GMuER LMAo/f7Bn08wfGbQnupw0mEy298M5zwFOe+fMH4txMPWL2dCg0kfwUJceVjy rM8h9v4ijKibc1j5F/lTsAj9D+1dZXOP4V2Mhkl3IxqUiC+Cxdg932Tyvn/s uTmMf9XGiPex982RY5IcP2Mes48F3JtstA4PZvgskMn5ctlewt63xJvpPyzO 1LL3LVHwPOCc6DrzvxUWN9qeeGfG9LdCw9X9v/ZPYM+tkWZkbYMmwiuwRsux nqdzzzF+LkHT2ecchbf19HwJqsab3+W7sudLsXswZ55LFdt/KX4ob5PuymL6 LcPdCJ87Q48x+y7DkuO9Pi8bwPxrg1anhYPHrWfybZA9MzPnOY/Z3xbLJx1Q C4omebDFme+SC7NfPKHf2+KUZ4a2ygniQ7kt4gQFxnudGD+XQ3g1bU6fQaQP luPdJlu/lu9M3nI8H1v2tuQm8bd8ObKTN995vJzZ3w5RjdEx6gcp3mCHmONl DtrlzB92mJJ5K6GPJa3L7TBwbvV2wTpmH3vsWfZj+2sjwgt7HJi+IsSN8Udg D49e5gM3NNLzcnsIOPPaez1l8lfgV/fu0872YPqvwI/hex32VBNewQqkWttM FRUx/CswYvIkve5rmf1WouTh8+vnphP/sBLONg1PdaLY+yuRmjHmtHIo7V++ EvNLHL12NTD5DtivdqdA8TezvwNia8rTkzvJHgIHtFkf+Wjv8Ibed0CUcHyO yWDGr1VoCeVvTlOi/bAK3+2CvE4XMj6sgs3bCM7+H7QuXwX56j+7U0NpP44j Lulm/pojZu87wn1t35dXYpvofUcUiOy77TNi8h1xX+/7X8Fnxi8ntLvdNgzR J3vDqYsfBrODHzD/OUFBZ6djylxmfycknx/86ociw78a1uPc/laq0O+xGt3n 7nKKWMbeXw073Ysjt6oz+auhM4mXdyCD4V+D3AHdVadNZ/xZg7dufXyxi72/ BhNOrRC4rGL2XwOt3q+Cls9g+q9FZNa6jfVPyZ9YC9dx3WQBd+j3grVQds0d 8dT/Ob2/FvYr1/dfns7izxnirOdj082f0fvO8Br1dNtYc2Z/Z8QtnDda3Y3h d4aP9vjvOV/Z+y5IsPLCzUDiC1zAu2A3jVvD9HfBX1PlCfNjmf4u6JcxzGuP M4s/V+gPaP5UvIjyMVwRmM/deuk7yxeuOOJTvlXmwt53xVLuvF9xy9n7XChM b2stUbz331qHi4GGnl9MTFk8cGHCHWkaoExrLheyIelKJvokT8BFT5c1BfVO xN9cLixXjLPKEhAfyrl4xCusOedM8d/EBX9NfMjZVlZf3GBeIcszGUb66Lgh xrD/5/fMX3DD9IjI3IOtZH+uG9o7buyNtaH9BG4Y77ZwxKIIej/XDRFKERF3 lpM+5W44+PVrpXAaPW9yQ9buvyItLcY/d1RlcQxMx5E+Ou7YsnHJpc1LmD3d 4fOqnhOyht7nuiNngsWJw+OZfHccr158vUcpxX+uO/TznBWXOrJ85Y7oP83x bv2In03u+Mz7cur4FIbfA3tentQY50r80fFAdEGJQ3k+ywceUO91ws5lMNmT 6wFHfeH8w+GMnx4YwZ8UXXSc1rkeaBiy68rMbNK/3ANvjJPTq8povyYPWJo4 +L1yZfzzxMvp+59siaG1Ttc6V9PXqILx0ROTy6MeSgSEl+uJsH6tbauXMn57 QqXmWMv657TO9cSzuvs+p/sz+3sixKLvyy3s/SZPfOjQHTyjnOVvL8xc9Ged 7UZmfy8Mti3+KFZl+cALqwr4k6S37pJ8L7jbPrYp2crykxcyfBQalMXE91wv TE/dpF46hcn3QqLr26k7a5n/vTBbzolpnMv6qXW4810Wv23UQ5K/DvO7OTS/ M6f6h3UYZ3b4rM8W2p+7DrJt6antugz/OiyyeKXoF0j+yV0H/uW+XKkyi/d1 0B3XXav6Nj1vWgenn6GD7P/n//V4fbCuRPic2X89thwPPPn5MeP/eoycxq3v 5kF4uOtheqSi1sGPyV+PBrgc5Xqx+FuPw+I+s0IljH/rYdvni2HPScz/67Hp 9YeM7ebM/97YrRjT1KeA2d8bGbdyXuUVsHzqjUSvsdNLZjL+e8Poyb1t9pcY /7zR0ONCwJEnTL43CsNtxk1wpPfLvfHrx4BvRUpkjyZvXNBauqtwC8Pvg2mP M3CkO9lbxweOCTsKfDYnkXwfKHZvcskYeIrk+8De7lbtV+WTJN8HxhMc/6q4 HyP5PohsNx0+vF5O8n2Qp3bVoNOmnOT7oFNRuOZirpTkb0CCrGJah2kiyd+A 9hGGn7ppy0j+BvRotyx8pX2Y5G/Ar86nkVP3zyL5G3BmcJa9fcE+kr8BPX9l TR7dGUXyN+BbnL9v8+QMkr8Bcz5k36yo30ryfXH43M8XVtxCku8LNJ5Q5A49 RPJ9oZsbwqs12EzyfXEt6LLy0tckT+CL7P5fnttmMfy+WJw/o8pkaArJ98Vr /m7uHvtzJN8XWpUPXzh60HOOHzy/7bo0at82ku+HR5OvDN5jdYHk+2HeVcVV mt/SSb4fvPqr7P79Wkjy/XD7j0OxjdYVku+HEVvSvZfeIf+U+yFrgHP2856X Sb4f3nxZ69ou2Uvy/XFiTZJGwJ+dJN8fd36aHdvF30Py/bHPeOe0o5m0H9cf J82HPwwuOUjy/ZF//dcHhbtHSb4/QtfmrboXmUfy/fHLZuHe+N/FJN8fZb3n 97lXQvbjBKBybVpQyGrCoxOApaYHBtVfyyX5AVBZfFxtdwa9zw3AdK1Pc4Mz jpP8AHytPzZE5/hVkh+AYXN7K1cqrCf5AfioYbiqzIL81xSAhXdnzc2WEh5O IAzNDfWblMJIfiDcE7Oi24bS/gjEXg2fVwd1Gf8Coafdq0ImJP0EgVDsuce6 aH8JyQ+EhkhNO+/wFpIfiPHVLkcmTSgj+YG4fTDLPvB+BcnnwSSmf9LzTbSf Gg97V67RTN2cTPrwIEv+mLm9LOu/tQEPod/q2j0ukj7goTP4XM9Vlmf/W9vy UP3vivf5rN2kLw/7Jru2qtTF/rfm8VB5c3pxbUQa6c9D68n6sE+xxPd0Hnp5 WvAGTqZ4zeXh14Cg318zSH4hD9mpO0qilE4QPh7qVv+Zep4T/N+6lofYLT3G VR4sILw88HJffDjLp3hr42FYwOfByUXM/kF4c+dJrm9rKeEPQv6Z0aNeVBE/ dILgeGmZxqmVf+b9hz8I/k+PHuPMJj4gCOu/DHYarU35yTYIqr3W517cfYDw B3XlK3lZ7ViyBy8IFl+n/6y+RfEqCMI6+UPLe95k7/QgmEx1fXxi3kbCHwSb 7tU73d8RvsIg9NrpFqa0hfhfHoSFe5/o971O8VIbBOfzZu+DPDcR/iAkf954 bkx/ire2IKgvco1ZKyN/c4LxafS916ojiJ9qwdCckj3w9g7SXycYvDlLZq+U U3wZBCNz+bOkogUUXwjGhIaGz5WrCI9tMLr1b+/To1VM+INREaq1bN+iHMLf tV8Cd1eJB+0nCIZnRKv6W5cqwh+MUws2v+d8YvksGMN/jdp/oIT8VdglTzr5 njmH9C0PhppN8OmBhZSfaoOhMdw5JNDDgfAHY2Ln8PiczWSftmDoSUp2h06j /TkhGOFwdfPsqVRv1EKg5OY4MUiR1johGJfzW3U0SH+DEAy4cPmQ7SXK5whB w0nhwTALhj8Ed3Sfp8zSJD5zQ1CeKTsUM5RH+EOQs1/naS8n4q8gBAp3jc2K fHcQ/hDYbN+/ZHo52Tc3BAd33ohdUkn5szAElS/WiXomHiH8Xfu5zz+1bNZ5 wh+CWml/zwebThP+ENQfk2c4a5G+bSHw3KI8xGQzy3+hCDq+pqi3OdUftVAM DT58zLO2iPCHwuPuo17v7Yk/BqHI9Pff1zE2lfCHYqbvh89z/ClebUNRuTIw rbcl2Y/b9f69MI8pDeRvXihm+BirvnQmfgpCcSfr3aOF+rsIf5c+eWumP/Si dW4oWu+sb7vXyfwfCp2+X/WeDgsh/KEYH+/2u3E29W+1oeh2dJV3hxvhawqF tqPb/fpRxI+2UJzRbffMViH5nDB8znl9RXUPwx+G4jGqdxSeEF90whD4Ybp9 9tpLhD8Mp4/GqXoepXyEMJzKvr83+zH5w7brfU1PpVa3eMIfBvPM8LumI8h+ vDD8enYu5mAb+VcQhvQ6yYD4NPJvehh0+w5p3ynLJvxhMF5n2SdIIZDwh2Ho mIkhqUNuEP4wfMi8mTN4q4Twh+GQpk+3CAHl/6YwKOvGHewppPzTFoattW8q x+6mNScch3f9tqidm0/4wyFZt0B5YCPVB51wzPuZNfehJfHXIBw9h3wZee1+ HOEPR/oEhfx58wmfbdf67f2R8QFkX244ekx+VhfuQ/mAF4726v79xFYkXxCO gPzrI64kUjynh+PluGF1HsaUT3PD8Xy+X6vXH8JTGI43gbMejdzH+otwrOmH 5f/iyd+14Zizs3HZFg2W/8Mxmu9jNGOtiPCHQ/7U+wn+l/8iMMhghN2pfrS/ WgTeGUu7z1pO+VUnAoeEk/rNyqZ4NYjAtupBR0ICyd+IQJn94Y19e9B+thHQ vGFodM6Q+i1uBHYkNeYEGtL7vAhE6yvEeuQFEf4IyF9MTk0JJ/und+ljZtI6 5hPhy43A8a3q0iWdToQ/AksuqH5d6WtL+CPwdI+x99bVxJ/aCOTHqPZbXHqR 8Efg84+WUVeXUT5o6/r9nMJWxT7EFw4fg5zVukeNoHquxodVS3nnX84Gws+H /s9Tv4dWUD0w4CP3VsD8t0v8CD8fN00n5RhuJ/vZ8tFgwakXyFi/zsdijejz Q7vtJ/x8DAsWRy+NIL4I+IhfUHCrTEr5Ip0Pr2r1iOF3KF/l8nEkd9+lR+VU bwv58K6v4M3+QvuXd+nXaST43/mglo8Bn6u6nbxK/mniI/PDQ9ldC+rv2vjI adzXWTF5AeGPxIwUl95+xyoJfyS2pngJ12QSf3QisfjQLKlv1U3CH4llvyY+ X/aa5f9IvJSeD3meSf2XbSQ684M2V8dSPuZG4k7h3McvzoYT/khYRHzWHevB +vdIpD1pdzTkkP3TI3H35MHznv1onRuJk9/L9l5ToPxZGAlJv18hzaO3E/5I 5HzLK9ZXpv6rNhJWt5qFi2Xkr6ZIrA5TWl+cS/Zoi8QFbZV3m554EP4ofOjb 59y9bMrfalGIbrEqLA8m/upEoRvXsONGNcWDQRR+TpgRWteb/IcoBNW5Tj06 m/p32yjEFpX3fHSJ1b8oGL0f01DkQ/bgRaFvn6Hfb3OJf4IoJCw9riMXUPyk R+GjmXSXbj7xKTcKPaTFfX8covgpjMKp76K+DYw/5VGw41iv3H24jvBHIf3b 7X5NHpTvm6JQf2Bzv+gQire2KLh+UR4meUp85ERjdfm1qXmnyD5q0Vjjd8T7 zzCqxzrR2F7+sladR/FoEI2TDjU/LQrpvINoePfa5MWPIvvYRiPINm+//l3S jxuN3zuvLLRXpOe8aPR3n9nwoy/1o4JojE8pPzKskvRJj8Ye4zMv8paz/B+N Ga7Rsgd/KD8URuPGma/80ceIj+XRkEQPUm6VMv9Hg1fc/9zcz1TPmqKxuGaQ q9IBAeGPRuNM18cjR1F+4MSAy112SbmO6ptaDAyaj7x6Y0z1VycGpxryuk1M Y/U/BoMaPPY3XvAk/DF4XOiyWXsm639ioD8zTjtPn/k/Bq4HVAz2H6HzDC8G 5++H6fJCCI8gBjr693VmWhBf02Mg+ppa/ULlEeGPwa3c0KJjQ+l8VRiDopi3 ptXd2fkuBn28Dq08lEz2qo3BGZudu6KuUL/WFIPGZ411HyMpf7TFoOqeaXqs LcU3JxbjeuqNbDxP8yC1WPwaaqu+OekM4Y/Fm6aJEXZv6fcGsRArDliVvoji EbFoMavbfug91S/bWFib6J5NTSb+cGPRvsF6t10N9RO8WCj2trhssYP1P7GY U+9RUXmd8KTHwmSH09D69ATCH4sfn4TL9CIpvxXGQtNZnn09j+5by2OhPtPK GlrEz9pY+E7vv3dkFKv/sag2LrG62Yfiqy0WOjuf32/pZPUvDk6zEpO2BrL8 H4dPPSZGLFlE/bhOHKysJ/Ht3rP8H4fAxjfvb71+SvjjoPjp5v6dL2meYBuH 0woOmVuc2PknDsXfFGx9r5N+vDhoFdSYLujD/B8Hu/vzHH1UKD7S4zD6wKZm 52MU77lxMNC+fkdsR/1mYZe86sinLypZ/x8Hwfmrx1SM6PxWG4fS70XViW2U H5vi8KDSSMX4AeFp63p+Jr/D+BvxhROPiyq+r79l0flLLR5jzcwOxCSx+h+P s2tOcH5vYv6PxzhLTfHAIMKDeKw9Jdd1/cv633gM8p2Ak/W3CH88EkyKN/Yc y+p/PGrb++jx2ln/H4+8iA0aGVNY/xMPr9SsTWbFZJ/ceBxcrFHkNJfip7Br //0+D5u7M/zx4Bjc5jgGUTzXxsP04Odg4TvavykeLvYTHDb/pPrUFo/8wXv1 K/VpHsARYMDgminaH2n+oyTAwaTUJV77q8keAiwb9PVgoALNkzUFKDUoL7jj RHzREUBt1ifr896Z/631BHi568jlWS7EZwMBmgNCzCwvUz4yEkA6xab4yT3K VxAg32lT899dFJ8WAmxdsXfR/IH0vq0AnVWWGxwmk38dBag/9CSzxZz05Qog uv8hyUeX6ol31/N3ne/n7PUmewvwwl87et8yymd8AbYYmr+b+JXmgwIBeB/L Lv56T/lYLIDsn2HtRHV6P12AMo/fcfqRpO82ARZXceLmsf4iV4A/wbN7e48L /W+dL0D7YmufH9f55C8BtK70POATR/4o7dIvst/8pw4U/+UC/K3cNTxXhfSr EsBvgpvy2d2UX2oFOCtSzeqmQ/jrBTizJvWP3Ivs3yTAFbs6C40zlH9bBAjc 4HIrpz/5r02A+4Ncy44FUH3pEKA43MrX5BXxi5MA1UG3TWqtKV8rJcDjzeEr qW+pXqglYHahv3JHJ/FbMwFrr/tVTPCiflMnAQbKV9wOtFN+00uAU3GF1doS ijeDBOz7ox6yr5nkGSWgpmHwsIIcNl/r2m/yoNLwU/R7iwTIVAc2D9vC5ikJ ULHqDB7wguLRMQHTVj1bbDaV7su5Cej5ROWC3XHC550AbbMdmWebSB4vAQtf ivMv9ad8yU+A1VLz26XGhE+QgOq8xiMt7pRvxQnwXHR3nmkc5Yf0BEQ8aRwz 5yv1z9sSMOTYiKyJNWzeloD4kJgV1/WJf/ldz99+Ctn2lOpHYQJ2K9w71nCU +FyagJsLKv5JerP7mQTUCepeXOr5gPzfJW/9wR7mUvp9bQIuJs6seHiD/FOf gD/3t5bMCmXzvAS0T3l15BGbP7Yk4JTrlPEjiilftSVgvpbqHq/C6+T/BGSv dFCQL6H6xEmElll/4azlNI9TSkRta3BkXl/qL9QS8fLSm+YbHwmfZiL65qW+ mGFF/tFJhIqW25Bp+pTv9RKxdVBn88evND8wSMTo1wYu73wpfxklonDsxAtz xlA8IBEzlh0yXzqPnlskguciWK4QQ/JtE7Fl/9gvWinkT8dEnChRm9r7FuHj JmJfizB0YBndX3onovhMyyLvdtZvJeLjPrf940ZTvuYnIi/4W0ZnN3b+SERM tsPG2TLqF8WJGDD2xxSXP6weJ6LIc0JfzZRr5P9ErMn5t8Jfifib27Vf/LLO q0Npv/xELDl7+4lOAOvXErEgetyDNjMW/4kIvbRWPCuEze8SoXzhZ9xhVUvy fyJU05pN/0XSebm2y95q/j9fLqZ8U5+ISbaqbzhDWX+fiGu+uN3QSvJaEhE1 Njdc6y7NJ9q67PP5/dIpPyhfdCTix/HqGYcqzMn/Qrxzdx78hUP6KAmRkyBa N34BnZfUhGjr7q57LIP6Z00hLHsG9zuSTHzUEaLsS8Gih8YkX0+ISdNXDfX+ y/pFITJWxW+pnEfnSSMhXBMcNnkEsvmhEPtsFugtvUD50EKImd069GQZJuR/ IYw9p36/Y0b7OQqRcqz5+4oyOs9zhegw4MdYnSS+eQthv8Q56pk2nc94QqgN Mfpp60trftfvLRyMbX0jyP9CzDt61pTrFUD+F6JzTcQT+2yyf3qXPCNJT99k ui/aJkTTo9PXOZbM/0Jsm356glYE1b98IdbuO34x/Cvlw0IhlkuD+RYRVF9K hZhf8TYlJJDsVS7EOJsjQ7750H1TlRCbpwWc6sHyea0QvTVU9mjuIn/UC6Gu dF67Tp3s1yTE48X77yx9S/q0CPEmsWx1cz7lr7Yuf96009s7m/TvEGLMYW0H s8Hs/ikJsQnLy1/7Uf1RSgInWVx88jvZWy0Jx0TBxjeEtNZMwuLM7XbdrOh+ SycJheMyB5yeS/Gll4Tpd1+ap75j8+Ik+Jps+2zLJzxGSdDt3rBA9yXZC0mY /Sz40pKZdF9ikYTzO0q3GyfSfYhtEmrV3I6I2PzSMQlW0yLj596m/pabhIuO 0rRH/ai/8E6CRcHiVesyWL+dBFP1jwt/F9F5hZ+EsduuFa0uY/cnSZh6/Fmh xleqH+IkrJa7z9ROtCb/J+FMk2Vb1R46r2/r0nfePe6g4cz/SbDJeGsdvZnm zflJuLv9kiS7k/k/Cdfyvg6ddYX5PwlvjpaeEhZQPi1PgktiVc7JA/PJ/114 VUZf6dmP9KlNwlXFtclTLlL81Cfhn3GOTrsN2acpCUqujjcLRRSPLUlwbt6j oZZF+rYl4dXD4vsHgqhf7EhCPxuP9hF/2fw3Gd4LpTubAwmPUjLuf45WMo4l /qglI9nM71+UNfFVMxlrNh4cb2dLv9dJxuAdJtfTfWjeqZeMEU9EQqkp4TVI RkuLIEcxifAYJSPnd2Hx+7DV5P9kaA849X5XIfHBIhnjcnzMRzay/i8ZJnxv lQZdymeOyRj4d7dZdzE7XyVDenXlo16LSJ53lz4dS1xct7F+Oxm/pzjGt+QT //nJuGWtc+KBCfFJkIxgndbfIflUz8TJcNl5unu3W2Sf9GSsaurpcbuD6tO2 ZDysn7h5416K19xktK/zmXvrINk3Pxmzxhv6uJvS/oXJUPY6nfHWnexZmozi O69njFGl++byZGx/oLxxw2mKr6pkPPl+V3O6lNa1yQi9ue6aQSblu/pkGB+2 N3+/keZJTV37HWnlJalTP9ySjOYvKheTXNm8Pxk71mlrZ6tTvHQkI+jZyKOJ ZpTfOCKsDIgdsIJP9lcS4cJF798KCygfq4mwyXjBOz9v8p+mCJ4zNi2+NsCZ /C+CZWa5lZEf2UNPBO/2ZPuLtjHkfxFScNrl4Uo6HxqJMLlOLVjYQfghgtjm tdXHxVRfLEQw+Xt7g9dJsr+tCF86FXx02PnZsWu95ffIcTks/4sQ8POnZy8u 1S9vEZ58UPWfMY/6A54INyw35/rwaD++CEsPvLbgebD5uwjXBukPrT1BfBGL ILF/vEBmR/1gugj7+VNqPr+jefU2EW7aRL+xnEbrXBHsa7bNtl1G+uWLECrv lTCulPJRoQglh3yGTOxNz0tF0D0VJepXTfd75SJkmoYaFubQ/V6VCHXLI1wb Gtg8W4TpMScexS4h/9SLoLRa6+7rj7Rfkwj1B3Y4XLek37eIEPJGe/vBCzSf ahPhQcDO5OcdNK/vEMEv5IbRtwU07+GkQPvzzPoeDqz+pyBm/olb000Jn1oK 5vnrD+15gvKhZgo67zdmv1el87hOCla9n5Jwq4zsqZcCWeK0XO5Mup8wSIGi xaJ3w39QvjBKwfT1AdtnvqF47GLHgLmTzh5ZTvFtkQJ+jmq3SfeJf7YpWCd5 c0r1F53nHVPwziP45gZf0pebgiKVksqav+Q/7y59T3yv+DGHzRtSkKzmZHA/ n+KTn4KeQ0+mKj5j89cUYLhP5/Y0Og+IU2AX9jj6hiH1W+ld8iZti+0cSfOB bSmwbDb+lf20kfyfAs/3d/r6iik/5KcgsdefjQ0/yV+FKVBPGaav1Y3my6Up yJj4uXV/G+Xr8i57fVwx+Fwz4alKgVmOS+feOIqX2hR4RewLlA6j+5f6FPik r9u+8jnVy6YUfJowc6emMvWDLSl4NTxa1tOf7NvW9fxRspLBPPpepSMFw/d8 qXp9IZr8L0ZbzZIF/X6sJf+L8U2W8eH9C+KLmhiS1MGnddxJX00xhpT32hD7 k/yjI4a6zZhnGp9Z/hfj6OXymmdFdF9lIMZu79Sn431JPyMxdqqbO+T8Yuc/ MUZs+iJMF1F/YyFGzNEy+cRgsretGPscLtcIMyh/OYoh8I3qsTOd5s1cMd6t eup2/wH501uMw/nLDffyiE88MRrsi58kBFN94Ith6L/0sKniOvK/GJmnS+LS nej+QSzGiYQLfVXyCH+6GP/691/mzPqVbWLkf4t+uYLd1+eKYfpBzfHLSjo/ 5Isxa8M0i5/sfrdQjCXjB62suULfP5SKMf/5v5iWWtqvXIxjZ/zCkqaS/lVi 7FHyPFrP+vtaMZIXpbgeGkL468XQthBd4J8j+zWJoVzsWubxjupFixglT66U OMazeb8YBZ552ilTQf4XI+JoVojRasq3HAl+OYwovR5A+VJJgluRnX5x1ivI /xJcNtP1lbD7Q00JPHoPDpnZTvGlI4Fn3Y4JwRfoPKwnAe/s49oXbqSfgQSp az9caD1P9clIgiRn/hplG+I7JJgTk/H6rj7ht5DAbtznkiwrNk+UYEH6ivmq 94kfjhLUlOfNOXqb/MOVwF8hN2LkVMLvLcEbjSEGn3WIHzwJXONkPccvpvsO vgSSqOnooUjzYYEELy6fXS3pxc5/EhRNDku0KaHzcLoEi16EFsgqaP6xTYIM 9S/tGjeIX7kSCJ7Ub1g0kPDkS7A6tMzmkgmb/0hwU64xVzaH+utSCdr/ZcZY ufqT/yXA4oEyqQ3pUyWBe+TB3x6P2X2uBDrddxasvEX9dr0Edd7T4ncFkX5N EswrknNvJtH3Wi0SfNHo7Dn5Brvvk+BI8d71Z5aS/TskeLVvgfaYWWz+n4ps o1onzdOUL5RSoT1I03xdLuVztVTkL++VmR9I8y/NVBh0zNjprE/ydFJx4daR C1l2NC/TSwV/t01TxUSSZ5CKvqYnFva7SP2tUSpuvrDO3NrIvm9LxUHnVSfq iygfWaRifqUjwuKpftqmojo8cO3WWFb/U5EuCDt1yoLyITcVcRkpprWGVB+8 UzFHuOfwp7Hse6NUDG7wWxLCIXvwU7GzZPKJrQnEH0Eq3B+N5eqpRpL/UyFJ yN7T0kJ8SE+FWBTo2K8H5YttqTj79fOvm1XUD+Wmwufg4tF+Syk+8lNRuWzF zQpTdl+fijzFWall4ym/lHbp/1BuHj+O+F6eiiV6mTrpGXQ+qkpF7M7S8RWX KH5qU3FtiLJ7zkvib33XfsOf/ghg57OmVHz/bh/z8TH5r6Xr/a+1Q+tiuOT/ VJj555SKWih+OlKxd1GcYamI6iFHir5eIY7an9j8T4rwNoMLe5n/1KSwk488 vvwR8UFTigENQ4a+Xca+15PCtbLTZWE0q/9SpIT9LlIwpP0MpBi15feSLA6b /0nhe71CYZAPvQ8pSovFHduiyP4WUkT3EY05sZLix1aKGX2LNghXU3w4SrGm amiryTTqp7lSFEzML9MdRvi9pdCuP1Dx7AKdj3hS3OlIvepcwfo/KWJ/7F93 rY59PypFxOqHv9qaqV8VS2H1gT+tTJHdx0lhNKKBOzeYnf+lONy44Ellb/Z9 ghQtGqtalAxZ/EsxWOPBkNYlY8j/UtTc6Z4bs4/Ob6VS9CrkHYqoXE7+l6Ko eoNb9jXic5UUH4T6wtAaN/K/FLtL1v6acIP8VS9F1sWjb1buY/MfKc5A5nVx qx35XwrN+2vu21+mfrxNih3cm4LJMaz/lyKtrNrJ5yzNqzkyZO9uHOISQPlM SQYnmUqPxO8Ub2oyrPqqmn7tFZv/ySBZ/q6b7xrKPzoyLNZe++KkM/FVT4a+ 60a+GqhD+dtAhvvBF1p67yf7GckwPbH3q5AV7PtaGa6PCTl3poX6YQsZsqyb N8WUUzzbyiDdLLcLa6R4dJRhqb+Z2chlxDeuDE3Du5ume5B8bxk6au9lv7Eg eTwZWorTH2gPoHzCl8HabtmKmOc0nxXIsLIxI4tjTedJsQwb6wYcVDlG/WC6 DHbPHqZU/qH5+zYZ1Ksa03pV0O9zZehX3X20VgHZL1+G6JaStwcVSL9CGSYX DRbMdCL9SmVw0xh5Re0m8atchsvXOQMGz6Z5VJUMyyyPqJc1se/5ZIhZ3fK1 0ZLiob7LfrFfy4MOsvttGRLHKx3+qE/yW2QQeaTW29VRf9Ymw0ntCInGcepP O2S4FrJ+6aqZtD9HjjtrmxQqt9J5TEmOMbfDvn5ayu7D5RiQmGBrfZn4oylH D80jE1avZd/HyaE8crLtRhfqH/TkUFJ8+HDsGOKrgRy64q+745woPozkUL8l fVx/m30/JseESa8OHFWk31vIYZ9/PEc7ieLTVo5dLvKm86os/rv2nzFn098X VE+5cvw5em2OXSTNN73l0D6zU7Mph/zHk+PKWUXrl9XUb/HlaIq8ublvf8Iv kCOreNTA4IWUH8RytH4c5lEl8SL/y5GYtUPyopXkbZPjx5rfv/WrqR7kyrF9 9Hl+zTnK3/lylGx5XKoP+t6hUI59l0WF4+yp3pbKkSmIPGy4ifCUy3Fy/Ok+ im2s/5PjWOFTy6UR5M9aOYS2F5ad8SN89XIssitpiurGvm+SQ+fqz7aTAuJb ixy9fhzN2dSPnf/lUNWbm/j1BfUvHXKoyUosdtrokf/T0DF26v6jKyj/KaXB 1GmeF28Km/+koc1Ey/3WE+KvZhqKFy3ghmtQfOuk4eLEU7zBM1j+T8OxyBM3 J+UQvw3SMGHi94XHL7L+Pw1mHtWNU8KoHiANvCmFk8f7kD0s0mC5/N78gi30 3DYNYV9a59YVUbw5piE2rWZIvwOUP7hpmONWXBxrTfbyToON9bvDiy6x7w3S sMNTPGetMenPT0P03qRxRv7EZ0EX3shXWXqH6HsXcRrUTzYfwHlW/9PwqeB7 6H1ndv5Lg7XGwLvXa9j9dBrSKs98dLVj+T8N7ucMRNdcqD4XpmHMtQE9YiLJ v6Vp6P9ZYaMCO/+Up8HO6q3BYTUX8n8a3jrUTFAop/NdbRpinoblHs+gfqY+ DUsvdFq/L6V1Uxqu59YbaPWl+76WNGi7L/ERTKH4aUvDw7+66htOEL6ONLhl jfkQWcK+f9iI8BcaIf80yN9KG1H41nLP8340/1DbiIFNDsY/n5P/NDfCVT1Y SS2Y8oPORuTm7XRUiKb5qt5GDEsfFqFqzr4X2ohPho80jbjkX6ONKH5kWHA1 nvl/I9YsNHpQ8DTN9P8ALEGqBw== "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.004583333333333334], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.004583333333333334], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 1000.}, {0, 0.9988716084092298}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], {96.75, -59.331262919989896}, ImageScaled[{0.5, 0.5}], {180, 111.24611797498106}], InsetBox[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.004583333333333334], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw9e3c81e/7vyYNoaneFS0js1KpVM/SkFJ2SjhWSDj25pzjOA7OQVulkpa0 TlubREohJVR0GkpatND8+j0+1/3rnx63+3Xf13he677u+4zzCLL17qmgoNDS S0Hh//3/v39t88UnE1Usuw7Mpz/AaN37puooNlaCxsYm0Sf3IzRWRfuOm/Z3 447SeCjKDi9UVV+7k8bq2KavanB+xyEaj4ZeaqWJoiPbTxOnx6+09vU/SOPx EE15wr1Ve43GE3FszhM112/ZNNbCNJXg+9ooorEODJ5lGmRKS2g8GRHfm2Kq 6vbSWB8pzq1fX6yV0dgQos5PFYM919PYGJt/FatdSRLQeApMOdXzGr8z+lOh EH/meu3eHBpPg17a3F+3LQ/T2ATPTvxrV/bdQePpSHbZv+/CNybfDKzUSI79 pnSaxjMhzXToMSSD8WOK6snFWuNWptJ4Fu6bcF6Pr8ik8Wwc0R0w+8NgJu8c lJboTjyzJIXGZnjRb7XgqiyXxnOxJKVfVsmuZBrPg5Xx+vFWSy1pPB9+Sx/c X3CYyQ+U+s47k3uQ5OcB/7jxoY7HGL4LoBK2JkFcQ/zxFmD4qy3yb1FnaX4h fgvPW+qrn6L5heilYpcZsorp3xzVd7v+ah0X0rw5fmis8va+cYbmF6H3lh8v GuK5NL8IbeodvCFeBTS/GNYH5uzQ7txP84thpZjXNs5rN80vwdVv7Ys/+BMe vCUIqGnmjVFl9rcUWf1HH4hUyqP5pcgf87b1SHsazVvgwNFnU0cHk755FpAp n1+2RMbwXoYenxaNlhey9cswZdf5tMOnjtG8JZQ0ti3eaxdC85ZYN1H34tXr 52h+OS7PnOj75D7ZA285rCVBKtWHmX2sQOOkMX/0JddpfgXiLwZuWb6V0bdC 79XRT2oN1tC8FR659UkMMtpK8yuR2pDh5qDEp/mVcNq7YsiSaXE0vwo9hYum Tgxj+lmFgl0DV8TYMn+1xjqDhTbWmWS/sIbkYteA+dWX6XtryHp13avQI/0X WeNPnIFTS+hmWm+DgrFvy180baf1NuBLnp/8aEP+zLNBy49xHRMPE55FNmhd 7LwhVYvZpy1GLar77/3VC7TeFuNWXpesKWD2Zouv4v4fZl+l/YtsMaCv057F diye2OHj9pX7qqVhtN4O5221Vh6/TPR4dnALUnov77WS1tshWhJv+7WR9KVg j9zSyrP/9Sf/gT3eXlX33yFheNtDsWjh88nraVxkjxOmWUpLaxh9B1ROHxOx 6AfhBwfofzeyE2qSffIccPbR3IQVe0m/RQ6wv1v/QzcxntY7Iuxi54mdCfQ9 HJHErVSPTSym9Y64aVa3rF6f7KXIEYPMGj+/nM/8ZzX0jzhvLlcie8ZqHD+V prtCOYnWr4bvZ1P3JxEJtH41nox52dVvEItHTpjWELH8xRkRrXfC4GfygxsM mD87wUQrvCb73HFa7wT3tn+bbSJm0fo1ECnF5zm7Mf2tQfWayKce/hm0fg3S bzeGxx4LpfVrEOJfd7g1g+gprIXHD/1rj5I20fq1MBBVRi/0ktL6tTh/sDSm QkL2UbQWFo0K+2YOYv7jjJITE4Lva5A9wxl9Jo5LmONN+uA5Q816kGOZ5zZa 7wxJoeSTyZVwWr8OKanfbpUlUjzDOoza15aew/IXbx3eqvj4HbQgfy9ah1dZ s++0/2b+54Iqv5GJxUoUz+GCRQ+baudZs3jngi+TE16d/EjxrcgFQbEW2kl5 zH9c0W7054CeE8PfFYMCeoUX2dI8zxW6j6+l+IYSP0WuOBKvFj2ljq13w49Q pbAeYUx+NzxRKdmpOsSY1rvh4NncQIk68VvkhvgJR/Z5m5F+FTjYFuwUkbaC 8NbkoPcy95C1hpRvwcGlEQrTtaNpPYeDizMH/JZtJXo8Dt58H6BvEUT2ncvB 566xGmGa+4geByZzNrVomFA+kXPwMXu1xtn++UTfHf7/PLQbF1P81XSH+63v O/UaKH/AHdqedyqMl5USfXcYQnVp++hLRN8dKst9l/xcJCH67vidvXNG5yTm L+4Il9kmfG4i/uTuMLBrq+6wZfnVAzn9iy89WU72q+kB7qPcM1+UCG90j0eG fy4LyCL6HjhxJuB1qx7ZC88DVlUjjpUVnyD6Hviu5LAt0Jz0W+SBN3MGJAlr iV+5B4JPLzt8fhCrHzxRcPVgwM1I8kdNT4zsbApLOknxFp5Yua7Zpvw0zXM8 kX3eWa9mF7MPT1jMOueq/J7yRa4nTu3PXi/PIXyKPDHu9K3KK9cpfsk98Tpt 2LUh08gfFLzQ0Xpx2Oive4i+Fx5G5c/feJLwghfcwm9eT5bQmOOFgtBzvrNL 04m+F1b8WRl36GYi0feCYMzQwUN+M/17wezamC2Cs+S/ci+Me2eYMKxqF9H3 hoH+kOmeJmQPmt5IdTRyG3yC7B3e6Ew8v9z0DK3neCP+ZQ+LNw4nib43zLM/ BuZe9CX63si59fxs+kTmL94I/DI09+074lfujZmL/bKPu1B8VViPt+ek2x58 ILw118NqqW2fD8qEJ9bjx8DrkZI33kR/Pc7NCNP7o0H5i7ce+Z1ZL7omkv/n rkfANpfQuZ8jiH73fn+mRGdnkH7l6+H6Lam0pz2zfx8oTnSrGpZD8U/TB97V kWeMx7F87IPt6xz2FaRRvuH44EXlgQML/mPx3QfSrZd9ynaTvLk+mBu+8lZz EdlrkQ9y//u85kQp5WO5D5Jlecu0vVk97Yv4Jct2bXtHeGj6QlE8t2BBDLN/ X2yPHnUrN4biOccXV6o3DLywYQvR94XLwNZ/ympkr7m+uHrWIHH8a5KvyBcj A/gvZUaxRN8XIw7ZFZpJGP5+kBi+evc+i/DU9MOf/wyD8ko+EX0/aD25ZKPz 6wXR94Nox5ASeekbou+H/8Zo2y6zaib6fqhd3tyr8e5Hou+Hp/o+eoqlz4i+ H9oODDe/20XzChswXNHLI62Z6GluwI8x3kdnL2H0N+DIJ40zA2xbiP4GbDp3 yWPYt89EfwOe+IkPV4vfEf0NmOUo7VtgQvNFG9CQW2Om0Ur05BvgXZjxb8Ey Rt8fquJ5tcUaxL+mP24Kp97JHkb04I/Z3oY6HUwejj94dr72o4a1En1/jBhu YzfqLqPvj7gEwYScIOK/yB/zvIy/Fg6k/eX+uGYytue7BJpX2IgXH39sfzbh A9HfiNWl/V8Wh5C+sREO/eZmfe1D33M24n2XZ53GDhrzNkJl68Axe3RfE/2N sLWyNh3YRvSKNmK0ND9lqrGc6G/Ea53+R5TmET2FAFzr39AhETL6AUi7Hfyz 73oaIwDGpr59XNaRfJwAHHudo+KoR2NeAPqNkT2+upD0lRuA3z0FT2aF0rgo AAd2n76i0fSW6AfAvsx7Yr/G90Q/EG4j9PVufWb4B0J/UEVFwXaaRyDU+u27 YxDN8A9EXn6jh4EWs79AWGU1zG//95LoB2K/bpVe7H6GfyC+/KzYWHuG4R8I 6freAyaV0HqFIMRdC/OoWErfawZBMdLEs9qN9IkgqJ7ackCSy+gHoV0Q8HtK EOmHF4TUaYrPpK9Jvtwg1KiYTNcS03xREBJt7/v8/kr05EE41e/NxoFTXxF9 LnT73Fl3sZzkVeXi4/q+C2PvMn1w4VR7s1dLNe1nzIV6tt/vox9I/+Bie8zN BR1FD/43tuZC7Zamj8lC2o/DhUS6yu/aZJKPy8WxAfol54tJHzwuWn+5fZ6V QPJlcZFWJ+sxM5f5MxdzxpdVTbtE9GVcWFhxpHqM/yIumndsrT/pSftXc1GS Z68z2JL8Q95N3ztz0NpRRK+Ni4dD+2mWO5J+FYKh3jH1TF0y6U81GHWb0x+c qyT+NYORPP6uofo/2t84GFMHCftMnfOc5A/GiZvvVo28SPtZByNA1ebTNFcm fzBqTZF/2pzG3GDoawh21tkz/w3G36M7fnxPIX1nBWPHOrsPTx4Qv7nBKLoT U9YUSvRlwag3u/nhXifxWxSMXw97dUhu0n7VwUiNc9bZ94zZWzAmBTQf2hVF 9NuC4bF3SdAHAX2vEALn97PX/nhJ36uGgL/e0Ut9E+GhGQLvwz6nhrLvjUNw 2CegwDWL6CMEZns+j17iQ/ZgHYIf3IV2l1exeBGClVo+Bot7EH7cELhV6pqM MmDyh6DZMuuJ9DnpM6t7HL55ZI9VLJ6EIMNBtHLWlcckfwhca95nqiuy+B6C Q9YXz8zvR/SqQ6Dyt+au3kPSlzwEjTv23FmsTfTaQnCv8nyTWIHJH4rFV9of Pr1H61VDMXn31jv5ecz+Q/Hh4YXTDp1M/lCIOjYHdfRi+SEURzydlEMeMflD MXbLUL8TVeRvnFAkBm9yVREx+w/Fqsk7f9dNIHl5oRjU2eVxroH0kxUKQ+nh a5OGsHgWipsHEnqdGkj5SxYKMz3/O5/CWXwNxdTkdiWt5+QP1aF483y6+cP5 5SR/KD4X/hyScZjZfyhqeo7Fokcs/oWh47P6Ho3JFL9Uw3C0/dSRlu/Ev2YY vk77lTc7hr43DsO2tKTs6aFM/jDYfVl2qTmU+LEOw/DSN49zzzP8w7BzkONP rzyShxsGqzhl9QJllj/C4LkwukX7K+2fFYaf/452THpC49wwuHPLvv0aSPqV hWHUoF+lES4svobBu+nW6FPND0n+MMSvH2MjUqL18jDkDauzG7yM6LWFocjX nNM6lOW/cFw1eRFWf4jJH4684JQjA38SPc1wWNsWqPVsJHs0DkfkkZrEmBss P4UjMzHQxr6K+X84ps/TGbdfnfjjhEMW9WVebivz/3D88a07UWFFY144NHxS E208aX1WOOYJ5tX6v2Dyh2PS/SKrmwnM/8MxY3PF46Wv6kj+cGz68e362PnM /sPBrYlsn6PG/D8cl55/a38VQvy2hWNYnOlrhZ6s/ojAli2p6lPdWfyPwBWb ZQ8e1ZG9aUbg1Hanhe9Y/DGOwIerFWVq/WiMCERqV3AtfWh/6wg4ecUW3zNh 9UoE9gQu0031Jf64EVDc0Nnh9p3lrwh83Gly+WogfZ8VgQfOyg+NE5n/R8B2 ceAjQSyL/9301iTUX5nK8nsEfm/iz9YoJP6rI+Cwe+LRvvNpXh4BQzMrE/UN DP8ITD5oVmx2i9l/JPTlB6F0jMW/SOwKfnOqpT+L/5GYu80jbkYfsgfjSBw1 5VYtVyF7RyQWXxvsM/Mokz8Sx5592Rz8mfjnRGJkccWVAaPoPMGNRGv4ojOW Uax+jMS2obYt1cuZ/UdCfaJHm/7oGpI/Ev20T1x1uMfwj0RZczhPuYnZfyRq zYPvV3xl/h+JM7d3hvlHs3ovEilLt7Y/2kzxsy0SQzQm9P9ryOw/CiWCgPTI FopvqlGwNGnVDsth9UgUgt/8yRlZyvw/CvOaLeUVYoZ/FKbMtzL8FsPkj4Jv oeTPthvEDycKSXL95MFGzP6jsFrZ5cAYR4Z/FOaUSsTJTSz/RcG5a9y9mEyW /6JQ2Tl4S7IX4SmLAofff2DmGoZ/936r7/xddY7G1VHQ1y5P08lh+EfBUXuG kWkbwz8K4dN8z+V8JP4VotG8PfGAcBDVu6rRWKT7ytyro5Dkj4aa5Qot9/N0 v2AcDa+E6JawItbv7F6/d5xjj83Un7eOxraaD59r9en8zYmGkfalnLdR1I/l RqOn/MrOBw/pfMSLRu15d6uO9dTvyIpGVj7XYXwBq+ejccD89sDHrL8vi0bU 0TerPm5h57tufg0v3by3gPoJ1dEo8393yKecnfeiUW338Cb3G53/27r3f5PY a8wg1v+PQfiXm4/zPEle1RgEDK5cvFuX+X8M9K7Inp16TP1U4xhkHko5WTqB zqOIwUe1fe/PH6D+gHUMgkLaBmbbU/+bE4OUhT+MJPn0PTcG2+XxHYJJ1P/j xWBUn5LsxnbSV1YMjqhd275uGZ2Hc2Ngd3nntxb/MpI/BktWT7Of7cD6wTH4 5DduQd5r6l9Vx8Bi66iXfH0xyR+D0Q7Dkr3GBJL8MQh5daLJ+B/pQyEWd56U N/ZuJn5VY3EtVDpzcyKdpzVjsXmE3ezDvSjeGsdCZ7b6n5/3Wb8wFh1/Xt58 lEH9DutYbHjUeDfNj9ZzYtHH6U+9MQhfbiy4Y4vX5Saz/mIsvnlx3+Xlkn6z YtHj5uW6hfXUb8uNRan5AJPDPam/I4vF82//6ozML5L8sVDf8+yI1X6Gfyy2 DRr+qXYt2as8FgvKQ6OvSej83RYLtynb7+x/yO6f4rBec4HS4ppbJH8c/myX Li/SYP2AOPzzHHhj8VTi3zgOvZrvGitHeZD8cfA7HrrVsPwqyR+HAzWrxs52 pu85cXim2PswZ+sNkj8OtQ8PFUfrsfuQOORHHCkr/Y/sIysO799fvaz5hfpd uXF4WzJ+2eVrj0j+OAz93mAf8JL1t+JwpX3G0JO1pL/qOPiazfH7VUP9CHkc 5t5w/2fhRPu3xSG0IGabjdsVkj8euu1qR2KOUn9bNR7zAvYMf7SR9KkZD7sU 1S/8s3QfYhyPKwuK1917Q/08xGO7x6CKYVeo32kdj2HvKp4evkX648RD4eWc LF4vZv/xWHvioECWSP03XjzEYy8uc35G/d+seMxeqXP7igPdT+TGY3quSs73 OPJnWTxWuuheOCSgeFMUj0peS0cpu2+pjodrSf5uWRHFV3k8lDztqm8rknxt 8XDXMHo5Yz35j0IC/jtbcv3mG2b/CbCfFuKjyqexZgL2fTKerm9E9m6cgM49 G60sRrD7jgRsEBzYPX4X3ddYJ+Bp+esDk7qIHicBH/l+4+QRlM+4Ccgz+HVp aiTr3yWgrfxKlOUN+j4rAb/mxqwsPlRN8idg986xizq0aX9ZAqaWzEgs92D9 5QQoy3dJ9bYw+0/A64IFPS+dZv22BIgWfbTb8o7wa0vAgV5ahiuy2H1zIirX blrcq4j6taqJ0LFb4jJiLpM/EYfV7y2DEtmrcSLcLJKKXsZWkfyJGOL8eNxk Q7JH60SoTp9lq7iJ/IuTiNMdx5dHmZM83EQ0L016+nQY2TMvEc/mH0x70pPs ISsRfuefHNIaQffPuYkoiRm3QCoge5YlwsZezyeqgMX/RFyqmDL7XMhTkj8R I4SWHf2bK0n+RFw/GLgpUc7sPxFrAriSG/HEvwIPbZrvRu8ZTP08JR6CDO7u ivOlekWVh6LLMxeEVhFe6jy0tMSOLnBm+uHhxNFeKrOb6b5Fh4ceLecazplS fjPmIb3QN5rrWfG/sSkP4vi2bSWVDaQ/HpoyRrnyPpN+LXjoq7prxZlRtN6a h/eqMtHe98S/Ew/rjXvZbI8h/Dg8uPWec3vQG7q/9uXhJeeD7+s3/qRvHv5W ubb3mUDyRfFwz35LtF8r69/yoPhk0dS4TKIv5qFraqdjrMoGwoOHiMuXnL5e PP+/cTYP/ao23X1rSPafy8O3vcLPO5ZH/m+cz8Ojosb7ow/S/ZKsm9+H0ZNT Guk8VsjDBbuchdrN1L8v4mHGq+bqUXNIvnJe9/m/S8Mjh+47qnngVOsHnt5K 9331PIT1+hPzeDP1r+U8WNVk+m1SIH5aeJj4Kn6x+TZm7zz0PHLK4sVg0lcn D9HTBBeDqtj9OR+lLXnXlX9QPFTi48UeM76SF/WXVfkoVjo8+lsa2bc6H0uV 6v5OsKd8ocmHc8D9lNZoqk90+AiIuBFr1ofikzEfK+eqvw4JJP5N+Xg92nyc 637WX+bjgjSuanoJ5W8LPvRmj/fWnMD6SXysuepz734kxVMnPkxHip/6v2D+ xcfEUXuWuemS//vyYV85w8E2m9XbfKx9sm+X5BbdH0TxccWhbOLQMXQfyuvm L1i3Y8xtirdiPq73Kp8/bjP5WxYfDkp9VA3/0v7ZfOgHK95YeIfwyuXjm5rO /d1fyZ7y+SjjNFys3E/0ZHzsUdIvKNCl/FTIx0irNdsHG7L7RD4OKS6CfX/S TzkfzevWrd32lvJ7NR+JAsWQFcfI/+r5yHxeZ2X7iuxDzocg6KH5mgbar4WP ezNls+50UP5t48NwUc/CmVKKJ518HF08ZLvHUqqvFASQLSvKuf+Z7FFJgLwz uaObtJn/CzC7JdPFZhHZg7oAOy6sOO3xgOonTQHsdi876qpB8uoI0HtWuKmO N+nHWADPtXeL+b9In6YCTDEv/KOSSvEJAmxbfsXlw2qyF4vu/Z8MrDLeRPJb C/Du0IVyfjbx7ySA/jFTI6UXrL4QYFnNaUfbRtKfrwC7NJ4Hj48lf+UK8P7H m+0L3xO/UQLUn7RvrNtD9sMTQGow1Edyie4PxQKUXHdcbTWD1aMCREze8/BD PuW/bAEu/R293Vab6OcKYK472urfGKrX8rvltTaafjOL6iGZAD6XVb97+pD8 hQKEBwQ+6J/E7qcEiB+t7b8oZSnhL8Cmf+5Rjv3JnqoF+CjKuNIwneJTvQCz lvQsbHpG9OUCLEr90HSonu6LWgTY2/o91yeO7jfbBOALU5+KfSiedgpQxa36 9nHFAsI/CVXT5kz9kEv7KSXhrkFTuZIsivBPwor9st/XKui8oJ6E0/7tqM0h +9BMAv9m7ViN3ZRvdZLg3WfONaE2y5fd3/ulDrEK8iL8k+C+tHNtkA87PyUh UzVaudiN9G+RBKvVD9QGPZ5G+CfBWGdowbNPFF+ckqC64sKKtna6b+QkIdLn w/ppC0m/vknI/jJHc44t5SNuN/8VigWeNnQfH5UEUdxZ9zGvAgj/JMSvysob PoPu98RJaNNYce3lZNJ/VhJmGD1JMT9N762yk2Cj8sbZ5ybdn+UmIcX265Yz w+g8k58EQW3XaWVLlq+T4DpNe3PjZsrvhUn4PWOKXr++7PyShMerBc7VfWh9 eRJ6nuMJZxyn9dVJWL/rRqCeWQzhn4R9x/KPz4sg/5Un4b/874Vnuhj+SXC6 UZwWqEX+3JYE/aU/X/5aTf7bmYQhta5fXCzY/a8QA3N80q0K6X5PSYj5qtUv 00+SPasKMfLcxKZSI8JXXQjf8UuXOsXSewZNIUyNPefb3WbxX4jzfJ/mghLK N8ZCHA9pfPn7AOUbUyH8ZemeIiF7byJE7eSFbYui3Qh/IbwGP5VpB9H+1kJ4 Lu0TuVlI+DkJsf/driN/I9l7BCGapvOX+AnJ332FOFS/b+9LA/J3rhDXcxOV 6/jrCP/u7/dl9tKJI/3xhJilOeVL+kfaTyxElObJJVv+LiT8hci/XDpp60yS P1sIB53d4sufqP7KFcLFWHvaSHt6X5QvRG7saqljLTuvC5EzcO0xxd2ER6EQ 05pyDk9TJPsqEmKw+7ChY8bRe5pyIZ6sCSpvX0rxs1oI8/0rb8sS3Al/Iey7 rkRcU6D6Ri7EvZ+Pq1paGf5CjOjrqT+vk/TfJsS4/NPTzm8n+p1C2Bysyt2c xd4vJWPkm1WimASqp5WSoX4gYdv0xRQPVJOR1bFT0Yi9J1BPhpPXLjvnYtKX ZjLEIsccx4powj8Zxzg3mo9PJP0YJ+O/d98VNF0pHpgmY82S7+/297Un/JMR 7OSmJm8i/7JIhsp0M7fWXZQvrZOhHXNe8UUM8e+UjHuDtA3V+rD3GMl4P6Dg w/RCsmffZOwVLHq4/wLFa24y8t8GfnRTY/6fDKP2iecb2tj7omQsVvnlpTWJ /E2cjPnnrJLmWFG9mJWMuZa3J/VXofnsZPyee4NrMpTOI7nJCOQ8i/liRP2G /GQ83ROZtOYP+ZssGafC+27f3of0VZiMo82v2zXN6P1XUTJOX+zNP3aR+C9P RkHd8WqehOhXJ+PJ9ejSvS1Un9R379dPPvPVcHpvKE/GuLT/PrS6kT5aklFc dVZhlQPpsy0ZO1qOvRi1geh3JqPu0NQ/6gvZ+zcRbmgFOxr0Zf4vwtCStduW O9N+qiKUbmq8V7uU/FddhCPi5ctdGx0I/+7vn0/S1Y0ne9YRQVf36ohtXHr/ YCxCTL7q87OHqD43FeFyQJVF7SaK3xAh88SArgOWZM8WIvhsbH0WmEP8WovQ vm4u79Qo8mcnEQp8DsvNrrH4L0Ja0ImDxdfI33xF0N/qXDHwIsVnrgglJmp1 qmEs/4uwKX/H77JGsn+eCJMjflufnEX+LRah2f5P67MKquezRNgRuyK5mEv2 ly3Cr3a5fF4Ze28hQs3JN5EZDdSfyRfhksbkKKNlFN9lIkwMnhUpcSY8C0VY e7uXzcI3hE+RCB8+D/nCX0Lyl4uQfqr37H2G7DwvwrqQmPkf9lK8qhdhXtTq 598Psv6GCDODIjWHmpH9tIhg0dT/mP978p82EVr35WldWUzydIpgOG7InAEu 7H1tCjhnbJyEe8k/lVJgdWLTe6MCFv9TsNT2cNuqEnPCPwWvZg30e7CYR/in YPCVHqaaHaRfnRScfruuTVLK+oUpMP4YMEsmp/hkmoLCQZteXj1M8iMFXiNs Rgz5x/w/BYduqZ3bupf8yToFWldCrm/7RXg6pcBa6UVRswfV45wUFJ/rsWL7 ZIZ/Ckov+8etUqV4xu2eX/Zoe6U/1RdRKfDTe96amUf48FIQ0KP6qKsq5Vdx N79KEWrlKqwflQK72dt/7+lF54XsFPwztVX6p8Xe+6Tg2OXo9NQg4i8/Bakp Fx8mBxBeshRkhl1SGa1L/Y3CFLyZ0nd3Des/FKVAzi2f3aOSxuXd/G4wCHhv RPSqU3A3/d2b3h4+hH8KklyWRyeEUf9NnoJ2+4dbOuaQ/C0pqDnk4BjpSvi0 paC33ZQxma/pPWBnChQmm3uN7GLvH8VwGK99CjI7wl+Mk+3nnRb0oHiuKkZG kkOcEat31MXQm/5FZCCg+KApRpLe/TG+4VQv6ojRNerMz2mJxK+xGIOumuoZ zye8TMWYNExU5rmIvW8SY+4UkyqxDunfQoxFor4btswh/q3FkGbnWRpoULx1 EuOP7JeV+gj2HkkMHTX5DWd32s9XjIfFK31fBVL9yxVjedDD17s+kD1HiXFr uu70tn4cwl+Mod/M6zhPKR6LxThaX/1Mu4XiV5YY7uGfXIP2EJ7ZYuyX1MvD n5J+csW4X3W24vIQivf53fT2BJV1WhHeMjEO9I96qtqb3r8WiqFcUZN+9iTV p0Xd9DWO99orpPhQLobukLx9U1bQebdajB19BS+kleQP9WKcev3GJVuT+b8Y bgoGd7dZ0vqWbvxCNo708KbzUJsY41s/9SvqN5PwF2NmiU/DqHR6L6eQiv6u 3KgZBmTPSqk4st/m17ssEP6pWB344Fb2F9K3eirMJriWnFRl/eFUOPetmPFC keKfTio+V+5yjbCk+s44Fdarwrt+zaX8a5oK7yx5cqMPxVOkItOgckBbDMUv i1QkXPqTPvxmMOGfiksxhs9TDlK+c0rFxj59wtdl+xH+qRjauHZNmhXh7ZuK lHMTEy4Wsvo/FX83VDovf2dN+KfCJOOB6SBNsl9eKsZqfKqLT2T+n4pz88Tj K4fRfU1WKsatWbDCfSPL/6lw9Kx5d+s/ki83FSo3Jix2fkX1RH4qwqyLLM8v p/OSLBViQ/5n3y6yj8JU7N6ylbdW7kT4p6J6MXY2bCV+ylOhNHXLuXnK9J69 OhV3M4Ia2g7R+ak+FdPtN9zvm072KU+FvdTy+7Fk4q8lFQWrqmouzqd40JaK MRsf75wYRfm5MxVvk87mxrN+okIauqbqKgyeQ/lBKQ3nHnybseQ8q//SUFF4 VSnmDcVT9TTESMb/LTNh72XT0Hpqvp1KM8UPnTR8uFqgfkuJ6BmnYcKvwZtc OvUJ/zTobc33L9alfIs0+Ao94o+10vnLIg0R6/c9a7Sm+GudBuVHBx2ODSL9 OqWh/UfbZaMg+j0EJw2nLy17cKmM8odvGvov2jPKewDr/6Xhyoma6pVlZK9R aQh2Gev9z4Dsn5eGpav/NkywZOe/NEzecu/pXi7Fs6w05B3K+dm4l+TLTsN+ bUOznGTiJzcNKx5blZ11Y/VfNz+9FcRnsghfWRpOLBwl2Ded7p8K09DhyP3e 1U7xrCgNdn3vHrgfSfmoPA1NOYEL9ZzJ36rToC44a2V/gey3Pg1TVO5uGePL zn9p0No3vcRnGPHbkgYl+boXl8ZZEf5pKL9+3y0hjeh3puFj1zPz94Xkjwrp GL9q7+27geR/SunY3Ffqd8aV9KmaDk7YfbWQPeSv6ul4zRv2bPxkWq+ZjgD7 hhcaHWS/OumIXy49U/qP8DVOR9vS1+PrJbS/aTqcdxsPq/3L8n86hDpuTh/b yb4t0vHCrNh/qw75j3U6GkKrYyOt6XundKjFeryJ9qV8zklHr5jLdfcOUTz2 7eZv7oFtfCNPwj8dLkM2XNjfTvqNSgf3/SStg3vIvnnpcOrr9KemmOKJOB2j rw6ZElJB+GalY6p5yqifK8nfstOR6D6i8G8pO/+no1Wr98NRY0m+/HT4TH22 17ivGuGfDntEXBezerkwHdb85ceUr5kR/um4UPUgS2ueK+GfDqWTXVd/j1hF +Kfjqnv/yOgbVD/Xp2P67FGl3/UZ/unYUHCrQKJA8bolHQt67VQwY/y2pWPS LeVB7qmEV2c6ch78bciIofOkggQxLcu7SjZQvaEkQXSwzsTr/QlvVQnOfRFO lG+hekFdgs2NXWLVJZQvNSVw0eYcahAQPzoSyB8ciX+gR/HLWIKBA2btsvWm +GoqgZ00Y+BuNYo3kEB4vzrghBvRt5DAZobt9wMW7D5Jgurh7ku+TKV630mC e0/9lk6bSfrnSGB0cepRn2KyP18JxnhucdDQJ3pcCRb2XbEqpAfL/xJY7Jha 9K+G4hlPghvfsnXShpF9iSUYudDKySCE/CVLgk+31+dF21J+y5Zg1/BA/7Jf 9J48V4KHXjNXFW+heiVfgvElnxUGK1C8kUlQJXSo2bOS4kOhBOsS5/t8O0z6 KpKg/jrHY8k+stdyCSCf9UzUn76vlmCy12AFFzOar5fgwu7BHucvkf7lEszX O2I/rYHso0WC3rlnb2jW0LhNgvbAspt2HXRe6ZTAVyfy3PBa9vsRKdL+ur29 P5vyrZIUNRKtRem9KL6rSnFU7/Ju5f2U79SleG+VYb1zTRDhL8Xs8jBzj3eE h44UWQHbInlmlO+MpRCGFsY1PGH+L4XrutUp865TPQQpFuzi7LLUIHkspNil k9ohKyV/tZYiYqiJY4OM4qGTFLdHjRtzy5vVf1K0Vr0wOD2e8PWVws3FrVIy ivDjSqH1YkGL5S3SR5QUQ7fOlZZtYf0fKS6fPb6x4B7tJ5Zi7ISmRUsSbQh/ KUJVT25u+f/9PymSvAQcsa4t4S+F/pPmMzxl1v/t5vfrlCefZrL+X7d+go6r 5OeTPgu7+T82oEmF/V6rSIo/lV1GNZHET7kUK3u3vT5lSfZeLUWfL3N759VS vKqXIn6COOtrBuEnl0KX9/J6u4zGLVKcNfl6mONH8bBNikPKIb6vZtL5rFMK uVSxSkM2lPDPQNy+9447zOm+SykD82XHKoasonpKNQPJtw2VL3Io3qpnYE3d Jk9ZGPm3Zgbab7ok9NQl/elkoLh2rD3uEn7GGch2WX9Izn7fZZoBLbUHoUaV pC9koOnsLdGfEHb+y8BIY9mJnUNIHusMjCvO7Nr4nvzBKQPDQwtvWdwk/+Zk 4O3RM7tmuJK+fDMwaOym3aIosjduBmJLsjYoRpP9RmVgRVieVY8D7PcTGZgp eDp77EvCR5yBO2dtNneKKR5lZaCH8rDCKUtJ3uwMuP522FdWTPvnZiBgZE5p uRnDv3usGe0Te5bigywDKzVl2mer2Pk/A/l6pk/LDJj/Z0A1qXOkouEywj8D 2oeluWdGUH+sOgPqmX0K+HFUz9Rn4Jvl1Jqcy5Qf5Rn4ZBcWpD2d+vstGeBO izA5foPOQ20ZONi2pL/iTZKvMwNLlnqtG3uC3f9l4kL9b8kXE8p3SpmQlUSV xrN8qJoJ8dG5v3Z8pviqnomGh1prf40g+9bMxI2Doy8t/kP+opOJ6N7xWj1n kXzGmRB97j+j8witN81E/7NlX7e8Yb/vycS+wtvbzPtGz/8/UNauaA== "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.004583333333333334], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.004583333333333334], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 1000.}, {0, 0.9998894609316983}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], {290.25, -59.331262919989896}, ImageScaled[{0.5, 0.5}], {180, 111.24611797498106}], InsetBox[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.004583333333333334], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw1W3lcjN/bHtn6RgqhZImSQoSQSJc9LVoslXXSYipl2qd9pnVmmqnIEpFk KbJkj8jIUimkUFmnLKVCIRXR2/v53Y9/fE7nOeferns59zkzYdtOezcFFovV 2JfF+v////ev1azf7qc7Rp8uMKM/wMF1ZHzurjwaK6JUu7xlZhMzVoV4z5a3 TZ13aKwGnjBOK1vhNI3VsfKI5pSO68z3YzCp+IrS2b6FNNZCv3d3Y55czqXx RGQIBy7qJ7tFYx3Mihm5PseLmdeFk9KnrBsfZTTWw9aCD/qtqxj6U8Df4ZWu eyiHxtPw1vtmAnvpTRpPx/hLxVOCFgTS2BAfb3fbSsJTaDwT+dfjSj9HMvvP gt65/4Rlg07QeDY+RUy6EtRwmcZG2DOqrTLh2FEaz0HqXteX+9Ov0Hguarfr 6kwSvaDxPDwympD1MopZbwy1eyd60l4fofF87Dxs7tJifYzGJrgYufr2oDxG vgUIPhG3ZUt2Ko0XIpnlmPlCcIbGptBpvrFsovkeGi/CsZ13FrinO9HYDMIv PXmBRkE0BrbIy0+tVSD5+YD0ncggevN5ml+MO2MNHzZvyKD5xehqPDTjTP1j ml+C5xrbMt8YXKL5JbivPXDw0aM0Zi1F/7aQ69yraTS/FG5L7pToH8mn+WXo L19tM1Q3guaXYXDT3wcHeq7R/HJcCJI3zOaR/fnL8eqJU534K6OfFVBeO33O zHVkL/4KCOaVfnbRZ+y1EmE5q7JCWIQ//kqYmG1vMP5vH82bY/Hyj9EzdtB+ fHOsPjJs9xF1Zv0qtLyyW2D16BTNr8J5jsFm32+MfBY4aaB2tn//OJq3wOq2 8tRBCox8luibOaVKvo3wx7fEmhF+q6M1GHtZQbP+671+c2to3gqvtd2cbh24 SPPWqBFP9B9ku53mrdFRMCFdeedxml+N9ozCraz9hAf+ajwM/dCj1iOieRss jVnVzHG6TvM2mH/q1fTo9/do3hYG1S0p46tIP7BFcHaD5cY1z+l7W3h+PH1l mIjwLLNF9dTKpatbGLzaYegNrr7po3O03g5duoPfNBsSXvl2MIOgzv8SxROZ HXLWTl61aOoBWm8P4RPnc0tqKR7AHn1WKr4Y9voQrbdH2z+tkfrK5F8yezws KTp99CrRY63Bq3GBoyf/iKH1a9BSbhpzdQzpj78Gjel/zz4v3ETr1yB0xdm+ Vz9Iaf1ahK04H3X1ZjatX4u6vuLUvxlnaf1aXPEecLO2P9GTrYX790uzVi68 S+vX4ZjLfd+dw0herMOGJCcjfjDjD+tgYBbA67lL+JWtQ0Pxour5NUy8WQ+v H52L9LYx9NejTGzxUtmV9uevR/juQIV/BqQf2Xr8q9rfvmb1VVrvgD1Rn3Q2 6pB/wQGL3EwKRUw84ztgt+1YuU4qyStzwLhs7b+Kikw8ccTPq/xPy8/spvWO 8IgIMFnx+Cmtd0RG3opslYIiWu+I8XO1NVPDzWm9E3IdvA5xXSmewQmPjB+9 r+AcpPVO0Hvbzzp5P9lH5gTFFNfnmh8Y+2+AaazfzKJPZF9swNq6AvNvg7No /QZsGMAt+TuD8CvbgMS73F12YiZ/bERlQ0brvEvk/9gI06grS+tXZtL6jUhc OGDssVTyN9lGFJ168vT2glhavwma3eedH8gY+21C7uGDv8YuJXvwe+dLk4Tt HJqXbUKwQPozzpXxv81I2r3M01ijitZvhudA/dE3tSi+8Dfjz+RvP3/9iaL1 m8FuHb1rkhXJx9qCwyq6yrKzF2j9FuhdmRO3zpHB/xZMCJhgeqGY6Mm2wCo+ eg8qGP/bCpnCABlfQv6MrThbn1+pNMeM1m/FTsVpIv5+Bn9bsctSaV2eP0Of jY/O9RrtydX/G2uxIT/g8UXeSfEPbGyWzt5+oo3yOZuN7NkbRe8WMfhk42Co tN3qPuWLTDbUbte7rehLeJCxwRUMzf98mvQnZ8PubR/rcfuZ/OIMcaHMeF4/ kk/LGSFn2IOeqBA9OKPG/KOvZeUDou+MMYP2Dfb3Lib6ztiZ4ueZvY3snekM fc+oqy2JjLzOKIzIX90zheK73BmBeVP6nOkgf2FtwyPt2xO7wyj+aW1DfL9V 6j2hDJ62YdPYqY6XFGh/9jZEJljVuC2i+oS/DRo7H7mN/Ej4zNyGBdHKGtcd mXi1DQ3X3sZnm5UR/W1ov36o3pKhx3LBqY7i+DfvCD9aLphpveZB6xAmHrvg +Qcrt28FFH/ZLvgZ4BASuI3qG74LxgYLJXdfkf4yXXCEu0z805HBqws8YdGo 10H5S977/Sltzq90Jr+5YkTHj8ZHN2k/LVekpGTNaN9I8ROuGBV3XfeF1W2i 7wr9OeFZyZ8YfLviZY2OheMaijeZrtiRLv9ysJzxN1f03aI2f+tHspfcFbk5 bTus05j6zA0Lf35OUxzJ6N8Nu8pztpXMJXvBDfXP32or570j+m7Qr/JJLVrE xCc39Hf77PH9XSjRd8OswQdHbzMj/mVueHssdPKVLLKf3A1tjoam9gEUz1ju CNVw23p4NOFLyx0Bl4dMXnGJ5uGOL5/3JUmSqV5ku+OxscsN1UNMPeOON23F +twciveZ7li6TpB4kSMm+u4wH2+fLbhB/iB3R3PaL2vZfcb+2zE9Rc9YLKV4 o7UddRPz9uMJ+Se2I7PoQfRLN8o/7O1YneX3eLQK1Xf87bAQrhgYNZDwnrkd VsrtEpQdJvrboR33ovOTB8UX+XZ8VzUVOD9k7M+Bx9fhK1kVxL8WB8OkJjPK NAiv4KCcnzfqhRnxw+bgok1ywxMjph7iIOyrQmPTcuIvkwP5eB9tlWukTxkH De4l8X1GSYg+B/vmF78ubiF+WB7Y6ru08NzZSqLvgbTZFyMvPGLykQfupv38 6VZeTvQ9IL80ZeqrDxTv+B4Y+t6t6b/HRC/TA8qigvelgYQfmQdeZ1f2zHCn ekbuAXHtjxrNF0y97gm+5srTK+oJv1qeOLRnj5egneJvr/fYK5xZNv8P1W9s T+wfnTuyeSvlP74nXnelSfYMIf/I9IT+ZN9N/IVCou8JkyXtDj+3UbyWe2Iz T7ToYB5Tv3rB795VYbYV6VvLCyedzC28xjDxxwshUFe630Hr2V6YHGZYcK2E 6mO+F2rLrwXbK1K9memF3PVOs9YvSyf6XtjwurHK2fg+0ffCKceMQ1v37Cf6 O+C+2P1hRy7ZQ2sHJplmHM7nVRD9HRj2fNbvz6sJT+wdmCvXP+Lwndbzd6D7 wp0hf6wp3mTuwCjT4aXXspn4swNnp3TOPz6V/FW+AxVTX3g56TH1rzfe4Kyr 03fCk5Y37rUG/dk6msbwhs7QBL/6IVTvsL3hUZrL0VhO9STfG9UHbw0ZeZXG md6Y7mfxuNaGqVe8sckuetXRNIrXcm88y3hzec8Rhr4Ptu81fKKizNjfByXX /cvOXmbirw+u+G39e92Z9Mv2QepdgUq0TgnR94HO5PnrqnZRPsz0gX3R3niX izyi74NDC82WNJYz8ccHXv2Vze1PE15YO/H5yIm7B9cSXrR2Yu04dmPti1Ki vxM2j+5dH/ud8MDeiX2D3uPKKMb/duLw/sM3X/xm8s9O/Pv5Yq+mOlOv7kQq R/K7qYzwK98JzRSLOToqTP3PRVROjUHcTsrHqtze/JXCnf+T/E+rd37WzKau PZSPDbnILudsTC8mfYCLGZ8CsFUu/9/Ytnd97ow+xRqMvbgIf3Kyj/lJOo9w ubj0M7D+6ibmvMXFAZ/zPxpLCC8pXBQdSc8O7mb8iYtpeJ/jU0n1eB4XEk3b VZ9LyV9k3F7/LrrpG0/1XAUXZeteqqe/J/pyLibqDwixvEDxrpWLB1eino38 Rv7A8oWh6SrL7GeEH1VfbOixr7NTJnpavogxCTKsmKdM8vuiTtO6OyKO8Q9f NAVqnJ7CIX5sfTGZtWPZug7SJ9sXNRsqe96fp/zN9cVsVnOxpzFzPvDFRJ99 j/acoHo4xReHDvAqBEx8yvTF5Q63Hud7fJLfF9aLGhx0DxLeZL7oiHxUulGX 9q/wRVZX4drQVCbe+IK/5dOpwecIz62+OD6lZcWWi4QXlh9uWVZMP59L36v6 9VbQv0+YjSD/0fLDI9n7zWZjiF9DP/Qfft0p/zXRhx9Em92dcoxI37Z+eHxo UjCfz8QLP7AH+vsX/SR9cv1w+0YeJvwjfvl+yD6z6fhxD4rvKX7I6k5ZOW3l Q5LfD13m509MXPuK5PfDyZE/lfW+EB5lflCYGrglzIToVfhhxeLqlRO2upP8 fmj5fVzxqc0Nkt8PhyTmrTvfMud3f3zSTf951JDwruoPs+nbEm4UUnzT8sdJ JctdzrNJPkN/mLpv+nO6P9GDP56fvZe4mOnn2PqDteD615kvmHrVH3Nk+RPq XKi/wfXH+/822kQ9ZM7X/jhYbLFr+1jK/yn+GHzXzf1wN/l7pj9euZ72qL3y jOT3R1RW4boHpVRPyfxxRbW13qCR4lGFP+pm6Rid3PCB5PfH1omrN61tpvzd 6o/Fv0WGQT+Y+BeADd/m5WQPoPisGoBG2ZD0S9cZ+wegMOehX1c84ccwAEtP hNpdtiH9IADNHhdH856Rv9oGQNftpFC/cS/JHwCl36954XNJHm4A5pY7sse4 MeebAKQFZLzps5X2TwnAx7Ws7ye+0zgzAD4nz06y8yX95/Xy80PTq+0h+bss AAvfFXwZN47wUxGAjq09k6NcqP6TB2CoZt+sXQfIv1oDkDdx+MEZfyk/sgJh 2Ok7Z8cRRv5AnPj5IbHMi+KlViBS4new7zVTfDIMREBR4UENGdVbCATnoZr9 jO2EV9tADF26eO1d+0SSPxC7vmz68O896ZsbiJHbBp5Sqqf4wA+EXBV1yRNJ 3ymBUBg6yH9MJXOeCsSX0pmhmQMFJH8gbj99JX6URXiQBcLs6Ebh3ETSZ0Ug 9h3zvvrtwEmSPxCjRReX5/Qlf2kNRNGVPpWdL5n6LwimidXqY0H6Vg3CnZvL LW7UMvVYEPpWJLdvMYom+YNg51TkWzWF8iWCYOD0y8nmPOUj2yDYWyluiHxD 9T07CGOfqKqsHUv65wYhukHB50wY0ecHwfZCWO3cIMoHKUGQDjWZNnk02TMz CNUOWoNWjCD+8oLwaO1Yj/wQph8QhBSl8nFqXyi+VARB5UVGwIF51B+Q947L jiU7V5G9W4Owamht/4vZzPkzGEstj9edLKH8rBoMY80do3/PJ3/WCkb6q38X /t5g/D8YY9fW7em4weTnYBhUR6mc9CH/tQ3G7tv9Ki0vUX5hB6NZfWnEykFN JH8w9CQnQ1M4FM/5wei/UuvUmXoG/8FIPT66y1bvLckfjFkqRy8c4XuS/MH4 bZKd9SfameQPBixnSgpsKJ9XBEN51f1dc7eQP8qDMXzJt4S27jckfzDM992Z prmO6R/wsLlk7u/jm6n+U+Xhpoa5upYu1S9aPLxcgsMfDUm/hjzYTDQx8fCj fgZ4WJZXq6FfQPq05eFalpXpggTqD7N5eDx7bWR5KumTy0OwbVnu37OERz4P te+L9j1fv4vk56F4/5ShSbsJD5k8HP/tkG+SQvbO4yFKo8VwcBb5p4yHs5f1 hylPoPxdwcOU1bAS+1O8l/NgMmX6Qu85hNdWHtZxp8mT3tiT/CF4OnzdvFd9 yZ6qIbBf2OGtsf0jyR8CtVNNG/tcpPrGMATuE1TETY1fSP4Q9MnKHWe95hPJ H4K2TzdePzBtIPlD4HT+MOvWwm8kfwiM9v69vqaU5vkh8Cr3urE56TPJH4LE a2eu6v4k/jNDsEwvy2BlJ32fF4LSd8Ybbq8h+rIQPIs40FY/k+YrQhBoqtjS WkbxQR6CRp1Vyj8+vCb5Q7DqoMOJiReJH1Yo/v68ubmpleRVDYXFumtqtzWZ flAo8sRdr8zdKJ8YhuLynZM/PNc0kvyhCPCtUZc8bib5Q7F71DYv7Rv0PTsU v5rY4XI9qpe4oVhTfVlv4/ivJH8oBpyxLPs7mfwjJRQ/vFKXj6og+TJDMeNy 17qSmXUkfyhK9OvzPk9tIflDUWsrPfTkWS3JHwqxU5rr7e+0Xh6K4JVZ/r98 Sd7WUOisUtoyvILkZYXh1qeaccLbZF/VMHyt2RdsOYbk0QrDbcWZDpky8h/D MOz8Zs4u9qH1CIOkY6XpSlPq39uGwU73mYqjN8nDDsM9udsKnRWUX7hhiDfQ OKBfRfvzw+B34supxVWEn5QwrLfQPuBYTfOZYVh8LXvi1JU0zguD2TbpVFF6 PckfhiH67xa4WjH2D8PAWo6avID0JQ/Dr90XY1U+k75bwzBys4ps9UT6nhWO JTEh6Y8s3pP84WhmD/mTvZD0pxWOwI8erlYZZG/DcDy4tPjCwjOkT4SjZv6u qtMjaL1tOIondmvOPEL8ssPxbND61JMFRI8bDv8SowOKHoRHfjj+/MuYpqJN +kwJR+oCzoPbX0mfmeHw69O0yWr1S5I/HCvG/JG1h5M+ZeGIXzbG5uBwolcR jsPLE/tY5xE+5OEo/N4SdNCI/Ks1HGs4X65wB5K+WRGo8mZF29gw/h+BvVGH PM0riV+tiN746vzNJJT4M4xATHfCMZuHDP4j8CWt6NS860TPNgIJDba527sY +0dAgTXh/I9I+p4bAZ0lDSbHq+h7fgT279xhzQeD/wjYT+F98z9H9sqMQMkm 1Y9vr5F+8yJwOTH07/fv1A+TReBGQ0mI9k+yd0UEAtpNbnL8KV7LI2Br8d1B mkf7t0bggM5Bx2EviT4rErfXXlCb/4PwpBqJWWXme7rfED2tSJQ91PKpdaf1 hpFQ7/sg37mG6gNEImRQysMgTeLXNhLxo3OrOcsY+0dCOS3ngYY18ceNxNoS r6AbzP78SJySxE4Z2MXYPxJzJEtKWz+TP2ZGYlf77XsGGbR/XiRWdAufKBYy /h8J19OOgbeZ+FARiWNV5oOS9Ii+PBLdr48pTR5O9Foj8eDHkrz5BiQPKwo2 4eWnZ4hof9UofAsc9ypIytg/CiNaA5LCtlE+NuydP6H//eA04g9ROGYYe/0/ N8KnbRQqFr965JZA/LCjEONwqfDeF0b+KMwZ9+bu351kP34UBhXmffIMJnlS ojDd4FsZy43oZ0ah7/gDetjAxP8obPkQNbD2NSN/FDAxeGnrd7pfrohC++Ue jfPVxJ88CosWOXiNTaF43BoFNxePFwYPiB8WH92lw6qMmPsrRT5aeFOD9L6Q /6ny8fk5uyBNk+K3Oh9zQ49aF18ivGjxYXrW+93zjxQv9PjwH2GgEjmK5g35 sDASjBcLaGzMxw9bzc4RMorX4GPRqd/sMl3yD3M+3t52f7bmNMlj2zu+cfO8 bw7x78iHT+7LhLJYkp/Nh5Ng4Mk+UWQ/Dh9L+bv1f2Uw+ZaPu/yp/FwL4o/H x62hDQKb+Uz+4aNBoV9CxmraT8hHSqePesseWp/CR4hL92RLL9J/Gh8aPOdj vEPET2avPGNWZ+52oe9z+Khf0bPmwBoa5/HxpexhmNZ+0nc+H22/3n8QvGHs x8cBhWdbQuJoXMKH8+c7ZUrzyR8q+Ci9/+Guw0LSTw0fnqOfxAwfS/FLzseW I6+DjynRfCMfBWWXjrlOIX238rEpaWLdnMH0fScfQ+aOcFpmQP7BEkDeOpm/ 7jCtVxQgrF8fr9/XGX8QgOetoevhQPyoCzCtbkvrVzMmPghga1Imnhv+iOwv wP6ZoapHIhj7C1AqWJ79uoL0ZSyAr3pY6ZKrRB8CJD7amHhqI+1nLkBS5rtH oWaUb20FWL1W/Wf6JfreUYBoro3duUOET7YA75OXZ23pIPocAaaqHBidfZLx t156OUt1uhxpzBNg4JyLH69pkX34AsxZ932h93mSVyjA3AHyH573GX8U4PDd i9NSW0k/aQIYD3jNP3+asb8AzYe320/XofU5Ajg1X8gudmf8VYALtWPLj7mT PvIFEDT9Vm2sZPpXAhQ6HhmiVkj9jRIBWsTHv/3hMflcgFCry333jab4UyPA 8mEI2bmEOd8LMM4qXXZjPMnXKMDpYZJzjzeQvloF+CU80LUphuh3CmBZov7c wo78gRWNe/sKS3R20VgxGnu/deTYalM8U40G9/j3e637ST71aJicXGdSa0f5 VCsaV3QqFBZXk370ovHYWBqgKyV+DKNhAZuy7fcp3hpHQ9tJpf+1tzSPaEgK z6Zs7sfYPxoqd1T0ko8Rv7bREG8Sh3sOof0do1E/3bs6dA2TX6JxJHbo1DY/ wgsnGs2qlht1Q5l6IxrW8zQ9FFMJ/7xotP2znqymxNRf0dBYLhi1D9QPEkaj Y1/6Rq4R2SMlGm5ZqQafwknfadHYcuXt6exokj8zGmp37v16okD9jZze/bed FC1NYOwfjUPvWvzWsuj7/GhMZNv+G+jA9G965Z/lPHlsI+GxJBrKS3MiR36l 82RFNCJ9xqSbqdP5pyYaCjUb9efpUv9fHo11VWFXBpyh/nZjNCrMuB8vV1F/ ojUan5TvSxdNJ/46o3EuK6Or9JUL2T8GJheWXPp4muopxRj8binyclOn+3vV GPwbOv3tqJP0fkA9Bv185s1QDqR+k1YMBp84POZU6hOyfwxexCxtcH1H53fD 3v3/2ZX3fZpA9o/B7uP6Bn7r6TyNGDyf4e0ftpv6B+YxKNK44bqqxJHsHwNt f9GB1/PpfOcYg8SnU5/+SWL6CzEY9bT6/J1bpE9ODOa/nHntzUia58bggr3v /dNS6ofwYrDyQ+kyWyHzXiYGviP1+/+cRvIJYzDUa7dzSQutT4nBrFSDWaeb aJwWAz2/iGnJLcx9Xwx0lBpMP5iTvnNi0Lz8sXh5NZ1P82Lgs1r12vEKOv/m xyD2vZqjfhNzPx4DteFTFM3v0/1tSQx041U6TG/S+a0iBu+hOzrVm87DNb3j +b7OhYupvy+PgSgg7k+HKtmjMQZlbZXlCXuYfm8M2HESiQ+H+n+dvfq54DN2 ajXz/iwWA1t0R6ovoPO/YiyS+FVT9swgvKjGomNa+8gV6WQv9Vh8Lzk08juf 9KcVi5iZPP3VYyme6cWi7urp321sOr8axqKfav9T0gNUXxjHonvgyttmytQP Qywag64qLWinfp55LPKs930usKV+gG3v/sFnfOOk1C9y7OUnsvSk9QzSPzsW fr6vXsv6UH3C6Z1X6Fws1qN+GjcWT0UrFbX/o/cnvFgY7l3n9usP03+PhaPC 8rPOxsSvMBZoHdr2dzyH7B+LSK1FVfPYJH9aLDZ0J+7NXUX6y4zFzsYJ+Trd vmT/WLS2Gb1T2UF4zYuF/vwVQlNVskd+LNZ7Kn/QLGLec8TiVfUfM7eP9D6p JBaHSmK+neMw/cxYqEwbkLxhYzzZv5eeab7P/gTqZ8hjEXo8ddk0K+K/MRbs 2lc6Xb8ID6299royZ6S4lvqhnbEw/6HRs3Akc/8RhwuTdT5fsCN+FeNQZ2Ow LseL9Kcah/DyynlpbOr3q8eh3HVB4olTzH1hHO4ecj/R8In6j3px2OPR1ewu JPsaxuFEaLenQRWdF4zj8K554jP/0GCyfxxmLW9rf91E8c48Djc7a/zV5jDx Pw5h0Z37ZO0kn2Mcvqlwzh9XYO7D42Bhnr3RRY/458RBx8bOdaILxQNuHHaz 9yevKqX+FC8Ovr/abr+IZt53xWHQ3/afAzLp/CeMw5wFR410+5F8KXHouRyW OuYwxce0OOgmxvr94JF8mb37s8SBKoYUv3LioK1ud6phOPW38uIQ+mDLrwXD ab/8ODzpv5Fzk0vvKWW99PiNNUocsk9JHBpcHWq3M/iuiMPGNaH2B6to/5o4 5KddOeQ4kN5fyONQ32/ewvJu4qcxDs2h1Sc0mPc7rXGo/OU7KDGa8kdnHI4U NV5adZL6nax4fB8W+Gz2R+JXMR5/BozZYf6N6QfHQ+2Lr4qROt3XqMdDt/jv Gb16pj8Yj+Mmmm9vziI868VD/ttiKyuX7gcM4+E50DgkewPFH+N4KOyrr1db ybz36t3vw1OzubuSyf7xaNj/qsMujfRhGw8RR6M1w5Xw7BgPS+mrqnY2E//j MSF9XWVdDN1HcuLx5ntcm8NO6v9y4+HcOmqNxJLyIy8eKy+fHujO9MP48Xi1 /UTp/oEU74Tx6BjtPr12FL3vSIlH7tU5u296kT7S4tFXrUsyMoj8JzMeenPX pr3fSP6aE4/5qXbNxR3Ef148Djys+xpmQ/3Y/Hgk5Wts1B9N+UgWj8j1ejcz Guj+qSQeT8tDzpyqJ34q4lG8O2JKYSDhoSYeYfe6nyp8pPsGeTyU+vbE3BcQ vhrjMXPnDm2jgXT+a+21x1mB8vEIskdnPOpTone2P2H6XwmYt+KfESeb8pVi Ap4d3zvsgx3TD06AWGmu9QV/uk9TT0Ci7m+96f8IP1oJaLM2unTwBNVvegnw lrKzClXJXwwTkJbwomOeDfFvnAC7Hu1IsYz8EQnQLmCdiztJ+dM8AZg94tBu FnOflgC+19ZKc1+yn2MCOm+vLJq9js6H7ASU7LddPEeF8MFJQLh3djArieIV NwE6T8sjrtwi/+ElYIFr8Zf/OCQfPwHtFmPqPC9SvSNMwLKCBJ2iZoonKQkY Yn8yJMaL7vvSEvD7TqX6ky56r5WZAOsBlwMjZlA9lpOAvaOOPPodytxXJODD rtCQ70FUn+YnYHXE9LNNS5j+dQKOf67/UNBJ5+GSBNhL785v6aH4UJEAmYv5 n4ARFO9revU1e0HK1un03liegK6haW83t1F8bUyAiUFQhbEPc9+XgL9260/O eLKW7J+AYwjv7J7PvP8QYsZxUXOYB70HVxRCR6vi5dIRzH2IEH/ajtyKmkv5 W12ImY3//C5nkP20hHA5knx27B3yFz0hLI/VPOn5SP5sKIQkv/Nbvi7lE2Mh PgWElm9h/ANCbJ2k+9+ARNK/uRBHK4YOebiC/NtWiAH7Wf8NKqN47ShE5STv w4IE0i9biMKY9WNd7MgfOUJkFDs0sReQ/bhClLt8rHy/jPDHE+KXl87a++50 n8YX4uUxF6XihWRfoRDX947Z/Gsc6SdFCO/KAbnVcyi+pAmRjGnfHGcy7w2F 2CfMueWnxMR/IUK4jns0S8l/84Tw1ClIt3tP91/5QmSvZrva7Sb5ZEL8dTMv MdlH8bVEiG7Wq3LLRYT/CiFUUxrqno0heWuEqJvx+bp1PuFbLoR7YJ/m/Txa 3yhEu/FhUb02+V+rEPyr419WJ24g+wtRzNmd5tLBvA8XYcq165ytGRQPFUWo HGdk+ahkPdlfBB477YJ5DcUrdRE4Q8I5d+8Q3rVE6G9cevThJ6qP9EQo2XAi p12N7pcMRbA8XfZK+orwYSzCkq6lBufcmPelIji/bDbWOUP5y1yEcrN1p2fk 03nBVoTwqL2Hg1SIX0cRXNKGXDx7hu7P2CIMizkr7/YkvHNE+O4Qc31ZJNmH K8KY739EGX3p/TxPhH8T84ztbSlf8UXQeLtEa0wnvacTiiB+qf1rwT3mPkqE yXqh3sNWUf2RJsKDFp/ggqkkX6YI2/Yaa9VEUH2eI4LDkgr/j78iyf4ieLHW +38RkD/nizDu7qAv1h5+ZH8Rph217ZdTR/YuEWHBRdb+ykX0frBChC+l7vMN lGi/GhGMvGqPlJQx9Z8IhYMtcs3XUH5pFKF4TOYdDy3yr1YRCo4vXR+VSPm2 UwR91gtDk3Dm/bQYw5s6spPmUf5RFKPNM/qx/WSyp6oYpc8q/w1xIv9RF2Pe /ZmfVJPIH7TECFhslTr2Md1P6olx5QynXfEw4d1QjMDNPWfXuy8j+/fut3fo 002azHtnMRY7LFl4YgvZ01yMf22Xz+zKpP1txRh//IqR8wri31EM3wwN/xG6 pD+2GEVKnnG31ch/OWJIhwVZoi/V+1wxtuZyC9imJA9PjJ6S47qf9ek+my+G TfFglYvvwsj+YvztY2yyaA5jfzH8Pzm6HozwIvuLMdI3pqxSTHjLFMNpUnFs A5MfcsSQv1rf8fU6nQfyxCi/+HmT+yWK1/liPFxTZv/zPPM+UQzutQ+osKD6 q0QMi+fWOhGtJG+FGOaXLxe3x9J5pEaMheb/3ue5M+c/MW7wyqcHeyaR/cWY ZLN7TX8TV7K/GGye26u5xXR+6BTDromzvTGM6nVWInb0yPUC68i+iok4eSf/ 9dx/NK+aCIWVLcov3pK/qifiv9BHB1J/E/61EnG2dYfmsVtM/ZcI1qtzv/oX Ev4ME2H9ZklyLI/inXEiXr/VsVjdxLyvTMR4AyOdDCnp3zwR2RWmOUo19F7G NhHzjrVeL1hG+nVMRO6t6tfhUXReYCeisL6zfVwr4ZfTu/5Ohv6UNeFk/0RU a8/YpS0ifniJKJHvOXbmAvN7oN716QG7904ivAgTscj8Z358F3P+T0TKXP67 9FB6v5qWiCHLOlKT7Jn3romwvSM9JplJ3+ckouvf6dyr+npk/0SoKF4ffM/J m+yfiKfT14546kz5WJaIqZt9zyXx6H1xSSIMOm6o+rCp3qpIRHDd5cHCdpK/ JhGBH5QX/R3G2D8RRefe9unbQvG6MRHCoCWaY/tQP6M1EVmhRpmbjcgfOxMx bnOOwEyJzl8sCfJG/zeO9Y/e6yhKYBVpX/TMjPZXlcDV+LyubiC9Z1GXoGq6 tWrZIub8L8GJANPqwwMJv3oSRI36NadLk8n/Evz96rM6bQV9byxBQbWtRGUb 8QcJfq3Mlg9KoXlzCfr+/tX8l034su0dK+jG3MyleUcJhq0q3vC5h+pFtgRK R+/WKiQS/jgSDFTre+36Z8IDV4ILnec9yhh5eBJY5mr+d2o4c/6XYELfWYEV jfQ+RCjBhulNZX5q1I9I6aWnZrVwcAbl1zQJ3qwqPDz/D+P/EgxxHrrr8TjS X44Eog86x54+o/ooT4L2mQaX1peRv+dLEHDlhbTZnOZlEkx0dxIXRRDeSyTY s3v22PE/KH9VSHD1hVlVUSrhuUaCoKrPgnsHSD65BNqcaU+2TKd6pVGCQU11 kbatzHsnCfisBU+5Tcz5TwLfqz7TljDnPZYUgWVd6UtqKT4oStHme7nlljX5 i6oULi+vtcz6TfyoS3Fwgt68oa2kHy0pTB3G9Z1VS/bQkyKGH65zOo3waiiF wsatQ35HUfw1lqK/0X3vKcGEJ0jh01T8Zm4z6c9cit/bFnob9iF72UqROySn Lv4l+ZejFJzO2ZPj2ykesaWwSTZtTf9G8YAjRVfmvEkVMib+S2E5Wm6u00Px hifFX8O+zz9EMu+PpGiKTs51jyZ9CKWYbWdzKekG1QspUqhxFDjLbtH6NCkc s0rXTzKjfJcpxdgPNwum72XqPymcs34+/Hif8nler37OzWkM8SL950vhcObx 4h0/iL5MCuUbQT96mHqkRIp53R9bDZ6TPSukaFA/9uxbAeXLGikWTS/yX3iG 8COXov1FwqHHNbRfoxR38vW5n14w712kECrJNLnjqV7rlOJBuVK98jgDsn8S ztR1GRtvonyomISNwVUzzlSTPlWTENrBHuw9j/SvnoT6u1ZpRpOpPtFKQuDt XWXmMqKvl4SSnljryk1M/ycJY3bdOKmbTPIZ985Hqf0S32N+75aEU+leb+I2 EV7Mk4B0VvV8PeY9URLc4oMthi6l9Y5J6N4Ssl7HkPIzOwlDZw4eNnEv1W+c JMxeXLL4ngXhl5uEfY//7s8dSvUXLwkvzpcmZysxv99IwshD6h5ZdlQPCZPg XbBJ46EBxZuUJMSUxybcP8bE/yQUv2Abjohi3icmQdPkdrP2VJInJwkLXpj4 D+wmf8lLgrNtkNWlcJrP79XvzQxZnSrz+5gklHXxjYo2byP7J6Ghe/KLkR8I XxVJcJ3q/X3haMJzTRIcBkSpvtxA76/kSUgaH/GZ+5qp/5KQNdb61k4Q/lqT EK7zM2LNZTo/dyZhlJ5gtKsW8/4tGWdmKy12KyL+FJMRsndPvZYV4UE1Gd9F 7d1rJpP+1ZNRxsm4mriUeR+XjBqVA0d/+1F9opcMXnGl7HcQfW+YjElWdw7P O0z4ME5G5Ip2q8YqOs/1nqZ28MI/ed9LNvs/vNYJzw== "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.004583333333333334], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.004583333333333334], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 1000.}, {0, 0.9970842141279532}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], {483.75, -59.331262919989896}, ImageScaled[{0.5, 0.5}], {180, 111.24611797498106}]}, {InsetBox[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.004583333333333334], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw1W3dczf/3j0L2lZVV14hIlJQQnopKGU0t1W3vuu1d9zZut7r3FkISQpHZ RUif5JYVisjIzg6lMpKsX7/H97z943F6rTOeZ7zO632nuodYefWXk5NrlZeT +/////evc4Uxt07T7ad0Bf0BKq4pGX87DhCtiDcqRzIDSvcTzYJh7tZ18c8v Ez0GAfbrq07s20O0Mt4VX+nXZMqsnwysUx1pXVJMNBth6X889ap2Ej0NZvqO tl9CjxI9A7yXzfPdhhcRPRPNZv2n2g48TLQ6rL6r1nH0yoiegyfFyzbO+1JA 9FyE9T9dUN27j+h5KCkIyI694Ua0FtgxV4duOh5HtDb8boyvVNpymugF8Lna NDgoMY9oHYzLE5y648nwtxBlOWPO7HuQS7Quxs8YeH51v0Ki9eBuPr/E6WAF 0YvwQF6Ut+M2I48+PO2VPMruZRK9GDI1g6Jh7SKil+DVxSH8iBulRC+FsvxT ufoVPKIN0KTWeBKpDH/LYH/31Tv+tHSil+Pv7ZIFX6tMiF4B0y2Tr70N8yIa uBShG9dwkuTnATcjL/UWTGfstxLsd3V6M8Zn0PhKnM7i5Gm+PEHjhhAl8RQS /5B+eYYI8d/Ce5h+kMaN0PJEMjT0GbPeCIN6gn/Vy47R+CqcnrInZ4KnP42v wk739TettffS+Go896mq3fGN5OOtxrWT3zaZj9hC48aQnz/a+Oy5cho3xs+d vdsdn+fQuAls22MjTVy307gJJho3xDSaM/oxxc1b55vv5mylcVPEnfykJpEw +lyDI0r2X/8U76DxNRhuMOrEwOGHaNwMlnmpTfEDwmjcDFe4ZueapAzezTHE q3CqsIn8iWcOuYxKwdUo4kduLaasnDBooPMpGl8L0XnTDZZHGH9Yh1X3Ri/d csuGxtfBseS2qb0G8SO3Ht8L60YY/Eqi8fXw3r40oWNgJI1vwBH9MUeXJZ+k 8Q2w3WEqynnJ+I8FhlX8fNLdb/f/aFigduzEJ+L/mPkW6Bm6dNwCD8KzzAKl 1fWyff0203pLKPiOqtn8huSBJQzTXJc9MCd88CwRscppUfIaso/MEo6DNp3Q akil9VbQiSlt/7OVxmGFgTd7rSp0JLTeCnNq0+5viSF7yqxwadmDaVpPGPmt cerPP9Wj98JpvTUsj7Ys1wPpn2eNkjdzFirzzWi9NbpeZka2GTL+boOXTwoK ehbm03obVPz+M35MC/knzwbJbHHYFgfCt8wG8zqtRSosJt7YYpHf8O/BZuSf sIVuW1xvx0WKjzxb+PVP0YgJJXzJbKE5RShd18WcvxFBDiMDopdQvMJGDC97 FGord4TWb8SqzX5v2KdJn7KNiEqL3OeuyuDPDst+KUmz0ih+wA5202aqtupR fODZod2Sm6dvFU3r7aBtfeWSlxETf+0RGqH8z3Ubn9bbgzXg5PBFbmdpvT12 3tSe/7GmhNbbw1oh69/RV7q03gEP9DVDNbYx8jsAxbd+innZtN4BI5sGbpLG kH1kDuBt2PlXwTqL1jtCOMvcfmQr6QeOiM/ijzYcQv7Nc8Sto8nfjKS0v8wR XzaPZNUOZeKLE6YMdTzxzJbiK5zgm/hK4f4+wgvPCa97UgxfJW+j9U54G9hc ktxO/Mhtwvr7yRkPFpB82IS1PKP83tsUz3mbYPTBclRe3n+0fhPetDnMjJjK 4M8ZrYGPh+xec47WO+PHhcQJax8JaL0zvroV/J6oF0LrnaEx6MyFMeFMfHFB o+qwCHYx4RUuGOLxJMKhVUjrXSAet+n1AkfyL5kLzijrjIk8z+QbV+yrHG85 83YlrXfFssjbHazhc2m9K1o6xcZx3sx6V8S99vbUu8j4LwfDdy9n6VlS/mZz MM1xfPSUr4w/cFCoMK8n/QHhk8NBw63aJRq9dB6PA4+xL8ubqiheF3HwLi7r +aM1hE8ZB+7X65xz2ISnlr71NxcsGhWwi853g/nnhSo16mR/thvyHvleCFBi 8OCG+/2uj1t1kvIFxw1P2t5M/XSJ4hfPDWEKS6YdHkfyFLnBy4qHC8FMvHLD Go8uM0Vliictbsiv+bR313om/rsj4HeFx04P8ge2O2wjH/Q7ffA8ne+OvHP2 vm7baX+OO8RxIyozLZl8446t12J6z/ZSvCxyx/xZ0VdmtdJ8mTvG5eh13RpN /Le4w1M67olKElM/eSB/bvPxm3toP7YH+JVB5wvXMfHUA/M+3PnuHE3xh+OB lbt2m6WfYPKRB/oZrG1aVE3+UuSB/SMUeu12Ef8yD7Dkr/uuzCF7tnhgp7jh neVJouU88d+BxgWj/Gk92xOnX15zFWxk4pEnzIMubDlYfobO98S9asU1Dr9S 6HxPRO1YIFIJjKXzPaHAnqxdOJ/qB5knBlrse1xeS/Zq8YR/U97FbalMfeSF 7VcbxxzcS/hheyHEZVv3CQ3CN7wQr99x7KgH6YfjBR3dp1pVq8jfeF4o98n2 ZLl50/leyImLm/MjgTm/b/3omZwebYqPLV44Etw65NF1Jv9548/MGn3JWQb/ 3lg5/brFyRoZne+NuW/XT4q65Unne4NVkxPwNIXxT2/0VCY+tKgn+xR5I1rt 7fWx/Bg63xt7j2xye3OW4kuLN868DdD2PcjUoz7omZ614IAmg38f/PwbwS2+ x+DfB4tnxLqajCN7cXwQMOhfze7baXS+D4LC/abKPjD+54N70+Nc2u4x+dIH IZs+iJ9FMPb3QWfBlcUb8xn7++KaSa33Tk/ih+0LRfHoafJDqB6BL1xdL4Us uUv44PiiKa9jw4pvTHz2RVd3+Xj9jRRfi3xhbJA3xYVN9pH5YvpJ8TWjcVF0 vi+CsD005QWDfz94mxU6p+y6SOf7QfPfycuzWfF0vh8K3D90y++l+M7xg5/i G9fTKUx+9cNE1qz+l8Yw/ueH60WKH7o2U/yV+cFqziDeZQPKny1+2HH42oGh aaQ/OX9sPpr3OGky2Yvtj97HZvseyVP+hD9ylyZlvP5M+Yfjjyf7v9l0TZxH 5/vjVNvIZV9SqX4q8kd1nouR0lcune+POawRg2U8qn9b/LF64eWdAdoUj+QC MOj7SZfwO4QPdgD+GzZh9AAW4RMBaPVNEZ8R0npOANLO7hxqpcPIH4CJ6ysN H2wjfy0K6Mv/FQOfPEyk8wPwYMnSKIstDP4CoDxysXfhA+b+EIjCK8Pb34xn 8BeIFJRF3yih+gOB+PQ41sHxMcVLTiAuvEmVO95K+/MC8YNlq9LiR/OLAjHJ qHLlXBbZQxaI8KndxVY+TPwLxInF579oT2fyTxD0VpzT3BFM+ZAdhAOR8paV 3YSvPrT4qriuMJAnfHOCoHhjUsiIcJKHFwRx6alNWd/IPkVBcFIae0ZqR/Wb LAg3tvo7iZQI3y1BCDKc/uJWDFN/ByOkvPC/qg1UL7ODsb58Wd6AQ0z8C4Zr s+Farz1M/A1GhdKhlRbtTH0ZjKnH3PolGzLyB4Pz6h4rju1M5wejdXrN9G5T Jv4EgzXP514eg0e5EKieGNslkgXR+SHYEXrQZsgX0h9CUKPtuHrkCYpnnBCE etY+jBQz95UQuCdMsbG/SngoCoHm5Ky7oh+kP1kIGtUyryfrUX5rCcHzYft4 l0KZ+MeF3PKW08NX0n2DxYXzuXE+H1SpXmRzoa3TMbpsJO2nxcXrxUO+jWyk +eDisvax8cs30f3GggvOLLsPUz+Sfjl9829IvbS55A9cLm79ak8f84m5D3LR KbfGd6qE7JvLRcJ2z9i3t6m+K+LiWG9Ddv9XFM+kXGw0GiN/9wZzn+DiRbjS 0YG2fv+jG7k4UHTvXXs8E++4sDzs+9X0AuWTTi62/Dtr9m0zrZcLRcmfrS2t x0h/rFBsNzRVnfaP+GeHIkpTTbvX68vy/8kfimGGL/REpdUkfyieT/6ydulP wqNFKNZctHfe84L0wwlFWc/aqhMriR9uKA4vfX70dB3hixcKx4cG6jmOCSR/ KBqnnV1gIKD8UhQKy08LclRllN+koXjZfKJG4TXxKwtFGv+p0opq0l9jKEQO p0VLzzDxJhTd+o539+pTvdUZisebm9oGs5n6KwxBY0/tfLSC4iErDE/Pyy/d oMLkgzB8WjVvj8iA5NEKw974HE2tDWQfhOHMhqE2lyzIHyzC0OgYP/PjYIov nDAMvDpfoe4+1SvcMAhcT+x5Zkb78cKwYMuw2r9dFB9yw7DwXr3CgBtMPA/D lIkPUsImUf0tDUNl2Hw1fj71R2RhcF2iLhDWU3xqDMPtFdaTu6PWkfxh2Fy4 T7fiFemnMwzDl5nIZc5n+i/hqPUXplax6T7GCsemn+PXajkRzQ7Hr3E7tec1 kL60wlFmk+y13J3OQziiNHJWXVUmfVmEo9j54uCcCYQHTjjuJxcO+zKU6gdu OL5tqI4Ln0/9JV445AP6Zw+eQP6VG46Dab0Phv6i+rkoHPsHHd2e/oDihTQc aw0u/e00oPunLBwmYSNGKK6l+Y3hcHXy/KPRxeS7cFi/eDJa8wrdtzrDoTUs yu/Pdyb+RSA4cXrTwZ2U71kR+CoTRTuuIHyxIzBpuUX4WRYjfwR6zdnjY4Yz 98UIxCXuc4r4QudbRCCgrkbQ7kL5lBOB77/njTFIpPjFjUC1j+72sVfp/s+L gJnR/cDeDsJHbgR8Rrm4uvuSvxRFoNXq1eGTiaRfaQRsRtyfM1k9gOSPgPG9 6vaWNIo/jRE4YFYY4W9E57VEYM3407NqrxMeOyMwteCqX3I203+IxJC7HRZD XKmfx4qE7bHR9/0PUD5nR6LK1Fl1zyfCu1Ykisf31a9KTH6KRNjgUy43Z5I9 LCKR9GGBdOwkul9yItEYnzz/kzmD/0i8ahwbmDST5ONFQoY5K4f9Jf3lRmLu yu7jTyoZ+fvm16vZjGzxIPkjcfOsio1RAckri8Rqr+BJ83NInsZIZDu8Htw7 gfJrSyQGsVqDzpZSfu2MRE3AimN/E5n+YhR+SA8FLdlP9RsrCg8reQv35hF+ 2FF4blDX3e87xR+tKAiHp0fcd6V+F6Igb2q2Y8YCOs8iCncUxc6p+2h/ThR2 r7GYlfWU8MKNwrnTB3fVSZn7eRRa1o3cr58hJvmj0DFCK0HLhon/USjJtVEf MYT2l0Yh7Wrv0MdVNC6LwujkskDvaaSvxiisXuK2Xmkwc9+IQtnq5w/DHZNJ /igMZ88c3+zJ9NeiwbNS3nFWleItKxrjPznsq44nfbCjceWXQc3ceRTftKJh rVVqqphM+kE04kfaFwhLGPmj8fmRQ8ee84z/R+PI6vLyd97ELzcaX8f+iPwo IX3yotE60HfXzgw6Lzcae0Z5yG32pftHUTSUGiZLXNo2kPzR2JrRa/Dj8GqS Pxovjq5K7q5n/D8aF3Ibyq8JGfmjETpTyvKwJ7x0RqN25ZThAycz+I9BVfw+ xZUZpD9WDOan/CwJd+OQ/DHwsHhtM+8X4UcrBmOMnqxXTXUn+WPwKNd3Um4v I38MgvbFLIsREj+cGCxVUecfeULruTEIrZp2IkGZ5vNiMNujqnwFi+4HuTG4 Y3RTO+k99Y+KYnBM8vHdeqYfJ41BZdLK3f5jmPouBhFX806bd5C/N8bg3oJj Mdt30/ktMUgbqpZw/HUEyR8DR+fj+cqzF5H8sZCfuFyUX8b4fyymStUKhdtq Sf5YVO9PPuc9k+KjVixCDmfPmeLC3M9iofM4T6OokfKXRSycpn/ZsFhI8Z0T iz+X9N6KrzD4j4Wjf0t5qRLtz4tFzkzdnWxDui/lxuKQ4hbbtlNMPR+LCVPD JY/mER6ksWjO8XE4EszIHwuD998+uVTT+sa+/dUSjJpXvyT5Y8H6WZPx0uYR yR8Lt+hv/Z5rUfyUi4O/zktds6UUv1hx+JTVlHvBlvH/OFRamFa0/qgn+eMQ 2TVzwUy/GpI/DrZxhcWnXhK+LeIgq9KJZXldI/nj8IRz1EYm95jkj4Ni0ZT+ Uc10/+fFIYgtPtW8geqx3Dg4ODk7POhh7pNxmLB56wB/2RWSPw42SpFxt3cx /aU4THx14hZnNemzMQ72yRpmx6to/5Y4zHXXaVCpoftKZxzqDe1+txjdIPnj IVyrwmrdcJfkj0fvjq1BZzZTv4MdD+uMW82iH4z94/G96v6IfouY+jwe4TUj Ah5qvyD547HW5PivU++o38WJx6gtI9vqNV+T/PEofHRAfrot01+Px0mB6t8j TP8hNx7XfKJtPo8hfy2Kx38/lJyeNND9QhqPUn1h7YDvxI8sHiFOCRsVsum8 xniclRM8zx1E+m+Jx+A/XVe78+i+2RmP0P9uqAjymf51Ai4U+l+2zqXzWAk4 4aE83/s4xQN2Auo2z3w4U0L21krAkpKAP/JzQkn+BHgO/bTG/ROdZ5GAUcW6 n/PcmfiXALvz2/f9ZfjnJmCr6NayE9cID7wEOE3k/DumRvjKTYDEJF3J4Bfh uSgB9/Judp3tJf6kCZjg0zFdD69I/gS4uy3ufeFG/teYgKljR23//YHqlZYE XOu/fuMff5K3MwFZUT21b25Q/S6XiCjnOQ7BT46T/IkI+bWkysSK6cclYiuX e2ttKCN/IpZ+n/l39Ram350Ic+uC/n/t6H5lkYgCzxiL7umM/ROxfPuEQ/Jv yH+5ifirEyjorKX1vESs8bq0Qou5z+Qm4gZ3reGnfRRfihLhWvjFy2HsTZI/ Eb3v9KqNpYz9E5F7nXe3XO0OyZ+IA3qHEKjL9DsTMaF6+/K0e4z8iXBixay4 Mpepf5Nw+UqikplCA8mfhBcH3aV762l/dhI27K/cfHIt2VMrCSYfL2S9kJI9 kISJp7e1DCwgf7NIwrCShxpmFlQ/cpKwqaz645h7hHduEkbfykzetJPO4yWh hPtD5vbxKsmfBOXhie/1hlG9X5SEvXdVysYuoXwgTcIM4Qcl1Q2kb1kSShcf OVjAaiT5+/izcc8exMSTliQUTckomtdG53cmIW5F+sLsxYQvuWS43DeatYdN 90NWMh4Xr7r/7WgVyZ+MYfWzTVQDmkn+ZIw3gGv/AUz8S4b6C2ONlusUPyyS 8WNPwNtPC6g/zklG5Nx1edPWER64ydh6v19y2Eamf5kMo8Lp3MV6hL/cZDwv 9x7t85j4L0rGLu3DbzWT6DxpMjY2lJee20z5XZaM2U8+qX++QfG6MRnxbCuT fwupn9aSDNHIg8/kV1H87ExG1PlSiYsl877PQ/9Y3kiFCR/+RyvykHHtd30d i/DG6qNL+B7pSyifKfNgHxfNrdS7Rfrh4YzBpUsZb6ieUudB8stgi7diE+mL h6YhEjNDS7KnPg9fR9bnKJsQHsHDq5A7J7t2kX5MefD5b2r4ri9MPOVhskWE fcEDio/2POT59ByaEc70Y3ho27ShM/Qf+YsvD55ndE6saGL6DTwELJ8svHyJ 8BnDw+qi43H9DjL9cx7KlRUuNhsTvoU8NHstMMnRYOoRHrLcuQ/tzSi+5PMw NkE6Md2F8k0RD3dDx3/fOpPui6U8pCwr+n78NOUbKQ/XDuzsMfSn+RU82Jzt MurMZuzHw7sxrbaOg6h+qePBbY9tjXp/yj+NPDwdVrPNs5viZzMPB0a8KB/W xbyn8NBw74UIy2m8lYdhD85sys0m/+3kQfvSni0G5tf/R/fwEC8Y0dW0inl/ 54Ple37Cl/5U/yjy8WzxuNf8u1SfsfjQTBhze9wfwrMyHwuDJ+oVlxJ+2Hys qFALdnv/huzPR973yNq5teRvWnxMkzit4BrWkf35WPUw5MCVVrIf+Hho9Vdp 0Wzq75rykfHp1ZFx7Etkfz4+qyVa+X+kfG/Ph66V36Ud4YQnDh+ZjzS7635S fvXlQ9FVU33EG/JHLh9llf2Cnj0l/MbwsQ2qonhd5v2CjyPxlu3rggk/wr75 Sk/azTdS/sjlI3dSrUD6i/wrn48pllO6HQeTPxXxUb6wqX8z855RysfRQP7q vHGkXykfcY4LupaoET8VfOi8+Vxp0MP0x/koLfD3lG8k+ev65rto7sjypveb Rj62nzMp3Bj+kOzPx+7VCWkcB/KfFj4CZVVsG0vip5UPzzC5wv/USV+dfLjp 5GhX9pA9evgwWf/qkwWX+b4iBfFLRhk7c8geiik4UL7x98ThjP+noOCbMc4y 37cop6BVb05zViPtx07Bch+78SqPCG/qKZg9Uvx56GmKx1op4Mn9nmweQflO PwUPhoVrKLUy72spcAgZvls0iuK/aQqmuL09f/Ex7WeRAn50T9qX6YQ3+xRo NU7gW8Qw94sUnNJIuL8hlPTpmwLHi5Ih2g8IH9wU/BN0r3X3Jf+LSYFMbr/m ++uUP3gpSGwru5N/+BPZPwVDHyWptJo9IfunYKxGWNvrSOInPwXHF37QlBlT /VDUp7/UuZlZT96T/VOg8XS2+c4sit/SFLzKO/MqYin5a0UKjNekKivlviX7 p+ACd67ZpPuWZP8UsBTW1lZ8aSP7pyBB+66ckTrVS80pqNeumpGuQv7WkoJU /8nathKiW1NgcfWz7Vutj2T/FMzn37vfc5jqpZ4URKlcixh6p4Psn4pbB94k vf9D44qpSHqm+iM6rp3snwqtk24Dz3V8Jvun4nbIXp2JxeRv7FSM73xc3BVP tHoqrGyMp/qeIn60UqG8TjLaSYvO009FzvTfN4/UUXxHKmrHPaueqE/6N02F dNbZzt7XNN8iFcHfmnSbXEi/9n383TEfNEWN+OOkYos9d3jj8hayfyrYi2s2 GklpP24q7hbMcdwYQnRMKryGhe222k7y8FKxMbWqoJ5F5wlT8fLuSk7ze9J/ bip6btk7j9lDdH4q/Ms8//YLI36KUnHk+bX6chPavzQVA3nvzw1LoXFpKlz2 96horCV7VKRinfkg7Aoif5alwtd9gdfqCNq/LhUXp37+5jKb5Gns4/+BqdrG ApK3uU+fHxqfr71H+bAlFZV5iuY5ee/I/qnYaxfXtvgF4aszFRe6uyctC6f9 e1JR47Rd858L8SOXhtfW4b8lSa1k/zQoda59Lp9L/LPS8CjyYttyPu2vnIat Oc1xp1xIf+w0sOovT2gvpfumehruaHd89Gyl+6ZWGlYHFMRtuUz40k+DRGDN OahD+kIaRtleK3lvRvo3TQPXM3Zo1lHa3yINPbU9nO22NN8+DQ0bDyt4JxD/ nDT4Rr8ZrGbG2D8NbhuLe65oE//cNEQ+Xt30zpn2j0mD8sEdW6UbaZyXhpFf H/V5DcknTIMwZb2+yg2an5uGP9YKm0uNSZ/5aWgULNsapkT6KkrDzP9eD3p+ kOaXpuGoAe/IEz5j/zTk93e/faAfY/80HIra0D79CdlDlgY7wbGyCc9ofV0a LuTPv9YWR/7TmIZnxel/fs2n8eY0GGZsbBx4ivTTkoYFgawS0XTSb2sa1jjI 25RZMPZPQ3FRx+aI33R+Txpe6hd99Wuncbl0DI4SDuHMYeyfDu3Tg9R+tTD2 T8eqESWfDS4SP8rp0OnPTzkaR+vZ6Ug8kDX7ywjiRz0dS3b9e1e2lepJrXSs 6bAcZBTC2D8d03bN+RK3g+RBOqpcJpxW8SX+TNNhPHnFPa0App5OhzS65a7n Shq3T4fqYv6JgOvEHycd57cpbFZ9Tef5pqPhxOf9HWcID9x0vBS9H+AVRvqO SUfP/G/NV+sJT7x0KB9+vsnxH80XpuPynJDMibn3yf7p2DvCraDTnPCdn46y H0l28wJov6J0uE4/NEdgQPyVpmOtNDQ6/wPtL03HnPCXeu5XCV8V6fDpHzWP XUf+LEvHlRBWXJYh7V+Xjg4N+bzmPIqnjelobjpVGqvE+H867O2U+uXtYOyf jrvHMm8F6pD8relYmFEVrL+Mzu/s07d9ze5Wfcb+6SiYqzpQh8GfnADBi4cU XRlD8xUF6H54f2dWCtEsAe7nxmtebSb7KQuwJ+2Lho6Y7McWoLgsM2uMH+2n LsA9S7+tb1cSf1oCNNh6WFexiX99ARQfLn/TWko0BDg5K+pu4meabyqA1pbR CtV5z8n+AoyblrSy5SvhzV6ACfGPt26YzcR/AULLNkd9OcnUfwLoLtntMqyN 6bcIkGfKGqD8nPQfI4D+hokHp69k+g8CxJ+T+1vk/JTsL4DDfsHA/rW0f64A 5zd3ZXm70fp8AcZPnrsrPp2J/wJsDB141dOb+CsV4FE938/tBMVnqQAu+jE1 2UvJvyoESPxaLF/0jfQrE2DhiPtHfR6Q/HUChD2+3Vm7nc5rFKD0hHL7sjk0 v1mA+pVdZaH+dF6LAMknVb8NWkLytAowcHlkbaMF9bc6++y3eVfF4lG0f48A zzQsHnvHMvffDNy5dqt1izXtp5iB73XXWs82Mf6fAcX0fT7q18neyhmYv3tW ydEUsjc7A0bR9wY5lVC9p56BOofZt6R61I/QygB/+OwQyWqSRz8DJ8p+texw pfXIwEClbb2bJIz/Z2D55W9ya11IXosMOI5xmLIJhG/7DHQNmTlptA35KycD umVy1mVvyH98M2AwsO5s3GXG//v42fn3ZqUV7R+TgZ6vA43qfj8g+2fAvPfu 1YLvZG9hBmLZ4w2/LKD1uX3nO1q3XTGm8fwMrEk2Tfq1jer1ogwcku/2Tkkk eUszcGOiUcnpWYz/Z0CjI83u9y6yR0UGZkxuS/fMYfpXGdj+zr5jqtkzsn8G 7hmpsoY+Z+q/DAzy6Hq7+x/ZrzkDfxYaC2yNyB4tGWjrDtzqmMzE/wwcfPxl ijiG1ndmwMV+Udr4DzS/JwNB9h8kD8xoPzkhhDVpN/aJaFxRiPJH3en1Q2mc JcTMTTOO3GQTPpSFuLOb9XKcJ8nHFkJeImMdU2DivxDuui/CT/an/bSEYKvo teq8pfX6QoxUGPvSo41oCHH2jcmzO1zSr6kQPx43TC9ZRrSFEBGD9VaWuTLx X4jUSGlHlYj8iSNEqcmMn2slhC9fIX6dnvlBbQ3N5wqx/3eyQ7odY38hFtlt CW22IP54QjRUtvOdAxj7CzHOf6Rb3FiSJ1eIwCUXdp0+SevzhUgbtKRypC/N LxJCyx+7fKeSvkv7+Pl1u5/vIbKnVIjJ0U/PcPRovwohgicMsjqbTPvJhMjv lHwclU/6qOuj15/jeFym+rixbz5HZvDrBs1vFqKJpZwn0yT/bBHi3PKqMcrN tL5ViG8rbybeeEj47RTC4acH59cLxv5CuA3cpRXaytg/E+M/3tcRJVB/SzET 0vN28TNl9D7AyoQ67/XXucuov6ucic6dnbOVauh+yM7EBIvYpUMOUbxTz4S1 6dFD2wrovqyViY6PbJ+ZH6jfoZ+J1wMkk5ffZb73zsQpUY2drR/1J0wz4ZlQ vV8/k/pJFpmYNaKn9Ewd3U/tM7HQquFxrwHd1zmZiP93Ac5/6X7mm4mmJV0+ Kkupf8LNhNtjf8XRHvR9fEwm4l6P/jCgnfp7vEzcaw8sP2ND92lhJvp7HN2k 0U79oNxMTB7s3DD7D/Uj8jOhk//YZ85kpj+ZCd/gDeN039F9uDQT+Qqfbo3c Tu/r0kz8fLowX2cKjVdk4s1VY6dj+vQeL8uEzSxBSvFOwnNdJvq9mDZgySTq JzRmouxOw6o9avTe3JyJqSanZlsfp/fIlkw0KteLdi0ie7RmYpDN9NnVARfI /pnYqvf89mhl6gf2ZMJc1+va0vOkb7ksKEiOzbbfyfR/svCsSfag4Arhl5WF et0XSkOu037KWRjVL6WkiEP6YGfB/talTw2N9L6qnoXE9ye/BMyg/odWFpxM DcNTDzuQ/bNQYGjfFP6H7vvIwrGQYXaxuvTeY5qF0p7bDWbjmfovCw91ZR62 MaQ/+yyEnbuZm9jMfI+WBe2SX15iCY379o1f3NcuO0X642ZBbcCcud6/CZ8x WTAdv6d6xWWm/5eFWQv8x93cT/0NYRY2DZ086Iw/9a9zs/B8j9r5Gi69l+Zn Yaj/evY1Leb7lL79gm53TgojvJdm4UJ/JWHxPeJPmoVDSmoebs/pPaUiC9fe pHb2P8Z8v5SFS0eSzqfMp3xc16f/h7wq3V3Ur2rMwuUVq9cvH0jvh8199NjP 86o0Kd+2ZOFw71z56mzyj9YsnFvccX5KM30/2dnHf5J38Rw26aMnC8GuntaT LJn8n43uvc7yLRaUvxSz8fu7a+JhLvM9SDZYW42v6icSv8rZSHvXO3VNDfHH zob5w1O7rzDvUerZ8Az0/tkrof6wVjbUODUBIe8oX+pnQ/uIpnloJNP/zUbS yqJX8nfpewDTbDzamV88bBO9F1tkI0e6bL0kgPBkn41y2yWj5S2on8jJhsP9 gKhZbOoP+WYj4aaD3fkIwhM3G/s2KX7L2E94jslG4uH2tiwnwjMvG7PTK5xX PaLvPYTZOC/Mjz6xnt5rcrMxaXOi0lEV6pflZ8OyLaJpwCzqXxVl4694pI4h h/qjpdlQHTFp8pG2FWT/bBS4PdmX60P2q8hGSfVfnWwhfa8my8bm9RUTSzeT /HXZsOo4ssRMgb5XaczGzWth441raf/mbLQMMjJX+UH+05IN3z+HAya9pt8X tGajXzXbaUYD9ZM7s2F36OqU+kx6X+jJhm7knIO/BPSeIidC+dHalOnMe6qi CHtV9lo5X2beQ0UYYuch3nqO9lPuG7+04kXvVIoXbBGOex1fr/KO4o+6CF+X HespOEv9Pi0RLk5NLRRbk330RfjhPOv4usH0/gQRlvhf2Hd1GvWvTUVIXlog P595f7MQQXdGpfXJaNrPXoQxg4tPf31N9uGIoBy85VSBHsVjXxGmt10NFewn fHFF8IqMGlfmTPE+RoQksy1G3gLG/v+/XvO/F4Xkv0IR+FG6WgsF9P6eK8Kc nAR/Rw3qH+aLYCTVPGByheJpkQiy45Muh2RQvigVIax/WG97COVLqQgOpndm T1tNeKkQIeTbovWvFOi9UyZC7vf15oEcwmudCP05tw6v3ct8zyTCoYd+py8E MvG/j9+eS8PLOpjveUWwynHQv8tj+v8iBLJu+hsPo/zXKUL3mdunGi9Svdsj QrpXvs64qWQvOTE8oziG11mEb0UxzJoWStgBxD9LjLD1+dNrjUnfymL8iYoM ftPAfB8pRnhh9RaHHtKvuhjqCy0Dx50ge2iJ4T2pcOL231Sf64sxdEiapuY5 5vdmYiza3+wnv4rqA1MxVJ+HGbbpk74sxNCRO1GmuoP4tRfjxy6Vzl/O1O/m iHHvQuAifgTJ6yuG9dFJER27qH7gimFuu/93cyf5T4wYe7qb2FM2M/lfjGUB j3+/MaT8IBRjoZP6uVlzme8xxSjWHW7gH0v+ky+GX/yLZaN45J9FYlgYtR99 OJP6u6ViZAZ5jvs5l/AhFSP4XdH7OS8pX1aIUZi9d8WobHrPk4nhePhO4pJv hPc6MfoNffy2+in5V6MYE4z7bax+SP7eLEb7XfEUEx/ar6VP/nKfJjUprW8V Y/qC2If8OMoHnWIEadRZNV8m+/WIcUe/vXWhjxHZX4KOUP6Wq7703qEogTXn oLNdLtUHLAkulFZ6XAgn/ShLkHdT+dT5Yub3GhK8kUsYs515r1SXYICm0SA/ FbKPlgQaNR8XSxspX+hLkBoRMXiaHvN7KQkO7MvOTMik+G4qwcLlJ4c+WE7n WUjw0eTvzm6m/rKXoLdw2oP3tvS9CUeCrsWVOyweUT/fV4LFSnnDzINoPVeC YMmYmKWKZL8YCWDOc3p3m/l9nQRWewK6wh0IX0IJtr83Xh5txXyPJ0Hs2TdL M8V0Xn4fvfZWnqER0/+X4MyQgW7blSm/lUowp14yhg/mewUJhlznDuoaTvGm QoJ3Wo/sVl6k/C2TgPtKQU53Hv1+pk4Cl5O3rU2Smfgvwbd7awrKbCl/N0sw d9Zsk9LdzPd9Epy+uVk5tpz009onn6rj2RYO894rQcxW7fcvk+n+2SNB+1Ij DeMGwp9cDqTXs7qe5ZG9FXNg5lu+06Gd8i8rB5eUmk2XDGXef/toheLPD/Lp /Z6dg+V+Lr2xU4lf9RzkydvWvjOh+Vo5GLKj+cKMOsKffg7app7JGj2b4ily UPD0lHaRxr4V/wcqjq2U "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.004583333333333334], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.004583333333333334], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 1000.}, {0, 0.9972035963389876}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], {96.75, -177.99378875996968}, ImageScaled[{0.5, 0.5}], {180, 111.24611797498106}], InsetBox[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.004583333333333334], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw1Wnk81N331/p4WjQtoifVVAqlQpu0eJdIm2wVKU22kGXsOzODMTPG0k7r KEUrUaFSo1W7VlQ0KLQxaaEFP7/X93z6p9dx595zz3mf8z7n3vsZ7+Jv695b RUWluY+Kyv///79/StMLk+f+Gni9wJT+gNkasdrmx46TrAre28I7TfZHSWZh hMEv82X9q0kegf3DitX2TcwiWRO73+rg2ftskrWgoftlVHrhIZLZEHqmFxZY 7CV5AmK6K+/W3M4hWRu/zraEz7/PrDcZASsWnqxTZ/TrYpgN33yvyUmSp2Dh oTFRrwYfIFkfrVd67Q8fsI/k6TBsUy2zkjqTbIAAn+OHIxxCSTZErzY7jVqH 8yQbIWPGcZ2htjtJnon604tF637nkzwLecN3Ot/clEbybDy3af/ZsnsXyXPg aGq1oHDNWZLnQvVWTFn5lf0kG+M8FkQJ+Ykkz8PQ27maffolkWyCXQKXpKde R0ieD7njC9/4tCiSF+CudG8vzzpG/0KMznk5cMcaZr1FSNr9bNisOnOSTVF1 ZcXD+S5uJAO+TWp3B5aT/Txg1yLJ6FnVzP4W40Wsv7PzDgGNL4YsYtqFna8Z /y+BIMA1TjhbRuNL4Nv3aJe6ksHPDKIZ7Z+rg4Q0bgZ+u1f+hkLGH0vxZuKH /9a93UrjS9F8r2LckcY9NG4Otsr2Sqe76TRuDrVEzp/tk0lWsUDBtX5+6uOL aNwCe6P6Gg4JEtP4Msz7/s/4Z1rbaXwZgn9O+3xhQgKNWyLJfGjsmw87aNwS v1p/DQ52Z/BejkNXdi7izd1N48vxbKHSvO+DXBpfgZJDsvI+a/xpfAUM+sd0 rJxI/lBZCdl/DzfmKM7R+Eoccjj9NyaY9KmswpQVanedZh+j8VW4evuRn902 Rv9qsBO6+vTLsaXx1Ris3ZiaPDyTxq2gvdK166wkgsatYGtQ+VlHFkDja5Bn tGmP2vmLNL4Gc6+pBj2bwcSTNS4P3xapeT7jfzKs0Ri0srZ0JrMfa/jIf9/e 2k3xLLfGTlHDaoUX+VPFBqftV587qUL2wAaXtJNe9TM4QfNt8MyyZMx82ys0 3wbOWVWtI0x5NN8WziJTN+NjxTTfFs8jVtwKdEml+bYQucUIA/dKab4tuvg+ w1vA+McOc2rGsT6YBdF8O1SPMZmbOZvik2eHB82FngPWWtJ8O5wyZpvenhlG 8+2Rdlr3kNZx4h/Y45ftwrjFU8g/PHvg16yafm0ky+2RMTVijJMPg/9aLBif WBIzk8axFhf7JyZeG0t8xVuL9jbJ4vsPU2j+WtxxtFzjx2H4Zh2ufWtQ+9CL +Arr0LjtwoVp1Yz+dWBZDam/73ya5q9DzUTVLHdrho/XY4d2zlqb/hKavx4Z qwaWLpwSR/PX42CojtrRReQf+XrsXK/dzPVn+NEB454f6zPLmvCAA3w9zaYW lZ2h+Q4wvD4wQ2sy8bXcAYHfmhPfHZtJ8x3R1JohdIs6RfMdcYXbPfLtsWSa 74i4HL7Fvx8Cab4jtG6+9HpbyeTnBixXxlzeO43yCxtg/Xjvx6cbmHzdgK+5 E7yKDpC98g3ImjuwSLWIyS8nnHlTf3jUv3Ka7wRZ0+pTK++Sv3lOqK26P2Hx v7Se3AnGv0JfDJtL/lDZCKfDr+vbSg7S/I04Ftjw5uIS8idvIyb1/vJirNlN mr8R9c/df29TY/JvE6qHNrl02ROfYRPEt8uz191n+K5nPNpiRGiDL83fBO/W 3Jlja8leFWe859ln7l5P9RHO2HOl93XfD8TfPGdMnupU/eY38aHcGTvKbpt8 /sjw32aIg+/80DEopfmb0fTgnP6S5Xo0fzOGq/vAnUf5Kd8Mh4/vStYlM/M5 iJw9KHEfp+R/MpuDwsZprTr9iP/BgbBsERtxZC+Hg2cGKuEt08jfPA6qF0mb Z6lRfMg4cDE/dXTASMp/OQfOQyzlx3tRfis4KHo5ndeZydT7LZgh7f646ibh w96C74FBbzNaCD9sQdOrdx85/ck/nC3oV9mmTLZn8msL/klndzZq0nzZFmzK 8Pm5/BvtX94z7iTh6R0Ukf4tqNDWedi2leqZigu+2HcdkL2jesV2gdPqr+c1 Sq+Tfhd8t7j2hiUi/3FcsObnj647P8lfPBfMim7v1o2j+iNzwTlvtWFql5l4 c8GzxaqtARspnxUuMBxtGpnBZ+qnK2asnFFz9RX5i+0KuyfbfVJ70Xy44qVF YN0+P8pXjis2mLR5rNWieOC5IizDdE12LuEpc8XcjiPWq34RPnJXrCoN0GxI pt8rXNF/kFovlSamH3LDsQdDj1zUJ3+z3fDpoWX31bXE93BD6hObU19nXib9 bth+q/+j9NHEFzw3tPHjwxofB5N+NyxrM91losrwhRuM5nRWb5hLeCncEPA8 s49G6GHS744wr+KFbhco/9juGOgcp8XeTvwBd6xO+R0f0kT1iOOOM8OnlGrk 5ZF+d0w9tmJtmpYr6XeHaPnnpW1eFK9yd/wRC5pijajeK9wxxjy31o7F+N8D 59w29vFveUz6PfBzp871oqIHpN8DxsME2XrXaX2OB3oFD7E+kkP9Gc8DCyrb PWYvJXtkHoh2rs7eG078LvfAy2NmdgPYtH+FB45bPVNvSGD62a14EpI1OewF 9W/srahpv7I5aDDj/62wnGdpHZRL9Y6zFSdfrHowp47s4W3FOA+z2oK3tJ5s K1atUzv0ZgPFg3wrjnw5EO1eRPGr2Ap/OW9BSiSDvyeeXdnic+k+439PCK3P /x7EoXiEJ6YU9Iqsz2Ti3xOfm14GtY5i6rMnPoblw9KDiT9PZHyPHj9+EfXP 8p71R75blGpI/K/wxOCzbwtv7Wb6Dy8MUmoV7N9A/QnbC52bE3IHxBJfwgtr DTvdis8z+Hvhn5Emi6s+Mf2aF0zyZC6cxwz/eOGM7LNCbQjjfy+cejX1tokd jSu88PJNxFkvNsWrijeOJybcEk/xJv3e6F+qHdtyj0v6vbFHXjZvWDHDf96w fponyEkZR/q94SU4YaBynOJV5g3fAX+1UpJdSL83/H1Vw4Q51J8pvHGpQ+/r +AF80r8N+Z16t0JjCW/2NuTdfrn2+gimH9uGUUMyG05WRJL+baixjXLM6M/Y vw1NBtc4TRcof2Xb8LTZ/wpf14/0b8OwBfLk00a0nmIbKrev+Kh+m+kPfRCq Wrp90EziQ7YPkiwc9rCPM/zvg9Fzjn2IMA8n/T4o7Rs3bZyC8OH54GdLrMpE Oyb+fDAuQbO390GmX/LBiFd7ppfMY/zvg+NVc6bO9Ysn/b5I0NjeYjOf6iXb F83x+/97tZRk+IJ/mhX1rpGJP18Ix6PmxVSmH/fFpCEnnJRLaL8yX0xzbVxW 9YXiU+6LK7VvJvpcp/xR+KLv0oc6oX5U31X8INX8qjXkHp0/2H64hVSjIAvq N+GHySuc/4yrIH0cP2wJYOld1aT1eH44ZeVufvgS9SMyP+Tnv1mqbWBF+v3Q p7u0YVpENOn3Q3lJOXfeJCb//ZGR7OpxbxydR9n+MN1yatB/NsQn8IflCT/n xeVkD8cfqlUB41NOMf2FPw6Ne3dhqyvVU5k/Otu8ow+sITzl/ojdvqeSNZ/i V+GPOb9+/7fmIsO/XJjnrD0UaEHxy+LiybxI83ZrL9oPF9v87o0UvqZ4NeCC s6Z1xc/fDD9zUd2Z4bTGivjDmguh3WhJazb1LxwutpoV9fk9gfKBy8WD730V ByKo/+Zxcd1K3fz7I7IvnYvAJd4Xn/6keifj4v7h4AcPb8f+T87nYvP4TWmq Q5j44uLVYdnTq2WO/5Mren7fb/ml7PuEr4Lbw+8hRRbG5A8lF2tVxjXPWMHc RwRA8F6x7HM91UdWAK4p8qwL/9B8dgD+PLwk3RfZsOh/9gcgzm/jZI+5dN+A AJxqLyqMDqb4sA5AxPKrY4I3M3gFoGrTyV5hNwgvbgAs2u8MGTGOOc8GYNCZ e/HfEnzI/gBMhYvx4eeUb7IA1Ncf52f+cCD7A/BVsslEfSLTXwTAOCZIw1BM 9aMiANFTK4rNPIgvFAH4JomRjS0kflAGwOzV06k+YPrvQJR67nKY+Ir4khUI /4smq8L4TD0KRFOzt/q2jzTfIBCPqk7HHfpI8Y9AREmzuQnfyH/WgbAxsR7T YUT8yQnE5uonM59nkz5uIIY+1Fn8+CjlFy8QYUJLkVMr5U96INRFD4+7KRg+ D4RtHYelrKV6nR+IE/9u6l5bRfcf8kCMsfZa+kKL/FURiAfJJhN/6JuS/T37 HV74aWQGY38grm+drK+Xx5wfg+C1znxIaQb5nxUEs5ayjwt2M/WgZ9zsTsK7 WRQPBkHQ6/Vv5ZuJpA9BUNG4vAYFxN/WQXAodVk65wfDV0F4cfHRnqbHa8n+ IJz+iJqDHWQfLwhD3N5sfjic6nl6EDr7Xa94Y0r+lAXhgvjm0AFKytf8IGxb avNfv1Cmv+3Zj7t+XYIb5XdFEPZdvfzySyzVd0UQjvw1KxC4kL+UQQhSonvq O4b/gvF0vcflx49oP6xgeETcTOp/gfzDDsaj9hfZgeUM/sF4cGZWH34p1XME Y0GJzSRZPc23DkZA5W3p6/nEH5xg8HzDJt/cS/HEDUbBLInanR3MfVMw7FkL tob3o/48PRi9P/zr/HYpybJgnPPRuJxYTPmVH4zbdSlFc/84kf3BGNKyOduR T/1BRTD+DBzQXuNI+aUIxp5ZMU05X2m/ymBwlx9Uy1zFnL9DcL7M1OnVQKqP rBDs7p9RsWsr8Rs7BHnS1pZt5sRHBiF4ljK7d/8s4kOE4Kx35CKdavK3dQhS SlLVH4xyJ/tDcL9qxL/jCsnf3BDwNT78Z/eDif8QDA+b0WI6lPyXHgKvtBGH TjykfJGFoEbl15fNYfZkfwjc61/FZM9i+C8EB02PfDFup/NsRQgMv14+5zKC +E4RAu14Q7NmBfGPMqQnXu/77nVi7l9CkfL5gMbrUNLHCsX4uZ239npTPrJD MeXqtqsTItaT/aE48mdxhIc+9cMIRYvg8p76/hS/1qEIK8mccSKf4o0TigXC 47qjLpH/uaGo3TFkR1gQc58YCtHi9HV+L+m+Ij0UXfOL2i9fJLxlodi67ONm Iw/ab34obAw/P9p6mYn/UOiNG3R7ZDfhVRGKYTuCHgX1YupdKJIGm2X31qH7 OWUotH8Kftmtp9+rhGHKVLme3xXaLysMzZ3jG0/Mo/6eHYY/DXxlnwyqrwZh +LImkP9kC+GNMBQ0fBNbHGDsD8O77d02mEfxxAmD4vrkdp/7xAfcMFg1vys7 7018zgtDTv8vS4YMJv+nh2FEy4gqgRPdd8jCEHdyv2LPHZD9YfBTuP6oipxD 9ofhyM2WvF77KD4rwlDi+bksqZDwU4Sh6bNLZrsHjSvDUD/+sXloLeGhEg6p zG1esiflNyscNw17J6+4ZEP2h2Pu45az81opHw3CsaCqmCPuovtIhGPZkzHp 96ZTPliHY1jYUHFgOvEXJxwWpz7cNamjfoAbDm0d3RkBBdT/8cLx6UWvMRuD Pcn+cNx7XT6pcB/1S7JwnHWqadrkTfya3/N7Na9SI3vmPiMcs/de0DPJp3pY EY4/mUP4sxoZ/MPBSyu9UmZI/Z0yHNVaUa6dJrpkfwSODvxtrHKY/MWKwCrZ 3ewJFym/2BFocLIY9HE/yQYReHHtpM7cMIoXRODOO2e7ZHXSZx2B05MORuV/ pPU4EVjZlPTW4BbxATcCMxxaM+2eUr/Ei4Cfl5uV903CJz0CAWbnVt2dQ/wg i4BqacoCyUDSnx+BcGePBMV78qc8AlcWhCg+q1F9rIjAocQZiyxaqD9RRKD3 svvTZh+g+yllBMaH3wvIjCd8VSJhKjfJamkk/axI3HvwMvjNTOY8GImqny4S e13qlwwi8fhA6PmFLcz5IBLd92ZP7nxG+WQdiZDfvktjnZn7mkiwXda/k6fc Ifsj8aH7S1lrQwzZHwk4BDiqvSF80yNxKKuaHzOJ8l0WCceIpQdQS/et+ZG4 syktzqQ/c76NhPaS/Mh5/AtkfyQ2jn9lLqmn+YpImEwcPv67YAvZH4kbUvNZ 0qHM+TMKXSWTs6UD6P6SFQXHIwcuTt1F8cWOwoTXSowYQ/xsEAWWfH2HryXh iygUGL3YVRpD/raOwuajmb2tThNfcKKgSN+94egDuk/lRuFzxXF9G3eqh7wo /MgKfRopZvqfKNiPMn9kuZe5z4qCyeS6nO08qsf5UajLXDE9eCzhLY+Cpvbg 6mRvsqciClF3atWaX5C/FFGQas+s44fReU8ZhVTzEwaDzzL3v9HIHXvCKM6E +gtWNCoHXo96d4s5D0bjWI5RuyyUqX/ROLFJ+qaIS/UI0Vgy9XedlSHdn1lH Q599c8UUGeHDica93CZH96XE59xozDt7l7P5NfmLFw2NvsNtNj2n/adHw4Jd /1DPku67ZdFw1TX474gpnZfyo8E38dW+OIPuf+TRGOT25YRyL+mriMa6muYd DeaUH4poyLMlOl5dlJ/KaPRy68MZ8I65P45B9t7F7/tzKF5ZMTjqkyD7Imfq XwzY+94E37Fg8j8GpkHigGnM+wxiIJsy7fKhvlQvrGPguZ51tbuD6f9i0FLY V3TbifKFG4OPJseOLKhk7o9iMOvEe96K9bS/9Bg0LrkQNjOAuU+LwdfFmrXu peSP/BhEhJ659/Mqg38MPqxowet+5I+KGJR6zMTgEsovRQwsuoKsJo+l/Shj kPTl3DWzEcTnKrHgdH/w1Isl/FixuJAwJi/bn+G/WAyfcPy4kZLi1SAWaz/N nzIzlLmvjsXPnTfP935LfG0dC9eMVlG+I/EXJxaea1bo3Qyn+OHGQu5tkxWw gHlfioX4ea3A9jfhmx6LoOb3rtdKSb8sFne1O9Tb4qi/yY9Fn/ySke2fqJ+R x+JKRtfS9jP0Xl0Ri+YM933vhjD3XbE4s+rn/Il3aX1lLKzK91bc3cTcv8dh wPmS7LJ55G9WHGpexyb9PsrwXxz2npSqfmknfjCIw/e/k612Mu8viMMO/Yes xHx637Lu+X2qQ8G3QxTfnDis69jkf3g8xRM3Dj7GdRd95zH313HQPqhtI26i /jA9DqYHPoTpzqD+QhaH4aLtH52PMuefONhc/1dFT5f6BXkchpzkVEStIH6q iEPdMDu1mnOEjyIOYTsM9gRoUvwo47DonXb9OTuyT4WHP1NtdqdOpt+r8rDY t/b4Df2r5A8eev+UninLoftATR7kXFteVCVzX87DjXH6P28w91m6PMQse1/b eYb8Y8DDk/cW/RONCE9jHoxN/KbcMGDeW3iYtyLIq9mQ/GHJg2FZnOGOD+Rv ax5q/cYtM3hJsgMPD7lnOjlCwp/DwyL9giPB3nQe8+Shz0C3cN/zzHmLB63K loFLP1J/Fs5D5faBG9T6MfWHh/hDrr+H6ZA/RTzsfd9y0WwW3Sek8zDT7lKb 10LKzwweynR6r7LbT3jIeJja3/jlXBOqL7k8OO+cnKMzkd7X83lYWdvu8zeA /FHMg+bj93mX2in/5TxoDHcea5lCfFXOw332W9/YIqaf4+FZxbcVgReonlTx MOjY0bfSueQ/RY89UbcLDl6i+tnMwzTd+hVpT8jfSh4KrFcfHpdK/u3gIZg1 yffdTOb7BD7OWmy12/WW+EyVD7MKO68DYyjfWHwIPRpKtmkR3pp8nN61v9fo 3VQv2HzYjW5SjdOj+NDlY+0qjqNtHukz4OOc0Q/bT0z/YMyH8qjahJHl5G/0 rG8SEty8hda35KPPpoUdOxfRetZ8tFbLJl2KoHrowMelEDuVOUH0/QWHj/OG LoOWnqH66snH7j4z9Vl/aT0uH7f053tKD5P+cD7ejczex15N51MeH3fM+GKt BZT/Ij4khfF5OYXMebxn/0+zcpX6lI8ZfBRJ4g16l1M8yvjI098fczqD4imX j6879z0276D+P5+P5oQ0J/ddDP581IsfVGfGEl/J+fjSMnBiljblZzkfsxp/ zw/ezuDPx8pXdXdD/yN9VXxcrWzk1w6ncQUfaf07SscPLyT8+bjyyNf7VBv5 S8lHAkt1yMW/DP58nBw1J+8ucz+nIsDb1Pg/iX2p3qsKEHB0gcvyE8RnLAEm Zx3pK7Wg87KmAOfsal1ZRVTP2ALo6FzgCmuo39cV4OmK6UdGadP3DgYCXA7W 08rYT/FlLMCnX5/fFVbSfiDAmpr113+8IP9YClDdOUZnXDfFr7UA7/NO2h0z ovUdBLjm+SD2gzZTXwVoy+w4mdpG8eIpwJZvI0aNTKb84ArgYVC+wfkv1Ztw AWK7eWbnNzLvwwLcP651IqWO+FMkgOb+2pz0J8Tf6QLU7O8M2M/sN0MA9lLP 02/WE76ynv1qaP/S/Zf8nyvAxChD1tuHxBf5AixZ/+j5MD3Kl2IBIn9duq0y l34vF4A/OvRX2C46z5ULMO3coJq0AeTfCgH6Imex+hH6vqpKgL8zDt4prLhH +AswQ+5iqHXpFuEvQFbjgAeNU+g9UinAy7RklsGwcsJfAN23+4OdnnMI/3gk LJi0rC2c8kc1HoErXd2vuxO/seIxMVzUvllJfKUZD8Hnho3PXJn3mnjMXOky +0sw4a0bjz8Bv0M7ZzP1Mh62yRmTCnyoHzeOx8mx17B29UvCPx6sv7IGjgnN t4zHGqOlshYdO8I/HvMnnt9qNIfejx3i0dcs7T3eMefLeCzb59971UGyzzMe /b9Gr/djvl/gxsObN1EzzJHyLbxHTtG11R7J3L/Go9l+4s5/Sqh+ieJxY8i1 pjsWlO/p8eAcPW3v5kH1OyMedaylthM1ygj/eExIzRrjHUN8lBuP4E52zI4I Oo/kx+PvJtWDX0eSP4rj8XqGmUfyh1rCPx7XtNySuBuIr8rjkePuqAjcTvFR EQ+7ApefndHUr1TFY9GBb5fqPjQS/vFwurN4Zt8Uiv/mnt/zOld8HEvxoYzH pHsGhg7XKJ474uGZFbus0ZD5Xi4BXezSbP3aa4R/Aq7PjXC7EkHvd6wE/HCc 3B7iQe/hmgkw16jW8Wyn/bAT4LDIds/qFnpv1k3An91XlHv1KF4NEhCW+Hjn rsWEj3EC/rIyVHbuIH8hAfPSxnqb6hJ/WiYgMdBAzz6e+k3rBGy45m3+8jz5 wyEBT4Wr7RvnEl9yErBWucVz+wiKD88E7Oz3e77GYlqfmwBD+WmPjXH0/hae gN597J40WpI9vATcPRLmtOofkkUJWOWkk3VwPL1XpCdgJTdhaM0kOr9mJOBn w8+Y/lXUH8kSsN0ka+PsSXS+yk1An0MLFmeMofzL75HNR64csZLioTgBc8vd uXOZ91p5AtIaBj/97wH1G+UJ0PjkZhbnQPFbkYAh39z/TttD/FyVAG9pWFpE PHO/mYDW6zZd60IrCP8ERIxZ96EymTnvJ+De3cYZIb0ovjoScKkqf1SNjPJN JRHLpYuelZqRf1UToVzyNDlYQfHESoRT5VmN4TaXCP9E+Nrz55vuovhiJ0I4 VbEm8wvxsW4i5tSfn2tqTt8LGPSs7ybcsSid4s04Eb3ajp1t1SV/IRGdRRPz MuoIP8tEVJQ+iZhcQ/XAOhHPhR2Zz6ZRPXBIxOeQ5lP9VOl7HE4i9Kd6rs3q ovrumYiVxlPDDo25Qfgnomtk9JccM8rn8EQ05nz9OGoPc/5IhGTAq+6B5rSe KBGKbX6qs1BH+CdCnpW1TyuX+C4jEZs9j+h+fsC8TyTiS9dKG3V7+h4kNxGD m7RWiAvJf/mJuD7LTvvukNuEfyJ+DQgPODqL6oc8EaM3FK6UTX9B+Cdi95FY Gwse4VmR2HOekceevc/kfyJWj3Vf0lRM/ZMiEUvv2u9Zf5e+/2lOBGzX5WRX Ep7KROQ3Z6XETyP/dCRii21a91hz5vtMIfKn9PdwtqR4UBVizjlR2ZiTzHlY iCNLRua8vk370RTieYTlbONy6g/ZQvCnW2sdKaP7Bl0hWGaXNDu2Ur03EGJP HZuf/x/Fu7EQf85MzOn9nfgbQkRptXTNcqR+xFKIZb0e1o/qR/xhLcTJ96GL 8s2Z/l8IzYNPhpu+YPhfCMMN2r+fTr9P+AvRL18zozCAuW8S4srAnZahTyi+ woXQ3+O4KmoH832iEDfvbDdMcCb/i4TwT1ll+zyRuY8RwnRzGnvoPOKvDCH2 Ppx6QceOuZ8Vwv7T5fLB/mR/rhAXNewWsE+/J/yFWLW4esOZcPJvsRDfuUWz luQx3/MJ8ebE6b/OIdRvlgvB3vH42fo45j5LiIKOhgetv6keVwkxpDvhn04D 5n5PiGHX+y2S5tYQ/kK4PlCuv2RI8aoU9vSjfwtj7lO8dQhhfurXrO5s5v0z CfJdE3/WKKieqSbhyynfK/3uk8xKguei9NQnQjrPaCYhWrB9Se5i2j87CSHy 989TyymfdJMwJiRrySYx8YNBEiSh5xJXqVL8GychzHrJ5B83mfvzJAyR1V1P cid7LZNQMqJzwNskpv9LglGZ4IHjAYpXhyT8fTc4760FxQMnCdVFFX+67Sjf PZNw5MSM12oc+n6Hm4SqPzOvH35GfByeBH5sWfnuLQrCPwmD3jgdrHxE5ytR ElLk/bKqQp8S/knY5dzl/OU5+T8jCet9N9nuu073LbIkVKbvZq86THyRm4S8 NxecDzPfc+Un4eTQjgFhLyj+ipPAjYjM26dC+5Mn4d7YvoPsjQnP8iT0ydG/ UPCL4qkiCaoOkv1r/2H4Pwl3tUcW7nxI7+GKJKTxPY6tn0f+aE7CkvacSnWm 31Am4ZP1SDODttWEfxJ0TAeOM+xkvj8WoXhfsfr90fQeryrCxRNGJgdcqL6w RNgw4Gp0/Auq75oiTEdkH9EW2h9bBNniCVHyNIovXRFerSo1PyRjvhcQIW1g dHVZIcWjsQj3pw26s+oU5SdEWB028PMJIfnXUgR2o2lLUyPznirCOJ7keYk9 xYeDCMmpmim3Z9N+OCL8m7zciaVD+eXZs97p3GMvXCh+uCKcHRSwxf4R1dNw EcLG6K6xfct8vybCP+obx3+vJn4SiaCwthUqH5I96SJcVh7aa1DM9P8ieBn/ CtMpZr73EMHD2ylvdCvFZ64I7zt1xQ+GU/zki6B/aseBw2OJD4tFkFx+oz/C n+JRLoK9w+Phx/eSP8pFqLfaFv2pgfrjChEWb+ijrf6J+pkqEdL7+1466075 pxBhfCl3iOc1yq9mEQSn6kOGD6b+TSlCrt6hBzOP0PtdhwhWc5OsfbXo/KMi Rku9INBnM62nKsbQUr2I7fdaCX8xNKbwxcudmgh/MQISf95Y11xP+Iux4Wnt w3Xj3xH+YpT9W1zncfUT4S9GjdPTByfiPxP+YtiHFN6ZpvGR8Bejc21Jkdlf 4ktLMdTaLTsm27cQ/mJ8iJgTmzmAZAcxhP1DLs94QDJHjNl/Oy0XVNN6nmIc XKaMeziI9HPFOHYp3ycqnewJF2O0jSTZMPsD4S/Gm62GMcVnaH8iMW6Yz07v zflC+IthMyWj+4Q/2ZshhrdT28BNB0ifTAxNH66GpIDkXDHGVFyMPXCb9pcv xpw/RaNFF2k/xWKMaP1jEmVJ+5GLYdRL79B/DtRflYvxY9K4quOTaX6FGCvH GmvENpNc1eMP30eqyr20P4UYlQ6dry87E581izE4cv/NeYZ0PlCKkZD2x6j9 E9nbIcYXdwfvMTfo9yoSJL0rFWzWoPVUJT2nzVXLZzypJPwlKGiZ8GdnKuGj KYHl5vQ9C1c3EP4SRL/V11sZT/boSmAWfLNsjRP500ACYZbB5qdNNG4swfWS kM9D9tB6kOA9P9Qs8Q7ZZynB2HWna1ZG0f6sJVg2YtyYKAPyn4MEXiY73qqu p/U4EqRXPvvy8gqNe0rAnfetoE8ErceVINI4KOaXC8VnuARrVU5M75dN4zwJ Ki13PSr7Q7JIgn/b2k0EjH/TJbhpu6XuUyjpy5Dg+cTUq3taGPwlCHHNfL6r jvTnSvD5Ql3AOUf6fb4EFiblD12CaP1iCdbNCOZhN82XSxCxcd/s5Kpmwl+C xBuJQtVmGq+QIMA2dNmEJFqvSoI5tfpdapZkj0ICR7N9JX0e0X6bJRi29ViM 9QH6vVKC8x/151xYS/o7JDh1+3xDgwntVyUZVk3cab/SKb5Vk7E77uW88ado nJWMoneVrz52U/xoJiNx2Dnv+o00zk5Gm9+uF91rab+6yXi2/vMoFz7Fh0HP 7y+dLpw3g+YbJ+OMujh6WCPNRzIGHW/YdaEX7dcyGQvbXqTuf8XkfzKyS/9Z OrCdwT8Z4tQth+6ziI84yTiQ+6657CbFm2cyjPo9O9y/hsE/GaNe7bQTP6N+ MjwZvooP4761UH7wknHa5dkTjQAG/2RkXk6NNDpGeKT3yHtnW5X8Jv9mJCOo UnVbyiPSL+ux7/AyyUNtsi83Gaem/XlU0MHgn4y4/T7FIWEkFyfDZXbR9PuP mfxPhqRTv230ZJLLk7Fxuu2PjjSSK3r8r/x+9fJt8m9VMn6cOyndFsOc/5PB aZ2t2HCHft+cjNdWrlmff9B+lck4vLnBoWQ9+acjGTq+Lw0UuvR7FSkK/5lg pd5C46pSRC3Q+6U+gPBjSXG+lqvM+5f8oynFmk5/fWU3/Z4txfxBvJ2DnlM+ 60qRlDo4xCqI9BtI4V+sXdpVxPC/FIf7rKnz/UjjkKKVN/SHsi/JllJIjskv Jy8jvK2leN0lDnuhTuMOUoT2+fPIs4LBX4oEeaWJ8U3yv6cUO7v6tgx+SPq4 UlRfWj6q6wv9PlwKs/ralJ/naL88KZYft7dbqMrwvxR9hzvPtI0ke9N79qNz d9zoa5RvGVJcu5o5etd20ieTQve2IrdNjfaXK0XkrFTP6Eam/5eCZ2TJrZpJ +BVLoS/R7WttQONyKeYEDchurSR95VKUWS07fdaZ7K/owcPqZdCRVob/pbie b9mWtpLhfymeTFp3tPAE7b9Zin6+n3cNPUPzlT32mgoHzjeg80GHFMX3qiY5 vCX9KinIe3bom6kpra+aAoS5bPMcSeOsFHRHOBWpP2LyPwXqIed390uk37NT cOrq+uPT5lC+6KYgs+l8rlse2WuQgjm/j71uX0j9kHEKvn12HVQwlOYjBZ9W sli/62j/likoPTx19tg2wss6BddvHLCxGkXx7pACr8uxBwKaGfxT0Kbe4HM/ gsE/BW9DMufExzP5nwK9uKncoAraT3gKak/UqpiGM/U/Ba9TRycf30vriVLQ 8dzh4tHtlB/pKQiTbo20/Ev+zEhBQ2RC9lum3slSsEJ0dHymOpP/KfixbeTh cbcpXvJTsDag345174lfi1Mgm6ujYVdN/pKnYPz0Z49O2ND+ylNQ79i7yiST /FGRgpuhNfdGuRMeVT2/L6iY/Ponk/8pOHr/xqHXXaS/OQXt5ZcdHI8z+Z+C n6JrFZxUyueOFNjIZlXqtTP5n4q/V5vbnUQM/qn4lIqdRXm0PisVPne+T1yh YPq/VDyuvjXp9wgG/1RMulQwo1CL4f9URLz8XWLXRvMNUqHn9WZXjT2NG6fi 4qvvu6f7036RilL7T+V+38i/lj2/V2j6XWug+dapUF3Wp/2vgPzlkIpRG3/t /seL7OOkIuojK/mENsmeqTh+q/+k6G/kL24qVnc7DXBn6nN4Kj50rdt7MZ38 y0vFwYMacp0r1G+IUnGh7e9Sv+lM/U9F1oG3B3Yw/szo8U+zVsYZU4b/U3Hz 4YD86fEM/qmoEM1jhdiRvvxUhDy/b72FRePFqdgQZVpuZEHxIe/Zv8Dn79dj DP+nYnj85lZbPsP/qXAeGHF2OcNHVan4tmP+HoN6khWpcG3/axQ8njn/99iz p23bg9FkvzIVZ5u2uc74h86nHT3zC+qy7gyl/auk4XX3Na+RJeRv1TR0eW06 tfUcrc9Kw+Xle4YnhRJ+mmlYctRRo9iY6f/SYHPDNCxFzPR/afi6vXfQhi1M /qfBM3vO87pvhJ9xGj50Lz60cjHpRxqe+N8edkb+xfT/AHOD6cc= "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.004583333333333334], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.004583333333333334], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Small, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 1000.}, {0, 0.9991087000466242}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], {290.25, -177.99378875996968}, ImageScaled[{0.5, 0.5}], {180, 111.24611797498106}], TagBox[InsetBox["", {483.75, -177.99378875996968}, {Center, Center}, {180., 111.24611797498105}], "InsetString"]}}, {}}, ContentSelectable->True, ImageSize->Large, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{ 3.7233809546483436`*^9, 3.724405651939989*^9, 3.7244223762264137`*^9, 3.724468960091861*^9, 3.7246430867281413`*^9, 3.7247366808950286`*^9, 3.725637008673876*^9, 3.807859432800468*^9, 3.8078594944308825`*^9, { 3.807859916920576*^9, 3.8078599375655627`*^9}, 3.8078599763507495`*^9, 3.8078774246843343`*^9, 3.807878516530305*^9}, CellLabel->"Out[43]=",ExpressionUUID->"ff0dd31e-ec29-444c-8488-edfc48035b7c"] }, Open ]] }, Closed]] }, Closed]] }, WindowSize->{702, 749}, WindowMargins->{{-1924, Automatic}, {Automatic, 2}}, 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, 265, 5, 67, "Section",ExpressionUUID->"1805bea1-431f-4c12-8a41-ebfef8360b42"], Cell[848, 29, 1964, 39, 200, "Input",ExpressionUUID->"afa5fc91-31ad-41c3-9220-634471d971ee"] }, Open ]], Cell[CellGroupData[{ Cell[2849, 73, 156, 3, 67, "Section",ExpressionUUID->"c0536289-39a6-4031-b6a0-acf2dac557b6"], Cell[CellGroupData[{ Cell[3030, 80, 284, 4, 53, "Subsection",ExpressionUUID->"2ec3b42c-7bad-496a-9122-1263e8e5ec67"], Cell[3317, 86, 4436, 120, 333, "Input",ExpressionUUID->"0503c66f-0cac-4c4e-8e88-794c1e0751c8"] }, Open ]], Cell[CellGroupData[{ Cell[7790, 211, 278, 5, 53, "Subsection",ExpressionUUID->"b99ef419-b301-4b56-b3bc-3a87251c99af"], Cell[8071, 218, 2150, 47, 105, "Input",ExpressionUUID->"4ddcd84a-e47a-4888-8209-f828986445b4"] }, Open ]], Cell[CellGroupData[{ Cell[10258, 270, 5125, 69, 53, "Subsection",ExpressionUUID->"b645d237-04f6-4307-8430-060d63804ec0"], Cell[15386, 341, 8787, 198, 580, "Input",ExpressionUUID->"54383e9b-d9fb-45f3-98bf-1a4b462db071"] }, Closed]], Cell[CellGroupData[{ Cell[24210, 544, 228, 4, 37, "Subsection",ExpressionUUID->"3ea0fb14-8904-45b6-9e78-d2c154989c90"], Cell[24441, 550, 32319, 726, 1910, "Input",ExpressionUUID->"1acf1efc-f54a-4e8e-bc84-4da73c4964ab"] }, Closed]], Cell[CellGroupData[{ Cell[56797, 1281, 159, 3, 37, "Subsection",ExpressionUUID->"49bdfdf1-80d8-405a-839b-2d709819d758"], Cell[56959, 1286, 11773, 273, 694, "Input",ExpressionUUID->"c3eb45f1-8c7f-411e-81c4-168499877e95"] }, Closed]], Cell[CellGroupData[{ Cell[68769, 1564, 396, 6, 37, "Subsection",ExpressionUUID->"ded787b6-3621-4a19-81df-ea91fd3b7ea4"], Cell[69168, 1572, 2237, 61, 124, "Input",ExpressionUUID->"16832d86-2cd5-4ccc-affb-a175268631f4"] }, Closed]], Cell[CellGroupData[{ Cell[71442, 1638, 394, 7, 37, "Subsection",ExpressionUUID->"e25ade37-d63b-4e90-a3cc-b51e5ebfcfa6"], Cell[71839, 1647, 5398, 153, 238, "Input",ExpressionUUID->"bda91c45-c899-4814-ab0b-083f67910fba"] }, Closed]], Cell[CellGroupData[{ Cell[77274, 1805, 352, 5, 37, "Subsection",ExpressionUUID->"1bcd3fd6-4a75-4e05-bb91-35cbf8380b85"], Cell[77629, 1812, 3629, 100, 219, "Input",ExpressionUUID->"798f7527-963a-4ae1-9a77-e062eb4acefb"] }, Closed]], Cell[CellGroupData[{ Cell[81295, 1917, 213, 4, 37, "Subsection",ExpressionUUID->"9c052f67-7f42-407a-b7b9-567687feaaa3"], Cell[81511, 1923, 29671, 692, 1755, "Input",ExpressionUUID->"acf52947-6a0d-4768-b9e2-b02ace435140", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[111231, 2621, 885, 13, 53, "Section",ExpressionUUID->"84e9eaf4-5d6b-48fc-b73c-88c9a830c0a6"], Cell[112119, 2636, 11549, 292, 656, "Input",ExpressionUUID->"32aa5f7a-9b76-492c-8d6d-e16054c27a68"] }, Closed]], Cell[CellGroupData[{ Cell[123705, 2933, 242, 4, 53, "Section",ExpressionUUID->"e958da36-47d3-43c0-8e6c-15a88d848869"], Cell[CellGroupData[{ Cell[123972, 2941, 9862, 264, 656, "Input",ExpressionUUID->"27473532-068f-4a57-a6b2-ec25f302fd84"], Cell[133837, 3207, 1688, 26, 32, "Output",ExpressionUUID->"2d61a6f4-5e63-41b6-a569-32086d702b7d"], Cell[135528, 3235, 1818, 29, 32, "Output",ExpressionUUID->"33b2f5f9-4e3d-4618-ba78-1631e40c5d1b"], Cell[137349, 3266, 26181, 455, 214, "Output",ExpressionUUID->"a0673d7d-5756-4154-8cf5-16ea3b46fcbf"], Cell[163533, 3723, 23974, 406, 191, "Output",ExpressionUUID->"b6a3afeb-d93f-4c83-ae44-1b28bfe294d8"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[187556, 4135, 787, 11, 53, "Section",ExpressionUUID->"5badca24-592b-4ac4-888d-1669609205a5"], Cell[CellGroupData[{ Cell[188368, 4150, 10968, 291, 656, "Input",ExpressionUUID->"8c48a023-4703-4b54-904e-3b3838e93458"], Cell[199339, 4443, 2206, 33, 32, "Output",ExpressionUUID->"8795aac4-a750-4657-af55-9bcdfa5d6b9c"], Cell[201548, 4478, 2364, 36, 32, "Output",ExpressionUUID->"0117f991-52c0-4938-a386-88d0476d7408"], Cell[203915, 4516, 31489, 541, 206, "Output",ExpressionUUID->"f39cecad-1930-4c4f-b9ae-ab73695933cf"], Cell[235407, 5059, 29011, 487, 188, "Output",ExpressionUUID->"bd0f0020-afde-402a-b147-583b19ead21f"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[264467, 5552, 217, 4, 53, "Section",ExpressionUUID->"e2ce8467-a8b8-4cc1-be7d-6994d9027979"], Cell[264687, 5558, 10268, 275, 561, "Input",ExpressionUUID->"950550d1-d92f-4ae5-9a0b-fa910b91c0a1"], Cell[CellGroupData[{ Cell[274980, 5837, 160, 3, 44, "Subsubsection",ExpressionUUID->"4e37fc26-b035-47c2-80a5-fb7fda415fef"], Cell[CellGroupData[{ Cell[275165, 5844, 358, 8, 48, "Input",ExpressionUUID->"e134b53d-249a-48f3-99d3-9d2a29ec6129"], Cell[275526, 5854, 1238, 31, 71, "Output",ExpressionUUID->"60de353f-befc-454a-b1bc-a5fcf2126057"], Cell[276767, 5887, 1187, 31, 71, "Output",ExpressionUUID->"2e4a5aaf-2f54-46b7-bec5-d51904127701"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[278015, 5925, 222, 4, 53, "Section",ExpressionUUID->"d62689de-9f62-4243-8879-2e434c5d492a"], Cell[278240, 5931, 538, 13, 28, "Input",ExpressionUUID->"3b1ee7d9-ee9b-4228-89e7-826d74751c0e"], Cell[CellGroupData[{ Cell[278803, 5948, 157, 3, 44, "Subsubsection",ExpressionUUID->"7e306de9-eb91-4dc6-b273-067d5e31609f"], Cell[CellGroupData[{ Cell[278985, 5955, 3481, 97, 181, "Input",ExpressionUUID->"be5868c0-858b-459a-a18c-6a4430b9ed9f"], Cell[282469, 6054, 2179, 50, 130, "Output",ExpressionUUID->"811965c1-6cb2-45a7-9259-493ea87d2bd1"], Cell[284651, 6106, 2172, 50, 132, "Output",ExpressionUUID->"539c8eff-aab8-4a8f-ba1b-5f887f376560"], Cell[286826, 6158, 2174, 50, 134, "Output",ExpressionUUID->"0e73fd60-5ba1-4f64-9ca3-ba691bbf309d"], Cell[289003, 6210, 2153, 50, 134, "Output",ExpressionUUID->"83acde17-fa97-4045-b33d-df3270d32e88"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[291205, 6266, 209, 3, 56, "Subsubsection",ExpressionUUID->"9211ec5d-56c4-4b51-8017-adb3c1010a7c"], Cell[CellGroupData[{ Cell[291439, 6273, 1285, 29, 105, "Input",ExpressionUUID->"9e59ce89-fad9-4090-bbbe-8c852d5c12c9"], Cell[CellGroupData[{ Cell[292749, 6306, 8840, 163, 123, "Print",ExpressionUUID->"b838505c-0428-4d99-bd29-1817d615c13f"], Cell[301592, 6471, 8875, 164, 123, "Print",ExpressionUUID->"42401669-5fdf-459c-8c8e-04fcfe3d2b54"], Cell[310470, 6637, 8885, 164, 123, "Print",ExpressionUUID->"ed54b215-3c46-45bd-8846-416c75d82e11"], Cell[319358, 6803, 8855, 164, 123, "Print",ExpressionUUID->"2c4ef7f5-b4ab-4195-8736-b40374e3ded9"], Cell[328216, 6969, 8875, 164, 123, "Print",ExpressionUUID->"7654f14e-75e2-49bc-bf21-d351c0342813"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[337140, 7139, 1013, 22, 48, "Input",ExpressionUUID->"26602c58-3a83-4d85-8ff3-dd2ba10b68fb"], Cell[338156, 7163, 80234, 1385, 251, "Output",ExpressionUUID->"ff0dd31e-ec29-444c-8488-edfc48035b7c"] }, Open ]] }, Closed]] }, Closed]] } ] *)