(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 156459, 3144] NotebookOptionsPosition[ 153357, 3079] NotebookOutlinePosition[ 153696, 3094] CellTagsIndexPosition[ 153653, 3091] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["RGB to LMSR\n", "Title"], StyleBox["\nThis document computes a 4x3 matrix to convert linear RGB data \ in the Rec.709 color gamut to LMSR space. The data used in this notebook is \ from http://www.cvrl.org/.", "Text"] }], "Subtitle", CellChangeTimes->{{3.6472069892556753`*^9, 3.647206992644547*^9}, { 3.64720706386841*^9, 3.64720723066249*^9}, {3.647207262730607*^9, 3.647207325235694*^9}, {3.661121273814883*^9, 3.6611212811271257`*^9}, { 3.6611836316553793`*^9, 3.661183634470564*^9}, {3.6815771809416018`*^9, 3.681577182173439*^9}, {3.839450461612177*^9, 3.8394505493534946`*^9}},ExpressionUUID->"5ae343b7-a2aa-48f4-98df-\ 4a91ccee9af1"], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetDirectory", "[", RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.839443871632057*^9, 3.839443897840395*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"2dea625f-819d-4afb-9db6-1f9e0163fe66"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["2-deg XYZ CMFs transformed from the CIE 2006 2-deg \ LMS cone fundamentals", "Section"]], "Subtitle", CellChangeTimes->{{3.6472069892556753`*^9, 3.647206992644547*^9}, { 3.64720706386841*^9, 3.64720723066249*^9}, {3.647207262730607*^9, 3.647207325235694*^9}, {3.661121273814883*^9, 3.6611212811271257`*^9}, { 3.6611836316553793`*^9, 3.661183634470564*^9}, {3.6815771809416018`*^9, 3.681577182173439*^9}, {3.839450617122533*^9, 3.839450633617247*^9}},ExpressionUUID->"5869e3ef-0bb9-4e92-a9a4-\ c3889973a035"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "x", ",", "y", ",", "z"}], "}"}], "=", RowBox[{ RowBox[{"Import", "[", "\"\\"", "]"}], "\[Transpose]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "x"}], "}"}], "\[Transpose]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "y"}], "}"}], "\[Transpose]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "z"}], "}"}], "\[Transpose]"}]}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Green", ",", "Blue"}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.799635017508616*^9, 3.7996350175142593`*^9}, { 3.799693199593113*^9, 3.799693222600195*^9}, {3.7996932581163282`*^9, 3.799693315664568*^9}, {3.7996934305363903`*^9, 3.79969346876785*^9}, { 3.799698464577858*^9, 3.79969847157952*^9}, {3.8394430930955343`*^9, 3.839443130314807*^9}, 3.839443701484879*^9, {3.839443771328206*^9, 3.839443771388134*^9}, {3.839447119561327*^9, 3.839447122601915*^9}, 3.839447253317464*^9, {3.83945041309626*^9, 3.839450413451779*^9}, { 3.839450517447301*^9, 3.839450527903515*^9}, {3.8394505591943007`*^9, 3.8394505766505833`*^9}, {3.839450632275118*^9, 3.839450636132414*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"1c12d9cd-5350-47cb-b7fb-6f53ab47e334"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJztnPlbTf379jdC5q1CZNgRhZCh7swnQmRIpgxlI5RQ5j3vtdceRbedMbeh bU5EyZA5c+ZtiETdRRGi7oQM5enz6drH97nX88P3D3h2vzheR6muda71fl/n ud5dznMiAubV5PF4PerxeP/5978fQhF2rdv7SJu3ZPB/OVIE+6Qc183GZdXM iBB/3b2k3fhV1WwU4WXuglpMuqSaTSIsbq3bMrQxU81JImSMG6AW/qGu5jQR fo39FOv1WVfNZhGGfxib3GTq2mrOFeF+0aG1twcYq7lEhLilNcf37Luxmnli zBxX8j7+yJZq5ovhOquVufXev6pZIIZ6b+389p3jqtlDjA9T+7Xb1XFPNUOM 7au/zdhSf381+4sxbaNTrbO+8dUsFCNwbUybmvmHqX4xekxsEh+WfYzqF6N3 YFjfxS2PU/1iND93aVl4xAmqX4zabttyvn44RfWLMeXnojtt1pyh+sVwN77X jhl2nuoXY1WHVztutrhE9YuR1L7yvE3Ny1S/GAPiDvQvY69Q/RLM+8xu4zW6 RvVLcOB88s93f12n+iWYsb+2WN/xJtUvQZvar/uv25dO9Uswvf7HIYmNb1P9 Egzb/OXr0Jl3qH4Jlp4fE3x0/V2qX4LhTQNOpxy7R/VLsPOV6zW76/epfgm2 zreZF5L1gOqX4G5UafNpMjPVL8HxlWcHBjR+SPVL4DrZq+7cOGKzBPeLh18f 1fUR1S+B4Pro5kMSiUskmJhSd7rK+THVL0XB6sH2daKI+VJUSPuFpr0nFkgx 4/SOA118n1D9Umh3uYUMPUgMKco3BeiEDTKofilu5Ie+mxdBLJRi0ePejoo7 xJFSDJ/1JndQi6dUvxQNS8NsHo4iNkqR6vlnxcOZxCYpxvJXtmMmESdJ8aQt zE7exGlSRE2d9sKhCbFZiilB7snPcunn5UoxM71Dasxx4hIpPI64O71liHky PFy4IUwxgpgvw5zrNkbPSqpPIEPlwrBbg/Za6pfh8pLMU269LfXL8Hn0XvuJ KXS9/GVIid/2e3cXYqEM+7d8Y4VxdP0jZTjTucewbi2IGRl6drG5N3QL6WeU 4bhWmra1DbFJhoDdzZaHJ1r0l6HlvKJ+9UcQp8kw4NkOt6MP6H4xy/A67mL9 zS7EuTJs7OOysVxF91eJDAs7L5T8lU33H0+OZWU7bV50I+bL8fTB12E3w+h+ FcjRdfc5l/tRdD97yHF5b6+Fc2PofoccA1/t7vtLeYvqlyO5ZS67aBo9H0I5 5k1qeSNbQM9PpByd//gaw8ui54uRo5No12P9Gnr+jHLYNbmX97v3VapfjnFD FF7Lsun5TZJjzcPlDYLWpFH9Vb9/SI+OL1depPrl8EpOm7riwzmqX449o0e9 uSqm9aJEjuX8FScSOp6m+hWISGlTfqGU1hu+Aqcu79GKXtF6JFCg/xf/sg6l SVS/AknDLw/dMfAo1a9AWk4Pd9PdBKpfgWXRXdou+/Mg1a9A3X5DvEvZfVS/ ArPZYQNPH9tN9Svgmf5+dXavXVS/Atcf5z2r1Gyj+hX4FbPre92pm6l+BbJ6 N506+kAM1a9AfsXDvzZmrKP6FZiUMXWb8wA91a9APNOwxhsRS/UrUNt7cjxr J6f6leCFez+/9pD2H74SjVbzJtXj0f4kUEJjH3bX+/4iql+J68/PZJoPLqD6 lQhesK0yoEsI1a/EyOVt+A3t51D9StwpmJPyeftsql+JvJWe3QZ0nEv1K+F7 cV3jsy3o+xmV6Dt7ujYvfzHVr0RA3Zo9vtquoPqVmO3qPi3EVUr1KxEhL/91 0J/qMyvhtD9kR2+hgepX4v7ah0OdXq+n+pV4F+k89tqKTVQ/g6bJWbPe76fr bctgbdPuawLDaL/jMzg2dkb9AjPtd44MvmUsafuzxQG6PgzyPTw36+WHqtmN wQftO8fXtRPpejEIe9nOMWMm3T/eDKbX2dc80Z/uLzDI6fQlfeMcuv98GTxo K9w0cDPtd/4M9nhVOB15k1rNgQy8LmRoKifS/S1kMKW4GXs560I1hzKIa37P QTOAno9IBr0dO9hpt9DzI2LQsV6bB1e+0/7HMMBaXs2eIfT8GRjEt49UrnlM z6eRwYyyQxfHDafnN5ZBvZbpKXdO0/NtYrBNbdo7uRutB/EMHE6ujzx5iNaL JAZ5Qd1f9e9J60tq1fVJj7mflk7rURqDJrz5tk370XqWzmDO56WL4x0t+xmD Cjnfvm0lcSaDVZ/cPVoVWvY3Bh5Xs5aXPab1tpBBp31ZY7pcovW5hME1h+3D c+JpfS9n8HFQ04z9RtoveCoEBUdMaL3qGemvQsDiTpv/Dswk/VWY5TLN/b33 c9Jfhfcfu/w+2SKL9FehQZ8/R876Ruymgmn+xxkBWS9IfxWGaW7tGnf1Jemv gufNWi8encgm/VVwGdmvVodjOaS/CmGVsU8PJP9N+qvQa9Dd4FNBuaS/Ct+e mNrGFBALVWh80m7Whog80l+FeVuDJ/B+EkeqEPi524WR+lekvwoV0+NHfLd/ TfqrsGRSzQt3TMQGFUq9pyy/3S2f9Fcho6vTupvniGNVOLk3OzrBr4D0V2HI JvGX/jnE8VX1lSV0dlnxhvRXIfr05uDtjd6S/ircDFn6O+YQcZoKctuEEcdG FJL+KrB/Tjm57zWxWYW2Bwt9uyvfkf5V+vx177WH43vSXwVFwY7eFYnEhSos No+dkD/4A+mvwsL3utOO94jLq75/2AXNsUlFpD+Lqc3MP0Y/JbZlsa3yhVOv SR9JfxYZMR12qh4SO7LIN/CP6yd8Iv1ZTDq5cfW1Z8RuLFZMn2mQzC8m/Vnw 5E079PtB7M1ivG2bFfVGlpD+LAbsV39R/knsy+LEzQbvSszE/iz6HS+9I2z4 D+nPolObAqHXEGIhi7Kog23DIolDWZhdS13e/UUcySIs73j97ZeJRSzWxq8Z 1K6AmGHRf90oZY/apaQ/i5WJF8ZPdiY2skgOl57r2Jc4lkXdxx4ynzHEJhaz pPNHMdOJ41nE5lTO7BNCnMQi7u14p4ww4lQWY6LND56EE6ex8M3pu2n3QuJ0 FvLpw5Wh84nNLEbWbOS1Mpg4s+r3vTZ40bsJxLkscmKSs34NJi5kEay+WPbV lbiERdOoRFNYPeLyqu+Xf27T2Xyqn6fGPO9dD5izxLZqPHCv5z9xLTFfjUvK z6+uTSV2VGO8zdK24wTEAjWC0u40dCogvdzUKE6oe3fYAWIPNZp7xury5hJ7 q9GzU8UFh7YW/dUYrDQ69Umg+8O3ioMrvy+yJ/ZXY77c4dJyMd1fgWqcXBVT fieb7kehGqEBk0ZmDiEOVcMxLvWR8wG6nyPVMNW/ZR9gSyxSIyfrcbvD8+h5 YNSY+n4a//Y5en4MamRNbbvvoC2xUY2MDo2WhPvR8xerRl5m4937dfR8mqrY K2Tsqgv0PMer4Z612nSo1PL8q9HwR+uws27EqWpUPF/vEDOb1os0Nbqkhslf 7KT1JV2NtwEzJ3/NpvXIrEaYZLBLr/bEmWqs7Gf88mQhrWe5arQWTe/gmkrr XaEarc6kPttYn7hEDe3zs1HSObRelquxuse3WxMYWl95GoQHpLnvHUnrr60G tm6hn2StaH3ma1DzwJU/T36h9dxRg6Z+DuE1n1rWfw3u/9g093gq7Q9uGnwt aG5j2k77h4cGNaKKcgrktL94a5Azc6rrldm0/0CD1edvRTwcRfuTrwaaAXfj h3nT/uWvQcensTcKutP+FqjB2P4f6tXoQfufUAPdmsMRtfvS/hiqgYd2js55 LO2nkRo0amYY9uIp7bciDT5enh6e42rxnxqkjIitaBZN+7VBg6hB7eZdq037 ubHq/2/YNr9ZDO33sRrUX1/EG9Sd+gGTBl3tUlspXlK/EK/BHafm05y3Uz+R pMGT/7SzYdTPp2oQ9LvemiYjqf9I02DqPpGfW2/qT9I1qPcwvGJQN+pfzBo8 C55cNyqM+vtMDYYJSv8J2UB+P1eD71m9/Wo+OUv6a7BsczY7o5ul39fgb/EU 45Kd1O+Xa7DZtOtKvw7UX/G02JFeJ/n0Beq/bLWIz+rzrCA8hfTXouEi2VWz O/VrjlrkHlm9xPib+jmBFo/ynNfF3aA8w02Lz6ucD908aun/tHBZLDrhf4ry D28tbhUyLkUvqF+EFvrFo5qPakt5ia8Ws3KMNu+k1F/6axHhdTs1uZT8Q6AW MX9m39nF7CX9tRjcxr24qAP1p6Fa+Gfn9rF7YSL9teiYPvra0NHUz4q0KNvq 22Nt7Z2kvxbhndUt+r+jvMdQ9f3zFtgd/hJL+mvhqJz6QtllK+mvBes+OcVR R37EVPX932yfV1GL+ul4LQ7UWFj3WNwG0l+L0lqDXs6eTH4lVYvspynLXzpT HpWmxeXLQ4r9av9J+mthn9XEpv5Hyq/MWvD8yosbfF9D+mtROeXsk3BXS3+v xe3WI9UjVlH+VajFX7bPVetea0h/LTKcUiXqRZSXlWsRW7rlZExj8gs8Hb5s qzto+U3K12x1GLZ854jpXZSkvw7CoHWnFhTJSH8dTm2cERH/mPI5gQ4Zrd3q FeWISH8dwmT85k8brib9dfBMcUl8N2Ml6a9D7pR+AetvLyf9q35+TNEXh6nk t3x1OOH5OuXq70jSXwffmcmPzdoI0l+Hi32nfT46kPyRUAdpi2brjR3CSX8d CpasOf+qVxjpr0Ot6VGjpi4gfyXSYTJf3sH9wjzSX4fSoPPHW/Uk/2bQYeGh jLOqNPJvRh3m/74y4m0Y+bdYHdYKfVxs3YWkf1X9x10dejYIJv11EKzaULTh /QzSX4foHxPKZ32eRvrr8Gqs0LPMOZD01wHX7SOeLJtC+uvQ+cOCMe9eTSL9 dch/tHH60oiJpL8Oc11sVpU3CyD9dXj65KJb0BN/0l+HNzP9KhdMGE/663D1 /dnv+vZjSX8dHu2PbFvh6Ef663EVZ6P9eo0i/fU4ICmfOGvxSNJfj6CIhCcD bw0n/fU4VXdHg5M+PqS/Hs4FA1wX5gwl/fVY6VD3hW7TENJfjzybb3OfzwXp r8eCmm1CNm0YRPrrMb4wpPFCzQDSXw/Vj7TslNh+pL8ebSMqShve9Sb99djY MmSTS5s/SH89fJ5M8q6x1pP018O/0/O2axz6kP56eKaekkSl9iL99di5OujI 7pU9SX899mtL7r4b5UH669GzZPTAhgu6k/562E3QrYma7U766xEo3s14MV1I fz2ig/dUeKa5kf56yB6ZTOltXUl/PRBwvU74to6kvx6farVgM7u5kP56tDt7 Q2ub1Z7012POw2nrR+5wJv31SD99tzB6uYD01+OjsEdMwYW2pL8enVqXrLA5 15r01yNxbNGitS9bkf56RDnHK3sKWpL+VV8//Z8yA9uC9Dfgr3V/p/rwmpP+ BjgkH7ti2OJA+hvw0iv0wIuh9qS/AZd26a5F1LIj/Q3wmD/h0vtnfNLfgLCE oLCeTBPS34D4jzblXVY3Iv0NaNa84YbEjQ1IfwNids7aWPK4HulvQN464+aJ fWxJfwMavT09oV9yHdLfgIJahVnqkbVJfwM+7i9/ICmrRSxC8cxaW1u59yf9 RXgY3mK0nYTuP0aEoZLy7JUlw0hfEbrst4v7wvclPUVQvun/dMqXMaSfCOte beonmTmB9BLh8v5Je+uctzyfIqzd4NQ/5CA9z7kiOLXreu9j1yC6/iK0KPnr wLkutH7wxJjMs9sd15zWG34Vp7a5rw+i9UkgxpPMn7kX69B65iHG0KRXttlO tP5BDO/u/sM8nyyl6yPG+h6pbfsGUT4kFKNzg9y/eR60/kaKcXvHtk7RY2m9 ZsR42sR8nzlO+ZdRjKTsdbo7h2n9N4nRwWTTfVUs7Q9JYny+et/TN5b2kzQx Bt+73MrmkOV9ixglo5sL4m5b9iMxZGcaLfOojKL6q35+A8XkRiOiqX4Jdme4 +wzfR3kUv4rrMIUT6tP+KJBAdbhDfhNf2j89JLATnG7TXk/vayDBwBP240xX aL/1l+AfKYZLvtJ+LJSgde1xz9a70H4dKcGrTbEfgibQfs5IkCA9sP4gS3mX UYLYKZcOSS7R/m+q+n0iXHqvbbyD6pfg689lLnGR1C+kSXDh6LYZ+/MprzRL 8Ktk4OJdfajfyJVg/3bfaZMqiUsk8N7zbWfMfco7eVKEXj389cc+6lf4Ulwc M2XgSBX1MwIpbsQMuecwl/odDylavZnVqWAUvV+CFPEOIdtS+1j6IykeuSxo cUVgyVulKH/6kJ1dn/qpSClsBx8+rPtIzEixI/VVrdPXqf8ySvFyw60FqvWU 35qkMJ9lVjUYS/1akhRvimRXF9c8QvVLcaoTmz35BLFZioKLTd78WED9Xq4U s9qW9z3rTPlwiRR+RatPpOQS82RIujb8jWgP9Yt8GabNXenfvZeln5Th6Naj 4tQYS94sw/Rew87WLyaGDKFbx0VEjEmm+mWIWR92zCuRWCjDImGdixUO1K9G yjA589G103piRobj113s+tej/tYoQ2lBUb+D24lNMqxonHniKagfTpLh3Yy1 5978IE6Tweuc2m743ZNUvwwhRyOepJ+ifjpXBt3BQd02pFK/XSKDw6iiy0Pu U37Jk6Opy/71xz5Tf86X49mL+V2udaA8UyDHjq7F48dNo/7eQ46hvR4fab+B 8k3IcWv8+Gs375If8JejceXz9/dqkV8QytG90XGnRSZL/inHd7f0FdH9yV8w cswaHDY2NoPYKMdmZbdjMyPIj5jkcFz0nP+oHvmVJDkqu81MbnWAOE0O1atF f/sOJ39jlmPy9n27Et4S58qx9taqltOiyQ+VyDH7hsORpV43qH4FLjv0ENq/ JuYr4FGiujJ8I/kpgQLo/Pv3vhHktzwUWBh/pMb+X5b3jQr4jA5MO3TC8r5F Ae3fW33qLiG/JlTA++/XB++6kZ+LVGDX7cZbphQSMwrsrmxs6pdM73eMCjBR 23rHGMgPmhT440dsE9sV5BeTFGCd6zRLEtH7pDQFsgW/ly7wI39pVuCuy/va cW+IcxXoJpMn+kWTHy1RIOCUb1b0IPKrPCV8az2+tuU7MV8JnfOyH5KLlveN SjiuuvB8bbTlfZsS/42DF5A/hhJ+oS8LFvmRf/ZXIrCH+ff5fuSvhUqEHTrf Jq8P+e9IJWbKu6Zr+5I/Z5T4MffkpL6+5N+NSqwOuzo7TEj+3qREXMBt/iIV 5bVJyur3eQmUB6QpUcBrkDD1BeUFZmX1+6h6lC/kKuHptPLiu4PEJUrwzorL zL6UR/AYBEfvuZD0gdiWQWw9M8/NSHkGn8HNgQcX3vWkvMORwc5PeX90eUks YGCM/tp9E0t5iRsDr94+s9a6Up7iweDhqS/d+94i9mZwclnUu53zKH8BA9/L E9M3/yD2ZTDc88WdRTrKb/wZeL5p1eBYPcp3AhlkmNrG7NcSCxkcTsuak/6T OJSB/Jv809nFlA9FMpBOLLqa8ZJYxGB2o9kjrvhSnsQwmDBq6M2UJEveVPXz 0WVhhj3lUUYGU+LqLPBbShzLoGuy8ydTOrGJwWu7opBmTpRnxTMIySkThS8k TmJwp56yqyKVOJVBRfvj0wbXpXwsjUFu8Guf2oHE6Qx4E+s0Dj1EbGZwadbS 7L7fiTMZ/J361M1zOOVvuQyG1uu9+HcUcSGDUxGjwmLSiUsYCEUdby2vIC5n UH7rSN/tnSnP46lQsd/kVXsssa0KORNzep9eQMxX4U2DkzV6S4gdVfDs4Nbh sY5YoMLjaa01EUZiNxXcB+avzt9myZtVEJfGudgfsOTNKnzIrX2q+BQxVAhf 4+dz9LYlb1Th9NXIS9E5lrxRBbe/6ialFxMHqnBiVJ8/Nv8kFqowe+LbCf/8 Jg5VISUhIuF3BXGkClHC1c0SvxGLVNX51SdiRoV7YcIvMQXEBhXmmo++5WcT G1XwMnb3SnxCHKtCh3U/lB53iE0qmAf99Aq7RByvgkA7okHXJOIkFS76zD6/ dgdxqgoTEjI/GzXEaSo487IHSEKJ06uul3FXe70vsVmFTzVmrSpzIc5UQTmp rfcVi565KnTzeSW2eWTRX4UmRnH3nSaL/ip827TDXhpq0V+F9qsXzdruRsxj UbT5qvetXLq/bFk0DV7qenPj/7xvWMy8lv30+Z/3DaNqBD4+/I3uZwGLrvd2 5FccJXZjkVe2ZmvNxcQeLM7dOhOc34PYm8XWGMn4gjJ6fsAi5+bD1tPOEPuy WNp5Z+UeCbE/i+mnh3w87UUcyKL02oVh2z/S8ypkUemXGJARRxzKwi5HPPDz WOJIFtIkaZ6m3PL8s5hmvFzQ0ETMsAiI/eb92IfYwKJ9UPt7jd/SemJk8aVf bK3Plnw5lsXTdrMdk1wseTOL9wvzQuVplryZxZI3H6JPTidOYvHd/YH63GdL 3syiVvha5+K1xGks5I1fnUnsQJzOIjlf+6DnOVovzSxi2SyHPgHE/3nfUGHq HlBI620ui4cTAj93kxMXslhez71jJJ+4pKrezb1vv9tN63U5i7j7kcHfehLz 1KjlXbel3WVa723V8Ajq1jpxvGX9V+N84IXQPjm0PziqcVPdbdXPRcQCNc64 hZ1o8Iv2Fzc1xoQ/zgxeS+yhxle7iwH/tCL2ViN0cICPbjLl3VDjc/slh3JW Wt43qjH6eEp0/lba3/zVEMdta374PO1/gWo8qrEvpksB7Y9CNTJzaoYMsyMO VeM+b1mbQT60n0aq8btX5/ELxbTfitSYwl7Pu3uM9mNGjdfTfZ32FNB+baj6 +Q/K7Oa2JDaq8arg3cwJo2l/j1Vj7U3Tkp9i2v9NauBru0GTE6g/iFdj8Kyw B07Z1D8kqTFwmPf85/bEqWqoPU5Lz4ynfiOt6nrMaXa7TQz1J+lqGJTylj0z Lf2MGt4Zv3PsOhJnqlGQNjvwRDH1Q7lV9dfZqO+ym/qlQjU0gSPjTMHUT5Wo cd2nr97Z0n+Vq7FU6Nb8aAX1azwNnur/iu73N/Vzthq4XK5/wP8u9X98DYZs SZjW8Cr1h44aJNzt22bxZct5NE2Vn3NIOXOd+k03DT77LjvG3qf+1EMDxZ1v byuyqJ/11kCwsWfVlkn9LjQoG76usNByHs5Xg73jokxSAfXL/hrc9qzdq/9a 6q8DNRi+Y9zxjALqx4UaPG6xU79kAvXroRrUHuWzM/g+9fORGpS2qLMkYyb1 +yINVtvvzMv+Rf6A0cBrdbP7w4+SfzBocPToyoj5keQvjBrYZJYFa4aSH4nV IG+M7sqHDuRfTBrM6dpod7E9+Z14DerNbDT4U1PyR0lV12eh39kz/chvpWoQ HOeYvTDc4t80yH8/0VxwgvxeugbyhuO6tm9OftCsgfODRg+bWs7vZGrwsGLI rTVO5DdzNRBF/Hyy4AL500IN/MZ9kW9fRv61RIMWq0dd6NCP/G25Bk+6dqho Ym/xv1pENmuxpsZ3yuNttQhvnxk0/AP5a74WO/Pbyqf93E76a5Hr37T+RVfL eUwtRnvPOm4XQX7eTQubh/eye5np/KaHFjrX8SfqjKY8wFuLDtMH1Fn5wpIf aCGaK5i4QE35gq8Wyb+2rNsPyh/8tdhz6MBAQ1PK5wO1iG+zPfKfQsovhFq4 DrX/6mqmfD5Ui3lN2u0a8ZTy+UgtDvoc2/DwO50/EmnRycCEnOpPeQmjxYVe U7wzdlCeYtAieNByrbAN5fNGLWpf7fqyxgUV6a+FsVM332USSz6jxcBVlVGG fQrSXwvl6bO+9izl80la7DrRfWCKnvKeVC1O7Z/VV5JE+XyaFtd0ggVby+m8 U3rVz+tvfuwYTPm8WYurqoi2q/+mfD5Ti+P5t4q6Symfz9ViS0jx5Ks9KH8q 1OLvJ6vf9PlG+VSJFk8mNnw+6Azl8+Va7JMPGX5iN+VZPB3U25dHt0+kfN5W hzm/XnjqMin/4utQNM/xntp5Pumvw5cTWT9t9ZSXCXToOt6/Y1dbOj/lpkOP zr+fZ++lfM2j6vPiI6pfgZTPe1d9/tCM4q1jKJ+HDgUHl5wudphJ+uuwsOPq 8RNtp5P+Olx5sKt1axfK8wJ1aDbQ6fiJeZTPC3Xo01f/U3ib8r9QHYZv+fHu 4DjK5yN1mL8zpsHwYsoLRTp08AnoH3yI8nlGB7vTD2L+KRtH+utQ+JyN63iZ 8kajDk03x/VvdnI06a9D/PTEIQ/uW/JJHUYfEc2Z2pDy+Xgdnk2YcPdIOOXz STpUjmdz9rynfDO16v/XLP+wVEf5fJoOU6b9HLFsAOXz6Toc3REaOKI+5aNm HV4sdfjjwIuBpL8OZ+ovVK68TXlqrg6m2gGrzmX3Jf11uB/qURJjR/l8iQ6l U4ZIp8/3Iv2rft9ti+1OP6U8nqdHkPnOgKuze5P+ejDOcxMO16F8nq/HPEdn 9bFrlMc76vH184gFtzx7kP56xC0Zncbyu5H+etgYOvU/17wr6a9HX4eG6/XD OpP+eow4tumRywbK46FHzwrbdLaS8nhfPaLuepZ10VIe76/HnrNvrrAdOpD+ ejTo9Dg+OpPyeKEek/kOThv2Uh4fqsfI/j38pHXbkf56HHPMfzm5hPJ4kR6n 9+8Uxf6mPP4/7xuynz8P6UV5vEGPpknOrgVayuONeoQf375a860Z6a+HXefb foUayuNNVfW0HhaR15Xy+Hg92iruHPR/35T010Na4+cQn4uUx6fq8aDjmKU/ /CiPT9Pj4eWWcx8Npjw+XY/kVTMbrZhMebxZj4VhDb9MXEt5fKYeT9Wj+jXN rUv667H08v4RgwIojy/U42DnxKKQXBvSX49+LuYttwyUx5dXXc/JkWvu+tYk /Q3IHjrjVH6bGqS/Ac+/jDqZV5tH+hvw2qWX35mKikHV+hvwps73T28b/6pm gQGX/TpOvjXoRzW7GSCe7jrCPrq8mj0MaFyzbI/H96/V7G1A0ALD8nHsl2qG Ac0XL/nNdy2rZl8Dfn1fmR6fX1rN/gbwS+qnjUr9p5oDDbhyOL6hIa6kmoUG 1Pb45bXRo5hYhMa15b2l72k/iRRha+ygA9KLtB8xIiSOPtD7+hTaz4wiPHpz QjEvnPJhkwhTN9R0X5JC+2eSCI6nlzxt/xftv2ki7HBcqjV5W/JWEW663mza OYP2+1wRet3sc2dMHeofSkRYVOvMecEly/leMfzeBOZMbkL9C1+MAxP+qDNR Tf2OQIxsj7SyI9Mt/ZMYkwasmZu6mfoviJHYb7boRX/L+X4xLjUfH7t2IvWD QjEeK/hLnkVSPxkpRqQ5WD6gjPpPRgy3fR9EbIrlfLsYewbEnpl3hPpjkxjN 202upc6y5E1ijNqXfvKXE/XvaWJ8TZSaA3Op/zeLsW33mEo2lfxErhh/jh2Q HLuH/EqJGGU7Dzmf20F+iCdBI8GzvGH7yG/xJbjVsH7f/cfJ3wkk2LC05+HW l8hvekiwpLB1qdbiryHB0eKrQ4Y+sZxHk6BdWOSMGamW82cSRA+r6L4oms5X RUogmDW0tn7qZ6pfgqhahd8qnMqofgkG+Bmb+ucRmyT4VKg80zzxC9UvqXo+ prb3l3+l+iVo/svrmmjsN6pfgtTACeowx3KqX4KAxvPthZnEJRJsLm65xmz4 TvVLMUJRwXdy/0H1SxGuXCAtu0EskMKDvTFmT/BPql+K7bVslpeVE0OKm6qp d3Zu+0X1S5Hg83zG7b4VVL8U9w/+OXn0A+JIKQ4MHWDXY3wl1S/FJZ/zKysT iY1SCI9ECJe9JjZJUZQTdc3mC3GSFJuf1AttX0ScJsXVzKFG9SNisxRjfr6p fJ9MnCvFoct9GraLIS6R4lrRvBdh4cQ8GR6PncMP7EvMl2Hjq9f2xz/T7yuQ 4UdpzaK9G4k9ZGj0egk/sRkxZLh0tov/WpWlfhkY124zp+TR9RHKMPY/BQ4i /s/fN1SU3oraTdeXkeGl6euM/k2JjTJMtfk949afpI9JhuZ9uiX3akWcJMNS XsVFZQrpmSaDoP78MZenE5tlmKtYEnq7sUV/WfX5vlt0f5TIYHj2pcEqNTFP juQ+JXtbeRHz5dh6/dqb11l0fwnkeP1jtfzNImIPORzbHzz29gPdj5Dj9IlW dt8Cif3l0MrMKdNO0v0rrPr6B6bdyprEkXIE/bH//JShlvtfjpaVjxs5iCzn KeVY1Xtvu0YH6fkxybG76vJMeETPV5IcL8f61R3x3ZJXyZFwretvvuW8qVmO jlf713dOpnwnV47hnW/setXGct5VjnsJK1rn/0XPO08Bx5BORwq7UH7CV6Cb qjjG7QHlHwIF8noFDfLVWvJjBWY6PWioH015BhT40Nnt587WtN74KzBh9aQP Kd9pPRIqMPvS3dZ/5NF6FalAO2O/EsERyhsYBZamlaeEnaJ8waiAf9cti3SW PMGkwICMG3L/AZQfJCkQalixps85ygvSFHjYYt2M5kGUD5gVmMVkdgtqTetp rqLKD5/5PqLMct5bgbINJwdcz7X8fZMSXy/kbeua8z/vGyImlprWF9J6LVDi Xg22r+QX+X0PJR51+DXEvgUxlGix0bfIZRGt9/5KjP0e3oiXRH5fqETN2Gen 7n2n/SFSCb+EGa8Wjya/zyjRcenPqKw95O+NSqzs/fGIqw3tLyYlggd6v7sZ aTkvp8SV8a1xqdhyPk6JWq1OrZ6qJ79uVuJEn5lrCvrT/pWrhH/d0KYQkF8v USJlS81HlXVpv+MxOHtge7us9nQ+zpZB8VH/b8NCyJ/zGWTVeNas9xXy544M aoWuu3CiD/lzAQNzcfCc96fIj7sxsI3YKMkfRX7cg8F0h6Rfcsv7SW8G30K+ Cosn0PtNMPhzivR7y0+0f/sy4He708+YYvl7GQZD262Proyj97OBDMpLx4gv JpHfFjJYckiwYe5r8tuhDHZlXrpywpP6hUgGM/ivY5/vJ38tYjAwfVD9B72o v2AYdOt54I7bafLXBgYnE2ya/Bpo6UcYzKtM6sx8Iz8dy+BltwZto3OpfzEx kHl+fRFdZjnfxiC6ae36rj3ITycxsEuVx29dZznfxmD+w5BNu+tZzrcxmLSw Mnn5SPLP6VXXe86YPq4pdD7AzOCgjW8QbxKdH8hkkCZ5eXq6K/nlXAZzZjfM mNOF/HIhg8ev3zf8Oc3y9zwM6kuLroUfJ39czsC3/qpGPkLyxzwVbhRnbj4d R38vY6vCnr3Xbg9tIyb9VVD2E/SRPiY/7KiCn03G70UX6DyFQIWSky3rbnpK /tdNhd/NfiU+akX+10MF+eeQX+aG5H+9VWiw54NfDXf6eyGoUPvz+mXnosnv +qpQurSRV5E7+V1/FWKYTexJGzqPFqjCkQ+zRKv45G+FKhhPHnt4xI/8bagK w3xGOIybO4v0r6qv5YwzXWXkZ0UqmB8WHR+RRefNGBUWHm5z7uaqqaS/CjUq rnon+k0m/VVolvH8Tt5E8q+xKoxbf/yjOYr8q0mF1f3PzNuQSefJ4lVITWng lFtoOR+jwshtvjVFg8mvpqpQfjcr+UYG+dM0FdyE3f+4v5/8aboKl2dOGy1I IH9qVqHjsw3hD7PJj2aqMFShGb14APnRXBV6+O9hX6jJjxaqsCjdw3ZGBp0P K1Ehz86dOT+f/Ge5qmo9s59Yoxf5Tx4LZnc31Zme5D9tWcy/P+PiZ6HFb7KY O/Dakj/OWfwmi7jWSUc+iej8l4BFx+N3/PhXyF+6sbgU+UXZ04/8pQeLJcfH tR7XmPylNwtpneCfn2uTvwSLoGG61l7dyE/6srizbUvBLiX5SX8WKt92JaNK yT8Gslj3fte1Ie5tSH8WxWMT36kPkH8MZfH44qjOzWc4kv4sbt1g5VE+dH5L xMLZs2Oj70HkFxkWvl4HJhfvofNaBhYJwp7585uQXzSyKNVdCFo5mPxhLIse bxb7DdjdkPRnsbyrqIfboPqkP4shLzcX3+PT+awkFlNuJSf4OJAfTGXxqu2A +q18yA+msei30tB/xA7yf+ksTma/iG/fkvyfuaqeAtXm80t+V/upTBa7L/Wv 8c9b8nu5LIZmxb5eEkt+r5DFA/sd54dJye+VsAjZd2xX2Vrye+Usfnlu4y2+ Qf6Op0aTopaDvnf6XM226qr1OydwUAL5O74a4l+PRnUfS/7OUY3E515X67b6 RH5TjTRl95Tl9z+Q31QjZsQL24Yp78hvqnGmbPrOg1ffkt9Uo+u9mu1kvwrI b6rB+78/fDnsz+FADgs5HMrhSA6LOMxw2MBhI4djOWzicDyHkzicyuE0Dqdz 2MzhTA7ncriQwyUcLucwT/NvtuUwn8OOHBZw2I3DHhz25jA47Mthfw4HcljI 4VAOR3JYxGGGwwYOGzkcy2ETh+M5nMThVA6ncTidw2YOZ3I4l8OFHC7hcDmH edp/sy2H+Rx25LCAw24c9uCwN4fBYV8O+3M4kMNCDodyOJLDIg4zHDZw2Mjh WA6bOBzP4SQOp3I4jcPpHDZzOJPDuRwu5HAJh8s5zNP9m205zOewI4cFHHbj sAeHvTkMDvty2J/DgRwWcjiUw5EcFnGY4bCBw0YOx3LYxOF4DidxOJXDaRxO 57CZw5kczuVwIYdLOFzOYZ7+32zLYT6HHTks4LAbhz047M1hcNiXw/4cDuSw kMOhHI7ksIjDDIcNHDZyOJbDJg7HcziJw6kcTuNwOofNHM7kcC6HCzlcwuFy DvMM/2ZbDvM57MhhAYfdOOzBYW8Og8O+HPbncCCHhVwW/S/8v339//t563wm 63wm63wm63ym6vqt85ms85ms85ms85ms85mq9bPOZ7LOZ7LOZ7LOZ7LOZ6rW 3zqfyTqfyTqfyTqfyTqfqVp/63wm63wm63wm63wm63ymav2t85ms85ms85ms 85ms85mq67fOZ7LOZ7LOZ7LOZ7LOZ6rW3zqfyTqfyTqfyTqfyTqfqVp/63wm 63wm63wm63wm63ymav2t85ms85ms85ms85ms85mqr6d1PpN1PpN1PpN1PpN1 PlN1/db5TNb5TNb5TNb5TNb5TNX6W+czWeczWeczWecz0Yd1PtO/2Tqf6d9s nc/0b7bOZ/o3W+cz/Zut85n+zdb5TP9m63ymf/P/x/OZ/g+HCPI3 "], {{{}, { EdgeForm[], Directive[ RGBColor[1, 0, 0], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[CompressedData[" 1:eJwl1WV0FgQUBuBvjG42mhEjxujuZjTbYBux0YyujWYDRsNAQcEAxaDTAAWD sAVbUFDSAINUQkEJ49nhx3Pec//fe9/w5NT4lGyBQCCIZUEP8unsgcBaMg1L WMwiFrKA+cxjLnPIYDazmEk6acxgOtOYyhQmM4mJpJLCBMYzjrGMYTSjGMkI hjOMZIYyhMEMYiAD6E8/kkikL33oTS8SiCeOnvQglhii6U43utKFznSiIx2I oj3taEsbWtOKlrSgOc1oShMa04iGNKA+9ahLHWpTi5rUoDrViKQqEVShMpWo SDgVKE85yhJGGUpTipKUoDjFKEooIRShMIUoSAHyk4+85CE3uchJDrITTDaC gh4szH/iX/7hPve4yx3+5i9uc4s/+YOb3OA61/id37jKFS5ziYtc4Fd+4Wd+ 4jzn+JEf+J7vOMsZTnOKk5zgW77hOMf4mq84yhG+5As+5zM+5RM+5iMOc4gP +YD3eY93eYe3eYuDHGA/+3iTN3id19jLHl7lFXazi5d5iRd5gZ3sYDvb2MoW NrOJjWxgPet4nud4lmdYm3W/PMUaVvMkT/A4j7GKlTzKI6xgOQ/zUNYfYCmZ LGExi1jIAuYzj7nMIYPZzGIm6aQxg+lMYypTmMwkJpJKChMYzzjGMobRjGIk IxjOMJIZyhAGM4iBDKA//Ugikb70oTe9SCCeOHrSg1hiiKY73ehKFzrTiY50 IIr2tKMtbWhNK1rSguY0oylNaEwjGtKA+tSjLnWoTS1qUoPqVCOSqkRQhcpU oiLhVKA85ShLGGUoTSlKUoLiFKMooYRQhMIUoiAFyE8+8pKH3OQiJzlQB4Fg srrifxxNp18= "]]}]}, {}, { EdgeForm[], Directive[ RGBColor[0, 1, 0], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[CompressedData[" 1:eJwl1WecyAUcBvD/DeOMKzISKqGhQijR0KDMlAYls5KiJJoqs7L3DXtz1nFn c2e7M84ed/be29mzr08vvs/L36vn8/yKNW9T7/vQIAhC6CG6ExMeBLFEhgVB bnKRkxxEkJ1sZCUL4YQRSggB9xy9yx1uc4ub3OA617jKFS6TySUucoHznOMs ZzjNKU5yguMc4yhHOMwhDnKA/exjL3vYzS52kkE6O9jONrayhc1sYiMbWE8a 61jLGlaTSgqrWMkKlrOMpSxhMckksYiFLGA+85jLHGYzi0QSmMkM4pnONKYy hcnEMYmJTGA84xjLGEYzipGMYDjDGMoQYokhmigGM4iBDKA//ehLH3rTi570 oDv/8g9/042udKEznejIX/zJH3Tgd37jV37hZ36iPe34kbb8QBvuF/M7WtOK b/mGlnxNC77iS76gOc1oShMa04jPachnfEoD6vMJH/MRH1KPD3ifurxHHWpT i5rUoDrv8g7VqMrbvMWbvEEVXuc1XuUVKlOJl6nIS7xIBcpTjhcoSxlK8zzP 8SyleIaneYonKUkJivMExXicx3iUohShMI9QiIcpSAHyk4+HyEseHuQBIslN LnKSgwiyk42sZCGcMEIJIeCeHbnLHW5zi5vc4DrXuMoVLpPJJS5ygfOc4yxn OM0pTnKC4xzjKEc4zCEOcoD97GMve9jNLnaSQTo72M42trKFzWxiIxtYTxrr WMsaVpNKCqtYyQqWs4ylLGExySSxiIUsYD7zmMscZjOLRBKYyQzimc40pjKF ycQxiYlMYDzjGMsYRjOKkYxgOMMYyhBi72880UQxmEEMZAD96Udf+tCbXvQM +f9H/Afep+Gp "]]}]}, {}, { EdgeForm[], Directive[ RGBColor[0, 0, 1], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[CompressedData[" 1:eJwV0FN7kAEAgNEv3NdyLS3btmu5bdnL2rJtrNpatm3btu2W/Q86XZznvX/D omMjYpIHQZCMJFKlCILFKYPgr/7hN7/4yQ++842vfOEzn/hIEh94zzve8obX vOIlL3jOM57yhMc84iEPuM897nKH29ziJje4zjWucoXLXOIiFzjPOc5yhtOc 4iQnOM4xjnKEwxziIAfYzz72sofd7GInO9jONrayhc1sYiMbWM861rKG1axi JStYzjKWsuT/bxaxkEQWkEA885nHXOKYw2xmMZMZTGcaU5nCZCYxkQmMZxxj GcNoRjGSEQxnGEMZwmAGMZBYYhhAf/rRlz70phc96UF3uhFNV7rQmU50pAPt aUdb2tCaVrQkikgiaEFzmtGUJjSmEQ0JpwH1qUdd6lCbWtSkBtWpRlWqUJlK VKQC5SlHWcpQmlKUpATFKUZRilCYQhSkAPnJR17ykJtchJGTHGQnG1kJJQuZ yURGMpCedKQlDSGk5h9nyHdd "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], LineBox[CompressedData[" 1:eJwl1WV7EAQUBeCNztE9YjC6u7tHj24YnSM3ursUDFBCwaAbJZXGoBulUVJB 6VR49/DhPfcXnHNDIiLD+wcGBARMFTE3FrGJQ1ziEZ8EJCQRiUlCUoJIRnJS kJJUpCYNaUlHejKQkUwEk5ksZCUbIWQnB6HkJBe5yUNe8pGfAhSkEIUpQlGK UZwSlKQUpSlDWcpRngpUpBKVqUJVqlGdGtSkFrWpQ13CqEd9GtCQRjSmCeE0 pRnNaUFLWtGaNrSlHe3pQEc60ZkIutCVbnSnBz3pRW/60Jd+9CeSAQxkEIMZ wlCiiGYYwxnBSEYxmjGMZRzjmcBEJjGZKUxlGtOZwUxmMZs5fMCHzGUeH/Ex n/Ap81nAZ3zOQhaxmCV8wZcsZRlf8TXf8C3LWcFKVrGaNaxlHevZwEY2sZkt fMf3bGUb29nBTnbxAz+ymz3sZR/7OcBBDvETP/MLv3KYIxzlGMc5wUlOcZoz nOUc57nAb/zORS5xmStc5RrXucEf/MlNbnGbO9zlHn/xN/d5wD/8y0Me8Zgn POUZz3nBS17xmjf8x/+8Jab8gcQiNnGISzzik4CEJCIxSUhKEMlITgpSkorU pCEt6UhPBjKSiWAyk4WsZCOE7OQglJzkIjd5yEs+8lOAghSiMEUoSjGKU4KS lKI0ZShLOcpTgYpUojJVqEo1qlODmtSiNnWoSxj1qE8DGtKIxjQhnKY0ozkt aEkrWtOGtrSjPR3oSCc6E0EXutKN7vSgJ73oTR/60o+Y8Y5kAAMZxGCGMJQo ohnGcEYwklGMZgxjGcd4JjCRSUxmSuD73/AOmGemIA== "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], LineBox[CompressedData[" 1:eJwV02V7FgQAheGXDRjd0t2IGCitiNLdggKiIKF0KiIgGORGd3d3ju4aPbpj dI/OcfPhfv7AuU62Ju1qtY0VCAT6Sj/6M4CBDCKUMAYzhKEMYzgjGMkoRjOG sYxjPBOYyCQmM4WpTGM6M5jJLGYzh7nMYz4LWMgiFrOEpSxjOStYySpWs4Zw 1rKO9WxgI5vYzBa2so3t7GAnu9jNHvYSwT72c4CDHOIwR4jkKMc4zglOcorT nOEs5zjPBS5yictcIYqrXOM6N7jJLW5zh7vc4z4PeEg0j3jME57yjOe84CWv eM0b3hLzfuSgQCAWQQQTmzjEJYR4xCcBCUlEYpKQlGQkJwUpScUHpCYNaUlH ejKQkUxkJgtZyUZ2cpCTXOQmD3nJx4fk5yMK8DGf8CmfUZDP+YJCFKYIRSlG cUrwJV9Rkq8pxTd8S2nKUJZylKcCFalEZapQlWpUpwY1qUVt6lCX76hHfb7n BxrQkEb8SGN+4mea0JRfaEZzWtCSX/mNVrSmDW1pR3s60JFOdKYLXfmdP+jG n3TnL3rQk178TW/68A//8h//05d+9GcAAxlEKGEMZghDGcZwRjCSUYxmDGMZ x3gmMJFJTGYKU5nGdGYwk1nMZg5zmcd8FrCQRSxmCUtZxnJWsJJVrGYN4axl HevZwEY2sZktbGUb29nBTnaxmz3sJYJ97OcABznEYY4QyVGOcZwTnOQUpznD Wc5xngtc5BKXuUIUV7nGdW5wk1vc5g53ucd9HvCQaB7xmCc85RnPecFLXvGa N7wlhkCw/xNEMLGJQ1xCiEd8EpCQRCQmCe8ARgzgbg== "]]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], LineBox[CompressedData[" 1:eJwNxGOAFgYAANAv12rZvmzbNi+7Lusu23d12TVkbbXl2nLLDVlbxpax3Jbf j/eCQsKCQ6MEAoFIJYgWCCQkEYlJQlKSkZwUpCQVqUlDWtKRngxkJIhMZCYL WclGdnKQk1zkJg95yUd+ClCQQhSmCEUpRnFKUJJSlKYMZSlHeSpQkUpUpgpV qUZ1alCTWtSmDnWpR30a0JBgGtGYJjSlGc1pQUta0Zo2tKUd7elACB3pRGe6 0JVudKcHPelFb0IJow996Ud/BjCQQQxmCEMZxnBGMJJRjGYMYxlHOBGMZwKR TGQSk5nCVKYxnRnMZBazmcNc5jGfr/iab/iWBSxkEYtZwlKWsZwVrGQV3/E9 q1nDD/zIWtaxng1sZBOb2cJWfuJntrGdHexkF7vZw15+YR/7OcBBDnGYIxzl V37jd/7gGMc5wUlOcZoznOUc57nAn/zFRS5xmStc5RrXucFNbvE3/3CbO9zl Hvd5wEMe8Zgn/MtTnvGcF7zkFa95w3/8z1ve8Z4PfOQTgeiBQBSiEo3oxCAm sYhNHL4gLvH4kvgkICGJSEwSkpKM5KQgJalITRrSko70ZCAjQWQiM1nISjay k4Oc5CI3echLPvJTgIIUojBFKEoxilOCkpSiNGUoSznKU4GKVKIyVahKNapT g5rUojZ1qEs96tOAhgTTiMY0oSnNaE4LWtKK1rShLe1oTwdC6EgnOtOFrnSj Oz3oSS96E0oYfehLP/ozgIEMYjBDGMowhjOCkYxiNGMYyzjCiWA8E4hkIpOY zBSmMo3pzGAms5jNHOYyj8/WaLIl "]]}}, {{ Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[1, 0, 0]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 1, 0]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 0, 1]]}}, {{ Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[1, 0, 0]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 1, 0]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 0, 1]]}, {}, {}, {}, {}, {}, {}, {}}, {{ Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[1, 0, 0]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 1, 0]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 0, 1]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {381.875, 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 -> {{381.875, 780.}, {0, 1.934819}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"X\"", "\"Y\"", "\"Z\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, ImageSize -> {20, 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[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], 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[1, 0, 0]; 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[1, 0, 0], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "1", ",", "0"}], "]"}], 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, 1, 0]; 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, 1, 0], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}], 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, 0, 1]; 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, 0, 1], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", 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[{"True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.839443132673908*^9, {3.839443748610054*^9, 3.839443772048558*^9}, 3.839443874404031*^9, 3.8394446078252897`*^9, 3.839446610482253*^9, { 3.839446671699855*^9, 3.839446691001384*^9}, 3.839447126221534*^9, 3.839447271011643*^9, 3.8394474644141827`*^9, 3.839451228827359*^9, 3.839451624833221*^9, 3.839452094921879*^9, 3.839452295524588*^9, 3.8394534800577106`*^9, {3.83949797528411*^9, 3.83949798849233*^9}}, CellLabel->"Out[23]=",ExpressionUUID->"14896312-56d5-4de1-b31c-320b384d6e62"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["2-deg fundamentals based on the Stiles & Burch 10-deg CMFs \ (adjusted to 2-deg)", "Section"], "\[LineSeparator]", StyleBox["Rods (R) response from CIE \ \[OpenCurlyDoubleQuote]physiologically-relevant\[CloseCurlyDoubleQuote] \ luminous efficiency functions consistent with the Stockman & Sharpe cone \ fundamentals.", "Text"] }], "Subtitle", CellChangeTimes->{{3.6472069892556753`*^9, 3.647206992644547*^9}, { 3.64720706386841*^9, 3.64720723066249*^9}, {3.647207262730607*^9, 3.647207325235694*^9}, {3.661121273814883*^9, 3.6611212811271257`*^9}, { 3.6611836316553793`*^9, 3.661183634470564*^9}, {3.6815771809416018`*^9, 3.681577182173439*^9}, {3.839450617122533*^9, 3.839450672885618*^9}, { 3.839450717287334*^9, 3.8394507741829967`*^9}},ExpressionUUID->"7406aa00-ad51-4be8-9076-\ 280c11689b0c"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "l", ",", "m", ",", "s"}], "}"}], "=", RowBox[{ RowBox[{"Import", "[", "\"\\"", "]"}], "\[Transpose]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "r"}], "}"}], "=", RowBox[{ RowBox[{"Import", "[", "\"\\"", "]"}], "\[Transpose]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "l"}], "}"}], "\[Transpose]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "m"}], "}"}], "\[Transpose]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "s"}], "}"}], "\[Transpose]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "r"}], "}"}], "\[Transpose]"}]}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", " ", "\"\\""}], "}"}]}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Green", ",", "Blue", ",", "Gray"}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.839443174827423*^9, 3.839443196909202*^9}, { 3.839443400964836*^9, 3.8394434479246693`*^9}, {3.839443716857606*^9, 3.839443721925293*^9}, {3.839450416174512*^9, 3.839450417142445*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"4b91fc06-decf-4901-8565-882e55398b52"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJztnfVfFG/09hcTGxURAwUTE2wU47KxUQxsTDBZA93emdm0cFVEbGzsFQt7 bewVC8UAMcBAbDCfhT3D5+s89Q8sv/h6v0CYM2fnvs+5zrnneI0PHzSpkEgk 6lRaJMr7N/8rRIJWj8oFxjT375TPYgk63Hy4wyiBnRkJKmdOOfjtVVc7myRI TJ6Y0eJnTzvHShDZTPZy/42+djZL0HvMM3WF9gPtbJHg4ePuQ/ULB9vZKkHR 95jQc2ywnVMlUEX2+xF1aZSdsyUYWDdpwNqXIXYWSVHk8c8Z8ccn2NlFihp1 9QNErybb2VOKoWHyAZg51c6+Ukyf7/t08qiZdoYUHfwzGu0ePcvOgVIE+O3s 1OT6HDuHSHG0siGzGTOP7Jei3oZO+8VSKdkvRdNHpYtuj1eQ/TYu3Ltq2fIM 2S/F6avhpSIes2S/FIZKt2sXOagh+6Xgqk64Xmi5juyXInBx49UTpAayX4qL 1Yt47J26gOyXonPQpJuZYYvIfhl2sa/mZM1bQvbLsKzcvQ8epqVkvwwNmlS4 0uO+ieyX4drvC0cnpy0j+2U4nnxokPOL5WS/DJvLVLMcebiC7Jfh4/CMqGUX osh+GXrX2zFPv3Ml2S/DDLb/oF2R0WS/DKL9DW23fBXZL8OS3SlvNPNiyH4Z vKYNa16eWU32y3Bi1rq6FaLXkP0yhCU/He1xZC3ZL8O9Uqv17Z+sI/tlaLPZ 0+O88wayX44OXWY/OOq3keyX41XIsuM5rWPJfjlqud1vfvousa8cbV77B3Wd t4nsl2NRtaMxG6ttJvvleDZ9zgTZOeIQOTZqPA5LQreQ/XJ86Br18lGxrWS/ HKNlb3pK1xGb5Jh+NMHLq+42sl8O5YXcl082E5vlcJlqTZtWZTvZL8fme3Xu /FpMbJXj7Z8DLh6FdpD9crDrFlXdoSDOlmNW19cmn1/EIgX6r4wKcVPHkf0K ZG6IWBJdeCfZr8A3LfPgnIHYVwG39v63IkvuIvsVKLeiUlj1pcSBCjx+9cDz SZXdZL8CrnvclLv2E4sVMFVruevckD1kvwLasybf0PJ7yX4Fxs8e7o9XxLEK vBl3vunLB/vIfgU0ty6unPJmP9mvgPqGpmjnZWayXwHPGUm1f3U+QPYrUOwj 6/G3aDzZr0B45nNmxyNikRLWT6tm7Tt5kOxX4ma3WqpycYfIfiV29V1sORhz mOxXYqy48u7KS46Q/Ur8GX9k4hDtUbJfCZ+KbyKnKhPIfiUe38XntvOPkf1K 3JbUMn4WHyf7lZh4oF/DqtNOkP1K1H8SnVg09CTZr0TgwqFZRSefIvuVGFnq oPXmlNNkvxKDZ6W7fZ5zhuxX4uWHpwMndLGQ/Uq4Xo/hWt0kzlYi6330C2b0 WbJfhVlDHs7vnk3sosKPpJSNi/TnyH4VhlTs9qS453myX4XdK1q4zj9JDBXi akwRjxx5gexX4aSpbLlxv4hDVOh+fGOQaeNFsl+FiCt+PeJ7XiL7VajyqsiM 2TnEJhUCZ4hr/Th8mexXobXX3mYZ2kSy33Z9t9bUVE+5Qvar0KGsJrfRxKtk vwqGCx2iO869Rvar4GMM6Hci5jrZr0L+r7PeIPvVeNI9ZvOoqrfIfjXCufA1 Hf2tZL8aLR9M2brtE7GvGpFvn31dffA22a/G+k0J6f1USWS/Gjfapf98PugO 2a/GVLew+QHN7pL9ahT7PCxxVJV7ZL8aQcXKhmWWvE/2q7Gy27fO0UUfkP1q HL0telqoRDLZr8bm2x4Xbro+JPvV8Pl+ZSDj/YjsV4MbvNBjSdcUsl8N9eb4 cf0mPSb71fjhXbupaMkTsp/B9LHweXzsqZ2dGZSb2OHwjzfP6H4wKPbp3ae9 S1Pt7M7gvpPL/K8N0+j+MIgsquu8+hKxN4OU73Fnxox7TveLwQfPedutucR+ DMZsbPs2KDKd7h+DIYEDvzbyeGHnAAa/c/os+rGVOJDBgYH3w+vVe2nnYAa3 Jk2tcHITcQiDdvMCF7x1f2XnMAbmK1W/uiwhFjPwcR81p+dfYgmDo9L0rb7h r+n+M9gzq7WH02NiIwPXg2NKv+yWQf5gsNbzTUfRTuIYBlVnDKnwsHgm+YfB whuXD28aTxzHYGJU6JiyJ4jNDCTjph35VOGNnRMYLB24Qdp2OrGFwaCjB/e3 TyROtP2+IkE39tR9S/5kcOpPnY7zOeJkBh41zuVMeUycyiBnYJmfHZq9s3OG 7f+Ldsz/qCLOZhCd0fig80XiHAZ+bOahmYXfk/9ZZJTf8tqtHbEzi6XbZc3/ hhG7sDj87NGC5SZidxYvwiL3/Ion9mTxs9amJq+TiL1Z9D4orV7sM7Evi93z EzyqumWR/1n8YYoXc+lIDBaivAdgCnEAi7CDb+YcXkkcyGLJqpkVNBbiYNv/ HxvxIuA1cQiLfpb9y+o4fyD/sxhRvtXt17WJxSz27C502L09sYRFnYRl8d0H ETMsjgW1C/4bSmxk0frapC1zVMQmFhVVOze2WUkcY+Ous5vP2k0cyyL9Vz/v bhbiOBZNI6/2u5tEbGbxrZ7+xcTnxAksCn08rjqbRWxhoR+2vP2D78SJLJ7v /Ry+6jexlcW4oNcDP/4lTmahW1my4a4/xKks3G+2um7NIc5gEeI1Z1Lge+Js FhHXyn4sl0KcY/v91/e/Ep0lFnH4tbDVqBcbiJ05sO++Zi2dT+zCwfXQlbQV /YndOWwpvNwcXp/Yk8PAsOHflxYl9uYQUevs4BZvyT++HJq2zYoqe5/3P4eb 6b4xZ87x/udQqUbLE1l7ef9zKGHptK13FO9/Dpcn2XbQObz/OTSqNHjw7968 /znYHv5ho6oTh3GYkDWiS8cM+vyJOZT2X9xLvZ9YwuHFl6+KG7OJGQ7a7t3X 9W9ObOSwfNSfrj/e0/Ni4tCu1rNtd7cRx3CYvNl5Z8pw4lgOg1vv2dm4JHEc h4z+5r/tjtLzaeZg/Xj7+eJxxAkcbJsBNpcgtnDorcgq8nM///xzaF3EZvFg YiuHMZ865Z74TutJMod+Ps2iM1cRp3L4HXpj6ZmWxBkcPjuxN7feoPUqm8Om hxHh3ccT53CoHBD4y/0zrXciDcRRJ9tdZoidNdA2uLrtYyliFw1erXw7o8VK Wj/dNUiqqunv7EHsqUG3VnWHG7bQeuytgfrszOQj3sS+GjxdmuKzcQ+t534a 3J14KaW3DzE02F/y7vhsM+0HARpgStzAgObEgRoMfinvUesQ7R/BGhyf/OlG 6zbEIbbf5zIkp8VJ2n/CNKgeXUw1uCuxWIPwh15/xl2j/UuiwdDP1Zd9GETM aNCzejw79wDtd0YNOqyzzB1xlPZDkwblX8RqVx+h/TJGA31E+pNlB2g/jdWg X7PinXvupv02ToOR774Nn7Sd9mOzBm/D8z7RtF8naHAkNLpI3E7azy0a7Gy+ +ETnQ7TfJ2qwLuiKKPAixQNWDfwmzTxd/gnFC8kabOo1vtexnxRPpGqwvoLL CrEXcYYGsoXVa83sT/FHtgajVszs84Kj+CRHg0G27efdaYpfRFqg5ecXawoR O2vhlbfd9aN4x0ULv43thjboQPGRuxaHMtaXTHhN8ZOnFm/Py7YM5eMrby0u 9xr3NL0vxV++Wrye+aBPUBGKz/y0uKQr7DXcQvEctFBGDIl101C8F6CF3vT5 T6f+FA8GatG2p4fHsNoUPwZr8WVr36lhhfn4Uov4sj2HZWZRvBqmRXbr8HWu ryieFWtxKtJvYuFMin8lWsTOaPV28QeKlxkt5Cl9dZI6FE8btRj3q2XWjXCK v01auO0YYYu4KV6P0WJz1OFPbXpQPB+rRWkny4HQWxT/x2kxZ8X4ZeJplB+Y tSg6MbfImiqUPyRo8bn4GKPvQ8o3LFrMcp26itlJ+UiiFqU+zC7/bAHlL1bb zzceNDtGSvlNshYlPS8dfvuB8qFULV6M+LPE4Ez5UoYWbbhc6y5/yreytVDs G7mztJHytxwtFnY/t3fWOz7/0yGr3zn//aGUPzrrkD73/eRNOZSPuuhwaOS1 iX4bKH9118G8/ql85jDKbz11eDpv07H+tSkf9tZhctEIxs2Jz5d16FB95u2K qevJ/zpYdi+s9Ogp5efQ4Uv/oo8//6J8PkAHj/67Ll/2o3w/UIet5XY8yV1K +kCwDmeM5T1Gi0g/CNHh6sK0NyIj6Q1hOvyc8v5ym7qkR4h12HL26I+fvH4h 0SHhwMNlb/xJ32B0SGs3bdTWr4vJ/7brHVyi6MiUheR/He4vz2y05Z2R/K+D 7nfGy7P1SV+J1WHcpfBJLwykv8TpUG1ItfstnLXkfx2s3qN/rNrKkf91GNjB GLRuOOk5Fh2SvD+NiapDek+iDiWSv8b1cVaR/3Wo+D1wgTFLTv7Xoe/cFj5X ckk/StWhXaWUqd/rS8j/OiSH/673aB7pTdk6cKvKX2TT55L/dThgkL2pN430 KZEe4uHTfUNKzSb/67ElLrdP8XNi8r8evhHM109Vw8n/esSpXJa+fDid/K9H r7mprzacIX3MW49zz3Y32XE1jPyvh+T7g9GTc0lP89Pj18tyT2r0nkT+16OW f+m2Obz+FqBHs5tem1x7jyf/6/GnaYkta7+SXhesR+ZJbQX1/LHkf9v1u2bd qtNqNPlfD9mh+m1QcyT5Xw9zRI/XHZsNJ//rkZulrlQ1dBj5X49RRSZY+5wa Qv7XI2z310+5vqQnmvQ4+KvRx02WQeR/PapPDIxIm0r6Y6weQzKe3evSNJD8 r0d8rzVVnlXoT/7Xo3vRREX81z7kfz1WT42eXM2pN/lfj9a735cb1SyA/K9H 9KvTb2tqepD/9SjT+k+5OZ+7kf/12No5uMlBNemlqTb/HJ0niq7bhfyvR6W3 ++PLp5O+mq1Hn0eSLWundyL/236+9suTbf07kP8NeDjmptswH9JnnQ3Y5f16 6LWebcn/BnTI+fzaoGlD/jdgZ8zSil3SWpH/Ddjo0sZXO7Yl+d+A/VXKnhj2 qzn534BSzP7snoeakf8NqPbuclKuxpf8b4DT0kvb29xuSv43YOLH9ecjzjQm /xvQtPiK7mVvNST/G1D99rabS/94k/8NyI1r0NWpX33yvwGl2wdMbnKsLvnf gDkDat640bkO+d+AN+n7qsx6WYv8b8Cpx7qEQpu9yP8G6N/3nm2K8CT/GzCy pfRB1Mka5H8DtuuGenw9VJ38b4CHyG1D+9tVyf8G3DtbTjS3bBXyvwGvF/3O fDWlMvnfgA/XztX2SKtE/jdg/KKy61/NciX/G3BgWOja6VUrkv9t9h29P2bl w/LkfwM6O/X1n7bPhfxvQMX2H6sn+ZQj/xvg/TN9cemGZcj/BlTYWP9J5V6l yP8GtO+77FinBSXI/0a4ZqZJfr0qTv43Yvz54ZNaji1G/jdi8aLBjTt9KEL+ N+Jj7uN69VcWJv8bsXxhtb/LAwuR/404uyDwRB8vJ/K/ESMWxTx4VUxE/jfi TQLTYJPTn452/xtt/kvyqF39l50DjFg/rH3HsOE/7BxoROnGpaovPpxj52Aj +r7tWq1mk+92DrH9/NreLv6nvhJLkDAxKuNpbT/yvwS9ir29OGsUfd4ZCU62 7Pex2p3O5F8JPqQwbT6v6k7+lGB9Vv+7wW70fJol+Haq+LibUwaQvySQNl+0 3PiA1gOrBDWMM7Oi2aHkDwkOjnw32+vsCLr/EuxudWr4qc20Xomk8GyQuj04 htY3FymirzLBKcdoPfSUQvJq4Xdjhyl0/6QYfNDzu1eTGfS8SLGrXJ0P1a/S +hwoRflRaxVT8F+9QRrZ13xD9F+94f3JPgdOlv2v3lArZcPF71P/qze0eDCr UlaJ/+oNdyPMlWcUov3KLMVOxvPl9Wq0n1mkmDa63LVSQ/RkvxSRQVWm1dlH +2OqFGdL+Ms96lN9IVuKJifc0uMtVF8QyVCkepeVazrQfuwigyFbWi5tJ9UT PGVY1Wpo8Ze1aD/3laHfahy5vY3qB5DhwtTndwb5UDwQKMPhknua6E9SvSBE hvcXi51d3Z/iCbEML0uNCLBkUH2AkaHlJ+nFoKVUDzDJkBsRXe57T6oHxMrw dsyT0D6lKX4xy+CnmG9d5kTxjUWGVn1GL+lZhOIfqwzy9BFb7rpSfJQqw7DC bW/saEHxU7bMll++eZ4SQvq9SI6fHz/dCl1L8ZaLHB9HNai0IY3iMU854sJX 35nUjNfb5Sg9zjSgtpHX221cOHrUxecU3wXKcXJX8Kb3HSj+C5FjxcrjZ+6t pPhQLMepLvc2BLwivZyRo81k1aN+KymeNMlxfdCvBht9KN6MleNBl0cuTc4T m+WYX1nzvNYgik8tcoReafK94jNiqxybYsYFfJ5O8WyqHNbSzwv7/yHOluPI r2rlyi8nPV2kQFmDyH95PYqHXRS47h8zZs8xYk8Fjtws8dalF8XPvgrkZcdz 7vB6uwLX+vksHjCK19sVSKi9zu1kBnGIAlcXzKs0SEX6u1gBr8f70lrUpnid UaDX/bSMhk+ITQp8n9dntmUfxfexCuwqWeZC/GrS480KTC9e+1uJWMoHLApM uiiOEF0gPd6qwIhvdcxti1M+kWq73o6Xey5qwevtCtwckpdwEouU+DTuW/z7 Q7zersT8fAGX19uVmFJl5/fB/Xm9XYmQjsObjfKgfAdKPDRvj/d+x+vtSsQ+ 98ueeozyoxAlDrfoO2OnhvInsRK76n9eeroX5VeMEj4X3iz1LU35l0mJ0kPX TW1ynThWiWalg2dXWkT6ulmJvKuR96b8zaIkfYDyO6sSJ4spM9/f4vV2JWbN GjxzczSvtytRq/rBd71CeL1dhb/DP6f7NLlJ9qtguVa62qTfxJ6271/tvWKQ lfJNXxVe9lh2WD+I8lGocOKu8+++p4gDVajrtezIx/qUv4aosHZOdt+w5cRi FUyaCpMf/SFmVJif3G1yUzHlwyYVarV6P35NJnGsCjXDiur3zKT82ayCNK9c U4jya4sKvhMjdr/eSmxV4cou5zZVhlB+nqrC6OaRy96Vp/w9W4X0wdPGuT0i FqlRrMzviqP2UL7vosZ4bXZYupH0AE81ogYsnVFFTHqBrxrnT4y6MH886QlQ o+uf1Z0VIaQ3BKrxp+TqRpqppEeEqGH2WJxcnyG9QqxGhw+XuHOxpGcwakR3 nNtZeY30DpMasRde9zerSQ+JVWPSzq+qLR6kn5jVKHSyaAXXM8QWNabXy6tw kv5iVWPDykPPq5UkvSZVjWeVzv4dGk+crcaiHXkFItJ7RAw6lzs8w70o6UPO DOK5Z3r3/cQuDLY3Su7RfjivNzFIb/Gw04DCpEd5MkhakCeQE3szaH4lcXhy EOlbvgxmBAcNd/1G7MfA8Kzf0Xcm0sfAoMrF2X12e5G+FsAgsftho/d24kAG pmbzm3jVJH0umMHEWtseto8kDmEwLKoCN+QrcRgD2w9/mT6U9D8xg2J9Ipx8 DhJLGPSddid5TCleb2TQbM3K913H8Hojg/BGp1pX201sYvB5RIkndT8SxzA4 iV5sUV/SN2MZPCyqmZYVRhzHgPWEPnI9sZnBqLx0/RZxAoOY3LKq5yJeb2bg lLNj8ILmvN7M4GmhEgtrTuD1Ztv9HVp3mdLE680M/AcHLY9I4PVmBjUWzRh0 O5nXmxl8Pd49ZM8HXm+22Z/cc8e+X7zezCD0/iA84vVrEYsXvTuU6pLL680s tq8Z3scpk9ebWVSYPurvvlu83szixpVFfS37eb2ZhbT258Sai3m9mUWl9rpR O3n93pdFoYbVOzfsTuzH4sjJ2adm1CMGC0mIKK1rCeIAFobzSZalb/6rN+zs 26x458v/1RuaVlv/OWjdf/WG9psebLwQyuvNrF2ubEQstl3/44CHtTJ5vZkF O8/gWngr738Wy94rOrUq8D+L0B6dqvavwvufRX/vbhavu7zezGJbSoVjqYt5 vZnFhbqX1yd15vVmFou1R9b1+cjrzSxCVrR647WG15tZTN542ftWe15vZnHp ieeIRo94vdn2+zVf1WXn8Hozi81lLMW6ORMns3ieWHhZ9zW83sziYLfQ1d29 eb2ZRdrops/9D/B6M4tJQz+I/VvyejML46lAyzwzrzdzGOh2+vT9urzezGHj 8Aqx26PpeXfhcL7xoTlrivLPP4e8bpEmEbQ+eHLYMr9h6obXtJ54czh4a0JU 6BhiX44+n7T++HHo0X1d//ghfL2Rg8Ht4c3vd2j9CuCQ3XL1xyODiAM51BP9 jWp4m9a7YA6pvrc9iw4gDuHw64U3XK/TehnGwf/83eh2AcRiDtUPn/tySk/r q4TDvlDny43l/PrLYWbzXaXTZ9L6bORQ6u2lE7Un0Pptst2fp5dvVx9O63sM h3WV659+NJDW/1ib/cU7FmvUn/aHOA6rnEIbDO/P14c5LMwLfwbR/pLAoZLp WyfLCNp/LJy9fhZK+1Uih2hz60v9Jfx+xuFY+OH+oyJp/0vm0G3R9Nc/d9L+ mMqhEDPh1oZrtJ9mcPCrEGbe+Zn242wOb/e4JU+oRZzDIaml95riZtrfRRos WLVjTvcGFA84a1Bt4vJlB80UP7ho0Mk/9fj4HhRvuGsQ07fS4t5vKD7x1GBh 4Yzvv9dSPOOtsde3RlK846tBpdQTN6rVp3jITwNNv/U9L/7l+xU08FRPGbjx BcVbARqoWzQbbbxH8VigBldeVxrQIYnitWANCt2Z8qTYYYrvQjSInZZXMKf4 L0yDpxGtX2ysQvGhWIMmN91fFZlB8aREgxZbFz4fcp/iUUaDQRO6XK87hOJV owZdrn7JLplJ8a9Jg5euEi54GcXLMRq41ntdM7kvxdOxGmx7NW5Yr6oUf8dp oGqSm7kgh+J5swbG5JC0Ojco3k/Q4HqP179cL1N+YNHgRtrfFh+eUP6QqMEA pvL0hy6UX1g1GBu85XzGGOoHStbg1+5abWpcpnwlVYM3nzo39AygfCZDg8xX jX+vfEb5T7YG0zNKXWqyiPKjHA3qV7/X7UcA5U8iLfbVDp48sjLlV85alLn3 9GObt6QPu2jxNHD9wV1XSR9212KNZqibv5XyOU8tqpZpeGLXb8r3vLXQeR9f cDiI8kFfLQJ+HFr4x0r5op8Wm10nDPg4k/JJaGHa+heu9UkfDtBCcb/ViLJf KB8N1OJI+QHzWmwhfTjY9vN3FO3OSyl/DdHib/1HZqfplN+GabFNnSVOlVF/ nViLZqnz4l9uJ31YokXIi0n9GmeTPsxoceBj2K+6QymfNmpRaWiJNWceUL5t 0iJyWkPvmDmkD8do4VruaZlgbz4/12Lq9vtDe2Yqyf9a9Bq7V63YR/qwWYuh c97+XLaB8v0ELZTpLm7Hj84n/2txf2u6xikngvyvxagLHY72HU36sFWLKi+a nnN9SXpwshbc1blnIhZRf2OqFvXrHStzqC/pDxla3NtZ7dTgPtQPma3FcX07 b7/6pA/naOE33hRm8SZ9WKTD9X1bd3XtR/qwsw65x01tIpeTPuyiQyFxiK/h 20Tyvw6vB1aI9J1P+rCnDvLsMU8PVCD9xFsH2dQ2n+pfJn3YV4cW3i+irtYl vcVPh5Zfli3WZFD/J3TwT6kvZu6QPhOgw47s6ptup1O/aKAOwysUvj3QjfTh YB3MQQPHlQ8jfThEh9UzG3mOux9E/tfhm0Ht/3sM6UFiHSpOepvdRUT6sESH UWMPjfWeS/oRY/v+mnjsce9H/teh40nfVQ3ek95k0mHxgDcrvLNJD47RYYpl 56NmNfl+WNv9afWkpTyC9Ko4HbZ17DC3VxbpwWYdmn3vELdCR3pwgg6WY/GB j9qQ3mXR4eGfZ7U6FyJ9OFGHqz4nUpiLpI9ZdfA8/ftG3/2kByfrsKJEcNzp 06QHp+qQ4BS0TPSR9OAMHZiQCsMmdG1N/tfhwtuDvj4HSQ/O0SGjknpeRocW 5H89nFPnVJuURnqwsx4rKzU5vmkt6cEuevjvavOt6X3Sg931MM8IK5S7nvRg Tz1mjMkJ67yE9GBvPb7F3ium3Ex6sK8eU1daL35NqUf+12Pyh6Uzj7UhPRh6 aH9PrzH5YG3yvx4Ty579tLov6cGBerg1KLGinhPpwcF6bJeu2/lkfU3yvx7T fsxwcgrzIP/rse45oxgxqhr5X4+kh2G9Hswj/VeiR6EDdVr9PUj6L6PH9GtH Ku50cSP/6/HnfIJz+4Wk/5r0aP9081q3mqT/xuhRw63806s3SP+N1WNt6Ma0 N1Gk/8bZ7ufSHaervSpL/tfj2bpu0eNvlCb/6xHYtZT0UUpJ8r8eDRZKzOll SP9N1ONV1qGGXUJI/7XqcWhilMzDWpT8r0e36Qt3fhhB+m+qHqrLU5qd/EN6 b4Ye+q+Ltx85Rnpvth7FOhea4reQ9N4cPcYzlXuxT0jvFRmwL6i1rN510nud DTgTP6hXnWek97oYsK78q0MzK+Xa2d2AQ13bFT48g/ReTwPWdjn2e+Er0nu9 DXj4bgnzTPnFzr4GHMCMQ1V8P9vZz4Av3e8+X537kfRmA5wb9Jww5kE26c0G TPq53GnHkg+kNxvAJO3eVmvxe9KbbX+/2tQyPXa+JX3ZgOrP990MfJFp5zAD Tnlc62Bqn2FnsQGN+opkH82v7CwxoPSfmi+C8NLOjAEXz14on5qRbmejAUsa PEw+EffcziYDthlrTm2nSrNzjAFly46veCU01c6xBtRbF2GxXn5q5zgDWnrE 4U3aYzubDfj4qKYoqWqKnRMMqLYisMz98Id2thjww9TvffTTB3ZONMCkLhHj Pem+na0GeJl09fYXumfnZAMu3djcdOqRO3ZOtdkzoHnxZeokO2cYUKSXrkT3 0bftnG2APsBjaFh/q51zDJDvadttwOab5H8j9n3t233s5evkfyPuX0oo+dT5 GvnfiDqZqRPKT7xC/jciqFZGyR/3L5P/jTh4umyxceMukf+NeHnxyz0Uvkj+ N8Jz7fFCg06eJ/8bkfneUtVt8bmCeoNz2QVt1846W1BvuF79iGfsVEtBveFM aHStpMzTBfWGI7WiF+RUP1VQbzjhZL4/cdqJgnqD81/dcsMS6scXSyCutfEX x9H+z0jQtUPyKXEXqi+bJDj78dKKrByKN2IliNoj7eY/muIVswTaMgP2R02i +rdFgo0hI3zSGlF8ZJXAq2K73I6TKZ5KlcDCHJv1Kp7XmyXQxLfTWBdR/CaS YuuY7Y9bOFH85yKFuWr2hrjypO96SrG3h6U540Txpq8U6m+1u08MpvgUUny+ fm3cdw/SQwOlWHh9VOqnYD4eluJ2h7dVmxSneFosRWRmiT7tY0mfZKRgi1xc 2mw+xesmKSp/7ZVlXkDxfawU3aY+utjyDuUDZinqT/kTc3875Q8WKfav2u4s llH+YZWiRp68NZ7vf5FiwPB+DyqO5vU2KWTP245EGOVDIhk+HTiBXizlTy4y /Jn0/cW4TZRvecpwtFtTP80Zys98ZajxI2todBjlc5Bh70LxioGTKP8LlGH4 NO/DlQfy/UcyrNbEbhnShPJLsQy/v2xs1ekPMSNDbYNxbdAVyk9NMqRWYNS9 V1I+GyvDu9MTJO9CKd81y/Cy24mSDTpRfmyRwbthtfuD3SiftsqQlrB4bdUM 4lQZliVcTjLso3w8W2bbP14czZhI+btIDkPLhuL4MpT/u8jRxv2N+dxeYk85 xuYnWKQn+MqRL1++IYYcmePv9Pbi+z8D5ehT6O7d+Fa8HiJHfjnHyusfcqwK VwaHD+b7K+XondRqRfgRvp9Sjnm/uSdmvj8xVv6vPmSWI+lP8eDd33i9Sk75 Fq9PydH16oBdyuO8HiXHnkGy7atieP1JjsKH9k5eP4vXmxS4uKtzTEoHXl9S wCNyX9KTr3S9ngpIpe2GRS3n+xUVWPH7c8sQF74/UQGvA086YD5vvwITOo8L 3H6b7k+IAkfVk7b1asDrfwo8sAwt4Wag+8so0Pfnqz9vPpI/TAq0vrI0p9I0 4lgFBvY/tNv0ie8XVsC/zYxLU4zEFgWU7b882duY2KpAiVZdd3k/5f2vwGRN 3+azo3n9RYGANuc21+pPLFKiWciVIY3/8P18Stx5kpew8nqqEu9iKzxo1pTY Vwn3t9ViHsfR5xFKlIsx9M11IQ5UwrPhkpiHoXz/tRKjW90qn7uPPt9iJeaO vTl9WAb/+VdirLVLoR6ViU1KzMh/QOj5iVUiM9vl0oAJvN6sRNKMBaPEenr+ LEpsC3s5JmQo6SlWJUy9D2yZFUf6SaoS649/Gr6hON/frsTFxOVto+fT8y5S oWbjCV3b/KT1wEWFEce5GRdWkD7iqcKtsN3LEzvS+uGrwrlAQ6WZubS+QIX1 yV1/Bp8lPSRQhYvX7hzbHEXrUYgKdzTcoEOz/6s3yNJu6paNofWLUaHJyLeL tEdI/zCp0Mfsty73HtVHYlXoWahM64gapH+YVTj78sDkiab/zjd4szfaSuqR /mFVod/kk3u/PCK9I1WFhfvnub6OI70jW4XxPq5mj8W0/orU2KCQTb/GkP7h osYCeWNlBsfXm9QIi5itfx5J+oevGp0bXoy8tIn0D6jRI2RPeMhsWu8D1fC6 eb5E3x2kf4SoUXGD9e2A57Q/iNW42G7I6dA6/PkWNUyHrc9WziT9w6TGveh2 iW/PUj0vVo2+I/pe/u5J+odZDfnTjNPfl/P9cWrMzL41NLwGX29UYx4Sw+5c Jr0j1Wbf+9vVsmqT3pGtxuJn4eXW59L5IhGDtV7mG15FSO9wZlA5tPQcrjXV V/PONzyMV4zWU/3VnUH73SfCVG9J3/BkUMiwe8zDENpfvRm4Xvza1via9A1f BqewtZ2Epf3Yj4E2rULrTz6kb4BBy2Onekle0/4dwGDEgRKyY6tJ3whk6LwK 6RvBDPA8ftLguXw9m0G9/IZw6ncLY3CgxqDQXimkZ4gZvC8XlfKtA+kZEgby Xbmp005TfMEwGF6xlKL70Ug7GxmUnbtFdcObj0cYvDnjnnL4JukXMQzc2pWc dnob39/GYNL+JD+fnXx/G4O07swAzV2Kd8wMFihaej+uzfe3MdhRpvCMJytI r7AweLxyx6mkrtTPlsjAa2qZaX1Wk15hZTCs+v0ZB+uSXpFsu74qjb37v6L+ hVQGc52rl2iZTPpEBoOOr+ICGuaQPpHN4HvmsNPDupA+kcNg6eSWpSpPpn41 EYu46vfSbi0hPcKZxdh5d4Ye/0r9FS4sluQ2yWkfE0r+Z1HJOULcUsz3Y7BI f3ZV/1lC+oM3i+w16TW67htH/mcxtXafre1Lk/6Qd76hzHz2bg3qRwOLXcFF 3HOn8HqD7feP3bL24BfSFwJZ7PMPqPTqGOkLwSy2Las1N/EQ6QshtutLVK85 lUp6QhiLT8MnjnrvR/1mYhbDtPXUB2eRniBhsVw5em71Y6QnMCy2vLmytHhn 0hOMLOaFrx3vX5j6y0wsWtwJPyP9QfpBDAuvhh0HFa1F+kEsizm53VIMEaQX xLEIXqx7UfY56QVmFmUCRq846kV6QQKLTWuCndptof4bCwvX6nuHTgohfSCR xYkVkrIbg0gfsLJwdzmceHs+9YslsziVsz80JJH0gFQWWu+yC7pypAdksBjY stPqHScbkf9ZhK5sucO1bQPyP4uTmbFLh3yk/F/EIarIutaXn1H/lzOHJc/j aoz7S/m+CwfnEnqzuA/l++4c2ik3L1ytpnzfk0PEkjuThxygfi9vDjOvzoto U5f6vXw5qO6KU5zvUX7vx6GOLOJdgxPU3wUO92/9/MUkUT4fwGFF22KaOW4V yP8cquoCfO9wlM8Hc5j0pHLRw/Upnw/h0HHG8zXtFlP/VhiHyMAy9Yo3ofxd zCFpSN8fsiKUv0s4tNC8Oa4vQ/k7w+FtG32/FV2pX8vIYVinTdXmbqZ83cTh uzW2Qmg9ytdjONQc0ae0KOY35ZscLD6BnYI9f1K+yWHBu41su1TqxzJzCFub WSwq6Rvlmxy8tq24d+kT5eMWDmcvfd5mbk/5eCKHp73/bmf3UD5u5TAtveHP Bx0pH0/mUPzhRf+aaZR/p9r8tXFyoX1Kyr8zOKQ13b+hS3/Kv7M5HHocca9v /9eUb3Lov9FSm5VSvi3SoOn5PcFlr1O+7axB4/JL3bkulG+7aPA+a636wEPK r901kO6L7KL0eEb5pgZFr01Z7nma8mtvDfwvbUwwmR5RvqlBqzX62WpTMuWb GmhOaOL/HKN8GhqI/udXgIADBRws4BABhwlYLGCJgBkBGwVsEnCMgGMFHCdg s4ATBGwRcKKArQJOFnCqgDMEnC3gHAGLtP+ys4BdBOwuYE8BewvYV8B+AoaA AwQcKOBgAYcIOEzAYgFLBMwI2Chgk4BjBBwr4DgBmwWcIGCLgBMFbBVwsoBT BZwh4GwB5whYpPuXnQXsImB3AXsK2FvAvgL2EzAEHCDgQAEHCzhEwGECFgtY ImBGwEYBmwQcI+BYAccJ2CzgBAFbBJwoYKuAkwWcKuAMAWcLOEfAIv2/7Cxg FwG7C9hTwN4C9hWwn4Ah4AABBwo4WMAhAg4TsFjAEgEzAjYK2CTgGAHHCjhO wGYBJwjYIuBEAVsFnCzgVAFnCDhbwDkCFhn+ZWcBuwjYXcCeAvYWsK+A/QQM AQcIOFDAwQIOEXCYgMUClgiYEbBRwCYBxwg4VsBxAjYLOEHAFgEnCtgq4GQB pwo4Q8DZAs4RsMj4LzsL2EXA7gL2FLC3gH0F7CdgCDhAwIECDhZwiJAleNTO L3mtO9W/xRL076xqPfsJ1csZCS5X7LzOUJHq6yYJ3qvyOmKmUT4nwdH6AdPn l6P6vVmC4S3Xry8dSfm0RYLJp9yvLphH/QFWCZij4J5fpvNlqRK4FNsgL7eK zg9kS1Dlb8f0cyzl+yIpvgwQH9hcjPQBFynqxy4wp2WSfuApRei4Af6/WpHe 4CtF5PXaat9s0iMgRaVLblz1KL4fQ4o8dTXjG+kbIVJsi03pU3UL6SFiKaqV SW1iiqV6CSPFltrHfhm+kL5ikiJO5H4rdhO93ydWCs1MnymL75NeY5YiaurG yMulSd+xSLH6RLSpnIx/n44UvUsXamRwI70oVQp2ZddF01/z5yul6DRs5IEz 76jfXiRDUvjY4jerUH3FRYa849ZzHpB+5SmDU7+8Cg9fb5GhbJP49R928P3t MoxtcM3l8nHSywJlKJzXnplFelqIDA87SIPjWpH+JpahyNC838CfZ5XhbNzW /qhIep5JhqoDH1VTjCO9L1aGUnW8VYuPkR5olmFHRkDTv16kH1pkePyAndMj ivRFqwy1IiNmVStD+mOqDAuSnqaWWkH6ZLbNnvwGUtIvRXJUcO106fFh0jdd 5GhZvnX7U4P4/m45ns5aGPniE9/fLceN63lffH+3HOEVNJarm0hPDZTjXomw WtMlvN4qh3/+DSQ9VizHpF0hgwfVJ72WkWNp0Nw6q/4Sm+T42nu43u8+9bvF yjGyS8eMh3tI7zXL8dvwJeUBS3qwRY6NN3bdujeU9GKrHAn7C79e7E39dqly ROe5/ydxtpzeT8HrzQr4PKlTjF1J/XsuCtRv5ryn+gi+3qRATd3bgQk1SL/2 VaDyw5vfg9KJoaDPA9WjAhUYtfTcV+9RpH+HKLDrY1K/8S58v6ECt2ul5Kqm 8ufZFcgJSt+29gKxif97pK/HKtDjyOffdyW83q7AjNc/d35M4vu7FTi9sarN BL6/W4GX1rw/QJyqQJsFnUNeWomzFRhzvJftCSF9X6RE/p/TEbso8WCLuEPJ B8SeSvy5K8ms14zv11SibrG8J4p/H4ASffP/AP/+FyXmhOV1zP5Xb7B/PojF SvIHMaOk/lqqV5iUsF2M7YqIY5U4lDjPZiLVO8xKmGfn/QG+3sZfL7FViTu2 ux3clq+3KHHre94N5ustSlzb1N12R/l6iwqX++QZQPUaFxXO27y39Byxp4ru L9V/8s435N9fYqiQJnPd1zON70dXIe/TM9Gf7z9X0eeLWKxC/uP/ga83qaC0 WX+8F//+ChVdL98/rIJXvsHEZhXdX6pvWVTI3nHJZgGxVUWfD+JUFWzOs10S 1ceyVXS/iUVqtM2/wcQuauQvnw/5epsaJfNvMN+vrSb7+P5sNfI/DtOJA9Ww ffPZgCXEIWrYbo7tDvHvd1Ej/9ff5OuNalqf+Xqjmu4PX29Uw36d2WS/gC0C tgr+f6rg92cL/r6I+ff6nJl/r9+FQf5yMJHvb2fQIv+L729nEJL/gaD75c38 +/4bX4Y+L/z7VBjku4+vx4LBu7zH7y35K4DBmtV5X3z9kkFA/geMOJj59/MQ wtDzSBzGoEH+AvTf+YbgfAfT503C2Pupg/jPH/Pv59fIIM/6VTP5+ieDs1fz Hhh6HmIYWo/+e5/SP89THAN53q+TEZsZ5N/u7/R8JjDIW/1OzuWfXwb57cof 6XlPZDA5/4vYyqBL/g2m9SKZwae85TSYOJWh/YjWnwwGcXmPQ2fibAZ5q0/3 I7Se5TCC9Y9FvrtX0frozCL/cSxN7MLS80XrrTtL9tJ67cli+9oLnubZxN4s fb5o/fdlkbcaHUqk/cGPpfWF3z9YSPMfUNpvAli6Xv68EIu83cHTTPtVMIus vMf3OO1nISzFH7T/hbHI344u0f4oZimeof1TwmLu4Uo/r2Xx7zNj8c7nRP1y pYiNLN6XOe27uiG/H7P4Gy//ZA6k/TuGxegZF//Ey/nzVyyuZ10532Uv7f9x LIy6EXdOplN8YGbpfA5xAotBvdYz9c5RfGFhse3U2cr1gqifJJGl9/nw59VY uNcLKrplOfWfJLM4o/TwC+1G8Uyq7e9NGP24R2GKdzJYzHlQ4VPnWxQPZbO0 /1C8lMNicUqYKJzl660cutyafO/1VIqvnLl/4y8XDot+5zWgUHzmziHvr08J p3qrJwfOFn19K0bxnDcH28213RCK93w5JOSF4zFUb/XjaP+j84zgcHS82hYi UvwYwCG3XObR/YX585IcXT/VW4M52G5GO6d+FI+GcMh/XCtQ/TWMQ8rCvAum eFbMUXxB9VcJhxlDlfuOjOfPl3LI614yTqB+IyOHvGjMpKJ42cThyWGtwnqQ 4ukYju439SvFcpiff6CK4u84DjsrWrslZ1N8buaQ9zbCwwuo3zyBQ8DCRPPC NlSPtXCwBbfTSuRS/TWRw82817Oto/jfyqGI13BLkZlUj03mcOHtj6InxvHv C+VQznvtbN18qsdmcJAcM364sIfqsdkcaucnMJR/5HB4N8Vwpt406t8SaZBj jKnQ6wvlK84aBFyICti8is43u2ggSq/S8ssAym/cNfAoHP/gRCeqz3pqULp4 l3imBOVD3hpcv53+vfVvPl/SUPxH5639NGA2zkpDAJ3HhgZzNo/WRW2k/vIA DTQ/otuOdqN8LFCD+zNPWEftoP7yYA1m5B+4pPwtRIPI4EUDnHypXhumQeKb obd6faB6rVgDz/wEh+q1Eg16MWtGHLlP/eWMBt2/3rcMLUH1W6MGo8+EtJk+ kuq3Jg2inrY5/e065ZsxGrweNGrIN/79ubEaWK7Pz65YnPLTOI399USr6fy7 WYNWne8qRYMon03QQKs5tcCrLdVzLRq8irjgVS2A6rmJGmx0+jr5roLquVYN PpYbKWt5j+q5yRrUWFhIWWsA5dOpGrxvVC4p6AXVczM09n6pJtRPnq3Bw/rM +IlXqJ88R4O+f+qrv0dSfVekhfHbAe6ZnvrJnbWoapzUwrCV3g/gokXhg12W Zb2m94u48+9LonqvpxaT+56tGnqH6r3eWkxaIjP2mE/1Xl8tTKd73YkNo/eL +GlRU8soSlSi9yNDi3nTVpe+/LkX+V+L2CoXis/7Rf3jgVqsjRTNdPOh+m+w FrPDVee7aej9IiFa1D7Zwdkpl+q/YVqY53Zs38dE/eNiLbw6mtPPgOrBEi3e +db7fcq1I/lfi7zsd+Ajqgcbtdi21bDp3hXqHzdpcdI5KKpPOvWPx2jRzffg 3F1eVB+O1WLH+cHdVrFUH47T4uW5NoUrFKb+cbMWSarDhyZupP7xBC3Cv98I XjqU6sUWLeYPL/Ss9kCqFydqsaf11m+XPal/3KrF66ZNf+x3p/7xZC0adonN TPGj/vFULZ6677iUraT6cYYWDwqvi/JLo/pxtha7RyQNLDuZ+sdztPCZucXp ZFGqJ4t0uPbqxLZXJ+n9Ic46+Pg9lSR5UD3ZRYcf0+9E3s6merK7DrFlSkaN eUn1ZE8d+l3x1vkUov5xbx2cYn3Gd+tJ9WVfHSa2uN2s2Q6qL/vpsLn5oezd 3tQ/Dtv3Oy3aFnCa6ssBtv+fsKXXnAjqHw/Ukf/4erMOaU77UxP78fVm2/V2 i3mX2ZL6x8N00G6a8qJ/N+ofF+uQWqV24ne5M/lfh257L6x6kULvC2F0+LPh YEiHXlR/Nupw1LhOwT2h+rNJhy9qaWSmjvrHY3S4+d51nLQH1aNjdeiRNPNL s5pUj47TgTNKf7q7U/+4WYeZnb0Sx1em/vEEHTouyKm+vC31j1t0+DT2b+52 FdWnE3UIbav82SWN6tNWHRbdWvnhyBjqH0/WITysrnN8LtWnU232NVu1v96u T1Rv1uHDrMuVL8ymenW2DgufPyybEkj16hwdqn9oNL6qKovqzXp0kIVdmKV7 R/VmPYIemVNHx7+herMe7t9XfPD6Qf3i7nossZb/eGoU1a899bj76XmA6RnV r7312NE92ufx/BdUb9aj4ZAXzqJGVM/208Nvpeus9Z+pXxx63ClaP+zQbapn B+ixv9Ul1xtqqmcH6mG1FJpfx/CE+pv1OB+13Cd+H/WLh+jRZXWR+cfeUr94 mB6P/rR7fDCI6ttiPX5HBVnr36b6tkSPfSP7B1WaSP3ijB5vBjWapCh9l/rb 9chdPvJGlXvUL27So//bX7/mxFG/eIwe6751XDdiOfWLx+oxeuiAwCIet6jf QI/BznNPL2h1g/yvR43C77juM6lfPEGPBn4YfslC/eIWPRofmHphWLNE8r8e sybO6rzvBPWLW232BYzopxpJ/eLJesjGbd75vsIF8r8enXZfj7r/jPrFM2z2 V3u26P0p6hfP1qNewtDA4P3UL56jx5N3s09Hjz1TcL6h6lHnL8ncqYLzDQMu zj3d6MKJgvMNl8qcWtO15vGC8w0t16SUmh6TUHC+QdrvufFcraMF5xsOdzuz psG1wwXnGxLHaxNOaw8VnG+I39HsOTvgYMH5hvoeZ9ec9okvON/Q4Hzz53Pr Hig437BKEeNzrra54HyD5w1L5Qrh+wrONwxJafx8onlPwfmG67UjTitK7S44 36DbvnrPcGZnwfkG18Dt2ycWiys43/CyxdL4ltu3F5xvyBk42Hpl7LaC8w3P o51+LG64teB8w+ZCq3xUxbYUnG+wf543FZxv2N5fdvrNx9iC8w1vmiZWnuwU W3C+oVl316zs5hsKzjfYn791Becbat7fut0zc03B+YZ96gOxjcJXF5xvsF9/ TMH5hgBONdg/PrrgfENvt3a79s9eWXC+YePMlIclekQVnG8YEBja85H3ioLz DfeCUyzJ1ZcXnG848qatpJ/nsoLzDfPCdBuZZqaC8w3eW+UzXsRGFpxvqD3g krzbj8UF5xvejfzSrEvYooLzDYqiTo37ZS0oON9wu8+7KZMWGwvON/xOOHNw t7+h4HzD377yEp6/dAXnG6xdqhZvfltbcL5BXWf73EKHNAXnG4o2qZpli7sL zjeI/ufX/6Ee8f/m/9/P/+/fd8yLcMyLcMyLcMyLsNvvmBfhmBfhmBfhmBfh mBdh959jXoRjXoRjXoRjXoRjXoTd/455EY55EY55EY55EY55EXb/O+ZFOOZF OOZFOOZFOOZF2P3vmBfhmBfhmBfhmBfhmBdht98xL8IxL8IxL8IxL8IxL8Lu f8e8CMe8CMe8CMe8CMe8CLv/HfMiHPMiHPMiHPMiHPMi7P53zItwzItwzItw zItwzIuw30/HvAjHvAjHvAjHvAjHvAi7/Y55EY55EY55EY55EY55EXb/O+ZF OOZFOOZFOOZF0JdjXsS/7JgX8S875kX8y455Ef+yY17Ev+yYF/EvO+ZF/MuO eRH/smNehGNehGNehGNehGNeBNnvmBfhmBfhmBfhmBfhmBdh959jXoRjXoRj XoRjXoRjXoTd/455EY55EY55EY55EY55EXb/O+ZFOOZFOOZFOOZFOOZF2P3/ f58X8b8APy+ndg== "], {{{}, { EdgeForm[], Directive[ RGBColor[1, 0, 0], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[CompressedData[" 1:eJwl1WV0FgQYBeBvdAxGdy2IASNHju7RjNFjwMgRG7HBaEZKh0koKCihoKCg YIKSBmGC3YLSaQA+HH485573/z3vDU1KjUvJEggEglgc9DDDcgQC4SxyLGQB 85nHXDKZw2xmMZMZTGcaU8lgCpNJJ41JTGQC40klhXGMZQyjSWYUIxnBcIYx lCSGMJhBJDKQBAbQn370pQ+96UU8PYmjB93pRle60JlOdCSWDrSnHW1pQ2ta 0ZIWNKcZTWlCDI1pREMaUJ96RFOXOtSmFjWpQRTVqUZVIqlCZSpRkQjCCSOU CpSnHGUpQ2lKUZISFKcYRSlCYQpRkAKEkJ98BJOXPOQmFznJQXaykZUsBAU9 LMx9cY+7/Me//MPf3OE2t7jJDa5zjatc4TKXuMhf/MkFzvMHv/Mbv/ILP/MT P/ID3/Md3/INX3OOs3zFl3zB53zGp5zhNKc4ySd8zEd8yAmOc4yjHOEwH/A+ hzjIe7zLO7zNW7zJAfbzBq+zj728xqvsYTev8DK72MlLvMgOtrONrbzA82xh M8/xLJvYyDM8zQbWs461PMWTPMHjPMajrGE1q1jJCpazjKUsefAHeIRFLGQB 85nHXDKZw2xmMZMZTGcaU8lgCpNJJ41JTGQC40klhXGMZQyjSWYUIxnBcIYx lCSGMJhBJDKQBAbQn370pQ+96UU8PYmjB93pRle60JlOdCSWDrSnHW1pQ2ta 0ZIWNKcZTWlCDI1pREMaUJ96RFOXOtSmFjWpQRTVqUZVIqlCZSpRkQjCCSOU CpSnHGUpQ2lKUZISFKcYRSlCYQpRkAKEkJ98BJOXPOQmFzkxA4HsZCMrD7bi f4SDpnU= "]]}]}, {}, { EdgeForm[], Directive[ RGBColor[0, 1, 0], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[CompressedData[" 1:eJwl1VV4kAUYBeB/CYwwEKTETUVREQWlREUEGwUBW0ERBSUVEJQupbu7u2vE GLCNZhsdo7sZzWhfHy7ec/ldned8MbUaVW0YGgRBCF1FF6IjgyCGHGFBkJ1s ZCWKLGQmE5FEEE4YoYQQcN/Re9zlDre5xU0yuMF1rnGVK1zmEhdJ5wLnOcdZ znCaU5zkBMc5xlGOcJhDHOQA+9nHXtLYw252sZMdbGcbW9nCZlJJIZlNbGQD 61nHWtawmiQSSWAVK1lBPMuJYxlLWcJiYlnEQhYwn3nMZQ6zmcVMZjCdaUxl CpOZxEQmMJ5xjGUMoxnFSEYwnGEMZQiDGcRABtCffvSlD73pRU960J1udKUL //IPnelERzrQnna0pQ2taUVL/uYvWtCcP2lGU5rwB7/TmEb8X8wG1Kcev/Er danDL/xMbX6iFj/yAzWpwfd8x7d8w9d8xZd8wedUpxpV+YwqVOZTPqESH/MR H/IB7/Me71KRCrxDed6mHG/xJm9QltcpQ2lKUZISvMarFKcYr/AyRXmJIrzI CzxPYZ7jWQrxDE/zFDFE8yQFeYIC5CcfecnD4+QmF4+Rk0d5hId5iBxkJxtZ iSILmclEJBGEE0YoIQTctyP3uMsdbnOLm2Rwg+tc4ypXuMwlLpLOBc5zjrOc 4TSnOMkJjnOMoxzhMIc4yAH2s4+9pLGH3exiJzvYzja2soXNpJJCMpvYyAbW s461rGE1SSSSwCpWsoJ4lhPHMpayhMXEsoiFLGA+85jLHGYzi5nMYDrTmMoU JjOJiUxgPOMYyxhGM4qRjGA4wxjKEAYziIEMoD/96EsfetOLnvSgO91CHvyI /wBG7OC/ "]]}]}, {}, { EdgeForm[], Directive[ RGBColor[0, 0, 1], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[CompressedData[" 1:eJwNxVN3kAEAANCvOqfXWq5Va9m2Xctty17Wlm1j1daybdu2bbfsf9B9uOeG x8RFxqYMgiAFyaRJFQRhqYPgn//yh9/84ic/+M43vvKFz3wimY984D3veMsb XvOKl7zgOc94yhMe84iHPOA+97jLHW5zi5vc4DrXuMoVLnOJi1zgPOc4yxlO c4qTnOA4xzjKEQ5ziIMcYD/72MsedrOLnexgO9vYyhY2s4mNbGA961jLGlaz ipWsYDnLWMoSFrOIJBaSSAILmM884pnLHGYzi5nMYDrTmMoUJjOJiUxgPOMY yxhGM4qRjGA4wxjKEAYziDhiGcgA+tOPvvShN73oSQ+6E0M3utKFznSiIx1o Tzva0obWtCKaKCJpSQua04ymNKExjYigIQ2oTz3qUofa1KImNahONapShcpU oiIVKE85ylKG0pSiJCUoTjGKUoTCFKIgBchPPvKSh9yEk4swcpKD7ISSjaxk ITOZyEgG0pOOENLyH8isdug= "]]}]}, {}, { EdgeForm[], Directive[ GrayLevel[0.5], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[CompressedData[" 1:eJwN1OeDyAUAgOHfnbuz59njCmW1hIpUkhItXNGOyC4yKjRQymgQss4eZ5w9 Dufszdl7j3Nn3NnjjEPPh+f9E97SzTtGdwgNgiCE/jIsLAhKRQRBFCUpQXGK UZQiFKYQBYmkAPnJR17ykJtc5CQH2clGViIIJ4wshBJCwMPwIHjAfTK5x13u cJsMbnGTG1znGle5wmUucZF00rjAec5xllRSOEMypznFSU5wnGMc5QiHOcRB DrCffexlD7vZxU52sJ1tJLGVLWxmExvZwHrWsZY1rGYVK1nBchJZRgJLWcJi 4lnEQhYwn3nMZQ6zmcVM4pjBdKYxlVimMJlJTGQC4xnHWMYwmhhGMZIRDGcY /zGUIQzmXwYxkH/4m7/4kwH0px99+YPf6cNv/EpvetGTX/iZn/iRHnSnGz/w Pd/RlS50phPf0pEOfMPXtKcdbWlDa1rRkq9oQXO+pBlN+YLP+YxP+YSP+YgP aUJjPuB9omlEQxrwHu/yDm/zFvWpx5vU5Q1epw6vUZtXqcUrvMxL1ORFalCd F3ie56hGVarwLJV5hqd5iid5gkpUpALlKcfjPEZZylCaR3mEKEpRkhIUpxhF KUJhClGQSAqQn3zkJQ+5yUVOcpCdbGQlgnDCyEIoIQQ89J8H3CeTe9zlDrfJ 4BY3ucF1rnGVK1zmEhdJJ40LnOccZ0klhTMkc5pTnOQExznGUY5wmEMc5AD7 2cde9rCbXexkB9vZRhJb2cJmNrGRDaxnHWtZw2pWsZIVLCeRZSSwlCUsJp5F LGQB85nHXOYwm1nMJI4ZTGcaU4llCpOZxEQmMJ5xjGUMo4lhFCMZwXD+B9Ix 3sw= "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}}, {{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], LineBox[CompressedData[" 1:eJwl1WV7EAQUBeCNztE9YjC6u7tHj24YnSM3ursUDFBCwaAbJZXGoBulUVJB 6VR49/DhPfcXnHNDIiLD+wcGBARMFTE3FrGJQ1ziEZ8EJCQRiUlCUoJIRnJS kJJUpCYNaUlHejKQkUwEk5ksZCUbIWQnB6HkJBe5yUNe8pGfAhSkEIUpQlGK UZwSlKQUpSlDWcpRngpUpBKVqUJVqlGdGtSkFrWpQ13CqEd9GtCQRjSmCeE0 pRnNaUFLWtGaNrSlHe3pQEc60ZkIutCVbnSnBz3pRW/60Jd+9CeSAQxkEIMZ wlCiiGYYwxnBSEYxmjGMZRzjmcBEJjGZKUxlGtOZwUxmMZs5fMCHzGUeH/Ex n/Ap81nAZ3zOQhaxmCV8wZcsZRlf8TXf8C3LWcFKVrGaNaxlHevZwEY2sZkt fMf3bGUb29nBTnbxAz+ymz3sZR/7OcBBDvETP/MLv3KYIxzlGMc5wUlOcZoz nOUc57nAb/zORS5xmStc5RrXucEf/MlNbnGbO9zlHn/xN/d5wD/8y0Me8Zgn POUZz3nBS17xmjf8x/+8Jab8gcQiNnGISzzik4CEJCIxSUhKEMlITgpSkorU pCEt6UhPBjKSiWAyk4WsZCOE7OQglJzkIjd5yEs+8lOAghSiMEUoSjGKU4KS lKI0ZShLOcpTgYpUojJVqEo1qlODmtSiNnWoSxj1qE8DGtKIxjQhnKY0ozkt aEkrWtOGtrSjPR3oSCc6E0EXutKN7vSgJ73oTR/60o+Y8Y5kAAMZxGCGMJQo ohnGcEYwklGMZgxjGcd4JjCRSUxmSuD73/AOmGemIA== "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], LineBox[CompressedData[" 1:eJwV02V7FgQAheGXDRjd0t2IGCitiNLdggKiIKF0KiIgGORGd3d3ju4aPbpj dI/OcfPhfv7AuU62Ju1qtY0VCAT6Sj/6M4CBDCKUMAYzhKEMYzgjGMkoRjOG sYxjPBOYyCQmM4WpTGM6M5jJLGYzh7nMYz4LWMgiFrOEpSxjOStYySpWs4Zw 1rKO9WxgI5vYzBa2so3t7GAnu9jNHvYSwT72c4CDHOIwR4jkKMc4zglOcorT nOEs5zjPBS5yictcIYqrXOM6N7jJLW5zh7vc4z4PeEg0j3jME57yjOe84CWv eM0b3hLzfuSgQCAWQQQTmzjEJYR4xCcBCUlEYpKQlGQkJwUpScUHpCYNaUlH ejKQkUxkJgtZyUZ2cpCTXOQmD3nJx4fk5yMK8DGf8CmfUZDP+YJCFKYIRSlG cUrwJV9Rkq8pxTd8S2nKUJZylKcCFalEZapQlWpUpwY1qUVt6lCX76hHfb7n BxrQkEb8SGN+4mea0JRfaEZzWtCSX/mNVrSmDW1pR3s60JFOdKYLXfmdP+jG n3TnL3rQk178TW/68A//8h//05d+9GcAAxlEKGEMZghDGcZwRjCSUYxmDGMZ x3gmMJFJTGYKU5nGdGYwk1nMZg5zmcd8FrCQRSxmCUtZxnJWsJJVrGYN4axl HevZwEY2sZktbGUb29nBTnaxmz3sJYJ97OcABznEYY4QyVGOcZwTnOQUpznD Wc5xngtc5BKXuUIUV7nGdW5wk1vc5g53ucd9HvCQaB7xmCc85RnPecFLXvGa N7wlhkCw/xNEMLGJQ1xCiEd8EpCQRCQmCe8ARgzgbg== "]]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], LineBox[CompressedData[" 1:eJwNxGOAFgYAANAv12rZvmzbNi+7Lusu23d12TVkbbXl2nLLDVlbxpax3Jbf j/eCQsKCQ6MEAoFIJYgWCCQkEYlJQlKSkZwUpCQVqUlDWtKRngxkJIhMZCYL WclGdnKQk1zkJg95yUd+ClCQQhSmCEUpRnFKUJJSlKYMZSlHeSpQkUpUpgpV qUZ1alCTWtSmDnWpR30a0JBgGtGYJjSlGc1pQUta0Zo2tKUd7elACB3pRGe6 0JVudKcHPelFb0IJow996Ud/BjCQQQxmCEMZxnBGMJJRjGYMYxlHOBGMZwKR TGQSk5nCVKYxnRnMZBazmcNc5jGfr/iab/iWBSxkEYtZwlKWsZwVrGQV3/E9 q1nDD/zIWtaxng1sZBOb2cJWfuJntrGdHexkF7vZw15+YR/7OcBBDnGYIxzl V37jd/7gGMc5wUlOcZoznOUc57nAn/zFRS5xmStc5RrXucFNbvE3/3CbO9zl Hvd5wEMe8Zgn/MtTnvGcF7zkFa95w3/8z1ve8Z4PfOQTgeiBQBSiEo3oxCAm sYhNHL4gLvH4kvgkICGJSEwSkpKM5KQgJalITRrSko70ZCAjQWQiM1nISjay k4Oc5CI3echLPvJTgIIUojBFKEoxilOCkpSiNGUoSznKU4GKVKIyVahKNapT g5rUojZ1qEs96tOAhgTTiMY0oSnNaE4LWtKK1rShLe1oTwdC6EgnOtOFrnSj Oz3oSS96E0oYfehLP/ozgIEMYjBDGMowhjOCkYxiNGMYyzjCiWA8E4hkIpOY zBSmMo3pzGAms5jNHOYyj8/WaLIl "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], GrayLevel[0.5]], LineBox[CompressedData[" 1:eJwN0+eDyAUAgOEf7s462+HuCE2USiEVZbS0bQ2RUNYJ7aJCHRpU4s7ee88z z15nH2ee7exx55ztPB+e9z94y7fu0jAmRxAEsTI4JAiGEEc8QxnGcEYwklGM ZgxjGcd4JjCRSUxmClOZxnRmMJNZzGYOc5nHfBawkEUksJglLGUZy1lBIitZ xWrWsJZ1rGcDG9nEZpLYwla2sZ0d7GQXyexmDynsZR/7OcBBDpHKYY5wlGMc 5wQnOUUapznDWc5xngtc5BKXuUI6GVwlk2tkcZ0b3OQWt7nDXe6RTRAaBDnI SS5CCCWM3OQhL/nITzgFKEghClOEohSjOBGUoCSliCSKaEpThgcoSznK8yAP 8TCP8CiPUYGKVOJxnqAyT/IUT1OFZ3iWqlSjOs9Rg+d5gRepSS1e4mVqU4e6 1OMVXuU1XucN6vMmb/E27/Au7/E+DWhIIxrThKY0ozkf8CEf8TEt+ISWtOJT WvMZbWhLOz7nC9rTgY50ojMxdOFLutKN7nzF13zDt3zH9/zAj/xED3ryM7/w K73oTR9+43di6Us/+vMHf/IXfzOAgfzDv/zHIP5nMEOII56hDGM4IxjJKEYz hrGMYzwTmMgkJjOFqUxjOjOYySxmM4e5zGM+C1jIIhJYzBKWsozlrCCRlaxi NWtYyzrWs4GNbGIzSWxhK9vYzg52sotkdrOHFPayj/0c4CCHSOUwRzjKMY5z gpOcIo3TnOEs5zjPBS5yictcIZ0MrpLJNbK4zg1ucovb3OEu98gmCPM/OclF CKGEkZs85CUf+QmnAAUpRGGKUJRiFCeCEpSkFJFEEU1p7gMwdd6B "]]}}, {{ Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[1, 0, 0]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 1, 0]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 0, 1]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], GrayLevel[0.5]]}}, {{ Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[1, 0, 0]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 1, 0]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 0, 1]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], GrayLevel[ 0.5]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{ Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[1, 0, 0]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 1, 0]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 0, 1]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], GrayLevel[ 0.5]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}], {{}, \ {}}}, {DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {381.875, 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 -> {{381.875, 780.}, {0, 1.}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"L\"", "\"M\"", "\"S\"", "\"R\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], GrayLevel[0.5]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], GrayLevel[0.5]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 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[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], 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[1, 0, 0]; 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[1, 0, 0], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "1", ",", "0"}], "]"}], 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, 1, 0]; 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, 1, 0], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}], 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, 0, 1]; 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, 0, 1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0.5], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"GrayLevel", "[", "0.5`", "]"}], 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 = GrayLevel[0.5]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0.5], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.8394431986167793`*^9, {3.839443443280801*^9, 3.839443448585594*^9}, { 3.839443748879846*^9, 3.839443767118346*^9}, 3.839443874562682*^9, 3.839444609745236*^9, 3.839446226830544*^9, 3.839446610640686*^9, { 3.839446671872862*^9, 3.839446691178568*^9}, 3.839447126401958*^9, 3.839447464615501*^9, 3.839451228985178*^9, 3.839451624990617*^9, 3.839452095080245*^9, 3.8394522956424313`*^9, 3.839453480182674*^9, { 3.839497975446752*^9, 3.839497988660158*^9}}, CellLabel->"Out[26]=",ExpressionUUID->"e5b17ad2-61b0-4175-ac0d-3aa25e5f8022"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["RGB (Rec.709) spectral reflectance\n", "Section"], StyleBox["Data provided by Scott Burns \ (http://scottburns.us/fast-rgb-to-spectrum-conversion-for-reflectances/).", "Text"] }], "Subtitle", CellChangeTimes->{{3.6472069892556753`*^9, 3.647206992644547*^9}, { 3.64720706386841*^9, 3.64720723066249*^9}, {3.647207262730607*^9, 3.647207325235694*^9}, {3.661121273814883*^9, 3.6611212811271257`*^9}, { 3.6611836316553793`*^9, 3.661183634470564*^9}, {3.6815771809416018`*^9, 3.681577182173439*^9}, {3.839450617122533*^9, 3.839450633617247*^9}, { 3.8394508014046373`*^9, 3.839450847745494*^9}},ExpressionUUID->"c65e7cba-0278-462a-aebc-\ b84ca6044482"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "cr", ",", "cb", ",", "cg"}], "}"}], "=", RowBox[{ RowBox[{"Import", "[", "\"\\"", "]"}], "\[Transpose]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "cr"}], "}"}], "\[Transpose]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "cb"}], "}"}], "\[Transpose]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "cg"}], "}"}], "\[Transpose]"}]}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Green", ",", "Blue"}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.839443174827423*^9, 3.839443196909202*^9}, { 3.839443297145803*^9, 3.839443322674219*^9}, {3.839443724984212*^9, 3.8394437383649483`*^9}, {3.8394452976096163`*^9, 3.839445302670227*^9}, { 3.83944659918049*^9, 3.839446604493163*^9}, 3.8394504183664837`*^9}, CellLabel->"In[27]:=",ExpressionUUID->"92a6ef21-04bc-49b0-96cc-a124dad68b95"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJzt3HdYU/f7N/BUap0o1oU7Kiq2jrgqQqtvRxH9oqKtFmdx446b7HNOguAO TqwrTnCgceOOFBWcwYkbB4rWEUcV90N/vT+/7+P97/Pnk/7T63VxqXnnJicn 73Ny1xw0rsfQQiqVSlNMpfrn///zX1QMVsUZj85Qlrf5H2uZJWY7s4PZyexi djPnMHuYVbov7ces1uHOkEt3V0tkjQ5SwJ6HOjMZOtSeqDaWNJIjdHjbOu5w Rx05SoebVfvPqTFF5NfBsHfNbPsEkV+HrMr5fS1jRX4dLmYuT7s1QuTXocVr p2/iEJFfhxEj10bPHSDy6+CKDR+y+TeRX4eHU7vEne0m8uvQtlpC5fOhIr8O owLXP17zo8ivR/7VGsOrNBH59QgvIymFAkR+PTZr/G0h5UV+PVocaPdA/lrk 18M6Ifn06ufLKL8emm/rfjXpOjlKj0nf7myfnE7W6nG006ZRnzaQJT1Kuyce bzOLbNdj69czSv4wiuzQY65SdcXqULJTjwrq6w0HVie79AgZ/QQdXyyl/HrU 7VuqaIs0co4eupVfvasxh+wpeLzlKzlf9iSrDFg4/2iRfZXIfgZUejR2fd8r f1B+A2qVnbQ2YwFZY0Dk/q6jfcLJMKB2im8t389LKL8BxQNK3/4rhRxlgG5g u5ZHIslaAy7U79Jj++dEym9A3KHqrpzVZLsBP7jMeZZ2ZIcBEQ/SP568uZjy G3Ct5mtPoRiyy4BvDz6bNakU2W1AW1Wt/iNWL6L8BvgUG3uiWXOyx4AuYSHn a6cvpPxGtKgW6pzdg+xnRE10vXfo1gLKb8TBjOOJhUaTNUZMfPwsctOb+ZTf CIOh7gMfKznCiHtX87r0LkWOMmJw1Qk18pfMo/xG6Mfdb1WtLlky4smtsh7f HQmU34hY3YLH37QlO4x4fmn7nTZuO+U34u682BsPosguI6ZdPvdh4P25lN+I PhX61rOUIucY0fRSVpdxwXMovxEPK3Sbaho5m/Kb8POjt1MvrZhF+U0o2884 btPlmZTfhAlZ72c1KE/WmJDQoEjncb/NoPwmPKvTJ2fhiumU34TozNAFOx/F U34T/OOr9neHkLUmfHt+nvI5IY7ym/CqX+CA4CfTKL8JPw7/cN3Sheww4fHz Ra1ObI+l/Ca8mIkGPtXILhM2lTizpPIsG+U34Wl8s18/f7ZSfhN+abM/dXEM 2WPCp1pLD2b+rVB+M6wv7l6YOJXsZ0bjsiGXRnyUKb8Z9varDi2MI2vMCP+x 3fuM8mSYEZqY3+98kkT5zbjjfDNr5k/kKDOwasGpOSkWym9G5z5LfU/dN1N+ M5JanbYvrku2m5FSZdaQrNEmym9Gt5J3hg3da6T8ZugW6LdFliS7zMi9XHth 8lAD5Tcjr/6vTQcc1VN+M2bY5lwwfU/2mNGndmz9z4t1lN8CTfUGPlnFyX4W nEocWC/XGkP5LahYa8AVjQ9ZY8Gjy9unx8VPpfwWDGqSPj+7LDnCgn6hi1oX WTeF8ltwteqxwPwQstaCGfe+lxdkT6b8FtwfnpZyUE+2WxD9tMXRQbXIDgv6 X64QMubsJMpvQeSAek0zZbLLglIpaQFDWpHdFjyeH5Fa9/VEym9BeVvq/K9T yR4Lrl36qHpjJqsk1FixuNrzzuSiEuZMK535sArZT8KZww0PXnw+4V/7S5B0 G1vvOkVWSzi6qvq66ZvJgRKW7s84EZFA1kgI2NW2SEkDOUjCtfA++cdHkCHh 0hT/FrP7k8MkpAwKmD28FzlCwq0zXVcM/pUcKaFzh9qJy38jR0ko0ei6ryaK HC2hmf7Om9ZjyVoJqxpN/OGVTI6RcF6yPtUtJUsSPmUeU/vsJ8dLONRw/4Vj OWS7hLU9fKcW9qXnI1HCe8vDycVBdkgYdnpHbAM9OVmCT8VGtQ7vJzsL8nX4 er9/YZpPqoQXW5cUWd9LzE/C/uI/L8h2kjMktNrSqVHzcjR/t4QrB9c1D5fJ 2RK67g4elp5PzpHwyPXL1K4G+v3Kk5DpP3HowWL0++iR0Oba3qpP15LzJYQf S3bc6kK/zyoZS4L8Fh8qTL//RWWUHHPn1tHT4vUg4/ibC+7fkuj14y9j1ow5 y6stoNebWoZ/lv+1awvp9RgoI+CpvH/mFnr9amRoiuc+n5BDr+8gGTM7Tptc tiIdHyDjap3EC51Pk8NklNhZ/sbkBXR8iZCRuWbo01Fj6fgUKeNG4bgxHfrT 8SxKxqJyp3oNG0zHv2gZ4S/azbRa6fiolXF2+DDbARcdT2NkZDSZG7ujOh2P JRnDk1TH41bR8TteRsixym5VVzre22UMSPhj1bb69H6RKOPo7Vbh5UPo/cUh Y9l4x7Ur6fR+lCxjTP8yp34oTe9vThm+n40jr8n0fpgqY2p6cGpeLXq/dcmI fPP5yrq39P6cIUPVvJ9+Xyk6X3AXPN6aKa9so+n8JFvG5O97LR9TYwXNX0bd EbnvWyx10PxlNG9Yrv/Fgatp/jLOJGz5sH7sWpq/jH7DnvzZ4ux6mr+C0ctM UoUFG2j+Cp68jJUzsjbT/BU4fyl8/mSEk+av4MziaR9jErbT/BV8zlUXm9p6 F81fwdkmy9pV0qbS/BWMrL54zewOB2j+CrrenFknWuui+Ss48KrficdBf9L8 FYx71/iBbdExmr+CKf7ugVOTTtD8FRzZ7joSOfMszV+Bp5DzzYot52j+Cnov 2zQvuNwlmr+Cpt+3zJ/31xWavwLb2CYj9/jdpPkrONm6Qrus2rdp/gqmJXQM 0tW9S/NXUHvC3Fv7Xt+j+SvYNS129O74+zR/BZNnzS/jc/0BzV/Bxr0fxya8 zqP5Kzg+8WbYipyHNH8FhT6pLmlXP6L5K3B0j8nu3/4vmr8Cn+HRBxMyye6C 57908yFlgh/T/Avy1VtR5WEiOafg8TbvP/C3h+Q8BUU7pF3yNHxC81ew5Fn7 HpnR5HwFMd99M2zGUrLKio4nNmyedZxc1Ir3o38t/eAJ2c+KY62124yln9L8 rVj+d7c5RRqS1Vb0vJXdUt2RHGjFwricsqEDyBor1j5r1PnOBHKQFR/uSkW6 xJJhRVbFhHLuheQwK/Rzjzk3rCVHWHHf9qpI6e3kSCvuTnv9sMEhcpQVuRGL ZtXPJEdbMXlXs+51z5O1VnS55bt41jVyjBX1rzhyG98lS1b4VZ51oc4jcrwV m5Pr+8sest2KUfUHFevxmpxoxfxdLUsmvSc7rChTtuTSWapnNH8rpizufci3 MNlpxYqE5MrNi5FTrdAVSY8q6kt2WfFmwLT28/zIGVZsGJNfObss2W3F58qt HLcqkLOtCDhbsvKWSuQcK0pERJQNq0rOs+Lx7zi1rTrZY8X+9OIVn6nJ+VaE 7zjYyqc2WWXDzpWtBz0PIBe1QfufcZMP1CX72fC9Y0OR4YFkfxtSglaPeFmf rLahacvXAUO+JwfaYOodVGV/A7LGhtxz1bu8a0gOsqHLubRptRuTYUOdNvUb BmnIYTYsbXu5UnATcoQNldOP9v6uKTnShru5bfoXb0aOsuHZ9JRfrwlH29Dv SGzgiuZkrQ2NNow590sLcowNX5Ur9NNHYcmG/K2RLZb+QI4v+PeDto5p1JJs t8E1aOu6PcKJNsz4EDm/ZRDZYcNQe0v3FuFkG24tKnO9Wisxfxukv0r1iBVO LXi+g9btzBV22XAhq4KxTbCYvw2FcmtWmi/stkFu8vfZHOFsG86X/xr1Q8T8 bdjTdHbiaOE8Gwb6Kr9uEvbYcO9A2825wvk2HEir5q7yo5h/7JcuyuzH7M+s Zg5k1jAHMYM5jDmCOZI5ijmaWcscwywxxzPbmROZHczJzE7mVGYXcwazmzmb OYc5j9nDnM+smsbmz+zH7M+sZg5k1jAHMYM5jDmCOZI5ijmaWcscwywxxzPb mROZHczJzE7mVGYXcwazmzmbOYc5j9nDnM+simPzZ/Zj9mdWMwcya5iDmMEc xhzBHMkcxRzNrGWOYZaY45ntzInMDuZkZidzKrOLOYPZzZzNnMOcx+xhzmdW xbP5M/sx+zOrmQOZNcxBzGAOY45gjmSO4o5B95cRrfJ7iL6NWWK2MzuYncwu ZjdzDrOHWaX70n7MamYNM5gjmKOYtcwSs53ZwezUYWK5xf5FI0V+Hfw6Hih3 sb/Ir8PYe2tmjxsi8uugf1wt4N0okV+H3RXHhidMEvn1uKyaOqKvWeTXo977 Odtipov8eoxfuKK6/yKRX4+4yDKvR68V+fUYGpTyLmWnyK/H/eCVi/2Oi/x6 TFgYEPngmsivx7KnD5MnvBT59Tj16UX9j770ed+uh3HCkcu3vic79DCdqt17 RBeyU4+N31Tr/m4C2aXHnOOd9txcRnbroXQ+VWXKSXKOHk/Se5/1/0z26FHR vKiwfxD1xSoDujY/v+P6FLKfAVv2JM3O3U9WGxA0sOWU00VE32zA5YX1Xqn7 kmHAcd8Pn6btJkcY8LBenbOplam/jjJgX4zbPTSerDUgNH1HzygV9ReSAS0N T9fGW8l2A9b2XPvmxLfUjzsM2Pl2oKXlVrLTgD7JXUde7z2X8huwZNXO22+K Ud/hNsBa9PCk/uPIOQa0avy5xe0bZI8BjTYqSZ16UZ+vMmJlpa9GzblC9jMi u+KuMZuiqS9RG/Hi+IGki19TX6IxYo82cOEvW/97veFZ5p/tUkbQ9YgII3b3 7Xo/pgX1KVFGBC06eSGhHPUpWiOSLp+cU6IYXR+RjEhb9XZB5/LieosR5tBu u4r9SH2Lw4iwtq3jh0t0fcdpxNWw4PC3udS/uIy4P6F24ztacb3NCP0nVc6d OispvxHHj6iqtY2lPsZjREDdic9mzltF+U34avCmEPMh6mf8TLhQ6+L0gb7U z6hNuK2/N6mJbR3lNyGzsqv6wcAkym9CdGSJ4CNfUV8TYYL1xI/lK1bcRPlN mNtn6bq88SmU34SWgWUrmkpRfyOZMLlQ7Xcx87ZRfhNO3huinxi+g/KbUGhV 6uwuP1Of4zRh684DvvPi9lB+EzL+DniyrMY+ym/CCv1fi95WOUj5Cx7P524v j4ZSv+MpyDPXd2RO+zTKb8aopduDQuzplN+MMfcDn59ueZzymxGwZv5PL0Op 79GYkZDTYMq3macpvxnyjQ07Rt91U34zWu5edWVjzfOU34yppnK5wcsuUn4z xjvfnS7ROZvym1F35sWMDVWuUX4zCvcIVY5/uEH5zXhW1Zx2dlQO5TfjduuK 238/Rf2Qy4wSLZddOuZP/ZDbjDotHrwwhlM/lGNGzdCOL3VDcym/GRODtxaa P5j6IpUFH68F9rvUkfoiPwsm9Ws7oHA56ovUFgxM2fyxxQmyxoIa54Y+mT+a +iNY0LjN/LUhH8kRFlQJ7zC+npn6pCgL/igy4mXt52StBUnJkUXcv1GfJFlw ZW2zcst3kO0WvCr83eiswtQfOSxIrWnrNqsb2WlBrd6zy2YmkP+53lCn5d0h p8luC2acyjTW9KG+KMeCCwGn2iU3E/2TBeMLB2+b9bvomyRcnzPkQfc40TdJ SNr/dfERm0TfJKHbvEElWp4i+0v4kJGdWfYRWS3BMqjx5fDCom+S0FxtOlS3 uuibJHRJrfXqRnPRN0mY1qZ6z+ROom+S0Llcj6G7+om+ScIcjXFz47Gib5Lg CFi2+Eez6JskPOp+/d6HWaJvkhC/5lrK7D9E3yShTv+NRYolib5Jwqz5dmWa 6KtiJCzpMbdKlYOib5Iwpk7o71eOib6p4PHWSb+WdVb0TRL2j9k2qmy26Jsk LOs4MnTTLdE3SdB2rxu97j45WcKh9kdelXxCdkoY0vDZob9ekFMlfDJpYzvn k10Sngy6XrjJR3JGgY2JT9Z9Jc43JdRerPttq+ivsiUMDe09tofor3IK5nP1 5Y75JcX5pgS/pUfLTS0tzjclnHxddffnMuJ8s+D5Slr6oHE5cb4pI+biMaWY 6LOKynh5fm7q7IrifFNG8atPBx30F+ebMvJ6nB+cKPoutYzlky/Xrl5ZnG/K mDhgUXwXYY2MahfS4gOEg2RUinwx3iH+PGQEnjy14X///rCCf+9p1Kup4t+P kHF/i/r7E+XF+aaMkkW630gRfVyUjDMFs6oi8kXL6LNz+oBipcTnDRlflyrR eExx8XlDxlzT4HutvhGfN2RkovzoKPF8x8s41WhB7bOiT7TLKLX9c4Xxf4v5 y2i3p09Ww6di/jKWhk8IzcsV85fxw6lwmK+L+cu43k/d/HiWmL+MzqNSg+cf FfOXMank6Yob9oj5yzA7ru5KF7+/bhl9B11vt0D0sdkFf75Bb+cuiZwjI7yq Tr09mpwnY555WsO34WSPjLs3ErZdbUDOl/Hw+tj35iJklYLfa/pvvnFNvP4V rO9W/vTWZPH6VxC3yXfewNHi9a+gb7GA9x8CxOtfwayeq6aVcdPxJ1DBjw8u 7F04kqxRsOOl9na6h45vQQra/jl1nGoAGQoK9dX9tnEzHR/DFMxdv2dhxUvi eKqg27qsjXvO0fE3UsGFRctfrP+DjtdRCtoF/nyvZj06nkcrOOO/+2SvyXT8 1yqYveBywsEZd2j+CsJ6jv3YTUfvJ5KCGyX//rPmoes0fwXxKV1q/r6f3p/s Cgz3v21qrUbvX4kKkmo1qRL6IYvmrxScv+46ds95huavIGLro6Ftw+n90qng wdmLfddtoOsnqQoety5Z9XESXV9xKai29cyKA/WP0PwVtOrzqYyrwSGavwLX lfF7TTvo/T1bQYUFJ/p3Ok7v/zkKYhf13li/K50f5Clwn19fdHIzOn/wFDy+ 7z6PmD6Mzi/yFWxveuxto51baf5WOF63W+H8hs5Pilrxh4+5VZ0dG2n+Vmww V/6q96Zkmr8V9/pmhW66S9er1FasHVLhnb0HnR8FWvF+2dm2FTxraP5WtCql PZW8i86vgqw4NLHOzGPL6fwLVqzTyvUurKHzszAr/DxTuuTE0flbhBXfbH6V sOhvOr+LtGLeL7XqNp8p7meyYuTR2eXetKfzwWgrejecUnV/FTpf1Fox7IVm 4Atx/S6m4PHvzpoTX1nc72NFzrrFaSdC6Hw03oruN8tGDdLS+ardCvu+i/U6 7Kbz2UQrTG173FxTguwo+PnyV+VejKXz32QrPvh12HT6Jp0fO614cHle00J9 xPVGK2ZVDRinu0Xn1y4rzja4UuGnseQMK4y9FgcqhcluK3bv2ZqQsJbOz7Ot KNWs1W9pnck5VjSvkNnI+obO7/OsyK3zd83wjeJ834qSs5IzVg8i5xc8vr2d J1RXk1U2OMfvvr89nT5PFLXhgDKz8tPuZD8bKvz6emanB/T5w98GbTO3bxMb WW1D8Dx3UKFAcqANwyquPdHhHH2e0djQ5mDh7jEKOciGcu8HFv8uiAwb6h89 plW9pM9HYTZMarN6eOx2coQNm1d+NXryFHKkDeMb6mZPai0+X9kw/Du/7T8U J0fbENKt0AH5Cn0e09rw+4QhQypuJsfYsPJgp8MHZLJkQ73k0LjWfcjxNrRf rFqgbSGuN9twqU6P3bXKkhNtGLF0bv16L+nzocOGaQdCy0VeJCfbULb60WoL 95KdNuz7e9yKPSvJqTYcSb6evyKO7LLhbtSUqg3HkzNs+DbF98PP/chuG3rN Du6YHUbOtqHwwDo1D/xAzrGhTuDNT7l1yP9cb1joE9CyAtljQ/LOis1XFSHn FzwfvSb87v+OPg+rYr90UWY/Zn9mNXMgs4Y5iBnMYcwRzJHMUczRzFrmGGaJ OZ7ZzpzI7GBOZnYypzK7mDOY3czZzDnMecwe5nxm1TQ2f2Y/Zn9mNXMgs4Y5 iBnMYcwRzJHMUczRzFrmGGaJOZ7ZzpzI7GBOZnYypzK7mDOY3czZzDnMecwe 5nxmVRybP7Mfsz+zmjmQWcMcxAzmMOYI5kjmKOZoZi1zDLPEHM9sZ05kdjAn MzuZU5ldzBnMbuZs5hzmPGYPcz6zKp7Nn9mP2Z9ZzRzIrGEOYgZzGHMEcyRz FHcMXl9+mrFSfN7XMkvMdmYHs5PZxexmzmH2MKt0X9qPWa1DyWIfimwV1uhQ 2ud0N5cwdPgjtdX+88IROoQo1W8/FI7S4cmg6rV8doj8OgxfkfJHDWFJh37v gwMgbNfh3unCNYcKO3SQm6cMmCvs1GGf5/aQTcIuHXZvnBF2UtitQ6nJ/see Cefo8Oe4AEulnSK/DgenvVgaJqzSo06dmntMwn565DXbWmyfsFoPW/Onf34U 1uhhiFW17rxL5Nfj0dQmTR3CEXrcSatZXbVb5NfjYsqCmqOEtXrsvlmm/R1h SY/V91NLDROft+16NHqfnfVa2KFHzJiDoQtTRX49Cn3IK9V2r8ivx4pDe8Lf Cbv1qJLyWHLtE/n1KHVjzop5+0V+PXSNCn+tPSDyG1A6zP9wL9E/+RmQUuXn uT+L+6fUBhzasT0u+LDIb8DGasbBzVwivwE3BlcyNTwi8htQNWCkq06ayG/A 0+vbBvr/KfIbYHp79KkqXeQ34L1c+epVYbsBdytXyHaIPsJhQOWX4UfDRR/m NGDm7iL6bGGXAaGWP1f+eFzkN6Bn8WanxwvnGKAPatF3nLDHgGHzJyc2EFYZ cS/7Qa2V4u/zM+LamybbDoh/X23E5AEd2+nE49MYsa1b95IZIh+MGOeaoP9D PB8RRvycuWHCbfF8RhkxdOGGnTPFPLRGHPEUPjTtf+dvxJMKtXFwm8hvxLsh P1oqbhb5jbgyfWSGfp3Ib0RV28d3GctFfiMKV7018tYCkd+IlFJbPItmiPxG xDbu0CJN9JUeI34sN7Vbw/Eivwlpk+odWzZQ5DfhwFZd65PdRH4TvgnPDI4O EflNWDqk5eQKASK/CdeH1F8yopjIb0KDpetdd0UfG2VC1qOXLV+I+we1JiSd GzA4byVZMiFInvP+/Xiy3YT0VzMWhvxEdpjwbdkt9WeqyE4Tmj+6s2vJPtE3 m7AjZPf7ayNE32xC7Yvzz0slxf2PJhysUyJwtIP6HY8JFduFpWlqk1Vm9Aw/ OazsPOp7/MzY8bh6ToVH1Peozfhz7aAbAYFkjRmxWZ3aDelE/Q/M0LXV9dv4 H+p/Isw4EHkwunkj6n+izFi+ccXEuBei/zFji3WDrcFyuj4gmbFgewvPjRbU B9nNKDQwfGXaMeqDHGbUHfz4sX4X3Y/qNGPwdWOb0m/o+oTLjMP13uy5FkX3 r7oLHt/0K0me93R/a44ZdwasqT/g1AXKb4bP/tFf68/R/bAqC9IOFDxBJak/ 8rOgV/HVI0/+Rf2R2oKLa2YklKp4ivJb0GhU7WqjEzIpvwWrn7TbN6EHXZ+J sODE8EJ+wT2OUn4LqryvJtmnU7+ktWBD2LIu759TvyRZcHzNSfeuWLoeZLeg 0/TUBV0t1Dc5LFiybPq59T/Q/cFOCy70rfzmj/rUP7kssKf3OtauO91P7Lag dcMLFxKSdlN+Cx7/Vfz4T/Woj/JYkJ1wvMGmk9RHqSQU3bjhyhE73a9cVELD o55WbydQP+UnoWcD17jvxon7myUk9XpSpGFh6qvUEoa12rVuVU/qqwIlPKgc ED7yJF1v00goL52bd3gQ9VdBEha//P1DW3+6PgcJVe/M6J6fR9fvwiT0cTyY H3SO+qwICbsq9onemEV9VqSEwTur9mydS9cDoyR0Mmmn1ChBjpbwvFKHD0lt qe/SFuRbPHV57zjqu2Ik3F6l/v3WVeq7JAm2whdeFQshx0v4JJU8nLme+i+7 hMStve4GViMnSthZIqX6wmDqwxwSnvzUanBGON1vnixhy5hHrSaME99HLMi7 KtPYbhX1Y6kS9G2SR35zW1wvlfDm0LnkDQ3JGRKCOjv2tphGfZlbgu5zriHt IfVl2RIaX5kxX/6N/M/1Bt/0zrvPUH+WJ8H/+6bTtnQlewp+/ia06plL1Kfl S7gUMHnmzGFklYzQGZOjoz5Sv1ZURm7Nlycv/0H2k9H1wEUfc2uyv4wXIf6T Hj+gvk0tY0dHn/Ppi8iBMnbmlmi/uTNZI2PqiHvjeviQg2RkfTAER7uon4OM s5vWzl0nk8NkTDfuSDoWKq5fy2g4ouxxW2lypIzxSZ00q6+J78/JOFfk6YN7 G8nRMiYV6aX/1kTWylhTYtT1993JMTJCdmU4R9QnSzK6xG2Ib+RDjpcRt6d1 uSqiD7TL2D2iVOuvD5ITZZQprSm5fxnZIaPz5Zm1qpnJyTJK5J94rRr43+83 ZLZ9cuOnn8mpMlJXf9609TvRN8pY3Trm0g9lRN8o46g0YtKWfOoT3TJG/2d7 2Isc0TfKuOuj9VzLFH1jwfPZ72NCN/H9wDwZJSctLtF4OdkjY9mpgH5948j5 Mop9v2nczvHifgMFNTWDblftRy6qICR10+FJoeL+AwUdLi66vFxD/ud6w6fF bw2VyWoFMW1i+77wIQcqaH3mzcc7j6nP1CgoK/eb3OAiOUiBttaWes4DZCh4 PTL9WZc15DAFjw431+TGkyMU7Hzzck/XMeRIBcmvPIf6RJCjFJSodanE+Sbk aAVF9Z/GGMuQtQr86zdYHXyT+tMYBT72ZqYyC8mSgrnhI/IndSTHK2gWrzpy 8m/qT+0K4tsNvHTLQU4s+Pvl1B4rO4n7QRRciHlf7ImH+tNkBUND5JszF5Od CooY8tLKtyanKnj+/uaUb3KpH3UpCC9zd/PBWeQMBYqniWd2C7JbQftt3W7t vkV9Z7aCIdeTDo+aSf7n+w0LM3yzg8h5CvadqJxWI0/0jQX5Gj251H+J6BsV TCrUpltyuLjfxooXnwaX8ytELmpFiepnP6zdKz5vWvHpUPRvYyaKz5tWDF6w suiYxuLzphVjfLpf2fSE7h8KtOJe/ZtXa2wR9ydZUXFgWtUMLTnIimc7x51e 1ULcr2RF952L/k76QN/3DLNiavpm36yj5AgrejxvtreU+D5opBVla0f69R1A jrLi6KVHKZsbkqMLfMc15eUn+j6TljmGWWKOZ7YzJzI7mJOZncypzC7mDGY3 czZzDnMes4c5n1ll+9JFmf2Y/ZnVzIHMGuYgZjCHMUcwRzJHMUcza5ljmCXm eGY7cyKzgzmZ2cmcyuxizmB2M2cz5zDnMXuY85lVsWz+zH7M/sxq5kBmDXMQ M5jDmCOYI5mjmKOZtcwxzBJzPLOdOZHZwZzM7GROZXYxZzC7mbOZc5jzmD3M +cyqaWz+zH7M/sxq5kBmDXMQM5jDmCOYI5mjmKOZtcwxzBJzPLOdOZHZwZzM 7GROZXYxZzC7mbOZc5jzmD3M+cyqODZ/Zj9mf2Y1cyCzhjmIGcxhzBHMkcxR zNHMWuYYZok5ntnOnMjsYE5mdjKnMruYM5jdzNnMOcx5zB7mfGZVPJs/sx+z P7OaOZBZwxzEDOYw5gjmSOYo7hio/u//Cn7+pf/ff+7d1+Td1+Td1+Td1/Rv fu++Ju++Ju++Ju++Ju++pn/n593X5N3X5N3X5N3X5N3X9O/8vfuavPuavPua vPuaxPy9+5q8+5q8+5q8+5rE/L37mrz7mrz7mrz7mrz7mv7N793X5N3X5N3X 5N3X5N3X9O/z5d3X5N3X5N3X5N3X5N3X9O/8vfuavPuavPuavPuavPua/p2/ d1+Td1+Td1+Td1+TmL93X5N3X5N3X5N3X5PI793X5N3X5N3X5N3X5N3X9G9+ 774m774m774m774m776mf+fv3dfk3dfk3df0330N3n1NX+5r8O5r+nL+3n1N X87fu6/py/l79zV9OX/vvqYv5+/d1/Tl/L37mr6c//8/+5r+DwrFJGw= "], {{{}, { EdgeForm[], Directive[ RGBColor[1, 0, 0], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[CompressedData[" 1:eJwl1WV0FgQUBuBvjI7RXduIweiOjRowmgWMztG10aM7lA4DGEqjpIISSphg CyYYoHTYgoKC8ezw4znvuf/vvW9YcmpiSqZAIBDE40GPckPmQCCdxYZFLGQB 85nHXOYwm1nMZAbTmcZUppDGZCYxkQmMZxxjSSWFMYxmFCMZwXCGMZQhDGYQ yQxkAP3pR1/60Jte9KQH3elGEl3pQiIJxBNHZzrRkQ60px1taUMsrWlFS2Jo QXOa0ZQmRBNFYxrRkAbUpx51qUNtalGTGlSnGlWpQiSVqUQEFalAecoRThih lKUMpSlFSUpQnGIUpQiFKURBCpCffOQlhDzkJhc5yUF2spGVLGQmmEwEBT1a mP/Ev/zDQx7wN39xn3v8yR/c5Q6/8xu/8gs/8xM/8gO3ucVNbnCda1zlCpe5 xPd8x0Uu8C3f8DVfcZ5zfMkXfM5nfMonnOUMH/MRH/IB7/Me7/IOpznF27zF m7zB67zGSU5wnGO8yisc5QiHOcTLvMRBDvAiL7CffexlD7vZxfM8x052sJ1t bGULm9nEszzDRtIzbpf1rONpnuJJnmAta1jNKlayguUsYylLMv4Aj7GYRSxk AfOZx1zmMJtZzGQG05nGVKaQxmQmMZEJjGccY0klhTGMZhQjGcFwhjGUIQxm EMkMZAD96Udf+tCbXvSkB93pRhJd6UIiCcQTR2c60ZEOtKcdbWlDLK1pRUti aEFzmtGUJkQTRWMa0ZAG1KcedalDbWpRkxpUpxpVqUIklalEBBWpQHnKEU4Y oZSlDKUpRUlKUJxiFKUIhSlEQQqQn3zkJYQ85CYXOclBdrKRlSyog0AwGV3x PyiJp2E= "]]}]}, {}, { EdgeForm[], Directive[ RGBColor[0, 1, 0], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[CompressedData[" 1:eJwl1WecyAUcBvD/DfO4QpFQCe0kpIgmZaaIJhWSIiozkozK3uvs7Wx37nDc 2e7sPc7ezuacPfv69OL7vPy9ej7Pr3CDFrWahwZBEEIP0Z3h4UEQRWRYEOQk BxFkJxtZyUJmMhFOGKGEEHDf0Xvc5Q63ucVNbnCda1zlChlcJp1LXOQC5znH Wc5wmlOkcZITHOcYRznCYQ5xkAPsZx972UMqu9nFTnawnW1sZQub2cRGNrCe daxlDSkks5pVrGQFy1nGUpaQRCKLWUQCC1nAfOKJYx6xxDCXOcxmFjOZwXSm Ec1UpjCZSUxkAuMZx1jGMJpRjGQEUQxnGEMZwmAGMZAB9KcffelDb3rRkx50 51/+4W+60ZUudOYvOvEnHfmDDrTnd9rRlja0phUt+Y1f+YUWPCjmzzSjKT/x I034gcZ8TyMa0oDv+JZvqE89vuYrvuQLPucz6lKHT6lNLT7hY2ryETWoTjWq UoXKfMgHVKIi7/Me7/IOb/MWFSjPm5SjLG/wOmV4jdKUoiSvUoJXKM7LvMSL vMDzPMezPEMxilKEpynMUzzJExSiIAV4nPw8Rj7y8iiPkIfc5OJhHiKSnOQg guxkIytZyEwmwgkjlBAC7tuRe9zlDre5xU1ucJ1rXOUKGVwmnUtc5ALnOcdZ znCaU6RxkhMc5xhHOcJhDnGQA+xnH3vZQyq72cVOdrCdbWxlC5vZxEY2sJ51 rGUNKSSzmlWsZAXLWcZSlpBEIotZRAILWcB84oljHrHEMJc5zGYWM5nBdKYR zVSmMJlJTGQC4xnHWMYwmlGMZARRD/adYQxlCIMZxEAG0J9+9KUPvelFz5D/ f8R/6uPhqw== "]]}]}, {}, { EdgeForm[], Directive[ RGBColor[0, 0, 1], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[CompressedData[" 1:eJwV1GV7FgQAheGXEBQENhoGbANGd45mIwaMHN0wujY6RsOIURs5UkLBbsKg TFBKQWlsSaUVDMDbD/fzC851wuMT4xIyBgKBDKRIrkyBwJrMgUA6q1nFSlaw nDRSWcZSlrCYRaSwkAXMZx7JzGUOs5nFTGYwnWlMJYkpTGYSE5nAeMYxljGM JpEERjGSEQxnGEMZwmAGMZABxNOffvSlD73pRU960J1udKULnelER+LoQHva 0ZY2tCaWVrSkBTE0pxlNaUI0UTSmEQ1pQH3qUZc6RFKbWtSkBtWpRlWqUJlK VKQC5SlHWcpQmlJEUJISFCecMEIpRlGKEEJhClGQAuQnH3nJQ26CCSIXOcnB s2QnG8/wNFnJwlNkJhMZyUCAJzb2mEf8yz/8zV885AF/8gf3ucdd7nCbW9zk d37jBte5xlWucJlf+YWf+Ykf+YHv+Y5LXOQC5znHWc5wmm/5hlOc5Gu+4gTH OcZRjvAlX3CYQ3zOZ3zKJ3zMRxzkAPvZx14+5APe5z32sJtd7ORd3uFt3uJN 3uB1XuNVXuFlXuJFdrCdF3iebWxlC5t5jk1sZAPrWcda0v//AFazipWsYDlp pLKMpSxhMYtIYSELmM88kpnLHGYzi5nMYDrTmEoSU5jMJCYygfGMYyxjGE0i CYxiJCMYzjCGMoTBDGIgA4inP/3oSx9604ue9KA73ehKFzrTiY7E0YH2tKMt bWhNLK1oSQtiaE4zmtKEaKJoTCMa0oD61KMudYikNrWoSQ2qU42qVKEylahI BcpTjrKUoTSliKAkJShOOGGEUoyiFCGEwhSiIAXITz7ykofcBBPEf4uJs14= "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], LineBox[CompressedData[" 1:eJwl1WV7EAQUBeCNztE9YjC6u7tHj24YnSM3ursUDFBCwaAbJZXGoBulUVJB 6VR49/DhPfcXnHNDIiLD+wcGBARMFTE3FrGJQ1ziEZ8EJCQRiUlCUoJIRnJS kJJUpCYNaUlHejKQkUwEk5ksZCUbIWQnB6HkJBe5yUNe8pGfAhSkEIUpQlGK UZwSlKQUpSlDWcpRngpUpBKVqUJVqlGdGtSkFrWpQ13CqEd9GtCQRjSmCeE0 pRnNaUFLWtGaNrSlHe3pQEc60ZkIutCVbnSnBz3pRW/60Jd+9CeSAQxkEIMZ wlCiiGYYwxnBSEYxmjGMZRzjmcBEJjGZKUxlGtOZwUxmMZs5fMCHzGUeH/Ex n/Ap81nAZ3zOQhaxmCV8wZcsZRlf8TXf8C3LWcFKVrGaNaxlHevZwEY2sZkt fMf3bGUb29nBTnbxAz+ymz3sZR/7OcBBDvETP/MLv3KYIxzlGMc5wUlOcZoz nOUc57nAb/zORS5xmStc5RrXucEf/MlNbnGbO9zlHn/xN/d5wD/8y0Me8Zgn POUZz3nBS17xmjf8x/+8Jab8gcQiNnGISzzik4CEJCIxSUhKEMlITgpSkorU pCEt6UhPBjKSiWAyk4WsZCOE7OQglJzkIjd5yEs+8lOAghSiMEUoSjGKU4KS lKI0ZShLOcpTgYpUojJVqEo1qlODmtSiNnWoSxj1qE8DGtKIxjQhnKY0ozkt aEkrWtOGtrSjPR3oSCc6E0EXutKN7vSgJ73oTR/60o+Y8Y5kAAMZxGCGMJQo ohnGcEYwklGMZgxjGcd4JjCRSUxmSuD73/AOmGemIA== "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], LineBox[CompressedData[" 1:eJwV02V7FgQAheGXDRjd0t2IGCitiNLdggKiIKF0KiIgGORGd3d3ju4aPbpj dI/OcfPhfv7AuU62Ju1qtY0VCAT6Sj/6M4CBDCKUMAYzhKEMYzgjGMkoRjOG sYxjPBOYyCQmM4WpTGM6M5jJLGYzh7nMYz4LWMgiFrOEpSxjOStYySpWs4Zw 1rKO9WxgI5vYzBa2so3t7GAnu9jNHvYSwT72c4CDHOIwR4jkKMc4zglOcorT nOEs5zjPBS5yictcIYqrXOM6N7jJLW5zh7vc4z4PeEg0j3jME57yjOe84CWv eM0b3hLzfuSgQCAWQQQTmzjEJYR4xCcBCUlEYpKQlGQkJwUpScUHpCYNaUlH ejKQkUxkJgtZyUZ2cpCTXOQmD3nJx4fk5yMK8DGf8CmfUZDP+YJCFKYIRSlG cUrwJV9Rkq8pxTd8S2nKUJZylKcCFalEZapQlWpUpwY1qUVt6lCX76hHfb7n BxrQkEb8SGN+4mea0JRfaEZzWtCSX/mNVrSmDW1pR3s60JFOdKYLXfmdP+jG n3TnL3rQk178TW/68A//8h//05d+9GcAAxlEKGEMZghDGcZwRjCSUYxmDGMZ x3gmMJFJTGYKU5nGdGYwk1nMZg5zmcd8FrCQRSxmCUtZxnJWsJJVrGYN4axl HevZwEY2sZktbGUb29nBTnaxmz3sJYJ97OcABznEYY4QyVGOcZwTnOQUpznD Wc5xngtc5BKXuUIUV7nGdW5wk1vc5g53ucd9HvCQaB7xmCc85RnPecFLXvGa N7wlhkCw/xNEMLGJQ1xCiEd8EpCQRCQmCe8ARgzgbg== "]]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], LineBox[CompressedData[" 1:eJwNxGOAFgYAANAv12rZvmzbNi+7Lusu23d12TVkbbXl2nLLDVlbxpax3Jbf j/eCQsKCQ6MEAoFIJYgWCCQkEYlJQlKSkZwUpCQVqUlDWtKRngxkJIhMZCYL WclGdnKQk1zkJg95yUd+ClCQQhSmCEUpRnFKUJJSlKYMZSlHeSpQkUpUpgpV qUZ1alCTWtSmDnWpR30a0JBgGtGYJjSlGc1pQUta0Zo2tKUd7elACB3pRGe6 0JVudKcHPelFb0IJow996Ud/BjCQQQxmCEMZxnBGMJJRjGYMYxlHOBGMZwKR TGQSk5nCVKYxnRnMZBazmcNc5jGfr/iab/iWBSxkEYtZwlKWsZwVrGQV3/E9 q1nDD/zIWtaxng1sZBOb2cJWfuJntrGdHexkF7vZw15+YR/7OcBBDnGYIxzl V37jd/7gGMc5wUlOcZoznOUc57nAn/zFRS5xmStc5RrXucFNbvE3/3CbO9zl Hvd5wEMe8Zgn/MtTnvGcF7zkFa95w3/8z1ve8Z4PfOQTgeiBQBSiEo3oxCAm sYhNHL4gLvH4kvgkICGJSEwSkpKM5KQgJalITRrSko70ZCAjQWQiM1nISjay k4Oc5CI3echLPvJTgIIUojBFKEoxilOCkpSiNGUoSznKU4GKVKIyVahKNapT g5rUojZ1qEs96tOAhgTTiMY0oSnNaE4LWtKK1rShLe1oTwdC6EgnOtOFrnSj Oz3oSS96E0oYfehLP/ozgIEMYjBDGMowhjOCkYxiNGMYyzjCiWA8E4hkIpOY zBSmMo3pzGAms5jNHOYyj8/WaLIl "]]}}, {{ Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[1, 0, 0]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 1, 0]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 0, 1]]}}, {{ Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[1, 0, 0]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 1, 0]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 0, 1]]}, {}, {}, {}, {}, {}, {}, {}}, {{ Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[1, 0, 0]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 1, 0]]}, { Directive[ PointSize[0.006944444444444445], AbsoluteThickness[1.6], RGBColor[0, 0, 1]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {381.875, 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 -> {{381.875, 780.}, {0, 0.976087481}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"R\"", "\"G\"", "\"B\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, ImageSize -> {20, 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[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], 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[1, 0, 0]; 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[1, 0, 0], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "1", ",", "0"}], "]"}], 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, 1, 0]; 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, 1, 0], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}], 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, 0, 1]; 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, 0, 1], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", 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[{"True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.839443316883016*^9, 3.8394433237681*^9}, { 3.839443749101613*^9, 3.839443767324998*^9}, 3.83944387468218*^9, 3.8394446115989122`*^9, 3.839445303263796*^9, {3.8394466050254803`*^9, 3.8394466107865047`*^9}, {3.839446672014279*^9, 3.839446691345479*^9}, 3.8394471265776567`*^9, 3.8394474648152437`*^9, 3.839451229119439*^9, 3.839451625114189*^9, 3.839452095224019*^9, 3.839452295738779*^9, 3.839453480290059*^9, {3.839497975589863*^9, 3.839497988824851*^9}}, CellLabel->"Out[28]=",ExpressionUUID->"53d5e037-810f-4be1-af7c-e6340c38f5c8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["CIE Illuminant D65 spectral reflectance", \ "Section"]], "Subtitle", CellChangeTimes->{{3.6472069892556753`*^9, 3.647206992644547*^9}, { 3.64720706386841*^9, 3.64720723066249*^9}, {3.647207262730607*^9, 3.647207325235694*^9}, {3.661121273814883*^9, 3.6611212811271257`*^9}, { 3.6611836316553793`*^9, 3.661183634470564*^9}, {3.6815771809416018`*^9, 3.681577182173439*^9}, {3.839450617122533*^9, 3.839450633617247*^9}, { 3.8394508014046373`*^9, 3.839450865878237*^9}, {3.839451960322475*^9, 3.8394519606214457`*^9}},ExpressionUUID->"db386b88-be30-460a-b75a-\ 1d41b70c7281"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "d65"}], "}"}], "=", RowBox[{ RowBox[{"Import", "[", "\"\\"", "]"}], "\[Transpose]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "d65"}], "}"}], "\[Transpose]"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", "\"\\"", "}"}]}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Gray", "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.839443174827423*^9, 3.839443196909202*^9}, { 3.839443297145803*^9, 3.839443322674219*^9}, {3.8394436220338783`*^9, 3.839443643611599*^9}, {3.839443687480165*^9, 3.839443690407104*^9}, { 3.8394469441842833`*^9, 3.839446951167843*^9}, 3.839450419348551*^9}, CellLabel->"In[29]:=",ExpressionUUID->"d682d8a8-be84-4cf4-ad06-eab0eb9bf406"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJzt2el/VNUZB/AREghLMSBKFJWwqFEQIoqJgvBjk0EkGVkDAQkIEhGTFLTM PnfmbiMKBFSIFTFsEpTiVBCCQE0RELXYSF3YlKBUgoBG0BpEsPd4fudF3/UP mLzh82WSufc5z1mec07naaWjZjRxuVzpTV0u8e/vP0Ve3LVqc07jqBH43WWO 297db+fbD0prXnzc5ciFcJc86XLHiyddHjw/X7rSi8dcpdEUn0c64UXO0wOL /t3jIekaL6oR++q9OrrWi9zGXdNfe36UdJ3z+RtNTz7rHi3d4IWV+9meJ36l XT40b7jG7UmMkU734VPvqZvvqKczfVh9xY7UdpljpbN9mDN/4Ylz42n4gKum vvuvRbTHhyuX37lq83t0kQ+LRj/ZbdlvdJkPk4/e39SbM47x+9BjxrVfFZTS 5T78cvZ0zT3r6Eof3v/T31657hid8OGaWSPPLzxN1/gwXXxhI13rw2+dL/3n qZTxjN+HkVc/+8C36XSDD39O67ji4Rtolx8nL67/4cCtdLoffb7PHTrsbjrT j9pNE37aNojO9uPGdfXunvk0/Hj8z/OWryqkPX7kzhzyWGk2XeTH1mmRQ/el 0mV+6L0efLXlYRW/H02629cc2qji9+OfP4/+eq2u4vfDiXb0kwUqfj+uqynM HHi7it+PF7cvLb+yiYrfj0fjj0w++hnbu86PE/qK/a+9Tjf40T3jhU9aZPL3 XQG8E7ohd+bzdHoAzdq1H7A3TcUfgPO2998UUvEHcLzVc+tjP6j4A7il8unE 8RkFjD+Akru0rThMFwXQ91j+gmV5Exh/AA+/Pbx1k3dpLYBFu37KmpQzkfEH 8FxGyrg2Jl0ZgOjutQfoRAALlpW00zMLGX8Ai88GB/QpoWsDWDr4mdknt9N1 ATi6uL7FJMbP542nXUH5vLV0elA+7xydGZTPw2TGH0Q7veaDlUNp8PcfoD1B tLn9zZe/z6eLgjBPP1R941i6LIiWn68uu28irQXl+0yhy4NoFn1h8DPT6cqg fP/H6ERQ9pcSuiYIRx/9PJeuDaK1+IWpdF1Qtk8e3RBEB+fXR/elXSEs352Z mJNFp4fQ64tuzaJX05khbN7nDMAmKv4Q7hH/8T3bByE4o7PXF0dpTwhDxAu/ TxeF5PjdSpeFIB7/9U5aC8GZbdI27KbLQzjjNJf5IV0Zwq/O8Bx5gE6EZHyH 6JoQbpg4ve+xY3RtCKL5131D1zGesyr/IQzo4/TAH1X+w/CIBF9U+Q+jc2JO 8eL9Kv9hnDswclp6JZ0dlvP1HBV/GKuGbjl/aYiKP4y5xU6Ld1Dxh2V7nGJ/ LAuj/cZhx/07aC2MHy994j21kC4PY4+TjuKpdGVY9uc76USY40X1/zAC4gvv Vf0/jKdEh+6v+n8YpaLDDqQbwhCvN2Ao7YpgzNdrX9rtptMjyJuWXnDPg3Rm BO7j/vYb8+nsCO4UP6NpRGR7j6M9ETitM2uH+vuiiBwfg1T8EdzvNNcnuSr+ iIy/p4o/Ituzm4o/IvPTUcUfwWXn129uq+KPQEwn3Zur+CMyvkucL+oisr+f pxsiMp91tEvD/n+IHzpNg3g97zY6XZPj51U6Q8MTYsFYQmdqsn0idJaGrqIB ZtPZmuyvE+hcTa43Q2loeNdJ56LetFuT84X63MPvH08XaHL+mEUX8f2DdLGG Fd+v2ztiEV2mwWn9LkdW0l6+32Za0yA+vrCXjmuo2jsi5+lDaj7WMGvHk89l nKErNDmeP1fzswYxnFrvoqs0OZ/+Rc3XGv+Ortbk/K/TNRrE16eU0Ps03DrJ 6eEFdK0m57fB9EGN/UXlV8MoZ7o4fS1dr2GcmIA7qHxrENND/tV0I59/lcp/ FKK7b05X+Y/iUfHTRuU/CvE6Wa1V/qOyPVuo/Echvn5Bc5X/qOx/qSr/Udlf mqj8R9FRTEinuP4hKvvvP2k3//4t2hNF2obrJ05/iS6Iyv4ZpYv4/Jl0cRQp ogFGqvU2CjE8995Je6NsL7X+RtkOdDyKMaOcFb2e63d5FOvX5OGqj+mKKN64 yakottGVUTT1tuqWtYquiqLgg967/zqfTkQhXr/vXLraeZ5Tzu4ppGuisv4c Qu+LonBQ//pDPeha53nPz4g/cjV9MIpnLs34+URbuk7li66Poryy8Y5vWtIN UcxucaFyZnO6MYphcy5ceaop7YrJ8eCi02K4PNipQH9V9WAMWeFntz1+gc6I IeXks1lnf1L1UQyivCk5R2fF4Lz9hl92q3opJtezZXRuDCO+Tbmr7SxVP8XQ 6JR7L/Wj3TGMP9Nr+y1Xqnoyhi1GsHbTcdZnBTE88t3EQf0300Ux7LLWjf/A ootjKG0w3x8zgS6L4aP4gS/rutPeGK4PTu099i5Vf8bk/qEfHY8hVWxQhqp6 NIaVTnNuHElXxPCdU553Hafq05is7x6mq2IQ01PLmapejcEp/svDqr6vjkGU rz/MU/VrDG3ynQxr9L6YXK9Cqp6NofbTcWd6BeiDMdzx4m0ZL3jpuhiWONul X56i62MY+MMj/5g8l26IQWy/dpXRjTHZX0tU/avL8fM4naZjz+U3A+eKVT2s 4xbRwI/SGTpE9+45kc7U5fyVR2fpcn4YSGfrEMMp0YfO1fGfZV88Z99KQ+d+ hHbrcHYrTgehPTqynd7QKlXlX0cXZ3tT16j2Vzr2PuEU3GfoYh0ivHCt2m/p uG39VbVDNtNeHWL71aqC1nQsOnGu04EAHdflfm0KXa7L9hxMV+gQ25Fut9CV Otb2GHz96ZZ0lS7H/3fcPyZ0tCzuMtt7gK7WUTal+UfXfkrX6OgmBtjn9D4d 8zs5PfwwXavL8XSUPqhjzbG/tVl+jK7T5Xr4FV2vy3r0BN2gy/53km7UcWjK n/Jv/JZ2GRgwvvCv75yh0ww5/6r3SzdQt7zt2p076QxDPu9VtT82xOip2L6Q zjLkfDePzjbwmdN9t0+hcw1ZX7lpGPAuX9V1WzbtNtDgLN8519IeA87uuMPW K+gCQ7Z3E7rIQO95t3fulEIXG2jtbM8eSqXLDFQ43c1sRnsN2d7Nac2AKHfP ptFxA/12jlrauSVdbsj6qRVdYWB1122/2q3pSgO9SlZfseMPdJWB7dULmjVc p/JvYNjvA07l34DpTGcT+qj8G2j73tvVCwap/Bt42Wnuv+er/BuyHpik8m/g rVd97906S+XfwPlOB0qnqPauNxARBYuh8m+glfiDxSr/BsTxRI5X5d/EsTpn Q/uwyr8p++dQlX8Tm1r/ccMz3VX+TVnPt1X5N/FpC6eDN/I8JctEh60fu778 ks42UdVnf9+8PXSuidNf3X1dzes0TIjpOHsJ7TYxLrRxy7RC2mPK+a4bXWDK eM7yfKfIlPXbFrrYRM2ZFf16aHSZiQfFgdFw2mvi5tGpq5e0ozVTrsdHeH4U N3FkvrPArqHLTdneJXSFiR2p7doP8NOVJt6d/lrRGIuuMiGOF4qX0AkTnX6c PS60gq7m819T51em3D9sofeZ8nxslzrPMuX+4SP6oCnX98N0nQkxvC9+Q9eb GLD36FtGI91gQizXf2jJeBtNOb91pF0WcsSByu10miXfpz+dbsnzMA+dYSEk NpBT6UwLN4kN+1w6y5L1uEFnW3I/tpTOteR+awgNS+6nzvN93ZY8X1hJeyy5 X/HQBZbcf17meWCRJcfvBrrYkvvDQrrMkutpC9pryf1+Gc8XNUvWx/t5/hi3 MMNJ56gcfl5uyflkJV1hyfOIVH5fpSXHz710lSXPm0rVeaUl9/dr6GoL9700 9pXXD9E1FkS5t6GNyr+FpW86A26wyr8F8et/8ar8W+gpDvheVPm3MPfzducG blf5t+T5yVGVfwsjJli5n12iGy182aTF/E6dVP5tOKP7SDFU/m1Zb6n8ptsY Lh4YU/m3sbCZU7CuUfm35XnBHpV/G2/2dCbEoMq/jcXhi/eW9Vb5t+X6Xc/3 gY1NgXMJzysq/zaWfBhxvzNW5d9G1wcCeq/WKv+2PI/ZpfJvY6goaNX5cLEt 17teKv82Hu/uVBwfMn9eG2K6bdbAfGs2bKd87N1e5d/G1870VJg7UrrclvP9 JJ5XV9j4zSmPEhrPsyttud6ueUC6ypb7m/eHSydsHO7ozHBn3dLVNu5+vf/4 wrZ0jS3roT7DpPfZeEIUYPfy81ob/3bKk9IB/L6DtjyvHMLn1fH7hvN96m1s POgs8Hl83wZbjs/RjKfRlvN/AeN1xTFPBDCZ7ZMWx89POSv+HWy/9Lic/zfR GXE41V/J6pfpzDji5sR/7bDprDjEdP3JH+nsOCaLDYUaj7lxiOUy9X4acWhu J6Js2h2Hs7o7KwTtiWPs36vW5KXQBXFki4LuKN+3KI4x4ng9oexlXPxxPv9f J+8jkvcRyfuI5H1E8j5Cxp+8j0jeRyTvI5L3Ecn7iN+dvI9I3kck7yOS9xHJ +wjp5H1E8j4ieR+RvI9I3kdIJ+8jkvcRyfuI5H3E/3Ef8V8lnJCd "], {{{}, { EdgeForm[], Directive[ GrayLevel[0.5], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[CompressedData[" 1:eJwl1eN3HwYYBeD8attObds2U7tNraS2k7arbbtbzXnlVm41xnYrhhpDvScn H55z3z/gnvsGh4aHhMUICgoKMD0QnR8Eou9pTGUKkUQwmUlMZALjGcdYxjCa UYxkBMMZxlCGMJhBDCScMAbQn370pQ+96UVPetCdboTSlS50phMd6UB72tGW NrSmFS1pQXNCaEZTmtCYRjSkAfWpR13qUJta1KQG1alGVapQmUpUpALlKUdZ ylCaUpSkBMUpRlGKUJhCFKQA+clHXvKQm1zkJAfZCSYbWclCZjKRkQykJx1p SUNqUpGSFCQnGUlJQmISkZAExCcecYlDbGIRkxgEAtGFeS/e8ZY3vOYVL/mP f/mHv3nBc57xlCc85hEPecB9/uJP/uB37nGXO9zmN37lFjf5hZ/5iR/5ge+5 wXWucZUrXOYSF7nAeb7jW85xljOc5hQn+YavOcFxjnGUIxzmK77kCz7nMz7l Ez7mEAc5wH72sZc97GYXO9nBdj7iQ7axlS1sZhMb2cB61rGWNaxmFStZwXKW sZQlLGYRC1nAfOYxlznMZhYzmRG1A1EbwDSmMoVIIpjMJCYygfGMYyxjGM0o RjKC4QxjKEMYzCAGEk4YA+hPP/rSh970oic96E43QulKFzrTiY50oD3taEsb WtOKlrSgOSE0oylNaEwjGtKA+tSjLnWoTS1qUoPqVKMqVahMJSpSgfKUoyxl KE0pSlKC4hSjKEUoTCEKUoD85CMvechNLnKSg+wEk42sZCEzmchIBtKTjrSk ITWpSEkKkpOMpCQhMYlISALiE4+4xCE2sYhJ1K/4HyeUpzc= "]]}]}, {}, {}}, {{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], GrayLevel[0.5]], LineBox[CompressedData[" 1:eJwl1WV7EAQUBeCNztE9YjC6u7tHj24YnSM3ursUDFBCwaAbJZXGoBulUVJB 6VR49/DhPfcXnHNDIiLD+wcGBARMFTE3FrGJQ1ziEZ8EJCQRiUlCUoJIRnJS kJJUpCYNaUlHejKQkUwEk5ksZCUbIWQnB6HkJBe5yUNe8pGfAhSkEIUpQlGK UZwSlKQUpSlDWcpRngpUpBKVqUJVqlGdGtSkFrWpQ13CqEd9GtCQRjSmCeE0 pRnNaUFLWtGaNrSlHe3pQEc60ZkIutCVbnSnBz3pRW/60Jd+9CeSAQxkEIMZ wlCiiGYYwxnBSEYxmjGMZRzjmcBEJjGZKUxlGtOZwUxmMZs5fMCHzGUeH/Ex n/Ap81nAZ3zOQhaxmCV8wZcsZRlf8TXf8C3LWcFKVrGaNaxlHevZwEY2sZkt fMf3bGUb29nBTnbxAz+ymz3sZR/7OcBBDvETP/MLv3KYIxzlGMc5wUlOcZoz nOUc57nAb/zORS5xmStc5RrXucEf/MlNbnGbO9zlHn/xN/d5wD/8y0Me8Zgn POUZz3nBS17xmjf8x/+8Jab8gcQiNnGISzzik4CEJCIxSUhKEMlITgpSkorU pCEt6UhPBjKSiWAyk4WsZCOE7OQglJzkIjd5yEs+8lOAghSiMEUoSjGKU4KS lKI0ZShLOcpTgYpUojJVqEo1qlODmtSiNnWoSxj1qE8DGtKIxjQhnKY0ozkt aEkrWtOGtrSjPR3oSCc6E0EXutKN7vSgJ73oTR/60o+Y8Y5kAAMZxGCGMJQo ohnGcEYwklGMZgxjGcd4JjCRSUxmSuD73/AOmGemIA== "]]}}, {{ Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], GrayLevel[0.5]]}}, {{ Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], GrayLevel[0.5]]}, {}}, {{ Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], GrayLevel[0.5]]}, {}}}], {{}, {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {381.875, 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 -> {{381.875, 780.}, {0, 117.812}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"D65\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], GrayLevel[0.5]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], GrayLevel[0.5]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 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[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", FractionBox["1", "90"], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0.5], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"GrayLevel", "[", "0.5`", "]"}], 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 = GrayLevel[0.5]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0.5], Editable -> False, Selectable -> False]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "True", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.839443645026805*^9, 3.839443681644368*^9, {3.8394437491985807`*^9, 3.839443767420643*^9}, 3.839443874769805*^9, 3.839444093185585*^9, 3.839444219488147*^9, 3.8394466109039803`*^9, {3.839446672130972*^9, 3.839446691483054*^9}, 3.83944696209975*^9, 3.839447126705925*^9, 3.839447465101836*^9, 3.8394512292800217`*^9, 3.839451625203464*^9, 3.83945209533884*^9, 3.839452295811335*^9, 3.8394534803756113`*^9, { 3.839497975850823*^9, 3.839497988940425*^9}}, CellLabel->"Out[30]=",ExpressionUUID->"393f68b1-2e07-49bd-af70-5506be4e3501"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["RGB to LMSR", "Section"]], "Subtitle", CellChangeTimes->{{3.6472069892556753`*^9, 3.647206992644547*^9}, { 3.64720706386841*^9, 3.64720723066249*^9}, {3.647207262730607*^9, 3.647207325235694*^9}, {3.661121273814883*^9, 3.6611212811271257`*^9}, { 3.6611836316553793`*^9, 3.661183634470564*^9}, {3.6815771809416018`*^9, 3.681577182173439*^9}, {3.839450617122533*^9, 3.839450633617247*^9}, { 3.8394508014046373`*^9, 3.839450882289154*^9}},ExpressionUUID->"045f9ba7-7042-4131-aa82-\ 83a0ff7d7fa9"], Cell[BoxData[ RowBox[{ RowBox[{"cieIlluminant", "=", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Interpolation", "[", "d65", "]"}], "[", "\[Lambda]", "]"}], "*", RowBox[{ RowBox[{"Interpolation", "[", "m", "]"}], "[", "\[Lambda]", "]"}]}], ",", RowBox[{"{", RowBox[{"\[Lambda]", ",", "1", ",", "391"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.839443927098667*^9, 3.839444002821363*^9}, { 3.839444060998866*^9, 3.839444082947908*^9}, {3.839444114738352*^9, 3.839444119883182*^9}, 3.83944415579716*^9, {3.839444195193529*^9, 3.839444214199149*^9}, {3.839444414430881*^9, 3.839444436520441*^9}, { 3.8394445220233507`*^9, 3.8394445850173492`*^9}, 3.83944462647252*^9, { 3.839444836233657*^9, 3.839444836546022*^9}, 3.8394448830680323`*^9, { 3.839444973925454*^9, 3.839444980776664*^9}, {3.839445016677794*^9, 3.839445027673003*^9}, {3.8394451559190903`*^9, 3.839445160002503*^9}, { 3.839445834552326*^9, 3.8394458503432426`*^9}, 3.8394466842574263`*^9, { 3.839447210999893*^9, 3.839447211542082*^9}, 3.8394979716155148`*^9}, CellLabel->"In[31]:=",ExpressionUUID->"851efab9-f01a-475a-8d95-77e69d6f9c0a"], Cell[BoxData[{ RowBox[{ RowBox[{"d65ReflectanceF", "=", RowBox[{"Interpolation", "[", RowBox[{"d65", "/", "cieIlluminant"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rgbReflectanceF", "=", RowBox[{"Interpolation", "/@", RowBox[{"{", RowBox[{"cr", ",", "cb", ",", "cg"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lmsrResponseF", "=", RowBox[{"Interpolation", "/@", RowBox[{"{", RowBox[{"l", ",", "m", ",", "s", ",", "r"}], "}"}]}]}], ";"}]}], "Input",\ CellChangeTimes->{{3.8394452155069*^9, 3.839445221399282*^9}, { 3.839445857679*^9, 3.839445861815016*^9}, {3.839446817084374*^9, 3.839446820608334*^9}, {3.8394469762013397`*^9, 3.8394469782241383`*^9}, { 3.839451886462318*^9, 3.839451982964561*^9}, 3.839452075151917*^9}, CellLabel->"In[32]:=",ExpressionUUID->"0d1f1189-fad9-400c-9e17-e5482a4c2322"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"rgbToLms", "[", RowBox[{"channel_", ",", "receptor_"}], "]"}], ":=", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"d65ReflectanceF", "[", "\[Lambda]", "]"}], "*", RowBox[{ RowBox[{"rgbReflectanceF", "[", RowBox[{"[", "channel", "]"}], "]"}], "[", "\[Lambda]", "]"}], "*", RowBox[{ RowBox[{"lmsrResponseF", "[", RowBox[{"[", "receptor", "]"}], "]"}], "[", "\[Lambda]", "]"}]}], ",", RowBox[{"{", RowBox[{"\[Lambda]", ",", "1", ",", "391"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.839445276470922*^9, {3.8394453466377773`*^9, 3.839445364308186*^9}, { 3.839445397450433*^9, 3.839445404627583*^9}, {3.8394458934005127`*^9, 3.839446007413809*^9}, 3.839446687312834*^9, {3.8394468086227217`*^9, 3.8394468144327087`*^9}, {3.839447139531687*^9, 3.839447151863946*^9}, { 3.839451931540249*^9, 3.8394519338784924`*^9}, {3.839451970208984*^9, 3.839451989895026*^9}, 3.839497985782436*^9}, CellLabel->"In[35]:=",ExpressionUUID->"855fad7a-8f45-4354-bb75-e67a2b286c92"], Cell[CellGroupData[{ Cell["4x3 matrix for RGB to LMSR conversion", "Subsection", CellChangeTimes->{{3.8394508984350758`*^9, 3.8394509087784*^9}},ExpressionUUID->"73c06730-74b6-43b8-bbae-03fce2232fe5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rgbToLmsr", "=", RowBox[{"Outer", "[", RowBox[{"rgbToLms", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.839446009786174*^9, 3.839446156135174*^9}, { 3.8394464782467937`*^9, 3.83944647971105*^9}, 3.839447154085835*^9, { 3.839451195223851*^9, 3.839451222471589*^9}, 3.8394518527624207`*^9, { 3.839452353636548*^9, 3.8394523558419533`*^9}, 3.8394523958393383`*^9, 3.839452427146964*^9, {3.839453484337986*^9, 3.839453493801558*^9}}, CellLabel->"In[36]:=",ExpressionUUID->"d91a83c4-98b2-4295-b035-41873973424f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.3106517970628422`", ",", "0.09635243354198236`", ",", "0.012165361564991787`", ",", "0.018801282490768876`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.7688987047080651`", ",", "0.775177393367731`", ",", "0.05511661596968732`", ",", "0.6357763926672475`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.08813646937161947`", ",", "0.12847017480263423`", ",", "0.5740456160916152`", ",", "0.4261568888886938`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.839453498597534*^9, {3.839497981200589*^9, 3.839497994251679*^9}}, CellLabel->"Out[36]=",ExpressionUUID->"1901ebd8-db08-4e71-adc6-519ae5e56aa5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rgbToLmsr", "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.8394523680970163`*^9, 3.839452423419404*^9}, { 3.8394525101389523`*^9, 3.83945251038573*^9}}, CellLabel->"In[37]:=",ExpressionUUID->"a93ff78a-f224-4017-b55d-7b4cd854ced0"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.3106517970628422`", "0.09635243354198236`", "0.012165361564991787`", "0.018801282490768876`"}, {"0.7688987047080651`", "0.775177393367731`", "0.05511661596968732`", "0.6357763926672475`"}, {"0.08813646937161947`", "0.12847017480263423`", "0.5740456160916152`", "0.4261568888886938`"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.8394525382750177`*^9, 3.839453485318103*^9, {3.839497981332705*^9, 3.8394979943754673`*^9}}, CellLabel-> "Out[37]//MatrixForm=",ExpressionUUID->"26d09ff2-cf12-4fb3-9ebe-\ 32b6c8a7eaa6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"rgbToLmsr", "\[Transpose]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.8394525148737993`*^9, 3.839452535096004*^9}}, CellLabel->"In[38]:=",ExpressionUUID->"f2371d94-8139-464b-8536-6ff469961cf5"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.3106517970628422`", "0.7688987047080651`", "0.08813646937161947`"}, {"0.09635243354198236`", "0.775177393367731`", "0.12847017480263423`"}, {"0.012165361564991787`", "0.05511661596968732`", "0.5740456160916152`"}, {"0.018801282490768876`", "0.6357763926672475`", "0.4261568888886938`"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.839452516230184*^9, 3.839452539739893*^9}, 3.839453485324418*^9, {3.8394979813410807`*^9, 3.83949799438424*^9}}, CellLabel-> "Out[38]//MatrixForm=",ExpressionUUID->"08aa424d-300e-48e2-819e-\ 26ecca9d5c7a"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1194, 1639}, WindowMargins->{{762, Automatic}, {Automatic, 0}}, FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 683, 12, 126, "Subtitle",ExpressionUUID->"5ae343b7-a2aa-48f4-98df-4a91ccee9af1"], Cell[1266, 36, 344, 6, 52, "Input",ExpressionUUID->"2dea625f-819d-4afb-9db6-1f9e0163fe66"] }, Open ]], Cell[CellGroupData[{ Cell[1647, 47, 545, 8, 58, "Subtitle",ExpressionUUID->"5869e3ef-0bb9-4e92-a9a4-c3889973a035"], Cell[CellGroupData[{ Cell[2217, 59, 1715, 38, 52, "Input",ExpressionUUID->"1c12d9cd-5350-47cb-b7fb-6f53ab47e334"], Cell[3935, 99, 37248, 711, 250, "Output",ExpressionUUID->"14896312-56d5-4de1-b31c-320b384d6e62"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[41232, 816, 842, 16, 81, "Subtitle",ExpressionUUID->"7406aa00-ad51-4be8-9076-280c11689b0c"], Cell[CellGroupData[{ Cell[42099, 836, 1634, 44, 94, "Input",ExpressionUUID->"4b91fc06-decf-4901-8565-882e55398b52"], Cell[43736, 882, 48483, 924, 248, "Output",ExpressionUUID->"e5b17ad2-61b0-4175-ac0d-3aa25e5f8022"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[92268, 1812, 693, 13, 81, "Subtitle",ExpressionUUID->"c65e7cba-0278-462a-aebc-b84ca6044482"], Cell[CellGroupData[{ Cell[92986, 1829, 1345, 34, 52, "Input",ExpressionUUID->"92a6ef21-04bc-49b0-96cc-a124dad68b95"], Cell[94334, 1865, 34283, 662, 248, "Output",ExpressionUUID->"53d5e037-810f-4be1-af7c-e6340c38f5c8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[128666, 2533, 611, 9, 58, "Subtitle",ExpressionUUID->"db386b88-be30-460a-b75a-1d41b70c7281"], Cell[CellGroupData[{ Cell[129302, 2546, 993, 24, 52, "Input",ExpressionUUID->"d682d8a8-be84-4cf4-ad06-eab0eb9bf406"], Cell[130298, 2572, 14915, 297, 246, "Output",ExpressionUUID->"393f68b1-2e07-49bd-af70-5506be4e3501"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[145262, 2875, 533, 8, 58, "Subtitle",ExpressionUUID->"045f9ba7-7042-4131-aa82-83a0ff7d7fa9"], Cell[145798, 2885, 1238, 25, 30, "Input",ExpressionUUID->"851efab9-f01a-475a-8d95-77e69d6f9c0a"], Cell[147039, 2912, 904, 22, 73, "Input",ExpressionUUID->"0d1f1189-fad9-400c-9e17-e5482a4c2322"], Cell[147946, 2936, 1136, 25, 30, "Input",ExpressionUUID->"855fad7a-8f45-4354-bb75-e67a2b286c92"], Cell[CellGroupData[{ Cell[149107, 2965, 183, 2, 54, "Subsection",ExpressionUUID->"73c06730-74b6-43b8-bbae-03fce2232fe5"], Cell[CellGroupData[{ Cell[149315, 2971, 702, 13, 30, "Input",ExpressionUUID->"d91a83c4-98b2-4295-b035-41873973424f"], Cell[150020, 2986, 719, 18, 34, "Output",ExpressionUUID->"1901ebd8-db08-4e71-adc6-519ae5e56aa5"] }, Open ]], Cell[CellGroupData[{ Cell[150776, 3009, 264, 4, 30, "Input",ExpressionUUID->"a93ff78a-f224-4017-b55d-7b4cd854ced0"], Cell[151043, 3015, 990, 25, 76, "Output",ExpressionUUID->"26d09ff2-cf12-4fb3-9ebe-32b6c8a7eaa6"] }, Open ]], Cell[CellGroupData[{ Cell[152070, 3045, 243, 4, 30, "Input",ExpressionUUID->"f2371d94-8139-464b-8536-6ff469961cf5"], Cell[152316, 3051, 1001, 23, 154, "Output",ExpressionUUID->"08aa424d-300e-48e2-819e-26ecca9d5c7a"] }, Open ]] }, Open ]] }, Open ]] } ] *)