(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 71802, 1216] NotebookOptionsPosition[ 71191, 1193] NotebookOutlinePosition[ 71533, 1208] CellTagsIndexPosition[ 71490, 1205] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ StyleBox["\:0420\:0435\:0448\:0435\:0442\:0435 \ \:043c\:043e\:0434\:0435\:043b\:043d\:0430\:0442\:0430 \:0437\:0430\:0434\ \:0430\:0447\:0430\nu\[CloseCurlyQuote](x)=10u(1-u), 020], "\n" }], "Chapter", CellChangeTimes->{{3.747918045893719*^9, 3.7479180792016163`*^9}, { 3.748019567260964*^9, 3.7480195984310884`*^9}, {3.7491799306613116`*^9, 3.749179945330095*^9}, {3.7491820390416107`*^9, 3.749182140816432*^9}, { 3.7491822953940344`*^9, 3.7491823155841894`*^9}, {3.749182378833807*^9, 3.749182424987447*^9}, {3.749182543546228*^9, 3.74918254777547*^9}, { 3.7491855618392*^9, 3.749185791014152*^9}, 3.7494816355928173`*^9, { 3.7494826582226067`*^9, 3.749482678435937*^9}, {3.749483068682683*^9, 3.7494830721446886`*^9}, {3.7494884082644987`*^9, 3.7494884424507885`*^9}, {3.749488494590744*^9, 3.7494885492422333`*^9}, { 3.749488662765763*^9, 3.7494886848150673`*^9}, {3.7494887168485804`*^9, 3.749488740273077*^9}, 3.749490389264352*^9, {3.7815165212789984`*^9, 3.7815165397060523`*^9}, {3.781516609665054*^9, 3.7815166221917706`*^9}, 3.7815193905998435`*^9}, FontFamily->"Arial Narrow", ExpressionUUID -> "d042ec50-ca16-4ba1-8633-042880a85df6"], Cell[TextData[StyleBox[" \:042f\:0432\:0435\:043d \:043c\:0435\:0442\:043e\ \:0434 \:043d\:0430 \:041e\:0439\:043b\:0435\:0440", FontSize->20]], "Subchapter", CellChangeTimes->{{3.7491800556151247`*^9, 3.7491801148925147`*^9}, { 3.749184977947245*^9, 3.7491850309280972`*^9}, 3.7494830937092724`*^9, { 3.781517228495333*^9, 3.7815172764720774`*^9}}, FontFamily->"Arial Narrow", ExpressionUUID -> "a735441e-8838-41ff-8805-d1a9c5ebff49"], Cell[BoxData[ RowBox[{ RowBox[{"explicitEulerMP", "[", "n_", "]"}], ":=", " ", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", RowBox[{"1", "/", "n"}]}], ";", "\[IndentingNewLine]", RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"n", "+", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "1"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"10.", "*", "h", "*", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "y"}], "\[IndentingNewLine]", ")"}]}]], "Input", CellChangeTimes->{{3.7493836238906813`*^9, 3.7493836385095177`*^9}, { 3.749384356585021*^9, 3.7493843611790295`*^9}, {3.7493844148401403`*^9, 3.749384420753151*^9}, {3.749384590275527*^9, 3.7493846780717144`*^9}, { 3.749384897997203*^9, 3.749384925608266*^9}, {3.7493850439795256`*^9, 3.7493850542375574`*^9}, {3.7493851155076923`*^9, 3.7493851209227057`*^9}, 3.7494043384438906`*^9, 3.749404414203837*^9, {3.7494049692062187`*^9, 3.7494049958082685`*^9}, {3.749405083884709*^9, 3.7494050874207907`*^9}, { 3.749405261802219*^9, 3.749405270318478*^9}, {3.749482020127111*^9, 3.7494820350485244`*^9}, {3.7494820838423915`*^9, 3.749482085861209*^9}, { 3.749494649897457*^9, 3.7494946591031675`*^9}, {3.749584518676146*^9, 3.7495845202372456`*^9}, {3.7495855456011543`*^9, 3.7495855458879886`*^9}, {3.7809822888446307`*^9, 3.780982323536623*^9}, { 3.7815162424831977`*^9, 3.781516243079232*^9}}, ExpressionUUID -> "2c1bddce-8258-44bd-9ecc-c4b6286256de"], Cell[TextData[StyleBox["\:041d\:0435\:044f\:0432\:0435\:043d \:043c\:0435\ \:0442\:043e\:0434 \:043d\:0430 \:041e\:0439\:043b\:0435\:0440", FontSize->20]], "Subchapter", CellChangeTimes->{{3.7491800556151247`*^9, 3.7491801148925147`*^9}, { 3.749184977947245*^9, 3.7491850309280972`*^9}, {3.7493833242875905`*^9, 3.749383328490831*^9}, {3.749483085324106*^9, 3.749483086623339*^9}, { 3.781517255501878*^9, 3.7815172830984564`*^9}}, ExpressionUUID -> "15c21b53-5cdd-428a-b23a-f6926c56c4d3"], Cell[BoxData[ RowBox[{ RowBox[{"implicitEulerMP", "[", "n_", "]"}], ":=", " ", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", RowBox[{"1", "/", "n"}]}], ";", "\[IndentingNewLine]", RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"n", "+", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "1"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"initialGuess", " ", "=", " ", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], "+", RowBox[{"h", "*", RowBox[{"(", RowBox[{"-", "10"}], ")"}], RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{"yNew", "/.", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"yNew", "\[Equal]", " ", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], "+", RowBox[{"h", "*", RowBox[{"(", RowBox[{"-", "10"}], ")"}], "yNew"}]}]}], ",", RowBox[{"{", RowBox[{"yNew", ",", "initialGuess"}], "}"}]}], "]"}]}]}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "y"}], "\[IndentingNewLine]", ")"}]}]], "Input"], Cell[TextData[StyleBox["\:0424\:0443\:043d\:043a\:0446\:0438\:044f \:0437\ \:0430 \:0432\:0438\:0437\:0443\:0430\:043b\:0438\:0437\:0430\:0446\:0438\ \:044f", FontFamily->"Times New Roman", FontSize->20]], "Subchapter", CellChangeTimes->{{3.7491800556151247`*^9, 3.7491801148925147`*^9}, { 3.749184977947245*^9, 3.7491850309280972`*^9}, {3.7493833242875905`*^9, 3.749383328490831*^9}, {3.749483085324106*^9, 3.749483086623339*^9}, { 3.7815172173356953`*^9, 3.781517223839067*^9}, {3.7815172867196636`*^9, 3.7815172968052406`*^9}}, ExpressionUUID -> "15c21b53-5cdd-428a-b23a-f6926c56c4d3"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"exact", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"DSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"u", "'"}], "[", "x", "]"}], "\[Equal]", RowBox[{"10", RowBox[{"u", "[", "x", "]"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"u", "[", "x", "]"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"u", "[", "0", "]"}], "\[Equal]", "0.1"}]}], "}"}], ",", RowBox[{"u", "[", "x", "]"}], ",", "x"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", " ", "1", ",", " ", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"plotExact", " ", "=", " ", RowBox[{"Plot", "[", RowBox[{ RowBox[{"exact", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", " ", "1"}], "}"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot", "[", RowBox[{"n_", ",", " ", "method_"}], "]"}], ":=", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"times", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"i", "*", RowBox[{"1", "/", "n"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"appr", " ", "=", RowBox[{"method", "[", "n", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"plotAppr", " ", "=", " ", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"times", ",", "appr"}], " ", "}"}], "]"}], ",", " ", RowBox[{"PlotMarkers", "\[Rule]", "\[FilledCircle]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"plotExact", ",", " ", "plotAppr"}], "]"}]}], ")"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.7815167873151445`*^9, 3.7815168184189234`*^9}, 3.7815173022085495`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n1", "=", RowBox[{"{", RowBox[{"10", ",", "20", ",", "35", ",", "75", ",", "500"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"GraphicsRow", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"plot", "[", RowBox[{"n", ",", "explicitEulerMP"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", " ", "n1"}], "}"}]}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.7815168629084682`*^9, 3.7815169089901037`*^9}, { 3.781516967306394*^9, 3.7815169930278654`*^9}, {3.781517049333086*^9, 3.7815170979358654`*^9}, {3.781517138094163*^9, 3.7815171910581923`*^9}, { 3.7815173249528503`*^9, 3.7815173252678685`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{{{}, {}, {RGBColor[1, 0, 0], LineBox[CompressedData[" 1:eJwV1nk41tn7B3DKUkRZytqiMIjyVWOK8k5EKCVJNWihMoYm0kTDiGwJNVKT taTdXpKoZKeyZynrw+PxrJ+TSk0hv/P743Od63Vdn+Wc+3POfd9ah//YdWSW mJhYP73+f7Q/wm17yXOxSCoJ4aakPIWElfqJQbW1MMxbkVSS8xRrrl9Lf6Rm jbsFJRkDz5/Coan7YYbabrRe0SI7h5/C1evr8yQ1L0x5+clUrCxD/+oYqwS1 QBx8+DCt9mUZbizcER2nFondnnNrr38qR/icRz+dV0uGsfpQbFboC+zdl1Xw YfwWVmeaG+W7VkF2JtzNdkkB4p0+HBQV1kLHieFWXyhGaEdoBM+vEaeb1+Pa 56cYZifdj5nVDJVihQFx8Qq0SAxW63i2oWTY6k3Lhip4pP295ua6t6jyydDY J6xBcKcrosy6MaG7cX6eXz2ueuouH/3fe8z6lrNAQ+cVptMlHVti+mE6c7DE Of8NbBvcN0ntG8KbyLXNdQYt0JLSsIxjs7D0kuDbfaYV99+L/nKOGYHg6+BA p3E71NKIQHuajVv88lfyiR1YkMK6YxDMgfziu4TNfotB/2MdLS1jiP/t8dEb 2l04ekZeM3Sciy+bctjeYd3YWeeXypnLR6BJTfGi6h7YRYy8XfuBj8H8mgtt Wu+xZd/zaKlGASZ93qbpn+nFvS6HXL0wIVZaSv84Wt6HeV5n769aIILtTa1j RSoDqNnV1rr1iginFx9YznIbxD/t+bG50yIc3mm8p+/QIBjVQtMVMyI4nhOP 6z46iJ0FwtFrYgx0ednjTScG0VF02D58NoO3xdyXZZGDeGVtbW4zl4HxtoAD ybmDqA7ZsyFLmQH3TFS67dQgGhWf5l03YGAodJHt3j6EqGhZ835nBqW7t1XE 7RwC2+ymyxoXBlbPN5+0cB6CeXe3X+weBvsTV/fe3jsEZZ83Kav3MThvPDcn 0HMIF0nER38PBpzAZ/aKwUPYNuJrXu/N4Mb08rjtt4YwfKn+eWkIA6X5H+bU fB9C/eMlGr1ZDNqfx8XYTQ8h3teke/gmgyRfHamWmSGUrfLv5GUzUHy1f/Z7 CRYeK7mnTtymjqqdJvIsRAncnSUeMFgwmfpRYwUL4rllwh9FDOaNbek76cCC 4ZCFlG8lA4mKtIIV6Szc0DXZjwEG7zdYbx3MZGGW25s8o0EGBWXCodQsFgxK zllrDNH1lWxUVLzLwrtj/hs/sxgU5Q0Gij1koeG9g2/GKAOP9BVm/fUsaLrK /twkpPEKzqm5+okF72dX1O98Z/D72vJ3cx2G8cuJ3uP7lAletnbmlm4fxoEX kVJqCwkW+n0IO7ZzGIu1f0j1UFfc1tGtdRkGz2OZ9W4VAiWVSwFnDw5jcOP2 8i3qBOXfvGS/nhqG+99PpuctI5CtkN/IvjGMAMFU/eqVBDl2h2+8+DKM8Eh/ 834QrDXUssC3YbS5dL74YxPBC/mh3orJYYiXGnSKWxK0drirVIqNYEfAQLn2 ZoLP7vsSq2VGkCjdFHzEmsAiYGdIw5IRlIdbfW/fSu9PtdjbbjOC/+ZVqBx0 IpgQqC/gXB3B2Iba0F2HCJIzxurTU6g/p2/sol6zozjMOX0EW4xMk/YdJvB/ uJ28zBpBcNfkdw9PAlHQ2ea03BFIKjEdXkcIRiU58U5VIwiUCRW4/UbQubRo 7nPRCKwnm0bF/AkeO9vOTrZm45+TDeN6YQSxDqVRmrZsuCs7rk6gdrPSn3Pb jo2EZKVl49Sz1sjKlTiycc/bUrP0LIGjYsuinr1syDjuidocQcBt3WOg6Uef P+TiYBdFoO541OnWFTYaAl10l10gCNsadb2Yw4ZYVX/ajysE7R7ebsY8Nupb kwt3XCXQPuWglitgIzloUewN6ldZCpezP7BR5Gp01vJfAuXJjOik72x4cuJT zl4juJdX4ndCfpTmy1f/fkql8VTkmhuajuL9vIrxvOsEWv32PdlRo9C/lWUa eo8grsq8wCV2FCpXLMTqqD/eNYyWvjCK4jVfE+TvE1QFyK/9/dIoxLVDvmRS e81pv2iSNopoLwXx5w/o99bss60sHIXJRKcOk0uwKu5YyUDvKHS6Xo3rFBGY /RKZrGbCger4bsuJUoKuw2qmGWs5CBdfFG74lOBkYn73sl840DWkKZc6d7RH XW8DBwYV9pZt1EuSjbJMbThwtGrIeFBG4z3elee8nwOXbI14l2cErx/o1ydE cNDb4K2SUEH/z5KWb+IdHGy3kvc5X0sgrxbwuLyTg1jn6toy6kqlhf6nejhY Wab6n4Bad+6vXG4/B2W6RqztdQTkE6erhcvBh/qHDfPrCSIafzzK+MGB/bM4 mfgGut7AVcfXG4xBqFdvcew13Z+vEoZPhI+h2tJ4U0ErQZ9sp/fUuTH8rbQ3 7S111TZNEhM9ho9WRu++UV9qfjCZeWEM9vlm01ZtBAbt9cpNV8ZQ47mf10Xt 8U7cVv/BGC46mh/52k5QN3Yqh9U+hssvIyNXdBJck/AI3KXNBXsLPhu+I/jh qfJzmy4XMtW35jpQe1W3TuzQ58Lnvy7p36iNI6xOb1/Fhfoh7otb1A0zeme2 ruNCWT1XTeM9wdfvn8IstnGhev3Tpdm9BHvGz18wCOQiuL9yurqP5oeBxzdn 1XCx+HTQIakhgsR5oaFP6rjISXa00aKWMbfe69vIxY/gdOUN1LOutct1NXMh HsT386f+6ESC7r/jIoxxXdhL3Vqrt2Mn4WIkId72AYsgPi9tMkOdhz8JKVk3 QiAZGr57vT8PkrUeYWocguJx4beKkzx0Spb0GFF7Hd173eZPHuS8Fi/fTF2z YzXf+S/6vKxjlA915PL+sONRPPhNXEwso5ZoWJeTncJDbZPFE9cxOj+lD+Ly VTzky90rjuYSiN33KBhW5MNKw6v/KZ/GW9h9/PpCPlbrmk+9po43dlrlpsoH 2yRPdoBapdQqr3MxH2+crk6JC+h+r9fLadDjg2fD+cmO2m304518Cz5CBu8U vKV+qhWTecaHjw1Vre+HhAQBqQUJilV8zHav+aWVIXgylRpTVcPHJlOxlAHq KY/o8IB6Ps6cMmOE1DEr3E+1v+GjTLY9cC4hSM+VcU/q5kOonP3Jkrr2xRFD RREfCUPuLwupVUc0XiuoCqD/15J3UR8Inq+MnaNwXICCZoHkgo8Epm9VmpJO CGB6X5WrTl0Ycvcf5ZMCuEU1VupQ32yqU1cNEsA8re1Xc+rYPySNlkYIcDrR ZOVR6l2PIpyMrgpQf4O1oYx6zCw01e6FAC7TlnvdPhEo2AcYRsgLcbBsoPL8 Z4IblfNlzRSEWLei+s/L1Mbr83jjSkJwlwSsyKB21OPeOaQmxLNgB69C6jgp Dy1LbSGKdHIju6glqu0WiZkJMdmy0EZrguCLuZbY30eEWBs99q2Qus+otSP4 mRAPBsqiy74QXBcohM6uEMJk8ktvJfXh+866CZVCrJfwXtlIzdPuDrpRJ4Sr 5mRpN/UXjYHF9a1CVBz0uviZWkFGeEx5lH4/dLWR0VcCG470VL6cCPP7nB1S qQszoc32EOFoqtmU138En858kj50SASLWRj2oTZ1vSvo9xRB/EhR9Qnq8vnz H3V7i6C3gQkKoa47O2D5OoC+L8wg7zJ17+HQAw+jRaj7XIJKaqmfylPP5osw JmBpq30jcC8wVVj8Q4QHJetuP6Mu2f+ffCvtw3oTPfmV1PJSZfPO0T5sZGrp ynrql24b5/DmMPgc5Ha9jXq5jPVMsRKDmL0OzhxqjpeTaJs+gy99/xPKfyc4 ru7bGLKbQbO+3KQb9dmorPA+2udUNPfYi6jlTkvbH8pjUL6xx2acOtXbT5FT wGCzwhNMUD9yWJ9NihkkPNTUm6bmKLTVzKpgsFP2Tce8SQKHTLE5+h0M1tt1 XVtJvejJgcRTkwx85RT4R6nzuIvT5LfRuusr/lMndWxG1MEBRwL9BXbNPdRe u0Q6+bQPKDVyD+ij1nz2rHC7K4GRzJfCEeq4i7/WxdO6P6O9bs5Ham/TlHGZ YILfe7205Kfo+iOVt0rfoaOkpoI19Y91IXLdtM4px5m42lK/E42038mh5y7T J9We+pLrI3cbWrcuR9ipOlHPGOw6GUXrzN1J6Y/u1H1tFzNndxCwxvOXnqYu jf7q2UHz8s9a0uvPUCebH9DP7qGj3L0dodQOt1cVbx6g88xsCjxHXRbU1BjO I3hQzMu8SH3V6OeLTjQv/MY03kyi9h9O361Fz3FOkeStK9R623wHX9JzoKCc kplGLSH+9tYlug/7tk/8m0k99Njc5yCNu79NSWIW9TOf7NXG0wRLbQYiblH/ u1R2YmaG9mmX/wi8S/1/gEBZDw== "]]}}, GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQjQo+2M+aCQI77WEiEP5JON8YDC6jyd+0RzXnAZr6 x3B+Ghg8Q9P/Es4/ewYE3qCZ9wGNP3TcCwCkrkog "], { {Hue[0.67, 0.6, 0.6], InsetBox["\[FilledCircle]", 12], InsetBox["\[FilledCircle]", 13], InsetBox["\[FilledCircle]", 14], InsetBox["\[FilledCircle]", 15], InsetBox["\[FilledCircle]", 16], InsetBox["\[FilledCircle]", 17], InsetBox["\[FilledCircle]", 18], InsetBox["\[FilledCircle]", 19], InsetBox["\[FilledCircle]", 20], InsetBox["\[FilledCircle]", 21], InsetBox["\[FilledCircle]", 22]}, {}}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0.1}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}], {195., -116.80842387373012`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ GraphicsBox[{{{}, {}, {RGBColor[1, 0, 0], LineBox[CompressedData[" 1:eJwV1nk41tn7B3DKUkRZytqiMIjyVWOK8k5EKCVJNWihMoYm0kTDiGwJNVKT taTdXpKoZKeyZynrw+PxrJ+TSk0hv/P743Od63Vdn+Wc+3POfd9ah//YdWSW mJhYP73+f7Q/wm17yXOxSCoJ4aakPIWElfqJQbW1MMxbkVSS8xRrrl9Lf6Rm jbsFJRkDz5/Coan7YYbabrRe0SI7h5/C1evr8yQ1L0x5+clUrCxD/+oYqwS1 QBx8+DCt9mUZbizcER2nFondnnNrr38qR/icRz+dV0uGsfpQbFboC+zdl1Xw YfwWVmeaG+W7VkF2JtzNdkkB4p0+HBQV1kLHieFWXyhGaEdoBM+vEaeb1+Pa 56cYZifdj5nVDJVihQFx8Qq0SAxW63i2oWTY6k3Lhip4pP295ua6t6jyydDY J6xBcKcrosy6MaG7cX6eXz2ueuouH/3fe8z6lrNAQ+cVptMlHVti+mE6c7DE Of8NbBvcN0ntG8KbyLXNdQYt0JLSsIxjs7D0kuDbfaYV99+L/nKOGYHg6+BA p3E71NKIQHuajVv88lfyiR1YkMK6YxDMgfziu4TNfotB/2MdLS1jiP/t8dEb 2l04ekZeM3Sciy+bctjeYd3YWeeXypnLR6BJTfGi6h7YRYy8XfuBj8H8mgtt Wu+xZd/zaKlGASZ93qbpn+nFvS6HXL0wIVZaSv84Wt6HeV5n769aIILtTa1j RSoDqNnV1rr1iginFx9YznIbxD/t+bG50yIc3mm8p+/QIBjVQtMVMyI4nhOP 6z46iJ0FwtFrYgx0ednjTScG0VF02D58NoO3xdyXZZGDeGVtbW4zl4HxtoAD ybmDqA7ZsyFLmQH3TFS67dQgGhWf5l03YGAodJHt3j6EqGhZ835nBqW7t1XE 7RwC2+ymyxoXBlbPN5+0cB6CeXe3X+weBvsTV/fe3jsEZZ83Kav3MThvPDcn 0HMIF0nER38PBpzAZ/aKwUPYNuJrXu/N4Mb08rjtt4YwfKn+eWkIA6X5H+bU fB9C/eMlGr1ZDNqfx8XYTQ8h3teke/gmgyRfHamWmSGUrfLv5GUzUHy1f/Z7 CRYeK7mnTtymjqqdJvIsRAncnSUeMFgwmfpRYwUL4rllwh9FDOaNbek76cCC 4ZCFlG8lA4mKtIIV6Szc0DXZjwEG7zdYbx3MZGGW25s8o0EGBWXCodQsFgxK zllrDNH1lWxUVLzLwrtj/hs/sxgU5Q0Gij1koeG9g2/GKAOP9BVm/fUsaLrK /twkpPEKzqm5+okF72dX1O98Z/D72vJ3cx2G8cuJ3uP7lAletnbmlm4fxoEX kVJqCwkW+n0IO7ZzGIu1f0j1UFfc1tGtdRkGz2OZ9W4VAiWVSwFnDw5jcOP2 8i3qBOXfvGS/nhqG+99PpuctI5CtkN/IvjGMAMFU/eqVBDl2h2+8+DKM8Eh/ 834QrDXUssC3YbS5dL74YxPBC/mh3orJYYiXGnSKWxK0drirVIqNYEfAQLn2 ZoLP7vsSq2VGkCjdFHzEmsAiYGdIw5IRlIdbfW/fSu9PtdjbbjOC/+ZVqBx0 IpgQqC/gXB3B2Iba0F2HCJIzxurTU6g/p2/sol6zozjMOX0EW4xMk/YdJvB/ uJ28zBpBcNfkdw9PAlHQ2ea03BFIKjEdXkcIRiU58U5VIwiUCRW4/UbQubRo 7nPRCKwnm0bF/AkeO9vOTrZm45+TDeN6YQSxDqVRmrZsuCs7rk6gdrPSn3Pb jo2EZKVl49Sz1sjKlTiycc/bUrP0LIGjYsuinr1syDjuidocQcBt3WOg6Uef P+TiYBdFoO541OnWFTYaAl10l10gCNsadb2Yw4ZYVX/ajysE7R7ebsY8Nupb kwt3XCXQPuWglitgIzloUewN6ldZCpezP7BR5Gp01vJfAuXJjOik72x4cuJT zl4juJdX4ndCfpTmy1f/fkql8VTkmhuajuL9vIrxvOsEWv32PdlRo9C/lWUa eo8grsq8wCV2FCpXLMTqqD/eNYyWvjCK4jVfE+TvE1QFyK/9/dIoxLVDvmRS e81pv2iSNopoLwXx5w/o99bss60sHIXJRKcOk0uwKu5YyUDvKHS6Xo3rFBGY /RKZrGbCger4bsuJUoKuw2qmGWs5CBdfFG74lOBkYn73sl840DWkKZc6d7RH XW8DBwYV9pZt1EuSjbJMbThwtGrIeFBG4z3elee8nwOXbI14l2cErx/o1ydE cNDb4K2SUEH/z5KWb+IdHGy3kvc5X0sgrxbwuLyTg1jn6toy6kqlhf6nejhY Wab6n4Bad+6vXG4/B2W6RqztdQTkE6erhcvBh/qHDfPrCSIafzzK+MGB/bM4 mfgGut7AVcfXG4xBqFdvcew13Z+vEoZPhI+h2tJ4U0ErQZ9sp/fUuTH8rbQ3 7S111TZNEhM9ho9WRu++UV9qfjCZeWEM9vlm01ZtBAbt9cpNV8ZQ47mf10Xt 8U7cVv/BGC46mh/52k5QN3Yqh9U+hssvIyNXdBJck/AI3KXNBXsLPhu+I/jh qfJzmy4XMtW35jpQe1W3TuzQ58Lnvy7p36iNI6xOb1/Fhfoh7otb1A0zeme2 ruNCWT1XTeM9wdfvn8IstnGhev3Tpdm9BHvGz18wCOQiuL9yurqP5oeBxzdn 1XCx+HTQIakhgsR5oaFP6rjISXa00aKWMbfe69vIxY/gdOUN1LOutct1NXMh HsT386f+6ESC7r/jIoxxXdhL3Vqrt2Mn4WIkId72AYsgPi9tMkOdhz8JKVk3 QiAZGr57vT8PkrUeYWocguJx4beKkzx0Spb0GFF7Hd173eZPHuS8Fi/fTF2z YzXf+S/6vKxjlA915PL+sONRPPhNXEwso5ZoWJeTncJDbZPFE9cxOj+lD+Ly VTzky90rjuYSiN33KBhW5MNKw6v/KZ/GW9h9/PpCPlbrmk+9po43dlrlpsoH 2yRPdoBapdQqr3MxH2+crk6JC+h+r9fLadDjg2fD+cmO2m304518Cz5CBu8U vKV+qhWTecaHjw1Vre+HhAQBqQUJilV8zHav+aWVIXgylRpTVcPHJlOxlAHq KY/o8IB6Ps6cMmOE1DEr3E+1v+GjTLY9cC4hSM+VcU/q5kOonP3Jkrr2xRFD RREfCUPuLwupVUc0XiuoCqD/15J3UR8Inq+MnaNwXICCZoHkgo8Epm9VmpJO CGB6X5WrTl0Ycvcf5ZMCuEU1VupQ32yqU1cNEsA8re1Xc+rYPySNlkYIcDrR ZOVR6l2PIpyMrgpQf4O1oYx6zCw01e6FAC7TlnvdPhEo2AcYRsgLcbBsoPL8 Z4IblfNlzRSEWLei+s/L1Mbr83jjSkJwlwSsyKB21OPeOaQmxLNgB69C6jgp Dy1LbSGKdHIju6glqu0WiZkJMdmy0EZrguCLuZbY30eEWBs99q2Qus+otSP4 mRAPBsqiy74QXBcohM6uEMJk8ktvJfXh+866CZVCrJfwXtlIzdPuDrpRJ4Sr 5mRpN/UXjYHF9a1CVBz0uviZWkFGeEx5lH4/dLWR0VcCG470VL6cCPP7nB1S qQszoc32EOFoqtmU138En858kj50SASLWRj2oTZ1vSvo9xRB/EhR9Qnq8vnz H3V7i6C3gQkKoa47O2D5OoC+L8wg7zJ17+HQAw+jRaj7XIJKaqmfylPP5osw JmBpq30jcC8wVVj8Q4QHJetuP6Mu2f+ffCvtw3oTPfmV1PJSZfPO0T5sZGrp ynrql24b5/DmMPgc5Ha9jXq5jPVMsRKDmL0OzhxqjpeTaJs+gy99/xPKfyc4 ru7bGLKbQbO+3KQb9dmorPA+2udUNPfYi6jlTkvbH8pjUL6xx2acOtXbT5FT wGCzwhNMUD9yWJ9NihkkPNTUm6bmKLTVzKpgsFP2Tce8SQKHTLE5+h0M1tt1 XVtJvejJgcRTkwx85RT4R6nzuIvT5LfRuusr/lMndWxG1MEBRwL9BXbNPdRe u0Q6+bQPKDVyD+ij1nz2rHC7K4GRzJfCEeq4i7/WxdO6P6O9bs5Ham/TlHGZ YILfe7205Kfo+iOVt0rfoaOkpoI19Y91IXLdtM4px5m42lK/E42038mh5y7T J9We+pLrI3cbWrcuR9ipOlHPGOw6GUXrzN1J6Y/u1H1tFzNndxCwxvOXnqYu jf7q2UHz8s9a0uvPUCebH9DP7qGj3L0dodQOt1cVbx6g88xsCjxHXRbU1BjO I3hQzMu8SH3V6OeLTjQv/MY03kyi9h9O361Fz3FOkeStK9R623wHX9JzoKCc kplGLSH+9tYlug/7tk/8m0k99Njc5yCNu79NSWIW9TOf7NXG0wRLbQYiblH/ u1R2YmaG9mmX/wi8S/1/gEBZDw== "]]}}, GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGDQAmIQjQwu/L9sjyrywX7WTBDYCRW/YG8MBoeh/ANQ+ZNQ /ga4Ogi9AKoeZu4E+zQwuAblN0D134TyC+zPngGBO1B+ApR+AKUDoOofQvkO UPMfQ/kGUP1PoHwFqH3PoHwBKP0C5k+oeS+h/A92EPNew+y1g5j3BuYvO4h5 72D+t4OFE9T/YPU9advsYeEJMX8l3B+j4UlaeAIAo4Sy+w== "], { {Hue[0.67, 0.6, 0.6], InsetBox["\[FilledCircle]", 2], InsetBox["\[FilledCircle]", 23], InsetBox["\[FilledCircle]", 24], InsetBox["\[FilledCircle]", 25], InsetBox["\[FilledCircle]", 26], InsetBox["\[FilledCircle]", 27], InsetBox["\[FilledCircle]", 28], InsetBox["\[FilledCircle]", 29], InsetBox["\[FilledCircle]", 30], InsetBox["\[FilledCircle]", 31], InsetBox["\[FilledCircle]", 32], InsetBox["\[FilledCircle]", 33], InsetBox["\[FilledCircle]", 34], InsetBox["\[FilledCircle]", 35], InsetBox["\[FilledCircle]", 36], InsetBox["\[FilledCircle]", 37], InsetBox["\[FilledCircle]", 38], InsetBox["\[FilledCircle]", 39], InsetBox["\[FilledCircle]", 40], InsetBox["\[FilledCircle]", 41], InsetBox["\[FilledCircle]", 42]}, {}}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0.1}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}], {585., -116.80842387373012`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ GraphicsBox[{{{}, {}, {RGBColor[1, 0, 0], LineBox[CompressedData[" 1:eJwV1nk41tn7B3DKUkRZytqiMIjyVWOK8k5EKCVJNWihMoYm0kTDiGwJNVKT taTdXpKoZKeyZynrw+PxrJ+TSk0hv/P743Od63Vdn+Wc+3POfd9ah//YdWSW mJhYP73+f7Q/wm17yXOxSCoJ4aakPIWElfqJQbW1MMxbkVSS8xRrrl9Lf6Rm jbsFJRkDz5/Coan7YYbabrRe0SI7h5/C1evr8yQ1L0x5+clUrCxD/+oYqwS1 QBx8+DCt9mUZbizcER2nFondnnNrr38qR/icRz+dV0uGsfpQbFboC+zdl1Xw YfwWVmeaG+W7VkF2JtzNdkkB4p0+HBQV1kLHieFWXyhGaEdoBM+vEaeb1+Pa 56cYZifdj5nVDJVihQFx8Qq0SAxW63i2oWTY6k3Lhip4pP295ua6t6jyydDY J6xBcKcrosy6MaG7cX6eXz2ueuouH/3fe8z6lrNAQ+cVptMlHVti+mE6c7DE Of8NbBvcN0ntG8KbyLXNdQYt0JLSsIxjs7D0kuDbfaYV99+L/nKOGYHg6+BA p3E71NKIQHuajVv88lfyiR1YkMK6YxDMgfziu4TNfotB/2MdLS1jiP/t8dEb 2l04ekZeM3Sciy+bctjeYd3YWeeXypnLR6BJTfGi6h7YRYy8XfuBj8H8mgtt Wu+xZd/zaKlGASZ93qbpn+nFvS6HXL0wIVZaSv84Wt6HeV5n769aIILtTa1j RSoDqNnV1rr1iginFx9YznIbxD/t+bG50yIc3mm8p+/QIBjVQtMVMyI4nhOP 6z46iJ0FwtFrYgx0ednjTScG0VF02D58NoO3xdyXZZGDeGVtbW4zl4HxtoAD ybmDqA7ZsyFLmQH3TFS67dQgGhWf5l03YGAodJHt3j6EqGhZ835nBqW7t1XE 7RwC2+ymyxoXBlbPN5+0cB6CeXe3X+weBvsTV/fe3jsEZZ83Kav3MThvPDcn 0HMIF0nER38PBpzAZ/aKwUPYNuJrXu/N4Mb08rjtt4YwfKn+eWkIA6X5H+bU fB9C/eMlGr1ZDNqfx8XYTQ8h3teke/gmgyRfHamWmSGUrfLv5GUzUHy1f/Z7 CRYeK7mnTtymjqqdJvIsRAncnSUeMFgwmfpRYwUL4rllwh9FDOaNbek76cCC 4ZCFlG8lA4mKtIIV6Szc0DXZjwEG7zdYbx3MZGGW25s8o0EGBWXCodQsFgxK zllrDNH1lWxUVLzLwrtj/hs/sxgU5Q0Gij1koeG9g2/GKAOP9BVm/fUsaLrK /twkpPEKzqm5+okF72dX1O98Z/D72vJ3cx2G8cuJ3uP7lAletnbmlm4fxoEX kVJqCwkW+n0IO7ZzGIu1f0j1UFfc1tGtdRkGz2OZ9W4VAiWVSwFnDw5jcOP2 8i3qBOXfvGS/nhqG+99PpuctI5CtkN/IvjGMAMFU/eqVBDl2h2+8+DKM8Eh/ 834QrDXUssC3YbS5dL74YxPBC/mh3orJYYiXGnSKWxK0drirVIqNYEfAQLn2 ZoLP7vsSq2VGkCjdFHzEmsAiYGdIw5IRlIdbfW/fSu9PtdjbbjOC/+ZVqBx0 IpgQqC/gXB3B2Iba0F2HCJIzxurTU6g/p2/sol6zozjMOX0EW4xMk/YdJvB/ uJ28zBpBcNfkdw9PAlHQ2ea03BFIKjEdXkcIRiU58U5VIwiUCRW4/UbQubRo 7nPRCKwnm0bF/AkeO9vOTrZm45+TDeN6YQSxDqVRmrZsuCs7rk6gdrPSn3Pb jo2EZKVl49Sz1sjKlTiycc/bUrP0LIGjYsuinr1syDjuidocQcBt3WOg6Uef P+TiYBdFoO541OnWFTYaAl10l10gCNsadb2Yw4ZYVX/ajysE7R7ebsY8Nupb kwt3XCXQPuWglitgIzloUewN6ldZCpezP7BR5Gp01vJfAuXJjOik72x4cuJT zl4juJdX4ndCfpTmy1f/fkql8VTkmhuajuL9vIrxvOsEWv32PdlRo9C/lWUa eo8grsq8wCV2FCpXLMTqqD/eNYyWvjCK4jVfE+TvE1QFyK/9/dIoxLVDvmRS e81pv2iSNopoLwXx5w/o99bss60sHIXJRKcOk0uwKu5YyUDvKHS6Xo3rFBGY /RKZrGbCger4bsuJUoKuw2qmGWs5CBdfFG74lOBkYn73sl840DWkKZc6d7RH XW8DBwYV9pZt1EuSjbJMbThwtGrIeFBG4z3elee8nwOXbI14l2cErx/o1ydE cNDb4K2SUEH/z5KWb+IdHGy3kvc5X0sgrxbwuLyTg1jn6toy6kqlhf6nejhY Wab6n4Bad+6vXG4/B2W6RqztdQTkE6erhcvBh/qHDfPrCSIafzzK+MGB/bM4 mfgGut7AVcfXG4xBqFdvcew13Z+vEoZPhI+h2tJ4U0ErQZ9sp/fUuTH8rbQ3 7S111TZNEhM9ho9WRu++UV9qfjCZeWEM9vlm01ZtBAbt9cpNV8ZQ47mf10Xt 8U7cVv/BGC46mh/52k5QN3Yqh9U+hssvIyNXdBJck/AI3KXNBXsLPhu+I/jh qfJzmy4XMtW35jpQe1W3TuzQ58Lnvy7p36iNI6xOb1/Fhfoh7otb1A0zeme2 ruNCWT1XTeM9wdfvn8IstnGhev3Tpdm9BHvGz18wCOQiuL9yurqP5oeBxzdn 1XCx+HTQIakhgsR5oaFP6rjISXa00aKWMbfe69vIxY/gdOUN1LOutct1NXMh HsT386f+6ESC7r/jIoxxXdhL3Vqrt2Mn4WIkId72AYsgPi9tMkOdhz8JKVk3 QiAZGr57vT8PkrUeYWocguJx4beKkzx0Spb0GFF7Hd173eZPHuS8Fi/fTF2z YzXf+S/6vKxjlA915PL+sONRPPhNXEwso5ZoWJeTncJDbZPFE9cxOj+lD+Ly VTzky90rjuYSiN33KBhW5MNKw6v/KZ/GW9h9/PpCPlbrmk+9po43dlrlpsoH 2yRPdoBapdQqr3MxH2+crk6JC+h+r9fLadDjg2fD+cmO2m304518Cz5CBu8U vKV+qhWTecaHjw1Vre+HhAQBqQUJilV8zHav+aWVIXgylRpTVcPHJlOxlAHq KY/o8IB6Ps6cMmOE1DEr3E+1v+GjTLY9cC4hSM+VcU/q5kOonP3Jkrr2xRFD RREfCUPuLwupVUc0XiuoCqD/15J3UR8Inq+MnaNwXICCZoHkgo8Epm9VmpJO CGB6X5WrTl0Ycvcf5ZMCuEU1VupQ32yqU1cNEsA8re1Xc+rYPySNlkYIcDrR ZOVR6l2PIpyMrgpQf4O1oYx6zCw01e6FAC7TlnvdPhEo2AcYRsgLcbBsoPL8 Z4IblfNlzRSEWLei+s/L1Mbr83jjSkJwlwSsyKB21OPeOaQmxLNgB69C6jgp Dy1LbSGKdHIju6glqu0WiZkJMdmy0EZrguCLuZbY30eEWBs99q2Qus+otSP4 mRAPBsqiy74QXBcohM6uEMJk8ktvJfXh+866CZVCrJfwXtlIzdPuDrpRJ4Sr 5mRpN/UXjYHF9a1CVBz0uviZWkFGeEx5lH4/dLWR0VcCG470VL6cCPP7nB1S qQszoc32EOFoqtmU138En858kj50SASLWRj2oTZ1vSvo9xRB/EhR9Qnq8vnz H3V7i6C3gQkKoa47O2D5OoC+L8wg7zJ17+HQAw+jRaj7XIJKaqmfylPP5osw JmBpq30jcC8wVVj8Q4QHJetuP6Mu2f+ffCvtw3oTPfmV1PJSZfPO0T5sZGrp ynrql24b5/DmMPgc5Ha9jXq5jPVMsRKDmL0OzhxqjpeTaJs+gy99/xPKfyc4 ru7bGLKbQbO+3KQb9dmorPA+2udUNPfYi6jlTkvbH8pjUL6xx2acOtXbT5FT wGCzwhNMUD9yWJ9NihkkPNTUm6bmKLTVzKpgsFP2Tce8SQKHTLE5+h0M1tt1 XVtJvejJgcRTkwx85RT4R6nzuIvT5LfRuusr/lMndWxG1MEBRwL9BXbNPdRe u0Q6+bQPKDVyD+ij1nz2rHC7K4GRzJfCEeq4i7/WxdO6P6O9bs5Ham/TlHGZ YILfe7205Kfo+iOVt0rfoaOkpoI19Y91IXLdtM4px5m42lK/E42038mh5y7T J9We+pLrI3cbWrcuR9ipOlHPGOw6GUXrzN1J6Y/u1H1tFzNndxCwxvOXnqYu jf7q2UHz8s9a0uvPUCebH9DP7qGj3L0dodQOt1cVbx6g88xsCjxHXRbU1BjO I3hQzMu8SH3V6OeLTjQv/MY03kyi9h9O361Fz3FOkeStK9R623wHX9JzoKCc kplGLSH+9tYlug/7tk/8m0k99Njc5yCNu79NSWIW9TOf7NXG0wRLbQYiblH/ u1R2YmaG9mmX/wi8S/1/gEBZDw== "]]}}, GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGBwA2IQDQP3NDWEa+2u2jOggA/2slccgWiu/fbc29tybz+D 8tfai+6Z0zQ9+AGUv9f+kPv+fY9XXLCfpOIJRIfsz/yoE9h85ri9WPxH0fiP R+1VegXnvf1/wH7WTBA4ab/oZJs/l+cOqP6z9nv/nrXYF7HRPoC9FIgu2B/9 M1nn9fEVUPMu2cvf3HQtbvNCe7By2Sv2ZScmvkzynAk1/6r9vKxf72/wT7KP qDkaXnP0un3Jw3W89Wc7ofbdtH8aHqFnltdkD/IFENn/izie5htSBbX/rv1/ qT+5DeeK7MHGid63z7l7levO3Syoex7Y7z40Y99Bg2R7sHT8Q/tnzTmRllnR UPc9shcSLUphmRpsbwwGj+3XOJn+Lf7pDXXvE/sF+vk3g34725eCDXxqz+VS 9XZWtw3U/U/tHx0yOrc92QQezr+stuXvVdCF+ue5fR+rpbbdORX7n13rf3St f2Ef91hH8vUOWaj/Xtpfq/0t+NFK1N56RbPViuZX9mE3ui8Yh/BB/fvaXnK/ 1L3bK1ntwcaFv7HPfTP5/PJP/+wg/n9rr2Xdp8Yl/c1u3yNtIHpn/1n/9JLw Ke/tIOHx3v6S26197X3P7GDpoujlbKlVMg/sXsz7unW95Q57WPqB+GervZNh UeGNoOuj6WOEpw8Aoj0aAw== "], { {Hue[0.67, 0.6, 0.6], InsetBox["\[FilledCircle]", 2], InsetBox["\[FilledCircle]", 3], InsetBox["\[FilledCircle]", 4], InsetBox["\[FilledCircle]", 38], InsetBox["\[FilledCircle]", 39], InsetBox["\[FilledCircle]", 40], InsetBox["\[FilledCircle]", 41], InsetBox["\[FilledCircle]", 42], InsetBox["\[FilledCircle]", 43], InsetBox["\[FilledCircle]", 44], InsetBox["\[FilledCircle]", 45], InsetBox["\[FilledCircle]", 46], InsetBox["\[FilledCircle]", 47], InsetBox["\[FilledCircle]", 48], InsetBox["\[FilledCircle]", 49], InsetBox["\[FilledCircle]", 50], InsetBox["\[FilledCircle]", 51], InsetBox["\[FilledCircle]", 52], InsetBox["\[FilledCircle]", 53], InsetBox["\[FilledCircle]", 54], InsetBox["\[FilledCircle]", 55], InsetBox["\[FilledCircle]", 56], InsetBox["\[FilledCircle]", 57], InsetBox["\[FilledCircle]", 58], InsetBox["\[FilledCircle]", 59], InsetBox["\[FilledCircle]", 60], InsetBox["\[FilledCircle]", 61], InsetBox["\[FilledCircle]", 62], InsetBox["\[FilledCircle]", 63], InsetBox["\[FilledCircle]", 64], InsetBox["\[FilledCircle]", 65], InsetBox["\[FilledCircle]", 66], InsetBox["\[FilledCircle]", 67], InsetBox["\[FilledCircle]", 68], InsetBox["\[FilledCircle]", 69], InsetBox["\[FilledCircle]", 70]}, {}}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0.1}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}], {975., -116.80842387373012`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ GraphicsBox[{{{}, {}, {RGBColor[1, 0, 0], LineBox[CompressedData[" 1:eJwV1nk41tn7B3DKUkRZytqiMIjyVWOK8k5EKCVJNWihMoYm0kTDiGwJNVKT taTdXpKoZKeyZynrw+PxrJ+TSk0hv/P743Od63Vdn+Wc+3POfd9ah//YdWSW mJhYP73+f7Q/wm17yXOxSCoJ4aakPIWElfqJQbW1MMxbkVSS8xRrrl9Lf6Rm jbsFJRkDz5/Coan7YYbabrRe0SI7h5/C1evr8yQ1L0x5+clUrCxD/+oYqwS1 QBx8+DCt9mUZbizcER2nFondnnNrr38qR/icRz+dV0uGsfpQbFboC+zdl1Xw YfwWVmeaG+W7VkF2JtzNdkkB4p0+HBQV1kLHieFWXyhGaEdoBM+vEaeb1+Pa 56cYZifdj5nVDJVihQFx8Qq0SAxW63i2oWTY6k3Lhip4pP295ua6t6jyydDY J6xBcKcrosy6MaG7cX6eXz2ueuouH/3fe8z6lrNAQ+cVptMlHVti+mE6c7DE Of8NbBvcN0ntG8KbyLXNdQYt0JLSsIxjs7D0kuDbfaYV99+L/nKOGYHg6+BA p3E71NKIQHuajVv88lfyiR1YkMK6YxDMgfziu4TNfotB/2MdLS1jiP/t8dEb 2l04ekZeM3Sciy+bctjeYd3YWeeXypnLR6BJTfGi6h7YRYy8XfuBj8H8mgtt Wu+xZd/zaKlGASZ93qbpn+nFvS6HXL0wIVZaSv84Wt6HeV5n769aIILtTa1j RSoDqNnV1rr1iginFx9YznIbxD/t+bG50yIc3mm8p+/QIBjVQtMVMyI4nhOP 6z46iJ0FwtFrYgx0ednjTScG0VF02D58NoO3xdyXZZGDeGVtbW4zl4HxtoAD ybmDqA7ZsyFLmQH3TFS67dQgGhWf5l03YGAodJHt3j6EqGhZ835nBqW7t1XE 7RwC2+ymyxoXBlbPN5+0cB6CeXe3X+weBvsTV/fe3jsEZZ83Kav3MThvPDcn 0HMIF0nER38PBpzAZ/aKwUPYNuJrXu/N4Mb08rjtt4YwfKn+eWkIA6X5H+bU fB9C/eMlGr1ZDNqfx8XYTQ8h3teke/gmgyRfHamWmSGUrfLv5GUzUHy1f/Z7 CRYeK7mnTtymjqqdJvIsRAncnSUeMFgwmfpRYwUL4rllwh9FDOaNbek76cCC 4ZCFlG8lA4mKtIIV6Szc0DXZjwEG7zdYbx3MZGGW25s8o0EGBWXCodQsFgxK zllrDNH1lWxUVLzLwrtj/hs/sxgU5Q0Gij1koeG9g2/GKAOP9BVm/fUsaLrK /twkpPEKzqm5+okF72dX1O98Z/D72vJ3cx2G8cuJ3uP7lAletnbmlm4fxoEX kVJqCwkW+n0IO7ZzGIu1f0j1UFfc1tGtdRkGz2OZ9W4VAiWVSwFnDw5jcOP2 8i3qBOXfvGS/nhqG+99PpuctI5CtkN/IvjGMAMFU/eqVBDl2h2+8+DKM8Eh/ 834QrDXUssC3YbS5dL74YxPBC/mh3orJYYiXGnSKWxK0drirVIqNYEfAQLn2 ZoLP7vsSq2VGkCjdFHzEmsAiYGdIw5IRlIdbfW/fSu9PtdjbbjOC/+ZVqBx0 IpgQqC/gXB3B2Iba0F2HCJIzxurTU6g/p2/sol6zozjMOX0EW4xMk/YdJvB/ uJ28zBpBcNfkdw9PAlHQ2ea03BFIKjEdXkcIRiU58U5VIwiUCRW4/UbQubRo 7nPRCKwnm0bF/AkeO9vOTrZm45+TDeN6YQSxDqVRmrZsuCs7rk6gdrPSn3Pb jo2EZKVl49Sz1sjKlTiycc/bUrP0LIGjYsuinr1syDjuidocQcBt3WOg6Uef P+TiYBdFoO541OnWFTYaAl10l10gCNsadb2Yw4ZYVX/ajysE7R7ebsY8Nupb kwt3XCXQPuWglitgIzloUewN6ldZCpezP7BR5Gp01vJfAuXJjOik72x4cuJT zl4juJdX4ndCfpTmy1f/fkql8VTkmhuajuL9vIrxvOsEWv32PdlRo9C/lWUa eo8grsq8wCV2FCpXLMTqqD/eNYyWvjCK4jVfE+TvE1QFyK/9/dIoxLVDvmRS e81pv2iSNopoLwXx5w/o99bss60sHIXJRKcOk0uwKu5YyUDvKHS6Xo3rFBGY /RKZrGbCger4bsuJUoKuw2qmGWs5CBdfFG74lOBkYn73sl840DWkKZc6d7RH XW8DBwYV9pZt1EuSjbJMbThwtGrIeFBG4z3elee8nwOXbI14l2cErx/o1ydE cNDb4K2SUEH/z5KWb+IdHGy3kvc5X0sgrxbwuLyTg1jn6toy6kqlhf6nejhY Wab6n4Bad+6vXG4/B2W6RqztdQTkE6erhcvBh/qHDfPrCSIafzzK+MGB/bM4 mfgGut7AVcfXG4xBqFdvcew13Z+vEoZPhI+h2tJ4U0ErQZ9sp/fUuTH8rbQ3 7S111TZNEhM9ho9WRu++UV9qfjCZeWEM9vlm01ZtBAbt9cpNV8ZQ47mf10Xt 8U7cVv/BGC46mh/52k5QN3Yqh9U+hssvIyNXdBJck/AI3KXNBXsLPhu+I/jh qfJzmy4XMtW35jpQe1W3TuzQ58Lnvy7p36iNI6xOb1/Fhfoh7otb1A0zeme2 ruNCWT1XTeM9wdfvn8IstnGhev3Tpdm9BHvGz18wCOQiuL9yurqP5oeBxzdn 1XCx+HTQIakhgsR5oaFP6rjISXa00aKWMbfe69vIxY/gdOUN1LOutct1NXMh HsT386f+6ESC7r/jIoxxXdhL3Vqrt2Mn4WIkId72AYsgPi9tMkOdhz8JKVk3 QiAZGr57vT8PkrUeYWocguJx4beKkzx0Spb0GFF7Hd173eZPHuS8Fi/fTF2z YzXf+S/6vKxjlA915PL+sONRPPhNXEwso5ZoWJeTncJDbZPFE9cxOj+lD+Ly VTzky90rjuYSiN33KBhW5MNKw6v/KZ/GW9h9/PpCPlbrmk+9po43dlrlpsoH 2yRPdoBapdQqr3MxH2+crk6JC+h+r9fLadDjg2fD+cmO2m304518Cz5CBu8U vKV+qhWTecaHjw1Vre+HhAQBqQUJilV8zHav+aWVIXgylRpTVcPHJlOxlAHq KY/o8IB6Ps6cMmOE1DEr3E+1v+GjTLY9cC4hSM+VcU/q5kOonP3Jkrr2xRFD RREfCUPuLwupVUc0XiuoCqD/15J3UR8Inq+MnaNwXICCZoHkgo8Epm9VmpJO CGB6X5WrTl0Ycvcf5ZMCuEU1VupQ32yqU1cNEsA8re1Xc+rYPySNlkYIcDrR ZOVR6l2PIpyMrgpQf4O1oYx6zCw01e6FAC7TlnvdPhEo2AcYRsgLcbBsoPL8 Z4IblfNlzRSEWLei+s/L1Mbr83jjSkJwlwSsyKB21OPeOaQmxLNgB69C6jgp Dy1LbSGKdHIju6glqu0WiZkJMdmy0EZrguCLuZbY30eEWBs99q2Qus+otSP4 mRAPBsqiy74QXBcohM6uEMJk8ktvJfXh+866CZVCrJfwXtlIzdPuDrpRJ4Sr 5mRpN/UXjYHF9a1CVBz0uviZWkFGeEx5lH4/dLWR0VcCG470VL6cCPP7nB1S qQszoc32EOFoqtmU138En858kj50SASLWRj2oTZ1vSvo9xRB/EhR9Qnq8vnz H3V7i6C3gQkKoa47O2D5OoC+L8wg7zJ17+HQAw+jRaj7XIJKaqmfylPP5osw JmBpq30jcC8wVVj8Q4QHJetuP6Mu2f+ffCvtw3oTPfmV1PJSZfPO0T5sZGrp ynrql24b5/DmMPgc5Ha9jXq5jPVMsRKDmL0OzhxqjpeTaJs+gy99/xPKfyc4 ru7bGLKbQbO+3KQb9dmorPA+2udUNPfYi6jlTkvbH8pjUL6xx2acOtXbT5FT wGCzwhNMUD9yWJ9NihkkPNTUm6bmKLTVzKpgsFP2Tce8SQKHTLE5+h0M1tt1 XVtJvejJgcRTkwx85RT4R6nzuIvT5LfRuusr/lMndWxG1MEBRwL9BXbNPdRe u0Q6+bQPKDVyD+ij1nz2rHC7K4GRzJfCEeq4i7/WxdO6P6O9bs5Ham/TlHGZ YILfe7205Kfo+iOVt0rfoaOkpoI19Y91IXLdtM4px5m42lK/E42038mh5y7T J9We+pLrI3cbWrcuR9ipOlHPGOw6GUXrzN1J6Y/u1H1tFzNndxCwxvOXnqYu jf7q2UHz8s9a0uvPUCebH9DP7qGj3L0dodQOt1cVbx6g88xsCjxHXRbU1BjO I3hQzMu8SH3V6OeLTjQv/MY03kyi9h9O361Fz3FOkeStK9R623wHX9JzoKCc kplGLSH+9tYlug/7tk/8m0k99Njc5yCNu79NSWIW9TOf7NXG0wRLbQYiblH/ u1R2YmaG9mmX/wi8S/1/gEBZDw== "]]}}, GraphicsComplexBox[CompressedData[" 1:eJztVH8s3GcctlZL/RorM7VYWY3ZNXUdtW52j4RxWCt0XUuoH2lHt7VIrj0/ NoLoupgSRrGenrIijaIztFy1bghKTovTu+HuHHfnqFam9aOx3ffb15L9vz89 yTffvHnfN5/P8zyf97GPiQ85tUVPT69Q91H/DTS39ljNKcag9x88RZCtuinj cA7a2yhoyfoXRB7y/GDXDjVSLW/6yVOqwKkt82sYVpL9GzjPqBHXmipgQaMR pSNJuxUBk5i2DkxrVLbge8udMM8Qk/Nt+LbdW9R7Yhitdtna4Na7uLac1pRa PUTu30e6x3pYV+kgugsiGStdncivZlb5ZPeR+n/g0oxhgOHLbrgWv4zp3dcN NvKvp2mFpF4Pxg40TOd530dZKYVeXBy9vK1wTkDq92P/usbKZeE2tvIOiE5v HUAlk+n7LLmZ9DOIv2yu7biX8hs8dLu6IwicWqx4LG8g/Q0h6mnhczfvOswF UzeGwLz5wiY6vJb0+xAufcu5d1Z/Bf/R9o/P8B/htML2p3STStL/MJRnw+M+ z+TjKI0R3GU3ZhTxrhA+o2jWjKtGH5TASFyZ8KmRGGGX9SVH0ooIPzHULPYb 9fwCdBxfzHHsGAPHsWdduief8H0Myb7Qc1fXcsCReFWbciQQnIm3T/a6SPhL YXT4bdTpZ+P98LzOJec/sastUOTlkUn0GEeQT5ZsuSAdE+M04PaJxpoVkUr0 mYDmAUfk3sJFIUW3YBLSpd2MllwO0UuGnSNRbCdRIqqo7itlsGeZWfvIzhL9 5Fg9ZuIY0fk1dGR0jORYM4g6ueYaS/SUQ7JkFhdjcxKhFL3jCvga2vkf/Saa 6KvAHqmeMJN5Ah/SmIKZzKFf7RJG9J5CkbNpQ2vdlzCjBVAiIdbYnF99hOiv xCyvSyswDAalhq1aCc5A2Q/lFw4RP6ZxJ/x2zUCxP4RLzjqFplHxc54qfK8v 8WcGHfHfFUV/5A1aLt4MsoyvFnxR40X8UsHJr+5CxqQnuDRUsKgy7VvedpD4 p8K5h8bl4np3hNCCqmEezWgv6d9P/FTr3leoyiTAFZS6kQwNXHmDEW96Moi/ Gtz6u+L6sSRnGFDTtX0Wblye8C13R+L3LIJiuSUe0Q6Qp1CEZ5Fk8+zW79J3 iP9aCO7x3mVfsf33nSeaTtiNzVuTeZhD0Sq70lxgCZpu8RxGs7JyXVcsyHzM w4t/6eApp9eRSNmbMI9cdytdzhiTeZmHn4kgOe4rAwTSBj9BN2NFVu+nT+bn CT4rzww8X/ga3qMJLyDJrT7IgrvOejVPC0jeO+/AjF1lbeRSjv+PMS/kz1nL TYtxN4qbsZFfr/xsQmvIllWhnXQzbzbzZjNvNvPmf8ubfwCiZVyh "], { {Hue[0.67, 0.6, 0.6], InsetBox["\[FilledCircle]", 2], InsetBox["\[FilledCircle]", 3], InsetBox["\[FilledCircle]", 4], InsetBox["\[FilledCircle]", 5], InsetBox["\[FilledCircle]", 6], InsetBox["\[FilledCircle]", 7], InsetBox["\[FilledCircle]", 78], InsetBox["\[FilledCircle]", 79], InsetBox["\[FilledCircle]", 80], InsetBox["\[FilledCircle]", 81], InsetBox["\[FilledCircle]", 82], InsetBox["\[FilledCircle]", 83], InsetBox["\[FilledCircle]", 84], InsetBox["\[FilledCircle]", 85], InsetBox["\[FilledCircle]", 86], InsetBox["\[FilledCircle]", 87], InsetBox["\[FilledCircle]", 88], InsetBox["\[FilledCircle]", 89], InsetBox["\[FilledCircle]", 90], InsetBox["\[FilledCircle]", 91], InsetBox["\[FilledCircle]", 92], InsetBox["\[FilledCircle]", 93], InsetBox["\[FilledCircle]", 94], InsetBox["\[FilledCircle]", 95], InsetBox["\[FilledCircle]", 96], InsetBox["\[FilledCircle]", 97], InsetBox["\[FilledCircle]", 98], InsetBox["\[FilledCircle]", 99], InsetBox["\[FilledCircle]", 100], InsetBox["\[FilledCircle]", 101], InsetBox["\[FilledCircle]", 102], InsetBox["\[FilledCircle]", 103], InsetBox["\[FilledCircle]", 104], InsetBox["\[FilledCircle]", 105], InsetBox["\[FilledCircle]", 106], InsetBox["\[FilledCircle]", 107], InsetBox["\[FilledCircle]", 108], InsetBox["\[FilledCircle]", 109], InsetBox["\[FilledCircle]", 110], InsetBox["\[FilledCircle]", 111], InsetBox["\[FilledCircle]", 112], InsetBox["\[FilledCircle]", 113], InsetBox["\[FilledCircle]", 114], InsetBox["\[FilledCircle]", 115], InsetBox["\[FilledCircle]", 116], InsetBox["\[FilledCircle]", 117], InsetBox["\[FilledCircle]", 118], InsetBox["\[FilledCircle]", 119], InsetBox["\[FilledCircle]", 120], InsetBox["\[FilledCircle]", 121], InsetBox["\[FilledCircle]", 122], InsetBox["\[FilledCircle]", 123], InsetBox["\[FilledCircle]", 124], InsetBox["\[FilledCircle]", 125], InsetBox["\[FilledCircle]", 126], InsetBox["\[FilledCircle]", 127], InsetBox["\[FilledCircle]", 128], InsetBox["\[FilledCircle]", 129], InsetBox["\[FilledCircle]", 130], InsetBox["\[FilledCircle]", 131], InsetBox["\[FilledCircle]", 132], InsetBox["\[FilledCircle]", 133], InsetBox["\[FilledCircle]", 134], InsetBox["\[FilledCircle]", 135], InsetBox["\[FilledCircle]", 136], InsetBox["\[FilledCircle]", 137], InsetBox["\[FilledCircle]", 138], InsetBox["\[FilledCircle]", 139], InsetBox["\[FilledCircle]", 140], InsetBox["\[FilledCircle]", 141], InsetBox["\[FilledCircle]", 142], InsetBox["\[FilledCircle]", 143], InsetBox["\[FilledCircle]", 144], InsetBox["\[FilledCircle]", 145], InsetBox["\[FilledCircle]", 146], InsetBox["\[FilledCircle]", 147]}, {}}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0.1}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}], {1365., -116.80842387373012`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ GraphicsBox[{{{}, {}, {RGBColor[1, 0, 0], LineBox[CompressedData[" 1:eJwV1nk41tn7B3DKUkRZytqiMIjyVWOK8k5EKCVJNWihMoYm0kTDiGwJNVKT taTdXpKoZKeyZynrw+PxrJ+TSk0hv/P743Od63Vdn+Wc+3POfd9ah//YdWSW mJhYP73+f7Q/wm17yXOxSCoJ4aakPIWElfqJQbW1MMxbkVSS8xRrrl9Lf6Rm jbsFJRkDz5/Coan7YYbabrRe0SI7h5/C1evr8yQ1L0x5+clUrCxD/+oYqwS1 QBx8+DCt9mUZbizcER2nFondnnNrr38qR/icRz+dV0uGsfpQbFboC+zdl1Xw YfwWVmeaG+W7VkF2JtzNdkkB4p0+HBQV1kLHieFWXyhGaEdoBM+vEaeb1+Pa 56cYZifdj5nVDJVihQFx8Qq0SAxW63i2oWTY6k3Lhip4pP295ua6t6jyydDY J6xBcKcrosy6MaG7cX6eXz2ueuouH/3fe8z6lrNAQ+cVptMlHVti+mE6c7DE Of8NbBvcN0ntG8KbyLXNdQYt0JLSsIxjs7D0kuDbfaYV99+L/nKOGYHg6+BA p3E71NKIQHuajVv88lfyiR1YkMK6YxDMgfziu4TNfotB/2MdLS1jiP/t8dEb 2l04ekZeM3Sciy+bctjeYd3YWeeXypnLR6BJTfGi6h7YRYy8XfuBj8H8mgtt Wu+xZd/zaKlGASZ93qbpn+nFvS6HXL0wIVZaSv84Wt6HeV5n769aIILtTa1j RSoDqNnV1rr1iginFx9YznIbxD/t+bG50yIc3mm8p+/QIBjVQtMVMyI4nhOP 6z46iJ0FwtFrYgx0ednjTScG0VF02D58NoO3xdyXZZGDeGVtbW4zl4HxtoAD ybmDqA7ZsyFLmQH3TFS67dQgGhWf5l03YGAodJHt3j6EqGhZ835nBqW7t1XE 7RwC2+ymyxoXBlbPN5+0cB6CeXe3X+weBvsTV/fe3jsEZZ83Kav3MThvPDcn 0HMIF0nER38PBpzAZ/aKwUPYNuJrXu/N4Mb08rjtt4YwfKn+eWkIA6X5H+bU fB9C/eMlGr1ZDNqfx8XYTQ8h3teke/gmgyRfHamWmSGUrfLv5GUzUHy1f/Z7 CRYeK7mnTtymjqqdJvIsRAncnSUeMFgwmfpRYwUL4rllwh9FDOaNbek76cCC 4ZCFlG8lA4mKtIIV6Szc0DXZjwEG7zdYbx3MZGGW25s8o0EGBWXCodQsFgxK zllrDNH1lWxUVLzLwrtj/hs/sxgU5Q0Gij1koeG9g2/GKAOP9BVm/fUsaLrK /twkpPEKzqm5+okF72dX1O98Z/D72vJ3cx2G8cuJ3uP7lAletnbmlm4fxoEX kVJqCwkW+n0IO7ZzGIu1f0j1UFfc1tGtdRkGz2OZ9W4VAiWVSwFnDw5jcOP2 8i3qBOXfvGS/nhqG+99PpuctI5CtkN/IvjGMAMFU/eqVBDl2h2+8+DKM8Eh/ 834QrDXUssC3YbS5dL74YxPBC/mh3orJYYiXGnSKWxK0drirVIqNYEfAQLn2 ZoLP7vsSq2VGkCjdFHzEmsAiYGdIw5IRlIdbfW/fSu9PtdjbbjOC/+ZVqBx0 IpgQqC/gXB3B2Iba0F2HCJIzxurTU6g/p2/sol6zozjMOX0EW4xMk/YdJvB/ uJ28zBpBcNfkdw9PAlHQ2ea03BFIKjEdXkcIRiU58U5VIwiUCRW4/UbQubRo 7nPRCKwnm0bF/AkeO9vOTrZm45+TDeN6YQSxDqVRmrZsuCs7rk6gdrPSn3Pb jo2EZKVl49Sz1sjKlTiycc/bUrP0LIGjYsuinr1syDjuidocQcBt3WOg6Uef P+TiYBdFoO541OnWFTYaAl10l10gCNsadb2Yw4ZYVX/ajysE7R7ebsY8Nupb kwt3XCXQPuWglitgIzloUewN6ldZCpezP7BR5Gp01vJfAuXJjOik72x4cuJT zl4juJdX4ndCfpTmy1f/fkql8VTkmhuajuL9vIrxvOsEWv32PdlRo9C/lWUa eo8grsq8wCV2FCpXLMTqqD/eNYyWvjCK4jVfE+TvE1QFyK/9/dIoxLVDvmRS e81pv2iSNopoLwXx5w/o99bss60sHIXJRKcOk0uwKu5YyUDvKHS6Xo3rFBGY /RKZrGbCger4bsuJUoKuw2qmGWs5CBdfFG74lOBkYn73sl840DWkKZc6d7RH XW8DBwYV9pZt1EuSjbJMbThwtGrIeFBG4z3elee8nwOXbI14l2cErx/o1ydE cNDb4K2SUEH/z5KWb+IdHGy3kvc5X0sgrxbwuLyTg1jn6toy6kqlhf6nejhY Wab6n4Bad+6vXG4/B2W6RqztdQTkE6erhcvBh/qHDfPrCSIafzzK+MGB/bM4 mfgGut7AVcfXG4xBqFdvcew13Z+vEoZPhI+h2tJ4U0ErQZ9sp/fUuTH8rbQ3 7S111TZNEhM9ho9WRu++UV9qfjCZeWEM9vlm01ZtBAbt9cpNV8ZQ47mf10Xt 8U7cVv/BGC46mh/52k5QN3Yqh9U+hssvIyNXdBJck/AI3KXNBXsLPhu+I/jh qfJzmy4XMtW35jpQe1W3TuzQ58Lnvy7p36iNI6xOb1/Fhfoh7otb1A0zeme2 ruNCWT1XTeM9wdfvn8IstnGhev3Tpdm9BHvGz18wCOQiuL9yurqP5oeBxzdn 1XCx+HTQIakhgsR5oaFP6rjISXa00aKWMbfe69vIxY/gdOUN1LOutct1NXMh HsT386f+6ESC7r/jIoxxXdhL3Vqrt2Mn4WIkId72AYsgPi9tMkOdhz8JKVk3 QiAZGr57vT8PkrUeYWocguJx4beKkzx0Spb0GFF7Hd173eZPHuS8Fi/fTF2z YzXf+S/6vKxjlA915PL+sONRPPhNXEwso5ZoWJeTncJDbZPFE9cxOj+lD+Ly VTzky90rjuYSiN33KBhW5MNKw6v/KZ/GW9h9/PpCPlbrmk+9po43dlrlpsoH 2yRPdoBapdQqr3MxH2+crk6JC+h+r9fLadDjg2fD+cmO2m304518Cz5CBu8U vKV+qhWTecaHjw1Vre+HhAQBqQUJilV8zHav+aWVIXgylRpTVcPHJlOxlAHq KY/o8IB6Ps6cMmOE1DEr3E+1v+GjTLY9cC4hSM+VcU/q5kOonP3Jkrr2xRFD RREfCUPuLwupVUc0XiuoCqD/15J3UR8Inq+MnaNwXICCZoHkgo8Epm9VmpJO CGB6X5WrTl0Ycvcf5ZMCuEU1VupQ32yqU1cNEsA8re1Xc+rYPySNlkYIcDrR ZOVR6l2PIpyMrgpQf4O1oYx6zCw01e6FAC7TlnvdPhEo2AcYRsgLcbBsoPL8 Z4IblfNlzRSEWLei+s/L1Mbr83jjSkJwlwSsyKB21OPeOaQmxLNgB69C6jgp Dy1LbSGKdHIju6glqu0WiZkJMdmy0EZrguCLuZbY30eEWBs99q2Qus+otSP4 mRAPBsqiy74QXBcohM6uEMJk8ktvJfXh+866CZVCrJfwXtlIzdPuDrpRJ4Sr 5mRpN/UXjYHF9a1CVBz0uviZWkFGeEx5lH4/dLWR0VcCG470VL6cCPP7nB1S qQszoc32EOFoqtmU138En858kj50SASLWRj2oTZ1vSvo9xRB/EhR9Qnq8vnz H3V7i6C3gQkKoa47O2D5OoC+L8wg7zJ17+HQAw+jRaj7XIJKaqmfylPP5osw JmBpq30jcC8wVVj8Q4QHJetuP6Mu2f+ffCvtw3oTPfmV1PJSZfPO0T5sZGrp ynrql24b5/DmMPgc5Ha9jXq5jPVMsRKDmL0OzhxqjpeTaJs+gy99/xPKfyc4 ru7bGLKbQbO+3KQb9dmorPA+2udUNPfYi6jlTkvbH8pjUL6xx2acOtXbT5FT wGCzwhNMUD9yWJ9NihkkPNTUm6bmKLTVzKpgsFP2Tce8SQKHTLE5+h0M1tt1 XVtJvejJgcRTkwx85RT4R6nzuIvT5LfRuusr/lMndWxG1MEBRwL9BXbNPdRe u0Q6+bQPKDVyD+ij1nz2rHC7K4GRzJfCEeq4i7/WxdO6P6O9bs5Ham/TlHGZ YILfe7205Kfo+iOVt0rfoaOkpoI19Y91IXLdtM4px5m42lK/E42038mh5y7T J9We+pLrI3cbWrcuR9ipOlHPGOw6GUXrzN1J6Y/u1H1tFzNndxCwxvOXnqYu jf7q2UHz8s9a0uvPUCebH9DP7qGj3L0dodQOt1cVbx6g88xsCjxHXRbU1BjO I3hQzMu8SH3V6OeLTjQv/MY03kyi9h9O361Fz3FOkeStK9R623wHX9JzoKCc kplGLSH+9tYlug/7tk/8m0k99Njc5yCNu79NSWIW9TOf7NXG0wRLbQYiblH/ u1R2YmaG9mmX/wi8S/1/gEBZDw== "]]}}, GraphicsComplexBox[CompressedData[" 1:eJztmfc7Ff4b/9saeEtoSEkTZUYpeUakKGkjqSR6JzISpSKkQUMqUdlkNFSI kr33JvOYx7HT1vqec97353td37/g+4vzS5dLvc5r3Pfj8ey6F5me2nVswrhx 4zInjhvH+fN/H9PAbpEin0aM+38+w/gV/bFyu+lhGN/K/LLCeIh+toG6W3ve g3eDGL14IuW0rxO+rzn+Qm3BIP3eFXt0NdZP9xiAs9Bz7bZzHojPvqHX199P f/8qymYzF1Qa9OMsa5n81Kfe0E3PUniR10f//jYG9KsP2av0YX3rjht+1ncg V2hd8M/zXlrvLqr4xrc6LO3F2628E6Sv3EeLlpeRXxCL1n8AMxEJmM9nQSU+ /0xqUADm2TnVVT/soe97hNe9NvE1Yj1IWnC5b2dSICL2JcYeCGXS9wejJvJA raEkE4+yxePsjodgX57braxX3bSfUMhZTLf3VutG4w/OF4ah3l3DOKq4i/YX jrh7T8xmHOyCqGzzkimXIvBkfXh79FAn7TcSrzUNjzt5dMLIjLPiE3h+tcy0 FO2k/UfhgW3DV6f4DgT4cz7RkJxVu+nejg46TwwCE8MWJPa340Ppt90dEbEQ SbqkUOHVTud7itIA30NNK9sxd9I+/lWvnsFauSq5pKyNzvscH/V4rj483QYD 7oIvYOucpqEq2kbnj8OTjXt9I7MY2Lbmmvrhrjg4a47sqrBi0H28xA3Xh9de z2WgfydnxZfYEu/WcPVmK93PK9TyRmd87W+B10nmz+iPr9CtmdYdpNdC9/Ua WSU6qfavmyF9RYR9hNc4nuY501S0me4vHqOLXv0y8myi+0vA8I4fwTLHGsG5 nTmTEnG3vlWir76B7jMRPryLixx2NGB6XZjNhulvsNO7RjU9/wPd7xvsqPU1 S9H8gBjO8QSSEJM5w9E4q57uOwn2nl5DdzTrocNZTiQZanMe3NyVX0f3nwyh 8usGN/XqwL3e+W9RK6Z8V6Wult7jLZLkfQq0TWvBua1yiXfYan8i/elQDb3P O8iEi7sYu9RAkttIKbD0Nt2qO7OG3isF7/i/BFpFVKOAvdo82fdQ8HBZl7S+ mt7vPf6omQiIV1fhuM/AeSilIlfIeXuAdRW9ZyqKK6T3zZ9RBfbm2EdOw+0z IjkPoyvpfdOgJSF6gl+nEns6Ih5mi6dD9MamrSf6K+i901H65Y1/xO0KhLNv ry4sHZHmydmJyhX0/unwUA4xu9tSjs+/q51YyzIgG9u1SelqOdVDBsJDFxvf ViyHJvfBM6C+2yhGJaOM6iMDTsUqU8MXlIH9eOwDZeKuc1O1nksp1UsmYtev PiHZUQLu9uIywQi2cVysU0L1k4lV13T+rowvhiL3k4VEC4N9youKqZ6y8EXM cpGcTxHc0wtDtBLZPyt/2j1jUhHVVxZeG1rLJJ8tRBX79Q1UsuGd36QqPVJA 9ZaNa9lqe3dbFWAxd8FsiD+de39xXz6K2Kt9+p2NkmeTjt20zIc99wFykM1U tfIczKP6zEFk6cbAP/Z5yGJT8lZmDqYl2kn1/syles2F6r7My6qeuRDkbjAX N6QPmrEEc6l+c/HV61hyZ0gOOLuLz89FnX5cgoRiDtVzHgQ+Xc31y83Gq8dD T3J182D73fnuWuNsqu88yN9ZPmH0UxYmcA+ch4RtgtIVN7Ko3vPh+/KK6WvJ LOziFkw+TN+fU7ifl0n1nw+PGdZGpywyEco5bnU+IgKOlK6elkn9UAB9vtyE pqcZGOEsZ1CA8zoOJw7uyqD+KMAD0zjHZz/SocEp/8YCCARK+GeFplO/FIIZ wEq+vz0d3PI1KcT3VE3m+s9p1D+FkLvzdV6IfhraznEepBAF5+591Y1LpX4q Qhnv3mTpWamQ5xZ4EfTdZL/Lnn1P/VWEmbdkHm1pT8Gle5vYJVOE+l8pjGN6 KdRvxdjRMW6X0/t3qJDgPHAxLHaoFdnIvqP+K8YcWQ2HjeFvsYhdzT4DxRDb X5NdL/qW+rEEymfXnJW+nwxbTnvYlGBHe0iA1Kxk6s8SxNRXOOXfSUIGp/w+ lYDPPiD6m1AS9WspYjMv8MT6vwH3ec+UQldqe1yN+Bvq31IMvC+faBmTCO71 /WD/7OkQaqKcSP1cBsNrE06GZyeAu73zZWiz2HNRbm8C9XcZLnssXP2NGU/+ Lkf6+aTFA+fjqd/LEcVoF+MRikdUri67o8shPjly5bpnr6n/y1FVsfyO85bX 0Gd3o6B7OQxP3shL73pFPCiHa2ib81+PV/i+m7NgOXS+jvNdtewV8aEcpTJe S9QLXiJ4HqchKpCws+GcnPVL4kUFnrL+zBwRYnuC+8AV8L+Ycf/8+zjiRwV4 lkZ35VrEYfgJZ4MViJvOMz1/VhzxpAKaJXznBt1e4IE1p4Mq2Oe/WuDX9pz4 UoE61fxlzpueg11c7JaqRIzgcd6rUc+IN5WYKO+/9bnAM3BoUrm9EqFb7ca1 OD8l/lQiabp2OE9vLLgx5xabmzJTv4seiCUeVcKlMZaXtywG/x23EktlAlGg FUN8qsS9FBUVrbRocJcTrMKij9p9tuujiVdVWCpw7Zb62yhwcbS7ClOyNkVG ro8iflXhxfimz75pT8DFyb0qNKy29fil9YR4VgWxk+7BVaWR4OKgrgo33INq eI0iiW9VMBcWHH7IjIALFzjV+C4UMnraMYJ4V43EYd0N3tMisJzbQNUYnSuo Wvs4nPhXjbyKtATt1eEo47TTw2qYzssIrSkOIx5WY9/zUUUHizA4ctqhuRp8 LVEVopPCiI/VyFHSnJcWGoqFnHJeUAPdUsu2PZtCiZc1sJOukanqCkEep/wO 16DRS32D3PUQ4mcNZG46nTWVC8EpLiBr4CCw5dLh+mDiKdujMtckFrkFYza3 4Wvgri1l9HBVMPG1FvVVzpHeCUHgbm9JLTrkxIoVZgURb2vxydNaZs7pQJhz P7UYLHJdtbL+MfG3Fsr73S+a4DHYzcwmbC16BAWkgqIfEY9rYW/mer1F5BE4 h3Vi1aItSEeH78pD4nMdFjZYmM4fDYAJd8E6GA9lzPl9KoB4XYervtF/gnv8 MYULqDrkb9oz9OOoP/G7DpeGj/CPtj0A5zWEntfh4toTub6mD4jndbDg98lL 7vLDPu4G6/AgVGLKIUs/4ns9lpxUTj7z6T7+cNpNvh7XVxoafr5wn3hfD5PC DUFF0+8jklPOdvXoaz3tNux/j/hfD9tGqbX7pe9Bj3vgehy61S//OfUu+aAe wTPt5qfsuYuvnOf4Uo8HBadawvp9yQ8foHbDyi/Y0xeBnOOu+QCN52GBTyR8 yRcf0FDffOl5+h1s5l7gB5yKPDop9vAd8scHjOR2i/lOuINBjh7efgDCz/ww jvQhn3zA5aNnP//R9cF9Dt5/foCyZMzjU59uk18a4O0xPz7i0W1w8byhAdt6 NJc90L5NvmlA/CpeifM9t8DF68UGhJR7XhDTukX+aYBL2NC2iRE3wcVfegMc pcJq5k+9ST5qQN7kiFeG1jf+w8uERnw0Z1VG13mTnxqxRfeJ4+9N3uC276ZG dOm9VtB67UW+asS0/vZO26Ve4LbH5UYU/XRMOR1wnfzViOLtdxUheB3c8stt xOVVCfxZ3tfIZ4149FT5wMi0a6jhPO/UJthcb7FKu3aV/NYElo9123zeq7jA 3WET9LXV7v2+fYV814Ts9MbYPXOuYCm3AJvg5/H6mnCoJ/mvCYFb06oUZTxR Usz5NGHdmfXWYSmXyYdN8Fp/1Nlg+2U4cIHajD9SikbaDA/yYzMmLlWIMHPw gBi3oJth7bpRPoLXg3zZjGgdK94/Ee7I4eDepxkXLlWcN1N3J382o2m57d+S FjdYcXHajPjZEtpyF93Ip80ws3daf2mhG7i4EmrBjICkb4mZl8ivLXB2Ky3I s7gELg72tWD5ER35GP5L5NsWDF4wbdnzxhXcdvNrwcaFo3GpR1zJvy3wtnn2 poXPFf+VcwtYd7MPGji6kI9b8PLKu7+qtRfBLZd5rdDoTnExWnuR/NyKlFtn TIIfX6D/J7dieyGf7Z/JF8jXrThcZN1qZnse3OM+bgVPd7hEdqsz+bsVhorr J/LtdMZ/y7XC+FqEn1zOOfI5Az/uvdQQVz1H/c6A+ue/L0sSzpLfGVCadblJ SuEs9T8DU3Jnjpd66US+Z8BrX0f4ewUn4gEDVz+tu1Of6Ej+Z0Bg769aqw2O xAcGhO12Z9nknqE8wMC4xUd6qneeIV4wUHljUORmqwPlA/a/V1lucvuUA/GD Adsww+nl4x0oLzDQqZYapn7/NPGEgc3PNQc+rDxN+YGB2KUWHTdy7IkvDDBK Jr7bddie8kQbdvKqMsR+2xFv2iDvY/il86Ed5Ys26PAnVzxWtSP+tMHz7FtX tVZbyhttyE1N3Pje3ZZ41AbFnNFLAlK2lD/Yv3+a1yVTaUN8Yn+fpMGGf87b UB5pQxmj92rUchviVRvizcMGOqJPUT5pg/KTGTk5PKeIX20Qlbn0pOu4NeWV NjCL5H8qlFgRz9rgZa7j/Hi1FeWXNnQWblIWDjpJfGuDkcJa7+u8JynPtGOm vvqqwfOWxLt2/EpumS0/fILyDfv37mZ+muYniH/teNhkqzGv9V/KO+0IvXfq R5jRv8TDdgjri3RV1R+n/NMONc1fpx8ZHic+tqPWUspkuMmC8lA7SgaT/DNN LYiX7bj/1O7olD5zykftePzeZe0LB3PiZztkCkRq4yaYU15ir8ertPavzzHi aTt+jhg/uLn4GOUn9n5mHzi5+40Z8bUDQfdnHtPYbkZ5qgMXbm610u86Srzt wIaI61F2LkcpX3Vgjft320DRo8TfDsjPUz5QkGxKeasDhYF60ixDU+JxBy6K hDd/+nmE8lcHkg92BLcGHSE+d2Dw2u+aUK0jlMc6oOu97J/VA4eJ1x1YNFrP f/3+YcpnHYhgtOQ+VD9M/O6Ao1Da8/SmQ5TXOtC1plM0UOUQ8bwDjZ3/FqT6 m1B+60CxbtUEwd8Hie+d6F8n/e+Vowcpz3UieLXeR/4SY+J9J/i2bGh/oGJM +a4TgxfPVglHHyD+dyIx3iL2jOgBynudGI1Nefz0thH5oBPdaz5KRk81ovzX iSP6qXNN3A3JD5041BPs8n6cIeXBTjw0OZaQ7GpAvuhEzZG3RloTDSgfduKU RNHu3Vf3kz868SuWkVf7z37Ki51YqjFdPMt/H/mkEz8fFU/mXbaP8mMnLrfV HYmI30t+6QLf6mwjd629lCe7cCizendA/R7yTRfal2T0tVjtoXzZhZlfPX5q Td5D/unCJVele9mBuylvdmGvWfME/XW7yUdd8BQ2yWmu20X5swtzhPf7HnXc RX7qQmueoEHdnF2UR7sgVuqkIJuyk3zVhfS0yaePHNlJ+bQLz+Tzg8ym7iR/ dWE8y/Rf2Zf6lFe7ULBIKD7pgD75rAtyZRk+33j0Kb92w8RR2CPXcgf5rRuu jCTT7kI9yrPd2HNXdHjDKj3yXTdK9H69SrmznfJtNzSX2Hnu+rmN/NeN6CjV B0Pm2yjvdiM7eb6FR40u+bAbOulKGeO1dSn/dsNW1THT4J0O+bEbN+z5q84p 6FAe7oaQMCPC8OlW8mU3O99NW8NcsZXycTcOZZ8oFI7aQv7shqe1Um+d5BbK y904u8XzmPhzbfJpNz4+mLijfbU25WcmPD3dfwqkbia/MjF1TfK44K2bKU8z MZjQo+hep0W+ZWK2S0jUcwstytdM9Hi5vBAZ1ST/MmGdMVL94qYm5W0m6gJ5 GdZLNcnHTOjx7qnYkrqJ8jcTeVJBbQqGm8jPTAhP+eQq8VWD8jj75xn/7uW7 p0G+ZuLMknnrWEoalM+ZWHnkH7Wn9erkbybkpq4N23ZBnfI6EwW/zZrTF6uT z3sw/9BWn79FG8nnPTBRcfX967CRfN6DMxp+zDeLNpLPe8AcUb2IQJDPe3Be +uxH419q5PMevDK4rfbmoBr5vAdbugsrNmRuIJ/3gCG08yRDcgP5vAculk4S t+6qks978OvDXKN1E1TJ5z1oPjScX2m3nnzeAx7ecfZbu9eRz3vgJjU5+pbx OvJ5DxzO9E3xq1Ehn/dAZ/l2u507VcjnPUiN+zHnZdla8jkLF/g9TkXpryWf s+B/ul5WqnoN+ZyFmfiwX9JoDfmcBfycsMK/XZl8zkKT+WwJKytl8jkLXzeW 8fiPKpHPWWAW3PkgcF2JfM6CaPnamnxRJfI5C/NWFJ9OeLGafM7CT+v9VkVa q8nnLIz7lvjsb7Mi+Zz9fak2B7WdFMnnLITvudPoJ6RIPmdhmefd992vFMjn LPSka5ZK7lYgn7PwdlI87/4v8uTzXuhvk44185cnn/eiZ8dS/q2QJ5/3IsRz e9Fotxz5vBeBuh5RNrflyOe9iOHtCQhZL0c+78WSilyvaRWy5PNe1Gq7fpaQ kSWf92L6mwsnLt6UIZ/3wjXJHDNGVpHPe/FdQHdessEq8nkvYi0GvjhmriSf 9yI0RWThWtmV5PNeyNiOKPQGSpPPe+GfaCfmMlOafN6LmWvfz+7xlCKf9yGm JihS5K8k+bwPy7X5/H+dlSSf94HvYsgU728ryOd9OBS0Su+N4wryeR9ErXWF bEeXk8/7YDruu/pTl+Xk8z6M+itNNOZZTj7vw7Ur8Tn2PsvI531Iq3VbwxRb Rj7vg3J+plbM06Xk8z7E1VuIvtywlHzeBwZGFw6XLyGf9yEp6/DXA+ZLyOd9 KE2Lc2b9Xkw+78Ns9Um5N/wWk8/7UC2yb7Ga4mLyeT+U3x6dM1wuQT7vR9ng 3UP+NhLk8364/+lhygpKkM/7sf00qyo6YRH5vB9RKqFOv40Wkc/7IfAz0HjR hEXk834EJA0o88aKk8/7Mf/4ssH4veLk8378vunoJzhBnHzeD8vTp/rWHl5I Pmfvz/HbsG/aAvJ5P3hWHD2zVGIB+bwfsZ0uU5uviJHP+zHn8J6rMcPzyef9 +Pe4reRF4/nk834kb9O12VIkSj4fQELiQ7lRVVHy+QCeFBd5ebycRz4fwGVb 86H6FfPI5wO4cPbOLFboXPL5ADRi7v6IXDiXfD6AlYcMeycFzSGfD0AwZrLD F/E55PMBuBXesrKMmE0+H0BFjUmf4crZ5PMBLLH8qB2fIEI+H4D5Di8xa3UR 8vkAykpYWs5lwuTzAex9+6e+7JAw+XwAvJ9fSh8eESKfD0Bpc3Sp+BUh8vkg Dl4RuTFlgRD5fBC+tV6WU97MIp8PwqKuJlJ41yzy+SB+lDS+khwSJJ8Pgv/C ZZW1NwXJ54MIjYqcu0ZWkHw+iCXiw8fmV84knw9iVLH7aMuZmeTzQQSea7pu LzaTfD4IkcKvbpU5AuTzQUjpyi4ZOSVAPh+EivcRhwJRAfL5IBZ8jt8XdOcf 8vkgjuk27Pg+zE8+Z693Yc6I9y5+8vkggneWv9j2ho98PoTN8ov1ly/kI58P 4biS+gDvdV7y+RCuM9NGBr7NIJ8PIeTSD9F3x2eQz4ewwuO03bGm6f937rzZ cfe2ll3TyedDUHpWrDO7eBr5fAgfm6INJmyZRj4fwnirsiif3Knk8yH82lwU /0Z7Kvl8COCzXG9RxEM+H8JPb0P47uQhnw8hQDtrsmzDFPL5EBYNjReWOTaF fD4Enld6ih4jk/G/Ofl9RedjS90mQ3eiyWVpgwT8b57+Xz/Eo7HDfEDvc+PY PHNsnjk2zxybZ47NM8fmmWPzzLF55tg8c2yeOTbPHJtnjs0zx+aZY/PMsXnm 2DxzbJ45Ns8cm2eOzTPH5plj88yxeebYPHNsnjk2zxybZ/5/m2f+HxswHrA= "], { {Hue[0.67, 0.6, 0.6], InsetBox["\[FilledCircle]", 2], InsetBox["\[FilledCircle]", 3], InsetBox["\[FilledCircle]", 4], InsetBox["\[FilledCircle]", 5], InsetBox["\[FilledCircle]", 6], InsetBox["\[FilledCircle]", 7], InsetBox["\[FilledCircle]", 8], InsetBox["\[FilledCircle]", 9], InsetBox["\[FilledCircle]", 10], InsetBox["\[FilledCircle]", 11], InsetBox["\[FilledCircle]", 12], InsetBox["\[FilledCircle]", 13], InsetBox["\[FilledCircle]", 14], InsetBox["\[FilledCircle]", 15], InsetBox["\[FilledCircle]", 16], InsetBox["\[FilledCircle]", 17], InsetBox["\[FilledCircle]", 18], InsetBox["\[FilledCircle]", 19], InsetBox["\[FilledCircle]", 20], InsetBox["\[FilledCircle]", 21], InsetBox["\[FilledCircle]", 22], InsetBox["\[FilledCircle]", 23], InsetBox["\[FilledCircle]", 24], InsetBox["\[FilledCircle]", 25], InsetBox["\[FilledCircle]", 26], InsetBox["\[FilledCircle]", 27], InsetBox["\[FilledCircle]", 28], InsetBox["\[FilledCircle]", 29], InsetBox["\[FilledCircle]", 30], InsetBox["\[FilledCircle]", 31], InsetBox["\[FilledCircle]", 32], InsetBox["\[FilledCircle]", 33], InsetBox["\[FilledCircle]", 34], InsetBox["\[FilledCircle]", 35], InsetBox["\[FilledCircle]", 36], InsetBox["\[FilledCircle]", 37], InsetBox["\[FilledCircle]", 38], InsetBox["\[FilledCircle]", 39], InsetBox["\[FilledCircle]", 40], InsetBox["\[FilledCircle]", 41], InsetBox["\[FilledCircle]", 42], InsetBox["\[FilledCircle]", 503], InsetBox["\[FilledCircle]", 504], InsetBox["\[FilledCircle]", 505], InsetBox["\[FilledCircle]", 506], InsetBox["\[FilledCircle]", 507], InsetBox["\[FilledCircle]", 508], InsetBox["\[FilledCircle]", 509], InsetBox["\[FilledCircle]", 510], InsetBox["\[FilledCircle]", 511], InsetBox["\[FilledCircle]", 512], InsetBox["\[FilledCircle]", 513], InsetBox["\[FilledCircle]", 514], InsetBox["\[FilledCircle]", 515], InsetBox["\[FilledCircle]", 516], InsetBox["\[FilledCircle]", 517], InsetBox["\[FilledCircle]", 518], InsetBox["\[FilledCircle]", 519], InsetBox["\[FilledCircle]", 520], InsetBox["\[FilledCircle]", 521], InsetBox["\[FilledCircle]", 522], InsetBox["\[FilledCircle]", 523], InsetBox["\[FilledCircle]", 524], InsetBox["\[FilledCircle]", 525], InsetBox["\[FilledCircle]", 526], InsetBox["\[FilledCircle]", 527], InsetBox["\[FilledCircle]", 528], InsetBox["\[FilledCircle]", 529], InsetBox["\[FilledCircle]", 530], InsetBox["\[FilledCircle]", 531], InsetBox["\[FilledCircle]", 532], InsetBox["\[FilledCircle]", 533], InsetBox["\[FilledCircle]", 534], InsetBox["\[FilledCircle]", 535], InsetBox["\[FilledCircle]", 536], InsetBox["\[FilledCircle]", 537], InsetBox["\[FilledCircle]", 538], InsetBox["\[FilledCircle]", 539], InsetBox["\[FilledCircle]", 540], InsetBox["\[FilledCircle]", 541], InsetBox["\[FilledCircle]", 542], InsetBox["\[FilledCircle]", 543], InsetBox["\[FilledCircle]", 544], InsetBox["\[FilledCircle]", 545], InsetBox["\[FilledCircle]", 546], InsetBox["\[FilledCircle]", 547], InsetBox["\[FilledCircle]", 548], InsetBox["\[FilledCircle]", 549], InsetBox["\[FilledCircle]", 550], InsetBox["\[FilledCircle]", 551], InsetBox["\[FilledCircle]", 552], InsetBox["\[FilledCircle]", 553], InsetBox["\[FilledCircle]", 554], InsetBox["\[FilledCircle]", 555], InsetBox["\[FilledCircle]", 556], InsetBox["\[FilledCircle]", 557], InsetBox["\[FilledCircle]", 558], InsetBox["\[FilledCircle]", 559], InsetBox["\[FilledCircle]", 560], InsetBox["\[FilledCircle]", 561], InsetBox["\[FilledCircle]", 562], InsetBox["\[FilledCircle]", 563], InsetBox["\[FilledCircle]", 564], InsetBox["\[FilledCircle]", 565], InsetBox["\[FilledCircle]", 566], InsetBox["\[FilledCircle]", 567], InsetBox["\[FilledCircle]", 568], InsetBox["\[FilledCircle]", 569], InsetBox["\[FilledCircle]", 570], InsetBox["\[FilledCircle]", 571], InsetBox["\[FilledCircle]", 572], InsetBox["\[FilledCircle]", 573], InsetBox["\[FilledCircle]", 574], InsetBox["\[FilledCircle]", 575], InsetBox["\[FilledCircle]", 576], InsetBox["\[FilledCircle]", 577], InsetBox["\[FilledCircle]", 578], InsetBox["\[FilledCircle]", 579], InsetBox["\[FilledCircle]", 580], InsetBox["\[FilledCircle]", 581], InsetBox["\[FilledCircle]", 582], InsetBox["\[FilledCircle]", 583], InsetBox["\[FilledCircle]", 584], InsetBox["\[FilledCircle]", 585], InsetBox["\[FilledCircle]", 586], InsetBox["\[FilledCircle]", 587], InsetBox["\[FilledCircle]", 588], InsetBox["\[FilledCircle]", 589], InsetBox["\[FilledCircle]", 590], InsetBox["\[FilledCircle]", 591], InsetBox["\[FilledCircle]", 592], InsetBox["\[FilledCircle]", 593], InsetBox["\[FilledCircle]", 594], InsetBox["\[FilledCircle]", 595], InsetBox["\[FilledCircle]", 596], InsetBox["\[FilledCircle]", 597], InsetBox["\[FilledCircle]", 598], InsetBox["\[FilledCircle]", 599], InsetBox["\[FilledCircle]", 600], InsetBox["\[FilledCircle]", 601], InsetBox["\[FilledCircle]", 602], InsetBox["\[FilledCircle]", 603], InsetBox["\[FilledCircle]", 604], InsetBox["\[FilledCircle]", 605], InsetBox["\[FilledCircle]", 606], InsetBox["\[FilledCircle]", 607], InsetBox["\[FilledCircle]", 608], InsetBox["\[FilledCircle]", 609], InsetBox["\[FilledCircle]", 610], InsetBox["\[FilledCircle]", 611], InsetBox["\[FilledCircle]", 612], InsetBox["\[FilledCircle]", 613], InsetBox["\[FilledCircle]", 614], InsetBox["\[FilledCircle]", 615], InsetBox["\[FilledCircle]", 616], InsetBox["\[FilledCircle]", 617], InsetBox["\[FilledCircle]", 618], InsetBox["\[FilledCircle]", 619], InsetBox["\[FilledCircle]", 620], InsetBox["\[FilledCircle]", 621], InsetBox["\[FilledCircle]", 622], InsetBox["\[FilledCircle]", 623], InsetBox["\[FilledCircle]", 624], InsetBox["\[FilledCircle]", 625], InsetBox["\[FilledCircle]", 626], InsetBox["\[FilledCircle]", 627], InsetBox["\[FilledCircle]", 628], InsetBox["\[FilledCircle]", 629], InsetBox["\[FilledCircle]", 630], InsetBox["\[FilledCircle]", 631], InsetBox["\[FilledCircle]", 632], InsetBox["\[FilledCircle]", 633], InsetBox["\[FilledCircle]", 634], InsetBox["\[FilledCircle]", 635], InsetBox["\[FilledCircle]", 636], InsetBox["\[FilledCircle]", 637], InsetBox["\[FilledCircle]", 638], InsetBox["\[FilledCircle]", 639], InsetBox["\[FilledCircle]", 640], InsetBox["\[FilledCircle]", 641], InsetBox["\[FilledCircle]", 642], InsetBox["\[FilledCircle]", 643], InsetBox["\[FilledCircle]", 644], InsetBox["\[FilledCircle]", 645], InsetBox["\[FilledCircle]", 646], InsetBox["\[FilledCircle]", 647], InsetBox["\[FilledCircle]", 648], InsetBox["\[FilledCircle]", 649], InsetBox["\[FilledCircle]", 650], InsetBox["\[FilledCircle]", 651], InsetBox["\[FilledCircle]", 652], InsetBox["\[FilledCircle]", 653], InsetBox["\[FilledCircle]", 654], InsetBox["\[FilledCircle]", 655], InsetBox["\[FilledCircle]", 656], InsetBox["\[FilledCircle]", 657], InsetBox["\[FilledCircle]", 658], InsetBox["\[FilledCircle]", 659], InsetBox["\[FilledCircle]", 660], InsetBox["\[FilledCircle]", 661], InsetBox["\[FilledCircle]", 662], InsetBox["\[FilledCircle]", 663], InsetBox["\[FilledCircle]", 664], InsetBox["\[FilledCircle]", 665], InsetBox["\[FilledCircle]", 666], InsetBox["\[FilledCircle]", 667], InsetBox["\[FilledCircle]", 668], InsetBox["\[FilledCircle]", 669], InsetBox["\[FilledCircle]", 670], InsetBox["\[FilledCircle]", 671], InsetBox["\[FilledCircle]", 672], InsetBox["\[FilledCircle]", 673], InsetBox["\[FilledCircle]", 674], InsetBox["\[FilledCircle]", 675], InsetBox["\[FilledCircle]", 676], InsetBox["\[FilledCircle]", 677], InsetBox["\[FilledCircle]", 678], InsetBox["\[FilledCircle]", 679], InsetBox["\[FilledCircle]", 680], InsetBox["\[FilledCircle]", 681], InsetBox["\[FilledCircle]", 682], InsetBox["\[FilledCircle]", 683], InsetBox["\[FilledCircle]", 684], InsetBox["\[FilledCircle]", 685], InsetBox["\[FilledCircle]", 686], InsetBox["\[FilledCircle]", 687], InsetBox["\[FilledCircle]", 688], InsetBox["\[FilledCircle]", 689], InsetBox["\[FilledCircle]", 690], InsetBox["\[FilledCircle]", 691], InsetBox["\[FilledCircle]", 692], InsetBox["\[FilledCircle]", 693], InsetBox["\[FilledCircle]", 694], InsetBox["\[FilledCircle]", 695], InsetBox["\[FilledCircle]", 696], InsetBox["\[FilledCircle]", 697], InsetBox["\[FilledCircle]", 698], InsetBox["\[FilledCircle]", 699], InsetBox["\[FilledCircle]", 700], InsetBox["\[FilledCircle]", 701], InsetBox["\[FilledCircle]", 702], InsetBox["\[FilledCircle]", 703], InsetBox["\[FilledCircle]", 704], InsetBox["\[FilledCircle]", 705], InsetBox["\[FilledCircle]", 706], InsetBox["\[FilledCircle]", 707], InsetBox["\[FilledCircle]", 708], InsetBox["\[FilledCircle]", 709], InsetBox["\[FilledCircle]", 710], InsetBox["\[FilledCircle]", 711], InsetBox["\[FilledCircle]", 712], InsetBox["\[FilledCircle]", 713], InsetBox["\[FilledCircle]", 714], InsetBox["\[FilledCircle]", 715], InsetBox["\[FilledCircle]", 716], InsetBox["\[FilledCircle]", 717], InsetBox["\[FilledCircle]", 718], InsetBox["\[FilledCircle]", 719], InsetBox["\[FilledCircle]", 720], InsetBox["\[FilledCircle]", 721], InsetBox["\[FilledCircle]", 722], InsetBox["\[FilledCircle]", 723], InsetBox["\[FilledCircle]", 724], InsetBox["\[FilledCircle]", 725], InsetBox["\[FilledCircle]", 726], InsetBox["\[FilledCircle]", 727], InsetBox["\[FilledCircle]", 728], InsetBox["\[FilledCircle]", 729], InsetBox["\[FilledCircle]", 730], InsetBox["\[FilledCircle]", 731], InsetBox["\[FilledCircle]", 732], InsetBox["\[FilledCircle]", 733], InsetBox["\[FilledCircle]", 734], InsetBox["\[FilledCircle]", 735], InsetBox["\[FilledCircle]", 736], InsetBox["\[FilledCircle]", 737], InsetBox["\[FilledCircle]", 738], InsetBox["\[FilledCircle]", 739], InsetBox["\[FilledCircle]", 740], InsetBox["\[FilledCircle]", 741], InsetBox["\[FilledCircle]", 742], InsetBox["\[FilledCircle]", 743], InsetBox["\[FilledCircle]", 744], InsetBox["\[FilledCircle]", 745], InsetBox["\[FilledCircle]", 746], InsetBox["\[FilledCircle]", 747], InsetBox["\[FilledCircle]", 748], InsetBox["\[FilledCircle]", 749], InsetBox["\[FilledCircle]", 750], InsetBox["\[FilledCircle]", 751], InsetBox["\[FilledCircle]", 752], InsetBox["\[FilledCircle]", 753], InsetBox["\[FilledCircle]", 754], InsetBox["\[FilledCircle]", 755], InsetBox["\[FilledCircle]", 756], InsetBox["\[FilledCircle]", 757], InsetBox["\[FilledCircle]", 758], InsetBox["\[FilledCircle]", 759], InsetBox["\[FilledCircle]", 760], InsetBox["\[FilledCircle]", 761], InsetBox["\[FilledCircle]", 762], InsetBox["\[FilledCircle]", 763], InsetBox["\[FilledCircle]", 764], InsetBox["\[FilledCircle]", 765], InsetBox["\[FilledCircle]", 766], InsetBox["\[FilledCircle]", 767], InsetBox["\[FilledCircle]", 768], InsetBox["\[FilledCircle]", 769], InsetBox["\[FilledCircle]", 770], InsetBox["\[FilledCircle]", 771], InsetBox["\[FilledCircle]", 772], InsetBox["\[FilledCircle]", 773], InsetBox["\[FilledCircle]", 774], InsetBox["\[FilledCircle]", 775], InsetBox["\[FilledCircle]", 776], InsetBox["\[FilledCircle]", 777], InsetBox["\[FilledCircle]", 778], InsetBox["\[FilledCircle]", 779], InsetBox["\[FilledCircle]", 780], InsetBox["\[FilledCircle]", 781], InsetBox["\[FilledCircle]", 782], InsetBox["\[FilledCircle]", 783], InsetBox["\[FilledCircle]", 784], InsetBox["\[FilledCircle]", 785], InsetBox["\[FilledCircle]", 786], InsetBox["\[FilledCircle]", 787], InsetBox["\[FilledCircle]", 788], InsetBox["\[FilledCircle]", 789], InsetBox["\[FilledCircle]", 790], InsetBox["\[FilledCircle]", 791], InsetBox["\[FilledCircle]", 792], InsetBox["\[FilledCircle]", 793], InsetBox["\[FilledCircle]", 794], InsetBox["\[FilledCircle]", 795], InsetBox["\[FilledCircle]", 796], InsetBox["\[FilledCircle]", 797], InsetBox["\[FilledCircle]", 798], InsetBox["\[FilledCircle]", 799], InsetBox["\[FilledCircle]", 800], InsetBox["\[FilledCircle]", 801], InsetBox["\[FilledCircle]", 802], InsetBox["\[FilledCircle]", 803], InsetBox["\[FilledCircle]", 804], InsetBox["\[FilledCircle]", 805], InsetBox["\[FilledCircle]", 806], InsetBox["\[FilledCircle]", 807], InsetBox["\[FilledCircle]", 808], InsetBox["\[FilledCircle]", 809], InsetBox["\[FilledCircle]", 810], InsetBox["\[FilledCircle]", 811], InsetBox["\[FilledCircle]", 812], InsetBox["\[FilledCircle]", 813], InsetBox["\[FilledCircle]", 814], InsetBox["\[FilledCircle]", 815], InsetBox["\[FilledCircle]", 816], InsetBox["\[FilledCircle]", 817], InsetBox["\[FilledCircle]", 818], InsetBox["\[FilledCircle]", 819], InsetBox["\[FilledCircle]", 820], InsetBox["\[FilledCircle]", 821], InsetBox["\[FilledCircle]", 822], InsetBox["\[FilledCircle]", 823], InsetBox["\[FilledCircle]", 824], InsetBox["\[FilledCircle]", 825], InsetBox["\[FilledCircle]", 826], InsetBox["\[FilledCircle]", 827], InsetBox["\[FilledCircle]", 828], InsetBox["\[FilledCircle]", 829], InsetBox["\[FilledCircle]", 830], InsetBox["\[FilledCircle]", 831], InsetBox["\[FilledCircle]", 832], InsetBox["\[FilledCircle]", 833], InsetBox["\[FilledCircle]", 834], InsetBox["\[FilledCircle]", 835], InsetBox["\[FilledCircle]", 836], InsetBox["\[FilledCircle]", 837], InsetBox["\[FilledCircle]", 838], InsetBox["\[FilledCircle]", 839], InsetBox["\[FilledCircle]", 840], InsetBox["\[FilledCircle]", 841], InsetBox["\[FilledCircle]", 842], InsetBox["\[FilledCircle]", 843], InsetBox["\[FilledCircle]", 844], InsetBox["\[FilledCircle]", 845], InsetBox["\[FilledCircle]", 846], InsetBox["\[FilledCircle]", 847], InsetBox["\[FilledCircle]", 848], InsetBox["\[FilledCircle]", 849], InsetBox["\[FilledCircle]", 850], InsetBox["\[FilledCircle]", 851], InsetBox["\[FilledCircle]", 852], InsetBox["\[FilledCircle]", 853], InsetBox["\[FilledCircle]", 854], InsetBox["\[FilledCircle]", 855], InsetBox["\[FilledCircle]", 856], InsetBox["\[FilledCircle]", 857], InsetBox["\[FilledCircle]", 858], InsetBox["\[FilledCircle]", 859], InsetBox["\[FilledCircle]", 860], InsetBox["\[FilledCircle]", 861], InsetBox["\[FilledCircle]", 862], InsetBox["\[FilledCircle]", 863], InsetBox["\[FilledCircle]", 864], InsetBox["\[FilledCircle]", 865], InsetBox["\[FilledCircle]", 866], InsetBox["\[FilledCircle]", 867], InsetBox["\[FilledCircle]", 868], InsetBox["\[FilledCircle]", 869], InsetBox["\[FilledCircle]", 870], InsetBox["\[FilledCircle]", 871], InsetBox["\[FilledCircle]", 872], InsetBox["\[FilledCircle]", 873], InsetBox["\[FilledCircle]", 874], InsetBox["\[FilledCircle]", 875], InsetBox["\[FilledCircle]", 876], InsetBox["\[FilledCircle]", 877], InsetBox["\[FilledCircle]", 878], InsetBox["\[FilledCircle]", 879], InsetBox["\[FilledCircle]", 880], InsetBox["\[FilledCircle]", 881], InsetBox["\[FilledCircle]", 882], InsetBox["\[FilledCircle]", 883], InsetBox["\[FilledCircle]", 884], InsetBox["\[FilledCircle]", 885], InsetBox["\[FilledCircle]", 886], InsetBox["\[FilledCircle]", 887], InsetBox["\[FilledCircle]", 888], InsetBox["\[FilledCircle]", 889], InsetBox["\[FilledCircle]", 890], InsetBox["\[FilledCircle]", 891], InsetBox["\[FilledCircle]", 892], InsetBox["\[FilledCircle]", 893], InsetBox["\[FilledCircle]", 894], InsetBox["\[FilledCircle]", 895], InsetBox["\[FilledCircle]", 896], InsetBox["\[FilledCircle]", 897], InsetBox["\[FilledCircle]", 898], InsetBox["\[FilledCircle]", 899], InsetBox["\[FilledCircle]", 900], InsetBox["\[FilledCircle]", 901], InsetBox["\[FilledCircle]", 902], InsetBox["\[FilledCircle]", 903], InsetBox["\[FilledCircle]", 904], InsetBox["\[FilledCircle]", 905], InsetBox["\[FilledCircle]", 906], InsetBox["\[FilledCircle]", 907], InsetBox["\[FilledCircle]", 908], InsetBox["\[FilledCircle]", 909], InsetBox["\[FilledCircle]", 910], InsetBox["\[FilledCircle]", 911], InsetBox["\[FilledCircle]", 912], InsetBox["\[FilledCircle]", 913], InsetBox["\[FilledCircle]", 914], InsetBox["\[FilledCircle]", 915], InsetBox["\[FilledCircle]", 916], InsetBox["\[FilledCircle]", 917], InsetBox["\[FilledCircle]", 918], InsetBox["\[FilledCircle]", 919], InsetBox["\[FilledCircle]", 920], InsetBox["\[FilledCircle]", 921], InsetBox["\[FilledCircle]", 922], InsetBox["\[FilledCircle]", 923], InsetBox["\[FilledCircle]", 924], InsetBox["\[FilledCircle]", 925], InsetBox["\[FilledCircle]", 926], InsetBox["\[FilledCircle]", 927], InsetBox["\[FilledCircle]", 928], InsetBox["\[FilledCircle]", 929], InsetBox["\[FilledCircle]", 930], InsetBox["\[FilledCircle]", 931], InsetBox["\[FilledCircle]", 932], InsetBox["\[FilledCircle]", 933], InsetBox["\[FilledCircle]", 934], InsetBox["\[FilledCircle]", 935], InsetBox["\[FilledCircle]", 936], InsetBox["\[FilledCircle]", 937], InsetBox["\[FilledCircle]", 938], InsetBox["\[FilledCircle]", 939], InsetBox["\[FilledCircle]", 940], InsetBox["\[FilledCircle]", 941], InsetBox["\[FilledCircle]", 942], InsetBox["\[FilledCircle]", 943], InsetBox["\[FilledCircle]", 944], InsetBox["\[FilledCircle]", 945], InsetBox["\[FilledCircle]", 946], InsetBox["\[FilledCircle]", 947], InsetBox["\[FilledCircle]", 948], InsetBox["\[FilledCircle]", 949], InsetBox["\[FilledCircle]", 950], InsetBox["\[FilledCircle]", 951], InsetBox["\[FilledCircle]", 952], InsetBox["\[FilledCircle]", 953], InsetBox["\[FilledCircle]", 954], InsetBox["\[FilledCircle]", 955], InsetBox["\[FilledCircle]", 956], InsetBox["\[FilledCircle]", 957], InsetBox["\[FilledCircle]", 958], InsetBox["\[FilledCircle]", 959], InsetBox["\[FilledCircle]", 960], InsetBox["\[FilledCircle]", 961], InsetBox["\[FilledCircle]", 962]}, {}}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0.1}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}], {1755., -116.80842387373012`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}}, ContentSelectable->True, ImageSize->{959., Automatic}, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{ 3.781516994141929*^9, 3.7815170534863234`*^9, {3.781517083487039*^9, 3.7815170990879316`*^9}, 3.781517146173625*^9, 3.7815171921932573`*^9, 3.781517326955965*^9}] }, Open ]] }, WindowSize->{944, 1002}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 1440, 24, 124, "Chapter"], Cell[2000, 46, 445, 7, 32, "Subchapter"], Cell[2448, 55, 2229, 48, 232, "Input"], Cell[4680, 105, 498, 7, 30, "Subchapter"], Cell[5181, 114, 1835, 50, 252, "Input"], Cell[7019, 166, 602, 10, 30, "Subchapter"], Cell[7624, 178, 2149, 61, 192, "Input"], Cell[CellGroupData[{ Cell[9798, 243, 682, 16, 52, "Input"], Cell[10483, 261, 60692, 929, 138, "Output"] }, Open ]] } ] *)