(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 342228, 7044] NotebookOptionsPosition[ 333538, 6851] NotebookOutlinePosition[ 335652, 6911] CellTagsIndexPosition[ 335609, 6908] WindowTitle->MultidimensionalScaling | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount",ExpressionUUID-> "8bce77d4-ccc7-4dca-8194-33c1e91fbde1"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->904125756,ExpressionUUID->"11fab332-62a0-4d2a-b6ee-d159c183aadf"], Cell["Reduce the dimension of some vectors:", "Text", TaggingRules->{}, CellChangeTimes->{{3.787676676645804*^9, 3.7876766853779635`*^9}}, CellID->835575997,ExpressionUUID->"f2d26ac2-ddbe-4eaf-9116-134941518d66"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[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->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultidimensionalScaling", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[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->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultidimensionalScaling", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.1.1\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/6a4a06f4-b0fe-4509-8484-35ec1440fffe/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], #& , TagBoxNote->" "], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultidimensionalScaling"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction[ "MultidimensionalScaling", ResourceSystemBase -> "https://www.wolframcloud.com/obj/resourcesystem/api/1.0"], 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", TaggingRules->{}, CellChangeTimes->{{3.787676609755787*^9, 3.7876766279797926`*^9}, 3.787676702415476*^9}, CellLabel->"In[32]:=", CellID->885313591,ExpressionUUID->"01665e15-2a2e-4078-ad77-b4bf12bcf4ff"], 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", TaggingRules->{}, CellChangeTimes->{3.787676628548598*^9, 3.787676706153122*^9}, CellLabel->"Out[32]=", CellID->253035167,ExpressionUUID->"ad002ecb-9090-4689-87a8-1b6e1e40f0d0"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount",ExpressionUUID-> "7193862d-ad1b-42fd-ad5c-5bf7e0aaf59f"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->204653245,ExpressionUUID->"664d5371-cd8c-445b-bccd-baad2bfce434"], Cell["Create and visualize random 3D vectors:", "Text", TaggingRules->{}, CellID->360239918,ExpressionUUID->"d65c44b6-af98-465d-b0aa-b8da7c7a2dff"], 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", TaggingRules->{}, CellChangeTimes->{{3.78672152332311*^9, 3.786721529081675*^9}, { 3.786721618188362*^9, 3.78672162760357*^9}, {3.786721919993059*^9, 3.786721922207905*^9}, 3.862570483206068*^9, 3.8630090773335323`*^9, 3.8720020926792297`*^9}, CellLabel->"In[221]:=", CellID->678834580,ExpressionUUID->"fcb974b6-424e-42de-88a0-d7cd153ba5dc"], Cell[BoxData[ Graphics3DBox[{{ {RGBColor[0.3315753, 0.4561011, 0.6388182], PointSize[ 0.009722222222222222], Point3DBox[CompressedData[" 1:eJwUmmk4lW8Xxc98zA5SkiSphIqipLJ3JamUIYlIlEqSlIqikj8SEkkolURR SCVRyDwls0iSeaZjnnnv95MP5XnuZ99rr/Vb12X5iQuGp2gUCqWBSaHQyU+j E7+EomZYuO6rnFSjPAs9oh79CbvDwgcbbnIePGEjN1N16y3rfuAM/3t0bdUf kNgURC8z6wbnNReyugbnQH461MQxfgjq9k0U7eP2QFxF9hzVjIryXlkHgnv7 wZnRXhv5awjcBDMpvp+rQL26f/TGo3KwPP6xNiq2CCgi83ypvtngkOBv1DDV Bg0nrAtcRMZA3mDg2pFsKham+sbkXZiHaj/bKymJDJwQn8hxMpoEV5u1pppb 54DyMPp23O5s2Fl9LMeqgIV+XPEti9o6ocfd0X9+DxszL4k4iW2YAZuch8P7 qTQsP+Hxss0jC/x16VITN+gYY2y4eHQ9FygOXQLbr0dB02/5Ip00KspU2rsw T/WB6PSVS72BbFxwxH1l86k54O5LjjhhMwibtmRZWuXQUUDy17l1yymYuOB2 f/KbMSjf/EGjQ6Icus5/m5XKmgYenjchazb2w9yJVu0JNwb6DZ44wawZB54L MLW+ahYyuyh3ln8m82I7vu73HwZ5OXOraqkpGNHq1f5IIXNdI76qvnoKyi8f 6xXK6AGJl25iO/dwIUNi7IOuCR09Fg0pGZ+chK7n5zVq3v2D8FdTLY3bp8Hk 8GqTV6xZcH5jrdvydRCaArRUp6EHLKMENSQOjUPb2ll9eVMKRm5opwo30TEx /9O7esofqN6/OeWi5zA0LN9t72g2AlFT095zlf+gPEqZt3QhFU/f/bXPh5+J EdZDTD/HMbB5suvBJT8WUopuxuWdHgeJ4QFJxcMtoA9/MuJzWKhUWBWnVj4B 3pWPF0n87oWAs087qg/mgJLVsM1+Oyo6M8R3bTIj9xjB/q9iWy5Uf18rpJUz BuYoUJDmNw86oX8vW7+gYcyEU+PfoyOQO3r12bDQPCSF7w3KLeKCDZV+b0kk A7fVTaVut+AC9/Y6CXpyP/Cohd1/tZWNbepXzc8tmITQp1Ux3OVz5LyBNYXG w5CpJStxbegrRNRIBOysn4MFYQYSRqemIMnry8Bu8v895DZyvi3uB4Eio2OW rv3w0L67eYjoEX9m70LjGkgaWDOZ7NIKDrsllR7OD4HrmlBBYaUO8A4avLVR mIqirCUNZ8MYKFF6PmrFwTag3AuIWf2pEvQ/i9TNDkxDjGk4Y/fNXnB+tBYc egYh0fXZDStWG2zaf7DfejsLlfspc7JhM/Bw2yzPW3kaZordLbs7NQ+hyTZD 1j+HIc224G5xNRfceiSEHv2uh2qJM7lVlHlYKBpxWtqbgU3yqxbK1PyEOmvR mhtXZsHGc5t0fQ4Ds/dU34zToqM5K0TcazENU0y2v2z/R8cx7/a41ToUjJiK 5T9o9APMY7eYM47T8GbNHS/nVXRs2FjNSugfhnLv7PUx5c3AXbUz6fRBGnIN 27y4JWzUf9e4eLVZPbiph2/avaMauLLZVXPR9aDu+8AgZuEIpN1/XXV/Lx2b rj2Wp30oBRbVsrYKKMio2PtmfHQOkhu7qReyqGjjkKJn1j8PtqlZhyOe0VCr l2H4n+sQKH9zs1AS/Qsy+asVNqrTMcr62J1uuVFwq/s6YODTCPZ28c5n/lLR 6+YhVYEmCr7JEfbbZka+r0Tp38EDI+Dd3V4s2cdCk2di8V0v/4H76QbWUgod vdmxV5QUK8HDfW262+JxCBU0NbnHZGDhzQEx7s8+kIq4+C/54jBYforov3qH ihPNBsfraukoEbhpfORGH+jnnzlQs5GGGvt+0BOWMLGBvUMuQrgVQq9tDa+c boWR93dp8ewZWNi+cKnfGwpyOCfFivkyIeKjktj6+9+Bs+l0z9qOetC57jgE q2i47uLeRzI5VCz/uBMlpcehfIXf2Wf19bDNzO3yE1cKTgwYfh++zkDlH8uY Uo8bQFLIVN/dnIUyjimHz7oPAzc/Ky15Xy14X7hYpN/Owj7T0WkK0Q0PP8+t Swr/ICq3uNtuxzT4/V1lX6P4Dyj+yheLp6fgw3jTmuNSdIx78O2L6qV2kM96 YbuC6N5Cf3Y4Zg05j1+EyAtZ4vd3i/pLP/8EnYf6IPuyGxL3HUwXVBoGSv6Z 1XF77oJJfqbk1OtRsFF2v7DzA9HNhtqRgbBx0H9zIPWHSCc0+SVz7st8B+cl Sr8oy8fAUnJ286mDs2BZVNOWw2Yi9+XcFR95Jjrv22r5RWwUpIxd9Z93UrH6 W0u0SEEfRFSrvtjf0QTegjo3Nq8bAS2rjSVNbcTvbsm6ZmeR+/J+KnD47RyE 610YKzQaBXXnk4vqLAbBeesI79elXeBzUXPJGR8Gjsz4hZrmdALPm6cf17qN g+6ejYOb1XoAd8Yut3WpBMvbv+Wd31ZASt63G1M2w6D1+8sV5kU2Tijf2XV2 Ex2Vy9cgQ6cIRv6rX+16hIGUNqmjsR0F4Dzn3fZjyShQDCRrxv/WwraVWwMW js5D4rmDIe9PlYODpNwTiS2V4OZ70uRLRzoELNjpoNk1CZStG6obhooge/7g 0B1dFratlUr+KzQLhf5vl7gqTgAl8Utmz0sLYGSfe7/s2CyUS4h8zZloAY6H yovan/1wtNig4lMiHbnLx9y3jBH9ni3TGDSfAv+3ke0KESx02Ja0QsaWiarh +/JdFrLQeyhduTtpBOZkP0XKjrHRLTeiLIJ/FKb44g7fI/uuvtbhUf3EFNz8 U8c+McdGZeaNoN2Jc1D+K/s/l4oKiLhZYLrSLAeU34n/1FJvhtCOdJPqJ/8g s5FeHSpAQ9u6SBv/LSTXLh9RO35pDqRyuG2DWSTHcn15D52ZBLSUi2zc/R2S ulbcXmnJxLFjzsZRYWyUGWZgahIXCh937nva3gkPfZdx3wWOQkBNo7Bixwzo xGu3xVlPQkz5JeOyexSUUDI9m3OJhbYtHu8NNAkfKJWo2ITNgXrejlaBOjaq m2n+4uylIU+ulVSZJ+ELixuq8rl0jCj5VnAuZQQowWrSZ17kgOrZUNxP9tNn lcQtyyoWRmwPXgfVQ5ApVVpuG/gFAtT2Gn3U/wUyu8wsK44UgfPpWLmDQlyI k82WOpZK5jWcRpFY/BOUgmWjnOvpuPByp+Lhy2TfQ/hSU+uID8WdERejj8FR 5UAZVhYd/S4W1fVf64DrM7lu02ostPmZHiwvNg4Kbo2KKMBArRcfy4SWMTFR WPRcl0ohyHQIqB0VHwDLXIkLPufJHm77nDeuR+5F1P7U8+hWKBw9+ex31zBc jtHaLRNPwabaK9uuaA/Cgp17b++Xp+NEeeTNg+sZqD9g+cHQeg44mXyHw1J+ gnzA0jnRCySHLS6P2ZkSH7h2fHf7VSZmxoTz8BgOgoAPY+NuFQZmXqQHXPPq h1CdhiFebTbmrkqOfbJ0HChNeQ/PE91yreVmO18RHzgMi/D8fYgJv1bfJtAD oYr77afMCGdVPEyoWzkGEZtra1Jax6HroFh+2Z9esLz1dGJyeS6Uf45rN1lT C5S/y61zdsRDQHz+x95qOjo/7PikJE1BHSmHgtZ1XGj62pr/dKwWdDWfbB1R nANst6eK1pZBzI/WgsMXpqCnPGVu4Vc6svQs2s4Rny4czb75dXACzE/58L1/ OQnq4b00UTbJ67cN7ttvzQCn9kRvsizJ9Q0KDQ2uLWCUGxX8MmAICgVFolpK qiCyXTLlyAYGRhXrfqK8Z6DX5fpPM9osrA5daZnBmoImj+DkgDd94Jb/OT+i lQu2Od6fHzczUWBir94jgUFwm21gCAnOwU5ZKqXDgo4zHjMpoQsJh+qczpU1 +wMlBX83Rm0gOfZijWhb1S+I+xOsuODDACQL5b1zL2JgWn1NX8McCwtrip1u TA8Sbtpz3eFWO1B6t/Yvd3oLckpJjVM7p2Fg05XLb69R0NkxRnLF2RFIXLvm XkIlyY3Fy40dOsh91dSdNuBtA+e2O6yfqsOQe11cUKSfijwTQfdyQ/pAQufx nbfyzZAhMzMu6sHGhWkD6UfZNAxfNVkkzWiHxHe/r2z6MAxR8VvWXa+cAWfP hadf/ZwCiZst3vn+FHy4Rj5M9gELm1T+u5ewZQyaNnmuM7mXT3zNdidd/jZ0 rbjKTdIYhep/aV3nl3SAZWXYmvuORBfe1vZppX0QkKBz4Nv5FoicgpnyWBZm hjtJPSfcWD3vqXYnmOi5KKXEqqYLqgX6BBuGpyFg0duOAvtusF82/t20lobO oglW0w9aoFzddt7mRiNkDCSFr95F7nWNwNRrub/g/SY4PlJrBOLSnEIaT1Pw gYy466kGFl5uUsaVOmy07nIMG9eag4CX028Ctw2Dkfqqv+1HqUhR1VMITCsG gTdJb0P8qMgx3XbgicooyMydfuc6R8WIejXLizo0dB2/+ZjPhXDCD1b8tQ80 3Fc2a+dJnu/wtbup/A0bA0zz2/UYY2DSo5xxMWIKLu/h3N5+iPxernvm3wmS zxYXXnj4NkHklT8J5kY0pLholMofHAGdzjGO3qk2iDgT9iuteBKaJDKWapL8 C5jllPmX/gM5cWN7u8JesI5YYRDrMwYxhtMC82vHiR9EBRXRmiFiaPTL9f6/ EPps0ZOLRjNAeX+A0WyWCmm9CahkRXjdWXiTBC8XNm0T3DUVSvTjuX86J7Ub 3LbOHxo0rgNnw+L0yL1NQLnJ6+1h+B5sP+36VbWR+OPyZ+n8e1oJB+zgTxOo ADdpHinl9DegU2DGSdkwCWluZyV4Y7hwyWIoPjqQgsoR+9OdVnWA+nlzHhU+ OursCxk76TEGKT4ybjdrWoDnl0bImuY5SLl142TxOB2TBl0ubs6aBOddp3hM fTrB9oB3+GNposvCuNGD0VT0fpoYLS9HOCjj0aX1OVUgc4ryXWRbOSR+39uR u7UeRtZs261oS8WuxKVlp8neLeBGTylBB9iE+8/bbif3ukPVxs6W7G/C0M2W iTpoUPdkbDgxC/KeT7ZMJ3QALk1a23O7BlQl0iI7xLshhtPvZvtgFGYUve0O 8JH86Y1zXrCoFeT/PVlRp9YKKdv2z620Z2J5of7itcOD4FV9uvDXVjra2B3e IpUzS/ZgY+UWpKPbkYmtCwJKwK2/ZeKX4Rf4KVCevcuejkJP58+l/mWhXWD6 m6qDTEQrlaRVLyOBe7PTpUBoFCwbNh1uFpuHuLm+/zgbSa+992L/edcRiOEq Cxr59YC+o4MNYw8dlRROXG2SngXlaDNqyO1OiErYzgrMm4fyQP2+A8v7QfPQ e9vlhH/MfcQyggppGNEeqr9vwT+yf+ezI4souHCbbniZPAVD+2oU3M5NQd+K 6CWDrf3gIKd1SJtwln5M1IGp2Bzw7l0h+yD2F3AW/EkWK2kCy/vPHc1gDpSa Avuu/h0At5aNlwfrPkH1R+bZNNUpiIhba5HfUgiFCrw5fJWDkHnxuLjn3Txw Hn59Pd1tGloWJMibf2ZggKa1qqJAJ+H8RY9lPIn+BF0jwufJfLeGPmQMDkJh MffV3feN8IUb1hsVQvLP9vO8jsgQyCuur2dsbIbMzyus8q4T/xFvqC1yLQal HHPR51oTwON7x77x6QCYK16a+NdGxaOi46f/k6JgSenMwH+356HJdDlmrqsF CXsDKzHzSbBpl7RUSqiFnmDhCy9L6ZgGv9c1S0/DwzmV5sAvVJQ+KH7geAMF Kezn/gpPm6BJOXjHfqkfMGG0RaG3cRSi+G+mSp+dI897lBWmNA+UIB7NyrhK kIEWtxqdaehy8JBUfD0CXZ7HpW0fMjBOMbOzR5uck9L17p0mF6Jal3buTSf9 NazUiL+bjjx/42YXeLaDOx9GR4fSkeIk4C71Ows4L9VefpMYhfzv78/pazOx zlveriKDiW4v/SL4A0k/t+98tLa4ARgGt4rUYsh7Vo4bHLQYhZhohQ1P30yD xNhrtaM8jZDptXLpYsNe8DZgbLZK6AMUzFvxEeJA/33I2yxD4l9Tr6luB5jY tMuls8e/DSRyLA+7us0Q/h+716o9BdzjF9YbfW+HiDz6JD+N5HhUnZu/Fem1 Sr/cDr6uAIaRvtT1xjFQvXP+zJFNU0C5regfpt4Lj3gXfij8RMOOPWMun0fp 2Jf3O7HyOBcym+7F8l+YgC5fA/WVvzpBt0g1bkKAiUrBv5sO8U8Dx+BroJ4k C0skGo88NhkBm2FvzRgK4Q+5gt9l3kMwsOr4uUA9BnondHKKfDvAzf/Epfq+ DJDZsLDylk4VqB8W5jfbQvzo0M8YwexfUNL8XWlXM+mzP0vbrsT9In3/Ra4u jYHO1fRr+e094HV4ocKSe2z0Lriq9m5DOWQeMVGNH8sAyvCunm4Fwu/vxyIa 5seBIzxXIfSA7PtBSdMkPh/InTrzb18q4c+QNy/OvegEVaFTjy5smgRtf33J 238IB5jLurexiiBKUW/quSMDbf6F761QZmK1Gi3JJomNm35+DayrYKKOyhB9 SRfhMrM7WlpqE+Bx1Vff5egI+Hk2h8r5dADFeN2mC3bDYML738TaPVzYkOf1 428TC1MyZhalHBuBcr95zjEkXJIXqT+cMwrJ4nruPjFsFFWNuGapTUFL05rE 87sHQUbVLtP9bCbgPrcH0o/noE5sZoMH4WAJQ2mfjfpceJR3zUVDjo6WUzq3 5D4VgJKLo2jwn2lItC+r5CiNwOU2ySg1VxomZYY67l4yBfI+jBmXh/NQt0u0 ZfQH4aFXvej9lvDUx7Lbq24zUf3Pk+MHfEnuWp8t6cwi+kkv33lRowl0Z7TM JCWoeFWh+66AABUbPkV879nfDRKVGfUnN85A+d9TFWaX2VgZ9ThltRQN+1TX B8U/4QLF8Jvgmt1p8Kimzcwrk3DTQkP5wl2/wO1E12iHdB+YZL6dvMs3CnUG EXsjzP7Bhgvfv6r9paER+5JnuQkbTbLCbk7dJz4T1aVQWTcMOlOWdJd8wk13 ik8Pb5uDB1hzTJDkk/faB+LGrd1gOR58ZTM5X0fH6JmeISrKLOFZPsUZhSYa VrpozoBHtYGQzCzpmdf/SsRup6D+nOG9tvNTxK+/7Qhu/At+F/OV2UA4KHpP X1XzLFx9Ozps30F0fmtJ3lW5duCxvbEjZJD0vc0WG4+tJNz0NOeFypVuKJG+ /3VZ+zw01C1aw0f23rVsUnKp7hjInN3ZUdI+AvoDE+539ZrAWiX+qvfCedBP iZLb1tQIY9beHk9TaJhZcwFpR+vB7jDt7aNnTOS8FH++b4aJEXLJKyMvNUPh Rx75Z/aDYNPzPl+W9Fdlo+KwLYTPCg2kkgTOTkLDG017+n+kZ1Ze6GHWstAv 8/yWi+vITxi4z39vCnRCJPYJbx0Fuy21jL2zXEiUCT60I3sEvC9bbWL2s5Db pvHB3awdYhasO/dhgOytk+b5wv3zcPpzwbpuW8L9qVs235H+DRKuG3dSC7pJ Tj+9VlM1B7pfHp3xtegkPqsro/WR+H2ojqv+LJlXp9hvzTCSy5374FoNHY10 oTHYmfT/+8WeVS8YqHNXJXGiYAzatOOT/Zb2Qvjd18HH2/pAdq+nhdxGJuqr HVew0GUiV28ivn/4HzTM7XbmTaSgzNfAIgGzUdA/G+xnc3AKHn6X9j2eOATO yamVbkYdIKEQz1QaHQDK0cPNmw8wUKL5WXHlMcIXt/329GpwITfLmF922Tg4 q9vspNVWgcfK6kOTctPAI7B+W3vEDEgoll32X/cLUsrT75cUEJ5ZMtDj/YwL 1scnRvpPknvZrzj3d6YJWlYLTTqRPvMw/jwPl01yQrIzIORqG/S5aT3J9WwG 1XapUvrvcbCX29Gua0T6muP+52FOpdDgzGVqz1AxxdhhVVHsLOhmWfseUSW9 8E9SFteI5EhW/K6Quy/BZPP1DbXULrC+t1qhQ2EKwuugUZ0xBW5dOpeykr5B SuDzAwv5+oAi82CVTbQ1hNdEM9xukFyTWOL2VY18f5y4qdWnEJDRpYuf8SSc HmD4+8kVwlGRTqZmQWVgLjW/atnNKXBtKBos0JwlzyvLfntxEC7Lrfqx9hSd 7IVIzdt4Js5I1aizV5DcOKMgdGSejjLH175ctmgCZK5czTyeOgwyO2dYA51c uKzR/e/Jf03woFFEXEKCgeXWs/Rq4nv78hbs+GlDwTrdHrnMnHmoPrlQRqSa cE7dxqumGTUQUHNUwTytEZpC/yz9vawPtD41vxa4ScEul5evuEPE/7QUPrQu KgVbY68avTEqhooYleqkTIPbuLbU8YpIaLLQFk2uSwHjS9GvTZvI+YJWdg/3 VoAMrXes1asEnF8o+P94Pg2F6YsGG9cNweW7MwsaRphY4pmjIVA1BTJRLjuq f+dCmiq/ivXUIOCQwJOjk8nwoe2J5qU8KrY5/pFZ8K8FUCXq5B4zssdTny5e 3tACblb3Sm7cGgGpo1n6Sf/1grrdHrOPQrNg3i7zKs50FLSM7+yLHp6AusOx PjnkO5rMLxUUlpLfO/6q9F5IJ1DchboO2T+G0MP8XYbZ08Bdvaou8h3RqdR1 ox3frMHPwbE06xMX8OUg76WQfuCc+twqsKYblD0zDp7MbgRdTtha7a0ToL/a 8K7ezl4oDXO3vGdHwRNCVRun1Jho7VLgytk/Bg6WR66HjvyBiJIrCU59ibBJ Q1W8leRwwBL9X65BTRBzhv/ZPUnCM1bqYY3uw8D4+OGRlsIEuGFiYepQJGx4 3GptOUHHOoEZMfnNVOwjjro+fRQKB9lPx83HIf+roFndLzaWbPgYa0Q4mPPo +otjT8ZBPTlq0d7hVtB6EPNs4DLhzw73d/dvJYFDfbhg7lg+eK+hNQUT/5J/ Ebu9zaEHYhIOzy0Zm4RnH5f6GGqx0IjS7pXRwUCePfKhERYUdKP8l+r7gPB6 tPgi3sMfISbwqJfe1y5wmzp1Y09SD3wxaXPie09DzjUjs6iROlC1NJ0y9RgG nkmWzw/LaciI23nEKpKFbpaiZ9jXSyFDpGfXCUU2JtL1JR7spmJi2pXiMoMZ sFzw8sD1UAbGUA/bDHyZgq499jkXS0aA5u4n2pNLckY6FsNCR8Caee9Bgjzh ArHUvI37mShDvZHQqTkGztoRt7Pv1EJm2fYP9UVR0BUifebD1CxkZqx6ua4i FdQlLhYZn/sJltWRlXu9G0D7ZkFOw3fia3Re/iWf5qBJvtfYkfhjz4vykjsy TDQ+Z5J2O56NdRrGUSzZOWizan3tt6gXVGcGWL/PslFe7XFfUc4IFF43FjSH ZnCLUI2OeZgME6WRw6GkX8pmqIXQd7AQ7e02mb+NhRn+8dbFZJ4NUmcubRYi ORV7O2dhWy9QnmS5f697DZy9bu3rjucDZfes22TBFGRe/W+3V1AfqNrotFot bANJ7a//Ke9kY/F27so2S/L9ECHh3zIKlN6EX6cuJoDlZ493KdcroVxjQtHL bhBi5HQ+Jc+2A6Wu52j1+Z8QoGE3/rJ6lPi9X7t48RBwixIWGT7oI/3jqJUD /3doWTg80beUheqrL+xSjOVCitzxM55ms9DU6WwcOzAD+Ny95oF7AWziW6c6 sJvMrexoG7pOgtRKu6sGc61wmaXZt7VsEtxmTsjkxL2B3J39z/N9hsHyF2Nx wHgr1A12l/uKNIFywPNze9rKwUGqkedKKx2ntJ09nrFIf2k6WIUh06AeeMr9 9cUhaFPZc0o4mYkUXe3B+FW+0JgfFaprSXzG0/uXP7cOUhYvLHwoQce2I3I6 xrxUTDid/kiK9EyKWZJeWWQh4Orf4S9FCe+m8cTlPBmBAK+m/w7qzcOjxEOJ N6rZ2LRYtOv76zHQ37RxtRDxLxNm8adrzf8g89CF/yKNqajsv55mTzjYwY/2 /If6H0iTD2q/G9UBzuuLYqxqKiHK9EFFfzHht53Br8+sG4GHmAT8vqR/BUQ0 Wt0n/RqTp1869sPE7qr1zLX/wO7dw9bUPi58+fIo8LsYBS2+1lJMUynocW9S xuvTCFjeS/kgsZn0jVVO13/8+wC6l/7cLqueBq9UXWvmCxbW3X0xLHmIC+RQ Z/gZFJR+Ilgsmc/A6uzzG4v5J0EmbpExfaIeSgR+fPsoMwwTIp/9O+a5EDDv 0Pvm5Ci4LuhJspwi89Qr6RA/3A/yDzpeKb/tAUux8Lfh5Pt4nqtoe58muqYl L58YYqGDwKkKu5ODEHDA/hVvCAsp1poNogcngUE3SGc+HoeA5vfvN3vMgqWI ydqGacLVyUuiO0zGoS8dDi87zUITy3OUMh6is41SYw4fCY9yD/3WxwgIuJNb JF5Awxmnm8cLfUke3xbWuF81DjLvXyyWep0H6ozkz/FttfDKNHt3hg8dk+QV Wc6vJ6GPN+yaJ+EeCZYZTe0xC3Mfbv/rTXKyTpHmBi2zcHpF432BaDraOAm8 W6BFwQXTuQq5wy2gy7j5PbWe9FMRm9dy80/BemOoy2fRabC4uNXdw4+F+nIZ c0JeLMws1fil1kDH8mfBVXln+iDC/eBkgEIjhK5qdvRzIT72ru2hTT7RV71r qGKLP3T1X3Pvla6Hrh9c9aMz/8By08Q13epZSIxD7fXuo2DPWJ9nuYWGR7Xz WEEnid5+bXu2yOM3WN69D3sJP2WGqAXdm0wCzrCPhE7uMCQLtXalSDMxd9tC bfE/LJTxFQzwXt4IlDW7F2v2hQFPXaKl5NpJiFjVD0uiimDbqt3uWX1zoP5c efaj4iBUTxZyAy+OQ7iDkWVgI+kpCz9p70sj+978XuQl2VMtTceXhm3DkFG9 K/jnSRaGdl/tMe6go1ZncpCRyxzJt+mraoKdwPhnZnn7OQW93d/8NYtlYnlq 7oZ9BkyUf3Hs8dtPQ5D2mL//XCPRUV6L9v3pMLCLb3Ha9pqGDUs8bCsHyPyX ud6tPkT2tHLohdHpFmiKmYsMf18BOtTVbZeetUBkGfXaJV0Gpi0zSHZiUlDJ zFl00r4P2r7z7dOcI71D+32Ri3QTNMgmZ/EajkDcru4VWpqkf8ERzyyXcXBz 31LZk1kL/toPF+8l/bBlE3TqfSH5lMuTPVP9FVieztv6REleckoKpAV6IFF+ uV/XWuKHd1J+8z3qhpQ8JUbgimbIOHRsR+BVkm+mkcsO78qDpj2DhyTU+oEy FVlyIbAU/OJ7//wn1AQzL6sjM0xmwS+tjuKoOwnlP1pav9hUg137fblg5WHw fpm6YKC9HXb6fp+1v8fCvo0WlF/n56ErSM586kg79FHFBV20x8Ambj54VxTh WbdA48/X/4G6Cs3+uuk4WHbVditf+wCZkp0qWwvzoanav/nQu15oade02rqS jW7r2uuXa4UBhWfkVvuP++AczJioa+ACo4YmNW1NxYhjah+4AZng8Ud/6aXY ORi63LvBg/ipSfPmBCdgYuJrt38bXhD/fVm56eq+cVAuX/jt4rZC2BB0pK4W qajupnXOpG8Y1G951VunjEDmi8oD9+I6wCTWs3cqlo0RVaZF9AkWytW7nK7L noRwE0rI6a4R6JLZrqfrOwoT/syz6YQPm6ScL1y2rgAH+5MDqpYl8PD4ot2r nk5C1LiSoUj+FKQ4RrzwXDQFl2mepW6Vo1ACrM1f1FnYcqaPz8ybiR8MmruC 3lJxAo1W5cpOg1Fi8L+Ry9Og+q6k/sn7CVCuWFaS+LcB0jbbzmnTCPfJ1y6c WdsHGm3xQkB8/9X14g9GzixME/dSjzg7Dhhv9VVpSS1EZR2qfS3IQs26gx9Z hTRUkn85FpbARv37L2aWWo2Cd5R5EvUr2Uct/w+hehmQNhB08/sVol/3x4bb VjKwzlPuUktwPyClgKPzsg3qXJJ2dHwbg5gjtmdHcobAYVeovZP/HFQrJ1y9 c3UUWnZkf61m09CtvW/h8YS/0PbtiYni5mFwO9wrf3iuDWIW/rWc+9cHSc9T Tr5woqHXvZL+Z1doqLOzoTez5ie4hd4frS1hY6Zy1mYxYSqGb3eeOrl9CD40 cfxLnxNfyNP7Yc+ugJQ6PZ+O2B5wdkt+NnewA5qGnpbtPku4uLaPO84zCwH1 e3nbVo9DnbGH3JbtUxDaY5M7pknHuL3eVOPYIViXcdHayZGGykolGlUf+6BQ 9aj4evNe6FqW43n6whikvajiHdpL9u3taUWtN1ng8Pb52vBXcxBl9bP6uukE +FFn7ttvngZKacjBWzL3QbezI4JpPQ4+DQHDlFga2t2sCT5Y0gqc9k4e8d4y SOp9z3fHbhJwTNpXRqUCCpnb66mfJogvBMjMP+qBn7mc6xuK6Ki+qkp57/wk UA7Fjdg6ZECMho1c3rVWSDI+6dq0ljzfaPBKuwcNnRdRDqTlVALGFGd5DzGx 6eCstOG3QaCswrGz51OBx+TyA5l3f2CDRGj9x79MlNazUsk6RXSaypN51DcX PCZ/FpxiUZBbtneg7AoTHUJuJ616Qvqum/31UWkGxp0y+DwuycLq5Nciu/4j XL5ypwJLgvSEsAtXv/yph5kTSTPmAnS07LsVKvdxBmTKtmlYs6k4E5oq45VH etJ/lj/CBgh/a/eE93enQWi55gXF2hFI0XXv7LtOuKTogl6YfzJQNo6pu6RP gHnvbLIHnYLFCy/dHrjPQr6b3nxql0h//Ryx+41NFgQcKXwWHMJEZZNDPUqH s2Hi2YPG/dLd4LxbefTnnRZIybBOP9lI3s9nEGxzewrU3wn9zJ6dhoD1N587 Ev3FNKaY6v0oB7lQKuP8T9JXGys8HQSLIamtalmjQSvEFD9O7ZBuAb8PESDy mYnh169/OJn0D0JrHt9W8WSgzJ0lGtlbm6DuGVtDuqIDHl81rnQfJvd8iR40 vmwKbGxvutpzKYgcG/Xb9cPATcjdt+UB4WJZ15SD/4ahyfALe8GOf7BN9H7a wDbiG0GLzw1xGFi4b+aPxsMOCF0RTV92bwYSFpju+7abhROpGchzmIVN6V7u x6zbgcted667oB4oPhdkttVnQVSYl9zDIiZ6n+xylY8bA1nvOWFpCuGW1RV2 VTAN3rF27yeDJiHT3tixz2QKfr7r2hVJ+hmlwSV267Qf0DqbV7oBAx2YyeMn /ajoOsJHy1lMOPS1sMWxPd2QVp8//GwfF2S1NrYJSjFxQbxq3Yphsuc3Fp+J d2Fim/eW5vWZxL+/u+TuU54Ft7snnu4Li4cFZZvebo9kYt/WX37z26YhcXzd 3W2bST7lxZukzPWCvvV+UbmYGWhoeeTYm0c47ht1xb8tTJzwkqX3OP8D5Uza LfdEsnf6MwHmD+LBba+dmO+CNrjcvLQuJ7oZOJWb6v+cHoHwe4lXUiu54Cz+ 4Zjw+TbYxtiUSAulIXppnMg9Ngz6M4f7rWyHQEfF2lGhcxocvi3KuTs+Bq+G KnRvajPR8k1e+Xbi4wEv7pRFk3z36LDfffNgG+hqTMxINcxBIuXo4tHCBrDs OGBuYt0A+W5pSq1fiB/q1Gdd4yN62bK+KOrGIOiMZmq06bZBk4pAbN3FYag7 eUJAd2AIynN5c6W8OyHRX1ylUXIGNI6UeqoQfXAMAl2Vvf6CeZ5B57TaNOGZ 5mcHy74DZ6tFjbsYA3VsJBhNhgxsSNerO3ydC6pyq85MTs9AObc07Io8HT8s Xr8jLovsRdPmpfZX2iD0ebHFaFI3xOxLruNdMw/reA2cfLKZqPWXneJHuDmi T2L26SA5j1C8S5NDAyQHCZ85kkF684qHYytnZiBzG/tlxaYqKNwx+2pdMgW1 l4omRLWzUc7q8qWz+b3gEZgTssWcijw+/otSOmfALjhcdFk8Axdud1wiVkpD k8Ktj1UW1YD5TE3AdZVZkL8f+CKgYgTkvsryrS1tgi5HccclehTU4bk6m1zB QP2TPpMqBXWQ65PPkUvuBDfDHYtzZCYgwHbBNu5mcv+hVcvPOtaB9UFe+prv c7BA4dtkJk4STtdW7rFOgdMv7prOmhMfr94aXHOD8Orvlbt1FkwAT5OTdaEa 0aHYl6cZL4nu3wycXB/fDM7Oxlkf3g0B1se1dzxMgwdBPU/oGVQ0v/Kf+Z1z c1D433PDB5aE1+m/2b+by8GSERwuJ1UEKfM/w00NJyG/dlK77DENbQI6WkWu kHPuy7pTLvEPKJYzFiniOtBw/vKZkQnC28/c+HJ/DEPE3qOhV1yLAT8GxfwU Jv7w8sfVay0M9JHu1n30nYqZUuGB12pJb1Up2/CjoRPkltP0dMRJ3p9ju1xM HwG35w62BX1vQcB6e8STR3OQ6dV1Yu0SBjb9iRY09Z8HiXP07nolJpZS+349 mGKgZVTPx4vyk6Af2K/l5NcOhT6LTgmTXjviGnzQm2cc5M8XnxFIbAbK0DLx jLXdMBWvIne8j4YlNQ6fktaOQS67zPCQB/nOzsmtKt8YGGE63P82dhik4usO Rj2joV/fxsFbV8bgoeMYnfe/ZnAN2r+5fIiO7nEU1TQnNqbQpnO8GG3gLNtB 9X3UBDb0Pfu8+PtBJvZ5vY/ZMKScoMoLmXRBHCf9rwjh7+v53wO++zJQc27v 8deXmJiiGH95U8ccuE1sXlZ+ph1c73xfK0n6t47grdWnCpmoGuHQ8NSRjtar WcqGfDRMqzUOSa8gc+Qqtx1U+wop1bvTfm7nQoyQydNLhM/8SjhGI4HT0EDf 89vXmei4/C8PjT4JdV+tfLKkaaiV1m0QbtEPWr/rA8sTGJhtfvr55jqSfx+i F5s3Ev64dWy1viIDI1/q6Ue401H+VTnbfBUFG5SyDKdCCCfFRBuLFg6BW7rz WI5ZBNhUPoUb3k0g0c1/V22yHSz7fOX4j3WBvPjjhYcSSc6FyKxiq7wDSnyS eYjBICgfOZRX/N9vaDN48fzZi1loSsvrsVGZAVXDlsPpu1pB/4aUZ0/tHHRB 1VOLqy2gPuTOLx01C3Xmfwxkv1PQ5ihD1dNqDJSvvPllnvsdClcIFJ3excCJ scp0/jekr9Q1nPjyjuiUE2Gx7GUHdKn9UTi3fgZKQuUFUva3AaXv2+O87HAY KX6dTMlpgcsqt631yH4+y977Z/ssA8sfbT4zWzcN+1Y0rw4ppmPMZkpQ6XIu TAjcW7h6nuTDar2/AXOEc6vfH57/VQ6JLTeM2uKrQSZYDn9GTsAXc4ZQ5DUa signVjwgHBQRsEl6SqARSv5RH3hlzYDrih3L6dFU7BJl9acLNIPDwpcD6zu6 oKvc60LOkxmojE5Q9YyhY+GPZiZntBwCXhXc285HfPxUR0rq03ZQ3k9tOqQ5 AVF+tdpmd5mofyDj/dkTLeAu7OnB087CRNmDfcfX9EFK9OmO/fR/0JUwvn9c cQJ0j0mK7ioWxExX68PLYgSwcanemT26Iih1VPjV1lkKjtQ2Cym60tE51yHl WJAQqgY/rT2VxMDUb8t4At4xsO3p4R/Sq4Qww8zs9NFnPKhcENGkbsODeMyp 8UIxByd2aDTGq9KxPkf9TwEPDVdkPz7rt10E7+0Tej64iINaxX8ja7ZScC6z LeaekjA+5FQlpAdTUCufj2epIQcTf5+MWdTOh5w5SS2H/Rz0Ml94Xj9MADsq blc/Y/GjRW1z/DhTCD0erteVsOVF7lrOvlBPNgou2HKyezkVlSb2Wm9REsJj xrf3Z8/R8ZzLllpzRVFsqvOeELokiO/KI37+jObg8A7RBzLVolh5zNlUQFIU 3fdsvndMgoGiHzR9x9bSkPd6spTfehauDc4zUyd6cLt176fSXl6UNt0qeWYv By3zerbp/BDF4iW+PZPRYqh9Y2VDWhAPTp3749pwgopDzL4rHsuF0I6Z+SPI hokyrLJE/RVCKK3lU3pahYESz4x/ZBYK4EzR65NamhyUaylcf35IDIf55Ftn rojhKwspR2q5EO75/thunRsbs1Pk/hw+IYIJpbs/650TxNch7NfyVqJIGXA7 sDWIg89z9ro4ujDQRjcj/dZOOv48nfpHgC6EEScOZdh/5kdRr1KtL7YiGKfW V/f0niAOqVz9bL9GDH0Kti6OPk9DjWOppX58Yhh/TjHmZhEHk6LlbzabUvDH tOOT77EspBhdm/Q/yoMPa0BD5BgTo/bv+fs+mhddF4svns7nRZvxyU0Fkfy4 dONchmSUGJZpbA8e2iiKNyUsrnZdFsXG2Pf6fBcFsb3dsfdxFR2vu6/2rjTi x7OnA9be3yKChb2p/Ua8POj/5+2CcxsoWNpwS/5ihAhm3K+/srNWFF/ldCbn ywmhz7pMF+VJOvrzufyt3kjDB/kdpikvOHhWbpePnoQIzlhpH3pB+Nvm2RqJ /0yZWH9+6VzUDQqusLlhkL2Mg3rcO089l7Nw5vTZRXnugqh4tkMpv1AEBQ7y Lt+Ry4Ov+AIWZzbzocwKs8U38gRRZvI4zequENKLH7kG3hNF57j3nU+OiqFb ePyi7gFRTK41X1owykKBf5GHqnKFUCmg8NTzKSryCSwa8jgthpT0BZlJu3gx N/bmxpKnvGgel76qeQkFp9SddhRsFcVSOzO+Gz9oOHX9aZTsGA1f5ffqnD/P gx4WcRnlD3mwr3S29EQwDQ221AmdF2fh9ZrUAW1zUbxum3XbfoCC6xstNv8g 9/jt+omrr5awsdJ/82j+bQpOP9+yMYpwQYVrTFGRlBhuan1wNuGTAGbyHzNY 6iGId4OkFM+Hi+BPW5vVq+xE0ccqmlszyI8vDYrdDJ3EUPLoO5+sQxR01jlQ ZjIrgDqvFo9qMwVRo48T7HKMB52ZX8Y5C/gQp248W0r0mf9UPV1VmI4c0znJ r2cYuLfmsGDyPRHUZEo5/GII4SRXVT3ysChK8fzbl/yBzHvM14vaSUX1jtH5 LibxW8VJuHubD5POr/mu7yCCGouOZXUH8qEtr/ZAjDh5X0vzGYkeARxLjwAO 4e6EtEfiBuF8eDMkatSpQQQNLS6wHjJE8bMcb0WRF/GhFP8SwWQ2DnYw/WUX U1E1jT/oT6EgJth75nL38mPDomhhLVk2JtiFUSimNKwssnuzPZgPJT/ee9N7 m9zXEaUwtSARLD/NbjynIoyF6zar33VmYbjY4bHNh9kYuHrplmAdKnaPeKbe AzEs/+WToeohgpn/wgQyjOlY+n1oC881PnyAO2bfJvDiyZttTpd7aKjZHjS3 0E4MNXpTbidECWPl4Z2pHAfSczaWr0wdJXnrUuB2nC6Gj0bFAg8comKHXPy+ o6NMfDUwrDkcwcENnX3Ti6yE0Pbs8e3v0/mRpvPtk6MTEx+wj9JF7olhYtjJ ygg5UTxo4BEVJM/Bu+9oESUrRFEwV5qv+RkV/SwcMxdWCaK2N0+hr4Yohu5Z fl2ugR/VPR1i1Q6QPczOZm3dzkHqxOVx4xExPK2zUzmVQ3zz1VH9+0Qnss1C zz+qCeLyzVXOVeMi2GR7tq/jvigerYjPkTJhYmgd3UC4koMgM98f48FAv2Vq R1fc4GC9162nizM4qC6yaqHoAyYme9o+W3pGDLW0LSu9Xwmj6lBRauw2ftTi v7qVep6Fz2xLXvj+5sU5roKbprAY8g1pWyYtE8UCkUqLt+0M3LVrlbG+C9HJ g/U7K/s4+KHcnc9wAxX952YW8ZI5W2yVPP1BhIIMyet/hBOFUNtJpSHOh4LK 0d2K6UwKHrsQErgzloO7PlTSug+R86t2BnvZ03GhYkCfqyQd5cZX3/R8L4h/ 07P9BNSZmONp7vdpjwhy7Pr0J6X5UfeQ1gVFKVEMsFzjNtchhnb921fs9WXj 1Nz2yNt9DLS95C5qQb7DMPxfwFtNcv57Lp0W7kzscgl7FZRJR76ZS6MlNhTs cbK2uX1QCI1sCgp3jBH/7llQ82CMBylWl/yXqfCgvFNnW97J//ffGxuTZvnx 17ozvndtRHET/35OVhMHvxTbrHmxhx+7NlaXhJC8ql92MuRGtxDyvvC+1Uh8 YfOtStEAOwaqDksfap0TxIWrW/iza4ivnXS80LaZjX7fdM86beRDbq+2xsxC Gp49cSrtYY8oCl/SN5wWJrla41R1xYeDurmfDpp8EcOMmRb1Wa4YeqQ+uRZ/ goPVeRl88jQ29mdalUkaimH14aWWZvO8+Piv7JESCx5scPlxR4Sce76xoS/I gE504cZKyhTF7/OvWrPFCfcanOlpDBXBZd0uNuGvOCgd2/afgqswjn1h+iy6 LIxbFb7sccpjoEB0YmLluBhWOTxTfvyPcMSesK1BxJdn3oiUli1k4InG5m5q nzDOVJjd7HgqiF08OPxDmYZf6n2F5UiuSSsFy2lfFkQX67dzf1+JIetZ/Wn3 RGHkc5M/cfGrMCYat35JY4qi9+78zQcs6Chgw1ljvIMf7Z9mSAos4EGN3yq3 Au+IopJvba6oIR2PpWyhWuWSvqwm943C4EOPmacy8stF0V7ROGmJnwi6d3o1 aj4UxKYLL9mHyb5TJNU7hzeR3ntSILo7i4J95Wuui+aTPqS872J8COFqk/CJ P+MM3BDrFB9SRTjjPFjmkFxfmyR09dmcCG5w/NxrSxfAo/da5ZvbBLHc0N9h 1xshTPJnnXxyhOQZRf2soz4LZYVbR1tbCDd9MeHVmBLDnfSbuwzVeXFnWljS yBUOKtScGe/6TPzugNQG48dCaLF8qCFMnYZto17b3n2i4U+NJFuHQ0I4V5W3 untMBK1HNL3i9jFQdrQnXO82C3ccfaR3vF4UK1R59+gMcrDO/kH01xnCMQM2 CjuWkvedsAh8IyCAG9pbFuSSfZXzGImS+k18+vins/NHRXFKKvqvhBM/Wqk9 sVhAeEVWn7rrcYkQboo2lP9tw0Cjz42bhdfRcdNLPtvN06IYc4x+WXSIjbbH 1lqs2caLXxaPb/ney0LplA+88ywW8lhplOTziJH9SDi5YC0vFh57uHtDHC/6 6RySrfopjN9SzixuvEH+vcLlEh/Zf1kJ39CvsSJ41IgbJbqSgnbg8teQ+JVr c4NpxV9y/pCzTluCGZiSGPiWQ/Z2Ir4rQ+0fH8IyA/ZDHiqa8C72/vBZDOd2 +hjO9YjgfHJ2ucBW0jdmdkUXzBA+7rr+ZlpHBLHYfnPOScKHOlJGsb78aJ6t nrRJSwDbU+5cZKyh4c1wua60N6QXO8uohOwUQs8VnzNohM/uCgkq1ymIYB+n Ra7wthi+c3DNHljNwkyXrtTVy3nwEy12k+cBJmaeK8zNv8lE70ztJa1kjqG7 KtNEgYLDsblda2+J4dib3/e424Sx9MuWjm3+Yph8stPrcTYPup1yTqpLp6Dm B83BJx9ZmLJc7YVksCCGag4L7eqg4fbhLx8784nfyOdNmvXzYdav8QDrQAaO rVhacIzkA55flau7WxgVYocp1KMcLGI9XHZEi4aN0cMqkksJP91x00nkiKAO 5dLjCVc+wjNxv28UEY44Xx0nXUF0oKix7porG3deXuITGszCz3ofl9E2iqFw xNJY+Twa3theKGjcRsXlMRItOUFi6HwxbUWcLx+qflt/VKKaH8Nao4VCpUVx o/lg2OxCMVQ1PKPhxC+ASZeGGHyJfOhM21UmSqeg+YCjSvQRKr4xdB/xzCA+ uurM3X0PiE4LfGL9nETR2j04f2C9MLYdojpq8gsjNn93YZO8DljXdU7VQQiD azyoZ5ZycLucvcqdt6IYGXdAUYKXH225Z6yMCH+ZuL9YPEn0l5RhvOutDi/G xLIp8sUk/wfK86o1RfBMiEn50xwO+h/PU+3Zy0apa/sHHVpYuGI8tHbUWQR3 bHYer2YQTuHYyrJP8qOCgmRfMpmnrbz+TqsFgng7RH+F3QsmqgdtrRb/RMHN 56V1YjYTTljz++A10svjlpZPrgznR6MfEXvqp0Vw3RhbvHwryUNGVVjljBii 1zXN1zUcXLcVlviBMMrut/bvYfLggQrj4wvWcrCxonZe4D0DX90/VYpPGLhY IWL/uSdiWMJ+1SEjLoBtU331l2r4UH1dssHrFGHMXaKg9IPocNUGeYsC8l4/ 9jNGBul9IZyfngVForjyckFl8wI6+c45v7QEYQw/233juQwPctv22p1yp2JD guLZRGshPOdXsEj0AxX7Tp0yeoh0rFs2ekNuWASHAu8MsVeRfaQMbd4QJUjm tmcu/A0Vt82PblrXSPrtiomTirrCyHv/KKM1lIbdzYbtJ///d7g2mu333zCw PXQktvwxB6/mhfpSZqgou/S+bLC/CF5/ri+cspGKl9I4Vbue8OOWnMT+sWwa mqxduGXai4r3f754pvyM8Puf8bJrbqSvtGrXz56mIYUVo3hurzAy3wWY2IUx kafmfENSGj+OORzYbnqCgR2vSqNU9wii3OrZNst3YhhcsfOjySAVZ3zXTN8k XDYxcW9NZIIgZvwxizj3hR+FJOu3jOzkxb7dxteV3omi7dg+swY/FtL6Emsq t4uhq5Ygx2iWg3Fep/VPtNLxktUi/9HF/Bh+MDDl+VkhvLplf7Q8QwzbvjUy D6gR7hZvCzc3omD2Nz+r5FCSP0tsFwRPC+LRG+s526UIVzdmJ+8JJX0ta2Ww BulnDz2EqM/JfS9re3bSkuRWmWR6Vly+GHKL0V6vVAgbJ7p+fu4l/M33SkNb j/CYwOiKGhrxydf1CucPkOfk/iegJUFDY9adpNMr2aj1hG3t0iWCundX8zWt 5EWTHsuCD4fEMPLvFnZ4Ounvp0pX/h4Tw/p4Pb3JaSFsU92QqkB0c3q5xZkD hcRPfJc8/U+BhdqXL19iuQgTzhQLFx1mYG63RPvfHiEc0QxZt0uA5BvrurXQ OdL7im1NR53YWPwinGvkRMHzPIGtsuGi6ORVurfioChKNBwdOhQjgt7tvyXL 3tIwr/yn2crvVAwQi3x1nocXqxW0gs4iP7a+/jRz5AIbb0cmS8ZOMrBhN3tV SqkoZivqB8z5ctD+PZ8YnfDPiu++du/fUtEuWOTZaj0WFmedLBTaycbSgKe7 qhaJYgZ5lTcvB2WclCJNSS87IRB7YO99Oo5llqh3kLll+NR3MEmvZ5nKxK76 JYp8JW6ngmz4cOrF3tNlP8g93v7TYkN0uf1aIsPgOwc/rtsd3r1BDOWbp89u 2s/B0I7X19TKeDFW/DB3dxMTD6dvcqVZU3HV8DlzvuX8WD/V5Ns/LoD7vC2n Mr8K4aqLG01yJ6l4U/CzQ0YCHbXXx9ao3eTF/jdXgviiKdjsvvHviJgIKvwF vgIdFlrfQftIslfajWXt7Xt48WLq8C6TH0zclouD0WtEUHSo7JmFHgcfTnV+ TTamoCs7tSBsnyAWXqy9vCSC7O2S422yMfwYKVnhXmPEwMrxe17cWjYav8+6 UULywqDoWoCdFx0/sI/1N3NJ3hkn7b/UwMTSXWXSmZG8qM/2d/DKFUa2S+DT 03V05Mn8GHDxDgcTr8ye0iL9WsB71l77migWhg/HjGTxYcTisFEVJHyXpNo7 TeVF2xrXDp0SNqK/5Cu98wJYbnRlE5cpgKMOPbGfdorhseKtewXtRPDhaJZe /Qcauq77J1v5lx+leZk35vP5Mdm5SoWnlIkfvFo0g5bQ0GuwOFJrko4Savev UR2F8UGue553Jw2dxcpWp2dTcPS5z4O3SUQfMtrnIlRF8XED/ejZnxxsuX88 97muKCYsD9KSyRHBBEHBR0uN2HhG5bzC2aMUzFSI2LEmiQ/vvmrKTzpL+sbI fVpUABvrGbH7z7sxMbwBbcusxDA/KGNRZJQAarSq3dbbI4wP173J2hlIQVWH c/0Cjvz4cev6tm9TFPx53rTaay8LBS85Vd7lFcH90+923FnHwZJ/4pcpTRQU fVDnta5dFB9NXIt5OyGMxrA+/eExPhQ4N2y//irZ13csiZUOvJjZKHvbf7EQ Dl3KmuJdL4ryBxntG3YRnxD7WnGb+LzXov9RbN6BXK59GLf3+O2ZBlGhkiQk XRJFRhllryJRKJJSZhGVhDRQSlPIKCspigZJUlROJKNUCBmh3vv985Tz8zz3 /f1e1+dzHA9WZhBP+iqnEX2J7MO7vVWF9Y/E4LtL1qZrHdlfYc/HpbbEN26I e4gdEsO8J2olzmTuD30wOJwVSfpXcMR2vykVUdJFW8VrKaCNVb77YiiHK/Oz PNpLyd+vOplWqi+D9WP6+h/I+Zvq29XdEqdBp7XZJD5ODGsvhHGjnGgwTHnA ENtL+KJiivP5Mg2Vl05Uf/tPCMHvjioYciUg5hhj8+aRNAY3m1f6Em76tVfo 1rlaccgI/p5SOCOHLZuFu69vl8YuzuRemTNk/69+1g7YL4z1C5yLswlX/5eT bWe0iXBmfkLZHcIRu112TftqCiFyQ4to3nwZHIr0jOVdl0TB1Zf/WXNlUUAZ /aPwTwJXjy4dN1KVBO3Wm1OmuhSYHA79tzRSBMnF1j6xgXRYZ52vkFpBx4N9 zezQNwJ40tcZ4XKfig9FqtG7A4n/nt14ooWcq2TCu8UXiA9/ijQPeppMBeNv dbEAVx4Rp5SzfHXpmGsVcaFbk4bZqW78ge8iaDk013G3uSykzt5+k6MtDuqR E79XkTm+OXhg3afFQrD9Of19YB8VGQvvr4+tlcFN181soyBhaIl/HxSZRbyP MZZLryN/7i6a8u+8GIadFlYO+IghJMXNsIQmhnDDvJqzP0nPD8UM/P/3W6IL 3UzMHYQw2qvgo94mi9PLg4uv9AigTIfGqE+VwK6/gwu2SAtBRyUyqG2A7If/ Tz0VwsnnRne/O1grBYE3RxJzdsiDk5u76K4FHUI+/8Vkk563Z+z95GUth4GZ tGJ16v//O/Rqr7dmckiR5A9eO05HepCz82dFQTxNKyxr6iT8vzZYpuIHeZ7Z dXVrSM+3PbLbMm5OeP157qSAjgzWtj8QubxGEH9fD4RFXJXHZctbL5+/oCPK xfC+D/GtDVSJ/3Z3SyBYPHN76Hc6PPepj4dmiZF9MdrndZdw0bfs8NuRVNg+ 19swfz+Zq7uXA3NXycDyeZL873QJNAX8i3ZzJH1gcXmpJeHryy098NESw/xD LuZpWVLgLX/7Zc9CknNzZutXDYoix3bY1UOHhmLTgK+/d9NxzkY/z+KQAJoy t3V1DhBv/efpHNIriJbxVGd1su9tv/qWLpEjXpooKUHnisIxYU/A8CIJmP7V XP/niCB4Nxx6ZlHFcMd4ufKpLJIvWm6c9k8UpB0eUTxJ+uOQS3PanCc0fPp7 +PUrNzquf/qgpmlO9k7ldbGHmiRMTNN/BvWRr7NYvfKHqxikTPM1HqQI4afS 8hv5csIwiDseUmEggx3VTmml5HNfbJu351WoDB7tYk/wY+VQZtWZc2+nBL6y xiq/LJIC99eHfzliFMyxd5nxvE7Dofb7R58WymNAj1u2VVAAVX8FLx9fIoD0 Tffmbn1NcsL88dNnZN4qH1lfGYmWQVJB+sflp+UI7/2dZR4vgw/zZx0OaBRH loKRxMEvkuCJH1DRJfkyO+3zYfMbUphxPNaimkN6/utsa7VUCvSveejY/BJH 8JXPY/ttpTCpZXxCpo+OwKorJa2XBPDYSePAYgsK3tHznqTpUOETv3na2VkS fs9rNPuvi0IryV3KNF0cG5rD3z3eTCe+3Bcg80wOHx0+zyolHnox2G/h0wvC yDgxW3LOOyk82q/CbE0QRWRfy695/4nhfMa6xQmEGzj1f9zX3RNGeJfWn3Xh ItjzPbS66P+/73D53hztQlmUKs/Tzu2lQF0obI4myQXf17eqVhwUQ3D4xWse /ZJo8j/91KGdAoGiPOnVZL9iC/3OVHsLw7sg6ZQQn4bL9rOWvxATgcKblLxE 0ie8jIV3ishcs/b3Lr1wmsyNSWGC9EXSl/NfDIkM0rHFZTxpZSv5nCu1dgkH ReDzOKjump4YPqVJBSWTuZ3XbBJ0WJWC3gceR+QrhVF3764bd5zc307rnwsS ReB88Wh4XAANc3mu9kaHpaCm/2mWCDk/iNw9/pJKw2jM7EEBU1GcE+4KMvoq A+uGlIQJ8n6nXfXM36vR0JUTftF+iSgKks5JuJOctv83/xf/EgX5StEGx/9J on/5Kt8702I4mBh/5NlTIeRUqhjuf0eDoFJvQNIRCm7luM39oEKHTl5hQZwz 8ZrjDlr3Se9FV+61sfeVg8HowGuRS4SX//1MTSU8vaWFF98tLoBzE+pbHP6S vbJOOzkcIICKw21NFDFBfNplNjkrVhY3fldqPXwujE9OMYsE3SQhk1vLujYh CdU7QmUrVUj/9b/w93osjQbYuq8IlEGKsuIasTpBVDzZsLF9UgDt/badjYTD k+eonl5Gzv9cd6heNnlO2wsSLFvCN0OzCz7ejJOEy3KlsplzNIRq3T2Zv0US lrdLFULChLB9pFwn7BcV/jEiOaVzRXFwXtTte02SSKmuM/NQFIGinHfb9EZZ BG87rqAgJYjtG023ikaT9xEoPHGc+C9L+kv6khE6zPLmNfbbkdxqv+a2NEAa o0+OW6/Wl0BOtNHXqCph/FsybeynR0NJwH5xf0hgnljsxeALQrhSVj55v4zM mcvUk3Nq8ugzSWsxKaXA0j/3+/luUcwe/Dar4y3p/4CjS5pHaNCau219aoII ZqJUzGyHKNiwcMeKuyvpELlWMStDSRr5J0Ln33wnC5WLL52zpeVgeSxwxv2F EHadzVGQJr58SjPS+YSJIN5+MTTWvkzH18BdOo6NdGyQEXnbmy4EhlCR9OFe GfyVv3L3T7gsJiLYy//7IguaxkRVZLUccm5+Dz87SMGjEzsOSLyUxFn30MVz 2YIonjmcGiJEA/PMVMAP4hGHLN+WdbtL44Gg66hRrAAiRLV2b18vCJn3rENN e0ieKzlKjXTK4mIqrWeehhSOxk2tjVhPx44/0+7uJI9HzZeH5dyXgFZdsEba R0lcPPHJYLSP7GeTi8I+JVFIea2XW+0kDtVnV15WW0qA+rHA+mEUFdqPHNzH n9AR6vtyYvEScWyed8vJdq8I+jds9dJaLoqGb7t/r82kQETW5skWkhc1x09c tqmhY0m0dcf/fz5x56raZk9jYWxYcaKpPUISj01t0jWpFPTnvL52bS0VI3Kr F3IIr3/95ukXX07Hn+zOoMZKWSTvHX65BpLw3xtfXnGP+NiG/Dl7amTQlpDy rP+zHIpCT6LDXx4TfN90490SyMvw3+A8KI60PoX32SkiKDAp/m/dKmk8eiTh seilNFznzDqe4iQA25GUUP0IwjWPtygmnZVChZDq9WlrWbTX71taLC2BtYbr HMv7pCEZN/NskE9B01ALczJRFEc+hqYs4kvCR6jW+dpLeZTsPquouoec9/0/ vfaB8oj7uMlPnUGHY5/d/qUVAsi+K5y9fYMwwh5yHkhfEYJw06Eyr7NUdPEu xjcTDsjo/BJZlieL7dGubUGHJBFd4yG7jEdH1aMeU6FLEhDYKXVU/poMXpxo WNvuLAj96tV7zTlU6EwWvbm4WgJSJdYaIxMy6G6/O8AgXBLZn3Tlt6AcrnsZ bBYlva/VMkdzzJ2CuzaTbKk3crBwKDUqfU3Dz/vBT5PJ/G4tHs844klDskzr jZ9k7vvGUhborqEi4d21ZzSeGAIn9zkFZdHAeKnZMppPh6tW/TlXY7LvDo/F tpO86HQpXvbTlfT45koX2j8RuP9WElEhXB1g87BtaDkdRazpvjFvOcQYCq7M 9BTA9QXTwhcC6Nh9JSD9agIFNh0LfvQ10NB/+07p5zOyWNLSLnnQk/jOs6iT e4+J4R6vc+AC2VsdwY7X1vlSmEvJbe/sFoZYVkblrbWC0Ih5GqwyQvrxN83q YRY5h9V6KuIryP1MmYTWCsuSvS05taadcIxCiu+PCGFMzLDDLk1RMTRyQ4JJ 9rOh69sySyNR5NNPnkx1l4DOrbOt6p/kUdRTaeW7gvCQcqLUUllJKE/iYmGQ CFSodP0lnTTcY7W4+f2mwXyBR6NaqTymVusuE2FSYVYt4vBknAK7m1HuvLd0 NF9Qr17rIoPvFt91qmdEkLjqe4zDPEk8lcmL+EJ84Xr5qvdfT0pDv1+35/Bn QWxrb2LcY9FQt2PCZc85Ckr7KW3wocN+eL7w5VJpyDtFbs9VpiLJtJvHUJFB ZH1dwTZnCTiv/nX0D0MUC2xwSuQGBc9aRpUUeALwz019kmdFhSb1WMfLv8Q3 2ql/l86SwxJXR7r7LEH8sNh06jFbHrPkETywhniUmnf2SjIn2nb2/fYLxCGa RvcXjxLD2w+KK4LeES7+3nehIUAWNWZB4aoGVOhlGlnEOQph+NHu0awRSYS4 +awQqiOcnnrY6Q/x6kOtnnMWvBPFsa3nflwxlEHZ9MdLat7EKzLtF3wm93xk 38q63UZUXHx467NbohS6U70zpi1lsW31m0hVwgk59akDcQNUPOmcqxx3XhJm Z+72WRwUxHTozIpLQjLQLn8cK1FGnn9neZrZZik4ae+wNvhFQ9ROPy5fn4LI KTPpox4yaMz57rg3hYqnXhdPPXWk4Jw8c1GDtTSOnbK8UlghBv+0i7kLykRA WVR52EyCjqs9ow4S5P4cP9+yfflMFK7RGh3fJ4Rg6VqRP09RAmklulHmmbKQ eDF34GOXJDp8dsT8mkNB0vro6hMBInj0UXdHY5oEollpX//MomC/kJvwSX3C hREF/S+laYgu2vkePCosX7729+wkPUt9+SreRRye5p1WxaMSEP52dfjjRwHo LEipLllGeqbOq7NMWBgao+f/Hswl814blK9HOKFt+ESOQJkE8q2+1HT+J4i5 p3ctbi2Qh4H5C0X3biEUvBL9vfqJDGafSA3p6yJe9vJyRSx5rpr1O4PXfqYh ZHH92WMRFNRt3W0zPU166uIRPYaUECSqp7MCyDzstbmc5OdCvv/3VRu+etHw qGXe3U6yr1AZr6l3lcDjF3nFdVdEwOmqps8i/uC8IzKyl/CKj34QRvfJI5vS 17oIQti3VG2+cwEdj/2Zv75K0ZE8s7bsDZ2OpnCh/LIVUghf41t+7isFZkIK FTxJIaQ7116Y4ykE1+OF4XW1VPxxnTBbOF8cL/7+a0m6RoX8pkWets8FkHVi XWkyySkeo4dRZiMP24C+OaZyZL9fnhZxWEnD/N+1nVLFNKj6mQ+9CJFEb9Kb Ey4BUjjiWJqj5i0NcB+uLtcTgI/i0SmlOzRMmJVsFm6QxLpFcwJ+HBWD46uN v4Y2S2O78buRZbMEMCsxfdkrHXn8vX+s0IAvAsuw3d8Wk326MKD09rqBOCzN aA03FWgQObww+/xKIYg8MDYqyKZD0mX/clV1IbDFNhXYrhVGYYJfFquHjpt0 3q6r26SxpFpPdmUj8czFDTm2HjTkyVZ2v1eiYW13YoDMPhoS1uyo27RCAjcF fsXsExFFV/enpLkNFHxolLO2Jbz3YbH7b7FpKjqvUSk7wuTRkpj7K8NNHtr8 b6IfOEK46SRZsewYBTDP/NLeJAuW9p8r58m9D/VXqfm8FEFdbYJhyKQs9jSb KDFqKejsVvJw1BfAXCWV+NunaMiq7wy/bEb2yorz68R5IVQVsjS/NIqBY3zD rL9ODp1h6U899sggoW6o3IDkn6p/51uHTiG8sFzWNdUmDFeJNzeaLekIt7n/ PWKOIC719jvNFqaBt2vr48tp8ripqPt5UkoGQ8fMosdMiK+o3N+dupWCs7br THtbqfirM6UVc0gczbSz7SmHRfBsadzGXc6iCL6cZn3KXZB44X0LVXXizWMb x1bvFcNaifPMHaqiiHJzqNvXSoel+f55xekCZK4XFnyalILc6CXv/i8USEQc cA7TlcOLkitXvt6Rxon8lNUmY/JYHLfzWu5bGm6vXLq1970wji3nmyaGSRJ/ av9VdV0e69ovbf4lJwvlriylntcUtLQJbC0epuPvZHR5/ToacgdmnPc9l4O1 +vGsBX/okJgVO6ubnFOyycwUP1IY9e/yFF87ULAlPuKh5146tg/edOwlnK2V GZTae10OHzbtM1J0F4V/Q8Rv+WRZVPm47lv+nOSMxCXZflPCq/Z5AY6yVMx2 PDFmFEVBwRk373ukT+d7au8LTRHGepHytnI5Gto9v1zOk5PC1fQ6H3kaHccG o05xXhOeXxWr2aJHxe8z+rmn2GJw2nMxUKpVAEnJ49MmInTM7XkQd9qS8HbS qkNbF1Fwr+e/ik13RHFmZw9PZJ04DhmWlSitkUNu7Yo2v9N01EmPbXHdJIbr zekC/lliyH8wv3GruhhKeC8zri2UBVyNdR9xadDOnK48ukkUhzQ2G0rlScDW zcVF0UIOz/ruJX8RJvOqEbvf8os42i9pzwzqUlH0sut14AFBxLGCL0fWiIF1 01VI21EQCV6Pim/7ySGYkXqe4S0KM6WF8yreiKCpIGuKkymPq0d3+ezcJgHa +439p3KF4F+o4jJ8Vx6CpZrZso2iOCEd+zvwAxUZ0zvdvvXKo8tIuqJBRBan W4oDFIgnbticv5JJEYNll9c/TpgMNKsDNl5So0I/0Xvb43hZBDUruWZ9paFq r01HcB0FewdEJ88bSEL375zKr2SvmtSLLl/PloW3+fC4rhoF1h1H5GxJLgsk xjpZCEvB2aYurqdQDo9CDrvk2AjDzjXxjrcn8asqc5eCEmHIZM8rsSC8TYu9 9PIAXxpVU4ec5Anv1N15RS2XJfOkaHhhRpaCN98Oex0nPZ1IC05UGxdEb8wz vlIQDVv0X4bP/yeEYxH3fCcIP1wJuDT4hOShrUTIhcWKUhjavyFEr0ka7TSL b/bzRaGts+zS4lgRPM8NLuWR/tQQXJP3TIHkxDxK7p0OYfh+zf6UNiSATTZ1 TX7P6Cg4YuJjMiIN67rh7vuEXzV/eSh/S5DCHfr69MpRMQyoT+hk29Bxl+v9 VYAjCW9ra/sDhcTb8rpYVllCMCjQWTb0SxiqnX4jGtUyeJCUssfNVwTMk6lj 66Kp+HWxc3L+R3GYz9db3qwsBYOLx5PHxWVBSa/ycj4ogNAZkX2330lhQHQk fsaFAvvii5l/b5DzdZyq3JMoA9fHw/fqrovD+pQMh99Cx3jUY73rG6hwcghZ 3xxLhf07PyPl7/I4Mb9Owe3/v09xUbhk8WlZcFjHdeKzBEFZeHetWjwNMpTW 9Va/RVGhe+hE0C45HNg3yZx3kvDYsYiBBA95OCrIMb/m0qAvsST8vbEsIh0X rOgzlUfb/bEy+xYKtN35U7Ehorh0sL8kh3CLdwR2utiQXt179bfetDyebJrd vddYBF+t92z7EyAHdzfhtIMz4ijSa/688LcE9Kr5899kCII7izsjYkDD9Xvh j/u7aWClbN1rrymP1ZaTtDkNdPi+Kz8+J4xwumti/I8YeXx6qCyfEk2D8t0H HT1fReE7vbFI/j0dB12WCl4aFkakmVbZ8SnSbz/YUU1KctAar8gvJP3elN5S kr5OEK/tQjXcLohhrr/i2ZD1skgvNPGKZ1Fw7LSIlNAhGr7PhG/vryd582+9 UhXx/m6O7GEXQVnIeJR53hmnYfeeZpGyNjoKr4nFhcvT4HDLvLxqLQXf1i2d MP8mjqR0/g1VLSm86zjw6BbhWcPPnQpKxPs0PupR247IwuHxt+9/tSnYLHw3 L7uRAnrb7D/tyynYHve46gvx+qr50WunzwiiRiF105ffVGz/B6eFT6RxJSPu 8BTJu+C684Y2ZK9V7USPOt8Ww58Htpl3e2nYXH317NMQCn6YbmL3EE7bYGz6 2NhVChvus5j8K4IQcR3t+Ep4ujxt2HA4jfS5qYmBs64gwp8P1PC1xHBUtYFV ISQKTc8H0/PmEb/pNdij20vBHx+z+/4jVGSNpchYiMjDbHpbw7spYQy3G15L YMhgIfXs7/+fj5L7cbPjMVT4hPRbPvUi87/dyNiDeG1WCrPFuEMaSX6Wh86I ycPb4EPa1wgarDm572rvycNFOK9UiOSrdlVZa6gbDU+eUWoObiOc8+RoZG24 FK5/dZrsihLFBs8VBfr6UoSzp6ruVJBepW08+/aOCAzMIiPO02m46xH9yIX0 clpss94Ve5IzNjobdlZKwWW/89Dz/YSTQpJNl8aLwTbhU4OeNQVSAhrl244L Y+8KpxyxV5JIrPVf0U14s/1QTc+nW1LkHkqmHutKYe/Uu3K/J1Iw1Ojve0p4 dQvX83eNNAV/nRKd+pOkYJuZf5llR/h+yJUvbELFPH2JkF+C4qCI7grY91gS f87tsMnNEMMhXa8lq/Uo6A2TYgq8JPeKgDO/rwpjxruD1+wvDB0fi8U5HDn8 +dzz8aW+CBoW7tPOUhBFTcWCHaYxgshYmC2pZieLrnY7RmamFCITVnWF75LG veasXo8qYVy0og8zIA311VP2/hxhjP54KOrJk0B35rXPf9XEsaHLmuvvKo1z vQ800o3E8WP3+yevGcKA1fbci77EK9d8W5UQJIMnMVu9ni+Qg/naseI90rJ4 UvLDy3qbPFwLLswclafjzmH9V/tzKLh57sdTz+fiyFSwslCMEUN0ry9tzTc5 fM7xdbhqTAHF54JR2jcpBG48F/d9kwwePy9s3zxG9ts97rXCL0l4Lqm9bXRT FjqUpfzF2mJQh7HNI8JHLYot3nZkLo3s9lxYVUxFYLXOg9hYCsJcqj0WLWUh JGfE+psFHYPBN2xOdtHhryL/QMaBDftzrJYzYxzMvLTvPgsetuzeaSLpxIW1 s3ayzRUWoh4V8LU+s0HzXlf4I5ODC+rbul7RmGDpvqXO3c7DU6WYvHTy90ei btoneZHes5G9qbmBD+vgW+X2tlwkXjW64WfKxnHt5XEO7yi47DqceKeMgV3H 9ytr1dIged97rD6OD/30oJ1riGc5D1vaD9pR4KXHHA0nnCd2QOv8WlcGbEO+ pcVGMKB1InWH2Xk6vF9dDewX4cC481rRAzcGdq/b/nj3FgYG9t98ufoBG6Hf h5Y/tacinFG/VyeJD0tF9/crSM43UTIO1NXz8SSS6l7jyUaWmu320LtsnLuZ HWJEPKz0Q7zNsWE25sVVnd36gIY5i4cHuzRZsGfpuiaIkXx7ePu/V4MMZPsO mJ2NYyN1dpfVWhM2FHadG4/QpuPI8fPPr0fzcPvMNU/fB1Qs63/PK+rmI7Fl 6t+oJA2Cz2c6junx0fVxkdunYSpe6fKUevopyJbu+Kmiy8BKzwOpfQf52CJr e3DhEB9/33atlic5KT1LS0VgMxMzF4qGfrzhguKerny7mQvf5Sbe/sI8fFr2 z7avkoOEkjU6PQdIbpbsZ3m4MCHkMWqpdZ4L+4qUXkVbGvrsO4/a2fBRwomS F8pkwdtmj4n4Kw7in5n7LNnLwxy8Z81WZaEn98T6sJUsnIiT3P7Zlo61qNul aMOAZ0nbn+X+NDQ8DFI7sIGBrHC/20dX0RHHk6s9uIaLE5OLlxfvp8Pgi4xY 6FM2qI3Sy2MM6ahw0jtY6MjEjdTlQWsryPPsVFC9dYLkQdcf5dtmXPzddlZg cx8TuvYdS7a0cKCQdtU30JKJw5u9+MeaGfjR+urkyAI2hP3NtOe0M1Ao37DN Kouc//CItJofD8+eOd97kUfu9eSleB6DjkD7YwVbODR0eu0fSbWj4X200e3e IpIjDhM6715SIJgSw5GzY+Dh9blHP67hQDAusNvdm4Kal8vXHHlD3ut6YvLx NiquB9cHyxL/cnAZ0sg8ycKg613f6UE26oJjvLT9mHjhtOC0dD0V2fv3ORfN 5qFsTDdznE3Hi9Z9r2Kludhq1vnu1zQLr1/1j7jJ8NHuSr1r/ZyGksl73bMG qXDU8or1T+bjTXtLz1tDJsS/z2jYW7HAu9exTFedgfcRcTeXetOQ9O36rJAE DnICLKQv6DPgWPPknN8zJjaMXW9ceZAL6cWtRzjvGWgZOj+ywYiP7DG7NqPz POQWRwnf2Uu4dMuv9EMOPCT5yzZeOMFD0KWo/45cpiDqQrHFqrcURGccNuqb Tzj/r07K+ngeLglXZhf/5qIixE+9e4yC5B3PVm0n37/JJPx9eBsbr+iDw+sa qbj6NHFFuCkLG5vX1vPPUmF0P0flkh0H0THbGfRTVCxX5SQ6kXnZmKFPK25k QmHtgqHldXRobvI91cGiYZFiV6ZzOAVCYuE13wjPZLYs9HpMYSJWzMLAroOJ YQHzMo+bbCwqV1qwcw4f1GMvrNYf4SLdvefyp3l81Dlo/NH8xwRb3utDTCwb 7MFl5UZnOXje+7x50IuOBEbv6u4OCtYbzVe45cfCC4vaRq43HWF8jSZhBSqk Wy0Od33mg204ceDcTRo4qtsW/veaBbGaVZ4fL9PRvyvYceVxFlbNPD56isuF zYoAj+pcHuZNHTF44MFAjsHzy4r/8VDdGl4xi/DEf7pfv326ykKA5vTP4xks iHJFZqlXUjF28IDa73AeFA0Sg9PUyXnc3Rx9hsUDy8tmpekgB6ZvR5s6v9Ax YZGx4Ms/KkKDv97+YsXA5tJC1YUjZP5fNc+XTKDikL3tOceNPERXxJ27lkHF 6Y5S+vsRNhpSX/dYHKHixc+PJWuMeah4NOdm8TcWLm7cXGNyjfjHQFRNWzIP eo9OG1dWczF747JdFSI0vPKMgZgIG2HapUG5rnzQ9VLOzCf3MzrcHHHfiAOX vc/oZ8X48LkpRdl6hIEVHa/yq/bzwT32+3IUmfNK7vrjph1smGfujgmYYMO6 5OgvuQEO+tM0JzKFmHiyZ/3uXuIf9+5Xr3cap8Mly/ytlQQLsyXm39jWTIH/ X8YHbR4HYuZGiSKnaAjXfczrPsTGF2Mr56Y+DuxMq4V/JHOxI/DT/b37GLCq 9v2uOsnAJa3axQUdxIeCu+Uqr9EwW6a/oeMHE+5t5maXRKlQbRT76VVMw4Mu q+OcR0ysntqo+CiXge6FZn/He1loKLtpUm1Agcfbk3170lh4ZnTB5vZRGrAu yTAgkYMyZrxChg8T1q0ljw/4E59Imq1xt54GmmC7hGk3CxOmzlumG+n4Ff4z tiGEj85TZpXmMgwkHJA//CyYibizH+eUp7MRqGkxe95PCix+zs07+5KH5Xlh b0RKuChW6l6xXIKLH8sWBT7Zz4ZYfGzNxCeS584BDm6fqNh7TDmx4yG519dv LceK2HC6PsKTcmGQFJbTOPSXjxVNg3P+DPORtiaCqm7Dw5mk0UUZ5D41Y1r+ LNpMenj+Kxm/Mj4i35deXEz2K7Nx3a3xaC4c82dkIkVZCPz6pib6Pfnn9Krz AyepUPR80Z+aRkH9n8VcY2UKJD4aak0uYsHoWvgV+wIaFLtd34/bM1H2j/N2 zjQDSa1lUw3jpF9nXnZ/ucSGt4B/rv9cNiRmnTQ8x6QjKtDUexfh8EPn/C+n E96osPD+/OU84WIpnV9lL7j4JxiemvCUgeis1rXME3TU3Jcw/yTNxKDExe3V 4RykuuguC8n7/8+vbBtdGhiIWOin66LIhdBiBwOKLAOCp2TvGp9hoqLbRTzM jIInWVgey+XByrzPzus5FbtW8A0EjvHR/aqL+28L6TFxd8OfAjTo7d4zlHaE gyN3bO4rfqPhlHvrW8dmKrw/er1Q6GJAXUuKGbuVcPSWHyryhyigRf8VnUty eGfRu6rSLXS86W35r/4yB/ff7Uj/LEBF11Xbe25qXNBEV35Z9I8NpYuFWUfG qLjTNjPzM4wFhaFs8R0vmfAPz4zX+kjyt3RN2uo8GkIKZkRyl3BwcFnwUuWz PIxsybrjd5WJZeeOcZOfsaCxr68sdTkLm/V451dV0jDcp3o7vYyOhZN3vx8n /Z8qNudYRTbhg70KT2dusbFiIHPOnBI6FBPo/rPOUmD+9eJh7/+oSOz2rZCi 0CCrxpxep0PyJNmN4yzPhUqfRtL7J0zsDaD6/DrPwfUVKqF1hEv8LL6Vak5Q UZZWLSDxlILZnhuXLk5kEW+c3Dl+lAFnxw3F7KV8eN8rcxcXYOAj62OHO42F ZnmJ1MOHKbBWTlhxdD3pnfL1HUKb+XBLUXBa4cjC702SBwPLWPhP7mHs9m4m tEQgNka8Rb9Yw9qVeKHk79mn6kKYcAtde0a8noP1r9Qk5m9ngqnaVr6C7N1q 8dwna7SoSLZ9Sl04wgR9+e+msgLCo8smilZVUXDukFuUsAQV1k0qqwrvUDAR 0GUtZMCDeXJLeZIwBY1YVxL1iAfjk955Vo+Z6LRRMC3Kp0G702n3T1M6dC9n BmXU8lD6/fwL5fNM7K7919p8k48He/LSAzS4iAvydJ8MpsC5LVzNZ5yH+22f 8mQIJwutP5+6hezXU/PEwsO/+aBcK5ipnWBh5cWqKbM1DPw8Hbp/YCsTlhFH n+he4+KyhHPxFV828o1VLNRI72f+sjVf8pmL476Mf/QVPLx4pfluNelBndEF lrYMLl7QH1bNe8TFfY+tmxlkf63nK27Rj6BgOvreugOJDHQyvZhPdtCh6iCQ 0UxyT17ROvqkAw3ZDnLbt/jSML34DK1Eigkfy6rjc5tp8OyYXCpayUZAZu/l 4ENMjOxIc5xH8irpc+LkVlmSc7ynyTrFxOvTT9aVUHmwdTKZUxfPhxHtw3Cp Bwvne86J3mRyUOudF668iwsF3Xz/JSTHd//o4S0Q5KLQ4rZmVCC5Z4b1ww8d XDw7Fu//iHhkltqC8RFPPjydTBokRChIOpwSyUgh+fVvC/vhayZC3zScrDjP gNkf3V9nwzjwlmBEr9diIsH3/LPFr/gYD10n6/aNAp+CUfSK8/Bzx/GZQuIJ c1Mv/K1ZS8O5eR4vEjdzEHu2NkehkIntQtVbvpE8SLyb5XpCmo31CjaviwQ5 EPY4Gb/NmY/bhYGiPW95kFgavqekiYq++zWPpTN4aI5KOKuyjIncS8tV9LU5 WKr+Y5E82fODq+WEtghzUHGwRqG4lHBc4s1L+yU5YOZWlyT3cmCrk+2f+osC hU9Ki1660uFetirYDYSXgvLTNxDu1Gl9vgY7OWi7de5d0hrST3Wf04azyft2 tQddrmQg32PRN5VCFkw3hv+Z+4oJmVNz176z4qNhUmDJajBw98DDpwNfKTi6 M25UJ58DxWUGJufXs3DtzhpBEdL3P81aXqsRflaTUXl0YoaGg577OwySWdg7 /Pm/u0Zc9PKMnQ8qU5HZZyX9Y4CCf05K6y6QvS386nOu+wADOjYPDebbsPFp Xk3bgad0bP6RTSv0oWJ2qdwfb3Lf67u32oYH0tC01/+H8BIq1u5q1V5jTMN3 2v2Y6/coiD+tebmmmYUBocyhIeIzRxrudoW9YUGF1sf8+IHkOTfjkgrJzTbb 6+GigyTnrLzjNphTcGdHzunSFQyceCQ1W5f0Yq9VBZ1DeElFpNa8gMqCTEb9 WO9HPqLbdbeJ7OBAV+689bNyDuy9JM9sY9Igscrs6DmSI+e29r+/T/Lwysq5 S/PreXgdbv01ZSkFF1ed4Z8TI/yo5NO0dB0bFpYB5f/xKdjz+r3wNNl7pzG/ nyVVVNhNF1jZexAOfL5yzPod6eG+VzpaBhy0Hqxk/GnkYihEdEELmLjOimr9 M8hH1v7vSm7Eh+5LTSSI7aHh4sDhDcI/GXiZEXm8bSENOW7vP3e2ET5MU1Wp bmGhI/fXPqsWNjI+93zqEGMg7u/ZnVubSB9WPdrNo7Jhe3dpMXU7BRnmG6Iu NJHcuibfUn2MiWdXT865qUnyjvk2KtWXhX/5X1Z9/UvFle1rzm/cQIfj7cm5 Ue1UzM/b7j9EvNTweVrdFicKLrxEt2UgG4pHGapzL3CxMqc833ETC44VbuXr IklvPnGLUBJg4blt0WojEz44BzxDD16lgO25/ofeKT42zen1UiMcv3Ji7tUd CuRcHM5cL/3Lhl/Waht3ZxpqnI4GNT6j4uzUu7rkGtJ/668GrtLlQlaDnezn z0Hj/V17FbfSILyh/HKeMRcOec0LWHEs2E3tsClKJRxkN6RD/UDOh21UfuU7 BUuOxFvId3IwNjGWsC+XjeRm6i1/4v9fmC4uemMsnNNo1fGRpOCAhsPlCOJb c4t2aa1bTYNh4oJiM+IXV91nbuiSfB4aP3zw33k+RHJk/cyJb+97mOLtbcJF 7BNTpUaSg156ysv1Jfm46yBmd+M9Ezdlm5Oegor+68+eylaQPdyssaS0m46N g2L883UUvPBMOCxF+ojLj557aYQGC8OfesuKOTjlUytVZEjDjvSzXp6ZfNx6 17N1hRcXdsPidzdQCSfuvRoaNMWB2fgm36S/XDBL+epKJhxYVNA6LpFcSE59 nJd2gQltM4E/LwMosAzrWlqjTTjt3WKTxdV8+O8xjDniyIH29Kw++icOWK8W vaqMYiGKb95YM0aHsXDTKilxNg7OF+2xvcZEl/bM0FtBNv7s3KL5t5eBruYI zfUuVNQMfkopuMTBglbdDwP7uBBW3NkfdpGONBX1UwLk3Ch9RUteEC9c3j2r aJzDh2n39zr7/YSLnb/VKHJYiLxdXTlKPFGkTez+7PtUyEjs8x4AG+f2uD1e vJGBgI4BH5YoDX+v1PIS/RgIOrO5tU2aAZFoQZ3kTiaslAfOVfgzIEZft2xL DgvWzxJ23NpIwQ9kpM/5QXzp50eDvOPEg+yFlwi7MjHf0WFwKp6Okw0amUyS G2mt9H03NtNRYtV2Koy8l/5W81+upFfPLJln/GuEC59Fbmcqxvn4WHBIvWgb G6vceDam5PMbGrJ6HR5yMfhjJX9RJAUt5javPDey8GE0WnfuK+LR+7L+22HI Qv3O8vuLrtBBWfgpQDuGC/OgqW5WCAv+fzDb+z0V+784bri2koXGnzFH6m+w sKvX4t1DRbLfy3tq7w1x8XJRUkGFHgu31bs5dgep6FjkNLPFlYOw54URcQVU BGJ7TfAoH19yZ0qV6+k4u+CrurohH0fzpqcqZrHRcv5t+PtiOmLNbu3I3EiD 3/DHxSo/uZBQ3zYVYcpFV/3U9awh4q0brikvXMXBp9OjC4xWUuGZabRD7jsP ++0e6r7+xUfs8VsbtIm3NtT8F+Apzyc9pLZzzyEqPB4+sxvVYWLN29ymo44M HFrj9E4+lAOKE0tdV56Orv+654nTKLgSNR0zNI9OvPOglNk/ck+yn6v1aUzc 1bAMCPhI/j0Xg3dKJeR+Tiqe7yceOLr3+/Yqaw40WMuGWBZUtJyWvM4j578/ MkA1cBUT+Ssyva4EMtFXsvSdPeHP6lb7I/rP6UiUW7ZDVpQLvko9/RmVg40H iuA+nwGuRfIdy1Y6GqdjJGZLsbF2/FpXrSmHcP2hI7tW0NFZeKMln9xX6w+f 3LQXNJzUraOtcmGB77hiNF6IjgsR5jWBxGMWxrtMFGrS8S/snPHPFUxE5fmX ryPnJVe45ObrMyxIxb43yrChQy8rLGGGeHfxrYhfe0IYWKRsJTbgRPYm5T+v WVzSm+PrXXaQvLMoeZOj9oi8Z/7VtKN3eYhwabszP42NzR5yO15kMuFcIXFI t4P4g4tc9qooco98h+fntOhghUaJHyL+2x3cdCifeEuGTr7tvDAKRHeN2j6x Jr6699MM7TcT7a8Kr4UKkjwe0PYwc6eiQbylKIP0wRrGLydfLQ6yjjuFS/ew cT6wfd/wDz4Spkp3c8u4KJ2ftEjej4N0zo7U8nouDt5Jvl17mIGFAYwRfOcg 79jGF4LkueQFOtnsOUwUPf0S37KbgV1L6sKWC/NQ83ijvmUPE7ZJ4zGbyF4k XlIcH6qmQPfx9junmzgQLNqkoHGF9P33m876PRzwZdKUgzL4EOr7GuQXyMBE WAmNO8bH4KbnHcO/iKdufr3AsZKDyf9EMjXvkX0P2qrKIFzSeiB4dHI+G+XC waFXXdi4vXFZ+o2jfGxbFq8ulUBHWyLH8ACfBqpVXuv+cAZUnz+Pr5hhw55v YDub8G1bQ8ISiUE2tjcWiUXSWdjQqmp0hHzO3HSjn2UKDPzhZ94JV+fj5tPB +wJmPGyInTydSrxPKNxoIHkBDc+WenxcOYuFp41Jy0bM+XCXX244IUxFiaeO Q6AwH4hTG0nYw0FSiMDtDXFk7n5G99JJ3r9+HCvlEsrGrRvPtbxGqVj0clH5 wWgWZivLZhq9Z+HHuqXpcY85CAyxu/FXhw+Gsu1vWx4TFMfP32o9GNh0+ov5 HtLvPIMPhxz3Es4pfPpQdT05p/sLr337wodjU/rdrWS+i+7FTodqkf5Kzzb4 /+/tuKmJ7wyV5eMGJ0ehTJOPpvcF+deO8KDxoOrR6DwqvPLjQrIJj/c0MnPN s+nouP+hrJS851G7ptbqLMLtFxL/UobJPrTRn6wm89lx9tQyhxEG+mitgd1l DPTO0Zkq/cLGCS/jqj6Sb/0bBEVvNvBx0VYipIPPJx6RUyXUTYNSICPuOfHh 6wIhJQ/VOZigOP44c5SKHt22Oe2zCdf2Mh8MkD434X8+JxDIRc35u5n1Pyi4 nSPh+KSXnIPuwr2rWngYHHvbfqOHB3furCcjyRxsXlg+yW2m43HQ312LJWiQ ycqR2udBx6/30n6PFtARv//ozhZTPswaNtqUk1ztfuH5yHAJE1KBQXqJJHcb dg7HROuysCqbJR9LfGFS+sz0IWka3NlRF70IB11JHftgnUe4ujlr3z7Chatv n/Q3Jl5QcUdhrclRGpI9bAJu5TOhaPyz31GSgfFcc+3Ub2Qfc9ROVZxm4tz1 zGAW8ZXWC2k3zoqz0Fs9a/DtKAXRtw+2Mkk/ZlY9kH9N8o21uKdymyrxekag snMyFzZX22Sil5Jz6Ll3+r4GlfDiFv6DFCpuyG+9UENy/WJMhXIo4dhDacKu Frv5mDGxFV//f99y8ztMz6JijeyFFw/CaRBKC7x44jAN3jkbDxo85KPV8rBz xxc6NBVV16wwZ6M9uFmJs5fwzY93YUbtNLwWV0vihLFg3M2LKfCikHk/mRp4 mAsxH9fHFcp0pA6s1P+dxcOCAKS3tnNgXSB9y+QtH3OqOSFyh8i8Vfesn5VN vDRNc5ZXMQ/D+tW0aR653zfnK+WUebhuY5WdRu4p6ddjY4UHfFxKy04PHqdi XKnxyFxrPnInlkdIDTPQtPZ05TU62bv+rPWdfDoybJ7XYJKOm4oD0u6PGBDk D/yw0aXjKjNX9Oxy4kv16dtlPSmY1fN+aZYMByd/qnnIkLxSrVDYtXaGB2WJ E7drcjkY7VEqukw+p0WsKE7pNJkLiUnF+H467qpPHC8keTi++OfYAcKdB+ti G099p2L0d+8in0V8aAf6H/tIeO7Fowb1F4S3fYbm/vv9mYeuKbsytYVsLF5/ S0icR4WP8c+os/toWLL1ULF4KAv7ddV+VBCO1hzZ0+JIpULCl2/YksEGzUur 6YMVDzbzTEV+LuHCYHuOxsMMwuu9TnL6fwlvpPxo3JjDgczdgEW3ilh4U7PY 9zvhxM6j3+rDiGcYbX8gVmHHgOO/Twc3qHMRMTu/QZn4UhrFZtetTi6mTrxJ mCbPpTVd6iJkyUHDKWpGOOmB3xo2Tkm3yPP7Z+RcnkXy5lvW2KyNXHw72Jew bw4LzpsFtOs2UzFr6KZzghbZF7/dDT74P0/MP2ptSYGs7e+Y8RM8vAiafuZ8 kI/ejX4LIvbycG6haQqjnYWpyE6xyAIGVqk/mlufycL7HPj4ruQh5ttdje3k 666kt+gvVaTisaZXfSmL9ODCFYtnzhGPHxXr2VLMR6OUT4lwEA3LTHybL6hR 8WEgcnXtbiYiV6e98Suiofzn7a+Vz9gwEhVQmS1Dnov2fVPoFy6uZtfNrU1m onCn/aPXpM+Wd2yLu0bu7f16DcdZf1gI/pYRxK+mgdF8RKWW+IdmWdyk5E8a fI6xlTvGuTg2vT/YxoCHOfX2W38ZkVxhzvb5/89/6Hcu/Pxbz8L0x6xPtzU5 cDlsq9mgy0OlVJ38NwYdha595ieCuFBxz13MtWLD/8qKe8stuZitvn2XDclL Sy3BSSvi27Sb1mvLqnl4d9uqYQvhSAGbPdMp/+hQ3dPwZtN+LgxX5c3UZVBh vH2T4pk4KmxNe2l+nVS8r7F7saSPi6hXOfUdI4TT50zEp/kykaG/M/e2ARsd ovyy4Bcs3D+6TmfeZi68K7Tvc04y8Om57YrT8WyU3VF+HLiNibShRr1cQS4C Xz9v+Hma+PnXu/+siI/xCtZfPk28qvtiFeuSFfHNsD/WD33/f37ToycX8BH2 ZJmvRSrxy6sbfzmQ/rjxzOqn1mcKAjob1+8ZIHngk67XQeZLTMxsWm+Mi86i 0F5OC+H9Pb5NHz+zob7T16KEeH/EC56WQRkTD8UXaDzrZqLpwbvDYz85UL9k 5/qhlQ2Fe7U/lzJoSLE+ukDbiIsrT3zz15Wzkdr2OnhvFA3H36cFsTM5eCqY sWHjBhpKmYJb+S/+/3OVpG/zJvgIXXnZR5bs+0WvlyHGZG7OKs1/ylUjPS+Y I1SjxkACPXDdJRYdR8IWvsjuJnx1MlL6GNmHhS5vPAL///8RZ9BvTJEcms+4 rTKnjQJGyf1k57M8jA1aNx/NJO/zrNFqMJSK02MPzOJJP3/rF3gsbcJGfNS7 aYU0GkIeWsubxfFwbNnmVCrxs6X3KsfGrNlIn3f/wf58CnyHKIPFzaT3NinM exrOxxqdmnq9xTR0uC3d8KmQD2uzs6tXa3PgO3djVmEEOZ8cRxtP0jtKwsmt R20p+Oq0bl07i4a4M/PiI+hseIeUyVz4QEdKBTNc/y0VtQNn/DRV2Zj/5t/D TYQnC4bjhTw2MbBudrPdEuLj+dTC0Sev+ag66PkqX4WD3fW5fKHXVAgcVBbn /2Gggr/RLPQI4ew9R/7U/2WhcNW9j19vMGF3U2k/05WC6oQf68fZLPjc+bF6 cgcPZd+HfEUamSjJ7hwW72ThgvpWisVZLrZROfk+T5hYFf5lm4gCHYaskrp5 x6gweBIWsjGWibaJX+mnqrlIVcpdI6LIQXui7GJtU8KLhjvezz5IR3fegTKJ RcSz80fqu/qYSCju5HbFUPD+W6ShnSrpD6ntu++R+3sXcm83fQ3xqOdbnjvv oEI3+NLJ2pt8fBK6r/9vCwf/xqa7D3Sz8HlbvdN1bRYsf06KuJRwMfzLSekc nQnl1A6XUi3y9SWxvQcJ71d8fLD5NeHp/iU2R3sdiM8mWB5OIHNpO7T7m1kK E1+HurcubuQg7m9V/d0txBP+VBrS79EQyqnN6ZxkwNi3faaGQUFwJ014YyQT 4aVPbR5Ys3BHSzpyJflcufaK3uvneOB5rB9Pk6Agi2J3p6CWD5MppxeKJL/L nAJSPAiXutPls2MjKHhnfq/oDYWNihlF7zJnMl9r7F35tnTUOZzfZEfOsUz+ 5Y6gYCrZa/3VwywWZrodhbblkvOqvVFfTnpLIPD0Aa91PJgFaj0LJ88h/fWz 1e9yHhb+adrJWUHygbnZoeoyB1L/yYhIrmRjywfLNxKrGPi3zKL2tQHpo2Nm oQ3zuXgknNC1+gkHQtarzkeKcSG0y0B33IuHxDGTiwfMeTBiSthtO8/FmMlh r/hXLGicm6uzyouOuWds4/V2sHBK6A/bg/DRqexCBf4iFoTaant70im4qMmJ 3FrMhZFI98TZfwwEp+ww0iLetFC6M0lHigYp7szb9N88RBnvVfFo4CD+00YB wUUUaPEDRpoE2RAQ+SKmQPrbkSX18spXGiocP2duTuLCZOxgMEOXgpqwCtvK UzxoZ21JtY0ge1k6L1nsPhdbRH/t+o/khlnbrv+myBzHbXX4HhNDBXZdX2Nk Q8VIZaWdxz0e1jVJuxzR5UPOWOjUY7L3Qw+cL0xNc3FP6dm0WDoVL2Iar81L pEGsZUGlpSXhFaGh/+YE0/Hnl/c7z11sWDm0x68m/rtnW0vl6WgeQl7eOBkr zYLrUD01rZ0O6smqB/XEZ8QearG7BikIuZc4ccSLDSmXU1vcSL+m2pcrS3ew IG47lDLHkORt0Kmt18eY8Irwm7OGzAm/T1rTfw+5Z4XEZSaONAxfeVZnfY8O jtDqlVaPeLi6hspwTSRzvDcg+8BxNoRUN35qVePCRfGLwLV7VPwVnvkRQ/J4 mUbZ5Bp5Jl5vljkpQObNvVz+R0A9H9f/ydvsc6ChWWZ4+hPxn3GLus6zoOGE 9vOWl1MslBVXX7JkUqBSm39Hks5DwX/rP2ZfZOHrH3df+2Yu3F5Zp4pUkj9/ 7hjde54Gkaze4afEmy0d+vTDmvnkOberMEluHrsip3RdlIf5rh0NMR58TFr3 jyUFcjC/Z+ng5j98hKxUVhqisXDk4JKU6AniNesephwK4mA88eKjsFKSH8lN VxZ7U9H+9mtm9W8KZpZavFZ8Q8Va96lb579QsOT5l1ixhUwMuhUqjzfysDvC VvhMBgcHzNvVR4I50Ozqbz2pT/agOtvd6g3h9TCfuW+K2cgvCa1apMxATeUZ ozRT4rV2ft5hxP+t5hWoxwdSkeHp+pqbSsfHxcIeDy6w8GtXOz2BzQNFwN71 TRwDcxIzZx9u4uHSThyPyWPjSvho9GU9GtLWzG5W1WfDTMzwvkAtG69WN0lo +vPRGb+6a2yKApPq73IbtrNhulW0r+M6md+nMavuEF93bpPxvtrCwLbrk327 d5BzqDv2vX8nA4Uv7kg9MaOgyFFgKnURE06zYr3UstnghG/J4y/g4fnvRysy v5M+cE6/nFLEgP5g2O+JGj6WLgnRNCP5v9tqd2AX4YKDm4uOWUWwcOPJTYkP s2j4VpR0KJTwkikv8r8tY3SICS+xMF5HOOJkTOc7FzpqX2nPfN/PQKIAPTSc +K6W957l27ZRYf9vlsKIHgept7ws9TZx0CxouMHtMx+686+OpMfywY+5tlKJ zUddu/NNQ9KzPqo9n+fL8TDanRacVUPDnx3Kk+oTXNhN6z1OPEr6rfez8ewq kgcfxSjzUmlY33p+gZIdHY8Y4bU9xynYqdn/86wHDQXSi6arH5D3v+M5QuPR 0WVtWB4vxofGo4Lra7U4oG0RzP7L4mKvvV5nng0XvNOXPU+Sud9+ZfnHi0fY uNPYson/nYHd6Y4tLGUy189ve7NoPLhqWoUkR/LAKeC/Of2S9Jzn/swZJg8n nJb4toxQcTN2gfFxKgcbwm5amepR8R8vbXv3Pz6GVwqffuzKRSUFVSFCTFTl OuYrkHxIvCp7tJb4Ucy00NRFKSos9JrtIknfPnO5ckCkjszbb5XaNOK5lIAn ARlNTMx9OWDdSN4/0HaP0I5EPiSW9SlXX2KB0z9gHp1MRdxs2+tyLCZShDzP R7axMbaJ4tJD+qLz6RXb7Zd5MKlK9JshXMktXKR97CELO4xkf7FeMjC3o7vX aCUFL5xzlyS7UGFNfViiMUiFkMb5a9KaNKjNd/A1nmBhQO/7c9e/TDhUt6x2 X8LBsk/3ytes5CDrTrL48ssMbFQsT1grSvjO9eKIYDDhjaLuU4aaZB89Jr7+ sKVC3MzP/8lvNhb8rP3ioEbmXO/R9wziRTXeS1gLSM7k3n6+btlDkvsNdS+f OPIQPbH/X04WDamRaqUTJoR/fjgNzhXggRkZe7ybcD+b1hnAoNEhIvJInTvC wfTGNZ5fSP4nd7fT1eVY6HSb81NvD/HxjQO1+jJc9FDk2aNfCXfJra9kke8X ZyjUeofFxwsP4z6OOtmDV8EGSiSHab+b6Ke+szB54HOxuDINo4dnrrjdZmKX jsfr/YbEY/eveadlTUFo1rcDN8U5OCIlu+34EgqsnTa9W7GNhnW2+oaN9/jY eU3oCOIpGJC5mOMqwwRzY2FQqRQHTv4XDO0CGfBQv+YXFkU4GwcGTw7yoLtN 8ojzTTaWWOXNb/KkIjgvIV8whsyD57rZc59zkR/uHzS0mHD85juu3wgXfUsX Z6umc+CuORoj/J2COprDGd8+OmLa2AadK7j4Fy6iusqQC+U4peCycTrKt20d DNjLgPv/KjIXbyjTOI67RcdQM/POvN6ZV44RytmIkkG7fKNW0ibWyrUkhCZr amUjq6VDcl1brVu6KKyWoY6I2GqZsEpNNqUjEY6czbrUKrrss3/C83t+z+f7 +Z5n061eGUV8Of+rmW8NGCy1mNkVOcFF/R5zpipGgJisAh3fLAoRxpGSMeJF JrYRu9OMaPR4bAx9KxBBXhRbGDNO3qXRvVSTQBq+521iNKwI/8oCb1jsZzCd f+dIRxQLLdebi9qJZytEkpmxShHCFuwNK44wSMkJYJTE38upiPRhLxp2N3Q6 1YgXqqLNctwnaIRdCnGpCBJiyXtpYs4dCv5Na0YZdQp5+reHR8h8cvdzCua0 KUSOPVS91BEiwzOj3I/kWE/HoEDfg4uDl6lkTqAYIVayPwz7WPTdr62yG+fi RjWnd3aYB63mYY0pwsdHjwyuDDwXoKCaXeZsSu71xfXJv0he5V3c0UjLSG/2 t4tOpQTYaTxl+1mLAVrDackbNy60bazPlO9j0O/uMehjw8eQ2aoVmY8FqGwM kuekc5FgZaqhN22Addx6tWcUixK/w0lvuoXYvfzlgnYCgQCnqDPOno8aLZfe C8uFWPCruyrPJf0xMzBYQnh+erLtthHhzuzeqaNHTCmULMsIzlDQcLLmvF2b RCNAJhPG/WiAyYtbDBYt8HHNklG1j7BYH6TwLNIkeeaf/7QnlMX8uvgvyv4W 4wkvqal9TICSB6Wxzmp8bMvdG9/4ieS+tUsQMyHEeZ97yx7XiLHvc8VQvxaN P7stY599J4TOw7TiuytEqFu5ZjpTycPJFuNjel0UVCmS4/fvsnBVb9MaCBSh 03m44/B1Fk3QEiVZUkgfXGtLm1Oo3Sw0rykVYkTXQ6Oli4uh9Ohmly4eVut6 fRraKkDNCVGxPZln88WWNR89RfAf3n3m1XoWfn3VJpSC9Im9Cq9Ib8LzJAdl mAaPeFWu/F04i8lzv5V6p4pQeTZaYj1N+kvG26bCXh7CdZx8a0jOxgk2q9RI 7rc2BJ6SEk7pTP18V6+Vi1X6VcIdR7lwdWyrW91NfD3BbfQD8dGr/dfnQn3F SDbsP9a1lY/Nmo9aVp6iUdxYFC8YpbEou5Kfn8wis7bJJURJgR999InZPIN2 peUdi+005AlWiaVGIjx7Wm2hH8Ki0NzaWEr607byCy2OQSKMazrMHG4m/d5E fSJqksXplYLTLyJYlA1dKc3VF4GbfMsxJlGI7d/sKu/g8XA7aOic1wYeHD1n pw/IyJ7EvpMUEo+cSeRuiG4QY17aVu5DfECalXR5ZxYf/+T5s+cI75SXVNu/ PMlD8PGo87UsDe8G8Vm7bB76xx21tuiySHmzeNevy4mfuDuN0U/I/nAceiWE /9Y+XTbZ1RQyd2jPRX4kPnswb3ggm4/sTcHOHSFCpHQqjf+Np/CAXVuQGk36 k+bvcw4xfLS37mlx8yH56RcaleXK4LmRe7huNw/XvFX9OcTTR+WHPF8Tv1pX d8nDOIlBTtRIR+cH0ht/0Ahpcyb3urO02GyQD8u60YppwgVbI/ubr/sEmE/T WD06KwS70UiRp8cirEHeyCG5zYnSr7+pLsZj+ZWRkggBYp18GOliA4hWSL8v 9RMhdOnZ99uqxAgwdP1pyQCDcbfu+lFyrq+bFAKXOAbKgDTL///HY14fejVY wUWPXHXctEyMUNkv7QeIz/8HUg49Vg== "]]}, {}, {}}, {}}, Axes->True, AxesLabel->{None, None, None}, BoxRatios->{1, 1, 0.4}, DisplayFunction->Identity, FaceGrids->None, FaceGridsStyle->Automatic, ImageSize->{360.52936355639036`, 320.2714490369062}, ImageSizeRaw->Automatic, Lighting->{{"Ambient", GrayLevel[0.5]}, {"Directional", GrayLevel[0.5], ImageScaled[{0, 2, 2}]}, {"Directional", GrayLevel[0.5], ImageScaled[{2, 2, 2}]}, {"Directional", GrayLevel[0.5], ImageScaled[{2, 0, 2}]}}, PlotRange->{{0.0025202783768385473`, 6.999894687329939}, { 0.0025326038338024937`, 6.989737295446679}, 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", TaggingRules->{}, CellChangeTimes->{3.786721530815445*^9, 3.7867216292886543`*^9, 3.786721924875722*^9, 3.786722215721843*^9, 3.872002097847891*^9}, CellLabel->"Out[222]=", CellID->938466682,ExpressionUUID->"a014fec0-c459-4086-ac18-3a3ae70ed1bb"] }, Open ]], Cell["Visualize this dataset reduced to two dimensions:", "Text", TaggingRules->{}, CellID->837414541,ExpressionUUID->"2d37ebdb-52dd-45c2-8ab4-4c17fa17979b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ InterpretationBox[ TagBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[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->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultidimensionalScaling", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[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->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultidimensionalScaling", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.1.1\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/6a4a06f4-b0fe-4509-8484-35ec1440fffe/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], #& , TagBoxNote->" "], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultidimensionalScaling"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction[ "MultidimensionalScaling", ResourceSystemBase -> "https://www.wolframcloud.com/obj/resourcesystem/api/1.0"], BoxID -> "MultidimensionalScaling", Selectable->False], "[", "vectors", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7867215752935753`*^9, 3.786721581738645*^9}, { 3.786721912145054*^9, 3.786721929701558*^9}}, CellLabel->"In[223]:=", CellID->127437861,ExpressionUUID->"12402ed6-86b4-42a6-8e24-2b0f475d4d20"], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004583333333333334], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwUmHdYj+8Xx9t7LyW0UXzNSEanlBGVhpayS1KSREWLpKlQIqKUiGiL5rnb e++99/6096/fX88fz3Xd13POfc77/Xo/YjfuaZvSUFFRtdJTUf3/+f2HZt9V RQo+K0gc/S6cjKJb9/45LcxGduQpRza/WcOfIUrGQtIcRGh0xz3G5E74lSZe +aODnTz+z2T9TXsrhFbfjP7Nxkfe7A2x8R4exOuz5syBFfyk77IS8cvLhoyP V8LvOzOQ46+1fvO0dULmS9vzfofpiOlO0fJMh358aGz7+b9iDnJuvkEqyY0C RimtHfXHqQhc3xTgf2UAtzi0MlB8OUmj/Y+sNzcoEPjf8NbeEi7CXCNss89p Cgh9aUHbTzpiOaLlRas1g/ZKVq9JEx25orjOkEHdj5Sy6oKb17mJntjRaMHw Qfho/VtlVycdia1n89p0dgCFHPKtJkuYSNqVVXPp1F70fviMQUaLk1w6c4NN lPEJhKTKpJ+eZiJ/07fsZnvfD3fdFa8eMmclDm8dT02udANHxBW1ixpcRE9B eysdfIQS8zrGm8tMRDIq21fnSy+GPn3VEsHIRf6Zf6pN6CQo6Oj74GEgLcn4 b7RJ+lEJ2lG66Q5EMJO9Ccnn+tYW8MvtQYvbWYzkHE/Ud5a3c6i5cs77TxIb WUpiOFz4dh7W/GIm8rs4yX0d6vcNlGlQFXQeZo9gIE8e+RZWmXVj5URtWkIQ C7G96tS1ntUGRhZuK8K7GIm9jEWZRd8Y7GJhPXYnnIucDO83lqmdQv0ynbbz 5kzEIDk9Y0GjBtPLxmLehLKTI3slVMNLusFfhFck/DAv0T+5y7xztBXk2P/L GtRnJI3HmaLtns/CUnlEmsY6N4k9nSEq9aoBTAteXlzg4CEBCg/tTH3j8aLa p0b1CCrCIlYTdsSqB+9lBuxw1WUjWaH3v802DiD1kZK2tlfM5F6h1+XIsXl4 rmL+mGMPC0lNmsqMsV6AxzxrkpLKa+g5UC669jsCdcYe7OBVYyWvzlxykUvp RGm7xRK1jf5sMpUSrC+bwanMu/48qfSkSccpYUWxH7+s3fRieclLfjwbH5ZI aIE3pY5/rBJYyL+QVzS6t8ZRRKOe9VA+LTm1dPn5Rc+/cORKslBtFjsxm8ec wOUZpE6WWnvyk40Y/MdfFrllFreE0UWqv6QmSY+vs2x69w37m+lLKNeYCMcm r7bgNw2QeM93020NdiJoIPRteJ2C7cG/+3Y1spB4KXtbbZZpXN3VMZCpz0D6 0hlemxd3YRh/+LtyLwbysWbzM77cfhxgntlr/pOVxDMp7dL0n4Rx9X/+tYYC JCZngDbxWiacLuOOmU6kI37PrzzfebIVdS9Z5F6kYybvaSiV874L4LV95dY2 J1YSZ2WlzDIyBZQ1JvEWVibisb55PvDiIixo/qu1O8VJBFQfKqtvL4YReYfM 11tYSKfXUJfRwWqs7JsPr9ZjJiz7da8JRA1Dcje6TcTykOSubwecZTqh5/ue hRu/OEiUpWrMc7lFiFcp4JRw4SFU3mrs2rWjqEPHu2NBnZ4k73NS+/63H2r5 rJiGP9ESBcvscRXvPqywGvxcMsJN6iVmTfavXwMOed7E8iOsxNH3gpJzfjlq HlNnCEYuYikeWXeKNGHm2Zd5U5Is5Gn0j4mOUgo6mE+UHujlI0H5idXrEh24 +rkfFmepSSAddzJd2RRwEq5XdQrc5LTSF4bepAFI48mf0VfjJEfztU+rXYzA T0GC7DavBUhfdcpF8cE09Jd8RLsmwUoklc7w8Qd/hReOJ/wbtLmIreCp5p0S k1isqLZQq8tFDL5quH1wGUWtncGUbFpqEr7lxGnx8w14tS2mUJ11Y+5s6+wq v6Vhtaab4af/GIir97bNfH5dwCswZRJ/Yh1lTJJ8/V4HQhSd57+PX3mI3n95 QfIM83hhSc51SycHSf36uv1MzBjcrT2Wdi6JngiO7nQOOVyPT36dmD6TzUrs svfPijn4QlDxJnf2QyzkCjnDnfN1GdUsgpyoVFmI4T96VV3HMlDTUmHUn1/G SxnvIjVFW6HVseexytoqGjPlylOf6gTlRwNxmrmsZK1dqLfj7ijs9xBeKq9h IjJFMVPxl9dg5+2l1RfyfOTxFff6S3RDGLAe9+uINScxKZtnpZ2YgeuqLDvG vzOT1qSFGGPKPDS0xAh8/UpLAgW/fw3PqkH2E+lRFjeYSfmHr3wxcpPA9X22 ofEcIzG+oWNw/PEUnolVlLFCelL3KSnz6I9pePj7s27AJg6S5Ny6EtI1AnaB yyDjS0cWWJ+OlXpPQTFtygm/NlYScrhIbkalBdl3BRsvsTOSgCeDd6ZOfYdv b+tYt1HTEgeRM/2tjY0YNx6hNebETU7ki3QObO5GYMx5ORvHRfj/Ux97MTwL Qn1cuYZVHOTQnyt0Ig0VWLX7sO1lIkDK1r/qcDCG4d1PXbNHIhnI+bb787cf juIfkYirkcd5yNr6eM2f+iaIV0rh1MykJo9ujbEq3+yFDwcIz109NnL/ZlHv Q4cyPMn944IfsJIHgb+VjTU7UOujZvSpWXZyNPiF+tL7WrCYTnGYfraOrd5z 277XNWPZPcpAWxoL0T2+9PDy01HwYbK1MHRhJCPZjuNsyqPw6DwHs+xLdvLL aNj/85MpdN1vtvfKRr8YIH1kmW0amlITab+7s5APgrNjx8uXcJvAxM7VbxxE KtekZsV1HmzeCai9rmIh2SrO6WOHOyA2kU/M14ud2FslO0c+GQOPf67VqyfZ yJ6JYVo6lo19X4o4qMvHTgI3Z4VPMkyhLkfYrPBHBmKrUJptsv0niCvbtV/Y mEe56/2rag4rKNFs2SluxktUhpKy//IPwPB1Ab37XBzE/ZbzDpeN+cY046q6 mzTko4d4yHXTYSw+eTq8ypSL0ATWtFByq+GCoIqV0l4ucq1o8SSPzwLupZkK frvBG2dcz/KFW0+ilOL9IfdjC7iyx8iedqoXdMQbtDznGYk4WwntbsssLLpz MnFgioMYx+SyWHlQYMvZgq0qbvREyqPgzj6zTvTMdi5WEZvFS1Zrcc1PW4H7 dCI35zdGcnf8NM1kfgfs56dsWZdgITmyjs+lLJrwicAXuQhaLuKe68/X6fIX mw8ufwsI4CGtjV+VX9pUQWlPSYXPES6CFWeOFr5qxX7TxwJyfjxEkmqHftK7 Qij3KV0u1GUl7HyyPzJPp8AVW4N7CXv5yKvwrWoC8nX40DvqpDoXF+kWs7vE uDoFVkuy4oZlvMR69flqC08nGMgolu55ykGedCbuF53Igsp8ej6Hjfnf7bU8 OeYyjZe3GTEqnaAj9NW5r2arHgL/uxfM8Yr05FTY16iwk3NAOV9MbU3hIpxO ZOVD3SrCPvq+Zklm8vH9BasdCgtg8UospMKElQjPFHIYso+B6DL36okz3KTt pLkjMvZAfL657awVD5l/Nh72Orcblk3fsEslcRNlFqcIB79hnHSjdgoOoyWf V++ZuVP1owH+E2U7wUqiko7X/jzZixy1VwWtzBnJko27r58DleJXK24ppiR2 ovzwYbg65yK+MRmi7MijJSOpqg/mfIKx8CNucqlgItlelJFvk+Ogdq9NP9KA k9TGDfu++NEGKa/97tVs8FzgpekPR9NH0HWbOxvLU3rivG2fg9KTKvwqQLN8 1JGbLN1ZX76hlY0eJ2ZeLf7kJjK/Js8+CuyH3uMOU76zG/UF2aTtT3yLG8ca H/zGRybo7ghS0iog9Ir08GgxE9Hq9ft7gFKC+wabPrgc4iVxKZTYjl+NMJKc 0HGBnpVcuxFo7fB1Cvgv66mn8/GSuZWM92wvkyGX++Ltvf4s5NrzTGqJxAyY 9N07xDnNShpaOlMfdQyj3LVjosojrCT4n8tR+sX3eJJZWtPgFh2x4TSq5v5d B9p3YhkTT/ESq386Q0sulaAg6uzA18tGqF7+XpODIQTOXxnxwQzkjyjtcf3H 5cC/6cTrFysMxMPUWM2OrwN6HcfZX91hIGPMYnHsqn04SbM/XMOInSxFtUr+ 7l0AlrfSbx0HWAge1n3mPrqAETNP3p/YxkB4DRlO7HsxgkZCO99GLvGQT7aZ BwvVqiHMiWs71XEGcvLBbXUuI2rFZ40rLWjFTt61htkUHx6GASUDhnU5XlIc S39mp2gEKP5+zGpttsG/0t2ed8sngPrs3u1mVAxEI5PV9OXKNFwM6HaxfMBF nPlrbE6rPMK0RzVnLUTWMfxq51t76Wrsujv51f4xJzllHX8wOAmxo/3s3W8q XKTFMrfq68IKsmkDk1kLH4lNLbE0zyawklPN+4CDiTjsucHavrUX18brOAK0 2EnKB6tNMv2N8E/CMVogg4uYfxfg1/kyBZeab8lNL7MRRmN/EwXRFsxqWk/m TWEhqjSnRX4cmwSJgfWu7xcZyVthm/1ztWsw0O9qVP2cgmejHUfMF4sxqlVf iYqai4ybfNDkUurE6BNG7SodTCR6nssGc/qA2oY9W/YnI9EwXujLPtQORd6T PgP0dKSOEnK1uHganyQ7hkh85yKrEvmaRYOTUPrMJeD5dU6i/fW/R7yB7yFF m85qmDCSA3elLbckJMD39gdtWVosxCXAPvR8dB6OhLBfc+lbxW+JUr2HJGvR RLV3wfkpF/Hhiaw7PNUNzOxsO6pCWUiYtdOXIZU+PHZTW0lXkZbkdy/VFnlQ sEz7UPyDU1xkx5ynsNeGHzdossxYZXGRfeYqw3lWObCjSYDnwBsa8oJ1t9b3 K61ove+SLzRzEN9Z5alkv3iw2L1nTHoPI+EyWdOTbx1Ec4P4Mf7PjMRIfN4z 07wbje90p+5OYSU6Wsvdb84PA+cQzd/BHSyk2GtL/TnhGRjaJqVzaJSRzFDI oWwjCp4zMGv5IbKRP/TvH/n4pgfkWI/MHzZlJB495T6tsVNYsTaxpfrkxv6a jL2bhhbw2BoT2bOPkcxf5ldxudWJGSvuh2WnWIk5w6spDpFFdEOBdmkWdtJY HjNtW9OPxz8nkOJ/MxgcnJfzkS4fYjxCPgg8ZCffrD//NRxvwWufI1Xt4pkJ 7d/bY1YuhXBE7K1KsAoDUTc0Hxn3HATv1B9GtR0b+nnrnU3ShyHIu/BlWLaM nbgOiZdPuI9AzOcq0fOcjOSVTpXau6Qs2M6+f25+47w/J3k2P6SawXUj+UOL 3rTENGur8pLqHOjEaszTpbOSo9e23zU/0AHHaHMYXw9zEpXJ/05RdfdikIYs ffAKPVmC4vYKnimIsR51MY7kJg+TMz5KMpdjoMgT2Q7RDT76fMpFSKIX983b BSz8R0sSFrwp89Gd2EtVfdBdnZVYKc28VTo7Bev3LU3557jJ04evLv5grwMf c3kfWhFmkr51vdvx0ThWMjyuXA1lJA5ijzoyGUMxY3rPu/AN/4o9JP1R9fk4 LFuf5Y5h4yF5bufxDMcYGnp0nlnS4yaM9ztCk9mn4FU8r/9gFB9ZOZLuapHT CbGGvY/uM3ASPoUItax5CrD8M2tRe05LvGI06fLXKXC73rmdMZaJnGdUeRzU 1AtV991zZ99yk0QGd6X99q04wFKib+rIQEwiqAvCjg7ivge67IvXWMhSvXLV T9V+rG+UO392Qw+0jBLPitCMwCN1bduuTE5S3/h+tLiiEKTLnDPcc3jJ1SfN QQWX5lDwimOurDQ3MZhvtbYrXUWLDwcfnXvAQCJ1yxZT2Cth4VatmvpZbjKg 12n7QXIYud9PWKtu1BcUqfjGT3YMRlBYjm2Yi3yvlaj1jK3CKZ+zu9oi2YmN AffpMwqdIBMi687gxkXOStPbH9q4P+UwxwPRt3nI87mqvBHZQviq5hPy+T0X sffROV9qN4uxoldcD9DxkuOHuSr0XWtw65CR5fFeVrKLnV1fTNsebdvZ9jw9 zErWPz/MPUi7gD/dviqvVXCRISXZ5yM8k3BN7tKxpy+ZCPiU3zi/bQSbu+Z4 r71jIU5cOyqHMlfAW/3Xnutv6EnjD+nIXX8GwcnCMttygYmE0hq35bxbRH9N sfOPzvETU521d99y+vHPfiGeuzu5SQDd2WumR7uAvlypv/vZMvpLRN/dN9SC dfnOzrJOXCTvrZQ7yC5hV9rHkZVATgJrdoJZuyrBSNFMJSiFnqQXaPlZJo1C SwjbpDwykhMMhVtlrq1ARBDd3wk9OjJyOzvU83YhhMR+ypTKYCISH/jaGT3r oXft3lY/UWry9Rd9TGhvDz4wHwh/PcJDmAR2TzsNdkFb6k+9F0wCZOgkM/Px 3UVwou+LdEERNaErqp5Nt8oCx8/7FnNYl3HBmu/89/kN/z+mei0viomEVLnF 04uOwoPjf6fdNvKVddCiW0Z1I2yqSTQVLGUmtwa0XO6MzGDa52d6979zktyk ov66DT7aZKdBWjK5iUMEq6xj1BCUziWOPnxNS2gTezYpX1yGLXkHNPaL8pF9 uxevurJM4qZruc8kpHlJIqNLwxRvF9Jdu6iuv4OLpG5kST6ZOpyz0+Qu92An HTGqhjH3psH0RplivD4Hadsm89EodRhr008s7rRmI5NUliK69iNYqWfZccKe m3z8DccyDg0i0Xi9RtvBRyQ1n8ycy63E0zNqvayxa3guf4Y2KbgSPT6EX33M yEE6/k1ZnOD8jZP7dSv26TGRERhxH38/gGPmVLWt4ixEwnqnpnfaCNoQ+sTT WziI2u9dL9rvDcKbczm8Hk5UG/lgc4OW7hCaUdyNqTMYiMjHz6ki4pOgmJHd 8eEPHxH7w/Rhr28ktuitV3+dZSLF0Zu3L2dRcDWZRdJQiIfk23Szp3TkwHp+ gdLL20ykn5E6IbB6EHy/pb2NbeIhfmqyb2zcBpGP+1/ClyMM5OanvYcXx9yQ biTp/acvtORI9YlF91tfsUlLx7Z0iJsYMUaIy//oBFNnKa0TU0wkci5Z6rx3 ObBEHPYZW2Ij0S1LYmlPh8HE8137Izpq8kq9UOhrWy/OH015/uEdM3G4ZNfh mfETbnLbl1/4xEDE9a9eiBQfgJEwrXzhGR5C8/TxBw3uHpwd6FCqU6YjmfuS S+ZedqCq6CkLGS1ukvnTXWYxYQrCCz9rxFFoSI9hccAsZx/kmghHJLis48Bf K+qh/BbM2F7Z12jLQkbdaT50KnSgwkoSvbspK4mXuaJxP2AV9m31Omdyn5aY CH9Okl2ZxJfut0x5ilhIE6NKa7nuLPBSmVBvaeIjhMfUNzB8Y/+iNN0lJhnI 07rRexYvffBk3eOAGBlmIrq/48bL3Hk8EPXkHvtmDqKZFlvkw7wIpkEyopbn uMhv2+3Df19SE7Fk/QcLcpyERyW27ax2HV4tPaFUSsVJrhg8cFPiywaTOc2G 9SI2wk4EfeK++GPXn7bATVWr+PLeUmlCVxfupvT13e9gIFzrR3gWu2ah7wGb 1sIyNSk+F/snnLsTGxcL9Pu7mYnCq/2dIR/WAGxKlks2+CN80fmVe+8SKsrL /GTyZiLl7/V0uvNmIN22UP5nEiupP3xyeFG9AxI+DGgkFbOQWKksoaXpSnj7 jTOXe5CBpG2+v+t11DKMsr4uYl/nItWdknRauyfg0O+/MjVuPETssfSjseNN eIKhhU2xjYt4KQ/xvPg4jbLOyhId8jyE68PKisePIaA3NH78fp6LTHqelDap 7MXHVo9fJg4xkOcjSptWYmdAqW21U398I/+PjLbxHGqEEhfNSoMjPETEo0da 5k4tDq/VfnJX5CCOqoYTlX/nIeFWmOVaKD95H5qW79PdAq+qVpaP17ERypCd defxETSzLi/ufENLfH+7RN6aoaAst6XVQDkH+SGju1tjXxYOznb4ir/iIiZ5 5V+KaKvx1OSjh5tMlzGXwheyx7AfW3dS6/n9ZCbVX8G6lqMFIsfHbmvo8pIR s1J7vj3dMCbQuNnjAwuRox0ziPIswq/KTryHjRZxTVo27clQLdba5m2rVmUm J1y257Gpp6LEHovjOht55JKe4P1LPtXwYWzOWv0oNfkPTBxpO+rQ64f6Yu4S A1H+jEVh9suQN3UdqEPpSItqIVur0DR+ab7AcKaViewK+7ywZ8caLOwZ0m2V 5yb1E0+WhfemgG5JpVnoP1YiEeg+2etVDT3RNkvSi+zEdnLmDEhSsGp6RK/w CQc54s6hKeg+DBf3H2UTu8pAFr+cJoVTDRif7USftIuOGLmYHo57HY4Xqg8K NlF4CZ1TcdYX5XpY0Aq/d2XD/3Yw8Xd55ZXCXOG0KaFhIrcrVIdMXe7gyKpx 4ugtdjJttTeg7+w0fvamKgsT5ia798bS6fP04rDcjaVSOyaSe0lz6alBFUaw 18zIpXMQ9t3+towFC7DjdIXzZice0v33pN+WiGpIa+e2z1/gJuXcSR/U2nqB YS17WdODjTAfv1PwWGQefQ+bxWpuYyMfpkOu/+mZhIqqqFiTKTYykbvrBF0h BbzDdkSxh3CR6J/n5JIvzsKVc8xflM6zkRy1t/e3BA5h0y7To2YZtES/bmep SmsfRrzZR+bdaIjAbJVkXNUA2jhKeFItsBAxdvo9BXdmYCDC8tq5ImbyXn+0 tG7rAKquHior2cdLzi/P/Us91wuHXI+/ZHDmJM7PXWvSs2Yh1tLggpsdA0kw SemxMp/DsE/KI1+tOIm6l/29UJpVHO16PcDszUqWWeM1hV0nQSkrfcfmz1zk Lcs9vaTRMfw1K+Pz5csG/ywH7rzaO4OCW+K8hAzYiGMD8907xqPgbtN+2j6a g8S/Y93H37iIb5l/VOjO0ZJnrVvM7EKbUOzCE9a6LdxEuylEUf9VFX6cDN7a tpmF3DM57THYOwQ8emcpgYuM5HO2RaIP5yycSVM5qL6Pg9iv3Q8Z3LGGOr23 iyeM2YhmrjolgX4e9jYyfDt7kI7YUr2V39k+hj5JSXIMDGxE+1ugV4xPO07u cnbfvsEhIgUXp1kPfYLdOl122+pZSZbOugq98RjQcVqULfbSEoP13DsugQ5w cf2o8XYFVtJTv/tspWsJ6v8wl/djZyaasRoRqaOFePCpT2IoOw3xyagJfFbf DoO+WEEvy0PKa+uelF+vRbHWc00OdjxkTMnwdMjpcgiVfzmL1ezkSryWY4NS C6S53soyPs9Owr8tsSqWF8Ion2GisAQjefTccKH2cC3s4U+6RhFhIgIO98T4 RKZwmdpdW16Gi3D13npm998E1HmcshH5y0NOWkQFnqJkgex2ePq7jot8/O+g 5ABfNW6LrNn6r5WVDP860LH4vhNBWIj2MoWVaHbe1DiZkINg+zB7xzVGcr/p 04S22yie3stvwL1GT4INU6/n/xzCn8NXG+RYGUmNLbuMwf4Z2Er3ZIf8Y1ai RvtOs/HLMgbscKwq82Qij9Xt7mpvW0b2c8Hs3N505HGl/VuDiRp8T83emTJH TXTNAw4/OP8N6tLt9jQ5spLqx2oe9xkncJJ7fc+VjX0/LtX806A2Cvyo+xYk JziIuUelxuvcJfzvQlf1GWtuonh4c/EFtUH0+nfY6YoZJymbTUwtsp1EKVn1 NqlkGuLHof9Yx78NL1R6vFGLYyf+W01dm3gHMHTQ9I7gNi5S0mZ3UpKSAvOM 4x8sGJnJNZMaVu/7ncjk/82t2IidnH/CLi7IMg98r3wibU/ykD0h3U1H/o3j xQ+jaS5vOYnHtoIf56hncFHhwXaDijWsy/QVa+9JgPhbZO79Hw7yQC984g/L P5ygugR/v3IR8veYW2FAHvKHTXQd+LyG9n8+8caNZOP6vy0acYHMxLxPrkBT YBa9UrJsWk24ydjTaHqjW0G494zxyIfdrGTzfbFwt6FBULe+QRfDwUje6I98 +nR6A5st05lYNDf044OK1Kad06g8LvmLlpqOpJ0XuKKfOYiBq3xSNEw8ZEZ2 wVzTtxluPvFIKjy2kQfUE3qCHScgUiFaKe3rRv513x0yPDqNBiYrbQeCaUn8 uqDHkMg0vHrxN3ZXHgsR/hs+ULllChVcLuvRSrKR+YHDH3s7O8DS/eT00XUq stwsZKI4PoShOuZLLPa0RM6z6o6tyhw4J09MCcUzkk9Oh16em1iCy7OyfGf+ MJPPWdqq3n1d2K4boP74JD8x/hvDdEdmw6/eK/8TfcFH3s8EyVAHN6F36e75 JpONvNOu+VXALRWMpr/MBj1mIxyLMTOqjvXo28HG8VqflURJdoo/a5yC8rSa yWUFdrJwfYfulbkUMKu4pdC9wTsPueq5XgrO4SU1Id8hGx7CGRYXdHjj/nZe My7h42QiD8zG9IKz52Dy8LOjSROM5GVxyoyPbxauvLAps8vgJDWOa3tYeWlI kejXtxQWdmI0vyVoiHkWwr4ontRmZiXvY4/xbX40huw8JZMWY5zkGdnklfBy BovluouNpFgJZ3KtS/iBLkzvhbkaey4SezOSL6zKHcucnWlNeejIM6kti8Pn +vDrYni81BUuUhS9Oi1lUg0pKh7Zp/P7QIHFIfBdWSm47AuW6FGdxp3Ci1l+ lqNwPu0uE+EfxYf9W+TojnSB9sWEXXF8SZjY7nOr7mAnyA4KbtVnGEX1MPq9 /dnDECpwUneEtwZHQgI0ZpgGMf3y1B6/sU6c9d6ieU5tBq61NFAbS9VDgu2L 4ks2nSjNhI+EvWtRerDqx7MDPTjK48jt+pSyoRMDGXeO98PEdO951tkpiMzN XymqbMfQs/oWvrxDoPzEtmmqewrf+WldueGziFIl1EYdWAMD3v4XZs6OAPN/ GdEi1pMQ/kPz426+bKyLEHz6hn0dC+3Um5PpslF8aX3nl4hG/Poi4IfTTA6m NarI6O+fgsEtCa355mtAq/BZID+nGyWzrG+l/qiBegk7juXpIbCJLbOwjO+E TFq3NqUNfpB5M0Bjx9WOwawXwsQnxsBMdOsuAeo5kLS6ZMkh/B558qqSZG+2 g65N2qcdlsvgsB767r3mPMZl7O8S6+2Hdz8fXn+SM4iN+zYHd481A1vSq+nB vjnod3D2teSYBKtum4eXH5VA1/ELs+98ZnEmJewZlUkB9EtRqH/bJINVBTXX olITzJTzLD9xp1LcLvSS79b1KRwI6JmoeU9Bj1O13W7FKXDmfqmh4+5xHPqx 2ccxcQL//Du1dqG7GfbX9xQKGFSCww2zFN+nUyDm4P6ypTgHk06pFhQHNoBD 5G9mywtL8Pv3Zu/q3YNw5Xst2e/dDQX39LQDaafQSD15bFj+L5rfvZEf/WuD n1/Tn7+l24xbaPfLq1aUQuuPz4IOqQv41cfWxXFrLRh8UrNzFppFn1cyT1fP t6CqJIfwqdxuuENxu/+GdRBZDBuZ9XavYMysTfzK706suGkxTsc2Dss6jHrc 2WP4/OJ26/EL0xBEryKjS2nAKllqBen+b+C7az9P7+wCsu1n9cl4X42fpk9t sptrROzbLf4ybh5vjtCJ5Fo3IeWIk2UK1SywfwsTVkskWFFP1aB5YQCfeG+n Tc5ewvQu5kzL83WQVfLgVk1tHQgObCJHHvbilzue0efmPoLRpeC0C1umQCqG w/Jyxxic8qqOik/uw/saH/bLVM1i4IHi17X7y/DKtc0aEZ86kdP1bdqRveP4 q+ZOnPDyAJB/Um82AibsKS0rUx4fwz4S1GJ8ph7tnrXLdvP1gkcZjdA+SiEK 2h+n06KdxuVIWQ+J1TDUHU9lk8hoh+X9sm6Wp3ow+qqLZUHiJPYnbWvOvtqK /q6F32pfrqKA69M0MYtuOOyfFbQ1rA3H8hJeDeeMQ/mR3Ki+0kWgZMbcucxe BvPnj2mOiA2g5bjaef+lQdDSrbCSPJQDdxOsfKVnl+CsJ5soI1cpSJltrpnb PQLOtQG8cVm10LkWm0zFMQyZFausx/yG8b/E9F9P2ysgKVPeyMmmB9+Jaeuu yg0Ay+0rz3kvFaHwQSn3zn/ZeK90gbeWbxCP0a4ppKtOw1xz5rlbq1MgcoYh V+9RK6Stykr5vJ4F9b/K7B+ZaUjb133UK8Ef0K0/10Xq+DxKeJ2WNRiYx8fZ S24s4m0gzB70Z/hWP7LzPwppLBlH+6GuUaGXXZBoTCl48XASmM2deHY2l+LM K1f3C3/iQb42Uoxz3ypyJp6+RXfsF65U2/er6PYAfbqDbfPqNN6b8+YP82sD j2evBts6xzH8Bu8hlaA64Hquz36KpRL21ht9jIQpEKdTdJyQcsJPtPH/RZyf wOJ2VzU2pXYgt8TquJpqcTTv2CkO+0Bk7T82a67Xgl++ev2FCwQdDbyc4xTr 4HGFT3ee4whoKSwUsu+cg6fWgw/Nskehmp6ifolpFk9zVDlV8zfDcWk5ZcrF OYzdzhmcVxIPh7wX78n5FcC5V6XSopQW+A5j/273zQB3eBefVNQX6J1L9DRd 7EWpqAbPM/ILEHNU96yDxjC6G9O6N+ll4RMrjYPncBLGZZzju6/kgcwXpmsy LfOwOOE/LH16DiwO9HxWnBrEu8GuE0Vmcah4eGGnbtc0Ws7sVPvRXYg//F1E eG5WwHVtx6Wtv99CoQS3lva1SWBguMmrPTYH2Qd6/btGXmOblVP3vyPUJCS+ Q+BycyUYpsueZLs8j5LWO2k6QvvhrT7Hm6m5CVjLrTLlUilC/QfGWRLdIRhq O5LEXdCCtjur1NacR2HPvZArtZoLoOSp8qr3TBu+3xLxTV/oDz5gO/dh8SIF t5XqXONmm0HraOb9TfoVcOJe+L2jgo2Yojlx08lxEFyXH1880T4D02yluoaf R2DEPChw5k0t3P5lmpX4gwLvpCX1E/c14he5FV2Z/HpsfX/dL+t5BrKXvNMs udKGTzO6phKEJqA+lngO7xrG3faDLvFRnzAkoPogg2E2KHCLavLzjwA63Mg9 +GYMdNY5FG6GT4JeNb1SmuMUTt1nPK1UMgC+PqIRr3YNwR1jh+AL9F1YPnxU IebXT1SQ+cXYZ7+CRzvd7GYHxiGwJoW/coOPLPZNffsm0gutO9OnNeY28vzm HasPLftQQSruRfCbLmQ9Vs+HS4/hVXLezdNDcxAn++hJZPAoFBxgum+u0IUJ 7gf/+glO47P6+zNpR2rwT2XnnT28PZjT/Lx1V8MoVHkJ7tz8dAR4FU1VZ4rj 0Jlz396gkUn8tSV0qipxAhrMOr7ZaE1h+16T6o9pPZCcHfXLSr4E9rBjm+WN afC3Hvsy5NiDus8P+vEe3/BpzzsJWoXNaHHg8N3A+Vk8mtCVw3x5ELeyO5Y6 OzUjP3V/EAr1IKmR/jbsSUVmag/TcmgPwJE0FtfLDtM4eV8/12H3xvzZfBYQ eda8oV+X2rXoltHSpzSdzWMSj55TKpI90Q58gp4Pa3pHYF1h5pbVp0ZAt2cq bmdq8CTlr1bnGAV+MSYlRj1sB4fHvXXhTQXAibF206z/INHXZudFrRFQ3aP5 24JmAhqFB6+4bq7CxMKi68M6UzjJ/EXk3b0hmD52uso9vhu3suznUZl2A+cY bcft7sNo610dqiu5gmD0y7P7SDNMBM7reRVPAtvddrNL8wPg4UJdLV23AG8O fotPNBjC8O+yqcc+t+Krt+2TZxYIRGVS6Zdy1MHBsSntXrNpsFuVirOrKcDS G9sLcxX+oqNUUvGL0WYwbfPpTDJshZgci827P/fgjpO0Z5gHhyA0VyWy+9YM 9vPmj8UOdkIqJkUZa45gW8k8vcbHDvjvn1kem/ckej6FGdXYCdQWzgzszhnA E/dvhL93nsSyfQmKHLLD+HzKoMpJph7elO66qkhXheeE+XMU3abx6k/zTHbX Fayv0ZcW4M2Bcs0j03HUpbD5sqlehjwF/7P48jbUfgJDvac07Rpy4cZwftqL yxt6yCgTOj5ViRWZx6O/WiOoi14ZUvSIA5cym5vWO7JB9Z52/feTdRCSECFy R6MPDohETHtMzGDEqdOyQ6YjcPQO/Wf5rkH4Nr5+7FDuJJqMST6X+tmM59WP H6RYj6CL/QW/Kq1RFNApS819N4XFV1Izw560Y3tebGGU0CTEH5rN5Reg4Ikr GZtUr7dB+BxT5NMztVjsaBTVtbcDF9MrnK0np2FVk7GCM7MTPrF1yPUW9EKT giXToRdT0PHuLKVgaArP2Ug8mN/YL/Vc4ahDXn3wQkLo/WhuBlr2T7/Zs2sc lFKlU/jqxpDGjew8rEPBXXU+NqO/VqFjW0LCX8dsnCtrra55vYiquva88sK1 8EJvuHfP5hHkaPbxuVrehYOv9v2xq1uBHaEBHibuBXj5vPrQP6t5HJny/dXH 3Al2lQ0C+jadYHZ/POub+SQGXYvh1NErAI01XlrLwlngMREuuyQwD/vNz1sw /m7AfP4l4zzdJnjIKGDydmEN3n5KFda+Voruz9RSg7aM42B0d4Ka9gDekJYe Uz86BdRXxwj31Sm8eKFL+ojzNJ4dtUm4eLsLP/JfUWA7jKDDwCp6Q2MSL7z8 KD/4MgtSNKSdFkQaYZrSVhvtRAFqttJzR7tmNnyEne1AXz9wqnxdDFoaxkPw 1z68sQsPP4ijkT24gsmVWhSf8Dw0DE3b1Q+1eO+x0vTFjT3nj2Nv2abcDUfm Xh5QDlsCsaolXcnbw0AdyymuPDuIS3Pd1DNabdiq1mocPE7Af4vk6K/4Gbh3 5AhFt3YYaJiMY8rl+nCnwCY625lR2OYrf8pPeRm9yicMfiRXo49jzdjdTAoq jy4LxVfNoVQvvQ6f9DxoNn2NT9+aBQEDekHHNEfhyOiQJBfvCOrxSsacY+rG LQ5L1eqac/A+92J5e4YZzkfGDcYHDcHcKe17okXteMb00DlJ3l70eX/Z2N9i Go9EHTh1JmUQ8+q4Poju8wM6eY2QgOIprFiN0Nz6bgxEzj/PmKSM4UjX6JbD NJ2w5VFh1i3zfizi2XRJ52UY3Ng6pDB9ehY37xvl/5HfjpYJXtv18megR1x0 6vHJWVwXW9L8+6cQTtlrBDwR/Qcmj/ItKLwDSDt28ZX92ULc/u34nNczCvam 9h5gv5mKRgdHn7mcfwt0ArXalbJNKJPJvu+zZR38kf2W0c5aju4H0l+5HllE SafrLhGVBfD0VnTe63/voXxqgO7RxRzQ1dg//oGjDoP7LSPLAnpA25lp8LTC Rj5Rdz1TdLMPD5nRHeHzbkGha3JZaSOVKKQhurTXMhlSt497M6U0YMo2ybHs YTeIfGT8iTN9CJxdzNdjnGYxY6+cbYLWENx7Jtb6z78NX+rFCdxmqwXnwGap K3NTEOKofGLH8TEYvCbmskmBgk/odx6fW93ga+PR+r8SA0gR8xMYFMpAz5H7 en3cs7Amz5o3G9mKzsif+2jrOBwQY/oQPELBgdgLfT6343CJZ/PaMZYFPJTD cVbjWQPytMhc0Tg/ih25VK/P7xvF9ODNk/8eTKLSw5OOceHdcFtAmTZdaRwG j6/d9rk1CmpqFcsqGb2YwbW3C3xm4MGCU2uAWCVsmokoNTBuwZdvuVypq+rQ Ppbgn9VWUCatLNG1cbAaLnDHOnAZ3zK/YU2gbgAJ/b+sHsLd+OnSQPypCzWQ 3yYvkv+rHULLqjRzt8ZBD8NwVH5uE1C25mi/PzaOA2EGffd1hvFekAw3CtYC 0fAt/aE9j2HFd3mouzqRYUbO0ytkGkKswwN0uQpBpDhPXaJjDs9tSKnJ/Upw vRj0Nn51GSJV+X8oZ85jr8WK4PzBdCwymP+9Vl2Dj65px84mDsCbVsFHv8zW oGfX7KWkgTboNrj81OdiN3CvV7CEnqrEc2OUF18ElvFf6YM9hiGNWHj1+71s jU6A8vEJGe8yGHqTdViUKh8vV9okrG/twgKuq4yMJjMwaxfLMnC5EJL9Ar2M PKjIM5GuwnGHRni285d4w/0sPNsmonvOpx+yjtPsHdRpRL69iefZ+RqxupC6 0jCwABx/z7y9OzYJ/tdjvop/scAPxjoZzHNDuCuQhq0upBH8eDXM2P/MYftt n4CfV7KweED2V1AABRdCafL+Hu8Ho9Cq4J0bPMuuzWo7eXMaS8xWBbqSaoER j3T3ZxM0s7l6zb9wAlTT0GZ7wyr61X9IOa66cc4VpxfrEbPgeuP5Af60frBo 8bw1z5SBNG1bbaRthyCasvXzxNNM0EptCNnSk4gf9Xmv7/frxsf9avKMwRPw nKpCp19zHQw/Mq8zzQ5BbMhm+8QDQ5grEv4hqHwEFaZpjmqpdgP/+/JgceZ5 1PF+/GSmbBgSGYXduCuHcGXIzbVjx8Z3HYx8EJA8CpVfv4+9nQ4G491enuV5 k8DXdefDBYZOtMq6lqa2axk/W931zF5MQtoZz2qPxjH0aAuwUYptAVWd+93A uQT3YxLdjXk7YTB97uzRsTksdXJnZWccAaPDauJR+6MhSiCg6k3dHGqNCXWf FeqFtfBZrYiwaeS5187wY8OXBYpU3Kp5q4GH7uvdrcJ9UFjGzdl5ow9lGowY Cgu78Tlb1+gxyzJ4wu95UkJjDaqshEHkVDQyvBMwvPp4ETf/zBt2C8hFvXjO k078S2gRbVjS7ReFQqo2rpfKp1GEKG3uvTaNRj+5ny9+z4dAr6eqJ2zGIZlG weaBXiP4qlnl7C/qQzp1DR+N9zVw1rD49HOjYpQPbx/76joO8SWpd/zLg3Co 90Yb5+9Z+KySHP79XR5G/oxkexc0jqUjpw7NzfYAVb7WcKnjBJ77vnj7VMAI uI8aeP+YncBY2p8s2Z550Nebs+3kwi/8N2oPHH2jQHy+mYlOUitGPXlbYnm2 Hf3sZ26OzU9C4OPFCUv1IejfWp5/OqESJLW5eXl66lFKwTOiSLcU1HU6Xnja zqLUjs7BYVZd/GhKyfton4rWAr+tq17NwxPe3eGTG/O3KC4fkbKQgLf+BjxK HerH5Zk/pz0V/mC16pbxK6uTGxwktKPtWSW0qN6pVGidBP6L75e25nSif7hl I3j2ol+DLMOlqEG41UPhUkwcAR7JnTckUmbgeu8ugyenO7A2Nl9jx5ZJOKV7 T1BUYwX8GIP6qIyqQG3J6uCtXf3IE+F+huffCNJG9S5P2HdBcbVWznW6cvh9 VfXpgYRJFPVx/nHEpQqtypbEH1wYwS37kv+KRvZiC/XaAWGOMjy4s9TtVnU9 XP6YdtaKfAUPbbN0vkO9EFky9+X1cgOGDF82qoscALoi/FGVMwX8abGJL6a6 YcHHY/tyJBXJ3mYoefJOIVwcOPufcEMfdGk0v3N06MXZly9H995sgLCze3/R MrTDxDXDoxURlejxlsf5JF0eXhZPE1j8M4JKK8OHY18VYtD8Re6ufXNg2ZAi SX2wG3ivX6DxhBow3/xr4fGdVpzf1QxOdIuw/ITWKma0EhnnJ5aiLadgnGPO +IbdEswLHE+zVukDNfV/gc/d+9BaVN7aQS8WPplJtY3LTMNs6bMC5q0EhCLt ycXrqRh15pm+xatp4PnlPSbFG4Iaq1473zTmoYZhzd8tBXXwiPXpK03/OTS+ QXdj/8BGf9/ean6wqxZ+3S434hUfRNPUMMPKP9NYu3Xgqv78JMJ/xf6V+ROw IOD1d8ZiAK0f9O7bHJ4AsczfWnwbO2FsV+fVz3u+ofbHqt/6t7tAKJPG6PW9 eVB6cEw++nkHJlJ/iKsLnoVOr+1/WHRSsOuRitvR1RJsT1GduFY3Dhqzoaq6 oblYvhgm+FIrGdIX/fhmqafhv4V4lfJjKbj68p88a2cFFIgJed+IHcGD0kJW 0ifHkHJr8lYqcxE4fw76NntrDmz8fnA+39DHmRPnZt75JIBpcn8hXfAy5Axw etrSdOJavZG2SfUwZiucOd5ZGIfS+1/pzWbOAkNo6q3NhVNo0jvkIVbQA2MH B7LZBONgj5iDQeDoKB6rMvdd52yGUZVJRmEmhDPbGbY/CmuBgfmplZyOThj9 2UZtU1iD0UH8p5qTF/Aqh6grS3ghlGSJ7DU58BXMeqj4+Dbmq6RAQehC8hA+ +yl0LN5wBG5bsjaMvO7Gmvi3os0leThfL0jD2DMEWlLiZ4ICi3F7msTnXFoq sua6L0jRswp9Kjr22x+thfRNb3L8s1qR8XrHwpD4BM6SizWRDh0Qd9CN0+R4 Mf4QY9p2v6EBzO+eudgTNIS+bHs7xHmX0cR8Ovrkz0G8HnLR7r/VCcy97Sa3 cqUNlmqX8n/19eF540Ah9dxUqGO7SEvzeRYf/Xj8Zki3CkyX/srxPBiBO7d+ S3XHTMIX6lzrgMUBVBwxmfbRnYDr1a2j2hu6axrv7sbzbA1eGfm+46MZRKa8 pDc+5T+gqUs/78FcMzB878lOfbihtydMOyX8aBS1BZuu+0UQTP7BrlX8sgFP 58bW//5bgMbiypqFxa1otM8mVcNrAnZ8ERIacuhDny+ZLgeNFzGhfflZtdQs 6FdUnSq/1Ayz898PVW5tgWWfs5xRSRSMEFc25K8rxtwI/smyD6ng3WDBkaLZ jTLaaR8lreLxmI69n5weBX8//M34Z+8I0OutFZ+nagGOoh2MdJ0xMGgb7BV2 pAvzHzWoe4aPwLsVAdOIjFJoUNYJ/k9zFkKr51PPNbSCev8ng38Z6yDz3DZm ue0PLkRqFRxdmMcnsUbNBzqnYNC/16Ig4yvOJx/q43DKxf+kzU1FDg7jtj3P CnJcRuHA31bXD89zUOVCTmei3w9w2eNB3cpAgc5f3OdVT7aBjEhxVmAwlaIF 55v05oBh1Go8Vt0uMgpObk8mj8Rl4WR1TOK9/HqkFfPLmrrUha4z/NsK7/fA 3OAw2F8ZhSTfYZHr3n3odSlY07CiBd7VeYOp9CwM6+klpVFmMLFL0PJyURWW C5y5P/RrHj0eHi6K+dgJHm68b+J6mzBvuVqC8XwHGE+tOi6YdYHNS2+75oo2 2CMzfZYlcALalhZ+st0ahIgncibs9e3oNhvF0WwyBi8ZZ3VmWmeBZt8ApcNt GK6Oz82anFoGWffzCctG3/FllXWQqHw0joUZ8erva8QT+QknDjatgrilwbJi WxtKTNvNPKLpQGc/nW/Hi7rheIfTlajr85CeKRbZlFOLmfe36k9zN8B/KtXX dWqacJL3yLD45XlQ93zbqTg2A/Whi1yMtf14qRblLt9fRGZ6fpKsNQkffG62 yEQPYei/nr8uHj0ob9DB9B67oMo8XMi86Ad8PFO5WHVhGQ+9kpuPyqiC21qV Jj1lU7BTKuXV55lOnGTc87hjoRc+6vAU6Mo2w6DfdsGjKum4zknTY128itM0 dQYu7QWQNVG7zts8iMml99uktk2gINONftXhng2/Z0o4+3wK17klvA6eb4Jr BTf8U6oK0XZJ/mH9aAHeHf/+7VrYCFINccuLfkoG+wOjR8cdJuCihh3tnV0z ICrp3Svj1A0fnyTjE9ta+C7XP/pVuxuyidTzn8PtILJSILw3rRlv2oubdeTU w4FHM3uqen2wW4cMBtOVAlOWX5OQ+AxokIxuuofVcPdnBk3O2DIwJxw8XSvc gvf++/265EU32Cf/Cd2ROAhFW7Jf2+AqHBK5auvM2oMPPkv4pn+uwITjZtO0 m2pgZJUURIdOw8jRarNNAV340H8zCbo7CRq7dxyYLIiGczesZLrcQpBV0pf/ cFoFyPu7hGr9HQTxrjDLpIvzOCdyVUiDvRtb5SUfnmUJhfdHzHSz1e7D3Mzm 6VPDtaiKR08MhjfCjElHSfOXLixfcHvzfesc6L060uq6NQIeD9x+zzzTg15W D6r7ylfhjPCxcufgDrTlOcKwuPwOL1vPFQzGdCO1OH2vn0M7qox5kbS+SZiW 2eTQdHIGeoWbH1+3aoZ/Fzd/HPg5CeaOH3zLcvrxjs+Rt082cvIu02bxd3Pz KKmMu0IfNYPDo3s2j+co+N1Q6P2XmmoMvbZ6MSilBwM2+2lVs/XA/B+l23fj 12GxS8I+gXEF+mmsj7Dy94M6b5nGh4pO8PU8s7XxUz1+8w30F7P5jTs1Ao/X OK5i+q6QiPjxJCiqCtGh4trgZvHrJ5f2fwE58yUpr5/DUPxJYUF+9xjUk1eZ UWwjeFvmz7T5pyXYvy9x1yjPJBybdV96bdcHgp41v3xdR7ErX4zrXTkFzhUr bWHonQKFU9lLK0UjMKqRmJsbXQ/PVbe1rj54BxGtzV/eGoygrIaID69xGyzI dWYckBvHpBeRk6NNPdD3rDPskdRPLOJINjR8U4Xc8UUeRiNjKB7wun8qbgbH FKKVU971wOqusEnukCVUYa9cN+Ha6NPMudmC4xv1nzD1sjGpw+gbAktVrbXo z2etsZunDx0002OfqwYCt5yr2XWrjfcXJeX+Ygv2FaXvKnizoZs9CufN1rvg ff7vm9lZU8hS/ue0Nf0UHPicqfPbpR/dFLKtXBRrsPfjw9P+h4YgedfMHo9j XcgbmtBxPr0Tzn26UemSFI3h07qHfljNQrE+o31FdA9ajTBI3aAug7LXxunT h9rQ3kTaxz3VD+kKR823TYzg76QnzFp+7XjAjlNnLSIdxM+0thlOdKPhgOyb H64v0I5hwdvp9iQ2OY9VjJ/uhOVutX8xORSwy7/SQlM+iW4x/M0JDd1wcOld 296LK8gtKSyxPTQH4ybdOFS0XPG19ZyN5s0KHGpiXIsansbMRtculK6EXDEo cvjci96HDH5zb8sC+Pfm2l9VCjqJ9Dz65peAxuE3wi7p1MDHayqXWOz+AjAZ x03cnYM4oYNDE2uNQOQfBOrXtiEDp4VL4s16qBlM8p6tqwGRbcJ6KSKd2Dph X7J11wDgPKuRjeQk0idu/0uzewl3OKj9iVJqQBs5/zt1xVSK+9pa33l5tED2 jOBA4BCjooTs822Za50QsCD2dNNWPsW8Mo+3kVF5cKpBt911mkuxjfnzr/Ib 9aDfF9XxejO34r+wk+kXNIeASnKlK+QBp+Iky5yZV8E6vOOsu3OOikFRxXfu 5JbtI/is4Z/yl1usipnxvrOv0wahdJf1nte3V+FCiS/1mFwPDPETK/d/zIqn KuRf2IrWQ7xgLFOZKIuiXThHeFpIE9BxcNxO52dSPBz0A6mURsFAbD+PoxSv 4uusYYd19hFMidnffpaeQTGbevSS4MtuWN/dX1HJQKf41i4ZTzn3YYrA7ZkQ CTbFA4Z7+ZgWOnFpbqDexIZb0VD4uWYgRzfO0JREv1pkUuRl5Yh2cxoEkdvn N9EcYFEcGPleLvdhAcolsw8lmLIq0h8rSRU4vYLtboqi29L5FPU/3TbMzwgH KR6zM+nPWBV/nnJXCO8exnfsOv3KU1yKMoODYqu2TXh13L+M+jmP4vKhBonq 9l4w1acP6LzPrPidLUxoZVsdPuA9tGQ0QasotX2netKZPAzo4A1pQmbFFy4V o1b7u+BAYfuC2kY/HpTa023X7kPDtv+Md3xnV3y4NeflkUPDSAzKD7vc41Ac OvPzbpNyAdh1h1mwJ7MoUkR8nm/dXQz9/vFt7pl8iiXfdr/WvzsAvv//H1m8 DgH0fyo4/fPxfxWb9z8V3h/HzYs73HtRlCQUEUIlDc5bg0J8khIpyigjQmVT SaJsJZWWmZEVmR0io2HPkL333vne739wzuu8Hs/X6/XDGTxIDNtVsIocGrQM E6ra0O03rFmuuQSYPJkrGrRpGtvbWkwVB7DCv8gHRPbTvYg3yDjHtpET7IOT o7kFJ7BW/VGH9zdoYOXKninI4Knx+xB//ztUmHnoxGmgVoLPL+qYhK+R4VGF YHeL2Szy0njZmiNJAKGsCtWOmD58RT1p6losGf4QY57dmuzHEg92slX8xwPY fwhZanzHtqpO+UIkOvgs3Rk89mYAyxx9zWssxQ6fCtZmP3ZsYNOcodhrynR4 eV5/cIhvETUaCjzRUSKBxtYMfU1GTxBf/SGR6MUCYRuqwqx6Tcg0C2umurED SejatoPGc1hDpFKXo4QN1AQFD55O7MXtPKU107uYQLS3kvPCUj+adJOd9f5B h0VBWlyt8DCq/bZppZubF+Yp2xapmrWY7/MTmksvBZRPb9lnrtGKlXatKta9 ZoW/XVtlit2H0DOtcr3nTlxQXbROKPSYRt8b/DqMfhKh8BaxLYhSjz+1OEhx RNOBi5OtYu37H9xw7uXFxa/cYNI3eL03fgbvc8t7Qasgg/MfqPPuTEZsMuJR iUlUsBTiPywXu4gGfk/Xjc+xwLVMXafuoAIsIal87JMZEcyNQvr47jeh54b5 T7R3sUHbkoTsnWQGL1VXHU4yk0FmptvpXOkCHpx+ybTvLQ2kFz/n7FKZxumd erfzPGhwstROa93TB8stB8ay29GhyVoi4wjHD6xasW4Z5kuDsdjJ94r/prGp /M+d/jo0GBpndmpvrsH71mf+zT1mhz2WVZcupXYjlnS7OVI4G7B9WLlmKTeC Ovk65kuf84ByQ5Uz7XgL6qUIpJyIIsCLhArzxsCXeGPX04PqliwQYMaRpmvz GW0efUwimBKgMDz2wSnnTpQeR6t7v0CA/2wFRc9t78VJm0/BuhYReMpPfKYw dlaH42+niXIW6IjL4GbunEB5t/c6lyZTQNVKo04mrx9tP1x4kvSEA7QOuTzU rmnC9riKmPeJDzYsPLG0VR1OL+yYfRhJAa+uoPSbWh24SLyy6ascNzjaeRUt xrbivUqEn5VW/NDqnCga4VCOz5WfC2rYzQGvgjbUAmSn0OZ+Hv0TxVww5VDV f+bLAkqv2GYuJskOB3M3nVSuWcNVWzNk+z8yw/toz5zyimEUfGWYwOzNDiwm /IPe2W3435EGd/0JEtzfpyrv6tqDh8KTK6Pc1lH3KS69u4G3saFjh5b2QTJw TP8Z7gqawT/j1fO85zhBP645fFdSPlYJjx4d5CdDxle2rIPLteiN5Bx3EYM3 vAsHulioOchva8BrwjoF3DVG7RZ651HotzcHhJoIcLZDtvcrez9SUFJlanzO BBpnb22yEKtEUerJsXWOTODhlfdhc0IfitXqGDMpI8OymLnHE4Mexn1EX74Q JUL8gPxjk9F+rGP2ysoynwI9qmmeFWGfUHp00pfKEjqs7U2A69+z8VJKVa2O CxdEEvkvlfd1YUsvs0erW3kgVzSvssBpEaVnSrcUS7DDOR0Djne/ZnDTSVfL r6FMYK+Q51uSVYcMv93qmtxGB4/5PaEN7xuwrDClnOjEAdkB0fp/pZmKmE0z jeav0oC5XCNK6XcLimRNrD8cyAry8WL+YpercdOjt5+0q3lh+XeF+n27ZmzM PGwT9J4TVIKfjjZm9eAPKlKv5QlksAQ95f0XBlFKHrckqwgLpJWLL8hzDeJo i/fjCrJcUOa0auKU3YJnr9YOh5azwUPhXEVt0jTStAu1HTEigrpB8+mUO8vo r1wvrjAgQva3kumxY1No4vml+dVeHnB1PTlMMZ1A9IAPNkdlqSCREWTstn8D leZ0KRzLZOh3vefArb+rKLFlx/F3OhSg7d8kFZE8iNaob91/n+KDpkrWo46E fmRvTp2OnKeCluWODk3vYTxV8m40Sp0bPN1UNl41TmPxIZK0eDIzrL75WDb5 sQsLh2x+quPKAooWr5s1ExpQbnBE5v7vXGCgFigg4TKI2hpms3Ub1pD4rE14 lPUUDhQ7Yf2ikRekWoKJKqfqsSUfc9bPV2QwLztivdQ1iAmiR9dk5XlAZnVJ 6c5GLl5tmzKMduWA0Z7/ygjOHaj1CnmK34AGRA8qXaR/DtdcN24+pMoD+4Sc BYq/FKG4y9PbDG6xQWlLdGDX+QEk+GLsiC8XEarsLZzlXcdRi+dSd6EID2ye dAm5+KUTv7r7YYQnkg4yt41DurJmcHaPh6TPbTrcHHgYnXNjEGdNZstvYqHC xOWbO5Jn15EPX1LBYT4ydMcbWob6DGGFnXM99lHscMt6apT++Quq3B+uMJTB Ac/J9FOdjF43HuNxSlyMBBIJcnZ+03VI/mjNziumRKBbbKPaqa7jL7k7z7OL 8sDNoV/l6c3X8D1Xh/dJzFwgOlvcdHimFIsZrWQTzdjArOHwAduaFeyuWNC5 8xcJvv25L0ZTCUPaQ2n/hBk8u17ZdG7oXz2SMNqyocW6hviMilUcFotwi/Ib WqgAMzTOSWyeF+tGLR4xfDYxdFjdN9hmodOK3M7cDFk7yAoiCaPqj+r6MYmD OeWWGQnIglGCH6Km8ZJg1rVpQz640pvm/7a8D/v+3cbCFMQFa5u1UqKiZhD/ 98E8v2ESTGwzYKVYzONzA6jm931WuEq9Z0hA0zg6x5zZ/A8NZHrlJjc9WkOW 4vpre4TpwLfloT/F/ifWjay8R5pg8EXD9/Ga8hqWWpIweT7LBj84Yy6Z76zG g1YDo/f7ycC20bp0+3g17hee70kfYoL4kk7Z5YN/UXW7RJozLw20tpbFC36a xvjuQza+PDbg25hNtmX4iX17tua69Abytd87JiqXiVhAziJShA4/VbN81cNS EFX1YpVUGg1KPX3D9V8Mou2x3hsmU9wg95FpPthxHYXcGuIwE6BB8OGh/RUF c1ghueqI824qtCu7n77GuozO9+B5ocPccOOzwq9qjj/Yc4VzaKchDbp8wwO/ K5Wg8ovahF1XSHBWV+DK2vtFtCMLhcaFM4PLWdmnp4/9RNR5L1l0eR0Vlko9 vWmfj0olRD7eTOIAJqNe3XjyDDrJUW0ivJcHmu7dDQmyLMaT88ol5vVswHTr eXRPRhduHJA88j6MADfPPCimPGhASmw9phQrDigsS3mpVtSK9Kyc3ZqIdNA1 UKoPZZnHXZ2cYeTLvFBkPOsS+N9TlN5VL36wlwM66R3//K1nsO4fVm7/dG6w vFjs2L1zA9VyBshnRlMg5aGoCW4awiFsTqPEMQpopH2bZuoqwG7lZSVliBNE ju0uU/zyDam7DBCdD3CB63WioLviPBZ3OVTrfJ0Geh2rpsVJ01hLs+NsORMz XL7zIXHT7UlcRROoPbtMAE+1mDDVrlEs/0Sz3KOQAyy+WLZdOPMNBXddU+P1 Y4Pcq4LNYX71eL+EmtEIhQJXZhz/BLNNIHFLk/NbGPyfeX7topxwG0oas+j5 T4QCYXmDtO0x3Ujc3fHZiBgjbx/vLAs5tYZ9qqO6lZSJUKvX1t61MoNPJz8K sxwkg/bnzwFPLUfw83uf5L1mScAU0nBa6+0MNpw5KXYsmROWEhb6bZ614zrH pG/txST4fEGpMY1zHvMpStgKH6CBchsvr4BpEV5N9vKcsKXBNdVR2///37hb zR8UY8UFN9M508WXe9Fcnx+3ci4djlJF/oxwNOBugXNl1nfpDD4kZmbWMUFK +xX9wSoKOF06Wcd9vhYrz0r1fpojgdCZDEem/xqQiHhLvvjPNbTCK1J8v6ca 80s8P11QSQReo/GQffZ/sEUg83pLABmMZVrOc/j9RCst9rFWOhzwQve973XT SZQ4vs7krswGUv+6T/D1/MVKBTKj5D9UKH9fGmHc04fPboozytKigEP4u1jI GUbXzu4eDnVgh9jJC5KlNj9Q5p2ino1BVvgd2ccVemMU+/Q5vdGyZYE9BgPN HVnpuDUyJutTOxnuthnXj931QXF93erD1znB2o3UT94oRyk+Qd8JtrywI08s UPlJK7IqsRPYjTkhIFCjy/3fCF6b61Lgy2aDs2IODwQfl6Cfs6MBEwR2Rj/8 T9Utegn/d8PQrTWM0X92qvj+Zu3DRaAlX7ZGg1+rRBeztUp0YXzbm7P/+EDW o9HM+3cPjjxX/lRliQYHAorfKOh3Y9qe+mZ0gw2y5OdkOhx6kMhWu+8pt2iw TOyPbVsZwqbHw/68sWEHPXnWvs2NY2h6ZwH9xRYeWJvw3XHmeR2eu5df2C/O Bwl7lDYU4gaw+pFDgS8Z/l7ZG8Jv82gI1UrdCfsZR4OMXx2+Aek5+LZPSZrC Agc8eL8kOtcxhtZEJ4ONUskwQ1HMjhL8iwwH+KPLXzH45V5oaEmqQOct2m54 hdHhybv3P9ROjeKXHcm1TIVkWPNiUr8+X4prnvVHPlHkhRMz1UpbKnvxyMkq qoQ1GQIdAs/3241j1tV9I2qXaPDzYchts/v1qIk7fHDzPirwiSvvyRSfx18V Gsv1BplAMcSZsMbI54S4Xy+43jP0O4/WF3ct4sSbbakEHR5YlDeXkKtYRheK F30X+xh9XMP3AfeOfny+dO345Wvr6KdPTKG7WiempliKcq5xgLKoLStPfg3i dw023Edj9J9Nyv/lf8vAg/vi7CPe8ECST2aEWMY0/mWo+cT/ICdwn66S19uO Mb9miIqpOx36TjfHbM19hwKWNSTf3CLB+4vRJ3KjltGHIbVPWQxeX9uaLiLk MIV3GIcdOinEDB/RS/tkkWpUFHHdvxfT4Mm00wsrrRlsvSapGriPAI5r32r9 LPqQ5Xxq5EcqMwilyrMbV9YhKmH+qnAEATwmO5vPR3QhzsbHTQf/MPxlwVvk ttSBU7MmW/aaccAJ4Ze9X8//wA2EKx90j5Mg23L/5KP2ecRaEDpsZkmHb02H 3c3cR9E7/3HDmC0rSPGtOtulzaXo+rmJ7hOM/Xj+2XH+/X0LuE6Nln3n8zoi LT3olKr5jkpOFplINNGg2ouVLjE8gyl6h09cl6eCPr+P3bXBOewUFx2RYkIA zSf08/Hu04jlsRpf5MdN4NuzJLOi/QilNB1g7TxHh0qCuBebzAKStpkboLdy wy58ifzVvBvndxP3P1migy2hItLl2Sjecixuz303CihRW348ulmPKlJCplO5 2UH/41fnw+KROP75lm6fU0QwaNT7cPppP57nEu5PItIg8OPE/WLDZcRVG9gk 3UwBeaEGDy+bPrR2ZCFnlYsOX8U1nXl9F3CWzJvcMxrcAF68Cxk7F/AD7y6L yw8pcN3jfqa//yI+US/nEafCAd7HD4/MqvYhYY2jevycFND/oGGq67mC6kPy bsYWsILuosE3mtQqPuux75oDww/kZBbrwcslWBMdSnN3JcIu7amJK3rDaIkz S1CZoT/P3Lx0/ad6JCz+oznelpFXMlYaOutdOPFxuXrFETqExJhfLNctwsMP +YLnsliBZXgTfcudPrQ5QtLN6zYNzK22/mGNZAbd8oqScEZej9xLudRydhIr Vpp1CF3khbvShnoobQjNfS3l6xCiQmNipXe52Tpq95MTymfjAiveKLuBI0xF AuJXH99z5QLuheLa6LFExHxiYGP7RzI8sbq4J+TAGOpLf0i5hXmBSU2+u8qv AiuH5WXllBHBJHX0zazWIKor6M0a5OWDzVcsK/ZKf8eaZvrWOSy8YLVx43gN ywh2+spUejidBjvbUsS5xvqxAkd58W93Gpz7uekV+/tIXJ8x9dKvjw6TrrtN vc1mUepr0dQvvznBjN/bkdxVhtif86XFGBOg+CGXjPD1KbTQUnZ+7CIR2MLK dF3CutB4ewxtei8VdH1Wr4b1xWPXw4aZxUdoUHCaO5eJwwilXv5JW5rnhL7r lq+2pCWh38PRxfsn6dDbrBuqyzOHfJxyG8RSGe8j1LZVYuQrivMl8a+Y0kAi 4srvznvTyCpQQ5KdkxWC00r2BYv1o2hPxT1X27mhpuND0PVfrehr3WrU90MU CBbN3/ZmpB4762vPybSRIbc04cV+9kb82pyj+u5FKqjtM9jt8GYJnXgQkHC0 jQWKDQy4amR7kJ7RnL91IzNIC9tOVZk2Y3rzEpcagRXilaTdWjOn8apFsFnW eXaI2Z6YkWQ8jNY5gxcqdLjhPinqi47aEmrf07JraZwGChOLEyemllDpr8Ld T9yJ4EkQ5dkh24JpFQc9OiQZe2FIXMOXaQhPxde6xnuR4cvbFRGDV3046HDE chaRBfJZn3Hr60wgfYfM7KBJdnC5eSH2xfNfaMuTYfONIRqUWB6omfj3HclW lTPzatAgfEhv+47WRewkuGOGzYQEATv8iqmP69C818Ae9q3scGP28j3y4Vac szp/4cY0g78fW0PPPR3Gnbu2fZKMJ4OHp3fRsvk0NjjzMlzKkwiUaj4F2U3z aO+3gHzVFRLk0svmPAIGcKLLRO1BYAalxM0785IL0afbq+uHtMkgmW8xSvCd wTLKwVr9M1SIsJasURFbRZursthTChnnG3dUXzCqQ9++ep/5lEyBeZMT35KT a1HTWnp3fDAbvPR1+HG6ZRqV8KqJvJKjwl22caPdic1oltTErarNBLor4iKH thXhLyMXeL4/Ywcd3zfEB4NdOOJovKvmTRoEPMkcxbmDuFvD3kyphAQ92nez Y7bO4PM6bwxyFtjBgLDg5Dk4gkefsn/4oMTYN+F0q5wPtThpxUbkexwJ+Pua UybYqpC7s9Sl/iEqVL+pTDZRKUKFT03zLby44WCBunmqUR++rj7J6qzJC8G3 9aPjOZLwq9DXv81L+aCN6XXhdkodOnDqZNfL/dxgQbt4ZWZsAku8lIoMOUUG RT0J0QGchS83jl89yfC/E5uH99qHObRyeu7ehCQJpmPajvOd60EuO2RaVP25 QOxf6zYj1gncJWWVNG1LhwRvMU2pmAmsnitjfi+HCh9dBKySfzGBkt1p16Xt vLBZYEjo+M8S/GOldDg7igDPjb161dA04rHO7L/KyOOIyY965dkTuFRNN8ht hgl43D1aS2+0IsFGG8HfbhygPcMzG/qvDilZpoVS+7hh2cVWQz5oBrc95usr fEmG1N8DNtNLjP11GsZdm0iQv/0px6LzEj4dO74qt4ULdF7cFimNbsbyZqHe ZXZEuHXzX5pi+zS6Yqd77EsgN6ja4FspklOoqeLVC+0P7HDpVej2s08GUf/N Xo2WcSr8kLnnd/J7CQ47LLlPVZwK/nNlr8255zGEe6L9UURwPhI+aD23jLy3 Jmtf2kyHVxNJeo05Q3j7aVFCgR0X8L8r0vs4MYUOjjD7rnXygffBDej8l4JH t6jKq7yjQvblhgjxlSX8qGEs6h2DB35XTz9YmBvGpOD78wrLC6jN0Gi7dWYy UlAU8GSvpkNZ49W19uwx9Dr8aealWBrcyZYNvZHYgDPiWJhtmUnAIuxFcUno wRbftUaUmFkh9cDE8DH7LpzQNBvg1EaF2dSSwz5jSeiyo9c+dl0qbO1uZ5J1 nMOPnd6WWdfxgI28rP+pH93ofRcH0zI3Bfgscb6u0Cp6erm2mKuSE2qE/siy CY7jgXvSiSw+LHDJ1v7RgcwaLHuzMbXUhQcazBwzne1rkL/oql61PxnshGRp N5xqkMIGC5n/Mwlai/9JzNtO4d72hJg/bOzwcUJelBDYikwyhY8kDnJBtf1p v7SrA+hF01+FnV2MfdJzb+KR0wLKuy12Ez/mh8IXIwe1ivPwsgh9ekqYA6qL 57q46VPoY556Yz8XEfoKBDK1zRaw41abi6X31pHpaOZE+9Ny7F45PC95hA24 4+v9ejyb0e36z0F587yQtW1ewY7agfO6l0s7lGkA5/yObN7Rg1tsNTZynDih reiOG3XfT2S7+66ykDkvPNaXtnc91YSfaSfrsBuyQe3VNM1CwzZU4/Y+fXyI B7ZtI24xjpvCHZ/+cHDlc8C5+1fIxkJVKKv+ss3PZzR4ZcjbaFpWi7Z0hsaX HuWGtgEN278BbYiyxR1p3ieA1CKHd/idXux2X5G/cCsVfhkTDn2Ox5jiUPeo 1o4A9cixPWN5GPkzu/3t91lAfeYUn6P5dYhHOrb/7xdO6E0IKV6+OooiRAs8 dCKpMK0t0DBm8gf3G6no26yso7ZPJ4+mutajALeF+z7Z3BD3VvhoQPEqqr69 GaoZ+2FjaVM/cVcNWnhmUPpVigQvWS5vIo/M40hhoC06UCHhsR1nGvcUviCT H9f4lwSNdF3DF+Kj+GLzcQvKNgYP/q6StygOov2ROVJjJ/lBPqRLsu54Ic49 +1WB6zMFThQ882rqnsVKkWe9rQ8SQXc/OSo7vBoPmvpD0l1WMChP6rl9cR53 aPt28uwmgeUMaX970ireq3hnlLWDCA/ldnjtpQziur9R1jnu3LDzbtRFS/cF nLzjncYROTqMqN+sH9VrRkhRbImrmw1i/eS2pEm3Ipse5ne37tMg/ZxLoIbT NLK77XAiYYgDoqUreyuz69BDufv8FZkEWFBeMjn2bgrr/EdVqb9OhZYHP0pz 4ybQMwMFBZoGDyg7lxrvlqrG7AI1qjbNNFAvsBln715AdUunZipzGflQ97hZ Q2UWXTiegZ5fI8I51seiBx5NYTXeIz2va7lA3FST8pqjC1cRmYz8GP41zXgc 81qnFRW8eiptWvsPHc0VoYLEKMbyNlft+emQHjLBuZIwiaVW5FvUV9mgrUrs VN/ePuTe6mwV9IwPOkTjOULXc/Dvsv49jy+zA6uE3DEBk2/4ZYqJVy2ZC/wM +vuoZydwk5zuSHM8BVzKmnxjxf+hC0/+/e7kYIaYjriWmi1jeMtT9meOmxl6 8dPP3bDvwBqNEa9s37LAhOfsRMqtKRT3qHyPyxQR/kvfmZew3oA5GxrbMmM3 wVLxGvdMbjNmpmrM+U2QYME2QPogYRkrKgkE/vEjg8j5AeOVrnkULP1cCWa5 QVrOfH+IWiPiP3n7jS6ZBAJb90XQ2ubRGjlCyzOXDuyhAy/qarvwo98tN1RM WMBovza5TSUTjyd/D7p2YR1xUZxoygYv0bidQ+9bBq8m87b3p3nW4FRHSq4e Y38K8dh7XyBPokdTWu/KmrnBs+RCb0rQBKO/3HtKk6TC7l05xWfYpnFTS1Ox cOIi4kxi/Z0b/xOVCDfnmgeRwUmzoYf07S4ur+w78HWRDpbGs5Jfe3uRvvM2 rHSS0d+w2vakP4PIeWM4fzmDBy6O6pn3E35jleST+nKMPTLYVzXHJlWKN6ZE tYNjeEAgV+gTs/sYnhkfcxw1WEbahz5nFSZ+R4fGdrmlK/GB9XPjgqTIflRK vB6vxscK/eYPPXi/laHdr1Ljzrwgw3xs7RGvFz9QzJlrWp1rZHiqdSenwuYh Lhm1YHuXwwSXr+Y9vjRYizOFO+MsKjihdrzxzgnBD3hvp669gi43jH74uzjr OYfaGrdu7L/EOH/PKeZTnguo/UJ8fkIjCdrKSEaXY0ZxzQ8Zkt46F8g9kY0p zx9APZGHxzJkeSC5N8z9UdwAOhH+M8d6lgpBEV0fv+0dwSoa4rJ8Z/hAISCg 8od5OuK7F1tbtcQFvpYvl7yftyP9E6HrtwuoMKr84NE13Q30P3TVF1o= "]]}, {{}, {}}}, 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, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{-5.687856498533805, 5.883542733468113}, {-2.259298674718232, 2.242249307413175}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.786721601006465*^9, {3.786721913198696*^9, 3.786721936511639*^9}, 3.78672223638085*^9, 3.8720021049380217`*^9}, CellLabel->"Out[223]=", CellID->965360062,ExpressionUUID->"9536ec8f-538a-4378-9f4a-ae1014d14a44"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell[ "\t", "ExampleDelimiter",ExpressionUUID-> "ffde0616-c22f-4a2b-ba0d-c1b718da779f"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562,ExpressionUUID->"40c0c85d-244b-4056-a7de-cb166e67ac36"], Cell[TextData[{ Cell[BoxData[ StyleBox["MultidimensionalScaling", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro",ExpressionUUID-> "d3a3d02f-94c1-4d54-b82b-9e63da8c638e"], " will reduce to any dimension that is no larger than the input dimension. \ Here data is created in 10-dimensional space and visualized in three \ dimensions:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.786723089775133*^9, 3.786723139210719*^9}, 3.78767672699533*^9, {3.904923183877026*^9, 3.904923199139987*^9}}, CellID->162789517,ExpressionUUID->"e81379bd-9bb1-40e9-9e46-363766354e9f"], 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", TaggingRules->{}, 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}, { 3.862570504405398*^9, 3.86257052278589*^9}}, CellLabel->"In[27]:=", CellID->240743514,ExpressionUUID->"74d59d4b-ff50-4447-9950-c7853cb2ea65"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPointPlot3D", "[", RowBox[{ InterpretationBox[ TagBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[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->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultidimensionalScaling", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[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->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultidimensionalScaling", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.1.1\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/6a4a06f4-b0fe-4509-8484-35ec1440fffe/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], #& , TagBoxNote->" "], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultidimensionalScaling"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction[ "MultidimensionalScaling", ResourceSystemBase -> "https://www.wolframcloud.com/obj/resourcesystem/api/1.0"], BoxID -> "MultidimensionalScaling", Selectable->False], "[", RowBox[{"vectors", ",", "3"}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.786723175524702*^9, 3.786723177074839*^9}}, CellLabel->"In[10]:=", CellID->107831981,ExpressionUUID->"fdf30f2e-545e-4ec3-a9a1-55c1514ba509"], Cell[BoxData[ Graphics3DBox[{{ {RGBColor[0.3315753, 0.4561011, 0.6388182], PointSize[ 0.009722222222222222], Point3DBox[CompressedData[" 1:eJwMl2cgl10YxgklGjZ/mxRKlFXR61ZIGZGUCi0KSWaDhkIpJLJFslcaIhTd x4jI3jN77715fXo+P+dc57p+P6Hr1no3NlFRUbXSUVHRbHxDIx7I9Blyk1D+ 0gfFvtNgG/ZU9npvCTrlH51ZEWMjFdT0q5eZaUhBrE1a4WIN9L63mLsbRSFn xNZ9dnMOgcF0QEuEYj2ci2EQsJPiJ3SpfpVvPMuBWWrK7mxmA55X0DCLDeUh 188+2XQxvQp9FtRLNIWn4NP+AcEmdV5yxo12/q1nFd7U5RN5+rEJdCrFf/6L ZiPKBkVnNU3GoF3ieTmz1SjuZmiV/szATWT6gxIb+rrh/VdBv5aUBpyl21zM 4ctOmhySQvYd8IFH1gw7aPTmcNfP2b0yuVzkPRtT7WLoIGZrsutZcf9C+4Dq IUcXCpnlyLGaUqnDSy9ETr4WmYAHLUs7Cpl4iGBHI+fg+DwIBX+qo8mYRxXp /MbqK3wkMeLW5lmNCbhY2eLv+l8DrFvXld8e5SIPgrlT5bY0oZV4ouPh0Qqo Hct4HbmJmxwROPhsnGsKmibFts+e/gIPrbmljvnwkCX/z4eUtash3XjhVW30 DPKbX8nRMGInunzuO+q+pINM15f3l4NGYOf1F3TNGTxkl9R1o+1bPqPA9viX 0m1LeNHYIxSCKaSN7T0lyKYJHd993W9xYARtJb7Ujk5zkeumxXjoTiGcK0iw HKutRKECNwX1TC4SayQvF7HYiGJ1Ty7ZPO4BZnNOuREnLpKkWW2bFDyL47Vv z1RFtWP/nMl801ce8lr7As9FwQ483a2o1E+zgFdZWUK9j/ORh4V8LP4N4/B6 +hB16q4l3Hqs+KVuPSt5MnMhRPFjHp487nyzqKwNDCS4dz81FyJb3/NSrvM0 YKvqD6ZdSYPoIl572U+Ph6iM+gwLaC+A8auofb94ptD2JKNI7SZewmNbGf/j 7Ax29M9LPNszjQOHkwt8AthIN8tDhoOs06B67bJazfkeLFXaHCgyzEMO3rj0 0EkmGz78rqplza6CRPqtP52cOcm3ANaIrxEjcCSsWcE3agYDmUV3bv3FTs6n Cd26fHIYy3vvGzC+KgWxijoZkwcUsk4rb859pwpGKxXDLw4O4UTkbSPDal7y CxlXr9z8if3FRVs8inNRViZUb/QhJ5GsN66aZviN1T7ntlzhn4XhCHkzHm5u wvh4575KywFQ3v5NaLAwDzOki36M+bCStIW9pcnplVg0cqaib70Z9/ZZz06u cREwjTFQZenFbm8rmVcDrXj1RoXQ1VZW8kHh50y95Ry8epf6wZChETKvCMwa 11NI9zaRHxWWbfCzRbl97tEYqLxw0+5q4CB5r+STO8V7UMEw9egFnSUU3uTn S7eXlZh38epeaO8BlSwL/mSFAtw0sZcuJouHFKX2uIwNDODdUnrJ0Oo27D7o b2ppTCEv/tMU/RK/hOWbt0ea0ARAaf2pnoecgkQi+17QMdUeYNNeM9Q0q4Cy 5rlQpWI2IjmTyWp5awzmQjKjXUzaoZiN2VWnn5vwwoBgy482WOWrFYr73o0/ O7X0e1o3clgdaC5l3Qf1LzkEPC73g4deYNiunZykVdfthuaNYpQwvSbhYJ4P kVZJldFx3KQ92IQ1b3AUltJnZ0fZJ8D5cRtL2jlu0u2gXte/vQRPj3+eZI6o RxuxYHPeE4JkeldUjb9YK0p/yHc4/S4Rd3wY2G19i5vYn3z2/R13F4zOMUv8 uDeO9xhfyC8dpZCdMX4Pyvb0gPb6o5Dt5bXYwGJ/WTOTg7xsz7n/49gQWDa3 TzYl1QNF5+/Qt0g+4sDBLS2kNIsapYrpStyNuHrukjXkUMh9ubjmgtP1wMgm dX/kzCyeZKs9XcTOTWZXU+6ErFTjgm7YJRq6UTx7prxp7QsXkZj24h7dMQZb PPPzNx/+i0lHdz0YE+YgS6dOKnzqnsKZL2E/Z1KnUd+xx1zhsDCRqztgPUWd j18NtAV9fX/Dry3SbDnpXGQ1u992z/IAzPeO8n9LzwCX2XPetNGcBHS24bFP I3h9cNmV07gRTKkd3lc68ZD5l1uyasxGoDeGc+Dj7llM1bcbn1LiJL1leV2i Gj2opiBF/sbNgojxquUBJwESKBWXoOT4CaavypKDxfOwU0U28EcsN+mJSM5d zRhDuVxPOXujBTzk/YaBtYWP9Ax8/HLTqwSPSvVU2ZksI5oE1xjlUoj2TJn+ rn3L0Ft24FHP0V7wmR3zLznNReph4DXdRX/MLDQtf/VvCl0lZlTKz3MQbr33 FYqSnWBOd3NFYpnA7GNJR9oHnOQsz4V9v6u64I6gmO9j51pIU5iM3s7ESwr2 f1QXiquBK/nHb9r5ziGPpc4AhzSFHDmqHOLOMIP4p/W5C/UwHludlm/7vdF7 kV+nZKmqQbs79f1lz0o8HtHLx/2Dm5Qe3rqWem8Kpt4L9H3RqIH9P65S99bz kAteK6sf9GuBPliV1/XdH9w8bKppZslM7J1tb56HITgpbPD0bH05Unm8ChFU 4yGL/zntrwofRWXf6a/iCsNgY5y1kmHATwocPxhHvhnGi+YHfJjf9mCiXfqz sq0c5OcfN4kDewbRoWv4tOr9GfyhqWvl1EghDKMXcxX3daHY8BnqSKZpuGdx OrjIjZMccM/oajgyCc2Hb7ZIbS+DoGG7IU8rLmJj8baj17YDWreuSD+gDEG1 DJ4Q/iJImExjTxv/G4OfVUZiMptHQaBZ6+pTek5im94gFvpwBXOe/+VQze0A px2HDgw6UEh4xxbnO0ersaSEn+fmz0JcFz17ro2Th6gulJYkny2Bw91Nnn// 9qK66hla52VuMhg8tKPIaQaj8QF9+rdZZEpxMNq30Yf+29bPpEYWY5/puZjL e7vw7FrZC4YrFPLwYaNggFY27vlIqfx7dh63HzPw97DkIY+2G/5dopmHFsGt nc0Di2A2oK/r7MJBaOgOUnvHDKLV3vsZDtljGHrlnP6dUg6S3GB/ZNp7BAVK I758pOlAd9OzjtMLnIRrzNLN/Ns85kkc8n9vFYf0+dzTxbPcxPae2t6Ve3NA k8l77UVwHixu3eFBLyNAek6HvN1d8hvVg9c/OV/ogoNX1dUlGzmILePvaXJi Fio6bO2SsgbgxvvLyZ48zOTB3u5lrsRfuL7dRE3PJgCzqbbJd/SxkbgqPowV mcNrb656L0ELzjHOHjSP4CYqM41q7zxX4U/yS1GxL31w+Jd53ykXLhImHn+g ZGkA394/FzOjdR9+ue1/FX+Bn3gXCfzs21SDcpU7yeWbJTj9+IFO9U8Own+U i982sQkCqjS3zQj+g1ZiFzB6iYcE0m7J/jrVB0UB/fEdCwvw2pzx4oo8hRjE Jt1vPjeNn3mfPYrXmoaoqfbfsMJNDjL0TvLx/cTWW4Wh0dvjweyl2xG1CQ6S aj3H++hhFfSk+NM8yG0FlwQfhuwqdpJrdKcv6lkVetToH5T1HYCVhCq/y/Yc 5JVNx6NPTzPAeuj8nMDhIeAZsz8cb8lF5KNFHjM7IYqUxB4XYW7HhWMNNv6y 3ES589bzCRGCeYnm7/uF6tDznci90jJB4qlpQdcmPwEtx4tMVzgWgVHwlmfY JU5iuV934YF0L6jbNBQ9Uq4EiebmtHpZLlJSs7ZsUt2K3zOXZXi3T+FOr4dJ zZu4yLetB223ik9D06lqjWCxdjyi9+hj/jl+cmLKK+Lr6jI8ybMR8jw6AJkL bHTcFznJ6VRBv/GxCfz35MCitX0nsis1b5E8wUNa6mvGTU9OQ8TjzXRdEaWQ eugFgz4LD9nN1/qiI7MLa2Q97+eUpSOYxJvqXhciWa5nr5h61cGO8O3i+wXz 8eP1d4Jp1qzETQgfnxCbhjV1GeselY3+Lv/grj7FSgTMSe8Xi1loNJH6/Tdj BJ4JXV98/5SNbA4wXGtVXcWBBF07Z+smeJg1/WJIjpeIO19Upe+vx08PHIM8 An7DcaloCfZTG3v3siblRX4e5B3aV7yzrhMHbe3v7HzLTcYu06PBuU6gPSnB +4HFB5X8nQPygvlJ9ardztjaWWB8mmSQxR6BSidjhTPnWcjLe3+eWImWwmbV u/yfQvIwXmMuZ1KKk+w8/vs0MWhFq5W/b95GzKDj9X2OtBt8tal3hMU9fQic g7+WIV0RMhaeN/x3no1I/xSMlKLqh+mUe+Yfnk+BKV/8bAvwkRfKEtYDBxuR U2Grc4LCILyTen3izxQ7eflhjzi9WA9kShQ6TNLWwDzvqftDi7zEmOtw5jB7 N4ZTtm03m8vHkrG6sqARFpKZdDyUJA6CyD7KpY7GcXx/1s/jYA0bSdnUYWT/ pRvsak/qin1oB7YlrOIO4yA50ms0mjuboPEble1I7RKymoY/mJ/hIU3RphZU Y9kQdC+JeunpPOw7GPpcVp2d9B8udt/zpBFPqGzlvzpbi0V3qVapqzjIdRcm /a9D4/CqMNV1e+dvzCk9dCBzlI0w/crJu9g8iytCXba2Z//gQWqpkls7+Eni o6ebFxyplM9oC1dmfKhHOtwXpTQvQE5+7i+QqE0HqvePhAceVEOowtvQHwW8 ZDLAWYisjsPP44vjEFEB7MNT5zMUOUlR9fjnRItJyF7+GjWwuQcvKzCnjE9x EU1hX4v+5VF8Xi3u3bc3HY8775gcoOYnzzcHd2Q9qMbbp07+l3C4Hkcv2N0d mmEnsY7N9x2FZnFBdLA9onwab4VsSW4R4CSbV3Qjh5x74YGah9ied7nwNT5+ +vrG7txUCgD31TmYc+4d/XdkEIXfL8f5q1JIbb/A5GRXHz6K/nE2+GgTav5p tNQWZiPbrP7yDKa1wJM7dHGJZ/sgN6w03cpIkMwy+7t5dFRD0OVUi0jRTpyS l4+qjWAnbWuLpho2H1BBpkOGLakL45e2B4Za8pGuoO8ft93qhgzjKHuBgW9g uq5zo6uJmYjb/Jbe3FAJGmc67Hdqt4K4/IyY2ioPSXaZto1rm4VHjeF68qm1 QLc+4H5mI7cFYgeCpLpakeK7Q7fNYAzSswNut8iykfJrLy2ibQdAcu65V9XX EdzNN3t5WIlCzj98JzapVQ1PfpGS50Np6NshleNWwUY0ot+cr2gNxYCbLNGl TyZB4+hVofkZNhKY/N3iXvhnFG+ZyN5T2Y9D/p9z/T5TiHyADtXvSsTwPR4c cyJdKKsLd7468ZESVtqphyFUyqwGZeYBe0rwerTqi4RT/ESu1On9P8F5KMVJ hy8903Bj+ilzGJUgeSr62n0RvoFCM1F6/TwfdVNpTf4VUYhFPQt16pkROOET Z9WiMwt3UjbnCXNSSIPNJ+NfG15ULusUM9DeCaef+1vuXmYnLl78bk7bx6E4 yn73elwHsMaE/5Mf4SUtO9OTWN29IfmtT4wNdw/w69tse7ThFxw9H9z+8FRC BotIjPGnISweSb4io8pPLmeY1lpq/YVIYanzd4YmoPCZzsVvjXzkbzSjQ+vv TozrY7V3M5zBl99+PN4Uy07+G3t3tMmqGgOFHzpwWI/Aiw8MainybESOZ8u7 o5Of8I2ZdPEnuny0+0I19z2Mk5jvdeF8Pb8CvMZXV2TyG6HHMCH6ibQA2cbO 4J7guYjbHi4lR/zsghgBcc0lUR7y0vv6j691Pag/ztj0S9gLj5zK2Wtrx01S jmwpLpGegocVt9irno6CctV57+mzPKREXcO05G0V3lR7uWQRPA6hHDwt42Xs hM78cILYBodN+JjHMT8Zx5u1xMiik4OYF216PWu2iOI/SpqWYnvw5y9f24iN 99K8h//UiHkjmmuSOMHbG9wV9u7wwRx20pNxp0KaYRhZlJWY7vJTKScz6wk3 O29w7+NPd2lyFnEkI+fJA+11yFAIuTBZTSGvkgd78j71YnvDXv7j4iPIHPto mNOXlaj8ckuZy6Qmu0dHQuZ4K3G1ft4tZ4KdVDufuPW4bQVHJqaU/NrnMInZ Qk6LnZeEByusHnvRA5YXQ3S42Soxx/EETQMnKzlVP6WVPzuD9lOcF6sfD8IR j27p7n5ekp0UG3xffwbaJvSL9HIa0Ybt2LnoCV7Sc++r9ui1OThy9nPWKf1B TPPl0ku6zEw2/1wy+iw2Cp2Jb/Z56OYjt9x0sDZQSP2vbUmX6TY4qX/Tx3np SbjxWusXJZxCqujMrnXZdoJQ6hmB1k8n4InHnQQJSQrxMnlS+R/pgFRhbbtb dcsoX529ck2XQhKyY0+EMVei68ylN+4P22BhF0U6Tp+LcHPc2Cq1OglqPxg7 Lop1okj9u9egLUjuBygefRk5h8zT5qFKtQNYN2JT8XeGQnxUaJfthyfwcC+j mBhDH7irata08/AQcZMbQXXyk9AZTZIDVMfglDOf8D4FbuJSuIM7Oq8AWXU0 Zc+LD8PUqlV4Kh0rYZ/7vrNtxzhe3MlndzB2CjPlEuW+inKS0V3k4L2YH3jy u4TRiUoqImE8tfJdiJ2weB2M86yaw4QjtzFqZQ6eUnfLbr3DRurpWmwUbZrg StPWy9nh1Rj7+fiRo37cxMSAZ869dwQ+TX5ykGpFqLzi290VQSHD1Sny/K7Z yG1Obyg2NgLHPTaVjG7cu8vMNXf73Ak88otBaJ5jGlNYdSS/Hucgsll3Sqg+ LIJxYrkPs+tfuNhATp09yEtsP2gKvF1LxSrPM9wOK33wI+Pe5NoxThIv4Suv 3rACHBO7niZc6IcgC8mQ75wCxKnwkVv99Vl47BH2nW5gDLb9OPd0syk7CXs5 uN/EoQYDq5UCByu6QeOS3OSMhyCJvPY0+BF/Nzj0Cu3YHDcBknTDHV83vLWc TfjC4efm6G++93Oa/zDOOgxV9BVykkFRxThm1gZo+LCf7dOJ39gv+XB25bYA Kdi7qbzvGUEDxpPKF+I7kOeQsCRfEhcRlo+wiRqbQbpvFc53OyoxMfLA3+I+ FrIqnyIQbZcKjTyU2w6yDZD/39E5YzcKOWptff4MfSTK327S5n8zAHNLdJnG z7mJZY6fYnjlJ1QJojGb35eJzTdX5VK7BMj2LbvOj12hJouwS+GhtgsGmA/w 7+BlJzm82z97q01BzGiswE3NfKBT2TdfRsNLyPcL+qf+jYP06z16lZblKPdR 9dXj4xv82RPD1Kb5AY7vt3b68F8dxusymO+35iL3zLZJiAV2YEaS+3Qs+xQc 1jxmYpfKSdR5MhaUOMaxpltgzJxlw3/Nr8T/O8ZFdjxJf3IusQPo6o6n5DtP ow23w5EGOz7ieXG+d9qvF/Wuy6T/u9eIwcEd6RGGG71k1vAtZrEDSIvjtxTT Zgwz1ClWzOUnP8RMvAM/tqKZ81xdOGsnvHe/RhG7tZGHxwwl2tkDaPNiy/6H +l3IQC7nV9LzEPmLYlHwKQ93V98lfktjGBPtdd6SjZPEzHCM8j2lVW5t8FO8 ZteD3BU50jtPbXDRrgI6icQueN3RGMDrPQGOSab0e7fwkeziks4tX2ZgvZF5 u3VXDphN/uD9PcJGfJQk3h++3A0FVYoZLztqQJ0pcDQKeciW1k6DUNEx/Oen Aq9PjmPos1yHXPkNvr0ezXvLaRaOi5TsDVwbhrhfW1uuWXOSxlstI8+MJ/GI EK149ON0+BR+JHlPPwdJShe/f1iiF089uJEjtqUZ18T9uW5v7H7GcXVRRs0R 0IvKe/ltdRqYyoYLIy6zks9pqqMiW+PQ2fPaeeq4Bbxe3HlnNZWN0KnnBqd9 XwOdLmcztcgOdHsledBblo+sPevWSBTKgj+v2Q1c2DcpJxzPUlsO5SXvf99L lw/phHvMIcChNYGCHx7xzCfxkoqPWVgsMYQfMuPs7dam8IZhslnrF05S/O/B xfMMi+BTOv+J9n0f5NOHFnJt5iE7gT9yWPEbPHvTNF3oMgelYcxsyZ+5idkb uepwvwnolzr/pGT4D0yeNKH9HMhMPu0V7XthVg0+gixhozEdcL2YI9vyCxfZ eUR2v92ZeWQxzV9R8p7AHIfYUWZvCqkMl7gftP4a12v3aO6BCaQmDgnexeyk k/OaSOr3FnwpSl3Bcr8Dcq8pvxEU5yJdN9RuXXpTCFcX6HVu3BzGuEzaAyH7 BYhAfeiB2Hkq5Y7G/U1P2brBXGv19q097CTm1Sne6+UFoHBJJPu1aTFc0xE/ K8fHQcbr+U+PxM+hgcB1GZ3RFty3qy8i0YeLTHe2CKSkz8Gny2Gr1zb47vgb H/GEITZilnFSWGe+DB84abwU7/6NqjQbo97ARZr6hexPZ85Cn+sCHWPdS/T9 QtWxyM1Bopg/u2u7duEmt7GZXebDUHPhv6on4bxEy/6vQjY9AQmtKwMztKsg crameOs+NnLTy4aRX2YAdLk+e8vazKDYj00iGhs8sFUhUarm9jT2QFmC4iuC jyb5rXZ085DQs9SVdhdSYVdAz03usiEoIn+/flcWJH89fjvTqMSgfAGXBJ1g NUzYsvpI5/GTY8li9D/0fbE3leWRoN4y5gpfPJbIwkUEtEs67Vdm8aX+Y2Pa 2Sr8PZ5/k76Um9Rzddb7m9VB2rGMlCDHTvwql2T6oJ6LXA08EBP+eAmewuG2 q60LaHNQ1C+lnJV8y7qd1nR6Dmlu517fVzSMdX+5Lf77w0U0sg+aVP3LA4Wi GoEYvhB46H2bIf8ihVyPapF4LjMJxGd03fd9FejIpt9IzuQhStQSZlIvCYZK vHmsYDyBwv4H6ty+b/i7f+Cbq5OZaPfncrbUWD+2eV/5STK4iQBDz+MzKv3A +/FhW+noIOylnLw5/JdC8hSlHR/nzUGuq22Lmms7XDMaixTS4iVbbL60+C7M Q0MWk67R3XpoWRU8evcGO9HfMkI3fXIC9yhXJ9p+acUYG99+Xis+IqOTl6vY QEVySiWeGG34TTMKLR31ZCLflwWkCzqy4OEttQh792ycyHNpa3EWIGYDgYZB lnMY1SX/1YizC8dqg16rDXOQdvWQgdqRjZ2w+SveUNIOAxpdlaIb/r71+Syn j+w8xCcd0N3GPYsGJcxBerlcJCtoZyrr/RZ88SqHWolnCagzGK29P1HIC8dz wj9jO5BZUMMxL7sLBV+fv0Sh5ydPFE+rJK6sY2a92odU7RR85itsFmBIIffv XEx+IPYH385nLIxa90F86t+o1j18BAJM0lJJEe4/LsrOKrmCd1Qc39pbbryX IpK4ptmFPEbKFZe8M/GyurTJOWsOoqZzyiO4fAyVzDLfSvTOw2hm2tijvZzk 1Z7cMbTaRK55HozrHxvGHQurO5XtKeR28eHFleVJcDDqztRfb0WGAyYH+F7w EqcwJkkRmymk1nlfVh4+itpf2drbyyiE3mpuIHeiB1dopU5fbx7DQqHQKzzZ PGSqasq1InYYuM7I8o1aFuHXWj0ykMhNOAS+ulHWuuFq7lyRFnU7JN6zLXGJ 4SUg2q81OtGKoh+uH9knWwPDlxOL2cs4iNHLCldD9jnQ3O+Xem2sD5ptSw24 D1DIvh3ijG/rx3HyRFtsm04uTjpOlc3e4SEBas+YOIGKLPi1jTMNNINjZY98 UzM70a4equ/91wLVWznW9Mw6kI/OevDVJIVcOPhq7xmVXgynKXtfeX4AREVN z3jk8pCv4s/21MTV4o1PGmmX0zqx48Zr+4PePGR/wa9Lzo7LIPl0/WTYBj8u JHutvdHnIx0X7lN7Sc/hv7F3aglZ0xDtMDz6xJGbKPdsX17lGADhln2Kjrad aNzYbDt6lo8UWLjv/v3fKHjyv204+r0B9g/ylvt+5yLWLzrO5IgN4b7lrfoP s6eAf9Rwt5sJF3GxT6PmbCnAWKHMi0ztP4Fru0IZRyUz2STzcIxtzzTeffQ5 s8FwHD/v3emsvrHv6ytr00JTtljqz/xdesscaulyPI9WYScyupQjEu3toJUj XC/TVo3x9Lyp/x5xkAch/YM/38yBrMWZvWLFUxgs3Sz1pYCXlBrW9DV75aLJ yz+qOwzaMcxY1VZ4iIdY2bmSmmO9sDPoaJ5eyjQesRFNTZjnIUP6zXEzK9NY +erf1Ee3dAyzMJng3PCU9bf7h66wV0L/eYUYzYkR7H9aOi/2l5soib80l9Lq hJ74O1k2Sv34KOG7vnUgPwmSsaRjossHD0GO/5o166C9blWVJpWL7JIIV09j mUUm2VuH9+otghDl877P1KzkXP4OUmY3Bl+dDzP+fNGBvH25hx0YeYmm5G8p 3rAKiPqVeKmgeAmOp5z2+nqdg7w0uvwmvWcAPB22JWlPNaNL5iMG4ZsUwnTy nWl6VjqWvzh1InJ5Bdh19i/rZm/4b46+mZdMH55vqq+vkOiCkl1BVgEr7KT8 vvgqbegAvJ/73na6sAET/iYabDdiIjO2IitKYoN4KbfsJqf+NEjSp5k8KqWQ xZs3+Ko+UpHNCr8iTDf4q8RZqe9nHi+ZkxS7Byc2dtnUyN5kKgvDyrI59Sw4 yb8stmTX5lDs9fc7/Wt/MXiojHH3bPSn95Sn0FDWCPIuf/tyW7wO63zPizUv 85GT9O/HvCL+wCpz8ynqI30w9JKT38SFnexPjHDxVivGKZ/JO+Y3qsFryUHn z3cKmZk/dSq2bwaZS4sU/9yexNWExrRJG14SOOdFK05pgrN+LugzfAGNX7iv qjls+LLXyqpGSCeem3/m51jRh1LfPsgyFFPI3V0zr+HsNGz9rhapVxgMt7tM Mte2sJO7UweOhNydBhUewn7iVi9Uue92Y9nDTTLav1Mlh8eh67mKIrtjVCTM bZvst1w24hYrxfTWbhHerRken3MrgEO9rtaRGzt+nfk+q15lNt41hm6NlR7I dn0p8G4LD+nObfqU+HMChHzXBdr5R2E9cpyt6xAPsZkftZ7SnsYa7stzERqI MSqKJ/4eZCMlP15c63AZx4OOaVNJt3LAPSGQcZaRk/gn09sMR05CXahbzcGs RvSOrnvNdIqLFKRthVM3R2G21p6//GEr8p22Thw6yUEucH2kOyATAFt/SZwy MOpBtWVfz2/7eAmXROGP76Mb/ph3UvzDiQlkDxB98OInK6nib15s/zoIb85a Lgz7DsCWJ6MXZckGt/+hW/WTLoX+b2ZnB/6rAtkH1NaaSRSiEdB61PJZNrgr hviWkBl4/LH+08WDLCTvufics1IXKmespipYLsAbWUYf/n2cxMxZq5Pq4Ayy /NHoatXshI+CnK6Gr5hIZnyt/dGX48g6vPPEbqgBMT/1h48vcBBe52wurovf saE6yx1Mp6DheGpz/saOU72VfH13vgfLn/uGZWT1Y+kLmZrvDRRyWvyR2n7j XkgxnEpnWRhAfkZNoekxCrlcytS6f2AIIvwoIzQV7RB5T/sl/VY+4hBU5jUa 0A5ucyWJXwxn8UMJnfpZWzZSmHfL41JqA9hmbCtS/1QD9739Ap3athGhXTG2 LrTdYPecY1xSqQlOhpielzXnI9/pky3G7PqBirbFj8V2BA8us5zjYeEgu1hn v9NtHkXuDsltfykd+NUg62XCgY3c6nwW6lHqRon70p5sHCuYf+RI4VQNG7ES qL9F3zyC2uKxshkxI/CCV+Fd7DQneee/2+TYuVWUq43Yd05uGDanbnsQb81G QpjVT4f7ZEM5+1yNa0gDPFnpkq29TyH8evKioux9EKEpEZLqNwsu+b7x4pSN 8yxLKpW7GYVX80sn3vpSkyU7RUV6UW7yPTVq9O6r38js6CxmtX8IqT7uPtVw lJW0PpgdpMRWwPYzy58iPrQCYb2u90yXh1jHyeq5sxUCNWF9YxLWhVsF4uuU NnEQayuR8R72Fri4dcfxI80tGO9dZNV4gJuopgZ6VG/JhyTP1MtPUlZAv02h 5eF1duLNwhW2N2YWVLLCyllzF9GK4t7//f5GP1wuC5Li78CgEyubX98ZAv+I noXWCAohw1vbq182QVPPqrfl8ya4GZm0XHqVg8S8vOU8LD0FZp+prSYNGiFz YoDv2n+spONwtrDChykUNjlllPSkBRguBsXu4WYniyGJnlebByG6mN8boqbA 8LrGqapsTtLBs93jF18+uPvf+iW1rwasdumgXj47EZo58nnOqR/2iFnizt5A KLKma54J5ySPt1y7uMBcDd2V5iFMu2og2yHFkE6XQmyjdkxaq7Xh6YIxXaZX f8DOvOOI+oavXVN5J+xrNohnfTOZn/QP4iHeG2l/X7CQgdXNJ9KjphGXc/Pk AhbB+v5L3RfIRbYkjHpq7qnEM96hN35+q8HqglM/LIS3k76rdRT58jGA+Tvf WtaLMKW5OspsCycZWqKEvTVuhw57JWHeF3/Rcau8ynAgK3la/If805kAWmCY YT8xg49CgX2Omo1w7O86t0Q/jl6DP/SOs85g+6HPJr3tLOTu9h1SuPGOUq+o sWWlLWB9yZxNzn+CpMV08iqrZwd0uWjdMe5twENGq09UZSjEcWH18WvHX5Aj MvZWK2IWTuv3/atk5iY8husHUlqq8Nd6fnyqeiVy2z26spWdk6Tm8Fn62K/g rvOhQzQc4cBhvVBjscGHIhZ34500BhB5Y7tmokrh9ra8mYchgsT7ewI0HuvC mad3v1BFxCBTuhn9x2c8hPP46VZD4zm46vdm+c+xQnwejb/tZtjJaUWFn2fO lYLBpWGtitcED/D+chd32Tif2ECxDOFFfF8qybW4+BVOeEVzDo3xkuQn5cnq H4bwI/+e1vyKUYzfnfiiJJud7KF16+/80Yw7is+cy7hVAl/+1pJXjOyk6lBa /evnPSj9auQgLWMD7hlRoX2ax0NETm+pvR1OTT5M2s0tDRVgTGf6rGY3K1lk eDzGeXsMbsXFvhFs6wa5AjYFGRoKaSrioE5knIJfeUrZU8da4Li5aOfZm7zk P+4HXyKVZtE0J2g+K6oADw8F/edvwU2u7D8s7+LTAW98RIu/Vi1Cm8G0ZK0r O7kTcs1s27kxUK5epMtwrcLerUv+Ya95iKrz0vaRZ+0YQu2Sci9gEd89ajlt fYiTtJbdShI6UwL6z6I88oVL0JRq+bE/RYBsuqpImL9MIARN3x0y7YMdbXP9 ef2s5IZJYPHtYG809DQwDTzUDSv6UuGxIdzk358327x+dENesGJW8q5ZiGjw P+d5kpu0uP78HSc+gesryZss3s9i7l6Wa3S72IjL+oXf4VPFmGm3Fnvl9jBW 1WdlrDFzkaFdWYIiywk4aSCrmbsyAfUZagmqihRyLEW4wXbPFM7JR6sGy/Ti VWMOxZfJFKL2vOzvUZUJoOvw+PrJaxJMZ+Smi9f5yB0NuWPuIbPAxEMV0fW2 E+1MN6tInuUlf3fTnxw4soy/w5qTzwiPbfggRN7q4iIOcHnPPdsOMApTaVsz nETDiLDmw4b8REiOcJfsjUCVmTax8ev5+E418gf9RU6SNrnlSuDmfNjifWP8 NdMIrEVf/S9KmoNc/R7Ererdg4X+p69sT5vH+8dLvznd5CILO5K2Kc5OQRFb 0GikZz36cN5hkW7hJtf1LY5qGOSBaVzUCa2ra/A8Zyivv5+RWMqXa52hGsSI +1yOd96k4pavA84n3lKIjf/F6oKdHdijHizBfmsG7gpMLVbLcZOnQdpTiYaL kMeZ1rLXuxvYDt0xLpBkJw4+E9LBJ7uwoFtQtcppChrfdERrxnAR1hllUTU7 KuXT5z5+yVRsRXW5xTo1WQp5Uqq4feZSF4ZkhjvvHXfDXNZE2xptQXKv4oOK kfgAmNnHViQwLsJ17ZYdfRH8JAdvnErZ8BCvqb1/SqRmcEwI38aZ8ZDmE63H XvM3Ak/xgULb613wV+mfz9qGL6+/+xYsKocg8laaJa3kL/RHJh4dvcpP4kbg jWsfFZnRe5bziaoHnrqY78p9zUfC461aqX50gPLRgVMHLofBWT1/KjZ/LnIg sPjxkH8jGovqrLqrzcPjpr3vw/s4yI1PE6G/ewbR2cZx0YpxFDjKToUzcW3w 2zYnswd0/1AiN9Y70acPB54IsFxj4CSblly0hLd0AzWVGtVdgUCssleScI3j Ihgmyb3CsLFnhfaPVQ4O4fsXTcubFwWIhVam8+TMHOSdEs82vPwbBqPDXXqe UwiNmELcvZpxyJnviNj9txpvFna6V7EIkK+ZCY+uaQ2gw2yPqeavZtBTSc9f E+AgTN++U12ABdSgdCdQNjVgzg9/tosveUlN1qldM0bVmKKj5peZVQ872ELu 6Lpv9MPRp6Megl0Y2dPGdP7xLC4u0v1yiGUl04WO4SfPbuR74KHZZM4o3kv9 wJfaz0bCTO/aCB6bgPeBkofluNvwhWPvgsgxDiLQMDNwb/846vAvP1Ics4Od 9HJpl7h4yb2Lp3vemlWiSODv85G7uzDKu1fHko2bHIr6eeBL/xi+6czZ3C84 C5qXVAfTZATJiVdMF7UEm8FNT/sMfV8Pbs15b9y5wckDy51MEosLqP9RMUC2 sQdycubeDaewkKK7Ja8azQvhxCfCYlxTB76UunxHHW5yLrJh9/l3Y9CSuu2c vOgMVI7tZcl3YyeZ9loKTQ0DGEmzJF7nV4QOlQ1tF8X4yL+xsEuy/VTKgXtl 8tPmeiHjMk0GVwmFVE5Tzzdm/MRHIe526oPT2CnBY7xynov8l23NUK09iTmJ Sz94rIuB556ioxkrD9ETXxH7QfsLo2iqrBzflmPUNrvnpfkU8uwT1ev/tvXh N02fnwl0lRi1I6Del0aQ1NJ0a/qpbCJbA52qaid7IX+r3knRbVzk5lgQ3dvx ETTQZ0G6lRo4qL/pe8pGX23lPSB4UaAf4799Uc5v6AX5k4ajAk7cZORr/s/P LE1Asyilo3KoFp4wvcwIq2MjxfZUmyfKl2BN5J0A9UbPJVtWzWfxc5B0H/5n D/Rb4WRS/MGb1FSEj9qgryqJk7iajXkkcpRhrM6Lvy+DZ6GA8WKSSjcvUfG4 c+Hvg1r8wS2+o2+kFzn3aRqKcrCTIBqtx1Hp5rD7muy+Z+bJGNYa6PFehZMU pH/7e/fnBG6T+1XsodIACyp+V9YMeEn7i6H6cZthSJA1XHb/vow9LqGMx69y kaZCz9vTbi3w8NfHDlX/Zlg1iC+ZkRcioyMmbwIaCSaKnLmX1dsAFbq35asT uYlCMZmW/FyLnL01U77NC1BpklJ8ZbMgufjhwJLX0AQsRNk8vPp8Crh/asVw 2nATvSbRIEWZblQLPfuO+VkHWkwN50k+5SFpugfffzs6DmcFStIm7o7CSsch 8/PR/CQtlfKZ/cQUetSHZVBtqUamrMcmqdc3uOs/L5eT8oM4U+A3PXiyBmiv NUx1CgqSpntGN7X1E6Hn8NsPvvIr0BTNmh6aw0XsWgWXOssXUT7KPNdScglk g97fg1p2Uhnd+eK02TWoceW8pfbuL97e9f3ooTV2wrAseH77uz64fZZOt9e3 EdzSKn7WfeMirk6v4v9LHMFLAuqJ33ZNAY3B+3j9HTzEw1rUNTTXFe+tX2CV lyB4YuficKQpDwlstPH9dLoBvkmV9QbY9+ONdx3S78L4iNZU1UWKRSd6lG0t l3lXBG//6cUNBvCRwwbVDX221SidbT4RybkOe7q/F8458pP4JtcrGZ8I6sXe zttS0AnUVgzre3spxKD5Kvsh0wygu81Du/1WB3SoUVk8+TiPPXWgwt/eBYrp 5U2S/Os4sdvltHL8D7QfiTfS7OvEVbnTWVLiH/AI2/jg1+R4oO2aOCf2Zxh4 4+7s6tzfgBl2Z24XtnXipOm5O503+pCHP+6c0p9e/MM5mEF4JuHvUzaVBK8B 1OosaphQ6sXku+qFsj1/QPbhHSeV8l5MsAgK7zo/gBZfX8bqaPyGtS28SRXO 0ch3sHXkDv808o7/M469QU0O7j6hd+NSCzIW3hcKFe4EuQ6ZXw/KOuF+qf6d 1NFJuLLM8JG6aACM4v9csXRqQgX7heCC2z1YJG63rj5aCQEy+U1SYo14d900 4AfjLNAd8An5NtEF0tepej7s+A4Jq2K3/96PhNxnefGDKVOYUtmpFa6dhxkP 9BuslnqQ8UFzlGtbB3KxCEWkZv+D0wHa7Vtyp8CLP/Hote4MCHi4x8p24R/+ LP1ptbSxg56qvPQ/nlMRK513puWD7fDK3Oaaq1wfWsu7+a3lFULpuIC5lco/ VBNyqLjU0IOr4myFmXzp2EFXKvOcZgrf5Yk00m0rwT4mWTp6vjzY/HnfekNB B/wzLYvMz6lHQSe6PK/dRRiw9eakWfgEPtKovUFT0AXuwZVVRdd7QHHtSLFS WSP0TbE7Wai0YfdX5RcC9vOY9erRUdXaEZw/o/wVlifgpm/K7Pv3CUDbU9a5 dr0KBqVnB4c+PYTEHfGTMhbVuCzT31NU24/Gj9Z0g1P60SX/1bPHnb0gk8i+ eECyETwpyY7HJ5rxjdl082fhCWjRtL3LyDKPC9/jZy6cplJmnQuMf9I6Dhfv jqrRa7eghNHtqtkrafhnt6Lp0voYDlyyin19txOHf31/fGFvKXz272wSy+4E ee39Ul4mnWixKZPWSL4Ln6H/qwm9FlTkv5DLd6ISo1+BV6ftHERuH9SVfT4N s5uVs5kcK4GOOjKq4WYHMs9lugl+G8KU9066T8Ib8VeBw6NgrQ74pnxVoCC1 G9V1FMVSX3eDIs0RgR8zZfhoysnx6dNpcKfawkhj2YuTFB5NvesdWPJENc/C dALyP2Q/UyoaxZY0NfozwdTKzHNf7j46VA2Klz88fXR8BJ7cL5of3PCO90dM QztzBnBW4ZDbVq0FZLLP294U0YP0yX6YIp8PcYM1FcXbXDC9wtR2YVs+uinv kFGs28j/favMzsFaEBd4bbBEM4+/u4u5Nfhn0SjdQGxLbDLEiU6wXMsZAI/u rQfsUsdB/mzkWr7aAjIv5XiAVAnMens62YtM4vr5i4y+r0fggkTvIb7FSZTc uZCgt5YGctkFtwV4SzHwybKGqMvGvbyPtjo4Vw15X86+D8ch8DTpdZ9snIVb z+53O3zuhoKWd9aeHgOoY9/wcrmjH3Ok3ajvO9VDoP1kSYfnBAQG3J3ViSqB xqRThnT+tVDhvG0i9tQgvBjdq2+nkQ+y8oV9m2db8byfbr3KnW4QCZMo8C3q R/+KddlDHM0gcdtRK5qlE7647m/opnqH5Jy5WmzaCtZdmNo+798Npy3s/571 G4LIzU0FXjrjYDlAfYdvdycaiQgnO4oMQGnAU2edsjU8LrT/1FzgFG7PTCsK /7oKo9Evu68d7QWp+lf+WTNjGPRwJ1tq+zQEG31beBw/gh+pqn5LLizi3SkH 9aCt1Whi/Mfs0K1eSIsSflMFk2j9RFDUrWgODsUkl/i6lkOSc6NiCH8Vvtkp onI5YQRbpSVnw1Kq4OCmwfpumQ5UyPRMZDxeCvHOhwoi1VZQbXdF2JG+SVCk LhmZ0xrEy7aj8VOXN/gzK8joo1wvXjj2TDHbshyKRXvTlueb0IcdDPovlWIs DdWlWv0arOMTnU6oXoTDN1gVqKiWgDVneaDasBnP05hzPSW9G8AcU9vdv+En PZqjVZ8HkNdF9kSM1CBw2R8O/bdnDq48sMhfft2zwW+3hszEJ6BITjCYS6MP Gk5um6V7WwKxBt3D7l3NqNGZX/vHuwbebTP6VLyyANlL5yU1pjuA+rbLbteZ ZaC1Cjd0nWgBrYKProvbKoHDVORHj0cPxIopur02agdahv3yKuEZ8NrGZtpX c2PXT3iYlPCtoqYlz8nEDb/XiizTE4oaQJ6pk+dWI7MhWi62zFy9FvM0nHhv Xv0GvYHpRW5h+bhtXD8k1LATb/W/a9QSWIZSSSq2+K1NmIr9ck4/mlBdqpX+ adw/SPOYlhgZ7cZwa7evcq0d2Do+ILDPqgaltYvF3tyYhw551ZRv78Zh+jRn UbP4OO5RqtkjsuUfKL2eeXC1ZIPvBE36shNnoDvge1GM+E9sKMj6kHF5EpZ7 fG46CpRgsVPCBw+nAWB9/C8+JWQMvNTNDdo/luLjfifeFscJtN7lJqu0OACu VgY7ONKr4U6ize4Zjh7YDQXy/6K7oZg++0mgUz/SnGyIHmMpRcO2MoYrFbXg 9e045ZZ2Afr+ZfgTSteFVRaOqesMbZjCG1n9VXUQ7H0OZcnu74C3mm47rg7O wnL9mdT25Gl8VLXjzSbHIXROq24ei5/BbSZ8XpxHZzBkfbxDRnQGE3hTuhPq JsD05a+IPMUuiHuVaLLpUBsMSIr5Md5Px/jFN9tF901g0Dtd64LmRtAXyjYX bazFpsLrAZ72q/BFYkzV8fl9oJypb9+98T/2A+LPcmPnwKTwmZeqUjFceEp1 //y5WTzYrWe2e88gBh8Zuf6zZxK57t3nmJ9uxqS4uIZJzk78uu0/L83MHmAr j3Jx/jIH1N3uy/5RQ+Dw2cqPm6ELHvzJNFk6Mgw5ZuWPn5o0g4P1h4f92RNo VxCuynR3CsPuOxu2xs9Amnn5jxNdtMpsF6585Enc6Oe1M78zDZuQhzdffK// ECwnS+2kPTGJ5kfOGqUPjuLVR/tURemX4YmQaJW4fQqEZnkei+rd8IyxCyNB 78egy4cjWUilG191Xd+cYdoHjNe0zDxCa2D/X/W/a5qIxdZPsn1PUxPLp6YC 9w9GA/2Boz77qv7hsiPd3q7GIvxGp3UtwGsRzHizzM/Zj+Kj+qtCes/z4K7l Xramjiq4HXnhF2tPPyhI6DEcZC2HL9VnX7ZEj0Ohi5VIFG0/krAbXQwXq7CS 2p/2H28nOOnErKjptoHklgP+uwvW4NTZ1FGH/XX4rHB8cjm8F3PuSodFhHaD jdG5oRe0s5iqfv+Y3qs8DGedT3y/NgHrTdYvmY/3QMi16exJ8SHIsZzcvk1h FjfVXH3QxFcCWuwPaP5zzsd6hns3wqT7QDjo6aEY2mnQXdtU0Rzbg5zuC65b POuA12JfXPDoDDLat0um3h3Fu1dzzp23XURisk+wrqYCBF/dEP+40WMepxgq TufXQZXzocTomCncfcOC40rNGtR7nFmksqmFFXUSVC1TiLfEmx09BKvxZIW6 HcXnJ5rPSerZiVSCiQhXoob8Ip6/1R/M+HQc6rXtrJ9LdkNM+A6zd9r/sNPj hfvapUnY43V7t+LSAhZN7NcIyW+GxMxEz86MKWA98844QLQU7ZWr8po+5OLI KdYF+20jmDeX285DvwqM1/cbm0+UgFX/51sdRcOg5tfS+uBOD272stv3/OQ/ YGvzGzMf6wOLuBCzVr/fENXwh4r/6SR4Bz4t2sTxBdr6GZ2dLDPA5NJjAyuD fyDdt+Yr4lWHYHwiVnu8BfKrZnYVvImE+SSRT2bs6dBhciHsknMPWnLWLF1V qsQXkin7dwyM41WeU9/Wt23k2fVV7ZfZKrBNj1nTVhkC07IU7V3edah64Wto O10mynKfvSXP+weo55dWU85U4LFfGYFXToyChvYEbdtsH8rkHvLMuzoJdPeP /jdZ1w4rK1kPf1l0w2J9DO9CcTVIOfy8mHq3CTDEs/K0ywQQhWYLybQ8jGV4 tYs+ZBIMxq8/ilweQZm3TMy64j3g8LAxj8tgHJ3DaK1Wh0og5+UVi70ME/BO Upldw3sAprkdLVMcJsBY5rm0Cn03SrH32w+xl8GJ3kCLwxdb0KVp512atQVU lByiLn20CJv5FFgtCnowqEL7grRsFTpNiOzfx94B6nKLLq73+jDt05zCsu4s 6F65HK6RQUUOb3n96gcZhh0zcs7iqwUYeIcxe+5OHTCof1pFoT58p2p0tFcw D0yUXlcl7MjGoC+6yopT/3AmVUKNQtOPGrT7l3+4UitbdjFlMGzcB9sH5nsH r86ByGWdP4P3mqAidXzzMeZK+BlZXXPAvgMu+JWxSb3qxsd9dkK0HwYwx047 TIJvHL2fPGfgPtWAlEKG5I83xrFr50quLV8mZqb/qdAJGERd630aNcULkC/A 9y/JowWXXDadq/gxCbef1vGc+NACv22sPqo/64RP9utX7e4vY23Q1E09mzVk o7J43rN7AlUvT+t6hm3wpRiDTc/TaVTR6xue8s+C+OVR7QOO1VhB9/aQeXkn RI8fHg8OHAR1hze8Bk9+w38/fagcubtAhW6/gmncNLaoT+TlLNdj432VXzd+ TaK/LgvbIa9qZE1Ji02/3Yfp955pJuwdh3il2BJj5UJQXJED2aQWkHMI73+c Raccx3o6g8WiA98Z7bVu+FsGhqbHjv8V2rgv1VxeVscmZNkv5jNyYx5X6Hde pOEZA6pX5g8S/05As1UJt27nNND40WjtdpxCTmpvLQmcg1tGtEknA4vh5uc/ t6gfNGIFX+9+rpROlLHXszf5XQ7Ceteol/EbXnWOjxEa7EH7VH2z1alZOF+8 7fT1yAXcmaf9L2+qHpNUp3OdWargzdgzPYnmehBWTU66Z9IDjhNbBP7kIWze V3xD4E8PdrjKuhocmkDv9C7K5K9l+OOW1K79cwxD1GJuHJuZxaDXl+xLdg3A SiiHgcetSqyZPZwb+7EQzgc/q1l/Pw+/Ct8aqsM0Ct9uH5ZQ+oWzy6T+i84Q tG+vsOp+MYPHzCx0yo/X4wGv/uw+ue8ge7g50dinDrxSDRPDX2148OPHOwKv zGJOzB29h9uL0FmB90y8Th1u13TMNsjpgRT+8989aL9jU1DRW63eSaD3TISE nkV8OEqbNvCiH5KaGY/t2tMHamLrL7Rou+CZ9tuPjOfDYPVrfB+jQwdILKel rJotQ9KZ7CNfqPrgvH6V00D1LLrfZtpRPbII672njEdMSpCHIXLRjn4jt3K9 BYsRS8gY/cA5qW0Qtje5eLwV6IXeYDoO/cPT2CTMDtduTMNow/RAhOsQ6vfm jShOT4HowB1HA5Yp9Bhimol82wrq09secIh3YZbK452itY1Yz1N2yFm4G+6V +HeO6Q7AOfMUD0PPMsivSDb+7dwAh8R/8WmrdkP/o9t3jCaa8JdOJSccn0Gj E+XPT30kGF70bmuK8BhY914qUWUaBmUKX6aZQjooeu27/NJ7EU9K6e6un53F wnld5fcO0aCwJe32zZgJYLlnOUY50ohdGsfou37Pov4WHR6Th+UoY+lp5RgR gw05Pz/Scw7AzSO5+edshpEtcN9VR6oqnPspeul1dBnsPxX9wv3pHIoKctqV ipRiqeUBk6OL3SDhJMmhG9iOvDMOs6xZ3bDzlGum+wan9J85z81+bh4jrthk xiREAp1T1g5OzmnwVNq2o+38FH5qVR3rvN+J/zVrN+W5NSKtzmyNzNZuCGTt TBxz68VgOwm+0ifp0ITcXcsPpvA/pcVvdWoFaPR5k5ANvw827nQf8stuAq7e e3WVb6bAQ/yre5vKMki3F0nZafeCI03XiMPIIMyJahg7bPQxSTFKeuX+b4Nz e59/VonGO06j9qEH63A/r0LZRNMQBBj0xl3PacPPdc95v0z34jRXgOFMbD5q e/m3Glr1AmNIqmzU2w4IzPYb+5/i8o7n8mvjuFWJyt47RWRVFJHrNJRCSBpa qEgZKUJISIpk/FSkVKjsIquSy957y96+5tee8Xj+ul+v+/7nnHOf6/N5v820 V0DeM3dDTBMVX7F/fL2NmQo1Q5cyjbyqMWic676I4gDWiyufET+x7uNc5ezf 8jrx8a1NtuDfCZ0cZ3hOe/1DtcWRj2QnU7bGQcEtPEm9uEpnMHfauhYKSg5u znCiAv0Zw6gtF6oxuuKA/jevaSzLcPMyFI7Apv10adZ/R1Da89dEmXk2ZFYZ TG/aOIxXT9rmvDtTD+d9mjepyfyF0kb2q32nu8G+U1RaY6QGpedDBLqlJoBV 9qD/k8RO9Ao3m3jiNgR2yu8nwiZykCM9hndzQTLKNF3TEIQfaJ7Aw2XpX4Nt Kmbnjdwn0ayk+dSXC/0YMcCU07bea2wXc9+Nru/7W4q5868f6+cWlrWyGFuP BntuXfOU6QavsuqfB4foiWW6Sekdj2H8k+zGy0XfD1L6v/kYg4cwyxKbrpwb xiSjfQHME2NQ3fjoCX8fFWWWSlnc/gbDqv9m3lmxEVhV2cKz53oXfLPMM84+ P4W+t48OTrXMgsL4Y6FsyzlwjfL5E11ci25UsZILuTUw3fCtwCCzG9dc0kSp NbPoRZ9r/Y95HH8xuVh8cBnCs9yGVwPVKfBRp+p+89shcM2uuLq6zhG7XGSq pD37EK11TlDdhlBoZt7gFHMzsP7eaxl9KAVb2RldDmeNgd5bhe1DjX3wVSvh TtKFGSBbCv3NghrhyWXzZxICS/jq1Zub+pmTcEJ5cptNeT/waZz3pd4cg4CF 6522iZ9hv/ZxJrrkOaRscky3OVIEGrvT9HUt+jGN49/xowrjePFE2tClgTb0 mDuU9HpxDGOcT6vprXN0205P7rOWj4A3Slptj1k+eLWafFh6NQv1hdc+vHcY x7N0OhdkT11H3unV2rrjq9gwZMOwx7oLd+c58mvdzAXWDeGbS3b1ol3H2C29 xvU8szardfw3hsMaFT+GzcvhQOCnxqr5aXS/k31MIrkJT9wKUFVjLMCjfueE REdycIry3LL1RTMy7UkI16yg4s/D1hIMKzlQkSjeYruhFcIaps42XRuHe/za /0yqJiHu0ubyQMZhDDl4ArIeTcNg3CZ5+4la+G//6C31b21omvvg1ocTG8i1 UAmqoeZf8Ge3prtKHUSjD9rH9dN6wGUxkctKmI4U+pUsMbQ3gJy579gO9z54 XhhSqs8SjbYu9xUS5gswekh6NEc+H+lKXy283TOMsUo+j54018CFTR2fphiH wGFs5kE8JQMrNcc/Ze2bxJf5W6aSHfvQ6riMeXrsD/zaNef4jmMKM85a7f+2 OA5sKkn8mdfGsCuHY3ph50+Q9IqkXV2uRa2Cp3v+DfWizZ9N/SsnxnDB/Oaw 3MRf6C169GXiSz6mJBtTFY6NQ5VC2IcS9vF1TvndYPOuDD26Zk4dkPyND/ls vnlLLcKZW2Gmv00HkS3xtPrEixbgdknfMUvtht5Te2PznWdBk+FzBP2RHlzb HsOici0Zuzd+jw4SHsBGiUNyg1smQRXZ1F5v7McJj5e/tlcsQOwp8QyNR6Pw 6XsKzyvGLtzP4rnb/Pc0TJduoTV+Xo0G6t+tT0rkAJfsIW3lnh449yzsgC93 N7od/eya3zEF77ir31x9RYVY57UbplEZUPQSfVQlZ9FOcve9C7Wr8PlPX/Qv ixY4l3nxLfuZf9Ce93Ckn60Py/9Me9VETqHtbfmE3Sp18PvuKq2aWw1UkNaL P8r/QF/31ZDjp2ugbFujiszAOMhyvHo27ToCr0TUfzdLTkHwwN41o70F2DhA uywPM2gRFSNx/WcpZvkU9g0nzODTd7vpHdqb8IpS6uCO9klMackNfmE/gffp fna5iHfjFGfp2eK0RvhrsODw5fhP3Fca2WrUVA9pdxY60tJaQfbSuTP6d4qB TkyUW9B+vZc76JhsdZfgRcWp4uWFLlx8XlauG/Ic3q3FP8+P6cfqlQe2d8U7 kGun0vaXV4bR+3bL3o8iUeB/7RTlNf0ImlZcUlGppcnWKfl7d+7DBIZezE15 uSMb2oobrbv3jsB/CsHl9FFleKC1wzl4nX/XlVYm+S0Vb4X9MQt2KsUjBn43 jN52wvb7XbxRjPMw9X1cRqN4ATyWY2T/05tDafOJBbvRURSk1cvms5iGkmcP 7VmxFe29lAVtNsxBTNPtxzUK5bBl34ktjaFD0M30IEn2EQ156XhrrfzdGHBs b1a9ItiPB7Ub2My0qJjCYFL8/nElWPqnhr0obMSzYUm7bJ8NwJvXj1WZtafQ JnVXP4/DD6DuuaxsNrcAW0uvCiubV6PQYYvdP42GMUU6Y+Z3WR1E8He/f73l J65VvO1Yo5vCt9YcaT2nqOu51b0mX9KGn/e6TU4o9oH6J04mntOtoFJybsw1 Pwu/ZR9nMVtfz5BwedWcQDPc8p6qPumUg3kh0hObcyfB4Ki0DG3QDDy/8Wro /MAU7mfVWjhuPAzpd3892tM9gDFVDBZbZLtR/zPdf1FcpSjj+6Obq6kWT/xZ jqQydYKXVFSoSnE2/JuYioacUSyw+NqXdqcCR5lWBOp552FSMjD48YlxuN/L qzayNAi+pdZ7Fw/W4g+HVuX0Z0OwlKj+6EXtAORFSHZpyzJk2xwoNdka1Yyy ZQO3bt3oh/QX1uXsQqO42eRg40FKJR5VXRgZ8aXJHj9s8qubYRDG7IOlFCYb 0O9qldOF5Cmwrr4aEuhVik8iWf98PnoD/TkKJDwns4GjRzgja3EGT/2Z1X6z uRffpwfcqvdeAeYzvisv5ynokuFbqK8zjIbHhds5Pf+CD4VV6VHqDIYGL6ka fkmCy5pvdiZ+bUeqb4affEASZhx7XGVElw/bPML4xKV78aj2i+5L26fRJS+5 8fSVapzMMqH3PDkPokpTI2YCDSjdn/Bbo23dM2ft7I6fWwCmY3P5EvYDuDbv G9bcngsDcpoO5U7jOIAT6Qa6/XjBgEfsEMsoSJuYl4U4/AWGqiW7Rr9RfJ29 f9z5yDTGbKt60GDbC9xHenYPV02iqszJ5Tq1fvi1v21URzwdfkUR+4997RBj FaSq82oCB7c1KwiO1CKnpkrdhQ2VwLzoQp/0bwl/iyWWMbxewJeqjdzWv5Lg gHRuF3d/M3h0X/pI05+J7zt5VrL/zOH1brnZqeIRrJUSnbG7P4k7T0RPXkkb wJHY+n/0eYWov+gh7MFdAznMgUrDopPguGgjufF5H7zS1uorM5/B5PBFf8o6 D0beSCgJku+EfTMbo6pWB2AuI+/lDtdMoL7yr8wVK8QnLTsuyDlWocMjoZWj +7vwdIBEy7a0QewZUNF1qe/F/ds2m2zPaYWBYy7JX6THcUbNKNNAeQpmpDa9 t2wex37Tk5Tp5mRQlqX18wgZgP03XuXFGM2D9TjX0ppwE/gYHYrb2TCMc3FX 9TvlaMjjtLT+LI4KOOfBvMe3pBiP+pz+mduYhruuKYvihb/gpFChd9uNNpv3 yxX/qJNDoKP3525LejUeK3/3/LP/E+w88S5WwSECpPPqTQLYZ8B2y9fi9sgO mI1LdeyOrsGzG+SNxjwqQIRtz0H98AXMkETNrDuz6/7fztzNOI1sjc8KHzeO gBOzU8B7m1z4Oh7nr+NVgqNHlMTN9/Tg243sfvQtdXBMlcN+s3oHCNFGKq4K VUPz2Kkyi9F+GP78uF4vfBrULDd28btQYCo6pyDScwC5tA8vBOpR8cYfzoeR XwrhvFq1kn4SDTm3cZ+OLV8Xttx+7RdSv86NeZc1O7d2Q83N9usBz/5if9HX nY/2NMG8etbTEc4ZCH3AyHr4aS9uYhOkN/6SBYoD7iseF6ZBZ5z3RvSuGTzw n2lcy7rfXl+p8ld6TZdtKiQXavKoHBZ+dSr+nVhBOvozNEn767GiiWc5/HAm uOfVtrYqdOJ07Cmvu62jEHngzfkvI+mw/c6Q1ceBRmTsuqB2droKfr7Zl7pj sg/+Yxlgb3gTjS6VD+5YXqaA5AOeC56uk+u591jaeSMV/33itHqk2YKbrU6f dRKMQa9zufMsu36AaZh8IvPGNTxB8TtfoDoIRqINg7f516A8PS/lRW8XPBW8 ZjmlU4DxByNcLa2oQJdo/cE+vQtWg2Wdn6jTZF80LA1x8x0F1ZBHJ79dycMx y0M1EfPdoBq7MzAY+/Gzc/22vLpRON3Aw/dNhIZYbuPfz/gmG9+JuoxuyumC gEWup4d6VvEefV+twkgfvNkXJBrWPgw2O88rb97UDx1/ZjWcREdgMJCbmioS CG0GlWnOyd34T67C2XtnES5PPGBvvLuI92s96ooPdEMM16VOlr+j+PVoxOU7 nNXgeeIRY4Z6Dyr2a/vqnu+BzNZrB+MZOnHCbSsL1vbiWNCqRN+/YTw2VB/z jn8OwjqzV0Mfz0NYi/aHSe5XsPfvpGBOTQv8dTm7/J/ZAjqUj92WVCvCh2si 5TOPqpFZ/jT9eN4C0H9we/jS4Bleltmn+01rGBy/7wa33x2Q7Jk+KfG+E9L+ PeCGqmx8dlwyxIjxOmzqKVuReTC9zqv/NPYF9ON1l9GP7YXrnPP5usV1hj58 on3zor87BTL2C79tTxyHsKOHpeKV+nCXseCXpck+DBpJ+PB6oAYH+o8Yb33V iDXzaEpnMIJcMZGBR6bbkCniACvZN4+N99yaAjyrsWim86L2sSGEN6Kfzj4c wR8Zt36lz//DIzyr1+iZUsBW6+TmuK1UGAjpvHK7Yggmzh9VM3buBjYljnrj e7U4lMeos4l5BpZ2jv1tcCoCdu2eYLFWRMZG7Wo1E9ps+uFSbx+uDnwS9OHF qsMKfu+0ikxa64d7A4HuMLWAOuNezt1DQ3CP2lhWpJ6LlVLH8Mj6XPeEXBmM 27oEEvey9rENfwT1FGbXi2ojYJoSuS9gxxI8yX4kS7pWMNThcTyDTimwJ/V1 W+xdQblr2TvsLCgotrWfcT95iKBWNn9IeBnUzEe0r8bW4O/mwtbZrVP4MffL vh6tPlzt86hTOJ0FCe03M62Vh7HohQHvpBgVBGTkTfKUPyMHQ2WjkPoQpB5o vFh4cxwtTDIOFr2/hX7UP1ba4UvY8nl5aPr2EjTElF9iedoHanl6SteDk+H1 pt962RVV8Ov1u5IYnl7MffHrQ2ZVL5Q2r6xtCu7CPUxj4TJh/bjCUvl10nAI va/fF0u7QYXAL49iJdb7feF5VamS/zKMqpTfaA8fwENtgcePbOzGvbyjl1Lf juHz0ytvPHZTUEVK1cFMexGMb4Q77FXNQ+XUiMwrGl1gblfEl58+jg+2C4sE xc6iv52fikb3VzCt2BDzfGgBLL84uXft7wXjQc06qV4X+NNhXPzdoRHYlYdD ckMH4ZdJ1Ol8k2nwFjXLTN4yAT/FJF/5bugCeruOl40fZzD8RV8iff8Iynl9 2fHArR1iQ6r6oi1WQc4mOTxx319c1K39oP/qK5RGCgx5qebjtoOX5e2078LF Hf4SafQjwBD/TWPVZgh1384X3++lYBzlkoDSAyoWyUpeFzKh4qcpeZfzMcNo dNmQYVvXev5/3htB874HeSR+GEtWTKBbY6SBys1ZsLtutUsgdhQOPQrm7vKo gYnbWQ7XBudR8717YOeTFlyW5Wf6MTGDn998nhrPHkNHoag2Buok+PJs36gh V4AbmGkyj54ugpCqpfdnirvxlI7xwbATI6BBYzzi7VOD7oyynyn3W1Dfu3+x ungSZVpHFW64rcIzmZ5l7oeIrN9Tu4x3t2C4R7PP695RPG2NwrYmnXiQz74g anYVT2vTNtwYpkD7UxX/35tncEH211OZ1zPgwhX2tUxoFm3d3wUoGi9ApOhB Pi2tUgzjEb3l/rwWlVnVlVkXeyHOMHdj2XkasrP2MP/k2gAeVpUTSk2ZA/EN HbmmQouYdZ8ujcNjGnlu6m4TeTUKm6KTLaWZR8FJ1TTPL3IZPXv6J0bv1qOd Q9KXB7nf0EElfylvogT2t16rMxeZQmeQ3p1f2APV2Wa3R27XQPmn184/6jdk hzXUPWJ7u4B93AcK6g17wIP+zOB/QfUor/n1vc6TWTQTplfi+zKEoW1nx6PV upCFSVRNXSgDTELOqhmo9cKF63xH44KL1+dAzPWPAQVeGLI62DtRcHLH2eaL d8rwXLNB21cW2mx/39ZLrzPzsYFyZXL66CBax7kzPf0+gtq7Pl02E6+AvuYI S33qFO40++lNYejG7mtpi2SMgvHsL4OWT3TDYUP5CtXNP1E24Nzw8vlpeC1/ c+/sZD3e1ju6Qe5gL8RO/Xb1dJ7GuG5e08mofMylvN8wSDsIm0LE9z0v68b7 rONpT8o/IQu/W+eZx8VYSn/uvwzlGTBr1b/ecXAI2oJ+Ru8V/AWmvRkSHPUj ePrv5Uarj4Fo6nf2gPC698RP/GUvyl1AlR2uN+7ATzDednq2/OQnaJ0+qnhA qgMytX/rCLd1o0+h27ZcwXmIujz+prZwAm5uv6xb2DwHZ+xjLm2MXcMc/siy Dxm/YZRu4werx59QrPx+gSDXEmaX7w6o/9eGKp5dNYdwGEbrvtX9CKtDTzVZ uYd73PCb9fbEN9vGQSx2WaXgehf28T7IF2LpgKBdA2O/Iytxv5Xr9ytOvRh/ vty6La8bstvX4pWnpkE9MZSatIUCtBVy/G5QCCkaezcNcw2C4cYESbP0elRX 7W17lEBLkp89KTc064Yoe8chxq4puH7xX94B2yD4qGsYvFQyDXOEUOf9mvCb HgOriE8BBues2qcqUtBA6JOlneQILLrmmS+odKHv4Bcdrw99wLuUxavq2o9B uu+r9NVX4NeZuTd9ZVR8Mq2fPi7ZARouaDSWPA1bt0XPx50vgqtXvdmcCvtR 2OBQkVxOF+a7rxr/CqmHA19ElKdYJvCOecjhm2kfYHTDW02NXioefDZHfX40 HUP57BwWKMF4NiTyxUuLcrzA8ri/fBMVW8Ntvl6xpcJvjbwnpsLdaKzgZXK+ /QeEHBD41KM3hTqPNONTzq+gM5PYFxqtOkgeit98QWP9yfXd9V1uNpp9sTUK +VgL7kZalc8OZ6OfkGXokmQHHm3x/JJY/Q+0r/UNaNylIj1VIKwgaQalxFPy 2rLqcDrOP+vvSDvIhO/+JvmnEM7eDVbNPErFFxODP7i/jMNG+6tNe+Yo+Irh gfevYwOodKhy+ZHyHEzRKLqKX6mA6fDghWPr8/XBo+R0XPwSjt/pOvL0/hiO JduF7LZcQdPzn5KCP4zg2ZXU38m5A3ibyaY1UWwE7eUr7OyfUeFQhNPUP4MG 8FLf0hi7OgbC1eEdQxqt2NTn7T6oQwUdR8N29ohlHJRyXRWxqwWZV7V/isOb IORIvH/Het5YlzLfHdnVgvYnP5QrWE7DxuL/VHtcizHmnxbLpA0tcdLl/qcj RcEsFd+bnluGMOlbieTuqjacFnrZnPK1H2KY1K980hhCd34rekG9bvRU+O/l xmMLcCYl3VvYuBvNM08813ApQh5vrXeh+yeAaH6d22/fDi+5N11Pmx6H322h MrxH53HsVSlHa/0wSuYbFI6UZqPVgqhD545+nGm6Wyh2vg8vfn2iPHG9Es8c MvcUZkuAPM+t/k4HqiF6T1bJ8mgrRPWgSeThCqBZO3NZ1CkCtx6bvhkjXoOL zhmmspnrfnm3ka3nUzfw9BTqn4ROmC47/SLk4RKKneY+sqg2CXlqy+e73ath 4MsX4eP2/Tj+8Kt3a2gPLIl/77t2sA97nqzlBDweh/65YmEF3gZk8/FYOW/a Do53Nw+NfBrAvBv8DBs2TIGtWyG/kngd1A7/2iyyKQdHDtZnPzfoRX2leDm2 HXUYPzn/uEFjFFs/vD8xl9sL2o2TV27+lwLZ1L0PViMnYWenw4T8m06MyaHS WpbXYdPVAZ3NrbQk3PCM3cHiSswXbr520XAGOQ4clN5Q9hebfunNaleP4gsj xZdKg434KZJ5SFWqG6VtVfcpi8VAQZNe7M+AXnzQfeKLyzofUq3Nnj/f049u 5Lei6uFGGBSYvxdRgsBVP3jL/OEkurbFr1lZN0NXPE13wcESGM++5ajwxgHT 9isZW45TkNG6SO3Ben9mys/5J3G2I7fhb7PKLa8wYNj6op9qLu4/5H2cz3QW 1uH37Pi3GexsZN/G+HYIOcu/u+p0T8BRfen0nz++g2LooVYu6QKoOOqRzmDV jPzur3YdPjCOxvN7txswjSMvPTX3pcAspjMqn+TYOAeVTtwFqfsocGzL+Ie3 HVO4GmFb+ZKzFpSc0upPVP6CEk+WdBW/KWyrMQqnC6YlRja3Nm9lXQO2J0VU Qd0mVKi7KnNAYgKNBn9a5bXVQm/EWZ7WE53oaHFcYG14AGQFxI5MGI7B3N0x iRj5anwKeoxctCVQnsUWR5O4BL4lGZVn/2vAGIenkeLC8/isomJv/XqP/paZ 8Nb92gbRS7t1u87PYJ7sxPHw1DY4OswirOPdBZWM9K+c17meKSREfMikEjWS Oti1WMeRVmLv47apP/jHha7LjaUWVbX9Ht/MmUTV7wN/Ld0mMPKat5CH0Sho Or1zumg/AsOGEZutfZZg5/Pe1i0a5aDtqcHzam4Ur9E2Bx7UWsBruU2yO6Lb cE3K/d7cJir0tdaXpb2aRkuD5Q55hzlsLUmoY948CbYZtPk2IqsgvusJxWOx GxeoBSmNpxHeffB4rNn7G70/C75+ubkWfZXpfPuPjuB2Xvmrx9nmwe7CBl73 uEk8e+rjmkz4MPIMtL274DwObAMn2o7R16IHzeP41JweOOfUQWck7Y0bKo2k WuiaoX5L5eTNtS6sr6bV8mydx5LZF2MH6RrAw4Jt5LPBHIpN3++z8B9Fve1b mvN9f8Du/pnV0+pUvPr2wv0mmmwQPT5+/rpbH7CTtsbv6R0Yu3aF85JcJzQJ xkSNugVjdNBKfM4kFQ8w5j+562wLt8oozxUdU6HJt7vRtLcBVx6GZYh9zMam 84mWE0VDaOJO1+dXPgLn1PMktizPQfZ0sUWqQyJovWAW3245CSuHDflcD84h 7/ZntiZeo5gWuC1s4MoS3DdpcU6+mwaDX+UViJor5h/Qxu3bhyH7nXPNzgfZ cL0tdf/2w+UYbrvRhurcgyeiJ4b7fgzg3bcVbYkuFdjanVqjxd2D3K/v/j3G vQDpgfrCm/ZmgyV/yEQp53swUtxhW3JsHq6c2Ie7VfrQTNt6gjduDuQmg3as Zg9AVlBTi+LrcmwSy684vt5jtxhxr2syFUtTZJk89vSATaln1Rv6Kpgtuv/3 NXUWFE3lHN5vHII3fyr7LofMoVLw+W+CLF1w45fciABTBAY4pJ7pke+DngBb 2m9vRyDgNstQ3NtJVLpxaOTzpSY45HKtg36gDwwtK/IUvedhzD5kOe7WJFxW eLsnad0XBA2UDJevJWNI/x+uer5evPqis839ZB/u7ncse5e7ig8oFQ4GdP/Q M+gseaFeDVtLkmJSZUbwooBH4btDfditfMm5RKEPNc6zSUo5TUJ80OgWiuoQ zD0zqIHDtNmBR9v32ag3Af9hugG6Ygoe/OZ9RMd1ChLSE3XP+7TCI6nBb+55 DKRx+Uky3cQAbq4oP7Fbrh/LMoT0ErZWY7Sfw69K2hl0rXuZ+33LLAaXTyh6 sE3BJ+EcaYeKcbAMF5soPydCijrLvLxKl0Cr5Ze331IxlJ9TOOxqwU8+Jw09 MTgVCI7aWeWDeenYzjGjORjDSebum7b69fWjjte5DzY5/cDrM1kL84Lk2Fny fMq6Ca7nxz0RvErB6No++ahCHsK+9TTNLf9lDN8vLyhHaYPDbN6PEgRFyMnD /zS1pGZByvyCCF96EXQ/eGAapCxExNiMrsWcmAEdSvhPs9oBsO5oKHfexUX0 v/4wPOE9gYaf3Z73piXBKzpLWn5LblKg6Wufdm0K+h9HCEVmR6CW97XX3Of4 iHCcYp3N2Wlo4E62nwtexNt14zWx3PyE6f4o5YZgD2zOPWl4KK0XMo+xf1+5 IkQk+3qkG2SicdzzjZgJzQQ8sotoqonjJ1t9ngl+Wq3EkVWrleSZKTwVuT/P 9qoAeftNqmvFciOhLXunFnGxFHo+3qmZ1Rcker96n8q718Do6G7mtqZynOK5 Rzt9gYu8Yb+rat86ggd2PPhAn5+ELBKfdfE9N/kYIPw9kGYAB+jri8X5u1Hx 2UTKzSUB8uzYDc8im1Y0+M7MXKCyAn48TTfvWAuSZhsO2akLc8A8lZX92mIY v+sZcrhu4ieZAcnn/u+ZxhOOVh/NabKXbm4MurOJk+yx4frNdnkULB4Gq9C/ 7gM5EjmRwcFLdmV/NNxXNg/tbj3sB+nqwegBm3a1PS85ljl+U6p9AS3iDgZv Ma5Bg/0xTUVv+QmH8FxxltE4mms2PP24cRqeK3YUzk3zE9fX+jxGLd0YYJ+d x3+oGQc6FPsTuHmICL9P4YbsSTxRd7Z65/sBOKsbEpt1jpeUWLucUq6k4I67 Nx3fOS9AM+11m2grARL+vLqxVLsPgq+n3a1tbcP/Ptx9eUucl+iNl3dMe7aA Tuq+q2zD/Wg1z3PNU5WL2J8PNaMur3vedHfojcJBULdg8xrIEyZ639lWltfz evf4US4nqWGcD1mqZxbhIWPKT42+CPTClwKu0jr/GTCNz9ob91SITLPYbVmT KQBF0ciDC2ezMchNd/PSdR6isa3Ni7I+b5FWJd/jK6KQo5Al2zpOmBifvlg+ fnoJiy3pB1eNJ1C2m/Gh4lMBQpOl1foz4wFEduymR65C0L2Sku1RI0DWVAf+ uyfeBaKvQ7PU0sZB9WmpXQctD9mmf0rmeMgEmEfO/P0T0Q0t6p/O2E7xEMEj vPalLIn4J6Jv7/JVKmg6GAYt/uYnzCpqHa90hkHtitXAX+8m/GASfrxSQoBw rsxan23ugJ35/dHvpKZxeyHvF1dVDvLzo/CIqvEIJip0RT2r/Q3PmT8z7d/J ScziejT0w6fx9phaTHzoFHyOunMFz/CRS5PuwWNPfiD3Hec+algfDu9WFiR5 guTQ3A8+Z7UGcBt9RN2/pQ5bEu1+/fzMTySqBmi+zjTA2ISr1uOWv3CUh174 VjIvuVV4/57q6AK+NBQ97LD+XW5GfVu7Ky+R/PyvRcvrI+5d4Nbfzz4J9HzS nvZdfKTszZ07EbWTsENkeUBMrB5vSSw8sYgWJPcumYR+uvgRN4mG+ua8awW3 Jwd/plAEycWB6kutpsnoOcXkdPDODOrwLzhFsXGQIY4a44TPfZgR65kus/kl yhyvdRW8wk/0U88zjPmu5x2nJ9ssjSfSF9z07D/GR/zdkaoSPo/CLncc9Fda Ibj/ZE+n4v/zKvbQ56xBoPG6LcDoMAF7zx4reMXOT351coRk8AwjsFJc8/XG 0OedIL2rBDfhb8re+3BvI8ozVbhssPwJjxU3ObUtcJHZGc4HdsJ9cI5lRXK2 PxsFUxNluIf4yXKMUmigdzcq/7gUIsbUA2ue5Zpcefwkbvwjh0LdIgzoX/1v S/trKEiIf0lnxk9OKcdXs5fngGToowqJtjFw2Gezuj1TgLgGeB27x9uOUrYC t45JNuEjyuCR62y8ZKz+z9IH9/WeYYjac1mdhnj8cJd7touPvOsZ32bP0Yey iVIvs9mGQfhL7Jv9H9dzw3RA7KkbDbF6XizIbkDFJgPWy6zFQiRpW20Dw74M XPEIUHPUmcbSg/2nIkT4yIedRYnbesdga1jM6bwPVcjVqvudJ5KP7P3nFsed PIIPt+3XneunQnWIs8NyDQ+xJG8N8n2bYKl6T9nGyBUUMXlpaOovQrZuqBXZ KTENmzettgvdbYX+g9kBZoZ85K/861uHzk3irVm9lM6BAniYFDE5MMVLND5J JNEw1sFQc4O0XHw1fDctFDfVFiV5ZW1PHd71YLKTD9U2hAK15UsKWWaCJOrb z/3DN9Z96l/RlJheHj7VHKa5KC5A8u82+My452LlptXdV49VwtVZpQ4hcx6i c7tQOV2GCiwj55qNmPqwgjVO8b8/3ETv7N2qBLVkfKwgohfIO4pxzLJ8DPe5 iQldeXzKz07MshWnc73XD56fZ63Pz3KQCw4vf0zunobox1IlD48ugKjw/IdE CT7i4b1bQsd2GC981Xbg+NeF/Ne3XjCY4icqmgYc+ygdqF/DFFj6kjZbkUPn 1sn1c0ulHZK4qVSOtH/2399E1wPXpvKKZD/wEoPJkyV1rEl44czT6f90C1Cb ScMr/aMwea+zXDN/eBpMbYMSA5SHseHeO6K0WYjEiwhLP1yYwQxpynjI5mmc +hWda1PBR9KN6M5zz45jBcPflPYDhfCHtV/nXyoPyU4sCz6mOQoi38fG8qyq 8dSs8lqrqRA5st9ESU67FJkue6bf4W9GBo3lB2y5AuTp8aRjQ/HlwD3wbuX2 aAEmPFv7HqrFRUTsun0eevbC73GuLQ6SKxh9JyioOZmf9KRwBWnUdK179Ctb mcu9eKnF/e6BOl5SoZNww8JlCCQFpeeeMyxiCoOUYW4vN6k7rxmqsjyI6tEU 1ydcheii8ZUklfARhtoVysa5aTS3iGP+3byEoUPiL8PmuYj7s1zmPbJ9kN/G SInvq4Z9senhyY78pPyym7t8SScKPQhgM1KuhbudVq+ttvIQtcXkz/YHqyEo yf75vo5itNISka35zUdO0zWbrL7px73N043KroXwPDP9AJ3POv80+45zqI+g j/PpPongAciU92AqfctNHE8URftXrkCbc7RMNHUKuS1en/WP5SN+e44cUYr/ hxaRNLZnYscxq/iri+5mXvI4NFUx6t00iIr41Ug/iMB0Ctdi9jcekjlteivz /jhS7DV8Dbsncbpkurm4h4eEvc43an8xDZqbVSTrz6zzc3g177ERQSKhsEzf N0iBdja6GysmFJCwfLO/7I0gcRr3+Lr0LQtKxP+rlfsUDw2D+Uwb7gkRLqm7 3L0lHVAkGfi+8u0I0uyRTtPbw0+KDXb3Cv+dgqYqpa6+33Po57+jmT2Pl1g9 XpxR506Bnw4TKit+aes5IK42vU+IcOTHCtZ6NWD3S14lJvVMpJpa1j6xESTq N3QNBfimMaGGM0t00wtIH599MZkmTD7kLQqfOPIdBVNeXPrKMY99nrsqZaTW +8sMJNt65qF47WnttGcDMHrHKVe/FSZh6FTas5SGIKbrETRJgQfnuLimvguS kSEVZq1DPvBBZWb2flELXpwIi+cELjIzVn4m63IL/um8d2rbyRl8so9NK/u1 EEkQXCu63p8CMZGtNBGHutHz2J7hBBouwt0euejANIFJ3itZZnt7kf6oCd/3 FC6iutLHv/FoFzJbWd5Arkl8di77Dr2qMPlvj9jP96s90Kyumu4+UQMFLa1S 9vv5yUvbjSLcCh9xq/KJu6crabPztu965zMnSGxZ2GxkFZvBuYzu013lFnA+ OcUlHcBPZnwlTvxX1oyqbm8GZ1ancNeMVkIyvzBhvaH9IIaVAupTjKKdsQ1w PVJTwTaMmxT9vPzKenoGQ4ZeBAeO5uCX4SWZu0Z8JP7Xj9NPNg8iQ4jmLrp/ NcjN4mXusShAMusv8dyf6wb2icOC/GQaLlqfOvY9h4uo8R+RLP6vDoy3Hq3w 11wFh9myKCYfLhJ9opq7bL13zoX3V5VZNsDvDXxBVwuFyYFox/cjt4dQ5LTe pqOjy/BNVmppy8T6/WkYv+PmNAUmNPvUZt/14+y7T6cNz3IRA8cjuCugEp5b SFgc2zMApxjzhbPnuMlcpePPnxFdIHvz0fyup9PgyOLvFHqUmwh62l+2P5uD 9MKsxs3H5+H3qXqq4RwvSWA+ku1uNQMfebp/LriMguzy123eu9nJHc3Xq6ZP 5nApRCxa+1QtvLYUTcid4CCMlJEXDl87oSL1SeWJmggI2bFDNucsP/Grq2qg 3suFTPr89G6LduzMi3x5iQiSnTu0guBmP17X5trUe4kKsuZB+06uc8gZS/aT 168PwvkfdVvFJZbwHN8b/5SjAoTiycXJ5jUB95SSa8bMP+EOj/ejLDv4yQBt yq+onhK8GaZY7FMxhQzPXtJmZvMRhVJljl/uaeh1eU/cgs8gPn7B9aWpk5+E KuUdXWxpgpm4hroDIysovbzQt2uBnwC3aUQY4ydgVcicXGyhIiU1NWXwJxux dHtXKrBtAT9uUXm54c08nPkTlU/l4SGnouc/eM3P4KT5M7WPTd3QGaiR4C0m QCoG5FazzdJBNIxlMaGjAYXvRhyTD+Qjq9xfEx58z4YTj1MfvjsxgldkLwJ9 tQC50XQkbtV7GYHFiClxpB72KImnTn0VJH+VJHyMy6egwoaLTYe3EoeUeNU+ v+EnXm51t7ubJoDf/g0d+/MmVNpVkSiaIEzs7gslefmMgF311WKziUVcWjhW a7yZjYh8eipftncKL9gnyX5d6sVg9+Zt3EV8ZGiT1Yt3wb1ws7GfseDBX3yb lndzX5cIuRUqcZv9ZxNYBpRqDD5bQTsDq+3G+iIk11PO9VdwKRT93nFDrrkH QrNM972o5yDLPn9N7fQ70KvURleKuRcVDIfZep7xk4BQsc3z5zqA1yrlQvi1 Flyz7v3gmsJHaM65n9YJpMmmmL8arTjfjeqSObVhbJyE3p7/tbjLKPK4F54p z+8CffN9/rVfeYm1Rc7MHflW0BASqbuhMwEMFPefIcM85MPKXO8VsylUDpeZ fKk1hPyLc+H3LQSIwDerZ1XOc1DG1D7zt28J/azcy/wtuMlj1qen/aAO7E5x mw487sH9t8+0nFEVItksFN4allH4V5ae3hrZDJdn976ju8VPZIIzrMUcWmGj 3fFExVSG7DCLyo438gLEdHQ1TFK0FfhDzgTOHsqDohXObRfPcpOxxqhnPof6 sK3uR23e2jww8en3QTgfecOaohE5WAPCUsvWXtemIb62NVr/vRA5YCx219B0 DG+ofDZW/DUGfNdX9ntbrd/nyAGGDarTQE8ZTL909w/qGe5IdacXJE9Tv+9T 2DwBs43lV2J3LYBBTFo4sRMg4p82/a0yGoYkgfjY5qZ29G2hfb2RXoDs9Zhh y3jYgs49v0+GxnaB4bVrsrZn+chRoVDKN6FkTM5eCfBKHYDSwPe35PN4yI+j QskZfX1oGLs/fk/hKNjJC3XzDgiQY3dlLNXofgEWJG191DGEBzwiPT/6CBLf Yk+Vx9sGIFpR9qTvcyr4H3v7OnWZl4x2nkr4m1GGNNHCPMOzG4hPgK+a9F1u wqv7U6NQYxArmnRv01X1YKBU/omAPcJETET9jF59GYbV/7vxMb4a2wp8eD1Z +cjlOv1VPs0G1E+ZucHmM4vMztLqba2CZO3W4PKg3BRW4A57xTOzmKW2OVTy ID9x5335HopG8AjnIa1MySl0pFP3tKOuv9+844bTvWm823ui+XkvFWIlgxcM t3CTK5BgX6Gwgt9+ayo95RnEPb/H/WzThEjPx8eOQtEVsKWP7yivbhreOfFE v72fixzm26uu9HwBhStiCr6+GYA7jPOUcXVucs3kVftyVR9uvFkTOfMtG4xn +/zi1nP48pGb4YqHf8OGa7rVz3XHkfvGnfKxz1yEMVbfs+psD5hZbcipFe3H gNERRdbNfGROsdQrKGkSDPL4nuLVWjiyg+dURJ0AERGRXjNZaQYhrgj+1deT MKGTDRXrvn/olo2PRdksvpg6/SBhhIpdHMwMp3IEyQxdqWOLSy9ImxqJ2h5f n++VafffL0VIqFj2Q41Ds5i/ZpH7NbgZH3KqNrALc5PR6l+XblyfxH8VjUGy ztXgF8Qt+u8TDylucfF5dG0Iriqpyj4Kq4HRQZnhkHsCpIvxgohJShkwl4tS K7lHsMp0O+tpM971/mpp2J/RhJ1sn8R+rf93y1t/+10e8ZJ9UU52nDlTeKBH 9+Sc3zx2TEvfC0/gI6HHB5VU8quxKeeb3Uo9goTnpjMSizzkS1OCk+7hMOBt FhUf3UKFU+hb/l8PB1GO//pQxaQbhJ8q53ZFdkH5PZpuVk0u0r8jJ1D3+Adk 31x6iFJAhf82b2sTquIk5wI27v62KQvjhFReZdYMoU/AH5fdrLwk6RiDP5dz A+xWmX/+5k89TNvqUSQu8JKhd8ctHySMQwR3W/fRPaPwctrhZgMvL+kbEIw8 eb8XjySw2X8ZXO9z8fav/XGC5Oq7mcEHx3pxjeJUUjRYAn5DZlolCbzkY3Ki V6zcDDS5w32VrDn8z7V9ocOOn8RsfqfkZteNfm7Vv3sfhOA/Pc+NK7t5SdNS /X/sP2vBc6m5LdVyFMNvnzoneICDaIjwbn/xJQVecU8o+qV1Yeu2Ue+BsfX9 PvvyH+W4Ix7eqXM+5n0P2oipPPm6j5vEtS93uRwLhrwjzwrmnk3hwNXTMcVF 3OTwxzOVzKszIDOxY9Z/6RNM3VCgLqz7deNAS6N35xrKH/Djtz3xBTeInzhp IMtKGNs+x4fcHcPITdbsA5m94FS6u9Qlg48ceTbNP/MxBztnv1yPPdiPkzPF yU4SvMQnpFgyoWwe1S96anm9p4B/9Np4z7ovNx0QF+Rraobzh6vC7g5MgHfD bdtFKx6SUFMTYzg2gMv5z1z6Hw4CS2L6Xon1/F8xbrcK0BqBUyqTNoHHKagZ VD5m94CPxH0Z0DN40At6Fw29S1PnMPNb6zdNRyESFWP41+bLKH6rffuvmbkX 7rpE2bds4SEl7YejGSVos/2vy7E1LrciG0s4m7EROynk29kd/rgdKZTLD+Q6 RvGxLm21mcm6PzL/OZ/g2IVf74stWPSUACE/IvjWuahgtfuFH9v6/ay2yX58 ugcSYh1VloS4yKR9oTj7r1ysf6/hSDs3hrS2d4tCaXiIRtm2dAv5eSwwSKkZ bm8CjnPfj4IdL/l+6omL7Os+aLq0Y4v41l44ye7nUDzASWKkMK75wwQssDCa Oq3OwhWFABE6P35SZvid+XJaH/y74LprPG8UjP5GNzls5SJRnod0blrVgshv uStfGcewROrQ239eXOSxvD9bknA3XJ24oAISfThnz5hQGixMwlWLGnXymuBx kVyyhksqtNs9jbA7yUcsTtZ7dwlPQpdKadkBuwnYvI/1+ep6j4eOZC4qGtXD 1prm5V0WNTBpJOr8NIqDfI6vFL52oxWyNsmNFuvlI8ujDovlIhFCSZQbrLYZ g1vm2rT78inoc0rq1g0XTqLJ6kxj2ZyCmksP9PtsuuAQY3SlvqkgOVXH/XxY vAndN+6tHFVLw0cKcxuXPvCRa5rX6BlpupBBe3f+ZOIAfmq/U/roDy/ZfuTQ QY7MUZjMvuNzymTdJzLbe+9d4iWKjvrbJZoHoMBMsEW9twR2PpVOlrvJTdYc rN35+2tQn2s10zFyHsNs/vpzSrGSRf7PRo2/KeDWFHFW6nMvThQlNZVf5SBf Q18mPmidB00zSZbG92MQUtJ0tyeSmyyzaPWa0q0im1lIDy93G9Rs2+jLPMtD hgtV9G/2zcFAv7N+UsQMMi02F3Pu5CVsvpfKso17Yc7L+2HS2y7YGtL82vwR O1FlYDyba9kLKcm12Qvj1eg80F5oeY2X9L/dIZYnmA4TB3V5aHNm4I2hcbGg FDcp6Z/Zo7g0Df8dvufowdKJuuXvFfaIiRJhqcRfI5yzyP3mQbvwwS6cpvmh 8fSjEAmWTs8KkF3B7yFh3ZU1rbD0pGYoOIyPFBUH5mSMTYJz+UiulkAtJmPY xYHj697q0mN6QqQPdFXSE2PGVvDIdp5KgyUhcjnuWrH08V48axJYUMi6iMrq 9HYNA7yEspfltuEEFdfMjYm47Cx0veem8zRZz/O0+yZyUhR4zfrz5uuRLtxh IKbPgyKELz1aUiJoFms3Km3bWtO3zt3Lh0M1BAgPzQVPG5MaKGG/GtJ1axYT 4g9d0xTkJn3v3cv+GDZjrZ7wsRvrngL2e2ToM3iI7XimJfVzNTgev2qk+XQc xLdSHkuECZO0q+Thn4005Jb4vBaraxoESkU48EoKk+tpYgthZ4pg0a1jqim8 A/w78kKuSfKThuS3by2PD2L8f0YypzgpOGUevPfPGi/JtgjaEdVbAcYj1i9c N6xgZGTAebd//KS7qzbV4/cUJLW3z6XPLIBWLT9nmDQ/CVd8c5/0DqDsoEUm S3MnWk2KWS3KrvfmzdQi5uOjqB8vGkjb04+pEicV5LT5SMt7dxvHEBry49a2 P/tds+BT46N0JydOopFN2/OcowkOyKz6nd02C9un9Sh6PILkhVZO6MfnY6jV +zR53m0SLexGbxRwcpBd5ZGf/NlGwOzLR7/RZ39Bcpl3Z5s1D3H2e9lr8/cx Cm3fdabHYg2aX1yx+8rBReglbzc6c81B3ZmYSQalMFgLzHhfsMRL1sTaX1Rf nUW9fVOjP/fM4C+Lf7o35LmJgIxFlFZpL4jNW1znSq6GJ5YDFrLyfORWMk10 udR3SGuyXjn+bR7+UkoaJeN5ibfR56aRU7SkTib9Scr5de7OrnBgfsJFilZC hr2gAy8P+/GHVU4CC+fTm2xbBEn6lP03uZA0aD1geOahYBcOKU88ufSch0jr 6rhb3ksCrxOs+87uGccfHnK77XaKErewLKXoV7Xg/rf9453cOpzRKAwoWBAi 5wdeyD9P7McQmW5Rb4YhHHiU4bN/mYvk89EZL94eh98bPZ6op02AlULJu7a9 bERFTuxRVcUwnjPe/W1HTjgUszfQmDvwkNNqwQNHnNrB7FlUSeDNDdlnbnA0 mhfwk3PyDXu56GJRVdrVbNS0AVW3eJ/erc1OWANvX3+wNojmeyO0n1zqhfxd L9NZ/LnJ5gPuhqZ6PaDD2ex+R3MJ+67S7g9a538mJ3ahC37dsPn8z91tf1bh ZqpnnG0WD9mQxfOTjqkNpyhDthbMtch7rst8cZ0nXbnqomRaJkHnwIa3Jiuj mPQaOJmfrntQtowFzUYKzHKO+KadnYH36sE2p80FyNTdaAUHwWxc2vL6iND2 BaBWsGuF5/MTrX0XZTz9p1HA9m4qrPVB0V1WzkvinIRS5+PHWjiILeGLoh6b 2vCSO6+7SQgXkaLl9N9xrx1tV2W1+LLa8duLs9XvrvCTXyerLRXi5tBnhzIn q7YbbmzZkcs2wUdSsuUMqAJTwLk0d7L1eD7uWmiUGU/kJvfzptPd6CiQOmtS +WxpCl4Vem1oXudSvskrZx5Xd+FjxYaTU460xMeiXXZiNxep9E5mf644CI7C uY0KYt3AaJpIUb8kQtYk4rWPzvZBP8NhruOaE2C0+IpDNJqXLMgf2b7RfAxy OoxYKa+64eHsm3tB6vxkv/X7Ukn5WfyinCoYtjcZjZvLo+tiBUjuh4utBRrl MHuTm/YzTyroNq75DW/lJR5Z+aF0Z7vhztNIMx7XIVgs8J0pceci0TP7849e HkGLrY3Gh3c3YAY0g6Q4NzG/HeHfeXwG/VW5Vim0Q6hx8tzm+7WcpOrKqlvb cj4E+8SnDFGn0Nirl0PWUIjsPnmE3SR/Eso30Pu+SpvFoRcpQVe28JJwrjc/ 5I36QUBPPnbvjl6YNxQZjwnmI7TXbueG6HXDXGyMVZX1LPQuXCzZwsJFglvM ukPLK3C79pmdnHNL8IbZcbC4i5OM8rfWsPoPQqlDxNDoxS7Y634g9LWAMJE9 xeKjIBML+zWDXxivNONvz7Yk+vVcFZYS/nlKnIoFsX1mdvKjmMh1v4DtsRCJ 6RT+tWGgDsx9e4/250VjlMem0q2qfOT56p3uqLhe+FqxU+dLyDi823TiV6UR B7mgG8f4SpqKGVtv+tJwd0BorqoAw04xkqWZGRFqVgTtoznvdJRGwGTnwcHv 5sJk+IwRu5xCLbz1pBzcuPs7aD38Mc8/zkvKa/juRLDTZ+95XOBIv/oZpE6l JR1YYCfUoJZ9urLZYKVr5CLW0I63fINVHRu5CbK43BHalYicL6oeiE8PYjT/ t7rVRgHSUDbio5cbA4y3uaiKh9d5bJAtZ8WHkxjo7/IeVZ+FvSf0XQ5bU8BJ WTNOT02QeDyQfbr7Vylk9IqsFiRNAZNc5w6KjQC5p57528+pGlfLucobR/zg 89SvL7eSuch2zk9Dk/VJaHFcc/un0lkw7D88/MmGjxz/nHCi81k24lM88D2L imLuX8Y5gZ/cZpU69H43BRStzC+y5T2BON+A1K/X1/v9E0WljKsKgykzfVf6 evDEB46hk/XchIHlgDTVbQE9iz4ljs214jSqamVc5CGFhTxla2QSQib/dJeH TIC9XflLX04B8iOg1zW1vwqUoqToKg7N4CdHjTtmr/jJU2dJz+tbJ+BwvtQx pjMDQB6GHrUJFSEHO9u/TU8NoWw7o4/vRBuqMW1U/LeZm+S/nRV4vn0Zx2UY dGIu14N7VIp6VSUXsSrU/XCHuRcv2G3hst6XjHvCNUOGlNY5/3TVzfcpP/Hx xdy5lGcdqBD8j0x95CPXeXYuxZwpQk6uICaRiD6IfCRz5qihKPnJPvCcTnIW ebY5zzxzHIcXhd/yavSFyDOV9vPH7dPgWHpg6NTYIuzLHZzcMC9IuL7NSslt WgRn1zRv7qgmeHpk9rPyLm7iY1Bu4cu23kc0DA1Va0Wgz3H5SpO9AHnTRS3O vbruRXotgbziVNhqfZ7dVkKUyG4oKahkT4TujaZhxQGzKHkzRdfSXYCkb7+R okil4J8N8qLR3j2woy05hDlEiOh8GwkvCuyCf5t6t0SIzOMxHw8+pqMcZLgu sNZunRsuF3B/qWXpwdjbGwuCufiJO8uieMxjCrQOnmxOtViApHLaT6ziAqTV eDx14nsQvj9eOsla3IOT6crZrCM8ZLQoZmNtDhUslan8i1e+gnBTh5Oyuij5 dLmgKi4sE9/OL01lHe/BoJ5vKU4+fGSPCJv4WPAU3Df9F/151wD2nPdNjtUU JMb5vNSMvCH8G1wSmrt7FRyEj0h6FHKT/ssHXY+ENsParo44s74+VPp78u5/ 6+djdK2O2cSxBK//CDR+RleO4h9sapai+cingleXb77pw4Rp6zLDrknE707d pysFyOjoxGyk5Agmte2QZj85iUkfDTP507jIdLBa7a8vhfDjflCucz8F5Y71 3te/IUQ+WeQ9Cp1qxV7H+kitwGbQ613cY9bHTz7DnVnvmRpw7H27dnqhA3aw jAzV9IiQqlmJC5sDZzHj8KJhXHw5DL39l8H4lp8Mxt2qF9NuwaJRpx/7Vrvw 9Zn342yB/GRX7sCs744ZkO89dDecMRNPWojGfXXnI5O2hdsbMj6i5MSpoEjb EWCQjBtraeMhfre/QPRkO9pfM8q4VTULNB+jx/4585O5KM0jgo4NeMRocDaq dAL0A2xqb3ALEIs9/T466IyD/a531G/RkKGaDeylP3mJUeKLnlihXvyXU5Xx ILgEpiTNS9QlBEjZYOP/KrbzeCi0Ng7g11Uvpd6SZfZL0YYoVFJ6jkJUlrQi ESGKJEklsrXYI659qVAoulGW3BOyTCJbBiOMGWGsYwyR5Z33//M5n+fzOc/z O9/zx7lRt70Km1np1Eors+DHJdXs/R5EdIzRpzkeVoVLTFIvqwtmwNqzzMH1 LyK6Hn8yMofOA1slhpdYrQDuXjBs8s0mokFeJO3Aud844KOazbJlHT4aZZMh ok9FC/Fq3c8CmjDNus+mRWwQMm7lJh1Ll0YMT0bsAHkM/zQofS1q3Ic/XrtJ +H1PCj3sTT6e9v9/M5XJtn4GBaAiZXp0KYGECg6YX9jUOg3mJvTNm2gV2Gyt 221DAgnVvHQ/Td35xydbzSZT5vdsmIopulUldGyE0hPPPsIYqG/0KZqzmoGo /T2r2nMIaN/Gcj3PxCL8am3kriLlKnh/dJXb9WgishJPb1ewWMAuaRmfGAsl +F1J4/J81AZUqX13RjuGhzfo/vo3ZjUdnodLXh0S5rzaEJvhdfYrPlnv9M5R RQRZhMlLTy7IId5WLZbGn5OwyujUrNMtPhT07pSs49KQf8nqyj+sq4ErP+g4 o90Do3KyvV5biSg91Esi2vMzXj045hEjUw+mmXmBczlE9GSfYu9GfgwmOLoH a1xbEtZ5zPHHayLy/qHZS6SUY/HG3G811lP4wwptewcjKqLPMENWE1iAS1Zr cb8MQ5jeQP5hayIiRpdl4OszODTQcqBj8ySUkJZkUhPkEXNst87ps61g79P+ cvQuB+ejby4n3lKQtU5es7LhL3w87dreSlY/DjA6s0srk4AYpvZ9YipMfG/K VJScM4rR27H8SytpaLwpLIxf8QWsmrsENof7QFPxQoNRnhRyUo1KdA5uxwGP CpWSn5bBiLiuf50DASmIRRfIrRiG1vN/yXut4UNwSmTC3x4klMX2KI59NQwP tCfsDrxtxFXV3+ada8nIeOXFywtFUzjw14bIGg8mvlSY8fq4FQXNKT9ZSPij EY7t1c09EDUB5fq3i02aZZCNhpjaH0IfE+PnbWvtB/FKzZnATyJEtGpleUFK 0AiWXC+fdac0HY7vNdhrd1cGHTR/Ia1p3QOd6knUkKAZfFNptFl8vywqmPF6 s0WYC5pmXuHvN0bB36Vq9bGuVHTm/Piy1U8mLuQHRhYsT0FvjkMF+z4JKTQa eFW9XMTcBM5uRk0nvOhK3yLmT0Cb3A2GX91oxvvCb+SocNnQHR22IV18A6qp 5VrJNnFwjZNl3MiXMVg7M94hIdxHcWgdxTphFu9yLPJ3LJnEWlsiRDcdJSD9 8MpBugUXdz4uV1RubMEib9e8MkskoEPJ7NDaiz9gOtvAq7ZyAkRGKAdT9Mgo gd4TPJnZhkMitKSb6wS4Jpwt0fKeiOKaH5l7tg/ijYZh5PdlI+BafcfR3IiM VJnmO9qF7l1Pzd/vJ1z/cvdU1FALBWUYli5HjbVhaonbjczbFZCrUvX7v9EU lBVuseKEUyVonKZJVrh34L2XV08UyZPRFSVXWqHyGL7351KduMpX7LL0fuFs JxnFnfQoE8saAkkRzy2TD35AXhR48W03IHsji0pd6IbnywNiyLQXd693+2Sh Q0bZbZX/qbNhgVi+hOJS1zyuqt0c3E2hILNx023xnGmIIh5X6BKlQ6yT2OXB w0QU7xuZ+DiIBdUnfzU8ZrCwU+cZx2Il4bm4lnq1cKbgTCFx7IBbP3wg25uT R8nIMKk2uJ41BGftr7o2nOnHKpk+KbGZFLROhu1e9qISruwgSxY8nMfPTNTc Js4QUQxjR4Ts5zlQvCUroTDLx2VJlWIP/KnoWd/qB0UfR7BWm1k6224C5s49 kb57ioAcp39lhTJ+Ync5ZfmhZi5uyBaPiS2moDSpxZD9d+g4S43WkGw0C0aW TIcbPrLoawhbbk6kEeKyB9N2Xqfj0IyUNTVFBIQ5kWWGRzIxuUc6lviSB5yW egd/HgXJMvOuyesvwes1esEtEkyc7rQ58QZRCmnEqonJuXKwI7k13Nubjbm1 xR8sV0qjw1KdGUY3+vCJkLiTdsK+KknjjkUYCp28SWePkUs/5HDsHBi/v+MP ymnGfvOyqNNCzdjtnABne0/NZ/RM4uzNvp8WpMgo9Jh85h6vUbCeTDYzkqzD B1YcfX5tLQH901UUqHWbDj15KsydQm9KRNcHvfstjXryBZ/INiO41i5MaUNi N9x0pz11CpJGLwQCftiuKdANX0Py2TQKuS5pDxsCaehZl9GuJ0JHZsv8qgnb PA3D8HzVoXYqijCL8ukI5uIU7cClSN4sKFrVe8+LURBp7YdrZ+hcoHqpm5o0 8rBd2Mu3okJPNu5uD7c2E8Czk9XF5tPf4Wyfq3fgdzLyZu8sVhNvgVRjZplr RAV2T2hbfr4srD/VYnLtHQb+Un1qs8q6SXzuY//AzDYZ9JE7QY1/xIE7rx87 6DwawNXoUKLFbioKd9XvrRriYY0p6Yfb2njYqjd7yddVOHcShEj9vQwc0BV+ 0/BIOa57JUhnrCeji527ZIYSWDgoYXCojiUA5xzRlivC9/XkmwfbL80O48n6 vx9JZrXCwrCzz3A3EeWdTYwQ/bwAdC+Gper5KlCXonvLXaWgtx1D7ZfvzeOg rRvTSS5juC9UPIU2JHTFwW1a3YIasF0/ZCQry8eOk4S7ET5C170i/r5DGgb7 4ktc/uc5/LTFn7nanYASfVcsj93n4rhdmylvvg/D/keqEbozRJTsbeKi95yD xS7GqSZYDeFA82TbiT3C+Wo5dOEW9Qd20PeVzJzuAOP8d7ypGWm0GODW38ob wSYfvtQapLJh/UGPA3GPSKjs5FLgdCgD31V90b1VqxQSguOcbV5QUMk1xr2k iyPwb3ypfXPuOIjl5ed17iCgsd6RTT5hPcAf+Jrk7DqLFepso826pBBb1jbZ TJ2PWZyM6maFTqjOc/K7PkRA/soTS7n72uBnL9VEz7UVt4Su0H/KJKFxjdYU VsMEKBZW3U7dzoFwsZtFIsI5vcT9x/elejEeP0JfureOB+sEjyPnhN5T3qkq 2PHvP3CKty1cO4gBDeX0ZhUiAUXE3N35opAHurnRCUv3Z/Bwgw4j8g4RlTJt h8qdBaDAV4VPXyeg71lKNd1fHlVueZ4WpDeFKxYn3tc+zQdfHtN8KUt4j0dX MM6FLIL3Y7tfqWdHwMA6c62mGgn9tJSIpoSMgdFZF5tnepPAKZygbU2VRN/O v5Pr1JyCHfm7W00KB8HYcN+pwvtk9ISgc2VPRjWMX7rv0m8tgI6POux6eyo6 +BPy9NQ5EKLZccWZ1QmssCYtbjgRdYvsapFPb8SqwxwlmiYfL+amXyxWoqKL Is0G8rwpuLnBVibUYx4fCgu06bEjonNbAO8pmYGsUbMLjls5EH/MSWNwhoba mn8kcT6x8YXSIwkajgJsEs8ba7OhIAO5nFHXAj54br/lTRAI+139aYNaOQFF l/klXFcoA3U35k9PFguLiOesaiPRkConRRFSZkE6Wz/eT5uBHcu/BDz+Rkam HqOJJxI4kLTt29HPBnx4YJl3xkOGhj482tf0JnwaMi0tJv8c7gPyet/ShYcU 1PYmQult9Ag+ytY9PTjIwf9d2PuXxkspdEr91bGmxT4Ypk++O3d1Tphv/fKi EjJIxVxF4X54L0QPpBrEl/Oh2DXxRPMTEuq3tBh51j+MF1QWSnXvT0B/ms1g lAQJnXNy+jg7xsJ16/s83HoWIeCIT7RfMAkFvuDvzz+/CFf5dcYKsnRIafis dU9fHrH8vgS7QT9EfLSomKpsgf8B8E5D7g== "]]}, {}, {}}, {}}, Axes->True, AxesLabel->{None, None, None}, BoxRatios->{1, 1, 0.4}, DisplayFunction->Identity, FaceGrids->None, FaceGridsStyle->Automatic, Lighting->{{"Ambient", GrayLevel[0.5]}, {"Directional", GrayLevel[0.5], ImageScaled[{0, 2, 2}]}, {"Directional", GrayLevel[0.5], ImageScaled[{2, 2, 2}]}, {"Directional", GrayLevel[0.5], ImageScaled[{2, 0, 2}]}}, PlotRange->{{-9.109820630922208, 8.572296954197826}, {-2.5221192848297007`, 2.803216696998743}, Automatic}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7867231662746267`*^9, 3.7867231824581614`*^9}, 3.862570250699623*^9}, CellLabel->"Out[10]=", CellID->165089504,ExpressionUUID->"2373660d-b1e9-4a16-bb54-bf0723ecc80a"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Properties and Relations", "\[NonBreakingSpace]", Cell["(8)", "ExampleCount",ExpressionUUID-> "b9e4fc5b-31ed-47fc-84f0-a1868bea1177"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellChangeTimes->{{3.787676861931782*^9, 3.7876768735865717`*^9}}, CellID->232113220,ExpressionUUID->"6ef9baa6-f60d-4e18-b519-8c03ceb2a1d0"], 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",ExpressionUUID-> "6169412d-3904-4922-9240-9c4854a5ab52"], ", 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",ExpressionUUID-> "91051438-b539-4320-a045-447f74a9e9a7"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.786722313301859*^9, 3.786722327989114*^9}, 3.786723207147408*^9, {3.904923217102297*^9, 3.90492321751061*^9}}, CellID->428417287,ExpressionUUID->"698b4ebb-9c6b-424f-8fec-d25bedd8dff1"], Cell[BoxData[ RowBox[{ RowBox[{"iris", "=", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", " ", "\"\\""}], "]"}]}], ";"}]], "Input", TaggingRules->{}, CellLabel->"In[331]:=", CellID->785493779,ExpressionUUID->"d7a71f67-6f59-4284-8930-0ca8aad81fa5"], Cell["Reduce the dimension of the features:", "Text", TaggingRules->{}, CellID->315382588,ExpressionUUID->"6b69a1cd-343e-4062-ba54-38feca0bb939"], Cell[BoxData[ RowBox[{ RowBox[{"featuresMDS", "=", RowBox[{ InterpretationBox[ TagBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[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->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultidimensionalScaling", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[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->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultidimensionalScaling", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.1.1\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/6a4a06f4-b0fe-4509-8484-35ec1440fffe/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], #& , TagBoxNote->" "], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultidimensionalScaling"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction[ "MultidimensionalScaling", ResourceSystemBase -> "https://www.wolframcloud.com/obj/resourcesystem/api/1.0"], BoxID -> "MultidimensionalScaling", Selectable->False], "[", RowBox[{ RowBox[{"iris", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "2"}], "]"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.786722394795106*^9, {3.7867250768893347`*^9, 3.786725077377248*^9}}, CellLabel->"In[627]:=", CellID->304231685,ExpressionUUID->"62cced47-06f8-4fdf-b5dd-751eac5232e5"], Cell["Group the examples by their species:", "Text", TaggingRules->{}, CellID->224396720,ExpressionUUID->"771935ff-c620-4e11-b987-c1024250876f"], Cell[BoxData[ RowBox[{ RowBox[{"byspeciesMDS", "=", RowBox[{"GroupBy", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"featuresMDS", "\[Rule]", RowBox[{"iris", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"Last", "\[Rule]", "First"}]}], "]"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.786725059809143*^9, 3.786725081672819*^9}}, CellLabel->"In[628]:=", CellID->598944909,ExpressionUUID->"6aab9b73-2d43-4360-a188-35f82fc61798"], Cell["Visualize the reduced dataset:", "Text", TaggingRules->{}, CellID->227972243,ExpressionUUID->"86e816f0-949c-4459-a44b-1937eefdac2a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Values", "[", "byspeciesMDS", "]"}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Keys", "[", "byspeciesMDS", "]"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7867250674175777`*^9, 3.786725069179453*^9}}, CellLabel->"In[629]:=", CellID->499150093,ExpressionUUID->"a05adc5f-beb3-4c81-85c6-6b81d8ffdcab"], 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", TaggingRules->{}, CellChangeTimes->{3.786722462818644*^9, 3.786725086643794*^9}, CellLabel->"Out[629]=", CellID->313718588,ExpressionUUID->"2467e1b6-bf2f-48a2-b3ea-7162498a00d9"] }, 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",ExpressionUUID-> "ec56fa66-b6d0-43ae-b89e-b38f498939f1"], " methods for this same dataset. First, use the ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro",ExpressionUUID-> "b53aeacb-3f3b-48d7-b47d-2c371acc3ba7"], " method:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7867225735534983`*^9, 3.786722620535082*^9}, { 3.786722854630838*^9, 3.786722878256255*^9}, {3.904923229910825*^9, 3.9049232313506927`*^9}}, CellID->49047583,ExpressionUUID->"8b9e2a80-041d-4b48-bd98-5d1f7b5c7085"], 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", TaggingRules->{}, CellChangeTimes->{{3.7867226173065357`*^9, 3.7867226650438423`*^9}, { 3.786722818750155*^9, 3.786722842141038*^9}, {3.786725052232745*^9, 3.7867250527365713`*^9}}, CellLabel->"In[624]:=", CellID->542144328,ExpressionUUID->"9b1aa89f-a6ac-4a76-adff-5bbc4760eb2a"], 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", TaggingRules->{}, CellChangeTimes->{3.786722847834343*^9, 3.786725055310967*^9}, CellLabel->"Out[626]=", CellID->689330243,ExpressionUUID->"4e268bf6-b406-4796-81d2-e1ce26a8ad44"] }, Open ]], Cell[TextData[{ "Use the ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro",ExpressionUUID-> "f145b096-4867-4084-9018-666a3b0c599e"], " method:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.786723522824142*^9, 3.7867235354958057`*^9}}, CellID->341792044,ExpressionUUID->"a97e82ed-5325-4007-b7e6-425339081df2"], 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", TaggingRules->{}, 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->330571289,ExpressionUUID->"882de397-b120-4774-996a-62905c0ed54b"], 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", TaggingRules->{}, CellChangeTimes->{3.786723309556514*^9, 3.786723357183861*^9, 3.7867234162715263`*^9, 3.786723472896738*^9, 3.786723503651264*^9, 3.7867250476504507`*^9}, CellLabel->"Out[623]=", CellID->667342848,ExpressionUUID->"4480f2ce-2fdd-462e-b7a3-4c45a4e41d39"] }, Open ]], Cell[TextData[{ "Visualize with the ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro",ExpressionUUID-> "c14e8b64-c2b7-48d4-a7cc-9bb472483e4a"], " method:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.786722884910164*^9, 3.7867229035257177`*^9}, { 3.786722953743911*^9, 3.7867229582714443`*^9}}, CellID->268011555,ExpressionUUID->"89b31082-2992-4fa8-86f4-fd41cba20cdb"], 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", TaggingRules->{}, CellChangeTimes->{{3.7867226173065357`*^9, 3.7867226650438423`*^9}, { 3.7867250368973618`*^9, 3.786725037231861*^9}}, CellLabel->"In[618]:=", CellID->321709765,ExpressionUUID->"5bec00bf-27f2-4463-9d98-c1dc63c8429e"], 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", TaggingRules->{}, CellChangeTimes->{3.786722668370332*^9, 3.78672503924723*^9}, CellLabel->"Out[620]=", CellID->483953834,ExpressionUUID->"5d8f0c1b-74d7-4ff0-ac9e-ac489f192b95"] }, Open ]], Cell[TextData[{ "The ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro",ExpressionUUID-> "66a9cf50-e5a3-4b9e-886f-7459af64e131"], " 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",ExpressionUUID-> "c7091dc0-3aa8-46e7-99db-deb09c39f175"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.786722678163239*^9, 3.7867227207380123`*^9}, { 3.786723224860772*^9, 3.7867232466688223`*^9}}, CellID->807145834,ExpressionUUID->"2e5cb869-aadf-46e6-b548-5da28bfae56d"], 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", TaggingRules->{}, 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->499478554,ExpressionUUID->"bd121a14-126e-4627-a01f-ce3c3f64a44e"], 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", TaggingRules->{}, CellChangeTimes->{{3.786722758360654*^9, 3.7867228020477247`*^9}, 3.786725028834881*^9}, CellLabel->"In[615]:=", CellID->554165005,ExpressionUUID->"c08d1cf4-d428-4f5e-8260-e7bd6ded6486"], 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", TaggingRules->{}, CellChangeTimes->{{3.78672279854078*^9, 3.786722802935161*^9}, 3.786725030564616*^9}, CellLabel->"Out[617]=", CellID->846064827,ExpressionUUID->"799830be-186c-4f92-966e-93733fe4bbbe"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Neat Examples", "\[NonBreakingSpace]", Cell["(6)", "ExampleCount",ExpressionUUID-> "0c209aaf-4334-456f-852e-bbaead89db23"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->461278909,ExpressionUUID->"81f01fce-3cec-4d9e-b6d4-31666b6f248b"], 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",ExpressionUUID-> "c6114931-ee63-4d2d-83b2-ca67d0491c99"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7867420284262857`*^9, 3.786742098970705*^9}, { 3.787676887897831*^9, 3.787676893387108*^9}, 3.787676950626955*^9}, CellID->5988834,ExpressionUUID->"af734396-9e0b-4bc4-957e-cac65dcb7d3a"], 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", TaggingRules->{}, 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}, CellID->766498518,ExpressionUUID->"fe35045a-a9e2-4f99-9002-1c211e6fdb7e"], Cell["Break each text into chunks of equal string length:", "Text", TaggingRules->{}, CellChangeTimes->{{3.786741872480352*^9, 3.78674188932835*^9}}, CellID->144840272,ExpressionUUID->"cf1d593e-8ffd-46a3-9ed9-96a227526c1f"], 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", TaggingRules->{}, 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}}, CellID->412793920,ExpressionUUID->"631c414a-40a8-40f8-afce-ea07019f7eb7"], Cell["Find the most common words across all texts:", "Text", TaggingRules->{}, CellChangeTimes->{{3.786741902528908*^9, 3.7867419187695627`*^9}}, CellID->860924981,ExpressionUUID->"7b7f22a4-6839-4c99-b5fa-b8bc5e7cf89c"], 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", TaggingRules->{}, 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}, CellID->819183050,ExpressionUUID->"add122ea-1d71-46e9-899f-c502a74d1057"], Cell["Create common word frequency vectors for each chunk:", "Text", TaggingRules->{}, CellChangeTimes->{{3.786741936449532*^9, 3.786741978257319*^9}}, CellID->467859360,ExpressionUUID->"e2753c42-643c-4883-9ed4-f17ddd6c0f46"], 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", TaggingRules->{}, 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}, CellID->909647240,ExpressionUUID->"84ff6946-07ba-42d4-9aa3-1340888af01e"], Cell["Weight the frequency vectors using the log-entropy method:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7867419929301023`*^9, 3.786742014114205*^9}}, CellID->83896971,ExpressionUUID->"24dcf9ab-ffd4-4092-8d76-22c384188ffc"], 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", TaggingRules->{}, 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}, CellID->670396146,ExpressionUUID->"067c190a-8123-42a2-b8b1-f81ee64065a9"], Cell["\<\ Show the result of multidimensional scaling in two dimensions, grouping text \ chunks by position of the title in the list of text names:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7867421236196632`*^9, 3.7867421843770723`*^9}, { 3.7876769351694937`*^9, 3.7876769453169208`*^9}, {3.904923267520084*^9, 3.904923268007744*^9}}, CellID->563487955,ExpressionUUID->"a0b082f2-662a-4f90-b499-8ffb67022e4e"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"wdim2", "=", RowBox[{ InterpretationBox[ TagBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[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->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultidimensionalScaling", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[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->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["MultidimensionalScaling", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.1.1\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/6a4a06f4-b0fe-4509-8484-35ec1440fffe/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], #& , TagBoxNote->" "], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "MultidimensionalScaling"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction[ "MultidimensionalScaling", ResourceSystemBase -> "https://www.wolframcloud.com/obj/resourcesystem/api/1.0"], 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", TaggingRules->{}, 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->796310120,ExpressionUUID->"949b3787-cb28-4263-98d7-1d6eec4e9207"], 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", TaggingRules->{}, CellChangeTimes->{3.786742158601506*^9}, CellLabel->"Out[803]=", CellID->80542411,ExpressionUUID->"f20be716-f579-42ec-9c99-b8eb769971e8"] }, Open ]] }, Closed]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"MultidimensionalScaling | Example Notebook", Visible->False, TaggingRules->{ "Metadata" -> { "ResourceType" -> "Function", "Name" -> "MultidimensionalScaling", "Property" -> "ExampleNotebook"}}, FrontEndVersion->"13.3 for Mac OS X x86 (64-bit) (July 24, 2023)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True], Cell[ StyleData["CodeText", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True, CellMargins -> {{48, 40}, {3, 15}}, FontColor -> GrayLevel[0.45]]}, Visible -> False, FrontEndVersion -> "13.3 for Mac OS X x86 (64-bit) (July 24, 2023)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"], ExpressionUUID->"fdfa5b03-cdcd-4414-9eaf-f12f4203c57e" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[636, 23, 281, 8, 70, "Subsection",ExpressionUUID->"11fab332-62a0-4d2a-b6ee-d159c183aadf", CellID->904125756], Cell[920, 33, 215, 3, 70, "Text",ExpressionUUID->"f2d26ac2-ddbe-4eaf-9116-134941518d66", CellID->835575997], Cell[CellGroupData[{ Cell[1160, 40, 8004, 201, 70, "Input",ExpressionUUID->"01665e15-2a2e-4078-ad77-b4bf12bcf4ff", CellID->885313591], Cell[9167, 243, 710, 20, 70, "Output",ExpressionUUID->"ad002ecb-9090-4689-87a8-1b6e1e40f0d0", CellID->253035167] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9926, 269, 272, 8, 70, "Subsection",ExpressionUUID->"664d5371-cd8c-445b-bccd-baad2bfce434", CellID->204653245], Cell[10201, 279, 149, 2, 70, "Text",ExpressionUUID->"d65c44b6-af98-465d-b0aa-b8da7c7a2dff", CellID->360239918], Cell[CellGroupData[{ Cell[10375, 285, 1111, 30, 70, "Input",ExpressionUUID->"fcb974b6-424e-42de-88a0-d7cd153ba5dc", CellID->678834580], Cell[11489, 317, 47457, 792, 70, "Output",ExpressionUUID->"a014fec0-c459-4086-ac18-3a3ae70ed1bb", CellID->938466682] }, Open ]], Cell[58961, 1112, 159, 2, 70, "Text",ExpressionUUID->"2d37ebdb-52dd-45c2-8ab4-4c17fa17979b", CellID->837414541], Cell[CellGroupData[{ Cell[59145, 1118, 7938, 193, 70, "Input",ExpressionUUID->"12402ed6-86b4-42a6-8e24-2b0f475d4d20", CellID->127437861], Cell[67086, 1313, 32927, 557, 70, "Output",ExpressionUUID->"9536ec8f-538a-4378-9f4a-ae1014d14a44", CellID->965360062] }, Open ]], Cell[CellGroupData[{ Cell[100050, 1875, 260, 6, 70, "ExampleDelimiter",ExpressionUUID->"40c0c85d-244b-4056-a7de-cb166e67ac36", CellID->14107562], Cell[100313, 1883, 613, 13, 70, "Text",ExpressionUUID->"e81379bd-9bb1-40e9-9e46-363766354e9f", CellID->162789517], Cell[100929, 1898, 1222, 34, 70, "Input",ExpressionUUID->"74d59d4b-ff50-4447-9950-c7853cb2ea65", CellID->240743514], Cell[CellGroupData[{ Cell[102176, 1936, 7917, 193, 70, "Input",ExpressionUUID->"fdf30f2e-545e-4ec3-a9a1-55c1514ba509", CellID->107831981], Cell[110096, 2131, 48330, 806, 70, "Output",ExpressionUUID->"2373660d-b1e9-4a16-bb54-bf0723ecc80a", CellID->165089504] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[158487, 2944, 359, 9, 70, "Subsection",ExpressionUUID->"6ef9baa6-f60d-4e18-b519-8c03ceb2a1d0", CellID->232113220], Cell[158849, 2955, 1434, 40, 70, "Text",ExpressionUUID->"698b4ebb-9c6b-424f-8fec-d25bedd8dff1", CellID->428417287], Cell[160286, 2997, 367, 10, 70, "Input",ExpressionUUID->"d7a71f67-6f59-4284-8930-0ca8aad81fa5", CellID->785493779], Cell[160656, 3009, 147, 2, 70, "Text",ExpressionUUID->"6b69a1cd-343e-4062-ba54-38feca0bb939", CellID->315382588], Cell[160806, 3013, 8275, 203, 70, "Input",ExpressionUUID->"62cced47-06f8-4fdf-b5dd-751eac5232e5", CellID->304231685], Cell[169084, 3218, 146, 2, 70, "Text",ExpressionUUID->"771935ff-c620-4e11-b987-c1024250876f", CellID->224396720], Cell[169233, 3222, 538, 14, 70, "Input",ExpressionUUID->"6aab9b73-2d43-4360-a188-35f82fc61798", CellID->598944909], Cell[169774, 3238, 140, 2, 70, "Text",ExpressionUUID->"86e816f0-949c-4459-a44b-1937eefdac2a", CellID->227972243], Cell[CellGroupData[{ Cell[169939, 3244, 405, 9, 70, "Input",ExpressionUUID->"a05adc5f-beb3-4c81-85c6-6b81d8ffdcab", CellID->499150093], Cell[170347, 3255, 20519, 428, 70, "Output",ExpressionUUID->"2467e1b6-bf2f-48a2-b3ea-7162498a00d9", CellID->313718588] }, Open ]], Cell[190881, 3686, 1082, 28, 70, "Text",ExpressionUUID->"8b9e2a80-041d-4b48-bd98-5d1f7b5c7085", CellID->49047583], Cell[CellGroupData[{ Cell[191988, 3718, 1184, 31, 70, "Input",ExpressionUUID->"9b1aa89f-a6ac-4a76-adff-5bbc4760eb2a", CellID->542144328], Cell[193175, 3751, 20517, 428, 70, "Output",ExpressionUUID->"4e268bf6-b406-4796-81d2-e1ce26a8ad44", CellID->689330243] }, Open ]], Cell[213707, 4182, 354, 9, 70, "Text",ExpressionUUID->"a97e82ed-5325-4007-b7e6-425339081df2", CellID->341792044], Cell[CellGroupData[{ Cell[214086, 4195, 1283, 32, 70, "Input",ExpressionUUID->"882de397-b120-4774-996a-62905c0ed54b", CellID->330571289], Cell[215372, 4229, 19427, 411, 70, "Output",ExpressionUUID->"4480f2ce-2fdd-462e-b7a3-4c45a4e41d39", CellID->667342848] }, Open ]], Cell[234814, 4643, 434, 10, 70, "Text",ExpressionUUID->"89b31082-2992-4fa8-86f4-fd41cba20cdb", CellID->268011555], Cell[CellGroupData[{ Cell[235273, 4657, 1128, 30, 70, "Input",ExpressionUUID->"5bec00bf-27f2-4463-9d98-c1dc63c8429e", CellID->321709765], Cell[236404, 4689, 20529, 428, 70, "Output",ExpressionUUID->"5d8f0c1b-74d7-4ff0-ac9e-ac489f192b95", CellID->483953834] }, Open ]], Cell[256948, 5120, 1026, 27, 70, "Text",ExpressionUUID->"2e5cb869-aadf-46e6-b548-5da28bfae56d", CellID->807145834], Cell[257977, 5149, 848, 22, 70, "Input",ExpressionUUID->"bd121a14-126e-4627-a01f-ce3c3f64a44e", CellID->499478554], Cell[CellGroupData[{ Cell[258850, 5175, 1023, 29, 70, "Input",ExpressionUUID->"c08d1cf4-d428-4f5e-8260-e7bd6ded6486", CellID->554165005], Cell[259876, 5206, 20559, 429, 70, "Output",ExpressionUUID->"799830be-186c-4f92-966e-93733fe4bbbe", CellID->846064827] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[280484, 5641, 280, 8, 70, "Subsection",ExpressionUUID->"81f01fce-3cec-4d9e-b6d4-31666b6f248b", CellID->461278909], Cell[280767, 5651, 907, 24, 70, "Text",ExpressionUUID->"af734396-9e0b-4bc4-957e-cac65dcb7d3a", CellID->5988834], Cell[281677, 5677, 1322, 30, 70, "Input",ExpressionUUID->"fe35045a-a9e2-4f99-9002-1c211e6fdb7e", CellID->766498518], Cell[283002, 5709, 226, 3, 70, "Text",ExpressionUUID->"cf1d593e-8ffd-46a3-9ed9-96a227526c1f", CellID->144840272], Cell[283231, 5714, 1343, 31, 70, "Input",ExpressionUUID->"631c414a-40a8-40f8-afce-ea07019f7eb7", CellID->412793920], Cell[284577, 5747, 222, 3, 70, "Text",ExpressionUUID->"7b7f22a4-6839-4c99-b5fa-b8bc5e7cf89c", CellID->860924981], Cell[284802, 5752, 1319, 31, 70, "Input",ExpressionUUID->"add122ea-1d71-46e9-899f-c502a74d1057", CellID->819183050], Cell[286124, 5785, 228, 3, 70, "Text",ExpressionUUID->"e2753c42-643c-4883-9ed4-f17ddd6c0f46", CellID->467859360], Cell[286355, 5790, 2096, 55, 70, "Input",ExpressionUUID->"84ff6946-07ba-42d4-9aa3-1340888af01e", CellID->909647240], Cell[288454, 5847, 235, 3, 70, "Text",ExpressionUUID->"24dcf9ab-ffd4-4092-8d76-22c384188ffc", CellID->83896971], Cell[288692, 5852, 2262, 60, 70, "Input",ExpressionUUID->"067c190a-8123-42a2-b8b1-f81ee64065a9", CellID->670396146], Cell[290957, 5914, 427, 8, 70, "Text",ExpressionUUID->"a0b082f2-662a-4f90-b499-8ffb67022e4e", CellID->563487955], Cell[CellGroupData[{ Cell[291409, 5926, 8801, 215, 70, "Input",ExpressionUUID->"949b3787-cb28-4263-98d7-1d6eec4e9207", CellID->796310120], Cell[300213, 6143, 33297, 704, 70, "Output",ExpressionUUID->"f20be716-f579-42ec-9c99-b8eb769971e8", CellID->80542411] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)