(* 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[ 305199, 6156] NotebookOptionsPosition[ 298301, 6007] NotebookOutlinePosition[ 298628, 6023] CellTagsIndexPosition[ 298585, 6020] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["Reduce the dimension of some vectors:", "Text", CellChangeTimes->{{3.787676676645804*^9, 3.7876766853779635`*^9}}, CellID->71406904], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"MultidimensionalScaling\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"MultidimensionalScaling\""}], ResourceFunction["MultidimensionalScaling"], BoxID -> "MultidimensionalScaling", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "8.5"}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.787676609755787*^9, 3.7876766279797926`*^9}, 3.787676702415476*^9}, CellLabel->"In[32]:=", CellID->198385024], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3.8828353859101346`"}], ",", "0.007751093997240283`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.437451127769398`"}], ",", RowBox[{"-", "0.0886205570611425`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.2664812449866436`", ",", "0.43724194823813184`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.0538052686928885`", ",", RowBox[{"-", "0.3563724851742287`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.787676628548598*^9, 3.787676706153122*^9}, CellLabel->"Out[32]=", CellID->783174982] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->964056545], Cell["Create and visualize random 3D vectors:", "Text", CellID->1692697924], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"vectors", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"500", ",", "3"}], "}"}]}], "]"}], ",", " ", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"500", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"500", ",", "3"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\n", RowBox[{"ListPointPlot3D", "[", "vectors", "]"}]}], "Input", CellChangeTimes->{{3.78672152332311*^9, 3.786721529081675*^9}, { 3.786721618188362*^9, 3.78672162760357*^9}, {3.786721919993059*^9, 3.786721922207905*^9}}, CellLabel->"In[327]:=", CellID->253224234], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.3315753, 0.4561011, 0.6388182], PointSize[ 0.009722222222222222], Point3DBox[CompressedData[" 1:eJwUmHc8lf8bxs8+tmNUiqRSISupfDPuO6lUlISQSpIoSRLKSKIkSaWSJBEp kpXIyKbsGUL23nv7Pb+/vF5ex3M+z/25r+t6XzaaXdO9SCGRSE10EolK/NS7 UKSuzhqGiu4GctWNRhA8JF69wboLuNg3cmb0zoN7au8sz+9REDr3k12Yl4R5 kxfsfj1cAZN9ZoNlR+kYmvZluWDdCPTeznZ0iF+BwHseriGMaWB9mfw3cZiK JB5n1unGSbBdZXPtmTYVA7IOfTmdOAcFVPnWswUUDJFmb32mRMX6yIf67Pco SGoJF+D1/wShnQVn0w60g9Iz90h5+QX4LSU0n2DDxCJtD9JYSC+UJL7SWmgj och8yKN7E6OQJdkCU2NtkOVZuclw62+IC1ES5D4wDyqB6htPt9DQN/ffhtZT 7eAztnFiVSYTAyWa6llz8+B/3v3QW9MhkC+Ict7vnAeWkQVBGnuXQXDmO6+Y ZytkTfHuV1keB1bIxtdB1iScXcpP+/iXhP69/7mKvSuArIsxu1+Fk1F3c2RR tDAVXZwHansrB6GizFt+SzMxJ88LujKkBXB/q7OHZlkBWVTLMN61cSDyUDbQ mTQJYhzqdaquU+AO/Us6N5KhaO8f7vXP58DwUtlWpYRW8Ltp8shhAwk9ZJsX ReNIaB08c4Hl1QVsoluGyDs6oTfrh4hzeC8waqO5x7vJ6GmVtv9H2By47Lx3 RvzYFEhsW/2dHsTAEKUrd1zsyai085mTQCsTU/r2BdzsomOKddFkRBgN2aST PdTfTEG9tE+G3+I0ZP3dzVK/Pw/8ul2u0m9p6O+kHCeQVwyGGdLRLScHgYvf y5Pt0jh4mHj9J36BhCyDa2f4by2D978dD08EkzErx8hmSHYFJNbTVTvvTIIH 79ghvk4KqoTYnZdLmQUtitOT8tsTkGVZ+CV5sBJs60Wp808WQCxZemLn5iWQ /+9BuIvOLAT65NWyx89BnPKpEv9/fwHXuZrsuzELRb4XE35up6C1sE2ATgsF K7glghxDR4m5hKWMcXeB+5nw6x0fo0DzZW9e1uQkNPnNGp36TsY4zqfbcYXY lyukZHeZMUgqfPvQuIB4PwOHIXWTZfDkNFGgu8wDfv64Qo9LBqXHZKk7wV1g 2j7f4h5EQ6FzF298U18E3BZ7gun0HeL2UMj5ggxM+u9O9quxfmALu3DswQwN lfJ/5wtJLYI5K+FFcfAiaD6eIMmdJHREdfY4BEvgf9rs2+k3C+A9Evb8iXMT 1JeJnbq+ZxZ0Xtgxr9cTc+gRErWWngNBnaNxJoPTkBLddnZOaB5oWdmnyc/7 wfLrsfqJHEIvCZsl+mfrgHRQar+VQCl4PrgvFaI1DqK/zRLCP9FR6yLFYG0k A83Vqs+BwjywWSb8edo1ASbS/5W9kWuDve5guhRLxVHFWPbGtFkwX1w57PeW gvLe3d6nLX+Dz+HIUasoYm5W/m8Vb5JwMveKvoY6FfV++bAi+gg9NoWt7grp B6Ua49lnQ5MgbV/pEBrfB8NbBzZ721PQMtkzXun+AHCJfN1xI2geLNlY9ln7 F4CVlHIpcXYAQr99YS/IKocsWtVsgFUO9B7ojkrO/AsBllXB6+cIfRt8+1PD R8bBLUdH2NYzUMj1ya7Sa43Af8J1mIvYa93T1dGP9lGQo699tcwPJpZEWm1t TloGtldifN8IPcZpWihXGM9C565r75o9J6D1lRN9L05DXGLqa53bo4ROpb9z 7KwGscOuacJNI9C073T6DuMJENqZLbcOusFUlzRQrD8I/i99Xy0nLoHiezu6 lM0ctEZOPlzalAqkUJ6Eaf870Lp66+1TQn9A/qXAB8nJCgilnxo4GzsI8kNv fnJL1UHSg5snas5TMPCgdZVjF6HvPT1/1VYvga3rjsjVUU2glKj/eHB0BeLS PBvahluh1fL6PSXi+cG+Lfm5asMgv1P5bobaChQtci7+8OyE2e8mvsmPyHjb +Ki471kqSoVoZOpGUDDFZcchJYFlcGtixAWXU1Cnyq6YK20MAla94XSwY6Dt i53NYpvroP50OiV8eQZ0JnVN/JL7QaMjOqtnDR3tj59/4e9Bwd4N54aybHrB hKdBcpDQd/dkvliuIQ1peZppL37RUfTa2FQzsQ8HuRNl1dLJyKXdUjj9aB4k VC+X3+CfAdHoXQ9T9zJQM01AeS5mAGLu8dyyc6aj+HpWgtLhHui9Jt19h3cS 8MXEMdoeQhfVPE+Wlqsha5x2Lkp3CAxXfRbSyh6A1iNyVleI9yj7FRX4nwIZ ccBaeJ3UDGg+Oyw4LTkHHCFXj9jV0DCUdXAkf6oQJN5flhA3pmJ6vMT9Wn8K xnW5bn9+ZBh6B3/kS5qQkFQgLFxotwidFRef/rk1BiXyqgK8a5ZAqL5QKEKI 8JXYJv7qCTKqrNM2riztAeQO87IMnYGUgzeF5VOmYNBOU5C7bAxaKcdMnEhD 0Hh1UeplNRm1Hgy6bUkk9KjAXqPd+wT0yHskn7FIqJ5SzbaHREOdnO+libqV 4Fn/1Cf85jjERA5U6X0cAT29Dy1LMlT03Lt74VoIMfdi1Q7K6UUQS+SS5I8p AveBsMHm+zNgr0u6ed5wDLJKTh/SrCqEnHvXKBsFqTjI7RbzwIiKphs2PrnO mw0SbBf0ue81g9/hx6tyoklY37St0NS/CUJF2K9sf1QORVLGL69daQaxC/R1 1P8KwTY62Q67xoFmbbXDaWwYohp3/kzTrIbZp9sj+WRWwP/jtnC5V8Q9ZI90 WPHlQlL1EdewOMJ3UxLuv3OhYmBzB24h9qek5erv7wrToGHymE/cjIw6Volz LesXQCdSQjZ6zwgomXOK7gIG6undrbqqQehHl31MuOkvhLHNP3AVZaB7yBHd M51ZYHlE2aro4QJILD/Yn/FjGNSapnif1jIxrkVvSeY/MpZcfHHfkbifyekl tL3cDUr6rqzb3HMwW5t99XpZE8i3LamYGzWB09QL8pqcRbDfbr2h5+EyKHnt zPv6sRUEz+jXG/HQsYj/+bDgcyInyrmc1ceqAFu8V0uIjoPh5uAbB9NpGPf4 o03Htn9gWu7kya89AbTfVUekd5LRFIQSB6ILIHjCNdDx+ixUvAm7YBmwBCTN vt+7DP+ABKe0j2sSHVvXdVNCZorA236P/lPFCSgyuvl6U908vEw/tuK2REEb 5XVB/wmTkO2k2ZNJ/klQUU59oOXaA6RyOe/ae/6gvn1N56tgGrIk3maFHciB wRlzv0NCPVDndFbExp2BpqNBinvf07DI05p59jQVnd5cF9gl0whF9XdGvuWN wsG1rbJeNjSs325T+6tqBsS2nXvw+30x1O+XjKi5SUZbjbcHZxz+gUbC4Sst u1cg6r/A5i2eDJx945v1/s0M5GzPHC40IGFv4oLXEaMu6D2ccFX50DiY3Tpn T75AQ8OWH/J+uqMQpfkj7pU1AxU2C2lJqDJQTZo8tUOXiZ/32u/5F03wxfnn Mo2+PeBdsEn44otRMN992udwzgxoqc7YO19homa6lln58xnIghTp2h3dMOtv f+q0DaG7Xd+rT0WUAtstifZrhjPgZPKKJiVAx6q+mhQ3bxrmHRKSyuUn7v0X 849eygx4H7nbHJw8AJkHPd/8yWCiy7jobuWEZZj9ev/VUkIbkCrXxLZmlIP8 chTdVXwCSDkT1Sf8SZhzLb7lZRgJTSTGM7MoszBLPeikTOsE223GbhY3+0G+ Z23pjee90Jpo1fKweBwCw86Z3jUahfqi7h+0vfMwuvDknlI+GSUKyUebzZbB lOZiHGkZB5RbipWrFZkY6r7gW1E+Dab1T+PviS+C0ohnvdVqOirZCXtknRqD 0IfBqh5y7UBL/aZUJsvAuIXnh1wmaeguMr2ufH4YJr+JHjKQmYLWvjXS+/ja QETyX8Ci1RyEbhnxMHP8BSlN7GVJ+TOwHLqXHP6VjLSbsjscpxjY+u3t6/ET vaBUwMYzFT8LLif4jrpP0FFHtSiyOLEK9HIoTAupWTDN7jM8+q0NfCXuLZPK 2sFf4W12UXUtmKQO31X+ROjyzeHbNkXvIM5t/4y/0AwEHhG9bnCKhBIjIgNP 1Il7ehytdlctB4qcNcxIAn/Ae8MwXeLkPJjqtD17FTwMekVGrqcyVsB0IEb7 WeIwtAZZ2qyaGwXBNvHjnB8pqPHwhall1QK0rj0lz6a5BJonpvOaCN9SyglP ZqkTXBweOXwa3oOTnLjteqcKMI+vX+fybxJaD/UcuJ82CULNyqrCIY3gfuzc PrpODrjHUI+/DOkCEv+/2UuEH0kIxl1bukdwpuh2mq/sLyAlJJ36UpsJYhXD Zlf+TBP3quXFFT0LLd6HX/qWEf1GxzRE63IPaIr2PLU/Nwlxzdk+d8S6oUTz Vu73X/0gfuhEo3bDGBSF+CgoePeByexFAU17Euq4iPUnG9eDUtYeQcpNYu/y GyQ0rWbAf2OamfiTLDB18Z01NfgOSkF310wSfufSYsQ4mjcEpJu7R2YqOuA3 9+HidB8qtmpbpJzcz0R5Hdl7htrL4L6Z+2Vsfi/Mev4xdAobA4lwusjXB3+h Kc3m4PPLZKw7aL3pVyIdzQfKdna7t4I3r/VAxIdlkOfyDVV83wOLkXZ7PziN Q8qFaD0d+yWwjM0yPrenGjyznggdC14CrcTCNIHyYVhsUA3fsUBHl9wPOYdq xoC2591Jt4tkDN6wcUF6M+EX7f2Ur2bTIF/8l5/daQhEvBa/eWwm9NswNPLQ ZAXEB7VeJN4dBdLXh4tiG77C6gsctzp/MjHqF9n9lxcFTa6LHDdJJvztl0RX 9K0UqKAKHfd/PAbyomcr9vlXQm/sV/Ep9hWCe3zU8lbnQr1+S/dawk/EeTOF 03PHge3Of2osTTK2KgeOea3ugoMVR36VrKOieWyNdDWDhpq119Q2ls+Akt2c YMDWWbAts2DeN1+BhKmRoXedRF976Uv76k5wvG35jqP8iWC+M983aSMdeXiv MoWcGGh465h93cdKqOB9lruKg47+51heiVerwVqqaR8jYgV0brVHsh+bgaQW 1jex0UVg7dpqz7zWDIu+ZUIxq/ogJfTObq0txN6LSPn9uNcI/pWpideXiLmo HzhZcJeJGnbXDUfPT4K38K/dm/4jzil7JvzY5TaQiEvt0SK4wLL1z+Ae3Vlw LzXqO0aqgN6+lGF3r3mIjcplEwE6srq7apI5G8CfS/3QfzJVkCKbZxYT1gU1 bHunQ5QHQOcS2+CMVzHEBcdJzXydB44Rn+1GJDqaxg035Mf8A1KGhsJUUzxo Rk89btvWC2iSXurSOgBaDRzyXIZ0xKrRmjIZMkZx2Mlm2cxDTBTr62qrIdB7 KPjj3U0ix4UdQvn5Sbj8dFOX2W06Nrneye0k+p0Yv86h7MAEaHV7lVKjmgGG CwfSo3eQ0Z1P9YSVywTUxIkcWcggOJN6ZOG/1iFwsmCfVtegoKkPm9tRwWEo yQ3btfo8HUPsulO8lulosMom8okJA9mmX7TPRCxAzfWoG2ukCb45NX6TzL4A tpkl12ufL4LlZKSAKmMCxv2GK55w0lG21H5Q3YKBpFf3PaLGmKgj41fUpj0N JZ1jYufy22CW13x6wWMeFB1D4kOJXm7a39H3WbwGtB6mtlU3LBD9Je9oxswS VFR/uGkx3QUpKoWPfxj2weLlkTW70sahdduxzdmhf8HFq0E/guCEkjb664P3 R0BTwNn4+nQ7eNeLfPfFDlCZEnszaENHsbQjGwRul8Lsx4l1Jhu6QHf9kEJ6 JdGX7qlJSmhRMXJd7NP2dgp6nurI5tIehVBn+ErrZOJg1lLUakMyJg3w3K68 vwIlsqftO/WpKH7mRs9wyyQErKv8ZfB9BdR/y/1NIrhPHg+3PFReAr2IEP+g C/Ogsd20Uq16EOpHBsMl2QcgKoaPtYdEQa3zr3j+XumH4B9WXEUVo2C7a6C4 xucv2GpNXaLr9IKE3XR915154BHmrtv9l4zzZc90IZ2BTg92bqp8OgdJJ3yy PQyWYF1O9dlgZKLE8TbrBxXtQIniGs4TpaE3u77QjkpCR9U6L932j4B3gHVH WsYYeNctRx0JXIYks8mMrvdMNOzYahmazUTz9m4fH3+CLzs5nWMMxsAguV9v 5SoF09/xxXr/HgBTY8WStLIRII3Oh3BEekNMBPWlWQSxpz8etPL86gDpYJfK OTMS2m4e3Cy98AtUxAdiRNvnwH4ttqffJfzbym5o2XUFLI2k9roSfdPg3ZAb 52cy+qcnchpYNMFiR452xX4aOqmYzbu964WKWaMS5b4/EBy88GnxAhVZF0Ne CmysgeST602tpihosGhyTXeYijq7TMvXq41CetDQ1TARgsMSgyvP1f6Cs2++ qlWOULC+ebxj2xMaBmZsUqu26YTggPOP2x3mIT33gK2DKLH3cqPO653/AEdu rZgKiYyLouznCuYo6M5DusZeEQZNWqsFtHKXICvgc/gz31nAA3VnKZWT4H59 44m7T5NAImjQ0mX7EgTJrB8Naaai4YYF/SweKtY8c54QTmBi1uVwAXgfD0Ua 2zpuCyxB57eQ8K9nif73/HVkFTG/OKNOr6F/S6Cz/9l+UcG/4ClJXxrpI6Fg 9e6bB2TGQOia8KPDamPg+ShP6s/SIJCyJq2OvXhE5NlBvf6HRB5fOvlc8pM/ qDRPrfnzcQ5MP1kwdh6eJ3hnjpTWx0Cdpn173Jf6gbRtYsOrO/lQJDF09Xl5 H/ipVdx48omCho79B3RcpmE0N0ft0qdZCPATH2v+SOi26726y0AdKGjsrJCI ImOvErnIjch3U67/qiVpRP/SXR6w/dAHwXx3Ns3O9IDgXZKu+GMyKnbGM6uY JJzdaOT+5j3Rv357plhPtgPJOFIQmbZQZKI69TaHmOM+S8YTx1nwnzyj3ZK0 CDEJW47UNzBw9MK7j+6+C2B2Jc4+OJ2OLVo3th1TY+Bie138LodJEJx+y6pr Z6D/4KJU+kYiVz8/UsztWQG2T6l3PZ90gIcQ6clZDSYGrgpwVSz+BzpTvfqf /2sAz4yl13PvFmD0kHRSidMwpHQJ/6SXE/dVarWyXY6KoV56t/uNCZ6ylCbt 5xgFe4tnm7q+jQOJVyn13wodPeaj3t/TZiLXhufZIw7joMhbPXVk8ygMx/5t tieek2VaINpNoaOh6lv/hJJ2EL1772zwTxKytpUKcMnOgtKLttdt3wneLMkx XU4aA3HBYav3rSQsOnFjZv7hOOBYnlxOZjXYPvLOGFZoB5fXugbD37vB8rv+ beGqWXC7IL23wIKEWcEvv85fzgFpIYOXBvzDELrnUtM3hVkIrP2vZS/x/CgZ 6d06073gPaS4mHJsEo4Fch07yE9B1lOpmKP7hyBQzb5Rch8NW29t2SmuPwIV Hm0s+fFleJn3svBKEhPTfypzpw8xUGXP0UvfupfBZOWYgPG2BTBltpU3LZGx ItWha11XLWRdSkNsHgZTjrbgTlId4LVwgyOqqTCp1r8kM8FA23MXOnU2EXru yf38kLg/k4OMPfnR8+Ai/2Ku58Y4CNXe/as1Tbx/bCZLpoPID79Oq9nBdqLv Ski9GpqCqIlNr4S3jENQptyXvlUM9Ha6d+bdcYJXRHOOJwx9hPq+C2t2EJzc auu1YdvSEvTT2iW/ET0RM7ZZPJYIB1ZolbTJc6IXyKglHAzoAAzfIHrg9C/I MnEvdb1PwRSTe+WZCYR/Sag46jxYBNMwnXuqA5NQEbf/zRFHElZ8f1v+eVMT NCX+jX6mScfZRHc2mZez4KT9YODrS4K3aG9CF0gLUH/OVWSZ4ARbudtfTo5P gYZl3fezR8hYb/uvqmZ6EZIP53hcGWBg0c2ECy6kNihLz+gf3klCoRqWn+vl dlASDyNzEPMK8Iq9IdRL3O9llluexT/oje56EHmiFSq6Pvy63tcPu3fK+20+ RcGimGrrnG9ELxTZ8SFkdBRGPXTOx7KWQKX4S9SxGsLP9STHT7UsQYlPoVRG 9jhMLlgMp+X1Qr3Kbnq2TQOExa9if6tC+N4A5wuRS1NwOeivtscXEtpcnjVs V6Sgy5kt8YnXiJw+lph2V4KOz2x7nU9SiLlaR586mD0HnVwWnbH3+6DkhvGo dWwnKGV0u1biIpAidTjzf/wAQ8NnJ54MLkI9P/Xvq4wJsJ9fkB5c3wE53K/C ZIQYGLWtxu0ZNxU/nMvx/C5BQe+ct/Z1CsR8OM4LHvLrAcWzO9+EEb/PKnaW DvSNBInV3VfMmol7P78kymwog8lrryYvEfsiVKk9eCa4F7T0jGZ2Hid8/6jD 6uSbveCvKxtdYloCYsnsMXsKKmC0L/TF6psTwHb1iu3+rfPQe2T3Jv53K3Ds 0OMuj91ktFw5nrXZZgq02C35XqR3QXrMI21a1TzYC5nIuZ2iY7Kcsab6D4Kf Ju3Pb36SADS2WD3hpgkQuv16agPHBEhMRF7zKxmGBECPr55ET1C66jjzi4St u1XHMu4Vg+0VlaFJySbwsxLQfWpGwfvGj9QWVwhu/tOUT9+WCUUvbV0Kb45A Zh6XsPYWEpI0n9/5Uh4Pcdoe4qmb/8BotPXLgU29YDqir5ipvwSkjaW7uXkr QKJ73YInjYbmW1WjruWRMYvjRMum12VQc1Dv8iqiRwW+PHu7axfBZ9MTnOJ+ VIwa3xy6vEL0OkcNaR3bLFDq/OvCPchE3HhKU5wjFWSl+nlf3iJhQNpz7Rer J0DjunFH9+NWcN/EEP21g/DbVee2RCwOQqsdZ77B6jrwj1G3udtJww+qAj7S pQTHXdc0C8ki9PHL4MRaTqL3bt66lpG+CHG6F65NZg5C4LXapB1DRO65M6I1 WxhYcYfude5aJ8i3bOLdiX/AT+m6qwIHCU03Wb2nLZUT/tChIpfDxJpIgc5V F9rAnZoWul75L7B48uS2kqug809bTwZxL2J3yElHO8agKTw/72RsDxj2piY9 saaj+IjsAa+kTjDZXJrF/3IKzO+1vblxfQZYo6mBIm11EKfGwfatsB42FbcV 0+OpqBlhZL7deh7ioiTHFztmQL5e6M6AyBz0Ol2OP3uS4NfO+tyaTRRU6fjL bX96BTK7clXWXKag4K3uHXf+kfHD12YN/xmi96gaj4hRiD5eHyhy+jnRS6eK pl0vUnD0X8v5dfungXHMPeYtnfDHswVKcswFUF/Vf/GEBg1dWKF7WCFjIC3c f+rs9xnIU12Y0+6go3Tn+q+oOwa9Sl/OqFjWgOnVk5vtgjogMDfhjSRzFCzr tkfN7RgHpbYF9Un6MNinUWsctrYC43amyqwtHdNtJo3C/YbB8sefE6en2kB+ p0Ct8x7CJ2bYzfvsJsG/Of/Ea98h6D04rvUplommk6kLPesoWLErPeDkIAUx uyJPXakR9Ay6n3QCFZvuXJhSIziN6wRP3ddUEoro6IncJXhBUC6h1q5pGbTO qpF/bKfhJP/B1lwhos9/bby+O24RAl35Ghq0J4AnqOBBiTYDWTdLD7FY02DS +Y657cYyjB4fu96xtxY0aT3CFc3dwBW7VWSH2jBE0Q8rbdHuAHfFkau3EitA ZVBo5u/nKWCzdSrknpuDuN7pvE8TM2C75Zth9OwUIOX9oHHwOCRrzE+eW0fC sm9vHwsRHNiaP+1lf2gaZo2XWyi801CjfXxz21YS6l373fDDoRdi5Xofs+eS kOOXTkQQlfC7xsajgswZMF25+9HsYDsIqe/oXdtLJnqP4rusCoKPQtKz181m Q8rcebuG1ilINmBTNhOlo2ezdcOZHqJHPU/L23eOirFmis4Cykx07x2QFLg9 C0JOzde4VqZg9PqrNW7SFcDmNf3LaXIJJlP8ybzCK+C+e0leI7UUXr4Lk6fu IXLk2RDHxdJaoK31rNaqJ3pnzwen6Q/1kOX2KObLkU4Y9dZLL2xphGMadvz8 VBKyte9iV75F5OfCt/49+TMgUXjd7ZFuD3CR65MiDjDR22HIpZ3MRJLX0J5c RjhY7jo+GL12BuyNnY2vPqSghHbT9L/cBdAs93iQytZP5JoQNeAmwdtPLU6c sqQhaWpjyuZ9XWDz+9jv6GE6OqVetJ/zmgTL4ZQ560/jwMqkCFluHwTLl7dm tdwIrvwcndvbQsfQ9TFqCcolENr8IiiyjcijfbW/1v2h46KjeV/x3gmQF3e/ tbyHyLN3dhvKeBtB7PiDT87WdSAuJxR+c9UEOM20h5QMMDEub+1rZ8dJENs7 KPumMxfkY+fvaxox0SA9SVL9E5GfErEDvlHJUNHMtm5kDdEfTcj6vFV/IS7p vd799BaIqpFrfDRfAXEGJpJxlxqB9OH6oZT10xDwV7fp7nAn/JB26pB0IKOO 8rVa+pdciPvv1p+J2SoYtTjOvmVHDYwKpFQ+X16E0fTXcde0l8C0w2boYyGh q6dHtU9UE75/Lvf9lWHCXzi/3nj1exmcLqcVcHMug2J0FflK/wyIMddn+1zI BfN9yscxeRzCrg7w33Mgodipw+VXH9AwJTPp5I9cGopdtoiG9YlAshl6XWtY DSbLJqH7eph4+0C5VGsokZeq8Suu3QSHxpvdDgofhWDX33eQTMJ09zvJ8U8J 7rkfXLZ4bwzyfGq0puR7wSQgxcHYZBp6w7p5jcOHILRC4sJVxV4I6AuMH/zO RM0Cbe7mNmLOPwy82g2nIM6PR/Es7wLMSizYq4cSnw/MmvmztghG28+mhxR0 EH2w+ji9fAICOSN38b4fg5hVjCqD1Akw3ph/vm+Jjho37T81uBK5X/H4D9OH 0JnMvdXcLgQfnzwg82ZqArx7tcwFeChouVNI3VGXmIv/g2Hz00Q/vZzWGfVt CvKu/Q5s4yZycn/1lRKZb0CqTibT/Gph9VPnPS+IfpWSqTSQKjgHWfHxR7at TgJbZudr1v//f/P6WePu+WmQ+HfaYeH0NMhKoOz3K0QP2yS+b6dqGcQNNtWG HCH0ZlujqBHOwBiOnwfOhM2CezX96/XVaSAtO9F5ZnwCQtrX+bP1UzDu7Qmp kFSCT3fHP+i+Ngezz2bueIj0gdi/DXN/F2uAzbpfv1GwEZzIuz/lBU9D3vui 3q8OE9D05sRskwkT1fsNqLYHyYhywtpS/r9gVCFRcMOtfjj2dy18T2TivF6P 2DomwUMx988eYidjSuuI3VupNqjRuGoj7dgNYmrTMg7qZJzN77o/T5kHWprw 5TtdNLQc5dMsFiDh7Qrrqi8xJKTwS4r7h9OQ9Zw+fv77GLhzVVzJ3DQFTToo XWWxDP5ys+Y2fmOgQ418KrdtHLzza6st2Bgo317RPnmDjIIKsd88g+aAZast vOZQOZgWJk537cyGpEuOU8aTY2D73iTe8BcdbQVyZYzYCU44dGFvwAQZXcSe t48vEX7CKTXFzZ8CEmq5Dx9odAKr2yIv62knZK58OvzdlZgjr4vWmfuLIPiY +UczYxJEH56+fc6Siv7szAXG7nGwnXdL79Ql7nOwtWN9VAxY6n6I4Dy2DDTt gKv6Dp1g/4WzYPD9MpQoymU+kp2Gl1z5EncPkNFETeObzLMFMNSPehpWOAqr z29YOhFBRTFHISMfg2rI2lDa+vFtG5CuJxz24wsAy2tntDacIHqnsMTKouI8 OCm+2L1tagHkzTe/5bs4DPIxCdu+9hdDK/3z+etmyeDU5MDcfrAJSGbrDygM dYFE5nCDSRgN3bkLBVedSgFWwlWNkKMjENP2yHrvPAVDF7zcW550AfbQvILv 5UMCpXDaPIiC5ivBMr+DaGht81F/jdI0qH95/Fv6GBODrdybqUHjoBHJv+ms +AKcrQpPbkimYm+Rf5aFSzssVv62rHs+DbbdgiA7PQCDGw9tu75vGiqsg0nf lcuAa37u7x75UVis/TWIzWSU+HH12hMRGhr0tlpxVjBRY+VF0H1vMuo5KPh2 DzFRUWqD3qAv0bNtZjZc3ctEMX3XmcMDhI+6Dp4J9aZjTqz+lFQb0S9S/0X+ vd4ASW2zz7hTloGVfWPBN7oURpP5BMtnxkBr6beLQyixD/xrDe7dXQI2++6J 95dmgRRQVDe2bgS8w2g/pwkOrNgX4SrKS+SfdlxRU/EomP5yNA/YzUCNlsxC iY9Ev9NqLHgvTkLLpC4H084V0Pnqlcgy6IaXcV6frIk+NxpPPfxEcRrqrcvN zAaWQL4nwzChnIZRkz99P50heNTgWaPW7wlgpaQ7rxWrB1OZYxmXD1OxRuai sSvR6zRdxQ6z7yb8acYsK/4jwfmfl5MCeZZA6c1RcRrBR/WOpT4iPu2gRfew iZ6ag3qnz6pvcpphUZzLt12bjNI0kbUq2+j4YfVUjcPmTuBaUB1fb0XwXaPQ hXvUOcAF9e97ZgpA3ke6JOPFOPjzKovdeFYIrTXDaWJNKWB6ce7ecE8ZaIWw nzv0dho+ByR0Wz+mounL/bNHnXoB7Snv4uJLIXQ8XaHtAxljFHiVCl+Ogjv7 S6/nw69A6pXj03/+dNRcb0RKCumAmueF+bceEX34cNIdl2MkzCm/WZl+nYT+ rafva74ZB899cfEnYxYBlx5ZuRY3grfz3vO3BCdBV+Tcrxt3ibm9c3L+1tEG WX5X3B3+MtH63YWt5/lpWDQVPsirNQUibMXmFqO9ELnaoq/jIB3d2dZydBQS PK+2VjNAagTEgrs2hKswkWuv+zW+agbBNeHyP+/0QGC8cPOmCyPg+bZjx6wG wQVNg2csyrqhfv6g5IHRYaihHXdRJs/AhzXKgTK6hE7IBu13eGdha6D/f6qE f7kknbCIaWVgq6WVgy/7L6gK3ftkuZ2KRccXpILFiR5iNy5HjvsAUeHG24KG /oHm4vENVRPzELWBM+Wo1QTonLD7lWaZC6b8xzRK2leA6/b69C+dRH68Wns5 bSEVcH1F7pmiNND69b5wc8cEVATR5DUUa2H64NrhICD86WHXMwUtogcIfLEK V2Ggy+TlUykdVLx8z+1UjhkNdYYKkjpTh4GrNEx4WmESFresZOyKp+Czf5Ic 759RUOn87rlRlxEQz1/kYBejoDunQYZaz3PIkxVL5eJfAI18f5UPgjQ0ll2c mVAietczIS6ZQ2Nw/7rZ1LFpKo7uc9E/PdFJ5B/753c7ZyH0uYywctEfUPy4 T/O25zy4r+9zcPleCArlXj/P+xE5Wtn74phzPwS6x7kWH5sBb+vPV+xJVMyi qG9bCPsLrdVOn1YRcxotL9f7cr8alntOVly0InIo7+GfWWo8tHyhUet6ie/9 ssSvqTwMfodvOB87xMR6LcXIk9JknHbslLVvZWK6c4Dt+/4pqHBpiCVv/guh n805Vl2thagDJ/7rW1wA399TT/6lzYP1W4MgXpiBmuMhG7ecb4PBkBtsqS1d EObANONbIbjtX1nLF3onKH1TwxcDBOfuu5NdIR4H/k8330yRHYAPCudazymN g455aaSH3TKwDXNGDl2ZBlaet/w19QWIc+XVMf0xCt7h5yu7jg2CTijVPrKn G+Sl16RHRfeCu770UpfKAGQtu83qixL5zH3CnmNzKqG33ufTDXTUC/0XfVi7 D3w/fdg9Y7VM7EtB0IjgPKi4TX2XJXqAiv7BSWdDgkeF5MWFPzGxqGHLybeN 06BXmsjz41YvLJIUAxuI/j7rO7LnRScFDQdXHM7n9IE3S4ztFW0a/LnqbA2i hiCldunro7wFCFUa3+VlnwFJHO8bCtWIHnbyZE9AIg2Tjr5Tid/RD4yfXhM1 xUyU3fMUFcQJX9Z66nRokYFOB/59Cr36B9y7Lhvf+TAGnev0pldHENzxCTIS Y4nvz9VbU/izC35XaD5p////xTveKF7b0QUkr8vrn8uGwGxH76iCBQk79es+ iHtNAxf/lmDh0BFY9MncJXR/HuplDCOiNPpA3jIv+f29cbAUlf/3UK0bWt0N q7/dGIQCn+CwhWmi51QlPlYg9l5L5re5Qn4bsEl23w+KICNXknDfkccL4LKh SE7vxDhkSdd5fKONgv+28Ot+p6YgcCpvt8Jnwr/s1e7Wl6aCh9u+J5eIvq/m HRH97SkDxctJp20HSfg59Hz033QS2rpq5zYKTICSbWWxre4KxK3eWxG8k9C7 2fktSRdjYdR3/QW9sCFQuuFmvlQ7DFq1+sssuQWQWCovzbcloVOxW0R/Syck HJU3yuKhoVPR10fzzf3A9nktn1jjBIhV5ltxrKegL5tplM/FJfD9eMBVt47o x6Uszzd/yNhCCsv88IeJSiJbIsKjJqBm+8G4qRNEz4ntsB494gsBljtEjN9S UE8y9MjcZTI66aV2JJxjYKiGTPgJhREQ/LbnVeubZUi5nXWLr2AYAt8e1lGR Y2KK/sDHoK5WsCzuyeJNnAR554J9nU5/INj0KXmik4RJOyWY6c0zgKvb2+nv 6mH6it0zdoJrLY/mGnc/IHiZ8VXwmOYMVKyxvJFiNwhN25MErR8QvbO3UaRf 4xfM96o7F3oy0be9Q/832yQMuv10TIxfgaphq2zPIMIHOB7qSb+sAEp9k0dQ PB3ZTA9cOzUxC1Wbqof2NlHRvPkAr9ETBkq9ZVfNbiR66+6K3BwGwTVK1nyj 1L/Q+StV91DTGLQyXqa9vD0KPxzjQp5tIzjU/cVahYhhYHMIya/ir4Q4G4l0 F9EJMOV7fJUzcRj4k+1f2B6lYrpMkGjQJxq2DrhFXUkbA/lPsRb5YT2gtz38 uErIAniWZY8n9IyDO7f5h+9fw8D2lc9AaBYV83JrLl662gMSyjEiBjsYKKEk 5lHn1gyaTVP0lDEq1mdyhoasngM9fmPXFas5KCnV+2JePgOh1wX2896kobzZ pQsrq+ohLj6YJJG5AItB5ZY/PMfBLX1e8M4osR9cKsdKHQk9r3bfKOVD/J2E re0WCglTSoZ3epZ0Al7ojzjCGoeicYqawUIfXPZpMMxopmGoTuuNlUWCc2+Y 64dM14BS76ZVgZZ1kOxFXvmwh4ZKSZveP7g/CBqlLVxtjUSOvo/ewv1jDDQj Pp26dIyMsleeNp8zZ6LQOoPth1UIHsl0o6ROj4Pp2EGNte4V0Nu6qyNUlYxF 24SjtP5bhgqvUOkTSf8/n0Viuc4iCBncrWxgnwJTAwG5O7fpOHvxeNdKZxUs yiV/bzm9BB9s7w7HzoxCb3yF5P4lEs67xeQ+7qFioPbjesEXfZBlyFlu9f4n aNY8K113fRI0RbtmBJ3oKNTR6WAwMAO9oq49eXKLkMKld5pnbx0MnuBqVLrC wEn7j/5BojTsRdZp1+NE7hg5hyg7L4Ett1WiihIdPX4aNCoTOah1OpEZJLQM rXfXJqmGkzFwH9eflJcTgBHfaxZYxHs1GxWoqjTDsQNf/2jbceP9+uuSqyP4 UfP0p8jULVTc+mXiS8GwAG75TaLPkMhY86Hn4ro4dgzU+FLCpsaFzxLo9uK6 /HjY2/d9yE5+XB28JzPEghv7T0UVt3/jQX8TD6p8MAOP336VIvuLil80dp49 95QPzc+VdB09zYYWpWupqyc5sLXr8d7Rel4UXxv4il2GgQydQLuMTyyME52q mGHjwJTze+3eP2DDlIUY823sPJjzcEhhUxIJH/378PDWayLX63aI51QLYJif WgGXLDdit6sctY4N5zRqLTfrkfCqpW3NhttUDNBQvhnziRcrYo+2lfjx4Y9/ rTU7zehY4mU8atPFjZd9pH6ZuXJg0cpWvxYpHoyL8RF5epsTpY9L+IeskPHy 49YtDAYFm+5pWG4PJmGYhUGKrTYPmmTePF5nwYZHXI9f27uTiuucD7PLVLMw ZllaKnCKhXjhP8baYHY0Ucx9xtbHwva7/SorL0hYX5CaoTwmgBr/mltrNXmR dKds1cgXFnIljznO7eBA08V+I4vtJJQPXWM4okDszYFF2SoxLpT5sfLV9xUL i5ZTDCWJnJKsqbCa0WHi9Joe3wOjVGQrW9MrLy2AUU8fNSR/4MTJQ+xHlJGB nsn6i1t5eNEl8ma24TculGxYbvzmyYf8a2+sL/1LQjNuSnnlNBfeP8b+84Qa G7qoOhrOy3PhCYsQ1ndOGq5+d3Bb/TwT25tWTZLCeHGvb59g0SINp3PZaucP 8GKwGb32uy0biqDk3PdsFk5Pn9nysYATlWwaXEU/suEX9TNpF7NJaOiobPnI gR9f+bqcjYsk+vHrO6+mZYk9OkHfSF7DQvGIiDH7Sk609RT99c6EB53TdjyS cxLAPn/zM3J+DKzb/1J8YD0Lz64rLT45wolXbnrv1q1kYKRRhEfEQxKa2liL SWqxY/t3u8ypp7zoYfM6RU+Nik9qu2h6G/hQr/TgRS1jDuxf5VkaPsxCnTYh 4xYRPnR44mWjosrCzsz94rfec6P86y+ip1j8qF5q8lvzjwAGrDG5U0un47Qd Iz/qHwktDG+XBISxsLsva4veTyJ/CqeubXYTwEH3icjSTfy4KCir84zI/VhF +zLlI7yo8NdCtnYDE0NfDQxHjJCRcnBXkA9xzyXNXm92RglgoHGdikQSF8bu L0kvSOdF0QuqleHDZFRQdgt818nCWTZq5z8ONrTp1m3qHufG9Kzo5tJvHCi+ sHl4XyobFic+smwo5kPx0axXZ4R48WDI4Q957gLozWac84udE/MaRVv6pyi4 cX/p1DbiHL6nynmqjNkx65Kfm/8Mca7JUq8DA5wY1FFJPWBKQ5/+oZmIMjpG 5A3fHbpPQYqkR6ARmYLyzHNaZ5o48WZMain9PT/CovcnKhsdU1Y9N2aL5UDV 1q/aG+3J6NH6vtJ/JxMTf271djrCwnzTk5leD/hxeaN7ht4aHtyrnEi5qcKH Kb1rgoSfcGGZ0jut02e4kXnFjbrjFD+a9rrWhTqTUUAwJ2erIh2LrnfaRrRx ofiE/waTIjrSrjs1H6JR0cH4y/oRor9uek997ZtB9JMecmdVMg2lNwZ+GDzI gRUmBxmvCX1OO/JNGX1hon9ZieHt3STsX9z//sIEHUNaKqb2SbEj/27/4D3j bKjzdXmw5Dgn6qTukG88wI+TL89s8fYWwHhlj8O2G4j7NGl5JWpNQp4bn7Wp bnyYe3Vyx4QQC1cjbXkVk+CzWaNxj3keNNt6Tvu9NeE7X+PjL1D+3wOu3eX9 QkORkIpVTH4B9MuozU16LoAClK+qOelUJG84k1JcxMKkQyZrjG1pGDf+4+Iq J068/WEjb7wuH06Z0uqjz7Jw0XgmbiGF4CynhFvrJDhxe3/QyepjNOQw2m57 34CK6qRf58xMCF+9u9/xXAQJK4zOqpff48LGRw9jTLeRMDlbUVZ/iR8d+J/Z GBD7fuTs1uj2H0z0errn+c0nRN/of5i9os5G7MOjtc1RbLhc910u+wwdfz9v NNPP50XLdNligxM8eOamkM4zV34MLjrc9/ENJwrJtmjHu/NiSXZ6xy4LDtSR UX7CSaOhAgdr8IYfBc+szXfb9YoP6/+NuE9XUdCsevebxzvIyHJU9hAspWBY tLCKmBHBF7f7i7wnuNBjmu0fFz8bxlWecqnZzoPpUp/7aRnsqF790W28gA/T sg2czhpSsW5ble1vbgG89yxR9cBFBt5kDfU9ieBDtdp9qaK+HDj44/al1w9o uCVf42g+kT/yM6uaeqwY6CNo6z2Rw4MhhtWJY/wcuDVvVlb3CCdqvs/Y2SHA hm7t2SbrtLhwRLfvq9AnPlwOqn/L7seJ6941bqJ9ZGHlk4eks4sCKHiH5+nx aAqW9fUpDijTsKDYzcx6inivVYZCp5V4UZC0929VPy9OBtnmzAqy8PLG7nVr MviQdpSfuVOW6LWfS+vNH/Cg5Vhxz7AjJ3KpLsct7qJibN7SWVdvwmeWNlwu s+PFWhmhSIffDAxc/8Vwhpin59Pf+vLreLDh+akPZwgdCl182asXxETLKzc+ 19fw4FBQpE3Kcz4MUebyx3cC+M5mRHLTRRbuqc44sn0bH4bWZ7xxdeJC2YQV tp2TVPR8LUFO5eTG1lMGW2S+cKPjVZmN0XJkrP/v0ZcFI3asvDz57aIxHX9l +t2bOEnktGusS3s8DyoYbLqeNUf48xnOFxM1Aqiwze/m0hYelKh5ZlKsxI1b M+uuDXZxolphb/QAcU6vmQscP/z5sNdl5Wy6IQmPLTxVOhNAw04pm5lGhgBK NNjf/07k+W6lu43VH/ixP9Mu0+cLA/tMFL+LK1NQQ9I3rPASGyqFKGunEX7u a/nTtPg3Pza925CV8ZeJmr+zVLVvMdG0onhWh8WG2i/GC04iFfmfDCdtlyPy aU1KSu5dfmy5/OjAqz88+FJnfG76NDdWPRo+Qt7OQukXZe6arlR0uaojWJ7H jdttRgct5kkYLvam8stmGgbwbxnOs2JHMZoI5T8jOgZcm3OU+8uB9SHdVUIe vOjTV3mi+z4LhR5J7zG+J4APW0xcGRkkPAvrhDSO8WPW2gmf5xICaKiUlOQo wsBZOf4yrkw2RHvN5RJtYq/MMyRXmvhQ6JXz/i/dhP5Efc/dSGVggH6l4ewt Kk5Cue6+OH6knVUtbJzmxiPU7/Xc33hRcRVt4KYwC0P7YwNmzblQcdoIfK15 ULNec+TRVg7kv7xziaRAQeUuo+8PCf1ZHj9tUznChSF6G/ZOaAmgUn124Z0R DlSb57PbWcSNbhE/efwJ/g1Q7jSxreLHPvvT76MHmHhmal2O01EGtu6KqNJX oOHYpSsrj2z4UYMZYPqwkQfpf8Me6uvzIyWm21Jaj4Ff1vsINxLvZXMDvVkJ JGz8NZU060gn+Er1QL8LO47KxP7kreFHC2Gjgz8d2DGqee5NYJIAFuRG/W0k 5qRg6fZGai8/KvVtsnuYTseqEYUG61gq7j0+rBMrS0Pbav3HwXQBlNfV77W+ QsH9ZTLG81uYKD2w86QcwRu3e0Qsoi4w8LNZRbR9DRNNrjb+rJ/kQhPR0Ony vwLYXWzOLXOP6H8JRYzzjUwUORYtI5HEhx7i9x54rjCx9Z13UpsJHZM+T64W +kLHdFOpli+RVHy44/YhZgg/spu8ZH+jTfSVc3Iu7RoMDE6o+uo1y4VKnXr3 d2kQ+TZtfTniLjcGZm69T5rjR9Z+0Q7PTC482Pa2pKaJggfow2Oavfzo1Bm9 Y00RFwr53PAt/EZD341bzqwvJPq5dJX6BTsunF2cerdBiBuXGQnHyyu48Ifx Yb/bXkz0aF5q5+Biw4PPGUVLhB+3xFZ8FG1hIYO89JCdyoayRz6MdRA8rHgo 0i6RjQ2jGvOnv0mRUerp3l2Gu7lQZHB98kosDVOu/BnQFGTD1cuWu4fL6Tge nPoHw1loV3GJ/EKNA49OfDk708CHziQno4gPAsjSe/xL5g0dkwMFguu2cmHC E9KZxjQWptzL4b/5kBtn9c/qc5iSsUROsOjZPqI/lzuaVDnx41p5hbsDciRU e6tVoF5BRetPMkeWLxL8m2q9hyuGgdZ/N9N+C3FgqLf8zaYYPoy+zPWFfp4P XY4/kMyjUFB88k2+5DZerHIV+nD6CxU7B4Qeui9SsfuWiWPHXh6k6KdStu0n zg/Jmm3Ag4F+lurDDTzIxiG/68kQH6qG8gurnCJ49n6M6j4+Fv6e2dCVvZGF y/G2iw3HKMjgUPpkHiCAnFZaUVszSTh5XE3bnfDVYNE0ytF+DlzFOUZ7RXBz 5/lTLVkJFHz3O0uW9VoAS/YGWZ1k8GFwjdLvhggmahUmXTpUzEA27znpO55E n3m303jUjBt/i+QE7zpAxaiQCwcKjEn4wZ7Oen+bgsnKkuZLQnyYfLlW03c7 Fwa1KJlxc3Ph1kSJwZscFCwUK22ReEr0bWWtqckJPvR//mBY0I+MElst6ZkJ nMg+Xsh1MpKB3a8Lfz7YwocWZHrg8+MsNBaVjAXi86tyVb73EBw5PaehrRPH ib6+r2JW5/Kjo6j46ENTPtT/U/4zmeBXMa1bruy32NHw8zD1BtHPwgb6mV9L mOhWLM+TeZ7wL/2/P9/OEbz41HKaiyaAW9e8mtfT5cV5jRinfhc6Zm45tPM0 wXmkYoU9RqtYmONGtdw/w4unDEQUL90gIZmdc8ZhHQsz38mIjhZSMClH8MR/ GdyobX/MzmaYghLz5s90txH99sjBrQfuMDBude/OBoI7Jx3SIspD2FA++Pod dndOvN+0qX/VADtqG64Ksv1Bw9cO9TKDJSx02SRd9vGuAGaNsy9xqXJg1I5T NemONPS+ZLt32ZLID0OtmOIMOooX7/7jSGKi95FNV7WTSfiLbd7e5QIVP/x5 3X/XUQCT99l8iTxNx/Vv4ie3LbBw7p7NhJABP8YK7G6wGuPBJIpIgasGD3LF OKxk8XAjj05L7mc+Ji709vCczmeh9/m2t4YP2XFinZAUVDOQ48fMrCQvHc92 1bbOEty23zKAXN5NR5GUI+p339FRVnq9X4ojA/1/D20e0uNAI9OaZwuf+XGO 4dft2SiAmnbr/jtiwIeNzpUfjN6yY4gS258GUS4chcqc9UkUDImP2LS3i4IP FOpKrhHnNZF8aqFN8Jwkk/+jKaGbSS6/6o8EB/hnsz0se8tA6e1D4TmbmSga tsv+mw4/nig9f3GS+P3lwb37Xav50SBgPimrkx91Yu9nz9YRPfSPSPGJA3Tc sSB26z8FPnyf7dGu7c+PSb4HFm2I3HlUIXUzTJ+B97uKpCLWceKs4oGx+5V0 tD8k++lDGAlHR3dQAlvoOFwWek96mRtNpl3zKmq58ceuEl2BezwoL26lOU/c b7WwQyP7YwHM88nxVvnDgUGtym7SBI82rJo/2j7Fh+3bZxN47Lkx7uS3g/oO XGiPQ0ctzrKhWeqrvYmhfOgUlhYY78WLQU8p6frb+PGW55UW9dtkVLNWa0u7 yY8xb2R4vVf40FQm0kWYyJO43QL3zzwg+otSwdxvRRZ+zrnypPGCAJZlfHuV RvDn5lOCbjG7mfiOv9k+RpYPfTq9Kp3teZGl1fhYnIcHK+p4jPw6ObA3PPCj WjYbdqvGfi1SJnSkwh9/aw0fKjzJPTDPRfjMemreKzsGpj+SLv0zS5zX2WtE Xpjofad6rwu4saHxyrPcngA6Wm+9YitB9InQrQrB9wiuv6ztUOWsQeSdSGtE 5AsuNOvzOnfdkYIlAel6NZ8Iv652WGt9hY6d64fcnxD6Opv9r6ye2BOj1sbu 0JsC2FP4xoJ2lw9JChx7VxG9l2tPoHqZLwOr01YsP44KYN3j2u/K+Uyk2YsP +t8jo0HNXAvkUrBAzyG77S0npkfeWZjv5sb8kawck2Rifhs9DvkQfWjUMk0s czUnnl0sf7XuHPHcbtegnVsFcJ1R2qOEcxR0W0SJf3s4UYS7KuS8ARd6rpyL WFzPi9P8k/Pj5/hw9p/xJv8rHCj151HQrh8EvzVXnbgjQeRYT5aF0mc+1Nz4 b2CmmQ17P1RM59sTeW4S/+g+kJH0wdc18gcVM93fBJ40IO7VXSpz7U4uZNvt 15r/gYE2H/2N4kv4sELvwo7PB9nQRKN6f8V7QncLg0K3K1moHy28bf8jKipN q+a+mKPg4ed3j/YRz1O7/C32aAsDp8kBpSUkflS4W3ddm5g/l2vNrmfiZJw8 Nyhc+YIDZ1eaJ90c+TBAmm33rkAO7CzmzE1s4cAJi48uG9ezsEnrwdD8GU7U 9R4t35hHxd2/HwVJbeJBz4ppoVAubrzsGdOkO0XCoA0KuZbm/LgfOvrNkphI 51LpObtPAF86RDUFSQugxeZv73mZTIw6LcJnvMyF1mWSBUn7eTHG+aRd4WNe 7I/0+fc/is07nOu3DcP2Ht89FVFCmqQ0uAhFSkmFSNEgo0hllJ+QkEpGJCmF EkWUkpEkIyohSVZmohRZJb3P+1cHh/H5PM99X9d5dtT5y6TPuX5CSoEiaOtR l/auEIGuj6AD7zcFXe58Vx22LB5ZNfb6cMWR+Yciq/aDBj8zGmdchopQtdXL n2hRUXpdb/ZzcdK3q+SXDR2UhJyc8SqqlTyO9Zy13qwgjm3WeSd6DWiwzRu0 LqPLoTHkmfelRBH8m3SvSx8Xh48b415gNxWOntu/r5KVQ5Zf49vYMXlIuOJc UaIQ7kN+ftdKMYRYv02fCJBF7ooHWx5+kcUsP/76JaQ/3zVqP4/8KQzF4q2i Ltsp6PmPzh6ly2NGR3SsskEc+oZvN0UTPlOfeCa7oYPk2mop0aYnUvjgMBq+ UoaOPfSapKKXojD3MdhhGkV8/vHHpOQmOcy+OuoreEsEJYt9tULDhFA2+aNJ Pl4OcUc1rnqO09F4b3haeifh/bHbCafzqDiy1TBpDfH+49HelUFfhZB1e9fj Vy7kvdX+azusJg/zKNM7/0iunzd7OWb7goKV2r0ue8i8b5502Kz0QhI7Om8s dCR59H3HIaFWPUk49p70bSP3MMOvt1kmJAKd88eLLD/Io3SF9Tq7QgEYKtu7 Od+iQaLquVAgRx4rH83/oShBQ32bmAIvhTyfyPvIxUriCDx0JCmvXApzZ0IX OdbJYp4bRzDkgSCY9AW5h6hiCNwRm/J2LR16nsXaq64T7ngyFnNYgMzxYGMo xUkSQR5Ko79FBGErdjBnlqMYLj5dueibKR1mhQusnm6Uw82xR9Tic3TEXjUW khWQgMDfuatLyf2ZfT373/BXCUhd2ZV1rJ/0lfa13FxZCu6Mzd0T7yOAqH2p bwQMRXC/csV5Q8J1q0KyBTIJh+3sklUZU6Hg38NvR7cEUOBvu3bZbxvCpRGh 7CtfJLFSLjKwZBENdXSL7t29ItBMfiwvWSYJo7VXZfJIb00LurR9bRLBO0+d gjQKBXt5B7SMFYSwZEmj3pk2QVwWtLkwj+Rajv6CloKlEkg4fXDrrf/nkOZ9 fyPiEX7FC6/y5OlwU3YQrzUVhryQ9tu/elQUZMkHqj+mYHO+iEPvZyEMTX9+ 6JVIQVTSjcpZUlJw/DRhUHSeePzi5S7ReylgTYwm+2+Sw7ib7lQZma8Nnsur 578WQlRshhdTRwhJWbdrZP5Joid+15lTk5JQbgm1G26RAk+/f++/NBrQ9Yii E0982mlIeMVjCQSVL7Z8/kIQ+3hBe5yG5cF44ho/RTg3Qb10jmGhCLZLyaRV HxRDBVem9/cCKizu3wq9spSC2i9uhut7xFF6V0Qtepp45qoRD1s7WTh3xNk3 0WUQeCU64tRJWSgtLc5QPiAAx9suOaw5Ivg1Z4N6pr0ovPLMNDTaaHC7lqQ4 fxYNHpbFM6bk52sXOH6odpGBjNiU4gEPCrQ1EhjS3iT/9fV0GEOiiEwLefX6 lQTWfK4RE20VQ+TE0V1CpTRczjw5uj6ChuXnkk3vCQsi08L95XErQaBSOjrz ijC8ZPKkv6wSRI7EcNo8kmetu65W7bgkBR/RmlgtW1G0xs+jPP5PAn+t/tmr 5QpDYeFBO29f4v8X90W/SpBEtf+70nudNHiHVJx8W0/Hmutf8ubPpWGSk6xV 1C+JN4Ms5ZuaNOSfF3pV7ydH+EI6ihVOwaLbRP8PEq+rTNKw75aHW6okI/Ys HXIel+YkCtOwz7r78M8tUmhsrompPy+F9JFKdVVTcdR39Z86nE3F+xlq8+g5 cUicCQtfflAIaxvaaRxxYfgIsOQ7fonjV6B+qM52WbBsDeu0vSiw2iQw0PVM HtZnxc43HhTEGkaCbTbpaZ+YKwZrrspCYUEdU3hEDvc9rC+2Bwmj4XIUJ6KB Cufxm+KS1eI4YrZortagGJpG1z2pjabh5kWv//yIP/gVrJaxDJSEWt8F7/xy abRXWPu/DaSBN5G44F+YJJwPP9qa5y0MGa2xTX1baVCLPMpTuSiP1NUtiVMB kqg8ciDH+SgVibmVfB8FMVD3b6CIER/IcL+ys8FHDDfSvlxYlS+LJQtP5x8+ LYreRUdqY5qpaObOX++3SQoDyx6N1kfS8KD0ZtepegHwfmWzRgkHa7vsUBvV pWJceWTHimsiWEO9oBk6KojhsYT0rb5UOOj2FPelUqFBV+zcIkbuU+LVj7Qy eaR0tGp0ZtMJN4XEbzWRR/Ku//asIJ5iOKqgcvcNHXbJO2ebZIgj1n3fu0eh NMx9/rjs0idRbC72uCD0TBrOwuGtokMU1C806H/dR0HSj46GCnE5qEaetEpy FUBLiPXVa6skoKmSoLxjvSimW+QdbetEITZLmJV2i+TmwZEMoQwprOYcvHje RxBdSTIn4veJo3z9rAhJIXLu1it4e3vFYHTlu5CysCRyRz7QHF7S0dNvQtWB PJbd1iwqXy2NiKKsD/0XhBC2fK6SorYU3POLed5q4vC6UpwcNSSPqobHu8IJ v1rPdXTZtFcMd+uiJA7nCyGa8kZje5E8ms3MP7XqiWNaevxU6GIRGAiq6pzx ouO4D6WIQzx704svS75rEf5cL6zH2iGGyxMKC6qKZRDalXAx2J3wsjHbeFRN DPErB889XUfDAePQ+kOGNDT4y8bc/kQ8ueWR3G8/OtrrXI69SpbH0LYN1uuM BPHqcfOrv/MkEXfLqD+/g4azB0RvOm0SRSFv24tuwku/Cop/6nbQ8ar1gupe Sypy6sbdeCtFcf8D+7lmOhUl97WSnoDk0CUr2ULSV7aGz+gTvVLIvy4zy20z DRtc1vcKXaNhf3j3ERtLCoSulCzI3yWN2pr9Wde6BMFo1tyeQT4WcBXWcpCk Qa4xR+XyRSno85kP96fTMW4Y6qgKCbyhTu8VJ3mXIElzEqLSYTTuufDItCi6 Uw0ueRMfo5xzSkmOk0NQ/YWe+NuiaBjzX3XShwpT6SO70nPpOMT/kvaLJQOl fYttZq0k9yat1WF5gAo1m1Wbvp8Wx4azo8M25H3Td3xTFrpAx73OE6xZnoLw M9eOT+iSQz7d/HjCRgm4P43dK3GV9NCbf4H3E+Rg1aHxwHJGHNLuhT0d22lQ cqvw2H+Tjkty9rFbIgRI3v173xgjgKN1zXdWziNznnfi1utH8pCJTKaEaIjj ac+ci+vtBVBp6lonrkDBJLTYyxPE4bHapMRfnA5dWselvHmCyB1zGO27Rgfn VFzn/Rgqxn5K5QlUCKCPfcl4HoeO0acr2v3mUpBuUNC8doiOFhm31d87Sf4H hCdbEz779c/DY+CsLLT8WCZz9YVAqbba+VpCCpwJW9alcFl4mdVp0v7PcWdV rN6mk34ItLpzqkscL4tCPy61oyFE1On3eh1hrHn0fa5HmSx+WXF/HltHxYW3 Jp9u3iP5cP/ULslWQbxs57LNrCi42H61p6KAjmWCIymM+ZKoWxiR3LBbGuOJ KcY3bKgw+zxiH5lDRX2KZHkaeY/aMdNqxThpfGZPOOmMCSKiVn9F+T4BiB0R +DPtJ4LynQtFx5Jp+DH6uVHjlywMtjdn86KosJ7XcErFUxbli4MacwoIlx8q SX8bT8NxxVmVEXIy6HT1vXBdnY4ulw6doKU0zAim/KhtkMTnzgfDNsFUXIk5 Wpl1mexV2PcrOfYiaHdaHzXfSQZmDTqNg8mCqNtc4nZDgI5Ak8bBuQvkUR+d 6nztKeG23T3XA46LQMNA/e2PQQHcnRHWM/aUBOV5yqBbsCSSKMf6HxG+Sxxx 3D5HjQoFm6nFlU00JD/9au5yQAgev/MvCf0nh6rGselO4jVWAuVi55oo6F+b krvkljiyoD+3kSaHgAT3G118OZh007uMSV+5zSpfEDgujHQ92/TCxyJYKtYn FU0+H2jVuVJjRAIj0eIqf0vo2LFE5hCln+TO5h39Hw4RLw6W7fw8TCccucM3 L0gKYn+zvv0lXPJKd2tvfY8AnOkbsyRSREBhm1XGZkjj3qzQt9tiBWC+YA9V l/BsoAP1YyTZq7lyzp8SR8ic1/CD1W5LgPZLeVJ4TA56c/65mIyKQeyQZXL9 GWlItU3987shA8PEG8nbp+WR4Hu3L5VwR+g6tuqQLOHNMqZwtwU5x9VHPzf0 0hBJ/2Y92iMP3lWHwtu3SK4Mrf+THSiGRY5tPUvIPeam/iyjfhTGzd1Dklad AnDJCJc/JE+BZNHLRs1cMVQ1yzx0J3P2pC0+7LeDBA4xmdLCphI4sS809Y4T 8Y/rhq6NEVTcq6yp3jVfDKeNZ+a/EadhyU5jfvw7wj1/pz/P3JZBztahJo1o GegrPVb/5UUD7bq56pPZ0rA7fyPep4yG3z1HN9aIyuF0hsdl8Sk6YvYHv0gi PMJZKZO7s0kaKw16lP8EiWHzCE3R/STJ+/Tc3g9rpKF8s1RWLISK6JP+66P2 C+F45PB131I66nVaNh4dk0WUUVytZB8NfU7Ji46Qe5QIYFfc2i+PW+XJq8eJ T58PuPrwqRkdMyIRK0Xek70Xzb0dQvJSo/71sa3LZFFY/qnd/ATJkxdFtW+U iX8qZoq3PZBB7MWTi6svkj01G099pC6Cvt02BXGNstCh2y8szqNgvN68/4+R HH6LLpse7KLC5+HCp9dz5YEfc5LzyPst/Bl+7OAawkm/RT346oLoyXpq/tNY DMGyfw/vcadBe8g4Uv2FLNQ7n9tvGRRElm6epcZNKWzuzOtwdqWha9m5E/9Z SqD0wZD+ynOEh1LclBsfCeC4XHCGabQ8ttxmt/fWyMC2/Xj3bTJ3WU2Wwa1x JD9/1AU1PhMCbVG/6ZEwGtQN9iYapROuCg2v1fogjADlO680a2iwKk0bXLhW BHQVi+sqdVSssX+jX1ovjIg/VTarv9MQIG86uL5UAJv5hteWV1LQ5remdJ6+ CCKWqk/ZdckiNorgYDvhZd0nqT3kHJLCPjKCNITAsNMb7t0kDfe9G9Qur6Wg yHkQ/WNkv084+RSvpeJUFGNU7yYNh7gLzs8oy0JkRfhdvSpp9PmffNYbKAg7 MZlkfpA8EjMjV93Ko6E15pmdzx15PF76bXucMR3eP3SnZ8+XwoaqyocWwcSb wuIaLKsI9yvpuyrcEUJE8qKpoud03Fmyvr+NPH994qqNqY9Izlb/UXx9guyJ 5+kYv0hhPEydCdr7WQTTnLwT0j1iOJ6vUDh1WQ7tj899K+wXx29+4sCGdsKL oU6LlvySwiJN6Xm9PbJoH8hrSf4hgrv3gqOmrgpCiCn/bmgNBS31MT3F6aJo Co3P+kc8MYn/bsFOBh27K//sS/KkYuWbMn6liyS6pQMefpgUxGZa1ZwNotIQ 0WIfrWkWAXbZO7zvoKLV6tc5yoAEPiucixPxpiG1coen4i9pRD1t2JhxnQLb qdQD+y0EkBuoofvt//8v4cShUxLi4rDr1dtaUSeIvqinnXsnBLDvJvO/+G5J PJVM3CSWTwdVhzqTqCSAJbaJ/LPPRLBW6fXXvfp0+LwK2z2xXBBHZqvNXaQu D6VLWgmjOnI4ULQ+SJFBxYh0ysfxIjryt6U3ZzkRb3CdJxtcIAPL4MIt//fK F+UHuuOWEt64pdDwKVkAZY61WrauJO8n0gffeAnBr8S5etMiUShnNF3hLRBD 9nR8acJ3QZxft1JEsVEUshlT7xZ3imAVXUlgKFsGVzb8d7vtIQWvRE+Vn0ij oP1lR9HcdWLYuPJ7uxaIX5Uvm/9urTx8XFOh5CSLnPl1Xj3VNHw90nUzK5t8 vjrr2MgBWdzWZ/8JfU7F7705Vc/zBDCzoG1z+y7CcV8lvHYulQOn25H1+qEk Un/+CJhJk0BL5kaDhelCeKZv9LfrmzCUi6+qRtfK4YSEQLR+AuFZow2hOtFk Xh62vr9KlwJlZp3wk1IJRHqErHMivRVlPdRRfUYS/w0sOGA+QseeTUf017fS YfhW7Esi8ff22umQ0jZRsF7HGchmiKJ9asm4uoUYzJ7u/yVA+mFP1f2niwtk EV21PGLgoTBo3l99hdeIQkfmrVRHiyiwenZrvgThp1uHBDK6JPA9vsnio5UU ml7vWhCjJwr+JmX9ZXNoqPrbduzQFxn8CNo6KUW+/3j+SqtMCVF8ffFJ4sVD aRRnHC5YwKVgh0iT8tRZIRjFzJM/XSaMVas6lUxEqJhf4bsu0EEABsfGd+cT Tl3YZvTZapYY3CKy6tb6kzkYirBQPCgNLa2BtR8nSf8Y2BxO+SqAX7csLRu9 JBAh6eunDrKHkTvTf1wXxhODY4/ZFMKHiQYDxqeo2Ee9MriMeBT7tkRLmjoF eSrb9XY4Ej+WPdBU00/2qHifiDjhB0PqpdUbt0thqFh920N/SYymfDK3PkKF 5ZvuzIYkGqYSpVd6tdCQEBgXVLNdANsDt6wQz6FD5N8d1bb3UtDuLDigNCOL xiy1JzZrxfGqILrvJk8GT3h7TF7QRSHxrXzl5BLCv7zixIjfEhB8b5ZfZUfH 7At9davPimCf+vGI3Xqy4Cmp6kw7ykHyr5fMGpKTdxZ+HPmzhYbak3NGxNUo EGa0fnYPpEJ22VHLITK3e1Szg7a0UWCmOexzZZE0Vmg+c1lL9scsTdy2Xoj4 0MWBu/1+JF+bA2YrmlHxw0Tj8KS1DFQZVwZqv1JwlSFfsOweDZROHaWLxNtS 7zuGjBAOWiJjrLEiUhoZPbm1gTvJ+VpKTf/fc64LC3k0vKBj7PnM6vw6IcRm XhrrWSqDI38zMya85CDjTb1wpInktr5al5QKDc0d/8JunqWirkd96lG7OFYc fFDRZU2DalhK+CjxDjcbtQcRFAnYzb5zf7+/NMyVXbv3REgh13yuhs42SRyd Wx349R0dI2Z93Y9MpNFV1uLs0kB4sfU5LdtODBmnzBN3Eu7TWaHtejJJFvUW 7FV1lRIwT1ER2REng9m/dnc9m0WHhkZavPYTYVQ867GNIjy5O+t0yHKeCDzi 3Av1SG6Z9UWJupRJQL3wu9j5KDqEYmpKd++Wwp33Df7PrOhYtOPHjTXPSN6e 8fQ7aCaERUriWPNSHttU/tgYkdxR+mvv+ZZHfH0978XiUVG4fS1er7RRCDOv /G5+WCqPR6xAyqdvIjDaUvRoTTPZw883vshcFUKOQbPQ9WQqrNKkDya8pqPq J2tud74MtvoqOEin0uCcrvP8ZbowrjDm/pJtE8bQSPhNGQ0BNKzg5DqzRbFb O2GX8wEZPDwW1a0fIIwycZ323Gjyfi2JiUcb6JC6uOmJz08hlJvOZTqTXGZU PJuYUpMl3GLM3Ez6JLeI1lqWQyHrnvuoiTxP0xe/6e0SNFxYfbIqU0UG7GTZ cyFjNDh5Jh8OrCW/PyE87hvxVcsOjea1OuQ+wR2rIt5qabg0y22agiDBVY9g IQE3p+5GwSxBTO4cyjTYTIdy6eosi1WyuPDp+E73PxLwNah2v0c4zfOwTp2a Eh1+vlPYeU8Y2jKP42fOyeK3/Z4vBVzis+9FGLfogvienr7c+rck7myoHEuP o2LDIDkrKWlUvT37nc0geTsz+PbBekHs5pwJ1CG8fdy1btvdv/LI2bDuenGc MHZfzrl/u4oGhvYz6duKdLCMrNICvxGunV9s7/GT+M3A6PfXbDr28XOiNDzE Ubvs045Dq6hwaInTaH4lCtWfVtErc2ShFp35KmVAEG1zBotftorhlZmG4QkJ WVTcuWhpPSWMPVf/C/91lY6HXxtzLYi/KrsY3EzNFoIWlfXLdh55boZm6gnC daMPd/WetqUj4amF3putZD/r7sz+lkuF3mftwLv5guA0JfzV8ROAycSahCfm FER0yOtbp0ogKtxHVYv0Qqlz3hXzZCHUSYX11d8Sg7P46PkX4lKw23LMMeOY LGQu6DILjaRgkyeql0R44Xu70MQiUVk4etYV0tVlUVS15N1ZKyoKNm3mz+jQ YR1WnN3dIonYgVlJY3+oqFBaXbTrPwpmS5ze/6FKEMojB569iqJAy8r5XdNb Cn6YCx4NvicP2bRgaeejNOSWO9gYPSB3IhB02MlBFvedTd9t0JAAxXZY18dQ AF93694QpxG/Ou2+Pb6XzPsmy9UtZB5mzKPz7IqIH9TdG/pN8oxy4NvUQTnC l3fCBRti5aG5dGh6BelZ3m1xkx+EA5yTlp2YJSmMV1CjF0TRIHHo09oYPWHI 6Ny2VR8mfDao1e7gJYDRArqI2zwKogUmzs16LAbdOSb793sQLl8sE+O7WRar tE+c+Kwtj6+/ApcUkB6lsCUs9Yjvss6a+p3dS8HD0Wj2cWsBtOaLR14n81K0 TW/um190nAxXvqayUBSr/Dtsn6gQPvhXfXpQWgYha0Yi/y2QRck/5uMkMs9m q6/fGT5Cfo/v4IGJDCn8DNjafec9Fe92x/QkNAlA+bJtY3YsHUgL3+L/SRAC Wje3fo8SxhdRB/O4JpKr5rGdh8ic8x4ZplnVkv2aXWB8RE8S942EoyP8xdDZ vqb47LQUPhXK//Uao6CnUNrCdD4FUa2xDmfdpXF3uV9v70sxFJ5dXLXoFAVL Dh/zukZ6gLP8/K0pcVHERQnUnwoRxZPXWb6KHBnInbW0/rdLCGsEDparmNGg I3v+x7l/QngqO0dr8ULi95zc6kvPxLFqjqwbTVsMHl/T39nYiMM+usHQIZMO 33laknOdKNCUOCP5lyqN8fXiKw8Mkz59p+kmXiGIVscuxY9DNEhmsl8qFFLA KZDm/v/fBaw7dfg/ywYKXHarzf26i4J7+f0BjGwKZFZiRNVVAie9dcq0SyTR +GPCSUaWAh+HQwsienhorPt7wtuVAf7qcSf/KS7mZa5f/yGQ/NxfFS/eKtAR v09d5qMU4WDPa8f7tzGRGj/nLk+Yg+WlD6OesjlQfm53p8mA9P+P1qYRMTb+ 40wWZDqxEba7foL+lguff/oNazupkNq0xFTelAFL+QXp6t/JXjB+3ZNYyMYp WqhFRzwVl+It9RmRPDgbVewYVeXhcuLHzeLfeLg0Zt53gfTMiTO3l+zax0JL qP75v2/YuGu/4eALVwo+7/i02GU2F3/+BB6wzmSiSybzS8hqNhget4P70rkI 6fXMYTaxse74frXxQiYaBleLa3/gQSlX1+LIIpIX1JvT5z7TsKhZ9u6BV1y4 1O8qEb7BxdmDdaku/1gQylywW/U2G5Vfkgo0sxjQ7YhWui7DxUkP/WqOMgsP klsmyhdSMWD5y2rtQ/I+5SVFNgwKtHd+ubJFhQG/tPXMKsJtv36Nfs16x8eb K0d6vsjwcSCEpedPuO3pvnn0MCUeElq6rVeaMPHHz3tpZzMPAx2dgnaxVBz5 b/7hIiceph7KXvvDZkJ8a9ueFxF8/EpY0FdbTIXQseuyFjV8LMRjzQrCZ4fC 1tzf2s3B45+ZbQwWFx91LwrvtCDclvM4qnozH9Rjez7sLGJDwb1qxZUyNuLS 81MUN1Lx4JL9tnPLOWhUunBqbzcVnFvLZvmTuVCxTytKn2BjNLLxfaIvHxO2 vzaX83jwPmN17pIFBZ32dxb92EDHBivthKSLLDxpXjUn4SwNJsPPsi8+50Pe VWf2bg0O+BvOOLZSWeiylX5x6xYdEalNXw1Jj7z9rqx1y4aJ2FD2x+ZOFr72 wCF0Nh8nlUx3znrCxadw3GvxZiDFU0HQKJoJD7XvzipLKNjn21etNsmFedrH 4G19FHhnGS33J/47V69H88QvJtY8ezedfYeLDt2qtSXWTAy+2nh5YyYH3/Uv P5hmUbHTRrJfd4yNg3U3sseUqViQ+7F6uomKZb2si1rabMxU/7w9vJWLh05C M/3+DCT+YwmZJ3HwKdGtTIz0Um18eFqMNQWKX+TUHI6zsLkmQNKoi4moEOv+ r2UMGFZaare94CPrvJsnXYuOKLnj2h50KqLneNy9V8zFG5kz09Xkz88sv4Uf TUkudVOdv5zlY5L6VS79PRMXBtYrX02hwytEyU6ynQdZmcFhfKUi/KParkOg 4Z2Onus8Gh1bXBwquoOZsGXoxE3P8DE3ZqxGYBsDRgaad/1d+Nj8LeIfnUWD muDO1VpefFh4PeqRd6eivcTR9Qb5/TvnNrZdqSNfv6psp5IMBSXrJqJ7rvFQ GXZf4Czx/ilansOOTXxwho+2KlfzIKx49/QGLS5ODzj/Mj9Pxd/3J+uGT5B7 OLrW1HcbG3sPBAgf1+KRHmxhNK7gY+elfrR50HBNb+xAkAsb4b+ezf8dxIH5 Vp9T689z0NlzqVr4OQ0X1+qXfblGzkncU+fVXRao19zLhUKYOPnacHPrJwbs rRj3z/xlQ6vFRlLGhYWTfzc+uV/Ggu/j1FlJ8lRsiWUU3nfmY1zUdOGa3Qxg 890psyYafit+vn2slYa8kugXlxKZsITMhns9TARtTAjqJzyg/Dz2dnckF4dm 7iqKr2Tg9WcpryOFPDxLdqz5uIiDmqV/9/llsNC09ebFVzw2YkXSzD6kEY6u OJJzbS8Xpm9XCiuupmB/8KFn1Uf5MDx/u3GQwsfG1333DaeY2HnGIFd4JQ2s IzsnP5Jzeh50Sd2ohoPxNMVM0bk0fI7I0Fn1j42WJzsvXCJ9PsfSYqLnPgcW HR/VOsjzfxn5d9RIkIfUPokF+5aQPXxk5zhRyIXYi6mBEPL5xVF/jZ3nMlDy qDIsh8ZB/te63JJoLp6sbh06tIiOWWmntbed5kPJT/hq1j0mev0OTVzv5WNp zIHYwAwK5m1RWbzxJw2G6376OvylImKyIKF4Fpn3kRVfeBp8dF6OZReepMBL ddJrbiwFKStkD726Se7ZbGLAg8bCz719PrYkF9niEg1zr1Lw85312oAAJjat FE5aRN6n+bzWv8oLpG9GfIdV1akoG9okGj7GgBrHSXDlCtKj1U8rWSTn8+31 qM8DyB6V7Ete9JWP/NrHRouzqNhxS9NyTx4bbINTRllk7x2TGmiyLAqcNiww shtm4IdwuOlZTwY2TA7xX/zHw7H++GGxywyEVc/Y3XrPh1zw6fzDN9jI/Jyr WJnKwNpN2xM1/vDw63Fheqk6F0On1r74pMSEt+oT7aORVPz0m35qmsfAoGyA oLEXC3d/vMk8/5mLqr27bDiDFFgYdb88UcvE/vStb0JlOCjReqoazufCr7ah LJzHwKkOoUuPb5C5Xf/1U3AqDyuuDClteMNHy52SLf+4DNCWb0wvGufjovnl 0mJPPkLUh04drmcg8mjoh61WLKw2vdO0t5KH2rTZXjm6NLTnvFw6tIICmkz0 o5T1pN9FS0xbGukI/sAaO3ueBQW/B88cZ1Pwd3HhN643G1KzPl6ibKPi3lVd mqsJF3XGa3yTY/mQPmHLFL9P9ju71UR8JQ+9U1W6j4P4+H7Ab3mRMQ86111/ zJnFwq4lbRM2IQyosiwPeJM+HGjquOQQQ/jVuujaPHsauE9/anWT5zvyz82m i+TbguwDdxZosZGwXawz0ZgNm4G60dkOTAjGrxTjh3PhRZEyLBdlgV+odOXB N/J1UnspNQLkvdozXRIPc1FxcnGIbQUdMvNUT2d/4eLiye+aMweZSJI7ZapH esp7ac1XtW0sWN7Mt7/pwYFO/wutxzcpuPHR0ZC7loEdI9K/tQiPlfSPf7Iz 50HxtG5yzWMmqqhOkZvJz6Hd6OPohbGxat/+BWJfOWjtHdBIjSdzw51ro7KZ icJFinFnnfhw7IjNyyM52jQT+WfBZyqK+WPveqvpuPXYfIGUCQNHMvV+PMgi Xh/nWatF9jJ6pply/BAbfruK1yYPM7H+pLuIrCILyyI8zWrDeaBq3s+/acRG I/1qtDPhm6P++61PO9BBS0zP3rabhjjTs6WKn2hYaxKYknSJhRsdt0YslvHx W9gq+pUUF4w7bRYhp5m4HnI+fs43Jjrdl+SPL2Bghn88YtZvKl7UeRY63aMi qH3Lx4/FLBxvd7gnqsEFyyVy0caNXLS+WDflGkaB2dqrcqGEk3SS6xJ9cklP PCuZ26bORmfh0eQ/owysa9b8dYnc2zKqhIrnbj6YxdmG5uM8dPrERD0UZqOM N7r7lTMLyg12t3JMqKimz2f7bWdBt5HhevUWD1Efrtlq6vMh81gwVeU2D6Wa J3cKHmVi/Ip0QE0lE6tEosuv0glHJtVv6HxGxZcbrssG0yjYYRclwd/MgXtD s5zqQR62DFcr943xoekx1B7XyYW4qMjGLU5MTDfeD3sYywbrrvGBU/cYyAn7 rJv4jYV+82f3nn6hoVEzf/GLZJLr7JamC/akD5n3xZMSOHh9iE6vduNA0a4+ qfE3D0kqVnzPLRwEfSu2NTBg4f7T6mmJNMId0/k8wREOvMzoHPZ1LiRe3nh5 L50CusEDje9hXLzgnnlztJ+DbE8jjXA6HwX2ZaFdyRTsuZG01G6Ghc7xJoHl ZJ6PVtYfSA3mQ3tQbrsj4Szxoc5zCid4KHlgUqBLenlPwdahutN0TC+MlDmk T+7BLPd611YKDot0CIWOM/F+6S3uebJ/0dMfai0EmJi3zmWRSTwbPWL2r3Mn +ZhK83t4ksnBvpgvmR9tGVi88l+K8SkergT4qj4n89A32+b3kgke4st2D77c Q8PyY51X/H+zEHAx91maJA/f52ec5ojREXLK1PRpAR8RdXMVk56Tc4tcskO7 goOBtH22MZk00ES7pLNkGYjNLHtUQ/q4omz5ptkUBpzfjX8r9CccL524zP4I D2/UOxMu8Ehva16c9yucAyuh6XWCdmR+T3M/2MkzMHKayxfXoyNsffMTTUk2 Lld2zcq7zYKqbrSbXhQblxgRW07bkXtYFWztFUr28fqRhfsI37R0ya3Iv0hF vvOlLtMuChQCzrm/9+Jh3S2PXR00Niq8jHKnt7Bw56tp/kE5Bqghytf+mFMR mtmad0WDgsdUqZDfvXS4719e9JxLB4vX5x1gyUZfkUlAcRoP46nJXuaH6Vgy uOr3/V003Fm70/ZmGA3mL8MEF5Fe49uPyMkoUjBmezj08mU2hgxT2umBDJQu TzNo3kfDgapzte2CXJT2rBZdtp6DzMqy7ERBCk794tI6fjLwTTOs59JPCr4a r2MOb6ZCPkr/ZV4RHaVKOxjHlGk49iHYILuZj9cbto2p9/MQc/5kvFkpD/Mk 7Q5TU+kw+aH0rTOVC5qbxELNn2zsWGotoNPFxfsz2ZyeKh7+m/Es0XpLvl9S svioMx3e84Nc/V+z4aA/01Ezn4njtEIp5aUcvHzuZZ6mxkLJmkq2804a/P+W 53Rt4+OQpCGrZgMPdVc7ti0Sp6FVefCw9QgbPyKevRb5SYVqVlD6Vzc+aDk/ N7ZKUbDyiaTZi3Q+zk/fLW0iObXAdzRnnjQNmvMMIoxJHlA3/Ix0PcCD+N/3 bzR1+bibvfdHJIeHDYolRdGEO8Oi3LfeCqSjyU2dNnGE8FZGhnSSOwcj45W7 fVTo6NIzKlV5xgRr34Ppd0c5sG0bfn/elwa7MYmbR+dREPlH202L8POBzF+d 547SIPVYWzzkGQ0ay6Mbpf/fD8XP1ePI+x4VUWf7LGYi+HDxgaFR4n0tESv2 WzKwBotMnjXwYTNm6yviT8GZGb/jmwS4cLINCvUiOWgbN+4t1krF0PMez3kF LCw5bx0y14cPfO4tX3ieeNZOk7G1PXysXx63SuEKD6c81aRK59Dx3JTTLrCI hXURtd+8e3mIKHVzKmfQYVild6nMgYu7Sya7SnVJj6x+2p3qTHqi4afH40Ae NPZRusICCfc/CDio7cVEvIdvm6sWBW3JomcqiZdYGCSWG8Zx8Off1XGJeg4M Dg7Oe0n8V8t85xfBJwzcrTMSEIlhYDrU6cL8XVxEsHPfPEhkw2issHxFF+nD gr3Fh78Rz3N96bdjhAGpqn8rvh5mI7XVWs99Mx1qMi+l5hvRYRZdInW9nIWg 6j/NkYvYGJwX9HZQjYObSpO2LosZqK1sKd1G5nJR4OE7k3sIL98Z3Xu8nQ+J dAfPi9IURFkJGU5MUPEssl3dPpWN5OeNMulTNIhZZJuGddDx0eW5yX8JVGgG PwkT388DM1a6eaUqHWt6R14G61Ow1oC+9flDHoqZYnq3QMErmiNbZB4Teman d/RuoIDS9kOmjMNE4nbJW+2Eb6LVS+I1tzHhF/pHUmkvHz/jC5JbMvk4sXVi 8vcADUJCXYpZHDZ82D+Mv5zlId1UT3FKnoc/aRIvI2NJrv92PBFOvFxDIcCs 0YcDY6v1ZodnGAgy4d6ZcKRh3aLq68pe5J4m31ywWUrFtc8S7u5mVMSqFsTl RZG8fkr123yOgvHg9E/aORx4ms02GeayUfnwgVN1LReXGffmy8dRcFDCZ8nQ bDp6Ev5e/vOAD0bvF4HtfcRf96ToiK2gImdaOW7tYx7C/3t78IIeBa2FNT8H VanwfW51RYZHwejhrRNbk/i4fM1Yf5B4zsWzbXEswk8SdyeT+A7knBYMiTkv ZaGuUGHZyWGSY82Pm29PsZC4U4nyM5SCh4zrH5alER7t/JuxkHjd8SWq9Yfj qHgqsPobZzYTAi2bf9rc4KPEVmzXy/d0bFzVFj9uQYVO5u6iqEIq3Lo3qMy9 Q3pphXvYpQ8kj54q2S0h/t1os2KZQTQP+xbPa69QItxuqRDT/YIKPwvvoH9+ VMQNPQpQ+sjE/BvS25ac5MD5kGNNYzILE4t32tsSbqMUVL6NJd7keNzPSsid jpPfhR+rBlCwSrJ82+yPNCz7++vzmwwmfAqNbyhIc0HxupyV6UiB9r2jIjId VAz0/V55+ggNwzfqDNy2cBH98deTsnlsaNAiG/vvs/CB15uh0ko46MaRb1s9 yJwEz9YQ/8lCTbrF3QrSn8uqumbdS6eCLk77yAzj4U7VLZWyg1wocgfP2lpy 4Z25TOvQKi7+ndIVSC7hob5822WJCApsm6jydfM4mO1CtZGQYiF0pX+LtisP w36/CfaQXsxQ8TGQIX3Joazg36Qh6O5Hob/3GZjdWvnPuJT4g2Wm6qdBOspZ u5MrljLRsiDupNYeKjb8qT/V+B8NSXNG90S2kPt7EuVxfCMVE1UGE+KE5w58 7MiNWk/6kWocGUJ4t3p+/7/r/zHQvOWYY9BeGkSXTJ54fYOFt9JzDJcsZEH8 fVi7iy0LKzdyC2sJ9ysUnh2av4qGK/ZjxZx9FGy4bOhTQrgqTkso4tF8FvZ8 T6+inKZBxL1w4F8/4ZeCxd90btDwJPS+logtBT/m7HjwZJqOPKH4zLBrNMjS zNpLcugw6u08l/2acGhC3bb5V2kYCqlSHPrGgKTAnqrgVD7KV8vxT7LJOe27 uM5ZlQJBhsGz7Tc44F7f+84mnIbvvWWUJ/lsHN7//bn9fSa2uMpTv73j4IvE q5QVzxioOfI99akBDaGcC1tPr6Vj/v62iR+2fHy83xFJ7+dCuN7Gy1yUD8sN H4oqJmlYGJPK7CX9ZG/um+5B+uCA5nlXY8JvhaslohM/svCZ1ixtMk24RSqm zolwd2T9358hZK6a/u1N2VVExfoEuanLL7golmEaaUf+/+/dxvXK9hHefMW2 DiYcrTAeeXfvcxa8RBwRIMHFm2XGHcVDJE/s/Uk6E5/0iZ2qXc/A2N7IC8PR TMz9dLrixiAP79Zd+C9Lm3z95uhrpq8YWJ96kXXpNvHFqzUiX5/SsP/AZUW5 BLLnS4wky8nctKhuzGm7yUdP1thNqRmyD/cNTU49pMFSpDJwTzcb7RcbJfJz yPw3S46f6uOg8eO9xfrb+QgLFzW6co2K38tiTvztI31wO4q5x4SHFyLfVufW 0RDxLqqIrkXFMpMa5yxVLuayvU9QTXlo5KX4hxN+FTpSwn+5los516ONp3q4 mPlx9M0WSz60RnJSeAqE51a0cIUIpyZtkX8zaMaFivvSc6UzbLzUWRh5YDYV CTt+RRhG0+FrHX6zncx3reg+h9IQOqT3KGk9G+Ei3+CnQuA1BpSXXr9WosvC ubPRwl+W0yAdO+1p+IaD6MeXo16RnPK8ZSn/m3jqrAmZhvFlHOiv2Xx1YywT FbPfz7UmPNUR2vQx9BIXditV6vaRPEio9fDtnCD3MmI2UUv6L75uQuKZHwsP 35dbri1hoXd36ub5pGfK0k1D1pBcS0rjMmqkSV66FEdvm+Dja9/la/WENwZ+ z7JLJ77mdeRboU42FXba1Srb1chcyh8MUzDi48eiwZLIYywsSqx5tOQRDbE5 YoEXnXhgzNp//cxVCqiJe/lCesSD71h/mv+Bi2y9q2sXX2FAwtMkMpLChsrv O4XJZ+nYP6uKZd5Eck8qjT5rOweRXdLQJ33k4HBrdDbh2zU/f1HyEomf+utP vCfzY3j093hcLR1WvQ7JH4lnWq6Yr3u4hoXDz1we5RgwoMiK3HWb5Oe0h6BD 5CcuzA4Lpk+sYkGrsuC0kwgLFkP11xtIDqZkj73qOUR4pu3c/E7CbeUOZ7aE KLNhpR1fs96bhcwmm5MqpF9tXQdHnPXIvoR+sJnNYkFNKlaF6UY4N1Gw9Bfh O9vNBsPlY1wk3N75rDqRgXPXN+fnHSDc/tg4tcuPPKf+Tn9TFSrMoKgfcIaF 8DOxH044cWAnJ59N3cfDCk0PhXsOfCgYug5sJVwmd3Xy6qYVFHyk1uvWm5Of e0D/XtkZPjaewC/NWhqqvR/f/WpFfm9OZtzYYw4ETO39ZGdxkPpKy2r3EsId wsF1UgsJVz88cUY9igPrp8WfVjwk/tcsdezVeSouy7WfY+0n3NpEt48g3Lmv fl3NwmU0+PjYpKgm02DYNbL+5QE2ZjuN9X2pYSBAdsHXnx+YMK5exVtoQXLI 39p/KICN28a2oRxDspfXDh3MtqKgYpvCdMYhBlTvPKmY/MRA6tCrb+MsJhKW PfgQRDh63oe8TKMJBpZIRI2m/6PiRhglvruHChObBrd9gSyY5eu2viV7tWXn oMaZVsIRKYKT/YSPre+LDiw6SUXuTa1GzmUahPdczu/0Iry714/JCOXgc8zr 28Fkj/6sZI16RXLx40Jk5zNFHu7dl3n5nwQPUw+e7EiWZcJJ99C1RHJvJhzF +wplXChvPZk37UBDjNrn2Lo+Fmw2SyUKkl5JZFcd/U3uuV0vtH3lIR7Q/zJd NZiDWlmrV1tXMPDqheacpHMMfKF0nw04x0X4kgeN3ne50Hl+OP4F2XMGT+yz KeFjy2I9vW+rmbgycGJg40s6jknX2B8n31fUrCUh4MTAylsTUsZ2bFRHB3sU i5AccBA/5jDKJHmi5/zzJvF5eqXkeQ0uvl+7dYi/m45Gc1mBCwuYoOi+vRq8 nAL11OmMVWQfrK+YOL/5TsGXbxayenbk46dnLTL1WcQvu8+GnGDgyPCg9+QB JiIe5rHedjBQZifdE0qe50eVXs4FXxYcV6gwI25T4GlBFWk/y4RE+aTLQWc+ JhuXnihJoYH3WThJj3DT1t5yaw9TJnxt2AHXSH5eMJ+kpi+lI9zhJTPnHhOH Tzth9DjhfZPS46lfyfx7RSxtz2Rh9b/czAJ5NhqrhIILhfh4O7nFnVtKx/DY 85o9C4l/HWk1z7jBwJuZEPNNy4h3Wy55cZ/0an6R6I7FFxm4xHkXNPqYhZeF e/5blkvFvuh9T66c5mNnwacFUreIN8m7lDi8p+LonuhsRTLv34V0dLeZEN5e u+1nWDwPaaXeR+8LM/B0aqvcuBcFVZ5/jZ6dI7k1awU9L4aDGNsUp8q3bFCC uid9+WyEU5ozlNbRULClSb1MjIWA86wF74l3/929oW33J+Jf1kfE5+6hQDPJ sn4V4XjFN1nG5ptYuNYtWBUazcGh0P5Tn2JomIq9339ilHiY7qhMRwILuUvK Cv2Jz9CCK7d67+KgTOAVP4PkkFFEeMlPax7a2yd9o1tpYM3EjmaTfX9ZdVP1 zmqy3//M76nO4cJa8mSFXwzhsFm7LpiQXN79piPD+RsbV+d8zi0g3P9wqFDj Bel/ZdUz8VRyfwot818VXSF7TL3QG2NPRfTNe5XBgTSo1ZpMDb8jXjJz2cDo HA3pkwX9S0nvZqru+Zq6jtw/xp448hgoWC2WH7mXitIXJz5WyvFw9dFMtSfh WbZzD4O7ngIv7YtBLxZz4ea6McS5mAplo29jc0n/7aPsXf/qBxvn+vN2TZN5 Kuo7v2l9GwMvvepefIzlYJ3QpTkRQxRI9pxdnt3ChJBMz7WGTTTcjDTtizQk /HWlU4J2jAHW85/ci8vZKGsrfwTC+wprX85ZVMCD77FfRy8TPnp6pVM+7Csf OhKlmcccyH6WzG2iXWXAUG5Sei/5+KFrjZOONAtfSpNG/kSzYafzuazjEx1C Q/47Kuzo6Fz4TvNSLAurnE8EJ5L3WHa7Uno2n46cC0JHg+xZGBjrvf3lNgNh nWMG1vI0/N04UrUllQfz8IyNj5bR0VCg2n6T8IRIwut601w28QHmwkNnCf/T zfoUP7KhL+rjdGGKik/UOvWFxjQcNq/ZmEJ4tFni9smtfYQb/ZbsfU16KzW6 9fT1di5ynHQOBiRzIb7cUVT5BZmHYQ1tFzUuyTH/kOMNdGxLtH6x5jPpk87r +/cX0HG2ftfkSDIV3VUJ/Te+cnFSv/aS+QsKxFyFY2Qy6bg/lmIhkEnOJc96 tMKCieO2JsblzYQHU93Wpt7nY+TY4mD7QgouCEWyzhPu9TlTYDDtx4RB5PWb B04yEbP/VIYl4c/OjVFCHX9JX+7ptLl+jg2xUe2gjfto+Fj1cOUxwhfNnoxT Y2eoEL8h0fp9kIE9vQrNfVw+YnX1/dJlOVi10NolgeRMZaVW9YMswnWTW4UX EX4WC8+WOk24fbG5Wpkrn4tCEYnEEWsq9uqukHYi8/hqqjXI8wgH6tZbtLCE g7rQxvvGCxmo3FnbYHOPBWaDkpbkPQpe/7ReN0N4MUeDsUhggIGK8OmAhFIq vqvs9V66g/jWhuXXDrtxcPfNh1sjTnzcXFNjnqBBxxPtPVFfiedSD8nd2zLO geZQv+9SkgvdCs+HbhNesQkPVqx/x8Q32dtHcxex4P9vyWL7YQqaK6jjD68x 0aznf2i7Px1Sha4ze74yITdFiarJ4uDp/ND4U9Z05M+utBjYzkLj5gr3+YSH 63+s6Hp0hA1n/4/X9Ahfz9j13zI5zoX2hwGXE89IzzAC35rpsZH5ZO7dDQdY yBG6+0j5CR121fdENmfw0X144lhwIRsZlMVfRg9xcCF+tujqTVRMj0lk/5Cg Eh5XXdoRzATtfZ+2F5cCt9TnnVIpdOgZX5mX4UvBg0ALU0Y+Ha8ytlXR9vBR 9Nk+Y85iGlybeMLR5PmXVbH0Gm3p4OrJ94oXkbzNXzveT7y6N7kwhhNHfMa7 cSovjoOxFprlb3kOVnAZRQWfONCQ96P0idLgtna/+lINPqw1TqXNeUf4+foO WT8OD9GhpdoF3lQcvu//I4LLRPgTQVbrUxakxHW1hK6ycTO+5EE4g4ftYz2O abpsLOpR9r/oycblhpQ+IXcmTjYOJh+/SYWY98jA2yEmNva6m8iRvTYb+Oby KYUJ1c8xUZNX6Ai93eUvGULO6f6uO0PFHPiGRcVkUJlwj5n35X05D7nfw9Pz PxM/5htDc4oGY3svpRkvPkK+vOQbthCeaPO9vt+ECY/hp0f4i1lgWc+sELRl Ij6k+9u2EgbmDHPcRd8wQDeQvVgbTPzQhTn1aCMNqkkJc25+ouAAta7Ah/TJ y3tRqXcecrFeP3+q15GFTwO7ArwjqRh66RA2UEGFIOu73x4r4gO1sZ/YEzx0 NXqoPyjio/6sI3OLKhXVnk7TL0HBaI52h+IjLu5s3irV68ZCqeXZHQFVbKzj +t6ypvBR6bV+48P9LDi1526u3END2FkH3pMaJi6P0mkh5BwfncycKNEjPurF dulW4EHKovhvjhQDX91qHI2J5zglL/vj4cAFPW4LZWcoHZb7pP87epyDQsvj 4gu3c7Elo5Kzsp2Bx+Eb7TIPMnBy74BEriUL0s/ytivwaagzHBgub2bAXWN/ S4Uz6Ynj0uFdhB+FzDd4xaxhwtamT3J1OguaodGLBzJIXg5UX+zX4OHEmwJ9 9zySD8E9hkvl6Lgm9OH5q0omdn5d6hs8xSZ7QOtpm+ajeJbBwEs3GtRNFvO6 SR75GBxvEyYc3nnKpIJ5nYptx9dV1OhyESLDS5dcxUPzB+P5WVt5WL3p1Zr5 2RQUDS7tMOrj4U/Oh987opjwbHBgBNVS4VF/vSXbhMxpddZUDul1wYH75ruW saDo97IyIYkPCkvQ+M1JMh/3WP3F7iTveVN/mOpceA8tTTE+Qnp2xrDBhU3y Ysnz8RxBCviJ3p8FVfgw/lfzrV2Ngc0WV8/3knv2PhS+8bkwE6ldahPVGVTM oXddcMxjoGR/tJLmc8J9PudGdy/koTcxwItjyobIlWwsz6LCcteV9pQmNoIm T9SZL6bA4viy+fosGhJv3IzcO5+NO4IcwfviVPyKXNf6vowNt3aBXb6kR3aX /7UuoTCx91MKe1kpD1rmLsPcBAoY5m+Ez6twkE57w620ZqN3iL+hmHjXiC33 v65SPo4PqfgMZLKxIWJ//ZurXOx33J2WaszDwZKT4ZbGDHxf87kwm/B2tr1N WCXJqfyvBltqz3Dw+7n03WNCXAzZSYeUnaIiYN/kwh8VbMi5jh4st+Ggd+GR w9dJrprdrN0pf4ePPTsmfffl0bDnsvxrGo+c/x1935QbTDh2tE2+nsXH/Is3 /LeVk76JXHbsfByZ6ydjZVX72OjqczBKa+Ki3nitM4XMTUN4VhHjNw8n3WZ/ vzzIQblqh7NICwPb3P9c/qxAcjlFYZX5IBM9cyfm/HeXj8XvrNZWnyP+wO9h WpxmIrN+2OAv2T+1zatl76zlYIlRQAzDgo+zP/cPztEi/D0clbF8PfEVrW2U hFI2OtadC44h3OAqVT6sKsPGnAd3O3rI/tVStyiteUxB+Y0604huJoKq+tlT fjx88ufJc9g8/FyVf5oSQwdtg3Kq1X/EK0wq9tyQZuJ8mpC2gwUFxvwTi2q3 0VG77+3b35FsXLTU2C/XTfqTk2cRoczF3/+EPScPs2FfPz44V4bk9JzlQy/d aTgtNZ3Qu5MJ/uFJ3bAWCooznsQKEa+d977+1e4YJlzbpBXVpFjIslyzYcFy Ll48jXmf5EbOZafSUscPVPx8eGfN+WV8aCoXzZtVQLiq7bm9YTcXGxIeqqZU 8eEse9GhypUD+8HhY8lXWNjFjfS12EfBWbd5lztyWDDpm+WotJaHm38OSUiT /v01IaKw+yIXT7fM9t5yiolHSxucPv/gYq5U7XWln3SkCjtePpbDQV7qNoX4 FCoaCmPHu15zUdv3KZWSTIGhx7kT1BMUPC5+wyh1ZiLLb3iXwjEKyqrqPZyz efD8cXLXGXc2TjroZy9UYuOHwped/57wUb1uXPdxOBtnuhsiXi7nI2V2U/vy i2xYMKv/TmxhQ6peU+2TBsldvQdq++tYiLKeOBKjR/qfU71m+AYHSdaXPEq9 uKgI8ancRjy0Get+u1ny8Nv8V2pcGBcDlq9TWGV8iGR+fLL+AQu/M4LW+bgy wS3Jz9TlsfFaNYP9rYGK4J95XKNk4mfGFInCMgqevjljvopwl22UVYXKUTYe HohYOuzFQGxAtokV4ajIksMnAkhvhgmEhN27TcebkU2qAVYcVGrouT0jextg p7vFMpqGCS67UfgoBavML4YdyuUhQ2RFStpWkh+SKm6rvGmwkp59pmgWHZcd XJeJkr7KWrH7TUMsF5tzLbTMZ9PhsaWkLkidihg91Y92u3nIWxj8Z2oWCxqt /vKL1xGu7PhUmVROg9HcGdbBbzxIT/8+OGVI3qNAWf0un4/vHAeFL1VUuKgc lKUQj/FK/F7q4c7CztKF1D/eFAT2Ff+vQnONpiqNwzjDuBS1z2Wfc/Y5uVR0 mTPdhBpqeRpOCssl11BUohDVTDMqowgJtdyVmRz3KWSISIqViHFN5UPI0cwQ SsIid/P2ca+9v7z7fd7n//ut9Uri+rlQrLzNb6kQIcEre/wVeT7BWlJNWcvC y87zs55iIdx0w+OcAkgfymZareYpNJ0w1eufI302ldBXl0byuHQhyPsg4fyW g+LEJsIHGsGS/L3EF17rZWc28JFT3JI9MS2E2n6dnGubBXjmEpnRNSyAtXyi gz3h0OL3vTW5GuQ7sXi9vZjkrmp/RuOcEBtjjZxT3CnYihLf829woLipxsCD 9Na2A+4JdiR/1cuHyvCZi8uFjrJjMSIs6tekjyrRSN4s3P1hkIfsqfJkG8L7 nwyK6clY4qOT9bld37IQPib0vUb28wHPe9uq+zz4iS3tek4xcI08GtEhFeIb V+vbR0kvlWc8+qRG+GyrdE/bsywa8fOWS+vIXFOqulh8zZ/CeLxm9Og+EeZD vUclJcTrnw6+H8vlIiB1lYmhJweXebPscz8Ikd9TRlOXubCofvXGQksEbvEv 9SMPKISsydpTEcvDipbM4VuLAnjdSQn9Q04AB73hoUXC3+mOZ8pfEF5M3ShX Mk64SK6s6Gd+IQNdr0JpMMmRNLimV367EAEZ50e19tB4MSWz+TQpwpz3ZEWo KfEB1xs5V01FeKgcU/o9m4GKYk8rV46DtOJOtbENFIpVgirtHdmIUOrwxBrC JSNVg1ZkzqsUxcUa9Ilw/JhlR3Yxg5PnHHY+SqVhoNiXFT4nwMP7/dXjpN/y hrqPRnZykXX8kM/hJAqBxj/xTch/Tov4uLfVjcK2t7MKN1d8vbcetMnptJD4 go9Ge7oA44++GEwSH5K/2VhXn8egjat8QSQj79VHG67oEo9dLjFO6+UhS+nK wUttHHy4oT/wdxbhOauiglB3FjRKXiduD+PD12Bn2NCkEC6b1JL36/NhG69c wLnHRrhDeq6uIQchA4I6DTkujKV9WyETQH7enlEmvGY8LXEe1OXgn0qpV8Qw G76dNKPeRkH+o0GBs1SArrEyyUuarNO5gn1pngEvRjnzN+IF0eWN7BF5AXS0 Vnu4ONFYWWpKRyUTHmsojTNay0VP1S0FKeHM6YGza/0r2Aizyx1ePclAbub6 vfXP2TC/oLTM3IKPxmqzs02NFDYHBv7rQLyi4c4bhoqkMR50cfz5MhrT9+fX 1ZqROXSI53BmJ4NV2sNLSn/yoe/hs7UwmAOnuriy5mY+7Hb1a37RJvs/oTNj EU542QjMTdK/CbNH2hf8CNe0DpkWFPCQeDj6+u2rFIwzQiW2K7iIzWyPWtIS 4InS27sZ3UIw6VEanqS/cKon35pLYUuCL6VJzrWNZov5m30UMpPOxqk08GDM tVJV8uPjMVYvfDERQXX4bkgWmVuahqOsO09F0FoU9JyeIR7lv6WoxFOIqKzc 5x5SPoabUhTa8thw860NTIsUIVZ7QxXfiZxLiZOWLuGpdDXXE1sIrwkU6mqk XTSSFNM/dKdx4JjvN2RYQ0NOQ/b7PQ8W1kw5t6Z8vT/SoTpTG8sACz/uUN7B IJSK3tAdzkHSiHh7nRsbvSyebWYCCwN/PQwv/Y+GoP/BaEilELS6S87Eegor 8r7Rm2JzsNDs4mxPuKFaL/Wd3G4WnnWcHJSZsKEjnHCrzSO9UqBp6VLPB3Vp Nk6H5Kj38dWNh7wYWAVdX6xbRvJk97idJ2ChcfkOc+cYGv5m+ZJCKeGVknjh LhsGTeGqkxMpHCxeqjp5+DseZAFazZ/reVB88nKlOtlH7YRfVVLeceHeK5Yl HmCBMjqiViQmuThg5sMPozGgtmRlm0By77/SyNqOwv93K291 "]]}, {}, {}}, Axes->True, AxesLabel->{None, None, None}, BoxRatios->{1, 1, 0.4}, DisplayFunction->Identity, FaceGrids->None, FaceGridsStyle->Automatic, ImageSize->{360.52936355639036`, 320.2714490369062}, ImageSizeRaw->Automatic, PlotRange->{{0.007706607489048167, 6.9990104021317965`}, { 0.003913164439288241, 6.991529743967746}, Automatic}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic, Automatic}, ViewPoint->{1.0012757106069605`, -2.166398456840588, 2.3987839997688924`}, ViewVertical->{-0.044544693217436475`, 0.047962798523838, 0.9978553704139325}]], "Output", CellChangeTimes->{3.786721530815445*^9, 3.7867216292886543`*^9, 3.786721924875722*^9, 3.786722215721843*^9}, CellLabel->"Out[328]=", CellID->667099093] }, Open ]], Cell["Visualize this dataset reduced to two dimensions:", "Text", CellID->1753503951], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"MultidimensionalScaling\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"MultidimensionalScaling\""}], ResourceFunction["MultidimensionalScaling"], BoxID -> "MultidimensionalScaling", Selectable->False], "[", "vectors", "]"}], "]"}]], "Input", CellChangeTimes->{{3.7867215752935753`*^9, 3.786721581738645*^9}, { 3.786721912145054*^9, 3.786721929701558*^9}}, CellLabel->"In[330]:=", CellID->479089917], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004583333333333334], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwUmnc4V+8bx2XvrUGlQikUqa8SbpqEkChSQoQQUZREJUUpDaTICGmYGVnd j03Ze/vYm4+9+fn9da7rXOc6zznPc9/P+/W6ztlpeuu8OS0NDU0rAw3N/48d v52lN/vwkZVUn4SS0jzQ55H82vaelYReFjZYvd+AddXV/bW3GcnMUtLFaX0q 3F5s8hyqZSB/9wnebahtRZdBTmbmRiaym2XuI19NKpzs0hM+9HENaa7MhF1b +gWyg9LjkYO85EmoyyGlhgn81LYSMOzPQHpyXcI0HuXBwv7MQ4cW+IhWR7TM smQPuLHIGg+wsZLd3B2yR25NwuXuEvqzbxiJVxWfr0feDAg8Cy/9pspLYmvo RHJ8SkHL1ecYczET+RK06Vx0VRvKq3P30TxlJcMQejR9/xTedu9ZrNRiI9Yi pkumdDXIFnan6kA4P6Euy12qejWA2YfOA7MSD9kelKHNqNyG4s5svSf2spEK lXNJOtuHcMKt7xmTHR/pEjxA+RbrhwUjEpG9D5iJkky/Jnt4N4QGX7l1ZNMc mmZuulkTUIl1NNWjlOcbyFGl3arbMydAZkmbZ5cOI1k+mn0qp34Qn7LfCzJl 5SPlwszjA3spWOQc8LWMnp4EnfpKdK5lo/HXLgW5aEYi1NtH19beiiKWjyQT RXnI9e1eFu4F42BY0/JMjZGFjPvd6R30KQePmF18VrNcxHmtq+bNvkI8nckg sX83I1GuOnnYpJUKp3puH90YyEe27U43sVPvxpoblgXCp9nJy0PMpzNDemEf U5aR+DwdyTetlIkv7YZvswtGGwO5ietb/eMm15fxV3HCE/n/2MiDuQiFq+GT eED9d0SEHjOJUzFK7Y4rQ8luP9ZvzGxkh4r2WSWWQrTucfnVZ8NF4iQvhB87 +hv1HkxwvX3ASpxtJz/YOlbC8PweX6LBSmorsaGYox9/qqq3b1fmJzLME4bl 2IWvO+vU7S1WUStyqTvl5SjsfHJmunqSnfxc+kNv9HgCL9nbZtG4cBD9phtm 3UdnIEj5yJeO8A3E0NkgFCTz0XkyvoUSw0wCyv0edG0ahsoiId3N3JwkcP8l 5sDTTbDa2h/9u4idvPbL/Ces2weRpuHP6rU3EvPhTPq/TL8xUrFhw11OGhL/ 8rlDuHw78m/NHpNgYCJKhrn/GqOGcEi06r+csBUUMmihGMeWgavN05cq+hzk 1Yn/nNn5U8Hzg/jv3028pCRraOuf66m4T+F6sW8eDzG9w3bRkqkEqlfmtB6M cZGhqJacSpNZKPGcMUvJ2Ug2MX7ab6AVjny+UbmLm7nJBzk1re49U3hKd+An mzkneaV3t/lpBhXIMRk3yy28pIlLqFjdYgoaG0v2fKbnJvxmAXcTxjvhbLq6 gPFlGpL5Z83YO/8FHtLjE5hKYiJpQz73i0UG4ZgcR//jPlZyvCktQ1G7HTR3 qLu2FjGQed+3v6QSe1FZL/zPq1ImosNqrtORTcVcP0FdbwEaYq5ZfijvaRUY lD+/8MyIgQi4BF8YHBrB93/Smzw+s5OpJa4j5UI9UNi/0+ToUV7yM5xaqao1 AAt6L5Sy7DnIUoRk3uOQCdyp/cru4VNmIrqY46BysQ7yPS+9LrnBTNLT/WyE 3zbjXMb0xHIfEymNeFN8VSQZjWSM/3b+ZSW2ZkUJTHfyUFjv8hG6IDaSwSZ8 tBOGgTHo8gMbSU7yy4P76nOnWrCkI2xdx5hIZc5DiV0aA+iib2BSFMtGZpsN v50rmcVqq5o+gxheQrtxQ9XPsSoUl/7vv1VjWtK04v/xxx8KrGT3MUZ28xDz 91/jFx/VogmX9ieKBwvhfyntUlk0iW9/uw04rs+/+IxpwtqTWVQQaCzc8UqA nAp2GAl0fQMezGJxDs28ZGp5t9dNuxq84leplcHEQ4p/fZ5nrAqHud6WOYEa FqLZ8I3/ypMpPFwAh4fk1us76aVC3+gwyqodefnKgIk4BJFTOQxU7N8sWPGf Cyux16NV5p6cxDy/rHmmTB4isJUCCU+KsTj+yf30qGWcPNSgjo7NcOKBVdL0 MA/xif1s5HmgA3aUUtQTL3GQyOep45OhA+h3flJyII2T3EgVLNl5qh0Of94x y0LPScTNwmuD6BawkefJWEMJJ3k97zd53WQCv/44dNWYk5sYnchxKy0ZRe0d EHgvlJu0fz8ytXZ7ECjaqtrRysykr7WR8vzpAMaZOGsdbOMgPAzBnC02IxAh n8D6poOH8J5oFvyZ2g2DbNVDdWr0ZM+izoYp/lFsNh2JzLrLSV6o2KkNRPWA dbrg2R8f2cmb1I05P+4tgoDB3ZqjG9lItYP6ZdrjxTiXdH6Maw8doYsIGPR3 roXRjy+kW+3YCcnctfm43AxeLj1a4sZIS+7HPwKDQ6N4o9izwLuHlgxeqS+o TFqCIXej7WfMmcgf/3EpgbczaHqYT+iXOw8pfPT5oIJbG2zmqO7x/MROVNpS HQ7XzOPsM/VPxbaMpEP35VizcC/8GD74tryHgUzMcWRVJVZieQzn7tUwPnKV 4aLk/SAKnrgu9cVFjZF8ttkztLiHAkEFnJXDG/mIZopMQeOmR9AZY/JZmXCS kkJ1EQHzejwX6GKKE+zk5qO9TwYOLAHHaOBd9lP0xEfAekYyvAu2tnirbPBg Jx/tvJR/sswAvZd5zLZhWvLi+fL86R1zUHLjmFvZaW7y77/OfVJX6jE29uTL u685yVMO/n0CPlMo9k75i5ArMzni1NbvY9EFE1Qn2zUzNnI34E2zXVEzcAcP MJsW8xPLbVo3BM9WgtFFHvUBN3Yi4XDjzkXxNuA7XOTsbMdD2nLai8c2TIPT rxGXZyY8RLWL/iPPmxRU0nU/r9nNQdwZ6+ucxTuBY87dKHb3+vzEmauoU6tB vnhbcvABbqLvGswTIDoPxI251SmSh4i3s15Vr+7Al1c9tCSvCZCR4BXvwNsl qPNnX7hgEg+xFL2uunxkHKJia6TltvOQ5zwymPqlH2ueVN0OteMgLkNnIt// a4AOJulFNWFeckZXSVJxsAzjYxJqPVK5SYuyyFbpiT5QK1RS6uXjJsn/XoX9 1z0DZx5zPvOd4CQ/TeNsR58mwib14/77VuiJ8S6Nd1U7ZlB4VFulfJGT3P4+ +E9zbzNsVJgtpqwwkfZjt746nZ3Bv/3XgqCbm9DNS2RvmSiHogyqv6Tf+nhr ntdGb4/CYPM851AtI5EdH+Go/DiCRRzHB9gsmAj3819/rgpScFNsG7/XfWbi f1MynXJkGlkH2CW1BXnI8cULIf2+MyDoYVsnc5ue/Nv/w1XRZxH2Xordd6aa n7Qe/v4ncEMxsJqolBiv89GmnJhQ+70TyPtFnAyNcpAHfrb1R1j6IcE9Jslv vd4t3K5zUzUGYfHRuWrXWEay7d0b24RrtVjRJvG3wIWbvG9QvhsXuIg8O298 3cjPSLr3XtGmWWlF2jHV/Or/uMiW+TcxDl0t+ERM84zgOn/YLnksa+p3QtQN oZ5fJRyEi6WuQNq4E+/P8Il+kGEkIZoDvoJ0QxBh9so/qpWX/Lsq+/3q8AAK LZkPpXqwkZNilpEoPo8/6vpzGgUFiI6EGe1UViFyK9xTPUrlIRUUInW6ux8V YpnOHSjkJuw6qg+b2RYghByy4shmJ1/v2J+k55vDcK/4e099WUk6728aacFR +PZIY+fm9fe9KbLZX5mlFyvU3Z0Dj/GR+mcDVL0lKnyK5Q48u8pCalINqJqq 9VAvprCVepCDtGQV7/im1gTzLKU7g+ancVfW6dbL7N/Qh27qw71XDOSHqZ1v vm8FXK0KZ7QOYSRN7ifTwwcH0H2PWb8UrKLu6o79yxenQGE6qyx8MwfRebLh d+X4IEYrhPw3dJWTZN4Qu2htNIS+Gu3KHNt4ycX86+2QUI0usz+dGC7ykj9s 5iU/GEvwz4PND64lcZLD50cspeIWkMumfbdjHifxy+2ZFj5MQ4xllm4VvmUg 4ok82/UuTcJBPPh4eWQVsx35LTI9e6Ca0Y8X+RgJvZpOZdDPLKCtd037t4eB bE7Qu2NxgQKuij+8Evk4yYWPa4YBz6l4lU1o3rydl3y8X0bETVuhakno6C0O NnKBQhu3MXQEgy752pjdoCPWGunuzzg7ga/CJKMqkZ645ykL93mWYa7M6o2B ZyyEjtbM6iz9OJRlTS9uD5xHbHj7vdi7E/eVvkp3TmMiByP5Tz472Ip3eo+f bm/iI2q7nnymPTkIsi6adJHBTCTZeCTKdT4aKKc/RSvq8JJNM/SLL9csYdBJ skBSfX3+jctZRBX/4W3Ld/RmglzElXJLs3p3HXymZXR+T8ND5NOZHG8q9AAG TmQ9389Anh0Lu0v7YhJebHVr2FLDRCJ/vvbSFK3GyOwdYsETLERmmf7Ql8Zq 6Pl8ke+yGyuJGM11cYdaTD3iP+Gfzk4Ue6Urx48Q3BAvt+e1LQ9pDaXxnU+a hLmbrh/u+m0g7xaE+Fz9y/Fds+NIJB0rSQhzt/jZXgYhG+wnarUZSf9rFV92 hQJMYLD+sjOPizz/55IliiF4LTVMYL8fH/lCE3HosMgIbMmdPvvDjIdMMV2/ bvm8Ha8Y0a+1hDGRNo8/7e3j45DcWp+cH81NGn/48PZyzWOSk1qnUOP6+ps+ f/CISsX9hcn7NoVxEv0q6VDf/aW4te1fbP9ZHsL0oNCyd1sbuB+uf3Bfg5Zg msy9W8bZyB+5dvrqOT6ygaPvQnb/EBqnV9ifWqIjL1WXNrZdG8Pup5+krdRW 8RVEr1ErOpFLxcRhWyg9kd1/uDUMIzDFRv89HzcTKb4U3SP4jIoOEe0+n+R4 iXt32skxgTHkEjoluvsDAxk9Gsmpu7UfZ5zWLgdHcpGyqFJViYRCiLXXv/69 ioZsf5mcXZ4wA6l68uO9Z+nJsNVw2RTjCJatjN3YIshBhFnlxl021+Ce1O7B x+dZyDVO5yP+0w34NOJkUI07Hxmrjlf3X6mFFTmN7N1B7ITW4I2Pw+dBnFsI aeQ7wUvmVS9Gd18YwrNFIuoCMes88/CJS+HtUnD2SrJa3sFIKKKDtE/MKDhL ZRDJt2YgN302iVBwGqOuqT69eIWWCFi46XGE9cOjyGZbpyku4m01yO2o1w3b zhqbvf7OTY79mdv5cAcN6dpSyqsvQ0Pm8y7m8G4ehIZfQr4P1piJtCiHgXZq Ke6PkVZ8wsdDVt6ZlP7XWoCDibP3Ase5CMX0tWSD3RJEFjom3r3KQthp5S/E t09h+P6bJ6X0+Mnmg43x1lkEE8/ZxejeYiY7L2+2V8yaRUHKQChtHDPZrB0r c8ynGq09b7CPsLERytUNeqEvKrFqd7iP61UOIumyaNW8Pv7x8BS6mbz1+pdo dRbMTMdTD6pA9RoTuRe6r2D6AoFBFeMTNjWM5PmTNg4N8W70TXz52GjdvwuP ihsl5ZVg+cTxQ/6ZdGTzW457NAmT0CAqf4HxywZieWRxUqinGm5XtLQVF66v /5f0x0I1XcD/qcbdeAsjsf+0++i/txFIXV3aRjlFRy5PaUoFardjaPcj19Yo FtJdy2HbvToJn9htLntf5SUXCq3dFPYMwnaeoWOJPlxEJXfru5tKI0DV19nP cX4ZV37cvPn0WB1QV+k97mQxEC1gDHgEieig3WIlXydAyirvWvF9Sgf9+jyJ 8zlM5Pqp1GzN+XF88kvLyk1HgGh1+o4dbaoD2YS3O1b2s5IPz7O7X8S14vGM wOI/vBxEr2VbZqcDFYp/pz4/upuWjNiUhvKl56D1J5fmnXd5ySV944fpbRTs pm37JpNDTx6JHgrfLtiAxTN8DT4uPMRq4tgeu5h5NHp47b23Ize5fj6A5tGW TjgVaJh4wJOX5NzK1jiQMwLlgbmHQ8N4CKfHFf/+/H743RGbyniJhZzpe94l FLoMtzc3yDHmMZJv2BBSoNSHZ6TYHR15WUmjaEFFTOAMXplatT7mzk0adkb2 JG2qxQMOvWXAwEGSA7/l/LxbC/PJ47rM63y859ns9aOpLdhY8ib80x4mYh3i 7+leY4IeI80fi9Z5QT/FJDZOaw5nTA0OKOryEN1bHqV3n0+g/dKdHgNaLvKa kqnp7EmBZ3kL+/2f8xBBl4e8mtaz+LDTYEPbRzZSULrfj/vDNKaKamhZK3GT 6gzxJyu2zaivlCiWu85DxYYXHnz/s4A36QeoXF9ZiZh4zGl+5WT4HW7CdzFv FTPMQ45dudwDx0QnbD6UrmK4s0/am03lSOcf2tr/nIm849x6K7KwGfd3TnPd us9AOM+hs9S3PJhenj/qjszEWs7b/BKFAiX3F8vXJDjIw99VGtJbF6CaT76b l8JD6L7eY98tXYkRllPJs14chDb3Ct+tLXN4e1ueVpkUOzm/1GTO/GEBOeU7 z2umMxMGat87p52zeGw/41gvHQsxTfV72Ds2D/SG/NeOta9hwB+Hx1whtcAl OZuQ6r+CobfszlyV+Alzxo6vr0iyEw3fiolvh2tAO+zB7fuX6ck43Y17/oeb 4OyN07H6EXzkteaPW8cf1mJkSMO7QGE+Eh/htCCT3I25j39L34lhI61+PMtT r0sBDv0V9+tjJNdfS8LVC31onPVp6D9DVsJ26uHwhcZW5D61J/tNPhPZ9MPv pRcdFQ+8XfoU3sVOJHsq3WujB3HHAxpea0V20qmju5id1QkGbBf2ZgXTkxUT hawj2n/RJ1Yuk8WTgWRFu8h4Wo/CFhF3TfEMDlIcHxf44OgIlgdc+OLWz0Ok lw4/6p9uA1PZjPInNFykUW94zl9pEnSdq41+8nMRt3hvb6aPVbjkX/O8opuZ UI7ecTnuOI2a3OKmL46zk2sJt6dUM9vh1I6MbpVmFnLS9G1i4a8JyDp5Zfuz v4xk39+QDyz5s9CVuMeM7yozmR7pURxhHYP4E4v1R4xZyMD1tFTFzGnsan9e JGXGRbJHX4NF4zK+v+l8gXknL3FstLQSXegB+lecA9I/2cjpndbvZu1XUChN vb7dhZ0YddacoITM4/whkbpCRk7igKTu2qFyvKV2OVPWVYB4MLfvS64uheYZ UHvxipfkvo3yyjRFkARilyjAS4h/QfbhOSosxsRm2B/lJLeOb9/FkzqAsVX0 NH+O8BDK5jN/g1K6wbg1PiNijIn8lHshL3SjEcr4S3p613m6m6/8RtfRKZz6 qNgSwsFM2MdKBpJMaZQf0pBzVRrrecoX+e5z3DT6ZMK+96vsRJS2WHHmeA9+ 9y8IfunNQ+pKN34ReFIDu+O9/1H5eUhS7JScqEYb2C70ctxFRlJ0d2Ojo9Io fN68MaQuft3/lSyEz0tNwLacT2yc5jwkZNjENKc7H/eYJ/xOEGUj/LnrorNh DPJf1LhZfaEnlvkBtb9uDoNM9x+XYmlWEqpq7EuRGoSr5rYHI6q4SP6eJOOc m9PAWTc6GB7LTvaf9Spu42tGFspckdcjPmJf8aT9TcgIHs2HdD5FNnJ9/DLb wfEZMD/Z8MgV6UjDo4wzlZMUEHXrfW5tyUWCuv2kOk7MoWkRzxFc52OnnZc+ 9NMOQWboiRclZ/kIkaRP0q4YwMbjoq4VJnQEY2iGhP9VYfCPEi7rg5zktJL3 0tHaNezhyojMXWUm5WXDu1WN5kCgIUZmvTtIpgH7dnW2Wnz/fDWl1nYDsY36 /TUwvwZu8taa8yuwkL1GcVs/dvWCy5WcLUWaHCTpyXtmuYo2EA87JPluHy1J Y7h2f0ZiCG4lrg6dXvdfC+VN90z6enBkg7/K4XXuFs070WP3rhwkha4fFF/n z2gD2+An1lMwK/VB6FoQK8krY/4jmtOCUVFv+jTX+VIwtsbs0Pr9lQv6tn0T 4CaHx0+tLV/twjhF2VNtKpzEcXlySsTsH9oHNktfe89CeEUW9+x+OgT8uT0a Xl7cZNZzS/2vMCrAndH42mFuUkYJS6ndMYyxFTv/i1v3b/PKDPO+qxPgNW9g 995WgJh3yPm8razBPF3L4f0PuYgV9fj3Z+l9YFZdKMmVwU2u1H484X5uFvxj 3GPPaNKR3THm4W8Mh4HfqEF4TxoDmfOQ0+Uz7YKCOP5jadVsROa4XqlLYTNc ShM74GXJSzrYP/O5p/aBlHl25PAQA2GMV7F1Wx3CT2Gn+fZ4zSC73nx6ya4i NFNzDzXhYyCmb/ze677eoMz0ovl9VQE9MauY5M7LXIVQIZ7i9i/cZIF58WyC dRWwf9SlM9aiJywcUve1/AZgWWVEyrqfnkw0HvJRWp3EshzmXq2LLERMOzDq zq0mGI/Zc53/PStJ/Py3/mzEBIg88NvSZMJAVtd0GbrP1YJ70ue8Oz6sRE6f miMd1wfKXI9WG66xkaAMjji72E6cWPI+TtvBTt4cU/r3LaENGR8rOZ9sYiFZ 9TmhW883gNb18tKoQ8zk9h6bB6f3TmP23r8Q1sZOtht4uuvT1uG5g9aaF+L4 CTOtSkGQXy1oWmQzW8rxk9N6qd9xyxjWFp08QZXlJt8obQt9d2bhaAszq9JH biJwMFr/u8Q8zIz31oYeoCc/FVcMPoR1oWn0pURGAWZi+ZSS/k14AF4f5tvg f4ibnLPBuCPaubAlxzcweH1+mL7t23nuzSD21LR61y6zklf+skJMspNwI883 W+IEA6nvOtR2+PE0MA2et/9zhpa0Tb2z+HxwGfbuNOuuOMlOIvdX+tqo9kH8 Y/6S9DpW0nFKV03mzAjy3woI1MqmJXs/3c34GDyCNbHyVaSBm5x/0lC7+rQJ guS99+Tu4iMHDecNn9JP4msdbjD24CYc0hLXVZ8NofM2BYbkR7wkTKdd4kvU FJhSd5G3vznJS9Gzw4Hr+XR6A9UwdHQB+U8XldxUTYT3mt1S2RdYSbfRzKZt Cb2w/dUrR82TjCTRabte2fIE6Of1HFjh5iRrpQaWJlPf0bnQ5Mnv87TkNqPQ n2CfaVD5OBQu1MpKvvWdYKavaQCuoLGkY/x8xGRHrDfe74SyMPmjFiYsJPzx ppgbu7tAOvTIgZ/PuMnyyIbMf1sngHfwvXOaBi8pqt5QE+DeD4wcznxRB+kI ranNrtvUXnz7gpG6Q5eWtEjYm2uvDoO6kX6VzD1ecsDw6YLGQSoq3LkxomjF RTSk/9Bp0I/C0YbZzOz1vEmeVzwYuLkP3rdIaSrf5yHsw3w5VIcOUPM245sf YCOd43d2W1lFgnXj62OVH7hI91c2385XnbA2wRqfX8VLnLi9NsU4f1jnWeup 0F4uomifftkvfhHd9z0Wy33ETlg3BtmLn6rD2X3Rlx5eXkSKuE2M1tdOdPoz qJ+ax0amP9IHejcPYmTE3Xkxy3U+m5QeXAxvhbb8L+9DcnnIpMcv1fsuoyB8 O3VL87pvtf1smXQanoO3F8vNi4SomLKnfJc1fyrwCBKJZnEeMtxF5Ut62Y+/ 5IctjhkykZs3fC57q7aihk3DFuWJ9fyrnZink59CluBoW64sDtL0yi/xd3oF sn1q5BoT5CWlbZ0b/+iWQ+PWoMu7zzCS2OwtaNA1ij5ZlpZ8hevPt1Q17qTR hiV0D08UHOAm9AMyz76va2oQfRdfthAnefbvRhlVcBHLAs6I5DetoUFpeimd Qiu4Gq0kZbtwkceS7i+7UwYhMkNasSKLj0yfOZtn7daCSt1NMedX2Mhc2Oa2 3w7j8PHV8yj1/WykbGukweuAHpjVtEj7PMZK9HoUhMoNZ+B76NdGjQ+0RL3M qXbKkwo6fy/d3TfKQob051q3kWZkcFBtpTbSE0kBbnb24El4p8ClFt/KQP4I S16utB7HCp0yTikxPiKVpMocrdQEkbGvZFl7OEg+h1ykisc0hGyOPXt7CwPZ yXPir1hgHxS86Z8uP8dJfGg0ydeQCfi9RUOetYuOjN390vefbSOc/uvOqXiH iTy80Lzza38fsp0vgw8VNORnz4USL9d+pOxVesy0k5GsZd0wDjRcgap78pmb E9lJ2q2Tx132DeJL+8ePsyJ5ybnmBoXy7mq8tuHsC0EGBqL9Jnwo9vgIrjl5 n+Vf4iL2JoJj6tUUfEOnN/jlKReJOxW189nOafyztGmYg5WTeOQt7btyYxDs YmqufFRjJFHjdo/kdnVC8bvPMuW9bGS/x9aMvbenwIPzsdgfbibCKGMhd/n3 IB5L2WlDT2UnYJjpNcQ6gM8nfXlOH+MlvTLR9cq88TBr7jt0vZ6eiPVUiLI4 r4G+rmFkEB0X8WT3LTy3sQhepjHzFvGt85yYZDRvdg+yiSnl0JkyE9Gy++q2 fONQW7u/niWSnfjRsjfwuw6gT1l1YbkOGxHlf2NyM7USFH//PfFNipWodu8P 9BQk8GoPqU/RZiTqtr5q3IZDaK/uc/SKOB+Z8K+gy2lrx/YbNwVGJ+mJaZS7 NP+fdqiV690meo2RlJXpXRxaouKuTeEfPdd9xaw9JF+zKB8n+qqs5PNpyTOu UpdjqmEg+7Y4xjSTk6j37T+bNTIClVunb5WZ5AP1xSo9c8Q0RDswlGeqpCJf fFn/8YD19b9ycO7o8hQkJO9+aBDQiW1bq18JnvuFRoNSOsGP+2GNN0b/+pk6 FNzSZGpXGAOU8oc3BwdL0ELp4A/1vB6wk3XCTcKPwCTRoOaMeC/EHBfSkT01 g6nh8gqvF/qBYS/tA0m2fvD1sZE66TgJkdpcCU7rfVp0/J54r+MspkYK5R0y LgJmc/2x/2Z/Q5zLpUWHhLfw+sgH02v/hYHQ1qzHjky0xPlmAs/bzUUgv9fG riKhD+FckmHuf2MQs9etYVtBL5zqoN18XHwI7DKidpdnt4Ju0cvYdo1J5Cwy /Gp9mgJ9r8+rTYd2AZOGA/UAmcMxEav4D9wTWNv2pnwXbw1uOhn8jtLfC2yB FhlFnrnw9cqlJk2ZQlyTYv+T2JqDIuNhryws6vGwxsUVlrp/OCXdzaz27yuM vbhV/XznEKaZntkve6ALtEZ7wjVCKejToveqcLET0m4E7ykxaIRJkQgRnYAW nK+m11ktouKKxO49jo5UYJ9S4P3J0w+NdiY+n4TbcIhHp1Rwsg1cFnOaUm2+ Q3VJHeu9sj7Ib6xU6OrNgy/vneha5yfR1vEA514eKvCqljx6HN2JHqy79eWv DcHO7tKHiwYDoPRM8Kfxq7/4p78tIa9/BOafqV3ZwdQMawUeti5PxkD+ofuj xqUFeHIvLGSP7SDeYxVnVmCMRpEgFVqXoi4YNjokkGm1QVnJvoV5Xm4Iz0nO iL5/NwEvzLt0Bnr74dKg0+H22gJ4sX81N9LvC34QEf5rvqUHB+9VDaq/KEOR w9GLcQPx2COW3xJ9vBNuKpi4VklVY4bbtfi13+kw3Shls7x3EWq1pA2sbYeQ r/wZI5X7KfxMOlCcFjuOIBageseyCSCkTN4rfhYnRdg566+OYizXps0MZSmg EXUk6xPpBKvnU4+stgyi59w7x0td0+h67G/lM7dpeMySsvO/mxHwo7PiXbTT AJyl3/jJeXkAo2eWF9hYpvC7TbbFRjKOzjvavnMJz6MvvdqvTs10bMIrLi9H pjDhCy3D48UuTOwfFShxWfdwnuta6TeHYG/TZcEtJsPIvkW9kE+0EP+Uxk3+ rpiBNBd6r+OnRrB6aL7si+IUWrE5GIp5r2ANr7Djr4TvOJ7lRuO5VIGfpFgv /A5fxvGuCLodWhmoI1oqa8U7DnP7ArjVZlfgfXCTTWtfAYbHmo0F/f4LlWFJ GxJrIqDWu/WsXs8S1CXmsPYHT+FsasAF7en1etv18PDZ7BE8ws0AwQMdSG97 XWg4vgiGMzclH40aRX3+KIZDHiP4vu8Dq+L5cBT9wpyiltmKLHKvnwQ6DuLd I9//XAkfBOZQ743ROzugd+3bVcPSZqTfbneZk5cKhyOE7ofND2JjeILKyyIK vFVzq3V/v4JR0vdXk41bUPCiGLeexA9MyLHUVSmoxKdft72Wfl+KUhMFF3TG xiDL2qDGwX4YwpI0WrQv/sOlSDbODysE73hdjm9+TkUNMY5RNo86XBanV71z IAU9/Dfz/4yoQckf4468MUVI/0aFxtx0BM43FZXf14hC2tjddu1b65F6Tz6B nmEGXJqbRMLV/mHZqxP5e0PH8Em1W0SJcitkUkx4HAonoG7Pv62VrO0YwL6T p7+RClzmoQmRBmPI02fUGiND0Mna7d6hBwSYtTi2itbOYVlewl3RsCbI+dmg ra82ip7TBXGqywvQ9CTdT29bNRgdNFghLW3I/WIttyq1BmP30ddWjQyh3J2S qBthcXA62ZTbRLMPJXSqpnftGcELp8iWt9yroEkbMmqXPwbF//23oD/aD4+0 qgd9u4cwVF7LTHV+CA2yKDmxh0dAjf5SZ/f8BmU9/yi9ujPZcOpuQmGt+wzK Ll87riVWjeKtOjnzicPwedLQvMJwEop20x+r+DqFreqPpz8wtsN4nLeHTHoX 5CRz7rjBXYlHLDefPHCuCDm/z/RV+EyAo1/36cYnUyirUrZPPGX9uv3ue5kq +vEHYzJjBm0lxsy7xXwLmYU09WSBu759aJzYsmZs3AnXZgSyRk/P4xZTm48s EnUofov3+xPNMWQ8yKtob/kJr71t7XRhHIfg7yNLOhp/QeJBVVLyTBuW3y1h EvvYDU78DjVMEfUw4lgadi+8B5N0HJ46/J4A8TjOshatfJibPE7NPbOIafID wklP+5D9q1/itPoEfLUwOetY+Qz2q27LoiuZgGVWZ/8uiWqQ9c72fVFGwYnH LAYJVZ2wzyf1v553UWhxzUHkgsccnnJ/mjKm1Id1R5LD42xnoDYr29qevQvz Wmf3VueNQtmy2c27QQtQtTzj4b/SilvbwfBh0TLeN0v2L3NawV7KxbuBL+vB Al6UnbzUg8Ph1x/21nWhxIOVVf6OSpR+XPHmTtIwBOq39nuJ/8Nmm5dHZ4ao 0HndjqG5ogmt00oKaQMX8BGbuLE13xR6f9K9cSOPipm6HxiPlU+DdWTV2CYu CuY86GPNxd9g1WrLv+PcFBrt0DyyM34In+/ddsDGqwFGP2+iJJQXguX+oiRf ids4IvfvtnZAGKTIiW75yjSDgh5hN3+LpmKqwQ69Rdbu9fzlvpZUQ8W7k7+2 PbzXjZrStltZVqbw7HXnSLEnH0BBx05viHY9J7/W67zxbMN3GxRna880QmyC 5yGdiU7Aoci6M4LleE8v+er7lTkQTbyi+18oFXdLZjey8PSBpvdj+zjeftxX 1SFzqjgDJHuSOVOOjsBHel+xKKkuVFnxfD+uO4F7BTY+V82pgh/7KxvZ/EfQ v//mDNW+FEbeaSwOLI6CXt7f/jm5TlTN+MM2Zvcdlp/e9+pLHkR5BjZ+NfY+ dM/QTXPvHIJvCiM7RH5kAj+amEebUlH782VbfZUuyPxGF/X/7zNLNfKDfRvr 0CP8pNwn9TGc8X73IDxoBol8kZi9JBUiWW+d+9hciuNveH1+z7fi24itPxWp 0xjadOnzsf5OcGcV0LHDYpTemCb7W7kSVpcbKZuy1nMn/cMQX243nh+Zrrh8 exwYRR56qkoOwJ0Ep1z6d2vA2r5jJVOuAr+Oxz1W/tiJT1wTth1iKwdxieTG O5smILmfMtC3SsEbh4B5z0IzaF499fAw0wiK3Ymxt9laim1mh+LszizA9y+z Mx+ul+GziYudTDX5aKvaKFJXsYB1H4tTZPdXo3XTTBYrExWVnYJ4Mv/14fUt 8sWv3atw+9c9FfKnRvFi5EmTTpk8YNQU76A3mAMroZUakw3zKHrsbgnDi1q0 qFnsjFDuxb43R4U/9dEQ/CcRBqpdcJsx5JvM7ATOOuTzage3wT8DdqMoh0Kg 3Pe4dH0Aca9CzozaSDqkKb4IGqwbxcznpd6a8W2okxL6oezHNE7bBlr6mUVg YETBvJ/WLAjcu1Ss8H0cQ2RHW67K1EF9/tNTx0UbwSfkTfM40yje2JnC4toz hzb0SV8GFspRyDV/V1nIEuoY3lSY7kbUzKcM5nXO4ONOq1tB4lTwqNF4k/Ce iuZqdn/i+4bwvlRn/HPrBfzsaJbF6dEFZyZGhKyOzwBIU67/WJnG7ylDl8+w jUJGrcWuEvYCfBmbllPwi4IXrKcsD65z7KjA1F3FCCpuO3Q4wML5H2hd2Lvc fnocxRv5PFYEs/D4LwbNIy4dkMk3v1S9YxbStxnQ/RwrxYIxFqHQjW1go4FR xQFTeJcnd1rmSjc6cxvpM9RSkZ7ZIGuurQDEth3bd/7jBPRkSzM1VA3De4bZ 4bftdXD7X1q4WWML7GYKNquzn0Llyn/BJxUaoDlpU4ZI8wTIBnrMjzdWgfD3 jcpTYe2w/YapnYBrHwrP0MZd2N4BXy5XbJ36bxopb5imd/Q1gdz9fcuWT+bR oEVMZGG5H1gLAzofvF4GzvZasYIdv0EuwFBz+6M6+EtpmnlhNofORQpaPneX 0MbqbU+VZx2kSEsvF0oPwuiAQfX9zhFM2zbKYn6uB84tz2Ryho7A5a8xTpa7 XeGd8a8dEic7oPNsnx/P53746pDwuPhRJ+paL1/b9r4GfsZ9Obqc2wVhw3uf bg6/hw6rIll2RcNgMPeMMZp7A+H5fKRtfjkTDkdfC3BRLoSfbPKhzwdGcOeU /KbEylpcPuNS9o2OiswfhRdEPq2g7kFjtoU7ypjw/m9PtkId2quM5k9v6YOy gNONkSea1t8Dmb/oz+HZ6sfE8xfC7iFZi/bznYjC1bXTE+2YazHWotLUgVpn 3ksFfk5DR08jny8qk/jpdsfuJa4piHr9xUK4eBzvc2+si+D7jnpJh9pulnVj o7nggZ8mFBxUaPjt2zcC+lYfbCtMPbHrtAZ92sMm7PzGoJ8WOAiOdnsumTP0 4Kftj1WXOPNAaGXu9+noHjjzJzNjlZkCjemsT15/G8DWil1PeP/rRcGvbOlC ynUQcutHL99mKqiHF9saVZYA5xh3GE/iOD4+p0cfqDWGvy4/swx6P4HtLTKG Svq9IBz/dsfxH1Xgfss02GNpCEpOn8kJFqGg9n4Xeob1nErg2p4605GPNhpm zMFmk5ByMX/5RcI4Tnd5iCWXjsInuSCBXev9ODR4IF4zPgWyjS1nupNycaXe cM7bbRYY931j6b0xDQfGMz4OYS48xm2zF1fHwYo1vSU5fRQYlbn9Xy5VguhF /42X3HqwSs3oiI3PBCrodalwGPbD+FrHmZC0OTBwLF/dvisZ/Q7L8dwYboTs zorV0IZ+OOyxbHXAgYqiWVpn6wKaYZBIdiaIhIJfhaehKd0U3JXzTnJlmcWf wlYdY9EJcIo/etoUlwC7LhRceb5eFydlux69+ocePJ8uHE4thNiBE+1JwRTk nX3mJJExDXSflwRFfdsxi2fuh7BdFzwsCkiwKJuGmw3XhAbHmlHiywPaDrco TKDvuHJ3yzAUvWE60veqDC93FNAkBwwAXQnDt7eMk9jrWxUbvZ0K5bQm/7Qz 2qDLp2aP7o5+ENy8Oenq0yGoutbo+/3rCrxN/HfL91wZMPtwz0sHzMNmteta NLtbcI1lVdtWYN0z7rmJV6Yng8DnmyGpT9fzP65D2VBpHvPFberY3vTh99La JxvmW2CCQfu/tMcTGOCVU/KpawgvWYccFK6gwrP83bnGo/V459yXE1+cx2Dr cwVFh7wGEElY7M66341npE9PMByowq6zU2953rXgjpPHSjMc+zDw4c/k+1lT UCqYxi7TUI+6EtpPhQ4t4QET+yP0byYg+odHWYdAP0ipaNX9ih7Cr8c/rOht 6gHVytFM86u/4IfJ3JA2/wzGhcs8FoARlFDJ2KtSMAOM7J7lr+73IO1Z45gG 3jUMFRqu7nIawrvbLHh4viUAA3XjkTLGGWTNnP11afu6d/6LVt5xdINyEStT oeSGEuCuKGQIudYDP54JXxt5+geDwlnKnnT1guEz4csWIR/wMv1FnznHaTBI vGvIXD4J1gWaw7SeKSDyRnp/DP84hlX5lKpdX0T9STNp3Y+1IPmMb/rAlnwQ P3vqX3lqH5748d6vNnEC3xChS5myQ8CoUdej0FyJPWv3EiU3TkBOruuSqHU6 JiTSB10RGYUx9Vs/c9ZGQVX5uLeOwATEyiz2i3G0w5/yiO2viinr5x/UXKJU wk7DaNPnPev13t729sGLNPxy78eMUVMPPLovfiKcrxjyKL8fXuH/DZdcnDSK 9obg96yOoKQjr/CmZYfF54fd+PpgwqCw5Rh8etho3fp5ALM2+nCmpk0BeMrQ HQlsh+q2D3Lye+ZBoeJzPbGfATm7JxaudtUg5U/cmh3zwEThcPemnFaoJW72 mvp/obCKqhB0rQ1UH7VqNaz3p4r4aH2kTSO0U80NnS0W0KeVre7c/r/4Yc0h O8a0BysH1gqvl9agq82F5bBKCloqfvghf24RP+oeplxyL4con6+fjhssoJy0 cKVrejsuqW//cOv1JLyY1Xy/3hRot9+YW6y5B21kdfRmOqexonZiyyvfTlCs t4t6UNKN7n5H2BSXRkBlSt5CeGkOwodkz45UtsGKh6VaAU0lmrilGKopdqD3 3xf2mnmDoBOmn/xj3zgWbXvQqLmwADR8+yQHD1PgTeyR7XxvqzEgwktFxnEZ e+ueNg+KR+A1r0+rm14vo1n6yNCvMAqYOnOWrVHb0fDZP0moHoVLbjv3/Gnp g793yuuLJBYh6p2S1oETzXCn5GKRxt4hrDQTCPBNqcL2K3d18tOnIUx1scma vgfZYqo8BRMHoO2RiyXv0gRWKK89WHLqhAb2Rydn+GpxaXxK75XdMGhF7zi7 /+UMhsbHrLma9YN5PbvFly1dmGJj9/CHXzLQc270q927gDe0b8HO7evjbXC1 urpShppzlg60mdVw1rpW1kV0GJIf+NtGR/YATZTT9iv/aJS3Da0onfQtAv+s AXJtchB9bzosPHYYwc+nvftveU2gpEl5/dL3eoxKEoqLHp8A7eKWazeDO4FP b1vq1XkaZfuh1j8b76wC5fHP7CyRBpQVC76g/GIQvg1GzPMeKYKV/kJO24B+ tKSeOn/dcRhNbH7NuDKUoGhevVVzwf//b/fe2z5H4B7t4s0vD/Lgp1Lwr+NC NfBy1+1rMkeX4GITjyWfyjgMv3cxc58Zg/vSv3l0BMdhn+k+2RT+LqQWnMpy bZtHvlOjes9dKuFS15LN4XPrvmi+fJCmcxWzzajFU18GwE3h7D9+8VIwk32k P9ozAzflvHk6Ykfh45aLM91OU1Dg94w7Z3EShkYaZJNS6uGUKs+tQ1GzYNbq Vq1x1gVffjv3vuvTNJ59Xj/9My0d9lRfPBdwbxL0/JyecgRNIoVJ5knnUCf6 KrxdfGu5APtZ+EdrjBswwzjhHOOmQXysbxn91KsALe44JeUcrYT4cR8/h3/f Qdr9nP6kdBOUaVkKO/RPwxm9NYGI2HiQ4JyzD91WCLuEWhOeNi7A6rlnV8dY S2EolP/034lu6GDdYMjINw7aTSkLxwtnMNjVXlI8ZhQzrONaBDaMrHPKE7Ze +Z/A3F6nuVGvDzgET6zm1FRBIyv30h3bejRajWiOq2/CLXS7h+QLqBh79d7n ppOTINuoXXTx/AyYHgrkFeEvhxTze8btr3Lh6sbd4YX0dXBGNaHYN2QCe41n Mp7GT+OUkHif0OwQLshLNV4vS0CX4mutLpb9IBH1z1EpqR8fVu+qq5cdhiuy nS9+hU6gk0xOl5VeP9SzLK24HB9CKb1bzj97BmDOoNe/oD0a7OatMliOLAD/ h23nqeLr+295fMAP+z70cmztSMlvxPK1M9rHvHugPnBzrPbiGOpacjPpr9ez +8fj5sxSA9C+z9gzYXYZolUig0Wa21GdTtqd434O4g3/O8IPutEoIKXmydEi +NouPZXtVIC7b4W/PsicBgyVoenauxOhg2ow+rd/Ar5ZqZTpOtfhPuk9abGH V2FPJa97wuYW/DyZHVtyrAt1VmcPKb9YxoLrdWY/t/ZhbP9GLp6pSJRXphzc adcDihtS4gbicyBN4Or3JloKrngP9Wv292Fm17MjYa9yQNFEidNMdRruLfzM +e9mO4g63zh/HxfgYlBDw9OFXtjL6efnpV2PqmOxDlYevXi7g6kstm4EjPzY fzPk+2JOgbvjnV1ReEZ1X1VpWyP69BVNeB2aAt/q3xqC4Tlw2SiLv667Brw/ X55xxSmov6t7U727G3ZtU2O7F05BjQ/31Xcn9aKAoVD+O70lCPTf/tL9Sg1G 7JDSUz1EgT6966HyXnW4V+P64b1mPZjQIeHuPDkMI/uF1rm0BM7vvHQ62mcO Tjg4ezbo9+GFkNbJuNMjeMkpeU0qlIK5RRwBGdal6HEyIlomagJfpscIGbGN Q+nhE1wBYZ3YT23xmxPph6K2dAk3jgmQe89yQC9jElSeW0w01U/jPc+aq09l P0NW6ofYC7bj8CTPNiHjeBsOfVT9+9auFfu8ZK20Pq771VHqVNv4MsoJ5OL+ kb/A2eBTWNqagxGd+y+KCK2hzJaFnXF3evCafNj3Ki8aohB5xO+HWBMeEVIa vVk2hN075FZi7WmUp5NntybcrEHeu0r90UlTMM/H4jbiP4gcyQuW2SzTyHEp 7+8uuVo4t0lCY4RpEX9ce1OzOtgIJ5Tlopa3j+JltU+1Lpv6cKXKlvPb+UYo 7XB51DowASbJsfb3dgxBLYdwA+elZtg5Lf73ivQE3ON+7m12oAfgRUToVOe6 R4nVBx0VGMW9W+nPt+0vx71fqw1eWLYAnR9b/9UFKm4OV2wc1J/Ey1cSpzed sQdx3RW1k5u7wfhjaphxWhduvd+0p+NEGP6stc1g8JqEcxHcXf3pa8BsrBVm 1DSNoTHKEv8l+SOGvWnabTGK1+aaHu+3aQf/O3pLXa960K7TfV9INBVNNT90 ux8dQu7LJWnfMlvASKqV8BwugUJrLyUx52mIaLLeejW8FIcZ1P+OXB1BG02/ njunhnGMPt0e8ubw9jc7CyWdfuS62dZs5PINymaU6NK85+CKPwuzinQVvuNl nJLYsIzL4nF/2GlyISz7TU7q0U5c7lWfL5+fxXCjl65mbkmQEsKqy9y7CG3H heZreVtxhNVi6+M9lVB7PPi2lcY4RMbU2f43PIxGAjePZ6b0gujk87ud9UNI 7Qj3ylCtQlqjvl1G7u3A4Pj0zWeOSkisChqeqpxCSvuMd8tqONxkpfoVB4/A dnZT313MQ8Cx9PLlP8FujOrh6zWQnIOY34rXnPsCoPhT5FkVgwE4q7CB/vv1 HmgsFCjmzaXCOJvID/1zNVjmkyvnmDgKbZNr27uq/6Cm0/mLrlnLIKTOe7pX vRrmL2gzRMbHwOTaPpZTgbOoa8GmbaRbAnNhPb3MYh0QLawXGKFTCTN2zh0V DCPoPzNgPj08BH+5nhXL36Gg9Uep1gnJWogLvpc4XUQB+8m3eHBjJxx18hYt sJ3Bzpnu2+fCGvGQsJpZR0cnTBrO+Vhx9cC/SEMz1wUqWPClv/h24i/cSnoc JAdTID5GVppySvC52tEmN8k2qNb/YfEpvA1+XV7LLbetAYWDxtftCusxJZer ZPj4PGy3KToYKRoG0geA4UVXD1q2P95js2sUj7TeYpc+RsW/hm65boXzeP9u gHVYdS3cLimnj2mbBT5aX1HOdY/fKztholzegZ/LNK2T1/enKpb7ltHKM2hM nR5hfEdFCn3ZZl/7frjeNV2RemAep1OPVtk/rgRhQntonLEBNyarJX+1pSL/ 3+1z2potsFmSPct+cRq4wyTYVNlasTh2wIptqQYVvWj+cr34Cw3uXpTdBf1g Y0p9Tmc7AR85T/k/uJEFnFQlSbcX7Xjuckh7hvoUfFEKzKYmjiJbVuCwqm45 XN0pHLXBeh6vXDCTOn++BXM/RWlWb5zH5y8ZD3xeWcScG56zp/f1Qv7uCdp9 62b6X0L/voboDqBfvXCruXEF6DwsF63eNYLSLrt5pclxaNg+nT8mOAMSzDte rW7Lg4aNXi0zMqmwa+QiX80tKpaf9wgTjh3FLeSriXh6G9CknBY9v+7RIu8P KWZ0peBM8++ZW+rd2HzmhYc29xrkVmifFLlSCcPNHFtomabxv9wbX3Om5pC8 Dc6mcM1h1T7NHcHbKSCmFfXCjKEF27l47xf86cRK2k9ifvVVcN5itVRDMRGv X/154SrXDLB3RO3at2UAaYMPHt65aRDYm3lUxioa8fo3c+eXmuGAh8WZt56b QFe90ez78UsQZp03afOiG8WiIg+8ZKNiqGfcffP1/fqV1MezKX8m4NC9s/Jf zDvhXe9J3RTnfhAWbIGq4B4oShtonKjtAuGvpUle/dVQlUYJSjXuRt1sbfWH Jl1wfJnj79CP3/hfz7/hS7qNyHirSZFhMwUEmFllW2Jz0H+jq9iGI51AVZ+s VIunoHDOW14v13KwEhfzNBqmogmElKas+/CJW1dbv58Oxkd0DU8CTIcgyO+j 0Q7DcTz3cuq6x1Qn/FcZI9Xi1oeqsxX19RN9uGrIqqi2owckXrW0h1sP4F2+ h0/Pj83jF85NW1lPhKD13JvGgdZxCOFdUrG16oWbm6uSJ3xr8FHxo4wranHo u6c0Sme1F2Ud/6SVWtQgbNzs4dBBhdod+gV20r9QZMiwRejEJNo1bmW+MrqM HFviZEf6KRj6dzUrfP47zDUPPHwWsIhvVTd2eV77B/81b/usdr8ZNJxOjg+e boDLDiX0dY6jKCusCPH362F159ZQFuZe5BFkUpKUeo8SXe8jlVw7oCvsbdpM CrMy5wmdqMtBf9HEMlTwTh6jcnDm1KYDq/3wlUmupcuNSZmBreRo+Prz1N13 /BeXzqwsnWeZwf+9Bp+lqT+t28Wh7JOS1PLz4xRQ9H5N2ZgxKnOFmYjmdPav 8/+ox0MtbuWgEwMOH6oncVJy384HBezKA6duiCl2V4Hg3U3Xb82wKg+caRa/ IjeAspEemhOu3MrN74sXea37MSzpygvZVzzKQz/GHtonD+BTUUH1chpm5WDq PvPymTkczvIeGH7Ko+ywZzjxs0QxvNtMZ+8+xKHczs0QpDkTjQGXaa9estig vON9o3jJOr/oXfySnn2FRTniBSV4lGkFg9Omo16f5VYu1XjCLinegXS1Lyw/ PWdT1r58UHKcaQIWi+eKCnn5lPcIv9y63b0bQ8ob5e4bMSubRvhHi/v0QoBY 52TeDQ7lKyLcWRsn5kBbcvVP/Cqvcr4Eq+60UCt4j3c/c5GkV16UM7u1y6EG HgV26J2U41Guux/sr/ZyCi8cqHx2pptReWSR0wm5+iE37+F5ywlOZVda/VrP /2awI2DQbzqZTdmimNWssLQfbjFW5u8/waysW/ZpuiSuF6sdz5FGcV7lr45d se7yUzCZqi/3hpVFWZpG9IZn7xSu8kiX3TtMq6y4Q8mrLngEJyreSj3ay6Nc 72Sm576UhdeumLbf+kurHD0lG8Vg1gysTh7/a7g846lgwzBunXM4g3MOESUj IQ1CodJzJw0pohCVkRXZKQ2JMhsKhUQlKVktXtsTRSKRPbL3PvYs7/l+/54P z3Xd13X/c6rWUCFMsbV709AUNrT1+rp8ggyVai4dFWdbUJZzpfJkBAGGhyRv rzwawBHqk7p1DTTodqDQODQG0PKU8Su7OH6ILHihH35hGi/Nim5r8qXC0MG2 xZmzNXhv0pGQRh4ynJa9ZbqxbRDJ0kIua13ihgnHos026T04m3xyS/lNQdCM ka82CWjBnfoawk9O8ULnweGWaL9+JLacdIjKzQt9dtFWh+MX0QeN6oi4ejpM cH3NfPN4EHe2xirncdPBQv8KU+nsMnp6ziPyHUMQOGX+jH38XYcbp9JKnIwF gDuCe/zE1xJEyP/nbbBCA3fJ4GTC9CSaa4nNK1bjA7OrReKs6nIcsCHeYK86 Df6ZFpHayMW4W7oiYFCQBsXyXx/qic9ia3EPfYkELrD7MEnYYFiGAprEO3qz eOCNoWxv+wILEXlkDZPjGFCsT8hdiuvBYhfW3y7dSgehP+vTZRIyUf3OWLNa OyLIOVTuKnRmoTu30+VVVwXBqF//Z/h5FrLMlT2YG8oPZY466p9PjmKpBOmz R8Z4ICT+47BFeTPavCeVu6tcAMg3N/5Yb92HH5T1KksTBWG6lvvHM6c/+KJn NIGTjw6Lcc3Jb2tG8FD0PKHKjx8oZL0uO0VrXM96E8fPwQd4nWDb+kYW2liQ TiwsIYP/8pR73+NlPLz7m83iAAd0kjpK7k3MYRVT36PWyjwwvZI7+PXxBFq7 dOWj2z4OSHiFeARHBtD0nkX+j8854NWvc7EnWiNQk+YfuWMOQsByWh94sqYT 1xHGZRVEuUBPVMy0RbcPUbcrtDa2cYIhLXTU27Ebb3IaUTnIJQi+f3TCCof6 8B9FfjujLjrcdlQ5Fp08inWOzqzpsueDuTGS25nWaeR7J1hFS1EAaCdeNhTG jePSK3dCLCdIkMH9rvuk4hR2PKtr+7OMCk9OKZ9fp9+AtDTDOTt7mLDAK3if eWEWkbK1S9z/CIL89otHHMJn0eotbdr9izTQ27C/4qjcJELEIZuk5nl0LKXI cUhkAEO/SDodSBC7Z3BRjs2DFtmv8nh20+Gm4G39Ca1F7Ln5SNTLM2z/rT92 ldNnES+and+oriYA3wUdpBePjaDAkyfqLMoI8HlYTqR1yyjqdgrJbcsQgpuu A73pZgPIwETvwYFDdNi5a2ZW0q0H89IebYzy5YP6xJ53KuWjiFcqqna6hg5d EtbvG8904MBP4tWGXjT4+yO1uLbpAxZPU81j2RBhlwKBJz+jDqm95yozOUWF q8qNSRpLpTiJqmN+dQ0dBv4RIiZ39uCUg22Tpz0EwHZp4t5k4Cy22iz7eNMI N+y4QWxQ2JqDfIZAy0efCyxUJ6iy5FIkamzllOhDg6EYzYFDu4vQ0gGCDf0e DY563jRoLl9A04zosO5RDjjPG7xgMxKLNmaJ37s6x4Q5OU9bHqkq/GzT+6we Pj7YPnO2HB34je6qFOZ/G+CCbalPmGEBEzg/qXtshzANUmMdNxPRMlIdvfLn 124irBcJ1qD7sTCjaIioRWdA/MutTcmFUzi5mVPi/jMGfOU21H/W3IOejTx6 ZDBMgSETbCWzdxEXHOrz6DIWhHc2KUejNCbR/XHnO/bHucHPY4UoVtmDwE0q zlSFBms23Cnc0jWPT938IuF3UBBSrm3WuLdjCp351ESplqEButLk5myaiZ+N eB5k5vOA74vqp5XGH1CVGiH2ZYIg8KyeIGvxdOForYp7zhb8gM5/GzYtakQ7 QkJdT5+mgYRYUO+LrCWUcdK5RCFACG4tdp4ZONaMnSzJCitiXPDX3bfg4eMC xNmzJMWZIwy/q0pMv6kXo/D3MefHSQIgZPOoUbRlEGV8vZi9YQ8BJlb0WB7y w/jFVk0l9+cMOPxX/FSy9gyOW+5WOPmZDs97o47PrR3Ea7Sp+Zm5vDAnL36z faQNHdlf2PNCgx9uTulIZ94cRwMpTz0ik5kQUC4XQI4vQXE1UnGao1zQ5skf z/mkAD8uya8rOsEH+88b7Z2znMdTFcHiNCk6NNk+3MHzdB6/fjqks+JNAqFt oi8rz/RhYmKOncE3fgiM3zsSFZGJDoaWlQUe4oBNhQVWbfEtKGLc5nrSdipY bzN5FErtw1bFygFyoTwgdzk3rXRiGFlxHlDZ4PUPJRT6ilSONOANlqIh/34K wBqTTMfcwHEUUbfXx+YMAYhd6S93LbCws82dgBEqAby/Cl55UNaCTbcjz92v aTDTU/Vzt/wQfslhntH4fBkd6xv1ORheiL4/34MiH/1Dy2v8wt7oPsame7op p5uEYWTOSNmlNBcVXRaoCvIUAPsRIR3Fc51YfZN2kuweYSAGbyrQMGzCS83K KW1dfKDYKBrsrp+NRUQHhLjMyaD6PXT61G4Wuqgt1TK9mwH7M5Jc6fQVpFUn 1jjmKwDq9wPPPy2cxN8/GrcWE6jw7lansQG1B/s7xP+NSiGCmErL2aJfy3hO Qcxi3VoGyEChlv7lZSTWx0kW20IA6xjrWab0NNad/uYqOkaGeOGNB23vjGG1 td3e0ZbLSPGRZtrsxlos98H08Ik6AjRPSVKI3SzsmH7EV3iSDiMFRN1Pgd04 scH/npU+GY47OQjduTmNIscDwmvGKPDf5Sn1F3dmkGfXQfnfr4Sg4oaJrUFR Py4BnxBdcybggLS75qQlJO561fKqGT+83kFLTrMcRedf8DY7fKcA31FGOPHS V8wTr7Vbdy8T6q9ORXn9G0XreI9wHtDkgk8ut4ymRZcwr28kMc+BF3puTP2Z OFWP9n+6RO+tFYCplXMcmVfrsUeWl843QToYo56UjXHN6MwOPt85DRJsjk12 9IntQjLB6w5VIjpYrrWrFzhVg68Xtuyfv8IPFpMNrzW/FqOuPXwNeptIcCwx ScZefxqF56w+OlFCgiR7maWgllY0pH5GINKHF2zVnONM638i2Wnm3ZW/3PAK 56WPfuxFV/MDPklJcINh6Wgy4q/DacK3Bgz2kmEoU7R8VmwV42a7BB9eOsTK rzlzrqgO0UtN2uNHhWB1QXe29WE++ubiZf8ikggG0loOH7nacftywodLpdwQ 9CKn18G+C91+GFF3VG4Vjf0my2jotaDI1qYU4/1MUBqK3Lh/fyPeU3ns1d0I XjiVtLNQ/C3Hl/7ox5/ydcnAn+23SMmfw1Fiv47lXplEnvmX35049B8K212t 8t6RAZ8CW6PD5gfQKRnhro1ruCFZTSIOtTZgp9Pb7JozyBD5qZcAf8exocl9 1ZEDPMDc7nXehlqDy54aVLy4Q4ZspeXtUokLqP2lnaORzgq6gY957KvowPUF EiK/OsngOdz2rtxjGNV+ncMajpyga5H1RoQ+gk3D4qvDhBhAylGqu3K7GIum rk17ELGKbDvfXHhh34MSvNrz9DdTYMYkw+SW+SRO1svzDy1ZQIKiFF4l/zr8 1stMOK+TDte1Awou+Taguy7Wd5uUaAB1o6pT3kV4oaRli4ozAwYLr5Q6TjRj ffmas1vYeSsd6qklRA3FedwRJtucaFBKWSakGXzDVyX1pj/85IfJLDWCjnov asm+YBy7lgcCD1u+3PKzEr95Bm48p/jAtEDh1EhgHuK24+fOP8IN3tqqsT0x LJwqEhOW5EkCk7ej/jHeffgZa7r0hAFbL1OGW9tUPn5v+PnFlDgNWnr6bE17 HfFpoaWEiFYeCBBuq6iZn0HbcoQumvtTIUDSItD+1DQyyVuxs01ZRta4rThO pAMl00MOuHdygfshyScBtxKxQtItzSkNAjiu6RxVN/6OCU4XmC11FLCUEBmN efsPXaWEljexeelSC1xKbKjECWpCkYtAg2fH7ONelDUgsbMca7qPkGGF+DEp 2HsFyxS4XHE+y4BfKqLanOlzaLkbmtUN+OHfY7/rOz/8Qwc9m45sYvv9+j7R 4FStbuTT9zQq4x4P6Coh1dCOFRzWdrHMSEMQ3sfMJriI3EBfyiPJNgZMuP9n UK2M1Ykf+QRfPrSfBA8/Xx+VkarBr6PjUqwmGLClb5voV7VJ5P4kNGQ4iw7b XZfNtBYm8CMPuQ25C2Q4x9KLkD7ejoKjyzfZnyWCngop2+FvLerNW+mqVaTD rriK7FCVRdTqoara1kCHQzmdp3w95pB1rKuL0Ud+sJE7oe11fRbjp9EqMQ/Z +eL45JlBbDt28+T7UpNHBxfPdy8alDjh+1P1XxtsqaDzI2ufqNkC0gxyuaOl RAAvJRg7E5KNgl4ctu7jY+e772PToj+NqMk5Om1Eiw9s0zaTONZ+wVLa2Ze8 FZkg/stC/+nOcUTxDfCoMiQA/aH+/Lu/9YiHZ39P6AkBqEa8zXg0F21K7Vi+ KsEJgWo/7BKvdaP7+QuLZ3gY4LGSskYnvguPzzY0bxOnQAm14L2hdAd6LnBh eSabH9Q/+UmYz82iYAuJ3W3H6FCaFtMx6jSMGS6KQ1FNArCc9Clqq2gZorvs U6fy8kGtr2u7b+04rjUbVZRcooJCarNV2A52n1x8V+jF5tfBm8qZO/QqUFX+ H1kLFx7IVPqoraY7iQb3hpyZPUKHHZFyF4eZnUgn8tX4liEqHCyQ2HjMhYWq pvp37JwmQm1e44VDDrNo5p6J8h4iHdTWF6py5rD9b5L4fHKOAR3a4q3t7pMo cdOzPUtXOGGf2c8f/DHdqNfJpdeVyQRiuHpDuUY/1tW5+74thA9OD+n7+Yqv oKjqEuMQFQYMpCeSvd3m0PbVllQhZUHQjurmDiDVIjv1e5Jl5QSwpd+/faF5 FntsEq05SCdDysp27erNy1gh43dzEP8S6lv39h6LXo+vPNefkWmkQNqiCGX/ kUIUEHieU7GIDp76Zs1+D6axc3ap7yiBC1S0xJy4GH1YdSNsivhJgfvdUioX GkvRjfnHQfWDbB4epf8evzSG/106VjopzoC/LhLr9d1mkXvqVx5jwl9E2OtR V5f+Bd/Z3m/GHUEHVOrLR4QO/Lc8/raTKBM60y27GifHkfQgSyuZiw4yb8LH P5+cQ0WmZRdE99OgoFyAaVacha5uG2FaDtHhVjqpO5Ktx7w80ffkNgb8t+/S CfL3AbyFFbZrjyod5upu578XbUQC/MqTSm8JoFutKqeVkIWHTSs8p7goYIHL 129f9wZpRfNXureTodR3UF/iaifyVLLTakvlg7Wgb1X/cx5X7nxUoqFCAb17 xbsuW3fgaVcxYgmbl9f4yuU/9XuD+S+e/vvhLTcc4+UjZY0MIo4/Gv3ZaTTw kdNVM785hqxr3X0NoihgtFZCx4nNrzQbgR22yjRQ8U+aq1Kaxavrf6zhvUWF R1cPqb2TbMD79Z39qtPI8LN+9doHjxm0lLxtWtmOAANP8w/87WhBnJW8t9zJ RPhPcrsCCPWjfWZ37uux80N65+eQoPvTqOgmZ1jnOwGo0TRXLa4cxj8CHose TuAGLoK/8qOhAbwruP7VDyYDysJF/guLK0fbB4jBc3ZcEDd/3NjQohFl8ZSL 9MgtIuLG4prv3FkoMown3Ho3Bf5FVsy8fTiCXs2qFM1t5oVFp7SWG+R5xFMa v+2hPQMYXafJzZ09OHC6LnU+kA5k6fr6qe4uzImCZpvOCUGw+YBB0tZafOQa sp9ZEQIp8acFF5P/YBP+qkT8nh/6JO1UGrKWUV885Ryrk81zsRZHPrfWolKC jazrFLtv/hXv4az4gmUqbqU+mCGAq7FD8nqbTuR93jdqYpobRp3uij/wqkaK Iof6l2vY90/xd3fndW2oPbG92jedBOoF5q57iSx06XTIPxRHgt1D9K2x83X4 zOeZjReaKBAqlOAvIVuFo4vCxi/WCMK+HWV5Cvo92MP7eYnSSwFYkbgd4O/0 G2PVg7BLgwLJe9z+dqt1ojinwPz+FSrsk9ZmFcRP4L28h72sdElQdbRWYe07 jFl8/m5cVnxgnZZhovC1Bl2zb7GyZvepmq244cDLWXRzyODTbxIBfsr/2i2z dQDpMUneI0f5QFSC9P5lfgM+vsbcsXBaCPZX21b9J1yFiR/9jNRC2P3U6bDX TKQfkYhaVR7evHDn5ebzjTpzmNfovzf8KwSI0AgSNX4+hzvCGoNrxITgbaVz g8H4KL46rzccvYsASfLzY65DPThBWV7guyubL0IV309sy0Dlmc6v7qtRINZF 66W1ZSN2K8/wExahwLvacHGlyGVc0xZzu+sJEz5zanxeSR/Bdg0JkLmTAjg2 omfsEAv34qQsaQMC5Et/ucD5YBYfbySXlbD/Z/+JSaXVS+HoIStd4Fs1Geyr g7zShkrxdGhzrfdhKlRdHjnyZPs43pttLn00kQaG36NFTu4cYPttrd0bcSZM bdObPp3YiG8n+F/4SSTC2hy3GH+zCZR6XDIlU58XpG01M861VOCWreeaBVWp QFCFN66tOUjDtON7/0MiiA4qnuca7UPPd5leZpkLQtzEja7hknaUbhk9fJmb DguFX9RfCs3g0FdKP/UPUmAtQZRBqZlB8amft7Gc/6JkVlbzk4Q2NBuqYBm8 uorOPRZIoq78xPm7Prm9CKbBl7tPXtWHtKMTckyxRlluKPD/+8HAfQjR11/7 cl6SBs89kmuFywew2516g7/b6eDqOHSlPXsMo+5jK7mGVHBjPL+vwjWDWmQy gyxtabA7S7Tc2KgV/9r/KuVkJQP4/zsaj2Jq0Q9OXul5tv87u/Nkry834Bvf Xb45pvHChYdOxqVCf5AZMGZIW5lgleaXEy0zieRVf+dw72SAoQ9O0HGcR1J3 6zbXJdNgvO5l7TtyH3J5/WhqczUfxD78Z7tltBzN7fgk9kyKC7RqTBL2serR iQ8BNp3zVOD/IHMvc2gGc4wE/SzQ5gKTjgkODbUeVCMrfDP8lSBYSJQO5EyN 4zi9HoMIdh6aBaSsyt9ewdmjccJ/KUw4vfZAl/HWUVyk9Oph6i8SZGR8XCkj fsMv1h1weNsoAGH+9odORQ5hh8JYetAmBtwN3W1bFsXmpVcmz1WDBKCAv7jC dvMo1ssvis5Y4IVWN9fE3sV63J5zIPFWGgdo2PdsDTeqRZ6mipLh7H2/s/FC 41XJPmzI9TutYhsTwLX44PG8aazokPXY5iQZ4uSFn17LGcbZria+OWR+KFzi b+yW6UPzEdc88l+TYZ1SrVvK4TG88cGhYIMPAhBOmrjXz/8P/T0UU7VNgwqs gWYpbvV55PLLtdiPmwbOaV6EuWeNaPjSCvHlawZs4J6rmLJvwkOZnaUZgkJw jn7EhrJQi9ab9AaGJvJCw1iIQkxuMa53OuRaX8oBiXSrxZzvFehaZdUz7gA6 vFe8FV/MGsN1IxTup6fJYJ0e8FjZuwM/W4yINi3ihLVPYjbsvzeDK2rTfEgj vJC7PqWkdWwAq/Cej6UIkAHMGx2C3k2jOW4d/hheGtwsOlXbODiMtkkO3ruu LQSCMtcrJT0wkv78y1gjlz3/+2BE5q0ptDy++fCbekHoIT5qGor6htZfbUnh 3keBcyK2O0dYE9hx3/UdBBIDsusfLr6Wn0P2Q9ryKaGCUO5rsNXpQDOmeFwp CXxFB+90mZwncTnodI+jyp4DwnDtG/2wZe43/PFcGI9mMxVWue6FKh1tR8X3 Gp72svuwd7tG2ozRNJq6KsAUWqBC61DZXer3bswl+65KERigvJuhcc6gCUW4 Jj7QCKLCpNT6/MeHijDDslqAz40CUS4iFlwuDYhxX0JVw5cB0iNRpmMCsyhx IxddsJwHnt1y2LKJNIVyjhfiRiU+8IqxtmhQ/4gbYfrm4edUMO1rbGrzmkEn gxcsuTk4oT1e9kqQZgf6zWv5W9WUAln/6aq+DUzHP4VSJVSkySBwjMNN5fg0 ol26oST4QBDa0osco9d8xMNpROV/XILwdNK/J2JiEFX99DF/2EgGZy9592Wf RRy+dOEvx3o+uPC5RHDdYgted5bQt8zWW/fXznOzqASfM66VrFzkAcWjYbMX /fvRnz8fWp2SVxB1nXmq2ada5BN11C9JhAnWFg+85f9rQ2bfvenVQmvA9vtO K2P5Cmy90ZNknsAH21jW0uSKaXRuQMt1Uz8TQgPvlO/IxXiFUVdwYUoAmLqy c52c/Vgju7Qm6r0g7D/15uhdzT6Uc6Nojv6aBKv7bpS6fRxC/FafpO5PEeD+ S3VnhdPT+NsjqbzqJAp4vl4NKR79hAz3xMSeILPfO/CEoH65Gp++4euqTSWB d+P5U4HH2Fxa9QFO6rDnfQraRN2n0digkbf9ByqcHnQ4LsU9hQt2vTC8UkwC Gc4GvRLfRUx5pkVzJ1Hh2tS0q3P/MJq1ad1FEGLC/sVz/Foc3bhVrorV/ZQP ylUmVE+xunDPuvg4OX8yFGifGpXtW8Uf6Zpfvz3hgw9Ur9jbtFl8QOK0oo7t EuJXu7nrPakBv+44w1W6QAK+1sHHkk87sIdit9iffDpkj2e8P+w0hf1gxnU1 lgZnKZFky29T6IFRzAGrnYKQ1iwXvzLZh5WaMo8WqxGgb2L40PcN87hD0G1k 72smmF7oqzI07ceaTs87e2/QYfWRT9X5pyz8MaRFZ2YnBxh2lno1revAm/Jb U2YGmfCe53h45Wgv9v9CJHgY8kERISSvlPcrav1ldN5NlgHNn/nOZiv14t70 BaP37USQLEp6ZLqmCbX0r/SO2zBB84phuWlqN86xiUjVYOutvtn/537WDLYY b6b6crD1fLMjlju0HDHVhh4802GCSpvz+KabbH9/WVvDqysIhTIcH8I+9WPD Cmfga2TCXWrbszPHarDuwxgJcsoSGnrC3PhWJAW3ttu7/AqiQ2g918F7aBrH mElk7mXvV4n57yOjIt/wiHvd61/jJNh5+3HiXPwcEg3bU/DLfRG9dY+99urm W0yxDCwM/0YHCUzSNsqYQjLXHR2/JrF56MHl/so3C2j9BfsMFzbPWlGoXX4H S7GSzd7cLYU06Iz/vuHe2AKO53Dl3bWZCJkGEq9/uXQg7sOFcqWq7Py5TtTp HZrELUFzCUsTf5H5pNIHpet/UH2vtdrnXiboxKK+38YN+K7s3WCGJh3e7OZl nmjvRlK03qKgECIUDD9ZeeaXgcPtuDiq2nkhb0F9k/32ViR9I/f8cUSA81aP DFSjSpGyvmYtYZYfHNuz7pZuYWHSUeEyzRh+mA0pXrqtwUKcXmkZhK9MOCtp pKzul4A/yW6JPWVJAM5f6+vVvnVjsYEzQ0n3CCAe2uNQtsLO63yFtJMuNDic V89i2K+i+ak8L/teDsgLkhMUFZjCAYdtHvwsYcC/yhs2G6bb0f1xRmF6tiCs lr98aXOlCIe1GW2m8tKh+JLB2/v0KXxLeUz/tQkFEoptBSdZUyiMy4fT6S4v VL0L8aG6FuNUhfHc04gPsnWEN2yom8N87friv/x5QUwUImpCJhBHPuMmbzP7 /o06V3tXbxHvTnzTpRhJgog6183X73B8eRw3LrPdiANEDE+wJEV7sYzwd85K SwEIrHjnpsPswTxIsYFvhgSNP4qqXCNfocOTBYdccxiw0PqJUytjDs36SST3 cpHhxSW7E13hXSgqlZnLaF5BQUqp42Wv+9Hs1oAHRQ4EIN0K5HCymkT/A/P8 3S8= "]]}, { {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]], Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-5.689168512211105, 5.711273370440574}, {-2.1126005591815895`, 2.1949836355799315`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.786721601006465*^9, {3.786721913198696*^9, 3.786721936511639*^9}, 3.78672223638085*^9}, CellLabel->"Out[330]=", CellID->1854866658] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->511113564], Cell[TextData[{ Cell[BoxData[ StyleBox["MultidimensionalScaling", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " will reduce to any dimension that is no larger than the input dimension. \ Here we create data in ten-dimensional space, and visualize in three \ dimensions:" }], "Text", CellChangeTimes->{{3.786723089775133*^9, 3.786723139210719*^9}, 3.78767672699533*^9, {3.7910271391577578`*^9, 3.791027139382798*^9}}, CellID->649685796], Cell[BoxData[{ RowBox[{ RowBox[{"dim", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"num", "=", "500"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vectors", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"num", ",", "dim"}], "}"}]}], "]"}], ",", " ", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"num", ",", "dim"}], "}"}]}], "]"}], ",", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"num", ",", "dim"}], "}"}]}], "]"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.78672152332311*^9, 3.786721529081675*^9}, { 3.786721618188362*^9, 3.78672162760357*^9}, {3.786721919993059*^9, 3.786721922207905*^9}, {3.786723005441111*^9, 3.786723040130168*^9}}, CellLabel->"In[352]:=", CellID->579196996], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPointPlot3D", "[", RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"MultidimensionalScaling\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"MultidimensionalScaling\""}], ResourceFunction["MultidimensionalScaling"], BoxID -> "MultidimensionalScaling", Selectable->False], "[", RowBox[{"vectors", ",", "3"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.786723175524702*^9, 3.786723177074839*^9}}, CellLabel->"In[356]:=", CellID->1604890712], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.3315753, 0.4561011, 0.6388182], PointSize[ 0.009722222222222222], Point3DBox[CompressedData[" 1:eJwUmnc41e8fxu2WZB+OVZTKDGkovYWUpEKkop2SlayvomEnSUQqqySlyMjI ej9WJFv23nsce/v5/XX+Ouf6XJ/nfu779bqus+26le4tBjo6umZmOjrGtc9b 8nWCrw9wExf2m2nCjg3IVs5/k15+CNJZWtxF9bjJHf36XD/nMTinZaTW1dUB p68PuTCa8pPBzxasJszd0PxU/zzLhTmQUmO1jGnlI7qXp1a1BIeQy2NXsLP3 CGRlnRUKlRIkHbpxuWUJ48AQR1ddVFSJEoNqnQPvKeR8+Hr3vwlj+EiV4mt/ yQ1udY1eM9PiJQdjj3jf/dUFM3l3mG9/oYGqw06Zq6ZCJPjHxPoRKxpudkzl F02fAKmrAiP9XiIkKob5KHuKOcYwjv6O0pyDrwwZx1tlBMiW9w8c3y+U49Yf 77cqK/VBpFTAis12CpE9Iu5ww6wV4s331X0XnAQDe7eyVC4h4pm57OvuMwPi +QtfifY0PNfSpD+kzknGvtcc5i7pwgWLskOzZWUQZmKr1ZzCTt4wHZCQTqxE 34cCy3pDS1Cn+6HsqDcv+SFcsF6aVoma/7H/kQpexeN1u/gr0vmJBWfyv7/u 05h5W9/6bXs3XBe8/Cc4gJ+cMQ348SVqCALaH37ns5mDnfI7fsXlU4jgQ7lU ztYx/NrgnHHr8SyIxSnuf6AsRD71fZYoS5jDT3ezy8FzGpUkBT+xXhIkepa/ RDd9b8efSmlRiwdnkOhHlCc/pJKNx1/Ui8MABrz9EHT+cjlIrR5K+/CNj7yz c0xf2DCEr/H785N2w/h5ANWfe/GRZ/eOj85dGIOScBxiVZjErE6GkQOMfGS7 QU5LwY0W0CnaqHrCuAb7jgf9jojkJBpfZNWvT9FwLij3oVtxD/h+a0yLjaAQ c/d13eXi4zAuks/As60eOcMlrFKu85Dk5isBpmn5iA4hu0VtxzE/uyrwuRcv iYyI+jPlOgOT1e6ZOWvfczY7ahIfKkCept7j3h7ShI8PP2ve4NSBPmy2T2Wd +UlGZxefxmYamF2ffn7ydx8wUupe2UfzkKWhe7dn1HqhQMXadlvZXzxZrO6t dYqLsKQkrdtmM4YmzTuJhX4v7DnD/MKoSphc85W3lLauxKkLqSe5/EaRbSRy csmFn/SJ2Qw3SXYD3alDdhTBFoyZTZuuuc1LDjtsdYxSHcEki3XCAX3N6CDO dNtJQIBsyK/hXFwZwRyVcXEHqyY463TFQsBHmPgxnDlnwz2LMdkhLHuaGvDv s5v/eESEiI/af35vhifAMyVeUNC8GTc5v3u5YEAlJtxmkbscW/Cp3LnYY0lV eMpTUS1/PZWcTAoV/H5jBuoOzY8L/TcPDi3+qWMjPKRbnDNO/EQ9pg0MObX4 NqCUhquLmNZWYksd3mDv8g9dW4x22Ps2wWgdi/+UJy/puxXTfK2sFbqv2p1f HWpGY4POQOF0HuIVGtBcyzGB+Q/0r/S/eYA3yy6dPRJLJeva22Upb3sgcPnh 0VANPzT3ORfdI00hcbYfWLOKJ+Gqxp7KqJUFqOPQr2Ve4CNBviq/rryJhSFp tnNL5l0wb9t4LMGWSthDd8Xe4F9EpqXmbS/PNuC2Z2XGou9FiFa6o++5iRaQ n0q49U+6AWvLpKva9/OTY44CKF6Zh+6f0255ZK/1hjIaXF073z4vtoV7gsOw KhynSWvvgLvK2jqnskXI1Nl4DZ2uJhjZ1GHu7NKKkYrqIdPma7nStvo8ZT4C XQ0MiUfPrqImV52urS2FHFW0bxT1IHC6QpzVRmUGNz5iOsuvLUCqvGqvnZib AVcVxTNSD2shVS/p2LnnVMLf09IrONsPTSHuF9/cmUV3j1e7vhAekh7HOPHx ZjWsq1g6wsjZjpaHLq3PP8xHUmw1OJ0CemB5IyepV6gD/WHaa6kmTlJVNPUl WG0Gj+TxaQ+emsJn8UaPivmEyCmt6ZNdP9Ph8OsKo40H2mHMdC/PGXk+clk8 4t4VpkE4a6q9kiC2hFeyrLidvfmJ3OosV7r5AAxfphj5P17C04mvtSTTBcgZ eVHb0Cd/cPTj0fjHQpV4746jS7oFL2krV1AK1Z9CV5mES7InZmB7ltmbgnlh YqvPvK3buQjtjnZxAksNquzZX2bSwk9kLvlO6Z6Jxpa7WpST7lOwOXLXOfdq CmG9scOvX53g9H8lT81JCyaNFFufnuUnP5R/uAyt0sAi66SFanA+UNsa976o FCQvQ06dENibjlnlY19kjTuB5297aiWVSppqrjDavenDfKvGw/uYq0En7aPv 1eNUUq/lesbtyAg2TFIKlIdoOJ+snfngPh8Rj/RmyJCYh8q3El+XhGh49mbi s7x13CREoJNVeG4BCyu/WljdbAVPMaPXgeuo5E3I8u1++nncNVWfV3OXhi// 3oz1GxMgntcNst41NICM4A3DNrZOeKRR81arnJcY5n9bipiegy93Zy0+FgWi StpY75dkHhJMovzDi3IgcLek7O/4GeQ9wjwa9pyXXDhQ882uuA8WGC20Et5l gPonxnJBSWHC+kL6vnrkGGT/1L84FtiEfObpmhJrubpV7RgtRabQY1Fi+tYW NnQUOTBQW8VHBJOLDut19GLBOqcNbn00pF3RqqYDKvlkdOZZqf0Yhsqa5uV8 Hke7PG87PgM+8uk0tmrf6YTxdi+qcfMQ4s7Xljo5a3m4HlZm6D8KDwrPFg5c L0W7skdW+3n5ifzhvCPxU5OolVSV2hibAx9sGjQ+fqQQU06rJ/rrGyFxTOGx bnoHLlyraPM7JkQezD0cWX5TBxpv80qELi3Bgg7YWPyjkPJnzZdzXf5B72q3 9K1DhbjXR3xD0FEKcTP19Ei4MoFlfAo555Q7UejZ4WzXSQqJ8UvcTotiIFa8 FUkNlTN4YH+R5uQWEWLYRR8czV6NeSu7Q6oCGnHbTAwzk5EgMdOeLWy4T4Ol 14wVvaxNqLbv7p3r+4WIOc9laZ4LyejpMSjXb5MJxpHKLLu1uUhNin3e+fRa fPPywfa7fOPIsu4x+8pVflIQtOuDkFQ3lHVNfk3sqoZEhuRPw+e4SctiOP44 1o38RgY7EzlKsPXFIb6scnYiVIsXPYTe48/dh08qxvSi+9gP5sVwThLrML6e K3IZencO7K+R6oOpM4fk3moKk//49fu+qbQhNSXr7k6xbjDN2OR/Z63fWv57 M8fg1AuJF4t2BB6ZhSOlzj93CFKIxvFsBaUdvShTW3lvfHMx8A3pqeUd5CU3 wiM+nH7bBfstbgs5pldC6qHsL5oqPCRvfVXde6sudLq0NafRPhr6y97I9l1e 622rAwrJ1dXw35Ze2XVCEyh73KQhMYxCmO6O7ORT/IriLac3xD6ux2HKUKC6 CC95Tre5StyxEDeRcYesDT9hmH+s1eAEhQiVPnnJEkXDqDAhY8/8ATzzgOGD FSsfsVI8DzF2szC0u/dByPgUHGzIXNeIgmRMbrnymXk5vpr+SfnDMI6dR/2z f3LwkNNFh5qXfIcxtUCx9OjrEXhYkMITCAJkyd/6xNLaDu7QvRFifakZr525 wcj1U4AcFpeeleJZhlPjYQr9ks3YJytbHHaVl1x+TOymGSfXdu6NakU7ncrR 3vNTjXJC5OxUeUC25ySYx546XMReivzX7Dn2R1KIdqzjbwaeBrwX0ZhjnFqO 31Tl2r4+5iXUnS5BnWPjEPOy6lfSxDwYXodLLWt8MoFaTZnvJzDq3T8v53WF 2Gu95abliDAxkK251P6sF6PqU1eC1t53NK9QkFsKlZz5Fuz9VWsA3XO4vZNN 4iDWMc+4N4KfMP9R+nNycBWTGRlrXZ8m4Vxu/57DJWvnorhYkZdXAT5SHlMf ucag+4e2FPs+QWIuYnT/r0gtEqsO/8N72kDj4+KjYgs+UrV54ex0USlwV148 7Fn3G3i0hZ3HZgVIR5GYb8W7HjizgRr1Y2wYLUQDPx26yUc4jzu9oLOZRVmn CPdngeNonbFnr7yVIHk/6ZKWen8aypOlCoyP14Mz351LOhzCxDVfUftGdSlE m3jq/rHxxwKx+odNnFzkyx8MZz45hQ4rpySZLCbBvuuV0kgNlegJif73MoiG nK62lQ/uz+BcDCfVea03PrMf6BDfO4a/BfPD0lJ7of2XoVOk+Na197zxgfep Ptw/bRjg4VkJGrZGKyXx3ESPRU9F9GcqnG0+a1nf3IjrPS8IDckJEpFQmn2m Ew3Pj43Ut5n2o/ZmPEY7xUf2n4rzcc9LhDOSH8MeXB3AffErLAshWwkP/RFs MUjCkvzzF502/cY5baeymXEqUXNsy3rv9wPYxjnTpbOGoT2X4XvuCx5yaWdG 43H8jekyXgPncRwj30V/PVjBTQT8twf3Dnbh7s4z6c23JjBP7+8NRgcKsfSb ej+RPA0+vE/8edumwGya03doJx9prVc6u3EwEze/3TmS9qkTOumgd2ZtB6X2 2xx+Z98EdII/PzacHQAGdvW2gHW8pMeEw2miEfEuNfT0X+FOFOZ69764U4B4 WV8qscvrh9Lk4cffTfuw+E3ikW9fecnpvVdLlXoHMCs8wE3jSR3IU+KtKbeE iZeLTNDE5Di+kEXPt2o/IKwjyvpZERf5MXvesIuhFeR3DsyzONXgZS+DCSs7 HiJqkhX3XLIOp/72n3sbUgN7rnVmLVkLEfmqgy8VMmmgtTT/wdVqBBQWh7cU XeQmNyNFNjyVSUEf5pKSeNtHEN324uiMtDCRPvfTIHqoDibm4iQLGKdQ3OXM aHoMP8meT01uY2qEMBv2w82POrAm9ueNKQ5ekmAqKhsoOYSlEnMy1UM1ECs1 8ftHEje5kJF73/hVPUJEVkpzOz35ubJry6AohZBR8T9XrzOoFH3cdbavegTo HW3P9w6u8WS4ZVPcjnqk7r3PdVL7L8T4P2l4X8lLWFO8Ljw92ACl7kLf4s2+ ogXj45aO88Iksen4Totd7Thwt/HObpkadKPkOy5ShEiGkGZlbXgtxD+QN52a 7sPtZ9t20+nzkFHvjd/3H+iGdBMmlir3NlR7o8ijW0clGnZxMWmLs/BBLnvg xOYiZLvyTPzY2Fo/j0l9dOsYxBM2KazZ3v1g5NWe97ZKkPBaOTox2U7AkdCh eHrFbjSr33b/2loPKOdE5k48GYQYeS/JX33p2PV5ly6XLg/hPB0jFEDfjWx7 LX3aYmnYt915oiuVSn5mtJUs9qz5zGrVWfv+Kng6G8e8sFeAhG9bZuhyrsYH t2T+1CqOArOfKKU5godsebjPznN7O5KUKajZ3YubcnJa3VcoxCZM8XK/wiTI GYrefPyiCQQdR1Z1Kink8GjZ69f/ivHfAc+v96KrceiHFDtdBRfho3BIHzBv QbfZCos+pR6IEH3VUelGIbUnKi3jrvbgrebAMecTU5gT2GdTe1CArOom/Ct9 O4SND3d/7u3sB93F81YqWbykM2DT+QitITQ6fUXTo3ked4rt4wyJphKmiN4q PqYm2ByqzBse1YAvJOoDT7/mJ4W/zZ1nlnPggt7REfJnFFzy9ps+M+chw6Fj H9jTaHjXcPmysfc4fpkbdH3Hzk9MPP9JTz5ZhheK7rOxuWPoKKecEmHJQX7x JaUZX87DE6H93gUykyhR1x0NbHxEt/JUL8PKDK4rPk34OF7hc5PPO4LEqOT7 FLT4/hwB9olz3C49s+gpKuK14iFAXOUL9SSnCuBJ28nRN8EfMYdSx/ZeVZCc CehPlm2fhhha0xnWE7moF9aY4tTJTZinzv1grepFMvrXNnigALgqYopu7xIi 43fNVK7dXQImy8QvaqK10Pr+RL0ehUqqfGvS7va1grbVRrc7b4dhMk/M5O5m ITIn3GipYFSDm31+/vaNmwfjmm/cub4C5F2Mu6DrzWV8LOsQ+fVLA3Dcq5wJ 5127X+/1V20KO0EvNvJaSdM8OjmEVdvM8xOlocnrqY0TcKUm/fWPK7X4/O2y 3r9t/CTIP0GOzXQIvSJog/FBhVDBdwgkZrnJVFnYvmWNAaw+Uj3FkBa/1vcp lVJtXMQr7OX6hhft6OYbUqw/243BR/Xz5NY48N0z5zez1gNg8lf+IlfbAIqP l/wyCuYhQx4cNwxOFuCGW7+yGTXGQUf8peb3YCrZvqr9pCR9DkWPm7Xrqhdj YaL108JifsLCjXU/Tk+g4Ouris8MSsF6NeD3cUZBMuheqSH7rB09exg8jXcP Af3ViKKyUwLE5fOC1/riOYAKz5PBasNIdacTHX4vRPyH3tazrOU/6KViqvGV alwRP3btngIfCRs2fykhUAmnLBPVJKd7Ub8nxiT/vhCRjS3lCGFpROrmvIHB 86sYKv4qx3SOh8hf3fiAo78OmR5bMaXcLIEkN2r6MStOwlVou5dudhRzNU9+ G3UZgA+cSmyd/sKEKZNvg/KVvyB9O8ZhQi4eLnjcW9rzmotIY8VFxQcDkG0b /bVTdAR8s6r3Zb0SIEU064f7WpPB9+XXisi+FvjPe8IuPZqXzNdRjzrP1gLN yLWAP3ACljE/8MdWfmIWtq0zp3kO9u9Ifiw0UIHfr3pdfRzER95rG21ZrBnF Jrs/F57/+wfBjO3c4iV8xOe/RtfPoh2ovJCyILRrBl+mL2gVDAkQyebT9wVK BrHp+pdInaE+uP29hmt5Ox/xH71umxbXhb98390+vJwC3TplLC/+rPnUua0n XKP6gHfR7M7h/gn4duhSur+XIOmu8nNs5mlB5wMX1S+rECjfev7af1qc5NlW PgnbzV0QvO+86eHkWbjMtrHBu4afVF1ZZJj9Mox80idK3Xk6wWqr0t74uzzk 77N2K6bfHXj6Ynw4N80fcwYXzSMvUglseP8gg5mghSXdn002A6D/IKkrOoSP vLqiZzkSHIt3t+wJZYzvA/PrGdp5X3mI94bX2btM4hDEDiW01hAM3MFEqXnH S3JX5h7GKw7ggo/e0lbldjR/tjNBk55KGFbf7eA3qIWTE9uZQ9vmAOVFmhla eMmru7wj3uvr4OmFO4nJm9Ph9ePrjF2f+Ihe25MtUzsmUG+3XlZLbgEa9mX9 OBKwlfg/pZ91sYvBnz7Xr/Ke84T3/rsfVHUIEJHKXoczBeM4PqXBOHm9FjyH in853dhKjp6breTR6MYM1t13tLdMg7NNm8WttZ29IVd156JmPiCdm1myz3+o ds/9815hHvIxyq/rbkInSNR/3MnHVYdGB7/KGT3iIXpPrIu32K6ASk9kgZLy MJy0fpz2NWvNpx4MSfLNToP7ac1ZqcwuiEph1XYMopCDGbTTm1qrYf5Z69O4 5H7Y3eARMF9BJdKXh+aEfs/imfXSqk8jctFrjDf5aDM36d/hNqbZ04Ijvxn/ XelZgO0Od8fIva0kLl2wqC90AnyNL79QPshAnIZarYM/chGZURPBzGyCwWdY ehJGRvGY6PwkxY6XVN76qm4jUoWMe0dsvjZPQ/d4MSPbem4inMJc+tatFM40 uu9Q1+kHnloTyWhjPpLbqG10XCMNL78sK8jv6gGxyJ+nxT7xkCm9y+Y7pXqx Mv7o+EHLX+gsoT5WK8FHvBhijjyQLYPcEyzd9BaV2PDLg3b+F4Vcu3GZqsfU gj0dQTe9DZqRJ5yjhf6wEKGlml97/CUe2F3aolaMC6Dr5/GuP5JUQkkzt5t7 W4m/m/5pC5J+ZHhp6tZXKUhqgp8YKbaMA9P6ASH6S/1Y8z44VTCdh2AvW8L5 iDn0XC3mv9wwBE2pkmeL9KjkhoPh3o6ieTj6lsnFTS0L1Nlg3SiTENEs7XN7 I10D1tQiG12pNgzKWgmJWeYlJZtTynkkGVVezD3irfQfxylPgcE6Bl6itJBb YqKwgmJlJj5b13r9RORBkS1lPORo5lL9JscO3Odf03DhXDQemD0dt+cNLzG5 pn/APLwLX6V+/Rn5rQxEBttEsq0pxDZ2JrbepxPVQvZYhtl242qss/mPGB4S r/pO5qIYwc0Ya7hnhE7F+cCBjZQOfuLyqGxZaHQZjox2gvyvIjylEarre1+Q jDY5K95PbQTH9vpatSfD0HbWdPjzmjddl9tw/tz4IgplmzpDQhVqxM081DvN TzZIBIUkXVqEXPXKh86v83DzVPKW7cn8RGgk98zdq+2QxsPqayY6gScef296 v45KTlMeBUndmcQOznSL44K9GBSWMzJtz0n+zoeVyw/04vmzz+PGqK3gLX2e IfWSAFk4XSkfRW2H8pkLFiVbqyD4vNWuzcMC5AttmHY1bwo6uaaTk+U7wVrs +2eGtXNJG1ElT6MHkNjKrKaUDeOrkOL1/7ip5JV3yLfjmqMoYp5TuGFxCA5y XmCUfEcl+Za/TLU+9wD7RdYfFxZmYP0NZ3rWaT6ylT5Zvdd4EgX/taWP201i ybmqsvpRHrKnRGSvCN8IcNRMmn1/PgZBDmYp9gVU8ug3lWaxexwcE57ycx/v RrlvdOMe7oJEfmxCQbipDb5Jj7ZfWK0EPuVeuhQiQLoKxT8ZfFtCGe9hzpur YUBnBVFyMsLktuGu9NqkKSjyctt3dY0TsqU33ts7wEs2Bqp25b2uxYz33hKb VGfR7KRpqMg6DrJqq9Zk5tyEQiVij44yjULejduP9jDxk+m4lRXegRTICjot +9TgH2zi5jrmd1SAGNMn39NjXYTCixK2VWFzEEa9zHwgQ5Bw7j7bWbqbBtRy de8OjkEcEZU8qrh2Q+Ifnv+kbT+M/ar5e7qD/6G4zuBIuTQ/ae+yW5Hmr8PM txXSs2QZNN58suWb5ScqJvs5tIwagBLS/8a4vRMEwjUbTwjxkH8l3bMlPo+h 7z+DYfc3A+g7fCe75Q6FVMz8Tpwar0TukK7D/7HPweNzV+NfDQoRoR8Zb12b aOgAkQn7EntQO5Qjx1+Xn2TwRmjoUkrxq7BJIn1ACXCrJn/JUFvj7U2S/eIv ViDkV0nSy0+DqJB0ZzfnGj/HuXomXRb7i30LFV7P2TPxe9b9yxkrXIQ+6OOp cNtSCNmjE1m95gWvjqfq1stwExv7hyUHTNb6q85jYfp2B07r881uRV4ypuXC JCcyiY4q76SpbQl4djsbMO8VJWWR9yibFwaBxvpqelS6EgrKuAJV7gmQZ003 7p6WGgW7/K6X64reotZ+tTCdNR6W3K961rWmAd7H8QvtdE9BbiJ7VWbNd/Yr BLmmnPiJlJGgdu+GStjoQ6Pca6KSgh8+8ae/rfGwKbkxyVGJl6gfU8dYBMiR igM6nDv7wTlGONTM2gWlk6No+//jJ5oJd1MeZkRjntqoi0F3L/KwPpM+rsdN JEosLV1jC3Hjn7cFsj4LcL3OamDXnjWffeW+79CFdtxlLCq5378b/X/8JW+f 85ORWfe0G+c7gNGDJfMl+sDGDbo/r+8TIK+OaD9d/HUQ2y3+cmvJX8SQZS5b XS0+Mnxe9eHspTncI/+99aDnDO7QPJ1olyRIlpNbX4p39KNaie2TG6p5eMmf vfYqRZhYze1n1H88DLvKh9ifKnWiYeaMkq8mhUxsnxDX9ynHtLsUauHLQXRU YPqNFrzEITj2Fsv+XoQTH9U/35gDuR2tz8+eESJNqn8cFjrGMJ32+KH5Ug18 Kgn+8OGGABGutm5nofZCRP3TVzsHe/FJR9VMU68gGXmgqxlq1wtZJzX+2LYN wpH9233qfwkS9qB1/nsNp1DTY+yyWl4VCBYfqaTVCpCj3yV/emoOg8Pd9T2r ba2QZDt5YL0aH/FN4GidEikHS9ZOP+7Bdgj/Z0rvLMNHnB4kH7AbaIckHnv1 R1ozyG3zS4i2S4C4293WqafSYFfWoxPeM4vY+J71U1wulTCyFO3V+tQHSu8L 5tP4vqO7ZkgZ00YK+VLIQFFq64LOA4+4XuU/AD/rGIm8BAqZXNiqWxw2i5dm 9KK1i7uQr3WP+rMbnGRo89bmiPJ+iLdJiRgKGcG6Tp5n/fR8RLKTwia3axSM aRtMOn7PYKNX7/2fd6nkxalde8oDBpEvu236NRsNW6/KZgyGUkkKSdh1NKwX 3sesY9txZAYlHm34NbQqSE6OP3VJ3DgMAqO5cmkvKlF3nXlG/RtBciBmaF3m rTmUiji028CoF4spafMy8lQS6p8T83fPIlS6j/kXKs3gc7HZ3rdufKTP7IT+ f8YjmGltYVWbnowTUZMX0g7wEdf80KfbzRlVbrmYDyhBG7wYMUhksl/b/Q0+ u+LOdAOqVIz8pY3gSuMzs4IzfITZoHTyTzwNPsZx48fpcgg/5lgy3CpA+K0K 7icMDuNxqdHcK2pTyLtDZ93YDC8Rdw77eZdjANtb6XK3kiEIKeuQpY/jJ6zy P0//6uiE5bz+PyZcRXjR47XnPzp+svz+hvuQdBfcKDDIT5zox4NVmwqVLank nfPeF/9FZqLUh0rtFaZ5HMno8Jjv4yM/NjvNFhkvoD/qLT7laMW4YAG/hlEq iReT4L/7rRsbKfa9t1yy8A1lNTsKhMg/ORUhl5MpcG0o3S3TqBe2Sq3zqzQT IK2n5z+UyPSg6Kc3Q3oxSXhMjdsm2ICbxJ76KbqNc60Hxi1Zlm93gcVHiTwG QT7Ck5luZX97BPeEKf/a3ToJDBp2BnrfeEnrYJXeWZ1R+MbrKphU0A50SXLG 2+qFieAYuZa3PICvtV34P20YhRm0Y7yGFDKYU5DPdmIYDHl2xlzpfAPbc1Ml 9s5QyfLHHrPayrU9TdwR5OI1Aa+jaj/3fBUmVYtKXdnsU6gaZnMy9eYYHlfr fOnrKUDuK81YJkQTLDETT0mbXIJ+0/zcfy8FiGPFDsvVg5UgLDKso686hpXr GRTPHeEnV83UJ/OvV4MY61NDvS/9sLyqZi/Lxk24b3Q7bdszijrm2ZUq1W3w Vn0P26EiPrIsnTZ1aLAQxmpTDbyt57FfnmeEz0iIhHxK4by+k47cezJ4Zv3m AbTTyXnJrSpAikMcmxrCxjAKi154mnaC04vCUjsalcT2n/yTHDOI3xh8J5ZD xpGrTf9SEq8ASf459jdGqQMuWOr59b4ZAmPpRzts1nq1JcUrQDwjHu4c1TE7 0j4P1IRrb/QyBcjeMdnyZ09yYMLgl7zV8T60Mg1M4D8kRGyX3hc6H2uHuXNV t9m3pAPzhWZJnjQqWWB9d9H/5mPYbJpzXKy1CC7cpZRULFNJr9F3DT6eOvh5 6kr49Dl6In5LgsXJgJ98s6E5PH3ThbKb+BUfrvRA/HL95REeCpmnDcVr589g tgaHziPPGvSt2B6k7EMle/eWTBUE5qDB1dGHulrTGHHL+8IFUR7SJneVvTlt CjiqZciuVwMIL3edryHcJJDngsXPyzRwOfatdpv3KNQeE7G6teZ9QWIxX+u7 UtC1yfqAzPk1j/6zGL1FgZMEMM4uVzdO4jNfg1NTBYNwyuTCxK9yCvkwmcLu 4V4ML8at3qcwD6LlTZ9HmYIU8t64ivd7eRPoXvhyJdqpFQL32X8+JM1Nwi22 z3fTrb2f3Ybzd/4GwP0dEYNHMtc4PGwi3qp4An6c8pXYfqYPUg+Gz9RE85CD i1/3sbuM4HfGgt9/6TIgtkBALcyXQho70/6auU7jL6bA2yzaI1B7vDWpnpGD nA35nsF85B/uHO8//KhwHMzY/N4+EaKS53/3vlmu7YHcA1F9kk6z6BVwLdzW nJuIyB9h1ShpRuYe3aBuy26M9BeKPqvER6wjPvsZShVjY0eCEv/bNe6T5qG/ 5CVAVEsHf1fDLO42GYhImEmHT0taih8KqeSb7wxLmvQwpl+6cE0hPAZFA52+ dwtsI6XeaU7l1/tQJkPSLaH7HyTrmzV6L69xCIO/7c0XfcinfG40fO33T76r V6H2CRO1LSV2V9Rb8EOa/3eRmH6Q5Im7+++4APF7vePi0+ZSPHpdcZF6sw9b 3ea0d44LkM5Gj85rz8fRteFdnfX+OXzIaqA07iZC/JW/Tot978ZAi7upXg86 gHiH8CmWiJDbyo++TcV3o6FL0r7Idf/Aa/M+39lmAeKcpbxjIDINbdXsOuo2 N4FgU+ZPbU4qOeKiWFzLOg5yHXbX/U3mQd/ImU3gOjdZv6NeIWDPIDinGPoy qQ3ATze/w3uAQowsd9vRFJ+hmOe27Jfic3jE7EXs5661c5yfvPXEfBaPa3Vv e/SmAi9IeW+ysVt7Tu1ZF/+ZKfy1bTxd1qwBCo/sZ7aZ5yN21kmbZs3Hoeei bkPg10p4sU541EiSm7AWVL5tVE9HHenzoR+jJmH7M7cPss1cxOHxjUkz3358 osEQqCLWgsyRSDUKFSKrEhW+ppkjKHlofl77WAPE/XUQ+DfNSw7hSeUByEb3 EV/NqaluGCjgy/qQwkuyeetulV5dy195O6dITy+GTlg0+FhsI/HHvyslR/dB YMa+XUYVo7h9yeWc7dmtpHaP+nEXmSm837K1YeRsB0zvnBfuUxAiI79nxF46 dUPAfZHE8hc5MGBUMstykkp0r/9Men5vBvqk9I70i8zizTHLB46+PIT5wn5j xtI23NQd+tLd5Sf096i8TP3OR961/djwn/YQqPsuuiUc7MDe0erDlm5CpHCF //GnwUloaYkrHFmchp6xjekxrkIk6G1vik96Dm7iZCntZ2uBi3pGR0bMBcg/ 4VXP1oVx0GZ/lKgCC7jFbk9ewlqPgZdYvSIsgsPWDc/bMRYVV0684dfmI6LW 72VqSpsxk99/MryoC+7M2GVLHuIkV19zRz7OmABJ6+08t1UmwKA9lYit8Sqz m+tS7+tiuLq4hOE3lnCV6100t4og2T9ctp0nowGyNvcF8xUtoKPzrESdxVay Xu5xzXz5BKyvM+D2rh5EwiQVGvxhjZdun2UrNhyEGhFFEdbXI/BHoPjDK3Fh Ylr758ztgrUcuoukMjO0gpbG/CdPGieJmeNXfRFUjAuXvDx51zzxt6LDjedr 9/2Ncr5H9O4eaGa6z5vP3QIOAur6UbxcJE9j28dTJ2hoJHCO0h9XD0cDoeni BC+xvHTwzHe/NY8OE9mgVPIb/ZYOdPsW8JGurkZBmZQu+D6kI9x/YAHOKNr5 zJvzEFc2jkCOhA4QcXm6fE+9BG0iC2aHB4TJTcefd+R30WA0LJyPuWMGl9TH rvz5zUfKzv30KjCaxjOnv1EYs8fXOO504Ws9XjJrwFZqsakHyqgenyoL24Ap U6fliqsAURSvecfBMQXEePlCJXsRpASvo6+e4yPCrzhyOBVpoJced8LrTR/k DBioCb/jIU22J+8cOktD+//SHoSLDYCNBb1Cz20KiWH8cfvCuiog5jbz76uH 0Pmf2DxvCoWc2/m49hXvJPwbqN308WgX5oSx/jZd8xHNnfPK9+wnsKxS1SLp 0RQc0fa1rsgRIGZBlc+eD9Ngtb3cJmV9P0jUL1luH+YjEeZdY1mnFjE17vlL dYtu5N6buL7Zk0qkB87rSorSqRyY0vXzdi2G6mufaNvWPDrsht/Lf2GeYK+7 15p9ggZKJ7uvsbHyE/4OytDOPwM467wuNnyQXqVQr7ts1YKP3Eo5uHtHwxB8 Oq+Q7F3Ri58OZR/RVKIQDkkNhyndFZinPaOU2U1BhmMpS7QtJxFQ4LwvFdIH mW2KC/PWZdDT9cvd2pCPUJdP7PlzbAAGeHke6OE0PDrl8+nyDyrhvWUxHyvd iSV01z55hA6DWM9HGeZrQkRCwC3F9l4FbuRGhibHBjQqHvVlTRAgj5xSfxr5 9KFq4Dmb52P9+CCHrf6EmwDhteTP2sbUBd2PeHcUey+g7rdqC7FabsLE232Z yjgO7RfnWE4nVeH2bSxTJ02pRE8wt2lm/SAe9JCots3OhekAJ72O77zkwgh7 /HOGWWSxr23e+akFCqoOxQ3wCxM5rW1MlQo5uL7nqKr7n3/Yd+1axmknYaJ/ 7NORL9VdoO/wevhoSS38V7DBt/+NMJHVWH9sx41JEHN09akrrIH4avE7X4R5 ybcPWWGWsYP4I884QTV1HN2YayMT1rjuok3cJzWJaYgjR4LcP3zCgYsXqRsO 8pOCpTSbnRvHUefBoO+trGpIscy05ArZSu5JC+omS0yB4OkAD4OzTaB0dnrI dJKH3L9o/WdyvBrSB7ZMKx1uR+HXv48VNfKSAVn6ZOoWepKxLHZOULYV5wLY GJhbKSRtR0WGiPoMDu96Ii/2KhRXWYaOCZ3mI6YRF38x7KuGGcegxOS2IXBx 3r8uaq0n2S6MK5z8kg6Wc4Xbwkk3bFfg4xZc87t0VuGtQX6dkDf3IMl7Gw3p M3SuLAZTSEv8dQVmjiHUOOCv+XmOnqTyUyezbISI05frbLs7F/HISNamHZVZ YBYTvKBTw0s2P4peea00DaOXHBbLnwxitdg6TmoPFyk+b2DapTYJdkI8yi7F VZgQH64nt+YvXR97d3Uxj4LO9+NbNmgu4nlVI7WVDQIkvtV+w6fMDkyTzhZ1 PzUC3gsOjVtluMnNi+oPWEaC8E9CKnNJdwh89aMaB33jJNbxtw/fDR3AqKx6 ++vPOkCWqdLR/ogQ8br+XbWOqQ/v3WIu0Hg/Am0aOxhgpxCxOx9z5ZpuFT72 uH3ihxsN3Dzfa+vycxJvnVPyrQdm4ZL2H5crNyfRbPX5+HNFfjKbFCZ37s80 7smtvnttaQROp3pYt0+LEOObQzqGamNoONsT8dc7Eq/2+rSHFVAIO69xj/vQ NGyYFfx22LMbtNhxFxrxk6ov16MeZi5DBH1601R5BGyrD/QKqaWQjqTPbdUf FuGzUyif64dsfKCvULj5DYVkL/hVpY51QTnN3VzZMhmSVNtOxjvwkRMS9oJy Cv/AM23C+0pTMRy4nfCC3nQbOZ6n81Lyaxnyyxf1/C0dhCFngwKpNW/dIeU0 9HTTGB4jk0k2X2rgSZiCW4DSFvK46M9u7qwWCNiU+kbecQqW4x/+3sIiQE58 m2yJbh9HxphHNcms1cD/M8HR0Xetl7Qm3v5T68LseoH7BzSGsJUhUv+X49pu 9kW/PvZqFJ9QncWOqxbgKsfRGVHgJJtb1GrP/DcHixXzX1bZx9HjUgiTH4VC KszUUMkhCyqq/PYtP0VUFD4bNDdNITLApWN6iE7FSV50Rf5EEdDLxmlHSPOT oELDnf3ZNTigleibKZ6F5nXpLBWyFLLo9E2trLIcqJQ99knrh1GjZpq1OpdC 7BWFvD7vn4eWKaMNkXvn4dDE8TmZan7yhYxdDnYZAp/1FVvbh9vAeWnfbt21 PMyfmhW+c7ATHmmaFcf0LoFu7Y3HTVz8hHLNJN/XpBMHVD1Gsj/QkOd4qO7Z tV22kxL4o+5fCnIOh4Snfk/CJE9n6HNXCsldN9GhH1YF9L+nhOf6FqHWfphP X0qE8KQe6VZyGMZciTfWEq6DuEgsrRdcucn1L265wdGzUC0afErvWRMEiRIG XXsKiTwTVGt5rg6vPAvyi7OgoUx26qPTszxkyKjrZw7DMMZnc3xZjJmF1Y09 oy8TecgUg0Z4VW8fcJ0zjvfbPQeu6vPllt78ZGI171TV3V58kBtK1/tlGive 5eWE7+MlAqaWZ59+bcGm31XpdLQkFN5xLOcdEwfRuqIyJ3riNSTQVFUXpcYw cGt+ZJYmH3l06UFGYW4zBu31t5gbaYALu2T2y+t3o8abV+YDt2pQKm43rp7O w11BlGA9/3oo/Or0JkBsBPlznjfr3ulAF/YBjRyWMUi4e/i68stFlJLsvant PwnMatzb5XnygS52cwqtuRu9hRgj0koqwOWnoInnpQjsqhG58tJmGJcv7Ao6 NN4MdYGlvZdM/oLTrOed4slpfPL3Qjh7XDs+eu+gIG47i+anzMSY2TshaGyj fHfVAE5uUl15ulKDPBrfX3DV0bDlGFORve0/IOGB5/6UR6C4ehsbb3Mf0BpW Dwyx9cCZj/FJJx50Q3fgkcx1vrFoPWXm/fTqP3CyU5Pv2jeHZf9RPu5pHkEG V2PGxWedaH6xINt18QsYrm4/4Lp9HJ7GW+rOcM9jUWYhsjH3w1Sr/m+HGxNY nn21xOrKLEgee1jO1VyFCv7f2fLLW5Erl3n8+frf8OHB+RzGQ1Poavdxo9iN Xry5W6yHoacdaHG5Oz3K+jC0OvDPXe8JHKN7Ptb3dhoPSCza+uRUQPVwpqeL wxCE8ZonF4sTeCLvv8/Erx84/A7lJJX3IevcxXa2iTpstrvH3bOQge2qG+fG 742i4aJjEm7oAEeWhyJN2TScDT7iYh/fDuzP2LiEtHrhwUTy9nDdXoDqEx5y j+lU8u6xzAhP9cAxyXuCg8F14Cf62tTGpAwYA+oyjLYgPHj0eODzp0ZwliO+ F3yGseX8LVFL9wl83iTAcoxzHLijnccOMzfCaEDUlJTiHNat3k++sKUOV787 WMt25yJa7JjpO7WAh71lLK0d+vDWi0btOJUGGD35VYfr+wR4nLKMZHjeh5J2 rE3U3O613Q9c6j42guyKuxwMsQiEf50uWG4dA8OHLvA9iQZzX1Mtbgn3w+cP 442XNDvwMMfb2iS7CRhRkAm4eLsSTypIPFY5PwHbeDQy97vmY5nyrLrZfDAq 7L1vNPB4HOpEFtfJ2pVDu3nSb7meNpA6eLpJiaUfP9VHRbxoHQdSurVapW8K 5R+M++rgFP5tCdorxbPGS9Fnt/xl7sJDHAxX3/6bBxO57cHrhycwo69Fa/Fc H2wOnkxNPfsZclvoDKLnpuHOuKbRq9s0SD2sqjtP68SizfOFC9uHcUCkdsdE wDTeL6Tm1BgMYka5gbTrpXKQF1AVidhUDT0aIX/uanaCW3jjgml2Fyq5F/Uy eXejTOn6oCGuDkidW4lNN61Fq+EQITONLFxiWG/xSm4A/6U67d4u3Ajjmh8j DQaGUeJ7JEu5/TNc96dh/6RDNzRn5d6XdWvEojuprCelaShJ9ziHTqEWZWIL D3BZ12DUWDDv39JxEOZ6GvHt/RDqbuH00X/YjK6Ls5/Wv+uFph1HHxykS8eR Dk+fALsWeB0xG29Q8hV1RlLFTHij0Crlj0KpcSOcNVjPwPKqH3w/DCf+tsvF c8w+LyY8Z0Eqyfu0o2gNRNRULCWztONEBQNPIOs73F5c2iC7bhx87mwOvlHx Dwf6333oih+CSnbNUaeLY2i8/8c25f0dILrfc2IflYBiWcJxUWoDmvWfnVNs nID7LkWMghcHMY3z90frv0PA3anMrdz2D067FBku757GzowU1YTbfZidtFGJ x6cTLY+9b1DuzQEGbqH73nNDWHAhYStjYheM9E+tvlaegi8xMfU/eetx3sK3 ed/8GETR9Yp+ZprE4Tz26x8u/0V5dbtbfUUtmBDAfyuBYxxv6pyKqNi1jPcC h1RTj/bgpykQcmWZxK9jasylbU2YEryhoHY0E9MO3fL54zIL21gSnoYlDCPn q8VDFeUt8J7jFpW9uR/qWc9Lj2SUwaMNTkKH7BOA4VW493/Jg1h+ZjBP/Ncg Rgl1umrMluIj8zQt9p40tLhp/GpMrhtrPu0tderpxEs8K/fdQmqAry419ddY M5ocklUTcVyFNM8XdpvP9EIzbz1c+9UF/CajV2e10kAxlXY19vsosMUOJMSS WRRaGMq+4FEIV3rjep4WLYDCVKxyxdr+kc5Pkp0BI2Aq9XBdLXMiNP4X2q+4 tiuap/deehkwBtEyuvcmyRjeekjZ3/KMBlH7+F0i6icwhvVS/g3vUPRnkfNZ qViGnTu+Kt98UQ5KEdJpQl0pgLGqotEBjfD4Uo6asucc6uUx6z2RG0YtLrOy AJYWMM9Xa5aSGIajVb8p37f8QP+LTD3RlnVwLFUpXJZ3GNxfqdrLWAaChBT9 w/o7c1DHJ/g+irUD4pdq2Pvjk1Bd+tMLtd4ZMMtf1MzfUQX688ySUV8SoXMu 3PK+USdU6sdabj07gFrRgVd2CA3hVNl5nifKtehrO1vBMbAEPWyJslsnM8Eh aKgsrKED/stIbOXdR6cSeDDez5jUo/2hREftqGHUU4hIFDGkV1F+Edg3J1cD kuyyRuNjuXgnj/Yh9n0t2E3qJe8qoiFLlALrwlqvcN9raT0gT4OmKObpdKk+ fM5NtVLNWYEhDzfDN+MdOPEhv2TPgySwNlznxnu6H2/Fejj3xC2DGUtYZLto FNi8bLH9ljgAd60V/GdSGciyhSzetBtHrCvunvGbwAahuUmr1lm4kWuRt9vW DyZO1TiERi6ieetDixieOei9Mrw9jHkE9OoK1n3YMwlp3t4sy07xSNvCrcRw 6wde1G89oftrHgRUNW/nuM1h/amvdQn6hXD9vVXuKvcwKj+d3qerPgX7Nhbo Ht48Cu71Ku2Raz34T445RUdyDIPW/42KTaZhWp68k4vvFKS9s33Ow9kIG4+m RGwZqQe6558kWQ834Ia3Cl3vfP7gTgmawl6jfvh28FLChZ5SFOv/sOfw4zZw P/6Ze5GrHFgyDTYeksrDfuPLV52/TgL3nroHfyfn0VoJiLJSN6bXVixb10yg 9Z7Njg28bWhj0Lgr41c1mCnUpV8NncDgJ26bRfZ1g76GTidbRRuyQPs/zY0t 6HprSC2BJQ/6e/Y4f93aD313BA+f+28ZlR4dyWWXWQS7Kyd/hwXXYnSo/IG3 7BWwt4BBQ2C6E090yUjslOlE3eLb8ptDplAshidyx+cIdI9IPb+xOQexca+q skQbbLx+32PU+ANOOxgvjaWtgFwn7cUGm0+4eaHOiZ2lDqctTLP2J09Ag09a ekZzL3YdCG+1pHZA+d/2KxOf55Bxg8ehV29mQJkEd4lXDILGvOKXXz86YDDR yfBzRQV0xj8/8JrWjn/vPQuak1jA1eAPeZZsk8B0QNPvzONclOxyfGXi0IKf rFMM5/b1YK+yeD713DdY4aVn23hqBWTmmHiC6WZg4LZFfLH2ODrKJx6K03+F E9REDlOFP2hj+Cf4ico8ppst+KwkRCClX7LqqUwl/hLrDGpLXNvfuJ8Llnl9 ILPyjqs3YBzZNp/N+842hLxiFcFb62vw1Jt99LInerH35g05+9/NuFhFGX+X X4lxTzm+GW7ohq/lhxr/Ff4B5Q+fN4tMDGIEG6OFR9EwPGB5oXNIqQ+HDAvu 3ykbApacWelTPTQcElvdwrFpAnczVW31u9AFLF4TB+7fn4QYrvM77ihkwON9 XXeDPtPQvr0hcN3lRbxQ6l8R/HsYt5x4ZZPHNQM/j/jdPhrThvEr6Q9OZdOR KZPjNXPci6i/rk/X60gBWove0RbfNIuTqmeLVay6wVv5uYv6ZBfcG/nSv4eh F1MsX8r0mE/j8DxTykPxXnxe2rjVd3kccl/7bXpYSKcS2y/wWfruIGy96qy5 rbUSdGwCzETutONnL/phOdrac8z+UDqe3of633RulzDXwsp86vdz97PxiFBS eAltFowjdrVNltNgJ7vx9ynlZiyp3in7lKMX2jrC/Y9ktcOd8s/BN1r70cG/ Pcb4bz5mhbpy/zUdgtVtAu++VM6DYkaEfvzfJsiZFjom0ToJV1NYGVLeVMI7 ZwnJl7V9GGn4UT7hAQ2az9uZrcssBPadNirv/PqQeXNIxv2WJlBfXTfjKDCG sjtc6E9sn8JflaK7dJOnIPncwnbJ4T+ou7zR9CDHAhh/vf91amgaLd+wlW1R GQNb6XGey0K9qBWyge3sRhpoHg58bFhVjWYTh9d3WJphzXM5BZYrpXA39LHK Ee9+NLpzN/8b1zA6+Djwb9pNA06aCt+JxhbU20DZVVxXCIaRp2/LpvTCGN2j 3Er5ftj3PmPLHHcXTlz9FmdZnIdffjhUi5zogSLRh/uTozvxCkeFXuT//1/4 pt2w52AhaCnETYSIjkMMXeb10Mtr3CwrUJAutZYX1bQMbwU6kqjiZ6IX0ow7 WheFbQ074Ir7Xt1Er0o0p3J/3SnaBTlKPXZ+N4bwY1xyi/TmGZQJD/qpSxog UyewZvuebvTcQh+a+KISXhuHDFc/aQRG10aJEoNxpPlc+ZFxfgntx7aZFNt2 QZvHfhNToUU8dbmQSvlKQ8Z36yn/qUzg6vpoevYH43jfZjznrNzaDlsfdGS9 lQxPZMqU59cxqQhGlwQfWW6F2Q8GrRM3J7HNhul1yesJNIwLS73+px499Nkp 3/8NYYS3Td1IeAuKTy80tV/qAHkdqurUjTK8L2w2/uULDS1/FVAYbKpRz8Tt wmBLDWYuJlYWKBXj7NH/JB/+ncEK94/ZJ9f6XLE7gL5z/zD8oC9Q2qk4Dtse K+0r9ljCEfnCDC22Tug5l67CfycCs8wC9DzcalHkc4YO6+kRMGd+rxiUTkPu aAYiWjaOyZ+osupuf/Hpotc/k73duML735Uukd9wvK5ZYWFdL5jPfda8x1GG OdUhjIvt4/jkx723/tdGgcMxbqumahCaFzjon7w1AcM6g1fetqWiJmubQzJd DFSqL59X3dCDQl78cuKHv4KF4C9uqTPDsGenu8nNkXRwO/EyWt1wGfOsCl+Q /DIcoa+t1v4wCsZpS2wHYsZR48oNdpfeUuxdDQ+vMGlA/6FqZSfOtVzfeWHF xzWLj3nG4vpG1vK0u9FL0b8bNZl3Pz68bwrccszjlIu6oC9hPfwQzwDmgJiP Wu+mYUOH1eeh7DKI3LM1U6OnGXbbx1+e/TyO27bcqZv36oJHAh8YdNa8dptV nUXFxR6ws3Ysb3Kbhm3pmwudhgdxnPVLQ77TAhh5RN5ni/yN/7ZJWW7ek4uq D7d48LlXYWPimbnQhz1QPYu51TeGQJnjxGFVx3HwP6bLOi85iAXiko0iYsl4 ndJfWtAxBcvzXz+nrnFkzL1+tlw/GnwXDG1nWGkGk/9WRVxeTeLKbzmGTrsK EJOkxg/rlaDrj78S4XH0xP8xOLvFdMDH9e8O/xkuwOcHr/u0PB8ASgvb1moh erJHRzcqOKYKxhfUKC17pjBf0KxNkm8Sviwv8azzmMF9OUsaQUzd4GA753aH 0gFFDQ6z0tRfmGw0ukt0ohLsnn7MZz06jiXTwjo7SruhT76xqmKxBw5Fv8m5 8r0XTda1beVtaQXX2w+74q8/h7Jb6pxPMycg8sW65RMfmiDX3krjBe8icG40 nPucP4ufnESTuj71oF6K1b137+vhoNfk+R4NBpXPaf0yVyMm4eRxLrfGnSt4 UGiI6dj6Afgb/UR1/fwwPk3sbO06G4tLvLw/42xqMNTuievHNf89k1ZoOnxu BCgiNUft71Sg0JbMotSjiWDytzXgsmwnfIh6mZdg3wsRxZQ9p6RS8M5vY8Hj 78fw675IAw7VYdR4ZBHSc60Xdrvc5GB1H0T1iWfZh6I7oXHjwsnYz4PY3yuQ KRVYgeUCP8eTvUbxizQz55LAJNxV/Nk/ZNaATFIHdwkdXMJkw9BLeTvG4M0S rdU2oQu+pco2Z+eN4LCAXt3BZwMQoOCd2y/fAM8sLv4YCCvC8hLudxKbRvC4 q9XQXsluUOsMlvvs3gUitYdk5O1+ovp04sZNmzr+R3F5h1P9vgHYCiWy9yrh W8iIUuR5tYQoRWlQWkRWikSZTSJFtCipEGVl80j23iN7b469+Z3fv+e6zvmc 6/28z/3cN/xql+FQMf4DN3WD3NpCA1FwR1mhlGc/5J9yjBEXLoD4e8kLm5MG QbFR/JLL23Gsr1gOScVuSIC13wsaVSi7MdYmUL0TV39qvKd/m4Jq0zaUH2+H 8I3XeP7GW73APlF7ace+JdzIZG4zVNSJSxZ/lQvHZyAzikeU05QmJ/GXp78p lY9mtJcyJX4VAPfdgy/fefSCTnlGvUN4G156QNnw4EUNOqnkRg5JNUHG69NW b2bWYC60knuUen8Dr02fjKabhby+wfW+iacw4i/AaCxPSzagFQsbfyWSdd0R 24vtyCOye4eIKLU3Im9dod2XCmyX3x98GNGJjg2LHeIpC/DDrCCpPXUWdlh7 XPK4lwTypTf+WroPgfj6vpvJqU3wSl65aYf0NOoXGKzV5dZg+sEhuZ+yHeAt 9KXJapqOCNy7Kq3MXIluM7ckTvhOgsOecanzVlNYm2TxOX81AyFkj6k2bz+O LGcfKXgygTFzfReTEtuhSO9yTDf184/ePwIthkdxytA2+lXrLK6037J7drkZ f9X4C+rz0JNvSY5bf3AtQ1UIzeFYm0JofDJ1+5JaFaQmD+fYti+B10OujTPP Z1Dgj7CntFEfFn8femskQu2ozQ5vDUwHobvao1uYbQHl/W9HxPXMwjlnxRbX m53w+DmPKU1YFSQ5/5e6NW0NenZtbDse04V83SaJkzuHMHvjZK2g1CB2GZxd Oa45BeL+8+fCAxpQamCHi77HDHqFt/9rLqoB/k4tLRr7dihdVXp6a98s3jGQ oFd4UQ8tx7k+jZ8dwWdSTudLFqfRg39vsOtiHTCk/ufQ/Z6CL1LEE2zez+KG zlhbO/02THAYngsOzwf3Hb/vmOfPY/p6vEOD5VOg0xz3xV20OWeFC9/0n82A 609tHrnsHYDnS5LvHFjTUE0m/+K1qRZoOiq06fviGD4pTlaN4n2FMTpWox/p OtCnjVe1fnwe2+V2TXqNxuHlFRdfuDmNUmrLJi61vSj6PuTOYss8jsWvyK3e L0fZv+tbGM/PwHBNyu6WSxOY1dbI/J9MLpUXcoVfi7RhZGvsv1/Hq+E+22CZ XE8/iqmL027i6oHePT8pM/H1oHDMXOLZXgpaqXEpm98eRwPKNe5fHxOgoVU5 c9tP6vOkbpz2ONsLPRofM+3oVzD9cWYSh3EfLHjqnvj0hC5H6E/asMcwBQbj w3U06ieg6vKNLMI1jZ+ND3KVmdZRr5M2pdRgFWf8FFRd9i5ipfbSxB2BIcC/ o+/lv4zA0O/m7Uv2Y8h2RIsnn9onL3+keWqLLEJFB6fDqb3vUPpk3Nb/LKpB JtVj+YLrNBiG2bZIblsCEN3YniMfB9spFcqDeV1AFyp+w7giE5eluAV/mvTB 1v73j5PvjYD0Iq14pPA/9JmJ3hF7tBYPlPh94tP7h84ZBUqeoysgKeVLX32m Crdq+3e72NUhx5Myk82UKZjrrQ8+1bcAu49GPT5KQ4FOJuO62sFBzD11TU8x pBY3yeSE53r9gZ46C9Vcgyjw5FUR2Zu+jkoyPudmKuZgVb20t/JgNSqa7xU4 dmEVI+c9REONZ8G7SE/4vMMk3qhjNovYOg4eMe9Dd3J2wZCakVDrr07463xD nV2vH1/d3+Z907AaAzJiZxeeTYMvi9zZlXc/4EvvZ6JGMw32mfS5r7YOgvhV D9P+A6FwsLtadq64FY4e9dK6V92MsqwZ1eldA9isv+J32agGdibxMZ1t/gtV B5xPMLpVA4vzwVu9p+fwq0ZDOevRQWSfHY79XVEN+9tECngiV+DAsOayFU8d +JRaehxL68WPx6L/fgihy/mhxv7i1YN5PK1wNHvSdADzX19M4dYbRqXRloTP 1iOwMO7KdPTOEpqGrKrK01dA4lbxoQm7OVRSf7FBSLYWxtDrqwXjOOzNY/bw ujwNfswinAr0VdD8S7F5amIRd/dE2lCO1YKdmeUS07li5CsqjOCrz4ESdTcL F9sBtFgQV3lc2Y/LwSH3aT9TwO2vgxgHZz0+PHyudp9WN9QGRG8/79UBtb9N 7MxhBh6ZlN9eonrx/c0STScSJlBOTWNog2YXRL6X6rHTaUGBgbeKGy+1od9Q wOYjKxVoOch29EHLHDoF6/L+ud2MNsmBnno759HoSuCcKuswCFS+cXoqUIIX jXo61f7Uw4tDjTw6eSNow6GaXvqyG+66syh/W/0HhzmKZptE4tGvdOc1mucU LE9wfsWh2o9P9wUelXSYwg0i76qz62fguqzMtwStKmyHtYOHBdLgo9+PL5xf R1Es8/4F/rs10CtELqsWUVDnw5eBr0YUfAC7fTtYW5G+4ZmC43IdtAi93cNI 9U/BXQEJf6pzkKkrIYSOfR7N6IJZ77iUYSPjAWO6klqgFxVSba8cwupJy4/R TDUg6ud64JX6NHCreo9tudUFmuIJXKpnUnDs51vX7AOTOPPw314fnxk8N6nL f3ILBbbVHe9U254PjWUL+lL1XUD283lYaTwF0Q8liqfZFxCjDBXy8xpRy87J 60R6NUh3qr/q1R2Hm5puTHrdQ3ggrDaUopULdBvL7x/w6sUHfQditE/kQtjO 9w8602ogKfXj24sXKKjMXWN5U4uCqiTN+FJ6BU733W39FTKN3Q+zuEza26D2 ueF0wIE/6KPf2C29txd2WdvQlItPgMxs3JGKLcM4nNasdVW1G+h+pGc8qK9B t4o0xU7GGeCNKmoo35OJ0kZidhd3dsDo+G6F8KFBdDne8VW+qgq7uHp3R5wf Qvao5FXzpFGk31Ap2LCXNifTvEFYWrEbCtyft78/OwjjM+KGz7mmsPhzbF1v YzcyS57lsKT6pYXcEXkhn0n8krpWtJI7hddjvrKXSiyAkv15lvsVNRhx+NZp bcU1eBN0bt9vs+tYGy1qfm/LDGpQtHsMXi5C3GN/ibmsBTjB+tvqNmUaV8eO iln29YNCgdYnpedtoH3AVO7zg2qoObdNRPXTIPBLW0W8E8/AswU5cvS9n5Hy EU5/q04GD1VxCueDUWhQ/bYvZ6kPDytU9s25FELGSF8PbeoYNHtFaHHsoHZE /Emt60tDuNj7p5R3chVbgptuZHX3oF0Ep+2lmSmYDXtgdNJ0Guefnjs9NE1L vG0XfEZ2DoGPl4P1VJANjtlcLfCQXIPrH3xyAimucPF93PULiv/gsvXsY/Hn 7fBt1y0d2o3puLZ8YlPp1DgKO8r0WKlS4K6e8Aer4T4Q+RiW5y9Fm9P3/nH0 qdd1MEZxuzXd3o1sUii663QTPlL5XJRS1YoXeD7+TA8YwEzGkL+373TAlmvv W3IKp5AfDxWJPfkAV2sUXgf6zQKr3YZllUdVmMSeOvvhawc8Sp5+bbWhD37l PtTSy5mAWbpDr45J1uCxcYe3rIfn0TNSlsXd4wMcbUwNygochDdHK5ZzTwzB vio8OFs/CobcSlw+9vEY4KN4JudsCbJnMnrtDy+Eg7MM91T1vmMC87rBh8o5 2GigZBbgXgu/mW5UhgQOQIP4sVPZWtO4tVS2rN7qH2r8Vyo4pZUHJYJ0jM6t S9DNTHlemj4F55+/2yWSQ+WyiQqNm9IKWh8O5DdMroCta3zvnvjPIX9Fgaxt aRX8YhrlFb+/AHQfyvQuuS9gyQMlddGIISgkUTR6Fe3IuMJB4dw8i2ZXVv38 /hvH6ozWi9ah/djn+KJb6G0hbut11t0fMwLGeeKvWfd2o05g8/tTTlPQnPB6 7IlxMownRv/32dABR/KHko1fdQA/b4rWxSDanLZnl/WvCA7iE+/XwUZVXWBo 8aeRLnEKTsSyRwdwl6KNqtPHN3wNkOp29886lVdPv7pfDUwqxPcOJ8XCVHux W5iXTo1pFU7IdJsfNhqBh1U9szvOMORYv/nFFMLRBVFk8KjlSarntyS9izMd wkHdsT3xY40ov/yivrN1DH/JOwtSmJqQZ3GsJDNvFs1/3y5gpKnFsV8/PP98 +oWPDy+VJ6UP40OOcs9P9BR09JqlM9AZxuVQFY1Wy0Xcwpyd4aI7hmpK8te/ N+WhGjNjqNXXIXSWlAt4YDkE43HpgZ1qI8jSOrfKFDgDDfPbaaPvdOAdk23+ xtJ1yPUqt4nX4B84vWS4fnbrKDDSlnVu4szBxibxd2cD1lE6Su4Hr1M53kz9 5sIRNARz2icNmTW68EVvW97lB11oy+TiXpQbCxWZCoNvtlN5wPVI1EKpB6R3 zIbPjXfCiSjsGmwdQl55cRV1r3a0HOaxk3GvQoPuA6kGwp3wKfKK1geDTjxd GLVc/GUK5cIDJR8PtONWuag9sjs+45FZQY196T2Q7zMXqt+TjBGWfEra09R7 Tm89EvWuE5ofdfXcjZ2Gxt2LQVYmA9B8vyF/A3UvvjM3ntLJ6IQD3Q51n39M gE4W3QHhpQaQSG9u+hreCvPPbieIHh6AHRedXvf+boBLdLFMqSy9MJ5kv3Pf bC8+3JF8VWV3J0RuqzD+bdANL7mMdS+L50PId5XMXTt7sdXnz4X+az0gJTm5 bxfjAH7cWoAMFVWwzzV68x3bYmC/a5qjXdGL8xui5rV1+1FXazF0xwAFCre/ PJS+bRqc7nf+pfCO4KFxv/23xRCG3W7u+3dtHP+jbzzefD0ZK8cz75+60Yoj CVcF6g9PYcfT8I10nePYExZ6mchmApfzRSll3SXYM8p+ZJfwAMRkBi8bL1Pw n4Rfi1R5F54yP3ChjLoPN2yTVQt2rsC/P6dN5i7NIOupp5zxGdVoQUPratjU hUseqTcphQvAun1bL053gLg9m/dR31m0LtBXf9nUADHNTztfXJ7Ern7ZC316 pWAYfoaddpHqPykt2bb3F+H3eHho/OlO4ItssVFuLwKBjSydckyD6HNW0+aw ezm46gnYsCfPo+jMHp/d1//h41aHI4b7m+AGna9UfWAEMjgL+578nIoOz97s Hk8cw5viCkpD+svIueowOhszDWFtG0VKc4bhwoBZnplBH7DoqAR1kwKoGnTt UbyVD0v7uxIqT1MgtpnCdXLPIBqxDPlySK/gm+PxB4xCZrCmX+/9m5ARNJqZ H/wvrhP6dDvijcUpwKT5W3atvhdPywr+KNSexF+XW20Kaebhu6pI/V6qT2bV lX03udoG/fc4n9hqNEGYC0252Xg/6C91jWVZzaB815jimFcX7OrRqnpFMwbT k326f7pW4PBbuuEVakd7q4s2cR4oQv8jh2RrNXvxcJe+5vZdVTh9qpiPm3kG yo23VTbcSIdvvB4W+WfXMH/ciXdYjgKMIe4L7336cEzmUuTqoTxk+WQi9Ot7 N0R1hr/c5zAAC31sWzarj8D+99rFZbfHMHjOtUM6pBCWDv09mF6yBG2XhZiU bafgxkOWQ41xqfhwOTp02/VFeCRp7J+V3I7zsSE6FhIt+Ffdet/w025kitPT j7ZuANhl8lfCdBVSN3wur2HvQtbpl60pMo2w0nx45k5zF0pZqtqoHu7G/OVb wuWH29HBXU6zrnQOsyXrl90d2pHD5riCxN9m3Fqkp2h7ewn7rzCa94vMA9vp q6fLuabgyse9zB+Oz+GeCunx3U9aIN1b2qj0cx5+yjWnBMyMgIe93pA6yzxa kaIkU0kKWlRcoXsoP4mZIk79x27k4PHkGUW5rHosOL2vm1lpDoLUhPIvsS7C P6P2iLNms6Dd0r6W4TyJiqpr3yr2tELl2k2e1a1TeKiusqJmZznMuKjoPfeY xF6e12XjVq1gkC71wOJrD7xZysm769UKDA/Z6FbGmlGoS06/xGMBxU4Nl+Y9 X0OBfQZBCY9/QMWzw/q6vcMQyKOdkBayhvunX9rJJI/B6tP7F1OjetCigyFX wmURX9qNB0LOLChf2r6nQboPar5UlYildoGRDg2z3fIQft+SdPPE3QFIC3m0 SVMzDh2vxSWWyY7CuKb7j7lb85h88MEJBatubFu7Gr7JfBHajIazgmp6UXOH x7vEzFG4ReuxncWuDOpWaV+3DLlAgl1n3Kh+J9QpxWju4B5AM9tb5Ul589iT em/ne40Z7FM/cjLCpRdle6zrmPIn8XevxlVX4XF4W3nS5sPPCeQfM4iKURqF lTKv56+SS6HGTbPqBNckSuqPJxtxtSMLz72qPSQT5OOC060lRyClll1NPbEX 9+huqBuQSMFcJ8bgn8FDoGXXc1eucA74aeTNNhbPQn7dfzPfYygwlUOT8WXj JPJFrB2cpe+CXvd3ecHig9CZNqAQ4psJGyZrFE9aTaDm8736RxV7oEssLEv4 v3EoLT3ELvZfP+gpspidnmxA3j+/E+inqO93+5OjyS9GgZfj95awlF74eltM xWh8GcvYjeIHDZvR9VtQUCgMw7yj+N/nbePoznGQMVlmAt1/0Pt4xE/Cdkla +361WXTZc9Sc5ks3Pv8iZ6YlVIxfzRm2Gx6cxFCun8L0naPI88PnYVRYAR6I Oyj8ubQVdYtZU55aTOA1+8zKM98n8GgX8x127W58nRV3RlV7Gn/nqskbmfZg e3wd3dP+QWQyeeLiqFeJeUZ7s6U/d8Be0+Ht+3zq4f35+zyS1L2XXWnVdX1/ M7D9UtwdotwFJjQiz+zOplH78noyfY4rnNvF9SnLvR4d+Rp49IsT0Yzv6MPZ 5N+ow5PdF/U3ARVzGfwPUWZh5LlqQ9vuaeSSVm/X3kXBF3Osqo/amoH7/e43 3ZxTIBkjLtIV0oknz53797O8DWrc37rGfxiAbbSCea0e3Zi9rK1r6tMLdQXz tsnug9D9KjWr0LAfD/WdvjZtOAcXVz7c/T0/BbtWxXvC/BbgzDiv0O/dJbBh pyKbndYIfFUzfPNTbRJvsmw+91B3Hi4kRZ/XKpnCZ7ZPeGy7KBjBeUzuhnE1 HAu68fB2zxi8eGbOxOE+g88sH2s0WSajndnsq/DH05DEFf44zzsVez3c4v4k T8I2N4N5HedXEMzRucfFOhOiGMZSTCqyYb8Mf9rZgXmgyw/651IzAAIWfY+O RPViWVBAvg8zBaN+xe75lRiNVrmsMzmPenAuxeGh4814SBeTWtihXYOfHmve enSoCr042Brs8qYhUVd6idW6H+3evgg3onakQX61xmBSH0S+e9w5xj4EEZ8+ d76jb4LLA0WLJ281gfyh6E93Bv4BW8WvCjGxRnD4vk849hfV27aMDpt86IQn xy7kGg5TeVbjNOFtuoD9h378Z+U5C980u8TDHQrRa3jmxvXlAYymFTDQHeuD r/Gffg/qLuL1lau1EZKD2EQf2uod14tsEkEBzEZdqPD30L6AkVlsrLBIWe3q RCkWn1nrtkGMc1cLj+Wcwiha5bbnohOosWf+ovyHT3hyhify258BqPToUHCz nIMPebHXD/2qB/s1m9IImX6gHxG4q8g3Artsjf3KhJdhz8zw1D+lPtw3aG20 crwFhKRf+iUYNsPSZZVfr50TIMKDq/BafgWkWN90y+nPBaveZuluT0/Mktt8 ++3dL1iczckZ1T8Fx5ifuX0TonLuxsngGL903Ln5oZPjlhmYbo/UT5wvQF/P eG6nq/MgI961fqWwD/SWBM+1tfSig1aQ0skdHfi+YVOuptQIXBE48VcmeRDm vnc43GFexHdWa/32ClNw2NE00/nFPPLQsvQXHpmC2k3SWY+95kD8E8uJD3+n YbRUWqzpCk0Oi55fTsD3Loyy3PohynkGsyOO/S741Ylu4dvZm4zHwHaD0S9a gR68F7LEyz3SBzvfLzfvV2nCryliTe/D0sCqUumT6EwNJqoczL4g1QCRv+Uc zXe24KJk+bqWxyBsOur1nk2zEaysuE9aL3eB/BE2++5NTege58GZOEhPkt2P NTqv5IL7uaP3jn2noHzQ4pjKzd/wMTnw4DmDdTSgHZZT3zqNp578M9F9Vgic gm/2JvxKhz9MHNUdL38jpfANR/S7r7CsObbjBHsuHL/w8InX5iKEcSc1EZYZ vBVk+LjoVzuoSz/dfKZqCjgj/17xH+vGN9Oi5MPLKax83bOJq4smx7Vog1IQ zwLePe2keoq3G28pSF45Tj8ECtLlEgr+ixh0hevagiIFhMeuHL5SUAWv147N XFr+gKw/Wi1XeXqQo6wrp+BiJX4TmvB9d28UPeeP93a9m4K5i5k8ljf/oZD+ hpuMxxdwn0L07tBr9XB070+7mD81KLObqczNeAr4MIHhu84q3Hg+c3d74Chm uZULCMFvSNFhiLApm4aWRGMNeps+KP387YQftfML1y3YIzMm8byhxQFrpipQ 6Ik4ssdlBJRfh94deFCLM5PyyeLZGfBT6qNNrcMQtKvPNvZF0xARn5a5h78m oMJAPGC/TCqw3DJ7by5ViPo+io0ql0qAFu9YNxZN4cva60MCE8W44djnz1Mw BEbZEhNmjGsofizwaKtWLe4ZHGcLTVgBDW5J9gvPF/HnjT8iry9VgURmkB3b jRIUvrZpjzL3OGSc1OYPP9+Mtpn3eSU314JEygpl8x8KtAQVTdLda8YX+fu/ xh+uB6Zndy7JGffji+kDO4dpvsGQd9P+pz/KUT/ZpYGyaRj+ez1+YQPLKNJP zhdf/FoDsQ6trpmM03Cyc0A7mmsEL75RSOKpr4denay6uKJ+2O1kYaudMIiL 3gYRu253g6ruy4OtMyMYUsptERe0hGf0Lu06bVoIq2k8IWJnxnHV/Myd7ORe zN+h5syXnQxTNs6DG1PKYX9X0oUtErlo7jLg+Ki9GBlHNHvgajUwT9Cpu/UX gfAViQDvH+PYyq6TyK9dAM8FLR8UkxEs2GKazjjeiexHb8W4R8/C6mfOhMuW 48h3vE49duoP/DfyzN86YBbdrkXPuPv3wfbPOn4Xb/4DR0/D4MQfFHjHtMIu FEaB90uHT7/Y1A+eL3xcQvjG4B3j6pcEA+r35K9ceNo4CiUqroKFTwfQWuht RN+7DCxQK/vLMdaFimOuAUcFeuD+gfW/Muv5QLnB1t6jWQ8fWKpzq00jULr2 L/9VjiZQNnELeerSDdd/j9ykOM+Cs785h/lBCu5hcI2P/TaP3Fq/36RIzYLq xQguhbl/uPWmX0fcT3oyOXtqTvz0IBhdn/07IFgF7dx2D1eZhuFY4VVsfvET NuzXbb0Vno//2FCK/mkHDIYpXk7mzQJn4cua9lTuBW93uzncOgw9lhvc4w4l YLTSsZcFPa1gm/F8rs8tC66ldA8/k6HNSbvY8YzdewpdKZY7moM68VhsboI4 Rxt6DvIcAKFukE331ZRWnobsF/RHxNJngbvDmVUutAumClbGZ0za0bCHIeqa ay5WHLIovp43goynerw4G+Yh84RT/Zj9NPDsjQgQuDiHworD+WlGLWjrJbT/ yjwFolx36H8+0gUJBkF1+5jqYANvvKjav2qcPH7fbOHELO7j3XBylzYF8sxG B63mG+CH7kv/jKYc/J3E0z3/axQc3qkXHD4yAxPPk5VrsRm5e9uUF5ba0Hay LKr4bRmeuzn5k+sVdd+uelonc9difKHTZce8DtRgVF7yeN+FOYFBP2ZlR1Ep 6cX5xL21+E3Ccc9RpEDzZY9TCY5UvvAXMMnRt2PDFz3/9Ype4CyYX6+WbMUZ z0eUodV1HPzJZk/3hYeoD2vsWRlegxvMl9h2Fa7hSxXtL72BgoT5rmndheo+ 5Egp52c+mgspdxmOPNIWIv0iUyzWQm0wma/6pUxiCKy2xujdYecnhUE288HS Q3Bz71nznDOzOH7hmux/LMKEoeKikPgNd0yWMGCK29uKe8r4XtVO8JFP7KxG GlK5YHQs6z/OPUkYq+f251AVF7EdUTieNVYChYopnFaLtDkXPA9V6dMKkl1v t3ttONsIsXGKP9UNO3D1ae07UQ1eYnfmbIG1/SxufFU4c7E4FU39zticMeMh VcpvtGt8x2BjkYJ2g+w6+Kv32R/nEyQ3s3bE90+NoqnKi9dBVL/OXefeHH2b h4SthA4JOS9iRuQ3373Lc6h/4J674owIMcx6UyV1/R+8ebFjLdYBweteuXpj pRCxEZDZVRZcAnQfJyKSK3qA9tL1v4NtvOQfXFnRu7SE1599Qmn9bjglfJT0 XhInKmcmNpwS+g2RPdmolzMC60PvolItecip8RStU5dnYIxPy/zYs1ZosNi5 cFlKhMTSaD27MkPdG4dcrVQD+qChPyO44jk/sWJ7qbN0exF6DfsdzpQ0YvpV 8b9s4QIkku3YosejSRD0PX+/s6MVP8g7pAin85M5jf22Q7lTSCvN4+ekNISx 06n3sq6Iki6m6Isdu0fx5ALjITyQiLvSxhvoh3hJh6e5PPfzcWDc3SM+uLEF 4nS+iN8Y4CUmhr4tIXwzaJXW+FRIMQmkbQPaS04LkxO+XZUfNUohvNFS8FFf FX75YFOnliVIvDZ//3GiqBzi5z9L6rAOwSdoGy27JEhWbK57Rr6Yh5S+tWs8 P4eRNe8lnP/OT9bPWW6dFmkD1cKa/j3UOfzcfqVZXY2L5J7yLdnnNII33/09 bDjjgAqPO9y/WYuRR3sWO05S+6NkPVmBf2AIxccaN6qpCBF9P13aB0MDEBns eHGrcwscFP5V41ImQAxEglM+fmuGWYb+QpbGHDC033VjIJ+HDMo5m8/JtsBL 95936H3TYUNpqNrrX0JEWiN5z32XGbidw0cRiw6H7f5+NJXvhUi0kg7Pg4VW VN/sUujxYh1DdmjeeXRWkER8Pc5Rca8Ivvte1XV27kZx856NjfVCJD15k+yr 1XlIPDPUYnWhGk1OjChleAkQfkH5+CNHW9F7MWWhWsYPSnJYKoaVeUlknuy+ m196cbSOZ7fQ/QV8J2Xunu3BSwYGQvf8dO0EI8m3A9+ql3FOWWOn0gVhopep FbM5qQt9300d7Dlaip/tQ1v3fhAiFYl9z9f0Z/FG5x9/fZN6kI7Ru8R8hpv8 58//Z3U1FCTO1zWI7R9EUYPiip1GgqS78ezQjus9kPKkvsOivB1mNGzCPj8S ICefK7KZsQ2C1821J2cpcxgnvj3Bd5ibTOsjrcx5Ch4WEkxYqvqDkecqxtod +Yi/x06jjohBZPWm+D1q7oUbR/Qu+DziIQWNTmrmOt2YsMB/nE5zHOmdLNt/ XOEmj2kYsrd11KGD7YMH5+QHQGOA50SluzC5ovBhRZnKHyX5tdCAKwPYHBA4 eN5AmMQmfR5nuEwB+sQNsgE3KfDnU1mjlb0ISbghYM5t3QxEXuy0sG8nTEQd 2XPprQDx9uS28rYoAW2ZkdDDrO0g78hepVMvTrSFrtnpRDZDbcLJwSaWSfj4 9GvkdKQA6d7e1i6ytQsLMxo3HTvVisX713YNC/IR84jTzeFDA2j/c+l0m+UU +Bmd/N0jx0NafPwDtdL78aydwAmRqCHQ8XmpD8l85K6mzrDQyxnMkJFy9j08 CE9H86b++yZIGOfujfy7Q4H+qY6pQwZ0ZGlcM3LvPBeRlHhPObk6g57j9IJQ WgVZe4SS7WuFSJcfr9nri70gt+SWlyw7gR+5Oo+d+StECMS1HZKZAnmPwqUk oTHYvd26Q4n6/w9/fntawbAP48467V01bcE3p8SXIiS3khFDwR1z7+pxv7Va Nyos4fd/mlO1O4TJ97ORW73GG6G1lLtew7wHijqq+jdW8xKNM7n8LnemQKJb +8+z3jEI3+D5UK+Mj7jyfBASO1SL5c9l2dvJKnS9pffWbuEj/2YUeE7wU30V NQpEZLtRyNr+XjCPIBFnyBcPbO/CChlgMxTuxFdN4cEtQUJEciGcZr/9BOQ3 XWq9yd2CYSb2TaqjvETbP3TlGcc0bnYOGbyW/ABNi3kTVHsEyQRnWly7cidu Mx6iS4qcgpIdrVKfLgqQMu63Bl0RKyB5VGm6VGIadM7o3WbJFyCqUHZc1LsC XgQPPlKtGAKnh8a1zDkCxF9cXWRlxyKEXdm3Yvt0ATg0NG2FGISJVHLVw9BY Cuze4ujaaYT4/FVc9ctvfKRkwvrgFZt/GG0u/9NnuBaGvmjvZ2HgJ+KW77eo FtZhH226w6xbFyxmvf70jIGbFMzIXPxvWz1Oqg6a538fBd6CbYd13ARImGRf 9vvhbrSXOfgkVK2fyonm0IAFEeLy8J3LVYVh8KjW5P0ouYxlNUk9EmxCxGVp 05g4/SSm33RV9qsaxkKOnfrJ5Xzk18s9T26mD+P2NEpD5p0ljFeXEDmzKkpy kq6U0U3PIqT2eJ94Gw5K6ewXDNKEiOKVRs6r9XRkh/2BnfLX/mFIQKXUC29h YuitntaZughKLnOyar4d+MrMFNaqBMhKBNNZuw3jYJ/y9DX92ihUFuxJem4n SFRc2X3vvBnFKhbl3Ps/J/BYeJrro1x+stX/QtGp/yjosKlPqIzq2Uuel55d beck8U+zCpdvfoIf04YCTw4Mo/2Iksb9T2JkUf92ftiGWpQT84o7wDCL+iEM LEkgQL7eoD/5IWgUXtKZB/Kb/wOf3WWfGC/wE8OnBeLDbm1wX0KSRvVwPybH 9vfzN/IT5lDXKuwqhu3bm5xked+jnKTjVFkMO6nKaZR5YF4FerJWMufHKsBA qfhicTM/lSeMjbv212D5UeUK7nOdmHnlhsx2fW6if9SfvkOmCYK/952b0ynA 5WQDdit6fjKbdpjjSHIf/GPiV9Y+VoBh/a+khM/xk9vTSfaCW8age3RzYafs HLy8FynsysxFPHczBj0Sn0feK8GzbfGz0LZ9JIvJk4eE79fcfu/BJzwR6CE/ aN4CKd6JmevqvIRZg9HKlrsFwpb3XhqLbIXu15OxwrLC5LXHviMbcxdgNO7f 1LjYDL71ojn+R4OfBGn+vCir9Q9zKLH5Dmzt4BVm0WXZykNEj7Q1e6fkw+B/ Hr+1bGhJjz7w+lP3wv6NTzXTSnJh4th5DhulObz29m1kEjc/ebWS42+62ACZ USxuiTozYNf9wMtSV4Dk9qwes3j5GT64GH0zv1uPudpK4T4oTJJdA9gmTHvx kii/u+OBeHhwc7A5wJGfeCv2xIw7dQNrvnPkxd1teLr7PdfhDiEiENYewLtv DgLe9jB2cE5iZdZOj6BsQTKsbvq7gr8edw+KWlpsnkO+Ml5X8Q/CJBg9NhbF /4X1rzrCWd/n8WytsoPpmCAZv0A7EVg4A0ENJafyLKh7J4rvaj2jECk9dsvD drADPPRMHXSkvuChfUlPEs5yk8owpqnHVjO4u2ijwfF/jWC94fKY20V+8tNg gG3oPHXuOlQ89vMl4BI7o9uHJT7Cynz4razvNPIw/0pSTloDk9eOxUXZ3MRR 5MjHik3z4OfjNvv6djsKOZo9znrDS1KFGCzmeuZQ56Z6pTjtOCy35wR0XxMh tP4X73f5L8IX7Wy5ky09IBN+06PwPC/xtl8NiaV2e+nafgXW/CGId5z78K2K ev7MhWn7lbvBjHVYuPNWPiTVRLM/XREj6SFn2f3UO7Czjy4lqmsAn5TpCL0b FiQB4oEXQqx6wSQ15bf/cC9eYCsTsRThJe47+2s/fe7HRxpSgXVp0/DxLovD PkMhYhuuo8sqP4NiJ307vo+Uwe/O+i3HxgRIhBc72M7OwsF2jktpfnP4Ovjg +rQTDzlmd+n9gnwuXqTcUJBJSgQzhopOd+o9GalfC7po2Y/Bv1Z/hK3PQrvg vTrRUGEycfvNSFjAMjB1Tu3axlkJ56+v7x834iMFVx7NG5pNoaTw+O4jE8VI v/36ZbUDAsSiy1CxdTIPL6gmvqz/0g8c6p6MvHYCRPn2xlMxN7rBnvPE2Hnm DmSIuMjXnsZHdJyiNSINu8AWq3skNkzCu2r/097aVD4EZDplqDVD+5XYzIKL WRB1d0Gw1EiYuN8rKXj0qRkmp8+v1G6ZBY0MmifnFfiJnH1Vww6hOXio775D jWEOT8exPmVh5Cc2NU2tug+LofXF4jUGx2WoqNksGbeTn9xo6epnNl9EX7+t 7W+VljH8e9lZs6dUrn7UiJH9ugoiu/ZMbCKDKGdnuVBZL0zCnHVZGl/Wo13+ nQBp8QZon2PjFRwRIb6KHCq/i1IwwOxA5X+fO7Ar8fxd9gjqXLQtbrNpH8It loH9a3V1EJY1ePKlghDxO3R05wueNjjfUzdtkD+PXxXEn60W8ZEg45W337P/ 4W9TSRdxi3X0PbYa0nZHhJjoLP3ceWQWW58drHYN64NKu90xmtT5PdT1SPdb cCsQnwPsQwqjyMVuI93nLEBuvdryz3rLOG5T3Ob85GQF3Ora8nq4V4gkXdpz X89kBmWd3cauG8zjbz3WzFRZPvJBxTHFVbcJjZSub32zVo2igeZuanyixFvU /5xDZx683iGvokZGIU0uZTOLEh+RkVdKn8hrhtBuPdufvxdAlO/62fh91K4Z dLs8lbEK8YK8rUmxPcirV6OlLcJPpP0zs2mmimFm+UX304ZpCJO0z319g4fo axfLWmrMouqZue0NnfMQMU2TupXq8zGO8lt9GEbxEb1HtP3AArQYvYhNfi1A QhJjauhZKbjT14XuU18RbJkWC00VEiT7b53Ek0nDYNb0+gUnDGAJzfqZ678F yIJXD2vioVZI9BTz1wqtR8czUSWbuKnn0ypy0iOyHJNlO8SrOydR5FVekWEx D1GWFizl1C6BJ8dU4yLLSpBO15JrRlqQnIiZUyr+MILlH5/M3Xk1Bw1izC+a D1C7MtH/EN3paRj9fnSqRHAQBfeZGU9b85HYt6MPtivMw+Lms9WFc1Uosyqd /p2B2hfvApzaTzTAd1QdPuzRjFWfpsSiNAQItxJfnMLDRvixs2jXMatRcG3J rHuTwU8W/ntNF00y4Og1PofVph58aJHzJ22vAMnC2H0ad4IgpNuf3Wi1DbVO yrfUj7ITxz87nzGyDMFTv6zexLuDoOnzhyE2k9plbNzSZp+G0HHyR1nwQhFu FFnQVqblJYnn8zmlo35gS3UoL0shBapGipQV5TnJgdGy8sa6eTzvpbz7SE83 MDzKXnA6JEIEa2gODv/uwKuFYbQe47UgdvrTSuoTHrKSTT9dSij4QP+g31el CdD2eKnF/IOPRHJp/Gfg3oITreH332zuxhX9E99VOPjItr5DhhbRU3BXrHu7 W1kbXorV9rD4K0xGMjiSGnaUQp37bQlazVFQsopWm6MXJT1Wbddv6HVCiXzY hUfP54FH4HT+wXtCRFmIWzA2dAYPOR87Welbg0du234TmhUgq5UZwyYVeUA0 /Xdv2VqFfXc3KfiGCZBdo0adv5rnYV6jI6BAaBJD7AR6Ym/wERaze8khJ2cw ZPNmWp+aJRQ7vBZeWyNE+lS2CZADk3h51/ztqU2zqMWnL/MxjIt8q62kbXxS jWKe/v0/KkbwmkTLppeLvMSvuzySfpoC+hIpWWwX5kDZ2uLWrKAYEa9L0v3r tYgdI7xPgkqrUfow281+Bk6i22doeuJBLdKmZ9r+kq3DbxLjxhuf8BM8yYA1 X6fgEs+HHveJXmSJKniRmMpP4hulSr56VOGLjB0ifpMzcP6f+vgbKldVGWl9 uP+0wPiwyjvFyRqgfcIn7LBXlHQy273drVkDnpuPrdtpDqCgefbtpxQeEuNz 3yMgpR47v2f9vqMcgVPSXQ2x4kLkFndkirf0LB4bX+FZSq7CU5uutjMdFSTb xhcWTNXa8GDOMZQqawZfud/qexdFySnm/lEFxSGIYrXcXRrUhLL34vj7bokQ SuEj2deCU7Bn5XnagafT4GVQ1xf2XIDoqqx03vZcxXed0eElFnOwFGbcuo0I E+/o4PrHlQNw5876z60u0zCZKuxY4y1Gvm9n2fCluBRiclfLHk62oJX1ON3m O/wk+hOnadn7Obwcc8qydL4H1+hMzn4I5ySG9e1jaW0TaPaZ9lQRSxyU215J 3xHAR177sMXcUZ4ElovOusQqH+d5U7ccpucjyai0qbCWJsc+z2SKyz8Tmd9w bvs2I0DYI423nw5qhFTxZjdBXmqXfHdqFi3nJbf+nhl4ETaKqxLTUvxFXVCu sL3nyTsRMr9rm7lXwzSaP+ypPZg3hZtvXxCI8qb63h0ZY2/BXtzoKBs8xD2K zAFMUwyHxYiv+zd7JU0KWFy1jnkv1AVM8mMJidRuEq3c2ButkIdqb1+ZHXuR A/3dluwiG0XIXla+m3nbh3Gmd3w0K6QLda23MAWYCpHHKv7dm1XGMZ2T2Xq/ JA3JybsXv2mUn2T9MYl/cG0ID5WU3SjOGEGBBZ+7O6nv3akkZug4lxfw3mFr k7Keh7cJipY7qT7zhSH/6QmTMlzZGd4XS+VG7JfAdZZtnCT4ROlwYl0vvrBZ vHTHphmn2nbRutnwkmTfk0eqVmPByLlwhIhM4tmHbmZWStxkRzfsHmjqhL7a L8zut3rx9tdsxzVOAfKJi83+7lwNHvZeVzt7Zgg+vbBrCpUSJ4E9iWi7sQMb lszPfJ+sg0++VxjWjXnJxtZbacy1fXD/+3RCTDUFOGdury0Ji5HBQw3HxZXm Ed5H2MYojGAQy+0Ys05WcuVb8uON2UmoKBfwXdl8CL9+ojc5GSNAgvfx2H0Q GgRB7y27Nf07oVHXWCWKi4co3lsKVWVawGsnm4e2rjXioQ8aHVIsgoTNWz/U zroSf2Te0LO+uITy28/EixjwEb2sjc9f0/UiPOw1i96WAO/en3ApXRQmjkHW 6bKeM9hghwnrqYPUnk78zbHMS17ndqnFPRyE4BEN3aC3Q6AV3fnoXLAguXvv kf8xzSU0lpEryNCqwQPuerPLJ4WIV8u3+6zHe3F+K33huE4NpLUGmnBEi5Bd F7aa+QYEYspWb8Ypqv/qn4m7LMfDQx7tMv5mvasHWG0fVXs9oQB7kdlpUxk+ wtnrH7pKX4sJhV+3rFTm4KalO68V7/KQC3yz7r/CSqFY9e5j6YIajHd64urF x0NO9zLzSgTOQooaS9fhvmoouUHLLpTKS8Aw42mlTAnu6tEs8s1ZQb1Dbrbm AkLkg27NzjNltTChcSNPZfMy9hcyB1beFiCSBsa7fwa3wdKhPQ+KysZxZ+OJ S/I2AiQIN6UNnahGrtX1pzbrJcj71Hst5LMAGZm98IIhrQaekXjTBxpl0Mrs z/7tsgA5bT2/2rxvFS+V6PnHZHdDbEeEmTWVw3TKVyUvl/1FG7f0r1uXevGW 4ffvj/X4SFnth50exxYAJbS03NJ6sWz1i4uklRgJ33eCvX9xEjL+GtX1jTSj rNJAnVUzB/lWns92NjUHsShNLeh3A7yVy9Gnp/p22+1f6xJjy5DxZGPEDdE+ nHjI1MGWL0jCXxwpiAsYAVsFDVHDtCmIkuBs4PnDR+zdP2ow+X2DNzmK1iK5 86D+X8Ns2lEh8mNz8af97SvAvCnkqeV0ORR82ddIWREkLbdUn8kd9YANX/dt vvf5Hz4/3GKwQvVqc1uTaH/WSeDIvyp9RzUfv3z980xkSIiwhtkYvfeugj8J p711Ty/hi70Vh15uEyb/7a0bKeiNREU6/nRV2jDYGUz3t0WAj/AeZrTqPEv1 mB2Ze/0eNqKLWyid8R9eUiy79ZbGrjl0LaxTP61DAfe77gOCtFTOM2wWflzX gvbcA5ZXbvajlMnhci8rAZKxi/en266/eMb+udBWkTRoPv7M9Ga2MKmU1E1z pi3Dv58Ome/0TMCI8l0PBW7xk9Rzqyxv2vpRkOFXtLBoOlzbu8xlpClCnK+N DN2Rq0KKzFvZwr4xvN77RM4+lZu61869WQlpAtVa8frrrLREsL9d99ZVHnLl zsrdLR4pKH59ic12Twmc05KnD9svQHRusl7MNp4BHn2N7fdCOyA/heFE8nl+ kmE23xIRkQPrc+H39e8u42MNRr1r1P6ybWjfo3uzB0ofsBlv3ZuLg2cKn0zP C5NtMU2MN99OYKz8w63Mnj0gcNdqwlaYOqeOdcnvlVJxn5eBDuveKXTs8vgT RPWEijNtmS7DTWgdqbz39MZhmLFiOL+HiY+ovnzeNTJRB9zHpQUn4+Ow+/C2 dI7f/KSJtaWdNnQAF4PUy+Odn8Eum6rZT9NchM0v5pXWl2HcvVE+NFLkH+ZF dB08G8FF4m5YMD2ndvT3y97WFpzeUFV5ik4qTJQ8cz7+c4vAD+gfcZnU012C lanPF1YVRIlwg1MO3ZVZcNVR9qkp7gKN0hHzUBoRknUuW1gzaxpWPfSrNDaW 4t7jj5rE2XjJhXIOtg1lVWjYIFWrbvUQMxJ40wPz+Mg557v06yLRkC7oeeU4 9b2smz1fGDYRIDIG4Wa5aQmg9F5v9WESBb0EIruubuQniX48Y0p1mYineyv/ DcxChmmx+1KLEEnkM/wvojce3u90UeXYOwycqQWTniBA3Pzls8+azUNOZIL1 45I4mGUNSfS4KEYkdCfj2gbL4Rn9sPkn3zrU0H41I/WRi/wixVWw2oGKqv7z XjZrEHzV6e4xahfnyz/q1zsxgg9ZrKqu3guEQ7oPHll8EyWKNJCXtLiK53Y7 CIcKp4Lh6gs51jZuMl2pdjLyyyS4mlh1u/xtRpHMfKXgjQIkgdvwRULRJOpF zh38kT2LFZuCTB2nBYh7B80jFa1aEGI5iy8DO7BMYOC8UDsfCXsg6WzfSZ0X 6/uyJqqzmFClWf2aW5z6O3adFvP9ePPbyKHTypMYWXdDuGedl8wyyaup8TZA MtELcDeYhAslor+9XwqQuP3VWclLXdCvJe2aVfkYfDM+BB89ykcu+Vtk1ta2 wM4rAbsFrGhIvMtj8cfG/ISe3jjp8tFp3FT1ZfdX0g2yAqFl+Q7iRNrrCbte YBOsxbaJPasaQpoW/l3TQyLkza0h9bwfhfBcWUFTxWUeTv6x/bbZU4DcPhjU vOrXAqypYWw+ZauQFLA/7SGVtynvayfKjeah3/eWRnXeKmw6e4rtxTE+8nLt Cd8G2/vo2FP9WHlsFShco5NpvkLknNX1t+5DrZh3e2HpnkAKcOyrsZ6go+6v 21+mn9+agq4vDl0z402gxf2obUe6EJmJzf6zIyYfY1jqPXz8BsHa7tSvXdQ5 knSmidi7rRgaTrCwf2DrQN0QkRW9Ei5CTPXtXBopqO5axvv9wizepf/Hd2RZ kOT9FM04UjaN7k6qr7oc/oHEnbCr56MECM3XZ/9ZpnZDsHtnbm91A/oEhmYW z/OTti2bTm5IrMN32r2iWfKTcPC577mBZOp9/lVbENA7CKrx3l+2tMzjo4+8 I5JUL1UP0hQyshlHc+OwZWb/AZh7mSisvC5KVJ0W31TFTWLO9rwcbfM4sAy/ sOdhGR9JC93N8Mx3CRu2ij5zP/gHHzLUDwj/ECJmvZvMTPQXENicYuwGB/GU QPYBY+o5cwk63r0kk4D3olKXxHpyke3AG5k3bAJEr9vYbYltBmgpiVym9+sh pU3YL+GZENnIfJxNyW4EzR9fJXLb6XJU7bM50wSofpV8NErhcT/4PjW7otYw ipO7+Wuiq/jIR571043Hp0HslOoMaHTDtY3Ck4fHBMmpReXFXPILfv2KPUy5 mweLC5N7Fe9yENrcNXaL895ofr7ottDjIQzT+m4+f1CQ7Fg675hx5ylY2BV2 JmcPo6HTd++ZRiEyITwkJ6o7he8Mb9Cwu0wivJKxizAXIWPq+u3XWHsgzeN9 SOnPXlxicvXVsRAhF5Ye9fW5TIC0/qzSG5VPaDzhk5T+l5tIyvjNxU+l4VcG y4zfoUFAz99VUm7FTwR8GT8dSW4A3kvflTM/zAB3iFOU6wwfiW+2CmX80YMu e+s65iPT8d7NrI6KV//nvKBpTPAgzJ9L/GTnvAz7n7AEWOVwEcPN/prOzf14 8eO9HVPmvcg7pzHYPipIXMTiPgu39eDBn6VHFzVmwPHQaz8xay7CEBC7t52z Hth/vFPbd6QeraR6H0tTubqjuvo0yxQFPOkr9tm/zkPaXtPzJ/JFSKDRPZaF vGmQ5NnONmRRA+SRidS+JSFSfefyTofyBvC/9fdarnIbTpzb2O7MzUukz6Ye MKGvRBmJtgoLhRr05OrhrtYXJoyyisqWbksAZ87O3/o4ghzZWeI0zNR+cb1C H7PcheHr9/rtc/NhYtVKkGtVlHRzkJu2Z8Yw9+5pBcnYbhDRyrOKlOAmLQwr ebsWxtDgiMBV1jPt8Hpo/TKGcZKt/yLOx1wahJhNsvYuYpPgrMrQPf+Ym4hy Ortf0ymG70yj+lFAQc+BDfozTgLk5TcacIougFM/9Eq13k3i67kN/TbPxUiu jGB8sGMNjvGWcnByN0D4/ZcaWxMFyEyYW8Qt+yXs+ioAO7gaYbQ5XlpdVYCU ltLQBSvFQkeHxEr4YgkoSly69qxLnGitm2S9skiGooNZKhIz4bAofCPIhluE 3IjY/nrLQgWkm/RstLo9D1c+3h4Ot+AleySGdl/pmQG3tSQll74uHG05GriT hovYXxBYrlKpgiCp24L1DxpBvVP09JWt1E7c3Q3pVztBRWTwr0T0BOyUm9w5 uJmPbH4rdcQrcBIviiivqCWXo+eJ9C9vqd5uav1wIOpsBpwzOehZudaNgk9v R5od5CfabledAvjToLqIlkdvLB+1En60SX4RJo+zpZRY/Sk4capVTXEeUb84 a+T4FmESnCKxsPBtCix8XGyYHxTg48tVRnVUD/824vTtiGUinmiRsh7bPgnV OyjybxREiE4QsnzQ74bpU470hhKTmOmy5zZdqBAxGZBOarZrhLhrvR1Epgp/ jSSEH/3AQyLmR19lelLAlYWGm2t/Pzxo6nLzVuElz7uXtenmqTy8difb/cAQ ereKtioa8JP7osL9wyoLGMT1UmRdPBGV/n1jUEkXJP5KjWUhF6bgQ5Gy3Zdb 40BTe8/kFvX+nP7pzKrj04aKDlyFrYb90JkQxcZFeEiARpbq5o+LYEypXWNv SYJbsrKPN2gLEq6Smi+fDi+D8ep/W7oPtYHF88yN7gpChE9F9EzEixF4lvKK q8AzBuvETRLvFHKR7doKMo4bJmE5JfDqgdtVwBF6wDybR5iMtnB8WJ9ohsx+ uXsP8xrw1p+H9pF3uYjoQW0Wbs8+7FpmtHpbHAFbFrS4394WJrMFfAPdIz2g /4BfwuDmJFYKMbac4RQkGRytJ/08+4AnaJ7bsnsKIlXCo1iMhMhfe2UPs4EF GJn/+bFrrQoeODa/PysuQPLzlGcFqJ31Z0f1kfMHOuE85a7Xr4eCpFBldmfq +SoYsKGXdohshdeCyvmHaPlJ0JakJUZKIyZmaarevT4LG54KlWR18pFjr5Oi 3Q4No3Va/SfhR/+wvIhQ7CJ5yVrChKMRLwUpxce/bfk3Cn+r9s7t/i5Kbu95 bBgpngCOx/y4ZuwoMLG70tx0UIiEDp2okHq9jK5nUloyLlE5IHTJp9qDn9i9 rCn+ydQOVxQ1d25eKIHI7sUw63Z+si51ParXIxa+/69CO3GHgu3CAG6LNhrZ xwzSqkV8RZb0PF5Z0iZKC97S6m1R1mh9RWRpsSa+bGFK9qxJxxoKYYTMMJMZ M/ZlxlhCvvn+hXNd59z377pOOk32y3gkahNPsmLoK+BdFX7f7oi3wIsTTSii WazCvjzGDppU8DXFVo+yTD4acuuPVl6YA96UWSuBQsAKy6R/fRC0wB4rIlc7 MgW5j4v7e/qrYbuJp5FS1Bb4EMQ/f9yyFy3FF4SWxChh2q/ybqpWG5Jnvm+i +tdBq116VvwzFVx0dXNeYfockva19Nt4eBIaUoP7rvWScAfhjpMYiQpUdNfV OG8aFpR73doTVHDmp2ejK+wZAPeA3qjKRIYptO1EC2EuyMXOCy4PwMTHcBrr DBdeel5zLiaq4OMLCg5ijTWo45kXPfoIB/kd7n0pa6iOQwx+XTryXtj3mqj8 K1tLIW8TeyHMUx3b9Hv/WCbOg4CPhwtlw0YQHhGZzUlSxD04Ke4EpRjmbK2c dU5JVHgFB5x55KGKs0KpO2y5PMhXb++KW01B4WmMW1WyJJywMedzXzgd8v1u jpg87kJi0TOLbRkquGrdhbCivVXoYOjvmIrOn2h+uVzJkVwiDnKWoC6YcNHj RoMSE99aaKLcE42ZIeMbKxLrRm+zYSOx1EIezcNddonp0isl7CN6Y6UzYiNa tuT720m9oLiRUXSfp4Sv2VTdzFriw5EeXZmgZj4yZx/7mWighM+li52IOzeA wjVeqNvld6PRf76J8WkK+F6HvWbZf/kou6KjhhzFgdd+aEw3VA1X3o1fGPLk Qh/7rOdzzUF45k+OKOlTwvXOhYFW0/0gv286d/2mBpRZrjbu0EbC1m6dIgI1 PhgED7g+To6Bwb37WKYXlHD/YKyH5/FpiKN7PUwNqQCbzdLHJXSJ+E/0mP6B 8TF4PMY1qDrzC443v9NQD5bF2csJpk7sHtCuTjeQs2YCM/t7bMhWZfza8ARB zYQLtJHvcXf8O0BiiVOkI3SZ+ar6tEOpPCT7LS2SWj4AEgyl+kphHzbKvcr+ bcyDoXHr4ip9oWsnr7IahR5xbXDovdfUCqF3C0nFzt9Q4obQ55H7hXv6r2R2 xKkeZKjVkJNrRoPUW6sc9qiq4aFcc4vpknn0/irTbm3qBGJetony+qaAeb3U ivrdNFSazGrcIzaM/jxsKfT2JWG7zV6fbUZ/QpbP2VtNI2z0ZGlpgb5JHjc/ UDe895mF4uZufPgZPAiWAdMPXAtUMIkZv5FWwEOdyocku8Z/wO6VNmdEyKo4 IKGr1OXUIHr/RrLM9MsoEtHpN6v1Fvrau5rOdJtFSCRs4ajvBEydefaxY0Ae 5zlt0R950YfW1ExzhtNEKh7mLwb4HlLFKKx6NEOzEB2hxJP/XjuM7F3X3/5y Uh3TG6zdW193Itctr/qcb/0X6gtLz4mlkP//J2BeZSJaoTaYaknBw/Diq5Gc g4wC1glv0YsP+IVyt4j+4BbzIOISN9TOl4jN/tF2/0oNR27pD8ZEq6aRwQ9/ Xt+4Mt4Q3ew5vHwSyT6dn3x2ZQR9Kh6dk1ZTwub19xoi9gr7sG63y/6jLFiQ 8N50R5g7mosaV6zWsyCrNbCWbChAmg13Ty40KOJ3BcX6gqciuMlxa3a6ySSY +zfFDjURcelp8zxOGR1dCknmu5YPI8fMNxkGAjIOd5w11FVrAInTRuUPEicR LhREBFEVMIfY1sx914LcdpemT6ROoaWlvLbBr+p4qqtG8aztI3Dp9ji7/BgH Fq9c0QvcoopL/y3wNTgxC2fF8xzMZtNQzxPldXnbVLAOzqyKdh2Ei0a6Xu8z +mHatH2o4aYKFkzs+WqWr4ucra8KXB1b4bWohX6CnBqmF3+M9qI0oxft0l/L oyeQjPfmb7aKqvjPyT0nIoALKrZtqXaWz2CufX7dPEEBF/lI9Unt/YrgcLTX 2DIO6i1qPjVTooy1XyT1X58dRLOf3+lw5dlIsv2+lg+HjH/7+/TupjGQtK0W VUtCgCZMU7Qlh4Q+On1MwjGjAVYqCV4xfStQWm+36KQVAa8iV89MHKKiY5uN lNN9pqC+Q9ts2FkRP/xBkin73I5mrBMO7NtdC65MGTrnIAmbXwhcgweGURTK kPLqaAGf4MSvDrkKmPLWj7krmIUMzMVbz8+xUFBXUNa1aQVct6XROVhqGF09 +sB4sYULTbAqQVaLhNv/FHqu7ulCcxRVg4hODrz8jfddjiHiy0eNr1b6tINC 3MIPF+tWuGZcYHnXVh3f72DM1lRTgW9+TEqngwqXFj/mLnmr4PPr/smIXFmJ kndoFZTI8tHfGXTXYBYRz7w3rn7TWofW1YXlinyvhn5RBlWUpYGTGh1aIgY7 ocAtpujhnUnYWKrMdhmUx8tfVRmvWJqE/auu9+XNTsGJRVneslYVPDwl0k2l jSP3fo/Tplv70bG35zTrfZRwrjVpgGMhQK8ZsWrKV5mwYpNucpACGQeolvu4 7BxBxbcjdjbKzSJscplwKXctDrCQlXtO+QOUrGbJB4844JTCah2xUsUar9r0 5u7QgB4THvV7azfSqr1lECeugitOTdVw6G1oKdz47/+c5qN0vY2ppFCh4xh6 CStZVPgk45F0QyCCx0rKNnKvK+ODqyRfyo7Q0fa60EyLFB7Coat+VlWqYP+G zdqvfrGROW87Uy+TiULS7ruvPU/G9BX2Bt/WVKGuxsL9u2yX4PqWEKN7n9Tx vg20f5w0k4Gc+dfOYsoMRHotXnO2JuPZ7tKqWik2NHjzYgf3BCItj9R1mtuU sVKVUpdTMRvtigDFve7DSCOTcXDOSx7/2CSo2VY5gUi5Gb5Rgf1wPl3GZccg EW/o3JDqZDSFjsUOTD8om4cj3rL0ZcI98sr+U7jvAxdu/hWpUV/cD82ZNzxu X1fDtMqQwH2rRyHKbUb7TyQV7m/r9X78LxlXj6cQGOFiFT2sSsvsYD7aE3Ol N+MwEWv6EttM9KaQkfZrxqeODuTBn2WOK5Gw5lL8i8wyDoQLNRiqwEZpQAdW MgmL66YIblv3wgGNN5lJYaPg6Vqz2euNMqa9Dw0Rf8qGRxB/8W2USIW/dEf1 80QSVojKkzQIGANC54rXq07y0IG7hJwtWmo4/qWSxLhtNUgY0bdt2MCD2BjV xOZzRDzbIDrklNQI0x9IycbL+JC2eM9nMIaM3cOotWuVWdDpdKc8PbcDUv7U 9uzbSsauscvG9Pa3Ajo72nQmth9ZfQkJc/RVxfsphnHdJzphpah7kUiIAI43 HRG16ZPHqa3O+gmFLHDvOZufWz8KlME+/effhM4NlLNs4rLQMEfEiynVCavN 2d0LBDL20D/uYXFqAg1QciwPR+dDvoVLzlfhve0w0pAfz+FDitOy3w8ZnfAk q0Y5P1kZv7vgJ7N6y2coQnW/jTdzYUBMxUAPqWFOVGzbSvob9FZw8V3jaDk8 Olx3cN5XBU/KmIsP9wvnwyirj4/+BFaJywmbkuXwd8tSX7ZpI8qqObvyjc8w bPdOLw3gK+BzjYu7mEt8JPmXy4pbz7rhlz12rLZRxa46g7tjHgwhNRPZg3cN SkDyvCfh+gAJLykypBf8v6MjjHzCqw1fkMD91E0zihLO6TQdUu1cQJnSt4+v 1mlBxNsimvI5JKwU6LXDPgEQzBSMS0k8QYlBGurdwp5js/6dkfHjXnRQq8LP 3ngSbbebirH5TcDiW89Ee3TUgjihnea7hoscLxYMbf9FwnGzF3bHbZpEp3fm 5XKow+h/LYL7EQ== "]]}, {}, {}}, Axes->True, AxesLabel->{None, None, None}, BoxRatios->{1, 1, 0.4}, DisplayFunction->Identity, FaceGrids->None, FaceGridsStyle->Automatic, PlotRange->{{-9.101602526165294, 8.573524300046568}, {-2.3310263506883375`, 2.460298296483544}, Automatic}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic, Automatic}]], "Output", CellChangeTimes->{{3.7867231662746267`*^9, 3.7867231824581614`*^9}}, CellLabel->"Out[356]=", CellID->1042708737] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellChangeTimes->{{3.787676861931782*^9, 3.7876768735865717`*^9}}, CellID->568056528], Cell[TextData[{ "As is done in the reference page for ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["DimensionReduce", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/DimensionReduce", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", load the Fisher iris dataset from ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ExampleData", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/ExampleData", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.786722313301859*^9, 3.786722327989114*^9}, 3.786723207147408*^9}, CellID->480295437], Cell[BoxData[ RowBox[{ RowBox[{"iris", "=", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", " ", "\"\\""}], "]"}]}], ";"}]], "Input", CellLabel->"In[331]:=", CellID->528164402], Cell["Reduce the dimension of the features:", "Text", CellID->406019816], Cell[BoxData[ RowBox[{ RowBox[{"featuresMDS", "=", RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"MultidimensionalScaling\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"MultidimensionalScaling\""}], ResourceFunction["MultidimensionalScaling"], BoxID -> "MultidimensionalScaling", Selectable->False], "[", RowBox[{ RowBox[{"iris", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "2"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.786722394795106*^9, {3.7867250768893347`*^9, 3.786725077377248*^9}}, CellLabel->"In[627]:=", CellID->433043290], Cell["Group the examples by their species:", "Text", CellID->1915074532], Cell[BoxData[ RowBox[{ RowBox[{"byspeciesMDS", "=", RowBox[{"GroupBy", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"featuresMDS", "\[Rule]", RowBox[{"iris", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"Last", "\[Rule]", "First"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.786725059809143*^9, 3.786725081672819*^9}}, CellLabel->"In[628]:=", CellID->1261003874], Cell["Visualize the reduced dataset:", "Text", CellID->1739901460], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Values", "[", "byspeciesMDS", "]"}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Keys", "[", "byspeciesMDS", "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7867250674175777`*^9, 3.786725069179453*^9}}, CellLabel->"In[629]:=", CellID->139318928], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAATCgv2xZ5BcBP/SAmAXHUP24dveqP tgXAQ6iA5Pmnxr8vf2QWpxwHwHZDTuqzjcK/90uqUHb2BcCQLY+uAl/Uv9xy 5FVp1AXApA64wovp1D9Qq85VMz8CwJUiSKL6uOc/sYOkGHaQBsBEGc748Oa2 v7DBsUtYAgXAlQNIYczpxD+Q5GXUTxcHwA/646aHgeK/1q6uys1hBcDxCCgZ TyC9v2Y3uUY6DgTAhJjrh2ek5D+kpek27OYEwJXvwve6Ko4/cuGqp/NJBsAW u+FnJhjOv6sABZ5ZygnAGWdRLlhd4L/0EnfkcigFwD3ksk443PI/Gff/oZsW A8AhSdELtGj1P77dwS78/ATA+EIeKhbx6T+RvPsuti8FwD8ZVB1W9dM/6xvY ZTuZAcD+eOAiTO7rP8/GrzYytATACkJTBxZv4D9bx06cZ3sCwI6Vw9LPC9k/ zWiBIIJZBMCiIcUeNbbbP2kGwXE+ugnAtzbdUHsVwT+5muhf/2sCwHWOQMf7 RLk/1z8zlJXYAsBZyRigmxajv/IriW2oDQTAtQ8yX66wwr+hHQ69JMADwI9S PrYEw8A/aAM4lKF/BMAeWrOstIjXP7ndeWDEHQXAD+yJiXb40z9aGa5zUA4F wMCk0IEGNsm/zM74+P2yBMBax/66GyfKvxyJYbCKRwPAtu3/SJVM2j/XHE28 3jAFwDqa/Y8TB+o/JmcifjbKBMCKiWlohn3xPx1Dex5tGAXAAZpbPPsOv7/w QnIaEO4GwBTX8LjewbE/xpOCznwABcDZ4AAKCi7jP9o20hLNZwbAwYUHgXUx 0T9zo510EdgHwKllyKK1Ot+/aGn3OlW4BMB03UL2TlHNP3Ph8nUrKQbAcbzB lqLd0D90P9PRgcsGwKyoU1lZHO6/BoiTSLD6B8DvaJ/UHeLVv3c4os6yPgPA 8r4zYfAsyD+sKImxCK0BwBdfLfZJ8ts//wlETzK3BcCxpYpFaQPQv+5lpqwg TgTA+CvEqeQe4D/aCuLwN7cGwOc9HwdSLc2/sY9zVz1YBMD/4azihoriPwOc 8xd7oAXAb07qNaCSuz/kcpLP "]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAGVGrYaWO9D8EaaWm1ezlP4OlxTDy 1u0/+n9jDZRf1D/8joZFyG33PwPxisXrIuA/1c7/ffR2xz+9Vsblo37qv8uu KPbeaPE/go2P3l8Ysz9jxHeajYjkP5iswoaOxNq/gUdSVF6F8T/FjFcZWCTS P9CJ8xrQ+Oe/6CdliwgU8L/gy9mSw7TwPwkun3X2Os0/zu01RBzpgb+PZ8qp fCPnv1KfdIY7QOC/INPPAWtB9L/tujSn1V/gP3G13aWDnrq/fysjB2D10D8e r+MR5pnhv3qT5WCVhO8/P/ptGRD0v7+OrqjDL0PGv28J6AaIT9C/ubCsFwmx 7T8WPX/SRObdP8kuUmkLIeU/KuWwFA6X1r/2YFw8sDjOP7rQRvngWdW/mr4o OkI77j/ZJDLHcmHhv2QlM4D9J6c/qLWwbsWu4r/usby/S9zxP6v43TRzqbW/ lJm60qTn1j93ndYkEqWxvwHHjXRcxfQ/bqJVnnf61L/Q/jWnzX7tP3RprLfz Y8e/SD4HFRTg5j8o2yvjQxTDP7gYr3w6zuw/oVHtoDcG1T9yGxPb+E/1P37c JbDWSc8/h1ra88Hs+D8qsYE5pR7RP2x84xx6Buo/nV6fo6noxL98XDNDr47T v+JaVpObkde/ocBs37xwsb84I4QlxZDmv4nluZaMRci/Fikov+jE5b/jRDD7 fnbBP494CoMbGdS/CfadmZYU9j9c8UdA6vDav5Fsf+Py0OI/Or+rqZD+3r+s PRaGyNHpP8jIk1H32sg/bfupKfOH8z9uKPF9cBbaP1/Gl5pCFeo/5YVNh3TP 1781HaiPinvPPxPcavOAL9G/xYWhPgdNxT9f2LH+V9Llvyhmd7VJv90/jkeX Dnh25b/plwbgjoHsP+5/39pSpaG/GzOs/piCzT8eBwoudeHZv45fHjCGi+a/ PeyKMisy8L9HKkHpyNjWP7GzSTY5KOC/69fxHWo+1T80NhfIRDjLvwDIZM/q E9g/lv3sUxnE0r8KfDSP+4/kP383scn1KZI/DXkYF80B7b9WfUi36jHov2j1 VW3UItM/wGsWd1dU1r/LVrim "]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAIlEO+eE/BEC9XIkZxSuEv0Ub6V/O pPY/4bvU97Zl4r+9bsfV8+4EQB9DAF2CAtY/jOs9JWSL/z+yja/vUgHHvyr8 X+fPzAJAZPmQNhWdpL9dwBSlIi0LQG35Ajt0oOE/ZtImPu+t4D8hyMcsihXz v9EAkDXwdQdARwqhFYPA1j89ue1p4JECQNxYFOTeNc+/bmHnh4FVB0DBenez oQzpP9VPs36glvo/fi68KFcBzz8TcZgBvNr8P9cTHnEDmsu/eDOlyiFTAUBy eWga667LPxhyTdLiifU/wNqYJrLb6L/0a/VF9l/5PwS3Spq8ROG/EFhmP6d4 /j9ZdY+eNoe+P+jOtyftMf8/Wg8VQZZ5pT+5vmdIfeULQKbXGwvUz/I/EB/Y WHtdDkB7bdbG+nfQPzj8ivgK0PQ/eTp7e1Zb6L/YF0rMK2wDQPK9agxdNNg/ o3p9yBsv8z+oS0MPGmXjvxlezhPW/wtAFzc8N6973T86hNbVYjj2PxWkJtXB Kcq/ip1z6BQ0AkBkKh5wfHDVP91rLkSo6QRAgiQRZufy4T/iVfJz2SL0P/hg IhSRAMe/ZnULF3qo9D8cxEIp/929v4WD7pEm/QBAvAirXWrYyr/G30NToRoD QPY0aZeovN0/5B3/7767BkB/NRP4aATYPwQyv25r2AlAaEyxh5T89T8/7yE+ h0YBQB7RRG/Az8u/uUuf0Ugb9z+Xj9zhXlvCv07amvwugPw/ZovcnmP+378T 8QX/q5wIQF90QEHMBOY/uMDsCWknAUBzsIKtn+3BP8c5TTJIe/4//5nNJes9 qT+gKx2Jj7XyP8MbxqFmHsW/3swnO2PcAEBlOLGCkNPXP6/4xopjgwJA4SLz luKBxz8BfbDhm8H+P8Sg2LxjMNo/RRvpX86k9j/hu9T3tmXiv8hYCSgNgQRA WjAXOoDI0T91TEGZl1kDQO2Z6kzQgdM/qpk23xIb/z9JcLz5DgHIPwW+okJG b/g/EUN0hTEF2L8vshiTwjr8PxQpKAkYMLQ/AscKwUFq/j+Kv5tzVNu9P7FG Fa02PvY/hash5x0X0r9x+4ui "]]}}, {{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}, {{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, 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]], Method -> { "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-3.2238037438656497`, 3.7956454220728872`}, {-1.2659711905263933`, 1.3741650867930506`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"setosa\"", "\"versicolor\"", "\"virginica\""}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"False", ",", "False", ",", "False"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.786722462818644*^9, 3.786725086643794*^9}, CellLabel->"Out[629]=", CellID->1838949966] }, Open ]], Cell[TextData[{ "Now show some ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["DimensionReduce", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/DimensionReduce", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " methods for this same dataset. First we use the ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " method:" }], "Text", CellChangeTimes->{{3.7867225735534983`*^9, 3.786722620535082*^9}, { 3.786722854630838*^9, 3.786722878256255*^9}}, CellID->1905882370], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"featuresPCA", "=", RowBox[{"DimensionReduce", "[", RowBox[{ RowBox[{"iris", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "2", ",", RowBox[{"Method", "->", "\"\\""}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"byspeciesPCA", "=", RowBox[{"GroupBy", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"featuresPCA", "\[Rule]", RowBox[{"iris", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"Last", "\[Rule]", "First"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Values", "[", "byspeciesPCA", "]"}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Keys", "[", "byspeciesPCA", "]"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.7867226173065357`*^9, 3.7867226650438423`*^9}, { 3.786722818750155*^9, 3.786722842141038*^9}, {3.786725052232745*^9, 3.7867250527365713`*^9}}, CellLabel->"In[624]:=", CellID->1210683], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAhueXgRweAkCjJFF5wbjePx2E3/XO pQBAhjNYiYCS5b8eshXs8OkCQOPINDHS4dW/yRhpjSNlAkBmuygW2x3jv/Zb 15FlHgNAcLfuHeCy5D+63gdm5JoAQE2lic+r0/c//g5r/V6NA0C8f1T90WSo P1KTovje3AFA+gAvtR2QzD/EP6T8V60CQHfoJtVh2PG/7JTYDIF5AUCfpOZ0 UQTev9sN3GOaVAFA9x1g+PSy8D+Ms+x/6psCQBVN1Py1CME/+8pRL2O/AUCn Gm2tUFHnv8kX+xiXEAVASnCVwqnE7r/LVztQBZcBQBajZD/Lwv0/uBmu7gMZ AkCSa1q4gn0FQELz5LwjqQFAC6/sK9289z9WU6b21YUBQMbKlYEgSd8/OTJx B41g/j9D/cf89Hr2P3hTK0Y4vwJA+8Uhy6sL8j+mfGImEaH+P2sNZiGxKto/ iP16WfanAUDnJS0ZZ5LtPzc7t6LbMQZAcfXUrYBV3T8gsD84RRn9P7xUTOAp 57U/JuTG/jrRAUCfEoLSjZHBP1iO4DfDOv8/OqnIRREF5L/QJQgNwmgAQAuG ex03/84/te9f/T5ZAUCAoWmuaN7gPxZzWHHTHQFAcNrEtsIL1D+44u9qQR8C QB7mXUZmndW/SW6wWvgeAUAsGHWEMiXgv3FAeVE2Tv0/Lm216tEd2z9qDsrS aesEQKjSzZh8svw/FGnMc8WRA0Cn/D/RsDQBQL0A54E64QBAfP6hbPJz3b82 30q2l6kBQLKNRCq6Ycq/72FMnXVcAEBmZ6TqeyvlP9KiScv5NwRAVNDZ+Q/0 4j+nRho0428DQOiS4/oK7+y/pOAhSpFbAUCUqHwaUDXRPydL3nqzSgJAbKwT nhBF3D8FZ+Gc3rr9P/fu1rcGswLAKcqX99ltBEAtQeTwlanev2Z+x7Fgbv8/ moG4oZk63j/AqlxkshgBQMXlzzCSRvI/nKJuGdaOAECEdCil8cDmv4WiZfvu EwNAA9r3sUft8T+sH9/EricDQL36fM1EuNi/isBcEujVAUDep81QSe/vP7IW m2xzoQFAKP0ikQbggj91Mo8J "]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAjfhITuWg8b/iJzlVeJ3rP3JYjb4d Z+e/aAwPdhUH4z+bU4UhDdvzvwMkzdu1uOM/393S0jMU2r8c3OHqCRL8v+Gp rPUkNfG/OCRLdIqtyr/vj7LZQODYv7eKuvYt/OK/gwAQV5Lj57/MehT/krzo P7i0AbpLMN8/O2ejroyj/b/8ddTGXrHtvyLgPb3vf6A/wLmLF51mh7/lWzK/ Vovwvy5UvsrSNbw/MIqmh4o7BcCKZrxLUjTcv1rcVQwdNLC/WHkfj8r84b8m Q9OhTzz8v6LlaaemBue/LODgNzXWx78KKaQe3hOhP4pzbeugGNy/XVrt8FUD 7L8zQb1+QErgP1oh2viFata/SBncL74gyb9fVT8841PEv4SVoSvZWOm/kwQr yPuZ87+bqwbrtfT5v3DWMZwHHMW/kGm5xnzX9L+kkmmkGJvnv4AlSbBtYdk/ ZBgmRX173r9WRPEfYLXav3oIbogxv/O/Nqs2683d7b8sS9jWX0Dkv60u664Y ptq/9aI3TjN85r+32+XLwTuwv6WW5b0M+uu/9ecju/8M0D8fxqpNqRr0v8lN A+4Mx7O/ZOc0Age89b8HyITpNTTVP5hCc2sLRuW/F72VNTTrzL+smGbSxpyk P77i0duC8PC/gHWedOW9wL+7TTbAEP/4v2gDh1D7A5i/1bQuK9wo+b8LN4nj uerOv6Pl+cZI3+i/Rg4vVz768L+4q92gcUjkv/nsnSFWq8y/0Fy4l+Fq0r+G 4KToA3fbv46B2HwCD+s/WXSlEJfH8L+nBUv4pbTgP20LeopmtvC/qJV6x7gg 9r+N6GBLitCxv+Jj1m2vGMy/zsHmtn0k0r/zIqnp6UT1v4q2TAhp3NG/pvmA B6Pr8b8UypHJefzjv56/QC5shZk/ntJ0rbaJ1b+qI2R2AaHvv0IRBjgDLtc/ 5TyjL2YnAMBMjXRqMnjSv0hJUY0kYuu/y1wtdGljt79pc1u3TTHHv24NHIXT Jc2/44Xa1Yei2L+CDTLaxXHiv0OOh+Xl0sO/lnGOkZOm3D/EBblGX7P4v63r ySJGbtC/Onf0Pcsp47847MQC "]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAACHEhpVqD/b8Wp8XLfdrrP6i81d6u hvK/ntpbVCRd5r9a/VTqYqQBwKNUWGX9++E/aTsnbNsK978p+HbUwQ6ov6M4 FhGP4v2/kGj5rwPi0j+wXtsq1gMGwMmWusHznOk/WpSawTd9178jBbh06vv4 v3J8HV9lawLAxW2vvVri2j+2+X+isQ0AwKYNw/4axOa/hACSJQYUAsASwWJg dbz+PwYZT66p0/W/kSKElQ8r5j9cMbtjkqT5vxrYHuIj/dq/jqHrD3Uk/r/y V418/NTaP2v8Q3NuKfS/hQQ2Yp6Y8r8AA8iIeXv3v0sE73wtTty/TkHU6fRw +b/8fZUlzKPlP174Pbf7ive/P+0PpBtc0D+q3A4sH2kDwJDwWNAKdARAJxBg 9018CsB8uEtPKzWSPy3tUGdjOPS/1gt1PtRO+7+Xsko0Pk0AwL9OjIyMIu0/ iAS3QJ5L77/H7IKy5Eviv9RFn+djLgfAK8HPWRh52j+RehxD61T1v2F/vLj+ 1d6/NsZOvzQ2+7/QnM0iBjnwPzZqdRTsRP+/eO6RZtsf8D9wBy93Oc3yv3or zZnOP9S/UiWhPtBV8L8xHTY7+3iwP2WdT84Unfy/nm2ayHP7x7/1C80YgNH9 vzjO0B5J/uE/zfrfTtV8A8Ay3S28HZjQP0JKB/J9cALAtDTm4LUCBUDExTLk oc39v1chEbi12sa/fJLSlIzT8b8IE9+HPr/Sv7lZEKVUPfO/VA9gcUv26b8T 4KrC4WMGwFdp6dDuaus/F5wGHlg4+b9VENGA6BjxP4APv5ZpivW/eDecZhoJ 2z9ka2JsKpjtvzyPtrTuopE/J/kA/vmh/b8RfqON16LlPwheQu5UHgDAbEXC ffOk4z8Wq3sntW3+v9GyfKAAEeY/qLzV3q6G8r+e2ltUJF3mvyuKODEQUwDA 8bA2kLrC6z+wZ9sWafj/v/RCEitlyfA/JO5k3JTt/b9dmVpiDcTYPzg0aYuF CPm/z+PeiKix7L9Oqrjgtlb4v8BWwsltONE/1flEVPD29b+lIfgcGS7wP0Te 9raxve6/2sUtnGbqmL9BmbNJ "]]}}, {{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}, {{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, 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]], Method -> { "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-3.310695583933938, 2.7743447029273756`}, {-2.6540728185366547`, 2.6862844851106695`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"setosa\"", "\"versicolor\"", "\"virginica\""}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"False", ",", "False", ",", "False"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.786722847834343*^9, 3.786725055310967*^9}, CellLabel->"Out[626]=", CellID->1692077779] }, Open ]], Cell[TextData[{ "Use the ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " method:" }], "Text", CellChangeTimes->{{3.786723522824142*^9, 3.7867235354958057`*^9}}, CellID->1207596765], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"featuresTSNE", "=", RowBox[{"DimensionReduce", "[", RowBox[{ RowBox[{"iris", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "2", ",", RowBox[{"Method", "->", "\"\\""}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"byspeciesTSNE", "=", RowBox[{"GroupBy", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"featuresTSNE", "\[Rule]", RowBox[{"iris", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"Last", "\[Rule]", "First"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Values", "[", "byspeciesTSNE", "]"}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Keys", "[", "byspeciesTSNE", "]"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.7867226173065357`*^9, 3.7867226650438423`*^9}, { 3.786722818750155*^9, 3.786722842141038*^9}, {3.786723301759968*^9, 3.786723346194137*^9}, 3.786723414130034*^9, {3.78672346907343*^9, 3.786723501017242*^9}, {3.786725043905469*^9, 3.7867250448965893`*^9}}, CellLabel->"In[621]:=", CellID->1334044255], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwlkltIVFEYhTcFvvQQCTlWOu0pK9McHYt6GWpXD93oJepBRmKjBZZRgSQF Rbso6AJOUlAR0kkrIpguiqhBskFBKSlMIi+lU0zDIBFMTxZBzfn2gcNinf+6 /nVCdSf2HZ4nhKjOvT7mHvlxTNocerE35T7KI2MFPiZHH4Z9NJ/lEvhkfZWP trk94KM+eQgu4wMhcEPtOh9F0bMS4ltL1vqoXo4so75xinxzq2U5eCFWAd6T i8k/9oe4En2FfA+fYb5Oz64A8/6VEn/yPMi8uYuVzGuKsq+3ScPV/lf089qv RMDgI/ZRmxOr4UMfVsHjBWvA9btdvDFGf7FnC3qs/ME9zMSllfDh4+Trnq/w 5M5sGf0uP+Z++oZAr403uPivDurt5Kli8jZ2sI+9VoceGX2HPtl0lnqVibh7 dpW6+6YS3Ef3trKPeKHJt4ldcH19nPkqusD5N7vQ+TeSWkp8Kkg/XduPf/b3 QXev6S/kJ/V29tVvu7mHl94Bl4PnHC/sQm8yVEa9ud3KfJFpo78KpPHb+36H fUxbM/cz1e/pb2eOsr8Yno8/8qdEvzo/hP8iFXD1eXed/uJ+9/+0fFoEn7jP /uL1X+7hxbdRb7KVzo/BveyjBmrcvuFO9Iv8q8wzMzfRa+cizt9vGe5lTgfR o54+cP27s/jhjfa6//VAzPkVKq+w/wFytPDD "]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwlklFIU1Ecxi9bVJbRcLqUKK9N22wqYeUoqB0kIkuDpKdBdFEkIkioHhIJ FkgEFkoK9RItQXyopZXhQ41dgkBNaAsXFIxus2b2sJJFkCV0z+8Mxp9v5zvf 9/2/naqO7vYuh6ZpjfZXTvujbwyWC3uantwOObXmVZecVvSmF5w+wrk286YK XtPlpYQ9DV9wF/hQvERO4+oH7hudgaWQPSMj23ZKHO19uZnfw0WcW9V7fnDf m62XODJeXMoM3cFPfHLn5XmkbdUP/+LDgsRWbSd8a/fxv+ivJNHXT5z8Df9C v8rzNLOWvPP16EVS3s+SLzzxAHmyd/GLXtpbDW9B/yrPtbfdNeCwKyexPhSv Rb9Q+UtiM/BRx//awXfST9SN4mcMTmxglj+rRPd06B/5nNPkN5rfr+He4vnt 5GtJgs1bQ+SzYjWqn56g8p8VbnRKwuSLbh320EveT3+idXkLe/kc5NEPVDjR WzTgm6+O9ZH/XFcd92/0ZOlv+Kjav6kPLDJpha/ftyTfKGpQ+8wkNqHvelAB dp6aZf+xXvKJdCv7mu0qj+lfKSPHk5jCP88W2D8V5r1Exga+0P+fYvrQ+kcy +DeOqn6nkinew3iHjz7u3V6HTukL1c8jMc8+7mX42pk53kc0mVDv5/DkY/6/ 5/uVvnN9Hv+W1+iZ++a+4Z+bUPplMaU/MMk+lqPtO3kGgw3sl1ugD3Flyi/+ Axzf0OE= "]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw1kltIVFEUhg+N05TNZDNp3lL2KN1eCroY9NIhsKCHHgyiJOpkBSU6Cs2T vZypByEqrJcYImZnZhBBF0oqIk+Sipg+pCEyWQeMaBoDrWRkCGn2t2tg+PnX 2mv9a/1nhRta6k4vMQxja+6vMPcz586UmDkU0YKfu3NoTzxYBo9HixXa3TeF Qifd8lvlpaehXHF58ERQoWv2VfC+I50Hjx2qou5x9nWvwqznF/jQt554TRt5 I+D9qvo5rafoL7d1r0DHO1lJ/qRvROXNfZvXwOPbA+Sjn5hLJKpWK7Se7V+r 0Ez2oC9vP/GCja+os4fHfNRN7S0EU5eJy7LPvHf8i2Xwto2rwOehMHsMJqfV 3MbZddX06d85zh6Bu4v4FPmDrjN5nv2t3syCiostheiL5RuY0y3+yL7W21if qhf+XfgmSpvx0YrP0seN1NJXnLum9Se65hR3E10F6IzNaD27Fh/MBU+F3lcS F/VNfnzqD6LnDF/N8L0OHIbLodFv8At5Ye3jcfYTmx5Rb9SF8N/qzIR4PzPE fG7Rd/aQ8ge+ifER6uWR5ADfJ3+KuNv5Jau49T6On2bNUfy0U2/oa7anmNeY Pqbv5959D/iyUutcT+v9Bxv1PV6axcf/92j+u0e3tV7vfWfHPPdT8kLr9dyA 2xebqbfaPyylT2wUv2VwXvdtitDHvJJYiQ9P9xShc6vDAKtj+cxZ/q7U/AvF 1s9g "]]}}, {{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}, {{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, 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]], Method -> { "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-10.9116792678833, 9.573066711425781}, {-17.63755226135254, 15.108522415161133`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"setosa\"", "\"versicolor\"", "\"virginica\""}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"False", ",", "False", ",", "False"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.786723309556514*^9, 3.786723357183861*^9, 3.7867234162715263`*^9, 3.786723472896738*^9, 3.786723503651264*^9, 3.7867250476504507`*^9}, CellLabel->"Out[623]=", CellID->451030186] }, Open ]], Cell[TextData[{ "Visualize with the ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " method:" }], "Text", CellChangeTimes->{{3.786722884910164*^9, 3.7867229035257177`*^9}, { 3.786722953743911*^9, 3.7867229582714443`*^9}}, CellID->1650065249], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"featuresLSA", "=", RowBox[{"DimensionReduce", "[", RowBox[{ RowBox[{"iris", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "2", ",", RowBox[{"Method", "->", "\"\\""}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"byspeciesLSA", "=", RowBox[{"GroupBy", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"featuresLSA", "\[Rule]", RowBox[{"iris", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"Last", "\[Rule]", "First"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Values", "[", "byspeciesLSA", "]"}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Keys", "[", "byspeciesLSA", "]"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.7867226173065357`*^9, 3.7867226650438423`*^9}, { 3.7867250368973618`*^9, 3.786725037231861*^9}}, CellLabel->"In[618]:=", CellID->1318800809], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAhaq/L6emF8Cg6x1kkGoCwO8BBtU4 ShbAmIybZ5mM/78WIv5ftMkVwP/+c437wgDA7COrO+++FcCjTWwpFe39vzVA UhGpgBfAJiGemVagAsCvJDmCD+kZwPwP/RPimALA7DpDzVsQFsDO7kc9NpEA wCahP9NZZxfAHOEF2kEvAcCI7yPau6IUwHf17pipZvy/ez/tL3uUFsAwxkFa C9f/v18e1GrEDxnAZptVH/lnA8B0LVJYDgIXwBoMboW5KQDArB8TYx3sFcDA 56gA+KT/v8PAyXrzzRPAdcpojeRiAMDzeeFZlhoawKK+lrAXVAfATPYlRlcp G8BM1JGUnZkGwNP3hKHuFhnAl0aUzmvdBMBTTSXI2LcXwGA6niQuJALAGmtb u6+XGsAOk+4D5B0DwPPXsTEkYRjAUBhkL/fiAsBktc6pEQQZwIBUnsjI9QDA nqX3DmpLGMDgLWvHmywCwIgVacrgehXAEElRiBT8A8BOCjgr/SkYwA/5dREg CP6/GU/ZAKefF8BLRvlypOz8v9FX7R4zABfAV132knW8/b/58Tc8Rb4XwPSw YOxaEQDAMfV5QRkoGMCoIXHooBMCwNcULU6lzBfAHLadLso0AsC7Q4UITWcW wBUsBYMoH/6/C67yJkuNFsAJwQQYnLP9v5LkP2pkvRjATo3qJkmLAcA0UdML bgAZwBQqyBra+QTAS3zTs8DqGcC0ilJLLGMGwEniUsispRbAsGNC20ZK/787 1Xi06XsWwKzXBNW2AgLAH53HXcalGMD7x6eefuQDwPNdX5+NIhfAus4k5oWs AsB0uRZdH5UUwCoDLcfgaP6/meDMrEO0F8DI5P7MdGkBwKkCa7ZmNhfAWwRL oB17AsDAxyqxyOITwEKHfvfhMPi/umNW0/biFMD584i0YhQAwLcMIyiUBxjA Sw+1Kx/p/7+dp8uqdkQZwHQwTTULWADASGXek4AOFsDAIqoCb4v+v1xAedF6 hBjA6Ps9ADeYAsDZ7Z2+UrEVwFRbqldM7/+/695GkdrCGMC4l1wsxi0DwMzA 8t/lCxfAkHUyIGtQAcBkLoit "]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAPPo2w5A9IsCEdclFybOyPxAClcrj KiHApHqH49VuwT+PTED9xkAiwMqoXhOMQ9U/Is1nETkaHcDppQFoTYDdPx99 Ml3FHSHAajNR3gtu2T/MrQKFUH0fwFmdaC+RC98/hSm+vwVVIcCcdRwsck7S P6Huy2Bb0BnAEN1QVcfqlr+cZCOPfkYhwOJwiBUObc8/6fp30dOrHMCZ9AGn 7Z/SP/jvM76m6hnAf9Vm7AfR0z/y+qA2xukfwIQ3aSFyZ8Y/2UzZzElAHsB/ PurA6k7RP/2ci9cSqSDAqcLYcqKK3z+M3v9siH4dwH7LdTaf6Ma/qp8Py+9n IcAA5N0k9B85PzpegFKhoB/AojuYN7pD3j/XAov5mJ0ewHza30r88L8/7Zho SV8bIMDl65pjO6znPwlmPPgOXh3AUOj4ttd/xz926I/jMdMgwPoaGJ7oAeM/ iXNW0k6qH8AQWwBmGH2RP8kOOT9G5SDATQllnOiV6j+eD5Zha4QgwDh4p75H pN4/VpRSYciqIMBkriRr7/m2P14VuQAFLiHAxHlsYqNetT8dloCPE70hwLEr WAVa2No/80qf+twLIsAyF/H53ariP3PDyn6uViDAmo9BHCV92j/2qs8Tku4c wHJjmaGp0cu/O0ZiK7G1HMDQ27+DchDJPzaYz1r3bxzAvNrPQk8wtz8FMvy5 61YewMCBsQLhgao/XOFkOPTVIMACnnQvH3PvP1LfZZ/NBh/ANTuUs3Tz4D+x Kc2elMAgwJhTnIqRYsY/5AGG61S/IcBEEiSxKKnPP8/6Ql/UKSDA0Dc9P++L 4D/C6wBBHawewOTKjash5b4/aHenhxBoHcDBEm7guoDWP5nWFYvrTx7ACDqw uhZ54T/zAQWZRKIgwNmL4LnFgdc/GWgJN4hkHsAAzpyyMbLGP/NYOX9Z9hnA gCtPVpvCbz+Qd85H4msewLE8b6u3wdY/n5NVul0cH8AgcZiYZHvAP0phm5ej Bh/AQhgnGBvhyz/iVMWH3l0gwNLMshRWw8I/1cPkvrMEGsDQzzxMzfnTv/CA TqQvqx7A4tBdtYbOyT8sMpbX "]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAACk+sWtr3IsDcdtg+BET4Px0WcMPU oiDANYWc4KhI8j/uwU/beLQjwPJt1ihV6/M/hdSu3sQEIsC1IXiUWmHzP11P xP4PvCLAOmE2LjgQ9j/Rh84/niwlwFSILbg5lfk/+r3P6ATmHMBPQz9q/Djw Pwq5DuMyPSTAWxcVpkHF9j9ftLZTSYUiwHsEEfsVVPc/5DFuYpymJMDUeMoT 3a7yP3La4FztGSLAm/CCAtGN5j+x30SIGr4hwLmPhzfP0vE/UsyhpAnYIsDG Fn5lc7/wPwztpcvIQyDAjDgnCnPn8z+yF/6dRuEgwFL/pgqNKPQ/JLrfDMtB IsCIu5E9S0zvP+94tXngSiLAUQVWmld28D8a010BnxEmwKjr8qZK0PM/5rD+ ojllJcC8cPNVepAAQIL1S/zJUSDALI0r0EFq8j807xodJGsjwEAmPZY76fE/ a4d4W3E9IMBsTfYfvZnwP50GWcHSPSXAlJ5s0jh2+z8hWPFe/CUhwLqOl1K6 Yuo/hPe3iH4gI8CO/S8TjNjwPzJItDpTAiTAm/VMAQIz8T9dHaQzufggwAqC /8EXR+c/YtgTHnQTIcDG/bAEpPTmP+P9fVKOMSLAQLR2fDRz9T8KxQGvrZUj wI69N9WnKe8/YjRLhkIkJMBHrn3VCHn1P+3eQe6K/iXAD4xaik7O7D9Kz7Ae JzoiwMAWdvv4//U/tdkVEDBUIcAlyOQrTt/pP8CPpjsWWyHAkv01V+u29D9Q Loo48OAkwHI9wH0Ej/Q/xlGv+6aZIsDANLj5OU7yP8fDfmrhNyLARZpVL8sK 8D8MszYVu9IgwNrV/RXmmOU/AtHhUrD3IsB0A5yirJHsP/oQGhYZ+SLAhm7H VHkc8z/+4gOXFboiwJzp024h9+c/HRZww9SiIMA1hZzgqEjyP7FagWg3eSPA NGTGNiui9D8gPYO54UIjwI6HLQ+eC/M/lD79+/lzIsBsIhhjJ83tPwHaGozt ISHA9al7J0ug8D/qite9RQ0iwM/w4wAkUuw/btWIChE2IsD8RSdMo+LvPyWk s3wS+yDAWoinEU9P7T9v65EI "]]}}, {{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}, {{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {-4.8243888609992265`, 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]], Method -> { "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-11.034416239455414`, -4.951124113620781}, \ {-2.9160608097079868`, 2.070545836917601}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"setosa\"", "\"versicolor\"", "\"virginica\""}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"False", ",", "False", ",", "False"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.786722668370332*^9, 3.78672503924723*^9}, CellLabel->"Out[620]=", CellID->711768849] }, Open ]], Cell[TextData[{ "The ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " method can be attained directly using ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SingularValueDecomposition", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/SingularValueDecomposition", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.786722678163239*^9, 3.7867227207380123`*^9}, { 3.786723224860772*^9, 3.7867232466688223`*^9}}, CellID->817633777], Cell[BoxData[ RowBox[{ RowBox[{"LSA", "[", RowBox[{"vecs_", ",", "dim_"}], "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"svd", "=", RowBox[{"SingularValueDecomposition", "[", RowBox[{"vecs", ",", "dim"}], "]"}]}], "}"}], ",", RowBox[{ RowBox[{"svd", "[", RowBox[{"[", "1", "]"}], "]"}], ".", RowBox[{"Sqrt", "[", RowBox[{"svd", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.786720032133007*^9, 3.786720146283985*^9}, { 3.7867207897234*^9, 3.7867208367119207`*^9}, {3.786722519947001*^9, 3.786722560058372*^9}, {3.78672272558016*^9, 3.786722726948134*^9}, 3.7867227950111923`*^9}, CellLabel->"In[339]:=", CellID->745137277], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"featuresLSA2", "=", RowBox[{"LSA", "[", RowBox[{ RowBox[{"iris", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"byspeciesLSA2", "=", RowBox[{"GroupBy", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"featuresLSA2", "\[Rule]", RowBox[{"iris", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"Last", "\[Rule]", "First"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Values", "[", "byspeciesLSA2", "]"}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Keys", "[", "byspeciesLSA2", "]"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.786722758360654*^9, 3.7867228020477247`*^9}, 3.786725028834881*^9}, CellLabel->"In[615]:=", CellID->2013123683], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA1U1I0KJQ47/HHbplvHrhv/lPq3MV NOK/b3gq5L7x3b9LqxO7IMvhv7NSb2Zn0d+/wqhNEFXC4b/09a7DXWfcv6bA 8c+bMeO/+ikRU8at4b9s4a6bACnlv0/ZZuOypuG/X6IjI9QE4r8VNr8Q7XLf v+DAl23wHOO/gUTO+ndP4L/J7ywjPNrgvxeOuX7O9Nq/qmpelbpw4r9selRe Zzjev/3Y4cqLd+S/Cg7FE0Fr4r/RppAKN8riv1Xucvp6rt6/+8jYwjrn4b9z G04i4Ajev7wOvVd2LOC/S79lFQAb37/yUWwAc1Hlv3HWGGBLJOa/tJzvlZAu 5r8SoYSvTXPlv+S3BLxlfeS/JC04fbTN47+LAqJzrV7jv0AQGLvuN+G/P16d E5235b9IU9K38CTivylc81Lv6OO/DpRZPwPt4b+EHlAT/m3kv1mLJlzrGOC/ 2Msq6TDX478kPtCb7j/hvztOZLrAiuG/DY2hvtP34r8PgdDH5LvjvxTLUIEI gdy/9kVQMutK47+T8LiT+HPbv/I2+fCyyOK/C515YTc53L/GtDVs7GPjv3Ko K344gN6/Y6qrlVm6478lBdYKOSjhv+3antCpb+O/2BFjeLJH4b9xStPi1Evi v+5Utf/klty/ltcp49tq4r/MPAcl0TDcv0VzLupFNOS/8hnL09Cm4L8XlB9B BWvkv1XE44qw6OO/NXobYmIq5b93CE5ioT/lv20fuDjFfuK/GV8QCcyy3b+S l5Mrqlziv9+yXDwrGOG/SQxBTvwg5L+jY2/6cOHiv6w5Hx/B5OK/cvsi8la5 4b97qmR4Hs/gv4TIcD3d3Ny/F5MQe8Bb47+zgF4GtYbgv/OlPq729OK/BCn8 FXKK4b/qTUfNeT3gv/4xp2La9da/ojSpkrAO4b+L6Q0h+YXev15jC8DKn+O/ TgJyxY9J3r9zOvfVlKLkvx1lzPVnBt+/gDKMCVAD4r/N5MV3qf3cv8kxhGfL BeS/wkyHgxCm4b91Y4VlN7fhv2IwZoJsT96/xAZpvbs45L/Z0TQIBDTiv2vx iqhA0uK/NVFbaPFu4L908M5q "]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAeGhJBvbK7b9zWtu7O8CRPyUb+ehS Cuy/X3uaD9CLoD+yGt3+NNDtv9S2CM+iLrQ/Ciw9G1rE57/eXBydHgC8P3Bj 03nl9Ou/BQzX++EiuD/J3W4Pabfpv/mVIgJHd70/h1fR+yNP7L/WmWpZDGCx P9mcE+bTFOW/M5pne1bAdb84EbtNaTfsv7gb9FvO060/EfTKEjJq57/gvia3 Yq2xP4Zv2C5NKuW/Yfz1v/fOsj+/1phj/A/qv85kxpOvQ6U/yONpZ4G06L9s 75uWhG2wP0M1o2VKNuu/fIo2heHvvT8wc9mXRRbovzhfm3JKvqW/lg39qAhu 7L8bzxg7w9gXPzv/7WJA1Om/AM5Qepq5vD8dIw5GtQDpv6o/fHwGUZ4/78Ow SthO6r+WyotE83fGP4OUXETA++e/AurEqNFNpj95vWm3FnvrvxzyN7hhCsI/ vnK9rSfc6b9QmNzeWJlwP+uOOl+emOu/H8a40rE7yT+qhs0RbPrqv/TxT6I+ Fb0/oc0JCxU567+FZ1cwuc6VP0n2YY5vD+y/H6crUllIlD8bOrluGPnsv4RJ hvjBerk/FiVn1cd57b8TH4WWxLfBPwkDr4u3r+q/9ImDzzAkuT+GzfPbs6Dn vyB16eViZ6q/1PLWcUBy57/E4feIC8qnP7GzkhZPOee/um8j71QClj/ed+wc /cbov0DZ1A+vKIk/72tDZJh/67+sNGx0kNnNP8pa/EegVum/hEiqmbUWwD8t EbRwr1zrvwxa4YAOP6U/fmEWdMf87L8JVY5B2gyuP1TnrWZ1Zuq/Yu+Xh+ho vz8ubJA8kAzpv8pSlQbMUp0/MraBNewD6L/C2KcOr1u1Pwxw9H5Fwei/E+Rz YIuVwD/079q6LCvrv72gWYqmT7Y/Lb20xxrS6L/CCa+5oYqlP/wpaubaM+W/ yXPzgAElTj9WJxTNG9jov4bC9opdmbU/BxSaXjxo6b9HttYOgkmfP7eD0fR9 Vum/0bkAQAt2qj8xKRjwdLvqv9s5Mwr+zqE/+JvBiZM/5b9uCMwtqvWyv0C0 xC/OC+m/hO4vZ3R+qD+e97DF "]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAVrnhEDv77r9OPZB9AwjXP8flXjMY LOu/EV1DaI5a0T84D/iHpxfwv5UU/3fu59I/Loo6hTFu7b9pGEu8+GTSP4Bb iqqSme6/Q1gdi+Xw1D8cAVst10rxvxpguZ4RSNg/1E+oCbiZ57+5DhFIc8vO P4dErolQh/C/Bgpjb7mc1T+F02n2GkDuv8PM1MBJJNY/dzu5tGbd8L8++uik j7vRP3SzsXbAkO2/U7Y2xRpoxT/b5wj0xfrsv53eUXez6tA/QH7bB0TH7r8X rHsTs8rPP8azEPfZkOq/4Gdc6z7k0j+lskFxFpLrvytVySAJItM/SRQbw93R 7b+y8rImtrTNP1DpY/Wz4O2/cNqlnus/zz8ankIW3AXyv+EoURtEztI/ZmQM 0RF58b8rXhVgiHHfP2jTU8e5p+q/qCcS0XF60T/pWCHmiLfvvyDHWdP7/9A/ ZyYUWX6G6r+fCVHAHIPPP/SPPTHkWPG/WJfa4pgQ2j9ZN4xjUALsvwAoFwse C8k/CZCekZw977934YfKVvrPP3dzxQI8V/C/HtNdSgdT0D/TH0urYrjrv+aj 6bv0F8Y/JGIBcAvk6797psG8ssnFP5k1nm9Yt+2/gYLFlt5b1D993r00A/3v v1DTQtPVk80/Gdubo/Jy8L+i6YMFZ2HUP/3rgWxH9vG/bAecty1Xyz9c6vcS Y8Xtv9OdCex54dQ/6XJ29sZN7L+4CoRbYY7IP3hDe7ULWey/ak3naimp0z8G xaYLCQ3xv8TMlTFKg9M/HyAAm15h7r/K6doC11/RPyxcDfWswe2/L6pJ6cNz zj+KBZ6qVHrrv2VDMVGlf8Q/KwuMavb67r94RsxnoR3LP8aZfKlD/e6/y7nE e5gj0j+J1X+JV5buvzu4aO8Jv8Y/x+VeMxgs678RXUNojlrRP3abfUiGzu+/ WJNLhHeV0z8SYwUfx3XvvwZeVLqYE9I/Z3ZWGdUj7r+gDlnJD0nMP1Xsi6Sv ++u/h/SqFo6Pzz+us1cUFXztvzlMQiZU4co/YYRYera+7b8I5stVaEPOP3jS 5MQ4vOu/qi/mTJ7Ryz+qNq4U "]]}}, {{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}, {{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {-0.4924899599928702, 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]], Method -> { "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-1.1264305944004094`, -0.5054275239603707}, \ {-0.6919304730315173, 0.49130448706771074`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"setosa\"", "\"versicolor\"", "\"virginica\""}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"False", ",", "False", ",", "False"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.78672279854078*^9, 3.786722802935161*^9}, 3.786725030564616*^9}, CellLabel->"Out[617]=", CellID->1940019716] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", CellID->540091361], Cell[TextData[{ "Illustrate multidimensional scaling on textual data using several popular \ literature texts from ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ExampleData", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/ExampleData", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.7867420284262857`*^9, 3.786742098970705*^9}, { 3.787676887897831*^9, 3.787676893387108*^9}, 3.787676950626955*^9}, CellID->2069423609], Cell[BoxData[{ RowBox[{ RowBox[{"textnames", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"texts", "=", RowBox[{"Map", "[", RowBox[{"ExampleData", ",", "textnames"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.786741035131361*^9, 3.786741118029304*^9}, { 3.7867411907699842`*^9, 3.786741219845776*^9}, {3.786741330049365*^9, 3.786741333996738*^9}, {3.7867413775679502`*^9, 3.7867414034482317`*^9}, 3.786741435418477*^9, {3.786741467235285*^9, 3.786741469075308*^9}, 3.786741506196411*^9, {3.786741566951016*^9, 3.786741569228364*^9}, 3.7867416548727407`*^9, 3.786741868601053*^9}, CellLabel->"In[42]:=", CellID->1476525278], Cell["Break each text into chunks of equal string length:", "Text", CellChangeTimes->{{3.786741872480352*^9, 3.78674188932835*^9}}, CellID->1386126503], Cell[BoxData[{ RowBox[{ RowBox[{"seglen", "=", "5000"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"chunks", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"StringPartition", "[", RowBox[{"#", ",", "seglen"}], "]"}], ",", RowBox[{"UpTo", "[", "20", "]"}]}], "]"}], "&"}], ",", "texts"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"chunkwordlists", "=", RowBox[{"Map", "[", RowBox[{"StringSplit", ",", "chunks", ",", RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"chunkwordlistsB", "=", RowBox[{"Map", "[", RowBox[{"deletePunctuation", ",", "chunkwordlists", ",", RowBox[{"{", "3", "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.786741035131361*^9, 3.786741118029304*^9}, { 3.7867411907699842`*^9, 3.786741219845776*^9}, {3.786741330049365*^9, 3.786741333996738*^9}, {3.7867413775679502`*^9, 3.7867414034482317`*^9}, 3.786741435418477*^9, {3.786741467235285*^9, 3.786741469075308*^9}, 3.786741506196411*^9, {3.786741566951016*^9, 3.786741569228364*^9}, 3.7867416548727407`*^9, {3.786741868601053*^9, 3.7867418975366793`*^9}}, CellLabel->"In[44]:=", CellID->1658168814], Cell["Find the most common words across all texts:", "Text", CellChangeTimes->{{3.786741902528908*^9, 3.7867419187695627`*^9}}, CellID->188351835], Cell[BoxData[{ RowBox[{ RowBox[{"pwordcount", "=", "500"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"talliedwords", "=", RowBox[{"Tally", "[", RowBox[{"Flatten", "[", "chunkwordlistsB", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"popularwordsandcounts", "=", RowBox[{"TakeLargestBy", "[", RowBox[{"talliedwords", ",", "Last", ",", "pwordcount"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"popularwords", "=", RowBox[{"popularwordsandcounts", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"popwPatterns", "=", RowBox[{"Apply", "[", RowBox[{"Alternatives", ",", "popularwords"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.786741035131361*^9, 3.786741118029304*^9}, { 3.7867411907699842`*^9, 3.786741219845776*^9}, {3.786741330049365*^9, 3.786741333996738*^9}, {3.7867413775679502`*^9, 3.7867414034482317`*^9}, 3.786741435418477*^9, {3.786741467235285*^9, 3.786741469075308*^9}, 3.786741506196411*^9, {3.786741566951016*^9, 3.786741569228364*^9}, 3.7867416548727407`*^9, {3.786741868601053*^9, 3.7867418975366793`*^9}, 3.786741933009486*^9}, CellLabel->"In[48]:=", CellID->55762364], Cell["Create common word frequency vectors for each chunk:", "Text", CellChangeTimes->{{3.786741936449532*^9, 3.786741978257319*^9}}, CellID->298769263], Cell[BoxData[{ RowBox[{ RowBox[{"popchunkwords", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Cases", "[", RowBox[{"#", ",", "popwPatterns"}], "]"}], "&"}], ",", "chunkwordlistsB", ",", RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"talliedWords", "=", RowBox[{"Map", "[", RowBox[{"Tally", ",", "popchunkwords", ",", RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"pwordposns", "=", RowBox[{"Dispatch", "[", RowBox[{"Thread", "[", RowBox[{"popularwords", "\[Rule]", RowBox[{"Range", "[", "pwordcount", "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"wordvecs", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Normal", "[", RowBox[{"SparseArray", "[", RowBox[{"#", ",", "pwordcount"}], "]"}], "]"}], "&"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "/.", "pwordposns"}], ")"}], "\[Rule]", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}], ",", "talliedWords", ",", RowBox[{"{", "3", "}"}]}], "]"}], ",", RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"allwordvecs", "=", RowBox[{"Flatten", "[", RowBox[{"wordvecs", ",", "1"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.786741035131361*^9, 3.786741118029304*^9}, { 3.7867411907699842`*^9, 3.786741219845776*^9}, {3.786741330049365*^9, 3.786741333996738*^9}, {3.7867413775679502`*^9, 3.7867414034482317`*^9}, 3.786741435418477*^9, {3.786741467235285*^9, 3.786741469075308*^9}, 3.786741506196411*^9, {3.786741566951016*^9, 3.786741569228364*^9}, 3.7867416548727407`*^9, {3.786741868601053*^9, 3.7867418975366793`*^9}, 3.786741933009486*^9, 3.786741989049962*^9}, CellLabel->"In[53]:=", CellID->1232555736], Cell["Weight the frequency vectors using the log-entropy method:", "Text", CellChangeTimes->{{3.7867419929301023`*^9, 3.786742014114205*^9}}, CellID->726541574], Cell[BoxData[{ RowBox[{ RowBox[{"globalWordVec", "=", RowBox[{"popularwordsandcounts", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"labels", "=", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"j", ",", RowBox[{"Length", "[", RowBox[{"chunks", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Length", "[", "texts", "]"}]}], "}"}]}], "]"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"frequencyMatrix", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"1.", "/", "globalWordVec"}], "*", "#"}], "&"}], ",", RowBox[{"N", "@", "allwordvecs"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"globalEntropyVector", "=", RowBox[{ RowBox[{"(", RowBox[{"1.", "+", RowBox[{ RowBox[{"Total", "[", RowBox[{"frequencyMatrix", "*", RowBox[{"Map", "[", RowBox[{"log", ",", "frequencyMatrix", ",", RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}], "/", RowBox[{"(", RowBox[{"Log", "[", RowBox[{"Length", "[", "allwordvecs", "]"}], "]"}], ")"}]}]}], ")"}], "/.", RowBox[{"log", "\[Rule]", "Log"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"weightedWordsByChunkMatrix", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"globalEntropyVector", "*", "#"}], "&"}], ",", RowBox[{"Log", "[", RowBox[{"1.", "+", "allwordvecs"}], "]"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.786741035131361*^9, 3.786741118029304*^9}, { 3.7867411907699842`*^9, 3.786741219845776*^9}, {3.786741330049365*^9, 3.786741333996738*^9}, {3.7867413775679502`*^9, 3.7867414034482317`*^9}, 3.786741435418477*^9, {3.786741467235285*^9, 3.786741469075308*^9}, 3.786741506196411*^9, {3.786741566951016*^9, 3.786741569228364*^9}, 3.7867416548727407`*^9, {3.786741868601053*^9, 3.7867418975366793`*^9}, 3.786741933009486*^9, 3.786741989049962*^9}, CellLabel->"In[58]:=", CellID->1993575262], Cell["\<\ Show the result of multidimensional scaling in two dimensions, grouping text \ chunks by position of title in the list of text names:\ \>", "Text", CellChangeTimes->{{3.7867421236196632`*^9, 3.7867421843770723`*^9}, { 3.7876769351694937`*^9, 3.7876769453169208`*^9}}, CellID->699035179], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"wdim2", "=", RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"MultidimensionalScaling\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"MultidimensionalScaling\""}], ResourceFunction["MultidimensionalScaling"], BoxID -> "MultidimensionalScaling", Selectable->False], "[", RowBox[{"weightedWordsByChunkMatrix", ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"byAuthorW", "=", RowBox[{"GatherBy", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"labels", "\[Rule]", "wdim2"}], "]"}], ",", "First"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Values", "[", "byAuthorW", "]"}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Apply", "[", RowBox[{"Union", ",", RowBox[{"Keys", "[", "byAuthorW", "]"}]}], "]"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.786738419496645*^9, 3.786738439131974*^9}, { 3.786738548325708*^9, 3.786738568198758*^9}, 3.786738672454864*^9, { 3.7867391375444*^9, 3.7867391432316217`*^9}}, CellLabel->"In[801]:=", CellID->355142407], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAbxiUhwMv579vbtLWWE7gPy4ZP3e6 m+S/Wg/1gs7k4T8YcGWB8LDkvxxrLeHYxNo/heiHLQOi4L8TgjNz+ozgP/rJ lWqjDee/oJmlhWgY1j+rhV2Nm6Dmv1CVIFEF8+I/gJ1Ir1zI7L8h/ryD1Lbh P52drI1WO+W/cHp4a2II4D99nKZIFt/lvxESpl+YCN4/WzK59I8S4b+0xWn1 22DgP7RckBcp4ee/clg1X0Fv3z/BBRvH7GLkv/8HaopwNdk/skjeCUF07r+7 OYlWokzlP3Jd5joMAuS/nULRnG9+3z+FBkpy7ejkv05NsuCu/eE/iugQ+knE 5b+jOy1OPxTgP8SLzY7HweS/0400sgP54T9CttYwWZDmv6Ig8JG7SNM/kbvf N49M5b/6yNdXB1/iPzGB/ZHoIuy/1/KFVhja2T+eD6/H "]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[{{0.9207539168921764, 0.37193982972830136`}, { 0.7778062950890522, 0.22321781675985852`}, { 0.7804090794658314, -0.017002564055331154`}, {0.7819424512101844, 0.07089701365094743}, {0.8473996209418615, 0.2875439946751613}, { 0.8787790964855001, 0.0689024675698772}, {0.8186659639181847, 0.09232898178631736}, {0.9404212334991157, 0.06106695488178075}, { 0.6451232571323248, 0.03592140082210936}, { 0.5777074957623546, -0.08822026542936619}}]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAy8WfPXIv6L/+s4Y/COvwP3PDr5Vo TuO/OBBi5lcg8j945UHkG9brv42a0KFzD+w/dVx9ybCg7b8rBi1ZEsfwP4r1 dvNhVO2/HkLMKURy7T//BSzyp4/rvy9iZc4vLfM/dr2rohEM5r8rURwM3ETy P/95Lx8bqeO/RsTKJrcs8T+Hab0gx63kv8dEK1oMpPE/btDUlErR6b+ToAG0 BAvvP00lzXtpbeS/ZYnSq1MR8j+rTYXiNeHpv+8wYtDwM/A/dIK/+kw95L9M J/5uDNXwP1M66w+lTO2/cFVMDTnJ8T/mbvImTBnqv2qprH7qmuk/R3of6dUh 6b8lYXXHnpLwP9zaHjsNVOy/QkC5x7hp8T/iHVrJX1Hqv+JcSlaF5PE/1Akw qaHx5b/CV0Gsd/jtP7u7kGzVoOe/uk0n6j/H8T/j6q5W "]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAA4ITJnIBM3L+XnMCVljC3P9AyHxVD Q9G/cMyx1Ddspb/ldg220NPUP0AleTOHKp8/ThynF976wj+JIAP8Wvu0v1d3 n2tbyp2/NTVeSnoe2D9l4geMa1DSP9OrT8NWSdc/V0idki8W1T+AFGJvK2XR PxqIfLbA44q/A0REQFD22j+Pav4whJfVP42YT9GJDc4/O5eJd65h0D8F3noL l53WP2GSc6I20Jk/zUAkq+aO3D/fPHsGDubMP1HYOnIxA9s/ngixhO2+yj/F 1F/e/6vRP8mhJ6CUhLg/DBljcFD40T+0xSwV2Ee/P7VYd5TCY8Y/J6KCJtjO yz9xm2OnkTbUPwdlU+0x1tg/+7NDYYKq2T9ApTrdp8/bPyXDcr6dSMs/4i8o DmTF1j+D9we8wdLQPyBzvF/tAdo/h9iz1HXE0z9OMKNO "]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAPQBqAfmw7b9juCQpSXr1v8xZ+C1v P++/NILylAKe77//zFXO7tXtv0aZMKQ/Sfm/0ovs6Y8Q8b9IjEDrLQv9v7Ub jqL/XOa/PLllMTqD87+rX7tlVSTyv3H3uc2flPy/zoskfNWl8L+35tBYjl3z v2MViCkBJvK/JwpVbeBBAcDfx0G5Dszlv/M6mJb5lfK/D76eIUBu678mH1gr RDf0v81NUhHsleu/HATY3Ah4A8C++BRhxuvfv8cARG/zafe/7nJBR8HV578d V7c0WSzzvy9qPezN++a/9oAGHTvx8L/6Z/x2gRjuv2vyv7OHQ/y/ebDz/EuP 6L8ackuCMC33v0d9aBhfjvC/ftyTULDHAsAhmO5ekmjrv1bqa7Y4nPm/Kv2e P+bS7b8AEqe+TxYEwOL9ENIA9O2/CwHxfrm0/7/V/bc3 "]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAQ1BO9ahL9j/O44JC2gLWv/yFy62o ZPk/n1nVVKy/0r85lQngbm7/PzJi0ggD+Li/Mk302KLo/T+QUYsDAAjTv0hh lY9qRfc/Adrqu5TCsj/eGocMNsb/P6QL3nNvNdW/Enzrd0019D9aBNF66XzL v8tTx9Y78vc/MM3gxhqS1r93rPIwTun6P3NinXpQcMS/8uArEZZ2+z/cIJDR iHjZv8YRlO25FABA0x/OI2sZrL9f4yJUIiQBQLmUcnwpDc+/lzhksvDb/z+C qYrgoCXLv33oW+RVjwBAWvj6ZfzS1b+r6w+DrSkAQLs/of8pPNK/qE9j2d3t 9z+cLsNWGyfev5biTv1sUv4/JjtVe4HZzb/jJQepljgBQJVS0QcwJcO/dMIf FkWU+T9fv4uidl7RvxbusZmmz/4/DRQy02CAr78iv6tj "]]}}, {{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[ 1.6]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{ Directive[ PointSize[0.009166666666666668], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.009166666666666668], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[ 1.6]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, 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]], Method -> { "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-1.1342784521414948`, 2.152631111651077}, {-2.5108942885146917`, 1.198531919702997}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"1", "2", "3", "4", "5", "6"}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.528488, 0.470624, 0.701351], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.3523253333333333, 0.3137493333333333, 0.46756733333333333`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.528488`", ",", "0.470624`", ",", "0.701351`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.528488, 0.470624, 0.701351]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.528488, 0.470624, 0.701351], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.772079, 0.431554, 0.102387], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.5147193333333333, 0.28770266666666666`, 0.06825800000000001], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.772079`", ",", "0.431554`", ",", "0.102387`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.772079, 0.431554, 0.102387]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.772079, 0.431554, 0.102387], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{ "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.786742158601506*^9}, CellLabel->"Out[803]=", CellID->1873060616] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->False, FrontEndVersion->"12.0 for Mac OS X x86 (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, 56, 1, 70, "Subsection",ExpressionUUID->"b547181f-f262-4771-9296-ce0b08bf9c34", CellID->462042388], Cell[639, 25, 140, 2, 70, "Text",ExpressionUUID->"53831f97-cafb-4fc2-be9e-9c142bfee5ae", CellID->71406904], Cell[CellGroupData[{ Cell[804, 31, 2311, 60, 70, "Input",ExpressionUUID->"c9c78a90-76a1-4d57-8002-e3ee7cfb098f", CellID->198385024], Cell[3118, 93, 636, 19, 70, "Output",ExpressionUUID->"ba2a71db-a8d9-496d-9ddd-4474eec3746d", CellID->783174982] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3803, 118, 47, 1, 70, "Subsection",ExpressionUUID->"6ddb7d36-6cbc-460d-9a3b-b96d89a6258e", CellID->964056545], Cell[3853, 121, 76, 1, 70, "Text",ExpressionUUID->"8995214e-425e-492a-83e7-b1ae71fb0961", CellID->1692697924], Cell[CellGroupData[{ Cell[3954, 126, 961, 28, 70, "Input",ExpressionUUID->"a1bcb4e3-5481-4990-b6b8-8319631ac84e", CellID->253224234], Cell[4918, 156, 47110, 783, 70, "Output",ExpressionUUID->"21e9ffe4-aecb-4aff-a016-2a6a379f33bf", CellID->667099093] }, Open ]], Cell[52043, 942, 86, 1, 70, "Text",ExpressionUUID->"81684445-4b13-4c42-80e2-4f5bc6f3a29f", CellID->1753503951], Cell[CellGroupData[{ Cell[52154, 947, 2108, 51, 70, "Input",ExpressionUUID->"13ac2fb6-cbd4-4a37-8b2a-f2ca51641b93", CellID->479089917], Cell[54265, 1000, 33081, 561, 70, "Output",ExpressionUUID->"9d688154-a8a0-4463-8a29-7da752224525", CellID->1854866658] }, Open ]], Cell[CellGroupData[{ Cell[87383, 1566, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"f4436628-36a8-456e-81b2-d2d0a10c662b", CellID->511113564], Cell[87511, 1571, 483, 11, 70, "Text",ExpressionUUID->"5bb4d7c6-b085-4cdc-872a-b18582ce6a1e", CellID->649685796], Cell[87997, 1584, 1101, 32, 70, "Input",ExpressionUUID->"4748110e-7b27-4e86-bb35-e571b085b421", CellID->579196996], Cell[CellGroupData[{ Cell[89123, 1620, 2089, 51, 70, "Input",ExpressionUUID->"f52f827f-14c9-46e7-bf7d-67c4b409d84c", CellID->1604890712], Cell[91215, 1673, 47947, 796, 70, "Output",ExpressionUUID->"2f8ab055-77fe-4296-8353-17c1cbe24398", CellID->1042708737] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[139223, 2476, 134, 2, 70, "Subsection",ExpressionUUID->"13066aa7-a997-49c1-a6d4-940a39c7650a", CellID->568056528], Cell[139360, 2480, 1199, 37, 70, "Text",ExpressionUUID->"8b1187dd-32e8-4930-8226-b5b1fc587714", CellID->480295437], Cell[140562, 2519, 293, 9, 70, "Input",ExpressionUUID->"0659fa24-e90d-4f1c-bd0a-0e8c1abf3969", CellID->528164402], Cell[140858, 2530, 73, 1, 70, "Text",ExpressionUUID->"12929877-1b71-4562-9125-ec78522fcfb3", CellID->406019816], Cell[140934, 2533, 2267, 58, 70, "Input",ExpressionUUID->"8467a6ea-9228-40a4-9d04-f6b823e482da", CellID->433043290], Cell[143204, 2593, 73, 1, 70, "Text",ExpressionUUID->"ef01b03f-ae2d-439a-992f-4fef4b162d7b", CellID->1915074532], Cell[143280, 2596, 465, 13, 70, "Input",ExpressionUUID->"27974baf-40c0-4a75-a1af-576718462271", CellID->1261003874], Cell[143748, 2611, 67, 1, 70, "Text",ExpressionUUID->"28cb9ef7-c6f8-4057-93ce-3bc00e04b867", CellID->1739901460], Cell[CellGroupData[{ Cell[143840, 2616, 331, 8, 70, "Input",ExpressionUUID->"3e7b958e-c085-4a93-ade7-337e87da6179", CellID->139318928], Cell[144174, 2626, 20368, 422, 70, "Output",ExpressionUUID->"3a4209f4-d187-4fc9-ae3c-fccab6b9c1df", CellID->1838949966] }, Open ]], Cell[164557, 3051, 845, 24, 70, "Text",ExpressionUUID->"e047b33d-2971-4fed-929b-a6f5043f401d", CellID->1905882370], Cell[CellGroupData[{ Cell[165427, 3079, 1108, 30, 70, "Input",ExpressionUUID->"9337f1ef-d9b0-402d-9831-a66c0483e2bb", CellID->1210683], Cell[166538, 3111, 20366, 422, 70, "Output",ExpressionUUID->"72681d98-fc6c-4531-a0ac-1a1e7a6031a4", CellID->1692077779] }, Open ]], Cell[186919, 3536, 223, 7, 70, "Text",ExpressionUUID->"81db39cc-ab24-4955-9239-2c13557f7520", CellID->1207596765], Cell[CellGroupData[{ Cell[187167, 3547, 1210, 31, 70, "Input",ExpressionUUID->"7bae5ca9-9883-4514-86e7-e9e242fd8c38", CellID->1334044255], Cell[188380, 3580, 19275, 405, 70, "Output",ExpressionUUID->"0d34b17d-5dbe-4490-bb61-b43838176b07", CellID->451030186] }, Open ]], Cell[207670, 3988, 303, 8, 70, "Text",ExpressionUUID->"8c0de6f1-cd39-4a0e-a960-35b02486ea08", CellID->1650065249], Cell[CellGroupData[{ Cell[207998, 4000, 1055, 29, 70, "Input",ExpressionUUID->"46e18549-bff2-4ec0-940b-15b15be6cfa1", CellID->1318800809], Cell[209056, 4031, 20377, 422, 70, "Output",ExpressionUUID->"76ec01bf-9482-49d5-9ffe-bc9d0e48be45", CellID->711768849] }, Open ]], Cell[229448, 4456, 836, 24, 70, "Text",ExpressionUUID->"e5401b23-5b30-4182-bdf3-346b8e631952", CellID->817633777], Cell[230287, 4482, 774, 21, 70, "Input",ExpressionUUID->"32ff46c9-107a-476c-ab5f-d43d67916529", CellID->745137277], Cell[CellGroupData[{ Cell[231086, 4507, 950, 28, 70, "Input",ExpressionUUID->"4a64bd4a-83b7-4a22-a17a-ed38bfd64ea4", CellID->2013123683], Cell[232039, 4537, 20408, 423, 70, "Output",ExpressionUUID->"bda8f370-6ab5-43da-9149-222131d1c8b6", CellID->1940019716] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[252496, 4966, 55, 1, 70, "Subsection",ExpressionUUID->"069829a7-1416-4ef2-9f42-50b1edcc0308", CellID->540091361], Cell[252554, 4969, 778, 22, 70, "Text",ExpressionUUID->"307359e3-e063-4016-a22c-b0d5dd23be1e", CellID->2069423609], Cell[253335, 4993, 1273, 30, 70, "Input",ExpressionUUID->"5c4841dd-38fb-48c8-8c15-ce9a80cbcca9", CellID->1476525278], Cell[254611, 5025, 153, 2, 70, "Text",ExpressionUUID->"824d0d18-e8d3-4a97-b6db-3a2df75bb411", CellID->1386126503], Cell[254767, 5029, 1294, 31, 70, "Input",ExpressionUUID->"c882b2b5-a62b-426c-aee4-2577264b4f9d", CellID->1658168814], Cell[256064, 5062, 148, 2, 70, "Text",ExpressionUUID->"28034d7a-e0e2-4f02-8e2c-eba285ea2b17", CellID->188351835], Cell[256215, 5066, 1268, 31, 70, "Input",ExpressionUUID->"0569ee32-af27-4b8b-b33b-5f104dacdc7c", CellID->55762364], Cell[257486, 5099, 154, 2, 70, "Text",ExpressionUUID->"6b0d1e44-b416-489f-85c4-0a261de9fd1b", CellID->298769263], Cell[257643, 5103, 2047, 55, 70, "Input",ExpressionUUID->"e8411334-aa59-4965-ae78-e5e0c2b64edc", CellID->1232555736], Cell[259693, 5160, 162, 2, 70, "Text",ExpressionUUID->"f16176b3-a76f-4b9d-8bb8-eb2f62b8e709", CellID->726541574], Cell[259858, 5164, 2213, 60, 70, "Input",ExpressionUUID->"365f5d7b-a006-4524-b2c5-b70e6e1f6249", CellID->1993575262], Cell[262074, 5226, 300, 6, 70, "Text",ExpressionUUID->"255817fc-510f-47a1-a4fb-c888a06bfd05", CellID->699035179], Cell[CellGroupData[{ Cell[262399, 5236, 2793, 70, 70, "Input",ExpressionUUID->"370bb123-b7d4-460e-97c7-4e07f945fa5d", CellID->355142407], Cell[265195, 5308, 33078, 695, 70, "Output",ExpressionUUID->"ab1ed38f-c3e2-4c4d-be74-c54f18c198aa", CellID->1873060616] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)