(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 141431, 3188] NotebookOptionsPosition[ 136092, 3000] NotebookOutlinePosition[ 136468, 3016] CellTagsIndexPosition[ 136425, 3013] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Ajuste de par\[AHat]metros lineares", "Title", CellChangeTimes->{{3.6691310709614305`*^9, 3.66913107737144*^9}}], Cell[CellGroupData[{ Cell["\<\ simulando dados: fun\[CCedilla]\[ATilde]o e gera\[CCedilla]\[ATilde]o de \ valores (pseudo)aleat\[OAcute]rios\ \>", "Section", CellChangeTimes->{{3.66913125117806*^9, 3.6691312684480844`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"w", "[", RowBox[{"\[Theta]_", ",", "a_"}], "]"}], ":=", RowBox[{"a", ".", RowBox[{"Table", "[", RowBox[{ RowBox[{"LegendreP", "[", RowBox[{ RowBox[{"2", "i"}], ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"Length", "[", "a", "]"}], "-", "1"}]}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.6691312777880974`*^9, 3.669131354118204*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"q", ",", RowBox[{"{", RowBox[{"1", ",", "0.5", ",", "0.5"}], "}"}]}], "]"}], ",", RowBox[{"w", "[", RowBox[{"q", ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\<1;0.5;0.5\>\"", ",", "\"\<1;-0.5;0.5\>\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.669131363428217*^9, 3.66913141558829*^9}, { 3.6691314772383766`*^9, 3.6691315213284383`*^9}}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJw12nk8VN//B/AZKqMoREUqKRJaSCnkfUiKZKkkSxLKkhKFFpWlJFnLkq2I kChrllRCkS20SJZknzHDjG1mGO73fH6Px68/6vF8aK5zz3mf9z2v+5iN9u7H zvGRSKRY/Nd///J/XNrcv9tDu4r4vz8gs0pGfv1jEzjnwfnJw57ujjTueHQG ThmsPTWJffE35bPoayfg93cP6sfu1fna9/aRO5BKSWebsF/+1CO9fncFhNT+ Dudh2y+ViyC99oGl/zasDceWhsXrj6fchGbTrllH7J9XBnNePLoDW9+p3t+N fehH3zrfKn94O3+wklggIH3s2LkX7wKhJXF/RjU2SbA6p7noHpz5cHCfP/bp Tbum2Ln3IXtXxPW92OX70zQ3Zj4AfXcTJ+o8AatOrQw0THkIjQ8q+aKxW0In RZMfRYDgTNGBXzwCYr/nK/d/jgTrvGrqReyaXpcWn6ooOCCVoE3MEbBxrmN1 6rvHcOvP8PRybFPKo3e7S6PhVOkKy7BZAm5LGJ6pL4qBnSfs3BZj/9lRnjGZ Gwd6P1a86OMQQNnvaRic/QREzPUaDmGrGyqOSWfGg36jUVoGm4Box4Td+imJ cPFLiavZDAFH42/UPHn0DBxXCZ2zniRA+7hkUeyhFPBe9mtL+ASeL8vpxf8+ p8CSgKyUchYB/E65L72qUmE/7/dbEpMAO/91rKfv0iAzMvi+Dp0A9n2uLnVf Omi8ihXSHSUgPPxn9K7SdJCQFzyqRSOgIjFsb13RC1COl+FfP0KA5Nv5O6zc TFATQ1ax/QTkVXS0aipnQVyCT4tjHwGHq4s3BWVnwUJADGXbPwK8Wy7WSmW+ hFAf6arsHgLaaN3L9VJegXjD7avWHQSEbviQHPvoDWzRrX37qIkA/YZElUrh PHjxz8K5s4GAL0GnxHcfy4OnyqvbpesJqJ1v7VjfmQf2A0oTD74QUDda4zhB z4ecY2aGwh8JqK/NvhEvUgTzLvxTZa8JMAx0Or3cvAgK4YFGRA7+ufZmFBhf BD3ndlueziagoTh58UXZYrigESs/8IKAxrTISKT2Fi7bDasnJRHQdMc7Y9ii FMZ3KPJKggkw1tz1wCYJW2Vf8dogAppnxi+09pZCq0yQ07VA7IsuKu9cyuBq 90Sl9G1sa5uK8JvlIM6SCBa9gutLXbdt97MKoF2YCMi1JoDGXkLoXKkEBTE5 zU9bCCA2Ha1Rf1wJhSzFJXc3EyBu+vjBtsJK6E6f56KNBEDWBnHJyUqI/dZ0 7qUUro9Te7cyPT/B3qzzj9WEcT2UuRx/6lkFdwJ+3t7DWoCoG42Zsx41EOJw bfdc0QJkZIhdZEbVgMe/H5sp+QtQ0XZKdSi/Bpjl6x6vyF2AIcXBilZWDSyy NOQIv1gAjc751iyPz7Br55e9X6MXYEBzB++kxxe4eXBQS+vKAuydjzItvFwH NdWuHorK+P/7usZRIusg1yDmZvqWBdCc0+05/aYOdJQvJUtuWgBt7uQFylgd qNLX7p6WXIAD0+b3T1/4ChKfS1Z4CiyAMUPyg8D5eggr0ba4928eznWnKtlY N4LgriE+xUfz8LXnVCDfphZ4O5p3Q22IBycb90qQ1VpAwipXX6KXBwNlazIJ vRZYZP7NhtXBA1LM73re+Rb496DlZmITD/YeOSXGzm4BA8n0laVFPMgosUgd VW0F07Bi5dUBPLgbefLjD902cPJWq46S5AHSPTGXYf8DXMyXemZpzYHVZQNm seVv+KeR4xt+mwsfNioGVL7ogv7og9wcXzaceKKY1n2pF3TXh23YfWsa1i5+ fyDyfB/sSss5dfv1JNzf9bmgMngALnp1PW7rYsHBQ4Z2GUFDMPymRKffmgkm TMd2r/AhiBpOHbh0kgmW8XeMD8YOwV1pia0Lpky4OFqkNfBiCMI1E55t0WdC TMQGSdnPQ/BY0NU/YycTBtunWpP5h2HQDhbMlzDhnvOzAzF+wzBQcTRK3GUc IkTLyx2Dh8FpX42T9JlxiC//oaIWOQydxRr8yubjkCu0VOb7s2Gw6XCKs9cZ h595V3kiH4chTOVH7DapcZDjGhSHzg/DOd4G6v6mMfj8YEr+7o0ReMV6xju9 bwx+CRrEzAeMgPyA27/UHWMw9CCZ3+fhCDxtrrUblxsDSoh+r0vSCFD2Wmpl io2BYciTeJMPI9Co9q8yhM6A5hAtobV8VGhP0nu16TkDfj+8y8p/QIXfZRay eeIMGFnWcUbpERXWKzxjKAsxgPtwW3N6AhWyZ0WyCvkZIBX6KzvuFf65qNxE zwQdbEIVHG81UUGp8dby3FY6/Att/HVYlAZSlSp/FaLoQAsTr/j7hAY7dGos slbTIZLsQNSm0KDvlizvnwgd9njl6+Zl0UCEPOWyeSkdAmyMv/qV0sBNvSKt mjcKkkrBvzb+pkFRZErChb5ROFw3x3RYPQqLNB60nH0zChl8/XIjMaMQvMk3 YNhkFIy8VVxakkfh9aF3cRqGozBBvZNT+mIUio6KesXqjYJ2q/SuB8WjcPFC wT3nfaPw89lJpPhzFN7m/aJ7bcLX3V9v5SZOhwn1pwq7uTQ465MfwXxEBwuW zVntVzRYXrWvPiCRDolHlZL1M2hQLlS1SCKdDi41yXyWqTQQe952fV8xHfRo 53WT4mhQ0zjpENBOB/cfHKukuzRQkN2zV1yaATIFkRw/Oxr8cPvgmbGZAec3 R9Uq2tDAv0Q/d+82Bsyc0UnssaDBHyML2dPaDPhazafvaELDff6aUIYdA3p+ 86yHtWkw3ljeq/6CAa7nvYivG2iQtPrA2vpcBmzJeVgtJk2Dw/YN5jZvGaAv TrU5t4YGKezOer9aBnj77uNTwOt0THa+6CuVAUxv7VJZfhq89YEH1tvHoPFc QBlthAr2VbXVjD24Dgc7dnwbpMIKYdOFOzAGtBdTOu/7qOD83O5KuukY8ELL t77tooJUk/9phucYJGpYxkm1UuGWbI3KnZIxUDHlGWS/o8IAOd+I+nEMDtb9 RKplVDD6l+x0vG4MVi+L31f9Fn8+xSd5S8cYSOl83EAqoELpOiXBltkxKHz+ R28wiwoy86s3a/CPQ59KRGtRBhXudy2C9GXjkCktvj8snQonE3uuXpMeB2P7 s09PpVBhas2jXhntcZDcN0OxfEIFG87tuRD9ccg6YL7MPZYK1e0XVk0bj4MC w7Q2LJoKj2IPGn3F+9b22vCpwUgq7BTnlnj4j8OM/RErHt4nTyYH2zofjMOK /oBUi2AqEG1tjIOPxuG32Oqb74Ko0ByVs0kqbRxKRde1JgVSwW2FXURVzTj0 9Fpe/3yLCj/GjLKVm8ZhYrNLjaMvFTSb932O/TkOO5LirgndpMLSsJVzrkO4 DzhuEPC6RoUT9xwKBRcxwevvV/nsK1SgTHdUalOYEB/G2RzqSYUKR9PmK0JM eBkpddbbgwqb9PZTu8WZMKKz8paDOxUm+FZvKJBjQnOKauazC1TI8AxTHt7K BLmuh5wqVypY9fFrSG9nQlFHk9WYCxU+fWKeCNrDhMs7eRqnnalwVcXJ/p0G EySeGeemOFFBIbXbnanNhEvLTkrSz1Mh0q8+xOoQE7RKybUJ56igx0RPIo4w YZfed968IxU4Z0pe1JgwIderSNwFO+fbtkLucSbs9M6mdDlQ4QykV24/xYTp O4VtJ7HF3kg1O9gw4czQF7cOeyp8WR/V+cSOCTfX/2xxwN6+cGuGz4UJQYX+ PRFn8fWcPC6NuzGhNP5Agjq2UqvjUOdlPJ5TlgJDdrhvaZyyrbvKhAz/9zKJ 2ArpR34VXWNCRNK5fyexM4TBONUXj2+rrp4k9mYf1S9hfkwgZ2vr9Z2hwvNe Oe0bd5lApOt05WNvNJR8ez6YCeWvlQWCsVMKhbYfD2WC1KWuj47Y69eRMiCS CWJpCuTD2ElBk+uUo5nQrzzwWQVbijkUs+YJE0xFuimy2E8s/wgvTmLC+K2u mjXYq6ub7rGeMcHpd8aUBHas8qf57jQmfC2feySJLR5b5FWfyYSOhZiETdiP iEzG21dMcK5WWqKGLeqSeC7tDRNeeV5qMcSObAvvjihkQnLd0ikn7OVaAea+ JUyw7ci68BA79IVXk/M7Ju4bdJVi7KUrXA6af2TCnNUVnUHs4Gs273WqmRA8 9Dt6LZ4fgT6T3dtrmaDgXiB/CjvoyIFcqQYmiMpGsRKwFxXvkRP4xgT0iszs xw5Yr5g82cYEPq1Q6V14fUjB6yR6fzHhQlSRRzD2bZZIWOMfJvTNcqn92PNW ixaX9eB6tGu/cxCv9+y20amoISbIDO0Yk8L1cS2ux+02jQnFwg/fhWOzSW0D rmNM+GCsHUnB9TX1vfTHgRkmPJvdv285rkfP/TlGO2fx/Gse5vuvPpkZz2qk F5hQZypfoYTrl3E9qGh6MQuko1+N2uH6duu/rtwnyAJTrXHzRbj+aUYX05uF WSBZBgm52EMbTkRnSrAgWmtlgijeP72fN161lGOBxVLOj/UXqWC7Q4J+cCsL riWqXmJidz+hOKpuY0FIpGJh7SUq/LkwfnzZbhZEpfQq3L+M+4Ho+13v9Viw zslzvcFVKhy7mffq5WEW7DCtvHzIiwqtA2mbYo1YkBhzD4544/5SErLS/QQL JtmhGg64P9SePjUp48gCu8pzC99xP6krGDlv78wCynpb9qrbVKgXuP4nzY0F oxf2KtndwZ/Pj/8k78UC24XbmxcH4N+/uDNCOYgFMj01AU/uU6Ev97Ty3iw8 /pbRpT2Pcb/mG3t2PYcFZ4UOLfKPocKgxe2V7/JY8PaccvnWOCqMkPFMl7Hg naGrZig+J4yb99YdqGfBBcjIj06lAm/e/pwJnQUa9zaa5uRRYeHY5O9IJguK 7ggdzMT9ncgMNGqbYgG5W+pqZhEV+I6l7zKfZ8H0q5AzJaVUEMwYJFsvn4AT fTaB4p+osMrY+en5nRPwlJqZX9FGBZWnF9tvXZ2AYv6QrAdcfH36jWLvaxOw WFEve3wO379m8GN33wn4s+63seUCfp51PDc5e3cCenMeOarj5120+O9avegJ KEuVX1gnTIOZEN3SZUUTsL6BUhO+ET/ffVbHx09OAFR92NlkRAM9s09WxZ6T sKWKV7sDnweUBk0+KwVNQWLJ5C9e6Ch4inhoPY2ehhP6ioUGF/D5J7z+csST aYh6PHPe7hId7IU3v/BLmobHWuWeXh50MFvaLuyQPg2l27/cTPChw85F+/9u KZqGRQ6apd8C6TDGpgTkf5+GibGQZX343OH6N6W2RmwG9u48Hu1XT4e+07Nz xatmoKPJ4LNFEx2suo7vzJSaAV4zNU25hQ4GHUviH8jOQJn/hpPfftJB4bub q7HqDBQdN+Pn9NJh6Mte4d9mMzAmrr6vbYYODq9bjo1GzkB0YuposAwDbNfU BqjEzABdXj1KdxMDrALeF/jEz8BW/30NHDkGmJ7MFlv0fAbSmR5DVkoM0FoI bJMunIEvT6gy07sZIG6sfsz45wxY141yfQ0ZUMNINsuXZIONB+f+28sM+GgR 7c9exwZjg9TnHE8GlH8Kyd8vywad85l5e7wYkBfjI1qvyIaK1q7ojOsMSNpv 1tqnyYZ/PUZ85gEM8ApbZCZuywZd10X5I48YIL/tgqnPczZ43ojc/i2PAfTI HtrVDDZUfkyKcy1gQMGU2T3PbDaY1Q4s5StiwP6KveUXC9gw0KS2WK6EASeO LNnsWIWv71g2r/GeAf4uqWzTPjakHqqvSK/D56gm8UfGQ2ywNK+MIL4yQEgl WNmIxgah9tN6JxsY8IRz6eyhCTZcXXHOgN3EgNf3tRr283HgQ5bYXYHvDOh6 0f5UUZYDPTbqf227GPBc8Mg+BXkOnGFV1Hl3M8D54ofvcooc6NgX5hnSw4BJ tReUjaoc4My9JdJ7GbC0xtNztS4HZIXcmjMGGNCyZUhIQp8Dh0JMg5MGGRD7 0DJTzJAD5zlRU2FDDNh4HHUJH+NAwe1P3Q4jDNjbJ6y/yJ4D+xJCaztHGbBw 0L+XfJ4DDuI9I69xPqh5OXWDcOFA1PvrebcYDDDx6Hwz68GBA8TKbcvH8TmV 9FKS5c8B3tZVJbMsBig7SheN3eOA/Psvg9kTDGDVRhjTH3DgqVhY3slJBvhG eAcOR3Hg+uVvEqlTDHi8Xo/RncqB9bcIEpnNgLeNVJ/aFxxYssxy70PsPzci +PJfcuBUqf8OUQ4+J7f/WX03nwNHPP9YinAZcOCe3/OLxRxwnXJ++AD7/C75 bRZlHHgTEHh9ATsnwkNX8RMH/CPPB3fOMuDb/tVNKz9z4PWVz5kH5hgwMVph MV/HgVKlbr9M7H2HKRdbWjggOZh32p7HAJuZXHbZDzweU027Mmy/9OMBab85 oOe4VkpongFfSM/ivHs50HnzS346NvW1nqzdAAefs56E07CFTtNyDEY40K7Z KKO8wICdyyLVd9E50DbFdnLBPl62u0qayYEpconDc2xvp06jJVMcCNyfs7Id O0HCv32czQGrYH8fAYIB76vl7TvmOKBfPxy+C7vXo5FeReD5mYi1tMbml/H0 yeHnggr7aPttbPnm1XyxAlwwbG8TeIpt6Ps+9M4yLijFT9BKsS8qOqx2WcGF rCP+ft+wI39Tnh9byYWlS6zq/mEXBb1W1lrNhb0jtlXj2O1qJ0rk1nLhl9T1 S1zs2T6uzooNXLD79qRxAXtd1LNGjiwXdqHiLgIbwUGLPnkupOQ1PuVhOzJo /xoUuUB1GxCbxr6fGOlWvJ0LGvWUfVTsbIM97KeqXEiSPyragd3M7vQP3sOF kZGGxBps1gt/IU8NLiT7Zfx+hS1+YkuctTYXms8trgvHVudr2nhQF19/zRrX i9hWeZ452/W5ECIr8fEQ9i3bNeprDLlwYKVG7TrsFKEPn8jGXLAObAgYx/Nd Xe5gNGrGBT8xiYkK7CFnwfYf5ly44+QiEYS97fMJeuZpLuRtSLm+DNv0yqx3 1FkuNDAN39Xi9b66MYV88xwXPtlHFdzBLr81usr4Ihcc0LfqPlw/3UpRqeoe XCjWre0Jwyb92aO80YsLkmI2+WrY+nsCdKZ8uaDtmn3HC9ejy8CWxm4/LlxO TfJdgR36qOlk7V0uHCIn73qB6/n72Bq3hFAuiKcGtVXjerfLfBOLkrggxiob acL7Z4nOhPSdFC44R7ct08DO/aOW9j6dC8beP7enzuD1Ey5/o5HLBbnA/dft phkQfbWmTu0DFxjLlXXT8P7VWC5gcqWKC+v1R4KG8f7+l2nwM/8LF54/avkp j729s/nf9m94frTn42JxP6jT6ZhV6OVC18ba3xq4f1zqXOvvNMCFDfSUeAvc XyS8bAUyRrhgUG3i4U5jgH1W/8pNLC78/LvHLRL3I97yMeV1fLOwNCu4Og73 s51dfGdEN8+CQfmpgvedDPjldXDQRGEWHkU614b+weu5IvhCuPIstBvWrLTo YEC9rvC1ZbtnwTy31rr7F663l6ujFuvPQnDBAD2vFfdjb+VqrtMsWMUamnl/ YYC2iLvBXrdZcJzIoMzWMGDwZf4378uz4Fm6deP1agaodu/pmrw2C0LCp/1d KhnQeEBnmvFgFm5mxhxbWY7XT/Tklr5Xs7A9RIgdlsMAj3SJNb/fzEJA5ETM cDYD+tR/UpoLZ0H2CMl6/0vcT21P0MrezUJI7ph9N87pD3KO5UY1zEKiofi7 8acMEDtssktndBYKTXwU7SIZsPnOYUhRnIM/S8rMgvDzMUaMsjN2+xz4v1Qo cr2E1zejViZUdQ4y9uunH3FjwEijPt81jTloZm7X4nfG6y118LOJ4RwMc6MK DM4wYM9bnSOEyxzM1C8WVj/KAAOGhoXtyzmoT9G0eCOP58Mt7sDL3DlQO8fm Y+Pnu+ro5I6p/DkwuCauobmRAVLUHEpI+RykB87Yla3Fz9OB9eXFDXMw9bhg Z5gI7h9dfOuEx+bgg08YPY5Lh18N9X3vVHmw6YCBkONXOjhmW12SrODB76cV AegsHf4tCD1q+ToPFq/S4noDRmHJl/kT9p8X4IK9zxGPIhpkXM2Ie/F1AY6u 9Q6WzqeB/iaTPyNNC7CvU7r/ay4NgvxSzrj/WoD+ylBxpUwaLNY84Oo7vABb /+jYUhJosCgv+E6sIAH/QubQHj8a8CWszK4/SsDX8bdjScY0eH64gi58jIAo 5sfxpCM00GU77jA7ScCKhp0KKYdpEHDibVG7LQGi7Mv2ebo0IK+w/DjgTkB3 nvEEZw8NSHef/liIIoD3z19JVYYGxMWthOovAlxU4zcFTFPBdZVJzrY/BAxY vJ3fPInP1x+uWir0EGAr0RvXwMR5dEVl4bohAg7/tFTYTMf5Pv+kM2WGgDPy D2/x92PPfhoZW0pCDisVRfxbqfCg+QTQhUjo+EvvHQ7fqPDh+XAMdTkJkfKJ WwZNVNh6RPjAgBgJPfpytEb2Kz7/Jp5K7pAiIabo8rcUfF7O2j9uVqNIQsle +xSy8nEeEQ3I+qRMQofPOVxueYPz9pA48WE7CQ0d/31iPpcKt8I1cspUSchg VaTwuWycR/7eW/JGg4S+TEvNuqXh87yf9Lt4QxKiK8fFOMbi87f5G9E4IxK6 lnCzpiOaCue36jpHG5OQhpzk7HGcH1pbnSQijpHQ0e2Fjy0icd6WLXS/a0VC Plek1JNCqGBaY7DZ3ZWETNcUUWX8qFD0ftrT3o2EKje1po3j/LKmJPWT+SUS OrgyLab6Fs5bL7m2Wp4kJO5jsPfmTSpcjngZL3iDhIyc1sso+uD5DjYf4d0k oWdFPtqbcF7aG0BWZ94ioUPrp6s34jxF8rL88cufhKp7W9fuuILzsZXgivQH JCSa6f/8oTvOj8eLT8c9JKGJgYDkPJzXTh09mxMSRkJVN3dv78R5TgaVGXhE kdBOszdbdNyocHffuSeOj0mI5sZI9L2A85Cq6LBFDAndC6+veI/zYZ6cy13t eBKi+sutNXPB+X2DxHeVRBJyc59zSMN58tqaTxvlkklIKkzm8hzOn2iZ5Mdl qSRUd6x7pALn0/RFn4WJ5yQUEJBrJ49NWbhsM5FOQs0D+wticJ5tYdZxf2fh 9Zzs59zD+VeNdvVwYzaerypR7hLsJ/0ycR9zSMiPt4MahvOy3a9rahl5JFRz C73Jxfm65tvmwPgCPN7CrZH62ApfW1pDi0hovRzLexDnceY7Bfcrpfj++P9c 2I19ovjH+/PlJGRj23L3v/crpa/9hKwqSMi5yrgsGVs6S9n66AcS0v1etNwa 2y/190tUSUKKP06HrMceSLjL2VVFQtLPU1RGzlDhcPTOQ1tqSCgw95tgKXZO WFeM1BcSYk3uXROOLXI/eEC4joR6uHL2rthX/dR2ketJyKmmk26E/ft6r/9U AwmJfU94vxtb60poy3ATCcVKPuvY/N/7Gbe9Gzq/kdBr7gZ9KexF5wcuNreS 0B8tU8oqbOczkRWfvpOQ/nJbuf/evzSe0lpW/JOEoqc8n8tg7zw2YpnVTkIf Gwrv7sCOPhKdldhBQrwPqFUPm6OH2OGdJJSouzvMDttGm34woJuEJoWz3gdg V6o/ifb6S0JmEq+cXmFvVtHrd/5HQn8Dj0T++e/9iiJTxaafhHKKo7RE8PzQ NyX5mQySULiKv4cRttm6w990h0loX9oatQhs79CqRDsqCXkU1on/xU6a03K+ PUpCFn/JZXvw+lS5lqglMUjo8X6xLbHYIx0q5PJxEmpYonNuHnu5QU5TOwvv r9Dm6254vXeVyidMT5LQJZUp137s27Frd6lwSIhxo35uBNdL+uJYwniWhE4N 1mf64HqqvyrS6MYjoXUjfAb/vV+ROL74XBaJjDYaXwg8jutTo+qOyhc+MjKK L1Dgw/VspzI737+IjBw1z3SWYuesGI/dIEhG/n1f/LTxfmi77eKwfxkZFXTZ 3hHG+4XN6N9hLUxGSwVWpQ1g6zb+rosVJaOddEOPV3i/OWsejylaSUYrnrhu ScT7MTy76WybBBnZH2RIPsb7tSO4alZYiowYCsINiZdxP2Rr1SpJk1GetkhM jgeef6eSxwbrych9kW7BZ0/cPw7mKN+TJaNrj1/yRHB/WMIXa8tTJKO1Ehsv Ct2ggrKHiJLUNjIqAic3O9xvjvWGsNV3kJFzA99ohS8Vkj/cibyyi4yYJaU3 I+7g/XfTpYqmSUYHbTruJN6jghWtP5yiTUb1wu+Wq92nwh1LW2t5REZ2TRsO /QzG86l+fOqsHhndmByvUwmlwtkpLfkOIzJq1DV++l//DHIomZgxJqPS0M0C qjF4/tpUPoqbkdHmnuc6knG4/vLkT5mak5HJTiHgS8TzcVEkpPY0GR1Pov7T xv26YqifUXyJjOJPxvecL6ZCbVuS+5vLZKQs3vsyuwTP/wdzVpYnGfXuTrSf KcP1Els7lehNRuo77mS/+ID71aFXc/63ySjGmTvlUEcFt0xPQeNwMrJ6efy8 fTcVfB4rPTwUSUaq8C1FvpcKAXcGhHQekdGLLMb8RB/uPxYnRdRiySgr8KJy +gjuNwIaq6WektH7Otc3zlO4XziT5YZy8fjZ5d2+wjTYcqI84+8bfP8ezhk1 IjRQRVcUOvLJaCRu7KO4OA0OrxlUaiwmo2OfVjObpGhwta5OteA9Xg9Xw7B0 BRo0KkSi201kJJUaPTRwkAY3qettVjHIyHLpT9qnIPz5IxnWGuNkdPeo33rv hzQQz91mbcsio4zlTFe1SBq8vqxllTFNRkrhDSe/xdOgl215as8CGR2+1l90 G58/Di6JOXFyBR/a0c/V+PyLBis2LTsaq8KH9GJky3k7R6Hr7iOj8l186KTZ Y3f2nlHIGpI06tnNh0Qk0y7xtEZBN1vhiLwGH9Le2mUkZzAKV1X0Dd7q8iFN w9HkibOj0AH+B38d50NPq0JX+MaMQpoNe/8qbz40IGLVcGQRHU5ovp+QuMaH fLp3DIsvo8MSqcBMiRt86LqbETEkSgfX9uWiErf5EOeNs2zGBjqoHpMfWBnE h1jFbzZHatKh6pB5iGgsH8pXJ/mLedGhT7Xwl9BbPrSnwHdZ/RgdZATd3fln +JBE4FrzQpxPyMLG0lw2H0oqDeHdXTwGfSLbvo5x+VDZ7rRh2+VjkLZmVPbP PB8yMai5rSQzBvIKTr/yFvMjnZ5C5y16Y6B86Mx+Wwl+VOd1uSUzbAzU75ks K1PjR1GZ8t5v5cfBmLwz89IVfnRVXb1Ifi8TmDe6W8O9+JHDU5n3JG0mPJ4K 4b324UfOvMgNfw8w4ffwoNn4TX60Lj15MMuECWebE3nud7HNHOUuOzHhaqLA MY8YfjTzPO5PfRwTEnb/5V0p4UdoraF+4hwTBl3Cj12f40caPuskqM0saFkW etTjxiL0+SyXInJrEuTWb6mgLFqMTgrIvfhxdRoUfZeprH+4GB195b445Cob 7q6MmJYRXIJuf2jSSzbCuWxt3rbqqCXoQ1VIdeyOObC1uVx8TFQA8a8jzMOr eBAVkDWqv1IAyQQ5x+rV8aAmq3ejpoQAumGtPTrTxAPFadPwTZIC6Evf4SqT Dh6ww1ScpmQEUE/jmpLWcR5EfpxYE7tTACWLzx1dKT0PVbJevh0mAsgV7h/1 9JiH6cO5BU1mAqg05duTNO95UHAfHPl0XABxjh+73XJzHsLfmZtnWwggjcjr guuC5sH6xJ7tN88IIMlfq975JczD1D32X2l3AZSw8+YF96p5kKdeP2AXLoA8 GnyetS5fgLX3/Ni3IwXQPe6S4O8rF0Bk4/1XyY8EUNT6nspvaxaAeyp6ZWes AILxerES2QVorHvdb/5MAP1NdKtBexbAM6s/8EgeHl+A4w8tmwX44HS0Zk+b ACKlGB2pSFuAQv4T18x/CKCM1NIQUtYCZD2zUr76SwC96098qp2zAFHtTtH5 fwRQa3b07qyiBXA8FOCo3C+AnvaSP+zEuWHplpJFslMCSO74WnXxwQWwGJI5 KLyKgpwlmI3CMgSoEudeC6yhILWw3BHDTQQIrXm1mk+KgpRlRw0D5AmoNNhN m1lHQW1/fTv+KhOgkGsQ0StHQRVHFrrN9xHAueLZUbibgpafPhCiZEZAW2iJ 7mt1CpJP1eQtO0FAzgveq6x9FLSCwoocwjnCrj3odvJ+Cirm3yMVYoNzh0bi pvsHKUh3PsQzxImABHLNRStzCrrGunfzki8BV6UE209YUNC6lzpbmLcJMN5l jEwsKehErPqvC/4E8J37LaZ3moKYf4P3mAURcKGOXrLtHAV5fytu/h5BgFaE BB/Zi4IsbA0636YSsCrL6sKcNwVR1ihR29MIYFY++zF9jYJuu8r8nXhBQPrE 1kyaLx6fxupbq7LxfJzUNvpxl4JWO1BPihfgnCPtFJsZTUFvsry0qZUEnJTT GuyKpSDO1sA3nVUEtGwTVROLpyCTPZpuX2oIqNJ+1+qbjO/HOvPT3ToCsuxW CB/LoCDN7X056d8I2OgyYH0/i4IMJO8dsWzF9+9Rll2RTUFTqoEKS74TEBbg cHjLGwpKmHCPO4xzlGd6SSCvhIJOqxVuuNxFwGhOaJtKOQWZer+4P9RNgGPx 2Y1OFRTUuMlV1vwvARZfln1sraSgpcu3j0r14fkYOTOb8ZWCcm8FZxweJuAt U82gq4GCvC7V+PuNELCDK/hEtJmCznauDMqjEiC7tGi3bxsF/dkXu5g7SoCA MsXDrJOCLi6xqVZiEuCn1v0xqBtf31etfjOLgFmtguUVfynostD2CYkJAuhH bXLkB/D9Bos/750k4PxJlTnrIQoKiLRWKJ8i4K/tEsOoEQraMe7T+HAa1497 3vAcnYJm4tQurGYTcOTavT0q4xQUMePs2Ipd42d17zyLgtb8SrgWyCGgJGrR ptZpCnJc6T7+jUvAzoQOjyUcCiqJ/WvqOktA9vPXlZqzFOQ5TK3nYScVnrLN WKAgtnLpkqU8AiQqtuV2kgRRy8W7tXexw2v4eCL8gghJzD1lY1Oa2g31Fwui r9cLQu3nCfD/mRN/U0AQOe07HPkZe7bbfyRPUBCRNc6+lFnA9Tp0Un1omSD6 8vJl+xVsxphS0Nrlgugu8UPqI/Z5NumnqYggWjmX7Mn33/cTiZ+bgsQEUcKL Lz37sS0przzfiQuiGrM1Zzyw20T8PjFXCSKJJIfJJGwjSXMReUlBtOqCX2Il 9ueNimes1wqia+NHLbqwtRWJ3Mh1gsgovUCeiV2q+oP3eYMgEjJJEvzv+5Iq mi+PzG0URP//fcr/AbEN8D4= "]]}, { Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJw12nk8lN/3AHBmRkay76k+drJUJEk4t5KKCFlapLKmUhFSaaNdISWpRGXL FlkqZMtaSLIkEZpnxjqTZcaM9Xe/f/z8wev9mnmee+855577zLwou5928CLx 8fG9wL/+95dcvrT57wZ/89LF//2wQElWSWPVwz1gZfQmbg6b3RNt2xVzGAaN aW4T2H4/qTUSOT4Q87PUqR+7b0vDQFHMaXhfaxnagP2m3YIvp+QsGMcmtGZg uy9Vj+LLOQdWRbR9N7BXgMCqvUkXwTh0h9h+7PazRFZKzBU4psBjq2PvaBtY GVp1DSYSDUVGF1iQzHTwSikJh4f8Zk6Z2HxCn7OaC26AldihZg/sQ6rrp6az b4H0eUaIDHax2evNyml34GWTkVPFPAtk90mFWyVFwPj5bA9P7JZ7kxIJMVFA +lsp/2SOBY9/5On+rYmGnCbrCk3s6j7flnNVD4B0ov1Z7iwLlGe75F6WPITH D2THs2dYYEeNKdnw4RFIr+adUMG+LGN1+EtBLARE6q+M5rHg19ri1MnsOHAy t1N34bKAahZgdTvjCZzyTLqUO82CjVbazBVp8WAoulyMjP3I8+kGy6RncJCW 3/eQzQKb+AvVT2ISYYzs5uw5wQLzvQoFj3ckQUhDYtStcRyv/WyB/pokKI3U Fkr+xwKyT/aboKqXMOANlfVMFhy5tnL8Rclr2Oqt4Fk5zILpW7ytQ5uS4eS9 /8pyhlgQGdn+aP2HZDBZFnY0dpAFpc/uG9cXpEB03vk7tnQWKBTNXxnPToPr cYXhZ/pZkFva9X2zbjpEyg3baPWxYOfnQtWbGemg2nPlZFcvC4Jb/OqWp72B +RZaluZvFrQO94haJGWCXHO3d2AHC/CwCY9j3sLxL3MmLQ0ssPz6TL9CJBdK kw0Qr44FtTf3SW9wyIWjSk5Ry2tZUDf/vWtVdy40KD6RsaxiQf1ItefEaB48 NxgR3lLMgi91GRfixQtguetn8YZ0FliF+xwSdSqAX+cF5s+l4tfN1VB4fAFk nfx+5L9kFnwtTBDwUymEjPCuZy6JLGh8HR2NDIvgh0325lOxLGi6EpzKcPkA bnViahuvssB28/o7rs8/wKulnatOX2JBM4d14nvfBzCal25IvIDt56tf4vsR 6icdNo8EYh90LY28WAxZDk8pOr64vjZubd2QWArR+as+2tuxYHh6yeKWsxXw yrFF7YACCxZVbao3PqyA2j2jcUwZFkjbPbyjl18BMWH56pckWQDp/0krTFZA M+nDy9vCuD72Ga/+F1AJ+yuco/fPM8H8o+/eFwFVcNlmjsL4w4QHFxrTZvyr 4aeWwstvSUwwnn9gl3+mHkz66xwHJZlgEno8jhpdD2GkT8JIlAmbZ7f2Hnpb D+5GMTseCuH78SZPUJn14Dge5qHLx4RtbKdbh040gPaeDTWrx8bAdkyhTND7 C7i18As6146BV89LHdeDjXDGMn/386AxaOjdF05SbQHX6Dy9NQ2jgLY6zqa6 t0F/VHP/sTUjcODMrn+F+39CxqotN8qfDUGZsnZYRcpvCH9X67pzmgEzTSZ+ SUW/QftqQO3qcQZsuGC972rdbxgN+BslOsKArNaTa9DQb0gg93kP9DLgWfjb X+W6PdC02VCjoJYBIYTh+vL8HrjAJzMoGMeA9W+A9qmyF9TuMj69NWHAKSe7 bwmtvRATrvFBdAMDMviPFl/62wvDal4GAWsZoHIgLNpM4A8UJEw2WKoxQFy4 xvTTzj+gqzF6XlOUAcyTVrGl3/5AxuTY2eYBOjg+0X7dc6oPTpxlP2ZG0UFw IMuvNLgPjmYoKVpE0KFYZ63xs8t9sP11fdCLm3RQKl/ftC+yD6xcljccvUSH McJ0+kd2H1icfZukeoION9fvsf4yiq8P2dgUv4MOH5rPThYd7wcnsyHyJQod TshzPsUG9IPAuisD5/nosMo95HbghX74O5TsETpHwHV26EqDu/3QvGHUK2aK APsVN3dkv+kH7wN+UmSCgGHfJ89eD/aD1+XeXXO1BCgKfNoW7T0AJeDeGhxF QJv6eQGF0wNg9v6+8VgEAZGWG+penhuAUJeL8iduE0C6nW2Vf3sAzu00PHrp GgGDS1/Yd2QMwAzjRvvcWQKKxK8cXsEaAKuY99p+Bwg4o79ZOWV6AJAP2ufm QoC2w/SAHt9fCGVZHndxJCDh4WlvkPgLXoGHnI7a4vnLHvFzX/8X/go3ctu2 /m/+Wy6mn/sLF6yS+5EeAUvN5k31r/4FlbseFvnaBFQf+rjw8fZf+C0gwNTT IsA4UT/sa/xfMC130TNVJWCVisodZslfiM1YvVCqQMDPrb1W56r/QlGPukmA HAExHk+X8TX9hZUHmcNrZQgQSJGMluj9C0/XramsFidgVJMcZ8hHA2f/M78c qQSk7izf94lKg0MeMi62Swg44ntxuaUEDcjJuoF2FAJ+ZEwmuKjQoKy+PfkU HwHFerTkCxY0+PSOP0CKR4NA2yRvsg0NbOaOXXeYpoHeaVete040yD/5+MhT Ng2SctsyE7xpsNXJ5K7FBA1ura95V3GbBk/f2eiSR2nQsePirg/RNLD/q8p6 OUwDNVf9vrdPaHDD0D105xANqq4niCSm0yDniZtANp0GC+1Bxy7V02CiNtOk rR+PO6yzGNhCg7o66+K8Pho8X+iPPfmTBm3flVXi/tDARNP288FBGlisafhw vocGwSEaq0zwuqMivnm+6KJBzb3fBfo4Lk8+rrpTgq+TfhljvVqegDlyTF5f Jw3eNSyEyOM8xH20XrGtgwb8vQVi4usICD5p4HW1nQZ2E8dTBY0JMPp8qbym jQbM5Z0/ODsIUDq/pvDYDxqYrb1/nLmHgMaXHOfaVhrc27aNn47rppE3KKuL 3e3Ci+s5TMBClCo3/jsNtE++XdPuQ0Bibum8GPb5q141jacJuNpfpR2J11n/ SNG1+hwBl3pNw6SxvT/dupN/iwA7taulm77RoPC7mVImrnvUujblZzMNKPTJ oldxBPiIKVVfwd4788bmaSKu69PrVqzFfiV6hPYgjYCWNONcehMNxlVkL955 S0D0HWp4Kjba2Chx7T0BL/iOxZ3CjrIOSw8pJ0BKTO6fOXbvYWM4U0eA7Jem KDlsvUBmu883AiKcTc9zG2kQejv55OFOApqJpW/7sb8+P0B2+UOA57uu9T+w l+eJP7VlENAwh5Y2YfvW1K6zZBGwifrd8Bv2h67QOrNpvH45yaIubEGmgduG RQK6fK9Hj2I7k4amdAXp8HNjUq0gHj9FNjFCTYwOO3PbD+hgT2k7qayQo8Nq 9r09LtjbQPij1H90SJPXSIvAjtlbuUdYkw7Ky3ke9dj9PufopLV0WPvX6bYI js+6UL1LM0Z0+GhxXfYg9pXov1IT5nQQn/osnofdnByfMWRJB9nbu8+L4fiv /LhnS78tHY4G2zgEY59sEvj505kOQeLMBAK7pL/kVIsbHfiu2bgdwvlbyvEX qPemg0xDWGwP9v6lWs/LT9Hh8qfn271x/tNX9Rq8D8bjUV6dmcbevsPqSCru u05qR2A9rq89/zw7gyJxX624F/wLe3/8Fdvtj+nwLj68+w6uR7+RAlNaCh32 ynzfwI/r99yjb/n52XRQ3Bi7pgH7mtmwdngh7vtRCwfjcb3HRv2noFJDh9bB HQcd8P5INDaJHm+kg//ufes2/6LBm35Hwco2OixNO4V0u3EfWH+XfZhGB+fc j3KaeH8RnVPfE8gMcE7w/3oF70/WVbFdfsIMqBqKepkxQAPeau0KUykGKI9T ynr+0kAk9HBOtwoDWjjUb654f29Q+nJXYSsDnocfPls2QgNooPEP7WJA4VG7 FzpjNNgVsBjywZ4BHCZP/iUT961qQx+Xo/ic9X3EnzKO+8axxG2xVxlQcH2x WJyL61WiuNjzNgOSJilXKnC/ii9u0zeMZoBYq8HTkFkaZC9bqvQjkQHBa3S6 +Bdp0J4bOCdezoAb4c33Q3A/VOftKrw3j8dbr3BgWpaAta88dV0FBmGJ+a1e Xdx/N1lfea0jMghrXRU/H1ckwCah4MGXFYOw370/e/E/AoK2/HeKajoIBekH xCNXE1BzZ0rj+oVB8Kn6oGJmTkCH0K7Y+bBB/Lx0Ps5wCwH0OwnkcxGDMGyf MbTBggDqXcs+3+eDYHjGVt3ZigCru0/i95QNwsPMr6xluI803zVdpkgagpP7 f7ntDSCgd+mDC4+WDkGxgnDgYBABrLvEoIjUEGwL8z906zwB4hGRNXxqQ2DN En0zcJWAvRF9l+nbhyD27ZklYtH4PIm4Pp53ZwjOmLQ0muXi81C467BOzBBc kFZ9frqAAF6EXnPy0yGY+3pSJ/MDAcvvdWTEZQ7BY3XHcKgkwPWeluelJnx/ PrnB360E9N9r7NgpMQycsrjeQbyPh+9Ll/55Mgxvb1CEjXbRIZrfY7EuaRg0 jEsVAO8bo6C8rbnpw7D7RY+X3V46hLnaNlz9MAw53xOzIg7RQUHndofyz2Ew dFmd4xmA93n97D8PuRGYE+0zepFAh1TSX/XB2BGoWLLKQ3GGDruD9X1bEkaA HiTbrMHHgImhK1kfUkbgVZeqgskSBph/X7H+TuEI8HeWbAmRZEB7ojPSbh8B w9jfFxx0GEAx+3LgpPQouEuKeVx0Y8DRc3lR/2JGYckqL/XrXxggWrXpS9iz UbAI42kotjKgeFkVRSZ5FLYst+oo7mKA5KvW85sKR2FnwVtN6SEGVDdOeoR1 joIO3YSjRx0ELRUjY+kVY2A4YqLB2zEIrMbivo0pYyDyXqevqmkQLqlU6195 z4RV1d9Vsv4NAY0/b/dQORPG/s3tFZsZgt39CT5765kwsrLA/Dx5GJYnnUvQ 7GLCU/FIlaOyw/BhpY5QywwTuBZvbK+aDsOUfEyfkjkL0o/dD2TfGYaTYkei qqpZINimYhm+egTWLFzikHz/Af1hYK7L+VGoO7RvUslzHOQjVTsz8PO9/gu/ zkuBE7BB0WbPTuFxsLCvPFAYMAn6IZdUV56aAB1iT43OzSmILfxKze2YhJ++ ulFed6egf8r9/FD3JNxkUvcnRk5BT7ChnFL/JPRNV45Kxk1BZntC7fWRSXi0 1FB6Jm0KKveX+OrwTcHcWnmP+oYpOMRZcXZIawqaL/TxeYmwwWjvktwlIVMQ IO5v+uIRGx73vfStEGbDcOSXM1FP2LCo8qusTYwN7iJqKVefs6H5v28JhBQb 7Jd2ingks+G3p/XInCIb1lHM/mgWsOGeea4Xvy4bmNPUsLwfbDjxNmvYzZoN x/8k1VVLcuBA2biH0y02DByamS2U5cBaZ4t7U3fZcOD33nVpyzmw6lZzR1Qk G3Z1LYm/o8KBSwe9a4tj2aD14+RxWwMOSBYfLul/zQZ6rbHIT3sO7NnC9fQv Z4NHTovDSDQHLIK108Mn2eAmXxemH8sBEwtZfxoH3z/s07tz8RzIgqvb0Awb 7JwzJCmvOGA8Fjo9yMcB04Xw1hX5HPj3YwwWRDggbbvRwbadA59OXb62QZMD Yh/0wh51cSDOnua6XZsDS1XU3v3q4cDJjE+idnoc4OOIS/rQORDo9n7IaT0H RhOGv1+Z5oBUhetqVeBA9ViCfZ7CNNSaz1lUOnGg3OXRtemV0yClMql5aR8H iivv5pmpTMMxca/89Qc5kBt7TuKL9jSs8Z74EH2EA8/N7L8PbJ4GtVYvw6Un OBB0n2Iv7TYNNa8/Z3Ivc0BD74TduVfTwJrbk/sOr2s0unc4MHUanMb2bnye zIF3U/Y3AjKm4X6satvVVA6YlRoX+72bhl/3Y3duzuCAo/USNc+qadh3vpwV mMeBa74vp+0GpsGiTLqHV8YByybpGFv6NCy4VFIeVXBgmf5t3d3D0+AqMLR6 dRUHnnBPHd0xMQ1PonV9LGo4kHPL9KsZiQuCnGW3zb9y4HdK5wttFS7Majdv Rx0ceCVkvUlLgwvslsg3dzo5cMyv7Ie6Nhe+JnznNP3kwKRhClXZgAu7D5zf taMbx7s6IEBuKxe2L4vIm/vDgRZN+jIZSy605JzbtrKfA48j9qdJWnHBTORB kfEAB5T3ot8iDlz4ln3W9AgN53lAxJLizoWPgzLZ/oMcWNh+rY/fmwuXC7zX +A7h/LyZurDoy4UP8Zl3Dg7juvLvfjvjz4VFmy9f1o1ywJvvjcL4NS7klLgf TWBxQNdzRQHzBhey3Uyfn/jHgfG6KNvRO1zIm2NlGI5zIDQqOJzxgAsLl/S2 vJ/gwMNVFmM9L7lQpMM1v8zmQFHj0Lm6FC4Q7wY6/uNw4NeFKFLeGy5UiB/x L8VW6vwldz2PC20Wwll0XEfbblx95VfIhc03wTqQi+ezXkPP5SMXHgZJjcxh Z0X5b9Wu5MKWte3aizwOfDOTa5Kq4UJw53BDyAwHJkZKXebruaAxzPIZw960 k+rX0sIFUTnLxLpZDrhysqc/tnHBPrJvo94cB64m7w17/ZMLtdrzTfexa/kS 44L7uPAq/dI4zHNgKMdC5QiNC2Vndl9+gL3s0HDWrkEuUHXPCvZirxOO3rh+ lAsKX/PuqS9wYO/HDVUr/nFB0r9R5Bh2sE/37iVTXGg9G3E3BfupzLVO1jQX tF1LSL3Ynz5ruHfNckGYrhsssciBPv/G0apFLrzjK6QBNlkp4FwWmQc/mnVt fbE1muVIjwV58CHV/919bKvQT/euCPPAQ9JLIhvbT9tDzleMB1nfRo/XYUf/ pL5ykOKBU8tE2W/sgps5uqZyPFAz8RIZw+40dHyvrsiDMW8jZy72zABvi9h/ PEimucYvYK98kNjIVeGBZ9CPjkVsBNtdBjR4cEYsXnQO23NsuP+rNg9Me3LR JPatZ9EnC9fwwN1MxY/AzthlNP3CgAdJVdyHrdjN093XbhvxoHG9RWEx9njK tWUBJjyoiZD/noAt7agZd9Acr4d3n3EReyOpSXn7Vh4c/FPBdcQ+kBuQtcaS Bzpt3ymrsS+5yW+Ut+LBzEtCmIvjmbSsrJLflgf+luqiVdifiz12j9jz4NXE J+Fb2PRjQp1tTjz4trSfsgNbr8ZxNO0QD7TFXg6/x/m0OzsT/OAoDyyrCjuP YQcqJ/Ff9OJB8ymLSmns4ksjsrZ+PAg9MXb3EK6XHp0HLzf68+CP1MsTM7i+ +H4Z6SoH8SDGi98qBtvSKGzLVCgP9H9o8efjevSlaTb2XMXr/5bxazP2vZgm 57rrPDhhtCe/HNfzD6b8yaf3eHBd8rXHB1zvR9LePkbPedDF97vRD++XJVsm VlxJ4oH5ZZt/FXh/Zf8yfP0pGdcHucBQFHtGpPitSTYPlopqqMZNcuBRYHW9 YRkPqqqsMt3x/jURFdxztooHghmDwzfx/u5P29WeV8uDlX4J9ilMDqzpbu5f 840HDxkNcS24H9Rv6ZrR6uNBxX+EUj/uJ6e6Fa/50HggJ1T/roPBAZkgN8HU QR7c7Np7thafC+7pf6VUx3lgLP/8+iPcj+ZEmborSTPQ7JC+ZAT3s3W/SYcl 1GaA8kXnQRg+dzqCthN7tGZAfawkTrEN51Ps9olI3RkQXX60L6eVA1+2ioQI b5gBveEIs+pvuN7eyD0QsJwBNbagXUYD7sfBup95PjPwzUtNz6uUA+bip3cZ n5yBIlaE0OtiDhBv8r4Fn5kBqU65Ld0fOGDQY/R7MmQG+k68rjcp5EDjti3s sTszMBEwdqIoG+dPwllzIHMGxuL8018mcMA/WUb+59sZ3G/lbDKecWBgYzu1 OX8Gej0WlHPwOVvt5jj8sWQGZJ65e6Thc/hOlkP2g68zEL9LJujIfXyO79yz fsvIDBwSV/RmXuSA2pWdkKQ9C6p5cf038fkYK0ld93jNLEwpRWjyHHB+U+uU 7hnMQqDSSLe3HQcGGy1JISazwB9d9sTQGud7+faaPVaz4GOm8zIeccCoaIv1 ou8snF5/fCwCn9e7xkxc3N7MAnuDgKnKLBvMT8Zte5M9Cxfqty1+nmaDwcjk 2qm8WcikKlYcmWLD8qEs6t3iWeBz0t4ZMcaGUdqq4sKvs/AzZuF78h82RP8m rRRhzkL8mGDvaBUbOr5+GSgxmINxdSe34Rts8Mw4cEqhdA5W3HhmELwwBUVn h6zsKuagN/u62tKZKaCahWjeqp6D52uuGD1lT+G+FNs31TgHEos5X3NGp2Bq qsWhpWcOjvizDDJ+TUE47Nh4a3EOlDYvqxgrnIJXbev52FvnQarburfWFz8X LiyLaWmYh6MOWyo/103Cktp5R/eaBVB9ts3U/vIELPqtXjToWISefztN6/jH wa56l9rp43wooXO/B9mYBfYrd37byuBDlRZCYwfiR6GU/nes8BQ/4k9PkvxG HYa61uen357hRzIGm3TYi0PQWuY0nh7Aj0wTo3SVp4dg8HHd1LNgfkRWPEyK IIZAekfm7LXL/Kh1z9201Cr8uSotQMg2kh89vBOgQ748BCuO8avTs/nR7Yll Hhd4g6DpWJz65y0/0vg8oeM7PggG6KxWVx4/OrIi6Ynb0CDslCd0Ggv50QEZ TsChrkEIrK83ePeJH9m7RFVmfhyERq1odLmJH1n2VhyOujgIF4dWucqO8SPx MkteLAVfb5160ITFjwoWS1/WzzFAOlvvoNs4P5qTYf0gsxmQc8b0QCqbH60V jRh9SDDw8/T+fUYLeH2brt9XrGPA9iWxjs5iJDRwo9GjKQJ/7lUVtnmsT0JK llFDfxQZ8Pt6zO7i9SRUXCyqu0aGAel0hd29G0jo3o/Hz2+IMmBrhpa1hgkJ rX4WrmDHz4BAfctdRVtJKLL/89xeBh264Nr2jr0kdHx7q7RiIR1eu06byQaT UFvITEalCx0cN3+akAkhoc/P3AueOtBhyfLwNJkLJNQzckAr1IYOxztFJWQu k9Cxjdz9+7bRwcBBgyZ1k4TMmCOawWvpULXD6a7EYxIysf0WsEuIDoEaiiDx hITu9i2DDAodNAT6J8WfklAjZSheio8Od6tOHhJ/QUK7ruwl8+HPmw5m19eJ pZJQeelwFxAEDBjkdywrIqH7V28pH/pMwCOJ8xHLPpCQvzojd0c5AZb/zNGy YhK6Nu0wbFJCQEb2lzfCZSQUVTFzZHM+AQFaA6FLa0lI56djePJrAvhXSahS O0ho58WxbPmbBLyb6+gU/InjV6QWHBlGgGf383uCv0joIL/a7LIrBNQ/0eIs 6SWhvSFcc7UQAqKlUIMAHcer/0p1yXEClIROnyZzSCjpaLxblD2+v4jtCt40 CY19bDFOssXzF9drYPLw/DfGhX20JuC1/IjKr3kS2nhI1FvAkgANLZ+OXAEy MhKMOEvaTIDujsNmbjJk9PtHaM0DDQJErM2H98qR0ZkDstmr1Qhg2q6M26VA RgVZEQJflAl469z9z3AlGd1z20ZVW0mAgbdLsrA6GVWafbQxkyZg4409wh8N yagrTeAGhUKA/J01H3KMyEjb7oaDKokA7j0Rr2RjMjq1WuOu1f++L370tSzK lIyS1QQ2vJujgWnyjgBvCzJi3hT1pLNpsDJd4z9XSzKK/J7it3OKBguZAo32 O8koe5LU/W6CBuX5n9XNdpPRkJlVTxKLBls/Q5eUIxnJrp3w6B+igWrdqptC znh8Uvvpm4M0oHydN1h0IaPdUpqd6xk0qGktuTd8kIyU3rvkp9FokNrxdFPf ITK6SqpSP/WXBjd/nae3HyajBr58pukADXYObESVHmRUrDp8efIPDVbTZceK vMjIxOjStu5eGiwdZsdn+ZDR8u51+7/20ODreP5k3AkymksxC6jupoEt/7q0 U2fxfEsl9Zf/pMG/Cz3fI4PIqPf6mniDTho8nLo7l3OOjMYZ1SWOHTT4ySDs WRfJ6KZIo2ZRGw0uHH0YKnaZjCx2d55k/6DBim6UtvYqGTmqx3iYYx9tfjZ3 +joZOQt0uI59x+vduUsz+iYZbZJKPrAXO7WSY597m4z8WjL5Prfg9WxODm25 S0YczaDdptjDBfZp/+6REenYpc3l32hwb83id/EoMnq5feNXa+y16Vlz6x6Q 0Z2+pbz+Zhq0Kh/QtH9IRn21TlXXsAOfCTr4x5KRPO+4mg62rExh6IM4Muoc i1nR20SDj5HuaXnxZMSIFU5/iu1KFW/9/oyM1h+hVh/BXrj2aW48gYyazd75 rcNOmj2uKZlERmKpmq+EsLcGyTsYvCKjzKehbv/7fpfGrAl1SCYjWmZx4k/s W8fOpgWkklH1XJ97M7b2gFJrTDoZue6gJf/v++PGg81z7zJwffTnuHdgn2q/ qPkji4zEy5XiB7HF96x2mMzB8b4gtp2Cx3tX3xEqlUdGZk6WHquxnbZeT1uf T0ZLzW/++9/3xdwS/da9hTj+7TeGorCfbvgzd/Y9GWX5j1t9xzZ9e0/z0Ucy ClA7IbECx+OPlolDQQkZXSi7u+kMdtgrRmjbJzKqbespb8JWWxGbNlWO67OG kWSI410bu7VVugqvp0S5Kxn7mNi/OcNqMrpcNOO5Cucrm2TtEFRPRsdHJX31 cH7tQrmhsV/I6L7ffFcV9gQ7Ja2wkYzabvdEHW2lgdEQ3zy7BedHxrukGNfL T/ccTdkfZHRJy3d1EK6vi78POhi1k9Fmdbkm43YaVHwrSgvuIqOa+eKUblyP 7rs8Wx93k5HD5ZLWYlyvlM8S80U9ZORjGqr+GtfzrqKTDtP9ZHQinK4T9YsG o2uXX5KjkVGPm3VnDK7/yDd1aRvpZPRPkxGX+BvXz3OV+XPDOH8DTTva8P4J lG3RfDJKRsI3b6yZw/tLLvqSwwcmGVVdt1HQ68f1Ev4zjTuB458VOvQG70/C N9Lh/Cy+3nPztCje7yePXDAImiejfMWC917DNJhy9pb0X8T5lzy7vnoEz9fC vPUYmYLq9a7bPGHSQGUV036fMAWVCb9KfI77S4b0L31HEfx61JrmdRwaGAjX StiJUdBr+bonjdM02MJN+L5DioKcLafHl8/S4Eirjf1GRQpqMq7ZIon722D9 Jv31KymoasKxd4BMwOlydYm1/1FQhjuLXSxAwOWs+RYNVQq68tr8xjUhAhJu ZtvJ6lDQ0PGnmT4SBPwyEbFjm1AQf63r5kcqBLjr89aOm1LQdZGsi79wPx7W JMTGzCkogfaDpalJAE/60zfaVgqKDJw68lMH91vWyT1tVhRk9x+vP3IDAU6v G23zD+D1XX+kbmtFQIvwPRv/CxTkr2f/eAKfLwohlplxoRRUi7gW+0PxeDQ+ obLLFFQxuSKjDp9H7NKg6qXhFKSUIhBags+v5acOb06OoCAN0fjzC48I8Gox WN35nILCmh4+G3lHwMyjLopZOQXFf0V/1kwRYMH/yN2jkoIsRAqtLnMJuO9n W3HnMwVFRU1dbpvD55nl54sddRRk2a2nEitAh+3TWROnWygo5fHpQG85OkTv v9r3qp+CeNfZxltN6aC+SrOUShFAqyOenkq+S4cXb2ck1JcIoOblStYpUXSQ 3dLss4UqgJ5oZeRlPsLPE55BUheWCaC6be2z9S/oQH/z+fiItABiqSQ/t8in Q+qGIwrN6gLoo9imCuMeOmjZxAc/3CGAqm7niHUZMkA7VFh/VQT2Y/6zYuMM uC4VxVYSWoIcN7F6c88MwQ7FXL3PD5agZZIVeWtURsDN9Uyhg4QgIond1+lL GYUHYekjllKCyLTLI/FG5ihUp/cpb5YRRJSxIGOtvFHQZttFqioIIunBuXLP 0lGYvq/vM6UkiHZmbvUrbh2F6PIJ+cfrBFHrcHdM68IoVKkEhXbtEUS+NyPP 3HEcA/bO7HdN9oLIQzhPvm7/GGidJgYr9wqifRdsFPkPj0FkiZNThosgmsou lTvuOwYHHY3WXDwsiIL3TliIXR6DqRvTf1acFkRrP5JMX6aOgcbQ+W1HIgWR dvbCZPHUGCjeuDp9OVoQhbnO+f3hjYG48q3MhBhBdJzk+HlhYQx4+x5JdT8W RL+V99D0hJjQWJ/z1ykRr1/5s7nNSiYEpP8Nt84VROcUnx27a8GEMh+baqNW /P6GlcUtkUzIJzuGOLUJoq+Pj5Rue8iE9MQDuoEdgmg4NvxLbhwTHnT6PMr7 JYisfkZPhCQxwXNHmKfuX0EkV5jeWJHHhKWa7ykqU4LIlnB7tvoHE1zoSttF ZKlo3UAj11iCBQaLXjmC8lQ0Lui5LFmaBcvkM+VIy6ko+rbpfiF5FlTs2jDM WUlFWdvbI6tWsUAre1dUnzq+Plp5jqnDAu7ZgK78DVQUWtN8R3c7C1rvvd+a sxG//zbFc9NOFmSlzGWmb6KiYmn9zciaBUc6b15OMKOiy3IOrZvtWdBg8kz1 1nYqslEP3TrsyoKn/NV+B5yoaIcfGCufZUHgcqFORxcqkgxy39UYxALb9bZo z34qKmFYq/iHsIDk9VPS4hAVve5V/S/9EgtO1I++1/Oiojvdh/99ucUC0ygZ En8QFckbzXn2P2WBbPqBE7PBVJQv+yJaM4EF/yoS29ghVLTBRcPZJ5EFyROr 04ZDqehlZHDyj9c4Hs7mu9uuU1HR0odLDmexoGeFz+O0R1TErD35ybyUBc7q psTvxzheVcueOZaxoEVPwlAynopatdAe9woWVJmXfA9NwPEJDF/rVc2C9CNi Ig6pVPTr25Ir1EYWKPvSDt5Kp6K7recrfjfh9ft/zCjNoCJq70xl+jcW3A/z 2Kn5lorO5NfNaP5gQUDy+/C591S0ZPjBfFUXC0ay7rXqF1NRAU2D59jNAs/C o8o+pVSkKWbxsvc3C1xqhcu/V1BR4PZNzJ9/cDwGD8+kNlDRq4oU8CVYUPTP cNfvr1S0Vb/M4wOdBWt5Qk8kmvH6cntVFxksUFlasCG0lYqqsnrPnB1mgaAu 1d++m4rKBqVFppksuGrYU36zh4o85x36SP9YMGP6TrT0DxXxTapuXTLOglEb 1ywNGhU9Vc7KnJxggbez/uxBOhXpfnmS2zPJgj9uS6weDFLRcaNw8/IpXD+n cxmzo1RUrbjt3zEOC6xDbhjps6hoQT1XQn+aBdVXD9zwHqciLQWr9/+w3z+g qH5nU5EypeSuM48F6552+S/hUpH3n4iiOeyMVzkVm2eoSM3vkvvTGRY8z9/n lrqA51NvtrF0lgUypXrZ3XxCyJh9zA3NsSCymjQnThZCSo/8SKXY1KZOK0sB ITTw+onK2nkWXGvPir8oKIQiz20ri8ee6bk2mCskhB6//9E2ix1Id95IFxZC 4e4lXk4LLBhj6txUFBVC8U0hZ1Kxvaf52u3EhVBSyuMpJnbfYrvqTUkhdJKV Ob5mkQX7qZkBJdJCaBvV1ccbu1X8auU/WSEUlursFIu9W8FJXENBCA12uZSU YNcoax8+qIgtrBXfhW2uvZgdvVIIUfieM5nYHwza5mr+E0KjPx6VzGLrb35j PasshP7//zn/D30zM6k= "]]}}}, { DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0.6000000000000001}, 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, "ScalingFunctions" -> None}, PlotRange -> NCache[{{0, Pi}, {0.650000114466729, 1.9999999999999862`}}, {{ 0, 3.141592653589793}, {0.650000114466729, 1.9999999999999862`}}], PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"1;0.5;0.5\"", "\"1;-0.5;0.5\""}, "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]], { 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]], {}}}, 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]], { 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]], {}}}, 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]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, 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]}]], "\[InvisibleSpace]"}], "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[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, 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]}]], "\[InvisibleSpace]"}], "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[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.669131416898292*^9, 3.6691315226884403`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"q", ",", RowBox[{"{", RowBox[{"1", ",", "0.5", ",", "0.5"}], "}"}]}], "]"}], RowBox[{"Sin", "[", "q", "]"}]}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", "Pi"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.669131582678524*^9, 3.66913162251858*^9}}], Cell[BoxData["2.`"], "Output", CellChangeTimes->{{3.6691316062585573`*^9, 3.6691316236785817`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"q", ",", RowBox[{"{", RowBox[{"a0", ",", "a2", ",", "a4", ",", "a6", ",", "a8"}], "}"}]}], "]"}], RowBox[{"Sin", "[", "q", "]"}]}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", "Pi"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.669131686008669*^9, 3.669131703828694*^9}}], Cell[BoxData[ RowBox[{"2", " ", "a0"}]], "Output", CellChangeTimes->{{3.669131690508675*^9, 3.669131705468696*^9}}] }, Open ]], Cell["gerando os dados", "Text", CellChangeTimes->{{3.6691317336087356`*^9, 3.6691317356687384`*^9}, 3.6691317679187837`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a0", "=", RowBox[{"{", RowBox[{"1", ",", "0.6", ",", RowBox[{"-", "0.5"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.6691317449087515`*^9, 3.669131756458768*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "0.6`", ",", RowBox[{"-", "0.5`"}]}], "}"}]], "Output", CellChangeTimes->{3.669131759578772*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"y0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"q", ",", RowBox[{"w", "[", RowBox[{"q", ",", "a0"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", "Pi", ",", RowBox[{"Pi", "/", "6"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6691317734487915`*^9, 3.6691318357888784`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1.1`"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["\[Pi]", "6"], ",", "1.36328125`"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["\[Pi]", "3"], ",", "1.06953125`"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["\[Pi]", "2"], ",", "0.5125`"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "3"], ",", "1.06953125`"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"5", " ", "\[Pi]"}], "6"], ",", "1.36328125`"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Pi]", ",", "1.1`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.669131813618848*^9, 3.66913183647888*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"exato", "=", RowBox[{"Show", "[", " ", RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"w", "[", RowBox[{"q", ",", "a0"}], "]"}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], " ", "]"}], ",", RowBox[{"ListPlot", "[", RowBox[{"y0", ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], " ", "]"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.669131840958886*^9, 3.6691318462388935`*^9}, { 3.6691318821589437`*^9, 3.6691318907889557`*^9}, {3.669132262989477*^9, 3.6691322706394873`*^9}, {3.6691327380401416`*^9, 3.6691328086802406`*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJw12nk4lN8XAHBmRsZWlJ1kCSWUJJI6N4W02JKESiVFSdYkEkJKQpYk0WLN WsiuRJYklK2owSBLMmNmzFjqd79//PzB83need7l3HPPPfc1Cmfcrc4RuLi4 UvGv//4S6/jbR3Q8dpcn//dDA3lxeRW5B+ZwXePMhhRs5mCMWX/cKXBvf/I1 Ddutj9woUnAezhaaPsnCpuxpGS6Lcwdp5eNhr7BzuvdxFVR5gU1mXeRb7DP8 yve5Cq5C38eLLzuxZYFH7kj6dbhvsX9yFLvbazQvIy4I7ooYGC9jm3wdXhtQ HwzbVqrVSTyiwYsZq3MZVaFgcYFmrYPNxfc+r70kDPSd3HhtsE8oaTPm8yNg 4YJPzzXsyl3PdypkRcJlrsF36djitmtCD6TfhdBer5ZW7I6oOZHUuPtwL9tO fUMKDRK/FKuPNMaAef72CHvsBopLx9X6WGjktVuOxVZY7Jd4WvUAHE856ZMf 08CCHFelUx4PL26Xc+3HviF24FRrSQL4O2oO3cH+trkycy4/Ce4Ibv4jlUoD 8i7PA7dzH8JLXbKsM7buAbUZ2axk6KhLO12KHe/0SMc4PQUyDAJ0TjyhweFk /4aHcWngP6bN6Eyjwe4jUiWJJulAmzr7fXs6jtdxJs9QYzocEvjS+wSbeD4/ x6f+KfDzOq/0e0oDx+C1tCdVzyE94NBZ8+c0mI/gGE7seAHibwJH27Cjo7vj tctfQMDZa36HX9CgOuWeXnNJBgzIH24/lkEDqbLlIFp+FhQpLKnEZtGgqLq/ c6d6Nsg81lqrmk2D/e9LlcJzs8E4vVnuLbZvh1uTdFYOEJLl9izm0KBrcnDl vvSXwDqTP52QR4OodbWpiXGFIE4lKzu8ooHxxxStt0JFMF9VgbRf0+BDuK2o jlURZL4ypgiV0KBpubNf7nsR1FfOZnwqpUHzVIMTfboYyB+MVa9W0KC1Kdc/ WbgEbG9ofr7yjgYHQs+fWHm0BN5OBEYE1ePju9ej0OQS0LM3yo99T4OPpak8 boql4LY8q/+2kQZtz2Ni0LYyeHExVsu4lQafgnwzx4+Vw90azdWMLzQw26kd 6fC4HKIy6r/pddOgnfXnYielHEh+9sybPdhuLlpVLhUgIiwiJdOPbe9QHX29 Evgs86m+P3B+6Rp26aRVw7N3+Z9aJ2gwOb/i3x6vt5BXkUv7SqDDP6XDDboP 3sJomM+DsyQ6iFo8iNR4jY+TBwcZPHSA7HWiUnNvgeTo7rSOjw7xtnobZz3f weV7dv8erKLD7gqXI0886+Frc00iR5YOsf5tWQseDRCoXTuduYMOesuxFq+v NIMZzdyX5E8H/QDXJHJMMySdOnxJPoAOOxcNf5wobAYL7Xj73Tfw+ThzF8kz zRCoflrmZggd9jKPRpy42AJsb5lu6bt0MPstVcvr3ArReS87cx/T4dzg000O 9m2w8WKJu8I7OrT8sA0lKHWA404lr8aVc4AMrRczz3wFlx2PmUof5sDuiuls 6fE+2HFBI/SvLwPk52Kkx1z7wHrSaCv9GgNGffr2iQf0wUGeXfKjAQy4cv18 su+TPtBXlctoDmFAeHiYoe5IH8jSRVrCohnw+vG7+PJL/bDf1UXjawYDBFt2 7KgK+gafPqaIpn1hQK2CWsjbjAGwMH79akCNCQuf9N3SywbgWv24n5sGE3T8 D9rebBqA8L2040ubmZDXdUkTTQzAuapcO1EdJqSEFn6rUx+Enzlrv6kDE/xG t2nXvR4E+9OItmjFBO0coNa8+wEPSFP9c35MuHzU4nNq1w+g8W70hutMyOU+ XRk48gPyzzxLvR3IBEW7kJhdPD8BpKzurQlhgrBAo0HN/p/wuNvFReAuE2Yu HUio/vwTPvp3uQQ9ZoL1Q7Xng5cpUFcmX2RfwwTe4Ty3al8KPLqdGbm5jgmV mzbrpdyggLlVcifXOybI12l/so2mwG6/5bSUBib8HjWY/5JPgZWplYPFH5kQ rm1+sHWaAtHf+2VO9jNhR2CnWA6DAgdSJE/zfmfC9IcjlIglCiwRU4bzB5hg ZWfrYyQ4BKtbNaLpP5mwLvh02ttNQ/Ax13Gr3RgTytu95spch0DHx1oonc6E i5KsmgTPIfBwuZYnw2CC3Bm/297+QxCn+vdYPJMJt5gBa7feGYJ9USHNAWwm WMqGm+TnDMHr96G1G/8yYdLlYcrzX0OQeF4piEZmQepraeeQ2SHIkTGIMuBn gcXy4y2n2UMQsP2A3y0BFpTFPG2UIw9DyhWTYf6VLAh5k/snWXUYhK6fKaat ZoEMT83eGOdhyPvCGFovy4Kvytd4pNyHIYnPXtB6LQuijXWanl4dhsGFYzZB ciwg3M4/8Pr2MJBnGTtb5Vnwi/+JZU/uMFTveEXfosyCZ5vs1px6PQyx33Jq kQoLHA6Jd49XDcNFzomYQ6os+Hwv2pbTNgyWF+31bDfi+xMOOiX7ZxgowZv3 ggYLrmjtVMiYH4YObq9RTU0WqFnND2twjcCG76ne0pvx8z5wdwaREWi1jj48 uoUFt8Qd3c5oj4AMlZxouo0Fu3VlN0/tHAF9m4cHJXVYMH+sb9Zr3wisMzbp GcZ2TbbwDjs6AsUOHqcu6rJwfPdcz746AvUdk7Om+izg37VsoHVzBGzOHfrH wm44UfG34vYIPG+VbkvbyQK9NK2Qj8kjUP2cnUA1YAG97vde62cjUBIXc+/m Lha8pOTwDOaOgKRFpp7kbhbIKSpGzlSNgEn2vSf6wII+wx8HrjaMQNEnAetG 7LizjwS5Po0Ae9Dx1UHEAp6M1TEiP0bA6o/0qYN7WDCtSkzaxkUFcZMnW8T3 siBzf51tDZkKf+xCqYHYji7XpY1FqHDx1if1IewvuXOpxxSpsHSh6MqjfSyI +lh4iqJGBUq40/lZbOPpiwou2lR4G17ya48RCyo1qC/891HBojsuuBfb2yzd mXiYCrutz8TLGLNAw91hQ9RRKmjLWmywxx67LzkpepIKnYXknYnY6UVfX6Y6 U+Gz/a7WNmy7zhg3FXcqyOi/+PIXW5R+aHPhVWwdtrW6CQvaV/PRdG9SoY2f c/AodoR246u3t6kwaX6x7Bp2j8l10/IY/Pl414dJ2OsdtCiFD6lwL70+qBjb 68q4b1Y6FUJIBa5N2PW3UoXSsvH98lw81o8tknzkRWIRFdan79w3ju2Yz7cz upwKP6PObaZhF76r6wx7S4VbsFViHvtvt8+FwGYqFEzOcNjYhyc3/fPuoEJC 8HQ3C/vx36GES31U2FgZlDOLPbX6oboThQoKq7i9xrD1Vc3e2/+iAn9925Y+ 7MidJLsjs1SwGjQcasTuM6+cPcCmgtn2ppBCbFWnKxGGXKNg6P5uTQK2r5+K nD55FOw5j+N8sRujBkq0hEehQLxl+Qi26NO4gxslR2HLQPkRDeyzpfuH5eVH 4aX2SBwB+1XLXz/JDaNQOFhf8QXHm/tHySrhLaMQ6NXzIR3bgu6ayas3CrQL 6eUu2DPSvV9YJvj8cd77/uDx3rX5nuuM+ShUkpK+v8SO2ruXe+zYKBQdTbd0 wla7VKjZfX4UbNvrvzbj/Ll281xjm/soGB9Z89MbuzlexqHh6iho+FTUy2I7 10REvo4Yhau26cKOOB9LO3fJv7w/Cqodun6Lhiwgjc2VPUsahTHrrtdx2M9W OlJjs3A8Dk88LcH5TlMUvx5ZOAqzvAOWgI1020SC34yCyunajkY8P36c0oMr TaNQp+i6/QOePxreM93nP49CycMWaYQdcPvFpVO9o5DwcV9LKZ5/0sXCj8zG R8HxylhQPJ6fNoQJhjrvGPj7rdu2Ds/nDPG0u+tXjUFMVqTpVTzfGWpHFWUl xuCJyAb5jzvw/DzyzlxAdQxkvL4JOuvh/H2RnDthPAZ9yWNNF3A9MTI54JgZ Pgbc1NDZdFyvzGeden2ix0BNI+doBa5nx5ODzIwSx8BqRv3hJ3UWuE2VGFAz xuCym8OrCTUWJNxfJ6XYOAay3pGqs7hejvYyOlOJ46DqpRCqg+vtn5urTN0E xoHfMdFNANdjzka1twZrxuGH5vFNgzIsEAo4VfBdcRySzT7KeUuxQEe+9Y6U 4TgILZj1uYuyIOxC2t6Em+PwXYWk/4SPBfdFKiudbo9DvmmlshZeP5Irv2pt ixmHE2fu/ahbwYJ8QX75L2njMMUfUdZBZEF3kfeScN04rNeP4tQtM0GZY1oa tYzvZ3Ys8+ssExojGSq3/H+BQ/xR454vTOjhM01YDvkFR6eZ8286mTAWmUq8 evcXiE6GvYn/zATyHWOKy+NfEDj16jTg9fbAnYfJ5rW/IJ9/w6Xj9Uxov2Mg KEOYgFybj5XphUzou3uLVhw5AQyfl643w5nwS6D/1Ka4CVAePD/QEMoEzl2N 9hePJqCGEHaFFMwE6aie3KSXE3DmFIXog/sLh6gNToGfJsDzijFD5goThqLa evaLTIKGvuJ8sC1eT++JVv98OAkK8tY33igzIYb77L+m9ElIfYQ+pigyYbtP sWFR9iS0lvpxBaxjQoiDWcvN8knwMt+9cYsUE6Q23e5R6JuEvMD1KecFmbC/ eXH2rMQUDLj1GYnSGZBJGFH+lTAFV6kXytwrGXD6avH92bhpYDwd44sHBqys 39EakjINBtU8bao7GVApWE8SezENm28bHXiznQGrn3Vd21E6DQ6lEhEtGgxo aJs7G9I7DV/7ym2qZBiwQXG7nqjsb1B+qk3qZc3Bn7ZKim7Gb/BI97fkyZ2D QMUGraA3M1DnEXWFyDMHmn8DWQSXWSCfND5Rg/drTSds5+SdaPByJonvyKZZ 0Hri1hvoTYewhuXrVVK/YZ/lO7tSzzlIejFl9ENuEjaNmjduCmdAwOPalM2y 49Dnon7/3B0GCFws0RMUGYfwGfLxNNx3ZkptFPjDMw6U+XfTq5MYcEFl/bWm P2MQz79NdCGLAcJTVvEN78dgabPk2eYWBvjEV99jXxqDdn8K1zkh3DcRLR5F NYyCp7CHwZN4JtgGhedcu4PXiejWK/cf4rx7p6f9OZgKZ4TWZ9zEfeDBuQNb 1K9RwZK/V+jsCyYsHbdOXzpPhS2kXT9VS5gg+UlGim1EhZl5ckgxztMHm43O niJSwfVnelMD7oN2i0W3rb01AsMnFhZLxVnQ9PxO4+WAEbAbOLIlSxrX8c5U UrP3CJj2r0iOVGRBUEyV24NzuC/5csnVbCsLtiuaJ0WbjMDYBz2hPkvcZ9CX 7skIjcDZgg6rqRgWaNq29ZU/GYaTkk0hWgksaPtdKRaTNAx2ITWvribjOnxe b8wjZhgsbHJXk56xYEs02+FoyDAY/A3tkn2Nz6ckeOIx7tNEzXStzLpxH+IW fGaL1jCsKtcIie9ngRk1aPa12jDwK65/9W2QBWueUa4Zrh8GLpbw6vNjLHj0 1DbppsQwTKdOdgbNs+AdpTUz+O8QNPxOtSyWmoce6aeGj9uHoO5YfPD82nk4 acCx7Goegsp3d4p3Kc6DgvPWyjXvh6Ao4apIq9o8cLi2vSx/MwSPd1l2Du+c hybR6My7T4fA5x7JUvTkPFSTu5Lsrg6BisZFi6vP5iEhL/ZTLe6Lp2N+THpn zoMAX+/iK9UheMWwDPPMnYfypOb4YqUh2FWtV+n2CnsVn2i7zBBYH1yx3ql+ HiJGw5/fwn12sMvTeYthfP1WqQ+Tfyhg/Ek0zmxsHlT9Q9dG4L5dUOu2+qHJ eZisJotoTlDgIfvyaRP6PLzwje5NGaZAQYTBx10ENnSovNKc76bAQEbvEzVF Nlg3RJkW1lLgGd/BHRtU2MA7JpDGqqLABbfaL8pqbPCcRxX7Kygwty2DrLCV DXVhlfuESijA3+DpKWHIhq4gT4ZELgU6VMcExYzZ0K9yPq80iwKJd49nrT7A hskCgv7JDAooHEEDQlZsCNizOPg5nQJ6w0LGpDNs8FgVG6jzkAJ/jYIp3M5s 2Jj9SEItkQINOQz/fy5siBfiJGyMx/sYj++FCx5suB1x0tg0hgLOXDlStGA2 vPnk80wgkgLqTrIlM2FsuLxqVdSxCArQmu6bTUeyYX2kk3NBGAUC7vuGjsey YcCwlR4QQoEHcvt+Dz5lw1yj2v3UAAqUtU1cbcpgQ7WaOMXkOgW++d8nFOew IdEtvHbpGgXke79J3Cpmg06W+IbwqxTYG3bzmVspGxRpWqV2eN/lrK2icayC Dck1zV92+FAg776Hodo7NowJElokvCjweZfEpzWNbKin2j8V96QAfar62HIz G7LG01bKe1Bgx36yW0cHG1oC53Ot3CngwMqfr/iK42d24/t1vM+7+eJIyPM+ NoQ1dj8vdKPAB660JF8KG7Sdg/5uv0SBiYJ9io5UNgw+5Yq7cxHnw4nJPNNf bFiXUVT3y5UCWwRidLWn2eCXKXLbEvtIhU697Cwb97upUw0uFPA9//3QCgaO 19eGSUPsR2LBvX/m2UCpnw37eIECNe9VzvQv4vhoB9ecxKZ4tE3X/2ODWdGn 2KXzFCDKe17NI3JAWk+ZmIGt0i5BSOTlgB1qF7HFPhBQExUkwIHc1ytqxbDd 1M5KuKziAJVGJP9wpkBMH/mZ1RoOUD7T/xRhl4QXqBtIcMAiad4nGrt3m/Ub ZRkOZK7QfOSLvTDM2bNqHQd+W+Q4uGCvjU1rYyty4P1a7xpnbARGx4ZVOHAo Mqb6MrbT78mhj2oc0FzPPh6MHZESc6lUkwOJcykJT7BzTbfPP9nKgQMeTu4f sNvnvwff3s6B6rta42xsWkawoKc+B9Qyvy3p4PsXtVZNst/NgaqHmkWB2LqE TwpGhhx4UzTH1YFtV+SZp2nMgaKi8Rl1HK/Ak5K6kgc40NJRdy0eO12w9h23 GQeYtRuersDxfl959tCUJQcM0z44hWKPXeDr/XqUA+qCOg38eLw0Gq2ns05w YPv+JusdeHwtvBZ8Y0/jeKXN36Jgeyukc18/xwHZRBHzOJwPlYFT4mZuHFhM rikQw/kzuCn2qa4HB+4zJPaOY3N9266u4MOBd7enL7/H+Wa8PWQPI4ADBH3d Oyk4H12oqm2DNzmwxV/LLwnna1TcJ5umWxx4tLNgIRXn85cZyUuPojhwcry/ ohXnu2NWYSJ6zIG+zc28z/0psGIPXTYonQMTjWvvCOP5lf9t2/OaFxzomFC8 eicQj59QZaF+PgfSvz68+/wmBeK9G5q31XLgUpW6tyuev/orec296jnAiDmg uBPP76Es0+7iDxxwnUrXlLxLAc3v7UOanzngpDhoNx9NgeY9/QsbKByw4Tf/ ZJpEgcvfZYLPUzlAdN29IzCZAmI+J3kzf3GAU0JgVKdQ4Ez2yBolGgekhvwP n8b1aGnljPpawgIYMEosd+F6tmWAcEpk/QI4R2aHobcU6PExGjXfsACzuvIf dN/j8Vx1+2K0+gLEbqNp7PxAgVZDIT8BnQW4x1C/4NyG8y1HIpbHeAFs31/c ZtaP67Gv+nvO+QXIbk71cGRSYLewu6nepQXwf5ZTLsmhwGhO8WffKwsgGi7L GFiiwNbB7QNzfguw+GBmRyRpCNr27mH+jlyAPMfOR1dEh4BLxEZ1+OUCLChb H7+6fQg8XohJ9hUuQPj6fzfS9YdgWLeb3P56AVLYE71fduP17qT1ZEXVAnw4 miF23GQIIvOs8mM/LgDt4/SJQdshWL3fXHvPFH6eZZfZlsAhWB+0H9LVFmGL 5kuqxOchSFhN3pKouQiQcFHh5tchWJHZJB+1dRE+1HKvofcPwa82Y4Kf/iLs +95EmKMOQb60UaP5gUU47FeYcGFxCLaX7Tn4z2URbG2WfeXwem36W//YyZxF 4LzKJz2IHobdl5L25uQvwprOMrOyhGHYOjW3mVG8CCdOPTCiPh4G6Yk88p3K RaifUpBzfInXc6pcZenHRaj9OFTW0zwMMQOEtUIz+PrBLfsreEag52PrcNXW JQDtoL/rIkbAKdfuslT1Enx7U51amkmFMq+JAxZvl2BTDQxJ430zeZefakTD EgRnLQTerqBC3ucECqNtCdyk3NID2qjAYHRYdQwuQe0Z7oQmOhVCwUQ34t8S dKJLoRQ0Cs++anMxDZfh0FcN+Dk8CkN/BeM6WpbhVTaXM7fBOKz4sGx9pvEv zD464aK8NAH/3Db+29rzD5S9bkvu0vwNFg2m691duVB6K39Cm/QsWK7d/9lw nAvV3X6mInaHBtVjI79LL3MjBZmAb5fm6dDU9di98Ao32kuXk7iwRIeu2qO0 bE9u9KZB75oj9xz8SmxipPhyIxmhrvT9AnMgavJyMfgGN5rZeliJJTcHl7I8 +cyiudG2s3oa743mQPYCt/JYPjfS0CdUrYqdA1Xrysyfhdzo3c2oxJyEOdiK vDb0F3OjRJEsHfRoDvZLjm5qK+VGFfwar88+nwPv5uatr2q4UdD+FIfQ0jlo 2xCDbnziRtzv9i4r9s/B9Qk5B/Hf3Ejz7pXPHWsZsP9gpr3+H27UK8yOPqbI ANF8DfuTNG602yxh7TcVBhRcMbDLZHIj2UO9KV2bGbifPm67/S83iswkNMfs YYDRigRrm1UENL1t1SFwYsAqJYHDiVoEdDBCMMAykwEDt+IOVWoTUMPeugeH chmQPSZ16IcOAb1OTlHcW8AAw9wNB1X0CUj+i85jxTIGeGsZm5YZElA2L6U6 t5EB/RBs1HOEgO6dPVI6OMKA5w7zu8R9Cah1vUJenSwTrHfW0MX8CGhbvTJz Cu+PVkiHZon5E5C06yZhUSUmuPauFBG7QUDha5+XHdvIhK1WKtQ14QQ02LUm LU+HCfUmR++IJBLQCa3gyruHmTC89XWPYBkBEcyPDon7MyFe5NpdwXICskn0 WlEVwATj2d1IsBJ7WrDfLogJufmtOQK1BNT1ak/ovVtM8NwwHMD/gYAcalO/ 1kYzgVtORIncQ0BPnlW8tXjGBHk+d3cii4AGOnZYaHzAx4XMZDnzBKRu03Rk ZzO+vrBGywyHgJSc7NcatTLhueSU4rdlAnK2uMB9qJ0JKhvO9xTxEJFtZSGP ag8T1E1O7TopRkQN81ydIqNMEDq4e/KIBBEtfvoiNTDGhBmztUmmUkQkEdCo /OwXEwptvs9uW0tEKkf6whWmcTycj70QUCYintDTbr/pTNANMxeo2EZEwpds eyr+4X1LpGZ5wXYiEhCQt0bcLGBHCZ17oUdESqFKifUEFlTGf6y9b0BE5nuL z1fysMDghYmn8z4iqpKKNrkqwALD99C/xpqI+HTuGqjgfY1Sk1w4nw0RnS1Y tc5FggWkj8tb/x0jomHTydYsSRY0dlVFTdoT0bys101JGRbsH9ZF784SUbXl hStN6/A+g3tL1mUvIvJ0vTxov4EFs/6DndE++PPXfAU8NrLgAePOUsFVIrrm LGYerIb3TeOjln+uE9GHo3nSD9RZcLo9Zcn9FhGdLvcfvL4FX3+/qWpMOBEt K1h0uWixIPMdy7LoNhEROq5QrfC+arLEMms2iojyyr44iW9jgXcKr5VHAhHn Ny/zjC4LxMVKA2KTiIgew6Fv1GNBRfSZrOJkIjK2QRLT2H+Da5ZoqUR026i0 97Q+C9IXXVVXp+Px0TznK7YTx8dH0mrrMxxPczfUgB1xwSvLM5OIip3e26/Z xQK1YfmuuGwcP56awtfYbfbtS69yiahFw3mb+W4WCJtvtJorIKK/Dce6rwLe Z+n8XPJ6Q0Qprp9T7+/B41EYpRpfQUTSm/TS+AxZ8HODvlVJFRGFBbIHbmCv l03IYtQR0bne0jX2e1nwIcGwS7T+v/H5tqoe+8Kq2aVtDUT0rDjTbP0+FuQT Dlr5NBORPLn60TdsiwB2QEIrEf1iH32pacQCOjMjq7SNiOQO6fHcwI53P9LV 3U5EJ5Ylcpuxt09wLTM7iKhErDBlpTEenzMFquJfiEgqp/q7Ofb1AXur7d04 H76QLkVhy9nwBdr0EtHGcguzBuy3n8uyfPuJSO/65Vvz2GdMnboSvxPRjKGW sIoJHs/3Istlg0Qkpu0xZ46daVCn2vuTiCpdBbb4YJuWXbKaHyKiEO7hpv/e f05vlg6UoBLRH9JA9X/vd6NzmrJ0x4jopc+ocAv2FiWfrmO/iKhp35/G79hd jxWXr04SEcPiz+AEtrd4h+rDaXz+sxS7OWyJmECr8hkiytWs3/3f+9xKvk2B fbNEFLo/+e5/dgjty2LTichBzX0v47/3v0thXZJMInqnbnVhCjvdV3tZb56I Om4dXRrENpylqB7nEJHpnljuNuxRl2ira4t4PEwU/UuxLzn6b/VZJqLvgdft HmMzbJxXe/zD+a84axKEHXDYin6Jm4QiDu7dd/K/+Ozb3XWBSELKr3Za7sCO 0ld75cRDQmeLnl8Rxl6jJR7nyEtCMmD6YgTHV1FuxtJWgISE/yaa38DOFf2m ZS1EQgoqv1uNsLcKfBCxWEVC4y0Dp/mw97BTO03WkNDwgMDkLTzezTORxXvF SKhgSOynAbbFqE8sSJBQ922z+f/+H+DYddhSV4aEHszwJh/G/tW8Q0t7LQlN JrmrsHD+udcpi2xeR0JXS778eIR9I2+5Q0WJhFZVh/X14fxd8XyiSFGZhF4/ 7lnriR2d3B0jp0pCnJ6NibzYqeH5FuKbSKjfn7hBFc+H9YHJW1ZrkNDPh9lG xYgFeV5hwis34/h433uii13teKKDR5uE7B9d49+B59M3fSELpj4+LmO5YhWe f2e0OJtpBiSkfc9yx3UDXB9UR1f93k1Cl6OKykfw/OWI1nymGpKQ7+vjGTl4 vkv+uWT+9QAJ3ayo8+bD9SB91HZzxyESklpPMrXF9UN1YN+qNjMScnZ/fP35 djw/WmQ/v7cioedD3DybdVhw9Hmb2Ws7Enr1fmxCGtejgeRyzUIHEupp5dAO 4XrlFPNi5cuTJCR+RPXif/XMOzCg/dkZEpLf4ln5SZMFccfUzeJcSYhp9U14 /yYWdAhEHfbwJ6Hmoq6mBCUWSPkZv0wKIKFfLhsXryni56Ny8dXewOdvmN1s p8ACZrVPA38ozg/DVS9X4vorffnUzhd3Sch0QNFovzQLznVs3dj7mIQUrYsI 3MIsKDD4Hb78hITW/KwdzlyJ14vsLKrSUxJi/+Bf3C/EgjvBsulXMkgorvzh cDA/C4q2rpDgLyAhgRBh+gcSCxbi+0m76kiofJ5u+JTNhH3c8WfOviOhLyVD xwXnmXDPzext5HsSunPrzYgXE6+nxu+v9zTh8SgxPKWH1y+j+Ty6ewd+PuVG x6QpJsQcv0l5NoTH39VotmiQCcpyqtVkEg9yHh9acbmOCU8KF0SUV/CgzJvn Xf1qmCC+p/38HjIP2ryQNxBUhfsJJ581/oI8SNjNdjnsDRPGct67TonyoE1y v5+4FzIhU8dRql2ZB72ND5yoesKEDYeTfR+Y8KC6y95WR68zQS1AQEvuLg8i HjwQ7KfBhNt31hqI3+NBe7+r3VmziQmjDzebrLzPg3SLRv7kbWBCeumRE3/j eNCBokuUb7h/EfuTEvnjEQ+KYSxWKUkzgeuM+vCTXB6U62oee2kFE3pNDj9Y 18qDBG9SwxiDDLi15j5Tnm8FmkrO9SyIZICJTJHG+9gViO6e9Df64xycdLhS aiXCi5C1Z00a7j9jQ7KnjNfwoj9HHefFZeegIZuisFOMF/3l/Dh5X2oO1JgW 0UpSvKjnrPv7UNE5mL+ndZ4hz4uGP6caXOefg5g6umTiFl5Udm/FmywWHeoV fQL6zXkRycbzuWAHHZj78199suRF7S1S2YWf6LDBffTXuyP4809Sd1l/pEN0 1dGjucd4kUqChOqzD3Swt96uef0ULwo+f9bYsoYOjLD5n7LuvIiQdmzvv1w6 qExc2+sYzYvGg48rFUTQQSbs5vyNGF6UH2S+zy6MDsIKES9T43jR723fs8ih dODYxq/5nsiLXm8y33fpBh3amgtGjqbxIoM767TMfejgmT0SerCIF51cL1Mf fpYOtecPN2zv4kUaog36X/bQ4TXR2u/oV1701Wbw3yegQ3aanbp3Dy8K0zVx +7iLDrG95+OLv/GiCu26Q+076OBkEuKkPsKLcv8ZuDO06MCv+oakyOBF/2y+ Vzco0uHYmLyRkDgZzZYLed5eQYet/84V8EqSkcqsl/ACiQ6Cki8lCNJkVPrk sellIh3emupMstaSkW/i8oOTXDh++ab3Kcpk5LepsvbkAg3YXp79r3XISJzY vfLnDA26ot4YFuiSEX1fx87rv2mQl7H0MnsHGemEKClIT9PAsTf8RuouMsrM rJVxnKBBi36KUoQRGT3uDOASotLgEXeDm91RMtptrrsw1U8Db2m+XutjZFRB VPMp6aOBmbYZMj9ORs2E+/VBvTQgnOtbve8EGUUxK77JddPgYvP0G41zZNSe LawW1EEDg/tiBG4fMiq82HKrpYkG4tl2Fxd9yai8/sHXug80mH2b9pXpR0bD 96yFKhpp8IK+MWsygIzc3nzbXfKeBoI2uw99vUVGpH1rGj/V0WBQ9nxiVjwZ rawZcI0up4GNssHoQCIZJQblPXv0hgYdGiLbVieT0cJl97jcMhrU767qDEgl IzG+Z2ndJTTIdlwlZJVJRsFGOx7aFtNAwYVqH5FNRlVmB96EFOHn96jIrc4l I41ah+SiQhrcCzm7X7WQjDj2qS8lCmjg+eJN6NIbMrIS+aW25iUNpvKiurQq yciTEXHLPpcGTqWnFc5Xk5Fgc21uVg4Njn0QqOt8S0aPgg+ePpiN4/Hr1EJm Cxl1ignGv82gQdnsNtOBj2Rk3/PGXRV7M4fvoUg7GembicrHvaCBIn+JTkAX GcXO+RO8ntOAV53sYfmdjMjjs6NnntLg5rbBuvBBMuLn3h30K50GCwavVlb/ JKOHO3vnPLCnDzvkqVDJiNbU4hGTRgNnG61F+zEcv+ngAGXsnydXHIj9RUZJ X/aeq32C88e9aHxxmozCjzt+WUylwUG/sO1af8jIIXXieDp2w027MGcaGbF/ 97/dj/0mlqTUySSj1Zn8WzMe02DLo36PFWwy+uRmuus4du6zgrc7F8joFve0 mgj249e2JzP/kpFaj3hhVAoNxKo18r9z8aGytW7GFtjRDYQlYSIf8t71/p0E NvlT7wFjHj7kIemhMPKIBsHdecnXefnQUmjzuVfYC4PBv4r4+JC+idj9MGzv MRvdMQE+1CadmuqA/XtmU7jMSj50LTstVhfbeZ6r20KYD3Xesbkojk35160U vpoPUQ4x1TjJNDhOfulZJcqHyK45HT+xu4RvvpsV50NPDz9yaMU+JHVUWEWK Dw1YTbSXYzcqqJ2yl+FDDxuKVV9i71b7lx+zlg/pDZLPP8Uu3/p1qXEdH7r3 YTnqv+9nau3MObiowIf+//3N/wGygJru "]]}}, {{}, {{}, {RGBColor[0, 1, 0], PointSize[0.019444444444444445`], AbsoluteThickness[ 1.6], PointBox[{{0., 1.1}, {0.5235987755982989, 1.36328125}, { 1.0471975511965979`, 1.06953125}, {1.5707963267948966`, 0.5125}, { 2.0943951023931957`, 1.06953125}, {2.6179938779914944`, 1.36328125}, { 3.141592653589793, 1.1}}]}, {}}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.5}, 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, "ScalingFunctions" -> None}, PlotRange-> NCache[{{0, Pi}, {0.5125001621499269, 1.3925714266794489`}}, {{ 0, 3.141592653589793}, {0.5125001621499269, 1.3925714266794489`}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.669131846868894*^9, 3.6691318913389564`*^9, 3.669132271869489*^9, { 3.6691327465301533`*^9, 3.669132809360242*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sy", "=", RowBox[{"Round", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"0.07", "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"0.1", RowBox[{"Cos", "[", "q", "]"}]}], ")"}], "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", "Pi", ",", RowBox[{"Pi", "/", "6"}]}], "}"}]}], "]"}], ",", "0.01"}], "]"}]}]], "Input", CellChangeTimes->{{3.669131922459*^9, 3.669132007589119*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.12`", ",", "0.11`", ",", "0.09`", ",", "0.07`", ",", "0.09`", ",", "0.11`", ",", "0.12`"}], "}"}]], "Output", CellChangeTimes->{3.6691319759690747`*^9, 3.6691320081891203`*^9}] }, Open ]], Cell["Conjunto simulado na forma (\[Theta],y,\[Sigma])", "Text", CellChangeTimes->{{3.669132020489137*^9, 3.669132024899143*^9}, { 3.6691321078192596`*^9, 3.669132116989272*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ys", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y0", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Round", "[", " ", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{"y0", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"sy", "[", RowBox[{"[", "i", "]"}], "]"}]}], " ", "]"}], " ", "]"}], " ", ",", "0.01"}], "]"}], ",", RowBox[{"sy", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "y0", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"ys", "//", "TableForm"}]}]], "Input", CellChangeTimes->{{3.669132028199148*^9, 3.669132088319232*^9}, { 3.669132145229312*^9, 3.669132152999323*^9}, {3.669132663860038*^9, 3.669132674560053*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"0", "0.98`", "0.12`"}, { FractionBox["\[Pi]", "6"], "1.36`", "0.11`"}, { FractionBox["\[Pi]", "3"], "1.1500000000000001`", "0.09`"}, { FractionBox["\[Pi]", "2"], "0.49`", "0.07`"}, { FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "3"], "1.08`", "0.09`"}, { FractionBox[ RowBox[{"5", " ", "\[Pi]"}], "6"], "1.58`", "0.11`"}, {"\[Pi]", "1.1500000000000001`", "0.12`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.6691320829392242`*^9, 3.669132088929233*^9}, 3.669132153969324*^9, 3.669132675570054*^9}] }, Open ]], Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6691322883995123`*^9, 3.6691323052995358`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"graficoDosDados", "=", RowBox[{"ErrorListPlot", "[", "ys", "]"}]}]], "Input", CellChangeTimes->{{3.6691323657996206`*^9, 3.6691323757796345`*^9}, { 3.669132698370086*^9, 3.6691327030100927`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[{{0., 0.98}, {0.5235987755982989, 1.36}, {1.0471975511965979`, 1.1500000000000001`}, {1.5707963267948966`, 0.49}, {2.0943951023931957`, 1.08}, {2.6179938779914944`, 1.58}, {3.141592653589793, 1.1500000000000001`}}], {{LineBox[{{0., 1.1}, {0., 0.86}}], LineBox[{Offset[{1.5, 0}, {0., 1.1}], Offset[{-1.5, 0}, {0., 1.1}]}], LineBox[{ Offset[{1.5, 0}, {0., 0.86}], Offset[{-1.5, 0}, {0., 0.86}]}]}, { LineBox[{{0.5235987755982989, 1.4700000000000002`}, { 0.5235987755982989, 1.25}}], LineBox[{ Offset[{1.5, 0}, {0.5235987755982989, 1.4700000000000002`}], Offset[{-1.5, 0}, {0.5235987755982989, 1.4700000000000002`}]}], LineBox[{ Offset[{1.5, 0}, {0.5235987755982989, 1.25}], Offset[{-1.5, 0}, {0.5235987755982989, 1.25}]}]}, { LineBox[{{1.0471975511965979`, 1.2400000000000002`}, { 1.0471975511965979`, 1.06}}], LineBox[{ Offset[{1.5, 0}, {1.0471975511965979`, 1.2400000000000002`}], Offset[{-1.5, 0}, {1.0471975511965979`, 1.2400000000000002`}]}], LineBox[{ Offset[{1.5, 0}, {1.0471975511965979`, 1.06}], Offset[{-1.5, 0}, {1.0471975511965979`, 1.06}]}]}, { LineBox[{{1.5707963267948966`, 0.56}, {1.5707963267948966`, 0.42}}], LineBox[{ Offset[{1.5, 0}, {1.5707963267948966`, 0.56}], Offset[{-1.5, 0}, {1.5707963267948966`, 0.56}]}], LineBox[{ Offset[{1.5, 0}, {1.5707963267948966`, 0.42}], Offset[{-1.5, 0}, {1.5707963267948966`, 0.42}]}]}, { LineBox[{{2.0943951023931957`, 1.1700000000000002`}, { 2.0943951023931957`, 0.9900000000000001}}], LineBox[{ Offset[{1.5, 0}, {2.0943951023931957`, 1.1700000000000002`}], Offset[{-1.5, 0}, {2.0943951023931957`, 1.1700000000000002`}]}], LineBox[{ Offset[{1.5, 0}, {2.0943951023931957`, 0.9900000000000001}], Offset[{-1.5, 0}, {2.0943951023931957`, 0.9900000000000001}]}]}, { LineBox[{{2.6179938779914944`, 1.6900000000000002`}, { 2.6179938779914944`, 1.47}}], LineBox[{ Offset[{1.5, 0}, {2.6179938779914944`, 1.6900000000000002`}], Offset[{-1.5, 0}, {2.6179938779914944`, 1.6900000000000002`}]}], LineBox[{ Offset[{1.5, 0}, {2.6179938779914944`, 1.47}], Offset[{-1.5, 0}, {2.6179938779914944`, 1.47}]}]}, { LineBox[{{3.141592653589793, 1.27}, {3.141592653589793, 1.0300000000000002`}}], LineBox[{ Offset[{1.5, 0}, {3.141592653589793, 1.27}], Offset[{-1.5, 0}, {3.141592653589793, 1.27}]}], LineBox[{ Offset[{1.5, 0}, {3.141592653589793, 1.0300000000000002`}], Offset[{-1.5, 0}, {3.141592653589793, 1.0300000000000002`}]}]}}}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0, 3.141592653589793}, {0, 1.58}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6691323764396353`*^9, {3.669132694910081*^9, 3.6691327035600934`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"exato", ",", "graficoDosDados"}], "]"}]], "Input", CellChangeTimes->{{3.6691327085801*^9, 3.6691327207201176`*^9}}], Cell[BoxData[ GraphicsBox[{{{{}, {}, {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJw12nk4lN8XAHBmRsZWlJ1kCSWUJJI6N4W02JKESiVFSdYkEkJKQpYk0WLN WsiuRJYklK2owSBLMmNmzFjqd79//PzB83need7l3HPPPfc1Cmfcrc4RuLi4 UvGv//4S6/jbR3Q8dpcn//dDA3lxeRW5B+ZwXePMhhRs5mCMWX/cKXBvf/I1 Ddutj9woUnAezhaaPsnCpuxpGS6Lcwdp5eNhr7BzuvdxFVR5gU1mXeRb7DP8 yve5Cq5C38eLLzuxZYFH7kj6dbhvsX9yFLvbazQvIy4I7ooYGC9jm3wdXhtQ HwzbVqrVSTyiwYsZq3MZVaFgcYFmrYPNxfc+r70kDPSd3HhtsE8oaTPm8yNg 4YJPzzXsyl3PdypkRcJlrsF36djitmtCD6TfhdBer5ZW7I6oOZHUuPtwL9tO fUMKDRK/FKuPNMaAef72CHvsBopLx9X6WGjktVuOxVZY7Jd4WvUAHE856ZMf 08CCHFelUx4PL26Xc+3HviF24FRrSQL4O2oO3cH+trkycy4/Ce4Ibv4jlUoD 8i7PA7dzH8JLXbKsM7buAbUZ2axk6KhLO12KHe/0SMc4PQUyDAJ0TjyhweFk /4aHcWngP6bN6Eyjwe4jUiWJJulAmzr7fXs6jtdxJs9QYzocEvjS+wSbeD4/ x6f+KfDzOq/0e0oDx+C1tCdVzyE94NBZ8+c0mI/gGE7seAHibwJH27Cjo7vj tctfQMDZa36HX9CgOuWeXnNJBgzIH24/lkEDqbLlIFp+FhQpLKnEZtGgqLq/ c6d6Nsg81lqrmk2D/e9LlcJzs8E4vVnuLbZvh1uTdFYOEJLl9izm0KBrcnDl vvSXwDqTP52QR4OodbWpiXGFIE4lKzu8ooHxxxStt0JFMF9VgbRf0+BDuK2o jlURZL4ypgiV0KBpubNf7nsR1FfOZnwqpUHzVIMTfboYyB+MVa9W0KC1Kdc/ WbgEbG9ofr7yjgYHQs+fWHm0BN5OBEYE1ePju9ej0OQS0LM3yo99T4OPpak8 boql4LY8q/+2kQZtz2Ni0LYyeHExVsu4lQafgnwzx4+Vw90azdWMLzQw26kd 6fC4HKIy6r/pddOgnfXnYielHEh+9sybPdhuLlpVLhUgIiwiJdOPbe9QHX29 Evgs86m+P3B+6Rp26aRVw7N3+Z9aJ2gwOb/i3x6vt5BXkUv7SqDDP6XDDboP 3sJomM+DsyQ6iFo8iNR4jY+TBwcZPHSA7HWiUnNvgeTo7rSOjw7xtnobZz3f weV7dv8erKLD7gqXI0886+Frc00iR5YOsf5tWQseDRCoXTuduYMOesuxFq+v NIMZzdyX5E8H/QDXJHJMMySdOnxJPoAOOxcNf5wobAYL7Xj73Tfw+ThzF8kz zRCoflrmZggd9jKPRpy42AJsb5lu6bt0MPstVcvr3ArReS87cx/T4dzg000O 9m2w8WKJu8I7OrT8sA0lKHWA404lr8aVc4AMrRczz3wFlx2PmUof5sDuiuls 6fE+2HFBI/SvLwPk52Kkx1z7wHrSaCv9GgNGffr2iQf0wUGeXfKjAQy4cv18 su+TPtBXlctoDmFAeHiYoe5IH8jSRVrCohnw+vG7+PJL/bDf1UXjawYDBFt2 7KgK+gafPqaIpn1hQK2CWsjbjAGwMH79akCNCQuf9N3SywbgWv24n5sGE3T8 D9rebBqA8L2040ubmZDXdUkTTQzAuapcO1EdJqSEFn6rUx+Enzlrv6kDE/xG t2nXvR4E+9OItmjFBO0coNa8+wEPSFP9c35MuHzU4nNq1w+g8W70hutMyOU+ XRk48gPyzzxLvR3IBEW7kJhdPD8BpKzurQlhgrBAo0HN/p/wuNvFReAuE2Yu HUio/vwTPvp3uQQ9ZoL1Q7Xng5cpUFcmX2RfwwTe4Ty3al8KPLqdGbm5jgmV mzbrpdyggLlVcifXOybI12l/so2mwG6/5bSUBib8HjWY/5JPgZWplYPFH5kQ rm1+sHWaAtHf+2VO9jNhR2CnWA6DAgdSJE/zfmfC9IcjlIglCiwRU4bzB5hg ZWfrYyQ4BKtbNaLpP5mwLvh02ttNQ/Ax13Gr3RgTytu95spch0DHx1oonc6E i5KsmgTPIfBwuZYnw2CC3Bm/297+QxCn+vdYPJMJt5gBa7feGYJ9USHNAWwm WMqGm+TnDMHr96G1G/8yYdLlYcrzX0OQeF4piEZmQepraeeQ2SHIkTGIMuBn gcXy4y2n2UMQsP2A3y0BFpTFPG2UIw9DyhWTYf6VLAh5k/snWXUYhK6fKaat ZoEMT83eGOdhyPvCGFovy4Kvytd4pNyHIYnPXtB6LQuijXWanl4dhsGFYzZB ciwg3M4/8Pr2MJBnGTtb5Vnwi/+JZU/uMFTveEXfosyCZ5vs1px6PQyx33Jq kQoLHA6Jd49XDcNFzomYQ6os+Hwv2pbTNgyWF+31bDfi+xMOOiX7ZxgowZv3 ggYLrmjtVMiYH4YObq9RTU0WqFnND2twjcCG76ne0pvx8z5wdwaREWi1jj48 uoUFt8Qd3c5oj4AMlZxouo0Fu3VlN0/tHAF9m4cHJXVYMH+sb9Zr3wisMzbp GcZ2TbbwDjs6AsUOHqcu6rJwfPdcz746AvUdk7Om+izg37VsoHVzBGzOHfrH wm44UfG34vYIPG+VbkvbyQK9NK2Qj8kjUP2cnUA1YAG97vde62cjUBIXc+/m Lha8pOTwDOaOgKRFpp7kbhbIKSpGzlSNgEn2vSf6wII+wx8HrjaMQNEnAetG 7LizjwS5Po0Ae9Dx1UHEAp6M1TEiP0bA6o/0qYN7WDCtSkzaxkUFcZMnW8T3 siBzf51tDZkKf+xCqYHYji7XpY1FqHDx1if1IewvuXOpxxSpsHSh6MqjfSyI +lh4iqJGBUq40/lZbOPpiwou2lR4G17ya48RCyo1qC/891HBojsuuBfb2yzd mXiYCrutz8TLGLNAw91hQ9RRKmjLWmywxx67LzkpepIKnYXknYnY6UVfX6Y6 U+Gz/a7WNmy7zhg3FXcqyOi/+PIXW5R+aHPhVWwdtrW6CQvaV/PRdG9SoY2f c/AodoR246u3t6kwaX6x7Bp2j8l10/IY/Pl414dJ2OsdtCiFD6lwL70+qBjb 68q4b1Y6FUJIBa5N2PW3UoXSsvH98lw81o8tknzkRWIRFdan79w3ju2Yz7cz upwKP6PObaZhF76r6wx7S4VbsFViHvtvt8+FwGYqFEzOcNjYhyc3/fPuoEJC 8HQ3C/vx36GES31U2FgZlDOLPbX6oboThQoKq7i9xrD1Vc3e2/+iAn9925Y+ 7MidJLsjs1SwGjQcasTuM6+cPcCmgtn2ppBCbFWnKxGGXKNg6P5uTQK2r5+K nD55FOw5j+N8sRujBkq0hEehQLxl+Qi26NO4gxslR2HLQPkRDeyzpfuH5eVH 4aX2SBwB+1XLXz/JDaNQOFhf8QXHm/tHySrhLaMQ6NXzIR3bgu6ayas3CrQL 6eUu2DPSvV9YJvj8cd77/uDx3rX5nuuM+ShUkpK+v8SO2ruXe+zYKBQdTbd0 wla7VKjZfX4UbNvrvzbj/Ll281xjm/soGB9Z89MbuzlexqHh6iho+FTUy2I7 10REvo4Yhau26cKOOB9LO3fJv7w/Cqodun6Lhiwgjc2VPUsahTHrrtdx2M9W OlJjs3A8Dk88LcH5TlMUvx5ZOAqzvAOWgI1020SC34yCyunajkY8P36c0oMr TaNQp+i6/QOePxreM93nP49CycMWaYQdcPvFpVO9o5DwcV9LKZ5/0sXCj8zG R8HxylhQPJ6fNoQJhjrvGPj7rdu2Ds/nDPG0u+tXjUFMVqTpVTzfGWpHFWUl xuCJyAb5jzvw/DzyzlxAdQxkvL4JOuvh/H2RnDthPAZ9yWNNF3A9MTI54JgZ Pgbc1NDZdFyvzGeden2ix0BNI+doBa5nx5ODzIwSx8BqRv3hJ3UWuE2VGFAz xuCym8OrCTUWJNxfJ6XYOAay3pGqs7hejvYyOlOJ46DqpRCqg+vtn5urTN0E xoHfMdFNANdjzka1twZrxuGH5vFNgzIsEAo4VfBdcRySzT7KeUuxQEe+9Y6U 4TgILZj1uYuyIOxC2t6Em+PwXYWk/4SPBfdFKiudbo9DvmmlshZeP5Irv2pt ixmHE2fu/ahbwYJ8QX75L2njMMUfUdZBZEF3kfeScN04rNeP4tQtM0GZY1oa tYzvZ3Ys8+ssExojGSq3/H+BQ/xR454vTOjhM01YDvkFR6eZ8286mTAWmUq8 evcXiE6GvYn/zATyHWOKy+NfEDj16jTg9fbAnYfJ5rW/IJ9/w6Xj9Uxov2Mg KEOYgFybj5XphUzou3uLVhw5AQyfl643w5nwS6D/1Ka4CVAePD/QEMoEzl2N 9hePJqCGEHaFFMwE6aie3KSXE3DmFIXog/sLh6gNToGfJsDzijFD5goThqLa evaLTIKGvuJ8sC1eT++JVv98OAkK8tY33igzIYb77L+m9ElIfYQ+pigyYbtP sWFR9iS0lvpxBaxjQoiDWcvN8knwMt+9cYsUE6Q23e5R6JuEvMD1KecFmbC/ eXH2rMQUDLj1GYnSGZBJGFH+lTAFV6kXytwrGXD6avH92bhpYDwd44sHBqys 39EakjINBtU8bao7GVApWE8SezENm28bHXiznQGrn3Vd21E6DQ6lEhEtGgxo aJs7G9I7DV/7ym2qZBiwQXG7nqjsb1B+qk3qZc3Bn7ZKim7Gb/BI97fkyZ2D QMUGraA3M1DnEXWFyDMHmn8DWQSXWSCfND5Rg/drTSds5+SdaPByJonvyKZZ 0Hri1hvoTYewhuXrVVK/YZ/lO7tSzzlIejFl9ENuEjaNmjduCmdAwOPalM2y 49Dnon7/3B0GCFws0RMUGYfwGfLxNNx3ZkptFPjDMw6U+XfTq5MYcEFl/bWm P2MQz79NdCGLAcJTVvEN78dgabPk2eYWBvjEV99jXxqDdn8K1zkh3DcRLR5F NYyCp7CHwZN4JtgGhedcu4PXiejWK/cf4rx7p6f9OZgKZ4TWZ9zEfeDBuQNb 1K9RwZK/V+jsCyYsHbdOXzpPhS2kXT9VS5gg+UlGim1EhZl5ckgxztMHm43O niJSwfVnelMD7oN2i0W3rb01AsMnFhZLxVnQ9PxO4+WAEbAbOLIlSxrX8c5U UrP3CJj2r0iOVGRBUEyV24NzuC/5csnVbCsLtiuaJ0WbjMDYBz2hPkvcZ9CX 7skIjcDZgg6rqRgWaNq29ZU/GYaTkk0hWgksaPtdKRaTNAx2ITWvribjOnxe b8wjZhgsbHJXk56xYEs02+FoyDAY/A3tkn2Nz6ckeOIx7tNEzXStzLpxH+IW fGaL1jCsKtcIie9ngRk1aPa12jDwK65/9W2QBWueUa4Zrh8GLpbw6vNjLHj0 1DbppsQwTKdOdgbNs+AdpTUz+O8QNPxOtSyWmoce6aeGj9uHoO5YfPD82nk4 acCx7Goegsp3d4p3Kc6DgvPWyjXvh6Ao4apIq9o8cLi2vSx/MwSPd1l2Du+c hybR6My7T4fA5x7JUvTkPFSTu5Lsrg6BisZFi6vP5iEhL/ZTLe6Lp2N+THpn zoMAX+/iK9UheMWwDPPMnYfypOb4YqUh2FWtV+n2CnsVn2i7zBBYH1yx3ql+ HiJGw5/fwn12sMvTeYthfP1WqQ+Tfyhg/Ek0zmxsHlT9Q9dG4L5dUOu2+qHJ eZisJotoTlDgIfvyaRP6PLzwje5NGaZAQYTBx10ENnSovNKc76bAQEbvEzVF Nlg3RJkW1lLgGd/BHRtU2MA7JpDGqqLABbfaL8pqbPCcRxX7Kygwty2DrLCV DXVhlfuESijA3+DpKWHIhq4gT4ZELgU6VMcExYzZ0K9yPq80iwKJd49nrT7A hskCgv7JDAooHEEDQlZsCNizOPg5nQJ6w0LGpDNs8FgVG6jzkAJ/jYIp3M5s 2Jj9SEItkQINOQz/fy5siBfiJGyMx/sYj++FCx5suB1x0tg0hgLOXDlStGA2 vPnk80wgkgLqTrIlM2FsuLxqVdSxCArQmu6bTUeyYX2kk3NBGAUC7vuGjsey YcCwlR4QQoEHcvt+Dz5lw1yj2v3UAAqUtU1cbcpgQ7WaOMXkOgW++d8nFOew IdEtvHbpGgXke79J3Cpmg06W+IbwqxTYG3bzmVspGxRpWqV2eN/lrK2icayC Dck1zV92+FAg776Hodo7NowJElokvCjweZfEpzWNbKin2j8V96QAfar62HIz G7LG01bKe1Bgx36yW0cHG1oC53Ot3CngwMqfr/iK42d24/t1vM+7+eJIyPM+ NoQ1dj8vdKPAB660JF8KG7Sdg/5uv0SBiYJ9io5UNgw+5Yq7cxHnw4nJPNNf bFiXUVT3y5UCWwRidLWn2eCXKXLbEvtIhU697Cwb97upUw0uFPA9//3QCgaO 19eGSUPsR2LBvX/m2UCpnw37eIECNe9VzvQv4vhoB9ecxKZ4tE3X/2ODWdGn 2KXzFCDKe17NI3JAWk+ZmIGt0i5BSOTlgB1qF7HFPhBQExUkwIHc1ytqxbDd 1M5KuKziAJVGJP9wpkBMH/mZ1RoOUD7T/xRhl4QXqBtIcMAiad4nGrt3m/Ub ZRkOZK7QfOSLvTDM2bNqHQd+W+Q4uGCvjU1rYyty4P1a7xpnbARGx4ZVOHAo Mqb6MrbT78mhj2oc0FzPPh6MHZESc6lUkwOJcykJT7BzTbfPP9nKgQMeTu4f sNvnvwff3s6B6rta42xsWkawoKc+B9Qyvy3p4PsXtVZNst/NgaqHmkWB2LqE TwpGhhx4UzTH1YFtV+SZp2nMgaKi8Rl1HK/Ak5K6kgc40NJRdy0eO12w9h23 GQeYtRuersDxfl959tCUJQcM0z44hWKPXeDr/XqUA+qCOg38eLw0Gq2ns05w YPv+JusdeHwtvBZ8Y0/jeKXN36Jgeyukc18/xwHZRBHzOJwPlYFT4mZuHFhM rikQw/kzuCn2qa4HB+4zJPaOY3N9266u4MOBd7enL7/H+Wa8PWQPI4ADBH3d Oyk4H12oqm2DNzmwxV/LLwnna1TcJ5umWxx4tLNgIRXn85cZyUuPojhwcry/ ohXnu2NWYSJ6zIG+zc28z/0psGIPXTYonQMTjWvvCOP5lf9t2/OaFxzomFC8 eicQj59QZaF+PgfSvz68+/wmBeK9G5q31XLgUpW6tyuev/orec296jnAiDmg uBPP76Es0+7iDxxwnUrXlLxLAc3v7UOanzngpDhoNx9NgeY9/QsbKByw4Tf/ ZJpEgcvfZYLPUzlAdN29IzCZAmI+J3kzf3GAU0JgVKdQ4Ez2yBolGgekhvwP n8b1aGnljPpawgIYMEosd+F6tmWAcEpk/QI4R2aHobcU6PExGjXfsACzuvIf dN/j8Vx1+2K0+gLEbqNp7PxAgVZDIT8BnQW4x1C/4NyG8y1HIpbHeAFs31/c ZtaP67Gv+nvO+QXIbk71cGRSYLewu6nepQXwf5ZTLsmhwGhO8WffKwsgGi7L GFiiwNbB7QNzfguw+GBmRyRpCNr27mH+jlyAPMfOR1dEh4BLxEZ1+OUCLChb H7+6fQg8XohJ9hUuQPj6fzfS9YdgWLeb3P56AVLYE71fduP17qT1ZEXVAnw4 miF23GQIIvOs8mM/LgDt4/SJQdshWL3fXHvPFH6eZZfZlsAhWB+0H9LVFmGL 5kuqxOchSFhN3pKouQiQcFHh5tchWJHZJB+1dRE+1HKvofcPwa82Y4Kf/iLs +95EmKMOQb60UaP5gUU47FeYcGFxCLaX7Tn4z2URbG2WfeXwem36W//YyZxF 4LzKJz2IHobdl5L25uQvwprOMrOyhGHYOjW3mVG8CCdOPTCiPh4G6Yk88p3K RaifUpBzfInXc6pcZenHRaj9OFTW0zwMMQOEtUIz+PrBLfsreEag52PrcNXW JQDtoL/rIkbAKdfuslT1Enx7U51amkmFMq+JAxZvl2BTDQxJ430zeZefakTD EgRnLQTerqBC3ucECqNtCdyk3NID2qjAYHRYdQwuQe0Z7oQmOhVCwUQ34t8S dKJLoRQ0Cs++anMxDZfh0FcN+Dk8CkN/BeM6WpbhVTaXM7fBOKz4sGx9pvEv zD464aK8NAH/3Db+29rzD5S9bkvu0vwNFg2m691duVB6K39Cm/QsWK7d/9lw nAvV3X6mInaHBtVjI79LL3MjBZmAb5fm6dDU9di98Ao32kuXk7iwRIeu2qO0 bE9u9KZB75oj9xz8SmxipPhyIxmhrvT9AnMgavJyMfgGN5rZeliJJTcHl7I8 +cyiudG2s3oa743mQPYCt/JYPjfS0CdUrYqdA1Xrysyfhdzo3c2oxJyEOdiK vDb0F3OjRJEsHfRoDvZLjm5qK+VGFfwar88+nwPv5uatr2q4UdD+FIfQ0jlo 2xCDbnziRtzv9i4r9s/B9Qk5B/Hf3Ejz7pXPHWsZsP9gpr3+H27UK8yOPqbI ANF8DfuTNG602yxh7TcVBhRcMbDLZHIj2UO9KV2bGbifPm67/S83iswkNMfs YYDRigRrm1UENL1t1SFwYsAqJYHDiVoEdDBCMMAykwEDt+IOVWoTUMPeugeH chmQPSZ16IcOAb1OTlHcW8AAw9wNB1X0CUj+i85jxTIGeGsZm5YZElA2L6U6 t5EB/RBs1HOEgO6dPVI6OMKA5w7zu8R9Cah1vUJenSwTrHfW0MX8CGhbvTJz Cu+PVkiHZon5E5C06yZhUSUmuPauFBG7QUDha5+XHdvIhK1WKtQ14QQ02LUm LU+HCfUmR++IJBLQCa3gyruHmTC89XWPYBkBEcyPDon7MyFe5NpdwXICskn0 WlEVwATj2d1IsBJ7WrDfLogJufmtOQK1BNT1ak/ovVtM8NwwHMD/gYAcalO/ 1kYzgVtORIncQ0BPnlW8tXjGBHk+d3cii4AGOnZYaHzAx4XMZDnzBKRu03Rk ZzO+vrBGywyHgJSc7NcatTLhueSU4rdlAnK2uMB9qJ0JKhvO9xTxEJFtZSGP ag8T1E1O7TopRkQN81ydIqNMEDq4e/KIBBEtfvoiNTDGhBmztUmmUkQkEdCo /OwXEwptvs9uW0tEKkf6whWmcTycj70QUCYintDTbr/pTNANMxeo2EZEwpds eyr+4X1LpGZ5wXYiEhCQt0bcLGBHCZ17oUdESqFKifUEFlTGf6y9b0BE5nuL z1fysMDghYmn8z4iqpKKNrkqwALD99C/xpqI+HTuGqjgfY1Sk1w4nw0RnS1Y tc5FggWkj8tb/x0jomHTydYsSRY0dlVFTdoT0bys101JGRbsH9ZF784SUbXl hStN6/A+g3tL1mUvIvJ0vTxov4EFs/6DndE++PPXfAU8NrLgAePOUsFVIrrm LGYerIb3TeOjln+uE9GHo3nSD9RZcLo9Zcn9FhGdLvcfvL4FX3+/qWpMOBEt K1h0uWixIPMdy7LoNhEROq5QrfC+arLEMms2iojyyr44iW9jgXcKr5VHAhHn Ny/zjC4LxMVKA2KTiIgew6Fv1GNBRfSZrOJkIjK2QRLT2H+Da5ZoqUR026i0 97Q+C9IXXVVXp+Px0TznK7YTx8dH0mrrMxxPczfUgB1xwSvLM5OIip3e26/Z xQK1YfmuuGwcP56awtfYbfbtS69yiahFw3mb+W4WCJtvtJorIKK/Dce6rwLe Z+n8XPJ6Q0Qprp9T7+/B41EYpRpfQUTSm/TS+AxZ8HODvlVJFRGFBbIHbmCv l03IYtQR0bne0jX2e1nwIcGwS7T+v/H5tqoe+8Kq2aVtDUT0rDjTbP0+FuQT Dlr5NBORPLn60TdsiwB2QEIrEf1iH32pacQCOjMjq7SNiOQO6fHcwI53P9LV 3U5EJ5Ylcpuxt09wLTM7iKhErDBlpTEenzMFquJfiEgqp/q7Ofb1AXur7d04 H76QLkVhy9nwBdr0EtHGcguzBuy3n8uyfPuJSO/65Vvz2GdMnboSvxPRjKGW sIoJHs/3Istlg0Qkpu0xZ46daVCn2vuTiCpdBbb4YJuWXbKaHyKiEO7hpv/e f05vlg6UoBLRH9JA9X/vd6NzmrJ0x4jopc+ocAv2FiWfrmO/iKhp35/G79hd jxWXr04SEcPiz+AEtrd4h+rDaXz+sxS7OWyJmECr8hkiytWs3/3f+9xKvk2B fbNEFLo/+e5/dgjty2LTichBzX0v47/3v0thXZJMInqnbnVhCjvdV3tZb56I Om4dXRrENpylqB7nEJHpnljuNuxRl2ira4t4PEwU/UuxLzn6b/VZJqLvgdft HmMzbJxXe/zD+a84axKEHXDYin6Jm4QiDu7dd/K/+Ozb3XWBSELKr3Za7sCO 0ld75cRDQmeLnl8Rxl6jJR7nyEtCMmD6YgTHV1FuxtJWgISE/yaa38DOFf2m ZS1EQgoqv1uNsLcKfBCxWEVC4y0Dp/mw97BTO03WkNDwgMDkLTzezTORxXvF SKhgSOynAbbFqE8sSJBQ922z+f/+H+DYddhSV4aEHszwJh/G/tW8Q0t7LQlN JrmrsHD+udcpi2xeR0JXS778eIR9I2+5Q0WJhFZVh/X14fxd8XyiSFGZhF4/ 7lnriR2d3B0jp0pCnJ6NibzYqeH5FuKbSKjfn7hBFc+H9YHJW1ZrkNDPh9lG xYgFeV5hwis34/h433uii13teKKDR5uE7B9d49+B59M3fSELpj4+LmO5YhWe f2e0OJtpBiSkfc9yx3UDXB9UR1f93k1Cl6OKykfw/OWI1nymGpKQ7+vjGTl4 vkv+uWT+9QAJ3ayo8+bD9SB91HZzxyESklpPMrXF9UN1YN+qNjMScnZ/fP35 djw/WmQ/v7cioedD3DybdVhw9Hmb2Ws7Enr1fmxCGtejgeRyzUIHEupp5dAO 4XrlFPNi5cuTJCR+RPXif/XMOzCg/dkZEpLf4ln5SZMFccfUzeJcSYhp9U14 /yYWdAhEHfbwJ6Hmoq6mBCUWSPkZv0wKIKFfLhsXryni56Ny8dXewOdvmN1s p8ACZrVPA38ozg/DVS9X4vorffnUzhd3Sch0QNFovzQLznVs3dj7mIQUrYsI 3MIsKDD4Hb78hITW/KwdzlyJ14vsLKrSUxJi/+Bf3C/EgjvBsulXMkgorvzh cDA/C4q2rpDgLyAhgRBh+gcSCxbi+0m76kiofJ5u+JTNhH3c8WfOviOhLyVD xwXnmXDPzext5HsSunPrzYgXE6+nxu+v9zTh8SgxPKWH1y+j+Ty6ewd+PuVG x6QpJsQcv0l5NoTH39VotmiQCcpyqtVkEg9yHh9acbmOCU8KF0SUV/CgzJvn Xf1qmCC+p/38HjIP2ryQNxBUhfsJJ581/oI8SNjNdjnsDRPGct67TonyoE1y v5+4FzIhU8dRql2ZB72ND5yoesKEDYeTfR+Y8KC6y95WR68zQS1AQEvuLg8i HjwQ7KfBhNt31hqI3+NBe7+r3VmziQmjDzebrLzPg3SLRv7kbWBCeumRE3/j eNCBokuUb7h/EfuTEvnjEQ+KYSxWKUkzgeuM+vCTXB6U62oee2kFE3pNDj9Y 18qDBG9SwxiDDLi15j5Tnm8FmkrO9SyIZICJTJHG+9gViO6e9Df64xycdLhS aiXCi5C1Z00a7j9jQ7KnjNfwoj9HHefFZeegIZuisFOMF/3l/Dh5X2oO1JgW 0UpSvKjnrPv7UNE5mL+ndZ4hz4uGP6caXOefg5g6umTiFl5Udm/FmywWHeoV fQL6zXkRycbzuWAHHZj78199suRF7S1S2YWf6LDBffTXuyP4809Sd1l/pEN0 1dGjucd4kUqChOqzD3Swt96uef0ULwo+f9bYsoYOjLD5n7LuvIiQdmzvv1w6 qExc2+sYzYvGg48rFUTQQSbs5vyNGF6UH2S+zy6MDsIKES9T43jR723fs8ih dODYxq/5nsiLXm8y33fpBh3amgtGjqbxIoM767TMfejgmT0SerCIF51cL1Mf fpYOtecPN2zv4kUaog36X/bQ4TXR2u/oV1701Wbw3yegQ3aanbp3Dy8K0zVx +7iLDrG95+OLv/GiCu26Q+076OBkEuKkPsKLcv8ZuDO06MCv+oakyOBF/2y+ Vzco0uHYmLyRkDgZzZYLed5eQYet/84V8EqSkcqsl/ACiQ6Cki8lCNJkVPrk sellIh3emupMstaSkW/i8oOTXDh++ab3Kcpk5LepsvbkAg3YXp79r3XISJzY vfLnDA26ot4YFuiSEX1fx87rv2mQl7H0MnsHGemEKClIT9PAsTf8RuouMsrM rJVxnKBBi36KUoQRGT3uDOASotLgEXeDm91RMtptrrsw1U8Db2m+XutjZFRB VPMp6aOBmbYZMj9ORs2E+/VBvTQgnOtbve8EGUUxK77JddPgYvP0G41zZNSe LawW1EEDg/tiBG4fMiq82HKrpYkG4tl2Fxd9yai8/sHXug80mH2b9pXpR0bD 96yFKhpp8IK+MWsygIzc3nzbXfKeBoI2uw99vUVGpH1rGj/V0WBQ9nxiVjwZ rawZcI0up4GNssHoQCIZJQblPXv0hgYdGiLbVieT0cJl97jcMhrU767qDEgl IzG+Z2ndJTTIdlwlZJVJRsFGOx7aFtNAwYVqH5FNRlVmB96EFOHn96jIrc4l I41ah+SiQhrcCzm7X7WQjDj2qS8lCmjg+eJN6NIbMrIS+aW25iUNpvKiurQq yciTEXHLPpcGTqWnFc5Xk5Fgc21uVg4Njn0QqOt8S0aPgg+ePpiN4/Hr1EJm Cxl1ignGv82gQdnsNtOBj2Rk3/PGXRV7M4fvoUg7GembicrHvaCBIn+JTkAX GcXO+RO8ntOAV53sYfmdjMjjs6NnntLg5rbBuvBBMuLn3h30K50GCwavVlb/ JKOHO3vnPLCnDzvkqVDJiNbU4hGTRgNnG61F+zEcv+ngAGXsnydXHIj9RUZJ X/aeq32C88e9aHxxmozCjzt+WUylwUG/sO1af8jIIXXieDp2w027MGcaGbF/ 97/dj/0mlqTUySSj1Zn8WzMe02DLo36PFWwy+uRmuus4du6zgrc7F8joFve0 mgj249e2JzP/kpFaj3hhVAoNxKo18r9z8aGytW7GFtjRDYQlYSIf8t71/p0E NvlT7wFjHj7kIemhMPKIBsHdecnXefnQUmjzuVfYC4PBv4r4+JC+idj9MGzv MRvdMQE+1CadmuqA/XtmU7jMSj50LTstVhfbeZ6r20KYD3Xesbkojk35160U vpoPUQ4x1TjJNDhOfulZJcqHyK45HT+xu4RvvpsV50NPDz9yaMU+JHVUWEWK Dw1YTbSXYzcqqJ2yl+FDDxuKVV9i71b7lx+zlg/pDZLPP8Uu3/p1qXEdH7r3 YTnqv+9nau3MObiowIf+//3N/wGygJru "]]}}, {{}, {{}, {RGBColor[0, 1, 0], PointSize[0.019444444444444445`], AbsoluteThickness[ 1.6], PointBox[{{0., 1.1}, {0.5235987755982989, 1.36328125}, { 1.0471975511965979`, 1.06953125}, {1.5707963267948966`, 0.5125}, { 2.0943951023931957`, 1.06953125}, {2.6179938779914944`, 1.36328125}, { 3.141592653589793, 1.1}}]}, {}}, {}}}, {{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.019444444444444445`], AbsoluteThickness[1.6], PointBox[{{0., 0.98}, {0.5235987755982989, 1.36}, {1.0471975511965979`, 1.1500000000000001`}, {1.5707963267948966`, 0.49}, { 2.0943951023931957`, 1.08}, {2.6179938779914944`, 1.58}, { 3.141592653589793, 1.1500000000000001`}}], {{LineBox[{{0., 1.1}, {0., 0.86}}], LineBox[{Offset[{1.5, 0}, {0., 1.1}], Offset[{-1.5, 0}, {0., 1.1}]}], LineBox[{ Offset[{1.5, 0}, {0., 0.86}], Offset[{-1.5, 0}, {0., 0.86}]}]}, { LineBox[{{0.5235987755982989, 1.4700000000000002`}, { 0.5235987755982989, 1.25}}], LineBox[{ Offset[{1.5, 0}, {0.5235987755982989, 1.4700000000000002`}], Offset[{-1.5, 0}, {0.5235987755982989, 1.4700000000000002`}]}], LineBox[{ Offset[{1.5, 0}, {0.5235987755982989, 1.25}], Offset[{-1.5, 0}, {0.5235987755982989, 1.25}]}]}, { LineBox[{{1.0471975511965979`, 1.2400000000000002`}, { 1.0471975511965979`, 1.06}}], LineBox[{ Offset[{1.5, 0}, {1.0471975511965979`, 1.2400000000000002`}], Offset[{-1.5, 0}, {1.0471975511965979`, 1.2400000000000002`}]}], LineBox[{ Offset[{1.5, 0}, {1.0471975511965979`, 1.06}], Offset[{-1.5, 0}, {1.0471975511965979`, 1.06}]}]}, { LineBox[{{1.5707963267948966`, 0.56}, {1.5707963267948966`, 0.42}}], LineBox[{ Offset[{1.5, 0}, {1.5707963267948966`, 0.56}], Offset[{-1.5, 0}, {1.5707963267948966`, 0.56}]}], LineBox[{ Offset[{1.5, 0}, {1.5707963267948966`, 0.42}], Offset[{-1.5, 0}, {1.5707963267948966`, 0.42}]}]}, { LineBox[{{2.0943951023931957`, 1.1700000000000002`}, { 2.0943951023931957`, 0.9900000000000001}}], LineBox[{ Offset[{1.5, 0}, {2.0943951023931957`, 1.1700000000000002`}], Offset[{-1.5, 0}, {2.0943951023931957`, 1.1700000000000002`}]}], LineBox[{ Offset[{1.5, 0}, {2.0943951023931957`, 0.9900000000000001}], Offset[{-1.5, 0}, {2.0943951023931957`, 0.9900000000000001}]}]}, { LineBox[{{2.6179938779914944`, 1.6900000000000002`}, { 2.6179938779914944`, 1.47}}], LineBox[{ Offset[{1.5, 0}, {2.6179938779914944`, 1.6900000000000002`}], Offset[{-1.5, 0}, {2.6179938779914944`, 1.6900000000000002`}]}], LineBox[{ Offset[{1.5, 0}, {2.6179938779914944`, 1.47}], Offset[{-1.5, 0}, {2.6179938779914944`, 1.47}]}]}, { LineBox[{{3.141592653589793, 1.27}, {3.141592653589793, 1.0300000000000002`}}], LineBox[{ Offset[{1.5, 0}, {3.141592653589793, 1.27}], Offset[{-1.5, 0}, {3.141592653589793, 1.27}]}], LineBox[{ Offset[{1.5, 0}, {3.141592653589793, 1.0300000000000002`}], Offset[{-1.5, 0}, {3.141592653589793, 1.0300000000000002`}]}]}}}, {}}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.5}, 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, "ScalingFunctions" -> None}, PlotRange-> NCache[{{0, Pi}, {0.5125001621499269, 1.3925714266794489`}}, {{ 0, 3.141592653589793}, {0.5125001621499269, 1.3925714266794489`}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6691327214401183`*^9, 3.669132819840256*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", "ys", "]"}]], "Input", CellChangeTimes->{{3.669132873510331*^9, 3.6691328800603404`*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"0", "0.98`", "0.12`"}, { FractionBox["\[Pi]", "6"], "1.36`", "0.11`"}, { FractionBox["\[Pi]", "3"], "1.1500000000000001`", "0.09`"}, { FractionBox["\[Pi]", "2"], "0.49`", "0.07`"}, { FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "3"], "1.08`", "0.09`"}, { FractionBox[ RowBox[{"5", " ", "\[Pi]"}], "6"], "1.58`", "0.11`"}, {"\[Pi]", "1.1500000000000001`", "0.12`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.6691328805803413`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aju", "=", RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{"ys", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], RowBox[{"(*", RowBox[{ "somente", " ", "as", " ", "duas", " ", "primeiras", " ", "colunas"}], "*)"}], ",", RowBox[{"{", RowBox[{ RowBox[{"LegendreP", "[", RowBox[{"2", ",", RowBox[{"Cos", "[", "q", "]"}]}], "]"}], ",", RowBox[{"LegendreP", "[", RowBox[{"4", ",", RowBox[{"Cos", "[", "q", "]"}]}], "]"}]}], "}"}], " ", RowBox[{"(*", RowBox[{ "somente", " ", "as", " ", "funcoes", " ", "de", " ", "q", " ", "que", " ", "multiplicam", " ", "os", " ", "parametros"}], "*)"}], ",", "q"}], "]"}]}]], "Input", CellChangeTimes->{{3.669132885250348*^9, 3.669133014120528*^9}, { 3.669133054720585*^9, 3.6691330579105897`*^9}, 3.669133238410842*^9}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], Short[#, 2]& ], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {1.039979797979798, 0.6725829725829726, -0.635290043290043}, {{$CellContext`q}, { 1, Rational[1, 2] (-1 + 3 Cos[$CellContext`q]^2), Rational[1, 8] (3 - 30 Cos[$CellContext`q]^2 + 35 Cos[$CellContext`q]^4)}}, {0, 0}}, {{1., 1., 1., 1., 1., 1., 1.}}, {{0, 0.98}, {Rational[1, 6] Pi, 1.36}, { Rational[1, 3] Pi, 1.1500000000000001`}, {Rational[1, 2] Pi, 0.49}, { Rational[2, 3] Pi, 1.08}, {Rational[5, 6] Pi, 1.58}, { Pi, 1.1500000000000001`}}, {{1., 1., 1.}, {1., 0.6250000000000002, 0.023437500000000444`}, { 1., -0.12499999999999983`, -0.2890625000000002}, {1., -0.5, 0.375}, { 1., -0.12500000000000033`, -0.28906249999999956`}, {1., 0.6250000000000002, 0.023437500000000444`}, {1., 1., 1.}}, Function[Null, Internal`LocalizedBlock[{$CellContext`q}, #], {HoldAll}]]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{{3.669133046740574*^9, 3.6691330584805903`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aju", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6691330618905954`*^9, 3.6691330688706045`*^9}}], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\ \[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"1", "1.039979797979798`", "0.0476605257174328`", "21.820569167565946`", "0.000026099398228616114`"}, { RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "q", "]"}], "2"]}]}], ")"}]}], "0.6725829725829726`", "0.09224190983142719`", "7.291511784742133`", "0.0018805942145951927`"}, { RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"Cos", "[", "q", "]"}], "2"]}], "+", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"Cos", "[", "q", "]"}], "4"]}]}], ")"}]}], RowBox[{"-", "0.635290043290043`"}], "0.1006246505092043`", RowBox[{"-", "6.3134633519242085`"}], "0.0032190145064826263`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{3.6691330697006063`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aju", "=", RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{"ys", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"LegendreP", "[", RowBox[{"2", ",", RowBox[{"Cos", "[", "q", "]"}]}], "]"}], ",", RowBox[{"LegendreP", "[", RowBox[{"4", ",", RowBox[{"Cos", "[", "q", "]"}]}], "]"}]}], "}"}], " ", ",", "q", ",", RowBox[{"Weights", "\[Rule]", RowBox[{"1", "/", RowBox[{"sy", "^", "2"}]}]}], ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", RowBox[{"(", RowBox[{"1", "&"}], ")"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6691332451008515`*^9, 3.6691333185409546`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"1.0399003174603174`", "\[VeryThinSpace]", "+", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "-", RowBox[{"0.07724190476190476`", " ", RowBox[{"(", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ")"}]}]}], Short[#, 2]& ], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {1.0399003174603174`, 0.6615492063492068, -0.6179352380952381}, {{$CellContext`q}, { 1, Rational[1, 2] (-1 + 3 Cos[$CellContext`q]^2), Rational[1, 8] (3 - 30 Cos[$CellContext`q]^2 + 35 Cos[$CellContext`q]^4)}}, {0, 0}}, {{69.44444444444444, 82.64462809917356, 123.4567901234568, 204.0816326530612, 123.4567901234568, 82.64462809917356, 69.44444444444444}}, {{0, 0.98}, {Rational[1, 6] Pi, 1.36}, { Rational[1, 3] Pi, 1.1500000000000001`}, {Rational[1, 2] Pi, 0.49}, { Rational[2, 3] Pi, 1.08}, {Rational[5, 6] Pi, 1.58}, { Pi, 1.1500000000000001`}}, {{1., 1., 1.}, {1., 0.6250000000000002, 0.023437500000000444`}, { 1., -0.12499999999999983`, -0.2890625000000002}, {1., -0.5, 0.375}, { 1., -0.12500000000000033`, -0.28906249999999956`}, {1., 0.6250000000000002, 0.023437500000000444`}, {1., 1., 1.}}, Function[Null, Internal`LocalizedBlock[{$CellContext`q}, #], {HoldAll}], VarianceEstimatorFunction -> (1& )]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{3.669133351651001*^9, 3.6691340768620167`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aju", "[", "\"\\"", "]"}]], "Input"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\ \[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"1", "1.0399003174603174`", "0.03963370913087622`", "26.23777436591707`", "0.000012538605426538486`"}, { RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "q", "]"}], "2"]}]}], ")"}]}], "0.6615492063492068`", "0.0723485307503786`", "9.143920401531373`", "0.0007938953329912196`"}, { RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"Cos", "[", "q", "]"}], "2"]}], "+", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"Cos", "[", "q", "]"}], "4"]}]}], ")"}]}], RowBox[{"-", "0.6179352380952381`"}], "0.08925726480084346`", RowBox[{"-", "6.92308059712579`"}], "0.00228474222463809`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{3.669133360181013*^9, 3.669134080602022*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", " ", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"aju", "[", "q", "]"}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0.4", ",", "1.7"}], "}"}]}]}], "]"}], ",", "graficoDosDados"}], "]"}]], "Input", CellChangeTimes->{{3.6691335565712876`*^9, 3.669133624711383*^9}, { 3.6691336819014635`*^9, 3.6691336822314634`*^9}, {3.6691338790917397`*^9, 3.669133905981777*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJw12nk4VO8XAHBmyBBFligUFRJCllI6b7IrayhU0qJFKdkqbUopsmWtpGQP kfhKZElZklBKYQzGvmSGmTtjye/tj98/PJ9n7sw977nnPffceUbBw9v+OImH h+ch/vPvP7lSqLlf98LOY8aHxMWdGLBWaq2S/EMbUHokKy+JzeqOsv4VcxiE HmrtXI19toPyUSzfE8om4i5uwKbtaugrifGGqhjD91uws9uNefLfXYQnsSvl TbE9hDZE8uQHQPHmZQ/dsGWBX97h2RVIblwiF4DdfnEgNz3mOvCxe9/FYZt9 75MLqrkJU15XvEux0ybtj6e/uwUtEjn6Pdg8gh9ym9+EQOkCSAg5M+Dgui0z RN5duO8hxL8Nu8zwxXaFzHuwKrtV0Atbar/4LctnYXDN44DiC+yW8Gmx5JhI iLd69kBuPwPivxWq9X+Mgg8BzT3u2LW0Uy0BNdFgK/rYOAtbYe7XyufvHgLP yVLj3QcYYEuJeadbGgvxoXY98djXJC0PN76Jg82/ZMImsX9vLsuYzkuAIx8f SuS4MIBi6GMZmpMI0ls8GSKuDNC3VJ2UzUyCQb+8bj/s2GOPdE2fPYa/G5/3 2bkxYG/S5drEmBQYrL0WaXCIATsdZN7Emz2DasFjv95jtx9g8fd+fAbyoW4a ZocZQPbMy/areQ731ebZR90Z4H5TjvH03QtIfSk79cWDAcRdrtHItjSwHOu/ 7nOUARER7bFbStNAsneT5OpjDCh//GBr/Zt0GO2U2Rt4nAEyJQvXGXmZQIk8 0elxkgEF5b9at6tlwd4Le28on2KA+YfidXdyssBIkLFuCtu/5Wzdqsxs4OF/ ffTBGQa0jXYvM372EpzPj2UT5xgQvuZ9cnzMKxDs337yvj8DTD8/1qoSKYAV iXcepAUw4NOd/RK69gVwKDLd9kMgA+oWWn/JdxYA37JVOcuuMKB+rPYYc7wQ 7paGBnVdZ0BjXc7lJNE30PKhdo3DfQZY3vI8uMzxDdwebNhfEoZf37ke3Up6 AzkLz8XlHzDgc3Ey/1nFYtB5MbZkLpIBTS+iopBOCRj5eb4cjWPAl+v+GUPO pQBrLomnpDLAevuWe25PSmEJ59J5izQGNLP/nGmllQJTmaPGScc+e0rr3am3 UOe+UOaRje3qVh5xpQy+v6gfOlOA60vfqE03pRzK14HjnkoGjBJLFnddrILb nQ8atGkMWFy3t1b/YRUw97yp3NnHAAnbh/fUi6qgpXGbgTWdAZC1RkJmugom Jc1fBwzj+ti/deOUTzXQ6utPzEzhenh7yuGpTw08reyOiyExIfpyU+bshVr4 bVHRYq3ChK0L0bZF5+vBY7uty5qrTDAIOp1AiaqH+9e/Pxq6zoTtc0bUg6/q oXPmdPDrYCbs5E6foUzWw9jpkG22oUzYzXK8e/BMA9xnlo7kPGSC9YTMe4ET jUBZ/ebA7xwmHO9+vsnNtQm+ykYuE+xkQgN1/y3SuhZwsgzP79g1Dcho31yG x3cIOz3yZ4XeDLict5gqPtAB1l/qUvXXs+C9gmpwVXoX5G1bfeTzKjbMfjE4 +6ykC2oeZoKbPBt0L1vtv1HXBa4NuoxRBTbktnlpoJEuMGzuKOHdyIbHt179 rlTrhonkdZsl9NkQOKCzpbKoG2YNdRl19mzYkg30imoq2AgeFzUOZcM5R9uv yW1U4PewirgdxoYc3iNlV/upEGwlurkmgg2KLsFRhvw98Mi78YNOHBtEl37c UWHeA1bRz9PYz9kw6WUZV/61B1Jq854Pl7FhX6Lqi+5zNBj3NRI+MsoGgb7c s+X+NHDefalMaIINZZs2b318jQZhNjkuhX/YsLZyy5f9ETRYmdXozpphw8TA DuJbHg0EaSC+f5ENd7bYWDWO06C6/ujD2+IElDZfnC453Quui9+eH9pGwBlp dkWcTy+wSpeMPt1OgLxHYKjv5V7wordndhoScJsVJKd9vxde7r3mZ2lEgJ3s HbO87F7gV5FgzlsSMHoq8fGL4V4obDy/+7UrAav5K3ZHneiDDUeVQ00uE/B9 wyV+Ge8+MAn37dkSRECEqW7d84A+nLf8ULlrBJBC8yyLQvtg2d0NVX03CRgW emr3I6cP7E/SrXXuEVAiev2w7J8+eLWKfWAqnoDzWtsV0ok+2IVu9UcnEqBq T/Sp8/TDVR2daxqPCEh+6H0CxPohnnXj5/5kHL+U+1mPLf1wJPF4/oUX/+Lf dSUroB8Gr6W/KMgnQMhwYYfWjX5wPIku8RYQUHvw7d+3of1gkH9k/d5CAram aAV/TuqHDe7CE9+LcH4UFe9NvuuHUDuhwfRSAjqMqJYBtf2Q2P+W/8tbAmKO PhLm+dIPOf9t7JksI4A/fUWUGLUfBpa1FipWEDCuTE7Q4aGDp96mS5bVBGSY V+6voNDB/HiqoFkNAe6nrqwyFaODvsiVbTs/EPAtZzrZWZEOJewHp2U/ElCm Tk+7bEyHHGfVsoR6Anytn50g76VDrJ3fxMkGAtS93VTCHemwsKCdqdNIwLOC 7y+TT9DBTfbv83efCbi75ePrqlA6KBvSj9xtJuCH2RWL0ig6fFP6na3wlYD1 blq0V4l0YMstlf4Pu+Z2skhKFh22Vo4f/NZCgFiSQ1p8AR165ES1XFpxvHmC 2yNK6XCe46DQhf233e/k1Xo6bJZwtG1tI2Dv6KZF3xY6pHdk3zf+RsCTv71x Xh10aF9v/es1toGy9QfXYToY7x/KufGdgHvb+VwcpvD5BhI30rA7bMqmLDk4 X5bibwzaCfAPVJI3oAxArNNyOg37Y3jXGy3RAVi58mKI2g8CJJ7HWG2UHoBv Q0dVL2IfLTbvW7t2AOKTqS1vsF83/A2UVhmA+Tq6PwObl/pmuajmAPwuClq1 8ScBtszTGQJbB+DZ2cK3rtgpSxQMF2EAij/E2N/Dnlz18xvbbAA6zXX7C7EN Nz84PWkzAJecXp9qxw7fvZt30HkAWMtU6NPYnc7chO7DA8Dr/tZWpAPXq9cr jXbPAejii8hTwL504/jHJu8BSApt42hi18eudqsNGAB381LN7dgrs1uZ764P QLqfnwPCPlFx917R3QE4LG1y+J+LWw3XvowcAG0xT/t/x/MNTpekJgxA5uq1 m7SwHWaz9z5KGQCTlrdD/86XusydHp05AO8ygu/8i4ehKHXl3iucD+IL/wyO F+k3id38bwDceGaO/ltPpFVwVmAlznevXcq/9VIPb4XzdQPQl2ZREoqt7jvZ 7vl1AEQMjTJdsINC07wO/xyAk6GZ55WxPz9xITv3DEC7/ajoH5zvVYWij6yH BqDM+cadQuxTHz9pmv4ZAIox/es57NJfQXWGxABIlcaNKWE7kUZm1AQG4XUI 5+FdfL3TpVLC1i8fhHPMajlN7BlVR0XZlYMgLCbo+w3XS4xDtc1S5UGYdwm4 IYTd6xkwSNo8COdvULc8xfWmGaR+dVZvEFJsduerYTenJeWMmA7CxGI5cxuu V7m3Nrt6rQehem5bWSmuZ68v/B0dToOg+vv2bm1sIfYF/voT+Hy9YfGSeD+Y mFm6Z9wZBOOsV7LJXwiwmTr20y9iEMxHr+xgNRFwIOm6tUn8INjrO1mYY58d e7ODno5fvyqv1IP3Z1zkGhnFj4MQEXqy5WsdrretBlGMpkGQXPZnx+InArJ7 9wlUfx+E3edbIzZiV2y5zzpMH4TyDNWec7UEDPycaU0mD0GHYuWq8ioC/txY bnF26RDopj98VFNJAHejatUO8SF4cW0X98N7AkSCDud3Kg5BZIqR7X/lBOiu bbwvYzQEtqWJdu64n4WcTNkdd2MIqtrMVr7D/TFSrKzsWOgQpPI/0ffOIyCp 7LuWTtQQHHripi6fS0CesNDabylDYJ50PsErm4D2At950coh2NG4wvUz7rcb uBbF4QtDcF4460BUAgGbU4+pufEPg0//cCYjjoBtVtdfbBIZBpINT93eWNwv kt9EN8oOg/6cfgA7igC/XWvOUXYMQ/OSG8mC9/F+vzejdPvyMGxPUlvUu4L7 l6BF3ELwMDSkPP686hIBg/eSyQFhw3Dh3JJrHH8CKPdNaaeeDMPr+E9xz30I sLyfmGTzfhhehGgm5ZzC1//+DuHVpBGI+TVvluiE61so+nKs0AjsGdZPWbUP 5/P+wLCI+Ajc3XqkP96OANGwiI8860dgbcxG3at78P4Ko10bNBmBzDXvVvDi +2NH2G1G4b0RcP0WcnZwE76fLf11eFPMCJR+rmUIbMTXI0y9Oe3RCKxWKDq/ Tgnvh/AfOQkvR0CMMu9hvpYAt3CVY1e/jEBG0t5tlhK4fsObfpiLjULgn5QP GnNsGH0gUd6TiK24cCKklg1RvEcX656Ngm/My1Glajbo+RUaFWSNQm31+IEP FWwIdrNuuFE6CqElXrwTJWyQ2RT6Q6FjFPKdPZ6Ts9lgXj83dXTlGDTeS0yG cDZkkPo3DMeNAf+lWttFazbs8dc61ZI8Bvsqh/J5rdjAHLmeW5o+BkOHrHQW Tdmws1V2y73iMZgteVgxtpMN7SlOSLV9DLzFLlHCNNjAZ9jo4iUxDqcqZ27S hdlwJKAwcipmHL7d410h8YkFy2q2NQY/HofT+gds5apZUCZcwyeZNg7WNlIG CuUsWJHadmlb8TgIF0/KybxmQW3T9NHgn+OwvqgirCGZBSqKelslZCcgf3XB Nk1fFvxpKqPpp09AQLT8zGY5FlxVrNW6/t8kDHb72A64z4DG36ts0qkp+E4+ ssisZELdwf3Ta/FzSrsu6ju7ggFaT8/+vOrLBB0TZlCK8yQY21W7FPtMQ4jB fwcOfRuFTQM2HzfdmYEnF0bnbuN903FKLfL4/RkwUY/QttYdgjuTlAMpETNQ /etKqrzKENCI6vEVCTMw96LycLvIEMQK6UjMZs4AO3Ff9uNfuE9tlj5a3zAD r4JmNeJ9BqH5Mo3nuAgL76cH+xJyBsBH9MKOp7EsmCzVO7NPlw6jEY3nIxNZ 4HJM9+qSTXTwEFmffuMJCzz6nu2vXksHO6GfIkfTWCC0MveBnTAdNPkMe5Tf sEBn1b2urv5+mCQowYXfWKC24bFjRmw/nO55Vle7gg10ZRt/w4U+6Ds4O1cs xYbGALsn0jN94NLloJmJ5+j7BQYPFkb7wOLXkqR7imzQ6GVM0Dv6QOWb12lr bTb4/b4dpFrcB4Oftop02LGh4rEzSsBz39H8FvuxKDZ8+fph98bxXjgkXRes hedghvTCu9T+XnAJrngdkITn6Cd61SqdvWDrlLOCL5UNVdcaHro09sKOv7fa ZIvY0HXr2U4nPHdKWOvbW7ezoUXRM/fNqV5YXqoeHPuLDcZmRPnskV4QUlz/ +nc3Gy6+uvhrr0sv8LBFV3gOsqFZceu+1Va9MJ482nqdYIOK1IG1+9R7oXYi 2a5QhoBzE/bHds/QoNI59iYhh/t4F+XpwQkalFXfLzRUJOCIFNcxZJAGBXEB Yo2qBHRJOLkudNDgiaFdax+em4P8q3yj3tPA7wGfncQhfJ/vrg8yD6eBkvoZ 24BUAnbY3pvZqI3n+ijqqG8GAfbqYXrO6jR4PWMX4pNDgGuNEC1KhQaG5VvL zr4m4L1K+6WNa2iwz2rJ+mN4LlwMubV1SpgGN089J2z78BxDP3s1v70HTL9I xFgPEmDs6JiY9KUHhLVC1faM4jnTY81c8sceSOScO2LGxPexxPQiZnEP5N/d 8dmQxIG03I85TQk90JX+86mqIgfEHN13mLv3QKqg1TYVJQ7YL9HubDzQAyfP vv+2QZUDARydDZ4OPTCtk05R0ObAy/G0lnHTHhCq9fFZacQBRe+tMuqbe6BF eVBY0pQDEZrbMq5u7IH4sAOZKyw5oNn9W2B4XQ8oOKAuEXsOqK+XdBOS6YGt fSKmfB4cKLwi0xDC1wN/TW7SeE9wgNfnfFD6IhVqs2cuL57C7x+3UemZxc9d FzpfzV7gwKFh1qVnDCqc4MmWYdzkgIqIrI8rjQpqx2TfTIZw4O14lLNVFxUY dZHW4/c4kLh7wMGxgwpBkf63hqI5UL/z1dP/WqjwUN54ovs5Bza6+P8orqFC SdNIQF06B4yt/Kh3Kqnw+3IkqTCbA8E37cUulFNh7c/fK28XcuDxqWre6BIq 7A65kXq2mANSAmq1n4pwPFuU1J3fcuBaudI7yUIq5EZeMFKt5sBYVpLN4ksq fDVc+UX8I473qjEjKZsKzLFy54V6Dgyn0L/uzaTCNnPK2ZYWDoisDLHifUEF N3Ye8fY7B2KDxMZ5nlPhRppD8IsODjyxedkik0KFTzwpCf40DrgrGnglPKbC SL6xojudA6SLEkrzSVQQPjiaazHMAduWTxsvJ1JBc2mU/pZxDrx5FxkolkAF h7e6NbJTHFjekSheE0cFf8/OPUtmOJA6zJ4Li6XCI8mbP/8QHFjRkq3t/ZAK FR+UPH7NceBO5JPSMzFUoF1oGq9Z5MB7k/SIm9FUIK/1Ccglc8FFI6S4IIoK Ss0rSfECXFj/fFidG0kFy6CK8OtLuXBFzJPjgn1W9ejKU8u5UCByS/JHBBWi Oiip9uJcKNqZE3Ia+82dfLUdK7kQ6qlrIY39U2fffxtWc0Hs+En3ngdUmO3j 7lq+hgs16j6fK7HlolOaOIpcuNzqdf8tNgIT5z4lLnhdOpjchH1sYrT3syoX pE7q8HGx7z6O8irW4IITt+n9Tvz5ORZ6xFNtLtxNnWhKxm4mOm+G6uH4mGYa UjheRvpNYR8DLtBiAvsysSX2KSe47uSCj6nAiD1erz7pi4KJERfuj53YtRLn w6XAJ1fDlAsRV1ijM9hXD0nrS1vieJfO08dw/p4Jv6/mteYC40u+xjzO74ey o3vG7LggL6ZetwFfj8GTgj+/O+J8Gt3MOxlPBfWP+8YzD3Kh773XYQN8fW0v zvpHH8HxBBeoNDyigq/CM94rx7ngr7Ju+4UnVCi7OiZlfZYLE7cpeiLPqNC9 Kfq5/gUuJDbfWM2bSgWe33pqCn5cUFDcYrwsjQqmesG7ZoK48Kj6zH7fLCqc ois3dd/gguqgLfqSQ4XwmC9Odbe5oN6gfgzyqPBtUtrrUTgXjAMznb1fU8E9 81U8esIFR6/ZVwsVVFiyiyl7/RkXZLNmrxyvpkLeb50XFWlcOMtqoo/W4usn UvbKII8L3gry162bqBDrW1uv854LgwmZ3oF4/xosE7C5WMOFT8F65U14f/dm WrQXfuJCpvGquzsHqKDR2dyr8ZUL+0/evHN5kgr1u37NqtC4cLKb9dKB1APn Olff9KRzQS9xtddDgR6Q9DskkDHMhWlx5u0p4R7wyOoXX8fgwkxH9UuSdA/M L5tUkyPNAl/mRt07uJ9pdpEOi62fhWQPEQn+Yz3ww89kwEZlFmZWXS9YeaYH ri4PPROhNgu13stNzHx6oNFIJHCp7izMmzwwWLjRA8eyV0bzm85C6fRQ+IcU 3I/91T5wPWch1nlCsaivB3aKelts9ZoFe+OcyuixHhjILvzqf34W9FTHfobP 9IB2t17XdOAsBD7nU/Mi06Bp9y7WxL1ZWDCSaD4iRQMeMSflvpezQCqfDGbs pMGFNEnpjlezMCq4QnVoNw369NspzUWzIMfYwh42p0HtoX2jb9/NQmH9rXFR Bxrcy7XPi/48C3sswjsYnjRYYW6zZdfYLAxI//40/ZAG66+bwzPVOdC0YxT9 wPfHuBUUzXiNOdAJ66CYz9FgSUbd2nDtOdAQVR+u5e2F4SZTUqDBHFivN9Ds XdYLeatMPtpYzoEFPcryxcZe0CvZZbV4ag5IEgfyzfH92mLCwPlQ9hywFlr9 Jzt6YadXwu7svDlw6PIOPdfbC9pj05tnCucgwnqVydxIL6wayaXcL5uDGLPG ZIM5fD+ny5cVf56DOvvD3TbyfRDVRZITmZyDWM7IdNOJPvjxubHvnfY8GA+/ Irfx9MOxHJdzMuXzkP7b/O6gEx1KLo5Y2lbNg1zi6I4VHnSgGAYq362dhxrY 3mB2lg65X+NoM03zwG2P2N5yiw4zMy32Ld3zcFEo0c2xkA63wEz/7uI8GCoE r1VeNgCp37fwsIwWIL7/yKXHzQPQ+1c4pqVhAXIZj8SNTw7Bkk8L+zw+/oU5 GZ4O65xRWDy7cVH7xyL4rd+UXes9Cba1Fuu9T/Mgi8q+81KLU2AnZ/7VaIgH 3RuuifR5yYTywf6J4nO8aKKfe8bObgbq2p54vzrPi5qCB7IEnGeg7b0jI8uH F1FZ1pZlbjMwHF8389ifF/HDbI7EyRmQMHs5d/MaLzL5pBCQfG0GvDJ9BK0j eFHXt4m+uZwZkD3Ju2Ewjxc9nbBa1cbDAuV9ZRk9r3jRKfWlKSJLWKCNLqr8 KuRFsrqfV5gsxXOq9MCmpmJeRFAK3mZKssC3vl77dQUv0ujIydiuyoImlSh0 7QsvIh3bL/3YngVXRuTdpCZ4UcPbTknFZ/j9VhmuBn94EddBXsEgnQUSeequ hxi8iAXnJ/fksCD//A6XDBYvCmGXVnngOZZGHNiv95cXSetf77GuZ4HJkrh9 TstJKCaynNjwhwXL1y3dG69FQncSdl0s3Yrnxtsxe8q2kNDN1HwNRUM2ZA3K 7KHqklBCxhrjO7vYYJSjYqVkQMItq+aCoSUbfLVMLUqMSMgq8/J9T1c2/IKb Jj8cSEhKWNI1K4gNL9wIQyl/EiJzM5Q///u+dnsFUzKQhLYZybXveM+GJatu ZUpeJqGm+MP22fh57PTPZWKS10joisnvYp96NmjbK9HF75DQustNM5/wHFtj 5nhfLJ6E0oqU+H3/4PMrrQaxRBIKaTzJjWayQYm/d1r0EQnNX12fkcPCc3iN 10HRpyQkv3pyXRN+HrQ3vK25PIOEOKUGEV8FCOjTLvohXEJCb/c0rPopT0Cs 2KUw4VIS2rM2gfJMgQDTqZ1IuIyEnIJoT46uJyAnrzF76XsSmppRKP6Nn099 VPqChD6RULWEdlioDgG88mLrKD9wfEeqJfvMCVgr6O1NZpNQxEF33tCz+HUR a1kuQUKaCUfqkrzx+UXVGya5JETjYztmXCDghfSY4u8FEkqpa//8yo8AJRXP HwX8ZOTP8pW4fZUANbPDhockySgvM4urFU6AiNXOUYeVZHR5XafO1AMCJq3l EixkyGi130+97EgCXjl1TunIkVG80anIpQ8J0D7hnLZ0AxmF/MmKi04iQD/E ZulbHTKq3x4n+yKdAOl7GqX5emR01zy9XSSTAE64yPG0rWT03ix3/8UsAspi P7+P3EFGG8xWvtd4ief0NDOfE8ZkpPG3QsyzgAC5LKU1bqZkNPq1ckNWIQF/ X/I32ZmTkWSVigAdz+mVRR82GO4hI8N9Jjp7igkw+gC/xPeRkVW9rRn1LQHr 6uTvCDqR0WCR6A9WGQF8nxe0F53JaCqqV49STsDHtnfho65ktOu95wW59wSY 9+mj6qNkFPOA0S2I5/6Ng1ITJcfJyCeMJMbBFhplJeV6kpE3/xLZ3g8EfGYU TSecIaO9JloVLz4SYM2rmXnuIhn93bDLeKyegKnL3a0RfmQ0bLb0Q1UDAQ9n 7s/nB5CRqJfitqhGAjqGBuz+XCEjW0U9UbkmAi4feRi0/BoZeV2uufgbW7YT ZW6+QUbFbu++RX/Bz0HNj+e9b+P8CrpGTDbj9ZhbKEfdISNSwKexh18JyKhm 2xWEkhE7X9lqSwsBo2/sMqfCyUh+XbKkeysB4RqLraKR+PMSc25NYG/Oyp3X jCYjHbNnXN82AnwfC9hfiCMj6YprZJ9vBEhJFgdFJ5DR86Vxj4aw30Z4ZBYm kVH0k0lw/k6AG0W0rfUxGRUFarOqsP/erJhnJJPRJaVl5evbCXg2d1p5xTMy Cs7UjQ/GNvKTttdOJaPl/kdDfmPfPXkx0yeDjO5odmUH/sDPbX1r22KyyGhm X3nfe+wm1+b51zlkVKD9RX8R+1z7FeVvuWS0NXAkZ9tPAkRtNtpP55PR2A6m 4Tns1/U/gsQLyWjP32bmE2xHo9uZW4pwfSSf/fwRm/NOq82hmIx2utY0DGM/ 0u2Zv/gfGT3+WfeHvwPX36tw5di3eH3C10EOu0fFwP7NOzIK3POnTAM7OHUo 6HsFGf3aqXTMAHu9bFzmTCVeX7e+4b/vgz/FGbVJ1JBR4oWd5v98cvnUvE4t GcVGudz9d7zQvWRlx09kZCNTNP/v8/JIVvZ+9WT0R9Mv59/5bIM4QXGNZNQJ 32OWYDNZ6ZnFTWSUNSlYOoLjjfV2aGtvJiNC0Um2DltvhGeB1UJGLvN/q59i d3jkK0t9w/u11fbleewrXa72eu1kJLXp6e8d2PJOgledfpLRtVqwJ2NXfS3J 9P9FRo9ux0rU4vx6WBxri+8ko6Ag3vXXsfk+iC2UdJNRVT8jWAc7Y0el8s8e MlKR/LmFjq+fRYmXPdGL8x2msi0Ce3zzqqsr6WSk2X00Ths7IrsuU38Q778y YatWXB9tTxQXAkbJyNfoe9MCridfqRblxHEyup4j/TQMe2XUVfvSSTIqFZf6 Jo7tdqsjk8MkI4O2Bh9xXJ8DpyLsL83h+r9g+v0rrncv98vafgtkxEfXbt2O PeN0YsWFRdxPaA0Lqf/2h/HOtpNkPmQ2sP6PB94/ivKTdvuX8iF9j7qL2Xj/ 5Uj81tonwoc0+tdu/oP3p/bST2K2y/nQ0/RpNU3sXZzkVjNxPqTgWcV9UUeA e9teO/3VfOj6bWE5h1oChuu3aW2R40M+rUpaF3E/8K7cILZ5DR/yHkx9HIH7 xbXchRaldXzIeJXAtf+qCEi+k2crtYkP1bQeqm7F/ee3gYgty4APBVVtS1B9 g/Ovxd3M2MGHwq6EW/MW4f2rPLB8Yic+3sr87jfc/7gSFV/pRnyow9Um9PQr 3F//eNl8t+RDN5Y0Sx/NwfX+osm6yIUPmc5dJN1MIaArqVTjlRsfMlR4rib2 lIBjUWnLXh7iQ/6fDwokP8H5vxrUnOqB44/5/TsT9+8YZzXrmNN8KHlRxO4+ 7u8tS8P3XrjMhz45uKKQOwTIBJq+TAjiQ71SjXZ5t3G8dB7B99f4EPdUSWRL MAGscr9aoVt8KFGS8ZxynYBV5w5vTwvjQyfzTydAAAHHW7Q3/nzCh6xPZsU0 nSBgNvYXn2ElH6o2Pq4abESAMW+sx9FqPjRyz/SANCLgwVnrqnsfcHyp6iY5 hvj+Z/rhyo86PnTml71n9VYCTIhcpncLHzol0eZWoUFA1IEbtNRePhQavO/A lAwBG+SVyyl8/Cj81+PvxyfY8PTVrNiGJfwoZ19N3/1RNkjtavbcReFHsX8O XcgdwvPDMT/xy8L86PAzyfUDvWwYzP5wekyCHzFCJrzUf7AhQ9ddpnkDP9JX 8iDJ43lDZW+S/0MzfnSW+jL8RRgbVIOWasmH8SNS5oH4M/JsuC0eyVoruATd kZPJizNkgdnqAvUP0UuQJVc91MFwBg65nS+2FxNA1Z6nM2hO0xAdnDVmKi6A 1l3dWHzLYRpqs2gK2yUF0HqntDMqttOgyrKNWCcjgJhXpnr8LaaBeKDlObNW AD2RdHJS2TENUZVM6XhNAVQ5vpZNU5iGGkW/oF82AoiiOnCwdpIJLPO811/s BFD8dk2BtDEmqHgPDFc7CKCchsTvIcNMiHjn6JjjLICOjCSP2vQxwXWfnsaV wwKI49B5+m87E2ZCiB5ZbwFkFPZjoq6CCUojl3a7RwigWr5rUxsimbA65AZx LUoAZaD4NPFwJogq3H2ZHCOABJk3j/LdYwJ3f6x4Z7wA6vDqWvEnmAlN9fn9 jikCaKSuO2/Enwk+Wf23rAoE0OnjSwMDDjPhvefeWr02AcSjb3VNbAsTisj7 Ah2/C6DcV0f9TmoyISvFRc33hwBaZpfGrlFnQvRPz9jC3wJoxb5dGcEqTDhm FnxMrV8AuTbtXqMuzwQh5f/4FGcEEDXBJkZLiAnOg2tNRKQoqGbXsq2iAwzQ XjyeLyBNQVt6PCP4+hkgLP1yJWkVBa2i/XaapzGgykJ3lC1HQeG3GszYXQxQ ybOIpG2gINnn5AnxdgZwLvr8KtLF75+utuV8ZEBb+H9G+foUtGuR07++lgG5 6fMvs7ZRkKnVnmWONQxw/3nnWrIhBZ03Y2hWvWdAg8HjdXdNKChfs3+k+j8G POKtPeviSEF7L5/g+uYwwHeV4M99zhT0RFGF25nFAOst1sjmAAWZqOcVmGYy gHS8Y4XxQQoqPRRprZzGgDP14/+pH6egV0lJlySfMmBHpCSJ1w/H/0xCLjOG AVJZLmfm/Cnoxpydj2U0A6aqUr6zAimIryLoMSOSAWnMjZmjQRSkzcN/3uoB zofTzj3fb1PQkqG6veqhDOiW9YzPjMXnS5NVe3mNAU4bdgx0xVPQyUDO4TNX GdCiLqazIomCHund8NcMYkDNznetQckUFHGry77hEgOy3JeL2GdQ0LSzxqyu HwMUTtFd72ZREDuQ5Cfni9d/4W1OeQ7Oj7ETTfAiAx4EHzVXfkVBdzZ1RjDO M8An7b9b8/9RkIC+nf+8FwPGcsPbtMooqE1p77Ol2MeKjyh4llNQmPXHT2vO MMD509LK1ioKWvv18TLnUzgfw4dnMxrweodd83lPMKBkSsei6zMFpbQP0bYe Z8BmrmCiWDM+PkRsld8xBigKvdENaqMgIc3qtHkPBgioUS7YdVLQmppb28zd GXBDp7vyTjcFDaxYX5l5mAGzO14vK++hIAufdAdh7PG9brlKdAo6cZ6aSz/I gBNOWnOugzh/n/dc3I/dc2iJZfQwBWXlCu5pdcP1410wNDdOQb6Z9/TbXBlg FRiip/WHgpoN66xcsGtvuIScYFBQv62535ALA/6L5lvXyqKg9NESITFszUe/ Lizh4PxH9gXkHWBATmp+1fZZCkLjX+atsZ8U7T+U8ZeC6keEbZ/vZ4BkuXpe J48g8tLyWGOPHVFLmhclCyJm0GUKBZvy5aelKb8gWlv8YekHZwbcbM9NuiIg iGI00zbewp7tvjlcICiIXIoue5hj+w466Q8uFUSB556WrMCemNx0Z/UyQeS9 eEipzwmvn+BptxUVRB3efK9L/v3ecLF93Z0VgkhM9+uBKOwDlJc+7yQE0fBm jpw3dpvojeopKUFkl1vw1x57j4yjqJKMIJI/oji/Hfujguph19WCiObtLaWK vVN1MS9KThBlHHu9Vw67VPv7/Mc1+PN0/z7/9/tHre3ZVnMKguj/v4/8H/th i0s= "]]}}, {{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.019444444444444445`], AbsoluteThickness[1.6], PointBox[{{0., 0.98}, {0.5235987755982989, 1.36}, {1.0471975511965979`, 1.1500000000000001`}, {1.5707963267948966`, 0.49}, { 2.0943951023931957`, 1.08}, {2.6179938779914944`, 1.58}, { 3.141592653589793, 1.1500000000000001`}}], {{LineBox[{{0., 1.1}, {0., 0.86}}], LineBox[{Offset[{1.5, 0}, {0., 1.1}], Offset[{-1.5, 0}, {0., 1.1}]}], LineBox[{ Offset[{1.5, 0}, {0., 0.86}], Offset[{-1.5, 0}, {0., 0.86}]}]}, { LineBox[{{0.5235987755982989, 1.4700000000000002`}, { 0.5235987755982989, 1.25}}], LineBox[{ Offset[{1.5, 0}, {0.5235987755982989, 1.4700000000000002`}], Offset[{-1.5, 0}, {0.5235987755982989, 1.4700000000000002`}]}], LineBox[{ Offset[{1.5, 0}, {0.5235987755982989, 1.25}], Offset[{-1.5, 0}, {0.5235987755982989, 1.25}]}]}, { LineBox[{{1.0471975511965979`, 1.2400000000000002`}, { 1.0471975511965979`, 1.06}}], LineBox[{ Offset[{1.5, 0}, {1.0471975511965979`, 1.2400000000000002`}], Offset[{-1.5, 0}, {1.0471975511965979`, 1.2400000000000002`}]}], LineBox[{ Offset[{1.5, 0}, {1.0471975511965979`, 1.06}], Offset[{-1.5, 0}, {1.0471975511965979`, 1.06}]}]}, { LineBox[{{1.5707963267948966`, 0.56}, {1.5707963267948966`, 0.42}}], LineBox[{ Offset[{1.5, 0}, {1.5707963267948966`, 0.56}], Offset[{-1.5, 0}, {1.5707963267948966`, 0.56}]}], LineBox[{ Offset[{1.5, 0}, {1.5707963267948966`, 0.42}], Offset[{-1.5, 0}, {1.5707963267948966`, 0.42}]}]}, { LineBox[{{2.0943951023931957`, 1.1700000000000002`}, { 2.0943951023931957`, 0.9900000000000001}}], LineBox[{ Offset[{1.5, 0}, {2.0943951023931957`, 1.1700000000000002`}], Offset[{-1.5, 0}, {2.0943951023931957`, 1.1700000000000002`}]}], LineBox[{ Offset[{1.5, 0}, {2.0943951023931957`, 0.9900000000000001}], Offset[{-1.5, 0}, {2.0943951023931957`, 0.9900000000000001}]}]}, { LineBox[{{2.6179938779914944`, 1.6900000000000002`}, { 2.6179938779914944`, 1.47}}], LineBox[{ Offset[{1.5, 0}, {2.6179938779914944`, 1.6900000000000002`}], Offset[{-1.5, 0}, {2.6179938779914944`, 1.6900000000000002`}]}], LineBox[{ Offset[{1.5, 0}, {2.6179938779914944`, 1.47}], Offset[{-1.5, 0}, {2.6179938779914944`, 1.47}]}]}, { LineBox[{{3.141592653589793, 1.27}, {3.141592653589793, 1.0300000000000002`}}], LineBox[{ Offset[{1.5, 0}, {3.141592653589793, 1.27}], Offset[{-1.5, 0}, {3.141592653589793, 1.27}]}], LineBox[{ Offset[{1.5, 0}, {3.141592653589793, 1.0300000000000002`}], Offset[{-1.5, 0}, {3.141592653589793, 1.0300000000000002`}]}]}}}, {}}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.4}, 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, "ScalingFunctions" -> None}, PlotRange->{{0., 3.1415925894756573`}, {0.4, 1.7}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.6691335661913013`*^9, 3.6691336256713843`*^9}, { 3.669133677121456*^9, 3.6691336833314652`*^9}, {3.669133901911772*^9, 3.66913390770178*^9}, 3.669134083612026*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Testes obrigatorios", "Subsection", CellChangeTimes->{{3.669133745731552*^9, 3.669133749741558*^9}}], Cell["calcule qui-quadrado", "Text", CellChangeTimes->{{3.6691337966516247`*^9, 3.6691338003916297`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chi2", "=", RowBox[{"Total", "[", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"aju", "[", "\"\\"", "]"}], "/", "sy"}], ")"}], "^", "2"}], " ", "]"}]}]], "Input", CellChangeTimes->{{3.6691338082516403`*^9, 3.669133826071666*^9}, { 3.6691339231218014`*^9, 3.6691339610018544`*^9}}], Cell[BoxData["3.6530842151675436`"], "Output", CellChangeTimes->{ 3.669133826971667*^9, {3.669133931011812*^9, 3.6691339624018564`*^9}, 3.669134086902031*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{"100", RowBox[{"(", RowBox[{"1", "-", RowBox[{"CDF", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", RowBox[{ RowBox[{"Length", "[", "ys", "]"}], "-", RowBox[{"Length", "[", "a0", "]"}]}], "]"}], ",", "chi2"}], "]"}]}], ")"}]}], ",", "0.1"}], "]"}], RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"integral", " ", "de", " ", "qui"}], "-", RowBox[{"quadrado", " ", "para", " ", "4", " ", RowBox[{"g", ".", "l", ".", " ", "desde"}], " ", "chi2", " ", "ate", " ", "infinito"}]}], ",", " ", RowBox[{"em", " ", "porcentagem"}]}], "*)"}]}]], "Input", CellChangeTimes->{{3.66913397186187*^9, 3.6691340594519925`*^9}, { 3.6691341010220504`*^9, 3.6691341516021214`*^9}, 3.6691343319323735`*^9}], Cell[BoxData["45.5`"], "Output", CellChangeTimes->{ 3.6691340233619413`*^9, {3.6691340952420425`*^9, 3.669134125222084*^9}, 3.6691343326223745`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["graficos dos residuos contra x e contra y", "Subsection", CellChangeTimes->{{3.669134380802442*^9, 3.669134390382456*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"ys", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"aju", "[", "\"\\"", "]"}], "/", "sy"}]}], "}"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6691343986124673`*^9, 3.6691344472725353`*^9}, { 3.669134487012591*^9, 3.6691345159526315`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[{{0., -0.8626190476190511}, { 0.5235987755982989, -0.7171428571428566}, {1.0471975511965979`, 0.1574603174603167}, {1.5707963267948966`, 0.18000000000000396`}, { 2.0943951023931957`, -0.6203174603174519}, {2.6179938779914944`, 1.2828571428571434`}, {3.141592653589793, 0.554047619047617}}]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0, 3.141592653589793}, {-0.8626190476190511, 1.2828571428571434`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.6691345011426105`*^9, 3.6691345168026323`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"ys", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", RowBox[{"aju", "[", "\"\\"", "]"}]}], "}"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6691347196029167`*^9, 3.6691347294129305`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[{{0., -1.1440013253768184`}, { 0.5235987755982989, -0.8390785995699598}, {1.0471975511965979`, 0.19466478915307223`}, {1.5707963267948966`, 0.5891883036371918}, { 2.0943951023931957`, -0.7668850766231847}, {2.6179938779914944`, 1.5009812398681766`}, {3.141592653589793, 0.7347753475439791}}]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0, 3.141592653589793}, {-1.1440013253768184`, 1.5009812398681766`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.669134730272931*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"ys", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"aju", "[", "\"\\"", "]"}], "/", "sy"}]}], "}"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.669134833553076*^9, 3.6691348338230762`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[{{0.98, -0.8626190476190511}, {1.36, -0.7171428571428566}, { 1.1500000000000001`, 0.1574603174603167}, {0.49, 0.18000000000000396`}, {1.08, -0.6203174603174519}, {1.58, 1.2828571428571434`}, {1.1500000000000001`, 0.554047619047617}}]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.47296875000000005`, 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->{}, PlotRange->{{0.49, 1.58}, {-0.8626190476190511, 1.2828571428571434`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6691348351930785`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"ys", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", RowBox[{"aju", "[", "\"\\"", "]"}]}], "}"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.66913495781325*^9, 3.6691349637332582`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[{{0.98, -1.1440013253768184`}, {1.36, -0.8390785995699598}, { 1.1500000000000001`, 0.19466478915307223`}, {0.49, 0.5891883036371918}, {1.08, -0.7668850766231847}, {1.58, 1.5009812398681766`}, {1.1500000000000001`, 0.7347753475439791}}]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.47296875000000005`, 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->{}, PlotRange->{{0.49, 1.58}, {-1.1440013253768184`, 1.5009812398681766`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.669134964523259*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["For\[CCedilla]ando ajustar um parametro inexistente", "Subsection", CellChangeTimes->{{3.6691350247033434`*^9, 3.669135031213353*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aju", "=", RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{"ys", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"LegendreP", "[", RowBox[{"2", ",", RowBox[{"Cos", "[", "q", "]"}]}], "]"}], ",", RowBox[{"LegendreP", "[", RowBox[{"4", ",", RowBox[{"Cos", "[", "q", "]"}]}], "]"}], ",", RowBox[{"LegendreP", "[", RowBox[{"6", ",", RowBox[{"Cos", "[", "q", "]"}]}], "]"}]}], "}"}], " ", ",", "q", ",", RowBox[{"Weights", "\[Rule]", RowBox[{"1", "/", RowBox[{"sy", "^", "2"}]}]}], ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", RowBox[{"(", RowBox[{"1", "&"}], ")"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.669133381891043*^9, 3.6691334011810703`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"1.0410317460317466`", "\[VeryThinSpace]", "+", RowBox[{"\[LeftSkeleton]", "5", "\[RightSkeleton]"}]}], Short[#, 2]& ], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {1.0410317460317466`, 0.6792063492063497, -0.6053679653679662, -0.04987012987012967}, \ {{$CellContext`q}, { 1, Rational[1, 2] (-1 + 3 Cos[$CellContext`q]^2), Rational[1, 8] (3 - 30 Cos[$CellContext`q]^2 + 35 Cos[$CellContext`q]^4), Rational[1, 16] (-5 + 105 Cos[$CellContext`q]^2 - 315 Cos[$CellContext`q]^4 + 231 Cos[$CellContext`q]^6)}}, {0, 0}}, {{ 69.44444444444444, 82.64462809917356, 123.4567901234568, 204.0816326530612, 123.4567901234568, 82.64462809917356, 69.44444444444444}}, {{0, 0.98}, {Rational[1, 6] Pi, 1.36}, { Rational[1, 3] Pi, 1.1500000000000001`}, {Rational[1, 2] Pi, 0.49}, { Rational[2, 3] Pi, 1.08}, {Rational[5, 6] Pi, 1.58}, { Pi, 1.1500000000000001`}}, {{1., 1., 1., 1.}, {1., 0.6250000000000002, 0.023437500000000444`, -0.3740234375}, { 1., -0.12499999999999983`, -0.2890625000000002, 0.3232421874999999}, { 1., -0.5, 0.375, -0.3125}, { 1., -0.12500000000000033`, -0.28906249999999956`, 0.3232421875}, {1., 0.6250000000000002, 0.023437500000000444`, -0.3740234375}, {1., 1., 1., 1.}}, Function[Null, Internal`LocalizedBlock[{$CellContext`q}, #], {HoldAll}], VarianceEstimatorFunction -> (1& )]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{{3.6691333879510517`*^9, 3.6691334017610707`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aju", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.669133405501076*^9, 3.6691334128210864`*^9}}], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\ \[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"1", "1.0410317460317466`", "0.03968020310581232`", "26.235544794357597`", "0.00012148808073314117`"}, { RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "q", "]"}], "2"]}]}], ")"}]}], "0.6792063492063497`", "0.07830980975493984`", "8.673323959435425`", "0.0032248655534796045`"}, { RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"Cos", "[", "q", "]"}], "2"]}], "+", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"Cos", "[", "q", "]"}], "4"]}]}], ")"}]}], RowBox[{"-", "0.6053679653679662`"}], "0.09177047445058198`", RowBox[{"-", "6.596543921040251`"}], "0.007091037411426575`"}, { RowBox[{ FractionBox["1", "16"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"105", " ", SuperscriptBox[ RowBox[{"Cos", "[", "q", "]"}], "2"]}], "-", RowBox[{"315", " ", SuperscriptBox[ RowBox[{"Cos", "[", "q", "]"}], "4"]}], "+", RowBox[{"231", " ", SuperscriptBox[ RowBox[{"Cos", "[", "q", "]"}], "6"]}]}], ")"}]}], RowBox[{"-", "0.04987012987012967`"}], "0.08464209075820311`", RowBox[{"-", "0.589188303637177`"}], "0.5971615045446975`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{3.669133413351087*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["outras informacoes uteis", "Subsection", CellChangeTimes->{{3.669135041143367*^9, 3.6691350516133814`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aju", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.669135055943387*^9, 3.669135071323409*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "q", "]"}], "2"]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"Cos", "[", "q", "]"}], "2"]}], "+", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"Cos", "[", "q", "]"}], "4"]}]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{3.6691350718234096`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aju", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.669135082103424*^9, 3.669135133573496*^9}}], Cell[BoxData[ RowBox[{"1.0399003174603174`", "\[VeryThinSpace]", "+", RowBox[{"0.3307746031746034`", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "q", "]"}], "2"]}]}], ")"}]}], "-", RowBox[{"0.07724190476190476`", " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"Cos", "[", "q", "]"}], "2"]}], "+", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"Cos", "[", "q", "]"}], "4"]}]}], ")"}]}]}]], "Output", CellChangeTimes->{{3.66913509371344*^9, 3.6691351345134974`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"aju", "[", "\"\\"", "]"}], ",", "q"}], "]"}]], "Input", CellChangeTimes->{{3.669135160203533*^9, 3.6691351788635597`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "1.9846476190476203`"}], " ", RowBox[{"Cos", "[", "q", "]"}], " ", RowBox[{"Sin", "[", "q", "]"}]}], "-", RowBox[{"0.07724190476190476`", " ", RowBox[{"(", RowBox[{ RowBox[{"60", " ", RowBox[{"Cos", "[", "q", "]"}], " ", RowBox[{"Sin", "[", "q", "]"}]}], "-", RowBox[{"140", " ", SuperscriptBox[ RowBox[{"Cos", "[", "q", "]"}], "3"], " ", RowBox[{"Sin", "[", "q", "]"}]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.6691351797335606`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aju", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6691351916335773`*^9, 3.6691351995435886`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1.0399003174603174`", ",", "0.6615492063492068`", ",", RowBox[{"-", "0.6179352380952381`"}]}], "}"}]], "Output", CellChangeTimes->{3.66913520034359*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aju", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.669135209273602*^9, 3.669135215473611*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.98`"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["\[Pi]", "6"], ",", "1.36`"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["\[Pi]", "3"], ",", "1.1500000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["\[Pi]", "2"], ",", "0.49`"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "3"], ",", "1.08`"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"5", " ", "\[Pi]"}], "6"], ",", "1.58`"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Pi]", ",", "1.1500000000000001`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.669135216263612*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aju", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6691352232136216`*^9, 3.6691352314736333`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.98`", ",", "1.36`", ",", "1.1500000000000001`", ",", "0.49`", ",", "1.08`", ",", "1.58`", ",", "1.1500000000000001`"}], "}"}]], "Output", CellChangeTimes->{3.6691352320936337`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"aju", "[", RowBox[{"Pi", "/", "2"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "um", " ", "valor", " ", "de", " ", "variavel", " ", "independente", " ", "so"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.6691352561036673`*^9, 3.6691352591536717`*^9}, { 3.6691353190437555`*^9, 3.6691353323237743`*^9}}], Cell[BoxData["0.4773999999999997`"], "Output", CellChangeTimes->{3.6691352594636726`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"meusXinterpolados", "=", RowBox[{"Table", "[", RowBox[{"q", ",", RowBox[{"{", RowBox[{"q", ",", "0.1", ",", "0.8", ",", "0.12"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.669135271053688*^9, 3.6691352945537214`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.1`", ",", "0.22`", ",", "0.33999999999999997`", ",", "0.45999999999999996`", ",", "0.58`", ",", "0.7`"}], "}"}]], "Output", CellChangeTimes->{3.6691352951937227`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aju", "/@", "meusXinterpolados", " ", RowBox[{"(*", " ", RowBox[{ "toda", " ", "uma", " ", "lista", " ", "de", " ", "valores", " ", "de", " ", "variavel", " ", "independente"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.669135302683733*^9, 3.6691353494637985`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.1041494411741124`", ",", "1.1772673202449933`", ",", "1.2833307228718864`", ",", "1.3918666609789054`", ",", "1.469564656888308`", ",", "1.48830856922071`"}], "}"}]], "Output", CellChangeTimes->{3.669135312623747*^9, 3.6691353517938013`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"aju", "[", "\"\\"", "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.6691353601938133`*^9, 3.669135376513836*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.0015708308994709012`", RowBox[{"-", "0.0001747978835978845`"}], RowBox[{"-", "0.001129975873015875`"}]}, { RowBox[{"-", "0.0001747978835978845`"}], "0.005234309901738478`", RowBox[{"-", "0.002974940589569159`"}]}, { RowBox[{"-", "0.001129975873015875`"}], RowBox[{"-", "0.002974940589569159`"}], "0.00796685931972789`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.669135369123826*^9, 3.669135377263837*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sqrt", "[", RowBox[{"Diagonal", "[", RowBox[{"aju", "[", "\"\\"", "]"}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.669135396863865*^9, 3.669135404273875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.03963370913087622`", ",", "0.0723485307503786`", ",", "0.08925726480084346`"}], "}"}]], "Output", CellChangeTimes->{3.669135404883876*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"aju", "[", "\"\\"", "]"}], "//", "TableForm"}]], "Input", CellChangeTimes->{{3.6691354128438873`*^9, 3.6691354462239337`*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"1.0399003174603174`", "0.03963370913087622`", "26.23777436591707`", "0.000012538605426538486`"}, {"0.6615492063492068`", "0.0723485307503786`", "9.143920401531373`", "0.0007938953329912196`"}, { RowBox[{"-", "0.6179352380952381`"}], "0.08925726480084346`", RowBox[{"-", "6.92308059712579`"}], "0.00228474222463809`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.669135424103903*^9, 3.669135446763934*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"aju", "[", "\"\\"", "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.669135460773954*^9, 3.6691354642339587`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.03963370913087622`", ",", "0.0723485307503786`", ",", "0.08925726480084346`"}], "}"}]], "Output", CellChangeTimes->{3.66913546491396*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"aju", "[", "\"\\"", "]"}], "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], "//", "TableForm", " ", RowBox[{"(*", " ", RowBox[{ "so", " ", "os", " ", "parametros", " ", "ajustados", " ", "e", " ", "seus", " ", "desvios", " ", "padroes"}], "*)"}]}]], "Input", CellChangeTimes->{{3.669135478623979*^9, 3.669135512854027*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"1.0399003174603174`", "0.03963370913087622`"}, {"0.6615492063492068`", "0.0723485307503786`"}, { RowBox[{"-", "0.6179352380952381`"}], "0.08925726480084346`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.6691354818739834`*^9, 3.669135513494028*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1440, 818}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, Magnification:>1.7 Inherited, FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (December 4, 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 119, 1, 170, "Title"], Cell[CellGroupData[{ Cell[724, 27, 203, 4, 120, "Section"], Cell[930, 33, 526, 16, 51, "Input"], Cell[CellGroupData[{ Cell[1481, 53, 727, 21, 51, "Input"], Cell[2211, 76, 37832, 672, 415, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40080, 753, 386, 11, 51, "Input"], Cell[40469, 766, 100, 1, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40606, 772, 414, 12, 50, "Input"], Cell[41023, 786, 117, 2, 71, "Output"] }, Open ]], Cell[41155, 791, 130, 2, 50, "Text"], Cell[CellGroupData[{ Cell[41310, 797, 199, 5, 50, "Input"], Cell[41512, 804, 150, 4, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41699, 813, 388, 11, 72, "Input"], Cell[42090, 826, 781, 24, 137, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42908, 855, 734, 18, 136, "Input"], Cell[43645, 875, 15023, 257, 450, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[58705, 1137, 563, 17, 104, "Input"], Cell[59271, 1156, 226, 5, 71, "Output"] }, Open ]], Cell[59512, 1164, 181, 2, 50, "Text"], Cell[CellGroupData[{ Cell[59718, 1170, 1051, 29, 231, "Input"], Cell[60772, 1201, 1047, 30, 272, "Output"] }, Open ]], Cell[61834, 1234, 149, 2, 72, "Input"], Cell[CellGroupData[{ Cell[62008, 1240, 225, 4, 72, "Input"], Cell[62236, 1246, 3720, 80, 432, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[65993, 1331, 164, 3, 72, "Input"], Cell[66160, 1336, 17984, 313, 426, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[84181, 1654, 131, 2, 72, "Input"], Cell[84315, 1658, 975, 29, 272, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[85327, 1692, 978, 27, 146, "Input"], Cell[86308, 1721, 1273, 30, 101, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[87618, 1756, 147, 2, 50, "Input"], Cell[87768, 1760, 1606, 42, 189, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[89411, 1807, 817, 23, 114, "Input"], Cell[90231, 1832, 1641, 37, 101, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[91909, 1874, 77, 1, 50, "Input"], Cell[91989, 1877, 1624, 42, 189, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[93650, 1924, 590, 15, 82, "Input"], Cell[94243, 1941, 17462, 304, 439, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[111742, 2250, 107, 1, 82, "Subsection"], Cell[111852, 2253, 106, 1, 50, "Text"], Cell[CellGroupData[{ Cell[111983, 2258, 349, 9, 50, "Input"], Cell[112335, 2269, 165, 3, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[112537, 2277, 882, 23, 115, "Input"], Cell[113422, 2302, 155, 3, 50, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[113626, 2311, 129, 1, 81, "Subsection"], Cell[CellGroupData[{ Cell[113780, 2316, 440, 12, 50, "Input"], Cell[114223, 2330, 1240, 31, 388, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115500, 2366, 370, 10, 51, "Input"], Cell[115873, 2378, 1215, 31, 388, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[117125, 2414, 387, 11, 51, "Input"], Cell[117515, 2427, 1156, 29, 376, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[118708, 2461, 367, 10, 50, "Input"], Cell[119078, 2473, 1157, 29, 377, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[120284, 2508, 141, 1, 81, "Subsection"], Cell[CellGroupData[{ Cell[120450, 2513, 929, 26, 115, "Input"], Cell[121382, 2541, 1738, 39, 81, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[123157, 2585, 145, 2, 50, "Input"], Cell[123305, 2589, 2219, 59, 218, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[125573, 2654, 114, 1, 81, "Subsection"], Cell[CellGroupData[{ Cell[125712, 2659, 143, 2, 50, "Input"], Cell[125858, 2663, 633, 21, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[126528, 2689, 136, 2, 50, "Input"], Cell[126667, 2693, 646, 18, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[127350, 2716, 190, 4, 50, "Input"], Cell[127543, 2722, 557, 16, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[128137, 2743, 150, 2, 50, "Input"], Cell[128290, 2747, 197, 4, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[128524, 2756, 133, 2, 50, "Input"], Cell[128660, 2760, 762, 24, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[129459, 2789, 141, 2, 50, "Input"], Cell[129603, 2793, 230, 5, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[129870, 2803, 361, 9, 50, "Input"], Cell[130234, 2814, 90, 1, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[130361, 2820, 271, 7, 50, "Input"], Cell[130635, 2829, 216, 5, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[130888, 2839, 309, 6, 50, "Input"], Cell[131200, 2847, 295, 6, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[131532, 2858, 183, 4, 50, "Input"], Cell[131718, 2864, 997, 25, 120, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[132752, 2894, 220, 5, 50, "Input"], Cell[132975, 2901, 188, 5, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[133200, 2911, 189, 4, 50, "Input"], Cell[133392, 2917, 923, 22, 120, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[134352, 2944, 229, 5, 50, "Input"], Cell[134584, 2951, 187, 5, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[134808, 2961, 482, 12, 83, "Input"], Cell[135293, 2975, 747, 19, 177, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)