(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 216633, 4087] NotebookOptionsPosition[ 214451, 4043] NotebookOutlinePosition[ 214997, 4065] CellTagsIndexPosition[ 214954, 4062] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"<<", "peeters`"}], ";"}], "\n", RowBox[{"peeters`setGitDir", "[", "\"\<../project/figures/ece1228-electromagnetic-theory\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fs", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], "&"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7593540068138227`*^9, 3.759354041797078*^9}},ExpressionUUID->"a596a67d-5203-4e05-89f7-\ f87415c27795"], Cell[BoxData["\<\"/Users/pjoot/project/figures/ece1228-electromagnetic-theory\ \"\>"], "Output", CellChangeTimes->{{3.759354018081238*^9, 3.759354043024931*^9}},ExpressionUUID->"7b09f944-6c3c-4e9b-baef-\ e2424b043450"] }, Open ]], Cell["ps5. p1.", "Text", CellChangeTimes->{{3.68608450062635*^9, 3.6860845043172216`*^9}},ExpressionUUID->"a9340452-2769-43fe-97e1-\ 4eadeb9bce64"], Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", " ", RowBox[{"AlGaN", ",", " ", "chi"}], " ", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AlGaN", " ", "=", " ", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"1.921", " ", RowBox[{"10", "^", "14"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"3.328", " ", RowBox[{"10", "^", "14"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", " ", "\[Rule]", " ", RowBox[{"9.756", " ", RowBox[{"10", "^", "12"}]}]}]}], "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"\[Chi]", RowBox[{"(", "\[Omega]", ")"}]}], " ", "=", FractionBox[ SubsuperscriptBox["\[Omega]", "p", "2"], RowBox[{ SuperscriptBox[ SubscriptBox["\[Omega]", "0"], "2"], "-", SuperscriptBox["\[Omega]", "2"], "+", " ", RowBox[{"j", " ", "\[Gamma]", " ", "\[Omega]"}]}]]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"chi", "[", RowBox[{"omega_", ",", " ", "medium_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"omegap", ",", " ", "omega0", ",", " ", "gamma"}], "}"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"omegap", ",", " ", "omega0", ",", " ", "gamma"}], "}"}], " ", "=", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}], " ", "/.", " ", "medium"}]}], " ", ";", RowBox[{ RowBox[{"omegap", "^", "2"}], "/", RowBox[{"(", RowBox[{ RowBox[{"omega0", "^", "2"}], " ", "-", " ", RowBox[{"omega", "^", "2"}], " ", "+", " ", RowBox[{"I", " ", "gamma", " ", "omega"}]}], ")"}]}]}]}], " ", "\[IndentingNewLine]", "]"}]}]}], "Input", CellChangeTimes->{{3.686082592782675*^9, 3.6860826395156736`*^9}, { 3.6860828254797754`*^9, 3.686082871098092*^9}, {3.686083053617861*^9, 3.686083232469386*^9}, {3.686083269126176*^9, 3.686083428978924*^9}, { 3.686083552218137*^9, 3.686083581565502*^9}, {3.6860838335320764`*^9, 3.6860839097565928`*^9}, {3.6860839466874685`*^9, 3.686083960176918*^9}, { 3.6860841029252167`*^9, 3.6860842216685*^9}, {3.6860842864637446`*^9, 3.6860842870545993`*^9}, 3.6860843172412987`*^9, {3.6860844001636686`*^9, 3.6860844253059187`*^9}, {3.6860844911250644`*^9, 3.686084491593911*^9}, { 3.6860845339546413`*^9, 3.686084555950059*^9}, 3.6860847174402533`*^9, { 3.6860866871100082`*^9, 3.6860867883772917`*^9}, {3.686088577938607*^9, 3.68608869335903*^9}, 3.68608878549754*^9},ExpressionUUID->"8b070055-178f-474c-afd9-\ b1922fab898a"], Cell["a) Index of refraction", "Text", CellChangeTimes->{{3.6860843287898254`*^9, 3.686084335815817*^9}},ExpressionUUID->"f80f3791-591e-40b0-be53-\ 2992b05858da"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"ClearAll", "[", " ", RowBox[{ "p1a", ",", " ", "nAlGaNpoints", ",", " ", "epsilonrAlGaN", ",", " ", "nAlGaNpointsRe", ",", " ", "nAlGaNpointsIm", ",", " ", "epsilonrAlGaNpoints", ",", " ", "txPoints", ",", " ", "maxN", ",", " ", "sgn", ",", " ", "absMaxOfSecondInListsOfPairs"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"epsilonrAlGaN", "[", "omega_", "]"}], " ", ":=", " ", RowBox[{"1", " ", "+", RowBox[{"chi", "[", RowBox[{"omega", ",", " ", "AlGaN"}], "]"}]}]}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"epsilonrAlGaNpoints", " ", "=", " ", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"o", ",", " ", RowBox[{"epsilonrAlGaN", "[", "o", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"o", ",", " ", "0", ",", " ", RowBox[{"6", " ", RowBox[{"10", "^", "14"}]}], ",", " ", RowBox[{"6", " ", RowBox[{ RowBox[{"10", "^", "14"}], "/", "400"}]}]}], "}"}]}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"txPoints", "[", RowBox[{"p_", ",", " ", "f_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"p", "[", RowBox[{"[", "#", "]"}], "]"}], " ", "//", " ", "First"}], ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "#", "]"}], "]"}], " ", "//", "Last"}], ")"}], "//", " ", "f"}]}], "}"}], " ", "&"}], "/@", " ", RowBox[{"Range", "[", RowBox[{"Length", "[", "p", "]"}], "]"}]}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nAlGaNpoints", " ", "=", " ", RowBox[{"txPoints", "[", RowBox[{"epsilonrAlGaNpoints", ",", " ", "Sqrt"}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nAlGaNpointsRe", "=", " ", RowBox[{"txPoints", "[", RowBox[{"nAlGaNpoints", ",", " ", "Re"}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nAlGaNpointsIm", " ", "=", " ", RowBox[{"txPoints", "[", RowBox[{"nAlGaNpoints", ",", " ", "Im"}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"absMaxOfSecondInListsOfPairs", "[", RowBox[{"p1_", ",", " ", "p2_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"p1", "//", " ", "Transpose"}], " ", "//", " ", "Last"}], " ", "//", " ", "Abs"}], " ", "//", " ", "Max"}], ",", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"p2", "//", " ", "Transpose"}], " ", "//", " ", "Last"}], " ", "//", " ", "Abs"}], " ", "//", " ", "Max"}]}], "}"}], " ", "//", " ", "Max"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"maxN", " ", "=", " ", RowBox[{"absMaxOfSecondInListsOfPairs", "[", RowBox[{"nAlGaNpointsRe", ",", "nAlGaNpointsIm"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sgn", "[", RowBox[{"e_", ",", " ", "s_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"e", "[", RowBox[{"[", "#", "]"}], "]"}], " ", "//", " ", "First"}], ",", " ", RowBox[{"s", " ", RowBox[{"Boole", "[", RowBox[{ RowBox[{"Sign", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"e", "[", RowBox[{"[", RowBox[{"#", "+", "1"}], "]"}], "]"}], "//", "Last"}], ")"}], " ", "-", " ", RowBox[{"(", RowBox[{ RowBox[{"e", "[", RowBox[{"[", "#", "]"}], "]"}], " ", "//", " ", "Last"}], ")"}]}], "]"}], " ", "\[Equal]", RowBox[{"-", "1"}]}], "]"}]}]}], "}"}], " ", "&"}], "/@", " ", RowBox[{"Range", "[", RowBox[{ RowBox[{"Length", "[", "e", "]"}], "-", "1"}], "]"}]}]}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"p1a", " ", "=", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{"nAlGaNpointsRe", ",", " ", "nAlGaNpointsIm", ",", " ", RowBox[{"sgn", "[", RowBox[{"nAlGaNpointsRe", ",", " ", "maxN"}], "]"}], ",", " ", RowBox[{"sgn", "[", RowBox[{"nAlGaNpointsRe", ",", RowBox[{"-", "maxN"}]}], "]"}]}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", " ", RowBox[{"Placed", "[", RowBox[{ RowBox[{"LineLegend", "[", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "//", "fs"}], ",", " ", RowBox[{"\"\\"", "//", "fs"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"Right", ",", "Top"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", " ", "\[Rule]", " ", "Full"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", " ", "Thick"}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"\"\<\[Omega]\>\"", " ", "//", "fs"}], ",", " ", "\"\<\>\""}], "}"}]}]}], "]"}]}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"peeters`exportForLatex", "[", RowBox[{"\"\\"", ",", " ", "p1a"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.6860845605809364`*^9, 3.6860845653023143`*^9}, { 3.6860846028987317`*^9, 3.686084607196594*^9}, {3.6860864328890142`*^9, 3.686086469593712*^9}, {3.686087703286989*^9, 3.6860877155698504`*^9}, { 3.686088699442081*^9, 3.6860887058654013`*^9}, {3.686133996217085*^9, 3.686133996685836*^9}, {3.686134061178595*^9, 3.686134069615471*^9}, { 3.686134180655584*^9, 3.6861342223775806`*^9}, {3.686134273614581*^9, 3.686134420896914*^9}, {3.6861771299025173`*^9, 3.6861772244597273`*^9}, { 3.6861772670620785`*^9, 3.6861774371294107`*^9}, {3.686177472506728*^9, 3.6861776316939354`*^9}, {3.686177669991185*^9, 3.6861776725274773`*^9}, 3.6861778103440995`*^9, {3.6861778532575903`*^9, 3.686177876222389*^9}, { 3.686177916389368*^9, 3.686177944086928*^9}, {3.6861779948753138`*^9, 3.6861781647210503`*^9}, {3.686178314359497*^9, 3.686178322652995*^9}, { 3.6861791532223864`*^9, 3.686179280473364*^9}, {3.6861794559838076`*^9, 3.6861795017201643`*^9}, {3.6861795445872345`*^9, 3.68617954510073*^9}, { 3.6861795923032856`*^9, 3.686179665432491*^9}, {3.686179706150342*^9, 3.686179717554801*^9}, {3.6861799265013723`*^9, 3.6861800732429123`*^9}, { 3.686180379433567*^9, 3.6861804115573597`*^9}, {3.6861805900113993`*^9, 3.686180625330851*^9}, {3.759353935502252*^9, 3.759353966380052*^9}, { 3.7593541110714607`*^9, 3.759354114669622*^9}},ExpressionUUID->"811b6cd8-e9c3-43dd-a0c4-\ b694ea98590b"], Cell[BoxData[ TagBox[ GraphicsBox[{{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.006944444444444445], Thickness[Large], LineBox[CompressedData[" 1:eJw9l3k8VO3/xmeslTUpKqKU7bGkQuWp4TP1aFFJhUq0F/Wg9EQlDd+iJEXR ZilahBCVrWQrSmSX3VhnGMsYYwyG37mb269/er1f19zHOef+3Nd1naVH3WxO iJBIpBAyiYT+n/nn2Gz8IpFEMieRaJcGq/6DL+mDoYX/zzegP+rzUWkyYvWn HMd7ECLtt+Q6eUYPg3fsE7//EkHcZte35SlwOa1vREVnfv8Mxh/mpEmJIbYO PLcwFp4eNl6ySXxm/Usw7Wcpv5VAnHL63+A48NVY0PjPrJnrJcAnD1rs3DmI 5S2dRZMgc0tahoz0zPVTICp9jrOZLOKM0FWf3sFs/7o5T+Vn/l4azH7mN6k3 DzHDN+Xie1iz6P0L9vyZv/8BjrZePc9URqx8zsAoHUL0ApsVVWbuJwNUyTtP XlBDvOVwYl8m8BIp4bM0Zu4vG/bEzyVVaiL22qX76hN4jbApFboz95sDyXPL JiQMEcdtjDv8BUbnRHR4rJ65/1wQC4l7p7wWMWvBfZk8KL/fqzv698zz5IH+ Qwc1GUB8XbbSJR8ezndwcbSceb4CKNoix+m1QqwiMbe4AMTSKxLTbGaetxAq +l4/zLRH/F6wa8VX0CnJyhU4zjz/V3jFawDfE4ituMF+3+BTqbTl5rMz76MI dvmqim/3QNzJKm0tgs2jFoX3L8+8n2IY439pVPdD7N0pveE7SIfEpHFuzbyv 7xChcvmrTChixabtT37AIV2dSPcnM++vBPxrcupVYxEnVgXySsA21clAKXHm ff4Ezp6Nxxw/IN5U8n1vKQQ+eGHLzZl5v2Xwmy471VyMuCl/VmoZRPcfOLWo auZ9/4KTFlJZic2I1zfHSpaDs/3ztQ8ZM++/HG7PlocmDmKJ/dSP5XDMZMse n+mZ/aiAvzvps2hSZIIrq9uPVwBduVO9U4mM96cCPsgleb9djjjK2m9eJehH imm0GpHxflWCSOs/4E1B7PJzaX4lNMeVrrq5g4z3rwpWeF66JOGA2GRLnnsV /Fjg8WPchYz3swpuPteQdr6MWKTwsFo1dLNOH9gXSMb7Ww2lStJzCp8gLqOQ yqrhqB8tMTOBjPe7BlYaDs8z+4z4SXa0dw2sskuw2/GLjPe/BiRa639z6YhP mlL+qgUjxxzL9VwynodaCA7e9UZ9tgjBq9Ja6mtBxNLxULKqCJ6POpgbbbmi fxXiKQOfm3Xw9uamv+hbRPC81MGBRafn3HdC/CNe1fQ3vOM51c3xFMHz8xtI pdK6u+8iDtf83PUb6jOltN3iRPA81YNei9U913zER2McHtSD08K6ov3NIni+ 6qHft7nHjI/YYMkkNEDMVutS9QWieN4aQKNYWXf+GsTjj5+yG0DHxfSR5h5R PH+N8D8vkeRjHoi/zTd71giXLMsWNT0QxfPYCBJvbdKfpSMODWnY2QRPBg3e FjSK4vlsgk/qglB7shjBjjKXBU1wKMAr9IK2GJ7XZoiYsA412I1Y99bCxGbw iHU6EX1FDM9vC2jsnktqf414VCzzQAtYipM/zKsVw/PcAoUWfZf2SogTnE+z n90KUHzApGitOJ7vVmg5lqYa+i/i4EleeiuMnwld0PpCHM97G6jeaDdqakGs /2n76ja4c/vqmk+LJfD8t8Hc+EqT9IOI511+Gkjo/xQ5SkVL4PPQBnpV/AxB F2K+aR+9DW52Zpk2rpTE54MOO6yDWvnXELdy16+jQ2JrjW5WlSQ+L3QQcW1L uak3i+CvaYH36KA330itLXAWPj90UH5BebR9EHHCuYYeOnxKvXrX+cBsfJ7a oc5M0mLwJ+IQQ11KO6zaGNCXaDkHn692qD2+WxBagtiz/1J4OyTuZ53P2C+F z1s7GN9I/nCUg/hQwvf+dnicluAg90Qan78OSPNIs6TtkiGY6rxwcwec0pmM /jFfFp/HDoB5H62dBxHraDlHdEC/f4rznlY5fD474HCvhN7tC/IEy3VlcDpg 2/FVRpdmzcXntRMUPU6KjL9FzI2Ztb0TagsU0gWnFPD57QTbnLV239bNI7jx sH1MJ+hnPRTc0FTE57kTHJYpnLVYOZ/gvCVx/E5YfVxuS8feBfh8d4FlocSn KX8lgl838ay7QC7WVXtbpDI+74Ru4KKxY81Cgu88sYzrgtM5Cm0ij5Xx+e8C /XS+YZYWup6H/cPpLjjhFmE/RVHAftANddss3j92Qu9r/4Ie227QTZAIoGSL Y3/ohudJNXZjdcgvKdUmSd2wMTH5uETKOEXoF90QBSpMn1guwStC/cV7IKRu 9OUuFpsi9I8eYMXHxVZSBgiWsq516IHTS+5dkR9iUoR+0gNxGxb5SAd1E8yW 0XzfA64OfydmV3dQhP7SA+ZFMtoRUXSC60r+k2IA2fvZ3+TwVorQbxjgYOV1 8E1AE8Gfb309yoAys+TRH+x6itB/GJAYsvOy8ac6gmMt52cxwKg+YmdwdQ1F 6EcM+Bxg05CmV03wLfETc5lw0U7xVHRmJUXoT0ywTnjh8/R8BcFuBe9PM2HF LHn/NOtyitCvmKC5tDgsLILYS9I+X7FcJqiYuRyIKv1JEfoXEwrbjpVN6ZUQ bEbZq9QLRt5ne33ef6cI/awXlj0YfzjgWEzwUkGsay+Y5hXsHdYqogj9rRd6 qsaNGqW+ESyZzfnaC+WtvOMBkl8pQr/rhatvEhy3KhcS3O9FVe0D+RuePVVm BRSh//XB4t/tS3Td8wmuMrl/oQ/aYzJvhKblUYR+2AclHRv/DRJDnDnSXkLo VWlWRUdyKUJ/7AOH+jsmpg++EBydukqDBdFrThTOvpRDEfolC+r/FxG+zv0z wTfc/S6zIDe6ha/v9Yki9E+CdzmYXbmbTfAZg8oKFoy62xY2vc+iCP2UBYr1 sQtX9mQSvJu1VKcf7GlnHrmvQIz8tR/OGT4qT3PNINg0/hytHwyS7I5p5qdT hH5L6P89tp6thlj1dF5dPyQvWxeTfP0jRei/A/DPat+T3sMfCBbVnGs4AGU2 SwfaTiFGfjwA5yOTqAc73xPM7DjsPwBLuo5WXziFGPnzADwIXE7NG0oj+Nfz lOYBKDfhOzVfQ4z8ehDaFQc2uioi/uBEMh4EK10LF/WkVIrQvwchZcdavddW iJ+qWgcNgknlo/7swXcUoZ8PApmr8Ur1IWLfxuiOQfhi1uhwDxAjfx+Csd3q H5vYKRQSLe2np+oQSMvNCv71guA/fj8EtqbnI9cdRPqrBLWtQ+DMitMeVEQ6 8v8hODDNPHs3NpnQHwcWXRgCj3XnIs00CP6TB0OgOeJ7LTIuidCDnN2eDQHP w7jqwmqC/+TDEOxe9EjVv+AtoV/bovRzCK4o/97zxJ7gP3kxBBXaFnd9hhMJ /bzWF94QyO0w/S4aQvCf/GDDloM+UVOrkX5C4pQGG36x1iy0bEygCPOEDV7B 07QMf4Jp9l2yu9hwdS93pZEJ0lG+sEHnMft8KDOe0LcXfrzMhjIF0uHcZwT/ yRvieoNxX58fRPrGWMdXbFgWOSynvgjpKH/YMBYxZarV9IbQjfwkKtlgmWmS /vI5wX/yiA3S2+SvBbkgffmRJAEb2qK9uWUmSEf5NAxyx1eOHpVAupK5rc4w SJ8l1ZvXx1GEeTUMk1/eXD2WTDBtjtrU3mFI0f3vUPFNpKP8Gob0gM2xbieQ LhC8pA1DiU3hNofNSEd5NgyXDW5bPtBG+lDTjkTi96KHPqjLIR3l2zD42uUq yPJfE3pHNrduGEK9Hwec7Sb4T94Nw98b8tdZ1yG99kmkKAdeBiikVpQgHeUf B9J16HtlC5H+/dJmQw4s9v3M1s5FOspDDryrknXbhpj2yb7/AAeenfN4GIN+ /ycfOVDA2yDvXIr0ZNMwfw44DZ/0a2lAOspLDvg8aSLv7Ed6zIINqRw42UfL lxVH94/ykwPnG94a+C9DzxfG7WzmQDTD4JLuP0hHecoBTlfXzxvuSL9ZHTR7 BM7ZJ1muj0E6ytcRYEo0CySakH4lbY3xCHSF9e8vW4L2B+XtCGhS72+POoP2 xzW06fAITAwt6MkqQDrK3xHwnDNsn6iN5uPIuetBI5Dn5PLf7gg0HyiPRyBY bkXBmDqav73WehkjYGgXX+yXieYP5fMI9BhdrAxxRvNraVjdMQIrao8mlxqj +Ud5PQIHnn0L37wcnZ/1st5yXHD3MblF2oDOF8pvLlSfuW1zZjM6n/r9GmZc aI+1tHaSRecb5TkXiljXT/WKEv5AU/9ZcpILB65UlFgYIz9B+c6F/L7itTEZ hB/R5iV4hHJhbfHBHa5JyN9Q3nPBOOdI9B4q4Zc0icDFOVwwf21kax2P/Bfl PxeYpiruf9EIP6fxTxcwuUBVvJtVJYfyAfUBLiwYLQyTqiDyhMayPDN/FAz1 7hR6h6A8Qv1gFMgXBMXBa4j8orVqzrMYhbuhN16zk0spwr4wCpprA1fuJBN5 SKsUzz47Cir7l2mHKqG8RP1hFFxVzoU8UCHylPa18+ijUTB7/nm1tkIVRdgn RuGGkdcYl08wLaNgTuEo+Kz9pXS+phr3i1Go35DJaH5J5DUtISZ1cBTezD+T u+NsLe4bPJi+qB+YrEPkOy3K98BiHnQaMujlLXW4f/CgrarG9njQb0IPOSxi yYP0nS/KxVfX4z7CAwePZoONVQTTrlPiz/Og9l6mhf+/Dbif8ODrWcr6rSKN hO65xCaKB55iwQndIY24r/BARyJp1XsVon/QXAT87zzYoGxYOxXThPsLD8yi nP6SXtFM6IeannN5QNm/xGpxbDPuM2Mglyj56oRqC6FbZ29dOgbWohNv1B60 4H4zBgv77x65JEn0HRr1CdtqDI4f4Q9EebbivjMGI4pj4xmdSDe59NhrDGri u29d1GrD/WcM1Ox/TBscJJimY2/xYgwiiwXk8DttuA+NQdady6FZOUhXMWX+ GgMN57a38QNtuB8R1zuRcsxDlehfNLkFIRNjUHvzY5/6djruS3w4kCGemeOJ dBHuWi0+GGfWB9rF0nF/4kOIzqsr3FKkc6vabPiw92WwbAyPjvsUH+i2V8xO qrcTOiP1pg8fFhZzL23b0o77FbH+DueHrRvSG0NWxvNhw1/JeaFh7bhv8cFT K+G2eDbSy9x/1/BB5gaP96G1HfcvPvillF2NFyX6JC1vF408DmzTCGBqduA+ Ng7UfVfVvLYi/b2Btv44bLLd+srhTAfuZ+OQvM5AMyII6a9lyu3HwdCJlWz2 tgP3tXFIbM9aaF6K9Ccsz+vjQFFvFklideD+Ng4RjKHaW1KdhH6nRC1lHLSU JsvrdDpxnxuHnGuUqaeWSKfFFzWOg5N/tXnD8U7c78bBetkim3BfpHvccpOc ALt73MKqyE7c9yZgdUCvZHgm0k+eVlo9ARZOsqfaqjtx/5uAoH/qZT4OIn2/ 5RfHCVix4/esRXO6cB+cgJBysJRbTjDNSvNU4AT03v0v4tGGLtwPJ+DilX15 GbZIp4jLfZyAZ0sj9p1368J9cQKuu8nRiwKQvqrzI30Chva8qs6O7sL9cQJe pjy9bZ2O9BUFjjKT8KXL3epmWRfuk5MgrkXfeqIL6coxEusmISrlWyxzogv3 y0mY2zB8SkmB+D6gSfkmHZ+EjiF+6JBWN+6bk3DmHUfecwPSp5xs702ChoZR TqJNN+6fk6AUzDh1/xTS2Runsiche+Xvn3re3biPTkKwdVvk5XtI71R91TMJ xmvCfHxedON+OgnvAr+Lr89Aet3kjnkCyMycm5NU0o37qgCWXzfXbGlB+o9G 7kYBzDvX/O47uxv3VwHw9oZ9Py/WQ+ifsyJdBJBg+7KkYUEP7rMCCCw0lxbV QXrK483hAjgoOVzDWt+D+60A6BOjzo+tkB7r1Z8nAN/RR6Q5jj247wpgVwrt O8UN6eF2Yf0C0LGXYJnRenD/nQKp6asB0/eQfstkw8Ip6Ailpd1+3oP78BSI PDKi0d8h3Xt+16Yp0CrzHSXn9+B+PAUmfa7KAxVIdxsJcp8Cg/vm9Ff0HtyX p8AmNX+zPhvpR6vWRBDscHWNH4mB+/MUKOzuDXslRzBtX2pT0RQkbY6zerqE gfs0wbKJxkf0kb4l5DpnCo59c9PmmzFwv54G8dnqvGPbkG7mrqc2DQmORa4x 9gzct6fhPdPT7sNJpBvsqt42DROuHhciLzBw/54GlZ+7rx/0Q/pSA++L0xAz sMJi6C4D9/Fp2O74/LBDJNIVZZbHTMPKMyYPnsUzcD+fBr7culuf05EuySop nQbzh1OMtEIG7uvTcFth0v56BdLHf3jwp8ElpeOyYQsD93cSNX4ql/Whl+Dc 0eo7CiTq1+WKW5V5DNznSdSVy1iadqLE97C5e+ERbRL14mLSIg85Ju73JGp4 blHq2cUE5zLTjDeSqNdqQ302aTFx3ydR5fujJSdWofXHYmfvJX6/bVXNvY1M 3P+J689/fUZiG1rfFNrsTKKa5N+yctjHxN8DJKpN1evR0MNova3fu2skagBD ozv+DBN/H5Co6w1uPnhxEa3/de5GGImarv/bi+bLxN8LJOpTiRhJShBav/XI /gQSdbGSXFpbOBN/P5CoPcojvSeeo/X51vp5JOqijDaVXwlM/D1Bovq8MXiv 8hGt/9ucXEeiSm6WX7Qrl4m/L0jUg2+iPpz8gdZ/MKxhkahdZ3v6jlUz8fcG ifqjja9m2YLWG6q9ESFTe5mcVHkGE39/kKl0D1mxPDaT8n+UqvK0 "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[ 0.006944444444444445], Thickness[Large], LineBox[CompressedData[" 1:eJxlmHk8lN37xwdF0i5pI9pECKEdXfM8KW0UQpFWpJAllHSTPNkSpZAQLcJX 9hQySEJlD5F93wdjjGX8znk5//384/V+feaeue/7nOu6Pp8jedH61BVeGo0W wEOj4f///49yHqp0gKA6F+useztz5vgBVDcGje5yoyOWeDFq8hg0+KmTXv8e J3oQ5L34XSL132nEzWf6Dr8Aq5LWYQ8rA/L5SJCEb5VhhsaItb1vromGU99q aoM3XyDXv4GLe/NK+CIuIU40v/EoBtYeP2tou/4q+b442Pi8pfzwS3PEyzQt +BLgjq12T7+kJfn+RMiuTWwtiL2BOCNQKSsJihV1TcTX25DfS4FGqfQdJldu Iu52S7yVCj7iEp0GSbbk99PAa7+e1CGaPeLVN+UVP8IJztcak1MO5H4yoPIf cZW/724hPmwa3/cJ+qP5RqZpTuT+MuFb2OSpKWNnxE4nZd5mwRO/5GOiObfJ /X6Bq2OM6IDNLohj1GJMc2DFidHF/3t0l9w/AzgChnoJM66I+1c9WZwLK44E qQ3upsjz5ELKJyN7Bguzx5KKa3mQIr8/zy7NjTxfPlhW/3La4eSOeD3/8u/5 sGsfn9F6tfvkeb+C7slHSZcFPBCnzpzcUgDM45VWylUe5PkLoNfbSuPT6weI j7EeuX8Dx7r7SRudPcn7KAT/c+OHo3T+Q9ze/7OpEMoHkmMt5R+S9/MdTPn2 ZqYu9ULs0r7oQBHoi4cWpLG8yPsqgp3Gy16/b/ZGvLLhaGgxnG3w6vtZ5kPe XwnclT209tI3X8Txld7sEpA3bSmKz/Uj7/MHXBIX7mDmPUL8T0mR7k9Y+Mex xaXYn7zfXxAz3Mw9fv0x4oa8Bcm/YDLvXF7Z+GPyvkvBbEvOwhGPAMR7/0YL lIGYY75T06pA8v7LABgO24riMfMb0tPLwKqyqLHl0BOyHuWgPMHZe74Dc0VV 6+VyCJ4W6nd++JSsTznwbe7svaEQhDhc2124At4YWXy6/TeIrFcFhPsKv2vz f4b42g/JvAo4uydr3bDmc7J+lWD0bElP3/xgxKqHc20qoWy9U7RUcTBZz0pw 9zHg4zwNQcz71XRDFZRFGp7MvBpK1rcKXvozy0rVXyD+pU77VQV6vMq64RJh ZL2r4dv8falBgi8Rh2ZGuFSDlHKYg+zUS7L+1aBa7W/TwgpHfHWX+vbfYGAd 47t/MoLsh98Qck7su5lHJGKllMa638CTOey+bvkrsj9qgF/K5qVfNGauvOvD Gri7sTB+9f4osl9qYOpQio54PebiWLFdtcBaY98l4BZN9k8tHJvl19SUf434 2dbsjlpI0bJ9dabtNdlPdXBoj479l8g3iC9GnXtaB1USemGLzN6S/VUHlboL vZtU3yGWF5+GP7CJ3fGydVkM2W9/4OGKO0llLMyTIS+Yf+DzoYwqh873ZP/V gwrPv5pJbbGIv4nsi6yHsvGHHx0H48h+rIcTWjEV1QL/QxwY8OdEA3QsbFAa VUgg+7MBrt7dkCVi+QGxyeLbMw2QenlLdsXZRLJf/0LW3nyf1YuSEMt4rYn/ C2aVRvf3FCaR/dsI930ic7c/SkY8Pu+TUSO0alkV8lxMIfu5ETyeX/MfpKci zqMMBJtAR+23kZZKGtnfTVAczTQM3pWO+NE0+2MTjEgamfgd+0j2ezN8sJMo F72VgVgu6+jOZvD70a9skf6J7P9meLlMx59nWSZi4dsvvJvB37VMNvtBFqmH ZgijLTrdsfYLYs6uvpZm0LbzDv+nMofURwskMJNokXUMxE2svXtaIKLHvHyy KZfUSwu0SR6PSprNQ1yQ4v24BY6ZO8sf3f+V1E8LxAU8MB8LKUAcd/NPVws8 kJbY+E6skNRTK3xfFJl09ud3xAE7ZNRbgS3qo3MksZjUVyv48dLt9pb+QOw4 4PysFV4MSFhOK5eSemuFgEJen9vsMsTGcUUDreAmY8YZ96wg9dcG/fqRxUGn qxDTLdb82wZdfh+HONd+k3psA/sbdlX1jbWIpaUswtog97p8V/C3elKfbbDx H0a568EmxEs7MkbbwFiAihLLbiH12g7nL01sW6LfjpgVteBoOzyO8lCPCOoi 9dsOfsm7ihgZfYjrTQ2i2uFzjIpome8wqed2uMtK5CyUGEOcKx7DaYftB71v SM1MkPruAEXL5hjr7FnE7xrY2h3AvPHuevbzeYy5eu+AhCsjuZ4LhBD7hWrG dIBZ090iSZfljLn674A6vfLfVmdEENsZPJ/tAJXdXUay30QZc/2gE3r1HX+U Gq5GbLiqS78TXjga7ytLxDruD50gsHnst7H7KsTqVaoJnVC+Rr1LRhV/H+4X nZA/MHEjmi2MeEug5/wuuKfmG8pXvYIx1z+64M7Q1prnZfh+hLR/n+uCj2KW vGe6lzHm+kkX/LaMdRhfjZm5eGtqF4Qe7h2U+7KEMddfuoBmvjXdwHox4poS B6FuMIxrcJfXWMSY6zfdsP7rrCFdFj9/tlfBxW7QsulTbN+xkDHXf7ohRW4q nqMpiDhaU+RzN7iu3L184OYCxlw/6gbFFSyZgDgBxF7zryzvgXIxLZWlo/yM uf7UA/O2eujVHMJsnZ9q3gObA74IP30znzHXr3pghkY/KLEEs57bPEYPxHL3 l7vew+uD+1cP7HS9pVY1wYd4n7quaC+Eq7JkLzhjxv2sF0zpqgKuNMySM9FW vbD+jMXl5368jLn+1gsrJGuXbpfALJA5WtALkW7rAgs+8jDm+l0v8P4x2ETT xTzgRBfrg7BnHSOuYzTGXP/rg8a7SalDwZgrVZ/Y94H68KTZgoOYcT/sg82z PqGL6vD++jTWWtIHf925/Eaqs6Q/9sGFtY4+PiFcxBHJSpv6YSn39sMDvFzS L/vBMvzrNhGbGcQPbNxv90NwXbZZTus06Z/9sCDhf7uHDTFbyleU90OZSGLR heop0k/7wTnxQmOlLmadfknpAXgwW6UmVDtJ+usAVE+O7io3wbwr9iY1ACNZ 7TKj3RzSbwfA84eZNNzCLGaeWzMArb0OLwP5OaT/DkKP0ZvJzBBcT3xbl+8Y BPEMEafgHROkHw+CY0xp+bzvbMQ9baaeg7DBK35Z80U26c+DoDE+eUaIhrn0 VeLfQWDnKmRYRIyTfj0E1dYr+Js1MKedp6kMwU+tH2m67SzSv4dg/X7vTx+8 ML8Q0/YdgsRNMpf+KLBIPx+CzxOJh3PqcP271Ue0DcHTbJXtWh5jpL8PAyuE 22SmgJhK+eEoNgwatk/38TeOkn4/DG4QzBX2Q0y9jdtwZBie/rf9K3VglPT/ YRjdk8fcPzSC9BDvQvthOGixJ2ZP1AiZB8MQ4LI83Vwf674W1pHD4PEowTtL aITMB6SbeMhsy2Mi/d5h0R/D8HpYZHOEM5PMi2GoPZDyQEQJ67ZSOexhED7T Unmvb5jMDya0rjxLq3yDmLrCb7aJCU5DIRfmXRgm84QJAm01sYJiWDfoWHKS CfezJr4npQyR+cKEX1q/isrkEVNHv6bfZsKypDVPjOMGybxhgnV5cvO/0ogp tWiTt0yQdAttdYwZIPOHCWq2TxVatyGmFN35K5ggpyX0xS62n8wjJlwMlP61 Tg4xtflCwgwTDs0u7y5K7CPzaQT8FkiW3FBBTIlq6EuPQDdL4hL7cy+ZVyMg e9wgS/8gYmrhBq7uCHzrN2Df+d5D5tcI+PLY7z+jjZiamXlDjQCYpCbU1naT eTYCt68fMBm+gJgabjgePwJhDd17HvV1kfk2AnfVJ2ZfOSCm2jJZNSMwGPFe bh2ti8y7EeAtvjXQ7d2J9N+hL/lGYWdnNt+kSCeZf6NwXvC/T/tfdSC9yPnf HaNwrXlRQbhsB5mHo6AsGr5jcQaaX1SWwYDRKHwpMNhtT28n83EUmlds25nz qw3pH3YFeY7CQvHjl2oN28i8HAUTj6CymPZWpEetOpA8CmaWiqtWW7eS+TkK YTsbpRdx0Lykgljtf0eh0OjXGgv3FjJPR6FLVj9nmRDWH1b5Co5Bak/PpdbA ZjJfx+BirLHe5zWIqTspyipjsG9GoqRVrYnM2zEIX2X6KkOzEelWgQ2mY2Al KLjg2fG/ZP6OgcnaM3eWajcg/cJND98xaE6OZMedqCfzeAw+/sw433r4D9J1 tWUzxkBPfo/2KrU6Mp/H4K6xLzyVQ/6A0txR1TYGBcWhnb6rasi8HoMojbCE pRPVSN+7xGUpC7ykH36bV15F5jcL7rw+cVoqshLpcgOb9rFATkrwBu/lCjLP WbDA6o4ie2050iV+lFxlQbXASOZHz1Li51ngv87WN+0j8j+UcJxdIAvub67j Vn0vypmb9yx4ZnJ9mUjuN6Tze6/7woJDQbua36bnE//PAr3ubN6CauTfKI55 fg8LHoqZ6sbFYP+H/QALshe+hz8RyD9S/ZqWIuNwNC/b0N0tjeSFcXgj49Fs txb5Vappq/DBcfjczNuWuhv7W+wXxkGn8neg/Q3kj6mK+ZnXx+H9ymiPvrF4 ki/GQZ+eC+LtyH9TBe0Xg8dBSl5J89RG7M+xnxgHZb7NHxaGI39PZeQv/DoO IVty6K+03pI8Mg7+mpvfZIqjfEDFRSUPjUOwLWqxwjg/YL/Bhic1YQYtG1He oMLdjNaxQV6pvVPjSBTJL2wQ2nhtldB9lF+oAFNeTTbkN74Y9/qJ8w72I2zo fzpf4+FWxJSHeqwtG8T8NFPNV0eQvMOGrnvnqkQmUZ6iHMVPhbNBMVDQ3m8I 5y/sV9iwvvEuM2Yc5TPq2gyniA0Hnpg8D1z8guQjNuhYHelNV0J5jjJueMVi Q4HKWtFPl3Hew35mApSHGhgWUSgPUtqZRyQnYLdga2RO73OSpyYg8/qkf/l+ xBQ9lHlsAsRktsSWP8d5E/udCTAbXqIjOIXyKKXqHOI0AXbDRU3VV3A+xf5n AvqOP+p/U4PyLCVtcPD1BNw4JzkzfhLnW+yHJiD5pkXw6V8o/1Lrd/WUTkDx NZXXOqdwHsb+aALWK6bzBNSj/EwtXRUwNQHzD9Qaf7bAeRr7JQ68m/9V1nUa 5W+Kl7VbigNVlrZFT57gPI79EwfqlR+nZMhjnVXZfIoDP1+wOj/8xPkd+ykO fOaWHD5og5jqTn7oyoE0VSmpPauwjv0VB7rXfXtc6uqP9PoAhVgO6IUuWgY1 +LwA+y0OPPUL5DqqIKZ+2dRWc8DY4rT1lhB8voD9FwdMv5v/4ONFTOWepHgm wVkx71y5NT6PwH5sEsZcl9Vot/ogPVV+m9wkPDyyn3bEEJ9fYH82CWa7p057 VHkj/d3iMoNJ8OE9ml52Gp93YL82CfFd+bKzv72QHtrv6DEJiRW14W3G+HwE +7dJKNfcG6bb/RDpfiUbEifhdVTctu238PkK9nOToJCW6AsCWKdiC+snYecO PxmnF/g8Bvs7dH31hjNxSogpOy9rgSl40qWomv0Dn99gvzcFK240hTy2QExd NRfdOQUbmYXtgoJYx/5vCnStGINL4h4g3VAzx2QKfM4V9nmexOdB2A9Owb5G Xj2jcQ+kH9tq5j0Fjw88r7SNwOdH2B9OQYS+tFymFtbV5y9Nn4KtJzsUN0zc J35xCkTlOuN83iGmlNrTW6ZA2b/x5KDBfeIfp6B5cWeCyiKsb8k3WTwN9/+n I62T60785DRkGFGtCvh8i1odxb9nGjQSPNMKFNyJv5yGs/veyfD0uSFdyC3h 8jREOXneqH7rRvzmNLQOLPxH5TLWuef1H0+DWG79/JWb3Ij/nIbz828+vdJG IZ2pxs2chnrd2NPibyjiR9HnD7ds3GmO9Xaxt13o/o5Y6YfIUsSfTsNKFflL fu33kF4zfVx4BqIPfsm9aHuP+NUZeHr3ck8EL9aL61lqM7BcqTBDKciV+NcZ OGQ9licog5jK/vzy2gx4dvocWpl7l/jZGXDeYr0FjBBTiSH/PpuBU6WDDfdZ LsTfzgBD8bprcSBiKtppIHcGSsEsRkDJhfjdGahNYd6Tq7yD9GdnggZmYOAM FSt/6w7xv1zYHLnyMHct1r1UD6zhwoprGQP+ubeJH+aCfsmhyBoLxJSLSMc/ XHjX61JaJHyb+GP0ed0TOmdznJFuPeZrwwUhHydjt+vOxC9z4W2fjpfiOqxf rFQO40LazrL8CyVOxD9z4fjJfJ0FdxFTeskNhVx4pnGweJ2CE/HTXPippCH8 pN0R6YcDPEa5EDB91uRKqCPx17Pwy+PrFm8drO+zkd0wC1bvT0lzBB2J356F Aza5lrH5t5Auf7JKaxYeWwsqPHO9Rfz3LAjeaxhP3Yt1SXmXW7NwrkXdZZbt QPz4LGir0NOs0hFTKxdvjpoFr+CKn1MODsSfz8Lne1FbI1WxLtBf8nMWhJp3 ntabsCd+fRbSzg6JimQipiaL7TizIL1b37zO1Z74dxr9CVvzShgdMWO8ym8F ja7gdvasgaA98fM0elCVVq5AmV0OTcPm64VtNPrj0zaqb57bEX9Po//M0nXb boqY0ZOiokajf+YeexQkbUf8Po3etkrKqnHUFl1/KVpQl0b/eqBDlyfHlvh/ Gr37vWcwxxsxoyHwrwWNnqT+90PeGVuSB2h0b19rRYMt+Hp996R7NPp/Dlcr 0kZvknyAdEHPKzV5iBmlNx8E0eguQwp/MgJvkrxAow8OOezTv4RY48gFwzga fZOk1Ic45ZskP9DoyjBpn8aPr8/Tlsul0XfVJXVY19mQPEGjV8WfsK2JR6yx X4OnhkY33X0kupuyIfmCRk/OrhCN1EPMSNtR3U+jn3op9mBSxobkDRo971V8 2hgNX79jw3teHrp3o85y0Q/WJH/w0A+EurQ6Glvn/B++SuEk "]]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[ 0.006944444444444445], Thickness[Large], LineBox[CompressedData[" 1:eJxll21Q1WUah4+YmLnoGqkxhcSYmG5CmcKmK5jkgKsGOWToFCGbBtQGZOXL MnVg0BEGHaFwVyg1KGPBcQnQMDTlLUIQFVBKIF+AVVZYYw9HFhPa+Z0P7bXP 8oW55uLm/M/zf577/j2eUXGr1jtZLJbdoywW/f7/H+uWW83vLPlf3gZ+JMcW sdvwWeArL94MzjH+/gA4NC3BLc+o/wxcFP3HXfnG/ysE/zooZvRh4/8Xgcsy 5x7/wvi8EvCNpKJ3S43PPwJ+MMH7yS+N5ykDB0ceunnMeL5y8OaQ2QePG8/7 NTjfPz/ypPH8p8C9Uz5wqTC+DzllQlNspfH9qsAPO0/6tsr4vtXg0uGQGTXG 9yevsO9K/sZYj1pwV++Zy7XG+nwLTuz61aI6Y73ID7Qvzz5trF89+FBz2mC9 sZ4N4Gfr68LOGOvbCG6vvLe40Vjvs+AFHXljzxnrT3ZeE3j0nPE+zoObWq69 et54P+R9ocmuTcb7Isc2eFY2Ge+vGewbXBHfbLxPslN1pEeL8X7JjQGWxhbj fV8AZ5fvT7xgvH/yBr+A31w09gN5bskP35O1P1rBI97v7SBrv5BPF7j7fWfs H/IerxPdZO2n78FRuS99SNb+IntPu7vkkrHfyHf25vSTtf/awN9MXniArP1I zsy49Fy7sT/JES5bh8narx3g2aluh8javz+Ab99zbC1Z+5lcaQ0fd9nY3+Rd dwe/JGu/XwHPOb78KbL2P9l1a04aWeeBPOR38ypZ5+Mq+LJ9wdNknRdyTUna brLOD7kw4dJ1ss7TNXCGz+wAss4XeVPflj1knTfyy4V1fWSdv05wYIzbUrLO I3nWzJiPyDqf5IndZTayzmsX2J5773Kyzi+5LTI8l6zzTK6Ylj9E1vnuBn/e PhhK1nnvXhLkHTt95Ty3xRbLzuygfLLOP3lj+J9/Jqsf/B28Zsr11WT1B3JA i+9hsvoFeUbm9jHXweof5PGhF18iq5+Q+128SsnqL+TW+nfG3wCr35BPpNZE kdV/yHlBk78iqx+RU8esn9QDVn8ix1WVRpPVr8gvJN1ziqz+RV4YEDb1H2D1 M7LncN6bZPU38thyWw1Z/Y7ctznQ/SZY/Y/c7PvB22T1Q/KxgWv1ZPVH8v7i udN7weqX5G3xyVvJ6p/k172bzpPVT8nP93rO6gOrv5L9ChKsZPVbsnt0RStZ /fef4NFek3zI6sfkns7I7WT1Z/LZT4o6yOrXt8BHXrHMJ6t/k3PcQ9PJ6ufk pLb9nWT19x//y9aShk3uYEe/pz9Y6LGMXv2ffm9a7dv0mgf06TFxB+g1H+jf D57aQK95Qf/WzJOD9Jof/fDrnV+bDnbME/rw7gkh9Jov9Murj26l17yh98+L OEiv+UP/ZLJzE73mEf2j6w4P02s+/Qt+6uLVs8COeUV/n8dIGL3mF/3w8GdW es0z+h/bVx6i13yj7yy3t9Jr3tFfzP54tA1e8w9srduy1MdmzEOw9Xh431qb MR/p/+aXtd1mzEv63CmLim3G/KTPsnd12Ix5Sr+jJX3cgDFfwdY/lcybP2DM W/o3M9sjB4z5S78uISV9wJjH9GGhj5cNGPOZPsinpXPAmNf0CyYkTrQb8xts ndM3faHdmOf0jzTUb7Ab853etXBjJr3mPb1z2kNf02v+0w9FV/XQKw/Q9wa9 Pvm2cV8AWy97uT5Dr7xA3zSm/A165Qf6mq6ov9ArT9CXVd1XTa98QV+YW3yL XnljEH5f0tqHwI78QZ8R6RRErzxCnxJQ8Ba98gn9pmmr9tErr9DHDg/V0Su/ 0L/c/omdXnnm3/Ch5cs8wY58Qx+Y3b+CXnmH3nfL3s30yj/0s8Kf+ZReeYj+ Yb+es/TKR/QTp2T8RK+8NATvZP/tTLAjP9Hbm6+soleeor9RvOM9euUr+raM JwrolbfoG+O/u0Cv/EVfEWIddQdeeQxsLfV+bA698hn95y7nwumV1+izezel 0Cu/0e+s9yiiV56jtxbUttEr39FvTI0b+xO88h7YuiF66lP0yn/0a4JORtAr D9Kv8HotjV75kD5gzMSj9MqL9HO7jl6lV36kn1EV4XIXXnkSbH0w1/lpeuVL +vFJh1+lV96kH3ll9W565U/6fv+RcnrlUfou94PX6ZVP6VvvrnQdhldeBVtP t9n96ZVf6U989XEsvfIsfdHepXvolW/p8zb3VdAr79LveTGrj175dwQ+1XeR G9iRh+kTJ3c/S698TB83kB5Pr7xMH9U87yN65Wf6F4rba+mVp+mDM1Js9MrX P8MvjH/cA+zI2/TeIS2/p1f+pvf0TnyXXnmc/gGXR3Pplc/px/bWn6FXXqe/ c3rjEL3yuyXwFzx1u2Xn/WBHngcvjq9e9xjYke9Z31My35/1yvus/0PeuDDW K/+zvj2zI4b1ug+wfnXyF++zXvcD1p9N2JbFet0XWL9s3ZpC1uv+wPrK0DkV rNd9gvW/WzyqlfW6X7D+iM+FXtbrvsF6H4+/Oo36hf8DXpTLAg== "]]}, {RGBColor[0.922526, 0.385626, 0.209179], PointSize[ 0.006944444444444445], Thickness[Large], LineBox[CompressedData[" 1:eJxll21Q1WUah4+YmLnoGqkxhcSYmG5CmcKmK5jkgKsGOWToFCGbBtQGZOXL MnVg0BEGHaFwVyg1KGPBcQnQMDTlLUIQFVBKIF+AVVZYYw9HFhPa+Z0P7bXP 8oW55uLm/M/zf577/j2eUXGr1jtZLJbdoywW/f7/H+uWW83vLPlf3gZ+JMcW sdvwWeArL94MzjH+/gA4NC3BLc+o/wxcFP3HXfnG/ysE/zooZvRh4/8Xgcsy 5x7/wvi8EvCNpKJ3S43PPwJ+MMH7yS+N5ykDB0ceunnMeL5y8OaQ2QePG8/7 NTjfPz/ypPH8p8C9Uz5wqTC+DzllQlNspfH9qsAPO0/6tsr4vtXg0uGQGTXG 9yevsO9K/sZYj1pwV++Zy7XG+nwLTuz61aI6Y73ID7Qvzz5trF89+FBz2mC9 sZ4N4Gfr68LOGOvbCG6vvLe40Vjvs+AFHXljzxnrT3ZeE3j0nPE+zoObWq69 et54P+R9ocmuTcb7Isc2eFY2Ge+vGewbXBHfbLxPslN1pEeL8X7JjQGWxhbj fV8AZ5fvT7xgvH/yBr+A31w09gN5bskP35O1P1rBI97v7SBrv5BPF7j7fWfs H/IerxPdZO2n78FRuS99SNb+IntPu7vkkrHfyHf25vSTtf/awN9MXniArP1I zsy49Fy7sT/JES5bh8narx3g2aluh8javz+Ab99zbC1Z+5lcaQ0fd9nY3+Rd dwe/JGu/XwHPOb78KbL2P9l1a04aWeeBPOR38ypZ5+Mq+LJ9wdNknRdyTUna brLOD7kw4dJ1ss7TNXCGz+wAss4XeVPflj1knTfyy4V1fWSdv05wYIzbUrLO I3nWzJiPyDqf5IndZTayzmsX2J5773Kyzi+5LTI8l6zzTK6Ylj9E1vnuBn/e PhhK1nnvXhLkHTt95Ty3UxbLzuygfLLOP3lj+J9/Jqsf/B28Zsr11WT1B3JA i+9hsvoFeUbm9jHXweof5PGhF18iq5+Q+128SsnqL+TW+nfG3wCr35BPpNZE kdV/yHlBk78iqx+RU8esn9QDVn8ix1WVRpPVr8gvJN1ziqz+RV4YEDb1H2D1 M7LncN6bZPU38thyWw1Z/Y7ctznQ/SZY/Y/c7PvB22T1Q/KxgWv1ZPVH8v7i udN7weqX5G3xyVvJ6p/k172bzpPVT8nP93rO6gOrv5L9ChKsZPVbsnt0RStZ /fef4NFek3zI6sfkns7I7WT1Z/LZT4o6yOrXt8BHXrHMJ6t/k3PcQ9PJ6ufk pLb9nWT19x//y9aShk3uYEe/pz9Y6LGMXv2ffm9a7dv0mgf06TFxB+g1H+jf D57aQK95Qf/WzJOD9Jof/fDrnV+bDnbME/rw7gkh9Jov9Murj26l17yh98+L OEiv+UP/ZLJzE73mEf2j6w4P02s+/Qt+6uLVs8COeUV/n8dIGL3mF/3w8GdW es0z+h/bVx6i13yj7yy3t9Jr3tFfzP54tA1e8w9srduy1MdmzEOw9Xh431qb MR/p/+aXtd1mzEv63CmLim3G/KTPsnd12Ix5Sr+jJX3cgDFfwdY/lcybP2DM W/o3M9sjB4z5S78uISV9wJjH9GGhj5cNGPOZPsinpXPAmNf0CyYkTrQb8xts ndM3faHdmOf0jzTUb7Ab853etXBjJr3mPb1z2kNf02v+0w9FV/XQKw/Q9wa9 Pvm2cV8AWy97uT5Dr7xA3zSm/A165Qf6mq6ov9ArT9CXVd1XTa98QV+YW3yL XnljEH5f0tqHwI78QZ8R6RRErzxCnxJQ8Ba98gn9pmmr9tErr9DHDg/V0Su/ 0L/c/omdXnnm3/Ch5cs8wY58Qx+Y3b+CXnmH3nfL3s30yj/0s8Kf+ZReeYj+ Yb+es/TKR/QTp2T8RK+8NATvZP/tTLAjP9Hbm6+soleeor9RvOM9euUr+raM JwrolbfoG+O/u0Cv/EVfEWIddQdeeQxsLfV+bA698hn95y7nwumV1+izezel 0Cu/0e+s9yiiV56jtxbUttEr39FvTI0b+xO88h7YuiF66lP0yn/0a4JORtAr D9Kv8HotjV75kD5gzMSj9MqL9HO7jl6lV36kn1EV4XIXXnkSbH0w1/lpeuVL +vFJh1+lV96kH3ll9W565U/6fv+RcnrlUfou94PX6ZVP6VvvrnQdhldeBVtP t9n96ZVf6U989XEsvfIsfdHepXvolW/p8zb3VdAr79LveTGrj175dwQ+1XeR G9iRh+kTJ3c/S698TB83kB5Pr7xMH9U87yN65Wf6F4rba+mVp+mDM1Js9MrX P8MvjH/cA+zI2/TeIS2/p1f+pvf0TnyXXnmc/gGXR3Pplc/px/bWn6FXXqe/ c3rjEL3yuyXwFzx1u2Xn/WBHngcvjq9e9xjYke9Z31My35/1yvus/0PeuDDW K/+zvj2zI4b1ug+wfnXyF++zXvcD1p9N2JbFet0XWL9s3ZpC1uv+wPrK0DkV rNd9gvW/WzyqlfW6X7D+iM+FXtbrvsF6H4+/Oo36hf8DuK/8gg== "]]}}, {}, {}, {}, {}}, InsetBox[ TemplateBox[{ StyleBox["\"Re(n)\"", FontSize -> 14, StripOnInput -> False],StyleBox[ "\"Im(n)\"", FontSize -> 14, StripOnInput -> False]}, "LineLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.125], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.125], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Large]], {}}}, 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.125], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.125], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 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]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", 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\""}]}], "]"}]& )], Scaled[{0.99, 0.99}], ImageScaled[{1, 1}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox[ StyleBox["\"\[Omega]\"", FontSize -> 14, StripOnInput -> False], TraditionalForm], FormBox["\"\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 6.*^14}, {-6.301075509410629, 6.301075509410629}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Large]], Line[CompressedData[" 1:eJw9l3k8VO3/xmeslTUpKqKU7bGkQuWp4TP1aFFJhUq0F/Wg9EQlDd+iJEXR ZilahBCVrWQrSmSX3VhnGMsYYwyG37mb269/er1f19zHOef+3Nd1naVH3WxO iJBIpBAyiYT+n/nn2Gz8IpFEMieRaJcGq/6DL+mDoYX/zzegP+rzUWkyYvWn HMd7ECLtt+Q6eUYPg3fsE7//EkHcZte35SlwOa1vREVnfv8Mxh/mpEmJIbYO PLcwFp4eNl6ySXxm/Usw7Wcpv5VAnHL63+A48NVY0PjPrJnrJcAnD1rs3DmI 5S2dRZMgc0tahoz0zPVTICp9jrOZLOKM0FWf3sFs/7o5T+Vn/l4azH7mN6k3 DzHDN+Xie1iz6P0L9vyZv/8BjrZePc9URqx8zsAoHUL0ApsVVWbuJwNUyTtP XlBDvOVwYl8m8BIp4bM0Zu4vG/bEzyVVaiL22qX76hN4jbApFboz95sDyXPL JiQMEcdtjDv8BUbnRHR4rJ65/1wQC4l7p7wWMWvBfZk8KL/fqzv698zz5IH+ Qwc1GUB8XbbSJR8ezndwcbSceb4CKNoix+m1QqwiMbe4AMTSKxLTbGaetxAq +l4/zLRH/F6wa8VX0CnJyhU4zjz/V3jFawDfE4ituMF+3+BTqbTl5rMz76MI dvmqim/3QNzJKm0tgs2jFoX3L8+8n2IY439pVPdD7N0pveE7SIfEpHFuzbyv 7xChcvmrTChixabtT37AIV2dSPcnM++vBPxrcupVYxEnVgXySsA21clAKXHm ff4Ezp6Nxxw/IN5U8n1vKQQ+eGHLzZl5v2Xwmy471VyMuCl/VmoZRPcfOLWo auZ9/4KTFlJZic2I1zfHSpaDs/3ztQ8ZM++/HG7PlocmDmKJ/dSP5XDMZMse n+mZ/aiAvzvps2hSZIIrq9uPVwBduVO9U4mM96cCPsgleb9djjjK2m9eJehH imm0GpHxflWCSOs/4E1B7PJzaX4lNMeVrrq5g4z3rwpWeF66JOGA2GRLnnsV /Fjg8WPchYz3swpuPteQdr6MWKTwsFo1dLNOH9gXSMb7Ww2lStJzCp8gLqOQ yqrhqB8tMTOBjPe7BlYaDs8z+4z4SXa0dw2sskuw2/GLjPe/BiRa639z6YhP mlL+qgUjxxzL9VwynodaCA7e9UZ9tgjBq9Ja6mtBxNLxULKqCJ6POpgbbbmi fxXiKQOfm3Xw9uamv+hbRPC81MGBRafn3HdC/CNe1fQ3vOM51c3xFMHz8xtI pdK6u+8iDtf83PUb6jOltN3iRPA81YNei9U913zER2McHtSD08K6ov3NIni+ 6qHft7nHjI/YYMkkNEDMVutS9QWieN4aQKNYWXf+GsTjj5+yG0DHxfSR5h5R PH+N8D8vkeRjHoi/zTd71giXLMsWNT0QxfPYCBJvbdKfpSMODWnY2QRPBg3e FjSK4vlsgk/qglB7shjBjjKXBU1wKMAr9IK2GJ7XZoiYsA412I1Y99bCxGbw iHU6EX1FDM9vC2jsnktqf414VCzzQAtYipM/zKsVw/PcAoUWfZf2SogTnE+z n90KUHzApGitOJ7vVmg5lqYa+i/i4EleeiuMnwld0PpCHM97G6jeaDdqakGs /2n76ja4c/vqmk+LJfD8t8Hc+EqT9IOI511+Gkjo/xQ5SkVL4PPQBnpV/AxB F2K+aR+9DW52Zpk2rpTE54MOO6yDWvnXELdy16+jQ2JrjW5WlSQ+L3QQcW1L uak3i+CvaYH36KA330itLXAWPj90UH5BebR9EHHCuYYeOnxKvXrX+cBsfJ7a oc5M0mLwJ+IQQ11KO6zaGNCXaDkHn692qD2+WxBagtiz/1J4OyTuZ53P2C+F z1s7GN9I/nCUg/hQwvf+dnicluAg90Qan78OSPNIs6TtkiGY6rxwcwec0pmM /jFfFp/HDoB5H62dBxHraDlHdEC/f4rznlY5fD474HCvhN7tC/IEy3VlcDpg 2/FVRpdmzcXntRMUPU6KjL9FzI2Ztb0TagsU0gWnFPD57QTbnLV239bNI7jx sH1MJ+hnPRTc0FTE57kTHJYpnLVYOZ/gvCVx/E5YfVxuS8feBfh8d4FlocSn KX8lgl838ay7QC7WVXtbpDI+74Ru4KKxY81Cgu88sYzrgtM5Cm0ij5Xx+e8C /XS+YZYWup6H/cPpLjjhFmE/RVHAftANddss3j92Qu9r/4Ie227QTZAIoGSL Y3/ohudJNXZjdcgvKdUmSd2wMTH5uETKOEXoF90QBSpMn1guwStC/cV7IKRu 9OUuFpsi9I8eYMXHxVZSBgiWsq516IHTS+5dkR9iUoR+0gNxGxb5SAd1E8yW 0XzfA64OfydmV3dQhP7SA+ZFMtoRUXSC60r+k2IA2fvZ3+TwVorQbxjgYOV1 8E1AE8Gfb309yoAys+TRH+x6itB/GJAYsvOy8ac6gmMt52cxwKg+YmdwdQ1F 6EcM+Bxg05CmV03wLfETc5lw0U7xVHRmJUXoT0ywTnjh8/R8BcFuBe9PM2HF LHn/NOtyitCvmKC5tDgsLILYS9I+X7FcJqiYuRyIKv1JEfoXEwrbjpVN6ZUQ bEbZq9QLRt5ne33ef6cI/awXlj0YfzjgWEzwUkGsay+Y5hXsHdYqogj9rRd6 qsaNGqW+ESyZzfnaC+WtvOMBkl8pQr/rhatvEhy3KhcS3O9FVe0D+RuePVVm BRSh//XB4t/tS3Td8wmuMrl/oQ/aYzJvhKblUYR+2AclHRv/DRJDnDnSXkLo VWlWRUdyKUJ/7AOH+jsmpg++EBydukqDBdFrThTOvpRDEfolC+r/FxG+zv0z wTfc/S6zIDe6ha/v9Yki9E+CdzmYXbmbTfAZg8oKFoy62xY2vc+iCP2UBYr1 sQtX9mQSvJu1VKcf7GlnHrmvQIz8tR/OGT4qT3PNINg0/hytHwyS7I5p5qdT hH5L6P89tp6thlj1dF5dPyQvWxeTfP0jRei/A/DPat+T3sMfCBbVnGs4AGU2 SwfaTiFGfjwA5yOTqAc73xPM7DjsPwBLuo5WXziFGPnzADwIXE7NG0oj+Nfz lOYBKDfhOzVfQ4z8ehDaFQc2uioi/uBEMh4EK10LF/WkVIrQvwchZcdavddW iJ+qWgcNgknlo/7swXcUoZ8PApmr8Ur1IWLfxuiOQfhi1uhwDxAjfx+Csd3q H5vYKRQSLe2np+oQSMvNCv71guA/fj8EtqbnI9cdRPqrBLWtQ+DMitMeVEQ6 8v8hODDNPHs3NpnQHwcWXRgCj3XnIs00CP6TB0OgOeJ7LTIuidCDnN2eDQHP w7jqwmqC/+TDEOxe9EjVv+AtoV/bovRzCK4o/97zxJ7gP3kxBBXaFnd9hhMJ /bzWF94QyO0w/S4aQvCf/GDDloM+UVOrkX5C4pQGG36x1iy0bEygCPOEDV7B 07QMf4Jp9l2yu9hwdS93pZEJ0lG+sEHnMft8KDOe0LcXfrzMhjIF0uHcZwT/ yRvieoNxX58fRPrGWMdXbFgWOSynvgjpKH/YMBYxZarV9IbQjfwkKtlgmWmS /vI5wX/yiA3S2+SvBbkgffmRJAEb2qK9uWUmSEf5NAxyx1eOHpVAupK5rc4w SJ8l1ZvXx1GEeTUMk1/eXD2WTDBtjtrU3mFI0f3vUPFNpKP8Gob0gM2xbieQ LhC8pA1DiU3hNofNSEd5NgyXDW5bPtBG+lDTjkTi96KHPqjLIR3l2zD42uUq yPJfE3pHNrduGEK9Hwec7Sb4T94Nw98b8tdZ1yG99kmkKAdeBiikVpQgHeUf B9J16HtlC5H+/dJmQw4s9v3M1s5FOspDDryrknXbhpj2yb7/AAeenfN4GIN+ /ycfOVDA2yDvXIr0ZNMwfw44DZ/0a2lAOspLDvg8aSLv7Ed6zIINqRw42UfL lxVH94/ykwPnG94a+C9DzxfG7WzmQDTD4JLuP0hHecoBTlfXzxvuSL9ZHTR7 BM7ZJ1muj0E6ytcRYEo0CySakH4lbY3xCHSF9e8vW4L2B+XtCGhS72+POoP2 xzW06fAITAwt6MkqQDrK3xHwnDNsn6iN5uPIuetBI5Dn5PLf7gg0HyiPRyBY bkXBmDqav73WehkjYGgXX+yXieYP5fMI9BhdrAxxRvNraVjdMQIrao8mlxqj +Ud5PQIHnn0L37wcnZ/1st5yXHD3MblF2oDOF8pvLlSfuW1zZjM6n/r9GmZc aI+1tHaSRecb5TkXiljXT/WKEv5AU/9ZcpILB65UlFgYIz9B+c6F/L7itTEZ hB/R5iV4hHJhbfHBHa5JyN9Q3nPBOOdI9B4q4Zc0icDFOVwwf21kax2P/Bfl PxeYpiruf9EIP6fxTxcwuUBVvJtVJYfyAfUBLiwYLQyTqiDyhMayPDN/FAz1 7hR6h6A8Qv1gFMgXBMXBa4j8orVqzrMYhbuhN16zk0spwr4wCpprA1fuJBN5 SKsUzz47Cir7l2mHKqG8RP1hFFxVzoU8UCHylPa18+ijUTB7/nm1tkIVRdgn RuGGkdcYl08wLaNgTuEo+Kz9pXS+phr3i1Go35DJaH5J5DUtISZ1cBTezD+T u+NsLe4bPJi+qB+YrEPkOy3K98BiHnQaMujlLXW4f/CgrarG9njQb0IPOSxi yYP0nS/KxVfX4z7CAwePZoONVQTTrlPiz/Og9l6mhf+/Dbif8ODrWcr6rSKN hO65xCaKB55iwQndIY24r/BARyJp1XsVon/QXAT87zzYoGxYOxXThPsLD8yi nP6SXtFM6IeannN5QNm/xGpxbDPuM2Mglyj56oRqC6FbZ29dOgbWohNv1B60 4H4zBgv77x65JEn0HRr1CdtqDI4f4Q9EebbivjMGI4pj4xmdSDe59NhrDGri u29d1GrD/WcM1Ox/TBscJJimY2/xYgwiiwXk8DttuA+NQdady6FZOUhXMWX+ GgMN57a38QNtuB8R1zuRcsxDlehfNLkFIRNjUHvzY5/6djruS3w4kCGemeOJ dBHuWi0+GGfWB9rF0nF/4kOIzqsr3FKkc6vabPiw92WwbAyPjvsUH+i2V8xO qrcTOiP1pg8fFhZzL23b0o77FbH+DueHrRvSG0NWxvNhw1/JeaFh7bhv8cFT K+G2eDbSy9x/1/BB5gaP96G1HfcvPvillF2NFyX6JC1vF408DmzTCGBqduA+ Ng7UfVfVvLYi/b2Btv44bLLd+srhTAfuZ+OQvM5AMyII6a9lyu3HwdCJlWz2 tgP3tXFIbM9aaF6K9Ccsz+vjQFFvFklideD+Ng4RjKHaW1KdhH6nRC1lHLSU JsvrdDpxnxuHnGuUqaeWSKfFFzWOg5N/tXnD8U7c78bBetkim3BfpHvccpOc ALt73MKqyE7c9yZgdUCvZHgm0k+eVlo9ARZOsqfaqjtx/5uAoH/qZT4OIn2/ 5RfHCVix4/esRXO6cB+cgJBysJRbTjDNSvNU4AT03v0v4tGGLtwPJ+DilX15 GbZIp4jLfZyAZ0sj9p1368J9cQKuu8nRiwKQvqrzI30Chva8qs6O7sL9cQJe pjy9bZ2O9BUFjjKT8KXL3epmWRfuk5MgrkXfeqIL6coxEusmISrlWyxzogv3 y0mY2zB8SkmB+D6gSfkmHZ+EjiF+6JBWN+6bk3DmHUfecwPSp5xs702ChoZR TqJNN+6fk6AUzDh1/xTS2Runsiche+Xvn3re3biPTkKwdVvk5XtI71R91TMJ xmvCfHxedON+OgnvAr+Lr89Aet3kjnkCyMycm5NU0o37qgCWXzfXbGlB+o9G 7kYBzDvX/O47uxv3VwHw9oZ9Py/WQ+ifsyJdBJBg+7KkYUEP7rMCCCw0lxbV QXrK483hAjgoOVzDWt+D+60A6BOjzo+tkB7r1Z8nAN/RR6Q5jj247wpgVwrt O8UN6eF2Yf0C0LGXYJnRenD/nQKp6asB0/eQfstkw8Ip6Ailpd1+3oP78BSI PDKi0d8h3Xt+16Yp0CrzHSXn9+B+PAUmfa7KAxVIdxsJcp8Cg/vm9Ff0HtyX p8AmNX+zPhvpR6vWRBDscHWNH4mB+/MUKOzuDXslRzBtX2pT0RQkbY6zerqE gfs0wbKJxkf0kb4l5DpnCo59c9PmmzFwv54G8dnqvGPbkG7mrqc2DQmORa4x 9gzct6fhPdPT7sNJpBvsqt42DROuHhciLzBw/54GlZ+7rx/0Q/pSA++L0xAz sMJi6C4D9/Fp2O74/LBDJNIVZZbHTMPKMyYPnsUzcD+fBr7culuf05EuySop nQbzh1OMtEIG7uvTcFth0v56BdLHf3jwp8ElpeOyYQsD93cSNX4ql/Whl+Dc 0eo7CiTq1+WKW5V5DNznSdSVy1iadqLE97C5e+ERbRL14mLSIg85Ju73JGp4 blHq2cUE5zLTjDeSqNdqQ302aTFx3ydR5fujJSdWofXHYmfvJX6/bVXNvY1M 3P+J689/fUZiG1rfFNrsTKKa5N+yctjHxN8DJKpN1evR0MNova3fu2skagBD ozv+DBN/H5Co6w1uPnhxEa3/de5GGImarv/bi+bLxN8LJOpTiRhJShBav/XI /gQSdbGSXFpbOBN/P5CoPcojvSeeo/X51vp5JOqijDaVXwlM/D1Bovq8MXiv 8hGt/9ucXEeiSm6WX7Qrl4m/L0jUg2+iPpz8gdZ/MKxhkahdZ3v6jlUz8fcG ifqjja9m2YLWG6q9ESFTe5mcVHkGE39/kKl0D1mxPDaT8n+UqvK0 "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]], Line[CompressedData[" 1:eJxlmHk8lN37xwdF0i5pI9pECKEdXfM8KW0UQpFWpJAllHSTPNkSpZAQLcJX 9hQySEJlD5F93wdjjGX8znk5//384/V+feaeue/7nOu6Pp8jedH61BVeGo0W wEOj4f///49yHqp0gKA6F+useztz5vgBVDcGje5yoyOWeDFq8hg0+KmTXv8e J3oQ5L34XSL132nEzWf6Dr8Aq5LWYQ8rA/L5SJCEb5VhhsaItb1vromGU99q aoM3XyDXv4GLe/NK+CIuIU40v/EoBtYeP2tou/4q+b442Pi8pfzwS3PEyzQt +BLgjq12T7+kJfn+RMiuTWwtiL2BOCNQKSsJihV1TcTX25DfS4FGqfQdJldu Iu52S7yVCj7iEp0GSbbk99PAa7+e1CGaPeLVN+UVP8IJztcak1MO5H4yoPIf cZW/724hPmwa3/cJ+qP5RqZpTuT+MuFb2OSpKWNnxE4nZd5mwRO/5GOiObfJ /X6Bq2OM6IDNLohj1GJMc2DFidHF/3t0l9w/AzgChnoJM66I+1c9WZwLK44E qQ3upsjz5ELKJyN7Bguzx5KKa3mQIr8/zy7NjTxfPlhW/3La4eSOeD3/8u/5 sGsfn9F6tfvkeb+C7slHSZcFPBCnzpzcUgDM45VWylUe5PkLoNfbSuPT6weI j7EeuX8Dx7r7SRudPcn7KAT/c+OHo3T+Q9ze/7OpEMoHkmMt5R+S9/MdTPn2 ZqYu9ULs0r7oQBHoi4cWpLG8yPsqgp3Gy16/b/ZGvLLhaGgxnG3w6vtZ5kPe XwnclT209tI3X8Txld7sEpA3bSmKz/Uj7/MHXBIX7mDmPUL8T0mR7k9Y+Mex xaXYn7zfXxAz3Mw9fv0x4oa8Bcm/YDLvXF7Z+GPyvkvBbEvOwhGPAMR7/0YL lIGYY75T06pA8v7LABgO24riMfMb0tPLwKqyqLHl0BOyHuWgPMHZe74Dc0VV 6+VyCJ4W6nd++JSsTznwbe7svaEQhDhc2124At4YWXy6/TeIrFcFhPsKv2vz f4b42g/JvAo4uydr3bDmc7J+lWD0bElP3/xgxKqHc20qoWy9U7RUcTBZz0pw 9zHg4zwNQcz71XRDFZRFGp7MvBpK1rcKXvozy0rVXyD+pU77VQV6vMq64RJh ZL2r4dv8falBgi8Rh2ZGuFSDlHKYg+zUS7L+1aBa7W/TwgpHfHWX+vbfYGAd 47t/MoLsh98Qck7su5lHJGKllMa638CTOey+bvkrsj9qgF/K5qVfNGauvOvD Gri7sTB+9f4osl9qYOpQio54PebiWLFdtcBaY98l4BZN9k8tHJvl19SUf434 2dbsjlpI0bJ9dabtNdlPdXBoj479l8g3iC9GnXtaB1USemGLzN6S/VUHlboL vZtU3yGWF5+GP7CJ3fGydVkM2W9/4OGKO0llLMyTIS+Yf+DzoYwqh873ZP/V gwrPv5pJbbGIv4nsi6yHsvGHHx0H48h+rIcTWjEV1QL/QxwY8OdEA3QsbFAa VUgg+7MBrt7dkCVi+QGxyeLbMw2QenlLdsXZRLJf/0LW3nyf1YuSEMt4rYn/ C2aVRvf3FCaR/dsI930ic7c/SkY8Pu+TUSO0alkV8lxMIfu5ETyeX/MfpKci zqMMBJtAR+23kZZKGtnfTVAczTQM3pWO+NE0+2MTjEgamfgd+0j2ezN8sJMo F72VgVgu6+jOZvD70a9skf6J7P9meLlMx59nWSZi4dsvvJvB37VMNvtBFqmH ZgijLTrdsfYLYs6uvpZm0LbzDv+nMofURwskMJNokXUMxE2svXtaIKLHvHyy KZfUSwu0SR6PSprNQ1yQ4v24BY6ZO8sf3f+V1E8LxAU8MB8LKUAcd/NPVws8 kJbY+E6skNRTK3xfFJl09ud3xAE7ZNRbgS3qo3MksZjUVyv48dLt9pb+QOw4 4PysFV4MSFhOK5eSemuFgEJen9vsMsTGcUUDreAmY8YZ96wg9dcG/fqRxUGn qxDTLdb82wZdfh+HONd+k3psA/sbdlX1jbWIpaUswtog97p8V/C3elKfbbDx H0a568EmxEs7MkbbwFiAihLLbiH12g7nL01sW6LfjpgVteBoOzyO8lCPCOoi 9dsOfsm7ihgZfYjrTQ2i2uFzjIpome8wqed2uMtK5CyUGEOcKx7DaYftB71v SM1MkPruAEXL5hjr7FnE7xrY2h3AvPHuevbzeYy5eu+AhCsjuZ4LhBD7hWrG dIBZ090iSZfljLn674A6vfLfVmdEENsZPJ/tAJXdXUay30QZc/2gE3r1HX+U Gq5GbLiqS78TXjga7ytLxDruD50gsHnst7H7KsTqVaoJnVC+Rr1LRhV/H+4X nZA/MHEjmi2MeEug5/wuuKfmG8pXvYIx1z+64M7Q1prnZfh+hLR/n+uCj2KW vGe6lzHm+kkX/LaMdRhfjZm5eGtqF4Qe7h2U+7KEMddfuoBmvjXdwHox4poS B6FuMIxrcJfXWMSY6zfdsP7rrCFdFj9/tlfBxW7QsulTbN+xkDHXf7ohRW4q nqMpiDhaU+RzN7iu3L184OYCxlw/6gbFFSyZgDgBxF7zryzvgXIxLZWlo/yM uf7UA/O2eujVHMJsnZ9q3gObA74IP30znzHXr3pghkY/KLEEs57bPEYPxHL3 l7vew+uD+1cP7HS9pVY1wYd4n7quaC+Eq7JkLzhjxv2sF0zpqgKuNMySM9FW vbD+jMXl5368jLn+1gsrJGuXbpfALJA5WtALkW7rAgs+8jDm+l0v8P4x2ETT xTzgRBfrg7BnHSOuYzTGXP/rg8a7SalDwZgrVZ/Y94H68KTZgoOYcT/sg82z PqGL6vD++jTWWtIHf925/Eaqs6Q/9sGFtY4+PiFcxBHJSpv6YSn39sMDvFzS L/vBMvzrNhGbGcQPbNxv90NwXbZZTus06Z/9sCDhf7uHDTFbyleU90OZSGLR heop0k/7wTnxQmOlLmadfknpAXgwW6UmVDtJ+usAVE+O7io3wbwr9iY1ACNZ 7TKj3RzSbwfA84eZNNzCLGaeWzMArb0OLwP5OaT/DkKP0ZvJzBBcT3xbl+8Y BPEMEafgHROkHw+CY0xp+bzvbMQ9baaeg7DBK35Z80U26c+DoDE+eUaIhrn0 VeLfQWDnKmRYRIyTfj0E1dYr+Js1MKedp6kMwU+tH2m67SzSv4dg/X7vTx+8 ML8Q0/YdgsRNMpf+KLBIPx+CzxOJh3PqcP271Ue0DcHTbJXtWh5jpL8PAyuE 22SmgJhK+eEoNgwatk/38TeOkn4/DG4QzBX2Q0y9jdtwZBie/rf9K3VglPT/ YRjdk8fcPzSC9BDvQvthOGixJ2ZP1AiZB8MQ4LI83Vwf674W1pHD4PEowTtL aITMB6SbeMhsy2Mi/d5h0R/D8HpYZHOEM5PMi2GoPZDyQEQJ67ZSOexhED7T Unmvb5jMDya0rjxLq3yDmLrCb7aJCU5DIRfmXRgm84QJAm01sYJiWDfoWHKS CfezJr4npQyR+cKEX1q/isrkEVNHv6bfZsKypDVPjOMGybxhgnV5cvO/0ogp tWiTt0yQdAttdYwZIPOHCWq2TxVatyGmFN35K5ggpyX0xS62n8wjJlwMlP61 Tg4xtflCwgwTDs0u7y5K7CPzaQT8FkiW3FBBTIlq6EuPQDdL4hL7cy+ZVyMg e9wgS/8gYmrhBq7uCHzrN2Df+d5D5tcI+PLY7z+jjZiamXlDjQCYpCbU1naT eTYCt68fMBm+gJgabjgePwJhDd17HvV1kfk2AnfVJ2ZfOSCm2jJZNSMwGPFe bh2ti8y7EeAtvjXQ7d2J9N+hL/lGYWdnNt+kSCeZf6NwXvC/T/tfdSC9yPnf HaNwrXlRQbhsB5mHo6AsGr5jcQaaX1SWwYDRKHwpMNhtT28n83EUmlds25nz qw3pH3YFeY7CQvHjl2oN28i8HAUTj6CymPZWpEetOpA8CmaWiqtWW7eS+TkK YTsbpRdx0Lykgljtf0eh0OjXGgv3FjJPR6FLVj9nmRDWH1b5Co5Bak/PpdbA ZjJfx+BirLHe5zWIqTspyipjsG9GoqRVrYnM2zEIX2X6KkOzEelWgQ2mY2Al KLjg2fG/ZP6OgcnaM3eWajcg/cJND98xaE6OZMedqCfzeAw+/sw433r4D9J1 tWUzxkBPfo/2KrU6Mp/H4K6xLzyVQ/6A0txR1TYGBcWhnb6rasi8HoMojbCE pRPVSN+7xGUpC7ykH36bV15F5jcL7rw+cVoqshLpcgOb9rFATkrwBu/lCjLP WbDA6o4ie2050iV+lFxlQbXASOZHz1Li51ngv87WN+0j8j+UcJxdIAvub67j Vn0vypmb9yx4ZnJ9mUjuN6Tze6/7woJDQbua36bnE//PAr3ubN6CauTfKI55 fg8LHoqZ6sbFYP+H/QALshe+hz8RyD9S/ZqWIuNwNC/b0N0tjeSFcXgj49Fs txb5Vappq/DBcfjczNuWuhv7W+wXxkGn8neg/Q3kj6mK+ZnXx+H9ymiPvrF4 ki/GQZ+eC+LtyH9TBe0Xg8dBSl5J89RG7M+xnxgHZb7NHxaGI39PZeQv/DoO IVty6K+03pI8Mg7+mpvfZIqjfEDFRSUPjUOwLWqxwjg/YL/Bhic1YQYtG1He oMLdjNaxQV6pvVPjSBTJL2wQ2nhtldB9lF+oAFNeTTbkN74Y9/qJ8w72I2zo fzpf4+FWxJSHeqwtG8T8NFPNV0eQvMOGrnvnqkQmUZ6iHMVPhbNBMVDQ3m8I 5y/sV9iwvvEuM2Yc5TPq2gyniA0Hnpg8D1z8guQjNuhYHelNV0J5jjJueMVi Q4HKWtFPl3Hew35mApSHGhgWUSgPUtqZRyQnYLdga2RO73OSpyYg8/qkf/l+ xBQ9lHlsAsRktsSWP8d5E/udCTAbXqIjOIXyKKXqHOI0AXbDRU3VV3A+xf5n AvqOP+p/U4PyLCVtcPD1BNw4JzkzfhLnW+yHJiD5pkXw6V8o/1Lrd/WUTkDx NZXXOqdwHsb+aALWK6bzBNSj/EwtXRUwNQHzD9Qaf7bAeRr7JQ68m/9V1nUa 5W+Kl7VbigNVlrZFT57gPI79EwfqlR+nZMhjnVXZfIoDP1+wOj/8xPkd+ykO fOaWHD5og5jqTn7oyoE0VSmpPauwjv0VB7rXfXtc6uqP9PoAhVgO6IUuWgY1 +LwA+y0OPPUL5DqqIKZ+2dRWc8DY4rT1lhB8voD9FwdMv5v/4ONFTOWepHgm wVkx71y5NT6PwH5sEsZcl9Vot/ogPVV+m9wkPDyyn3bEEJ9fYH82CWa7p057 VHkj/d3iMoNJ8OE9ml52Gp93YL82CfFd+bKzv72QHtrv6DEJiRW14W3G+HwE +7dJKNfcG6bb/RDpfiUbEifhdVTctu238PkK9nOToJCW6AsCWKdiC+snYecO PxmnF/g8Bvs7dH31hjNxSogpOy9rgSl40qWomv0Dn99gvzcFK240hTy2QExd NRfdOQUbmYXtgoJYx/5vCnStGINL4h4g3VAzx2QKfM4V9nmexOdB2A9Owb5G Xj2jcQ+kH9tq5j0Fjw88r7SNwOdH2B9OQYS+tFymFtbV5y9Nn4KtJzsUN0zc J35xCkTlOuN83iGmlNrTW6ZA2b/x5KDBfeIfp6B5cWeCyiKsb8k3WTwN9/+n I62T60785DRkGFGtCvh8i1odxb9nGjQSPNMKFNyJv5yGs/veyfD0uSFdyC3h 8jREOXneqH7rRvzmNLQOLPxH5TLWuef1H0+DWG79/JWb3Ij/nIbz828+vdJG IZ2pxs2chnrd2NPibyjiR9HnD7ds3GmO9Xaxt13o/o5Y6YfIUsSfTsNKFflL fu33kF4zfVx4BqIPfsm9aHuP+NUZeHr3ck8EL9aL61lqM7BcqTBDKciV+NcZ OGQ9licog5jK/vzy2gx4dvocWpl7l/jZGXDeYr0FjBBTiSH/PpuBU6WDDfdZ LsTfzgBD8bprcSBiKtppIHcGSsEsRkDJhfjdGahNYd6Tq7yD9GdnggZmYOAM FSt/6w7xv1zYHLnyMHct1r1UD6zhwoprGQP+ubeJH+aCfsmhyBoLxJSLSMc/ XHjX61JaJHyb+GP0ed0TOmdznJFuPeZrwwUhHydjt+vOxC9z4W2fjpfiOqxf rFQO40LazrL8CyVOxD9z4fjJfJ0FdxFTeskNhVx4pnGweJ2CE/HTXPippCH8 pN0R6YcDPEa5EDB91uRKqCPx17Pwy+PrFm8drO+zkd0wC1bvT0lzBB2J356F Aza5lrH5t5Auf7JKaxYeWwsqPHO9Rfz3LAjeaxhP3Yt1SXmXW7NwrkXdZZbt QPz4LGir0NOs0hFTKxdvjpoFr+CKn1MODsSfz8Lne1FbI1WxLtBf8nMWhJp3 ntabsCd+fRbSzg6JimQipiaL7TizIL1b37zO1Z74dxr9CVvzShgdMWO8ym8F ja7gdvasgaA98fM0elCVVq5AmV0OTcPm64VtNPrj0zaqb57bEX9Po//M0nXb boqY0ZOiokajf+YeexQkbUf8Po3etkrKqnHUFl1/KVpQl0b/eqBDlyfHlvh/ Gr37vWcwxxsxoyHwrwWNnqT+90PeGVuSB2h0b19rRYMt+Hp996R7NPp/Dlcr 0kZvknyAdEHPKzV5iBmlNx8E0eguQwp/MgJvkrxAow8OOezTv4RY48gFwzga fZOk1Ic45ZskP9DoyjBpn8aPr8/Tlsul0XfVJXVY19mQPEGjV8WfsK2JR6yx X4OnhkY33X0kupuyIfmCRk/OrhCN1EPMSNtR3U+jn3op9mBSxobkDRo971V8 2hgNX79jw3teHrp3o85y0Q/WJH/w0A+EurQ6Glvn/B++SuEk "]]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Thickness[Large]], Line[CompressedData[" 1:eJxll21Q1WUah4+YmLnoGqkxhcSYmG5CmcKmK5jkgKsGOWToFCGbBtQGZOXL MnVg0BEGHaFwVyg1KGPBcQnQMDTlLUIQFVBKIF+AVVZYYw9HFhPa+Z0P7bXP 8oW55uLm/M/zf577/j2eUXGr1jtZLJbdoywW/f7/H+uWW83vLPlf3gZ+JMcW sdvwWeArL94MzjH+/gA4NC3BLc+o/wxcFP3HXfnG/ysE/zooZvRh4/8Xgcsy 5x7/wvi8EvCNpKJ3S43PPwJ+MMH7yS+N5ykDB0ceunnMeL5y8OaQ2QePG8/7 NTjfPz/ypPH8p8C9Uz5wqTC+DzllQlNspfH9qsAPO0/6tsr4vtXg0uGQGTXG 9yevsO9K/sZYj1pwV++Zy7XG+nwLTuz61aI6Y73ID7Qvzz5trF89+FBz2mC9 sZ4N4Gfr68LOGOvbCG6vvLe40Vjvs+AFHXljzxnrT3ZeE3j0nPE+zoObWq69 et54P+R9ocmuTcb7Isc2eFY2Ge+vGewbXBHfbLxPslN1pEeL8X7JjQGWxhbj fV8AZ5fvT7xgvH/yBr+A31w09gN5bskP35O1P1rBI97v7SBrv5BPF7j7fWfs H/IerxPdZO2n78FRuS99SNb+IntPu7vkkrHfyHf25vSTtf/awN9MXniArP1I zsy49Fy7sT/JES5bh8narx3g2aluh8javz+Ab99zbC1Z+5lcaQ0fd9nY3+Rd dwe/JGu/XwHPOb78KbL2P9l1a04aWeeBPOR38ypZ5+Mq+LJ9wdNknRdyTUna brLOD7kw4dJ1ss7TNXCGz+wAss4XeVPflj1knTfyy4V1fWSdv05wYIzbUrLO I3nWzJiPyDqf5IndZTayzmsX2J5773Kyzi+5LTI8l6zzTK6Ylj9E1vnuBn/e PhhK1nnvXhLkHTt95Ty3xRbLzuygfLLOP3lj+J9/Jqsf/B28Zsr11WT1B3JA i+9hsvoFeUbm9jHXweof5PGhF18iq5+Q+128SsnqL+TW+nfG3wCr35BPpNZE kdV/yHlBk78iqx+RU8esn9QDVn8ix1WVRpPVr8gvJN1ziqz+RV4YEDb1H2D1 M7LncN6bZPU38thyWw1Z/Y7ctznQ/SZY/Y/c7PvB22T1Q/KxgWv1ZPVH8v7i udN7weqX5G3xyVvJ6p/k172bzpPVT8nP93rO6gOrv5L9ChKsZPVbsnt0RStZ /fef4NFek3zI6sfkns7I7WT1Z/LZT4o6yOrXt8BHXrHMJ6t/k3PcQ9PJ6ufk pLb9nWT19x//y9aShk3uYEe/pz9Y6LGMXv2ffm9a7dv0mgf06TFxB+g1H+jf D57aQK95Qf/WzJOD9Jof/fDrnV+bDnbME/rw7gkh9Jov9Murj26l17yh98+L OEiv+UP/ZLJzE73mEf2j6w4P02s+/Qt+6uLVs8COeUV/n8dIGL3mF/3w8GdW es0z+h/bVx6i13yj7yy3t9Jr3tFfzP54tA1e8w9srduy1MdmzEOw9Xh431qb MR/p/+aXtd1mzEv63CmLim3G/KTPsnd12Ix5Sr+jJX3cgDFfwdY/lcybP2DM W/o3M9sjB4z5S78uISV9wJjH9GGhj5cNGPOZPsinpXPAmNf0CyYkTrQb8xts ndM3faHdmOf0jzTUb7Ab853etXBjJr3mPb1z2kNf02v+0w9FV/XQKw/Q9wa9 Pvm2cV8AWy97uT5Dr7xA3zSm/A165Qf6mq6ov9ArT9CXVd1XTa98QV+YW3yL XnljEH5f0tqHwI78QZ8R6RRErzxCnxJQ8Ba98gn9pmmr9tErr9DHDg/V0Su/ 0L/c/omdXnnm3/Ch5cs8wY58Qx+Y3b+CXnmH3nfL3s30yj/0s8Kf+ZReeYj+ Yb+es/TKR/QTp2T8RK+8NATvZP/tTLAjP9Hbm6+soleeor9RvOM9euUr+raM JwrolbfoG+O/u0Cv/EVfEWIddQdeeQxsLfV+bA698hn95y7nwumV1+izezel 0Cu/0e+s9yiiV56jtxbUttEr39FvTI0b+xO88h7YuiF66lP0yn/0a4JORtAr D9Kv8HotjV75kD5gzMSj9MqL9HO7jl6lV36kn1EV4XIXXnkSbH0w1/lpeuVL +vFJh1+lV96kH3ll9W565U/6fv+RcnrlUfou94PX6ZVP6VvvrnQdhldeBVtP t9n96ZVf6U989XEsvfIsfdHepXvolW/p8zb3VdAr79LveTGrj175dwQ+1XeR G9iRh+kTJ3c/S698TB83kB5Pr7xMH9U87yN65Wf6F4rba+mVp+mDM1Js9MrX P8MvjH/cA+zI2/TeIS2/p1f+pvf0TnyXXnmc/gGXR3Pplc/px/bWn6FXXqe/ c3rjEL3yuyXwFzx1u2Xn/WBHngcvjq9e9xjYke9Z31My35/1yvus/0PeuDDW K/+zvj2zI4b1ug+wfnXyF++zXvcD1p9N2JbFet0XWL9s3ZpC1uv+wPrK0DkV rNd9gvW/WzyqlfW6X7D+iM+FXtbrvsF6H4+/Oo36hf8DXpTLAg== "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Thickness[Large]], Line[CompressedData[" 1:eJxll21Q1WUah4+YmLnoGqkxhcSYmG5CmcKmK5jkgKsGOWToFCGbBtQGZOXL MnVg0BEGHaFwVyg1KGPBcQnQMDTlLUIQFVBKIF+AVVZYYw9HFhPa+Z0P7bXP 8oW55uLm/M/zf577/j2eUXGr1jtZLJbdoywW/f7/H+uWW83vLPlf3gZ+JMcW sdvwWeArL94MzjH+/gA4NC3BLc+o/wxcFP3HXfnG/ysE/zooZvRh4/8Xgcsy 5x7/wvi8EvCNpKJ3S43PPwJ+MMH7yS+N5ykDB0ceunnMeL5y8OaQ2QePG8/7 NTjfPz/ypPH8p8C9Uz5wqTC+DzllQlNspfH9qsAPO0/6tsr4vtXg0uGQGTXG 9yevsO9K/sZYj1pwV++Zy7XG+nwLTuz61aI6Y73ID7Qvzz5trF89+FBz2mC9 sZ4N4Gfr68LOGOvbCG6vvLe40Vjvs+AFHXljzxnrT3ZeE3j0nPE+zoObWq69 et54P+R9ocmuTcb7Isc2eFY2Ge+vGewbXBHfbLxPslN1pEeL8X7JjQGWxhbj fV8AZ5fvT7xgvH/yBr+A31w09gN5bskP35O1P1rBI97v7SBrv5BPF7j7fWfs H/IerxPdZO2n78FRuS99SNb+IntPu7vkkrHfyHf25vSTtf/awN9MXniArP1I zsy49Fy7sT/JES5bh8narx3g2aluh8javz+Ab99zbC1Z+5lcaQ0fd9nY3+Rd dwe/JGu/XwHPOb78KbL2P9l1a04aWeeBPOR38ypZ5+Mq+LJ9wdNknRdyTUna brLOD7kw4dJ1ss7TNXCGz+wAss4XeVPflj1knTfyy4V1fWSdv05wYIzbUrLO I3nWzJiPyDqf5IndZTayzmsX2J5773Kyzi+5LTI8l6zzTK6Ylj9E1vnuBn/e PhhK1nnvXhLkHTt95Ty3UxbLzuygfLLOP3lj+J9/Jqsf/B28Zsr11WT1B3JA i+9hsvoFeUbm9jHXweof5PGhF18iq5+Q+128SsnqL+TW+nfG3wCr35BPpNZE kdV/yHlBk78iqx+RU8esn9QDVn8ix1WVRpPVr8gvJN1ziqz+RV4YEDb1H2D1 M7LncN6bZPU38thyWw1Z/Y7ctznQ/SZY/Y/c7PvB22T1Q/KxgWv1ZPVH8v7i udN7weqX5G3xyVvJ6p/k172bzpPVT8nP93rO6gOrv5L9ChKsZPVbsnt0RStZ /fef4NFek3zI6sfkns7I7WT1Z/LZT4o6yOrXt8BHXrHMJ6t/k3PcQ9PJ6ufk pLb9nWT19x//y9aShk3uYEe/pz9Y6LGMXv2ffm9a7dv0mgf06TFxB+g1H+jf D57aQK95Qf/WzJOD9Jof/fDrnV+bDnbME/rw7gkh9Jov9Murj26l17yh98+L OEiv+UP/ZLJzE73mEf2j6w4P02s+/Qt+6uLVs8COeUV/n8dIGL3mF/3w8GdW es0z+h/bVx6i13yj7yy3t9Jr3tFfzP54tA1e8w9srduy1MdmzEOw9Xh431qb MR/p/+aXtd1mzEv63CmLim3G/KTPsnd12Ix5Sr+jJX3cgDFfwdY/lcybP2DM W/o3M9sjB4z5S78uISV9wJjH9GGhj5cNGPOZPsinpXPAmNf0CyYkTrQb8xts ndM3faHdmOf0jzTUb7Ab853etXBjJr3mPb1z2kNf02v+0w9FV/XQKw/Q9wa9 Pvm2cV8AWy97uT5Dr7xA3zSm/A165Qf6mq6ov9ArT9CXVd1XTa98QV+YW3yL XnljEH5f0tqHwI78QZ8R6RRErzxCnxJQ8Ba98gn9pmmr9tErr9DHDg/V0Su/ 0L/c/omdXnnm3/Ch5cs8wY58Qx+Y3b+CXnmH3nfL3s30yj/0s8Kf+ZReeYj+ Yb+es/TKR/QTp2T8RK+8NATvZP/tTLAjP9Hbm6+soleeor9RvOM9euUr+raM JwrolbfoG+O/u0Cv/EVfEWIddQdeeQxsLfV+bA698hn95y7nwumV1+izezel 0Cu/0e+s9yiiV56jtxbUttEr39FvTI0b+xO88h7YuiF66lP0yn/0a4JORtAr D9Kv8HotjV75kD5gzMSj9MqL9HO7jl6lV36kn1EV4XIXXnkSbH0w1/lpeuVL +vFJh1+lV96kH3ll9W565U/6fv+RcnrlUfou94PX6ZVP6VvvrnQdhldeBVtP t9n96ZVf6U989XEsvfIsfdHepXvolW/p8zb3VdAr79LveTGrj175dwQ+1XeR G9iRh+kTJ3c/S698TB83kB5Pr7xMH9U87yN65Wf6F4rba+mVp+mDM1Js9MrX P8MvjH/cA+zI2/TeIS2/p1f+pvf0TnyXXnmc/gGXR3Pplc/px/bWn6FXXqe/ c3rjEL3yuyXwFzx1u2Xn/WBHngcvjq9e9xjYke9Z31My35/1yvus/0PeuDDW K/+zvj2zI4b1ug+wfnXyF++zXvcD1p9N2JbFet0XWL9s3ZpC1uv+wPrK0DkV rNd9gvW/WzyqlfW6X7D+iM+FXtbrvsF6H4+/Oo36hf8DuK/8gg== "]]}}}, {}, {}, {}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 6.*^14}, {-6.301075509410629, 6.301075509410629}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> { Style["\[Omega]", FontSize -> 14], ""}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 6.*^14}, {-6.301075509410629, 6.301075509410629}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ LineLegend[{ Directive[ PointSize[0.006944444444444445], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Large]], Directive[ PointSize[0.006944444444444445], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]], Directive[ PointSize[0.006944444444444445], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Thickness[Large]], Directive[ PointSize[0.006944444444444445], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Thickness[Large]]}, { Style["Re(n)", FontSize -> 14], Style["Im(n)", FontSize -> 14]}, LegendMarkers -> {{False, Automatic}, {False, Automatic}, { False, Automatic}, {False, Automatic}}, Joined -> {True, True, True, True}, LabelStyle -> {}, LegendLayout -> "Column"]], {Right, Top}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{ 3.68617741884634*^9, 3.6861776346085396`*^9, 3.68617767334822*^9, 3.6861778115832186`*^9, 3.686178171178935*^9, 3.6861783152713227`*^9, { 3.6861792202703357`*^9, 3.6861792343643136`*^9}, 3.6861792828314967`*^9, { 3.6861794647497025`*^9, 3.686179502326762*^9}, 3.6861795457913218`*^9, { 3.6861795934132895`*^9, 3.6861796104128895`*^9}, 3.6861796665605097`*^9, 3.686179718392559*^9, 3.686180076172558*^9, {3.6861803940585403`*^9, 3.686180412427143*^9}, 3.6861804520127573`*^9, 3.6861806732331047`*^9, 3.759353949712476*^9, 3.759354063940386*^9, 3.759354115606517*^9},ExpressionUUID->"da11490c-6032-402a-94b1-\ a6ff25bb1494"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"p1IndexOfRefractionFig1.eps\"\>", ",", "\<\"p1IndexOfRefractionFig1pn.png\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.68617741884634*^9, 3.6861776346085396`*^9, 3.68617767334822*^9, 3.6861778115832186`*^9, 3.686178171178935*^9, 3.6861783152713227`*^9, { 3.6861792202703357`*^9, 3.6861792343643136`*^9}, 3.6861792828314967`*^9, { 3.6861794647497025`*^9, 3.686179502326762*^9}, 3.6861795457913218`*^9, { 3.6861795934132895`*^9, 3.6861796104128895`*^9}, 3.6861796665605097`*^9, 3.686179718392559*^9, 3.686180076172558*^9, {3.6861803940585403`*^9, 3.686180412427143*^9}, 3.6861804520127573`*^9, 3.6861806732331047`*^9, 3.759353949712476*^9, 3.759354063940386*^9, 3.759354116489003*^9},ExpressionUUID->"2fede3c7-d33b-43d3-9f10-\ 8702deb7c537"] }, Open ]], Cell["b) relative permittivity", "Text", CellChangeTimes->{{3.686084341879261*^9, 3.6860843480224876`*^9}},ExpressionUUID->"8fd65802-39a9-46dd-b36b-\ c5225e0ca25d"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{ "epsilonrAlGaNpointsRe", ",", " ", "epsilonrAlGaNpointsIm", ",", " ", "maxE", ",", "p1b"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"epsilonrAlGaNpointsRe", "=", " ", RowBox[{"txPoints", "[", RowBox[{"epsilonrAlGaNpoints", ",", " ", "Re"}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"epsilonrAlGaNpointsIm", " ", "=", " ", RowBox[{"txPoints", "[", RowBox[{"epsilonrAlGaNpoints", ",", " ", "Im"}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"maxE", " ", "=", " ", RowBox[{"absMaxOfSecondInListsOfPairs", "[", RowBox[{"epsilonrAlGaNpointsRe", ",", "epsilonrAlGaNpointsIm"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p1b", " ", "=", " ", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{"epsilonrAlGaNpointsRe", ",", "epsilonrAlGaNpointsIm", ",", RowBox[{"sgn", "[", RowBox[{"nAlGaNpointsRe", ",", " ", "maxE"}], "]"}], ",", " ", RowBox[{"sgn", "[", RowBox[{"nAlGaNpointsRe", ",", RowBox[{"-", "maxE"}]}], "]"}]}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", " ", RowBox[{"Placed", "[", RowBox[{ RowBox[{"LineLegend", "[", RowBox[{"{", RowBox[{ RowBox[{ "\"\\"", "//", "fs"}], ",", " ", RowBox[{ "\"\\"", "//", "fs"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"Right", ",", "Top"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", " ", "\[Rule]", " ", "Full"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", " ", "Thick"}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"\"\<\[Omega]\>\"", "//", "fs"}], ",", " ", "\"\<\>\""}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"peeters`exportForLatex", "[", RowBox[{"\"\\"", ",", " ", "p1b"}], "]"}]}], "Input", CellChangeTimes->{{3.6860843617450953`*^9, 3.6860843640113564`*^9}, { 3.686084449657668*^9, 3.6860844611767206`*^9}, {3.6860845712277627`*^9, 3.6860845908506117`*^9}, {3.6860864924125195`*^9, 3.6860865153718424`*^9}, 3.686087730915203*^9, {3.6860887163048267`*^9, 3.6860887211504555`*^9}, { 3.6861798743423796`*^9, 3.6861798938487387`*^9}, {3.686180094136877*^9, 3.6861800980774364`*^9}, {3.6861801290568714`*^9, 3.6861802504189377`*^9}, {3.686180307058565*^9, 3.6861803088541894`*^9}, { 3.686180472568878*^9, 3.6861804992353*^9}, {3.6861805396194515`*^9, 3.686180555191573*^9}, {3.75935409639076*^9, 3.759354126988649*^9}},ExpressionUUID->"aae9ca6e-2203-44c2-a300-\ 13dc29f4275a"], Cell[BoxData[ TagBox[ GraphicsBox[{{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.006944444444444445], Thickness[Large], LineBox[CompressedData[" 1:eJw9l3k8VO8Xx6eFpAhZy5pSWhAJkdGZhEgqRIukLJWKNuorJu2bRClUSpJE WUqSzNiSNTshxr7LGMNg8Hue7vj1T6/36z3H3Ln3POd8rpLT6d3Os0kk0sNZ JBL+f+Zf7d2knfazRIxIJOrFvxXnoTn+oOrt//N1CNbaTpOejVkxnOUQCIKv Nq8VmDPjH0Pk7rZne+diZuztNQ2HNLOOnfP4Zz7/EhKOzg2REsBsdcdT5jW4 LzUsvyU4U/8GrJunL+4XwpzgdjIgBixt9kkEisz8vfdg5AHkleKYRUyOzfkA CT11b5SkZ/5+AjxZkidIlcWcGqSZnggngm9SKEoz35cM1+oZeu4qmLuuJFz4 BLXBFn0Ta2a+/zNsu3j+FGs9ZmlPtfVf4EhiRvce3ZnrSYXbjOrn8mTMpo5x vV+hIWhvs/W2mev7BiYPPJdxdmD23rk6Oh3svkZ3zredud4MGNQOKr3rgDnG MMaRBpUhtBA/15nrp4NPy0PhTg/MfZLBQplg76i/KufSzO/JhKwVeYPS1zFf Ey4/ngV157WDOx/M/L5s2CQfZ68ZjlmWX/RnNswTT/8wET3ze3OAlfBdflsy 5k+TO1fkgqSwsb04feb350Lq0gTNY8WYLdgB/j9gtV7pG5P6mfuRB046iVVJ 3Zjb+oqb8kCywW/RB87M/fkJx1cHFRkIiCL2aVu4OR9IPcGfnKRFefcLsXxd hLIqZvEG87AC2HSAEXp1kyjv/hWCkB6r9YYF5riKO6OFcMh0AWf9IVHe/SyC 3Tcb7t4+g3lrYb51Mbg4yD8KuiHKu78loFgmYro7HHNDlkBSCSxvpqwoSRDl 3e9fUBQdzVqQh3nTn9fzSiFhTVu+aKMo7/6XQnacuFgHGzO/PSWlFFQfFQQ8 EBbjPY8ySNO96iixCnN5ZcvRMnix9doCPxDjPZ8ycAlU9608iPmFlf/iclAy rZWSvyTGe17lQLddkXD0CebjRUpZ5eB7SDgi8bMY7/lVwOD0lVzhKswbTTM9 KmDLl9yQG2wx3vOsgOioV8uWSy1GPDvHUaES9h12V2TpLeY930pwDxSamD6I uYRMKqmE9CMijXuvLuY97ypQs27JFojFHPYtwqcKfBIPXlcqX8x7/lUQfze7 J3ECs4sOeU01yDVZZBSoiPP6oRqchvwYl/dg1kxu/F0NucE+Do1XxHn9UQOB 3t53SEmYp9R8b9WAVUCc5HirOK9famBtBlezRUoCcUGsnE4tvIyOjy/bIcHr n1rIP3xTqvU65hCV7+21QKks69WkS/D66Tek34tOb+Jidoo88Og3KOxROSpo IMnrr9/w9IW2fvVlzGryXKiDrIr/bI9lSfL6rQ5OSvoW9M2XQjweGs6sA1Ov 0tF71lK8/quHPBsq42Ik5h8S+i/rQXaN4K1OlhSvH+vhwRLnQ8Jm0oiDHtZZ NkCPOzNjTaQ0rz8boKPAxcN/GrOD0KXJBog4YWi+/7AMr1//wPjYzQ6+n5hX 35aJ+wOP5kQe+a21hNe/jVCcxbbRfoN5ZO7XfY0gUf6yyF92Ka+fG+Gr28BV 7TDMWVS7+U1wTSDBuFheltffTaBdxaHWxGIO4I5+aQJK2S1lpqEcr98ZcDrY PfNnPeZ16eZaDEitllqi5C/P638GJGsmC1VqKiBefCn8DgO2royRqR5Q4J0H BvwhnTd4vl8R8ZhObzMDqj0T+J79UOSdj2aoddn1VEpPCXETe5NeMyidi3ep TVbinZdmYJ+/75itswxxbvKdwGbY9OaIWFPuMt75aYaMiAKG/SFlxO896zqb wffgs7cP+ZbzzlMLjA7FSsmlYX6ovprcAj1xJ0xqfFfwzlcLxEn/FRywUUHs 1X8xpAU0gsx+sbas5J23FtCNEGpnG69CfPB9fn8LiC3OsH/qrMo7f62wlCLx UffNasSUYzLGrcC6l18sLbiWdx5bQSIrzDA4bB1i1ZXHnrWCUteEs52DOu98 tsLcGLKr3UcNxIvaU1mtsDxG/9n+ivW889oGZoeq9JKVtBCzIwXM2+DL9jWb Al9t4J3fNnD+076uy34j4npHu8g22JUeQ8mx1OWd5zZo5FLv6lzahDhTPmas DSRnfX+XmWbAO9/t0CEJ8sveGSJ+2zBq1Q5hMguCYjeTeee9HRRXSqh3m+LP 3w8ziWmHlVoii7Q/a/LOfzvElu1wWJQ0C/FZuyfT7fBThBmbPHcdnZgHHTBH bJOB5n+6iO0lO207wGj7VjFWkj6dmA8dYCE7sKNCHzO5cuOHDjiys+J9vK0e nZgXHVBw4/KnZkkdxCuCbvB1QnFkorVC9wY6MT86gd+K/lORqYl4gVX1gU5Q /qVZFKu9nk7Mk044ynKz5zirI2YKqXzqhJ8nN4o45KylE/OlE2KZu74u8V6N uKbw/IIucJlYGCp7bhWdmDdd8CUzkqIRr4L4++1cpy6gClt+H5FZQSfmTxeQ 5vr7xyUpI35tIpHWBQGKB3U7PZbRiXnUBTtU6YJ2O5UQ3+ZzFu2G6qrJ0RAz RToxn7qB4WlYNfBFHvHp7E9u3dDA6TIs4JejE/OqG/RE3o48uLQUsc2VufRu 2PQ3aLpOeAmdmF/dsOSIq3c/TRqxPtlaqgfaz4qHBd+RohPzrAc0gWOz0F0S sdLk61M9sLD2kOvIYQk6Md96IGPqR5/RcXHE876xcnuAb6dPqfzVxXRi3vVA Z52xBzdWDHG/N0WuFyy2fxTzYojSifnXCw9TaaU2yzBXbAw+1wvPzG7GXz0t QifmYS84dUxukwhYhPjrcEthL/jkLRmRtxKmE/OxF6I+Ft17piyEOCJJU7kP DjB6C9XmLaQT87IPgvSXckPHBBFf9/C/1AeXZEsfZ47NpxPzsw/sFNfcjOLH fEKtvKwPrKzspuwVBOjEPO2Dpt0xr4Up8xDv6lNS7Qe6nqbmbE9+OjFf+8F7 Trrj9Rg+xDqxntR+mMgQXMTpmksn5m0/RLh/iM9bj1nOLbOmHzYYjtac9J9D J+bvAMgsXSxzum424jkqouoDUCh+rNpeDzOexwOQlK6+L/fFLMTdrY43BoBT NjFmJYgZz+cB+Hj/jc3r/0iIf71K+DMAdesqbCvapmnEvP4LMR06lz80TCH+ fIik/Rcso4yfmzVO0oj5/RdS0vx0Fbu5iMPlrO79hbZ7HSMp3AkaMc//Qqoy lxEmjflKfUTrX7BNOx/vaDBOI+b7ILTlHFSMch2jkajJRV5ygyDOSLo4L4xD I+b9IKzOLmFqVowiH/1ewWwQ0swloVIM8b/5PwiX7CN1X9iNIB96J+/cIPjc /WpjGsWmEftgEFwGJc4EsIeRv3fs9MtBcF8lclLDAvG//TAIKZzWZuZbFvJ+ plJFg6B2xr41VADxv30xCAcENL8PnRxC/sxK2uggJH0sSMuvYdKI/cGEwHdn hwaMEVOd+V2VmeBkvVBCO3WQRuwTJmw9enmLpxpiql278E4mWMmc/MK2+ksj 9gsTfkikF9taDCBvnpNyiQnP3pflpFv204h9w4SA9cl7Wvb2IW/42iGaCQmH quOvu/bSiP3DhGrHFnO3yz3Ir/fnL0fs7ZNqGdpNI/YRE8Rn5zuSvnUhv/zw h0kmjBTtcjNp6aQR+2kI0mwFqYPCiKlSRraqQ7Dsrwa9wKiDRuyrIXCvK7v2 1qsdeUGFKeshyKlKsdiX3EYj9tcQaGoFhaG9gfzk5BvqEPhK6dWG6iL+t8+G QMQ8R7/mSgvygw074oYg5tGZD+a/mmnEfhuCH9mrP1coIqa2fmPXDIGhp+++ HRcYNGLfDUGb+rINGhFNyFeHPZ/DAjuB4DBV+0Yasf8QXzqhab7kD/L5F43V WZAzKfltf0s9jdiHLEjf7GS2PLEO+XS7/n0s6IvxVvW48ZtG7EcWeEe/z1ro VIv8R53HN1jA5bb65FNqaMS+ZIGB28u3XmuqkY+U3JzEAtmnLk490lU0Yn+y IK7+/o2RBZXIP2a3/WHBhnCLoDNzK2jEPkXX5816tHF2OfK3Ku/NH4ZzviAr y1dGI/brMLw0+LFsamEp8v8lb9AehtSevVOeWiU0Yt8Ow9P74zHWtkXInwpq cBwGu6fH+J38C2jE/h0Gbz+Djfu+/ET+sOe1e8Ogod4bPj38g0bs42Hw6DuT K6mfi7y11dpUxGst9rjczqYR+3kYFNc9b05pykTeRL2ydRgYXiFD5ZvpNGJf D4OVz69kIZPvyG8S9lnEBiPri7u3KKXRiP3NhsCYo/qM+V+QX9evrM8GD8VT svdJn2jEPmcD9UjA5/65icgrFhW6sIGu0O1psy6ORux3Njg6W9s3HY9GfvH7 s0Ho8wk24VWZL2nEvkf86niZ1pEQ5PnvLM1AfHZbuXnHDRqx/9lA8ih9LGK+ Dfkxt+xudH2uFStj6FfJRB5gw8uis0kjxo/IJGqfyQmJEaCreoU+93tBJvLB CDA+BLmuNIlCvkll8ZYRECGbbrym945M5AXEynHnHKU+IF/O9819BLo0pmtD PRLJRH4YAdMo+lhqYTLyuW1OT0dg0D+nx1guhUzkCeSXB9h4Oacin5otmDMC 0itlLf2j0shEvhgBj4ajh8Pq0pF/H5n0dwRIZtqvmfNoZCJvjMJR/e8HD4TQ kX9xZd/SUTDV9L34ICqTTOSPURj89lPh3Ycs5B86zjYZhdL/ut7SPmWTiTwy Cuf2ryjsSslB/ho59swoNLQsj9X7nEsm8skoDFcuLv/x8QfyXvK7X4xCX1zY lqjoPDKRV0bh2rmIk+2hP5E/PjmWPwpd22uMn9/OJxP5ZRSiKlT1Gs8XIH+w 4RV7FNbGdOmlORSSiTzDAauChkzYWoS81TczJQ4ETqypvqVSTCbyDQcEcqUW POdDvUilhDEtOJDe+uTmg2bE//IOB+K+lAl4pP1CfuPFUG8ObFP4MqRiWkom 8g8HNgq4CTxLRExVtdsSxYEAR4kHL2TKyEQe4gC/T8YrbSpiqqxO9y8OLDHS UXNrxx7nIw7co98eMTArR36R5MMJDmjONg9Ke4/4X14aA+FTrac7F1YgP5ut u3IMBr0Lq/LdEf/LT2MwzE1vdS3Enl3B2D0Gvum/g/NWVZKJPDUGKdS8bwPX EFO7km75jsE5oyyh1ibscb4ag/KUKJlYvSrk6x9qxI5BRlHnDrMgxP/y1hg8 0grl5HZjX+JRWzUGRXfMTFcYVZOJ/DUGUy5DFu6PEVMzd1JnjUPj3UpORDf2 OI+No3xvqZRrUIP8J7VV68ZB9k+cHyMA8b98Ng4WB5iJI03YvxUqtRuHqX0h +gs1aslEXhuHyldmN1b4IaaG9XldG4dB1quWbcXY4/yGvu9Oya1zS34jf79Q IQF9H8MoNMkF8b88Nw4vx63k+JKwp8bm1Y9D9YWGeR5c7HG+G4dyL4b2qHEd 8mdvn543Adc+C59+EYD4X96bgLCKgy7HqrF3cZPSmgBrtcdp++XqyUT+mwA1 k8oR7yOIqfYmNIcJsBqXCM6JwR7nwQmwfP1xeEs/9hYqrncmoM+26NSwRgOZ yIcT4GbTBk1nEVPJfItSJqCkRuMVXwr2OC9OgIW97Lvjo9hrtqU0T4Cgz8dj orp/yER+nIBlMePNXC/E1BXZDkJcCLviM0vjC/Y4T3IhY9f1mHg29tKR/Hpc sPV9EuOt1Ugm8iUXRFRzc4I9EFMXXPlwlAuRixYkzYrHHudNLjzNiZHK7cJ+ 6pBtIBfa9l54wFBuIhP5kwurr+tE2zogpjINp75xQfZyX73qU+xxHuXCWgfF qANl2LfJRXdywSh1STJnLoNM5FMu9IXXGLIVEVNruDsWT0LVxs1ybwywx3l1 Eu5dCvWYb4d9QT3bcBKy+pJtlM9ij/PrJMz+NNDKuo/997Tnxyfh81eXdT4x 2OM8OwncLjHy9yzsE0KNQybh0cMWxdQG7HG+nYQOdl3VyRHsX3v3Z05CieCG A02LmslE3p2E36fPxQupIqaG7H3cPwkC0fcyxrZgj/PvFJjfZfpF7cP+9sbN MlNwSjHlj/BZ7HEengKNiCia3l3sfSTat05BR7vtfJXX2ON8PAUNmy3DKtOw Pz18z2MKXlwRtNxWjj3Oy1Mw8FaR+1839k4VG55NgVqqlfcFUguZyM9TULQ2 PGijFGKqTVJD3hSM59lIfV+HPc7TU7CsifxLcCv2pg+vsaZgTDHET3Ef9jhf T8PWuhU9U6ex1/dYqzANy78fKo6+jj3O29MQqHa8TToce7WdldunIUhOq9Mm AXucv6chy/XKHYdc7JXUfC5Mg2UJH1WrDnucx6ehxPfEhaoB7MWFlkdOw7Sm m4zxnFYykc+n4UJPoehVKcTUeX2FxdOgsiWQL3AN9jivT8MT584n7mTsxwvO jk3DncTtx2T2YI/zO4mS2HlL6okLYvpI5X0xEmVSunJzx0X8eZznSRTJDb/O zbuP2Mgj5/AqEsV0S/juiQhcj/M9iWKxo+14VhKu707WNiRRVvMNWB7MxfU4 75MoVnwv7xfV4Pojr+dbkygKjQ+TRXpwPc7/JErJL0nz1Vxc3xD05xiJ8oNs 1iAj3EYm3gdIFKNuif4mBcRGtv6JfiTK8sJtsy6vR/zv/YBEqa28H8YExPRf ntcfkyhFex7oGlrjevy+QKLcUO6zO+KM680O278nUV6+Mvc6fAHX4/cHEiXM 1VlI7yauz7Jal0mipBcKBvc8wfX4fYJEKV6t4XshBtcbGM2qIVFaJtjwJxXX 4/cLEqXgY+IehXxc/1m9qo9EOX5wRHHzb1yP3zdIFEeD5zI63bheXeHd7FkU tb/FsUJjuB6/f8yimL3gN8oUaCf/D25xNXk= "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[ 0.006944444444444445], Thickness[Large], LineBox[CompressedData[" 1:eJxlmHc81f37xw9ZDVFUqlsIJRmlkDuh66SUxO1uaKOFEMks9SFlJbsykohk ZaeQYyfZKyt773FwzN/7c3t///r1T4/n4+XD57zHdT2vI6R/T/sWM4VC8Wai UMj///8/wna02hLyB7SXY4h/s1f4GXyNuyr4xPEGYsGgyWte4Lnd56qmmgnO /aGUS+xgmasF4rYLg2pBsP/QyFEBCxv886HwTUoziUPPHrGWm/nWcIiacDx2 RNwBPx8BxjS+5AMfnyJOMDB5GQWs8jT7jt3P8e+LAY1Na6Aw1gUx9wnDVfHw bUvhu6ty7vj3J8Ah23M2ewo8EKf7yGQmgq/6qjd1El747yWD6c1mG3k7b8R9 DglWKTB599nc/E8f/PdTwWBX3A0jAT/EfOZS+7+A7/JIyU9rf/w+6ZDw3J96 p+YVYjXd2MGvEKapuOgu+wa/XwYwtB/bOgcFILbRFI/MhKYd7SnRbEH4fb8D NWOfzknrYMRRSlG62WDM6zT4dfgtfn8apPDtWnfe6B3ioc2+nDkwB1XaWVah +PPkQLyO6Jb8w+8RO62vMsqF1QrRFuYsYfjz5cHlPn8vRgXJf7Ft+JEHlHDW XJ/34fjz5sNn/uR4S6sPiFMWNUUL4JzgUdsWzQj8+Qvgi/ulIXapSMSn6S8d CyFHrvOT7IaPeD2KwIRCXI1mkNw1VNpaBKJrcidie6Pw+vyA2atq5c5NnxA/ 6lp3pBh+3DiwwbU2Gq9XMYR7n6lirotBzNusHvgTzldeM1NvicXrVwLjp7ia sgbjEMdWu82UgEcec99Xps94PX8Bc1PZ+SquBMTHSorPlkKlxav7U2EJeH3L IL7hZfTDvxMRN+dyJJXBcVOOsPC6RLze5dBxsdouxjoJ8d8t4ewVcI51ia+O PxmvfwWEhlgaGxWTzHaRmlYBCRNCOcl2KXg/KuGS1+7NzDKpiKtqOm5WQh0/ l330aCren0qA6x8d2FPSEIdoOfJUAY3VO8j2yRe8X1Vw3JiIvqOdjtjol1Bu Faia6T9WlvyK968a8mW+GFtxf0Msp5ZjVg2nbUOnXBe+4f2sBmUzbQvKRAZi 5nxdgRrISC0dMBzPxPtbAxYzq1t057MQlylTympghzGzkjt3Nt7vWtijlZpd ykdDHJjx7lEtDO8JbI76TMP7Xwuq11VslTRyEN+WV95bB0P+HieWxnPweagD 9qqtk7ohuYhlkv801AEbV/uqfu08fD7qYe2qW03C3PmIl6Qeu9TDpp015dF1 +fi81IMsQ8dQ5GMB4p/R/PK/Iaz6cqGqYyE+P78hWVRVosagCPGrXVndv2Hn NfmSyMs/8HlqgO6kk5lRl4sR64dd8WsAy+281CbDn/h8NQB7SfsVHecSxFI7 FqARpFwSPp1L/YXPWyMklmhl7aaXIp4LCBpvBD/FgH5VtXJ8/ppAqqrr1G6d CsSFmw6HNkEAhzP/8y2V+Dw2wSf3q95HOkn28W480wzO71VZDDKr8Plshg+m 67uVP1QjvsZpt9gMmX40cZHgGnxeW0CwIsz1bUQtYnHXrbEtoJeR63Yztw6f 3z8gVzafZDBVj3ia5eulP6B4Jmvs95EGfJ7/wEhNjp/k+0bEuYTO6lbw26ol flCoGZ/vVvg0bf+GP6cF8cuFmS+tECAbz+3p1IrPexusr7c/1PSlDbFkpvqB NliuW7JKzGvH578N1ui1uHj3dSDmsQtya4MIJ4XUlD1d+D60gfW5lppmt27E DPnB9jb4ObRXyYy7F9+PdrBXVfQIzu5D3Er/W6Ed8tZqHnMMGcD3pR2q1lwf vJsyhLgg2c2rHf65kXaUd80ovj/tENpzV5pSO4Y4xryxtx0SqmIV7LQm8H3q gCdzjw4fX55E7C0trtwBt4x7h5gH6fh+dQCxNG8SKTCL2HrY9lUHPL0loXAw dg7ftw74fkhiXVr4IuKrMcXDHVD3NfXpKU8KbeX+dcLTXVr+yiHMiKmGW1U7 gVVLwOYlDytt5T52wp9h5ruUtRyI9+w2DO6EkIcXCcXotbSV+9kJ6Xv48v02 ciPm6k6f7IQ4k4MGZzs20lbuaxfwCmqoedpsRkwP41DvgsfS188GC22nrdzf Lggse62X/VEQcZOuTlgXyD1ZK9JSL0Jbuc9dUMqSU0WLFEecsyOK0QW3ejp3 nDPbT1u5391geXeb9Prz8og/Ns9odQNDxN15XbwybeW+d0N21ejp36dUEXsE nojqhkTBtFqD9lO0lfvfDaJt4y2yHhqILXReL3eD4Su/nRw71Gkr9aAH9v++ YXTuNfn8xc2953tggKd9NGqzCm2lPvRAh68Ey4Ek8u8r18jF90BLJ40lMYF8 P7Je9ICDz4UkLqa9iEV9nrP2AneopYs1nyhtpX70QvnUB7XN9eTnX6tVd6UX orlqrdMMyPUh60kvSGb0tip8JtdvnHNXSi/Eui85qnPy0FbqSy8c4zNzWydL rn99ieXaPuCO1qYEdZD7Q9abPjh+8F+7YQVy/7JcC/T7YPN4EefJw+T+kvWn D+6VMnsa08j9Dz+x6VsfuOvarBWOI88HWY/6QPXw6Quvf5Pnx5X11oZ+OOq+ TiChaQ7Xp34o7kljrztFnr97eSkG/RCsOdCQu3Ea16t+yAiiPVcVmUJ8zoGF 1g+er0fEVS0mcP3qh9Cvpioc0+T5P6x8dssAJN36VHPh5CiuZwMgGrtO/eE4 eX+EFsNNB0Du3KGcpoYBXN8GwF5U68MnBnn/2DMmCwbg1eZXH1xP9uJ6NwDS QhJhGnnk/R22ofIPwjCLcEemXheuf4MgV/Nl4I5gJ+JqOd8Hg/C9sOTcs/l2 XA8H4Ur2kn/tKFk/vk51lAxCY4ChNh+9FdfHQaBQfAXtZP4gfpckIzwEY2dM /gnybcb1cgj+Hj1gXsHbhPiZmaPdEDRF0tU6kxpw/RyCmR+BRUx3fyO+K1VV OQS2TCnZn/+ux/V0CKI+akx9EyDr5T9DQnuGQb1025r9fLW4vg7D/qv32C/s JOutfLQ5MQxCXXw7whSrcb0dBjseZefEW2S95jfIqR8GnkuN1JPBlbj+jkBO SUCwRitZ/1ft2iA9AguKXyBbsgLX4xEw7BMdv8dJ9ov+Tt3nI6Aj6HapvKoU 1+cRGDr2eVI4muw35e8TWkbg5Vrrzi0+Jbhej0L23h8PHriS/Sr1OkV2FPjE fmbv8CzG9XsUXPQ5M3nDyH4XxK/1YhSyHkrEGeUU4Xo+Cte+R7aoDZH90qHp XecolES4vO0XKsT1fQzCZSiPXuuh/kok/7LmH4OPysdSYqLzcb0fA5ub6kUv FlC/JiJjBE6OAZX3q2Lc+Txc/8fA57fkc7d01N+JALeiB2PAn19OiRXKxf1g DOJu3dsQ5o18gHhheC90DLyid+uwcuTg/jAGIUHZs5ZOyCeIJ2pbfo2BuIUp PZCNhvvFGNSytx6g/oV8hLi/O3tmDLbf3TtgK/sd949xWBbz/H5KB/kLcYvt jvA4FHQt8O1zysT9ZBysZ7b/E5eO/IfQ6V6vOQ4pNUcYGvRvuL+Mw6HKcoUI BcSEen6a3TjELr4+rPHsK+4347BF/Mi7nnrkX4RS+LXIcRi+UkDh25+O+884 XOhveubhhXyN2O/IVjUOUj6VlrP0NNyPxmGnwe3G9XqICRG9+MVxYKp9LuZe mYr70wTIsyiO7T2BmNiicn7PBHCOCPsm56TgfjUBrbz1lD4VxMQagaWzEyBY kGjjk5+M+9cETEU4aT05jZhYXIwgJsCsPjPb/ncS7mcTsGsoJP66AWJirFkj dgIu9im4MuYTcX+bgOtKtE07fRETnRn0+gkYD17QSJJMxP0OPW/y7vCzEuTL RF3g21WTcHSvWL21cQL2z0nQMD7Qb8BN5sW2qtKTIDI43WRuSvo32Q8nQTs1 g+6bE4/yTJ3hS5NQfMNWfXlrPPbVSTCDvc321sjfic/y/s8nIfeLjmZzA+n3 ZL+chO7z2qX9KoiJsM1HkiZh7jN/o3VsDPbbSTAyb5K59Bdiwp/e1TIJHJ3W cbe9yPmB7KeTMFBqu82SAzHhUvNi9RQkvSwSu+70CfvwFMjePKJOYUFMPEw+ KDsFJ3km38k6k/MJ2W+n4PHXDQ0tnIgJU59m3SnYL86/u+H1R+zPU/DC7pXI alHEhJ6504spCLFqzdVKJechsh9PQWao2iE/NcTEWS2J9CmI3Co7mv4nAvv2 FETdPmoVYY2YOCFd0zkFXk8umx/lIXOyX0/B5c4Md8tENH8Rf69/xEUHuZgE o73a/5vH6NCRKPFeg47mNUJyWPgwHf4d5vxQFEjOb2Q/p8PT1VzZz4DMBX+V 3KaDkszFNZZDYdjn6VBZEKP79A1igifGwocOVbe5z787TuZkv6fDK6+N0unT aH4k2Ny2f6fDB/P7v7Oi3mP/p8O0vnpr6BUyZxjk9dMhvjHSUHsjmZM+QEfz oKV0fjGaR4mhE3c3TcP6fT0WfY6heF6Yhpj925cTj5B56y6eo9Nw/M6VfWJT 5DxL+sI0RIhxL7OYISaqWDOMp0HOYVV1x0gIni+mwcPv9US0GWKioEv/zTTI Ru+zOUEn52PSJ6Zh23r2k+GPEBPpeWvyp0G/zGRdNNtbPI9Mw0CYi7CaL5qv iZiwpNFp+PLF6L3RTnLeJn1jBjhs31CXk9E8ToQ4XNo+Ay4tPUZTJ4Lw/DID 1auSeRX+BKLcW5f5xAyMqJnUZFoh/s9HZqDwlEXpvQ1k7qQcfX8Gaj0PxkF8 AJ53ZmC6/G3ELg3EhPUO7ZAZiN9SdIdzhPx+gPSVGTBXaN/R74WYMFpkFM9A q+z1u7H/fX9A+ssMvLfSuXaq+TXKrza/p8+Ad4+gZZoT4v98ZhaK+Hn9u6TI XCvjpNAsZDF5sxc3kt9HkH4zC1+vC1vpuCAmqIHjp2fBT6Khx1mezEnfmQUh uZz0033+KJezDbCZRfOmd2hw4P++35gFYQXzCJMzZL5H5+iHWeAtHOBPW0Xm pA/NgoA3I9b4mx/K/5LvL58Fqouisst98vsS0o9mQfqGKgdFgsy5NnvPz4Lz v6xESY8v9iUGeBif0+0IQ0ww0w/tZoDivYAwRV1f7E8MCPv20L5qB5nTq9u0 GRC4L0c/+I8P9ikGvBk9sOjzDjHRl+TymAHFFeFSn/V8sF8xwDlqnnNAhMyb vPdFM4DtrFG3Yr839i0GrIkN2fc+HjFRZva7lgEXiE1B3Jbe2L8Y4PLTZslJ kcxzNAmmOVilzaU3y+KNfWwOxFgUp26WeaE8RUpMcg7YzqzjKXjjhf1sDhZ+ 1ajw3CTzj5wVOnMwl9K0+9Q+L+xrc/DvB8F9xXOeKA8csnaaAzmxkLUZrzyx v83BMakbG3QPkrlHiUDCHChp1qTEV7/EPjcHVo5nY94+QEwQ0UVNc8AlsntA eMtL7HdzMLbj9odDGR4ot3C9xz4P93XXnqzW9cC+Nw8/C9c5DLKT+W2DLQfm 4Wq+q6Rtwgvsf/Pwa3717QeXEBMXT2Rfmwd2oV9WtawvsA/Ow84HIq1+Se4o P73rjts8uMkMaMboumM/nIcI/clPG7jJXJmVK20ett0KWaDR3LAvzoNdloFT 0n3EhExXWvs89Lr5fGoVdcP+OA/dUmVLRxtdUS6ad41zAV5HzitXe7pin1wA GcFRLY/jZM4XxqawAE8ug6LRkgv2ywVQMNwnc/MLYmKtQ/zNBRDTf+hsae6C fXMBGpIup7yRIPOl6+e9FsD/rc2/P/qcsX8uwODrfsHlCMTEuNJSxgKclFRh yN90xj66ANU8gb9NhMm8iz+ydwFKhTMagjqfYz9dgOZuKdmsD4iJ+gUNnkXY f89cpfT2c+yri9CgKmBStIfMfzbRlRZBdY2E2sfhZ9hfF+FgpICtQRJiIuvb W6NFUMq7mMNm8wz77CJYnLk8b69E5gkBqq8WQati07afrM+w3y4CQ19FrLfU CeXhNsM5i1CxMelE5Ssn7LuLcN06J8FJl8xfXfAfXoT+s58SF8WdsP8ugSvf RNyh6acod5U7snUJ6pjb+GVyn2IfXoL0um6Pnpdk/mhT97ElCOvcHqJ95Sn2 4yVQOZbBZCFO5vemXpgtwcjet4+PMRyxLy8Bq8D3obwfiAn96oPBS7BzMl92 5I0j9mf0vJXHWZohmZ9Lai5aAufgtLPyhx2xTy9B26aD2lqcZK7m7TS5BM2S nTYcbQ7Yr5fhfMNOlqvJiInDZhICy0CtM1VSd3bAvr0MtnmLRMVlMpfSrDm1 DEOb9Q8M7HPA/o24QbLEn43MhaQeWS1DJ09ASUUzgX18Gap+iRe8SUZM8HKK hC1Dh/fNc4NuBPbzZSi/bbarUJ/M2YdKSpeBk7tyZNdhAvv6MvCH8Zqv5SXz uZ8WjGUwfL5xpqPxCfZ3ClV7W1953EvEtOkaj40U6okFXzkL6hPs8xSqUVnt GmnG42yKilm+nhiFquydebTl82Ps9xSqJp9It+0dxLT+ZFklCtXrLzkeJsHH 2PcpVMfykUXTBnv0/I3w1Wcp1M6qDwPZvvbY/ynUQlu//WNnENOafVoMKdT5 Q6ZHFtbY43mAQr0j2efWVvQIPX/eMfEJhbo6VDsq4NkjPB9QqCP3pGVFjiGm lZs/86dQQ9R/tT9a9QjPCxTqp/BW09C8h+j5k3oXYyjU5KNice5OD/H8QKGm mnLZHz6OmJarJZlDoUb4a5TFcjzE8wSFevGM97vmEjv0vKIKUz2FujVbbKnI 0w7PFxSqHsSxGp9FTEuVrh2iUAeUE1sLttrheQO9r5hZXlWrLXpeWuATMxPV z4Gge0ba4vmDiXptzrlozsQ2+/8ArEbUsg== "]]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[ 0.006944444444444445], Thickness[Large], LineBox[CompressedData[" 1:eJxll21Q1WUah4+YmBm6Lqk5hcSYmG7CZgmlCSY54KoL65ChU4RsGtgWkJUv MXVg0BEGHaFwVyg12IwFxyVAw9CUtwhBVEApOeQLkLLCGh2OhAnt/M6H9tpn +cJcc3Fz/uf5P899/x6v6LgVa10sFsuuERaLfv//j3Xzzea3Fv0vbwU/lGOP 3GX4LPDl52+E5Bh/vx8clpYwJc+o/wRcFPPaznzj/xWCfxMcO/KQ8f+LwGWZ c459ZnxeCfh6UtHbpcbnHwbfn+Dz2OfG85SBQ6IO3jhqPF85eFPorAPHjOf9 EpwfkB91wnj+k+CeSe+7VRjfh5wyrml9pfH9qsAPuk74usr4vtXg0qHQ6TXG 9ycvc+xM/spYj1pwZ8/pS7XG+nwNTuy8d0GdsV7k+2xLs08Z61cPPticNlBv rGcD+Nn6uvDTxvo2gm2Vdxc3Gut9BjyvPW/0WWP9ya6rgo6cNd7HOXBTy9WX zxnvh7w3LNm9yXhf5PUNXpVNxvtrBvuFVMQ3G++T7FId5dlivF9yY6ClscV4 3+fB2eX7Es8b75+8zj/wdxeM/UCeU/Ldt2Ttj1bwsM+728naL+RTBR7+3xj7 h7zb+3gXWfvpW3B07gsfkLW/yD5T7yy6aOw38u09OX1k7b828FcT5+8naz+S MzMu/tFm7E9ypNuWIbL2azt4VuqUg2Tt3+/At+46upqs/UyutEaMuWTsb/LO OwOfk7XfL4NnH1v6OFn7n+y+JSeNrPNAHvS/cYWs83EFfMkx7ymyzgu5piRt F1nnh1yYcPEaWefpKjjDd1YgWeeLvLF3826yzhv5xcK6XrLOXwc4KHbKYrLO I3nmjNgPyTqf5PFdZXayzmsn2JF791Kyzi+5LSoil6zzTK6Ymj9I1vnuAn9q Gwgj67x3LZp+ua997o7lCy2WHdnB+WSdf/KGiL/+QlY/+B68atK1lWT1B3Jg i98hsvoFeXrmtlHXwOof5LFhF14gq5+Q+9y8S8nqL+TW+rfGXger35CPp9ZE k9V/yHnBE78gqx+RU0etndANVn8ix1WVxpDVr8jPJd11kqz+RZ4fGD75X2D1 M7LXUN7rZPU38uhyew1Z/Y7cuynI4wZY/Y/c7Pf+m2T1Q/LR/qv1ZPVH8r7i OdN6wOqX5K3xyVvI6p/kV32azpHVT8l/6vGa2QtWfyX7FyRYyeq3ZI+Yilay +u+/wSO9J/iS1Y/J3R1R28jqz+QzHxe1k9Wvb4IPv2SZS1b/Jud4hKWT1c/J SW37Osjq7z/8l60lDRs9wM5+T3+g0HMJvfo//Z602jfpNQ/o02Pj9tNrPtC/ FzK5gV7zgv6NGScG6DU/+uDXur4yDeycJ/QRXeNC6TVf6JdWH9lCr3lDH5AX eYBe84f+sWTXJnrNI/qH1xwaotd8+hF+8sKVM8HOeUV/j+dwOL3mF/3Q0CdW es0z+h9syw/Sa77Rd5Q7Wuk17+gvZH800g6v+Qe21m1e7Gs35iHYeiyid7Xd mI/0//TP2mY35iV97qQFxXZjftJnOTrb7cY8pd/ekj6m35ivYOs7JU/M7Tfm Lf3rmbaofmP+0q9JSEnvN+YxfXjYo2X9xnymD/Zt6eg35jX9vHGJ4x3G/AZb Z/dOm+8w5jn9Qw316xzGfKd3L9yQSa95T++a9sCX9Jr/9IMxVd30ygP0PcGv Trxl3BfA1kve7s/QKy/QN40q/wu98gN9TWf03+iVJ+jLqu6pple+oC/MLb5J r7wxAL83afUDYGf+oM+IcgmmVx6hTwkseINe+YR+49QVe+mVV+jXDw3W0Su/ 0L9o+9hBrzzzE3xY+RIvsDPf0Adl9y2jV96h99u8ZxO98g/9zIhn/k6vPET/ oH/3GXrlI/rxkzJ+pldeGoR3cTw5A+zMT/SO5ssr6JWn6K8Xb3+XXvmKvi3j 9wX0ylv0jfHfnKdX/qKvCLWOuA2vPAa2lvo8Mpte+Yz+U7ezEfTKa/TZPRtT 6JXf6HfUexbRK8/RWwtq2+iV7+g3pMaN/hleeQ9sXRcz+XF65T/6VcEnIumV B+mXeb+SRq98SB84avwReuVF+jmdR67QKz/ST6+KdLsDrzwJtt6f6/oUvfIl /dikQy/TK2/SD7+0che98id9X8BwOb3yKH2nx4Fr9Mqn9K13lrsPwSuvgq2n 2hwB9Mqv9Me/+Gg9vfIsfdGexbvplW/p8zb1VtAr79Lvfj6rl175dxg+1W/B FLAzD9MnTux6ll75mD6uPz2eXnmZPrr5iQ/plZ/pnyu21dIrT9OHZKTY6ZWv f4GfH/+oJ9iZt+l9Qlv+QK/8Te/lk/g2vfI4/X1uD+fSK5/Tj+6pP02vvE5/ +9SGQXrld0vQr3jyVsuO34KdeR68ML56zSNgZ75nfXfJ3ADWK++z/s95Y8JZ r/zPeltmeyzrdR9g/crkz95jve4HrD+TsDWL9bovsH7JmlWFrNf9gfWVYbMr WK/7BOufXjiilfW6X7D+sO/5HtbrvsF6X89/uIz4lf8Dl2esIw== "]]}, {RGBColor[0.922526, 0.385626, 0.209179], PointSize[ 0.006944444444444445], Thickness[Large], LineBox[CompressedData[" 1:eJxll21Q1WUah4+YmLnouqTmFBJjYroJmyVsuoJJDrjqwjpk6BQhmwa2G5CV L8vUgUFHGHSEwhJKDTZjwXEJ0DA05S1CEBVQSg75AqySkLGHI4sJNb/zoa6e +MJcc3Fz/uf5P899/x6v6LgVa10sFsuuERaLfv/6x7r5ZvNri37JW8EP5tgj dxk+C3z5mRshOcbf7weHpSVMyTPqPwQXxfxjZ77x/wrBvw2OHXnI+P9F4LLM Occ+Nj6vBHw9qej1UuPzD4PvS/B59BPjecrAIVEHbxw1nq8cvCl01oFjxvN+ Bs4PyI86YTz/SXDPpLfcKozvQ04Z17S+0vh+VeAHXCd8UWV832pw6VDo9Brj +5OXOXYmf26sRy24s+f0pVpjfb4AJ3b+ZkGdsV7ke21Ls08Z61cPPticNlBv rGcD+Kn6uvDTxvo2gm2Vdxc3Gut9BjyvPW/0WWP9ya6rgo6cNd7HOXBTy9UX zhnvh7w3LNm9yXhf5PUNXpVNxvtrBvuFVMQ3G++T7FId5dlivF9yY6ClscV4 3+fB2eX7Es8b75+8zj/w9xeM/UCeU/L1V2Ttj1bwsM8b28naL+RTBR7+Xxr7 h7zb+3gXWfvpK3B07rNvk7W/yD5T7yy6aOw38u09OX1k7b828OcT5+8naz+S MzMu/sVm7E9ypNuWIbL2azt4VuqUg2Tt36/Bt+46upqs/UyutEaMuWTsb/LO OwOfkLXfL4NnH1v6GFn7n+y+JSeNrPNAHvS/cYWs83EFfMkx7wmyzgu5piRt F1nnh1yYcPEaWefpKjjDd1YgWeeLvLF3826yzhv5ucK6XrLOXwc4KHbKYrLO I3nmjNj3yDqf5PFdZXayzmsn2JF791Kyzi+5LSoil6zzTK6Ymj9I1vnuAn9k Gwgj67x3LZp+ua997o7lJy2WHdnB+WSdf/KGiHd+IKsf/Be8atK1lWT1B3Jg i98hsvoFeXrmtlHXwOof5LFhF54lq5+Q+9y8S8nqL+TW+tfGXger35CPp9ZE k9V/yHnBEz8lqx+RU0etndANVn8ix1WVxpDVr8hPJ911kqz+RZ4fGD75G7D6 GdlrKO9lsvobeXS5vYasfkfu3RTkcQOs/kdu9nvrVbL6Iflo/9V6svojeV/x nGk9YPVL8tb45C1k9U/ySz5N58jqp+S/9njN7AWrv5L9CxKsZPVbskdMRStZ /fdb8EjvCb5k9WNyd0fUNrL6M/nMB0XtZPXrm+DDz1vmktW/yTkeYelk9XNy Utu+DrL6+3c/s7WkYaMH2Nnv6Q8Uei6hV/+n35NW+yq95gF9emzcfnrNB/o3 QyY30Gte0L8y48QAveZHH/xa1xengZ3zhD6ia1woveYL/dLqI1voNW/oA/Ii D9Br/tA/muzaRK95RP/QmkND9JpP/4OfvHDlTLBzXtHf4zkcTq/5RT809KGV XvOM/jvb8oP0mm/0HeWOVnrNO/oL2e+PtMNr/oGtdZsX+9qNeQi2HovoXW03 5iP9f/yzttmNeUmfO2lBsd2Yn/RZjs52uzFP6be3pI/pN+Yr2PrPksfn9hvz lv7lTFtUvzF/6dckpKT3G/OYPjzskbJ+Yz7TB/u2dPQb85p+3rjE8Q5jfoOt s3unzXcY85z+wYb6dQ5jvtO7F27IpNe8p3dNu/8zes1/+sGYqm565QH6nuCX Jt4y7gtg6yVv9yfplRfom0aV/51e+YG+pjP6XXrlCfqyqnuq6ZUv6Atzi2/S K28MwO9NWn0/2Jk/6DOiXILplUfoUwILXqFXPqHfOHXFXnrlFfr1Q4N19Mov 9M/ZPnDQK8/8Hz6sfIkX2Jlv6IOy+5bRK+/Q+23es4le+Yd+ZsST/6JXHqJ/ wL/7DL3yEf34SRnf0ysvDcK7OP44A+zMT/SO5ssr6JWn6K8Xb3+DXvmKvi3j DwX0ylv0jfFfnqdX/qKvCLWOuA2vPAa2lvo8PJte+Yz+I7ezEfTKa/TZPRtT 6JXf6HfUexbRK8/RWwtq2+iV7+g3pMaN/h5eeQ9sXRcz+TF65T/6VcEnIumV B+mXeb+YRq98SB84avwReuVF+jmdR67QKz/ST6+KdLsDrzwJtt6X6/oEvfIl /dikQy/QK2/SDz+/che98id9X8BwOb3yKH2nx4Fr9Mqn9K13lrsPwSuvgq2n 2hwB9Mqv9Mc/fX89vfIsfdGexbvplW/p8zb1VtAr79Lvfiarl175dxg+1W/B FLAzD9MnTux6il75mD6uPz2eXnmZPrr58ffolZ/pny621dIrT9OHZKTY6ZWv f4CfH/+IJ9iZt+l9Qlv+TK/8Te/lk/g6vfI4/b1uD+XSK5/Tj+6pP02vvE5/ +9SGQXrld0vQT3jyVsuO34GdeR68ML56zcNgZ75nfXfJ3ADWK++z/m95Y8JZ r/zPeltmeyzrdR9g/crkj99kve4HrD+TsDWL9bovsH7JmlWFrNf9gfWVYbMr WK/7BOv/tHBEK+t1v2D9Yd/zPazXfYP1vp7/dhnxE/8I8YLdow== "]]}}, {}, {}, {}, {}}, InsetBox[ TemplateBox[{ StyleBox["\"Re(\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \\(r\\)]\\))\"", FontSize -> 14, StripOnInput -> False],StyleBox[ "\"Im(\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \\(r\\)]\\))\"", FontSize -> 14, StripOnInput -> False]}, "LineLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.125], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.125], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Large]], {}}}, 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.125], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.125], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 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]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.006944444444444445`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", 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\""}]}], "]"}]& )], Scaled[{0.99, 0.99}], ImageScaled[{1, 1}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox[ StyleBox["\"\[Omega]\"", FontSize -> 14, StripOnInput -> False], TraditionalForm], FormBox["\"\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 6.*^14}, {-59.1032063895257, 59.1032063895257}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Large]], Line[CompressedData[" 1:eJw9l3k8VO8Xx6eFpAhZy5pSWhAJkdGZhEgqRIukLJWKNuorJu2bRClUSpJE WUqSzNiSNTshxr7LGMNg8Hue7vj1T6/36z3H3Ln3POd8rpLT6d3Os0kk0sNZ JBL+f+Zf7d2knfazRIxIJOrFvxXnoTn+oOrt//N1CNbaTpOejVkxnOUQCIKv Nq8VmDPjH0Pk7rZne+diZuztNQ2HNLOOnfP4Zz7/EhKOzg2REsBsdcdT5jW4 LzUsvyU4U/8GrJunL+4XwpzgdjIgBixt9kkEisz8vfdg5AHkleKYRUyOzfkA CT11b5SkZ/5+AjxZkidIlcWcGqSZnggngm9SKEoz35cM1+oZeu4qmLuuJFz4 BLXBFn0Ta2a+/zNsu3j+FGs9ZmlPtfVf4EhiRvce3ZnrSYXbjOrn8mTMpo5x vV+hIWhvs/W2mev7BiYPPJdxdmD23rk6Oh3svkZ3zredud4MGNQOKr3rgDnG MMaRBpUhtBA/15nrp4NPy0PhTg/MfZLBQplg76i/KufSzO/JhKwVeYPS1zFf Ey4/ngV157WDOx/M/L5s2CQfZ68ZjlmWX/RnNswTT/8wET3ze3OAlfBdflsy 5k+TO1fkgqSwsb04feb350Lq0gTNY8WYLdgB/j9gtV7pG5P6mfuRB046iVVJ 3Zjb+oqb8kCywW/RB87M/fkJx1cHFRkIiCL2aVu4OR9IPcGfnKRFefcLsXxd hLIqZvEG87AC2HSAEXp1kyjv/hWCkB6r9YYF5riKO6OFcMh0AWf9IVHe/SyC 3Tcb7t4+g3lrYb51Mbg4yD8KuiHKu78loFgmYro7HHNDlkBSCSxvpqwoSRDl 3e9fUBQdzVqQh3nTn9fzSiFhTVu+aKMo7/6XQnacuFgHGzO/PSWlFFQfFQQ8 EBbjPY8ySNO96iixCnN5ZcvRMnix9doCPxDjPZ8ycAlU9608iPmFlf/iclAy rZWSvyTGe17lQLddkXD0CebjRUpZ5eB7SDgi8bMY7/lVwOD0lVzhKswbTTM9 KmDLl9yQG2wx3vOsgOioV8uWSy1GPDvHUaES9h12V2TpLeY930pwDxSamD6I uYRMKqmE9CMijXuvLuY97ypQs27JFojFHPYtwqcKfBIPXlcqX8x7/lUQfze7 J3ECs4sOeU01yDVZZBSoiPP6oRqchvwYl/dg1kxu/F0NucE+Do1XxHn9UQOB 3t53SEmYp9R8b9WAVUCc5HirOK9famBtBlezRUoCcUGsnE4tvIyOjy/bIcHr n1rIP3xTqvU65hCV7+21QKks69WkS/D66Tek34tOb+Jidoo88Og3KOxROSpo IMnrr9/w9IW2fvVlzGryXKiDrIr/bI9lSfL6rQ5OSvoW9M2XQjweGs6sA1Ov 0tF71lK8/quHPBsq42Ik5h8S+i/rQXaN4K1OlhSvH+vhwRLnQ8Jm0oiDHtZZ NkCPOzNjTaQ0rz8boKPAxcN/GrOD0KXJBog4YWi+/7AMr1//wPjYzQ6+n5hX 35aJ+wOP5kQe+a21hNe/jVCcxbbRfoN5ZO7XfY0gUf6yyF92Ka+fG+Gr28BV 7TDMWVS7+U1wTSDBuFheltffTaBdxaHWxGIO4I5+aQJK2S1lpqEcr98ZcDrY PfNnPeZ16eZaDEitllqi5C/P638GJGsmC1VqKiBefCn8DgO2royRqR5Q4J0H BvwhnTd4vl8R8ZhObzMDqj0T+J79UOSdj2aoddn1VEpPCXETe5NeMyidi3ep TVbinZdmYJ+/75itswxxbvKdwGbY9OaIWFPuMt75aYaMiAKG/SFlxO896zqb wffgs7cP+ZbzzlMLjA7FSsmlYX6ovprcAj1xJ0xqfFfwzlcLxEn/FRywUUHs 1X8xpAU0gsx+sbas5J23FtCNEGpnG69CfPB9fn8LiC3OsH/qrMo7f62wlCLx UffNasSUYzLGrcC6l18sLbiWdx5bQSIrzDA4bB1i1ZXHnrWCUteEs52DOu98 tsLcGLKr3UcNxIvaU1mtsDxG/9n+ivW889oGZoeq9JKVtBCzIwXM2+DL9jWb Al9t4J3fNnD+076uy34j4npHu8g22JUeQ8mx1OWd5zZo5FLv6lzahDhTPmas DSRnfX+XmWbAO9/t0CEJ8sveGSJ+2zBq1Q5hMguCYjeTeee9HRRXSqh3m+LP 3w8ziWmHlVoii7Q/a/LOfzvElu1wWJQ0C/FZuyfT7fBThBmbPHcdnZgHHTBH bJOB5n+6iO0lO207wGj7VjFWkj6dmA8dYCE7sKNCHzO5cuOHDjiys+J9vK0e nZgXHVBw4/KnZkkdxCuCbvB1QnFkorVC9wY6MT86gd+K/lORqYl4gVX1gU5Q /qVZFKu9nk7Mk044ynKz5zirI2YKqXzqhJ8nN4o45KylE/OlE2KZu74u8V6N uKbw/IIucJlYGCp7bhWdmDdd8CUzkqIRr4L4++1cpy6gClt+H5FZQSfmTxeQ 5vr7xyUpI35tIpHWBQGKB3U7PZbRiXnUBTtU6YJ2O5UQ3+ZzFu2G6qrJ0RAz RToxn7qB4WlYNfBFHvHp7E9u3dDA6TIs4JejE/OqG/RE3o48uLQUsc2VufRu 2PQ3aLpOeAmdmF/dsOSIq3c/TRqxPtlaqgfaz4qHBd+RohPzrAc0gWOz0F0S sdLk61M9sLD2kOvIYQk6Md96IGPqR5/RcXHE876xcnuAb6dPqfzVxXRi3vVA Z52xBzdWDHG/N0WuFyy2fxTzYojSifnXCw9TaaU2yzBXbAw+1wvPzG7GXz0t QifmYS84dUxukwhYhPjrcEthL/jkLRmRtxKmE/OxF6I+Ft17piyEOCJJU7kP DjB6C9XmLaQT87IPgvSXckPHBBFf9/C/1AeXZEsfZ47NpxPzsw/sFNfcjOLH fEKtvKwPrKzspuwVBOjEPO2Dpt0xr4Up8xDv6lNS7Qe6nqbmbE9+OjFf+8F7 Trrj9Rg+xDqxntR+mMgQXMTpmksn5m0/RLh/iM9bj1nOLbOmHzYYjtac9J9D J+bvAMgsXSxzum424jkqouoDUCh+rNpeDzOexwOQlK6+L/fFLMTdrY43BoBT NjFmJYgZz+cB+Hj/jc3r/0iIf71K+DMAdesqbCvapmnEvP4LMR06lz80TCH+ fIik/Rcso4yfmzVO0oj5/RdS0vx0Fbu5iMPlrO79hbZ7HSMp3AkaMc//Qqoy lxEmjflKfUTrX7BNOx/vaDBOI+b7ILTlHFSMch2jkajJRV5ygyDOSLo4L4xD I+b9IKzOLmFqVowiH/1ewWwQ0swloVIM8b/5PwiX7CN1X9iNIB96J+/cIPjc /WpjGsWmEftgEFwGJc4EsIeRv3fs9MtBcF8lclLDAvG//TAIKZzWZuZbFvJ+ plJFg6B2xr41VADxv30xCAcENL8PnRxC/sxK2uggJH0sSMuvYdKI/cGEwHdn hwaMEVOd+V2VmeBkvVBCO3WQRuwTJmw9enmLpxpiql278E4mWMmc/MK2+ksj 9gsTfkikF9taDCBvnpNyiQnP3pflpFv204h9w4SA9cl7Wvb2IW/42iGaCQmH quOvu/bSiP3DhGrHFnO3yz3Ir/fnL0fs7ZNqGdpNI/YRE8Rn5zuSvnUhv/zw h0kmjBTtcjNp6aQR+2kI0mwFqYPCiKlSRraqQ7Dsrwa9wKiDRuyrIXCvK7v2 1qsdeUGFKeshyKlKsdiX3EYj9tcQaGoFhaG9gfzk5BvqEPhK6dWG6iL+t8+G QMQ8R7/mSgvygw074oYg5tGZD+a/mmnEfhuCH9mrP1coIqa2fmPXDIGhp+++ HRcYNGLfDUGb+rINGhFNyFeHPZ/DAjuB4DBV+0Yasf8QXzqhab7kD/L5F43V WZAzKfltf0s9jdiHLEjf7GS2PLEO+XS7/n0s6IvxVvW48ZtG7EcWeEe/z1ro VIv8R53HN1jA5bb65FNqaMS+ZIGB28u3XmuqkY+U3JzEAtmnLk490lU0Yn+y IK7+/o2RBZXIP2a3/WHBhnCLoDNzK2jEPkXX5816tHF2OfK3Ku/NH4ZzviAr y1dGI/brMLw0+LFsamEp8v8lb9AehtSevVOeWiU0Yt8Ow9P74zHWtkXInwpq cBwGu6fH+J38C2jE/h0Gbz+Djfu+/ET+sOe1e8Ogod4bPj38g0bs42Hw6DuT K6mfi7y11dpUxGst9rjczqYR+3kYFNc9b05pykTeRL2ydRgYXiFD5ZvpNGJf D4OVz69kIZPvyG8S9lnEBiPri7u3KKXRiP3NhsCYo/qM+V+QX9evrM8GD8VT svdJn2jEPmcD9UjA5/65icgrFhW6sIGu0O1psy6ORux3Njg6W9s3HY9GfvH7 s0Ho8wk24VWZL2nEvkf86niZ1pEQ5PnvLM1AfHZbuXnHDRqx/9lA8ih9LGK+ Dfkxt+xudH2uFStj6FfJRB5gw8uis0kjxo/IJGqfyQmJEaCreoU+93tBJvLB CDA+BLmuNIlCvkll8ZYRECGbbrym945M5AXEynHnHKU+IF/O9819BLo0pmtD PRLJRH4YAdMo+lhqYTLyuW1OT0dg0D+nx1guhUzkCeSXB9h4Oacin5otmDMC 0itlLf2j0shEvhgBj4ajh8Pq0pF/H5n0dwRIZtqvmfNoZCJvjMJR/e8HD4TQ kX9xZd/SUTDV9L34ICqTTOSPURj89lPh3Ycs5B86zjYZhdL/ut7SPmWTiTwy Cuf2ryjsSslB/ho59swoNLQsj9X7nEsm8skoDFcuLv/x8QfyXvK7X4xCX1zY lqjoPDKRV0bh2rmIk+2hP5E/PjmWPwpd22uMn9/OJxP5ZRSiKlT1Gs8XIH+w 4RV7FNbGdOmlORSSiTzDAauChkzYWoS81TczJQ4ETqypvqVSTCbyDQcEcqUW POdDvUilhDEtOJDe+uTmg2bE//IOB+K+lAl4pP1CfuPFUG8ObFP4MqRiWkom 8g8HNgq4CTxLRExVtdsSxYEAR4kHL2TKyEQe4gC/T8YrbSpiqqxO9y8OLDHS UXNrxx7nIw7co98eMTArR36R5MMJDmjONg9Ke4/4X14aA+FTrac7F1YgP5ut u3IMBr0Lq/LdEf/LT2MwzE1vdS3Enl3B2D0Gvum/g/NWVZKJPDUGKdS8bwPX EFO7km75jsE5oyyh1ibscb4ag/KUKJlYvSrk6x9qxI5BRlHnDrMgxP/y1hg8 0grl5HZjX+JRWzUGRXfMTFcYVZOJ/DUGUy5DFu6PEVMzd1JnjUPj3UpORDf2 OI+No3xvqZRrUIP8J7VV68ZB9k+cHyMA8b98Ng4WB5iJI03YvxUqtRuHqX0h +gs1aslEXhuHyldmN1b4IaaG9XldG4dB1quWbcXY4/yGvu9Oya1zS34jf79Q IQF9H8MoNMkF8b88Nw4vx63k+JKwp8bm1Y9D9YWGeR5c7HG+G4dyL4b2qHEd 8mdvn543Adc+C59+EYD4X96bgLCKgy7HqrF3cZPSmgBrtcdp++XqyUT+mwA1 k8oR7yOIqfYmNIcJsBqXCM6JwR7nwQmwfP1xeEs/9hYqrncmoM+26NSwRgOZ yIcT4GbTBk1nEVPJfItSJqCkRuMVXwr2OC9OgIW97Lvjo9hrtqU0T4Cgz8dj orp/yER+nIBlMePNXC/E1BXZDkJcCLviM0vjC/Y4T3IhY9f1mHg29tKR/Hpc sPV9EuOt1Ugm8iUXRFRzc4I9EFMXXPlwlAuRixYkzYrHHudNLjzNiZHK7cJ+ 6pBtIBfa9l54wFBuIhP5kwurr+tE2zogpjINp75xQfZyX73qU+xxHuXCWgfF qANl2LfJRXdywSh1STJnLoNM5FMu9IXXGLIVEVNruDsWT0LVxs1ybwywx3l1 Eu5dCvWYb4d9QT3bcBKy+pJtlM9ij/PrJMz+NNDKuo/997Tnxyfh81eXdT4x 2OM8OwncLjHy9yzsE0KNQybh0cMWxdQG7HG+nYQOdl3VyRHsX3v3Z05CieCG A02LmslE3p2E36fPxQupIqaG7H3cPwkC0fcyxrZgj/PvFJjfZfpF7cP+9sbN MlNwSjHlj/BZ7HEengKNiCia3l3sfSTat05BR7vtfJXX2ON8PAUNmy3DKtOw Pz18z2MKXlwRtNxWjj3Oy1Mw8FaR+1839k4VG55NgVqqlfcFUguZyM9TULQ2 PGijFGKqTVJD3hSM59lIfV+HPc7TU7CsifxLcCv2pg+vsaZgTDHET3Ef9jhf T8PWuhU9U6ex1/dYqzANy78fKo6+jj3O29MQqHa8TToce7WdldunIUhOq9Mm AXucv6chy/XKHYdc7JXUfC5Mg2UJH1WrDnucx6ehxPfEhaoB7MWFlkdOw7Sm m4zxnFYykc+n4UJPoehVKcTUeX2FxdOgsiWQL3AN9jivT8MT584n7mTsxwvO jk3DncTtx2T2YI/zO4mS2HlL6okLYvpI5X0xEmVSunJzx0X8eZznSRTJDb/O zbuP2Mgj5/AqEsV0S/juiQhcj/M9iWKxo+14VhKu707WNiRRVvMNWB7MxfU4 75MoVnwv7xfV4Pojr+dbkygKjQ+TRXpwPc7/JErJL0nz1Vxc3xD05xiJ8oNs 1iAj3EYm3gdIFKNuif4mBcRGtv6JfiTK8sJtsy6vR/zv/YBEqa28H8YExPRf ntcfkyhFex7oGlrjevy+QKLcUO6zO+KM680O278nUV6+Mvc6fAHX4/cHEiXM 1VlI7yauz7Jal0mipBcKBvc8wfX4fYJEKV6t4XshBtcbGM2qIVFaJtjwJxXX 4/cLEqXgY+IehXxc/1m9qo9EOX5wRHHzb1yP3zdIFEeD5zI63bheXeHd7FkU tb/FsUJjuB6/f8yimL3gN8oUaCf/D25xNXk= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]], Line[CompressedData[" 1:eJxlmHc81f37xw9ZDVFUqlsIJRmlkDuh66SUxO1uaKOFEMks9SFlJbsykohk ZaeQYyfZKyt773FwzN/7c3t///r1T4/n4+XD57zHdT2vI6R/T/sWM4VC8Wai UMj///8/wna02hLyB7SXY4h/s1f4GXyNuyr4xPEGYsGgyWte4Lnd56qmmgnO /aGUS+xgmasF4rYLg2pBsP/QyFEBCxv886HwTUoziUPPHrGWm/nWcIiacDx2 RNwBPx8BxjS+5AMfnyJOMDB5GQWs8jT7jt3P8e+LAY1Na6Aw1gUx9wnDVfHw bUvhu6ty7vj3J8Ah23M2ewo8EKf7yGQmgq/6qjd1El747yWD6c1mG3k7b8R9 DglWKTB599nc/E8f/PdTwWBX3A0jAT/EfOZS+7+A7/JIyU9rf/w+6ZDw3J96 p+YVYjXd2MGvEKapuOgu+wa/XwYwtB/bOgcFILbRFI/MhKYd7SnRbEH4fb8D NWOfzknrYMRRSlG62WDM6zT4dfgtfn8apPDtWnfe6B3ioc2+nDkwB1XaWVah +PPkQLyO6Jb8w+8RO62vMsqF1QrRFuYsYfjz5cHlPn8vRgXJf7Ft+JEHlHDW XJ/34fjz5sNn/uR4S6sPiFMWNUUL4JzgUdsWzQj8+Qvgi/ulIXapSMSn6S8d CyFHrvOT7IaPeD2KwIRCXI1mkNw1VNpaBKJrcidie6Pw+vyA2atq5c5NnxA/ 6lp3pBh+3DiwwbU2Gq9XMYR7n6lirotBzNusHvgTzldeM1NvicXrVwLjp7ia sgbjEMdWu82UgEcec99Xps94PX8Bc1PZ+SquBMTHSorPlkKlxav7U2EJeH3L IL7hZfTDvxMRN+dyJJXBcVOOsPC6RLze5dBxsdouxjoJ8d8t4ewVcI51ia+O PxmvfwWEhlgaGxWTzHaRmlYBCRNCOcl2KXg/KuGS1+7NzDKpiKtqOm5WQh0/ l330aCren0qA6x8d2FPSEIdoOfJUAY3VO8j2yRe8X1Vw3JiIvqOdjtjol1Bu Faia6T9WlvyK968a8mW+GFtxf0Msp5ZjVg2nbUOnXBe+4f2sBmUzbQvKRAZi 5nxdgRrISC0dMBzPxPtbAxYzq1t057MQlylTympghzGzkjt3Nt7vWtijlZpd ykdDHJjx7lEtDO8JbI76TMP7Xwuq11VslTRyEN+WV95bB0P+HieWxnPweagD 9qqtk7ohuYhlkv801AEbV/uqfu08fD7qYe2qW03C3PmIl6Qeu9TDpp015dF1 +fi81IMsQ8dQ5GMB4p/R/PK/Iaz6cqGqYyE+P78hWVRVosagCPGrXVndv2Hn NfmSyMs/8HlqgO6kk5lRl4sR64dd8WsAy+281CbDn/h8NQB7SfsVHecSxFI7 FqARpFwSPp1L/YXPWyMklmhl7aaXIp4LCBpvBD/FgH5VtXJ8/ppAqqrr1G6d CsSFmw6HNkEAhzP/8y2V+Dw2wSf3q95HOkn28W480wzO71VZDDKr8Plshg+m 67uVP1QjvsZpt9gMmX40cZHgGnxeW0CwIsz1bUQtYnHXrbEtoJeR63Yztw6f 3z8gVzafZDBVj3ia5eulP6B4Jmvs95EGfJ7/wEhNjp/k+0bEuYTO6lbw26ol flCoGZ/vVvg0bf+GP6cF8cuFmS+tECAbz+3p1IrPexusr7c/1PSlDbFkpvqB NliuW7JKzGvH578N1ui1uHj3dSDmsQtya4MIJ4XUlD1d+D60gfW5lppmt27E DPnB9jb4ObRXyYy7F9+PdrBXVfQIzu5D3Er/W6Ed8tZqHnMMGcD3pR2q1lwf vJsyhLgg2c2rHf65kXaUd80ovj/tENpzV5pSO4Y4xryxtx0SqmIV7LQm8H3q gCdzjw4fX55E7C0trtwBt4x7h5gH6fh+dQCxNG8SKTCL2HrY9lUHPL0loXAw dg7ftw74fkhiXVr4IuKrMcXDHVD3NfXpKU8KbeX+dcLTXVr+yiHMiKmGW1U7 gVVLwOYlDytt5T52wp9h5ruUtRyI9+w2DO6EkIcXCcXotbSV+9kJ6Xv48v02 ciPm6k6f7IQ4k4MGZzs20lbuaxfwCmqoedpsRkwP41DvgsfS188GC22nrdzf Lggse62X/VEQcZOuTlgXyD1ZK9JSL0Jbuc9dUMqSU0WLFEecsyOK0QW3ejp3 nDPbT1u5391geXeb9Prz8og/Ns9odQNDxN15XbwybeW+d0N21ejp36dUEXsE nojqhkTBtFqD9lO0lfvfDaJt4y2yHhqILXReL3eD4Su/nRw71Gkr9aAH9v++ YXTuNfn8xc2953tggKd9NGqzCm2lPvRAh68Ey4Ek8u8r18jF90BLJ40lMYF8 P7Je9ICDz4UkLqa9iEV9nrP2AneopYs1nyhtpX70QvnUB7XN9eTnX6tVd6UX orlqrdMMyPUh60kvSGb0tip8JtdvnHNXSi/Eui85qnPy0FbqSy8c4zNzWydL rn99ieXaPuCO1qYEdZD7Q9abPjh+8F+7YQVy/7JcC/T7YPN4EefJw+T+kvWn D+6VMnsa08j9Dz+x6VsfuOvarBWOI88HWY/6QPXw6Quvf5Pnx5X11oZ+OOq+ TiChaQ7Xp34o7kljrztFnr97eSkG/RCsOdCQu3Ea16t+yAiiPVcVmUJ8zoGF 1g+er0fEVS0mcP3qh9Cvpioc0+T5P6x8dssAJN36VHPh5CiuZwMgGrtO/eE4 eX+EFsNNB0Du3KGcpoYBXN8GwF5U68MnBnn/2DMmCwbg1eZXH1xP9uJ6NwDS QhJhGnnk/R22ofIPwjCLcEemXheuf4MgV/Nl4I5gJ+JqOd8Hg/C9sOTcs/l2 XA8H4Ur2kn/tKFk/vk51lAxCY4ChNh+9FdfHQaBQfAXtZP4gfpckIzwEY2dM /gnybcb1cgj+Hj1gXsHbhPiZmaPdEDRF0tU6kxpw/RyCmR+BRUx3fyO+K1VV OQS2TCnZn/+ux/V0CKI+akx9EyDr5T9DQnuGQb1025r9fLW4vg7D/qv32C/s JOutfLQ5MQxCXXw7whSrcb0dBjseZefEW2S95jfIqR8GnkuN1JPBlbj+jkBO SUCwRitZ/1ft2iA9AguKXyBbsgLX4xEw7BMdv8dJ9ov+Tt3nI6Aj6HapvKoU 1+cRGDr2eVI4muw35e8TWkbg5Vrrzi0+Jbhej0L23h8PHriS/Sr1OkV2FPjE fmbv8CzG9XsUXPQ5M3nDyH4XxK/1YhSyHkrEGeUU4Xo+Cte+R7aoDZH90qHp XecolES4vO0XKsT1fQzCZSiPXuuh/kok/7LmH4OPysdSYqLzcb0fA5ub6kUv FlC/JiJjBE6OAZX3q2Lc+Txc/8fA57fkc7d01N+JALeiB2PAn19OiRXKxf1g DOJu3dsQ5o18gHhheC90DLyid+uwcuTg/jAGIUHZs5ZOyCeIJ2pbfo2BuIUp PZCNhvvFGNSytx6g/oV8hLi/O3tmDLbf3TtgK/sd949xWBbz/H5KB/kLcYvt jvA4FHQt8O1zysT9ZBysZ7b/E5eO/IfQ6V6vOQ4pNUcYGvRvuL+Mw6HKcoUI BcSEen6a3TjELr4+rPHsK+4347BF/Mi7nnrkX4RS+LXIcRi+UkDh25+O+884 XOhveubhhXyN2O/IVjUOUj6VlrP0NNyPxmGnwe3G9XqICRG9+MVxYKp9LuZe mYr70wTIsyiO7T2BmNiicn7PBHCOCPsm56TgfjUBrbz1lD4VxMQagaWzEyBY kGjjk5+M+9cETEU4aT05jZhYXIwgJsCsPjPb/ncS7mcTsGsoJP66AWJirFkj dgIu9im4MuYTcX+bgOtKtE07fRETnRn0+gkYD17QSJJMxP0OPW/y7vCzEuTL RF3g21WTcHSvWL21cQL2z0nQMD7Qb8BN5sW2qtKTIDI43WRuSvo32Q8nQTs1 g+6bE4/yTJ3hS5NQfMNWfXlrPPbVSTCDvc321sjfic/y/s8nIfeLjmZzA+n3 ZL+chO7z2qX9KoiJsM1HkiZh7jN/o3VsDPbbSTAyb5K59Bdiwp/e1TIJHJ3W cbe9yPmB7KeTMFBqu82SAzHhUvNi9RQkvSwSu+70CfvwFMjePKJOYUFMPEw+ KDsFJ3km38k6k/MJ2W+n4PHXDQ0tnIgJU59m3SnYL86/u+H1R+zPU/DC7pXI alHEhJ6504spCLFqzdVKJechsh9PQWao2iE/NcTEWS2J9CmI3Co7mv4nAvv2 FETdPmoVYY2YOCFd0zkFXk8umx/lIXOyX0/B5c4Md8tENH8Rf69/xEUHuZgE o73a/5vH6NCRKPFeg47mNUJyWPgwHf4d5vxQFEjOb2Q/p8PT1VzZz4DMBX+V 3KaDkszFNZZDYdjn6VBZEKP79A1igifGwocOVbe5z787TuZkv6fDK6+N0unT aH4k2Ny2f6fDB/P7v7Oi3mP/p8O0vnpr6BUyZxjk9dMhvjHSUHsjmZM+QEfz oKV0fjGaR4mhE3c3TcP6fT0WfY6heF6Yhpj925cTj5B56y6eo9Nw/M6VfWJT 5DxL+sI0RIhxL7OYISaqWDOMp0HOYVV1x0gIni+mwcPv9US0GWKioEv/zTTI Ru+zOUEn52PSJ6Zh23r2k+GPEBPpeWvyp0G/zGRdNNtbPI9Mw0CYi7CaL5qv iZiwpNFp+PLF6L3RTnLeJn1jBjhs31CXk9E8ToQ4XNo+Ay4tPUZTJ4Lw/DID 1auSeRX+BKLcW5f5xAyMqJnUZFoh/s9HZqDwlEXpvQ1k7qQcfX8Gaj0PxkF8 AJ53ZmC6/G3ELg3EhPUO7ZAZiN9SdIdzhPx+gPSVGTBXaN/R74WYMFpkFM9A q+z1u7H/fX9A+ssMvLfSuXaq+TXKrza/p8+Ad4+gZZoT4v98ZhaK+Hn9u6TI XCvjpNAsZDF5sxc3kt9HkH4zC1+vC1vpuCAmqIHjp2fBT6Khx1mezEnfmQUh uZz0033+KJezDbCZRfOmd2hw4P++35gFYQXzCJMzZL5H5+iHWeAtHOBPW0Xm pA/NgoA3I9b4mx/K/5LvL58Fqouisst98vsS0o9mQfqGKgdFgsy5NnvPz4Lz v6xESY8v9iUGeBif0+0IQ0ww0w/tZoDivYAwRV1f7E8MCPv20L5qB5nTq9u0 GRC4L0c/+I8P9ikGvBk9sOjzDjHRl+TymAHFFeFSn/V8sF8xwDlqnnNAhMyb vPdFM4DtrFG3Yr839i0GrIkN2fc+HjFRZva7lgEXiE1B3Jbe2L8Y4PLTZslJ kcxzNAmmOVilzaU3y+KNfWwOxFgUp26WeaE8RUpMcg7YzqzjKXjjhf1sDhZ+ 1ajw3CTzj5wVOnMwl9K0+9Q+L+xrc/DvB8F9xXOeKA8csnaaAzmxkLUZrzyx v83BMakbG3QPkrlHiUDCHChp1qTEV7/EPjcHVo5nY94+QEwQ0UVNc8AlsntA eMtL7HdzMLbj9odDGR4ot3C9xz4P93XXnqzW9cC+Nw8/C9c5DLKT+W2DLQfm 4Wq+q6Rtwgvsf/Pwa3717QeXEBMXT2Rfmwd2oV9WtawvsA/Ow84HIq1+Se4o P73rjts8uMkMaMboumM/nIcI/clPG7jJXJmVK20ett0KWaDR3LAvzoNdloFT 0n3EhExXWvs89Lr5fGoVdcP+OA/dUmVLRxtdUS6ad41zAV5HzitXe7pin1wA GcFRLY/jZM4XxqawAE8ug6LRkgv2ywVQMNwnc/MLYmKtQ/zNBRDTf+hsae6C fXMBGpIup7yRIPOl6+e9FsD/rc2/P/qcsX8uwODrfsHlCMTEuNJSxgKclFRh yN90xj66ANU8gb9NhMm8iz+ydwFKhTMagjqfYz9dgOZuKdmsD4iJ+gUNnkXY f89cpfT2c+yri9CgKmBStIfMfzbRlRZBdY2E2sfhZ9hfF+FgpICtQRJiIuvb W6NFUMq7mMNm8wz77CJYnLk8b69E5gkBqq8WQati07afrM+w3y4CQ19FrLfU CeXhNsM5i1CxMelE5Ssn7LuLcN06J8FJl8xfXfAfXoT+s58SF8WdsP8ugSvf RNyh6acod5U7snUJ6pjb+GVyn2IfXoL0um6Pnpdk/mhT97ElCOvcHqJ95Sn2 4yVQOZbBZCFO5vemXpgtwcjet4+PMRyxLy8Bq8D3obwfiAn96oPBS7BzMl92 5I0j9mf0vJXHWZohmZ9Lai5aAufgtLPyhx2xTy9B26aD2lqcZK7m7TS5BM2S nTYcbQ7Yr5fhfMNOlqvJiInDZhICy0CtM1VSd3bAvr0MtnmLRMVlMpfSrDm1 DEOb9Q8M7HPA/o24QbLEn43MhaQeWS1DJ09ASUUzgX18Gap+iRe8SUZM8HKK hC1Dh/fNc4NuBPbzZSi/bbarUJ/M2YdKSpeBk7tyZNdhAvv6MvCH8Zqv5SXz uZ8WjGUwfL5xpqPxCfZ3ClV7W1953EvEtOkaj40U6okFXzkL6hPs8xSqUVnt GmnG42yKilm+nhiFquydebTl82Ps9xSqJp9It+0dxLT+ZFklCtXrLzkeJsHH 2PcpVMfykUXTBnv0/I3w1Wcp1M6qDwPZvvbY/ynUQlu//WNnENOafVoMKdT5 Q6ZHFtbY43mAQr0j2efWVvQIPX/eMfEJhbo6VDsq4NkjPB9QqCP3pGVFjiGm lZs/86dQQ9R/tT9a9QjPCxTqp/BW09C8h+j5k3oXYyjU5KNice5OD/H8QKGm mnLZHz6OmJarJZlDoUb4a5TFcjzE8wSFevGM97vmEjv0vKIKUz2FujVbbKnI 0w7PFxSqHsSxGp9FTEuVrh2iUAeUE1sLttrheQO9r5hZXlWrLXpeWuATMxPV z4Gge0ba4vmDiXptzrlozsQ2+/8ArEbUsg== "]]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Thickness[Large]], Line[CompressedData[" 1:eJxll21Q1WUah4+YmBm6Lqk5hcSYmG7CZgmlCSY54KoL65ChU4RsGtgWkJUv MXVg0BEGHaFwVyg12IwFxyVAw9CUtwhBVEApOeQLkLLCGh2OhAnt/M6H9tpn +cJcc3Fz/uf5P899/x6v6LgVa10sFsuuERaLfv//j3Xzzea3Fv0vbwU/lGOP 3GX4LPDl52+E5Bh/vx8clpYwJc+o/wRcFPPaznzj/xWCfxMcO/KQ8f+LwGWZ c459ZnxeCfh6UtHbpcbnHwbfn+Dz2OfG85SBQ6IO3jhqPF85eFPorAPHjOf9 EpwfkB91wnj+k+CeSe+7VRjfh5wyrml9pfH9qsAPuk74usr4vtXg0qHQ6TXG 9ycvc+xM/spYj1pwZ8/pS7XG+nwNTuy8d0GdsV7k+2xLs08Z61cPPticNlBv rGcD+Nn6uvDTxvo2gm2Vdxc3Gut9BjyvPW/0WWP9ya6rgo6cNd7HOXBTy9WX zxnvh7w3LNm9yXhf5PUNXpVNxvtrBvuFVMQ3G++T7FId5dlivF9yY6ClscV4 3+fB2eX7Es8b75+8zj/wdxeM/UCeU/Ldt2Ttj1bwsM+728naL+RTBR7+3xj7 h7zb+3gXWfvpW3B07gsfkLW/yD5T7yy6aOw38u09OX1k7b828FcT5+8naz+S MzMu/tFm7E9ypNuWIbL2azt4VuqUg2Tt3+/At+46upqs/UyutEaMuWTsb/LO OwOfk7XfL4NnH1v6OFn7n+y+JSeNrPNAHvS/cYWs83EFfMkx7ymyzgu5piRt F1nnh1yYcPEaWefpKjjDd1YgWeeLvLF3826yzhv5xcK6XrLOXwc4KHbKYrLO I3nmjNgPyTqf5PFdZXayzmsn2JF791Kyzi+5LSoil6zzTK6Ymj9I1vnuAn9q Gwgj67x3LZp+ua997o7lCy2WHdnB+WSdf/KGiL/+QlY/+B68atK1lWT1B3Jg i98hsvoFeXrmtlHXwOof5LFhF14gq5+Q+9y8S8nqL+TW+rfGXger35CPp9ZE k9V/yHnBE78gqx+RU0etndANVn8ix1WVxpDVr8jPJd11kqz+RZ4fGD75X2D1 M7LXUN7rZPU38uhyew1Z/Y7cuynI4wZY/Y/c7Pf+m2T1Q/LR/qv1ZPVH8r7i OdN6wOqX5K3xyVvI6p/kV32azpHVT8l/6vGa2QtWfyX7FyRYyeq3ZI+Yilay +u+/wSO9J/iS1Y/J3R1R28jqz+QzHxe1k9Wvb4IPv2SZS1b/Jud4hKWT1c/J SW37Osjq7z/8l60lDRs9wM5+T3+g0HMJvfo//Z602jfpNQ/o02Pj9tNrPtC/ FzK5gV7zgv6NGScG6DU/+uDXur4yDeycJ/QRXeNC6TVf6JdWH9lCr3lDH5AX eYBe84f+sWTXJnrNI/qH1xwaotd8+hF+8sKVM8HOeUV/j+dwOL3mF/3Q0CdW es0z+h9syw/Sa77Rd5Q7Wuk17+gvZH800g6v+Qe21m1e7Gs35iHYeiyid7Xd mI/0//TP2mY35iV97qQFxXZjftJnOTrb7cY8pd/ekj6m35ivYOs7JU/M7Tfm Lf3rmbaofmP+0q9JSEnvN+YxfXjYo2X9xnymD/Zt6eg35jX9vHGJ4x3G/AZb Z/dOm+8w5jn9Qw316xzGfKd3L9yQSa95T++a9sCX9Jr/9IMxVd30ygP0PcGv Trxl3BfA1kve7s/QKy/QN40q/wu98gN9TWf03+iVJ+jLqu6pple+oC/MLb5J r7wxAL83afUDYGf+oM+IcgmmVx6hTwkseINe+YR+49QVe+mVV+jXDw3W0Su/ 0L9o+9hBrzzzE3xY+RIvsDPf0Adl9y2jV96h99u8ZxO98g/9zIhn/k6vPET/ oH/3GXrlI/rxkzJ+pldeGoR3cTw5A+zMT/SO5ssr6JWn6K8Xb3+XXvmKvi3j 9wX0ylv0jfHfnKdX/qKvCLWOuA2vPAa2lvo8Mpte+Yz+U7ezEfTKa/TZPRtT 6JXf6HfUexbRK8/RWwtq2+iV7+g3pMaN/hleeQ9sXRcz+XF65T/6VcEnIumV B+mXeb+SRq98SB84avwReuVF+jmdR67QKz/ST6+KdLsDrzwJtt6f6/oUvfIl /dikQy/TK2/SD7+0che98id9X8BwOb3yKH2nx4Fr9Mqn9K13lrsPwSuvgq2n 2hwB9Mqv9Me/+Gg9vfIsfdGexbvplW/p8zb1VtAr79Lvfj6rl175dxg+1W/B FLAzD9MnTux6ll75mD6uPz2eXnmZPrr5iQ/plZ/pnyu21dIrT9OHZKTY6ZWv f4GfH/+oJ9iZt+l9Qlv+QK/8Te/lk/g2vfI4/X1uD+fSK5/Tj+6pP02vvE5/ +9SGQXrld0vQr3jyVsuO34KdeR68ML56zSNgZ75nfXfJ3ADWK++z/s95Y8JZ r/zPeltmeyzrdR9g/crkz95jve4HrD+TsDWL9bovsH7JmlWFrNf9gfWVYbMr WK/7BOufXjiilfW6X7D+sO/5HtbrvsF6X89/uIz4lf8Dl2esIw== "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Thickness[Large]], Line[CompressedData[" 1:eJxll21Q1WUah4+YmLnouqTmFBJjYroJmyVsuoJJDrjqwjpk6BQhmwa2G5CV L8vUgUFHGHSEwhJKDTZjwXEJ0DA05S1CEBVQSg75AqySkLGHI4sJNb/zoa6e +MJcc3Fz/uf5P899/x6v6LgVa10sFsuuERaLfv/6x7r5ZvNri37JW8EP5tgj dxk+C3z5mRshOcbf7weHpSVMyTPqPwQXxfxjZ77x/wrBvw2OHXnI+P9F4LLM Occ+Nj6vBHw9qej1UuPzD4PvS/B59BPjecrAIVEHbxw1nq8cvCl01oFjxvN+ Bs4PyI86YTz/SXDPpLfcKozvQ04Z17S+0vh+VeAHXCd8UWV832pw6VDo9Brj +5OXOXYmf26sRy24s+f0pVpjfb4AJ3b+ZkGdsV7ke21Ls08Z61cPPticNlBv rGcD+Kn6uvDTxvo2gm2Vdxc3Gut9BjyvPW/0WWP9ya6rgo6cNd7HOXBTy9UX zhnvh7w3LNm9yXhf5PUNXpVNxvtrBvuFVMQ3G++T7FId5dlivF9yY6ClscV4 3+fB2eX7Es8b75+8zj/w9xeM/UCeU/L1V2Ttj1bwsM8b28naL+RTBR7+Xxr7 h7zb+3gXWfvpK3B07rNvk7W/yD5T7yy6aOw38u09OX1k7b828OcT5+8naz+S MzMu/sVm7E9ypNuWIbL2azt4VuqUg2Tt36/Bt+46upqs/UyutEaMuWTsb/LO OwOfkLXfL4NnH1v6GFn7n+y+JSeNrPNAHvS/cYWs83EFfMkx7wmyzgu5piRt F1nnh1yYcPEaWefpKjjDd1YgWeeLvLF3826yzhv5ucK6XrLOXwc4KHbKYrLO I3nmjNj3yDqf5PFdZXayzmsn2JF791Kyzi+5LSoil6zzTK6Ymj9I1vnuAn9k Gwgj67x3LZp+ua997o7lJy2WHdnB+WSdf/KGiHd+IKsf/Be8atK1lWT1B3Jg i98hsvoFeXrmtlHXwOof5LFhF54lq5+Q+9y8S8nqL+TW+tfGXger35CPp9ZE k9V/yHnBEz8lqx+RU0etndANVn8ix1WVxpDVr8hPJ911kqz+RZ4fGD75G7D6 GdlrKO9lsvobeXS5vYasfkfu3RTkcQOs/kdu9nvrVbL6Iflo/9V6svojeV/x nGk9YPVL8tb45C1k9U/ySz5N58jqp+S/9njN7AWrv5L9CxKsZPVbskdMRStZ /fdb8EjvCb5k9WNyd0fUNrL6M/nMB0XtZPXrm+DDz1vmktW/yTkeYelk9XNy Utu+DrL6+3c/s7WkYaMH2Nnv6Q8Uei6hV/+n35NW+yq95gF9emzcfnrNB/o3 QyY30Gte0L8y48QAveZHH/xa1xengZ3zhD6ia1woveYL/dLqI1voNW/oA/Ii D9Br/tA/muzaRK95RP/QmkND9JpP/4OfvHDlTLBzXtHf4zkcTq/5RT809KGV XvOM/jvb8oP0mm/0HeWOVnrNO/oL2e+PtMNr/oGtdZsX+9qNeQi2HovoXW03 5iP9f/yzttmNeUmfO2lBsd2Yn/RZjs52uzFP6be3pI/pN+Yr2PrPksfn9hvz lv7lTFtUvzF/6dckpKT3G/OYPjzskbJ+Yz7TB/u2dPQb85p+3rjE8Q5jfoOt s3unzXcY85z+wYb6dQ5jvtO7F27IpNe8p3dNu/8zes1/+sGYqm565QH6nuCX Jt4y7gtg6yVv9yfplRfom0aV/51e+YG+pjP6XXrlCfqyqnuq6ZUv6Atzi2/S K28MwO9NWn0/2Jk/6DOiXILplUfoUwILXqFXPqHfOHXFXnrlFfr1Q4N19Mov 9M/ZPnDQK8/8Hz6sfIkX2Jlv6IOy+5bRK+/Q+23es4le+Yd+ZsST/6JXHqJ/ wL/7DL3yEf34SRnf0ysvDcK7OP44A+zMT/SO5ssr6JWn6K8Xb3+DXvmKvi3j DwX0ylv0jfFfnqdX/qKvCLWOuA2vPAa2lvo8PJte+Yz+I7ezEfTKa/TZPRtT 6JXf6HfUexbRK8/RWwtq2+iV7+g3pMaN/h5eeQ9sXRcz+TF65T/6VcEnIumV B+mXeb+YRq98SB84avwReuVF+jmdR67QKz/ST6+KdLsDrzwJtt6X6/oEvfIl /dikQy/QK2/SDz+/che98id9X8BwOb3yKH2nx4Fr9Mqn9K13lrsPwSuvgq2n 2hwB9Mqv9Mc/fX89vfIsfdGexbvplW/p8zb1VtAr79Lvfiarl175dxg+1W/B FLAzD9MnTux6il75mD6uPz2eXnmZPrr58ffolZ/pny621dIrT9OHZKTY6ZWv f4CfH/+IJ9iZt+l9Qlv+TK/8Te/lk/g6vfI4/b1uD+XSK5/Tj+6pP02vvE5/ +9SGQXrld0vQT3jyVsuO34GdeR68ML56zcNgZ75nfXfJ3ADWK++z/m95Y8JZ r/zPeltmeyzrdR9g/crkj99kve4HrD+TsDWL9bovsH7JmlWFrNf9gfWVYbMr WK/7BOv/tHBEK+t1v2D9Yd/zPazXfYP1vp7/dhnxE/8I8YLdow== "]]}}}, {}, {}, {}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 6.*^14}, {-59.1032063895257, 59.1032063895257}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> { Style["\[Omega]", FontSize -> 14], ""}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 6.*^14}, {-59.1032063895257, 59.1032063895257}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ LineLegend[{ Directive[ PointSize[0.006944444444444445], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Large]], Directive[ PointSize[0.006944444444444445], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]], Directive[ PointSize[0.006944444444444445], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Thickness[Large]], Directive[ PointSize[0.006944444444444445], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Thickness[Large]]}, { Style[ "Re(\!\(\*SubscriptBox[\(\[Epsilon]\), \(r\)]\))", FontSize -> 14], Style[ "Im(\!\(\*SubscriptBox[\(\[Epsilon]\), \(r\)]\))", FontSize -> 14]}, LegendMarkers -> {{False, Automatic}, {False, Automatic}, { False, Automatic}, {False, Automatic}}, Joined -> {True, True, True, True}, LabelStyle -> {}, LegendLayout -> "Column"]], {Right, Top}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{ 3.6860843675211196`*^9, 3.6860844622395444`*^9, 3.6860846342738323`*^9, 3.686086519966264*^9, 3.686087737621455*^9, 3.6860887235106773`*^9, 3.6861798969455357`*^9, 3.686180252126481*^9, 3.686180309891125*^9, 3.686180503379043*^9, 3.6861805566275415`*^9, 3.686180677922345*^9, { 3.75935410268783*^9, 3.759354127768384*^9}},ExpressionUUID->"2d02be36-9210-4c77-8e59-\ 36158815e535"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"p1EpsilonRFig2.eps\"\>", ",", "\<\"p1EpsilonRFig2pn.png\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.6860843675211196`*^9, 3.6860844622395444`*^9, 3.6860846342738323`*^9, 3.686086519966264*^9, 3.686087737621455*^9, 3.6860887235106773`*^9, 3.6861798969455357`*^9, 3.686180252126481*^9, 3.686180309891125*^9, 3.686180503379043*^9, 3.6861805566275415`*^9, 3.686180677922345*^9, { 3.75935410268783*^9, 3.759354128704502*^9}},ExpressionUUID->"e0cc9b4f-66af-4f4c-bd5b-\ 51a30c0af43c"] }, Open ]], Cell["ps5. p2.", "Text", CellChangeTimes->{{3.68608451387248*^9, 3.686084517388953*^9}},ExpressionUUID->"a4737592-c5ce-4035-9236-\ e037370eca92"], Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", " ", RowBox[{ "ammonia1", ",", "ammonia2", " ", ",", "omegac", " ", ",", "sevenGhz", " ", ",", "permittivityAm", ",", "nAm"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ammonia1", " ", "=", " ", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"2.4165825", " ", RowBox[{"10", "^", "15"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"10", " ", RowBox[{"10", "^", "9"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", " ", "\[Rule]", " ", RowBox[{"5", " ", RowBox[{"10", "^", "9"}]}]}]}], "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ammonia2", " ", "=", " ", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"2.4166175", " ", RowBox[{"10", "^", "15"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"10", " ", RowBox[{"10", "^", "9"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", " ", "\[Rule]", " ", RowBox[{"5", " ", RowBox[{"10", "^", "9"}]}]}]}], "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"omegac", " ", "=", " ", RowBox[{"2.4166", " ", RowBox[{"10", "^", "15"}]}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sevenGhz", " ", "=", " ", RowBox[{"7", " ", RowBox[{"10", "^", "9"}]}]}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{ "toggled", " ", "sign", " ", "for", " ", "active", " ", "medium", " ", SubscriptBox["\[Omega]", RowBox[{"p", ",", "k"}]]}], "\[Rule]", " ", RowBox[{"j", " ", SubscriptBox["\[Omega]", RowBox[{"p", ",", "k"}]]}]}], ",", " ", RowBox[{ RowBox[{"or", " ", SuperscriptBox[ SubscriptBox["\[Omega]", RowBox[{"p", ",", "k"}]], "2"]}], "\[Rule]", " ", RowBox[{"-", SuperscriptBox[ SubscriptBox["\[Omega]", RowBox[{"p", ",", "k"}]], "2"]}]}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"permittivityAm", "[", "omega_", "]"}], " ", ":=", " ", RowBox[{"1", " ", "-", " ", RowBox[{"chi", "[", RowBox[{"omega", ",", " ", "ammonia1"}], "]"}], " ", "-", " ", RowBox[{"chi", "[", RowBox[{"omega", ",", " ", "ammonia2"}], "]"}]}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nAm", "[", "nuDetuning_", "]"}], " ", ":=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"permittivityAm", "[", RowBox[{ RowBox[{"2", " ", "Pi", " ", "nuDetuning"}], " ", "+", " ", "omegac"}], "]"}], "]"}]}], " ", ";"}]}], "Input", CellChangeTimes->{{3.686084691845832*^9, 3.6860847616480474`*^9}, { 3.6860848547875333`*^9, 3.6860850527133646`*^9}, {3.6860851417741337`*^9, 3.686085154105681*^9}, {3.686085254872175*^9, 3.6860852583885546`*^9}, { 3.6860865998191633`*^9, 3.6860866700585127`*^9}, {3.6860887299340453`*^9, 3.6860887404358397`*^9}},ExpressionUUID->"2575af54-a4cd-42a7-9c44-\ 82323bb5172d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"ClearAll", "[", "p2n", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"p2n", " ", "=", " ", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"nAm", "[", "nu", "]"}], "//", " ", "Re"}], ")"}], " ", "-", "1"}], ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"nAm", "[", "nu", "]"}], "//", " ", "Im"}], ")"}], " ", "-", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", " ", RowBox[{"-", "sevenGhz"}], ",", " ", "sevenGhz"}], "}"}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", " ", RowBox[{"Placed", "[", RowBox[{ RowBox[{"LineLegend", "[", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "//", "fs"}], ",", " ", RowBox[{"\"\\"", "//", "fs"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"Right", ",", "Top"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", " ", "\[Rule]", " ", "Full"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{ "\"\<(\[Omega]-\!\(\*SubscriptBox[\(\[Omega]\), \ \(c\)]\))/2\[Pi]\>\"", "//", "fs"}], ",", " ", "\"\<\>\""}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"peeters`exportForLatex", "[", RowBox[{"\"\\"", ",", " ", "p2n"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.686085090933822*^9, 3.6860851695176673`*^9}, { 3.6860865420968533`*^9, 3.6860865581970673`*^9}, 3.6860874763701725`*^9, { 3.686087544393565*^9, 3.6860875559003305`*^9}, {3.686087597932602*^9, 3.6860876765901814`*^9}, 3.68608775307796*^9, {3.686088766205716*^9, 3.68608877253513*^9}, {3.75935415597339*^9, 3.759354167506982*^9}},ExpressionUUID->"019262d3-7535-4544-af10-\ cae88001e1c6"], Cell[BoxData[ TagBox[ GraphicsBox[{{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[ 1.], LineBox[CompressedData[" 1:eJwd1Xs0VPsXAPBRqol7byKP3kKW/DAqSqUuJTElpZeKGq9f6iZE6kalLiIS M4XKc5KGpoyRjME2M4ca6TEoKZLH3BrPJJXR6549f5x11mftffZ3f/dZ53sW +AZ7BEygUCgl5IV3V6bJZoHOuJhCYWiO57LhSEPjpNxp6Oirw/lsYKqfqT6v ieb9UHDY0B7xymLXRHSI21semb83WfPLiJK0g3W3iA0skzHp0iZ09NK1XWx4 c79hXXEK2vpnuPENCG07uqLgd7SoZezODYhoS+qJ//iV9BZhhzIflrp2Hv9T 8YW0Yd/mfQWwn+my2lz+GZ8vWT5yCxi+uyvFb9Eh2deUpJccWrG7DW14YYIa BxhNibbxTap4aNc00trPLN+J0J067ZYc8GXumMfOQmvtqz/EAX+m76+Zu9C5 W28rOBDIjBJPfTSK8Zruz4Uw32XZpYE6lXPn/CyElh8fvJ6J0ZRlXpOLwOmg 39jlCvRwxoBeERg60GmGhWjr9x52RdA6qJ+1LB7NM1oVVQSurqUn/JzRuW9u UW+DOaWPVi35RFq24awtF6rk2bINgGYML3bggnv9ttCmClU8pJ/OhXBmNf89 Dy1a+DeDC2CSaqudg065Tknigoer3aoDkWiHpno5F04y45yn26CtPa5l3YF6 E2PvgJsj+H6WGdGK4ZFX5lP1PPSWtTR70pd1HfIz0bkmLq6k1anGPSx0yJ0s P9LyAQXjnMoZrzKK4XH+/XCv/WhqdeMEHshM6EnbZqLNDpwKJ+1F/BiZofLk pkjSl+2DmVro1ruW//CgUZ3m0TgFzVg/nsqDJrmOgfuXj6QFN3qLefA8/80N ejNatMF8kAcvTUIrHS+iA+2ig0ogeS0ryiIBPfxp1bEScGaUrdaPRUsn/Yoq gXvXlTUDUWjF9utJJZCifa42/TCaKrHkloALhfVkcCNaNosYKAFh2723VzVU 6939EcaHUGVLbsxkNGNDRRQfzPSVPsETVPGcU7F8SPNYLXcaH8b6YsN0PoTV 1yk+9KJbFzcJ+WBR3vJxfT3aetngxFLIYo5NHDmPHl7un1UK1m91M2L+UeWL zDilIPnfUgv9M+h4tpJfCoraoO32EWhOjUhaCku+dufH+avqXXk3WgoP9j5Z P9tRVe8h2/0edLg6TUsY/YD7aTk2rQwm9pxefrcfHV82NLsMzKIq9jd3owN5 EWZlcPSuFW9uo8re9xzLYIrOzK38O2hP997wMrBuH2S2/R9t8MG9owzOHknX s3o1hP380VB9H2Y0G3f0ytDUfp+G+1CwnHfzphSd0UV9dR8eU+pt5grQvKjz o/fBgDXu8Vs6+sTvdItyKC73vtS3HU0ZU2aXwxuKCfWWbBC/Z35pqgBCAnjP fKVoRe6pPAFMeGSfPk+kitfvKRGAGWuHaVox2sDCvVEA4QvPO8Umo1PUjbUr QJPeF+23Cd2qdzG9AlaweMr50gE8D9J1+ULgZNf5ThKhGcKZtULQK3rd0Feu svXSFiGMiNSzy26hFYyCcSFwhzzXbjyPbpVccqqEeXS1xAhndEZIVHslqKt5 zHlS24/5YZpzq+HZkU9rTor7cF5x8rc1MPryp1uxAM1IXKesgVmOGt7yYrTh 33unisBfZ0Hk5mx0SOyAkQiU5ZvLjSLR6hNO7xSBsVoRrcEGvYUxs0YEx1kM wzmcXtKbwuazxJD5/S/a1hy0dcqOXDFIAo6viUtDV3XG3hHDb3bJXsMx6JjD jQ/FkNdemVHrg+a5j30TQ8NC/elBs9FaFjE+EhhONjJka6MVT18FSUBvzJL2 cio6arreSQkwHjm5OY4pSHNbVzEl8PnI0QTdF+hhqYZYAvMFT9QgGa0u+6hH AH/AnJcQp4pbGRkS4Lwgft+O02hq87xFBBy+sLZyIAht9iRsJQG/IOegIAD9 PPDhWgKYn77rx3ijNz1/QydA4FUePtsN7d/hsoeAjakzjN87qfqhZfgQ0FEX 2si3R3uW5QQSoE6zsKJboG36G44RkO6X0K5ronJxXyQB5hnvLnTNRl9+WnaW gC1qee9PaKJ5+52SCOix/XnFaSI6cJVaKgERh/Y6aX17T/rxeu8rBEzNEYy0 jaBdvm+/SkBms27erT50Zp08kwAaNcw9rBud9JGaS4DEXvZjzWt0raCaTcCO UEuuRhM62v5XPgGKmxf2tNSjY+LqCwiIfP2eyhajh+MNOAT8MW19eVAFWmue gnTeOnbAihL0CapNIQE2J37pTCpES0e+kvGHXC+JLBctC6aR3tNVEZKZgc4f f0HWH9TVnx+Ygk758o5cP5oe/mRpPNq/2JvsT+dMY+SvM6r97LbNIaCg1Mq8 4Tiao33wOgErFImtacFo665PaQQ8ntMb53tAlV8mI+e1f6uzrdV+tNeh8UQC RmJv9Ch3qtav/SuWgFghhVm3GS0Pn3+aAIMP3g6pzqp56GtFEHDbuHLIaw26 ytYuiIA1ngZZZsvQUc5MPwIak45tHLVE2xcb7CbAX9ykrFmIdqircyPg62ca J3Eu+t5TliMBF8wv7tyli1ZMPGVDAI+1oXRIHS1KS9AnYJ0030f4/R3u3zJv CgEt39W04kbRngFVXyTwPaDq8Fw5urXr30YJXLo2c3ZvG9reRlEtAaNnEfX3 mtE2Li0cCbjYLTbdRKDl77wjJdB2OPm5fiVamtnvK4Ejef3nevjowBA3Vwlc 1ih4e5KN5uyM0JZAZ/usq4Vn0RamoitiMA8+Mlh7Ap3/0jtEDOFqEsfOYPTw mQOuYqCaHuzT24feHl/wRQQegqo1S3ao+o2VPRJBJl2L5bYJnSRxzxKBdXD5 qpiVaKfOlatFcFJNMyVnMTrcKltDBLWsfXKhGdqOnsitAU/BpIsf9dACdqEM 4Iza9o59n/7FeVYcH6oCKevWkpN9aMEijaAq0Db9FnelC53Sp6WohAI6m/b4 GZqyMaFZCE9Zw9EruOgt463RAphnetF4RgDa2rDiz1IIFHQep3mhDaf5XeAD n27zmL4NLTUIbiL//8Ft4Wcd0bKSBXt5ECRY9GBorqpeTXd+EVTRHwTWt8jx /LXK6bkOY55Cn24p2mHWxRdp8B/wYbA/ "]], LineBox[CompressedData[" 1:eJwd2Hk8lFsYB/BRErnVFEWiBi3aaM8dHCokReoioTBl0k0lWySlhbQL2clu 7MMYhnnf00TW7AlRWVKKFpJSl7rzvH/5fD+/c57nOec98w9V1pkDztNoNNpc CRoN/ion7y3rKhl4TKMlYt/kEBzA6U6p0AeLdB5WRqP0vpJo6W1gmmxcdhwa +cctMHQ52OB9/bokFKTdZ58+jXLVyMN0lHOWPDD8843YDPLS5wzUkhVtsn4U nPhJfVsmUlY5sLmsByyKVinORoUSFbKNBJVrNG3iok7mQwm5IvDI/SePuWjK w+/HwWxq/bvDewuQybtNb/qiwb2Dxw4WolNL6S9W3Ac3G9Z1FKJQm4+NJ4Op /S/KLXnoVV1q2bg3mL74pGERmiZ5mcs8DaZ5KJcUIQ29w+mXnKn924+t4CP3 /AWhMpbU+ltVv/hIOjzohMoGql+ll18J0mxgObA0wOvlPJ6VoH+k9K0yllI+ q6shQAk+Pww2zKH629jXCFBFwbOt3jOoejU1cqXo/VD+WuFkv9jcX2vtS9Gm wy6KRsPggJTZA6XIJsJwzs1+cHNwinoZutjEkGx6QfnnUccyVLP9xRebGrBj UkxLGfp8nv82/hGY7rlWSojkiu539xeDQyaWagvRkRWm1a5p4JGvx8KF6JrD CrIgjrLsMyxEmVHTeN/DqP5zXr4TosaW1xydW2CG092/CPRtljAh4Ao1L3tC i0BKhpHhlb7gRB+N/QTS9/e4Oess2KJvrRuBbn5Z4x3uQNX3Hs4gEFdD2vWF NTXf48ciAj13GnBaYk7lYakdBPoVIzp41IjKM5M+EojRFmfG0aXOd7/qD4GM Zvvu/LSJql/ImEeif42t/t64Brx+J8kgUcilDVrn1CibZmqSiC+YvZxYRNWP GWWSyITUKYucR51n8LshiV4+PrHPQwbcuzHVjERnqiIHzCXABs7TrUg07Wml 7+qffdCfucSORA+axuZIjYLpO347kEijTTW17z04sSfnKImEnfv+JnvBIyab 2CQyf+XfGNUJdguKOU6ivr7so57N4BD3YbE9372Y2FdDuVRTbOnhmXfXiCi/ cHUmUeyXLeozBeD1anksEml+Oyroz6f6838dIVH5xH0znAEOCLS1JZHV1KP+ 6Idg2qHnliR6L/H5nFckNX+1uzmJ/KSUZ++/R+U6zF0kmiNrmrz2OrV/dKM+ iZLm+myTvkTN+9/RrSTaLJ9e/8YbLNJrW0uiasU2p0enqXpnb6qRyFZl2o8Y NjXfsjsKJLq84ojqAWtq/8n74u8lv+Z28TpzMGP3w68E4miV7ZExpnLm/LcE atRe6C3aAjZYh2rE72lPY53mAsp8o2AC5e6bdJg1m7rPXPlzBDKwXD3+VpKa 57a7M4GOHw5aGv+tl/o+nwwIVHQGecq2gQ1arceEyCw8T+V9KJVr2+4WooBX d92S6GBac35TKarT52XXz6Ty3RL8UqRhmN/wZaoH5rulF1OKLBoMyuK6wHTy 4rFSlNRzNOx7GLi3/9CEAO2QzDLKkgI3ew0tEaBrZluz5n18BffBNnArRorz LzFcusAM9WqrYpTTXh2Ba8AWBx10ilGbw6GrJ9PAtL1VUsVoufsF+8oj4ACZ Cwl8VBVRPse35SX83r71thQhmV5zj97ibriPWadMechHR0fjWDo4sdJ+Mw+9 j1j5avABuJlkLeGhGjPari+eYFFwwddCFCQsUPq9EdzLsIsrRJKR8uWL87vg vDWvxwrQH7Mu+sGMF/D+/vbkcdHpzKrKrgiw46XliVz0WpJ3/kgQeOTP8G0u wsJbA87O4AAnAZuLLqzSE3iqU2btXcxFvyQTHUIfdsL5zeLo+Whc6JzXENlB /d6W9+eg1laUPxIIdlzIJXMQ94MCV86Tyjuco3PQSYW6gkMWVP7ZYn8O6nPX 5L+VBjN0l1Rko4ZVP4RTvu2Qf7fLy0JpkcG16+yfg0fjkzjoSp5TnYUpOCBM 6goHOVYyn3pogxNlQ1kctHjsY32pPFh0g76Mg+6b7282amiDXDWNk4H8Zyh1 HEbggKqJknRk5ZE9cIfxDPL20k+paKjjgYbkXHCv0Z3WVHRRN8D1/FQr5H5+ JakofYbVN3YXmOaTcTkVTUT+nm4QDjbw0lZIRXHEfvWvM8EijwW7UtDAjAkn 6y/NsH78siAJDay/gfUuNED/W+6F8ejJyrSKa3aUFZ7ciEepSx7XPGVSrtzo FI+O/fWz9dDPeqjHZ9Pj0cCgy6CXN5i2Rd0tDr1JMKHnuT0Fa5RvjkX9f0mz ljjXwv7yHS1RqO990Iw/ZpWQ8wLMwtHt/CeB9a8FYHWdxiBU1rLMhBefCDZP GTuFvGNNCmxKHm4Xe+BomCuuMflvLvNWKdjpqvt1HFEtxcmfeiJ2ovf4jzC8 yyvXdr9qpdi9iXUq4XhCzXL2mCGYocbfGY5tLya5b70NFn2ouxeOl27R1SOV qsCvf2s8wJzks61126qhXj3PIQIL/V9Ovj1bK7aBA9EThXs3Fe5XftcA/aXz tyZgdeOtFxVkGmE9n8dKwGybsqz5a8Gisa67CfjThfLpMu5gxrrQwQT8q7KV Pz4F7v2TFfMQz8r5eXtwVrPYdK++q4l4GVIaFam1QP05lX+SsPEu++toM9jx +hbFZHzcIkGFMAKPDArXJ+MslpppiQvlabKsZLzh+uqU3DywhWZJZTJGzUyr GGYrzJ/iej8F27DsSj0OPBPbreKaThpOaPtJf8ICi7TXWqXhAeMoF3kPsGPa 8Ok07LbmuQI/DNwsxUtOwze+mXt/bwPT2C6y6bgsaMcm34NtYq9fE9qXjhdn r8q9aP8cziOYl8zBLJUaySZXMIOY9YiDOffY9kv9qXyD6ksO3uyZIiuKB1us zliYiffqqfwr0QMOuKV8JxNfaKKvvObUDve7qONSFn499iPxBrtDbG5uv38O Ls7KzGH6gOmWvKQcfNfJTjB8g/Lz3MocrN+Em8xywQbOqnNycWJW4O9538CM fJmkXMxykrOPudwJ5+td0JSHBxs1FbLjXogd5dGXzsUjmc536lu7YX/O8Bke /lTrYWvxBkzH24N4eOjD5ZVtY+Dgr7lxPPxmVcLjbvmXYgv8a2p5uD2zfXzI GmxTOX15ESYydx2R6QZ3zvTtKcLBmau0jN+8gv43frGKcWDttsnaMXDn53K/ Ynzlg1GtmeRruJ+e6PBi7LeKddRqOdjk8NmqYnw6Myby2HHKtiWrS7Blpizt 6jBY8HX2eAlWzfzU/GisB97Hx5ybpZin57VuQqIX7s/OIKUUt6d7uNNngW3U K4SlWNnXbdJACdyrHvKxFHNU/qUnM8GdxxealeFH7MPax/zAFtHzpIW4v8nO /8JVMOe/wiVCLPm3bXn4LbBPuuoWITaVPbi3MhYckmTnJMTt+RaOKwiwY/zn YiH+qbgvDT0BJ5pmPBVi5StmQ9b1YBOWfK8QsyxNPa+/pOw5NZPAnyZ2Br+f BAv+SfyHwHTWjgbajD6xFfVDnQm88anB/EWzwY4vFc8R2CdeL263Cpg22RJF 4Fgp3T6n5WDGvP84BMZnmCvOrwMHT6YJCCy5Yxs3Sw9s88O1ncArs7eMlxuB R/wuDhDYVH4zs9sM7PJocpTAIe/WP5E9Au6s05AlMW+flswyNrW/rW4hidsF 68x1T1Prl5Srklj51upO14vgCe3ILSTW/6ahEhhEzTvdBZGYdXglK/4uWEPC 05jEgVXLM/gR1HyGRWYk5mgt+9iQANYuUrUk8dMotQ3v0sF0Wf4hEn+WUPX+ nQf26WAfITH95FLhwhKqv58Wi8Sb2lRoWo+o/mtmOpPYWk/ZaFc11W/0LZvE PulKNx2aqPOkVRwncezcRU3nOsCiH5FiYx8F+ZAeat7jtuL1fX0LDnEGqfs1 mXaMxJJ75BNEX6h6oiBHEq8smv+m8weYW/vajsSmKvM0Rv9Q82+UsCZxscai 6lLpfvh+qUxzEqttVmVfmQemm44Ykviu/qoZe5TAIyULmCT+ZbohVU4dbGKS sI7EbOu/d75cA05U8V9K4lan7f2pm8FRy9Lmkhid2n35lB44eIHMbwJn+exn bDUGa5+LHSLwwmuHHv02p/onmT8n8JV7TkeqD4JdsDwm8OeYE1P3HMHrW3pS CWybfjbO5gQ1Dz/pBoGrCnx1VN3BFiv3uorfH3m568N5cEB5814Cz2q7r+h3 m9rvoSl+v9490SU7H1D1bYfE77t/KMn6rwSqv5KxQIjLJArD4/PBoovJDkK8 YnbZJrYAzOkP1BLiUMXyVs3HYJvsxsky/K9WK13USuXPre+V4XZmV35wN5hb 72tZhncY95vvH6D6OdcuLMNKh7/e7h+nrCAILcV1N+fLzFj0Bu576Qm2AG+N UOI0qIJpxwPlBDg5SW1XxGpwostJsgSfF2wMXKkLtih3nVmC31Uwl40Ygm0G vDKK8YGmHRUCM7DLmWWGxXj1uwMSpg5ULmHtwccRo7aJ812o+i4NM/h42hRL v9sNHCL3LLwId8l5+LteATNk/Dk8fHN72M+7aeAAs63pBfj73tiog3lg7cfT VQowyyZlG6MEXOPEDuFi5hmeV0ENWFQ4tysPD8U9G302DG5uyp/KxKYTckOK GwfgPAappgnYRLvugykTLErXjYzFxj4BHy7sAAfw33ZH4Z0TH9/3HgDTxiX2 hWHdicpBjgeVP3uQdAlrTpx7q82n8j2r7e6h2BQz+P8G1NtXkxyC/gdvJuXv "]], LineBox[CompressedData[" 1:eJwd1nlUU+cSAPCIgogoqRs8ZUlBi/ieCC0VijCJtOKCVRCXii1EFgsVD8En EilKKi4oi7ihQMGQEJQQIGwhsoZcpCyKwYoKCEQJEi2bgCTgEx9z/7gn53dm vpn5bvLdmy/9w/YE6VAoFMnshZ+RPpWHXzeqNlMosqj29hSw1nqqKM/QjP3U 9HSgaW36GifRzC0G9/mwRNul/Mmpf9a0qqz/FALV6ZryMgM9qrniLobF7G3K qm1opdGbCTEs1Jb20g6iOWEnPIphnjaxR32KXF/M7y4FHacfelaeRSuCzKLL gMKe7t55Gc2V6JpI4JPmSLc4jay3Q7W1HCY19JfsSjTF6+iF+zDhONklJMj6 4X2LK2AsUtT1sgVNDTl2owJGNCZdjJfkfGcyUypBrXnfof+JzC/Ti6yGN473 Opx138zaTpkyUA2qSN+O0EVoqqnVvhpQappfKMzQsomN1rXQoeE/vw1oZm67 twxonQH2v29FixWqWBkEV1nF/+KJ/qnOrVgGkxw+WPqjKVOfFtQBBATcnncU nXwn6Js6OL/FauzNf9Esmd2hOlhmwBfknSfrn1mQUweHBv0/JyahTWRWTXXA a7U8yLpFzne/4l0d2F/nGX6bi/bcGWUjB3aE/xHjYvQ2vSJ3OcgOWMqmKsj9 iTj+cthlyvtvzUN0nKN+ihxSZg4/4raj9Q0e58uhW/mldWwPmpO6s14Oq4lX nKABtDIyrkMOoYKszq2j6BfOl4fkUHLxsMO6KbIf+yCFgOmQL5MMdQYwX/7p CwIu2WZtbluKZt/tsydAQT2cXmKKTt7kwCDAZJz24eYatLgl8kcC/NqVu9i2 6LjCsoME5JRz7/k4orX//hBIwHAqU8eVgVazXMMI+Daa9rPFdjT31k02AdG+ yrI5e9Dbsub9QUA9g2uk8kGzIq7GEbDQihnSEIBuVLpdIWCPLo24F4qm3LC4 SUDaQK9pfARaYWmbRsCrpjsnj51Br50bkUnAWpGfYvdFdHDCdBYBrCSLdV8n k/Um67MJKGf1xi5LRb/w6cwhYGbPne7JLDStiHGPAPdv/Rw7hGhp26dZJxpb XK0sQdudMM4l4OlUz7uMKjRzw/XZuOnLzB84D9Cep07eJSCgxjfTv5Wc526D gAAh11z7w3M0ZyiOT8DY2R4vayXaiSnnEvBdUGbegrfkPGORGQRwtvrqDr4n +7MLUglotDH3a51GMwS/ze7fyLBHKp6rxn6GRckE7B/OWHLdEM21vBBPQKbi l9CI5Wil6/B5AvqLzRoOmKPZN4diCDgRmXHK1A7duFl+nIDKg7/8PeOEtgu/ c5QAHRez9a82o5nXrWa/z6uUDKXAGy1dv2EvAQWX/ty6IZKst6XEjoA4roHO 7zFofdpDawIOl7OrGi6iaasKzAlY1r/X3vc2OU/Rs4UERDEWrUq8j04+oOmT w1bN6eF3H8n4iE2iHJSBfjdzOG/xfMZbttbBEoZln9nldxg/GcCQAVU8/3/0 a+i1byMdZLCYNrTMPw0dt/rGWhkYUKTuOUL0NoWKKgMd2Y9C2xa05/MXRC2M 00+F0w3/wf5RxxfWwlO64jMzCU3VrhZWw5PCMpPYFDSX0nyjGhQW6faCTDQj 9HxMNTz8HBTwtgDtyaXvq4YHtR8bwh+T6+Plc6pBQrdOOksdxPV79fyq4Bb9 jGn2NbQ45rd1ldDjdezKyXS0Xa3Hikr4KvBnne3ZpLPddSqhNM5ZPVRG5ute 6qwARdtkiWMHWnnTNaECDALDPFoshnAe+e6J+xAdx4waE6FHw/Y+kwKRtnuo vgzNMnV8IAWDfGDeqkEnj2wolUJqm6m7iwLNSQy4JgXJyo4vLoyj7b5/vFsK IyKv3H85D2N9VkZrOfi3ub1g/IWWvXftkoCLiTIv+jGaZc17JIHlfqdjpM/R yT4rZBJoHCz/yk6N5hyyFUhgvf76CIsFI/h72rSSJQEtGC+Z2YFmBT/Sl8AV 0T8ela1ou269LWUQPB5noXmGVtLp35WBm/NX41/3oqn959aXwcRfzDThCJl/ 13FFGeS//21ip/4o9nvtpC6FpYuUbi42aKpPalIp9Hzf3LvyKBmP8FKVQJg0 YzI5jIwf+rqjBCjrwxfNP4FWrqG1loDVCpNN49ForrGltASC1UEpLUmj5Hmv TiiBsYQ5P0YXk/FqcCoBvWdOFd1T6GT9f24Vw60dhm3eM2jZjFtSMayt7R1o 0nmP5+G84FwxeNy7sFyyEG1HuRxeDMlRT1lJZuhRdevs+3elBcuavpl0vrNO MdgG373BjUMzV9ufLII9lySdcxLRSpHqWBFECB/QAq6iZencoCKoGuwTrUlD c3+331cEO8JpD4R578nnT5lDERyJSv1Q2krGN9I/iCEzIX5/07IxvB+cedFi MCoKMxnjojljm10KIXqwfbG+AE1pXWJXCGprF13zXDRtaMiqEOSZ+mPbi9AM Qr6wEE4kZLVk1aFlIf1dBdD5699nvF6T+bVzzxRAtrljv9hqHPPZXk354JQw UxSWg6bBk1MiaLod0t4tRHNYc8NE4CN4qvUoJPOTXANFcLpGSF8rRSv9Hu4S gXx0/yNlE1pm7b1aBB77CtVeQ2jmwEdFHviaMy0cHCYwP+a4XR6cE9claOvQ nLlvdYXg+zyWuaoBTQvO/JQLTjNbHKCZ9NWDH3JhyKO5K/YJmmn8SpUL+wee rDPqQ1N2OtTngo25qnHNvA94P63exOZCa7yerrc76Zzd83PB+FeP0/nNaOXi pWb3YJObzMW2dRL7nzI4lwNnj4S4Vgxo0OolegKgmnV4Hx/WYr8AcwUf+nfI j84fR1MiFrfwoYKdF/unBq08MKeBD4FPT5c0UKaw38WRSj6Ux1suXbUUrfQY ussH3+mjTwhHNMU7dPa/juj5jOfyP9Cc7cHf8OEPXXWw8DyaOZNvy4f937Rx 6JfJepsmbfhAucIXh1wn67kn0fjg7b6NWiMgHfRyER+mS68+PtJM5muG1Tx4 /Dpq4GMrmub8s4oH2dTAz8l/k/1ULb082BW6cUPlS3Ke4OJnPOBZdSUZjZD1 JtLreRDpVZ+TPU7GwVTGg50x+TXfacl6vZmVPJjsjBkOmDON81rmFfOgRT9E b0oXzZE5FPCAu3GPeZIBmlEoy+XBicBNG62M0LLBXQIebL+2epd0KZoS2cvl wf8BUbQWvA== "]]}, Annotation[#, "Charting`Private`Tag$19691#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], Thickness[Large], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVzXc8FI7/B3BKpWjZQjK6r0SnJJ9S75ARFVFKpZLsvTKyiTSIOyGhzNJA Ecp8W9ndURpGpTvjnHO4Mxs/vz/ej/fj+Xi9Hu+3nI2Hud0KHh6e78vz/9uI pGhSIbyIY6YTxsHGDuDeTl31eOMizop6SwdYOACJL6z6psAi/qYKiQZbO0C/ 31eVsysX8d5Abnq633L/QrzA7PQCagplsrRzHICsON+i3r2AnWXx67f+dYCB svYjRQkLWCvxjsfxnSN49Xnvz1+/gGdlueUnTZ3B+4hUo8baBTyjdup+9cVl P28waeJbQCM3fto+12UHidjSluZRacefjaa3li1VFi/PmMfCCCNt8cZlX1j4 ldk8j+d594DIQRfw7QuLTwmbxzeRz02J+1zBr+/ur9ipOZS8sCT3+ow7qO4Y rL46MYenGXECdxzcgeZHTIWxObQipz71DnAHc6Hu45wfcxh2pFXXPc0ddhmJ l12mzKGjN4cu8d0d6GVZsfuK5jAm0+zVMRcPOE0qU6W5zqHKMfOST4aeIPBj DX+t4xxGn+Q1OmzmCfWq54Ye2M7hkIaG86vznqDWupRsajWHJ52PBxa5eYIg jw5P5bE5LL/GxxVO8oRGt/buROU5rDRNn7w55AnqRj/8D4/O4m9CLsclxgss GVx5Im0WB3Ktot8neEHwHYGurT9m8ZNMW7HKQy9o7tyn+PfzLB6NX88vUrzc N4+jVL2fRfd09gbLb14QeuHAjgNPZjH95S+fOjVvaHVL+rbXfhaP8RWGu9O9 gbXhWbSizSzKdaWbik15g1BxrZrIpeX7kQevtv72BqtpRsyMxSyekSshm4n4 AMtPR/21/iwa7j5XNX7EB0TCWXeI22fR9U/v/dN5PnCZdPSQMo2L27qfiTp5 +YK1zblK/M5FTy9GflnYsvc47z/Xx0WNIedfwvHL7r6jEdvNxUPz4pV/ni1b 6IPqcB0Xo70/BCbSfcGGZLE1O4OLJ9dGunRdvAa2JJt/kme5uOtc4A2zC35g a+MT8sqci6y2lZONLsvec2PpqAkXKeurDI4FL7s7b85fn4vht++qJ2b4gZ3Q 2OQndS4+JrEMV/30A3uSx4/ETVxsEhg5WuDiD46kYFzbxsFGyZeLjQkBIHt0 3z1mEweTra0s4rIDoPfPpNUH5OCe9bveO5UGgJ7T1fmktxwc0R90vvwlALZp GxO3FXAwSMFCUkcuEL5MiGfsi+Wgd1LwpsWyQDAyKgm4asDByfPnfYgz14Hn n6uBgS4HY5rPvHi3JggqSgkiO4CDUZZM40vSQUDYllbE0uDgN3tji0n9IFgx Fz4cuJ2DVYZm3INpQfAu1+R0Ah8HHcf15J8ZBoMyD4NYXT+DHxf7cKksBKpo mRTDmhnMV9hhP0IJAdPWU17db2dQ6pztnllGCPiSql+PFM9gYoT1kVDZUKhR TNQQejSDuWJtrodvh4K50X9aDkEzqLY6cqnOPgyuk2IMNu+dwcGIkoKBzHAQ 9NcaeUicwQeTdYtGheHw6AL7JmHnDB6OqwnpqA6HRsXzrVryM6hbJd0kMhAO G8pVj9tvmkGfwmy5cukIyO77aFbJnMYVb6RLnR9HQKuiwkW7vGk8frB5zdC7 SGizSu/iy5pGhZPdkpKdy04S1c5Nn8bYzP33XL4vm49f4Rd5Gge1P4Zf5YuC Nhpz1DpyGms0RvLzTKOgI7fM1+ryNOq90hHNH48CiqLx3VOS0yjRvWH9Sa1o oFg1/JkWmcazIYZxTmbLTjroQdo0jbIZS6H5DtFA5SOaU9dMYzmnYfhOUjR0 04QlTGenUJAWfWQ9Oxo+5g7kGPdModo1ifdqhTHwWdGrUiduCpMv9YddMoqF eF1ysMqtKZTJ+dpUahMLBtZvDolHT+GIsv5D9eBYKH24UMsMnsIvCodNXhTF QoJQZGOK6xTy+3GDyRK34CgPuXPi2BQqzpSfuDV9C971lX5/sG4Kj/0ykWpr vQNeC72Pb6yewttK/EeYo3dASXzhiseKKdypeu/NEf67kGx+iKa3yMbw9+cu JxneBZ/WptHJMTZuUVM42dZyF1TKe6f0W9l4649UzMKnOMggza+cvsnGMldu ZcbGBFD7Lpp6I4qNZqZxZ58rJkD9TnUV8TA2RpVJjA7tT4DRRrfTB/3YmLY+ NZtqmwB75oZyY2zZyPW3or+tSoDmC536UjpspMdOVMtcSwTLp4yvLw8u/8sy vM0blwjjnDXu2v+xUUerdUgsLxE2xesm2xHZWHUg7MyXT4lwvq58uEiGjRKH 1kQ27SfBoJHexlucSfRRJ/W1CJBh5a9QzcLxSXQiFHXz/48MSsFvL/cMTSL8 7XsepUsG78JdxTLUSTTZ+C1L5ToZ1ghLmr1+OYmrPlxxvcQkg1r/BKnPfjmP 7B343p8EEe4pYru+snB3nAr9y0wyiPQoDI5RWPg4461bhGgK5GsW5+W1sNDA 6X9DPpop0MHTulemgoUJLVaD+4NTQIK8aC6YwsKmfUPcK2tToaj84j3GaRaK GOgpj+95ALrSjDP5x1loJ2/On37uAXwM99tqo8fCIqkvfnnhD2DR6N7Lr+os tJ2wVmj+8AAM+uvaW4RYqC8/etHKOw0GeBT5n1AmMPrU9RO9rQ/B0674g03L BJa3HKshzz6EFW0HU7bWTeDkgMbKKoV0UCJbEJKLJnCOZLbbPCwdfLff1IuO n0BZqy7td1oZIGDMCL96fAJXkAp7X7dlwn5y8YJsCxMFUq/ESROy4Glmk82q OiY+T/5xhkcvC8SefWtnlDORynfeVs0mC6br+DLfPGHiw6KPOwMfZcELlqXu sZtMXJlnerVVJhu2GvPe8TNgomyV6xoz5Ry4ayHGuQBMLE696nHtRA4sWe+8 qLOPid/EO5znPHPgi78FUZDARBXNyDWSb3MgMa+gJ2sVE5US8fTsiVzg4zWX 7mwcR0ltxQb9O3ngLegQ/bpqHJ0MPp36WZoHP8WDWSml42i7W9efPZgHNbvy 62xyl3PCubcee/PB32rRdj5qHJ946ljK0vOBUZ79UuHIOL4ZE63FS0/BsqFc bK3WOIZUpT28nPAUmrs6wlh7xrG8b+vGuPqnkEOfNXsrP46FNXalmUoFYCV8 bNZkxTi2nOuI6F0qgA/uM3AdGRhYvs0orO45cD7/PVFUwcBfaXFpRN4XsEVn 3UVaEQOf9qQrl+i+AFthuSCTTAb6u39a1G55AQvlJuXyQQwU/rtz5uPAS1Dg fUZs38vA5FrCwd9biuGo8xvgUWGg2Q6xgRrdYnDvqTuhocDAnWMVqvwuxVCR 99nl0WYGtovbKWhWF8MJ41VPfVhj+CH/HkfH8RX4k623ST8dQ0Lz8SDevteQ /tuFaPZoDNsTnc00BUug3s4fYpLH0C49yVcCSkDwv3gr9o0xNJff9XU4pwSy +itTG6+MIduy5cAf/1Jo3y6+2U1qDCPtaWKeemXAjpffli00hqI9kRUPI8pA bF6V+HntGMb9CU3MrC0D6za9Ezrzo/jfiGaOBpQD1937luinUQysHfq3pF8B shWdvDXxo5gbUr8pKvIdvGYqF9+KGcWOy/ep9q3vwEAu9pJF6CjGGlhSd22u BNfbupVMt1HUui5Z4ZtTCRVW5b5SJ0bRListQKynCk7yZo0ECIyioBJTJtS6 Fn5p/L2vt3IU40QLN2WX1YKf8wW9TUsj2FD3M5m2ug7Se0SznjBG8EvDAy7p ch2M5t0+39s6go5FjL4t4gjhxr6d6rEjON7jRln7qB6Ew6hB/8JGkBLy79r5 7nrIL9ml3O4/gjLPRl+qrm6ADumxGBuHEaQ3SbhaejSAxORF7USDEQyN9Tv8 yLARismGJSy+ESyWEux23NAMP/q3PCiIGMZ6by3LNwOtoOzhPtEYMIyPTDQP 28u1gS9vvc4Pj2GUVRLplbRrA36CE0Ps0jBWBxc6XWS2gZpHudaNA8P4SXrz RcGFdrjOK5DwaPcw3psnCN/V6oBG8iXaO6VhjPr7V/hFSAdYVqyKmxIbxoL2 wHVJPJ0Qxnt68NIMHYtVM/yu/OuEFvKTPdcZdHzR5yiid6gLhAhLMfd/0lE+ 51vM8etdkG+cTez4QEdtvRLy3aku6CKzw/e/oCOnwK+R3f0BJAh6n07n0FEq WC5flI8CNhUpOzzT6Pi2P2PHiq0UmO2H7vxYOspE1Co9MaWAtgeJUB9Gx8lD yVwTBwrc5h2+PuBHxw12ycWKoRTYSohTELGjYwrlCc+BAgo4VvzwJ1rRUcVo ZpNzNQVeG+/tMD5Fxxvbh4UKKBT43X9zm70xHTvWpn6cHKKAgUefb4QOHStS Epw0ORRI4CW2pv9Hx3WltWqBfFT4Ro6UqSDSkfaw61uhMBUUCb1ePQQ6GiuO eHTLUcGtYkczS4aOVcQLFoO7qFBmHLJlnSgdDRUIpzoPUIFngOK+XZCO71ns 1DR9Khh7KDZor6QjQXiqXseUCkm8AeJWizTMOqoxWHOWCoPkdhf/KRrW6tS4 brhMBSWCbB1plIYMQz4nVTsqeFd4ixR+p6GQgJCRpDMVqoybHVt7aajvps5L caPC6gHJalonDTtfCq4+6UkF5d1vrwy1LN/nFTQnelHh/wAXOlTZ "]], LineBox[CompressedData[" 1:eJwVmXc8Fd4bxyUKyShFopIKDUmSxMOxkqKSlVEhklRESEbWxTWyV2QmO7K3 Y2Re7rU3172RfNMUhfrd31/n9f7jnPN5ns9z1uuIWDzStWJmYmLK28TE9P9W x+1S9VgFHdtXxCQiBwrQo/iqZUvo+M1hwZ3P7SkgecSGSzeXjo1Tt3IdeEgB 18oaiwdpdFx/y0AzyJYCTVrcFYHxdOygJaRZZ0UBzkmLbZkv6Lj/IXVn/S0K GDwqv9VAoONnpd5SYUYUSN3EUTrmwZiPP/SV1FUKfIoyY/vlRMc1C9LD2RoU kDlSbMprR8cWXu/a/5yngGclS/FxSzreRNbrOypFgXYtI1ZNYzqGzaKNiqIU MHn0r8BTk46z5GrcRLZQ4Hn2eEazEh2/PNFUf+kXGbKoFQlsZxl6B7yvP/1A hq/X7f0jD9OxgudKxUojGXaHXn42LMToz7M6pF9AhvPvxR2E+Og4Nr95lBJP BoIc1TSLmY59Q68nKT8gQ75Dne7ibxoWfPRSX8WADJTcBE2pbzQcEbk46gVk EBLWlamepmFXty3ZJE4yvNvUvK2nloar/bChuGovjMinbNpZSsNb+6Zkszh6 YcPx2YphHg2nqcW+30vpAc250zRqAg0H5bWMnDDpgcnOzOplZxrezP1cOdOK BGzRhHvCp2h4PjDqdcvtLpAkWdyyEKfhUG+5f+/3dcH1LUr6b/bTsJhw2VrG RCe8cl1RPsXF0KOXVipo1AmnzWwE1Bdncabjsah9Vzrg5hGtNrvXs9jf5sTe y+ptUFa5/XDtnlmcImX8wMijGTTrzlfH8c5ioroaecvFZpjA9644ss/igHNd rDK7moG5q/Xp0d9UzC7ZSuR62wQ6kx498SNULG9apj70EcPHTUsuT+Ko+I+p U92cUyM82yK0/doLKs4uek56p9kIXNu00o8HUPGk1yrln1AjyPBlddOcqfiE Us2wTFgDeB+5KaJrQMVsq4K1Hir1IHipp1NyFxUrfblH5R2tgYIr67c4tjPm i/Hbxh1eA8p6R5c/sFAxi8rsue8XauCuGWF/8s8Z/MWN7715dTWUPgKnbQMz OJ2UKpqVUwXa0YXCHyNn8J49yV3VbytgJn7iXTNxBg/6DYayOFWAUzKHZorP DF5SNhbjPlcBiVnWjw0ez+DEzFgvs9ZymKvc19ZybQbnGhinJ8+VwfPJMPs0 nhl8fO69V8HFUuhUKsnr3jqD43JzrUb5SkFc7S3py8Y0tvv3IKlupgSukpSr k8am8fnCDp1MtxJIm7aM+hU1jVt8zbPSyt+BCkuueu6Wadxo2hh9XLsYhtq/ 1zAtT2Heu7WsBQeLwTb0vLQhbQqXFx+NrF8tgsjdpH0sjVOYr/iLekhWEdDE v66YPZ3CGqd0u2PZisBPWzaX979JfFVELkSnowAEdngdsBmbxPwnrn0O8CuA /KG22Pr2SfzY/1tNpnIBDNy64Xv/9SQ2XA3+6laTD4cfu5u23pzE9uacIwo1 efA+tonrKWUCd3ofjjCeyQFjk23+vQ0TWKPb6sal7BxY2q+3drhwAh8RWc9Z ss8B/pwP833ECTx4UPWaCksO2NSw4eNqE9jrdTPvkHQ2sM/oOM6Uj+Mrehel oguywPX8efE7WeN4eaSeJ8onCz7Gik3Ox4zjOnGpbk6jLGjXZrrwxWkcf9Nr OmPLkgWEmmLBv9LjWMNSfi7F4jWwxPE17X07hsM5hXQyTmeC03cml5RXY9jC ++XuWO5MoGt/PiYaNoZ/XhbeWFzMgGaW9zFHH4wx4tmzUvM6A3weu9w7d2wM HytZc+kQzoB/2mM8hm9Gsc7vkM/h+9LhYc771rHYUTzxOeHYIaZ0mGIpcbtJ GMXnZI2+bp1Ng/qaYLqV1SiuvZGzUZuVBu4SipVOoqP4g4R9KD6dBn9YUm9F pozgfJvrMZYmqbBcY1VIihvGT09cbr9dngx9ffD2q/8w9le0uxdOSIaiBf6i nU7DmPDtvr+SYTLc5+8svnF1GNMHWap2/UkC6mPJsg9sw3jfDRs5Z/UkIEms 1Gw8HcKPi5Sv1H5LhFxlcu0BmyFc8OabjmRHIgQa5tSpGgxhK++AJLa0RFD1 N2kIkh7CTycyeL9dS4SqmYamXYuD+MQ7yvrDygR4HRfYccJ0EFf5/rIVjIsH n0Lzzqtag5ikbjXu4xQPt1vluxzlBrGQIt8tpBsPe3/8113FN4j7i11Sa7ni IULnGlmdNICpFidHwoPjwINVcNgMBnBiQcYQNSoW9B3z6KEH+jGzb7ug0Wg0 fBqOEWfh7sfKsmvJFxqjwVPhuZ3bRh9ub9PkdXgTDVms+j+tx/qwqM6C2SPn aFiN+7tZOboPM3MMCrDzR0NS7TXR71v7cMoOtqrTFlEgJaJw1+YXBQ+cXxn0 uBwFrf5H8qboFFxUfUrgt2wULOmsSXdhCqaapfN7c0aBMjVTJfMZBW/0p+R2 VEUCnXXV3OALGTeJFt8eFooEV9vZ192TZOxd3HR9nT0Stvd2L6h0k3Gd7FXN SysRIBuf5nAyh4xTfv5JtuqLgMCjl7zZLMn4/A1/QW9iBBi8UkBPCnpxesEP LSbmCKBLBdUrupNwTpOHO94WDi1ir5v9TEi4105hamj9BWTuw+1d8iSsMJv9 yHz2Bdzh/N1343c3nrgxNSxQ+ALo8zbzT5y7MYejWheL5gugvdLkKbTvwgbj ueFP/MOgKebOruUrXZhnmsuQ+WEYpIc8F1Q42YXHWqwMGwzCwMKt8lDn5058 ZGBXeLt4GMzqi5+bs+3EbYNatO29oTDLyWaxz6oDf49KMeQ/FApNmw/dtVLr wKxHVpg8uUMh/Y+SXb5oB87OWPHkXgsBi48uzvKz7fhaY05DcV8IzDbPEw1u teMx/4c/Pvky2K2tJOxGG+55/b3ny+dgoH4ksP7TbsU88y2dNlNESDJwT/c7 2oq/F5iV6ZCIYNTioMSxtRW/vCN/zKyWCOQU06e7GlvwoMyV1O+JRKg3kP58 TLoFP7eUkV69QYTElskBo93NuJHf67XMdBAYSPc7TH1vwo+jTLn8yEHAm9rO dae3CRvmHl9fwUEQ+KxE81FgE76xetDr8usgcJEOqvX/g/EJF7bltAdBoJcq k/luqhGXGKXa9LIEAQ/XUSRX04jPPvxirb0aCF3P9k/VxTXiL32ZCf8tBoKK IYdAx9VGzPpOdSq0PxDMhRr5G/wbsMud730GmYEguLp7XkCnDus8fN0wfikQ Ivo3iRzaWodDOc2/GqJAYHv7n/HJxlqMfFHKd9lA+GXV1KMuXYuLNk9O+BwM hP7+B+WPd9fgRo1zVRxrARDytsW/e6oSb+E6khlfHAAOc4rVIUmV+Mnk+k7P nAAwEK5Yumxcict8P0i5pwWASHCOIWmwAt8lDHE2RQRAuXWYRE93OT7Tl5rk 4BgAM8JGpN7qUlw18ifv0vkAaNWjbAp3LcXTHwktRTIBkBusJXtVthR3Sf/a e0IyAJ78VkghF5dggaxtZ++LBADHoIgDJfsdxju61v6wBYBMyCJff2wRNj4X kmU0QYA9zXcuRukVYbcjxEnxYQL8/T3pcX1HEbYvnj7N3UeAyN5U0pu9b3FF UgXTvnYC1BJsHXLYC/D1SL+nKmUEIPw0HZPwz8eNnZVbm4oIcM3iimouUz72 ti1QNswnwJyizK68lVz8ubTQoymDALzLG5X5H7Kxh2BvfWIUASYsvoqcMM/G vZXT59+/IEAWeZZYMPEGRy3KM20NIYBCfptpYX8WxiXs0u1+BLC2jGAqwpm4 9M8il6YLAaQovvekFDMxq8SdBCEnAqyBc19RZQZ2+CQnsMWBAOGCJpnFb9Px yJROD/99AlRTDmmWJKfiYVZbiTO3GeMXpHWQ9qbiRduikVozAnjwKsaST6fg /q6w+0YmjPi8pJLkjyfjh41LB7oMCECUPZrySDwJX/Swk03XI0DYZ9H0zEMv sc0Z912hugSIM+HP5hJOwM8nsMArHQIk7eDNU90Tj51z6k61XCZAagdHoeuu OJzVO7KxoUWA7LN/S2a3x+D7o1Yv8y8QIH9ppZyfIxpPH7tjKaJBgOLX36ou b4nCbUHxXTlqDP07PzSU/w3HcedE7ZYRAdxj6vyHl1/g1ui2pEplAvhvLg5G S6H4pKfCzRdKDH0OmRF5c8G4tPt0wVMgQOx0XNyu6SAsyxpPcFEkQIp2cLLX cABmTg6eD1Rg6KnxzFjo9cdXq+6SCs4ToEjicc71dl+cT647MydPgKo4q7d1 jd6Yd9RgnzSDfbe9s73y2AtLXzvtH3GOANHz8c6ils+wfCrRhoXBWc1ePivX XXAzX/d7ohwBKlKsw7rUHLG43atXhxgcvpIoo3T/IT6pM71EOUuAkrc2l+cv W+M/WzPLIxmc12vXvs/MFKcdO7dszeAZL56vk8qaONTlYK4Og48qOZhvdpBC 4d8EBy8y2H+6MfurkR5y/sHnbMTg1IpIBbKWBUrZIR/qxmCPfy2HxO/Zohc8 i4JFDC7IeLalUdUBHT7duP83g5Paov8s6j5BqzWBSfoMfcTFgiV+i6dIVO9S ZCuDn3K3zao6eCAvWQ3mi4z4SvfYL55tfI5O1C19nmZwXp77B1KbD5J4/s2A yMhPumLQtGWvHxLOllbSZOQzsTdm9PcQAa3r92TvYeQ7wjy9/8VUICpU54/9 y+DAH4Wkw3NEpCAZz77C8MeFn7F3L4ehBXG/sIMMfyv0Pk06eoYjypa9WfoM /0uSv46BTwR6F4uuJqkQIPfkxsBAUBSiftiwvaPOyL/r5r6U0GhkW+hJ+8Co p3TM3msbEYN6kq3+umkSIOH67g6mhDikIZJzYuYSw78kofddSfGonPfdpSJt hj8fDjbHpiYgWy6P/dFXGPpcTtYdz36JtIgif2OvE8D5pWaxUUUKit+XpEA0 JUBnLHaJs0lFUrridyVvEWBseirWZzkVRet8+LtgToBVhz2DRtzpyCZe4OWb uwSQjQ27xqqaiUINmJMUGetXfTrP/mtvJnoXGqz6irG+9cQ7XoybvkaXI9pz dz8jgGP15p5i5yyU9y93XseHUZ9Trlo3c7PRpnOOrlMRBGgUi7138WwOYjpX 4vo3hgC99iWBMi05KCu4MUU2kQBLzEvvOaZy0WLJzqQv6QQ4JmapWsFbgL4u 8Sz7M/az/ooj+wJri1CIz3sf3WkCGJuWFWwwF6Plj9q263QCzDKpKTpeLEas t+MDGj4R4PtFc9ObQ8VoQNarJOIXAXgmXibKfH2HBNLDdtlwB4AOEy8/VbQM uYfz3/mqHgBDmSlZBrZlSHYjv+esdgCYXZSU7S4qQ8e/do8l6AWAXeQl/QrF clT7UFq50DIAgg8RokINK9CTNk3pvb4B0K65xi0fXIViSivf7GsLgNmItcw/ 3VWId70iwqc3ANbG1s7VcFUjHn039G84ACQfrFsqRFYjX31rM9WFAIiO2KiA hBrU72sS+JuTcR6O/bul+qYOffdLoMneCAQ3UablzQt16E6gn5OMZSBE2zER W47Wo4yx4LTLDwKh/S9TqXphPRqtydcleQeCpCgzm2ZZA2I6tla9Mz8QNs4w G2VRG9FxLn2tftYgIBr7pBOYMSKvcLYTeYNgtxfzZ2tRjNjPDgrdEg4CqXZm HzErjCJnnRZungmCO8ab87M/YjRF/vm0wToIOj1ZmPK+NCHWK6E3JXqDILZt S/bbjRbEautDpVYQ4cKTAuNrIq1IInqzz3g7EVYP6m3/odaK/KTVljdGiWDs mfZYNqQVde3xcKpfJ8L+MwqKdYLvkcW57wtn1IIhO92hr/NsGzrLrq2tMh4M N64K+NuZtCGm8LqW/5aCgeNv/Vkurzb0V4xprYU5BB7c4Ey+9p7BfhybmI6F gDTPm7sjeu3oUr63fK5HCNR4TKx/cOhAQrlH5USOh4LdMd+3ATEdiN/qcHuf SijsG5WwkKjqQGz6+zkrb4TCcxmXNjumTvRbq8Bgf2AoqC3yRv4I60Shw4Ek u/lQ6DG6ILYpvwulNm62tC4Kg5nT764JzZHQKRzSlXQ2HEQ1ZD352XtQpjP5 o5lGOFgbVefuON6Dhj5aZijph8Nn96bN7I97kJAakd/aMRz+tPaVLW/0INFH /yldKA4HjvzfIfMcZOS9O4GScjoCjpedF7USIqO3gl8uvlCLAO16j6rZE2S0 Erf/fqZ+BISTN81NXiUjXacd3Mg1AviX2ZUGYsmo1l9tSbshAg6B4LfGgxSU yL/JhUM/EjQumDIuHRSkpWX+77lNJNy9+kq4Vp2CZNrmDUXdIyHX4qBWhQ0F GZUHSn3OiIRTAUczCgopKO+MByVtORKALK+fKN+HnHYoqv5KiwIjC5MqR91+ 9Mb6kPWkSAy8GvjN02LRj0yDPSOY5GOArhFvw+fYj+IqSl2NdGPA/tggf1lU PzpTWBGX7RsDQT91nH8N9CN7oS9qox9joJqgcvqp4QASHeMtX6uLBabfM8SO uwNo42VyQ8FoLGjc95rd4zqAbisK9yQvx0LfldqI6vgBJNITFiEvGQefBGS/ ro0OIFbfz7pP0+Ngb55EgafpIHrVii5lM95nFsLtLL12gyhe58K+0Ip4yH5h bbrfYxBdZztgUTMcDzJOGdsakwdRM9H80YpAAlxWFLbdND2IhGXiU1lSEsC9 l0fMz3wIzenW/pGpToSpHyupQdbDSNLdPTTjdDKU5+bky7sOIx3Ht3kHLJIh zNykcjFoGJ26ofdyT0QyKPXW92oXDKNAsR4N/6/JkJrr/5f35zBiixxJdCh7 BRbmO00TvUfQ+y5x3YjjqSAv0Hr3UtQI+lWo6MinmQo7ep0d1zNH0P7bYRU0 y1RoVhgj3mwfQZQAgxrbpFQ4JJBWdZB7FAl5/Nshx5sG8z2S/HlJoyit9llx B0c6NPrPHDQtHEVtdeb7I4+lQ7xCpOT2xlHEfZ30t/JyOmjmLqs/oo0i+ZPv dMXC0yHXv9bp9NExdGMp8kL+3gywU9Dqq6kYQ3WM6k3UyAS1H2uTdh1jqOPq e78fDzJBKLdgQXh8DLl45lQ3xWQCiZ930/O/Y2hwg9Oqcy4TJH8Mn1RTH0ck h8dbi8Jew9ccq9DuvnH089eeQNeVLPjc4Wh8lTaOrvw7oEwVfQOfFrzFBn6M oyWBf6+7rr4BmsQrPM43gUbFOIuP57+BoZyh5U8GE2j40Bny9XvZUJtz4Sb7 +ATqEktM/PI3B6o69I+FLk6gzq1JXCYyuVC+YLnKsz6Bkks0fW1sc+GtxPNI AeFJVHM3J+vxSC6k51S+F7s1iYjGD24SavMgMEfipAZtEnlNiR6fzioA/46z 6x0/JpEJqzMpcr4AfBbUO7RZptARtvo8XolCeCZhYal/eArdogYMuhcWwsOc xLg7d6eQwokjGmbNb0EvZxuT7+IUoh079HIrZzFc69hD2rI+hQxpPOXOp4tB Z0Eskcg5jULIbI5WJsVwQUJNJvLENPrD6y3akV8M8jnuNmmPptGbm4Pzk/rv QCTnM7nhxzRKuiCss9xUAiWKT06sbppBzlfKHK99L4GhLMfHPBwzSPVnwqrG wVIQemq/riw4g842PLy/xa8UsoVtedLlZ5DZB849O66UQYO1mdydZzPodtgG UY21AmZ7TTzcfWdQ5ckH/+SUKoDlnHFTdPAMOhIt+2fhaQVobTO83PpyBp0R ia8nfquAobdXbx+pnUGkylk7tk+V8HlVNfDj+gwqLxvbu7apBngsVEhMrFQU J5SlTNKsAeku5R17tlPRNrVv0c/Da8A1WTHpojAVfbtZ/zjqYC2wqJwtylWk IuW2ucjMa3UgFHx0xM6Tiuq6etkOTDaA0k9xYX8CFbHLv5Ny3dMIFmZiFslh VFTjHXp2Wq0Rsk8e+o/0iooetrn8PZbcCKcHhJlONlBRpIbOvu7rGLSEecW/ /aOizYJ5AuqjTVAuvqetim0WJZw+pRLB0wwHZUSsfXhnUQVN+9RjzWb4o3Uq c6foLOqXJHh+rmqGXNdrB2Q1ZhHf+ZWIpIwW4BiIEHgWMovCYy6nv3vxHjqJ O9hZ99BQB9uZGMjtZNyvBLNJIjRUUbLEO/lfJ6SnHbwQe5SGkLOe9c2TXeBW Ke0vpkBDWoZ8ZWMlXXB0TneT1i0aYj5lHGhS1Q2x34xTd9jQkNT18/plv7uB ecNCadyehkp1tx8nniPB2E5HDzsfGqrZEalrW0ECIor6HfaahqguvbuMc3vg 1+WX8YaFNET4e1ONTu8BC6OMswcqaEhdjfvFg329IP+o5ElxOw09OPVkh0JY L2S51fC5UWjIN6Hzwe2WXthBaC5RGaOhBQG6osrvXviU1P+tf5GGVP+VXvE8 SQaD7PHwpJ805HQu6MrYBTI0ldBOWm3Q0MdFDV+nW2RI7Pzx4BcXHbmi3mXV EDJsGVrjbOCno2d86S330sjwmLo5P+AAHZX95/+jsIwMWqs7PwlI09Fm28sJ buNk0JTrXNCSpyM+KbDvXSSDhuvzBXcVOpITPbr94hoZ1CplFwq16Ej7gcaN WXYKqK7+93FGl44+KYFbLD8FVOQyPu4woaOeSPah24cooOx646OaJR0Vexfu VpSiAFRyf3S+T0fcb3pPiJ2ngMJq63y2Ix1ZHeEy2qtOAXk59/mxZ3SU+kvq wG4dCsi5Ss9z+tHRJvO9FnwGFJCt/DgHIXR0qsxTe6cZBc6svpqzj6aji0WX bHgsKSAjpz+XnkRHym4j4ew2FJB23TY3kElHVyw7/q3fp4BUJf6wpYCO7FLi Li48pIDkqssHuTI6sm+dvEWyp8DLDO3//08hJr63+VIOFPgf7reGSg== "]], LineBox[CompressedData[" 1:eJwVy3c8FI7/wHGErKISlYyUkXbfQtGbd4MiUkqfjyT7KBlZF9KFSlZUNIzI yAyVESWirIwTJStx5w7HcXduqPT7/P54PV5/PTc4eZ9yFRESEhr5r/9/kG2N 42gzBTt2XldT8SWDFt+KIvSVgonDGLrEiwya+kspu4cpSIu5mlVzkQybiO/G XMYpaKIxI3zZjQzqVX5jyTMUXP15Yf1aRzKo8TePNXMpON3m2VtvSwYV/ZHR hUUKWs1/d/WwJsN6YvLo1qVU7HMqc1hpToZ1VcdH7WWpeO3+bPF7JMNavsho giIVzwYXR/nrkWGN/pufH1SpGMqwCN2zlQwKRO+fHC0qpjUHOy5RI8NK/sDI P/pUfNOj0j0sSgY5/Xsj0cZUnIw568eZ74LlxKMjb49S0bL+kM6W8S6Q5r/+ ofYvFRXI54rkGrtASv/Sj1OOVLy+15jQWtYFEsQNPyI9qJj0bG55TXoXiPLj hulXqVhY3sT7J7ALRPQPD68L/88bHQxb6dgFQsSFoePRVFTJy/FTMu+CPzy3 odInVBxweXB5r3IXcHlGg8QaKp7o7/aJ8O8Ejh53oKCBirmLieJ2xp3ACioa GGyj4rmDJ9YdkO4EJm/NgPEgFVvUJaYs0juAzpv7LvGHin6vRU+vrWmH77ys b49gHFNSt5wz628DtX7nXSGm41jkGGjh8bAN3N9ujDlvNY4mg9r1x063AZeU BepO43j0cEXqjfZWkJfKyim8OY7zpl+CFN63gOX6Z361n8dxZe658ornTZC8 6Nie0TuOdFNuH8e1CYZGNmhFDI/jovg+sbhNTeCZk9lvOjuOc+OHXceefYI7 2zORvIqGfkIrv9dkf4RG4wxZii0NvQeC9ubXNYD0RgePT840zLhlmJZ7qwFO iak15HnS8MgGc/V9Fg3ws+Vp4OUwGiZWO+7aOPgBFk89HeJm0jBKvtRLW/gD 7HNNL5ScoGFX8ajWWfc6IJnaizHmaFiVkv6Oq1cHzZtVLnQs0LA252LTDok6 sJlJW3lfho4rJiydv55+D/5BaVfX76RjjT9Bf3DqHby4k2q6I4iOEh9D5K2t aiAqQ0ok5DodGdErBBzxGnCsJL79dJuOcbsljcJrq0GeenqX/SM6ylz96nxm ZzUEGy9TintDxxd9TsJPVN6AKe/azOQvOvZRVjj4bqwEteWMPF3RCXT1/sx5 RquAhU22zuEyE6j9aoPLo6IKeHFKt2+t8gS+uBrHa9SvAPkXM/VHYQKfB03k jPxbDiMuF5JySRO4BIaXL3v3CqpD2k+woibwVcHGKLvYV3D/noEUJE6gnoa1 pZndKzCpU7zemzmB3Z/HV/D/vIQipS530YYJ/Hn0Oc/h6Eu42m1s6CQ2idLD e+wyeKVwauIFt3jZJHaWdmYPdpbCViHlMsHqSQxT4Rk/zCuFkW0CjUTNSTzr F21JOlcKJnfKZOtMJ3H87cja0bgSWGmsPqYcPYlBnqKECtdikCtd+tvo3iRW qp09W6hRDMvVpuWdnkwi/Xeiu+N4EUgJVZnkFkyid0DoLvGLRSBSZ1GwvW0S xTV3np+4Wghso6u+RjJT6Lnv257pN/nAKrGPdpSfQtqfR4yPkfkwq3o4K2L9 FJYVJyvss8oHxt/lvU1bp/CXduuxcXoeUN5n61tZTGGkqE2e+oY86DHq+usQ P4W7XcXNfQpzobukfE1E8hSqbUrdLnI9F7pUU3blpE9h67d2RTnrXPj819V5 4sUUlnattXn8Owc+vv/1ybdzCmPivjjtOZMDFUZa8eFyDHQ/x0nUU8qGh0Zh 67PvMVDTUk51YjYThk9evhuYwsD6bX0PIjsyQdPFTuRYNgNXkcerrhdlwuuo /fTpcga2/HbovuuRCV1k7iu97wzsrvs8xKZlgJSLt3mb6jSal0vEkSaewslA +9o07Wlk+jKeR5U8hUdRFrt8dk0jVe9Qq07gU9As3qK4+tA0ytc/l9or9hQO cWmj9m7TWL41OFRHJx1CoxyCWUXTKNGqOCuIS4WGJyemG8unEVdu3/neLhWk isHhYe007v62z0t4ayo8Jq83MeyaRqF8pQRuWwpUrPu+4hZ7Go+9velNXJEC zKKT+Wv3z6B8iMOtpLLH4EQ+2GfcNINLDsluUTrwEAzXjBSGds6gjkzla1B6 CKsvXLte9W0G35nwKgsFydDMqNTcSZ9Bc4Iyx74yGbZJbAtQlWTi8YoXZ+V1 k4EPiisXzZgoWWDRt8o4Cbpvvqbus2bi9uLkMT/1JCj8fPJNwDkmXo6OfblC LAnsbWMdpi8x8b7fUiHRtgfQGCBcMhjLxL9n1O+W/fsA7hZNmdd0MLGdl9ea d+M+uLOjVHlfmeima7AihXAfDu7XZO/+wcQSgltSvcV94DQ5PClgMvG3bdXe /HX3oXjuIue4xCw+OCqw6Km4B6uWjRw03DyLAXb4VYefCMOHWn+suzSLMpqk 78UpCeBdlcZN8J7F8geCsqibCSC0zXfZUv9ZjOxlaCV4J8BGhTUG7NBZ7Ni8 V2Hj4QRwp7smt8XPYkntD9qj4bvAihW2CH05izcUKJIpT+JB/Kt+9ZBgFstm bxukmcXCQzMZsvXiLIYadXpStWJB+/0PWovIHG7/Eu/gJRYL5nm3VldIz+Eb Uqq8cX0MJAT3+MQrz2FlVt0bskEMrFP10TLCOZTj31m/1TAatrs/f5ARNYde 0pSfS9yi4NSdin7huDl8fJBeTjaLgoCCj2rOiXO4r9Wgv31HFLxljBVpPJnD pG83/U4s3AYzX7WPBYVzqKNn1uiZeBvcgh/Pv+6YQ3oNDaubbkF6bIxNizwL /93RTtE6dRM+FD9J1VnLQjXXl4mShjeB2pE/GqPMQjuSqt9yzZuwdUWzl6Um CzedqysgLURCdZLo7S96LFzj1sFfzI6Er+nXKodsWXhxUP6zhlAkyJZ5r2Fl sJD3K9PpTHs4hDJ6l0vksPCpi1GU9dtwoGsZiqnks/BCq9oFj8Jw+JAuwTpW xsJEtq7vwJ1w8I/NbMusZ+Hau9Y+Pabh0E/4EnZylIUcIyOX+aYbkK2iRy3d yEa1eGPR0W8kkLNNG/ikxUb/liyDqBYSXEta0j24hY2vkoRtsIYENjJdtRJ7 2Fi4zqBkKp0EkgvujxwOs3FOZ8JZmUACr94n5nKubPz5u5L4cv466Mculnnn sjH0HMf/0/kwaHnk0TtUwMZTxVJqpofCwDanh29ewkZ1cvajKe0wuFZbYKRd xUanZOXZdM41+DBr0z7SwsZm+oxJXtw1MD9TQj85zcau7n96ZT+Fgr2Kg+qe PRxs6DY0fWoZAkydtoPP9DloGTx9RVM/BEh6um5yBziYMRxm3bohBLKsZIoZ RziopCHmTZgPBnp41f6csxysdj7aPJcWDL40ORuFEA4258avUuFchcjS+lh+ PQfLhFS5Ga+IYP8twkHpEwf37075U5RJBP3FI3uglYM0OebJ9rtEmDZvHYjo 5uDTX2xXM08i2NC6dWTHOHi6QGRytyYRNqtQmjVE5zHW2yQhKy0IOmLExaxN 5nHGZKDc6Ekg5L1s7gswm8feI0vepUUHQvj36KJHlvO432kmTSYkEPS0ZE8P 28zjM6JNzHq7QMj4oJjlQZhHTlvvFRHVQLgi0EZS1DxqZu5hk58HgCLB/Fpx 6zzWRlYJUxr9IXL/MVJNxzxekr7xPaDSH2aXmUa0dM9jo3uc0eoCf2h9ffAO tX8eC12aPUPv+kOoyP4k5al5vHFE5MSkrT+MpGkXx0lzMWJismQPxw/ye8SG Lh/nosVP75plO/1AIW/JSIgVFxMZL4Z2bPKD8BDhsTunueiTqEs8v8YP7NT/ 0HPsuNhf6dDfL+QHy304nCFPLpJ+SlbYdV+BK9JjMpZxXOw5/G2HT9AVMDhY Z7i9g4uu4x28gBZf+Dz+wfNBNxd5PXWaS2t9wT7mY+rCVy7S93X0ZL30BVJP 6+9PP7hovnfI+2+KLzS69b69MMfFxg11rAPevnA8ZtIwUZ6HitKGEm2K//ke +QMcWx7GOhHs6n18INzN40A1jYfVKjPa8WFeYKfRoNw7xcOKrEn5tsteoEtZ v8hk8hBUdl9ROO8FU45dtRp8HjJCTA70GXjB6fN6xokSfGSaBRwSX7gMmqfF Drlv5mMEX6LjD/EytGDmUYVLfNROi705TfIEOeXv1ldm+Ej9K2JdUH4RqGYf Li1l85GVZWhLzL0I1cTCiFQeHyMdV7GsH14El55rrz4JCbDZSOje/65ehMoY 9VVKqwSYLBTz+d6Bi2C/cKm7QU+Akh8UzBuaPaDo26LV6hsCzJRiaobT3eGG GN294KYA55Y17aX0u4PN/8gko2gBim/w4Zxsdwehu1mlHvcFeGK0z8zqpTtY mxyVq80RoHHGlrGvoe6w8Dqx061VgNY2EwZC8u7QORpM+9UhQJ0MB1nFpe6Q LefyN+GLAJtayur1Fwhg6am7o2ZQgN76OompIwR4tnEgXpYpwB2PwyIoxQQI OtmYm80W4LlnMG+VSYDj14tr9/EFeEHDmNL0gADc/uszzsILuOU5Uao3hABt Eh7iArEFtHdX0rnkTYAM3VMq8VILyCB3PJR2JoC/i4HuRtkFbN7CMK2wIcCx e5ssq1YtoI/k5PZLZgT4P1DzDAk= "]]}, Annotation[#, "Charting`Private`Tag$19691#2"]& ], {}}, {{}, {}, {}, {}}}, {}, {}}, InsetBox[ TemplateBox[{ StyleBox["\"Re(n)-1\"", FontSize -> 14, StripOnInput -> False],StyleBox[ "\"Im(n)\"", FontSize -> 14, StripOnInput -> False]}, "LineLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Large]], {}}}, 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], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 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]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.99, 0.99}], ImageScaled[{1, 1}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox[ StyleBox[ "\"(\[Omega]-\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \ \\(c\\)]\\))/2\[Pi]\"", FontSize -> 14, StripOnInput -> False], TraditionalForm], FormBox["\"\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-7000000000, 7000000000}, {-2.343767906642924*^-6, 4.158593961063137*^-6}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Large]], Line[CompressedData[" 1:eJwd1Xs0VPsXAPBRqol7byKP3kKW/DAqSqUuJTElpZeKGq9f6iZE6kalLiIS M4XKc5KGpoyRjME2M4ca6TEoKZLH3BrPJJXR6549f5x11mftffZ3f/dZ53sW +AZ7BEygUCgl5IV3V6bJZoHOuJhCYWiO57LhSEPjpNxp6Oirw/lsYKqfqT6v ieb9UHDY0B7xymLXRHSI21semb83WfPLiJK0g3W3iA0skzHp0iZ09NK1XWx4 c79hXXEK2vpnuPENCG07uqLgd7SoZezODYhoS+qJ//iV9BZhhzIflrp2Hv9T 8YW0Yd/mfQWwn+my2lz+GZ8vWT5yCxi+uyvFb9Eh2deUpJccWrG7DW14YYIa BxhNibbxTap4aNc00trPLN+J0J067ZYc8GXumMfOQmvtqz/EAX+m76+Zu9C5 W28rOBDIjBJPfTSK8Zruz4Uw32XZpYE6lXPn/CyElh8fvJ6J0ZRlXpOLwOmg 39jlCvRwxoBeERg60GmGhWjr9x52RdA6qJ+1LB7NM1oVVQSurqUn/JzRuW9u UW+DOaWPVi35RFq24awtF6rk2bINgGYML3bggnv9ttCmClU8pJ/OhXBmNf89 Dy1a+DeDC2CSaqudg065Tknigoer3aoDkWiHpno5F04y45yn26CtPa5l3YF6 E2PvgJsj+H6WGdGK4ZFX5lP1PPSWtTR70pd1HfIz0bkmLq6k1anGPSx0yJ0s P9LyAQXjnMoZrzKK4XH+/XCv/WhqdeMEHshM6EnbZqLNDpwKJ+1F/BiZofLk pkjSl+2DmVro1ruW//CgUZ3m0TgFzVg/nsqDJrmOgfuXj6QFN3qLefA8/80N ejNatMF8kAcvTUIrHS+iA+2ig0ogeS0ryiIBPfxp1bEScGaUrdaPRUsn/Yoq gXvXlTUDUWjF9utJJZCifa42/TCaKrHkloALhfVkcCNaNosYKAFh2723VzVU 6939EcaHUGVLbsxkNGNDRRQfzPSVPsETVPGcU7F8SPNYLXcaH8b6YsN0PoTV 1yk+9KJbFzcJ+WBR3vJxfT3aetngxFLIYo5NHDmPHl7un1UK1m91M2L+UeWL zDilIPnfUgv9M+h4tpJfCoraoO32EWhOjUhaCku+dufH+avqXXk3WgoP9j5Z P9tRVe8h2/0edLg6TUsY/YD7aTk2rQwm9pxefrcfHV82NLsMzKIq9jd3owN5 EWZlcPSuFW9uo8re9xzLYIrOzK38O2hP997wMrBuH2S2/R9t8MG9owzOHknX s3o1hP380VB9H2Y0G3f0ytDUfp+G+1CwnHfzphSd0UV9dR8eU+pt5grQvKjz o/fBgDXu8Vs6+sTvdItyKC73vtS3HU0ZU2aXwxuKCfWWbBC/Z35pqgBCAnjP fKVoRe6pPAFMeGSfPk+kitfvKRGAGWuHaVox2sDCvVEA4QvPO8Umo1PUjbUr QJPeF+23Cd2qdzG9AlaweMr50gE8D9J1+ULgZNf5ThKhGcKZtULQK3rd0Feu svXSFiGMiNSzy26hFYyCcSFwhzzXbjyPbpVccqqEeXS1xAhndEZIVHslqKt5 zHlS24/5YZpzq+HZkU9rTor7cF5x8rc1MPryp1uxAM1IXKesgVmOGt7yYrTh 33unisBfZ0Hk5mx0SOyAkQiU5ZvLjSLR6hNO7xSBsVoRrcEGvYUxs0YEx1kM wzmcXtKbwuazxJD5/S/a1hy0dcqOXDFIAo6viUtDV3XG3hHDb3bJXsMx6JjD jQ/FkNdemVHrg+a5j30TQ8NC/elBs9FaFjE+EhhONjJka6MVT18FSUBvzJL2 cio6arreSQkwHjm5OY4pSHNbVzEl8PnI0QTdF+hhqYZYAvMFT9QgGa0u+6hH AH/AnJcQp4pbGRkS4Lwgft+O02hq87xFBBy+sLZyIAht9iRsJQG/IOegIAD9 PPDhWgKYn77rx3ijNz1/QydA4FUePtsN7d/hsoeAjakzjN87qfqhZfgQ0FEX 2si3R3uW5QQSoE6zsKJboG36G44RkO6X0K5ronJxXyQB5hnvLnTNRl9+WnaW gC1qee9PaKJ5+52SCOix/XnFaSI6cJVaKgERh/Y6aX17T/rxeu8rBEzNEYy0 jaBdvm+/SkBms27erT50Zp08kwAaNcw9rBud9JGaS4DEXvZjzWt0raCaTcCO UEuuRhM62v5XPgGKmxf2tNSjY+LqCwiIfP2eyhajh+MNOAT8MW19eVAFWmue gnTeOnbAihL0CapNIQE2J37pTCpES0e+kvGHXC+JLBctC6aR3tNVEZKZgc4f f0HWH9TVnx+Ygk758o5cP5oe/mRpPNq/2JvsT+dMY+SvM6r97LbNIaCg1Mq8 4Tiao33wOgErFImtacFo665PaQQ8ntMb53tAlV8mI+e1f6uzrdV+tNeh8UQC RmJv9Ch3qtav/SuWgFghhVm3GS0Pn3+aAIMP3g6pzqp56GtFEHDbuHLIaw26 ytYuiIA1ngZZZsvQUc5MPwIak45tHLVE2xcb7CbAX9ykrFmIdqircyPg62ca J3Eu+t5TliMBF8wv7tyli1ZMPGVDAI+1oXRIHS1KS9AnYJ0030f4/R3u3zJv CgEt39W04kbRngFVXyTwPaDq8Fw5urXr30YJXLo2c3ZvG9reRlEtAaNnEfX3 mtE2Li0cCbjYLTbdRKDl77wjJdB2OPm5fiVamtnvK4Ejef3nevjowBA3Vwlc 1ih4e5KN5uyM0JZAZ/usq4Vn0RamoitiMA8+Mlh7Ap3/0jtEDOFqEsfOYPTw mQOuYqCaHuzT24feHl/wRQQegqo1S3ao+o2VPRJBJl2L5bYJnSRxzxKBdXD5 qpiVaKfOlatFcFJNMyVnMTrcKltDBLWsfXKhGdqOnsitAU/BpIsf9dACdqEM 4Iza9o59n/7FeVYcH6oCKevWkpN9aMEijaAq0Db9FnelC53Sp6WohAI6m/b4 GZqyMaFZCE9Zw9EruOgt463RAphnetF4RgDa2rDiz1IIFHQep3mhDaf5XeAD n27zmL4NLTUIbiL//8Ft4Wcd0bKSBXt5ECRY9GBorqpeTXd+EVTRHwTWt8jx /LXK6bkOY55Cn24p2mHWxRdp8B/wYbA/ "]], Line[CompressedData[" 1:eJwd2Hk8lFsYB/BRErnVFEWiBi3aaM8dHCokReoioTBl0k0lWySlhbQL2clu 7MMYhnnf00TW7AlRWVKKFpJSl7rzvH/5fD+/c57nOec98w9V1pkDztNoNNpc CRoN/ion7y3rKhl4TKMlYt/kEBzA6U6p0AeLdB5WRqP0vpJo6W1gmmxcdhwa +cctMHQ52OB9/bokFKTdZ58+jXLVyMN0lHOWPDD8843YDPLS5wzUkhVtsn4U nPhJfVsmUlY5sLmsByyKVinORoUSFbKNBJVrNG3iok7mQwm5IvDI/SePuWjK w+/HwWxq/bvDewuQybtNb/qiwb2Dxw4WolNL6S9W3Ac3G9Z1FKJQm4+NJ4Op /S/KLXnoVV1q2bg3mL74pGERmiZ5mcs8DaZ5KJcUIQ29w+mXnKn924+t4CP3 /AWhMpbU+ltVv/hIOjzohMoGql+ll18J0mxgObA0wOvlPJ6VoH+k9K0yllI+ q6shQAk+Pww2zKH629jXCFBFwbOt3jOoejU1cqXo/VD+WuFkv9jcX2vtS9Gm wy6KRsPggJTZA6XIJsJwzs1+cHNwinoZutjEkGx6QfnnUccyVLP9xRebGrBj UkxLGfp8nv82/hGY7rlWSojkiu539xeDQyaWagvRkRWm1a5p4JGvx8KF6JrD CrIgjrLsMyxEmVHTeN/DqP5zXr4TosaW1xydW2CG092/CPRtljAh4Ao1L3tC i0BKhpHhlb7gRB+N/QTS9/e4Oess2KJvrRuBbn5Z4x3uQNX3Hs4gEFdD2vWF NTXf48ciAj13GnBaYk7lYakdBPoVIzp41IjKM5M+EojRFmfG0aXOd7/qD4GM Zvvu/LSJql/ImEeif42t/t64Brx+J8kgUcilDVrn1CibZmqSiC+YvZxYRNWP GWWSyITUKYucR51n8LshiV4+PrHPQwbcuzHVjERnqiIHzCXABs7TrUg07Wml 7+qffdCfucSORA+axuZIjYLpO347kEijTTW17z04sSfnKImEnfv+JnvBIyab 2CQyf+XfGNUJdguKOU6ivr7so57N4BD3YbE9372Y2FdDuVRTbOnhmXfXiCi/ cHUmUeyXLeozBeD1anksEml+Oyroz6f6838dIVH5xH0znAEOCLS1JZHV1KP+ 6Idg2qHnliR6L/H5nFckNX+1uzmJ/KSUZ++/R+U6zF0kmiNrmrz2OrV/dKM+ iZLm+myTvkTN+9/RrSTaLJ9e/8YbLNJrW0uiasU2p0enqXpnb6qRyFZl2o8Y NjXfsjsKJLq84ojqAWtq/8n74u8lv+Z28TpzMGP3w68E4miV7ZExpnLm/LcE atRe6C3aAjZYh2rE72lPY53mAsp8o2AC5e6bdJg1m7rPXPlzBDKwXD3+VpKa 57a7M4GOHw5aGv+tl/o+nwwIVHQGecq2gQ1arceEyCw8T+V9KJVr2+4WooBX d92S6GBac35TKarT52XXz6Ty3RL8UqRhmN/wZaoH5rulF1OKLBoMyuK6wHTy 4rFSlNRzNOx7GLi3/9CEAO2QzDLKkgI3ew0tEaBrZluz5n18BffBNnArRorz LzFcusAM9WqrYpTTXh2Ba8AWBx10ilGbw6GrJ9PAtL1VUsVoufsF+8oj4ACZ Cwl8VBVRPse35SX83r71thQhmV5zj97ibriPWadMechHR0fjWDo4sdJ+Mw+9 j1j5avABuJlkLeGhGjPari+eYFFwwddCFCQsUPq9EdzLsIsrRJKR8uWL87vg vDWvxwrQH7Mu+sGMF/D+/vbkcdHpzKrKrgiw46XliVz0WpJ3/kgQeOTP8G0u wsJbA87O4AAnAZuLLqzSE3iqU2btXcxFvyQTHUIfdsL5zeLo+Whc6JzXENlB /d6W9+eg1laUPxIIdlzIJXMQ94MCV86Tyjuco3PQSYW6gkMWVP7ZYn8O6nPX 5L+VBjN0l1Rko4ZVP4RTvu2Qf7fLy0JpkcG16+yfg0fjkzjoSp5TnYUpOCBM 6goHOVYyn3pogxNlQ1kctHjsY32pPFh0g76Mg+6b7282amiDXDWNk4H8Zyh1 HEbggKqJknRk5ZE9cIfxDPL20k+paKjjgYbkXHCv0Z3WVHRRN8D1/FQr5H5+ JakofYbVN3YXmOaTcTkVTUT+nm4QDjbw0lZIRXHEfvWvM8EijwW7UtDAjAkn 6y/NsH78siAJDay/gfUuNED/W+6F8ejJyrSKa3aUFZ7ciEepSx7XPGVSrtzo FI+O/fWz9dDPeqjHZ9Pj0cCgy6CXN5i2Rd0tDr1JMKHnuT0Fa5RvjkX9f0mz ljjXwv7yHS1RqO990Iw/ZpWQ8wLMwtHt/CeB9a8FYHWdxiBU1rLMhBefCDZP GTuFvGNNCmxKHm4Xe+BomCuuMflvLvNWKdjpqvt1HFEtxcmfeiJ2ovf4jzC8 yyvXdr9qpdi9iXUq4XhCzXL2mCGYocbfGY5tLya5b70NFn2ouxeOl27R1SOV qsCvf2s8wJzks61126qhXj3PIQIL/V9Ovj1bK7aBA9EThXs3Fe5XftcA/aXz tyZgdeOtFxVkGmE9n8dKwGybsqz5a8Gisa67CfjThfLpMu5gxrrQwQT8q7KV Pz4F7v2TFfMQz8r5eXtwVrPYdK++q4l4GVIaFam1QP05lX+SsPEu++toM9jx +hbFZHzcIkGFMAKPDArXJ+MslpppiQvlabKsZLzh+uqU3DywhWZJZTJGzUyr GGYrzJ/iej8F27DsSj0OPBPbreKaThpOaPtJf8ICi7TXWqXhAeMoF3kPsGPa 8Ok07LbmuQI/DNwsxUtOwze+mXt/bwPT2C6y6bgsaMcm34NtYq9fE9qXjhdn r8q9aP8cziOYl8zBLJUaySZXMIOY9YiDOffY9kv9qXyD6ksO3uyZIiuKB1us zliYiffqqfwr0QMOuKV8JxNfaKKvvObUDve7qONSFn499iPxBrtDbG5uv38O Ls7KzGH6gOmWvKQcfNfJTjB8g/Lz3MocrN+Em8xywQbOqnNycWJW4O9538CM fJmkXMxykrOPudwJ5+td0JSHBxs1FbLjXogd5dGXzsUjmc536lu7YX/O8Bke /lTrYWvxBkzH24N4eOjD5ZVtY+Dgr7lxPPxmVcLjbvmXYgv8a2p5uD2zfXzI GmxTOX15ESYydx2R6QZ3zvTtKcLBmau0jN+8gv43frGKcWDttsnaMXDn53K/ Ynzlg1GtmeRruJ+e6PBi7LeKddRqOdjk8NmqYnw6Myby2HHKtiWrS7Blpizt 6jBY8HX2eAlWzfzU/GisB97Hx5ybpZin57VuQqIX7s/OIKUUt6d7uNNngW3U K4SlWNnXbdJACdyrHvKxFHNU/qUnM8GdxxealeFH7MPax/zAFtHzpIW4v8nO /8JVMOe/wiVCLPm3bXn4LbBPuuoWITaVPbi3MhYckmTnJMTt+RaOKwiwY/zn YiH+qbgvDT0BJ5pmPBVi5StmQ9b1YBOWfK8QsyxNPa+/pOw5NZPAnyZ2Br+f BAv+SfyHwHTWjgbajD6xFfVDnQm88anB/EWzwY4vFc8R2CdeL263Cpg22RJF 4Fgp3T6n5WDGvP84BMZnmCvOrwMHT6YJCCy5Yxs3Sw9s88O1ncArs7eMlxuB R/wuDhDYVH4zs9sM7PJocpTAIe/WP5E9Au6s05AlMW+flswyNrW/rW4hidsF 68x1T1Prl5Srklj51upO14vgCe3ILSTW/6ahEhhEzTvdBZGYdXglK/4uWEPC 05jEgVXLM/gR1HyGRWYk5mgt+9iQANYuUrUk8dMotQ3v0sF0Wf4hEn+WUPX+ nQf26WAfITH95FLhwhKqv58Wi8Sb2lRoWo+o/mtmOpPYWk/ZaFc11W/0LZvE PulKNx2aqPOkVRwncezcRU3nOsCiH5FiYx8F+ZAeat7jtuL1fX0LDnEGqfs1 mXaMxJJ75BNEX6h6oiBHEq8smv+m8weYW/vajsSmKvM0Rv9Q82+UsCZxscai 6lLpfvh+qUxzEqttVmVfmQemm44Ykviu/qoZe5TAIyULmCT+ZbohVU4dbGKS sI7EbOu/d75cA05U8V9K4lan7f2pm8FRy9Lmkhid2n35lB44eIHMbwJn+exn bDUGa5+LHSLwwmuHHv02p/onmT8n8JV7TkeqD4JdsDwm8OeYE1P3HMHrW3pS CWybfjbO5gQ1Dz/pBoGrCnx1VN3BFiv3uorfH3m568N5cEB5814Cz2q7r+h3 m9rvoSl+v9490SU7H1D1bYfE77t/KMn6rwSqv5KxQIjLJArD4/PBoovJDkK8 YnbZJrYAzOkP1BLiUMXyVs3HYJvsxsky/K9WK13USuXPre+V4XZmV35wN5hb 72tZhncY95vvH6D6OdcuLMNKh7/e7h+nrCAILcV1N+fLzFj0Bu576Qm2AG+N UOI0qIJpxwPlBDg5SW1XxGpwostJsgSfF2wMXKkLtih3nVmC31Uwl40Ygm0G vDKK8YGmHRUCM7DLmWWGxXj1uwMSpg5ULmHtwccRo7aJ812o+i4NM/h42hRL v9sNHCL3LLwId8l5+LteATNk/Dk8fHN72M+7aeAAs63pBfj73tiog3lg7cfT VQowyyZlG6MEXOPEDuFi5hmeV0ENWFQ4tysPD8U9G302DG5uyp/KxKYTckOK GwfgPAappgnYRLvugykTLErXjYzFxj4BHy7sAAfw33ZH4Z0TH9/3HgDTxiX2 hWHdicpBjgeVP3uQdAlrTpx7q82n8j2r7e6h2BQz+P8G1NtXkxyC/gdvJuXv "]], Line[CompressedData[" 1:eJwd1nlUU+cSAPCIgogoqRs8ZUlBi/ieCC0VijCJtOKCVRCXii1EFgsVD8En EilKKi4oi7ihQMGQEJQQIGwhsoZcpCyKwYoKCEQJEi2bgCTgEx9z/7gn53dm vpn5bvLdmy/9w/YE6VAoFMnshZ+RPpWHXzeqNlMosqj29hSw1nqqKM/QjP3U 9HSgaW36GifRzC0G9/mwRNul/Mmpf9a0qqz/FALV6ZryMgM9qrniLobF7G3K qm1opdGbCTEs1Jb20g6iOWEnPIphnjaxR32KXF/M7y4FHacfelaeRSuCzKLL gMKe7t55Gc2V6JpI4JPmSLc4jay3Q7W1HCY19JfsSjTF6+iF+zDhONklJMj6 4X2LK2AsUtT1sgVNDTl2owJGNCZdjJfkfGcyUypBrXnfof+JzC/Ti6yGN473 Opx138zaTpkyUA2qSN+O0EVoqqnVvhpQappfKMzQsomN1rXQoeE/vw1oZm67 twxonQH2v29FixWqWBkEV1nF/+KJ/qnOrVgGkxw+WPqjKVOfFtQBBATcnncU nXwn6Js6OL/FauzNf9Esmd2hOlhmwBfknSfrn1mQUweHBv0/JyahTWRWTXXA a7U8yLpFzne/4l0d2F/nGX6bi/bcGWUjB3aE/xHjYvQ2vSJ3OcgOWMqmKsj9 iTj+cthlyvtvzUN0nKN+ihxSZg4/4raj9Q0e58uhW/mldWwPmpO6s14Oq4lX nKABtDIyrkMOoYKszq2j6BfOl4fkUHLxsMO6KbIf+yCFgOmQL5MMdQYwX/7p CwIu2WZtbluKZt/tsydAQT2cXmKKTt7kwCDAZJz24eYatLgl8kcC/NqVu9i2 6LjCsoME5JRz7/k4orX//hBIwHAqU8eVgVazXMMI+Daa9rPFdjT31k02AdG+ yrI5e9Dbsub9QUA9g2uk8kGzIq7GEbDQihnSEIBuVLpdIWCPLo24F4qm3LC4 SUDaQK9pfARaYWmbRsCrpjsnj51Br50bkUnAWpGfYvdFdHDCdBYBrCSLdV8n k/Um67MJKGf1xi5LRb/w6cwhYGbPne7JLDStiHGPAPdv/Rw7hGhp26dZJxpb XK0sQdudMM4l4OlUz7uMKjRzw/XZuOnLzB84D9Cep07eJSCgxjfTv5Wc526D gAAh11z7w3M0ZyiOT8DY2R4vayXaiSnnEvBdUGbegrfkPGORGQRwtvrqDr4n +7MLUglotDH3a51GMwS/ze7fyLBHKp6rxn6GRckE7B/OWHLdEM21vBBPQKbi l9CI5Wil6/B5AvqLzRoOmKPZN4diCDgRmXHK1A7duFl+nIDKg7/8PeOEtgu/ c5QAHRez9a82o5nXrWa/z6uUDKXAGy1dv2EvAQWX/ty6IZKst6XEjoA4roHO 7zFofdpDawIOl7OrGi6iaasKzAlY1r/X3vc2OU/Rs4UERDEWrUq8j04+oOmT w1bN6eF3H8n4iE2iHJSBfjdzOG/xfMZbttbBEoZln9nldxg/GcCQAVU8/3/0 a+i1byMdZLCYNrTMPw0dt/rGWhkYUKTuOUL0NoWKKgMd2Y9C2xa05/MXRC2M 00+F0w3/wf5RxxfWwlO64jMzCU3VrhZWw5PCMpPYFDSX0nyjGhQW6faCTDQj 9HxMNTz8HBTwtgDtyaXvq4YHtR8bwh+T6+Plc6pBQrdOOksdxPV79fyq4Bb9 jGn2NbQ45rd1ldDjdezKyXS0Xa3Hikr4KvBnne3ZpLPddSqhNM5ZPVRG5ute 6qwARdtkiWMHWnnTNaECDALDPFoshnAe+e6J+xAdx4waE6FHw/Y+kwKRtnuo vgzNMnV8IAWDfGDeqkEnj2wolUJqm6m7iwLNSQy4JgXJyo4vLoyj7b5/vFsK IyKv3H85D2N9VkZrOfi3ub1g/IWWvXftkoCLiTIv+jGaZc17JIHlfqdjpM/R yT4rZBJoHCz/yk6N5hyyFUhgvf76CIsFI/h72rSSJQEtGC+Z2YFmBT/Sl8AV 0T8ela1ou269LWUQPB5noXmGVtLp35WBm/NX41/3oqn959aXwcRfzDThCJl/ 13FFGeS//21ip/4o9nvtpC6FpYuUbi42aKpPalIp9Hzf3LvyKBmP8FKVQJg0 YzI5jIwf+rqjBCjrwxfNP4FWrqG1loDVCpNN49ForrGltASC1UEpLUmj5Hmv TiiBsYQ5P0YXk/FqcCoBvWdOFd1T6GT9f24Vw60dhm3eM2jZjFtSMayt7R1o 0nmP5+G84FwxeNy7sFyyEG1HuRxeDMlRT1lJZuhRdevs+3elBcuavpl0vrNO MdgG373BjUMzV9ufLII9lySdcxLRSpHqWBFECB/QAq6iZencoCKoGuwTrUlD c3+331cEO8JpD4R578nnT5lDERyJSv1Q2krGN9I/iCEzIX5/07IxvB+cedFi MCoKMxnjojljm10KIXqwfbG+AE1pXWJXCGprF13zXDRtaMiqEOSZ+mPbi9AM Qr6wEE4kZLVk1aFlIf1dBdD5699nvF6T+bVzzxRAtrljv9hqHPPZXk354JQw UxSWg6bBk1MiaLod0t4tRHNYc8NE4CN4qvUoJPOTXANFcLpGSF8rRSv9Hu4S gXx0/yNlE1pm7b1aBB77CtVeQ2jmwEdFHviaMy0cHCYwP+a4XR6cE9claOvQ nLlvdYXg+zyWuaoBTQvO/JQLTjNbHKCZ9NWDH3JhyKO5K/YJmmn8SpUL+wee rDPqQ1N2OtTngo25qnHNvA94P63exOZCa7yerrc76Zzd83PB+FeP0/nNaOXi pWb3YJObzMW2dRL7nzI4lwNnj4S4Vgxo0OolegKgmnV4Hx/WYr8AcwUf+nfI j84fR1MiFrfwoYKdF/unBq08MKeBD4FPT5c0UKaw38WRSj6Ux1suXbUUrfQY ussH3+mjTwhHNMU7dPa/juj5jOfyP9Cc7cHf8OEPXXWw8DyaOZNvy4f937Rx 6JfJepsmbfhAucIXh1wn67kn0fjg7b6NWiMgHfRyER+mS68+PtJM5muG1Tx4 /Dpq4GMrmub8s4oH2dTAz8l/k/1ULb082BW6cUPlS3Ke4OJnPOBZdSUZjZD1 JtLreRDpVZ+TPU7GwVTGg50x+TXfacl6vZmVPJjsjBkOmDON81rmFfOgRT9E b0oXzZE5FPCAu3GPeZIBmlEoy+XBicBNG62M0LLBXQIebL+2epd0KZoS2cvl wf8BUbQWvA== "]]}, "Charting`Private`Tag$19691#1"], Annotation[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]], Line[CompressedData[" 1:eJwVzXc8FI7/B3BKpWjZQjK6r0SnJJ9S75ARFVFKpZLsvTKyiTSIOyGhzNJA Ecp8W9ndURpGpTvjnHO4Mxs/vz/ej/fj+Xi9Hu+3nI2Hud0KHh6e78vz/9uI pGhSIbyIY6YTxsHGDuDeTl31eOMizop6SwdYOACJL6z6psAi/qYKiQZbO0C/ 31eVsysX8d5Abnq633L/QrzA7PQCagplsrRzHICsON+i3r2AnWXx67f+dYCB svYjRQkLWCvxjsfxnSN49Xnvz1+/gGdlueUnTZ3B+4hUo8baBTyjdup+9cVl P28waeJbQCM3fto+12UHidjSluZRacefjaa3li1VFi/PmMfCCCNt8cZlX1j4 ldk8j+d594DIQRfw7QuLTwmbxzeRz02J+1zBr+/ur9ipOZS8sCT3+ow7qO4Y rL46MYenGXECdxzcgeZHTIWxObQipz71DnAHc6Hu45wfcxh2pFXXPc0ddhmJ l12mzKGjN4cu8d0d6GVZsfuK5jAm0+zVMRcPOE0qU6W5zqHKMfOST4aeIPBj DX+t4xxGn+Q1OmzmCfWq54Ye2M7hkIaG86vznqDWupRsajWHJ52PBxa5eYIg jw5P5bE5LL/GxxVO8oRGt/buROU5rDRNn7w55AnqRj/8D4/O4m9CLsclxgss GVx5Im0WB3Ktot8neEHwHYGurT9m8ZNMW7HKQy9o7tyn+PfzLB6NX88vUrzc N4+jVL2fRfd09gbLb14QeuHAjgNPZjH95S+fOjVvaHVL+rbXfhaP8RWGu9O9 gbXhWbSizSzKdaWbik15g1BxrZrIpeX7kQevtv72BqtpRsyMxSyekSshm4n4 AMtPR/21/iwa7j5XNX7EB0TCWXeI22fR9U/v/dN5PnCZdPSQMo2L27qfiTp5 +YK1zblK/M5FTy9GflnYsvc47z/Xx0WNIedfwvHL7r6jEdvNxUPz4pV/ni1b 6IPqcB0Xo70/BCbSfcGGZLE1O4OLJ9dGunRdvAa2JJt/kme5uOtc4A2zC35g a+MT8sqci6y2lZONLsvec2PpqAkXKeurDI4FL7s7b85fn4vht++qJ2b4gZ3Q 2OQndS4+JrEMV/30A3uSx4/ETVxsEhg5WuDiD46kYFzbxsFGyZeLjQkBIHt0 3z1mEweTra0s4rIDoPfPpNUH5OCe9bveO5UGgJ7T1fmktxwc0R90vvwlALZp GxO3FXAwSMFCUkcuEL5MiGfsi+Wgd1LwpsWyQDAyKgm4asDByfPnfYgz14Hn n6uBgS4HY5rPvHi3JggqSgkiO4CDUZZM40vSQUDYllbE0uDgN3tji0n9IFgx Fz4cuJ2DVYZm3INpQfAu1+R0Ah8HHcf15J8ZBoMyD4NYXT+DHxf7cKksBKpo mRTDmhnMV9hhP0IJAdPWU17db2dQ6pztnllGCPiSql+PFM9gYoT1kVDZUKhR TNQQejSDuWJtrodvh4K50X9aDkEzqLY6cqnOPgyuk2IMNu+dwcGIkoKBzHAQ 9NcaeUicwQeTdYtGheHw6AL7JmHnDB6OqwnpqA6HRsXzrVryM6hbJd0kMhAO G8pVj9tvmkGfwmy5cukIyO77aFbJnMYVb6RLnR9HQKuiwkW7vGk8frB5zdC7 SGizSu/iy5pGhZPdkpKdy04S1c5Nn8bYzP33XL4vm49f4Rd5Gge1P4Zf5YuC Nhpz1DpyGms0RvLzTKOgI7fM1+ryNOq90hHNH48CiqLx3VOS0yjRvWH9Sa1o oFg1/JkWmcazIYZxTmbLTjroQdo0jbIZS6H5DtFA5SOaU9dMYzmnYfhOUjR0 04QlTGenUJAWfWQ9Oxo+5g7kGPdModo1ifdqhTHwWdGrUiduCpMv9YddMoqF eF1ysMqtKZTJ+dpUahMLBtZvDolHT+GIsv5D9eBYKH24UMsMnsIvCodNXhTF QoJQZGOK6xTy+3GDyRK34CgPuXPi2BQqzpSfuDV9C971lX5/sG4Kj/0ykWpr vQNeC72Pb6yewttK/EeYo3dASXzhiseKKdypeu/NEf67kGx+iKa3yMbw9+cu JxneBZ/WptHJMTZuUVM42dZyF1TKe6f0W9l4649UzMKnOMggza+cvsnGMldu ZcbGBFD7Lpp6I4qNZqZxZ58rJkD9TnUV8TA2RpVJjA7tT4DRRrfTB/3YmLY+ NZtqmwB75oZyY2zZyPW3or+tSoDmC536UjpspMdOVMtcSwTLp4yvLw8u/8sy vM0blwjjnDXu2v+xUUerdUgsLxE2xesm2xHZWHUg7MyXT4lwvq58uEiGjRKH 1kQ27SfBoJHexlucSfRRJ/W1CJBh5a9QzcLxSXQiFHXz/48MSsFvL/cMTSL8 7XsepUsG78JdxTLUSTTZ+C1L5ToZ1ghLmr1+OYmrPlxxvcQkg1r/BKnPfjmP 7B343p8EEe4pYru+snB3nAr9y0wyiPQoDI5RWPg4461bhGgK5GsW5+W1sNDA 6X9DPpop0MHTulemgoUJLVaD+4NTQIK8aC6YwsKmfUPcK2tToaj84j3GaRaK GOgpj+95ALrSjDP5x1loJ2/On37uAXwM99tqo8fCIqkvfnnhD2DR6N7Lr+os tJ2wVmj+8AAM+uvaW4RYqC8/etHKOw0GeBT5n1AmMPrU9RO9rQ/B0674g03L BJa3HKshzz6EFW0HU7bWTeDkgMbKKoV0UCJbEJKLJnCOZLbbPCwdfLff1IuO n0BZqy7td1oZIGDMCL96fAJXkAp7X7dlwn5y8YJsCxMFUq/ESROy4Glmk82q OiY+T/5xhkcvC8SefWtnlDORynfeVs0mC6br+DLfPGHiw6KPOwMfZcELlqXu sZtMXJlnerVVJhu2GvPe8TNgomyV6xoz5Ry4ayHGuQBMLE696nHtRA4sWe+8 qLOPid/EO5znPHPgi78FUZDARBXNyDWSb3MgMa+gJ2sVE5US8fTsiVzg4zWX 7mwcR0ltxQb9O3ngLegQ/bpqHJ0MPp36WZoHP8WDWSml42i7W9efPZgHNbvy 62xyl3PCubcee/PB32rRdj5qHJ946ljK0vOBUZ79UuHIOL4ZE63FS0/BsqFc bK3WOIZUpT28nPAUmrs6wlh7xrG8b+vGuPqnkEOfNXsrP46FNXalmUoFYCV8 bNZkxTi2nOuI6F0qgA/uM3AdGRhYvs0orO45cD7/PVFUwcBfaXFpRN4XsEVn 3UVaEQOf9qQrl+i+AFthuSCTTAb6u39a1G55AQvlJuXyQQwU/rtz5uPAS1Dg fUZs38vA5FrCwd9biuGo8xvgUWGg2Q6xgRrdYnDvqTuhocDAnWMVqvwuxVCR 99nl0WYGtovbKWhWF8MJ41VPfVhj+CH/HkfH8RX4k623ST8dQ0Lz8SDevteQ /tuFaPZoDNsTnc00BUug3s4fYpLH0C49yVcCSkDwv3gr9o0xNJff9XU4pwSy +itTG6+MIduy5cAf/1Jo3y6+2U1qDCPtaWKeemXAjpffli00hqI9kRUPI8pA bF6V+HntGMb9CU3MrC0D6za9Ezrzo/jfiGaOBpQD1937luinUQysHfq3pF8B shWdvDXxo5gbUr8pKvIdvGYqF9+KGcWOy/ep9q3vwEAu9pJF6CjGGlhSd22u BNfbupVMt1HUui5Z4ZtTCRVW5b5SJ0bRListQKynCk7yZo0ECIyioBJTJtS6 Fn5p/L2vt3IU40QLN2WX1YKf8wW9TUsj2FD3M5m2ug7Se0SznjBG8EvDAy7p ch2M5t0+39s6go5FjL4t4gjhxr6d6rEjON7jRln7qB6Ew6hB/8JGkBLy79r5 7nrIL9ml3O4/gjLPRl+qrm6ADumxGBuHEaQ3SbhaejSAxORF7USDEQyN9Tv8 yLARismGJSy+ESyWEux23NAMP/q3PCiIGMZ6by3LNwOtoOzhPtEYMIyPTDQP 28u1gS9vvc4Pj2GUVRLplbRrA36CE0Ps0jBWBxc6XWS2gZpHudaNA8P4SXrz RcGFdrjOK5DwaPcw3psnCN/V6oBG8iXaO6VhjPr7V/hFSAdYVqyKmxIbxoL2 wHVJPJ0Qxnt68NIMHYtVM/yu/OuEFvKTPdcZdHzR5yiid6gLhAhLMfd/0lE+ 51vM8etdkG+cTez4QEdtvRLy3aku6CKzw/e/oCOnwK+R3f0BJAh6n07n0FEq WC5flI8CNhUpOzzT6Pi2P2PHiq0UmO2H7vxYOspE1Co9MaWAtgeJUB9Gx8lD yVwTBwrc5h2+PuBHxw12ycWKoRTYSohTELGjYwrlCc+BAgo4VvzwJ1rRUcVo ZpNzNQVeG+/tMD5Fxxvbh4UKKBT43X9zm70xHTvWpn6cHKKAgUefb4QOHStS Epw0ORRI4CW2pv9Hx3WltWqBfFT4Ro6UqSDSkfaw61uhMBUUCb1ePQQ6GiuO eHTLUcGtYkczS4aOVcQLFoO7qFBmHLJlnSgdDRUIpzoPUIFngOK+XZCO71ns 1DR9Khh7KDZor6QjQXiqXseUCkm8AeJWizTMOqoxWHOWCoPkdhf/KRrW6tS4 brhMBSWCbB1plIYMQz4nVTsqeFd4ixR+p6GQgJCRpDMVqoybHVt7aajvps5L caPC6gHJalonDTtfCq4+6UkF5d1vrwy1LN/nFTQnelHh/wAXOlTZ "]], Line[CompressedData[" 1:eJwVmXc8Fd4bxyUKyShFopIKDUmSxMOxkqKSlVEhklRESEbWxTWyV2QmO7K3 Y2Re7rU3172RfNMUhfrd31/n9f7jnPN5ns9z1uuIWDzStWJmYmLK28TE9P9W x+1S9VgFHdtXxCQiBwrQo/iqZUvo+M1hwZ3P7SkgecSGSzeXjo1Tt3IdeEgB 18oaiwdpdFx/y0AzyJYCTVrcFYHxdOygJaRZZ0UBzkmLbZkv6Lj/IXVn/S0K GDwqv9VAoONnpd5SYUYUSN3EUTrmwZiPP/SV1FUKfIoyY/vlRMc1C9LD2RoU kDlSbMprR8cWXu/a/5yngGclS/FxSzreRNbrOypFgXYtI1ZNYzqGzaKNiqIU MHn0r8BTk46z5GrcRLZQ4Hn2eEazEh2/PNFUf+kXGbKoFQlsZxl6B7yvP/1A hq/X7f0jD9OxgudKxUojGXaHXn42LMToz7M6pF9AhvPvxR2E+Og4Nr95lBJP BoIc1TSLmY59Q68nKT8gQ75Dne7ibxoWfPRSX8WADJTcBE2pbzQcEbk46gVk EBLWlamepmFXty3ZJE4yvNvUvK2nloar/bChuGovjMinbNpZSsNb+6Zkszh6 YcPx2YphHg2nqcW+30vpAc250zRqAg0H5bWMnDDpgcnOzOplZxrezP1cOdOK BGzRhHvCp2h4PjDqdcvtLpAkWdyyEKfhUG+5f+/3dcH1LUr6b/bTsJhw2VrG RCe8cl1RPsXF0KOXVipo1AmnzWwE1Bdncabjsah9Vzrg5hGtNrvXs9jf5sTe y+ptUFa5/XDtnlmcImX8wMijGTTrzlfH8c5ioroaecvFZpjA9644ss/igHNd rDK7moG5q/Xp0d9UzC7ZSuR62wQ6kx498SNULG9apj70EcPHTUsuT+Ko+I+p U92cUyM82yK0/doLKs4uek56p9kIXNu00o8HUPGk1yrln1AjyPBlddOcqfiE Us2wTFgDeB+5KaJrQMVsq4K1Hir1IHipp1NyFxUrfblH5R2tgYIr67c4tjPm i/Hbxh1eA8p6R5c/sFAxi8rsue8XauCuGWF/8s8Z/MWN7715dTWUPgKnbQMz OJ2UKpqVUwXa0YXCHyNn8J49yV3VbytgJn7iXTNxBg/6DYayOFWAUzKHZorP DF5SNhbjPlcBiVnWjw0ez+DEzFgvs9ZymKvc19ZybQbnGhinJ8+VwfPJMPs0 nhl8fO69V8HFUuhUKsnr3jqD43JzrUb5SkFc7S3py8Y0tvv3IKlupgSukpSr k8am8fnCDp1MtxJIm7aM+hU1jVt8zbPSyt+BCkuueu6Wadxo2hh9XLsYhtq/ 1zAtT2Heu7WsBQeLwTb0vLQhbQqXFx+NrF8tgsjdpH0sjVOYr/iLekhWEdDE v66YPZ3CGqd0u2PZisBPWzaX979JfFVELkSnowAEdngdsBmbxPwnrn0O8CuA /KG22Pr2SfzY/1tNpnIBDNy64Xv/9SQ2XA3+6laTD4cfu5u23pzE9uacIwo1 efA+tonrKWUCd3ofjjCeyQFjk23+vQ0TWKPb6sal7BxY2q+3drhwAh8RWc9Z ss8B/pwP833ECTx4UPWaCksO2NSw4eNqE9jrdTPvkHQ2sM/oOM6Uj+Mrehel oguywPX8efE7WeN4eaSeJ8onCz7Gik3Ox4zjOnGpbk6jLGjXZrrwxWkcf9Nr OmPLkgWEmmLBv9LjWMNSfi7F4jWwxPE17X07hsM5hXQyTmeC03cml5RXY9jC ++XuWO5MoGt/PiYaNoZ/XhbeWFzMgGaW9zFHH4wx4tmzUvM6A3weu9w7d2wM HytZc+kQzoB/2mM8hm9Gsc7vkM/h+9LhYc771rHYUTzxOeHYIaZ0mGIpcbtJ GMXnZI2+bp1Ng/qaYLqV1SiuvZGzUZuVBu4SipVOoqP4g4R9KD6dBn9YUm9F pozgfJvrMZYmqbBcY1VIihvGT09cbr9dngx9ffD2q/8w9le0uxdOSIaiBf6i nU7DmPDtvr+SYTLc5+8svnF1GNMHWap2/UkC6mPJsg9sw3jfDRs5Z/UkIEms 1Gw8HcKPi5Sv1H5LhFxlcu0BmyFc8OabjmRHIgQa5tSpGgxhK++AJLa0RFD1 N2kIkh7CTycyeL9dS4SqmYamXYuD+MQ7yvrDygR4HRfYccJ0EFf5/rIVjIsH n0Lzzqtag5ikbjXu4xQPt1vluxzlBrGQIt8tpBsPe3/8113FN4j7i11Sa7ni IULnGlmdNICpFidHwoPjwINVcNgMBnBiQcYQNSoW9B3z6KEH+jGzb7ug0Wg0 fBqOEWfh7sfKsmvJFxqjwVPhuZ3bRh9ub9PkdXgTDVms+j+tx/qwqM6C2SPn aFiN+7tZOboPM3MMCrDzR0NS7TXR71v7cMoOtqrTFlEgJaJw1+YXBQ+cXxn0 uBwFrf5H8qboFFxUfUrgt2wULOmsSXdhCqaapfN7c0aBMjVTJfMZBW/0p+R2 VEUCnXXV3OALGTeJFt8eFooEV9vZ192TZOxd3HR9nT0Stvd2L6h0k3Gd7FXN SysRIBuf5nAyh4xTfv5JtuqLgMCjl7zZLMn4/A1/QW9iBBi8UkBPCnpxesEP LSbmCKBLBdUrupNwTpOHO94WDi1ir5v9TEi4105hamj9BWTuw+1d8iSsMJv9 yHz2Bdzh/N1343c3nrgxNSxQ+ALo8zbzT5y7MYejWheL5gugvdLkKbTvwgbj ueFP/MOgKebOruUrXZhnmsuQ+WEYpIc8F1Q42YXHWqwMGwzCwMKt8lDn5058 ZGBXeLt4GMzqi5+bs+3EbYNatO29oTDLyWaxz6oDf49KMeQ/FApNmw/dtVLr wKxHVpg8uUMh/Y+SXb5oB87OWPHkXgsBi48uzvKz7fhaY05DcV8IzDbPEw1u teMx/4c/Pvky2K2tJOxGG+55/b3ny+dgoH4ksP7TbsU88y2dNlNESDJwT/c7 2oq/F5iV6ZCIYNTioMSxtRW/vCN/zKyWCOQU06e7GlvwoMyV1O+JRKg3kP58 TLoFP7eUkV69QYTElskBo93NuJHf67XMdBAYSPc7TH1vwo+jTLn8yEHAm9rO dae3CRvmHl9fwUEQ+KxE81FgE76xetDr8usgcJEOqvX/g/EJF7bltAdBoJcq k/luqhGXGKXa9LIEAQ/XUSRX04jPPvxirb0aCF3P9k/VxTXiL32ZCf8tBoKK IYdAx9VGzPpOdSq0PxDMhRr5G/wbsMud730GmYEguLp7XkCnDus8fN0wfikQ Ivo3iRzaWodDOc2/GqJAYHv7n/HJxlqMfFHKd9lA+GXV1KMuXYuLNk9O+BwM hP7+B+WPd9fgRo1zVRxrARDytsW/e6oSb+E6khlfHAAOc4rVIUmV+Mnk+k7P nAAwEK5Yumxcict8P0i5pwWASHCOIWmwAt8lDHE2RQRAuXWYRE93OT7Tl5rk 4BgAM8JGpN7qUlw18ifv0vkAaNWjbAp3LcXTHwktRTIBkBusJXtVthR3Sf/a e0IyAJ78VkghF5dggaxtZ++LBADHoIgDJfsdxju61v6wBYBMyCJff2wRNj4X kmU0QYA9zXcuRukVYbcjxEnxYQL8/T3pcX1HEbYvnj7N3UeAyN5U0pu9b3FF UgXTvnYC1BJsHXLYC/D1SL+nKmUEIPw0HZPwz8eNnZVbm4oIcM3iimouUz72 ti1QNswnwJyizK68lVz8ubTQoymDALzLG5X5H7Kxh2BvfWIUASYsvoqcMM/G vZXT59+/IEAWeZZYMPEGRy3KM20NIYBCfptpYX8WxiXs0u1+BLC2jGAqwpm4 9M8il6YLAaQovvekFDMxq8SdBCEnAqyBc19RZQZ2+CQnsMWBAOGCJpnFb9Px yJROD/99AlRTDmmWJKfiYVZbiTO3GeMXpHWQ9qbiRduikVozAnjwKsaST6fg /q6w+0YmjPi8pJLkjyfjh41LB7oMCECUPZrySDwJX/Swk03XI0DYZ9H0zEMv sc0Z912hugSIM+HP5hJOwM8nsMArHQIk7eDNU90Tj51z6k61XCZAagdHoeuu OJzVO7KxoUWA7LN/S2a3x+D7o1Yv8y8QIH9ppZyfIxpPH7tjKaJBgOLX36ou b4nCbUHxXTlqDP07PzSU/w3HcedE7ZYRAdxj6vyHl1/g1ui2pEplAvhvLg5G S6H4pKfCzRdKDH0OmRF5c8G4tPt0wVMgQOx0XNyu6SAsyxpPcFEkQIp2cLLX cABmTg6eD1Rg6KnxzFjo9cdXq+6SCs4ToEjicc71dl+cT647MydPgKo4q7d1 jd6Yd9RgnzSDfbe9s73y2AtLXzvtH3GOANHz8c6ils+wfCrRhoXBWc1ePivX XXAzX/d7ohwBKlKsw7rUHLG43atXhxgcvpIoo3T/IT6pM71EOUuAkrc2l+cv W+M/WzPLIxmc12vXvs/MFKcdO7dszeAZL56vk8qaONTlYK4Og48qOZhvdpBC 4d8EBy8y2H+6MfurkR5y/sHnbMTg1IpIBbKWBUrZIR/qxmCPfy2HxO/Zohc8 i4JFDC7IeLalUdUBHT7duP83g5Paov8s6j5BqzWBSfoMfcTFgiV+i6dIVO9S ZCuDn3K3zao6eCAvWQ3mi4z4SvfYL55tfI5O1C19nmZwXp77B1KbD5J4/s2A yMhPumLQtGWvHxLOllbSZOQzsTdm9PcQAa3r92TvYeQ7wjy9/8VUICpU54/9 y+DAH4Wkw3NEpCAZz77C8MeFn7F3L4ehBXG/sIMMfyv0Pk06eoYjypa9WfoM /0uSv46BTwR6F4uuJqkQIPfkxsBAUBSiftiwvaPOyL/r5r6U0GhkW+hJ+8Co p3TM3msbEYN6kq3+umkSIOH67g6mhDikIZJzYuYSw78kofddSfGonPfdpSJt hj8fDjbHpiYgWy6P/dFXGPpcTtYdz36JtIgif2OvE8D5pWaxUUUKit+XpEA0 JUBnLHaJs0lFUrridyVvEWBseirWZzkVRet8+LtgToBVhz2DRtzpyCZe4OWb uwSQjQ27xqqaiUINmJMUGetXfTrP/mtvJnoXGqz6irG+9cQ7XoybvkaXI9pz dz8jgGP15p5i5yyU9y93XseHUZ9Trlo3c7PRpnOOrlMRBGgUi7138WwOYjpX 4vo3hgC99iWBMi05KCu4MUU2kQBLzEvvOaZy0WLJzqQv6QQ4JmapWsFbgL4u 8Sz7M/az/ooj+wJri1CIz3sf3WkCGJuWFWwwF6Plj9q263QCzDKpKTpeLEas t+MDGj4R4PtFc9ObQ8VoQNarJOIXAXgmXibKfH2HBNLDdtlwB4AOEy8/VbQM uYfz3/mqHgBDmSlZBrZlSHYjv+esdgCYXZSU7S4qQ8e/do8l6AWAXeQl/QrF clT7UFq50DIAgg8RokINK9CTNk3pvb4B0K65xi0fXIViSivf7GsLgNmItcw/ 3VWId70iwqc3ANbG1s7VcFUjHn039G84ACQfrFsqRFYjX31rM9WFAIiO2KiA hBrU72sS+JuTcR6O/bul+qYOffdLoMneCAQ3UablzQt16E6gn5OMZSBE2zER W47Wo4yx4LTLDwKh/S9TqXphPRqtydcleQeCpCgzm2ZZA2I6tla9Mz8QNs4w G2VRG9FxLn2tftYgIBr7pBOYMSKvcLYTeYNgtxfzZ2tRjNjPDgrdEg4CqXZm HzErjCJnnRZungmCO8ab87M/YjRF/vm0wToIOj1ZmPK+NCHWK6E3JXqDILZt S/bbjRbEautDpVYQ4cKTAuNrIq1IInqzz3g7EVYP6m3/odaK/KTVljdGiWDs mfZYNqQVde3xcKpfJ8L+MwqKdYLvkcW57wtn1IIhO92hr/NsGzrLrq2tMh4M N64K+NuZtCGm8LqW/5aCgeNv/Vkurzb0V4xprYU5BB7c4Ey+9p7BfhybmI6F gDTPm7sjeu3oUr63fK5HCNR4TKx/cOhAQrlH5USOh4LdMd+3ATEdiN/qcHuf SijsG5WwkKjqQGz6+zkrb4TCcxmXNjumTvRbq8Bgf2AoqC3yRv4I60Shw4Ek u/lQ6DG6ILYpvwulNm62tC4Kg5nT764JzZHQKRzSlXQ2HEQ1ZD352XtQpjP5 o5lGOFgbVefuON6Dhj5aZijph8Nn96bN7I97kJAakd/aMRz+tPaVLW/0INFH /yldKA4HjvzfIfMcZOS9O4GScjoCjpedF7USIqO3gl8uvlCLAO16j6rZE2S0 Erf/fqZ+BISTN81NXiUjXacd3Mg1AviX2ZUGYsmo1l9tSbshAg6B4LfGgxSU yL/JhUM/EjQumDIuHRSkpWX+77lNJNy9+kq4Vp2CZNrmDUXdIyHX4qBWhQ0F GZUHSn3OiIRTAUczCgopKO+MByVtORKALK+fKN+HnHYoqv5KiwIjC5MqR91+ 9Mb6kPWkSAy8GvjN02LRj0yDPSOY5GOArhFvw+fYj+IqSl2NdGPA/tggf1lU PzpTWBGX7RsDQT91nH8N9CN7oS9qox9joJqgcvqp4QASHeMtX6uLBabfM8SO uwNo42VyQ8FoLGjc95rd4zqAbisK9yQvx0LfldqI6vgBJNITFiEvGQefBGS/ ro0OIFbfz7pP0+Ngb55EgafpIHrVii5lM95nFsLtLL12gyhe58K+0Ip4yH5h bbrfYxBdZztgUTMcDzJOGdsakwdRM9H80YpAAlxWFLbdND2IhGXiU1lSEsC9 l0fMz3wIzenW/pGpToSpHyupQdbDSNLdPTTjdDKU5+bky7sOIx3Ht3kHLJIh zNykcjFoGJ26ofdyT0QyKPXW92oXDKNAsR4N/6/JkJrr/5f35zBiixxJdCh7 BRbmO00TvUfQ+y5x3YjjqSAv0Hr3UtQI+lWo6MinmQo7ep0d1zNH0P7bYRU0 y1RoVhgj3mwfQZQAgxrbpFQ4JJBWdZB7FAl5/Nshx5sG8z2S/HlJoyit9llx B0c6NPrPHDQtHEVtdeb7I4+lQ7xCpOT2xlHEfZ30t/JyOmjmLqs/oo0i+ZPv dMXC0yHXv9bp9NExdGMp8kL+3gywU9Dqq6kYQ3WM6k3UyAS1H2uTdh1jqOPq e78fDzJBKLdgQXh8DLl45lQ3xWQCiZ930/O/Y2hwg9Oqcy4TJH8Mn1RTH0ck h8dbi8Jew9ccq9DuvnH089eeQNeVLPjc4Wh8lTaOrvw7oEwVfQOfFrzFBn6M oyWBf6+7rr4BmsQrPM43gUbFOIuP57+BoZyh5U8GE2j40Bny9XvZUJtz4Sb7 +ATqEktM/PI3B6o69I+FLk6gzq1JXCYyuVC+YLnKsz6Bkks0fW1sc+GtxPNI AeFJVHM3J+vxSC6k51S+F7s1iYjGD24SavMgMEfipAZtEnlNiR6fzioA/46z 6x0/JpEJqzMpcr4AfBbUO7RZptARtvo8XolCeCZhYal/eArdogYMuhcWwsOc xLg7d6eQwokjGmbNb0EvZxuT7+IUoh079HIrZzFc69hD2rI+hQxpPOXOp4tB Z0Eskcg5jULIbI5WJsVwQUJNJvLENPrD6y3akV8M8jnuNmmPptGbm4Pzk/rv QCTnM7nhxzRKuiCss9xUAiWKT06sbppBzlfKHK99L4GhLMfHPBwzSPVnwqrG wVIQemq/riw4g842PLy/xa8UsoVtedLlZ5DZB849O66UQYO1mdydZzPodtgG UY21AmZ7TTzcfWdQ5ckH/+SUKoDlnHFTdPAMOhIt+2fhaQVobTO83PpyBp0R ia8nfquAobdXbx+pnUGkylk7tk+V8HlVNfDj+gwqLxvbu7apBngsVEhMrFQU J5SlTNKsAeku5R17tlPRNrVv0c/Da8A1WTHpojAVfbtZ/zjqYC2wqJwtylWk IuW2ucjMa3UgFHx0xM6Tiuq6etkOTDaA0k9xYX8CFbHLv5Ny3dMIFmZiFslh VFTjHXp2Wq0Rsk8e+o/0iooetrn8PZbcCKcHhJlONlBRpIbOvu7rGLSEecW/ /aOizYJ5AuqjTVAuvqetim0WJZw+pRLB0wwHZUSsfXhnUQVN+9RjzWb4o3Uq c6foLOqXJHh+rmqGXNdrB2Q1ZhHf+ZWIpIwW4BiIEHgWMovCYy6nv3vxHjqJ O9hZ99BQB9uZGMjtZNyvBLNJIjRUUbLEO/lfJ6SnHbwQe5SGkLOe9c2TXeBW Ke0vpkBDWoZ8ZWMlXXB0TneT1i0aYj5lHGhS1Q2x34xTd9jQkNT18/plv7uB ecNCadyehkp1tx8nniPB2E5HDzsfGqrZEalrW0ECIor6HfaahqguvbuMc3vg 1+WX8YaFNET4e1ONTu8BC6OMswcqaEhdjfvFg329IP+o5ElxOw09OPVkh0JY L2S51fC5UWjIN6Hzwe2WXthBaC5RGaOhBQG6osrvXviU1P+tf5GGVP+VXvE8 SQaD7PHwpJ805HQu6MrYBTI0ldBOWm3Q0MdFDV+nW2RI7Pzx4BcXHbmi3mXV EDJsGVrjbOCno2d86S330sjwmLo5P+AAHZX95/+jsIwMWqs7PwlI09Fm28sJ buNk0JTrXNCSpyM+KbDvXSSDhuvzBXcVOpITPbr94hoZ1CplFwq16Ej7gcaN WXYKqK7+93FGl44+KYFbLD8FVOQyPu4woaOeSPah24cooOx646OaJR0Vexfu VpSiAFRyf3S+T0fcb3pPiJ2ngMJq63y2Ix1ZHeEy2qtOAXk59/mxZ3SU+kvq wG4dCsi5Ss9z+tHRJvO9FnwGFJCt/DgHIXR0qsxTe6cZBc6svpqzj6aji0WX bHgsKSAjpz+XnkRHym4j4ew2FJB23TY3kElHVyw7/q3fp4BUJf6wpYCO7FLi Li48pIDkqssHuTI6sm+dvEWyp8DLDO3//08hJr63+VIOFPgf7reGSg== "]], Line[CompressedData[" 1:eJwVy3c8FI7/wHGErKISlYyUkXbfQtGbd4MiUkqfjyT7KBlZF9KFSlZUNIzI yAyVESWirIwTJStx5w7HcXduqPT7/P54PV5/PTc4eZ9yFRESEhr5r/9/kG2N 42gzBTt2XldT8SWDFt+KIvSVgonDGLrEiwya+kspu4cpSIu5mlVzkQybiO/G XMYpaKIxI3zZjQzqVX5jyTMUXP15Yf1aRzKo8TePNXMpON3m2VtvSwYV/ZHR hUUKWs1/d/WwJsN6YvLo1qVU7HMqc1hpToZ1VcdH7WWpeO3+bPF7JMNavsho giIVzwYXR/nrkWGN/pufH1SpGMqwCN2zlQwKRO+fHC0qpjUHOy5RI8NK/sDI P/pUfNOj0j0sSgY5/Xsj0cZUnIw568eZ74LlxKMjb49S0bL+kM6W8S6Q5r/+ ofYvFRXI54rkGrtASv/Sj1OOVLy+15jQWtYFEsQNPyI9qJj0bG55TXoXiPLj hulXqVhY3sT7J7ALRPQPD68L/88bHQxb6dgFQsSFoePRVFTJy/FTMu+CPzy3 odInVBxweXB5r3IXcHlGg8QaKp7o7/aJ8O8Ejh53oKCBirmLieJ2xp3ACioa GGyj4rmDJ9YdkO4EJm/NgPEgFVvUJaYs0juAzpv7LvGHin6vRU+vrWmH77ys b49gHFNSt5wz628DtX7nXSGm41jkGGjh8bAN3N9ujDlvNY4mg9r1x063AZeU BepO43j0cEXqjfZWkJfKyim8OY7zpl+CFN63gOX6Z361n8dxZe658ornTZC8 6Nie0TuOdFNuH8e1CYZGNmhFDI/jovg+sbhNTeCZk9lvOjuOc+OHXceefYI7 2zORvIqGfkIrv9dkf4RG4wxZii0NvQeC9ubXNYD0RgePT840zLhlmJZ7qwFO iak15HnS8MgGc/V9Fg3ws+Vp4OUwGiZWO+7aOPgBFk89HeJm0jBKvtRLW/gD 7HNNL5ScoGFX8ajWWfc6IJnaizHmaFiVkv6Oq1cHzZtVLnQs0LA252LTDok6 sJlJW3lfho4rJiydv55+D/5BaVfX76RjjT9Bf3DqHby4k2q6I4iOEh9D5K2t aiAqQ0ok5DodGdErBBzxGnCsJL79dJuOcbsljcJrq0GeenqX/SM6ylz96nxm ZzUEGy9TintDxxd9TsJPVN6AKe/azOQvOvZRVjj4bqwEteWMPF3RCXT1/sx5 RquAhU22zuEyE6j9aoPLo6IKeHFKt2+t8gS+uBrHa9SvAPkXM/VHYQKfB03k jPxbDiMuF5JySRO4BIaXL3v3CqpD2k+woibwVcHGKLvYV3D/noEUJE6gnoa1 pZndKzCpU7zemzmB3Z/HV/D/vIQipS530YYJ/Hn0Oc/h6Eu42m1s6CQ2idLD e+wyeKVwauIFt3jZJHaWdmYPdpbCViHlMsHqSQxT4Rk/zCuFkW0CjUTNSTzr F21JOlcKJnfKZOtMJ3H87cja0bgSWGmsPqYcPYlBnqKECtdikCtd+tvo3iRW qp09W6hRDMvVpuWdnkwi/Xeiu+N4EUgJVZnkFkyid0DoLvGLRSBSZ1GwvW0S xTV3np+4Wghso6u+RjJT6Lnv257pN/nAKrGPdpSfQtqfR4yPkfkwq3o4K2L9 FJYVJyvss8oHxt/lvU1bp/CXduuxcXoeUN5n61tZTGGkqE2e+oY86DHq+usQ P4W7XcXNfQpzobukfE1E8hSqbUrdLnI9F7pUU3blpE9h67d2RTnrXPj819V5 4sUUlnattXn8Owc+vv/1ybdzCmPivjjtOZMDFUZa8eFyDHQ/x0nUU8qGh0Zh 67PvMVDTUk51YjYThk9evhuYwsD6bX0PIjsyQdPFTuRYNgNXkcerrhdlwuuo /fTpcga2/HbovuuRCV1k7iu97wzsrvs8xKZlgJSLt3mb6jSal0vEkSaewslA +9o07Wlk+jKeR5U8hUdRFrt8dk0jVe9Qq07gU9As3qK4+tA0ytc/l9or9hQO cWmj9m7TWL41OFRHJx1CoxyCWUXTKNGqOCuIS4WGJyemG8unEVdu3/neLhWk isHhYe007v62z0t4ayo8Jq83MeyaRqF8pQRuWwpUrPu+4hZ7Go+9velNXJEC zKKT+Wv3z6B8iMOtpLLH4EQ+2GfcNINLDsluUTrwEAzXjBSGds6gjkzla1B6 CKsvXLte9W0G35nwKgsFydDMqNTcSZ9Bc4Iyx74yGbZJbAtQlWTi8YoXZ+V1 k4EPiisXzZgoWWDRt8o4Cbpvvqbus2bi9uLkMT/1JCj8fPJNwDkmXo6OfblC LAnsbWMdpi8x8b7fUiHRtgfQGCBcMhjLxL9n1O+W/fsA7hZNmdd0MLGdl9ea d+M+uLOjVHlfmeima7AihXAfDu7XZO/+wcQSgltSvcV94DQ5PClgMvG3bdXe /HX3oXjuIue4xCw+OCqw6Km4B6uWjRw03DyLAXb4VYefCMOHWn+suzSLMpqk 78UpCeBdlcZN8J7F8geCsqibCSC0zXfZUv9ZjOxlaCV4J8BGhTUG7NBZ7Ni8 V2Hj4QRwp7smt8XPYkntD9qj4bvAihW2CH05izcUKJIpT+JB/Kt+9ZBgFstm bxukmcXCQzMZsvXiLIYadXpStWJB+/0PWovIHG7/Eu/gJRYL5nm3VldIz+Eb Uqq8cX0MJAT3+MQrz2FlVt0bskEMrFP10TLCOZTj31m/1TAatrs/f5ARNYde 0pSfS9yi4NSdin7huDl8fJBeTjaLgoCCj2rOiXO4r9Wgv31HFLxljBVpPJnD pG83/U4s3AYzX7WPBYVzqKNn1uiZeBvcgh/Pv+6YQ3oNDaubbkF6bIxNizwL /93RTtE6dRM+FD9J1VnLQjXXl4mShjeB2pE/GqPMQjuSqt9yzZuwdUWzl6Um CzedqysgLURCdZLo7S96LFzj1sFfzI6Er+nXKodsWXhxUP6zhlAkyJZ5r2Fl sJD3K9PpTHs4hDJ6l0vksPCpi1GU9dtwoGsZiqnks/BCq9oFj8Jw+JAuwTpW xsJEtq7vwJ1w8I/NbMusZ+Hau9Y+Pabh0E/4EnZylIUcIyOX+aYbkK2iRy3d yEa1eGPR0W8kkLNNG/ikxUb/liyDqBYSXEta0j24hY2vkoRtsIYENjJdtRJ7 2Fi4zqBkKp0EkgvujxwOs3FOZ8JZmUACr94n5nKubPz5u5L4cv466Mculnnn sjH0HMf/0/kwaHnk0TtUwMZTxVJqpofCwDanh29ewkZ1cvajKe0wuFZbYKRd xUanZOXZdM41+DBr0z7SwsZm+oxJXtw1MD9TQj85zcau7n96ZT+Fgr2Kg+qe PRxs6DY0fWoZAkydtoPP9DloGTx9RVM/BEh6um5yBziYMRxm3bohBLKsZIoZ RziopCHmTZgPBnp41f6csxysdj7aPJcWDL40ORuFEA4258avUuFchcjS+lh+ PQfLhFS5Ga+IYP8twkHpEwf37075U5RJBP3FI3uglYM0OebJ9rtEmDZvHYjo 5uDTX2xXM08i2NC6dWTHOHi6QGRytyYRNqtQmjVE5zHW2yQhKy0IOmLExaxN 5nHGZKDc6Ekg5L1s7gswm8feI0vepUUHQvj36KJHlvO432kmTSYkEPS0ZE8P 28zjM6JNzHq7QMj4oJjlQZhHTlvvFRHVQLgi0EZS1DxqZu5hk58HgCLB/Fpx 6zzWRlYJUxr9IXL/MVJNxzxekr7xPaDSH2aXmUa0dM9jo3uc0eoCf2h9ffAO tX8eC12aPUPv+kOoyP4k5al5vHFE5MSkrT+MpGkXx0lzMWJismQPxw/ye8SG Lh/nosVP75plO/1AIW/JSIgVFxMZL4Z2bPKD8BDhsTunueiTqEs8v8YP7NT/ 0HPsuNhf6dDfL+QHy304nCFPLpJ+SlbYdV+BK9JjMpZxXOw5/G2HT9AVMDhY Z7i9g4uu4x28gBZf+Dz+wfNBNxd5PXWaS2t9wT7mY+rCVy7S93X0ZL30BVJP 6+9PP7hovnfI+2+KLzS69b69MMfFxg11rAPevnA8ZtIwUZ6HitKGEm2K//ke +QMcWx7GOhHs6n18INzN40A1jYfVKjPa8WFeYKfRoNw7xcOKrEn5tsteoEtZ v8hk8hBUdl9ROO8FU45dtRp8HjJCTA70GXjB6fN6xokSfGSaBRwSX7gMmqfF Drlv5mMEX6LjD/EytGDmUYVLfNROi705TfIEOeXv1ldm+Ej9K2JdUH4RqGYf Li1l85GVZWhLzL0I1cTCiFQeHyMdV7GsH14El55rrz4JCbDZSOje/65ehMoY 9VVKqwSYLBTz+d6Bi2C/cKm7QU+Akh8UzBuaPaDo26LV6hsCzJRiaobT3eGG GN294KYA55Y17aX0u4PN/8gko2gBim/w4Zxsdwehu1mlHvcFeGK0z8zqpTtY mxyVq80RoHHGlrGvoe6w8Dqx061VgNY2EwZC8u7QORpM+9UhQJ0MB1nFpe6Q LefyN+GLAJtayur1Fwhg6am7o2ZQgN76OompIwR4tnEgXpYpwB2PwyIoxQQI OtmYm80W4LlnMG+VSYDj14tr9/EFeEHDmNL0gADc/uszzsILuOU5Uao3hABt Eh7iArEFtHdX0rnkTYAM3VMq8VILyCB3PJR2JoC/i4HuRtkFbN7CMK2wIcCx e5ssq1YtoI/k5PZLZgT4P1DzDAk= "]]}, "Charting`Private`Tag$19691#2"], {}}, {{}, {}, {}, {}}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> { Style[ "(\[Omega]-\!\(\*SubscriptBox[\(\[Omega]\), \(c\)]\))/2\[Pi]", FontSize -> 14], ""}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-7000000000, 7000000000}, {-2.343767906642924*^-6, 4.158593961063137*^-6}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ LineLegend[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Large]], Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]]}, { Style["Re(n)-1", FontSize -> 14], Style["Im(n)", FontSize -> 14]}, LegendMarkers -> None, LabelStyle -> {}, LegendLayout -> "Column"]], {Right, Top}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{ 3.6860851711583605`*^9, 3.6860852766203012`*^9, 3.6860865638859777`*^9, 3.6860874801831703`*^9, {3.686087637097447*^9, 3.6860876775277243`*^9}, 3.6860877573599215`*^9, 3.6860887735509977`*^9, 3.686180687716254*^9, { 3.759354168775939*^9, 3.759354175966465*^9}},ExpressionUUID->"7a5a9804-2fd4-4925-af6a-\ d541aecbba4c"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"p2nFig3.eps\"\>", ",", "\<\"p2nFig3pn.png\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.6860851711583605`*^9, 3.6860852766203012`*^9, 3.6860865638859777`*^9, 3.6860874801831703`*^9, {3.686087637097447*^9, 3.6860876775277243`*^9}, 3.6860877573599215`*^9, 3.6860887735509977`*^9, 3.686180687716254*^9, { 3.759354168775939*^9, 3.759354176926805*^9}},ExpressionUUID->"fbb5a094-4666-4e32-9c29-\ e97ff05c1662"] }, Open ]] }, PrintingStyleEnvironment->"Printout", WindowSize->{877, 724}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{612, 792}}, FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \ 10, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 508, 15, 73, "Input",ExpressionUUID->"a596a67d-5203-4e05-89f7-f87415c27795"], Cell[1090, 39, 222, 4, 34, "Output",ExpressionUUID->"7b09f944-6c3c-4e9b-baef-e2424b043450"] }, Open ]], Cell[1327, 46, 151, 3, 35, "Text",ExpressionUUID->"a9340452-2769-43fe-97e1-4eadeb9bce64"], Cell[1481, 51, 2941, 70, 324, "Input",ExpressionUUID->"8b070055-178f-474c-afd9-b1922fab898a"], Cell[4425, 123, 166, 3, 35, "Text",ExpressionUUID->"f80f3791-591e-40b0-be53-2992b05858da"], Cell[CellGroupData[{ Cell[4616, 130, 7355, 178, 556, "Input",ExpressionUUID->"811b6cd8-e9c3-43dd-a0c4-b694ea98590b"], Cell[11974, 310, 58663, 1066, 242, "Output",ExpressionUUID->"da11490c-6032-402a-94b1-a6ff25bb1494"], Cell[70640, 1378, 821, 14, 34, "Output",ExpressionUUID->"2fede3c7-d33b-43d3-9f10-8702deb7c537"] }, Open ]], Cell[71476, 1395, 168, 3, 35, "Text",ExpressionUUID->"8fd65802-39a9-46dd-b36b-c5225e0ca25d"], Cell[CellGroupData[{ Cell[71669, 1402, 3043, 70, 304, "Input",ExpressionUUID->"aae9ca6e-2203-44c2-a300-13dc29f4275a"], Cell[74715, 1474, 58812, 1071, 239, "Output",ExpressionUUID->"2d02be36-9210-4c77-8e59-36158815e535"], Cell[133530, 2547, 549, 11, 34, "Output",ExpressionUUID->"e0cc9b4f-66af-4f4c-bd5b-51a30c0af43c"] }, Open ]], Cell[134094, 2561, 149, 3, 35, "Text",ExpressionUUID->"a4737592-c5ce-4035-9236-e037370eca92"], Cell[134246, 2566, 3441, 88, 432, "Input",ExpressionUUID->"2575af54-a4cd-42a7-9c44-82323bb5172d"], Cell[CellGroupData[{ Cell[137712, 2658, 2189, 53, 241, "Input",ExpressionUUID->"019262d3-7535-4544-af10-cae88001e1c6"], Cell[139904, 2713, 74058, 1315, 211, "Output",ExpressionUUID->"7a5a9804-2fd4-4925-af6a-d541aecbba4c"], Cell[213965, 4030, 470, 10, 34, "Output",ExpressionUUID->"fbb5a094-4666-4e32-9c29-e97ff05c1662"] }, Open ]] } ] *)