(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 85348, 1798] NotebookOptionsPosition[ 79728, 1701] NotebookOutlinePosition[ 80072, 1716] CellTagsIndexPosition[ 80029, 1713] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ StyleBox["2013 URTARRILA", "Title"], "\n1.\na)" }], "Text", CellChangeTimes->{{3.817061020873481*^9, 3.8170610470973215`*^9}, { 3.8170612937192335`*^9, 3.817061294717393*^9}},ExpressionUUID->"c2b81261-2de1-40b9-9f67-\ ee0df9ed1b1d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], "+", RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}], "-", RowBox[{"Exp", "[", "x", "]"}]}]}]], "Input", CellChangeTimes->{{3.817061061682077*^9, 3.8170610925434675`*^9}, { 3.817061124037262*^9, 3.8170611252305527`*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"6399800c-3e69-41d0-aacc-9814aabc2582"], Cell[BoxData[ RowBox[{ FractionBox["1", "4"], "-", SuperscriptBox["\[ExponentialE]", "x"], "+", RowBox[{"Cos", "[", "x", "]"}]}]], "Output", CellChangeTimes->{3.8170610942600417`*^9, 3.817061126166054*^9, 3.8170611823594017`*^9}, CellLabel->"Out[15]=",ExpressionUUID->"b1d47618-8562-4ca1-977f-09d30d9609c6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CountRoots", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.817061100940467*^9, 3.8170611171241693`*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"bee5040c-7b19-4a9c-9fe4-fe3380066484"], Cell[BoxData[ TemplateBox[{ "CountRoots","nmet", "\"Unable to compute the number of roots with the available methods.\"",2, 16,6,30484865530538133175,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.8170611181142178`*^9, 3.817061129704913*^9}, 3.8170611853967752`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[16]:=",ExpressionUUID->"d436d996-8dc9-48c3-a85d-69828f8b6a2d"], Cell[BoxData[ RowBox[{"CountRoots", "[", RowBox[{ RowBox[{ FractionBox["1", "4"], "-", SuperscriptBox["\[ExponentialE]", "x"], "+", RowBox[{"Cos", "[", "x", "]"}]}], ",", "x"}], "]"}]], "Output", CellChangeTimes->{{3.8170611181201982`*^9, 3.817061129744963*^9}, 3.8170611854402676`*^9}, CellLabel->"Out[16]=",ExpressionUUID->"5e5a1428-dad1-4bdd-8f5b-e45cd9dfe264"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "50"}], ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.8170611870747967`*^9, 3.8170612383103595`*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"9c0b4167-ebc9-41ca-a4a0-24e4987645fc"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwUm3c81f8XxxHSsldWpZK993q713WvVIiGJA2+MkuDaKiQJKRSKSI7owgR yfsgI5Vssue9knlvZRW/z++v+ziP93q9X+e8732ex4Ntp87a/cfBxsb2louN 7f+fcvce/VldtQRuRuv4dV8WUvW7rt/5zxJi9pce/HaMhXSPelx+vWwJ1vVV emxWLETdZbLiNG8JtsdidDZuYSHrTbvMtH9bgudOq/MTa1noEIs/eAPLEl7/ 7vovf4aJ3PAoV9m0JWi/+xK79J6JzqQ30u5PWoLkr/OxwS+YyP/uuzvuE5ZQ Fq3YuhjCRGGHIzeJ0S3BKaT3XAWNiTJmtEQu9hH7q/boDVTNodft0of39FhC rKVp5pakOVT8fu1T2e+WcNqFJHLq8hyqvd0j1dxmCdH+jMJ5lTlE3xKyQ/WL JXT3fTrx9s4skrNt0RovswT3Es7Hx5SnkapuuR9+Zwn2W7MypuqmkK5URsnj YkvYdsTtHuPkFKKOBxpZFFhC07AQ6N6fRG43tpmnZBH3c+Iu29w/gTLyfe2c 4iyh5H6IN4c+A8kJ8J1r8rMERnrfipx9P9Lb/Eg78IIlWFVNzt5R7UOW2yQX tp0jzt8lvfKZpxd5aey6fsHbEhoeGojZlX1H+ftRlKiLJYz2bwpUEm5Hhg/O ZjnZWoLiovvd5vN1aM+z395c1paQsidovZ10DXJKuaL+eg+xvr5DorK+Cl0v uF2ySrUEmLtkdoZajj62JNWkmFiCesnBRmp+Kton1DQ0rmgJ9REf5uU3lWFn yUPp9+UtYfKPW4aMVwX23d7rbihnCaEZb25dP1GJH2iNz9zdZgmzA6dsg7Nq cIc924qquCW0UckzfzgaMeNoWGWniCVQw74NIu4mvOCy8dYNIUt4sHX1LJWn GUteFN/YwmsJtRWZw5VrWvGJWHUJPy7Cz7HvSKyjA59LKO6TXkP4GRhxOqaq EwenGSfXshFx6UnllJwunF5kKS/+lwaJ5LF1Zhe68UTbCd33TBocMkq8s7uj Dy/30hddZmnA03qX3zO9H28c8/6wcZoGF6Vhd6TvAFb7HUBx/kGDV1Q1a8tr g/iiyH079kEa1PGXcI9ODWH1ubnPzX00iPZp/DZqOoynvthZpPTQIFihf/Ns 1DB2CxXWN++kgWjwkQ+8ciNY9oTfG6F2Gvz0kCgXPTuC+406FEdbaOBidPi2 YPEIPsx6In2rkQZSHb6BTSajWPjbwuODX2jwa+xhUHjQKG7KPsIv10CDNVw3 N239MIotT0muqauhQeSHclKP1hjmNL169Uk1DfL+Oq7/4zWGKzf3/T5dSYO3 Pzek9SePYcPmxHGeDzTIcEt0WreWjv/krp78XkaDTHufaXNdOi4MP9GT9Y4G Z5ZL9Uxc6NjXtfLA5WIafNJX6puLomNlM9lGqyIaiKRUvHYupuNxyRCaZAEN TM9xvbzRS8fp8yPwM48GDkrOswfYGFgmL70wMocGAizO8XUkBu6O4FY5lkUD j/CfVWPHGPiJ2+kMlUwaSJ48R/EMYOAD5PotK2k0eGk/du5RDAPzyyg8bUyh wQ+zgGv/ZTDwl8U7gkkvaCAbeby2q5SBw9sn7p5NJPTo/eqaamBgyps9XGYJ NPBOajyT+p2B2aNyg/if0SCqp//MwhgDV7hvWhh8QoOdb29O/Zxh4MuUM+fe PKJBAnqgfG2egXW3fpu4+ZAGlusC4nP+MjBzWc3V7j4NTtA1Ov1XGfh1Z0yf 7D0aVBw4lt1PxF6Fc4dYkTSYuGS4aeQfA8vfs2uqjqCByqvcnaGLDDzqWbg7 NpzYv0SPVsVk4BdU4WrXMBrYhy4yn/9g4GOyfsY6oTQ4cvtFp1g/A0ustL/l CqZB/RvnZvUmBu74rqvWcZ2oD47vP35gBn7w9snLjGs0+PxGyIHyioFt7i9s u3SFBi+WHW+Q4hh4o8+ReFogDRzD5H8N32DgessyYfFLNBD05jqveJqBQ3dI Ro9fpME+uvvY5j0MTGK7urb0PA3Ekx66FSoz8EpP7407vsT67NOGixsYuKzE ZOnIGaKeFU1apsbp2P9h4gVFbxpUphZ+flhNx5pnVyeXPGjQx3ZjdiqejnPk Kgfi/6NBrLJoRYMFHbtzyB7xdqEB4q5psxej4x39wS3GJ2ngy7aZ+Zw+hhMe UWr6nGiw+7P9n5CgMRzNWZ+95QANmutPn1gbO4pFGqell/cT9bIqYW99cBQn PBG532FDA/dO05+RwqM4W9HlUtQeGlyuHK9ZEzWCa21XzJfJxHzNW8jFbRjv k9hZ0mFGvLdaD985sWHcNrJHscCUBsalHe4v6obwsP9Tfg9D4vtg7aX+S9uG 8L8E7b4ODRp8+eQ16X19AIe6HbUtUKNBv2CyAKOmH69XD66OUqGB7bCKNve6 fixe/S2LovD/93doyONWL9b+4elfsJV477kDC7YO37G3TjJfNB8NloLOTmZe aMGslbpgj0000L74fM/uu834cv30b8oGGgRs434e/KIJhx817l3mJsbtLEjs 4V9x6s3Olx4rVBD90iQvPlyDu79uIltMUWH8+z+O408y8W63yxf/NlAhyTJ9 +sa3z6h7v4lHVj0VajYsXDwu24g8TdicD9VSob8jQq7QsAlFCIfR8iup0KK9 jvNBVAtqqLov4fqOCl7agSpzap1o75Ys+JxOBR87bos8+UHUu977bUAqFZ4l hpJU3g0i7z+q2TuTqaBzzP3bNHUIRX4teng9gQpBVjuubjw1jL5eATeth1To pXLz/Rc1iqy7OjfG36DCco40v/vrcdRf/YzdMogKl/tCt6Yr/0Bn8o79+XWF CpU6M+vPZv1A0WEjA9aXqMB+gc3reuIE+qY9U8Bxhgqf5d/evOA3iU5sLcjM 86LC0m7L4nn6JJrd4Jfg5EGF7GVPnXeHphD/yNKtYlcqNLroBNWrTyPb+9xH PI9SYdslrfZdjTNo8OqnfWJHqNCt+z2QJj6LfN0jyR8PUcFWCF76Wc6i+0hQ WcaOCs5PN5e8SZ9FLVPSq82WVIixDLEytp9Dp74PsoKoVCinyLM6r8wh5sfU cSUKFX4aBuvZps4hwQSFlluICivBjg6fpueQvZVOuoEuFU4nCfSHXWKi6HWt NrzaVNic3SuYHstEDfW+S8MaVNA+PNmen89EZrRcm0gVKozkPO0JH2Oiq9xW SyeUqNC2LsZo/woTldQw0nQUqCD8tMZ1VYTgLcr2pf4dVFCum1DnJrOQx5rK tEJZKqh+UHhy9BALpVU524RvpULBjZB9MR4sNHjz76KTDBWE9C9NpFxhIUnS szQNKeI+Z7o2P4gk+ItN34Zbgsif2HiCUwILPcDti91iVJBd8bJiz2Ghr0EX 0vJEqOCU+JH3+jsW4jEVsAkVogLyYp9s+8hClH+vFx0EqGAcyFpkb2Kh6+V7 01T4qPA9xtSNq5uFyq5MWHNsooJIhvvF/mEW+mMYvtixngp8RYxrkRMspLG0 My2Hhwofl1WYvHMs5F1abX2Dm8hnWtGh//6w0MuAk4sHOKkAmJN2b4mFRvRW UxU4qCCVVXEx8h8LycwnWK+sWsDVL0mZTqss5FhsuNjyzwJi68I+rBLxI7+u 1MxlC3g46ZftR8RN2v7WVxctoHt7bEAFsX7jL6FF23kL+KGsbNlN7E8rfJO6 87cF3DLNtvlEnB983sZ6iWkBLtxxPXcJfRUaUwuNsxYQyvPEWvYnCy3ORqSm TlvAa+cj26JGWEg7X946YNICCrrihr8Q9/c9W7uwd8ICZq9t1Bsm/MlRdU3d Nm4Bc75O37/WsBB9it36z5gFbNcVfhZTykKyr5IWGkaI+zg/PK6Uy0JxSj37 Lg5YAMfW7auTUSzUNhGwYNlnAVuz/AVFr7EQX7ZoqnSPBeg+m0qQ9GKhMHm7 hdoOC/C7qeVfac5ClYyZlPg2CxBFJVmuqiz0NyNqn2+LBdReuy89IcZCF3Z+ StncaAH0n3GXUhhM9HrUbd/0Zws4lHNrousrE02kci5UfbKA9UZcJQsFTHRC 1myfd40FRHLdc/gbyETWW0rmK8otYH5CcoPt8hy6038g5WGZBVAmzdZu+j6H Pj5n7nV/ZwEJgZlONW/nkJGUaopAkQXI//AO0/SeQ/Kb0/e65lhArsxLsb1f Z5H3Un/A+iwLOKVfQU1KmkVvesTT8zMsIFn92Oke31lkmBj572+yBYiHbCuX 4Z9Fe7dffP0ozgLsejqF7odOo3Mq5vx1tyyg8GO3sy1zAhXzXjP2CbGAjifk V2YBE2hppthd6KYFWCs+yo/7+wOFFihWHr9qAW8lwl5ns/1Aj/UEzy+cJ/Rt uVd5Z56OykhDrQonLMBDICRKI3sYrchKsjUdswDv05GNw5LDyJzzoLL/USJf /XFPiiKH0Jfa+tCqQxZg6xpn+dNrEPXvydc5us8C3I49UllL6UUch64/iTS0 gOjwGxFssy1oj6f00RlhC7jx7pMQ+nQeORpI33whaAEnbkbHXbGLwJ480pn7 +S1gUFTR1nU6EYdnSLEKNxDnmbX+GL2bjz8OS94N4LCAP6KP8YNJwMZHJd6z z1Jg3Ozap5S3TXiPosRQwRQFdPujdqoXNGPHxc1rXX9SYJSHHDGT04IDnmy2 r6VTwHv3uVtvHrfht63iPyP6KKDY7l6+gdaFVfeKSQp/pkDVR7EsC44BbCIp Rqqpp8DliyXn6uoH8N4J0dP+tRT45O4TkWkxiD3DRQu7KilAc0upEOMYwhkf RfY8f0eBlsJzV6pODuO3D0XOWRdTgKru95ZUNIw/nhJ5slpIgRe/vZi3OUfw MJvIyMk8CkwfO//TOnEEbzERviKXQYFs07jXYsWjWHWjcHJnKqFnPD1S5s8o Nu0RqgtPpoBC2aaD5QQPOwUKCf1MoACrz/jgy8wx7GUpZJDwjAICCZsYk31j +LKY0PF9cRSQnhIXfytAx3FvBXPyHhLj8aM2+BwdZ4YKNp+4TwF1ERuHxed0 XGwvOC9wj/DvNXNNZh0d18gKSldHUuAnrbr74zQdt80JmF+MoMCeTKt4GyEG HgEBj53hFDBunTKk6BA8eU/gXsctCpwYVqEnHSD49LjA29shFCjVHGU7cY7g XVWBHv2bFNjAfVku+C4DNzT9LBa4TgH7xHvfQpMJfrtQ+2DiKgVQYcQmk7cM bCqafKb6MgWO/2g9n1XLwIvvrlglBFDgla5beX07AxcdPSTn508BPRq9+ekw A59ZUeewvkiB/IbiGskpgleTN/TLnafAy6x17ft+M/CwOb109SwFlLdNn1Zb ZuAEOjzq8qFASvVRAVhh4EN34s+98aKAhrPhvVWCf/mV/fdFeFBAqsqtYYoY /9xoq+BymgIl54o6Ioj1YeeUuIz/I/KtPsnsIPY3E+YeEnahQHlAXXgLcf5S 8WD51AkKmDaNKweNEHqPvI+rdabAr7XNid0dhN6/jy4mOVFg6Whz/XgdoTfJ 1zbAkQJfryzhrGJCL2mP8n4HChQE8nyUSWXg56M7eRQPUWB96h60O4qBHW6z jXIcoMBO8+haRT8GFlTswT37KYDt5sVrHAl9Z2MuRe2jgFXu8LTSFkKfoJe9 2x4K8N23qf77j46XiizU0G4KRIm6c97rpuOzS0v0WQoFwnYcNuAg+iHF5+1V n8jE/v7jDeOn6HgU5SemmFFgU68mZwLRTznc+u/QAWMKCPLke/l1jmFBeTNN FUMKaJ+fvJaSNoa/NEjwcutT4E6A32rW2TFM4m+qKdEi/Ni9tenw6ihWjDfU kVSigHXY+bJUrlE8aiIi8EueAu6bc83Eq0Zw4uDM5Bc5CrgiTfmIqyNYSC49 LUiWAqGJwm6Xfw7jv/l8wsObiXpiF8qULRgi6ndipkyMAjIFRQZix4ew75+P nx+KUIBT3NJHZ/0QHjO6HGIhQAGX6ttn1x4dxI21o8yXPBQgL58+5P2tDyf3 ljafnTeHjrNmevfdOrFrsrqaxG9zKGbf1O8d2IHl3TIjPzLNIZv9/jf2O+34 9UwsbfO0OWztFC3PSmzF5Ry+H6pGzUH9aajP9b3fcJe8XJZIizkU7S/6tEIv x/x+D268zzWHnMvnDJ621qA2g3X9/2Wbw0zxtFrFrnr0ZOW6Ef9Lc5B6Vykf fbUByYT7/HFNNYfqDJlvLru+IeV4S2/eZ+YQM8NboGjahiwrVw6fvG0O0x8a Sy9c6UM3NnmprT1lDgvU3RqpFxloJr2c/P24OfDvaObWmGYgZ1PeQznHzIFU /lw7xm0cGZ19c9XmiDlsaHj0K9H+B/rTNP/pia05AK9f2TqZn8jVY3efh7U5 nOMq9lGJ+ola2eNnjfaaQ1hT56u+pZ8oX9NUbJBmDsE6BiermyeRV2yoqzwy h8d9wcW13tOoW7nj0pKxOYSUV+uc+zaNLGt23f1iaA4Dc4IOnuozSO5Pwxtf XXPw4JTvU5oi+PWwwOo7FXNwbNxh+ejlLLKZPSV4V8kcTullLlS3zKKK8KKd xxTM4evF4+tWl2dRfOnhvew7ifNIF7dG75lDhyQTn+6WMod7V99z4X7i97hw JldSwhze+VAlV9mYSGsvCabEzMGnUGi7jiwT8V8bpd8XMge5tDukwJNMdF1E d8lFgPAj2Cgj+DoTTb+6vUmXzxw4rOOfBiQw0ed+Re3u9ebwwnjny22tTGR4 6Sotl4fIz73OoqZJJnrJ1+gYxG0OgeaPtFy5CD4xO3dTlsMc7ri9t9XQYqFf XVWxv1bJMJu5HH7akoVczgm/rP1Hhms39U5fcWIhs5SSRs9FMqQ5Bevo3mSh PMN1w8bzZLB7VenVfZ/gv1bH37y/yfDlX0zboWQWivTK5RlikqGSUrY7O4+F ltesSBbOkmHNVoH3reUs5Jlgo3ZrmgwP1t5WbalnoS7tZPLhSTKQek0grZXg v6/MgwoTZGhuikux6mOh4v8oHssMMpzK3SNTPcZCO1YeXf06RoZPru4PNk2x 0MPHjHtJI2RY5PO6qMBiIQ41g9RzQ2TIUqLYii4Q/FcXUWw+QAZLw5P1rcss NHC895NIHxneFhU+OrnCQtYLKn2MbjKY2xbfxgSflsdcny3tIkNInG/oFBEr KTSviewgw+vegPCfxHzXvHF+jzYymN55mlL3l4USddhkqC1kWGhYabu+yEKd 78WUtjeRwU0m+qjwbxbiJ6vpszWS4brfUtitGRbaXU+16PtMBl3/ivLWcYJv rZ3tyj6RIclE5NLqIAu9b/M7/qSODGov5yjruoj8OEZ5X6whw/stvz7NfWUh laG0wP3VZKDPOFeUVrGQ2+nyMNVKMnzftm7mZDELvZhqfbgBk8Fw0Mbk50sW +n7h54vxcjJYuXInHXrGQoJLHK9rygh/fFxl0iNYaO8Nifcp78hw14L1vTOQ 4OvI3e1ORWSI2jk6On2AheYFTw4bFBDxXo2OdjMWUn8aMCOaT4Z1Zw/SMpRY KDU9c11zDhm+ZSrWryP6pV4lLPo6iwz2xhniL4h+SrSgY/vdTDL4u9h5yn1h ovAKLlOLVDKs5+X3WP+YiSop0ntkk8mQ4S3C9CJ4dqlB22E1kQwJzye1ao4y kU+ny/nSZ2RYtrPxPC3NRHazlRkqD8iw80OLR3bsHLrr/71wfQwZHt6U+svj S7yvv7PAiCIDubVK+7zVHNJbt7Un+Q4ZGtVKXM7+nUVSskF8ojfJ4HrmKJvr wVk0Zm8YsHKWDG25d5u/vJ9CMt37b/X4kEEhpZqVTfS3Dic8HrzzIsPqJXR5 zewkavCOyz1/mgwlAUHiJJlJ9PrWn0G6Mxk8DgdqVnlMoICSgt3f9pHh6Y1r DxqqCX497tZ1bQ8ZZsa3j0YhOvq3VuK08m4ynG4BlkzZGAp2uBl6h0KG6rAp nc6cURS5aIPNjcgwqezfMxA8jJKMprTfyZMhf0Q7e4dQL6rFu7YmryFDaRDr yIxBNeJx73ltw06GJomDS1yTgPbw3zNZWSFB139W/1WafkBNJ/44Hl0iQe6W nX9tRIrQd/aaRyJzJLjRUKP6UvI6mjQ/tSGinwR3eZTWVicDVp0UeabfS4Lm izc/J3+swudiP8kzvpNgXXz/AZORj/jPqDqV0k6CloXV778EP2G2sNUbK59J kJIyoFwZ34SF6hP+nC8lQXSq7s0ivS7MRlEy2l1CgvUF3llxm77jaVx6fctb Egx7d929OvgdN5R08HzJJ0HtVmle7ms9+EYmv+TOlyTQdep7G3SvH5/ZnnR8 OZ0E2i9tej7sGcBHk1TSmlNJMPbzLsucYxDrPrFSCUoi1pcf9qt+O4gnw0JR 52MS7InBp0a4h3E3h1Doq1gSxOQoVgYcGsZ1Qcn1IQ9IQPfSNN6WNoxT/Cv2 q0cT42/s52MNRnAMc+9j7kgSHDaIsTp4cwQHnenp7r1DgvKBK0OCdSP4iNuC y51bhH+0rvhze0cxdTjs5fEQQq/UqVWeyFGs7SwypXOTBKXZIbsiPo1i/kOa /sNXSXBAcmpWz3QMrzRD2bvLJAg5kb3eyW8M/9xnsxodQILpj3e6HbLHcK2F d7jRRRI8vt5I/bqJjosql74InCcBT8zKcxNjOk42uSMwfpYEC+Qz2wLc6Ti6 VOxQhQ8J/tR5Pgp8QMdXdTKexXoR+j52M0zL6NjzjfaApwcJ9n2+pF4zQPCR SvV20mkShH3kfLNuDQNr7RzMnTpFgrLaI9rVZAbemnxmrvoECSZ6YqO1jjMw r/Q/nWfOJPBR+PfNIZCB/8bdvezrROg7aMmncZ+BJ4QlMNWRBLs/G0aXZTBw V8zLNdIOJOh3qC9llTJwzUY9S9ZBEvRmaCj2NDBwQXhN5Cd7EuiHyqSe/c7A LzgPNCftJ0EE91uh/DEGjr4xLOJvQwKDq68ex88w8JW/vo579xHz1VzOa8wz sHvAaqLsHhJsnR8SP/eX4ONfUSMLliRofzq7y5HgY4qvlPw3KgmeL4p5TBKx xmS2dzqFBGf4M5t3Ebws427w5gqZBP9KCoM3LjHwxtG63/vNSJBkKv7pGYvg 4+OHDOVNSbBS7yPdOsHAjJ7RoBUjEhjeXLOjeICB2w5fqG4zIIFAbEsupYWB q1rZeXL0SND490zh9SoGzreJ2XtThwS7tv12ds9n4MTPMvcPa5HgkekvdrYE Bo6kvWpX0SBBQPZBCctbDBxYbSTBqUaCEbrZfrI3A/uedBvMUSaBQlFOZIQ1 A7utxmTYK5IguDPRRVaVgY89f++9vIsEqhp5iRs3MPABI7pm6k4SULQPkvaO 0fGe7/yLVttJcDw1+85oOR2TLxlh5lYSNJhvn+26T8fqhTF7yFIkYB43kxzT ouNd+98LTGwm6u9D7RwnOx3LzIx13hcj3ldS8Lr7n8fwBiUj1yFBEnhqWz5g OzKG6SljV2+sI/THuDt8PjiK+8z4zeXXEu95Aea/847itn7DdU2cJDjttD/l es0IrpKIebSFjajHKdLNLKUR/PyB4euKP2YwMcGK0+4dwrHq/110+2UGjmjX vpLgIRzReM+Ql2kG3tel+NftGsIB68dqj02ZgXFLyDkDj0F8IPjewN8RM4D2 THuvrD68Z2tZetqQGSg1zK9Ta+/F5IpRr70DZhDQqDon/q8Hqy0ZLMR3m8H0 edmRLFI3Xn9+lN+o2Qw4PhRI9iZ14MqTBuTACjNQEO8SLQz9ilVJI2m/44j1 XwvixGUz0OyXVteXj81gcCVC0Es+D71x+LjjaKwZFE8eYpyQLELavulpcM8M ZIeP0k20PyCDpNNpd8PMIFjpbCBU1SHKv5+p2y6awdclGoUm3I647/S6tJ0z g7oquTBs0IHqhL9uv33WDCI8X3wvdO5EVsqvUyc9zaCA5VqZl/Ed2Rz1TS05 aQa98VTl/cr9yLH0V8o+GzP4FcYVVnB1BElZjJ1i22cGL64PHH3LNYr6mtpl C63MwM7zjldp1Cg6MV6cIk41g/5zqZS4Z2PoP7HAlBFjM7Bk22FwJYOB5FI9 Tj02NINzpy1y9suNo3FVR9nd+mZQZfF+oDltHHlSjVJeaxH3dX33Kf35D+Tr 9y85UNEMUo4d+Hzt2k+kwT59UlneDJ5Zf30XMvcTMSP7tw3sNIO0ZP01Iy6T yC8NJ1O2mcGu+kzWbfMpdLn1ZjKfuBk0FOjKek1NI+Pj509WiZiBiW0m3dB+ Bv2bOLXNT8gMTtfPH5MqmUE3OCjJ3bxmcExDsiLQeBbd0uBOTucyg7kv4Tnr mbOIGdMsemONGbjt2OYzt3kOOc8mRDqyE/WU7FtIN5tDZ5xPz8osIfincCtz 7u4cokmv9LT+RpC9X3qaPX8Obe2NrQufQyDt4/9TpHUOtRypSmSOI+Bti+JA okyUI34kInMUgd02d6qNLhOFds74OQ0iuBEW++jIQSbSPSi9r7YTwRWz/wLs Y5iIT7hI/0orgi4utq+muUw03mK1Q/0bgv088nmSdUwUbxuw/LQWQSNZ90LK IhNd5ONjWFchqFFsfmMpQPBoY3rLmgoE2z+k633fxUJse1uzfN4i8DoW+Kpg P8Fz6z0fyb5BQG6WfLbgykIFn9huduYi4LTwr5O9RPApTdWBlIbA0irhg0wc C5lw15j/SULgSzovN53BQqI1R9Vy4hHEfTLjf17EQjMhTIkTTxCMNrYEKVay UD35DrfIQwST4w0Rj76wUDL7VuanaAQ6a4pO9nWw0GUo7guKQGAdyk9lJ3jV /vq+T1phCK4yT99jI3hW2XS0aPwmgilh++zuaRbi+nf5xfNrCNJiwsTv/WKh /vcCkXaBCGzZen2lCV4uufzy0lo/BC5hR47fIng6xgC5lPsS53fppdcSvO2x 0G59zhtBQS1dfIjgcXKJt6GcO4J9OvwZbUQs6b9GrscFwcKTp/uSifm/tJ8J xBxHwD+QupNG7PeVpf6PchSB9uCdI7VEP5BRUDe+eAiBnF6fwhZCz/Vzzm2v 7RAUJp2c3E/odVD/jV2sEfTXc288zmAhjZm7OeJWCAaTB3loAyy0/rXsk68W CHy2yQSsJ/wY9S4NDiYh4AhfWZP9mYU+KNme0TMh5kvXeMkBCz2eoB+Z1EfQ 4JMTcqOQ6EeyrlkkayOw/9esXZpO9APuwhqH1BG0hahda37MQrK7cqQ2KCMI TQ462xBG9E9jJB7YheClmKJWuh8LtaV1sS5uJ+ovRI/TxYXo52S5P/dLIFj+ t35nlBELHR9KKH4oiuCQJ6/9350spP9CK8VSEIF/dqnVAT4WmpA+GViwjrhv lrtGTT8TWW8u3xW2YAp7Xvz27vMl+kepu6L9LFMQrGqfUbZlop1bHLl0Z0yB PqQuQVVlor87FobHxkxhW8zr5UH6HMpW1060aDWFg9FKBXwEbz/WWhP1vNEU eJ/qX+LYOodu6rZc+f3JFOYl2jO6fs0iB2PfI+lgCi9DRP+ZxM8ibstcYa7X ppC6Ze/hN8UziGl1Zc2xLFMYLfx4PW3/DOrbZ8UsSjMFhz73DYkT06jIfvyb a7wp7BTPOVYnOo1OHd9x92O4KSyORp+fc5hEFf4J7KEupnCmL6pVNGocZQd6 zfY4m8L1+oy6vo3j6NFVwwEtR1N4/ECv1PIuA3kHd5WP2BLnTSw80Q2lI4lo 4QBzU1Mw9EeuuadHkX965DTHZlOIuMruar4ygNTarvbcbDSBRXOM1gh/Rr5B 7LoKDSag+6Fil814PSqQD4tpqjEBPYWQdds+1CLda/cstnwwAavbohFL7lXI VC4lrzzHBPT9/Vzm4wvRvoC6kPlwE/h4Q9032iQXR8vu7U8MNYHgrk9ZXqgA N31p0qfeMAGO06OBK0eK8YFt3VOxl0xgdl/T09IrFdipYfKwppsJ5PfmCD/S rsNeUoLKPuYmcO/Ph8/vFVtxbu3jMGFkAspao9FtAm142ldy6L2hCTy5q75k /qcNn6/Z8Xi9pgk03rkRM1LcgS+f0WN7udUEnM/ue+co0o3LxcsdbaRMgLNI /KTTWDdeqTJ7+0fMBAy2f8ZaBT04WMzK04LPBL4K09x2kfvwHXBqG/5nDLUi F1VqpAZxg+eQasSiMdSEndhke2kQbxRxu6Px2xhcJK7XbGwaxDEeZ01vTBpD 462N+exXh3CcYPBL6R5jyOD2fav4geD3cu41NR1EfFq7IJZnBEudvnvMu8UY wsqermWzG8Ev3scKvv9kDFJ76Lo1/SM40zXzqsM7Y/gj8NXrysAo/mvn2p1S aAzytn6K2lvGsC1pm/7Ua2MYKnfjOu00hhek41k3043BKXafkNy3Mbx3o8P+ Ly+MgT3O7uBLToK3l4TzRBOMIfVSQkuMHh1bdUZ75jwwBtGVd8Ihj+g4sWZP /e8oYj7b1NtQoGNmIY+c2R1j8BLv29M7TsfUlJqQiFBjaLv6+XAYLwPHxwQP tV03hqhO58fXNRh4NgihLVeMYSRjYvXjfoJfff4mePgbQ5xvQb39WQaOO1q6 VHjOGHg+7jqpEMHAk7v9HVa8jaGYa7u/eQoDm+lrFVu6G4P0quhcUgkDx8rN Cj10MYYzqmjBmODtceFX5/qcjUGupX5avJuBTdZ4ftvlaAwruX8uajIY+MGc nMr5g8Ygex25h88xMH1gJKLc1hjoGqdHNi8ysGHji3HuvcYwUfjAlP6P4PPy Y9T9NGJ9yCG+KYKvh7Ml0uLJxnD8B5ZXJWK9p53sdBMiX10O8VnLBO/ejj2u bmAMk6Fyb4//ZuBBv/0fLmsbg/vzFPb9kwys7corWaNmDAL6ebuDBhk43O5z AJ+SMWh73no43szAvWbhHUfkjKEoJlH2PhA8r2ahnbbNGOp2x10KzGXgMGmO B9NSxhAhK2Sb+oiBuzfgGX1xwr/luxn8VxlYdenKvhAhYyjfpV5QTfQzweP6 OV95iXHLXHqFGQN3dPzmEV9vDNFTv1mcWxhYqabA7RSXMWQv8tXGLdFxW7Ky 7PyyEXBdCHxYnEXH8jE/rpPmjWBRPj+Gdo3ot4Iy+u4yjeCL98RBbWs63nl0 69OtP4yAvWiqSmN8DF/e3ffHc9QIZC+rkPa8GcONes8OvB0wgkrbZ1otl8aw v7Awv1WHEdgM2ccZ/xvFDRzNPrHNRpC7cjpLsXwUy8xFfe7/YgRi7nu94gNG cd3XtbcvVBvBCYMvyVITI1j89vK/hHwjkLDVFbHJH8befu+OMnKM4LBNxEkO p2Fc6eJXqpFpBKIDdF4frmHsaTZzsfa5EbSd/YfD9g/h94vDP2cijED7GfWI fdIATqtWMrENMwLL7sL1mZ39ODrqYnT+TSPwopbYCGzsxye2cWucCzCCq/St 4z4evZh7t4I/8z8jkPrXZaG30IX3x51l+21G6Ak7eizEvxkbnnq3/6CxETjw dt4bCmjCO5TZU9/qEXo6YzcLzTXiP/iBhb+qEZxafBW0ebABJzDeRsxLGsHa ZPbSO6FVmKH7V3jpjyHE6D7w1Bq/gZvYLNwcmYawVcf5QMKPYFTWEFVSNmUI cNC7Ye/5eBTpvMXxyqghvNxcv+NWSx7SDCMn/W02BL//2FaHxSrRtfZwhdVc QxhPW1z7o7YZCV0UMeV0MQTJ1uL63PkhZDcmtFzobAhCZfI/Ai4PoweHBN+5 OBqC/mcfoeC/w0jQgE+zer8hyChfr925MoL4V3jkgs0M4QlJq+3VnzHEG/53 E5uMIXy5Mf+vtegHsl5casjbbAjNa2eGd+2aQNGei7ePixiC7/ZKbsW4CbRp 3x92vNEQqg5F7Rb3/4k2Cs7+vrZsAH9sBgQ/bJ1C6xNG+pa7DMC00dSLLDKL rDYNP8tpM4Ao2iovH3kWRQQNHj7aZAB9JhNJ8z6zaN3JvuayOgPYy6/TwVc9 i3jkOmsCiw1Ap1XFY+2pOWT5pD1YocAAcv21u47dnkPhPG3o+ysDeHHn7b13 OXNo7c+mUv10A/itvurgOzeHuPMbXs0/NIA6LuXZVIIPqNs+eWbeMwCJ8Bjc EcVEYQ/qdh2+awAhP/uql7KYiMvvY3JxsAGMsufZ8g4wEYVe5ewWZAC2lJf/ FucJfj5cKSl62QB+7v0g/43gEU7Dikd+5wxgIrF/i5oxC1Fyyu12+hjA0l9q QbEtC4VKvedrdzeAwL3YZhvBux+jSr+EuhrAESnOez7+LLRmteSO9gkDqN+V IvnsNsGHvsXU0aMGECnMV5z+hIWCh4rWxB42gIu5oHWP4N8qu0IwtzeAlXvk 6wcJ/uX4+OYay9oA0k9Yxc0TvHYgcNyEamUA4xJVLc5fCV5U3bISZ2EAtby6 Z727WGhh5GDFTzMDiI+nX9kyzEJ7nkYGmRobwH+TeTsuTbBQonW16X09A3gs JlV4fo6FZtcsrYxoGkD52/PRAvOEvlJ1rKtqAIVTNUb2yywUe+b09TsKBmDz ++8xPYJf6dsTUe8Owk+u3rcfCL7V/962qrrVAI5XrpOlE3FE9Aa4KWkAV/gE k/KJ+b3m5BttogYQ8J8bTZrgXdXFALNdgkR+bx21VyZ498brPLbLmwxANG/H 5n4mC7W40OELjwGsN/uyUWuShXZulr65hdMADL8ogNIoCwU02pPOr+rDbEb7 cH03CzWERLDXLOlD2PBm8oYmFpIyqKwU+6MPl2oH61nVLHRmev6m55w+eHx4 cT2kmIUgVZX8YVIfuD9YRL7PZCHBI/9x8I/rQ4CCuOZzIh/F1S3Bb/v14WxD 5PipCyzEE7jOnKdbH24PhAtYHWchR1WzNUfb9aHGV5ZzaDcLrca9CmH7og/e it8Ld0qykJ31qLl9nT7Ur9t0tpOdhdLWSHJmVOlDyo2iGTMGE1meCQ/dU6oP EnepFyivmejZdkxJLNKHVPGYAyP3mGiy6zfnXJ4+vHj7osScqOf75i63Hmfo g7VV7qS9ChN1i5uGDT3Uh91a+dacT+eQcuNFqvY9fWjuXCllOzeHgkJyuG9H 6IPdTLZCJ20OyU6L31a+qQ/OIevNthL9qFc16/alM/qgK5fUcNdgFlUEKFo2 eOjDloPW8sAzi/hVT/JI/6cPd12VUrtfzaCiuMbwqqP6MM7zlRY2OI3++mTd 2bRbH1z3Jb0sUJ1C0eLH76Zu14eE2/Iyef4/kK7fnhKLLfpwnMtwicX2Aw00 640wJPThsFlX2q8740j9Lr+RsqA+ZHP7zu6NY6CWf5UTRWz6wDyWqHA4cwyJ jeywqu3Tg6HJb6KcT4bQi1cTPD+e6AHv5+hSypoWZLm+U/vuQz3YH/f4+MjP JjTnVn1C5Z4eqMg6jA++/IbIWxPenQvTA9Ufdvvt9nxGow/2uS9d1INTojfV ix9VIfmA/LoNdnow232kvmRPGHpD9g9T3agHaVQ1v62LjXj68nQ6fa0eVA9O /ZrzaMLKhW41iWv04HH9hhL2g8345fbDnHzLujCp+0F9fHsrTuTUD575oQu/ LsQOcKZ24F7j/OTMMV3I3cCXsO5qJ97sJ195fEgX+miK3wztunDsmDhbU5cu 0F2NL4/9/o4jahev5dfpgnZUXNd78T5cv3LuuXu1LgzLufYEf+/DXHoT5Vux LoyyvN6wP+nHNzK7l2OKdcEtxNpjYc0gvhT+PvBcOrGf5X5V4RNDuAi0niok 64JJbiU9qWAIMxdy3g0l6ILKVM27A2uG8RmPhPn9sbpQOsadL5s0jF2trvlp hujCdum59GI8glOCf8dOBOnCcib/31mOUTxQ5lOUclkXJDa1cClSRrGjkjNL 8LwufNR8nHsLRnGcS4fgZx9d8LnbcCppeRR3xFtrhnjowsuNmavp2mN4/0Z0 jnVCF2LzqrDHizEcTSmJyXEi4sMU5S2tY/jLVbV8Fwdd+Bt9Q7BgDR1bTm2Z abXRBcMmubunnOk4bGccb+QeXSDLlyYFhtNx9TF+VQpNF/JefNU8mU/Hpo1s PkWmusBu2Hjv8SLBO9yBkd6GumDNpyc1IMHApaZzOTt0deH8xSu5UwYM/Mff 43Ovhi50Nt5YC4cIvssbmohV0QXepW3SB84x8HnGkfX7FAi/RQ5yv7zDwPlb WhS4duqCoIs1V1kSA08fttr9YasuWCq/uBVeSPBYTJW7n5QuKJcelhKsYWD3 esNwFXFdkN8tFn6wjYEz2Aozx4R04Ziwypv9Qww8qq9U95xPF6ZsM7O4CL6U PZdKP7iBWG/03yvfXwx8IkuSm3etLsRv2Sn7YImBnw893FnLoQuP/rv3xGOF 4MfNGy2CVnRg6qlp3R+CZ8XtQl11l3RgOuBjrAERuzdq377/WwdSJ25Q2gm+ fWc1ljU5qwOtfZvVMcG3PHWPvtAmdcB9S3P3PHG+gzl1JoWhA1HrFtlvEPpe 4j8CK8M6ADGjCQ6tDLxglKl9pF8Hln1aeoOrGNjy3eHDRd914P3pVmW2PIL/ tXku87XrgHh5jkZLHMHz+e8SPJt0wOt13qel6wysr+KBaz7rQJJR/MarrgQ/ Z20e3lqnA94LrnscqAzctbOB82qVDnhIb+R/sJOB5VMu7+r8oAMyNSellTkY OEBGyUqzVAdenfh6RqGXjjeLRd4bzyPus2dq1JGoB8+HxgXmOToQmsu1+bEj HZfxTbUlZujAu0GXPLIiHTvyWEscfK4DDyTvBbNVjeHs0BXj/Dgd4Gxoui0R MYaX2PKOb4jVAT6N0OslNmP42SJfemWEDjBcDeSjW0fxhB/USYXpgAP3T+uW +6PYkOk7cemmDtF/R9q93jeKuyea1VQDdKCATVHComIES/Q+LHv2nw5cfFQ2 +yyE4FkHSt/vEzrwUMCjfbfaMC5r+7Vq66QD7XeGuT52DWHHrwct1trrgOZp rmS9nUP4WYVY0wUzHagqdA6h7x7AEsnxY3sldWCBW+qkYHQX9pTey/NSVAe6 D62bP5/Ricue/lVcI6gDjlB2/ur7Duz44JhvKY8OxN6vi/7e04afhWxZ3vlH G+YdzoXNzzdhSbdU/tUmbXilWp3YfqISV91Zl5T1RRsc9SaHwyoqsPursyoH 6rWBnO8he7aoDBf9MrLKwtrguSh16lFkAbYOaQuxf60NN+KvbFb0vI6DX3DN Z97VBlBm52jlBDTefbrPlqoNorcWK9ysvqPola9eyyRteHdF1CvAqRvpyGov pZtoQ4X3YlCdTw8K9mATW9bWhti216Vfo/qQ5EKcbfp2bYiAv0kZg4PIWqSh epFNGxrZVPWvMEfRL311u7S/WqAb8S65xXcMxTs9HrRe0IJbL2YSVKbH0Hjq qX+pM1oQHHbkwacxOgrWXNa17teCQZ41nQl14+itjXJ2ynstEH7r+EHIehKd KWkwmi3WgunDYteOVU4iuS0eX00KtODjQuuRPs0pFDedPtv1Ugt2nBo+78A/ ja5GbdHje6wFzg3HnLWLZpDO7w/1Tve1oMR/y2ahjbNo2snJMTtSC7wffjHm MJlFx5WfXrMI0YKargueBfGziPxZ8OMVXy2402u8eWLPHFrWfHPwk5cW9N03 nNruN4eKntkwRE9rwSUXnz7t53NIzjNyfcExLaj3KXJq/DFH/J4qJqw6aIGc 6/h+W14mijP4pLLvgBYUPZBVT9BgonXruPePW2kBb9H0k1sXmajKN21Yh0qc J+Z4TDqWiS53kS+GkLSA1PAv5EIBwRuZ15/I6GuBJr093vYnE6XzySh4a2lB 6Ny9jBYuFnK+VF5WqqoFPjmLFuu2sFATdbHvwE4tOFGa9fruPha68/rJ2ZSt WnC8e9iv9RTBj6K67LOSWgB56xrrCP5dvtb2wERMC0T16Stud1ioaOz8jruC WvAhL8Mn7xkL+ewTKO7apAWr8xzPk7JZSO5tHk1unRbEnz+molvKQv1S1t8v cGpBs/VQ77laFnoSOulZuaoJdhaJt/e3sJDtZMRf3mVNaIHkXW29BK8dUIh2 +qMJvb6b2hfGWKjyfd2W7DlNELZQqq2YYqHL293ezE9qgsW3IJudv1hI6y6n ucW4JgStbxtRWmShSWZK24MRTdAN2yPcQvBquiPJbbBfEyi/XGLECL51rhqY V+nWhElxdrm/RCymGHTnSrsmOEj5Vl7//98P35eS/NSkCSomHj4p/wh/Fsty Rb9owqZRXnvXJcKfk0dMXes0YZv4RGnNb8Kf+vlvb6qI/Q6Mrq2bIfxRf3xy 9YMmcFeZVrqPs5B3nDZrb6kmnPoaFp4zQPAwW2vosyJNMFcIl4lpJ/w5fU50 PE8TxlSNT4k1sNDjb3wvdXI0wTOz2Jb8gYVs9F4bhGRoQvlfPi7BPMKfpL2f m5I1Qaht77vbSYQ/3D+dZJ5rgo+weWVaNOHPmTvTXnGaYHz0aqznVcIPk1qB tfc0YaH9+eofexYyvDn72DNCE8TS6WNKpiwU/lFCqvGWJhRHyuZL7WKhHXvO yj26qglnDl0qMvjNROejn+YsXNKEF5rWQp7dTATN1epOFzRhgs04ybmCiZwc xI22e2pCq2921vNgJsqOJ0PYf5pwYqVYZuoUEy30e1tMnNAE9cbwV+vJTBT7 X6XNm8Oa4G9zX+b93zn0+bynK7LQBJ7cW1PmrnNIvDj2R4qZJkwbU6QOGc0h t8WKM9zGmhAvPjlnLTCHOG4IBX7V1IQGg8QkjrJZZBhVHnV0qybkXabggn8z KDuTt+TSsgYcSeD0iCqcRAsT+sY9fzRgSsF2Upk8iaiqLpWmTA0o+1PySvrb TzRcVPKZ64cGLLH9oG0enUCbq04MPuwg1ouN9Ucuj6Pw3oJ1+W80oEnfdJvP j1F0WuCw0/hpDdB1/Hpgt3QX2vhXd1+8iwZUcydf+rOhE+XTRU2tj2vAlyFk tm2pHS2879hSdEgD0GDcrGl7K4pwOzRy3UIDzrhPLEYKfEO57w96im3XAO21 YRUvv79Hthk6RxtkNGAhJjz8X1wJ+hUjsveahAYodxsVmBwtRCZu7SojAhrg bT3ld6E1HTXyH5x7zaYBtm456p7bn+DZ/w4EUPvVwfPatRv3hKtxrK22x+J3 dWitu7ZyZUMN1jcSdsxtVwf49xg9XKnFN/nbjAS/qkOXhL1QQVcDFnxvv9r3 Xh0u6+fMuCs34+J0rdmYEnXYNFJV9lS0BTvGCA2ZF6qDpNgQ036lBaf+11qV la0Oyscr+rfVtmFtfvswv6fqcF6+54GjThfuWtK8JP9IHRQNF65uXP8dXx0T dO+JUYcUBzdU1/Md15S17CaFq4O4STJdwr8HH/rPbtOmS+og21ju8SK0Hy/Z aK7g8+rwaTjS8h8awEmGgjPnz6hDvuAdqdn5ATzO19LU9Z86dLxOcHrzehAH lu2PTTugDqbHnRvurgxh9R8e4Us26nBgt87ElQPDmC4WfNV2jzpcSHhvovZy GB/wK3D9S1KHW2HpJtWWI3h9WoODnYk68ASUUR4/GsGVLcN7X+qrQ/Gp9boC gyNYVV1I54CaOpw8gEvHfEbxmLOSQraiOvwJzDfVejOKE6LMpdnk1KGNZ/kh P3MUr/t5gStXSh2G1d91uXqPYdgcucgurg4rEqxTzelj2N8ybeqwkDqs111i vesdw6Ppbe1r1qtDyfJ0CZ1Mx/Ftk5+OcBH+cnIY7zhPx3ZruCry2NTBoX/c 43MiHQu4GrpuWFCDY7ZG/l31dBxU6bm3ZFoNFG8rN9Jm6XhSJl7bZUwNMlq7 xERFGPjI1c9SfL1qUH0/WtNMj4Frvy9zvm9RA3ktQb3q//O0nvKU2yc1WDrd dynhAgOnxDq1C4IaaJw4cvNTFAPzMSM/VBSrwa2twhKW6Qx81eZDuucrNbhI nyWLljHwRO5UlGiaGhx5Yq+n+YXg0/Uy/lXP1OCjLs3nWQ8D15y2dj5zXw0G TyQ92jfOwJo1QVSJcDWYrxFOsPr//9PJ5qnWBqnB9zSnzJhFBua9MSB63k8N fpGMNm8h+PlKH9+qtLcapB25H/2b4OVxQzPGp1NqEBvpOiBExIfifL/5HVGD azXDMpcJfv74+0XJNls1YDw5ES9P8LOGfXPSV6oa7Iqz699C8HNiPnt4oIka yLwi5Z4YZOCNvJq+O7XVoNipjHOymYEve51yaFZUgzvCerLVwMCM+gdm17ap wUNfrsuMXAY+IFctryCuBirBcuWOjxm4KoTF386rBhwSiq0y1xhYfWj74g0u NZAS5xrVOUn0A6YHhpT/qsKjmuF9KWSCjxeL3oT+UIWYfvnPt/7RMf3Q2FP1 QVW4OMFbwdFJx/ZFIsG9HarwTvZC/eArOlY962+n/VEVzD+UHm60p+OELxmG g2Wq0LJXLHRMlo7XKXbKRr5RhaIBsqjPDFFPo3qskURV0F40lB24MYbtyO49 9x6pwnbJzeytFmMYJ8VVG0WqQrOIFJ8VD8HPjosPHwaqQtCh8a6OW6PYpqlM 2/yAKqxvNMxa7zqCPa8e+hW1RxX6Rl6orEiM4FB5ZmEXWRXsKlV7Z74N43c3 FLTOaKjC1IcS8VGtYbxVI07jKa8qiOqydReNDmLDPq25ES5VOFB5ydskchAf uPMtX/WfCnxx0Ur/pTGI7wxxq3/8qQKKV+ZbhGb7MfO+n+pMvQoc4Gg+JjfQ gzeaCkwbgAoUneQczBDswXITua9CS1Tg0DrRnj/kbuxIHlWWyFCBqoyUZfKz LlzNtFOyCFGBROaGfsud7TjWXl0+3kQFrqQf32116TN+vfqZMaatAidmkrni bn/C9TmnM9WVVeDoRIZy6sM6/G9NklythArcF4/ZEpZUjd2KNu2cm1cG2zjp 50YiJVhP5Oc2WoEyRC4MdZ+CNNTdkS7JklOG4FfUhv3jrUjG8EiVh4wyvJaS i29daEOnnm/0GBRRhkvMvM4lng700+VC8VdOZTA0Stw+uasL/Z012/9yWAm6 ebkWTZx7kcyG3rBjiUoQ9I7r6O99w+jUmXsqbY+UwL1GkGuscRhlNJPbrKKU 4KNwXD2fzQhSi8vapn9VCSpqxNSYe0eR2c5L5YKOSnC/27xr2oSOXJAgs05E CZyEznhun/qBXqbUxJluUgKLbY+qU45NoEmuQPSWUwmS+D7cbv0ygS5+GYhM YSnChC2jSiHzJwo78mrXtWZF+FF1/FGz1RRqKD/RyKpXhK/55tqc+VOId6uw nycoQtBFjbIcoWn0hH656nCeIrT/HjUw6ZhGLy9YHtOMUoRrY7w27dtn0WTH 8pqsUEWYqb6/Y9hmFqkb5mVvuaoIndGcr3mvzKJSNtGFjV6KcHttfUpZ4yxq iBp5wLBUhNZCKeGNXnOId+6xgbOZIigP8Ut+vDeH7A5YDbbpKcLpcC/BW4Vz qEfijUqVnCLEeL8qFluYI3g5qD6BUxFULyA2Ez8mOvgwxe/IsgL8FHHhPk7w dUVQrawoUwGW91vaWhJ8ff8g77V7Awqw+Z1dtdsEEy2ZaSru7VAAZucb/Sec LOSqfKiT56sC+B7JibglzUK6axI1gssUQOJjYOjDPSyUNF3Zb/pGAcrXedrm nSD4rXvs7nKmAmxUDyLdvMhC52rWGbxLVIC3Dvder73NQt35KvSLjxRgfZbJ elIcC5kn7H+oEakAjx4JjCi9ZKHc235m08EKwNP5bKS2mIVELzydyg5UgHGu qBb+jyx03fnDs9O+ClDU/f0BTxPrfxWcdzzV3x/HrWxlxbW5F/dKpSlZR8oK JVkh0SAzLaVUoq2BL1GJhkhEw0rqvEWk7L3i4l7XNa97rTL63d+f78fr8zjj fc77fJ6vP85Bwzb9Vpp+OkCUrCa97eIgx60rZqgHdeApXeL50iAHfVbXefHU SQc0zLrM/4xy+U/cfq+7rQ60+00eTGNz0L250EU5cx1Q98k5MjnHQbMDCVnN BjpQ3qcwMLzAQYfqil1i9XTAqpkTHbPMQT8+9fDba+tAYcw7yXYuT298xfNe REUHlMOuB/3ixo9jNb0qZXQgJNQ/+Tj3e4EIa7FoUR14nC/7IZfbXrBfUDHi 1YFm92XOU25/bY6xxxbnKLDltGuBPnc8Zqb50p8mKICK+APCuePN0unAZ+kU gOYHL3y585FevRi0qYcCLFst8X+dHHSRR11xsokCPbMXQ3fWcxBtdGdVdjW3 PUJ1wZZyDrJv9ztzHCggLZfT21zAQYXfYjS0iiiwvpYgSszkILXcvLr+txQI vI5OqydxeflR88XUdAqU3Dp1suE6B3mEKrXJx3P7e7tDzvYQB1V4oOiWWxQQ +qkyR9jNQeutjmyIu0KBKqZZf+pmDuJRzb4jGkyBkXTts118HOQvUr+t6ggF IqumtiQMs1HTNJsW7U6BUecvOitr2Sj9lyFasqJArJu/oF08G0kUeY19MqVA gOTzLtnTbBT2IupR2FYK6KqrlmY6spFN+E/OJJECx35VpOpz/eWEtvvrgSUy nHs2amJ7bgq5Sl92Tpsmw8DhT2qFe6YQLD3n8xwlw0l/wfv8WlMovoXp2dpB BkU5Zw0nbr1tiwqX+vGRDMXx+gWbZVnIrlT4ISmbDIJxKRXtNZPo8GyS4pUX ZHjGt/ZDzIlJdD+gkKQfR4Yik6y0zrwJNOTI2ZoeQgbJ6jLxFuVx9JAU7B6p Q4aQuMtzbblMlHNwsbdbnQwqRlH6HEMm+pYUc2QbgQxBdzoLar8PowmxN0ET gmSYmZv71NfOQBbTQ5c9adrAmluOD5qgo+kK75cGadrwelz1gtR4PxL9N0lO eKgNOH3XRTP/fqS+/UrO5D1tGJLQ/IJpVGT39mlBRoQ2OL8PPpH9sQ+9TOyq knXXhgsHnk70X+hGjr5OYyxZbfASO7qkNNSE3gtZb826owWRD/c/6Cp/gsaq rWD3VS2QbKmcEpeJRtp3rWzHzmnBM9rGy57bruIUSSsfvWNasKWlJ3SHQwa+ pWB5rwBxY/NdSZu7SrGX7i562bQmzF5yUQt3qsePxneGHhnVhBfi69YFvm3A LXk7FwQGNEFGw6Cu5m0jttmyU8q6XhPiHXpON75qxltMzE3qsjTh512jf7dC 27HoXrPELi9N6Dlod7XPqxdbSJmpRzhrwoa+exW3dPtwZDPKVrHThJTjjuLk 6T4844rKvLdrwqFDOqpXSqmY6m06PiSjCe9rp+QyyANYiWR6/paoJix7nVQf jhjALnQT/jW8mrC4XmqBxv2/1/ibKARPkOBfgNggO2QQF50ytuD8IMHOHy4D 6bE0zN5i3JCASeBzYGUkbzMNr50z8tAvJMGZDV05dGk6fnHR6GT4SxIQVN7w 68XQ8W8To0XFxySI3dbee7ucjgk8RjdLY0mwZ9Aux/UPHd+/Zvj03yUS5GZZ 0LcfHMLVloaU52dI0BZeWGYRM4QFRAw/mgeSwJ0sdPpj4RA2/bXdlOZDgq0J z8yu9A3h8Hvbq6+7keDT5vfZr1YwcP7e7U7kvSQwqwo/QdJh4Amp7X0/LEhw Uz3x6owNA+u0GAQEGJOgYtBQWuE4Ax99aDAjtpkEPTsv3Y2JZmC7zJeudmtI 0FSRGFb6mIE3F68suatBgrNyZ8ti8xhYsTpcuZZAAnI6q1fwGwPzddEuS0iS YLBtXYhKE5ePR/b22wuR4PfFUqPmPgZuXCjZeX+ZCGaVb3eQRxm4WFw7o26G CEdGMjMJ01weVokTXjVOBJ59s98y/jLwrfWLAXtpRNjg81CukcvDJ5Bf7YNu IlCoZvuTeIaxi0OTXkMTEXSHTrj+4fKwqY9JvORPIigd99GbW2Rg7VOvpx3K iBDvLLc6bo6BJaJlXOOKiXDedk9o1SQDT/93+VNjHhGSu6+0PaYzcE86U0k6 kwj3/WtFxTu5PF3gdNkxlQiSqbNLSj8ZOLsSU+MTiZBy0rLuVzEDx7ev2dl8 lwjt9ZeqlLn+4MJw4iuZa0TY31pyWPIBAx/+wyPsdJEIvlmelq/DGNhGNCgg 4RQRTswOWgx5MDBhrbneah8i7Ao6X+WpxsA8Jm/jnN2IkB8z2PCIy8cMe8J0 4l4iSF95JHCjcwgXnpgoljMlgte2gIGwO0M4NfKAkutWIhTyeYRdPTSEr8dV XEpaS4SStEYhq01D2OnjY3OCEhFWyAe0STbSsXHFildu0kTYhqvdlJ/SMak1 VOiRCHc9GtIOT/nSMXvWskZhXgNOdvMECk/TcKwhx1mpVQP2nA3j950exOdt vYo9ajSA4+Zia5A3iA95ViumlGuA7rCY6B8/rl+8nNan/EEDHujOHvZo5tZP ma2/6gMNKM4wQ+bx/Ti/qfCX1w0NSCgd6Ncy6cdPBjXWp13SAD+pZzXaQ1Qc sGKerRakAR1lz14+3kTFwjbpERo2GlC6h2gnHfQbWzQsPtDk14ANv5V3/epq 4/qfK52xf9XhuXbzz/3/WvFxbz7S0pQ6KO/7809DoxXfZQkVtlLVwTLk4K16 z2bcJCnTc+OrOnh+OKxyJqgeH9qnQ2GGq4NDFqk/gAcwJz070qNfDVgbrmeJ aZQhua3vZbY0qIHw5fN6yeblyPB7YYY4VoOAB7kHJI59R5H0spovKWowclvE XzanGq3U7iCou6nBiourHElqjYiSKfCeVqcKj+dShA+97kSeWQf7g0tVwOnJ nVI7ITqqttl1tSlLBVQDSqLi79OR/sgajW1JKvB81Fzpg+wQktSd9+Y5pQK6 ZXVn9qkwUEVOPDWerAK5e5YudKoy0Ub78Mg5WRWoFKD9LnjCRKnjh9Q9+VRg /TqStaz8CDq/fp231m9lYH1ujlknMorWvavqK4pXBn+t/W8LOsfQY4fcK8qR yiCnkWR33WYcCU8lqF0NVoY8/7yNN4vG0cDGw4d2WyvD3ZAfuYv3JtDDj4u9 PUtK8Ea1o7RTioX4nQYv7xhVgm9Pbj8TN2eh0Olq1YwOJXh6Q+rF1pMstHtr kteJj0owcTVC3r2GhZYLN/by+isB/7mtN6LOTqFAV8JlXxclcLuse34hZQp1 zC2r/NqpBOuv6CvZl0+hDwY1BxNUlcA0WDMmWJyN1Do/LM2LKUFL4HWivh4b 3Q1/9PTgH0Wg7rrE88uBjXxLfH9rtyhCk1SV2Z5YNmp2t78UU6YIl+7LmGzL ZSOzhc0qrFxFWKXund//k40UjXkPfrrN1Y3Kgk/ycNDNHsaiyjlFgPv31R0V OGg6oi4l6qgi+F/R2zC6gYPqvzzpsUWK8Cuk+6ypJwcZe0VFvFurCGW6EX+m T3DQm+XjyqsVFeENCjzrGcVB8ml7S8OFFIFVi11O/8dB15C+Z++0AuwOm9A2 eMlBU33Ki+YDCqDwcDgm6z0HeUXyp2TWK4Cv2nbryq8c9Et9xEj8iwJo8qsZ 3fvJQQZlDd2hbxTAZ+0r76UWDnrlU3SxNUkBjooWN67u5fIgX6qS4XUFaM40 qGilc/n4xbXPqacUYJu9RIzxGAeNmQd68HsrwOW3eg9tpjjowOC+BT97BSA/ KT61OM1BldEGT2oMFYBkwfzpxOXRzZpqRhspCnDv70Zfx3kOelaxojtxtQJk n9HXmeHqvnzlOgYCCuAib2v4//ct1plFnu9iEyA+I84ik8PN3yWTqoh+AghO pId/nuSgks9/V6s1EODDM3OlFyMcFPmn6GjZVwLMMiyue9A4yGrb2Y9H3hJA 0eEZZbiHg1ae3cQnmEKAVul9d6258235MOnw+g4BTgJ3Ybn5eMzKSdsdTgAr 6yLVm5iDfNYHTIz5ESDQZ3e170cOogSRTR64EOCmU5OuSgYHTWTRYjZaEGCS 3G6YzeXbfMbzrubNBNiql8wjfYvLz1qHdMKIBLj8by7F8RzXvzzvrCz5Jw+V qr92+TpyUF3vw9UHJ+ShVN5/wciUgxKVnY7+65GHB6yqXhaFg4jJdby7SuRh rXdM4PJfNhpujXEYei0PPf67/d0H2ChPxibtVpI8+IYh45QfbGT8oNy49ow8 HNyXNtERx0Z8tZExJ47Iw8id5Kr2M2xULWraJeUoD+OpyccrXNjI5UbxORc9 edjQG9N8Qp6NQi+9/dDHlIO1hwWc9t2dQvqfA3ijOuSgn7pm6J/vFFqaJzto VsnB3I6Hv/PMptCdMy/Gj6fLwVjTmi1qUyyUHphEYXvJwcDRdN77lizUceBq qkDLalBNNGph3x1HqUmm4xnfVkPJffE8X61xdKx1wcjm/Wr4IuT2xbJ0DLEd wjrv3V8N5bkE3QD6KBK3DpSVt1kNM7kqZ5W0R9AOfec7Ol9lIeSeg7Xf8SHk eI1Dd82WhfjdiRoTVDo63BS340ayLKybqina7kZHUSF18wOnZMF94PyA/U4a qsiw8kshy0L+x5c8ReIDyFLecNeqOBnI5V15OnSiC+2eV12ePiINF8ZDV2hL AHK3/HKAtE8aIte8+U0//BkFJHgU7DOVhonXrB9bcwtRzIbkoFyCNBAk2rao PX2Dao5LdfvVSgEh6emi8EIC3tvJX9ylLwWLUflfNz2twN7kFzIimlLANuPT K/9ViUPPmp3YJiUFjyX062kzP3Cs1CXthFFJ8G4jbSIa1+Imm9kE+2eSkJCX qlH5vQk7lQyfBBFJaJkQPzJ/swufHA/adm9iFbTx/Hm9KbgbG/oKxzyqXgUe +WuGePb24BpXtOnDlVUQFj62ICXci1mGbyMHR1eC/+6H96UzqfjTR+uWycqV 8CPoSrWEWD+OWksjLz5fCfZ/ZairgvuxrKpSvazbShA8NmkmqjuAt/PeVrGs kICDL8tMJe4PYr4Lmicd0yRAvbw19nT/IK5h4wqvCxJQvir78+tNNOxFmw08 t4GrS9ro+dXRMPlgPI4W4+rHazCNQMes1nUysUPicEr9yScFHzqOqjpa8jpF HKR15t4mjNCxrRnPyoJzXD1pxf0G3SEs++mJT5mjOJiucnmZFzCEM940CXcJ i8NTlcfRFv1D+AQpxHNoUAw0uxX7OQQGNkgRecf+KgYBVT8fbdnDwD/vmbmK nRUD38wdaV7vGfg/wZ438g5i8EOuzmAHlyc9r5xbJumKwexCRdVr0WGsNS/t uEFQDCR77l+J3zyMJ0JzXxn3i4Ltzrs1CweGcRHT5o91qSjIRns5DVwaxpGH 6XbOSaIQsqQ7uzNtGNt0Rz7zOSUKqX/6fqp+HcbSTsrTwfaisHb5mNbJrmHc XVNkdYEiCqwcavz26WGcbrH/yQ1+USCr9nSFiTFx8NeJifheERAovviPrM7E +tvumKd9EoGoyJcmdpuY+F+e1sPsBBGoYyhLDO5g4h+UMmbRCRGoFilSH9vD xHHPPU0qdotA97HDvn4HmNhdcT62QUsEjotbCzn7MDHpv/9oPTwiMLCjx6/A l4nHxPQMmN3CkJE0Rr7tz8QF137GzBQKQ8TFLGIjN768dKyPN14YPphmh9z3 Y2KrMN7NK4OFIeAh++C3w0wsOZlyQ9FaGASSaJdCPJi408+gS5skDKLrzJMS 9jHxC2rzus3LQmAlp5Srb8HEgQdOXEWdQuDkVcrrqs/EW5pEW23zhUDu8GPx eU0mXtqdQXF7IASmXvrXlKWYuLJ8R8TRACHQvPfPrervMH5g/Ls+1EIIqB16 hQv9w9it4DzpkroQ/NRO5/1SOYxHM/J+JrYJgn3ghOrMrWHs6z5/USVfEGzz 2Z4dx4fxgMSOda/iBIF96+ylTMth3HWm6UG+nSBMh53fSvj//UWK0g7jNYKQ XrXmeVkzAzd1H2GXCwnC1HuPJN8s7n4yn3Fq/rYCmpT80/O5+8ty1kTQ49kK EC/ZNOSrysDfsm4UDVxaASGru4XIY0O4RJKgyDZYAcxdRqvoV4fwm17DPsk8 ATC7Irt94iEda8dHxybfFYD16loH0125fs+iZod6gABY/3ZqSZCj48c5B9P1 tAQgsMF+yuQBDd+5EOm/5wk/PGsJavcPGsT+cpWcmJt8cO1co1VgDxXTqle+ kjnGBw3NX6xFrlGx9yVXlyfmfCC9qc/DdQ0Vu9GGi98s8YK35otR26FebP1B 7HL1aV6gtGbZC413Y8qefcJC3jwgkJzanJ/ciuvFPm0XOLmIHfd4jOW2YTzx sa5+p/YinhcWe8SzshRLeNKORXcv4LE8xaXFXcXYNmdVPJ/lAj6adLKy7uM7 XGXnO8Kj9BcTvmpLBKlewPiezJOlijnc/47Hpav1M+rdqrPR5MIcnnF+6rAv EKOl36ZVEXpzuOR74DUcUYaM1gdwFh7N4qraXuKKfxWoqA5s/4bMYMUJG1uZ 2l8ob1XI4iyBg/f/OP5Zdm0LqiuKjtevY2PZWMj5j96Cxg89ooRFs3GMYeB2 myetSPddhdPM+BSuTSDldP1tQ7vduka2vJzCGRt3TZ1Lb0f+PKzIM25TuOZb YHydTQfKdFB6y/nGwlfjXhjq3uxElfMbdm4+z8LrPfdLc1S7EP2ZZeepdSz8 tzyFOfe+C1kODIrS9Cax+6E7/4yru9G1Tau2HXk8gaPTTF8h+x70LcrwyIDA BA4y+6goUNODTElxn6mdY/jHuoltbp9+o4jTpYxDu8bwdHH60htyLyopZ8j0 5Y7i0q8FDRaxvWheRsbMS2EUY7pDpCinF+kfNQ36HT2CC5K+znbt7UNn8v2T PSeYOPWHvOGjjD70QSCxotuNiZ2z2EHkuT7EcgKWe/kwbheMYnxUp6L1r0aV u9YNY+vMLq9UcyoKmpGzOZDMrQMDV/ddPlT0xsL8bAcfA7uvXUNOiqCi4cTg 567BQ5gnUIV4K4GKtIeSa9va6The+3uRcBYVHdWv+ONsTsdDx3KOipZQ0Ysb k1qtOTTcTL5YcLmKiqhtio5O8jSsv0LOyrWRitTIlpebrw7iJ/pFldfbqYhy WFvDbHYAt0RtYUx2UtGmp4IVOQEDePxCZZAkNzbuGPJV6OvH+0ci2rpbqMhS pkrkxv5+HGfGzLOspSKHPZk57CoqDk8hxFl8o6IDt2/uPWRMxX8lb6vWfqSi 77fqaUk+ffiWjKJI03Mq6lh+sObk7l7M4Z+XsLlLRaNnHEJ3b/6Nv3+JmtU+ TUXLI5KFJOUerEnSS/Z2oSJpn8aFRYFufCHuSMvIVirSao/b0Tbeif/p7U0u kaIiA3vHm3ltHXhe8vyn2819yK5cuvYWbsfrC4psly72oVN5/7kZxbXitVL7 Vd4U9KLrWk6pshdasF3h/u4iy16U/ESWNn64GS8Xj6bW1v9G+GbiiWdbGrHh BUu5z9U9qGnJuSBcpQEb97Yw/Qx7UA1j7ewr8TpcfECNt+pFN1KA9RJi76qx eurykqV7FzLLyUv+crUKw5zrPZOsTuSbvEEzdP93HLJS+0PcZAfKD91k1DoL ON/5Zs6yTztKMQ9qMr34DvualkY8725GTVt7mqxMXmO3+H1+hoNNqLMG82oK p2HvkP6G2/2NiHU9ZuNjegiKHN+5gR1dj26vWjOiujcRCbtpjvda1aI1rlJW 371fImrPbHr8/E+08Pfa2WT/D8hAvYzzWq0S5RKjvTZXFqLjU7lBxYnlyHv3 Vas64meUHvHs6fAcoMGar+J8E2WIwLN8XZinCNkof+7dlvkT8dAz/1p7+GPi BsP911trkNkv+9CApBS8uPNTVRN/PWKFK5qGuWTj9gKPDv13jcjabeDhaf3P +M7vA2WN4m3oXXeLu+raGnzO79HFeVI7et3slTLO34CPTnVsVTPqQG2fTvZI LzVikxVub4L8u1CI6QLxrlQbZq11+U+oklt3Eoubv3zvxY8aUwPet/ehI6kl Pq5RVKzxmfPs7RkqKs3uf5KQ2Y9/HjI+73qjH50JUg6+w0/Dylm12tlZg+gq O9v5LR8Thy6clI7cREN7uqpz4/eN4O/2cstOn2ko7M/RXSkZoziE7dW6XENH 0/0ZCnuPTGAwYkU7shhIqHvGdZ8s95y7n3CCHD6MZms1+cRb2difauCxyMtE 0zFr9q58xMHS169uypAZQb2nnF8K6s7go3XS/X/0x5CUU97Qw3Pz+No7xbQG UxZqiHkvo1fyD+d2jskaRbO4+WthXD/AAx18+M6rKhYazzk30NnOA+ucj4Rd cJhCw9OxvJZdvND2J9te8zAblTXJffo8yw+UnSaL565PI4oE6e1vLjc4Bq06 NVA9jXjrMkM0NohARGI/w27lDNLSzypPrxeB9bSxYMuDM+i5za1TJTGi8D/2 SPVf "]]}, Annotation[#, "Charting`Private`Tag$12970#1"]& ]}, {}, {}}, 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, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-50, 5}, {-3.3182267139283828`, 1.2499997523668513`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8170612049966645`*^9, 3.817061239049871*^9}}, CellLabel->"Out[22]=",ExpressionUUID->"6db1af30-90cb-42f3-85af-801f74136cc5"] }, Open ]], Cell["\<\ erro negatiboak infinitu erro positiboak 1 b) BISEKZIOA [-2,-1] i<50 && f-ren balio absolutua<10^(-6)\ \>", "Text", CellChangeTimes->{{3.8170612772441015`*^9, 3.8170613692359543`*^9}},ExpressionUUID->"8c977fde-9b16-44bd-8bd3-\ f261af00b3ed"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"a", "=", RowBox[{"-", "2."}]}], ";", RowBox[{"b", "=", RowBox[{"-", "1."}]}], ";", RowBox[{"i", "=", "1"}], ";", RowBox[{"tol", "=", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "6"}], ")"}]}]}], ";", RowBox[{"err", "=", RowBox[{"tol", "+", "1"}]}]}], ",", RowBox[{ RowBox[{"i", "<", "50"}], "&&", RowBox[{"err", ">", "tol"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"c", "=", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "/", "2"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "a", "]"}], "*", RowBox[{"f", "[", "c", "]"}]}], "<", "0"}], ",", RowBox[{"b", "=", "c"}], ",", RowBox[{"a", "=", "c"}]}], "]"}], ";", RowBox[{"err", "=", RowBox[{"Abs", "[", RowBox[{"f", "[", "c", "]"}], "]"}]}], ";", RowBox[{"Print", "[", RowBox[{ "i", ",", "\"\< garren iterazioan tartea [\>\"", ",", "a", ",", "\"\<,\>\"", ",", "b", ",", "\"\<] eta errorea = \>\"", ",", "err"}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.8170613723458767`*^9, 3.8170615591224284`*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"1c29d345-e77c-4862-9dfe-a0d53d7f2f6b"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{ "1", "\[InvisibleSpace]", "\<\" garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "2.`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.5`"}], "\[InvisibleSpace]", "\<\"] eta errorea = \"\>", "\[InvisibleSpace]", "0.09760704151927309`"}], SequenceForm[ 1, " garren iterazioan tartea [", -2., ",", -1.5, "] eta errorea = ", 0.09760704151927309], Editable->False]], "Print", CellChangeTimes->{3.817061566143984*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[23]:=",ExpressionUUID->"b01639f6-eaef-44d8-8043-05a709c7a46f"], Cell[BoxData[ InterpretationBox[ RowBox[{ "2", "\[InvisibleSpace]", "\<\" garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.75`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.5`"}], "\[InvisibleSpace]", "\<\"] eta errorea = \"\>", "\[InvisibleSpace]", "0.10201999909993723`"}], SequenceForm[ 2, " garren iterazioan tartea [", -1.75, ",", -1.5, "] eta errorea = ", 0.10201999909993723`], Editable->False]], "Print", CellChangeTimes->{3.8170615661481557`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[23]:=",ExpressionUUID->"fc8fbd28-ffc2-479a-ae1f-d92b0be4ce23"], Cell[BoxData[ InterpretationBox[ RowBox[{ "3", "\[InvisibleSpace]", "\<\" garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.625`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.5`"}], "\[InvisibleSpace]", "\<\"] eta errorea = \"\>", "\[InvisibleSpace]", "0.0010888102311303813`"}], SequenceForm[ 3, " garren iterazioan tartea [", -1.625, ",", -1.5, "] eta errorea = ", 0.0010888102311303813`], Editable->False]], "Print", CellChangeTimes->{3.81706156615609*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[23]:=",ExpressionUUID->"8227d081-0035-4770-b437-91634563d695"], Cell[BoxData[ InterpretationBox[ RowBox[{ "4", "\[InvisibleSpace]", "\<\" garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.625`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.5625`"}], "\[InvisibleSpace]", "\<\"] eta errorea = \"\>", "\[InvisibleSpace]", "0.048684844472760565`"}], SequenceForm[ 4, " garren iterazioan tartea [", -1.625, ",", -1.5625, "] eta errorea = ", 0.048684844472760565`], Editable->False]], "Print", CellChangeTimes->{3.817061566160079*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[23]:=",ExpressionUUID->"af382c71-2efe-4ba9-97e2-a6064dc41e96"], Cell[BoxData[ InterpretationBox[ RowBox[{ "5", "\[InvisibleSpace]", "\<\" garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.625`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.59375`"}], "\[InvisibleSpace]", "\<\"] eta errorea = \"\>", "\[InvisibleSpace]", "0.02388601959482785`"}], SequenceForm[ 5, " garren iterazioan tartea [", -1.625, ",", -1.59375, "] eta errorea = ", 0.02388601959482785], Editable->False]], "Print", CellChangeTimes->{3.8170615661662893`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[23]:=",ExpressionUUID->"3934ab6c-df41-4d10-89e6-4c3662a702b7"], Cell[BoxData[ InterpretationBox[ RowBox[{ "6", "\[InvisibleSpace]", "\<\" garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.625`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.609375`"}], "\[InvisibleSpace]", "\<\"] eta errorea = \"\>", "\[InvisibleSpace]", "0.011418312730247078`"}], SequenceForm[ 6, " garren iterazioan tartea [", -1.625, ",", -1.609375, "] eta errorea = ", 0.011418312730247078`], Editable->False]], "Print", CellChangeTimes->{3.8170615661690483`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[23]:=",ExpressionUUID->"601ecea9-fe9b-49e7-9395-e8257791ec47"], Cell[BoxData[ InterpretationBox[ RowBox[{ "7", "\[InvisibleSpace]", "\<\" garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.625`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.6171875`"}], "\[InvisibleSpace]", "\<\"] eta errorea = \"\>", "\[InvisibleSpace]", "0.005169392447768498`"}], SequenceForm[ 7, " garren iterazioan tartea [", -1.625, ",", -1.6171875, "] eta errorea = ", 0.005169392447768498], Editable->False]], "Print", CellChangeTimes->{3.8170615661725693`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[23]:=",ExpressionUUID->"63e919c5-c038-441b-a41d-97a5a3b7144d"], Cell[BoxData[ InterpretationBox[ RowBox[{ "8", "\[InvisibleSpace]", "\<\" garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.625`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.62109375`"}], "\[InvisibleSpace]", "\<\"] eta errorea = \"\>", "\[InvisibleSpace]", "0.002041415730377527`"}], SequenceForm[ 8, " garren iterazioan tartea [", -1.625, ",", -1.62109375, "] eta errorea = ", 0.002041415730377527], Editable->False]], "Print", CellChangeTimes->{3.817061566175593*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[23]:=",ExpressionUUID->"e39c2a2f-688c-443c-b759-b74991e7bedf"], Cell[BoxData[ InterpretationBox[ RowBox[{ "9", "\[InvisibleSpace]", "\<\" garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.625`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.623046875`"}], "\[InvisibleSpace]", "\<\"] eta errorea = \"\>", "\[InvisibleSpace]", "0.0004765794485887473`"}], SequenceForm[ 9, " garren iterazioan tartea [", -1.625, ",", -1.623046875, "] eta errorea = ", 0.0004765794485887473], Editable->False]], "Print", CellChangeTimes->{3.8170615661785874`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[23]:=",ExpressionUUID->"e31611b0-05d7-4b27-b246-bb066ca7eb1d"], Cell[BoxData[ InterpretationBox[ RowBox[{ "10", "\[InvisibleSpace]", "\<\" garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.6240234375`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.623046875`"}], "\[InvisibleSpace]", "\<\"] eta errorea = \"\>", "\[InvisibleSpace]", "0.00030604677340024394`"}], SequenceForm[ 10, " garren iterazioan tartea [", -1.6240234375, ",", -1.623046875, "] eta errorea = ", 0.00030604677340024394`], Editable->False]], "Print", CellChangeTimes->{3.8170615661815786`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[23]:=",ExpressionUUID->"98a4069f-c322-4e5c-99d1-3a665c8e2256"], Cell[BoxData[ InterpretationBox[ RowBox[{ "11", "\[InvisibleSpace]", "\<\" garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.6240234375`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.62353515625`"}], "\[InvisibleSpace]", "\<\"] eta errorea = \"\>", "\[InvisibleSpace]", "0.00008528356166186135`"}], SequenceForm[ 11, " garren iterazioan tartea [", -1.6240234375, ",", -1.62353515625, "] eta errorea = ", 0.00008528356166186135], Editable->False]], "Print", CellChangeTimes->{3.817061566184575*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[23]:=",ExpressionUUID->"e7448de5-b4fe-4bb7-8a98-2a5708ecf72e"], Cell[BoxData[ InterpretationBox[ RowBox[{ "12", "\[InvisibleSpace]", "\<\" garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.623779296875`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.62353515625`"}], "\[InvisibleSpace]", "\<\"] eta errorea = \"\>", "\[InvisibleSpace]", "0.00011037730855283784`"}], SequenceForm[ 12, " garren iterazioan tartea [", -1.623779296875, ",", -1.62353515625, "] eta errorea = ", 0.00011037730855283784`], Editable->False]], "Print", CellChangeTimes->{3.8170615661875706`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[23]:=",ExpressionUUID->"14969017-fb23-4add-98d9-73c432974c5c"], Cell[BoxData[ InterpretationBox[ RowBox[{ "13", "\[InvisibleSpace]", "\<\" garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.6236572265625`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.62353515625`"}], "\[InvisibleSpace]", "\<\"] eta errorea = \"\>", "\[InvisibleSpace]", "0.000012545798028867905`"}], SequenceForm[ 13, " garren iterazioan tartea [", -1.6236572265625, ",", -1.62353515625, "] eta errorea = ", 0.000012545798028867905`], Editable->False]], "Print", CellChangeTimes->{3.8170615661895237`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[23]:=",ExpressionUUID->"7ce92371-9b11-40bf-8b55-4921d8242f8e"], Cell[BoxData[ InterpretationBox[ RowBox[{ "14", "\[InvisibleSpace]", "\<\" garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.6236572265625`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.62359619140625`"}], "\[InvisibleSpace]", "\<\"] eta errorea = \"\>", "\[InvisibleSpace]", "0.00003636915080661163`"}], SequenceForm[ 14, " garren iterazioan tartea [", -1.6236572265625, ",", -1.62359619140625, "] eta errorea = ", 0.00003636915080661163], Editable->False]], "Print", CellChangeTimes->{3.8170615661929035`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[23]:=",ExpressionUUID->"4f142ac3-6b4c-4434-bf72-60cfc9c0fcc4"], Cell[BoxData[ InterpretationBox[ RowBox[{ "15", "\[InvisibleSpace]", "\<\" garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.6236572265625`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.623626708984375`"}], "\[InvisibleSpace]", "\<\"] eta errorea = \"\>", "\[InvisibleSpace]", "0.000011911743619398563`"}], SequenceForm[ 15, " garren iterazioan tartea [", -1.6236572265625, ",", -1.623626708984375, "] eta errorea = ", 0.000011911743619398563`], Editable->False]], "Print", CellChangeTimes->{3.8170615661991563`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[23]:=",ExpressionUUID->"bf4be8ac-fa38-48f0-8545-5735b153f4d2"], Cell[BoxData[ InterpretationBox[ RowBox[{ "16", "\[InvisibleSpace]", "\<\" garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.6236419677734375`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.623626708984375`"}], "\[InvisibleSpace]", "\<\"] eta errorea = \"\>", "\[InvisibleSpace]", "3.170103992297668`*^-7"}], SequenceForm[ 16, " garren iterazioan tartea [", -1.6236419677734375`, ",", -1.623626708984375, "] eta errorea = ", 3.170103992297668*^-7], Editable->False]], "Print", CellChangeTimes->{3.8170615662021475`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[23]:=",ExpressionUUID->"02896104-1cbd-4390-b9f1-7c63265821e1"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1.5"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.8170615904056396`*^9, 3.817061621161672*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"3b32a99c-61f9-41f6-9ea2-c2abb8da9a7b"], Cell[BoxData[ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"-", "1.623641572214877`"}]}], "}"}]], "Output", CellChangeTimes->{3.81706162220358*^9}, CellLabel->"Out[24]=",ExpressionUUID->"131c1c13-ea28-45bf-90c9-6f8c8e14d7b8"] }, Open ]], Cell["2. LAPLACE", "Text", CellChangeTimes->{{3.8170616316111145`*^9, 3.817061638755694*^9}},ExpressionUUID->"b2758360-4269-48b1-bc19-\ 790e9577a078"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"eku1", "=", RowBox[{ RowBox[{ RowBox[{"x", "''"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"x", "[", "t", "]"}]}], "+", RowBox[{"y", "[", "t", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.817061644666351*^9, 3.817061666667493*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"59668a84-bdaf-4de1-a1a9-f03b696b9074"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["x", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"x", "[", "t", "]"}]}], "+", RowBox[{"y", "[", "t", "]"}]}]}]], "Output", CellChangeTimes->{3.8170616681558228`*^9}, CellLabel->"Out[25]=",ExpressionUUID->"0c58bee9-c336-4939-a64a-84c04379afec"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"eku2", "=", RowBox[{ RowBox[{ RowBox[{"y", "''"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"x", "[", "t", "]"}], "-", RowBox[{"y", "[", "t", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.817061669672889*^9, 3.8170616889014025`*^9}}, CellLabel->"In[26]:=",ExpressionUUID->"d7fdcbfd-241d-4773-845d-9aba39045fa3"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["y", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"x", "[", "t", "]"}], "-", RowBox[{"y", "[", "t", "]"}]}]}]], "Output", CellChangeTimes->{3.817061689887574*^9}, CellLabel->"Out[26]=",ExpressionUUID->"051f3e10-2417-458c-a67a-9aa7fb442108"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sistrans", "=", RowBox[{ RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"{", RowBox[{"eku1", ",", "eku2"}], "}"}], ",", "t", ",", "s"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", "0", "]"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"y", "[", "0", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "0", "]"}], "\[Rule]", "0"}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.817061711004739*^9, 3.817061778675514*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"7b4edb65-8dfa-4dc6-a0d2-6bb47208a182"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "s"}], "+", RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "+", RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]}], ",", RowBox[{ RowBox[{"s", "+", RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]}], "\[Equal]", RowBox[{ RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], "-", RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.817061732246718*^9, 3.817061779812357*^9}, CellLabel->"Out[28]=",ExpressionUUID->"5d94713c-d467-43d9-abe6-573f6064f37b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lys", "=", RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]], "Input", CellChangeTimes->{{3.8170617912495394`*^9, 3.8170618046792107`*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"93b3c6b9-1974-4ff2-90b1-1a9f6d7479aa"], Cell[BoxData[ RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]], "Output", CellChangeTimes->{3.8170618056684227`*^9}, CellLabel->"Out[29]=",ExpressionUUID->"9487a56f-ee4f-41ac-b70c-05f44205618f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lxs", "=", RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]], "Input", CellChangeTimes->{{3.817061807481495*^9, 3.81706181690137*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"a984cf08-00e1-474c-b7e3-5e498003999a"], Cell[BoxData[ RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]], "Output", CellChangeTimes->{3.817061817832412*^9}, CellLabel->"Out[30]=",ExpressionUUID->"a0ee605e-168e-4aa3-ac65-9434f8ffdfba"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"soltrans", "[", "s_", "]"}], "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{"sistrans", ",", RowBox[{"{", RowBox[{"lys", ",", "lxs"}], "}"}]}], "]"}], "//", "Simplify"}]}]], "Input", CellChangeTimes->{{3.8170618292134204`*^9, 3.8170618686376457`*^9}, { 3.817062143147684*^9, 3.8170621462542305`*^9}}, CellLabel->"In[35]:=",ExpressionUUID->"a98063f2-e97d-4f8f-ab05-3075c9eef3ec"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["s", RowBox[{"2", "+", SuperscriptBox["s", "2"]}]]}]}], ",", RowBox[{ RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], "\[Rule]", FractionBox["s", RowBox[{"2", "+", SuperscriptBox["s", "2"]}]]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.817061872174467*^9, 3.8170621471292305`*^9}, CellLabel->"Out[35]=",ExpressionUUID->"09875084-1f17-4238-a9b3-7f00699a875b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"y1", "[", "s_", "]"}], "=", RowBox[{"-", FractionBox["s", RowBox[{"2", "+", SuperscriptBox["s", "2"]}]]}]}]], "Input", CellChangeTimes->{{3.81706191982526*^9, 3.8170619210381093`*^9}, { 3.817062032766526*^9, 3.817062155379299*^9}}, CellLabel->"In[36]:=",ExpressionUUID->"999c60c0-abd3-4208-b8c0-f4c0a02f0a95"], Cell[BoxData[ RowBox[{"-", FractionBox["s", RowBox[{"2", "+", SuperscriptBox["s", "2"]}]]}]], "Output", CellChangeTimes->{{3.817062074867133*^9, 3.817062111413396*^9}, 3.817062156629981*^9}, CellLabel->"Out[36]=",ExpressionUUID->"21dd432c-4478-44cb-9df1-16774d03e25c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"y1", "[", "t_", "]"}], "=", RowBox[{"InverseLaplaceTransform", "[", RowBox[{ RowBox[{"y1", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}]}]], "Input", CellChangeTimes->{{3.817062159380226*^9, 3.817062183496087*^9}}, CellLabel->"In[37]:=",ExpressionUUID->"27389cdf-25e7-4e52-8af0-f9360b4f07ec"], Cell[BoxData[ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{ SqrtBox["2"], " ", "t"}], "]"}]}]], "Output", CellChangeTimes->{3.8170621842573767`*^9}, CellLabel->"Out[37]=",ExpressionUUID->"71774861-1ed6-4245-8086-99809e134ccd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"x1", "[", "s_", "]"}], "=", FractionBox["s", RowBox[{"2", "+", SuperscriptBox["s", "2"]}]]}]], "Input", CellChangeTimes->{{3.817062186877878*^9, 3.817062201658012*^9}}, CellLabel->"In[38]:=",ExpressionUUID->"6585bcac-1bdf-4390-9f0b-8208abe02338"], Cell[BoxData[ FractionBox["s", RowBox[{"2", "+", SuperscriptBox["s", "2"]}]]], "Output", CellChangeTimes->{3.8170622022742844`*^9}, CellLabel->"Out[38]=",ExpressionUUID->"70a1189d-33ca-4467-a2fb-306f4e6c6025"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"x1", "[", "t_", "]"}], "=", RowBox[{"InverseLaplaceTransform", "[", RowBox[{ RowBox[{"x1", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}]}]], "Input", CellChangeTimes->{{3.8170622058898964`*^9, 3.81706222776507*^9}}, CellLabel->"In[39]:=",ExpressionUUID->"0d4f420b-aa13-445a-b2b4-d32511052268"], Cell[BoxData[ RowBox[{"Cos", "[", RowBox[{ SqrtBox["2"], " ", "t"}], "]"}]], "Output", CellChangeTimes->{3.8170622284658437`*^9}, CellLabel->"Out[39]=",ExpressionUUID->"ad50e1e9-5155-4f18-beda-7f10d865c1d4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x1", "[", "t", "]"}], ",", RowBox[{"y1", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.8170622409262595`*^9, 3.8170622847472496`*^9}}, CellLabel->"In[41]:=",ExpressionUUID->"12d0d90d-afcc-4146-88e7-39b20ba01c99"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVmHk8VN8bx2fGkhTmjiUi0iJb2pBEz8m3QkrRHrIkSZaoZK2saRMqLWSJ 0EK2EOVIZItkX1pkZ8xcyb7+7m/+mdf7de/r3PN8ns/5nHuuvI2L6RkGjUZj 02m0///zYMGaLg2/HY4L//+RsHagcLvsfUvweiCmOUnxdPoG29YIF3Ae/9nS QXHGODQSaVcgJPBs/3uKe8TsJ3MirgHeXGIbQPEdqXKhtIIA+HBT2FiX4iRF 81ha2g2oSLJP7JsnoWjr8MZDcbfh8/bZs/4Ut+0JLH4RcQ947k0/FqJ4Wnmp sk9xOBh5R2+9OUfCjc1Nbi8K7kOCy6pdY7MkiGnHFdRkPwQ9l4ZCE4rjdzrw TqY+gtMEIyVmhgQ1Q/X98slPYI0fg/ZjmoSCg/MP98ZFwUlf9bLFFDdaRqx7 FhELAxPViZqTVD1b1LS6SuOgskHyg8YECVe23v9xpTge8LTZrrXjJPCCxdr4 ggQYWt/zsvEfCZV6xRUaeYnAVTMKiRwhIXzPOufK7BcgaDXQqv+XBFnjvzn/ UpPB29e61ZtLQrfJUbOQVykgNfgoZH6IhNdHChZkkl9CQTBOdWWToGURZLAn 7jWUB3HNlfpJMHWUansc8RZS3cvP/OogYakW4Ej9dNiw92B79y8Sht+7En9K 0yEDkqrbf5CQ87Hp3eXiDNAMz1eNaiHhv9K4+ZiCLDBzWjFi+Y0EBf36gwPb suEF4XV+8CsJghV8CVvyskFtwdbhTCUJtV8d9Muz30Efb+OcaikJFg3qYX9T c+FpgHEsI58EdPRs53bVPNjgKXWOyCVhTcsT9eBXefCXR/wzM5uEwfb5luXJ 7yHqh+/6P6mUfl3l8rviCuDY2nb+ijhKnxHzrMgIDMeEA7RzAki4K/5Up0io CMIvxDO8rpFQlxEkp2FaBErxk6Uq3iSYDZr3yLYXQXSfhsEJNxKczZa4jgx9 Aq3Z8/4/LEl4oGsf8oRZAnz7r6kEbyWhtfXQeeEjJVB5TbtHeTOlvzsYBzwp gcuq9l8+qpKQnCYh5rSqFN6V31uSJk9CvlxpLFL/AkFVPtN5giT8pq/K7TtW DsFyD455t3JhTYzQU/PockBV20R567lgrz3l872jHPKeFql6f+XCiFutXsG5 CrB+5xKijrnA2321JtS7EsJ2eO1vSOCC8pf2Ho3Yr5Adczak6hwXtpfuFdS7 WAtK6+Ric/o5wGxI+rb1fi2U8F1RTergQHcn4+H6rFpY1raoPriFA6G0Ajmp f7XwXJ7pI13Ogc7tKhrDbt+BeDObHpHEgZDMJVYxbnVgGB5+/IMVB5piv76b dm0Ap037MqUrh+B1mqL3cHgDrFStqNEsGoLrHwNRb0YDlMWdfPBfzhAotetU ff/bAJdao9Q2Px8CH4nUjhTXRri/Yr+qrecQrL57d8kx1yYwPGZbIbd2CC54 GVtnXWgBW4u0ruVubNjrrJMiENYC02GhfW/t2LDaRpm0eNsC16w+lW81Y0OT Ib+vALcFHNes3rZyFxt0pQofW5xvhQzuYafD4mwQzFtfu8iuDbJ/t4keeDcI L8aWgrnZD/jpMLsyhz0ATnlnQhmrO2BH7Cv9F1v6qfVsspKu3gH8lU8Nelb3 w3CrTubCrg7IdLr/eplYP1yaEW2atesAdx7jgkOjfeC1o3jFxKsO0Lx/ek4p uw+CS2RT2Zv/QNvWMtqxTX0QV9tc1aDXCTrpjptG5Xuhod9wcbJNN4yYYx3z X11wa8M4LedEP7j0RKW3W/8CV5Xyh0UvhuBYm0sPr3o9TJ8+n/bTeRjEYtki K7cWgs3HowfD7EZAMT0iPurSG3z6b0NRUcgoTCSpq+mM1OA7G3NdkoLH4Yfm H4n9Mm2YUZS7NdBrElr1V71ld/zBr4RYSXP+k/CoPT+nbPQPNjVzFLtym7oe tP/1E4FOnDC+8u+56EmQrmeryW3sxLvW33p1oHAStAIlHN5e7cTBT81XSDOm oOnZedF2qS4seJnOk3lzClZJXw4QNejGhLJRze/H01DM7K3Afr24d1EsUR43 DQUyE7vjwntxfs/I4fSUaQhnfi24HN+LbeOftl/Pm4aH9ObLC0W9OE9ysF++ ZRqUfDT23V3oxacW3eSxXTYDrWOr22579eE33V+0+h/OgEZB8qmOs/3Yr3i5 T+2zGeDd+cDPxL0fH41zxnkvZiBwwC8jJ7Af08wl9tx8NwMFU7tlLOL78aH6 M4eUG2cgp2n+hFRbP57+xOvsKDYLCrEMZ0PDAWwQq5cwHDELqzYv/3tcdhDf KK/96R81C7dk2UqHVAfxl7+nJMUTZ8HEQsJih/Yg3r3L++62d7OgLhoW0Xdk EOsNZF3xb56FyRl/88A7g1hny9p9YjJz0Gx/P7pjfBBvLFs0tvXFHKjFta8g MRu7DD/cUJk6Bye9nb9PVbFxmtQaB/OcOfgVVxU22szG6x3R7+tlc2B/xGlZ PsnGyoRnRcXAHNxPXRocKDuE15gNPjNTm4eiazNihOcQXkZ+3XMtdx6uOe7Z /UOegx+HY+sBPA8O2w+opqpwsKR6ps+h8nmouv5o2EmDYs9Hmeta54HkMZsp NODg5Tw2srXT87BOrj4wxpmDZZdNjK3csQBGpaq/jHM5OOb9APP2ngWw6jy/ VrqIg+XMf6iMGS9Abcu3iaZyDl4Z/8m6wnIB+l0/KK9o4+BVKneqXf0WYPfq Vbu6ZjhYAeRfFJcsgMaaKW1THS5O+iNapFq9AIoaNbziu7hYIZC/PbJxAXJc yphlRly8roLNPN+7AMO5ir8mT3LxAyWzwsW8NJRxr7A1woOLI7PWKmeupaHU i35V0elc3MQbu7VPiYbe+62sNsnlYomjkrtl1Gio/uja72MfufjRpKBVsCYN bTLI+y5YxcWPdYcfntSnoQ8SXgftu7n4aVk+neccDYntlQGuKImHO9I9SUca 4j66xrdJisT600l/2y/Q0OuwjEZbWRKPqt7/k+1BQz/zg27GKpLYOOL8J7sQ GrosFTdtpUNihoWMX2UyDc2/bJkgrEl83J01lfOaun8mcoftGRK/vSfgmvCW hujdXg7J50hsXjxq5ZNLQz9ag8/R3Eics64aqZXRUICrcPWsH4nPj/jSInpp yPDhx8AVsSQuXnLJ4+ogDbkrvN3q+5zEkmsdhh24NJRnbJ1Z/YLEX44d7fhv nIZCO1In0RsSr/yoVjTGR0cN30RiLuSR2L1pjVbnYjqSTpg+fbSAxNXk8vQa ITranpjRo1pIYq9Vi+KSxelIylF82ZvPJG648fvaibV0pG9sIPSvmsTK8Y0T u5XoyMlu7M6pWhL75Ve5bF5PR68PHCzMryOxGifXcokGHWGtO5t2N5M4kD+t eUKLjuZHdV0vtpK4XS7xQLcOHW2e3XEqop3EIaZh8HEXHZl6yOs8/03iX+eD c18a0JFHgrDK/T8k1gjy2RC5j44mgm0+X+oicWeuvZzLYToKW5o8tLiPxDor di6stKWjo49kBH04JDYwb3CzsacjL1lbOYIk8eGos70JjlQ9lgPyD4YpPaVC qxUu05HwOiP26X+UHsfld9p70tHTA2Hp6aMk9n+Unf3Sl45GLnVbssdI/FS8 PUo1mI5c7s54Kk+SOOmws4jzLToK4fXsUpsiceZ9esDbUDpi+nmpy0+TuLDu wfhwBB21/HJ3pM+QuIJQdNj8iI4qtpK3vlHccLDg58Uoqv5u53u3Z0nccc/Y 5F0sHfF63/bUmCPxUM2fkvEEOiLqug2qKZ4UuqyllUJHO+fXzJnOk5h3v8Ab zzd09PkQLfILxcw7UXIF6VT/7DREFRdILFOldn82m446Be5eukLxOsFi/h3v 6SjFuO19NsWbDY94XftIR/tvTXf+pnhHSD+n6BMdXTJuJKn3cby3zNua8YWO sp3MO6j3dXyUX6Txv0pKn+nb2aMU2+x+bhBUQ0fp+g6OzRQ7B2p8+FJH6d23 SCCFYq/P5RsEmuno7JtrN+woDmKYJxi2U/WnjA+yKA7bSUrc/k1H+WrRm1Op +Udf97/1tYuO+GpfntKgOAWLzwv1U3qcOu3ymqo/ez7F9cAQNf6AxBkRiot0 dXrChunIrlgGWVP6ffX5drxulI7qrzTT4il9WwpsvopO0VF0c1ZyDdWPrukx ODJHR5pcRY1Bql/cbTezIukMZMOf9/If1c9pD5l1LXwMxE0Z4mNPkJg1oSds JsxASd3JVxKo/stqNvlFsxgoq9gj1Jbyh/Llc2M/JRhIMTvgnijln53/7v2w kmOgzNF9h7ZT/tq3efXB56sZKNEheVk2l1r/rjmfu9Yx0Hd0qWI55c8L5I9X dhsZqO6P0FTGAIl91C7IpqgzECep3KOT8nOIE0/EgBYD5eLvA7ReEseylTwd dzJQ0QHpxEWdJK7pc9d3M2Ug11e/nuhQ66lNQbAg6ygD9e5YVvKjicQ9Z56p jZ1kIKMLaMChgcSzXZ/FPU4z0KOMCSWTbyRW6WB2+15ioPDkbWm7S6j86ltZ 7O7BQIdUFa+FfKLmx90Y5+LDQLdyipILqDzInj1obh3IQD4nffn+UfmhIxXe sOsBA622ypJOovLl1Mr4TN3HDOR7fW/d+Zckvr4uI0wzmqp3tcuQfBKJSzS+ 71NMZKD7zB4TSyq/9pkSpUuyGahwvoYpF07554R8Am8eA8VV9bHs71L+sNrk N1fAQAObTwXH36TWi7OJLvmZgXQKf5b3UHlofjv8XV09A9k5Ko9kuZLYsYRI evKPgcoNlWPtjUkcWiUfGDHBQFEakPzekMTpdZtsbs8wkOMbpt7MLiq/O0xk fXl4KL8abTu4ndJ/LjzSSpQH6X+45rpzHYnvaLJurNvCg3gUY3X+m+Xi1BSW /Ts3HiQormvf/JSLAxvxTp4rPKimJUMl8z4XmzOcpE28edDrFQ+2e9/hYkHz spqhAB7kY2hl0uLLxXYiPhprHvIgWs3dr4WWXLzSvYdxP5cHZbva/0Irqf3t v7xnF2Z5UN6Eh5P2Aw4+f+HMlUIaL/J/tSGq7xYH6z1jmSzl40V5t2LSAvw4 +O+4I2+KEC9SOe0UHULt18av5M//luVF+ZcuqX3R52AB4raW8U5e9NMgUl58 Ygj7/LKoVwnmRQ4HCkgVwyE8qq/77MwtXoQyIq6M6w5hxwyZs7GhvEjzb59O xuYhbBbYPs16xIt8xnSeTEgPYW3lE6umk3lRr13d3nIOG09dPuxaXsGLfmsf RtdC2dhdyEjkjBAferJp21u3kkHsqqNlFPOAD9XaZCjw8Q5gmvODa/ce86GX 6pwpifF+HBo7nHU9mg+5WpSlyvT341eMlzKnE/nQl7aAOp6v/bizXIq7LpsP fWyI/7bzfj8+fGQmLKOeD4WNv0n2l+vHms6FTSUsfrR0jOVuuKEPT8fusmGH 8SO5oluLb6/vwbUXnlpdeb4IcTXftw4bdeBt+qvmf8YLoNZ1JqfvOzbhit3b UlD0YhQQ9zBx+G4ZfpHxZFvna0H0fGR5ctVFWxBfrepw6uUS5BLUGsuI+gJ1 dAF/qQ9L0c3QoCuJ003wTuBiUm2FENrD6RHSresAVXGmg02pMFK7GuA+trsH RN8WvHlRIYy6J5cNjBzrgWmDs2R/tTBy0uPT7T7XA+U+hZdcmoQRd8lGq+d3 e8C22/GaT58wujm42eN2Qw88y6p4ELlYBI2eNlASsOoFYdMAXLlfBGnrrGm1 c+qDMbYaQ9hUBPlkrter9u2DH0Ftu0yOiqBu8yOHFUL74NX7TZXNp0RQtHiP cXpaH+yR72jodhFBEvxTT1eRfXB1WGdwPlwEpe4pfOTh1A9k6LjYliYRNJXf yvPGcgCGhmWL17eJIOXMnn5zpwEYNNV3UfwlgtyDeLfRvQegW+JxxYpeEXS3 +vrC6sgBaIvZdlVgXARxj8+e+141ADbHCv9xBZnIhDHAKVUfhP1n6RYlykyU uMm6rH92EPY9fpj1SZWJHoPZ5WkB6rxXoSSI1ZhotLageF6MDQYqprnvNzOR 7GHu6t+qbNAjnxNvtZmoPFXXbJ46/2ld2fXlyV4mOi4ZeScjlzof3rixwcWB ia7G9DZ8th0Ctyb1qzaOTOQV+8ds0HkIitZ2fj3izESldc8seKjz56kSHQcd NybKO6NSuPTuEDyljyQu9mIipZPY2Sd7CFg+5ssTbzJRio2yTxWNAwzXTXyt KUx0JR8Ti+9xwKTo16Gvr5govGibvPsjDsSJ3HmO3zDRQLGrbGMsB3ak9UJS OnX9kGadfToHvNhRXhfzmMjW+L+M3loOjJzhHxYqZyIPQ+ExLREudJ5sb9Pr Y6LIjrktsn5cWKp7LNlqgInIu9mFJiFc0JCrv3iVzUTmLdKbLt3jQkhX5dJ8 konirZd8DHrGhQ2O+Ts2TTKRweK/PO15XPDxffJcbjGBgmY86UZDXEiyFHfR XUIggw/dOudHuPBtZ/h2MyECFdx+vMZrkgur+G82RBIE8k89xD7NS0J5qAe/ 8HIC5V7yn7KTJkE87pjDrDKBNp8WPKy4h4Qd/vWay9cTSLpxT90mIxLsbQ/w aG0gUGj7siqlgyR8UNSPvriFQG4VVvI9J0iwydCsGdxOoCElMfGbjiTcuZ/5 VGAHgfRiNWX4XUl4d1ntrAIikIkPDnG9TIKAtgLNZhfF1ooholdJSCsW39y6 j0Bqwt4/A0JJaEkMnx83JtAsI/3rxQgS6DeEqsRMCOQ6dV/YNJKEw0Z8tgeP ECiMWeHX+oyEmfrRh2UWBIKMLLboGxLW5Fyw6bEk0HOdPg33tyQYPx5S47Eh 0HT57eIvmSQ8N+8u22FHUPtnadTm9yQY9NRPvXMmUIeXu4xGKQm+KqHeby8Q KE0n+XBrGQmZrgZzKW4Esg5yE3GuJEF6/gMt2p1AkUTLonPfSOBKJC3yv0qg tUN+nYktJKy2sLrpfZ1AKb2jQtVtJBxPWL7ksj+BEt+WZvb8IOHThnvC9sEE 0mC42fZ3kPDAwEPcOJRAvlOa+7f0k1ARuvmRfhiBSj4lKv4eIGG+YUhyZwSB fgwsc/dmk3DW2lpGPZJAR2VGTgdxSYhOlo5Z/5hAPnM/Gf9IEmo5jXLrnhIo c6iFafKXBG2vvauXx1DPEz9x5dc/ElyKeF+IxhFoS3NsjdAYCYn8WEHoOYF2 vveIWD9O6b/PM4U/kUC1nseKdSdIELq/RZmWRKClLrkWOyZJ0GvlvJ5KJtCK G9K2G6ZIcJdLWf/vJYFOGwg3MqdJ6Hgts6k3lUDBbeRo4gzlr5GmzN9vqedl SSUcmyVhr1a4emsGgcR3G+RPU3z1qlFOXRblV5aqdugcCVklfFpf3xFIWMt3 FWuehH7BoveluVT/HWbcgimWMfHajt8TVP46qbApNnmk/jGvgJrP1wQjtEBC 8E/ujsyPBIq3u1gfRHHB6pdFrzGBWrrziwsoHj53Wu/FJwLJzVlKdVK8Jn1F ScxnAtUvHGj+//fqE+PNux+XEuhE87XZ/3/PDtWJKAsvI5CiwFDIBMXF/vsM b1dQ/Ul/7EO9X8NEOX9VYBWBim+GN+dSrCryad/VagJ96hl4cp1i6yPeNVe+ Ecgi48PnbRRHRmkcdP1OIIWLqke6qPlX/iG/O9RT68votLEvxQvrXh2ybSRQ 3WjE20UUqzvbNlo0E6i3eNTDn9LHPlv22LFWAh1JqHjFofR7Nt3ScrCdGm/F yd2GFNeh+yf3/iRQ9sFxg4eU/otu7P/x328ChUyMvftO9UenetEp3T8E2mSb d2ee6t8F0eLfml0EYvknVktT/OKEj/XGHgKpNyp6KlH9bovV7FLqI9ASr4J7 6yg/CPcO264eIBBa20ZIUH7xcDtjL8Eh0OTxlpMllL9CjLhntUkCZQjd87cf IeHRmitnT/2l8iey2WJ6mIScphC7pDECiV132dzHIaH0LWFXOUGg30V+6/WG SGgIeXqGO0Wg7w9e/741SMI/7Te2mvMEsuPucOrpJYEhpmF7ksZCszJ470Q3 CSzOx9NXGSx0fkNg13gnCRtjv9l84WchnQu+RvgXCc48/6yOirDQxlWtyy43 Uuv7h7eVF8FCZ9hdf0frqLx6x2sVI8pCCQcCw21qSXh9VsKydxkLfSy5tG5R FeW/qm0W7itZSDC9u/UyJmEysdj86SoWuhSweqntB0rfq0bmhWtYyLapm4mo PFHYaGHGr8RC02dVnnyi8ub0g+snIjexUFrtu9bBRBLcnBafyN/CQh/2pTbo x5Pgvyfi+C8NFjK6npYRQeVZ3GTCMQVtFgrmObZ85CEJv8zLjuTosdDPkv+6 m4OoPFkrbNp0iIVkAp857rSh/DAfaTJ9hIWcLVOf+VqQcKVZzkT2OAv9koxq Tj5O+e3mpoN25ix0ylTN9YsxCfWcw8bjtiy0OGHPbVVtKh9zovZKuLNQQ4jP XIwQNd4/mwVxD0ofZTs7eQESAjYqZ4t7sdD7mzUHHjBIyHuVt0L8Kgu9Wqf9 1miC2l9iG4dFg1noKOIdpnVwYfyGyCMikqrfZEg4JI0LzNImI+IxC52+ZPpT NIULKowYGvGUhQJnNpiHxXPBykfVgRnDQkOLzT3MHnCh8oKhrkgSC5XZuNzQ 9uRCzImArqU5LKQQvZUuh7iQF7n38dI8FqoXlHXO1eJCfT2xf2k+C5nmSX1G m7ggYByXs6SQhR7v3amusIoLbnofbwp+YaGTEzef6fBwYY/KxAaBJhY6eNJm /GkxB7izDj484yx04r1dlLYmB04cN1KammChlL5yV4X1HCjJUmniTrGQPH/m Ht41HHjiMLShbY6FtJ1ezj0kOLCrxakrnU8UibIjZVhDQxCVdWHvKXFRtHs6 eZlrzBAYOLhLvlcXRQN0C0X2JBuySo+WpmmKIta5Dd/kuGyQld/qlqglimTz U4X0u9jwr3mi6p6OKJo4GGLnVM2GmN2e1+x2iaI0BTHp5fFsGF3p0yt6WBQ1 7L4Ak7vZEN/sl+18URSViZ5H3KBB6C3d+Dv0siiy7Xhwws1jEFSzfy9+e0UU Rfs7XOtzGIScMF1L0lsUddDyRV4cGISvhlOLLwSKos/stdLOkoMwWXDB0vWh KBpV8cnfkTwAxnGWgpdyRdHwzvM5rPx+mLbXtfKcEUWFWs9rbHN6YW+BMro8 J4qKu4ZD7yX1QpSQ5ErXBVHUa39d+W1kL+hkjvy25xFD1pUvWNXuvXB1Jtny +BIxtL1APCBQsxd4QlmWW6XFkCEjsak/qweWZvVZjGmLoZjS/3+M6YYVc+Fm rl5iqLVAhuvr3Am9+rcrBXjF0cDCtykrkzb4rPAVZG+Lo2Pflh2sEasBB4Ek XvnFEsiYJvmKpZIOuXFrdD+HSyAFMydOPF8RrtmuU2pKLEPvss0S/vHU40mH qENWocvQ4LuwqvHtP3H5wdgjQhKSaPuE8nL6qy7sUNJTuEhSEikZJxgmFnRh IS1VRcZySRQkJl+nW92FTeXeT4+vkEQP9IqrDg134XZOXWzHWkl0JSnfVVCz G3Nv8Q9maUiiNsZuqSjcjcVLna6ePCKJ4oOsT4lU9WCbbTrJyQ8kUZcyb8H1 T334HKd67EekJEqv9rytWdeHL8Rb7mI9kUTly382/ezsw9cWB/zxeSaJtom2 v6Px9uPo1gpp0yRJdPP8a6/I3f24yfNY2GyuJOpYVu44VdqP9+a7eZq0U+Of YG0/UTCATZx5y4N/SqLO7pdOKpUD+PiqSIkPvyWR7156P6dlAJ+99T5LoZuq /+vsvf/GB3DgSRp3ZkgSncx4lrVx4yAunL5rkzQviewuL30mGD+IS9PkMtpp UijIWF3pZ9og/mqTscDkkUKu5jmusR8GcXtlQ7T3IikUr6Ev8a95EE8+lW4+ yJRC9yR1ShuF2HjBOHVtMEsKuYSHGa2VZmN+HrhUICaF/v3csc9WkY3FztsQ ClJSSGz/2eh0PTaWlhu1NJOWQi3tre0fD7DxqvqgtLAVUujwykeX883ZWPnG srlSOSnEeJFtnXSOjTdtf2k0Iy+F2mVNH/u5s/H/AF0VYkY= "]]}, Annotation[#, "Charting`Private`Tag$29107#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVmHk8VN8bx2fGkhTmjiUi0iJb2pBE58m3QkrRHrIkSZaoZK2saRMqLWSJ 0EK2EOVIZItkX1pkZ8xcyb7+7m/+mdf7de/r3PN8ns/5nHuuvI2L6RkGjUZj 02m0///zYMGaLg2/HY4L//+ReO1A4XbZ+5bI64GY5iTF0+kbbFsjXJDz+M+W DoozxlEjkXYFhQSe7X9PcY+Y/WROxDWEN5fYBlB8R6pcKK0gAH24KWysS3GS onksLe0GqkiyT+ybJ3HR1uGNh+Juo8/bZ8/6U9y2J7D4RcQ9xHNv+rEQxdPK S5V9isORkXf01ptzJL6xucntRcF9lOCyatfYLInFtOMKarIfIj2XhkITiuN3 OvBOpj5CpwlGSswMidUM1ffLJz9Ba/wYtB/TJC44OP9wb1wUOumrXraY4kbL iHXPImLRwER1ouYkVc8WNa2u0jhU2SD5QWOCxFe23v9xpTge4WmzXWvHScyL LNbGFySgofU9Lxv/kbhSr7hCIy8RcdWMQiJHSBy+Z51zZfYLJGg10Kr/l8Sy xn9z/qUmI29f61ZvLom7TY6ahbxKQVKDj0Lmh0j8+kjBgkzyS1QQjFNd2STW sggy2BP3GpUHcc2V+kls6ijV9jjiLUp1Lz/zq4PES7UQjtRPRxv2Hmzv/kXi 4feuxJ/SdJSBkqrbf5A452PTu8vFGUgzPF81qoXE/5XGzccUZCEzpxUjlt9I rKBff3BgWzZ6QXidH/xKYsEKvoQtedlIbcHW4UwliWu/OuiXZ79DfbyNc6ql JLZoUA/7m5qLngYYxzLySQxHz3ZuV81DGzylzhG5JF7T8kQ9+FUe+ssj/pmZ TeLB9vmW5cnvUdQP3/V/Uin9usrld8UVoGNr2/kr4ih9RsyzIiMwOiYcoJ0T QOK74k91ioSKUPiFeIbXNRLXZQTJaZgWIaX4yVIVbxKbDZr3yLYXoeg+DYMT biR2NlviOjL0CWnNnvf/YUniB7r2IU+YJYhv/zWV4K0kbm09dF74SAmqvKbd o7yZ0t8dGQc8KUGXVe2/fFQlcXKahJjTqlL0rvzekjR5EufLlcaC+hcUVOUz nSdI4t/0Vbl9x8pRsNyDY96tXLwmRuipeXQ5gqptorz1XGyvPeXzvaMc5T0t UvX+ysUjbrV6BecqkPU7lxB1zMW83VdrQr0rUdgOr/0NCVys/KW9RyP2K8qO ORtSdY6Lt5fuFdS7WIuU1snF5vRzMLMh6dvW+7WohO+KalIHB3d3Mh6uz6pF y9oW1Qe3cHAorUBO6l8tei7P9JEu5+DO7Soaw27fEfFmNj0iiYNDMpdYxbjV IcPw8OMfrDi4Kfbru2nXBuS0aV+mdOUQfp2m6D0c3oBWqlbUaBYN4esfA6E3 owGVxZ188F/OEFZq16n6/rcBXWqNUtv8fAj7SKR2pLg2ovsr9qvaeg7h1Xfv Ljnm2oQMj9lWyK0dwhe8jK2zLrQgW4u0ruVubLzXWSdFIKwFTYeF9r21Y+PV NsqkxdsWdM3qU/lWMzZuMuT3FeC2IMc1q7et3MXGulKFjy3Ot6IM7mGnw+Js LJi3vnaRXRvK/t0meuDdIH4xthSZm/1APx1mV+awB7BT3plQxuoOtCP2lf6L Lf3UejZZSVfvQPyVTw16Vvfj4VadzIVdHSjT6f7rZWL9+NKMaNOsXQdy5zEu ODTah712FK+YeNWBNO+fnlPK7sPBJbKp7M1/UNvWMtqxTX04rra5qkGvE+mk O24ale/FDf2Gi5NtutGIOdYx/9WFb20Yp+Wc6EcuPVHp7da/sKtK+cOiF0Po WJtLD696PZ4+fT7tp/MwEotli6zcWohtPh49GGY3ghTTI+KjLr1Bp/82FBWF jKKJJHU1nZEadGdjrktS8Dj6oflHYr9MG2IU5W4N9JpErfqr3rI7/qBXQqyk Of9J9Kg9P6ds9A8yNXMUu3Kbuh60//UTgU6UML7y77noSSRdz1aT29iJdq2/ 9epA4STSCpRweHu1EwU/NV8hzZhCTc/Oi7ZLdSHBy3SezJtTaJX05QBRg25E KBvV/H48jYqZvRXYrxf1LoolyuOmUYHMxO648F6U3zNyOD1lGoUzvxZcju9F tvFP26/nTaOH9ObLC0W9KE9ysF++ZRop+Wjsu7vQi04tuslju2wGtY6tbrvt 1YfedH/R6n84gzQKkk91nO1HfsXLfWqfzSDenQ/8TNz70dE4Z5z3YgYFDvhl 5AT2I5q5xJ6b72ZQwdRuGYv4fnSo/swh5cYZlNM0f0KqrR9Nf+J1dhSbRQqx DGdDwwFkEKuXMBwxi1ZtXv73uOwgulFe+9M/ahbdkmUrHVIdRF/+npIUT5xF JhYSFju0B9HuXd53t72bReqiYRF9RwaR3kDWFf/mWTQ5428eeGcQ6WxZu09M Zg4129+P7hgfRBvLFo1tfTGH1OLaV5CYjVyGH26oTJ1DJ72dv09VsVGa1BoH 85w59CuuKmy0mY3WO8Lv62VzyP6I07J8ko2UCc+KioE5dD91aXCg7BBaYzb4 zExtHhVdmxEjPIfQMvLrnmu58+ia457dP+Q56HE4th7A88hh+wHVVBUOklTP 9DlUPo+qrj8adtKg2PNR5rrWeUTymM0UGnDQch4b2drpebROrj4wxpmDZJdN jK3csYCMSlV/GedyUMz7AebtPQvIqvP8WukiDpIz/6EyZryAalu+TTSVc9DK +E/WFZYLqN/1g/KKNg5apXKn2tVvAe1evWpX1wwHKSD5F8UlC0hjzZS2qQ4X Jf0RLVKtXkCKGjW84ru4SCGQvz2ycQHluJQxy4y4aF0Fm3m+dwEN5yr+mjzJ RQ+UzAoX89Ig415ha4QHF0VmrVXOXEuD1It+VdHpXNTEG7u1T4kG7/1WVpvk cpHEUcndMmo0qD+69vvYRy56NCloFaxJg00Ged8Fq7jose7ww5P6NPgg4XXQ vpuLnpbl03nO0UBsrwziipJouCPdk3SkAffRNb5NUiTSn076236BBq/DMhpt ZUk0qnr/T7YHDX7mB92MVSSRccT5T3YhNLgsFTdtpUMihoWMX2UyDeZftkwQ 1iQ67s6aynlN3T8TucP2DIne3hNwTXhLA3q3l0PyORKZF49a+eTS4Edr8Dma G4ly1lWDWhkNAlyFq2f9SHR+xJcW0UsDw4cfA1fEkqh4ySWPq4M0cFd4u9X3 OYkk1zoMO3BpkGdsnVn9gkRfjh3t+G+cBqEdqZPwhkQrP6oVjfHRoeGbSMyF PBK5N63R6lxMB+mE6dNHC0hUTS5PrxGiw/bEjB7VQhJ5rVoUlyxOBylH8WVv PpOo4cbvayfW0kHf2EDoXzWJlOMbJ3Yr0cHJbuzOqVoS+eVXuWxeT4fXBw4W 5teRSI2Ta7lEgw5Y686m3c0kCuRPa57QosP8qK7rxVYStcslHujWocPm2R2n ItpJFGIahj7uooOph7zO898k+nU+OPelAR08EoRV7v8hkUaQz4bIfXSYCLb5 fKmLRJ259nIuh+kQtjR5aHEfiXRW7FxYaUuHo49kBH04JDIwb3CzsaeDl6yt HEGS6HDU2d4ER6oeywH5B8OUnlKh1QqX6SC8zoh9+h+lx3H5nfaedHh6ICw9 fZRE/o+ys1/60mHkUrcle4xET8Xbo1SD6eByd8ZTeZJESYedRZxv0SGE17NL bYpEmffpAW9D6cD081KXnyZRYd2D8eEIOrT8cnekz5CoglB02PyIDhVbyVvf KG44WPDzYhRVf7fzvduzJOq4Z2zyLpYOvN63PTXmSDRU86dkPIEORF23QTXF k0KXtbRS6LBzfs2c6TyJePcLvPF8Q4fPh2iRXyhm3omSK0in+menIaq4QCKZ KrX7s9l06BS4e+kKxesEi/l3vKdDinHb+2yKNxse8br2kQ77b013/qZ4R0g/ p+gTHS4ZN5LU+zjaW+ZtzfhCh2wn8w7qfR0d5Rdp/K+S0mf6dvYoxTa7nxsE 1dAhXd/BsZli50CND1/qKL37FgmkUOz1uXyDQDMdzr65dsOO4iCGeYJhO1V/ yvggi+KwnaTE7d90yFeL3pxKzT/6uv+tr1104Kt9eUqD4hQsPi/UT+lx6rTL a6r+7PkU1wND1PgDEmdEKC7S1ekJG6aDXbEMWFP6ffX5drxulA71V5pp8ZS+ LQU2X0Wn6BDdnJVcQ/Wja3oMHZmjgyZXUWOQ6hd3282sSDoDbPjzXv6j+jnt IbOuhY8B3JQhPvYEiVgTesJmwgxI6k6+kkD1X1azyS+axYCsYo9QW8ofypfP jf2UYIBidsA9Uco/O//d+2Elx4DM0X2HtlP+2rd59cHnqxmQ6JC8LJtLrX/X nM9d6xjwHS5VLKf8eYH88cpuIwPq/ghNZQyQyEftgmyKOgM4SeUenZSfQ5x4 Iga0GJCLvw/QekkUy1bydNzJgKID0omLOklU0+eu72bKANdXv57oUOupTUGw IOsoA3p3LCv50USinjPP1MZOMsDoAgw4NJBotuuzuMdpBjzKmFAy+UYilQ5m t+8lBoQnb0vbXULlV9/KYncPBhxSVbwW8omaH3djnIsPA27lFCUXUHmQPXvQ 3DqQAT4nffn+UfmhIxXesOsBA1ZbZUknUflyamV8pu5jBvhe31t3/iWJrq/L CNOMpupd7TIkn0SiEo3v+xQTGXCf2WNiSeXXPlOidEk2Awrna5hy4ZR/Tsgn 8OYxIK6qj2V/l/KH1Sa/uQIGDGw+FRx/k1ovzia65GcG6BT+LO+h8tD8dvi7 unoG2Dkqj2S5ksixhEh68o8B5YbKsfbGJAqtkg+MmGBAlAZKfm9IovS6TTa3 Zxjg+IapN7OLyu8OE1lfHh7Kr0bbDm6n9J8Lj7QS5QH9D9dcd64j0R1N1o11 W3iARzFW579ZLkpNYdm/c+MBQXFd++anXBTYiHfyXOGBmpYMlcz7XGTOcJI2 8eaB1ysebPe+w0WC5mU1QwE84GNoZdLiy0V2Ij4aax7yAK3m7tdCSy5a6d7D uJ/LA9mu9r9gJbW//Zf37MIsD+RNeDhpP+Cg8xfOXCmk8YL/qw1Rfbc4SO8Z y2QpHy/k3YpJC/DjoL/jjrwpQrygctopOoTar41fyZ//LcsL+ZcuqX3R5yAB 4raW8U5e+GkQKS8+MYR8flnUqwTzgsOBAlLFcAiN6us+O3OLFyAj4sq47hBy zJA5GxvKC5p/+3QyNg8hs8D2adYjXvAZ03kyIT2EtJVPrJpO5oVeu7q95Rw2 mrp82LW8ghd+ax+Ga6Fs5C5kJHJGiA+ebNr21q1kELnqaBnFPOCDWpsMBT7e AURzfnDt3mM+eKnOmZIY70ehscNZ16P5wNWiLFWmvx+9YryUOZ3IB1/aAup4 vvajznIp7rpsPvjYEP9t5/1+dPjITFhGPR+Ejb9J9pfrR5rOhU0lLH5YOsZy N9zQh6Zjd9mww/hBrujW4tvre1DthadWV54vAq7m+9Zhow60TX/V/M94AWhd Z3L6vmMTqti9LQWiF0NA3MPE4btl6EXGk22drwXh+cjy5KqLtlh8tarDqZdL wCWoNZYR9QXX0QX8pT4shZuhQVcSp5vwO4GLSbUVQrCH0yOkW9eBVcWZDjal wqB2NcB9bHcPFn1b8OZFhTB0Ty4bGDnWg6cNzpL91cLgpMen232uB5f7FF5y aRIG7pKNVs/v9mDbbsdrPn3CcHNws8fthh78LKviQeRiERg9baAkYNWLhU0D cOV+EdDWWdNq59SHx9hqDGFTEfDJXK9X7duHfwS17TI5KgLd5kcOK4T24Vfv N1U2nxKBaPEe4/S0PrxHvqOh20UEJPinnq4i+/DVYZ3B+XARSN1T+MjDqR+T oeNiW5pEYCq/leeN5QAeGpYtXt8mAsqZPf3mTgN40FTfRfGXCLgH8W6jew/g bonHFSt6ReBu9fWF1ZEDuC1m21WBcRHgHp89971qANscK/zHFWSCCWOAU6o+ iPefpVuUKDMhcZN1Wf/sIN73+GHWJ1UmPEZml6cFqPNehZIgVmPCaG1B8bwY GxuomOa+38wE2cPc1b9V2ViPfE681WZCeaqu2Tx1/tO6suvLk71MOC4ZeScj lzof3rixwcWBCVdjehs+2w5htyb1qzaOTPCK/WM26DyEi9Z2fj3izITSumcW PNT581SJjoOOGxPyzqgULr07hJ/SRxIXezFB6SR29skewiwf8+WJN5mQYqPs U0XjYIbrJr7WFCZcycfE4nscbFL069DXV0wIL9om7/6Ig+NE7jzHb5gwUOwq 2xjLwTvSelFSOnX9kGadfToHe7GjvC7mMcHW+L+M3loOHjnDPyxUzgQPQ+Ex LREu7jzZ3qbXx4TIjrktsn5cvFT3WLLVABPIu9mFJiFcrCFXf/EqmwnmLdKb Lt3j4pCuyqX5JBPirZd8DHrGxRsc83dsmmSCweK/PO15XOzj++S53GICgmY8 6UZDXJxkKe6iu4QAgw/dOudHuPjbzvDtZkIEFNx+vMZrkotX8d9siCQI8E89 xD7NS+LyUA9+4eUE5F7yn7KTJrF43DGHWWUCNp8WPKy4h8Q7/Os1l68nQLpx T90mIxLb2x7g0dpAQGj7siqlgyT+oKgffXELAW4VVvI9J0hsk6FZM7idgCEl MfGbjiS+cz/zqcAOAvRiNWX4XUn87rLaWQUgwMQHh7heJrGAtgLNZhfF1ooh oldJnFYsvrl1HwFqwt4/A0JJ3JIYPj9uTMAsI/3rxQgS028IVYmZEOA6dV/Y NJLEh434bA8eISCMWeHX+ozEM/WjD8ssCEAZWWzRNyRek3PBpseSgOc6fRru b0ls/HhIjceGgOny28VfMkn83Ly7bIcdQe2fpVGb35PYoKd+6p0zAR1e7jIa pST2VQn1fnuBgDSd5MOtZSTOdDWYS3EjwDrITcS5ksTS8x9o0e4ERBIti859 IzFXImmR/1UC1g75dSa2kHi1hdVN7+sEpPSOClW3kfh4wvIll/0JSHxbmtnz g8SfNtwTtg8mQIPhZtvfQeIHBh7ixqEE+E5p7t/ST+KK0M2P9MMIKPmUqPh7 gMTzDUOSOyMI+DGwzN2bTeKz1tYy6pEEHJUZOR3EJXF0snTM+scE+Mz9ZPwj SVzLaZRb95SAzKEWpslfEmt77V29PIZ6nviJK7/+kdiliPeFaBwBW5pja4TG SJzIjxWEnhOw871HxPpxSv99nin8iQTUeh4r1p0gsdD9Lcq0JAKWuuRa7Jgk sV4r5/VUMgErbkjbbpgisbtcyvp/Lwk4bSDcyJwmccdrmU29qQQEt5GjiTOU v0aaMn+/pZ6XJZVwbJbEe7XC1VszCBDfbZA/TfHVq0Y5dVmUX1mq2qFzJM4q 4dP6+o4AYS3fVax5EvcLFr0vzaX67zDjFkyxjInXdvyeoPLXSYVNsckj9Y95 BdR8viYYwQKJg39yd2R+JCDe7mJ9EMUFq18WvcYEtHTnFxdQPHzutN6LTwTI zVlKdVK8Jn1FScxnAuoXDjT//3v1ifHm3Y9LCTjRfG32/9+zQ3UiysLLCFAU GAqZoLjYf5/h7QqqP+mPfaj3azxRzl8VWEVA8c3w5lyKVUU+7btaTcCnnoEn 1ym2PuJdc+UbARYZHz5vozgySuOg63cCFC6qHumi5l/5h/zuUE+tL6PTxr4U L6x7dci2kYC60Yi3iyhWd7ZttGgmoLd41MOf0sc+W/bYsVYCjiRUvOJQ+j2b bmk52E6Nt+LkbkOK6+D+yb0/Ccg+OG7wkNJ/0Y39P/77TUDIxNi771R/dKoX ndL9Q8Am27w781T/LogW/9bsIoDln1gtTfGLEz7WG3sIUG9U9FSi+t0Wq9ml 1EfAEq+Ce+soPwj3DtuuHiAA1rYREpRfPNzO2EtwCJg83nKyhPJXiBH3rDZJ QIbQPX/7ERI/WnPl7Km/VP5ENltMD5M4pynELmmMALHrLpv7OCQufUvYVU4Q 8LvIb73eEIkbQp6e4U4R8P3B69+3Bkn8T/uNreY8AXbcHU49vSRmiGnYnqSx YFYG753oJjGL8/H0VQYLzm8I7BrvJPHG2G82X/hZoHPB1wj/IrEzzz+royIs 2LiqddnlRmp9//C28iJYcIbd9Xe0jsqrd7xWMaIsSDgQGG5TS+LXZyUse5ex 4GPJpXWLqij/VW2zcF/JAsH07tbLmMSTicXmT1ex4FLA6qW2Hyh9rxqZF65h gW1TNxOoPFHYaGHGr8SC6bMqTz5ReXP6wfUTkZtYkFb7rnUwkcRuTotP5G9h wYd9qQ368ST23xNx/JcGC4yup2VEUHkWN5lwTEGbBcE8x5aPPCTxL/OyIzl6 LPhZ8l93cxCVJ2uFTZsOsUAm8JnjThvKD/ORJtNHWOBsmfrM14LEV5rlTGSP s+CXZFRz8nHKbzc3HbQzZ8EpUzXXL8YkruccNh63ZcHihD23VbWpfMyJ2ivh zoKGEJ+5GCFqvH82C+IelD7KdnbyAiQO2KicLe7Fgvc3aw48YJA471XeCvGr LHi1Tvut0QS1v8Q2DosGs+Ao8A7TOrh4/IbIIyKSqt9kSDgkjYuZpU1GxGMW nL5k+lM0hYtVGDE04ikLAmc2mIfFc7GVj6oDM4YFQ4vNPcwecHHlBUNdkSQW lNm43ND25OKYEwFdS3NYoBC9lS4HXJwXuffx0jwW1AvKOudqcXF9PbF/aT4L TPOkPsMmLhYwjstZUsiCx3t3qius4mI3vY83Bb+w4OTEzWc6PFy8R2Vig0AT Cw6etBl/WszB3FkHH55xFpx4bxelrcnBJ44bKU1NsCClr9xVYT0Hl2SpNHGn WCDPn7mHdw0HP3EY2tA2xwJtp5dzDwkO3tXi1JXOJwqi7EgZ1tAQjsq6sPeU uCjsnk5e5hozhA0c3CXfq4vCAN1CkT3JxlmlR0vTNEWBdW7DNzkuG8vKb3VL 1BIF2fxUIf0uNv7XPFF1T0cUJg6G2DlVs3HMbs9rdrtEIU1BTHp5PBuPrvTp FT0sCg27L6DJ3Wwc3+yX7XxRFMpEzwM3aBD3lm78HXpZFGw7Hpxw8xjEqtm/ F7+9IgrR/g7X+hwGcU6YriXpLQodtHyRFwcG8VfDqcUXAkXhM3uttLPkIJ4s uGDp+lAURlV88nckD2DjOEvBS7miMLzzfA4rvx9P2+taec6IQqHW8xrbnF68 t0AZLs+JQnHXcOi9pF4cJSS50nVBFHrtryu/jezFOpkjv+15xMC68gWr2r0X X51Jtjy+RAy2F4gHBGr2Yp5QluVWaTEwZCQ29Wf14KVZfRZj2mIQU0qFT1I3 XjEXbubqJQatBTJcX+dO3Kt/u1KAVxwGFr5NWZm04c8KX5HsbXE49m3ZwRqx GuwgkMQrv1gCjGmSr1gq6Tg3bo3u53AJUDBz4sTzFaGa7TqlpsQyeJdtlvCP px5NOkQdsgpdBoPvwqrGt/9E5QdjjwhJSML2CeXl9FddyKGkp3CRpCQoGScY JhZ0ISEtVUXGckkIEpOv063uQqZy76fHV0jCA73iqkPDXaidUxfbsVYSriTl uwpqdiPuLf7BLA1JaGPslorC3Ui81OnqySOSEB9kfUqkqgfZbNNJTn4gCV3K vAXXP/Whc5zqsR+RkpBe7Xlbs64PXYi33MV6Ignly382/ezsQ9cWB/zxeSYJ 20Tb39F4+1F0a4W0aZIk3Dz/2itydz9q8jwWNpsrCR3Lyh2nSvvR3nw3T5N2 avwTrO0nCgaQiTNvefBPSejsfumkUjmAjq+KlPjwWxJ899L7OS0D6Oyt91kK 3VT9X2fv/Tc+gAJP0rgzQ5JwMuNZ1saNg6hw+q5N0rwk2F1e+kwwfhCVpsll tNOkIMhYXeln2iD6apOxwOSRAlfzHNfYD4OovbIh2nuRFMRr6Ev8ax5Ek0+l mw8ypeCepE5poxAbLRinrg1mSYFLeJjRWmk24udBlwrEpODfzx37bBXZSOy8 DaEgJQVi+89Gp+uxkbTcqKWZtBS0tLe2fzzARqvqg9LCVkjB4ZWPLuebs5Hy jWVzpXJSwHiRbZ10jo02bX9pNCMvBe2ypo/93Nnof+ucgMY= "]]}, Annotation[#, "Charting`Private`Tag$29107#2"]& ]}, {}, {}}, 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, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange-> NCache[{{0, 2 Pi}, {-0.9999999999999836, 0.9999999999999836}}, {{ 0, 6.283185307179586}, {-0.9999999999999836, 0.9999999999999836}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8170622750627365`*^9, 3.8170622858069324`*^9}}, CellLabel->"Out[41]=",ExpressionUUID->"fdf72feb-2be7-4192-b4c5-85f7679b4b1f"] }, Open ]] }, WindowSize->{1366, 685}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, FrontEndVersion->"11.3 para Microsoft Windows (64-bit) (March 6, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 256, 7, 115, "Text",ExpressionUUID->"c2b81261-2de1-40b9-9f67-ee0df9ed1b1d"], Cell[CellGroupData[{ Cell[839, 31, 420, 10, 45, "Input",ExpressionUUID->"6399800c-3e69-41d0-aacc-9814aabc2582"], Cell[1262, 43, 321, 7, 55, "Output",ExpressionUUID->"b1d47618-8562-4ca1-977f-09d30d9609c6"] }, Open ]], Cell[CellGroupData[{ Cell[1620, 55, 262, 5, 45, "Input",ExpressionUUID->"bee5040c-7b19-4a9c-9fe4-fe3380066484"], Cell[1885, 62, 422, 10, 21, "Message",ExpressionUUID->"d436d996-8dc9-48c3-a85d-69828f8b6a2d"], Cell[2310, 74, 391, 9, 55, "Output",ExpressionUUID->"5e5a1428-dad1-4bdd-8f5b-e45cd9dfe264"] }, Open ]], Cell[CellGroupData[{ Cell[2738, 88, 339, 8, 45, "Input",ExpressionUUID->"9c0b4167-ebc9-41ca-a4a0-24e4987645fc"], Cell[3080, 98, 32001, 542, 239, "Output",ExpressionUUID->"6db1af30-90cb-42f3-85af-801f74136cc5"] }, Open ]], Cell[35096, 643, 256, 9, 122, "Text",ExpressionUUID->"8c977fde-9b16-44bd-8bd3-f261af00b3ed"], Cell[CellGroupData[{ Cell[35377, 656, 1362, 41, 232, "Input",ExpressionUUID->"1c29d345-e77c-4862-9dfe-a0d53d7f2f6b"], Cell[CellGroupData[{ Cell[36764, 701, 651, 16, 22, "Print",ExpressionUUID->"b01639f6-eaef-44d8-8043-05a709c7a46f"], Cell[37418, 719, 658, 16, 22, "Print",ExpressionUUID->"fc8fbd28-ffc2-479a-ae1f-d92b0be4ce23"], Cell[38079, 737, 661, 16, 22, "Print",ExpressionUUID->"8227d081-0035-4770-b437-91634563d695"], Cell[38743, 755, 666, 16, 22, "Print",ExpressionUUID->"af382c71-2efe-4ba9-97e2-a6064dc41e96"], Cell[39412, 773, 667, 16, 22, "Print",ExpressionUUID->"3934ab6c-df41-4d10-89e6-4c3662a702b7"], Cell[40082, 791, 676, 17, 22, "Print",ExpressionUUID->"601ecea9-fe9b-49e7-9395-e8257791ec47"], Cell[40761, 810, 677, 17, 22, "Print",ExpressionUUID->"63e919c5-c038-441b-a41d-97a5a3b7144d"], Cell[41441, 829, 677, 17, 22, "Print",ExpressionUUID->"e39c2a2f-688c-443c-b759-b74991e7bedf"], Cell[42121, 848, 683, 17, 22, "Print",ExpressionUUID->"e31611b0-05d7-4b27-b246-bb066ca7eb1d"], Cell[42807, 867, 702, 17, 22, "Print",ExpressionUUID->"98a4069f-c322-4e5c-99d1-3a665c8e2256"], Cell[43512, 886, 703, 17, 22, "Print",ExpressionUUID->"e7448de5-b4fe-4bb7-8a98-2a5708ecf72e"], Cell[44218, 905, 710, 17, 22, "Print",ExpressionUUID->"14969017-fb23-4add-98d9-73c432974c5c"], Cell[44931, 924, 714, 17, 22, "Print",ExpressionUUID->"7ce92371-9b11-40bf-8b55-4921d8242f8e"], Cell[45648, 943, 717, 17, 22, "Print",ExpressionUUID->"4f142ac3-6b4c-4434-bf72-60cfc9c0fcc4"], Cell[46368, 962, 722, 17, 22, "Print",ExpressionUUID->"bf4be8ac-fa38-48f0-8545-5735b153f4d2"], Cell[47093, 981, 724, 17, 24, "Print",ExpressionUUID->"02896104-1cbd-4390-b9f1-7c63265821e1"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[47866, 1004, 332, 8, 45, "Input",ExpressionUUID->"3b32a99c-61f9-41f6-9ea2-c2abb8da9a7b"], Cell[48201, 1014, 235, 5, 32, "Output",ExpressionUUID->"131c1c13-ea28-45bf-90c9-6f8c8e14d7b8"] }, Open ]], Cell[48451, 1022, 154, 3, 34, "Text",ExpressionUUID->"b2758360-4269-48b1-bc19-790e9577a078"], Cell[CellGroupData[{ Cell[48630, 1029, 382, 10, 28, "Input",ExpressionUUID->"59668a84-bdaf-4de1-a1a9-f03b696b9074"], Cell[49015, 1041, 378, 10, 32, "Output",ExpressionUUID->"0c58bee9-c336-4939-a64a-84c04379afec"] }, Open ]], Cell[CellGroupData[{ Cell[49430, 1056, 363, 9, 28, "Input",ExpressionUUID->"d7fdcbfd-241d-4773-845d-9aba39045fa3"], Cell[49796, 1067, 356, 9, 32, "Output",ExpressionUUID->"051f3e10-2417-458c-a67a-9aa7fb442108"] }, Open ]], Cell[CellGroupData[{ Cell[50189, 1081, 761, 22, 45, "Input",ExpressionUUID->"7b4edb65-8dfa-4dc6-a0d2-6bb47208a182"], Cell[50953, 1105, 1246, 37, 59, "Output",ExpressionUUID->"5d94713c-d467-43d9-abe6-573f6064f37b"] }, Open ]], Cell[CellGroupData[{ Cell[52236, 1147, 307, 6, 45, "Input",ExpressionUUID->"93b3c6b9-1974-4ff2-90b1-1a9f6d7479aa"], Cell[52546, 1155, 255, 5, 32, "Output",ExpressionUUID->"9487a56f-ee4f-41ac-b70c-05f44205618f"] }, Open ]], Cell[CellGroupData[{ Cell[52838, 1165, 302, 6, 45, "Input",ExpressionUUID->"a984cf08-00e1-474c-b7e3-5e498003999a"], Cell[53143, 1173, 253, 5, 32, "Output",ExpressionUUID->"a0ee605e-168e-4aa3-ac65-9434f8ffdfba"] }, Open ]], Cell[CellGroupData[{ Cell[53433, 1183, 442, 11, 45, "Input",ExpressionUUID->"a98063f2-e97d-4f8f-ab05-3075c9eef3ec"], Cell[53878, 1196, 720, 20, 55, "Output",ExpressionUUID->"09875084-1f17-4238-a9b3-7f00699a875b"] }, Open ]], Cell[CellGroupData[{ Cell[54635, 1221, 366, 9, 51, "Input",ExpressionUUID->"999c60c0-abd3-4208-b8c0-f4c0a02f0a95"], Cell[55004, 1232, 287, 7, 55, "Output",ExpressionUUID->"21dd432c-4478-44cb-9df1-16774d03e25c"] }, Open ]], Cell[CellGroupData[{ Cell[55328, 1244, 339, 7, 45, "Input",ExpressionUUID->"27389cdf-25e7-4e52-8af0-f9360b4f07ec"], Cell[55670, 1253, 236, 6, 42, "Output",ExpressionUUID->"71774861-1ed6-4245-8086-99809e134ccd"] }, Open ]], Cell[CellGroupData[{ Cell[55943, 1264, 295, 7, 51, "Input",ExpressionUUID->"6585bcac-1bdf-4390-9f0b-8208abe02338"], Cell[56241, 1273, 219, 5, 55, "Output",ExpressionUUID->"70a1189d-33ca-4467-a2fb-306f4e6c6025"] }, Open ]], Cell[CellGroupData[{ Cell[56497, 1283, 340, 7, 45, "Input",ExpressionUUID->"0d4f420b-aa13-445a-b2b4-d32511052268"], Cell[56840, 1292, 216, 5, 42, "Output",ExpressionUUID->"ad50e1e9-5155-4f18-beda-7f10d865c1d4"] }, Open ]], Cell[CellGroupData[{ Cell[57093, 1302, 423, 11, 45, "Input",ExpressionUUID->"12d0d90d-afcc-4146-88e7-39b20ba01c99"], Cell[57519, 1315, 22193, 383, 263, "Output",ExpressionUUID->"fdf72feb-2be7-4192-b4c5-85f7679b4b1f"] }, Open ]] } ] *) (* End of internal cache information *)