(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 245047, 5688] NotebookOptionsPosition[ 238344, 5466] NotebookOutlinePosition[ 238772, 5485] CellTagsIndexPosition[ 238729, 5482] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Cap. 5", "Section", CellChangeTimes->{{3.72585995386526*^9, 3.725859956854618*^9}}], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 5.1", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"nsim", "=", RowBox[{"{", RowBox[{"10", ",", "50", ",", "1000"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"j", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"j", "=", RowBox[{"j", "+", "1"}]}], ")"}], "\[LessEqual]", RowBox[{"Length", "[", "nsim", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"data", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", RowBox[{"nsim", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", RowBox[{"nsim", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"Length", "[", "data", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"empiricalcdf", "[", "x_", "]"}], "=", RowBox[{ FractionBox["1", "n"], "\[Times]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], "\[LessEqual]", "x"}], ",", "1", ",", "0"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"empiricalcdf", "[", "x", "]"}], ",", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}], "]"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.725859717185544*^9, 3.725859718728623*^9}, { 3.725859841071589*^9, 3.725859852428603*^9}, {3.72586016971504*^9, 3.725860213464375*^9}, {3.725860319963571*^9, 3.725860328018684*^9}, { 3.725860361931032*^9, 3.725860396161285*^9}, {3.7258604363494873`*^9, 3.725860439796979*^9}, {3.725860531586607*^9, 3.72586053683899*^9}, { 3.725860576271537*^9, 3.725860605068819*^9}}], Cell[CellGroupData[{ Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN1ns01GkYB3CEccnltMnUKiNlpRZRE0m/lJKTYukybhUtiwqVPVvaMi5Z 1yhyMpRc2iWj2ghdxiBJZlxCimqMezNTmFzKsNNuxfPs95znvOdznveP97zv ec559byDnH3kZGRkWP/Vl9WYWCD8/FmjUmYmuwN+iJmUoEMvWRiMjqOfiNy8 B0Tog5ezOrkv0BfEhpz0W+ixXCum+QH0fSWvwF8q1MFhDe2iKi81sOD6Qu11 OnPBRl3blTXeqIDzvssd64hQBj9yr09kE0pgnSwdyuVuRfCOLe6nWmMVwLpT vvQV9vLgH29eoR9/Lwfmh2Qbt+fLgv0zL+RmBsiAaWdd9ZlLpexZq1Za1DDI 6ApZsk+sOnr5ufY/fSX/gD/EuxjptaAT0neuTgtHV5bYEHT+NPjEBIUf2I42 sJAJ9+SiEx9UVK8vR7tVW20bT0KPNa3dGUCgDUUr3HdfnQLfjWpJCUhBb15y mkuPQXv8xLUuOo5OLgukKNqhJyOL+8uGJeDoxR5LGvvQ88vk9/V1oI2Fe+o0 a9DeTp9u+F9GDwuu9YYlon+PtNdJi0CnlTISq4+g9Z221L70Qt8WiKRDe9HW kanrFBzQ9TrWwd/boPeV9uevpqL7HM93262UsBnpX3KPOCagLtpPQUsjupxD tNDkUtOaa58nwWaC8LUNArSv4zKyQQWacbdWcvYiWi5CtdLUCn14l9O5nt5P 4B6+o9fcxI9gtxOO1lTqBDiF/daJXToKJuRe7jWWFYNDAi01ZE8PgwNeVgdf H30HvhpzhyFMFYFbLXJqTKhCcKcx35+mguYvW6IRzhOA+3RZXpfqZv2UGFzk UVJwBy3UmlKsyEQPaTJcW6LRU9NaefomaCXBhaGQF2/B6l1NKVcK0VrP1Sxr w9DkZmZ8pz9ah7ODN+Tylm3+Na2Ebq3QdM5G9NKq2EhtQ7RJkUKjX/MgeEN6 OPn+SXR19rDmee4A2O6Gp7I3Be236hRp33g/OO5mqoJDPZoRlBNVW4IuNL09 xyYL/VDMingQ2z9z/g6Ce4cjSw1Ba5TJSXWXoJ0fWEqU6/rAnlwt0d9BvWC/ N+JXrto94OSdMWYVK7rAjvxVRXXLOsHjB87MzSpuA1PZGS+EUY1gFwOed7yE Aw5OpAytDH4KllZWmU8b1YETxrxPcftrcb8NJ46einY5b565Zgua+iqj6K34 8cz88YlFhvLszGtoaciRZifHxzP31Uv0VLV1y0trwLXq1qPlTHSB+3X5o+7/ 67vspnokVoAtRzwP8Q6VgCsNLiW978xDZzeocR55gqNyfAfLP/oRsw5VOPp8 zxo6eKCYmhtrcg7s4i1zjGUUB67UrN8oXp5E+H7NAJHWZR99UfMiOGjDGz2J YiY4z6Gcd1uaAz5TsCOUPM4Er4wcVqn8tRicY1v84lZsDfjWk6GCMFoTuL6d r2hd1gZm2ddbrK/uAG8qXJigSHkFrpnr39Vy5jU4mqWpfG/VG7BdYLlZ1iv0 SbelLBqJB87flmA3z5xHfHtfAfHSbOIZZz9aSfegx7k4tP9H82OfutH1TaTo w5ZdYD97lwUREj5YdCPHfxetB2zL9IvQI/WDrxQZZ4zdHQQz/3CjXaQKwQ+9 orVMy96B41zEkvh5Q2DaVg/+4NFhMKUrRlCvNgJOyejtyf4ZzZ1MPqCWjFak bXx98gFan3SJYfwMvalUROsbQDeqaVuwxSNEA/dL3hGePpu1GdPodw+PToSQ xODQ+enPHeehcz9Q1S7s/QDmNrfZtjBGwcc46wySFkyA43ZWXAkN+gjOa7LV 8q37BI735etFvkYf/+e08bUR9EDd05KbErRbqrYVS36S+DavI0TjAZ8qjjra ZmWxXScZrekqPDjfBs2L1gvd5Y8+3ZPErL6HJm+U8qgqErDzeOcW3UJ0ArMs n+QwBa7V3XaqP38aLJvSZv9IQQrWLih8krddZtOs2/+i6yvEyILdC42ij/fI gTdkkKweL5cH9ybdm1gWpQAu0Q8T6b1WBPNzfzOTX6wEbjHcSh89qQzWZWyl 1LFUwGk3XCctp1XBrezNHeV71MCHq/arLr6sDnag3w9Vd9AAz/zfwf8Ce18r Ew== "]]}, {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwt2Xk4VN8bAPDBjBlmzFhahCwVCZUlyvoesqZE2bKEFkupRCVrlpAsSSFU 1kRUylKh5lBaKRUVlUQky0yW7Mvvfp/n99d9Ps+5533O8573vPfe58rtO7br IC+JROrhIZH+u26AZQOLiyysFBhq9yWLBLaH1p6bnmHhW9k79qx6QYLgtC0K Y/9Y2P3aEulvYyR4Mei0r2+Qhd3UjgkVWPGA+5WcjqbPLHzWvnciW4AXLo4o vsm8y8JbFOs11qfzwUMpHZ9Lt1j47qUkxfFXfNBpZklNusHCWE8/SG+BD5Su H9kakc3CtimGA3beZGjYdr/WM46Fu/J2PWk2osB4gW6ZhhsLRzRUev8WoYLE u+3b1jux8PGmkwkOVlRAM679CnYsLLNRT8U1gQpJ1hFrJCxZuGoi0XoDlQYK 88+ukjYT6zHkKWDyC4CDvVVSM5OFLZKtJCmr6FBD8zjq9YSJRbRovnu+s6D5 h/2X8YdM7HXpWaWMpDB0VW83iqpg4q+UZ+eo5sLAf3DLsmvFTOxwTFtZp0AY dtWznnxIZeLXD4KMLN1EYDDoiZCBFxPH+NWFruGKwoJ1ZeAbDyZeinVj/FaL gajirZ+OLkyML94PMXYUgy2f0qoCbJg4XSLbIf6pGJxVP+JaokvEb31/tDR3 CUgNSt5eIszEfBcqW86cWgYbG0SW5wsy8cp10ssHK5aBUSY1ciOFiZ0yRzeN jywDb7Mx220zQriacvBb77HlUFXweu7MLyEc55rV5hcgDlYuQdsHHwrh1kYX 6YgsCTjT/Gmw3kMIt0cxupgnZKDrSzQudRHCm25LGVc2yIDRL9W0NAchXFAc xCcgIAv8s+cNfHYI4ePS906G75GFREW4KKwthK+ZFdt3LshCVvRNLTdhIZwf mKe6zmUVzCXb0i3oQvif49X5nPhV4JrF06XOL4ThWrVWxINVIHvPOZ5/joH7 z4ydjFiyGm52sr7d/s3Arn/dTTI/roZK7dORc08Y2KT99rsZT3lYZiJv3/eI ga27fRdPZstDoPUHpZZKBr6yXv+8T4s86HiptBbcYmBK2fWyx7oKUH+5S8Ey nYEbcgePaYmvhbdc86bMIwwsr89/Z9cfRfhzY8XyzVIM7JtpIt83pgJv93Wf 0lnOwIUlpUy5LeuhUqb0k74oA59Zljk2EroewjP10o1pDLy5mHnEibYBRJPc lu4ap+OON731XgobQefEDbEjTXSsm8cra4xVQUbtaIDfCzq+d8jiudNvVSBz tD4GNNAxdXFs/3OmGrz1epka/JBwRJZyzl412Oc8KHKukI6933g+8uFVh/NG asIFoXTcZHRcZd5JA44tTh8rCqTjcnK3XlWcBtjWNbwr8afj+3nxPs2VGiCt ZXuh3JuOa8YdGHLCm+D+ukDmE1s6Xldy3v/Qm03QIfyY0a5Cxworrw+q2WmB 0g9zAdZ3Qezafb9Gr1Yb5swmNhV9FsTlymLKp2a04W15gbv+B0EcIGFYDjo6 4B+18ODwC0Gsdu5zUVytDjySr/R8eU8QW+1eFs5o1AVzX5lnkbGC+D6r7+3M uD5ItDVxxSMFMXXz7NHn+gYwpB8sWR4iiPs+7ezQjDOAFFabf6efIJ5637CT IgXw5f55OV1nQWz7vGi0UQGB1/S/8PGNgvg8r3JSpbchbNlXcCtBiRhv3dgY n2oIgm+sP62SF8Qhmzr7a+sM4c7V0vU2EoJ4sAp1aYsawQR4fLtNFsTJk5W7 7tUbQWxsk7ZXuwAe7HhRsUXDGArFCsbbowSwb9r0VmNPM3hWTk1oDhPA+x// dUjMNIPeHb5y9acF8BoLpVHdZjNQOKdpVXxUAB9rjS1t1TSH4rkXN085CeDG ihkRHoYFlPUOOYmpC+C1i5zkv03boCnKZoR/vQDOEpj6RKdawrBMddzMWgGM jplNZhlawganM5U/VwrguAuvFpc/tITytyLMcgEBbGUpp1p4aztUPtCq3/6T ho1/6+jWF1lBq222A/pGw5p83xnh/Vbwb2RxWOMzDVeSnc3qlHaClsorCclm GpZTHzmHy3fCw1znE38e0vDbhM3PIjysoS4+Ym1sCg2XT5utyYqwgafOr5PY QMNhJTZ3k//thpZCsb+mOjRsRskzGltlC53DLrvebqLhwaJjutXWtjB1hrvs +zoadvaPWuF02xY2FC7JnRGj4VzG4d8qh+0ga2jvfc1+Kh533uh6bdoeijWL lzzupuLcWpkLeusdoCp85JTxdypOMdiSZuLhAC3CZ3V3f6Bi+/Qa2SuvHYCi WfLMr46KRzmJ8bb5juAXNvapNIWK2e9hZbunE4Q/19PWSKDiL5U0G/88J0hg xWbXxBD+7jsU+c0JivLE3V8FU/GC4q9iqq0zfG3U/9N3gIqzvtTfeGbuAqbM c7Ny2lTslTmo8cxiL0jlSMle+cmPGeb7LzEcPeB2ZqSQ9jd+rLx4sbE/1AMM LvfNtH/ix+bOcuP0fA9wiy9vk2zix3aLHgrrhj0gP8A4IaeaH/dUfF7dFLsP FM19J4oS+LFhZO1b2Zf7YdNIbVOVJj+mGlAyzsd6QuOgbI29Kj/OuJXhrVvl CfZ9MTcnlfhx5tXE8K2/PCHw684obVlivN7+rvNWL6hp7Nn8WJAfi5lKf6yl eAPKohc8+0HBYv3/SLXZPmC51TnoYzwFJ6bGynwVPgJK/oHvW85SsMZRbkWO 2REQzLu07u0ZCnaKG2rH4Ufg5cKb9pcnKbi/hHdCgnMETGv0dJ54UHCkgIC1 /vujgNSkZ4u1KTj2tuCbdls/0JT5GRr+h4y5t3ozbu72hyVW860hv8hYQPWZ l/NJfxgPXbE+6AcZN0ldPmua4Q/3O2y+B7SR8Wh3fcfTr/6gmt6g71NPxnbL rkXv9woAJaHChd2ZZHxK2EclNP4EyMx6RqyzIOPfiaGeO2dPwVCbV2HNVjJ+ fOOrK79iIDws935paUDGfofTogXtAsHa85DwUQ0y7n31RXLubiBEvD+Se38l GR/fcaEvxec0dN88gXVH+bBDf9Od3sEgKLKNIlll8+GFPM2GENUw8N8YveZH Gh/murw6VesVBgaCZ839UviwjMft3Q45YfCZHZOSGsOHm03iYm+wwoGmHC/7 +RgfDundMVwyHg6HeFKQuzERPyGzcJ93BKy/cy3Cf5gX96U1nAg+FAXmj+1Y 7v28mK10M0jyfBTsaxK6vqOHF29tWEodKomCKwNhtYrtvNisn14kNRAF5LV7 Jzqf8WLJrnPeDb7R0JEj7Wt5lRfHa57eahtyFmIv5jisseTF0gPul/XZsZCX 69AnYsqLd9/y/2XcGwt1d1knFxEvNp5XORZNj4OR5jOpHVq8+KFh0+abjnHg IujenLKKuN+7uTrlXxxoRMtunZ/mwfXxeUvldeKh60Tehk/FPLg60rNY6W8C hGueNP9ewIOXt12iVEklgtSE+b5f13mwe/rxjFCLRHAM/Js2epkHt/wxPfCs IBHeB8E8M5IH5/ttmNZ3ToKG8O9vzPbw4Knsn3ZLPiVD4bkVPo8EeLBl/V7/ KwspYGQxHIXJPNizZFhtTPwidAnUX32xSMJy5RI//TQuglSCd0vbPxIeuBx2 vc37IqQlPdg8+pOEl11SSDBvuwixqXb8yjUkHGOaIjVemQo+Vy8WXD1EwvYR pIcHUy7DOG1b/OaDxLjksJLg/csQcZL32Ac3Ev7cP6n3/eNlSLcK0KHZkXCp vRifsHgaNJDs3gcACZtPpobdzk8DiYPii9uWkPC7mqQ7Yzgd0pwNqkZDFtln r+kvCq3OhLJNdyMUjy+y1bv2HPi9LRMahGS37/VcZC+PTar9558JHDZPzyvr RfbsRIDw/aeZYLqmUThPfpH9gWer4F2vLJgYsvTd+W6BrXZYfWP/o2xwDN+z umzVAvsqPfv663PXgY63PMsSX2DvNqloj668Dk94xA/GMxfYFQtfxvy6roN8 zKciz5l5ttiPzJO/t+TAaMJuJbkP8+zD5w9GbxvKgcTMHWrpkfPsr/rlz+Pu 5AKuNISIrjm2+s/6yj6NfAiYkO06+mmOndQcbKOyIx8UtpAiXZvm2I+D8M1k z3xIqn3SoPNwju1spPK1JDMfnBp0Tf9dmGNveFnepsdTAOPvNHccgjn2o30n uvvbCkBxcJ2z7fVZ9sf50IXJtBtQdfbDpUOXZtnZw0eU/KtugJF0SFPEuVn2 EZNhX5G2G+Bi06R/23+WzbhhXMJeUgQpD47K8pvNsg+87VXsTCuC6eiK3gfc Gfb25vkEvZyb8FpK30/ScIZN/nO+0PxdCThU9xarac2wFx4GxF4bK4FfO5N/ minPsB1Yn5dLit+Chagfu04snWG/nROpTfG4Bep/IjWb/0yzl/Msk/WZuAVZ Vc9nwlOn2bd7gzV+ry2Dw1bWMd09U2w+esrO77fuwMI21Vbl9il2i5BeTO3H O5BqJrz65NspttinJ9bP5u5ADWrB1EdT7AjfL8L2O+8CTcN6TiV5iu3miqlh E3ehaLl1QOCWKfbAvxfXAovKobtrpwcjaZJ9TcKy7LzQfXAK2KmvpTXBvlzS zP0mWwUJX655bFGZYK+I/xarp10FdfpDMTqrJtiCUi8N7tlUgTQt/q0Bc4Jd u01xU0dUFfy82uBm1vePbWX/YK1yXxV4P9eMckz/xx4R4S1pKa+GUyukXgRP jLNtp1vf7rd/CJfY/dbs6jH2Ce3eFrtftXA9lCT0p3SM3ezG+/QZuQ6KtcVf ieaNsYMfnm2wkq+DJxVmhp4JY+xlNSRapWcd9N8sUhNyH2Pz7K0OfTZQBwYp B0SdBcbYTPOXO/imHsMf966PE86j7O3FO8wuiWEA3i/2G3hG2FvGGgozfBvg 0JcGvxtjQ2wTIytHfs8XoJcZKV5z+jfbpGduULSoGby/j3zds7ybHZLxpzFo +wfY2aVy++WaDrapmvU5z4420GJnfx44+5ate0IrXnWqHbT/uu7v3F/JPvRq yZmRye+gHM0VxCcrILD6R7rqVBfcfcEpOeP4DgxdKL6e4j3w2OL1Fp2GdhjP kd54j9QLg7fyfawcu8HRODigidsH125vyB6v+g1aX29FiJf0Q51H7FLVB0OQ fqCW7LtsAIKXZLbtFB2BC76K/Vm+g3CYz/7HcakRwOrbn6scHwSXUdE/lxRG QENdPqn25CBAS+LcZ50R+C1N//QufBDIiRGr3fePgPD5SpePKYOQzOd93K9y BOIk9sSYVg5CwaiW0EX7UTAMEZ78MTUITS2txh+yxuBg7Uzf7OkhqHZx2lJf OAafer+gh6FDkNf/Q7n8zhjs3drRcDxiCE6RBkWTG8bA203L6FvcEMiq8vy0 GBiDV4b6Wy+kD8HJC+vD6rXHYdcqgdkjFUMgbRVbVf5lnDgnRRNig0Nw/M1m hQvLJqDwkmL4pl3DELU4FmkvNwHDBsvHo+2GIVWj/PtKlQnwvvjOrsVxGCqz FdPKDCdg8LNkt5vbMEwdXkF+7TsBhvrDxk6+wxDOmP1JfjoBsd3xRx/HDMP5 HU+uBR+bBFPuKX+z6mHIjgyeNgyehMG2a/KbHw1DWZWWnUDMJGicWj22um4Y mlfeZVzJIlzu1zNePwzCnJyQqsZJSM5wND7RPAwZyZF7/kpOQVHD7IGBnmEo fGe81PPlFJzwu2DIZnJAPDs1+8SHKfCj1QmuE+FAgmeXXPS3KdDNKwxOEeOA /3zIhty/UzBgxG/rKM4BQ+UKsw7xabBWKRdtkuNAZ6xcsJXPNCgp+XGMNxHx DBY6tQRnQLR3450YBw4kCmw/aLJkBrYb1fwt2sOBxdbMwd3SM7DR7hnluTMH +g5rTvmpz0C8yp+yeTcOVGX6ipQ6zQCPacSy3d4c2PWvY6tM6QxMugunZJwm 4pU9KKZun4Wu1NUjKRkcUJDVy+DYz4JRlZ5DRiYH8CUc0+YxC1fx6v3Z2RwY C361ryBwFh68uRBwNYcDThZfpaBgFtYwbEqibnJgXd9CyqmZWfAtlZ3rqubA cxnToN7iOSj8/atj5CMH3C+99mqqmAPxGInT5W0cmOHfaV/xZA4mqVXjvp85 sIHjoBHZOgci+7Ze+tHBgbQ6n2Ep0jykfevOKP3JgQN7kjxsHebhgJrBzi4O B3gutVo8pSxA//PMvpdULixcG9g3wlqAenS+aL0AF2aKSaEyEgsQS1qsSxHk wvgTlTshGxYgNUxhzEaIC30DZ0U3OSzA9yVqZViUC01Gml8Lixdg5rRwsvVK LlwZTfONtVyEo6DavVWNC2nzpTGVdouQqzihckqdC6m0huvdbotQbcUzW6TB hQRpTovBiUXoKnNXIGtxIXybqebk1UXgpJ7uKtPhwv78iXkvziL0Ws+JPNrK heUlpS8KzUloXcCK5kZbLojOS1jk7yAhy3pxnud2XGDYnH+ds4uEVIu1/j6z 5wLvtHdzlgsJ7a69T2Y7coFjrvAxxY+E3q9+o1jowoXn/bmdoVdISPJooq/G AS6cUkz/Z9tPQsEXXHSP+nPheCglcNcwMT/qroJ5ABd8W05M7RwloTg1uTHZ E1zYd3r37LY5EkpfOqnx7iQXrF4K8xgK86DFnwdOSgdxQcE7gbF+Cw/6Pdk9 fu4MFz7djFhNOceDdqq5l6clcInnIb39aBIP0mmgh7gmcmF0Mi35SyoPArGZ lWuSuMA0L50uvcaDNH3oo7eTuWDa3/ZuVwUPkpFvmKq4yIUHisqhuZ08KHXe pfR8BpH/krZWXU1e9PAO9+XhfC4U2bifv6HDi063SyuJFHChcnoAWIgXze4X T6oi3GJBKu3exouC9u1xnS3kgsCAUmS8Oy/6WrbPIuQmF4KVItZ/TuBFEgYv 9+4o44JzqVKsfzcvqiXPPDWq4oKEzELLmd+8qM54/416wh2p7yWThniRRQHf a6jmglPw6Xs3J3iRz5mzXdoPuOBo8fzbN0E+dPRshrP8Iy7Y/vbQMNPgQ9rS DOuOOi5sX53ZJXmWD7kcfa7T8JTYzwxf5XXxfGhQpU5D+RkX3giiU1rJfOjz BquES4S3jfbRba7wIZZN5J59jVwwr9+0ObaMDw09Sj039ZwLxm4tSX9b+VD+ uHc39TUX9LKpuo3yZNS/JrDvwTsiv/snHhkokxH56FWvpS1c+KnUu+WhKhnZ vJgx8yccW9OgVapLRpJl/EpK77nwvj1M/aINGVlp5CamfuCCp/j4OtcwMtJT bEo1beNCSlqX+L9WMrq+4/1Nww6iPlzfZRztIKNIpFyfSFhT/smy/h9kNGzO b/eZcEdl9pKvA2S0TtGHe+grF+Rb7YXrSRTU5fienPiNCzWizdQkFQqi6xTu re7kQs+FRxNrzlJQ82PMe6+bC+pFiQNn4ymom/GhaZBwVJ1b569kCtrcM6yi 0MMF2T+U54WZFKSW+fleJuG9RrvS1tyloHg5866QX1z4Mj6gsaaDguBQpfP6 PuI875E6vlqVHx1QlKJY/OGCpB/3QLQmP8o59wYHEj4U2+DYo8OPjk/nyRcR FqjwRgUm/Cge/xviGSDqk1HFWu3Mj6IrfSOrCOMnO+6siuVHOKJni9AQUX+r zwzKfSPmX+4KjOJwoYqSfUL+Jz+SVtPuKSRc/bt6XrGPH/1IWC7ygvCDUg5L 9S8/sujrqxLkEvnQ2LvJgExFnGGDDRcIs7fqhzmpUNFy3QfKSX+58Hr/LPNS KBXFvdRtcRsl6sVk+ZX0SCoaf04xCCHctFZDLiuWiv6lhQSlE24ePKSRl0JF 6rL3nJoItwR0ONwtpCJp0RXvNMe40Bb9KPdNExV1Zss0LhLuKghUJ6+kIdt1 pjPH/xH9sf0ON2AVDd10uhsbT5gm3FfWs5aGVOZ5e3IJbwy1XftUnYZ65p4z 3hEOt1WTijKnoY1O6hvWTXBBijJIIZ2gobpxr9FWwqq6q54eC6Khxf0ON/4Q Nj6+J+JHOA2VLzu8foHw4e8vZp7E09CQrN4ThUkiH1WF3LAcGgoJFRs8SXiP 59722dc0lDcRVMmYIvrV1bT0wy00VCTY8l2acMSHpt1f22gowZr/pyrhYgPd tzVdNHRISv2ULeGpZeJPgyaI+SuNezIJp794XzYpJ4BOa78kS09z4YOiScTY aQE0t8FXXWiGCxlKjR/4wwXQrvbBDRKEXVRM5CWiBdAUn4nIWsK/N5q8RkkC SPqa4TlEeE7LZElyngDK64k29icsb2JSrPhaAG1Yoif9nvCAaeOM7jsBlCg6 lfSNcLm5yY6drQJI4OT+vt+EdbabjJ7sFEBsuXGbBcJWu030no4KoAfKueJK s1w47WHS4iopiJwPuJ4LI6y/v3HVcVlBdLszPz2OMO9Bk5Nn5QWR8lLFlIuE k7xNJEo3CqLDHxJNbhDOP2ZyYGqrIJI5wX38hnBTmMlUqq8gGhdroiyd44JM lonsy8dEE+KRHMwk7D5Q8ru+QRCFRyhH5hHO12HerX0hiH58i6aWEFb4+kn/ 7ntBxHwU1fuA8AYpb+f0XkEkRxv600pY7/r59ANCdNR6xHM9Y56oDw7Hda8o HZ31O9EmShgb7JZ3XE5HfbnJx1YQNv4hWWkpR0fvtXYFKxC2lL39Xl2Tji4I TQ4BYaf8dwweVzryqlBx9SN8dVSjdcaDjphX5NRPEe40upI97klHSxwfzYQQ 3tfjrtTvR0cftNW84gj7rBk1e3eWjozXf7l7jfDpoiXR18royN5OeclLwum3 9kxrz9FRWYhiw5IFLgxatY/n8DBQ80XvjBWE0ZjjXwqVgSJtLD2kCQ/oOv5+ L8JAxzudPq4lbNBs3+azloEObjfV0CHcy919L3MXA0kFfp5wIaxz+WPZogMD VT11k/MgnLxld/FBVwZqWbZgeJDwlshdOWreDCR28ePBI4QTRW2SXoUxkPHr zTphhDdpEm+DxQyUZMRQzCYc3958wO0OA61se/n4OuHOsB3ujRUMdLKgZ1s+ 4XPPtztcfMJA7XERliWEvzlYmqxrZaDQVV791YTPBpvL7VlkoHPJA7kthD+y jdof2gmhg5fOxSwQ7thIP9TgJIQW9vvPkRaJ/pDzceaNmxDaK3zvCB/hoTMH pH74CCFjTVegEeZHsW6UcCH0ad3jXBHC2vhVr02RECrhrTq4mjBSTT3lXCqE Yv7uj5MnbJrrRD1YLoQyXKQL1xLeFTGoeLpGCL127nqrTNgXCflefyuE1KTZ AxqEc7D16MCEEJLn+2S8lXCR6oro8VkhFJImKmVCuCz3p9gCiYn2rp7jmBJ+ GOGvKUJnoss9s3HbCH9Al09vlmGiTXX34mwIU+o/L0SbMZEFvb1xL+HD9Xvp K68wkcyvlNOnCO/LaU+vu8ZEr1zaFgIJO4XZrnIpYKKiCEpkEGFz7W3a2XeY qMrHJiiU8Jp7ml4rGpkoT+SuThThb7mMp0tHmchpzygtifDH8Dirqkkm6tkd syuZ8GsX3g7beSYSsLl65cJ/6xWf+nuJxkIPgoIkUglfTumRFpVhoXa57n/p hLdH1AQzt7NQ/seHormEt+7V5L9jw0I3zCMV8wjr6JVf3OHAQi+O2ejmE1ac ulGcuI+FZNevdSwkTPa7+EkwiIXahk4fKyb82M1bnVrEQnUckmQ54Ur9nsdF pSz05v0d8r3/8im518L0HgvtmWkb/M9Zn3e7x9Sx0C+4db+C8KmdxCfkRxYK UpNe/YDwkfU1Kwq+sNA3423T//kAXfOGUScLadqtan743/6+UKqL/MNCMbc4 R2oIW9y4YSbHJdbzh6NT+199RMt+xOMsJCJZQakjvNkje6/7DAsFLDd8+5// /38YMW9dv/yY8P8AD32+kA== "]]}}, 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->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{-4, 4}, {0., 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Print", CellChangeTimes->{{3.7258605826816883`*^9, 3.7258606059807243`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF2Xk4lWkUAHA3a0KmIWl0LUU3hGgshVfRIkIodE1Fmy1bIibLMInsypIl FWmTjD3k2kK2ZCf7vl7rlS3NiHnP+ec+v/t89/ue5z3vOed9vitoaqN7dRMd HV08gY5u7VMCbR/98WNrAd1G6Fvs9VlcAruEyYvM0sBlY+dNB8fAlyLj2qqa wSHTpMpH78Bz8YeTZC6Cc1hMrK/nc2C7VzeNFZqwY4885+WR42PDFu06uXlr Byv2yon5g4nN4JqU+EtKdWB7z9UsyzLwe+H0a+X/gO8HmoReTAIbf+PIn08E 030y5xaOAdcd4DmSF85a8CdX8okel4coIarESi8E7EhvHznqBz5pxV/ylze4 JfW+4GEy+PoizW1OEjyPTNrfMoC9vasUrrduxjacdL66Wg8WNdwbElYDXilo yBP/BK7Z5zlcXPy/E5D9cjuayQZzV8tFCCSDjW0njrlGghN+jZ9r9QSnZ8kW avawYBeTKwIoCMwXxycQ2cOEraFKdq73ZcTmX77msU+dAXt/cqyH/cQm7G6H pxJNLwnY5jEh8TEWdNiGbka7k4RWKf+bNLaPrP94mZJNvDt2JjsZBWdZCzCd AC96pQ1kTS5hS4yeLecsAZvqLLw2jwRPjjzpcw8A3/FS5wv3BG/eNaOf5LS0 8fx0FJ4ZFVBkBU4ZGVulngNX8CnZ/nYEHJVRuuQWuohtqaVzt7dvATtHpbaA +T2YRUZnRTwQHCMppeHoBZYS54yi3AaXkKaGWazBBsK1crqXFyhRj9biPXIj Bjf2nwYn8ujcdJIHH+KSKirYD67h5PyFdTfYlH3qot6OhY31yEe0zbXJMexg PvpgTcmFb9hqK9qjhb3glgVJhS0tYCvaVh/9ajDdzGRTbNE3yviZtW8K0QPq Z+GhLHDOUFCx8zNwb7e2CVsAmPhaW/tpzzz2+ZvaSrKy4Dyl8buHhMBEFt8a ZQ6w9o3mGRUGsEedMI/qEm1jPUtQipzD4WNT4J6YoosnBsEJB1amtPPBZqW/ exqGgycnXyaYHwc78vKVuczPYf9ttYkt9hz4AWVYh5I5i60cfGUbeTN45FJ3 /Tx5BpvrLCqJlQIrqz9OV2ME6xdXi0dOTmObK31PGGsFOyxxmXB/Brtlie9C JWBfB7VWs/fTFNbmeFsl1jL08IBxWGgyeJR3p2O3ARhtajknQQDnGR+yMbg4 he1grbCV8Ockdsn7Y9Kl18BcjLpn/XTBV3Qu3NZRntzYj59QWrRFNLcoWFfa qyeOAJ4pj94r2krFlpqvSlP2AdvsXkV6cuBkHcmq64MT2OOulwzvhIH9uZwf M90Ai70J6Q9WA7vMxzKfkwJXHHkt+hvfBGWfcVARjVSFdgZknu5mBlu0FNk+ nx3HfuyTGjX6cAy7Xv5ZiaTsKDaVM8qoznsEm2UkhOrQPIzN3ciuUOoOFir0 9eIhgYXzSE1i28CkrDKSysoQtnjqtT/1B8GSbxlrzGqHNuqzBsnGq94MSQAr PvprR85tsFnH9Fcjnl5Kwn/Zao6vRauEMknpyR7shyIxXqxl4K5s77fzqT0b 9fYFiWrYNfc+Bt/qIBM+3wcX2BwXy3UEj2dP1VmKgHdsinbha+rGtn04+cn1 d3DwaR/p/H1d2FPhbTaqL9qxtbvF35bvacOWpyMccytvwRYSaGyXsWrG5k/4 HPRaBcxHqjgqyN1MkfkZ9WhnUgktYqQJm0eK8pIjH7xNPp1j5RqYTeWVw8hW MO2iK1tcWsNG/TWgqev29v7G4FGb6y3OjOChWRO/qdZ67H4nY+XryeCe5XPT HZ7gTvczCfoG9ZRiGum/jDeir/SaBpVi9Rv11oxa7h1nPUoHbtpy5EN2Qx12 fdBhW8lX4NpfZXcnuoJrIqSa+HTBlb+J+T4QAZfHCSuyLn+h6P7cQC0olbJY T3lciy1LiW4e/bsG+7uh1ZJubzV2yYzirlwEfomeS9hQqzbqrxX5+7Or7I4F 27beOtOsAdYT6TT1W6rE7jVyf0nOqIDrAwSoYrafsPXbfH50EcFye6c5H1aX Y+90MBI6eQe8WlAosyJaTulxWVvwNvTxfOi5Kz5l2P5zps5VA6XYtkcq73s8 BOsFysQcVC3dqMd2JPs1+u3w9EfsnSQGSswTcG9hQw/Dagn2K/JzhhtksHzQ 8VNK24uxS4uGgti/FGIHGGen3pIA68/7NHb4FcDvVacHQw4VUOzWyte2A8kJ pE351VGwV997/TonCS7V05c1DsjHphNq1Yy9/R5bYeqPy52X07HpeZ3vqA3+ g/3IiyR29ksy3J8nU84n9O1Gv+lEpkmqarl6SRv9pBuVqXzRoXK9wRZvvPCH YNMr7BDzcXP9iJfY89+dHe8ZvsAmhzJ75fAmYheIhAVNtCVQTq4nBNU8oB/e 8ikMu+BpNXtl8R/YLow3Gs8e9ED/O7xL3TuUMxS7KlPihnjgQ+xNgb/ql26J wJa/unDoku8jbBvFDsElphi03l96kPWt+m/b/3qCnaCZ3Zmy+gzb9ZWGyw5a EraY1yRrwa00bOpltx8392Vip6qxz+3tyMbmytCnEuRysG8Jxwx/Dc7FTuyg DJQr5WE3hfX1ZoyCmbWYu59FfMCWZxLrCFLLR2u7xzioF7nNtg8L3inA7rq8 p2+5sRB7AWWa2IsXYXPynewe9ixC6/2wD5EWWi9cbAWrNFh2NEoWo/V20ofs /IPaitrBz9TSmt/5lmBfFT5adVmpDJvE9KWAZ/oTtlH+3AeGxxXY9x135E6f qoT76b5WMHsKzpVQzO78Bm5grZE9q1WF1vtrPxofvJhRmQDWMnjx7vlqNfa7 Muord8PP2LKhB/+MO12L/bDATvAHFSzORthiwPMFu9ggeC4Zgc/H83cymYFn qMllF4L/m1Nr5UIcQELe1VEcPeAzu8Zv5B+ow07R2MdFrAdzuFzLcXWox078 SItvjAEr/XI3YP9HcIMxl9PdCbDVy/hLHdwNaH2+DKBoVCQTcA1c0dTNpJQF JjES38YYNmLfkyHrrSyCie6jivpCTejazxhEmRXOIkmnwFrbN3My3AQPmkQu kqPB3IuZVVvGwWrBjXG5is3YdBPa4y7uLdgf1CvkDxW1Yrst2ZkK2LVhq7zh 9WcS+IptG+G1vUDjK1qfb0PoqdfEE2cncJ2NgZhMPHiTcWHGeA348sGwiosi 7dglbOZdda7gE9bZ0nFfO7ArPjN7Wyp0YY+9fmauZdiL1rLPlTyEjoo1SNIz 9GFHvmGcz3oHLrYkGoUy9mNTxeTyrMjgRfJ3/T5bMIN/8YSRN5gjz9e7NhrM O67Nf+KffrQ+j4eRhGa7zsF2sFqSmacg8wB2lHjUyaZU8FRSJYffhUHs5faQ FwSHQTS/ln7aMGJiN1S57QvmVCK2Uh+Df7vRb3c1HSxVbRuv2wU+vv97A/pv nf63/QS3/M5L4Ni3EtFzGWBrth2+i5+G0Po8H0HKlgSn1Q4wR8XoFfoZcCep QZeFaRjbfTBRYpsEWCDBmZXvHLjQRHNQ2A1sys9fJJkIlnZjSTmYA6bvmI5V qAE3HP7qp9w7jH6OR6XRtfdRzqrz4GOGEWdPE0ewB7ktDhgcB2c66PEbnwff q1dkN7EGG0qLLF/1BJNCto5YhI+g9fE0iizYMp64DYKT7p03DJUdxU53mJLt cRzDzjPx5pbKGseep8iERveCpYg9HMwcE9inq+Wq83aDLe4E+tkrgL3FBtRJ 2hPoZ7u5O4bi2w6zdF4Bb48IJ2Tkgu/rTS/5baNi21UlTigUgA2PGXcP3ZjE fhDd1/v0yhS2C9ejRu1t09iB9GZ2tung+BlZ9pBzM9hmyaIHed3BEhZE8tMX YM6TkdYDueBZ4W2e+2rB/Vyf/TTaZtD6+WscNdH7h93oB5fNnIwLooKzexhf /bMAPmo0MV+oPotdVdugVhcFFpAi9KiPgm8F7XctVJjDPvVC/krcabAARVXD 1QTMqvFJ2cpyDlVXrcU4ojVpSZNvgbtNG4RPuYMrqEa8Cr5gB6Lt0FwKmKjl nZHSAp69GhITOA4ud43xsqKjYadtFnIis4Ifh72wOMUF9hHcf0GBSEPr58cJ dPNt6hkSCUzsKOfv1waXs3VNxDmBUyOv9AT+RUM/xykXFcXuGW1w9QP7pNiU W4WB7RVpueQ48Al9uniFNDCf1Zb7PGXg0mhBw3oq2K5STiRo+zz2/dP5sS42 37ATPqtxXytfwO70FnTRMl/E3qG82inLuoQ9aPn7gq00OOOR1S9vzoNJV3Mi 3l9ZQuvnaSqKkWIhlluDOVfOJjTdBv9dFi864Am2vIDkNkWAdWltqvxvwJM6 6o4PlsH+SVkvmTWXsUv5jzsPvFzBJjxoUC9mXMXmefWmLOEknQq+fvhJ551I sCMpnKY/DDa9rbd8agWsVc5JOMJJwFbn8/BU5gar2U7SK+4kqPzczsaTCJVc uKvADz60o4ZJbg9BZf3t/xSSKkjaLC0BFjHzY9svD15lZtrBewnc9MJjN6MP OPJVY8Ph3zdhk9+Ietv3ghWjmQ9/FGbA7gt6P7/nb0bs9N3uY4LtTNjd8U7S DLtYsOtIxzxmb2/G5o86JlD+gRU7/LXRosLKFux6ytHW7LPs2JaFF7bsiuTA 1vTIceHQ3Iq98f8Q9r+H8iR9 "]]}, {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwt2Xk4VN8bAPDBjBlmzFhahCwVCZUlyvoesqZE2bKEFkupRCVrlpAsSSFU 1kRUylKh5lBaKRUVlUQky0yW7Mvvfp/n99d9Ps+5533O8573vPfe58rtO7br IC+JROrhIZH+u26AZQOLiyysFBhq9yWLBLaH1p6bnmHhW9k79qx6QYLgtC0K Y/9Y2P3aEulvYyR4Mei0r2+Qhd3UjgkVWPGA+5WcjqbPLHzWvnciW4AXLo4o vsm8y8JbFOs11qfzwUMpHZ9Lt1j47qUkxfFXfNBpZklNusHCWE8/SG+BD5Su H9kakc3CtimGA3beZGjYdr/WM46Fu/J2PWk2osB4gW6ZhhsLRzRUev8WoYLE u+3b1jux8PGmkwkOVlRAM679CnYsLLNRT8U1gQpJ1hFrJCxZuGoi0XoDlQYK 88+ukjYT6zHkKWDyC4CDvVVSM5OFLZKtJCmr6FBD8zjq9YSJRbRovnu+s6D5 h/2X8YdM7HXpWaWMpDB0VW83iqpg4q+UZ+eo5sLAf3DLsmvFTOxwTFtZp0AY dtWznnxIZeLXD4KMLN1EYDDoiZCBFxPH+NWFruGKwoJ1ZeAbDyZeinVj/FaL gajirZ+OLkyML94PMXYUgy2f0qoCbJg4XSLbIf6pGJxVP+JaokvEb31/tDR3 CUgNSt5eIszEfBcqW86cWgYbG0SW5wsy8cp10ssHK5aBUSY1ciOFiZ0yRzeN jywDb7Mx220zQriacvBb77HlUFXweu7MLyEc55rV5hcgDlYuQdsHHwrh1kYX 6YgsCTjT/Gmw3kMIt0cxupgnZKDrSzQudRHCm25LGVc2yIDRL9W0NAchXFAc xCcgIAv8s+cNfHYI4ePS906G75GFREW4KKwthK+ZFdt3LshCVvRNLTdhIZwf mKe6zmUVzCXb0i3oQvif49X5nPhV4JrF06XOL4ThWrVWxINVIHvPOZ5/joH7 z4ydjFiyGm52sr7d/s3Arn/dTTI/roZK7dORc08Y2KT99rsZT3lYZiJv3/eI ga27fRdPZstDoPUHpZZKBr6yXv+8T4s86HiptBbcYmBK2fWyx7oKUH+5S8Ey nYEbcgePaYmvhbdc86bMIwwsr89/Z9cfRfhzY8XyzVIM7JtpIt83pgJv93Wf 0lnOwIUlpUy5LeuhUqb0k74oA59Zljk2EroewjP10o1pDLy5mHnEibYBRJPc lu4ap+OON731XgobQefEDbEjTXSsm8cra4xVQUbtaIDfCzq+d8jiudNvVSBz tD4GNNAxdXFs/3OmGrz1epka/JBwRJZyzl412Oc8KHKukI6933g+8uFVh/NG asIFoXTcZHRcZd5JA44tTh8rCqTjcnK3XlWcBtjWNbwr8afj+3nxPs2VGiCt ZXuh3JuOa8YdGHLCm+D+ukDmE1s6Xldy3v/Qm03QIfyY0a5Cxworrw+q2WmB 0g9zAdZ3Qezafb9Gr1Yb5swmNhV9FsTlymLKp2a04W15gbv+B0EcIGFYDjo6 4B+18ODwC0Gsdu5zUVytDjySr/R8eU8QW+1eFs5o1AVzX5lnkbGC+D6r7+3M uD5ItDVxxSMFMXXz7NHn+gYwpB8sWR4iiPs+7ezQjDOAFFabf6efIJ5637CT IgXw5f55OV1nQWz7vGi0UQGB1/S/8PGNgvg8r3JSpbchbNlXcCtBiRhv3dgY n2oIgm+sP62SF8Qhmzr7a+sM4c7V0vU2EoJ4sAp1aYsawQR4fLtNFsTJk5W7 7tUbQWxsk7ZXuwAe7HhRsUXDGArFCsbbowSwb9r0VmNPM3hWTk1oDhPA+x// dUjMNIPeHb5y9acF8BoLpVHdZjNQOKdpVXxUAB9rjS1t1TSH4rkXN085CeDG ihkRHoYFlPUOOYmpC+C1i5zkv03boCnKZoR/vQDOEpj6RKdawrBMddzMWgGM jplNZhlawganM5U/VwrguAuvFpc/tITytyLMcgEBbGUpp1p4aztUPtCq3/6T ho1/6+jWF1lBq222A/pGw5p83xnh/Vbwb2RxWOMzDVeSnc3qlHaClsorCclm GpZTHzmHy3fCw1znE38e0vDbhM3PIjysoS4+Ym1sCg2XT5utyYqwgafOr5PY QMNhJTZ3k//thpZCsb+mOjRsRskzGltlC53DLrvebqLhwaJjutXWtjB1hrvs +zoadvaPWuF02xY2FC7JnRGj4VzG4d8qh+0ga2jvfc1+Kh533uh6bdoeijWL lzzupuLcWpkLeusdoCp85JTxdypOMdiSZuLhAC3CZ3V3f6Bi+/Qa2SuvHYCi WfLMr46KRzmJ8bb5juAXNvapNIWK2e9hZbunE4Q/19PWSKDiL5U0G/88J0hg xWbXxBD+7jsU+c0JivLE3V8FU/GC4q9iqq0zfG3U/9N3gIqzvtTfeGbuAqbM c7Ny2lTslTmo8cxiL0jlSMle+cmPGeb7LzEcPeB2ZqSQ9jd+rLx4sbE/1AMM LvfNtH/ix+bOcuP0fA9wiy9vk2zix3aLHgrrhj0gP8A4IaeaH/dUfF7dFLsP FM19J4oS+LFhZO1b2Zf7YdNIbVOVJj+mGlAyzsd6QuOgbI29Kj/OuJXhrVvl CfZ9MTcnlfhx5tXE8K2/PCHw684obVlivN7+rvNWL6hp7Nn8WJAfi5lKf6yl eAPKohc8+0HBYv3/SLXZPmC51TnoYzwFJ6bGynwVPgJK/oHvW85SsMZRbkWO 2REQzLu07u0ZCnaKG2rH4Ufg5cKb9pcnKbi/hHdCgnMETGv0dJ54UHCkgIC1 /vujgNSkZ4u1KTj2tuCbdls/0JT5GRr+h4y5t3ozbu72hyVW860hv8hYQPWZ l/NJfxgPXbE+6AcZN0ldPmua4Q/3O2y+B7SR8Wh3fcfTr/6gmt6g71NPxnbL rkXv9woAJaHChd2ZZHxK2EclNP4EyMx6RqyzIOPfiaGeO2dPwVCbV2HNVjJ+ fOOrK79iIDws935paUDGfofTogXtAsHa85DwUQ0y7n31RXLubiBEvD+Se38l GR/fcaEvxec0dN88gXVH+bBDf9Od3sEgKLKNIlll8+GFPM2GENUw8N8YveZH Gh/murw6VesVBgaCZ839UviwjMft3Q45YfCZHZOSGsOHm03iYm+wwoGmHC/7 +RgfDundMVwyHg6HeFKQuzERPyGzcJ93BKy/cy3Cf5gX96U1nAg+FAXmj+1Y 7v28mK10M0jyfBTsaxK6vqOHF29tWEodKomCKwNhtYrtvNisn14kNRAF5LV7 Jzqf8WLJrnPeDb7R0JEj7Wt5lRfHa57eahtyFmIv5jisseTF0gPul/XZsZCX 69AnYsqLd9/y/2XcGwt1d1knFxEvNp5XORZNj4OR5jOpHVq8+KFh0+abjnHg IujenLKKuN+7uTrlXxxoRMtunZ/mwfXxeUvldeKh60Tehk/FPLg60rNY6W8C hGueNP9ewIOXt12iVEklgtSE+b5f13mwe/rxjFCLRHAM/Js2epkHt/wxPfCs IBHeB8E8M5IH5/ttmNZ3ToKG8O9vzPbw4Knsn3ZLPiVD4bkVPo8EeLBl/V7/ KwspYGQxHIXJPNizZFhtTPwidAnUX32xSMJy5RI//TQuglSCd0vbPxIeuBx2 vc37IqQlPdg8+pOEl11SSDBvuwixqXb8yjUkHGOaIjVemQo+Vy8WXD1EwvYR pIcHUy7DOG1b/OaDxLjksJLg/csQcZL32Ac3Ev7cP6n3/eNlSLcK0KHZkXCp vRifsHgaNJDs3gcACZtPpobdzk8DiYPii9uWkPC7mqQ7Yzgd0pwNqkZDFtln r+kvCq3OhLJNdyMUjy+y1bv2HPi9LRMahGS37/VcZC+PTar9558JHDZPzyvr RfbsRIDw/aeZYLqmUThPfpH9gWer4F2vLJgYsvTd+W6BrXZYfWP/o2xwDN+z umzVAvsqPfv663PXgY63PMsSX2DvNqloj668Dk94xA/GMxfYFQtfxvy6roN8 zKciz5l5ttiPzJO/t+TAaMJuJbkP8+zD5w9GbxvKgcTMHWrpkfPsr/rlz+Pu 5AKuNISIrjm2+s/6yj6NfAiYkO06+mmOndQcbKOyIx8UtpAiXZvm2I+D8M1k z3xIqn3SoPNwju1spPK1JDMfnBp0Tf9dmGNveFnepsdTAOPvNHccgjn2o30n uvvbCkBxcJ2z7fVZ9sf50IXJtBtQdfbDpUOXZtnZw0eU/KtugJF0SFPEuVn2 EZNhX5G2G+Bi06R/23+WzbhhXMJeUgQpD47K8pvNsg+87VXsTCuC6eiK3gfc Gfb25vkEvZyb8FpK30/ScIZN/nO+0PxdCThU9xarac2wFx4GxF4bK4FfO5N/ minPsB1Yn5dLit+Chagfu04snWG/nROpTfG4Bep/IjWb/0yzl/Msk/WZuAVZ Vc9nwlOn2bd7gzV+ry2Dw1bWMd09U2w+esrO77fuwMI21Vbl9il2i5BeTO3H O5BqJrz65NspttinJ9bP5u5ADWrB1EdT7AjfL8L2O+8CTcN6TiV5iu3miqlh E3ehaLl1QOCWKfbAvxfXAovKobtrpwcjaZJ9TcKy7LzQfXAK2KmvpTXBvlzS zP0mWwUJX655bFGZYK+I/xarp10FdfpDMTqrJtiCUi8N7tlUgTQt/q0Bc4Jd u01xU0dUFfy82uBm1vePbWX/YK1yXxV4P9eMckz/xx4R4S1pKa+GUyukXgRP jLNtp1vf7rd/CJfY/dbs6jH2Ce3eFrtftXA9lCT0p3SM3ezG+/QZuQ6KtcVf ieaNsYMfnm2wkq+DJxVmhp4JY+xlNSRapWcd9N8sUhNyH2Pz7K0OfTZQBwYp B0SdBcbYTPOXO/imHsMf966PE86j7O3FO8wuiWEA3i/2G3hG2FvGGgozfBvg 0JcGvxtjQ2wTIytHfs8XoJcZKV5z+jfbpGduULSoGby/j3zds7ybHZLxpzFo +wfY2aVy++WaDrapmvU5z4420GJnfx44+5ate0IrXnWqHbT/uu7v3F/JPvRq yZmRye+gHM0VxCcrILD6R7rqVBfcfcEpOeP4DgxdKL6e4j3w2OL1Fp2GdhjP kd54j9QLg7fyfawcu8HRODigidsH125vyB6v+g1aX29FiJf0Q51H7FLVB0OQ fqCW7LtsAIKXZLbtFB2BC76K/Vm+g3CYz/7HcakRwOrbn6scHwSXUdE/lxRG QENdPqn25CBAS+LcZ50R+C1N//QufBDIiRGr3fePgPD5SpePKYOQzOd93K9y BOIk9sSYVg5CwaiW0EX7UTAMEZ78MTUITS2txh+yxuBg7Uzf7OkhqHZx2lJf OAafer+gh6FDkNf/Q7n8zhjs3drRcDxiCE6RBkWTG8bA203L6FvcEMiq8vy0 GBiDV4b6Wy+kD8HJC+vD6rXHYdcqgdkjFUMgbRVbVf5lnDgnRRNig0Nw/M1m hQvLJqDwkmL4pl3DELU4FmkvNwHDBsvHo+2GIVWj/PtKlQnwvvjOrsVxGCqz FdPKDCdg8LNkt5vbMEwdXkF+7TsBhvrDxk6+wxDOmP1JfjoBsd3xRx/HDMP5 HU+uBR+bBFPuKX+z6mHIjgyeNgyehMG2a/KbHw1DWZWWnUDMJGicWj22um4Y mlfeZVzJIlzu1zNePwzCnJyQqsZJSM5wND7RPAwZyZF7/kpOQVHD7IGBnmEo fGe81PPlFJzwu2DIZnJAPDs1+8SHKfCj1QmuE+FAgmeXXPS3KdDNKwxOEeOA /3zIhty/UzBgxG/rKM4BQ+UKsw7xabBWKRdtkuNAZ6xcsJXPNCgp+XGMNxHx DBY6tQRnQLR3450YBw4kCmw/aLJkBrYb1fwt2sOBxdbMwd3SM7DR7hnluTMH +g5rTvmpz0C8yp+yeTcOVGX6ipQ6zQCPacSy3d4c2PWvY6tM6QxMugunZJwm 4pU9KKZun4Wu1NUjKRkcUJDVy+DYz4JRlZ5DRiYH8CUc0+YxC1fx6v3Z2RwY C361ryBwFh68uRBwNYcDThZfpaBgFtYwbEqibnJgXd9CyqmZWfAtlZ3rqubA cxnToN7iOSj8/atj5CMH3C+99mqqmAPxGInT5W0cmOHfaV/xZA4mqVXjvp85 sIHjoBHZOgci+7Ze+tHBgbQ6n2Ep0jykfevOKP3JgQN7kjxsHebhgJrBzi4O B3gutVo8pSxA//PMvpdULixcG9g3wlqAenS+aL0AF2aKSaEyEgsQS1qsSxHk wvgTlTshGxYgNUxhzEaIC30DZ0U3OSzA9yVqZViUC01Gml8Lixdg5rRwsvVK LlwZTfONtVyEo6DavVWNC2nzpTGVdouQqzihckqdC6m0huvdbotQbcUzW6TB hQRpTovBiUXoKnNXIGtxIXybqebk1UXgpJ7uKtPhwv78iXkvziL0Ws+JPNrK heUlpS8KzUloXcCK5kZbLojOS1jk7yAhy3pxnud2XGDYnH+ds4uEVIu1/j6z 5wLvtHdzlgsJ7a69T2Y7coFjrvAxxY+E3q9+o1jowoXn/bmdoVdISPJooq/G AS6cUkz/Z9tPQsEXXHSP+nPheCglcNcwMT/qroJ5ABd8W05M7RwloTg1uTHZ E1zYd3r37LY5EkpfOqnx7iQXrF4K8xgK86DFnwdOSgdxQcE7gbF+Cw/6Pdk9 fu4MFz7djFhNOceDdqq5l6clcInnIb39aBIP0mmgh7gmcmF0Mi35SyoPArGZ lWuSuMA0L50uvcaDNH3oo7eTuWDa3/ZuVwUPkpFvmKq4yIUHisqhuZ08KHXe pfR8BpH/krZWXU1e9PAO9+XhfC4U2bifv6HDi063SyuJFHChcnoAWIgXze4X T6oi3GJBKu3exouC9u1xnS3kgsCAUmS8Oy/6WrbPIuQmF4KVItZ/TuBFEgYv 9+4o44JzqVKsfzcvqiXPPDWq4oKEzELLmd+8qM54/416wh2p7yWThniRRQHf a6jmglPw6Xs3J3iRz5mzXdoPuOBo8fzbN0E+dPRshrP8Iy7Y/vbQMNPgQ9rS DOuOOi5sX53ZJXmWD7kcfa7T8JTYzwxf5XXxfGhQpU5D+RkX3giiU1rJfOjz BquES4S3jfbRba7wIZZN5J59jVwwr9+0ObaMDw09Sj039ZwLxm4tSX9b+VD+ uHc39TUX9LKpuo3yZNS/JrDvwTsiv/snHhkokxH56FWvpS1c+KnUu+WhKhnZ vJgx8yccW9OgVapLRpJl/EpK77nwvj1M/aINGVlp5CamfuCCp/j4OtcwMtJT bEo1beNCSlqX+L9WMrq+4/1Nww6iPlzfZRztIKNIpFyfSFhT/smy/h9kNGzO b/eZcEdl9pKvA2S0TtGHe+grF+Rb7YXrSRTU5fienPiNCzWizdQkFQqi6xTu re7kQs+FRxNrzlJQ82PMe6+bC+pFiQNn4ymom/GhaZBwVJ1b569kCtrcM6yi 0MMF2T+U54WZFKSW+fleJuG9RrvS1tyloHg5866QX1z4Mj6gsaaDguBQpfP6 PuI875E6vlqVHx1QlKJY/OGCpB/3QLQmP8o59wYHEj4U2+DYo8OPjk/nyRcR FqjwRgUm/Cge/xviGSDqk1HFWu3Mj6IrfSOrCOMnO+6siuVHOKJni9AQUX+r zwzKfSPmX+4KjOJwoYqSfUL+Jz+SVtPuKSRc/bt6XrGPH/1IWC7ygvCDUg5L 9S8/sujrqxLkEvnQ2LvJgExFnGGDDRcIs7fqhzmpUNFy3QfKSX+58Hr/LPNS KBXFvdRtcRsl6sVk+ZX0SCoaf04xCCHctFZDLiuWiv6lhQSlE24ePKSRl0JF 6rL3nJoItwR0ONwtpCJp0RXvNMe40Bb9KPdNExV1Zss0LhLuKghUJ6+kIdt1 pjPH/xH9sf0ON2AVDd10uhsbT5gm3FfWs5aGVOZ5e3IJbwy1XftUnYZ65p4z 3hEOt1WTijKnoY1O6hvWTXBBijJIIZ2gobpxr9FWwqq6q54eC6Khxf0ON/4Q Nj6+J+JHOA2VLzu8foHw4e8vZp7E09CQrN4ThUkiH1WF3LAcGgoJFRs8SXiP 59722dc0lDcRVMmYIvrV1bT0wy00VCTY8l2acMSHpt1f22gowZr/pyrhYgPd tzVdNHRISv2ULeGpZeJPgyaI+SuNezIJp794XzYpJ4BOa78kS09z4YOiScTY aQE0t8FXXWiGCxlKjR/4wwXQrvbBDRKEXVRM5CWiBdAUn4nIWsK/N5q8RkkC SPqa4TlEeE7LZElyngDK64k29icsb2JSrPhaAG1Yoif9nvCAaeOM7jsBlCg6 lfSNcLm5yY6drQJI4OT+vt+EdbabjJ7sFEBsuXGbBcJWu030no4KoAfKueJK s1w47WHS4iopiJwPuJ4LI6y/v3HVcVlBdLszPz2OMO9Bk5Nn5QWR8lLFlIuE k7xNJEo3CqLDHxJNbhDOP2ZyYGqrIJI5wX38hnBTmMlUqq8gGhdroiyd44JM lonsy8dEE+KRHMwk7D5Q8ru+QRCFRyhH5hHO12HerX0hiH58i6aWEFb4+kn/ 7ntBxHwU1fuA8AYpb+f0XkEkRxv600pY7/r59ANCdNR6xHM9Y56oDw7Hda8o HZ31O9EmShgb7JZ3XE5HfbnJx1YQNv4hWWkpR0fvtXYFKxC2lL39Xl2Tji4I TQ4BYaf8dwweVzryqlBx9SN8dVSjdcaDjphX5NRPEe40upI97klHSxwfzYQQ 3tfjrtTvR0cftNW84gj7rBk1e3eWjozXf7l7jfDpoiXR18royN5OeclLwum3 9kxrz9FRWYhiw5IFLgxatY/n8DBQ80XvjBWE0ZjjXwqVgSJtLD2kCQ/oOv5+ L8JAxzudPq4lbNBs3+azloEObjfV0CHcy919L3MXA0kFfp5wIaxz+WPZogMD VT11k/MgnLxld/FBVwZqWbZgeJDwlshdOWreDCR28ePBI4QTRW2SXoUxkPHr zTphhDdpEm+DxQyUZMRQzCYc3958wO0OA61se/n4OuHOsB3ujRUMdLKgZ1s+ 4XPPtztcfMJA7XERliWEvzlYmqxrZaDQVV791YTPBpvL7VlkoHPJA7kthD+y jdof2gmhg5fOxSwQ7thIP9TgJIQW9vvPkRaJ/pDzceaNmxDaK3zvCB/hoTMH pH74CCFjTVegEeZHsW6UcCH0ad3jXBHC2vhVr02RECrhrTq4mjBSTT3lXCqE Yv7uj5MnbJrrRD1YLoQyXKQL1xLeFTGoeLpGCL127nqrTNgXCflefyuE1KTZ AxqEc7D16MCEEJLn+2S8lXCR6oro8VkhFJImKmVCuCz3p9gCiYn2rp7jmBJ+ GOGvKUJnoss9s3HbCH9Al09vlmGiTXX34mwIU+o/L0SbMZEFvb1xL+HD9Xvp K68wkcyvlNOnCO/LaU+vu8ZEr1zaFgIJO4XZrnIpYKKiCEpkEGFz7W3a2XeY qMrHJiiU8Jp7ml4rGpkoT+SuThThb7mMp0tHmchpzygtifDH8Dirqkkm6tkd syuZ8GsX3g7beSYSsLl65cJ/6xWf+nuJxkIPgoIkUglfTumRFpVhoXa57n/p hLdH1AQzt7NQ/seHormEt+7V5L9jw0I3zCMV8wjr6JVf3OHAQi+O2ejmE1ac ulGcuI+FZNevdSwkTPa7+EkwiIXahk4fKyb82M1bnVrEQnUckmQ54Ur9nsdF pSz05v0d8r3/8im518L0HgvtmWkb/M9Zn3e7x9Sx0C+4db+C8KmdxCfkRxYK UpNe/YDwkfU1Kwq+sNA3423T//kAXfOGUScLadqtan743/6+UKqL/MNCMbc4 R2oIW9y4YSbHJdbzh6NT+199RMt+xOMsJCJZQakjvNkje6/7DAsFLDd8+5// /38YMW9dv/yY8P8AD32+kA== "]]}}, 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->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{-4, 4}, {0., 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Print", CellChangeTimes->{{3.7258605826816883`*^9, 3.725860606079838*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN23k4lN/7B/CxJkla+UiRJFGSUqS6VaRCURFSlrShTZKUJUmikLKEJCRJ ElpQHkm2pLIToo0ZZkb23Y95nu/cv/mn63VdXcM855z7fp9zxiKb03uO8NJo tHw+Gm3yX2WYxxgfn5FLo1777Jb6Dg6hXUPU5bt70YXt5jZ/29FW4Q/qS2vQ t/8pfLr3HN0Tp5m82hKdJWR96liOKNcen6vb31tP55r+6D/xdVIiXCv+2D51 RqMw1yO6fWsSatBlqXFWG8vRjl5jr+0L0ZlLMo4WvUBvd5DOv+KDPjbY696z Eq1uE5fkr4gW/mRYLbsEnRL1dIWRJLoPrBue8aN9fEo1jtVN5dqUffHIWAVa 0XTp7ZCyqbkjT/6VG9gYwkhu5dvlxeiyZV5tHz6gY4JXzjmQg3YcboCuN2ht Wz/7G+n/sxXM/bwuTCYFbXGGqeMWjo6fHddT54XOeL32vX6LENcfDpTcIgAt 9UBKJrxFkGu9rQcuVtwQ4Fp6+Kjnsh38lD3hTerxIr1NaMOjdmKnVqOlNtuv GV+BbpvvYBqkgM7oc7i8aDHa89vJmLQF/LmaP3bfCjvlBfrJp/K3SqAlrp9u q5zFn3tpTopui6s3/LY+I3J0OvrFhrMq/VPQO7scXf4b5eP652OnXM0utOtB Z6FDrejZs10MPRvQzUwXp5k16OSii+Gx39Auca5vV5eitd0vNecX8OVm7RDh VbruA+fp7memvkAn7POi7YpE1xDXgoKvoYWUbsjUnEZXCvhpH7fjyx1yt3vr dMcXYpr9jg/aoh2y/W/6WaI1Qm+mzjdHl+sFDGzcjbbjCdKy0kZHOtz5Gq+M Lq0JtaJLoMPTwrxdZ6Ntb4UnThNFqxy/VxolhB7ZEtG5go8vVyOjyDnngR8U LYicQ4zy5l6ky68SSr4Jdwci1Q0H0FYVURYtXby5bxZeazd6EwArUu57OjLR NqXTow1+ocMZbtkKdej0QbWd8yp5qfkTBGVCrFq+L2i6eMKxf8Vo/qWH+pry 0acPb1oVkoquf7DQQS8KLZYTcEM+GK3TMJbA44u2an+lxvbizY3Kl0l1PH4b XIdO5Te4oUOmLt1b4oJOlfjR8voc+u/a3ePBJ9DzjQmpU5botbYXnh4wRxue W7l+hzHa3qu1aK0h2uf2g/1yerzUegkGC2Grz0Gy6NVXZbaODvJwHU3Q3NP/ oIVHmt+c+IbWkjSq1i5En1d/3y39Dh2ke9Fr+ht0ksmqmcNp6I9H6A/anqGb nR4qVyfy5H4f5EwYcFc7v70xDi3Vt93mdzQ665XU5fZ7PNT6ugumFzpDuu6i +9blPx8MRN8dCCum+aNVM+1/TfFBf7sIo6JXeHLnr2yUE7wSAjsvB9gqnUTn uTd+0jVDp1+9FOG5Ch3v+9+JzKloKf/jX6t6aVyH3Hq9rqsFvWaXv9FgA7pc 1NKeVos+80X12pQKGrXeQ0E0SPCBaBl658yUcql8tE+wsaBSFjpv9qiGRip6 /G78Sd0EdLSxy/VdD2nU+gyHDfP0HxpHoeurpbMtwtAuYd2Vh4PRnfe2bPB0 R5+Iuh0XZYcO3XVuvZAxOo9m/O0coA1OTn8tuh5dW/cx6ska9OFt7l7aK9Gs tLXHfyyj5Ubc47yA/+bj1XOl0ZJHJMZ3zkE/+vb19x9RGlVvIkBl040Sz6no 7KTNqfP50TeVe5ROjo4T//Ob5qq82lb07+DXZtrl6JADm152XRon6sr69/56 FAl502X0Dx1FswieX8WGaP57jinjOuMEWd+iQNLx10U1TbSK3j4dexX0NrmP Yg+XoC1G1RqqJdGO1QmPRcTGif/4TURXpN0H3+fi57YIoKN9fTe5DI1xnWE9 ODWFjS5Zb1f16ze6efb3mP/q0X0deg67v4wRZD2NBtkHK/iyM9G7jGZEyMej bRU9j1jcQ7vy/VMJDhgjTMkHBkEN1iOFV9GPX5YXjrqMEWS9jAGaZGhvpQHa 1N1scbIselquen6EBDqHR+LIDVG049Z+ARf+MUJ/3Y3NVn9iYMm16oSjQ6Nc d/nvVVxUPkqQ9fAh3LxnsCr0yihB1p9Y6JISOXfuJNospiTD0Awt8vOJMexG 5y6+0bdCB33uyPEwKc1Rwt+hdfjJv1iQf6yrPm0V+qaioGubFLr7WX72RyF0 AjvOImNshCDrWxyYr7o6GtszQpD1KR6mn7OJvs1A52ZsBs9mtLw67crBUvSt 7Jy89W/QWqP3Dy9LQfdscuOXiB8hPj3UedU9Gg+PPS0eCUagzfM0t/UGonu+ qBnYwQhB1qdHYL63J0BXCf2+Ou2rnDjaSSL47OzpI8Tk6pXgTwAF87OzePlG CLL+JMD3SMP0zoFhrgMaV+77wUIf+J1cc68ArdC+7MC+aPRL7/I7dnfQWxZe KvX0RX95vVggzA1tYVS68ZnjMCFcE3dmo/BjoDOcnD8cGybMbSdH8DE4ey94 XmcxTCRNTiexROBbWNDKNkIHvT4lI6iLTmIQt1VXofMXzOSznI82ep2peV4M 3WRo4+QvgHZgCD97ODTE9eDV9D+v2UMEWe8SwWeBxcKy3+g5r/n3/64bInZO fpx5T+Ch4bPAoTK0MsO4SCwfnX11jLY0E719wWONjSlDBFkfn0DVq92Oe+OG CE45kUoCG8OBpBPhaDY95pfHLfTlqzukQr3QUxd07Uu+METVwyQIfRVxK89h iKp3T2Gx4daCWushYplFYF6vQjKk0tvHWCboEqmNZ+ZvHqLqWTLY7zK89vPX ANFhNFlBXoD5ud0b167to57PG/CvvW+tvhz9dmPHtfWyaGbs+qQNEuiFQjfK Non2EXvIggSe5UvEtw71ct0SlWep+xc9i3em944G9JZjlol65ehzpc9KDYp6 qfF4A/GrRjp356CrQnfO3ZOBFhwJ19iXhF5n3XrQJAZ9vEDNyzS0lxqfTLin 5J1gfhNdElReYuGFHu6VYR9y6aXGLxOWHzg92/pUL7HF6s9X2e+ZcDD33brD tuiAJSIWR8x7qfHKghw/c89jhmg2OzH+xDa0jHF/kf0GtGGWDvOkai9xm3kZ 1A5lwRXpuzPPKKDTvH+qOS7spcY/C+bs9nB3FkY7/ydV6NrXw3XtrzczPH6i 16cYm14tQ9vPjr98Lb+HaHGdLFBZEOXSFXM9C13aqPXxRmoPMVnNv8pmw+iW QLp/Qg8x+dua22aDcmLj9IAo9KHpy1WDgtGBjq4mwb49xJWQrRMlNxtya4pc 77qj/20QfxDq1EPNz7cgG3vkQ7gdeu+UjNYIqx7imyynQoO3A6/IfZMeav6+ hZffDFUe6KP/rn2w7+GWHqJ44tNJrnwH4lFMlzh19HaeDfcfKaMvHvV7/1gO nfSp9s8TyR7i7MbJivUOvqssFU4WQ4uEnldOEUTfIdoMiVfdxHHOAOVA9GXa dPpTdKKGRPGsh+j0vpXXNoR2E2JkQ4acdN3NR/3RRWcsRwM90RUrLmRmnu+m +nsONDECzv+y6yY4020wB9oeJ6yaboXuts1hrjXuJjiPX5OAsUXVT6x2dhOT mxHmZQKEfjCP+AF6dpSAbMaabmLfRFjKl8mFhWYLmhqXoRXmqUVMkUavrtA3 WTWnm0gs0Jvo8LmwKch21oGp3VQeyAW6VXNF34EuIvzUrKu5Je8BeGtNlHn+ Uf0vH5rCO6Pe1HZy7b5y6q8tqWh540CnJQnoMte5gkJRncSFyeFpzAfnmMgw xm30goJFyz5fR+e3P8567oZ2mKmsH3yuk+qn+TBnXUaj0wn0W4v1p/dbom29 cmnrjTuJc5wB+wgiiduCpfQ6icLJj2v1ETI+ly4e10JbdO952bIWzf9f3bb8 5Z1UP/4IyZssaxNkOwlxToH+CPts/5y4IdFJ9ecCGL5hP2wv2klMPq2HOgUQ 9/zfzV38nVT/LIDQJPYGmx42YcOZEAXwt3fYcmkze2LKjVa60AtAbbPQ1Y5P bKq/FoL3zTkJL16jK2tkip3j2MQhzhsWgtziFR2agWinUxozeC6h5wjsMfbf g06PtIucq4jmbXXOqZ/LJtLusx8X6BXCHtWrLQ940LFugfxHmCyuu4oilyrW oW9bZpzMSEWr9JWmb/JFe26uq+ZzYhGCnAJRCF9v/hkssmRReaEQZGr/SQXo oU8vHoO961jE5GyZk1IIOaeED0ssRotmzfNpFGURnHTNLoRDAoufxA4xqf5S BCmGK0uP/WUSCZGTAbUIxiI12cvL0QaturO63qGjVPepvX7CpPpJEXS4WZle DmESu8gBgg3FDpc2X2ESsZPTqbIIbs65GC14kkn0KUwWtCJosLz2/pMpWunp 7d9B2mjXvvtTTFSYVP8phpLNSYrzpZhE9OTjWVcMkrdeGTRPQdvV5p151N3B 9ckK6w+ZjegzZbR5ZYVop+IHx3++6CC6Jtu1aTFcyN+U3ReJdiUap0/zQbtn XbaSPtNBbONMuGK48nJ++mpztHdqlsB2bfT1p2amFspov4SBpDMS6ICHYaPe vB0Ei9POiuF21FrDex3tVP8shrthVbHPqtuJ0Mn2MFwM4cFOve9z0dG+aRGM u+1UvyyBh1eNmGPu6Hj3Tph9op3glOeNJZB4MTB46V70UyflP5ob0SmnP68z XIpOs3Pws53ZTqhxJvwneHlkWqPLMIPgnA5s/QRvrJJW3vrDoPrbJ3h7YIfX wy9owqSt8mUmOs/o+tKSOAYxWb0XXvsEBfryrk230MW6H0u7LqBLt9hKT7FB f93I5zhfn0H1y09QoR6bv3Itg3CbfHw7SmHDvSsSWS6tBKddWnyB443/vpuJ /6T6ezmkn24Q2MaHHuMpXKnKbuF6x90XZgu/txCc8p5aDnflo64KF6J/vPF5 1peGVtQ7W/MzuoWY2HxNlKxyON94gOeLHzr39DalbGf0NN5Vxo9tWqg8UQ4m d+d73NmFfigv+MRjPbrjTWe5vTx6nd73kf2z0F6NH+W1x5qp/Vs5fD6daqjC aKbGqwIkeCNdparRh+9eixfKQ6fInynredZM5ZkKGHxjPtB8r5lYzXlVgLae juzna+jAxpX6mWebievzJgt4BdSflnR+dLCZGt8KWMIrEHN7RzO1f6yAM3fZ xW5q6Gz5+u4Ti5qp8awAwcz8BSbTmwnyuKkCYkMPBXp3/eBaPXv1L4uSH1Se r4CyH0Lr1GLRtvxNftNd0UMK6U1/jH4QnPbxqgKCDHxVc5b9IDjlv6YC5B0P +oTy/KDmTwW8DVWtP1XXxPWe7CnKui/QbT8arkjfaCKUOB+4Atz506r6rZqI KpfJFVYJc5ZdX/ZVvYnKZ5WQZGDhlijWRCzlPJBK0HJc9c2zrZHq35VQHSq4 xCwX7ZD93WVVOJq3ObV06hl0OL+PzE/dRmIJpwFUgvKyA05Z0uh8A5Wi4P4G rs0dBaTsv6A7Q+tPb33cQHzhHP9Ugk/28w/zPdBSzd7iPSYNxGLOAFVCGr+5 falyA/G5dPJVCduXrSTiBRuoPFAJTQb8s92avnPt5Fh31PjVd+L8RPc2Ea0C 4bCUrBUB6Jjsq6KCR9Frm01tmjaiS/mVX72ai7ZZxiccyKyn8kYVDBjUHjz2 sZ5YwGlwVRDg+OwF3EfLhXkJSJyvp/JGFWRl7zfr1Efvbl7+rEiunsqnVaBv u9QKBuuoPFIFO9sWzX71uY74yDmergJdB6mC5bFo7c55F+Oc64jTnEBSBZud Zi6X1ENvGpj2I0i6jng/Od26q0DzsmDwlJ5aKs9UgzqNR8e9qJbgxC+5alDz Hu7viaql8k01qAr1JdmfRavc7Dz4Uwe9QqxdzEyyluC8nUk1KN798+ELq4bK w9WgINHsvO1DDcFp54+rYUlU/bJ3YTVUPqoGWZmqhtUONQSnfdZVg3T8l8Ak rRoqL1WDlELJlkVza6h8VAOSyfm9YfRqrsVViETRHPScjMwD14KrqfxTA7PU M0RHjlZT+boGZrxNee+oWU3V3xoQ0XriRJ9RTeWXGui1dBN5kF5J5Y8a6Pp1 gZjrW0ntl2uh85ij402LSmKscnKB1QKz3WEJ3yo04/Sx2osC6NZua//Ougqu f1+w2HQsBd0ybPKv0Qvd5GEUv29/BZXPa6HowZINwsPfqPO5WlhLRNYwvMuo /lsHGp0HDzcdziA+9E4GkkZQusoWzj2fDgOTyye/GZ4Xsp54mH4Bsp7+gnc7 StTX59UBmXd+Q3tS7Ildpj+B8zgC/8L9Z8qRPS9bgfz5bXBKROLGYHErkPu5 Nthkz3NhrLEVyHzVBqIlDFu+LnSTQuUeIcE2IOtDG6Rcf6c1XbINyPXeBh5/ E5RnKaMNdYKkxLe0Abne20Am/qKwlEkbxE+OZlwbdPIeHpCxQ7+31v+7xL0N yP1jGwTnqlUqBrcBmefawEZaOm9lAlrVXSh1TRaar/HffY2yNiDrSRtUan73 3/SzjXpeEz8nIv/i1r42IPcjbeA0+OzYdmE61zqmYcYGC9HzXntu3aNKB3J8 2uDvXLtV+7ehXzntlbYwpwOZF9vgesWG6dan0Kaq8sNHvOhA1qs2ULg9g24X ii7e9TPfKQdtJ/Iyxv0ver19dMDVIfS0kuuXfUUZXDconLW7JcuAmMnlLUiH 5OvmpsFrGUDWMzpc/rt1W9hOtIHOijVRh9AL4+fJPnREs3hpYgk+DCDzLh1y rOmjSREM6JlcrvJ0CMwtb3+egraSfluXkccAMs/SQcX9UWFmNQPI+kkHWmPA yxwGA7ZzAgMdvmm6xH0YQ8dGWN8umtUOZD2lg+PgTo/P8u1A1k86bDFdc7J8 fTuQ59V0mP16wYGaXe1A1lM6ZDh1rm1xbgeyntLBu6JO7q9fO3RO/jo36GCs +mFWe3Q7kPWUDvK3k2mdaeg+dgirpwBdsMujYbC+Hcj6SoewZ8dLxlhodXvN BCHxDiDvB+ggVCJ3d7pSB5D5mQ51CqJes6ADyPVKh6Tr/afF93YAuf+mg+vf 5oNSx9A7dUr0Fl3qgJOc+ESH+fHpGvKBHUDuT+nQwXt/qVJcB5D1nAFvrX3m qrxG14k1Vvwp7QCyADCgj1gdHPmzAzjLcw4DZp/2MzQaQKssbBGdIsoEMp8z wODzus9vF6PtLgf4O2qgfZT+7FDYzQTO9FjBgLh6TaEmW3SDOt17RxB6Xlgo z8ts9OptTMLuG9qwd6u7TCsTyHzPgJPxERuqR9B+e/8N+c9icf2Yd3vmZgV0 /ovoC/0bWcB5XAYMaLHqVXu2Fz02Q7/H5gQLyH7FgPlEbJqEBwuOcl4MUD81 eKbsLgvI+woG7FtguNI7CX22NIGpkYsOuDT6lF2FTlLcZ/eonQWc4x13BhTW JSkc4GEDeT7AgN++PK1i4mgeddNHBcvZVP1lwMLWlMOXt6A1QwVkVU3RpjoW za0n0a5z7lXtnvUPONsDyXYo/VqpXR7RDWS/6oCHbT+UUlPQzrT2WQF5aKub ZwTdSrvBgzNhOkBPom/Qvhoto8LTsoPRDeR5UgcIv/WpVO9B9+qKFC0d6wYy X3ZAc8Xt7HlCPVAxuR3V6IASS/HnArPQL9ujYnvm9wB5HtUBMRdkQ38tQZ8P XOH2XqMHyP1SByzc5fMytbaH6hcdIFQ/7cmDnz1A7uc7oPvI7aiAjh6qf3RA 0795QW59PVR/6IAit6irDrRertOnyl44IIyODnlst3MO2nfRikMaC9HnnqUZ KSj0Uv2jAw5pqOuIq/ZS/aMDtn98py64Ab3aaOvyXp1eIPPpxO/fWCT9ezda 6MSu2RVmvVT/nfj9eyoE8w6jmzzNhlJPootEfjAfXOil+k0HpIXbtgRcQd+X Y1S6+aN9U08XOYSgHTf0Zh940Ev1ow6wKHJ9vvMJWncfLU4jHa3afC1U4V0v LOIcOHaAlMM0P/FCtOBAkJvgN/S/q/PO9tb3Uv2sAxpmRNn+/o0uiFxkWsHq pfpRB7xY+lgvbwAdlb4cXvD2ce0DaaoxIuizn9bJB87ro/oXE7zGu6+YLOqj +hETglenNi5Yjo475qDxZy06I1IhJHkz+uOX353n9NHVfA/1NfejW9cdTOS1 QQ/Y/8df4tBH9TsmTI2psrx9AS1ZeTvb1AutKLRLXOZWH0hzNpBM0NwgfK41 DK1/pqAsJRZtEe+l6Pysj+qXTDhZu8ln4xu0u8hwC/+HPiDPu5kQqPV6Y+ln dIzTuXt3atGpiSt7zX/1Uf2VCe8b2g1lWehyscRk+gD6p7at0Au+fq67XWRs XUT7qf7LBP5nDQT8h57bEj5/ihxafq7xhTLlfiDPn5iwdsfMihCNfqo/M0HX 7bPyQW308T86f9vN0H4GOfddT6Mjr7gObnZFJ79cazz1GvotvSv1a2A/1e+Z 8HnBc5HwiH6q3zOhycj+uOUjNOva0nz51H4gz7OYMJ75S5qV1U/lASaIsR5c evmxn+rvTFgka1Fz+Sta1URitfZ39Fa/yoBpf/uBvF9iwr6cIEZ5J/pIl/62 iOF+Kg8wwVl+aqy14ABocw5AmOBj/nFUYSY6LOCKWed8dGLexpev5dFv+gbF PFahixVfOWzbMEDlCSbUH3Ismq6Lbg9WlqsyQo8UMDyiLNDThxO+Hz6GXrjy 8DolxwEqjzBBK+w7K/M62np8b8L2+2jH1WK8Yolor2OlB2vSBqi8MtHHI30z o9+h479ozz1ahPY/2rzoagPacfSSckwn+m9RcUbKENr8rrjmO/5Brsssj7z/ JIrerJSuWy8xSOWjifXeRytrkx0Ecn/EBIW8Xfv6l6OjbkXVC6xDi5kxrOZs RnvLqbfK6g1S+YoJ/exrJ1cZo+2yK7rBchDI+9eJ+eazyHXXCXRyhukd39vo Sz8Dk/My0axnjarfPqBtLipl/viMrta+CKwa9E6xwo8jLYNA7t+ZsOqxTfl/ fWiJTWNNa4WHuL45Vf+IzpwhIM9fJ+Z75b32vQvRjjGtZ20Uhqh8yIK/9moD Z1TRZbzf+AO2oV/ec5j51BztXRin+McLvae3fqv0U3RBrkLJipdDVN5kgcZN Z8MNBDp5f371zuIhKm+yQGbxrINmFWihrGcnnFvRbMMdzneG0TZSYSMPBYa5 rm797ZU6Y5jKoyzIcfcM/Lx4GMjzDBao7iyb27AC/WiuVBRjHVqi5YTs4OZh Kn+y4Gby68Qp+sNA3v+xoNu12CbuAtp8x3cpiEP3vLWcJp8yTOVPFgSo/B4U yUQrxB9v6/6AzhNnVteXofvGetMTf6OX/R0Lch76f//f7KrHQYERIM9bWGDx ecopbTF0n9ZNC6X56KAMMb1Z8iNUvmWBokKIxqAKOj/yP4VmTfShGdHzCreN AHlfzYIBL1mBFCO0pdEaYocbukB628U/ieghwd0m6TloZdb+1Vcq0UXWDYuO /0DbVFmJ7WaMUHmbBSPb/4yp9aJD3p5gStFGuS6KcyxhzEWP+F16/EYJHTo2 HvJgLVrF0dvbZzO65I/QuZP6aFuzW9b79o9SeZ0FY6UzDTVt0OFaoZtkT6JV MyRXTHVBf1r6YH6n1yiV7yfeL3KxcM0t9Jho4sC78FEqn0+8n9fy1vg4tGpf apV/Crr0hFq+Y+YocK7Hwib2IY2ZaWb5aJrRpodaX9AR+XmBS+vRZU8/OfSy 0Tx3Knd8EBjjeuw+w+bfDPRQIu2ytOQYkPcJLOhPnxdiIDcG5PncxHzOWZ5y SRndWbyl8Ik6mllp2lyzBc34cWpQwGAMyPuGiXrC8J61Zv8YkPcJLPjVG6Fk Yz0G5HkfC5ppL7SD7NF18xqdOzzGgBM/v048jy1q3+MTx4C8P2BBsYFeT3ka usDUejrPO3Te4QvyKwvRxKlbcPDbGJD3DRP7vItxpv7fx4C8b2fBG+/Ms5l/ xqjzMDa8DPzi18pGp0X8iZs7hH7+aPjtVv5xrpNTZ1afFUUnZi9lP5BAPyrY KFQmOw7keSQbYr/tXTSyHB3dcGK94rpx4EynWWyIbPXYa7p5nNq/sSG8K8TB Rw8dLJQX/dMS7b+Q9XWTE9p3GT/DwX0cyPsRNnivkeSL9EVfARWp4uBxIO9H 2OC+c5tafxTa1dhi15LH40Cej7LhgpXjsb0v0E72vp5XstFnnKPvPf+ItrtZ 8mlaPfpwbN/oMRba6pmIeOjAOJD3cWxQtpgpYcND0yLvjyeep3WU3EVBmhZ5 X8MGpWNLVwVNQys4btyZMxct57b3cIc0epHvicuSiuiFdzxCtq9BR4ULx1pq 0LTI8142SEaHpDhvQofHyWTf2ooWf/K0MH47WsTIr+TBHjTv4PHPERboUf3a XeHWNC3yfokNAzG6X0OOort7XhndsUeztstXBJ1B06NC9gWcp2mR589s+N3J X+3vStMi76PY8EPbaf8ND3R9+K9aH2/0V62871cC0AVtMU2Xw9FvgzxaLsSi 09QP/XZMRj+7+fnImRfoxOYNrSdfoePWJB+3z0ZH+85nHM+laZH3Y2y4qzLU cbgE7Vdbyz5Uib62fPtZizq0p+frLrMm9KVKeaf9v9DOCqG9+9poWuT3Bdhg 47J3eOcIeleRGM9mMR6utc+w+TZIotdLlAmuk0OrOWz0XbMMrZKbPFVVGa00 R8p/5WoeLfI+jw3yx/1FVqijx6YISvxnha5+7LlYwBf9e/e0ulO30F39IQG1 wWhajIz2lnC06Pang0/v82iRXx9mg2J4rq1HInpbW9WXPelod19awmAR+rWC 0uWYJnTB15erhH+jK120Ws/R0T9lPkU1sni0yPtHNnQWGe/R7UGL/Gf/TnIc rXDCU4E1lZdr7cyQO+/noK2mPh27K40+9UItY0wOfdks98RxRV4t8vscE/OB R0+6fCWvFnnfObHenlRVaqqhE4ys/B6tR2cMMmCGFjrv4fleFx1eLfLrVRPz fQft6c+dvFqc9lPAhqZ/flb6huiOe3PnvTLm1eJcJ5WxYWhzzCfpA+ipDMUr N6zQW/yM96s4o10VPVfU+KNDXUPCk0LRaSVJfO4P0bmOapmtCegyydxTRsno hrydctkveLXI6yk2MOyq6uReo2Wn0VI/laIPPFX0cfyJNt1R0NAgzMf1vlbr 1bqr0RVlQsXWG9F7Xj0/dFkXPUvx6pMb+uhv9016Qo3QQTMVId4EbXht9MaL A3xanPL9gw1fHOKlS4+gd+3Te/n3NFq0aCGtx4lPi7yPZsNnza6dPK7om88/ hoh6oPUX32ue743Wtvx6q7MSvSFyiubHJfxcf6tzU71thD4q0bPsoBt6WuK3 pYa+6NR1z5dsvYO+On4//m042qTw5uK10WiFwEuxz+P4tcjlwoZhE7tFy56g tzkvWTCDQAeFNEv0VqKzZn2ecmu5ANe/AjP75LzRtT2M1XL16FIzqbOLVQTx /UVezlh8AJ2bY5Ai64OeUSUT6+WPPtTeHfIzCJ3CU3hjS6igFnn/P9GPxCPc YiPRUdpaR2wS0OvP/tWXfYG+UKIqFVuAzljs0b6oAV1yeFj0zuUpXDfHXVDl XyDEtZRAuwDNCW129FDdcAnaISok1P4r2rO8dO/3KiEt8q87O+GuEP9Mve/o xE2aZVnN6K9JT7ZHtKMH5kl8uNiH1mX3vFYXmcp1aOG35P5F6DUu/qHnDdDl Cjqe3S5oF2udrwfnC3MtHaEjU/QOHZpkNqgxMo3rCmJL3Rvj6Vzbvz80bUG4 KNf6nlmuovozuKb+Xpjr/wN3dkEk "]]}, {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwt2Xk4VN8bAPDBjBlmzFhahCwVCZUlyvoesqZE2bKEFkupRCVrlpAsSSFU 1kRUylKh5lBaKRUVlUQky0yW7Mvvfp/n99d9Ps+5533O8573vPfe58rtO7br IC+JROrhIZH+u26AZQOLiyysFBhq9yWLBLaH1p6bnmHhW9k79qx6QYLgtC0K Y/9Y2P3aEulvYyR4Mei0r2+Qhd3UjgkVWPGA+5WcjqbPLHzWvnciW4AXLo4o vsm8y8JbFOs11qfzwUMpHZ9Lt1j47qUkxfFXfNBpZklNusHCWE8/SG+BD5Su H9kakc3CtimGA3beZGjYdr/WM46Fu/J2PWk2osB4gW6ZhhsLRzRUev8WoYLE u+3b1jux8PGmkwkOVlRAM679CnYsLLNRT8U1gQpJ1hFrJCxZuGoi0XoDlQYK 88+ukjYT6zHkKWDyC4CDvVVSM5OFLZKtJCmr6FBD8zjq9YSJRbRovnu+s6D5 h/2X8YdM7HXpWaWMpDB0VW83iqpg4q+UZ+eo5sLAf3DLsmvFTOxwTFtZp0AY dtWznnxIZeLXD4KMLN1EYDDoiZCBFxPH+NWFruGKwoJ1ZeAbDyZeinVj/FaL gajirZ+OLkyML94PMXYUgy2f0qoCbJg4XSLbIf6pGJxVP+JaokvEb31/tDR3 CUgNSt5eIszEfBcqW86cWgYbG0SW5wsy8cp10ssHK5aBUSY1ciOFiZ0yRzeN jywDb7Mx220zQriacvBb77HlUFXweu7MLyEc55rV5hcgDlYuQdsHHwrh1kYX 6YgsCTjT/Gmw3kMIt0cxupgnZKDrSzQudRHCm25LGVc2yIDRL9W0NAchXFAc xCcgIAv8s+cNfHYI4ePS906G75GFREW4KKwthK+ZFdt3LshCVvRNLTdhIZwf mKe6zmUVzCXb0i3oQvif49X5nPhV4JrF06XOL4ThWrVWxINVIHvPOZ5/joH7 z4ydjFiyGm52sr7d/s3Arn/dTTI/roZK7dORc08Y2KT99rsZT3lYZiJv3/eI ga27fRdPZstDoPUHpZZKBr6yXv+8T4s86HiptBbcYmBK2fWyx7oKUH+5S8Ey nYEbcgePaYmvhbdc86bMIwwsr89/Z9cfRfhzY8XyzVIM7JtpIt83pgJv93Wf 0lnOwIUlpUy5LeuhUqb0k74oA59Zljk2EroewjP10o1pDLy5mHnEibYBRJPc lu4ap+OON731XgobQefEDbEjTXSsm8cra4xVQUbtaIDfCzq+d8jiudNvVSBz tD4GNNAxdXFs/3OmGrz1epka/JBwRJZyzl412Oc8KHKukI6933g+8uFVh/NG asIFoXTcZHRcZd5JA44tTh8rCqTjcnK3XlWcBtjWNbwr8afj+3nxPs2VGiCt ZXuh3JuOa8YdGHLCm+D+ukDmE1s6Xldy3v/Qm03QIfyY0a5Cxworrw+q2WmB 0g9zAdZ3Qezafb9Gr1Yb5swmNhV9FsTlymLKp2a04W15gbv+B0EcIGFYDjo6 4B+18ODwC0Gsdu5zUVytDjySr/R8eU8QW+1eFs5o1AVzX5lnkbGC+D6r7+3M uD5ItDVxxSMFMXXz7NHn+gYwpB8sWR4iiPs+7ezQjDOAFFabf6efIJ5637CT IgXw5f55OV1nQWz7vGi0UQGB1/S/8PGNgvg8r3JSpbchbNlXcCtBiRhv3dgY n2oIgm+sP62SF8Qhmzr7a+sM4c7V0vU2EoJ4sAp1aYsawQR4fLtNFsTJk5W7 7tUbQWxsk7ZXuwAe7HhRsUXDGArFCsbbowSwb9r0VmNPM3hWTk1oDhPA+x// dUjMNIPeHb5y9acF8BoLpVHdZjNQOKdpVXxUAB9rjS1t1TSH4rkXN085CeDG ihkRHoYFlPUOOYmpC+C1i5zkv03boCnKZoR/vQDOEpj6RKdawrBMddzMWgGM jplNZhlawganM5U/VwrguAuvFpc/tITytyLMcgEBbGUpp1p4aztUPtCq3/6T ho1/6+jWF1lBq222A/pGw5p83xnh/Vbwb2RxWOMzDVeSnc3qlHaClsorCclm GpZTHzmHy3fCw1znE38e0vDbhM3PIjysoS4+Ym1sCg2XT5utyYqwgafOr5PY QMNhJTZ3k//thpZCsb+mOjRsRskzGltlC53DLrvebqLhwaJjutXWtjB1hrvs +zoadvaPWuF02xY2FC7JnRGj4VzG4d8qh+0ga2jvfc1+Kh533uh6bdoeijWL lzzupuLcWpkLeusdoCp85JTxdypOMdiSZuLhAC3CZ3V3f6Bi+/Qa2SuvHYCi WfLMr46KRzmJ8bb5juAXNvapNIWK2e9hZbunE4Q/19PWSKDiL5U0G/88J0hg xWbXxBD+7jsU+c0JivLE3V8FU/GC4q9iqq0zfG3U/9N3gIqzvtTfeGbuAqbM c7Ny2lTslTmo8cxiL0jlSMle+cmPGeb7LzEcPeB2ZqSQ9jd+rLx4sbE/1AMM LvfNtH/ix+bOcuP0fA9wiy9vk2zix3aLHgrrhj0gP8A4IaeaH/dUfF7dFLsP FM19J4oS+LFhZO1b2Zf7YdNIbVOVJj+mGlAyzsd6QuOgbI29Kj/OuJXhrVvl CfZ9MTcnlfhx5tXE8K2/PCHw684obVlivN7+rvNWL6hp7Nn8WJAfi5lKf6yl eAPKohc8+0HBYv3/SLXZPmC51TnoYzwFJ6bGynwVPgJK/oHvW85SsMZRbkWO 2REQzLu07u0ZCnaKG2rH4Ufg5cKb9pcnKbi/hHdCgnMETGv0dJ54UHCkgIC1 /vujgNSkZ4u1KTj2tuCbdls/0JT5GRr+h4y5t3ozbu72hyVW860hv8hYQPWZ l/NJfxgPXbE+6AcZN0ldPmua4Q/3O2y+B7SR8Wh3fcfTr/6gmt6g71NPxnbL rkXv9woAJaHChd2ZZHxK2EclNP4EyMx6RqyzIOPfiaGeO2dPwVCbV2HNVjJ+ fOOrK79iIDws935paUDGfofTogXtAsHa85DwUQ0y7n31RXLubiBEvD+Se38l GR/fcaEvxec0dN88gXVH+bBDf9Od3sEgKLKNIlll8+GFPM2GENUw8N8YveZH Gh/murw6VesVBgaCZ839UviwjMft3Q45YfCZHZOSGsOHm03iYm+wwoGmHC/7 +RgfDundMVwyHg6HeFKQuzERPyGzcJ93BKy/cy3Cf5gX96U1nAg+FAXmj+1Y 7v28mK10M0jyfBTsaxK6vqOHF29tWEodKomCKwNhtYrtvNisn14kNRAF5LV7 Jzqf8WLJrnPeDb7R0JEj7Wt5lRfHa57eahtyFmIv5jisseTF0gPul/XZsZCX 69AnYsqLd9/y/2XcGwt1d1knFxEvNp5XORZNj4OR5jOpHVq8+KFh0+abjnHg IujenLKKuN+7uTrlXxxoRMtunZ/mwfXxeUvldeKh60Tehk/FPLg60rNY6W8C hGueNP9ewIOXt12iVEklgtSE+b5f13mwe/rxjFCLRHAM/Js2epkHt/wxPfCs IBHeB8E8M5IH5/ttmNZ3ToKG8O9vzPbw4Knsn3ZLPiVD4bkVPo8EeLBl/V7/ KwspYGQxHIXJPNizZFhtTPwidAnUX32xSMJy5RI//TQuglSCd0vbPxIeuBx2 vc37IqQlPdg8+pOEl11SSDBvuwixqXb8yjUkHGOaIjVemQo+Vy8WXD1EwvYR pIcHUy7DOG1b/OaDxLjksJLg/csQcZL32Ac3Ev7cP6n3/eNlSLcK0KHZkXCp vRifsHgaNJDs3gcACZtPpobdzk8DiYPii9uWkPC7mqQ7Yzgd0pwNqkZDFtln r+kvCq3OhLJNdyMUjy+y1bv2HPi9LRMahGS37/VcZC+PTar9558JHDZPzyvr RfbsRIDw/aeZYLqmUThPfpH9gWer4F2vLJgYsvTd+W6BrXZYfWP/o2xwDN+z umzVAvsqPfv663PXgY63PMsSX2DvNqloj668Dk94xA/GMxfYFQtfxvy6roN8 zKciz5l5ttiPzJO/t+TAaMJuJbkP8+zD5w9GbxvKgcTMHWrpkfPsr/rlz+Pu 5AKuNISIrjm2+s/6yj6NfAiYkO06+mmOndQcbKOyIx8UtpAiXZvm2I+D8M1k z3xIqn3SoPNwju1spPK1JDMfnBp0Tf9dmGNveFnepsdTAOPvNHccgjn2o30n uvvbCkBxcJ2z7fVZ9sf50IXJtBtQdfbDpUOXZtnZw0eU/KtugJF0SFPEuVn2 EZNhX5G2G+Bi06R/23+WzbhhXMJeUgQpD47K8pvNsg+87VXsTCuC6eiK3gfc Gfb25vkEvZyb8FpK30/ScIZN/nO+0PxdCThU9xarac2wFx4GxF4bK4FfO5N/ minPsB1Yn5dLit+Chagfu04snWG/nROpTfG4Bep/IjWb/0yzl/Msk/WZuAVZ Vc9nwlOn2bd7gzV+ry2Dw1bWMd09U2w+esrO77fuwMI21Vbl9il2i5BeTO3H O5BqJrz65NspttinJ9bP5u5ADWrB1EdT7AjfL8L2O+8CTcN6TiV5iu3miqlh E3ehaLl1QOCWKfbAvxfXAovKobtrpwcjaZJ9TcKy7LzQfXAK2KmvpTXBvlzS zP0mWwUJX655bFGZYK+I/xarp10FdfpDMTqrJtiCUi8N7tlUgTQt/q0Bc4Jd u01xU0dUFfy82uBm1vePbWX/YK1yXxV4P9eMckz/xx4R4S1pKa+GUyukXgRP jLNtp1vf7rd/CJfY/dbs6jH2Ce3eFrtftXA9lCT0p3SM3ezG+/QZuQ6KtcVf ieaNsYMfnm2wkq+DJxVmhp4JY+xlNSRapWcd9N8sUhNyH2Pz7K0OfTZQBwYp B0SdBcbYTPOXO/imHsMf966PE86j7O3FO8wuiWEA3i/2G3hG2FvGGgozfBvg 0JcGvxtjQ2wTIytHfs8XoJcZKV5z+jfbpGduULSoGby/j3zds7ybHZLxpzFo +wfY2aVy++WaDrapmvU5z4420GJnfx44+5ate0IrXnWqHbT/uu7v3F/JPvRq yZmRye+gHM0VxCcrILD6R7rqVBfcfcEpOeP4DgxdKL6e4j3w2OL1Fp2GdhjP kd54j9QLg7fyfawcu8HRODigidsH125vyB6v+g1aX29FiJf0Q51H7FLVB0OQ fqCW7LtsAIKXZLbtFB2BC76K/Vm+g3CYz/7HcakRwOrbn6scHwSXUdE/lxRG QENdPqn25CBAS+LcZ50R+C1N//QufBDIiRGr3fePgPD5SpePKYOQzOd93K9y BOIk9sSYVg5CwaiW0EX7UTAMEZ78MTUITS2txh+yxuBg7Uzf7OkhqHZx2lJf OAafer+gh6FDkNf/Q7n8zhjs3drRcDxiCE6RBkWTG8bA203L6FvcEMiq8vy0 GBiDV4b6Wy+kD8HJC+vD6rXHYdcqgdkjFUMgbRVbVf5lnDgnRRNig0Nw/M1m hQvLJqDwkmL4pl3DELU4FmkvNwHDBsvHo+2GIVWj/PtKlQnwvvjOrsVxGCqz FdPKDCdg8LNkt5vbMEwdXkF+7TsBhvrDxk6+wxDOmP1JfjoBsd3xRx/HDMP5 HU+uBR+bBFPuKX+z6mHIjgyeNgyehMG2a/KbHw1DWZWWnUDMJGicWj22um4Y mlfeZVzJIlzu1zNePwzCnJyQqsZJSM5wND7RPAwZyZF7/kpOQVHD7IGBnmEo fGe81PPlFJzwu2DIZnJAPDs1+8SHKfCj1QmuE+FAgmeXXPS3KdDNKwxOEeOA /3zIhty/UzBgxG/rKM4BQ+UKsw7xabBWKRdtkuNAZ6xcsJXPNCgp+XGMNxHx DBY6tQRnQLR3450YBw4kCmw/aLJkBrYb1fwt2sOBxdbMwd3SM7DR7hnluTMH +g5rTvmpz0C8yp+yeTcOVGX6ipQ6zQCPacSy3d4c2PWvY6tM6QxMugunZJwm 4pU9KKZun4Wu1NUjKRkcUJDVy+DYz4JRlZ5DRiYH8CUc0+YxC1fx6v3Z2RwY C361ryBwFh68uRBwNYcDThZfpaBgFtYwbEqibnJgXd9CyqmZWfAtlZ3rqubA cxnToN7iOSj8/atj5CMH3C+99mqqmAPxGInT5W0cmOHfaV/xZA4mqVXjvp85 sIHjoBHZOgci+7Ze+tHBgbQ6n2Ep0jykfevOKP3JgQN7kjxsHebhgJrBzi4O B3gutVo8pSxA//PMvpdULixcG9g3wlqAenS+aL0AF2aKSaEyEgsQS1qsSxHk wvgTlTshGxYgNUxhzEaIC30DZ0U3OSzA9yVqZViUC01Gml8Lixdg5rRwsvVK LlwZTfONtVyEo6DavVWNC2nzpTGVdouQqzihckqdC6m0huvdbotQbcUzW6TB hQRpTovBiUXoKnNXIGtxIXybqebk1UXgpJ7uKtPhwv78iXkvziL0Ws+JPNrK heUlpS8KzUloXcCK5kZbLojOS1jk7yAhy3pxnud2XGDYnH+ds4uEVIu1/j6z 5wLvtHdzlgsJ7a69T2Y7coFjrvAxxY+E3q9+o1jowoXn/bmdoVdISPJooq/G AS6cUkz/Z9tPQsEXXHSP+nPheCglcNcwMT/qroJ5ABd8W05M7RwloTg1uTHZ E1zYd3r37LY5EkpfOqnx7iQXrF4K8xgK86DFnwdOSgdxQcE7gbF+Cw/6Pdk9 fu4MFz7djFhNOceDdqq5l6clcInnIb39aBIP0mmgh7gmcmF0Mi35SyoPArGZ lWuSuMA0L50uvcaDNH3oo7eTuWDa3/ZuVwUPkpFvmKq4yIUHisqhuZ08KHXe pfR8BpH/krZWXU1e9PAO9+XhfC4U2bifv6HDi063SyuJFHChcnoAWIgXze4X T6oi3GJBKu3exouC9u1xnS3kgsCAUmS8Oy/6WrbPIuQmF4KVItZ/TuBFEgYv 9+4o44JzqVKsfzcvqiXPPDWq4oKEzELLmd+8qM54/416wh2p7yWThniRRQHf a6jmglPw6Xs3J3iRz5mzXdoPuOBo8fzbN0E+dPRshrP8Iy7Y/vbQMNPgQ9rS DOuOOi5sX53ZJXmWD7kcfa7T8JTYzwxf5XXxfGhQpU5D+RkX3giiU1rJfOjz BquES4S3jfbRba7wIZZN5J59jVwwr9+0ObaMDw09Sj039ZwLxm4tSX9b+VD+ uHc39TUX9LKpuo3yZNS/JrDvwTsiv/snHhkokxH56FWvpS1c+KnUu+WhKhnZ vJgx8yccW9OgVapLRpJl/EpK77nwvj1M/aINGVlp5CamfuCCp/j4OtcwMtJT bEo1beNCSlqX+L9WMrq+4/1Nww6iPlzfZRztIKNIpFyfSFhT/smy/h9kNGzO b/eZcEdl9pKvA2S0TtGHe+grF+Rb7YXrSRTU5fienPiNCzWizdQkFQqi6xTu re7kQs+FRxNrzlJQ82PMe6+bC+pFiQNn4ymom/GhaZBwVJ1b569kCtrcM6yi 0MMF2T+U54WZFKSW+fleJuG9RrvS1tyloHg5866QX1z4Mj6gsaaDguBQpfP6 PuI875E6vlqVHx1QlKJY/OGCpB/3QLQmP8o59wYHEj4U2+DYo8OPjk/nyRcR FqjwRgUm/Cge/xviGSDqk1HFWu3Mj6IrfSOrCOMnO+6siuVHOKJni9AQUX+r zwzKfSPmX+4KjOJwoYqSfUL+Jz+SVtPuKSRc/bt6XrGPH/1IWC7ygvCDUg5L 9S8/sujrqxLkEvnQ2LvJgExFnGGDDRcIs7fqhzmpUNFy3QfKSX+58Hr/LPNS KBXFvdRtcRsl6sVk+ZX0SCoaf04xCCHctFZDLiuWiv6lhQSlE24ePKSRl0JF 6rL3nJoItwR0ONwtpCJp0RXvNMe40Bb9KPdNExV1Zss0LhLuKghUJ6+kIdt1 pjPH/xH9sf0ON2AVDd10uhsbT5gm3FfWs5aGVOZ5e3IJbwy1XftUnYZ65p4z 3hEOt1WTijKnoY1O6hvWTXBBijJIIZ2gobpxr9FWwqq6q54eC6Khxf0ON/4Q Nj6+J+JHOA2VLzu8foHw4e8vZp7E09CQrN4ThUkiH1WF3LAcGgoJFRs8SXiP 59722dc0lDcRVMmYIvrV1bT0wy00VCTY8l2acMSHpt1f22gowZr/pyrhYgPd tzVdNHRISv2ULeGpZeJPgyaI+SuNezIJp794XzYpJ4BOa78kS09z4YOiScTY aQE0t8FXXWiGCxlKjR/4wwXQrvbBDRKEXVRM5CWiBdAUn4nIWsK/N5q8RkkC SPqa4TlEeE7LZElyngDK64k29icsb2JSrPhaAG1Yoif9nvCAaeOM7jsBlCg6 lfSNcLm5yY6drQJI4OT+vt+EdbabjJ7sFEBsuXGbBcJWu030no4KoAfKueJK s1w47WHS4iopiJwPuJ4LI6y/v3HVcVlBdLszPz2OMO9Bk5Nn5QWR8lLFlIuE k7xNJEo3CqLDHxJNbhDOP2ZyYGqrIJI5wX38hnBTmMlUqq8gGhdroiyd44JM lonsy8dEE+KRHMwk7D5Q8ru+QRCFRyhH5hHO12HerX0hiH58i6aWEFb4+kn/ 7ntBxHwU1fuA8AYpb+f0XkEkRxv600pY7/r59ANCdNR6xHM9Y56oDw7Hda8o HZ31O9EmShgb7JZ3XE5HfbnJx1YQNv4hWWkpR0fvtXYFKxC2lL39Xl2Tji4I TQ4BYaf8dwweVzryqlBx9SN8dVSjdcaDjphX5NRPEe40upI97klHSxwfzYQQ 3tfjrtTvR0cftNW84gj7rBk1e3eWjozXf7l7jfDpoiXR18royN5OeclLwum3 9kxrz9FRWYhiw5IFLgxatY/n8DBQ80XvjBWE0ZjjXwqVgSJtLD2kCQ/oOv5+ L8JAxzudPq4lbNBs3+azloEObjfV0CHcy919L3MXA0kFfp5wIaxz+WPZogMD VT11k/MgnLxld/FBVwZqWbZgeJDwlshdOWreDCR28ePBI4QTRW2SXoUxkPHr zTphhDdpEm+DxQyUZMRQzCYc3958wO0OA61se/n4OuHOsB3ujRUMdLKgZ1s+ 4XPPtztcfMJA7XERliWEvzlYmqxrZaDQVV791YTPBpvL7VlkoHPJA7kthD+y jdof2gmhg5fOxSwQ7thIP9TgJIQW9vvPkRaJ/pDzceaNmxDaK3zvCB/hoTMH pH74CCFjTVegEeZHsW6UcCH0ad3jXBHC2vhVr02RECrhrTq4mjBSTT3lXCqE Yv7uj5MnbJrrRD1YLoQyXKQL1xLeFTGoeLpGCL127nqrTNgXCflefyuE1KTZ AxqEc7D16MCEEJLn+2S8lXCR6oro8VkhFJImKmVCuCz3p9gCiYn2rp7jmBJ+ GOGvKUJnoss9s3HbCH9Al09vlmGiTXX34mwIU+o/L0SbMZEFvb1xL+HD9Xvp K68wkcyvlNOnCO/LaU+vu8ZEr1zaFgIJO4XZrnIpYKKiCEpkEGFz7W3a2XeY qMrHJiiU8Jp7ml4rGpkoT+SuThThb7mMp0tHmchpzygtifDH8Dirqkkm6tkd syuZ8GsX3g7beSYSsLl65cJ/6xWf+nuJxkIPgoIkUglfTumRFpVhoXa57n/p hLdH1AQzt7NQ/seHormEt+7V5L9jw0I3zCMV8wjr6JVf3OHAQi+O2ejmE1ac ulGcuI+FZNevdSwkTPa7+EkwiIXahk4fKyb82M1bnVrEQnUckmQ54Ur9nsdF pSz05v0d8r3/8im518L0HgvtmWkb/M9Zn3e7x9Sx0C+4db+C8KmdxCfkRxYK UpNe/YDwkfU1Kwq+sNA3423T//kAXfOGUScLadqtan743/6+UKqL/MNCMbc4 R2oIW9y4YSbHJdbzh6NT+199RMt+xOMsJCJZQakjvNkje6/7DAsFLDd8+5// /38YMW9dv/yY8P8AD32+kA== "]]}}, 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->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{-4, 4}, {0., 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Print", CellChangeTimes->{{3.7258605826816883`*^9, 3.725860607079965*^9}}] }, Open ]] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"The", " ", "empirical", " ", RowBox[{"c", ".", "d", ".", "f", ".", " ", "is"}], " ", "a", " ", "consistent", " ", "estimate", RowBox[{"(", "tor", ")"}], " ", "of", " ", "the", " ", "true", " ", RowBox[{"c", ".", "d", ".", "f", ".", "!"}]}], " ", "*)"}]], "Input", FontColor->RGBColor[1, 0, 0]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 5.2", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"{", RowBox[{ "0.41", ",", "0.58", ",", "0.75", ",", "0.83", ",", "1", ",", "1.08", ",", "1.17", ",", "1.25", ",", "1.35"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", RowBox[{"Length", "[", "t", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "\[IndentingNewLine]", RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"i", "<", "n"}], ",", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", "Null"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"i", "<", "n"}], ",", FractionBox["1", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "0.25"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}]], ",", "Null"}], "]"}], ",", "\[IndentingNewLine]", FractionBox[ RowBox[{"n", "-", "i", "+", "0.625"}], RowBox[{"(", RowBox[{"n", "+", "0.25"}], ")"}]], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"i", "<", "n"}], ",", FractionBox["1", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "i", "+", "0.625"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}]], ",", "Null"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TableHeadings", "->", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(t\), \((i)\)]\)\>\"", ",", "\"\<\!\(\*SubscriptBox[\(t\), \((i + \ 1)\)]\)-\!\(\*SubscriptBox[\(t\), \((i)\)]\)\>\"", ",", "\"\<\!\(\*OverscriptBox[\(f\), \(^\)]\)[\!\(\*SubscriptBox[\(t\), \ \((i)\)]\)]\>\"", ",", "\"\<\!\(\*OverscriptBox[\(R\), \(^\)]\)[\!\(\*SubscriptBox[\(t\), \ \((i)\)]\)]\>\"", ",", "\"\<\!\(\*OverscriptBox[\(\[Lambda]\), \ \(^\)]\)[\!\(\*SubscriptBox[\(t\), \((i)\)]\)]\>\""}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "i", "+", "0.625"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}]], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"PointSize", "[", "0.02", "]"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(t\), \((i)\)]\)\>\"", ",", "\"\<\!\(\*OverscriptBox[\(\[Lambda]\), \(^\)]\)[\!\(\*SubscriptBox[\(t\ \), \((i)\)]\)]\>\""}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0.5", ",", "0"}], "}"}]}]}], "]"}]}], "Input"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox["\<\"i\"\>", HoldForm], TagBox["\<\"\\!\\(\\*SubscriptBox[\\(t\\), \\((i)\\)]\\)\"\>", HoldForm], TagBox["\<\"\\!\\(\\*SubscriptBox[\\(t\\), \\((i + \ 1)\\)]\\)-\\!\\(\\*SubscriptBox[\\(t\\), \\((i)\\)]\\)\"\>", HoldForm], TagBox["\<\"\\!\\(\\*OverscriptBox[\\(f\\), \ \\(^\\)]\\)[\\!\\(\\*SubscriptBox[\\(t\\), \\((i)\\)]\\)]\"\>", HoldForm], TagBox["\<\"\\!\\(\\*OverscriptBox[\\(R\\), \ \\(^\\)]\\)[\\!\\(\\*SubscriptBox[\\(t\\), \\((i)\\)]\\)]\"\>", HoldForm], TagBox["\<\"\\!\\(\\*OverscriptBox[\\(\[Lambda]\\), \ \\(^\\)]\\)[\\!\\(\\*SubscriptBox[\\(t\\), \\((i)\\)]\\)]\"\>", HoldForm]}, {"1", "0.41`", "0.16999999999999998`", "0.6359300476947537`", "0.9324324324324325`", "0.6820119352088663`"}, {"2", "0.58`", "0.17000000000000004`", "0.6359300476947534`", "0.8243243243243243`", "0.7714561234329795`"}, {"3", "0.75`", "0.07999999999999996`", "1.351351351351352`", "0.7162162162162162`", "1.8867924528301898`"}, {"4", "0.83`", "0.17000000000000004`", "0.6359300476947534`", "0.6081081081081081`", "1.0457516339869277`"}, {"5", "1", "0.08000000000000007`", "1.3513513513513502`", "0.5`", "2.7027027027027004`"}, {"6", "1.08`", "0.08999999999999986`", "1.201201201201203`", "0.3918918918918919`", "3.0651340996168632`"}, {"7", "1.17`", "0.08000000000000007`", "1.3513513513513502`", "0.28378378378378377`", "4.761904761904757`"}, {"8", "1.25`", "0.10000000000000009`", "1.08108108108108`", "0.17567567567567569`", "6.153846153846148`"}, {"9", "1.35`", "Null", "Null", "0.06756756756756757`", "Null"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> { None, {"i", "\!\(\*SubscriptBox[\(t\), \((i)\)]\)", "\!\(\*SubscriptBox[\(t\), \((i + 1)\)]\)-\!\(\*SubscriptBox[\(t\), \ \((i)\)]\)", "\!\(\*OverscriptBox[\(f\), \(^\)]\)[\!\(\*SubscriptBox[\(t\), \ \((i)\)]\)]", "\!\(\*OverscriptBox[\(R\), \(^\)]\)[\!\(\*SubscriptBox[\(t\), \ \((i)\)]\)]", "\!\(\*OverscriptBox[\(\[Lambda]\), \(^\)]\)[\!\(\*SubscriptBox[\(t\), \ \((i)\)]\)]"}}]]]], "Output", CellChangeTimes->{3.7258606151681747`*^9}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{1., 0.6820119352088663}, {2., 0.7714561234329795}, {3., 1.8867924528301898`}, {4., 1.0457516339869277`}, {5., 2.7027027027027004`}, {6., 3.0651340996168632`}, {7., 4.761904761904757}, {8., 6.153846153846148}}]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox[ "\"\\!\\(\\*SubscriptBox[\\(t\\), \\((i)\\)]\\)\"", TraditionalForm], FormBox[ "\"\\!\\(\\*OverscriptBox[\\(\[Lambda]\\), \ \\(^\\)]\\)[\\!\\(\\*SubscriptBox[\\(t\\), \\((i)\\)]\\)]\"", TraditionalForm]}, AxesOrigin->{0.5, 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, 8.}, {0., 6.153846153846148}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.725860615246702*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "The", " ", "graph", " ", "suggests", " ", "an", " ", "IHR", " ", "distribution"}], " ", "*)"}]], "Input", FontColor->RGBColor[1, 0, 0]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 5.3", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "18", ",", "3"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "50"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nbins", "=", RowBox[{ RowBox[{"Length", "[", "t", "]"}], "-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numberfailures", "=", RowBox[{"{", RowBox[{"21", ",", "10", ",", "7", ",", "9", ",", "2", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"survivors", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "1"}], ",", "n", ",", RowBox[{"n", "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], RowBox[{"j", "-", "1"}]], RowBox[{"numberfailures", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nbins"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ FractionBox[ RowBox[{"numberfailures", "[", RowBox[{"[", "j", "]"}], "]"}], RowBox[{"n", "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}]}]], ",", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nbins"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"R", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ FractionBox[ RowBox[{"survivors", "[", RowBox[{"[", "j", "]"}], "]"}], "n"], ",", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nbins"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Lambda]", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ FractionBox[ RowBox[{"numberfailures", "[", RowBox[{"[", "j", "]"}], "]"}], RowBox[{ RowBox[{"survivors", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}]}]], ",", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nbins"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "\[IndentingNewLine]", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"survivors", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"numberfailures", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"f", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"R", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"\[Lambda]", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nbins"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TableHeadings", "->", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(t\), \(j\)]\)\>\"", ",", "\"\<\!\(\*SubscriptBox[\(t\), \(j + 1\)]\)\>\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\<\!\(\*OverscriptBox[\(f\), \(^\)]\)(\!\(\*SubscriptBox[\(t\), \ \(j\)]\))\>\"", ",", "\"\<\!\(\*OverscriptBox[\(R\), \(^\)]\)(\!\(\*SubscriptBox[\(t\), \ \(j\)]\))\>\"", ",", "\"\<\!\(\*OverscriptBox[\(\[Lambda]\), \ \(^\)]\)(\!\(\*SubscriptBox[\(t\), \(j\)]\))\>\""}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nbins"}], "}"}]}], "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"PointSize", "[", "0.02", "]"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(t\), \(j\)]\)\>\"", ",", "\"\<\!\(\*OverscriptBox[\(f\), \(^\)]\)(\!\(\*SubscriptBox[\(t\), \ \(j\)]\))\>\""}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"R", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nbins"}], "}"}]}], "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"PointSize", "[", "0.02", "]"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(t\), \(j\)]\)\>\"", ",", "\"\<\!\(\*OverscriptBox[\(R\), \(^\)]\)(\!\(\*SubscriptBox[\(t\), \ \(j\)]\))\>\""}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Lambda]", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nbins"}], "}"}]}], "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"PointSize", "[", "0.02", "]"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(t\), \(j\)]\)\>\"", ",", "\"\<\!\(\*OverscriptBox[\(\[Lambda]\), \(^\)]\)(\!\(\*SubscriptBox[\(t\ \), \(j\)]\))\>\""}], "}"}]}]}], "]"}]}], "Input"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox["\<\"j\"\>", HoldForm], TagBox["\<\"\\!\\(\\*SubscriptBox[\\(t\\), \\(j\\)]\\)\"\>", HoldForm], TagBox["\<\"\\!\\(\\*SubscriptBox[\\(t\\), \\(j + 1\\)]\\)\"\>", HoldForm], TagBox["\<\"N(\\!\\(\\*SubscriptBox[\\(t\\), \\(j\\)]\\))\"\>", HoldForm], TagBox["\<\"N(\\!\\(\\*SubscriptBox[\\(t\\), \ \\(j\\)]\\))-N(\\!\\(\\*SubscriptBox[\\(t\\), \\(j + 1\\)]\\))\"\>", HoldForm], TagBox["\<\"\\!\\(\\*OverscriptBox[\\(f\\), \ \\(^\\)]\\)(\\!\\(\\*SubscriptBox[\\(t\\), \\(j\\)]\\))\"\>", HoldForm], TagBox["\<\"\\!\\(\\*OverscriptBox[\\(R\\), \ \\(^\\)]\\)(\\!\\(\\*SubscriptBox[\\(t\\), \\(j\\)]\\))\"\>", HoldForm], TagBox["\<\"\\!\\(\\*OverscriptBox[\\(\[Lambda]\\), \ \\(^\\)]\\)(\\!\\(\\*SubscriptBox[\\(t\\), \\(j\\)]\\))\"\>", HoldForm]}, {"1", "0", "3", "50", "21", "0.14`5.", "1.`5.", "0.14`5."}, {"2", "3", "6", "29", "10", "0.06666666666666666666666666666666666667`5.", "0.58`5.", "0.11494252873563218390804597701149425287`5."}, {"3", "6", "9", "19", "7", "0.04666666666666666666666666666666666667`5.", "0.38`5.", "0.12280701754385964912280701754385964912`5."}, {"4", "9", "12", "12", "9", "0.06`5.", "0.24`5.", "0.25`5."}, {"5", "12", "15", "3", "2", "0.01333333333333333333333333333333333333`5.", "0.06`5.", "0.22222222222222222222222222222222222222`5."}, {"6", "15", "18", "1", "1", "0.00666666666666666666666666666666666667`5.", "0.02`5.", "0.33333333333333333333333333333333333333`5."} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> { None, {"j", "\!\(\*SubscriptBox[\(t\), \(j\)]\)", "\!\(\*SubscriptBox[\(t\), \(j + 1\)]\)", "N(\!\(\*SubscriptBox[\(t\), \(j\)]\))", "N(\!\(\*SubscriptBox[\(t\), \(j\)]\))-N(\!\(\*SubscriptBox[\(t\), \(j \ + 1\)]\))", "\!\(\*OverscriptBox[\(f\), \(^\)]\)(\!\(\*SubscriptBox[\(t\), \ \(j\)]\))", "\!\(\*OverscriptBox[\(R\), \(^\)]\)(\!\(\*SubscriptBox[\(t\), \ \(j\)]\))", "\!\(\*OverscriptBox[\(\[Lambda]\), \(^\)]\)(\!\(\*SubscriptBox[\(t\), \ \(j\)]\))"}}]]]], "Output", CellChangeTimes->{3.725860619722169*^9}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{1., 0.14}, {2., 0.06666666666666667}, {3., 0.04666666666666667}, {4., 0.06}, {5., 0.013333333333333334`}, {6., 0.006666666666666667}}]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox[ "\"\\!\\(\\*SubscriptBox[\\(t\\), \\(j\\)]\\)\"", TraditionalForm], FormBox[ "\"\\!\\(\\*OverscriptBox[\\(f\\), \\(^\\)]\\)(\\!\\(\\*SubscriptBox[\\(t\ \\), \\(j\\)]\\))\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0., 6.}, {0, 0.14}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.725860619787668*^9}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{1., 1.}, {2., 0.58}, {3., 0.38}, {4., 0.24}, {5., 0.06}, {6., 0.02}}]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox[ "\"\\!\\(\\*SubscriptBox[\\(t\\), \\(j\\)]\\)\"", TraditionalForm], FormBox[ "\"\\!\\(\\*OverscriptBox[\\(R\\), \\(^\\)]\\)(\\!\\(\\*SubscriptBox[\\(t\ \\), \\(j\\)]\\))\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0., 6.}, {0, 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.725860619839583*^9}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{1., 0.14}, {2., 0.11494252873563218`}, {3., 0.12280701754385964`}, {4., 0.25}, {5., 0.2222222222222222}, {6., 0.3333333333333333}}]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox[ "\"\\!\\(\\*SubscriptBox[\\(t\\), \\(j\\)]\\)\"", TraditionalForm], FormBox[ "\"\\!\\(\\*OverscriptBox[\\(\[Lambda]\\), \ \\(^\\)]\\)(\\!\\(\\*SubscriptBox[\\(t\\), \\(j\\)]\\))\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0., 6.}, {0, 0.3333333333333333}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.725860619891361*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"The", " ", "graph", " ", "of", " ", "the", " ", RowBox[{"h", ".", "r", ".", "f", ".", " ", "suggests"}], " ", "an", " ", "bathtub", " ", "distribution"}], " ", "*)"}]], "Input", FontColor->RGBColor[1, 0, 0]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 5.4", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1000", ",", "100"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "432"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nbins", "=", RowBox[{ RowBox[{"Length", "[", "t", "]"}], "-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numberfailures", "=", RowBox[{"{", RowBox[{ "121", ",", "80", ",", "70", ",", "63", ",", "30", ",", "25", ",", "21", ",", "10", ",", "7", ",", "5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"survivors", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "1"}], ",", "n", ",", RowBox[{"n", "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], RowBox[{"j", "-", "1"}]], RowBox[{"numberfailures", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nbins"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ FractionBox[ RowBox[{"numberfailures", "[", RowBox[{"[", "j", "]"}], "]"}], RowBox[{"n", "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}]}]], ",", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nbins"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"R", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ FractionBox[ RowBox[{"survivors", "[", RowBox[{"[", "j", "]"}], "]"}], "n"], ",", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nbins"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Lambda]", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ FractionBox[ RowBox[{"numberfailures", "[", RowBox[{"[", "j", "]"}], "]"}], RowBox[{ RowBox[{"survivors", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}]}]], ",", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nbins"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "\[IndentingNewLine]", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "+", "1"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"survivors", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"numberfailures", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"f", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"R", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"100", "\[Times]", RowBox[{"\[Lambda]", "[", RowBox[{"[", "j", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nbins"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TableHeadings", "->", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(t\), \(j\)]\)\>\"", ",", "\"\<\!\(\*SubscriptBox[\(t\), \(j + 1\)]\)\>\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\<\!\(\*OverscriptBox[\(f\), \(^\)]\)(\!\(\*SubscriptBox[\(t\), \ \(j\)]\))\>\"", ",", "\"\<\!\(\*OverscriptBox[\(R\), \(^\)]\)(\!\(\*SubscriptBox[\(t\), \ \(j\)]\))\>\"", ",", "\"\<\!\(\*SuperscriptBox[\(10\), \ \(2\)]\)\[Times]\!\(\*OverscriptBox[\(\[Lambda]\), \ \(^\)]\)(\!\(\*SubscriptBox[\(t\), \(j\)]\))\>\""}], "}"}]}], "}"}]}]}], "]"}]}], "Input"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox["\<\"j\"\>", HoldForm], TagBox["\<\"\\!\\(\\*SubscriptBox[\\(t\\), \\(j\\)]\\)\"\>", HoldForm], TagBox["\<\"\\!\\(\\*SubscriptBox[\\(t\\), \\(j + 1\\)]\\)\"\>", HoldForm], TagBox["\<\"N(\\!\\(\\*SubscriptBox[\\(t\\), \\(j\\)]\\))\"\>", HoldForm], TagBox["\<\"N(\\!\\(\\*SubscriptBox[\\(t\\), \ \\(j\\)]\\))-N(\\!\\(\\*SubscriptBox[\\(t\\), \\(j + 1\\)]\\))\"\>", HoldForm], TagBox["\<\"\\!\\(\\*OverscriptBox[\\(f\\), \ \\(^\\)]\\)(\\!\\(\\*SubscriptBox[\\(t\\), \\(j\\)]\\))\"\>", HoldForm], TagBox["\<\"\\!\\(\\*OverscriptBox[\\(R\\), \ \\(^\\)]\\)(\\!\\(\\*SubscriptBox[\\(t\\), \\(j\\)]\\))\"\>", HoldForm], TagBox["\<\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(2\\)]\\)\[Times]\\!\\(\ \\*OverscriptBox[\\(\[Lambda]\\), \\(^\\)]\\)(\\!\\(\\*SubscriptBox[\\(t\\), \ \\(j\\)]\\))\"\>", HoldForm]}, {"1", "0", "100", "432", "121", "0.00280092592592592592592592592592592592`5.", "1.`5.", "0.28009259259259259259259259259259259248`5."}, {"2", "100", "200", "311", "80", "0.00185185185185185185185185185185185185`5.", "0.71990740740740740740740740740740740741`5.", "0.25723472668810289389067524115755627013`5."}, {"3", "200", "300", "231", "70", "0.00162037037037037037037037037037037037`5.", "0.53472222222222222222222222222222222222`5.", "0.30303030303030303030303030303030303037`5."}, {"4", "300", "400", "161", "63", "0.00145833333333333333333333333333333333`5.", "0.37268518518518518518518518518518518519`5.", "0.39130434782608695652173913043478260877`5."}, {"5", "400", "500", "98", "30", "0.00069444444444444444444444444444444444`5.", "0.22685185185185185185185185185185185185`5.", "0.3061224489795918367346938775510204081`5."}, {"6", "500", "600", "68", "25", "0.0005787037037037037037037037037037037`5.", "0.15740740740740740740740740740740740741`5.", "0.36764705882352941176470588235294117649`5."}, {"7", "600", "700", "43", "21", "0.00048611111111111111111111111111111111`5.", "0.09953703703703703703703703703703703704`5.", "0.48837209302325581395348837209302325568`5."}, {"8", "700", "800", "22", "10", "0.00023148148148148148148148148148148148`5.", "0.05092592592592592592592592592592592593`5.", "0.45454545454545454545454545454545454541`5."}, {"9", "800", "900", "12", "7", "0.00016203703703703703703703703703703704`5.", "0.02777777777777777777777777777777777778`5.", "0.58333333333333333333333333333333333319`5."}, {"10", "900", "1000", "5", "5", "0.00011574074074074074074074074074074074`5.", "0.01157407407407407407407407407407407407`5.", "1.00000000000000000000000000000000000013`5."} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> { None, {"j", "\!\(\*SubscriptBox[\(t\), \(j\)]\)", "\!\(\*SubscriptBox[\(t\), \(j + 1\)]\)", "N(\!\(\*SubscriptBox[\(t\), \(j\)]\))", "N(\!\(\*SubscriptBox[\(t\), \(j\)]\))-N(\!\(\*SubscriptBox[\(t\), \(j \ + 1\)]\))", "\!\(\*OverscriptBox[\(f\), \(^\)]\)(\!\(\*SubscriptBox[\(t\), \ \(j\)]\))", "\!\(\*OverscriptBox[\(R\), \(^\)]\)(\!\(\*SubscriptBox[\(t\), \ \(j\)]\))", "\!\(\*SuperscriptBox[\(10\), \(2\)]\)\[Times]\!\(\*OverscriptBox[\(\ \[Lambda]\), \(^\)]\)(\!\(\*SubscriptBox[\(t\), \(j\)]\))"}}]]]], "Output", CellChangeTimes->{3.725860625670383*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Exerc\[IAcute]cio 5.6: Exponential(1) is ", StyleBox["CHR ", FontColor->RGBColor[1, 0, 0]], "\[Rule]", StyleBox[" TTT plot ", FontColor->RGBColor[1, 0, 0]], "should resemble a", StyleBox[" straight line", FontColor->RGBColor[1, 0, 0]] }], "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"i", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "1000"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"Sort", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"ExponentialDistribution", "[", "1", "]"}], ",", "n"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", "0", "]"}], "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "/", "n"}], ",", FractionBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "i"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], "Input", CellChangeTimes->{{3.725860634948992*^9, 3.725860636307581*^9}, { 3.7258606760203238`*^9, 3.725860679091901*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.008333333333333333], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxd13c8lf3/B3Clu6Vbe5CkPVTaO68WSgOV9lAqaUi7tPcuiu5KsktLkhFl yyYcB8c4zt6jHWl8L6734/fHzz/n8clxjc94PV/127R7yZaWBgYGSkMDg6bP ///z68mn0kWbHHGqu3rZ6BWOYMcuMJonzJANX4efJ7a/2397G4bsl6caRq6n 33ui8Pa4kClvd+Bot0g7odd+HC368PaUajd9/zAcygfu7vzWE0eUg8e0fX4M eZ3GJcWv86K/PwXLa9N+bPjnKKbVOVz/z+MMRG2CO+UcPE3XO4dqnqPDLcOz SJzfoaXlxQv4MbWu4wjj83T9Syid8/DqietXMCUm52By4BW0aRwx5X3OVbrf NRj2Wt7bcfs1vDE/r3Z6cwOlDYfvrfO9Tvf3xvQZI6P3NVzHg0yLqL3bfNDC n1tZO+cGPc8tLNm8MelOpDeqG5pviDDJBSufOG96Pl8IN+11rh99C72tage2 Pu0H24pfEXWbb9Hz3sHZYh8bSdUtrN7cfEWU52h7tAjypee/i9YjV5dXZPni /r3mH7T+87Dtsm536H3u47GQJ7eLvgNe0Y+l4nB/XHJeN5M/8j96vwc4dDlG cfPAfzBptdx4ZHQAhooyI3fb36X3fYi7VxX3u7+/i5XsBfGUa2f0d8Q9ev8g PH1WGaHu6o+Fky7PcpEG4WK/AcHxdf40H8Go1VveWW/+ABqnpisGw7EwxLH1 rQCanxA8uXnJZIFtIK7ulDc++RSCBPt9/PurA2m+QrHO1O9NlHUQLC/2YF4h FAnn6816bg+i+QuD12aOKOZwEPKDbeK+/A7DhWdLNxUaBNN8huPY+XYXCocH o2m2erV6hCRpd8cfN4Jpfh/hn5ePfo2xDkH7ilDPGe0fY8HS2DuL7EJovh+j or9peqpTCJ42vW6nCAxzF+eduBxC8x+BBWr1gCfXQ2DfdLkeT7Drk+rhvfIQ Wo8nCDavKJrlEIrm6TZ7ilbRfK9U8zBan6eoMA5PyRgejqbZK+7/DAn+4QO2 HQ6n9XqGU0bVZW1vhWPY2pvp34Y+x/WtDuaXuz6i9XuOu+ZZPrnDHyGXuZqp 1QvMi9s64te2R7SeL+CwpZ85J+ARtvloj2FCJDDI1rVT38e0vpHwcun1ZIwk AszDMa/8EvrrsS21R5/Qer9EYVDa5xVeT7GM2TzMkqK/jjfhWM1TWv8odOx1 7NXT7c8QxsxeRWgUTgzbde6+/3PaD1HQvXS6P+XUC3z9XXZYOfgVnF9O8M83 iqT98QrR00rt7ftHYm7zBngFTl2biyd3RNJ+eQVP+eOQd8UvwSxe0wvB19Fu 56bRUbR/onH5kZVGvjgK7ONF41hk/GSvH1G0n6Lx0TjWfszSVxjX/PMaWyIv +b0tfEX76zXKPlpt76R5hbOpecwOeo3vsuF7gh2iab+9xoDryQeFddHgMKvP zAmsnesXdWz1mvZfDM4kT35QZ8x8r/mCMRjfKnr7i/YxtB9jYDDjn/ijXWOw r3kBYnHJ5cnvB4NiaH/GwueR+m/E4RhkfBvKrHAsnteu0PzLi6H9GofkH3Jt w7cYdGEfEIe3hnC8LGJp/8ZhjZlJ40abWDQ/XU4cAk/3P3nUPZb2czwCLEtc 0t/HIjpA/zhrQTxK3AOuteLG0v6Ox8Utdofe/o5Fy+YXjsfT57uzLyOO9vsb uOe4vTgaFIcl7IbBgV2VbYyM42n/v8FnuUl6x7p4hDS9btkbVLbYdSb8Uzyd hwRc7Zo66LoR872my61MwI7ar643+r+h85GAm5oEgeOJN5jdtP2rE3Dre/DO 0rtv6LwkIqD7dM70Uwlo3r7rE9H15PidI/4m0PlJxLff28rGd0mE0KtpQZjv j3VJ2Dshkc7TW7TY4BJZsyQRY5o3+Fu09O0etionkc7XW1jOcxWVBb3Fab85 zJZ5i1VfV7b7mvqWzts7dEvbwrfivUNJ/+YFRrKTtk1whyQ6f++QdsQ3Y0uP JPRrSn/tO8TmPc9q0SuJzmMSPA7mCic4JGFP0/HwTEJl11/1k1Yn0flMwthh ndv2Dk5CWtPqfkmCUa1D4ZZJyXRek7E8d0Rb2cZkdGIPJFwsbL55bk2m85uM gkMNRmZ/mX9vmr6GZGRunF7u3y6FznMKXpvza8xGpKD58Y6l4PbywyMPRqXQ +U7B1/ygr33LU8Aqngr/sx4OGJtK5z0VVZEViSMWpiIiawFzolOR3Iq32ME1 lc5/KkaEitzCrqfCkTmNzB5FD+3HfUefpFIepCKhyCeqT3kq6pv0yUzFda7W eHuLNMqHVPRfkT77x7A0BJk2HYg02Cz50qmNQxrlRRqivxjZiTalYV7zAqfh +bzggMZzaZQfaTiuetLiXnAaPj5uesA0KIV/Tw8oSKM8SQP8DvRuK03D3aan y0tD5cWkzzJ5GuVLGizzVS5fdMz3mM01v0M63B2d50vapVPepKP16hWXFs9I R1OalC5KR/6lDTzX5emUP+l44HOpaPDmdDTtFmbLMO95vsDmbDrlUToyHhnO 9wtMR/PrFqdDWRV38FBoOuVTOmoat/b3s8xA8+W6ZAD/GB6Z6ZJBeZWBgE/D p3vfyEBzHC3NQMnk6gC/wAzKrwx04Zqm9I7OAFsfMuAUH3rK/00G5VkGJkzl dv6TkoHmOKjIQEiJ8Ern3AzKtwzkm3bqmMHJwMnmwMnEgLNDDML5GZR3mTC8 ZOB/SpaBIc0HKBP9fKy23G7IoPzLhDd/qVcHw0x8aK4XmdicPUm9qmsm5WEm erVvOafHzEwcajoOtZnY7mhvcHFuJuVjJjZlVHQu35CJvk3b2fw9frdZvTDy Sibl5Xtk9GzvOTswE9lN28/lPcqdxzpNyMyk/HyPou73Ew+UZmJ3c0C+x2er +42yn5mUp+8hXP70x3mj9+jZfODfo93xHvUzN76nfM1ChJ3jmAXM95ofb2AW LvYZ/Mo04z3lbRa+YO/WB22zsLX5JwuFpzyP2FpkUf5mIeQ3b2nLyVloKk9M wsJk5aOYj4uzKI+zYPswPGXukiw0peNhZRZujkidZHY+i/I5GyOC/Qc98s/C +uYLZiMx1abxLTNm8zobo5wu92pIyELr5oDKxpJdDwc+fZdF+Z2Ncz5PuIFZ WWhajW6R2XCZEvDJ+EcW5Xk2vrceMTjfLBvN7U6fDVXAqGOCodmU7zn40GGH zbkJ2fjTdNzG5OCT6/ltXadnU97nQGie9CXXNxuPmrbz3hzMvrvxFD8tm/I/ B6OdXocezMrGYvaFsaT4tnZS/xzyIAdDNr0qWuWeg+9Ny/EtBweSsxcGeOSQ D7moWbQ6cuq+HDxset1Judh77Epr5b0c8iIXnSVGBs8bcmDbPIG5GDX9ImdQ 11zyIxf3/Bbebm2ZC10zD7kITuo/6viKXPIkF/V9HBabiHNxpyneG3PRO99s ZVtpLvmSh9NTDasGMePmeJ6Rh7Bzu1QHkEfe5OHdJ/srNrZ5aI7XE3mIMtYN tXDLI3/ywFsTuoEbngc2/vIQ53fbw+99HnmUB0Pt1ZF/CvPYeGmZj0kp38Zm 1+SRT/lwWJZgbNspH83Hd04+wor26nua5ZNX+Vjps+DvphH5aD4e5/NxvOfr q9lT8smvfJScvvvn6KJ8sNsvH7qQ6Zt+788nz/IxUG3zpuOVfHCblrdtAWy7 rLpjdC+ffCtAS881RZMSmOs2P2EBJtunWHpp88m7AhiHOt+x31CAQc0bsADF NtxlTy8UkH8FKCs41SopoACFBc0/COhndYrztoA8LEDyfx++uKYV4EBzoBbi 4SDDK9f/FpCPhRAteJ1TNLoQfZo3dCFU4di2wKWQvCxEm0RP/dcthXjf/N+r QqzslHi4x65C8rMQBq1vGY19UYhdzQFdCOzBxaKoQvKU+Tvt5m/dMgrRHFfd inDucuOmqT8KydcirBzRuGNafSGa42B5EfKu7FrE61BE3hYh3ajn0B/WRWD/ +1UEnwiv4BVuReRvERL/BoeX7S1CB/bAocBwpUsf7yLyuAiu/0Qatg8sQvN2 Mf2A4V6rBhSGFZHPH7C30PqAd1QRmpdj7QdMPr7zWy3zd6zXH7Bwy96Xo7Z9 APvfsw/o+v2B8Uz3D+T3B7Qz25oq8PiA5svVfYDXda815+I/kOfFOPCt/ZGB vYrpvBdjVVbaA9cZxeR7Mbq3/L5r98xiOv/F6J/uc/sVM2a9L8b02P2vKhyL KQ+Kcdk4eeeWVcXkfzEu7bXyyltdTPlQjDdLJyuHHiumPlCMoa1STnd4XEx5 UYz1B26lcV8WUz8oRrzNs4k9s4spP4ox3HrlsQHFxdQXijEy5u2YfdpiypNi pHl8n7/6azH1B+bv7Pmbv7QqoXwpRl6ra5mvO5dQnyjBOAvvj2smlFDelGDX ouc3Z04roX5RAknJ/ccW00sof5jf/3j8YsaiEuobJZAdPfFwlEMJ5VEJ1gQY P41dUUL9owR79v379vyqEsqnElQ977ngDTNm+0gJhpw4kLDpXgnlVQnumb/Y VsV8sv2kBIuNgru7BZZQfpVgX1jPa07BJdRXShDjF7w2JaaE8qwEvDcJEx5y S6i/lOBIw9ew3rwSyrcSnP18YpCHsIT6TCnmeE3OHfCnhPKuFG9a18o82pVS vymFxDrWN6lfKeVfKe5ECCfp+5dS3ymFy9QiB/8hpZSHpUjd8/Wt/9RS6j+l aMu13RqyoZTysRQKvuUINTNm+1Apurl4za9wK6W8LEXsl12me71KqR+VwjR5 LxfnSik/SxEU/6Fqincp9aVSjEn0tHS5XUp5WorTIUfc1Q9KqT+V4ruZwCbu YSnlKwenJvdu8+d9KfUpDpx+HTthmFdKecvBshm9I9p05FC/4uDPoYwuhoM5 lL8cZBUsnbLImkN9i4MuXlvVYZs5lMcc+OxLP/bWjUP9i4NVtf35iTs5lM8c WIkXDt3hy6E+xkHDXm7HC5EcymsOlFZOvj6xHOpnzPXi3nXOS+JQfjPXi0y5 EpzDob7GwcscZ4N3JRzKcw429bSYoqvhUH/joP3iNLzicyjfyzBp0sldEmbM 9rkyHBy+6vgiFYfyvgwFF2b2uMSM2X5XhsORwZsTvnAo/8sQNtO+zPsbh/pe GT48HXnTop5DHjB/r/Ic3alLGfW/MtgWjawsZ8asD2XI/cfSfJ9JGfXBMjS2 PuxxY2wZeVGG2+U1LbtNKKN+WIY3s44mjGXGrB9luFR9JGL47DLqi2UI1qeu MWCei/WkDPt+nu6YyjwH2x+Zz8KgO38Dy8gXLsoSE5wWRJVRn+SijavdCI/Y MvKGi02rDx5wfltG/ZKLboqQ8T0/lJE/XCyLGnxEWVZGfZOLn6XFf5PKy8gj LrZZtNr1gF9G/ZOLukZhv1V1ZeQTFz1HXbj2XlhGfZSLHOc77b42lJFXXAiW yesuGnKpn3LhY9jruIAZs35x8fnHX9uBzHuwfZUL+7nHJ7t14ZJnXFQ/05mN 6cGl/lqOI+WWXz8P5pJv5fD2yxu2YCiX+mw55N/+mfx7NJe8K8eI+la/vjty qd+Wo6Z97Ncfy7jkXzkUXeaYJx7hUt8tR7niNnfHWS55WI7fjQGt953jUv8t R/VO8wM+17jkYzmmupyZeuw6l/pwOY6pV+Yl+XLJy3KszQ1bfCmcS/24HH/u mhoW5HLJz3KMGu8bvb+IS325HMaDj/VyL+aSp+W40mOZQ3wdl/pzBTa61n24 bVxOvlag3fl7Xe8z88D26Qqk+qWL7HqVk7cVGOcRuv3lpHLq1xXovvfu1vHb y8nfCoz+fcbdd1859e0K/Jb+5zL9Rjl5XIGoe7dTvj4vp/5dgZ+dt2RVpZaT zxWI7nJqyOf35dTHK/Bf1LHrbXPLyesKOHXavqawspz6eQXw+a8lmPdm/a5A R4+4X4f15dTXK5CxbshvFfNerOeV6Drgxdt1/SrI80qs6LbkmsPQCvK8Eq1N atsbbKsgzyvxsHVQ7xT3CvK8Er+3/embvreCPK9En/3XU6PPV5DnlbhhsLrd YOY9WM8rEdujxG5YVAV5XomVB3qc2xNXQZ5X4oeB/Ue39AryvBLRv46OUZdU kOeVEEyXLfzeWEGeVyLVpzE67FcFeV6Jm/L/kp2Y92A9r8T6B599qm0ryfNK HP7nntFT+0rynIe9g0SxKxZUkuc8vOvs3XnpikrynAcHj5O7W66tJM95mGju dqrl+krynId2L5Y8q3epJM95WLpsWvRL10rynIdh3KCn8cx7s57zcDG3ckw2 M2Y952Gtef1G3ulK8pyHa2E323POV5LnPPx2GX+ky8NK8pyHnRYbHhx6VEme 8zDVo9+phc8ryXMe1lmsXVduxCPPediYVt8hpAOPPOdheqv4+DBjHnlehQWr Tj2v68ojz6vwZc8aybXuPPK8CjbZS76useCR51VwVlb1TZzOI8+r8DMg/et8 ex55XoUfdzabzHDkkedV6KzWmI9cziPPq3Dg5kC3Rwd45HkV3limX0u7wyPP qzB+zb+ubq945HkVYmQ654fMmPW8Cn8iPB89ecsjz6uwM6an169MHnlehVfW pzeb1fDIc+Z+f6csCJLwyPNqDDDJMN/whUeeV+Pz+GlP93zlkefV2Ofkaf9z YBV5Xo0Vjo82tJpWRZ4z39/mda3fnCryvBrj9t/wEayqIs+rsXmQtf9z5rlZ z6vxw+P7Lfe3VeR5NQ7MbD9jQkEVeV6Ng2dt3SeUVZHn1XgTemS6rK6KPK/G mOGDOpWLq8jzahTPmXEiT11FnlfDtOH89J+/qsjzasyMWxn6tWM1eV4Ni33R k9KY92Q9r8Hb3E0JbQdXk+c1aK2TWVwcUk2e1+A/s8H13BHV5HkNStTLH4is qsnzGngK2q2sH1tNntfAMa67vsKumjyvwZx1Pts1C6rJ8xp0H/aw985l1eR5 Da60G730u3M1eV4Dlyvi/vXrqslz5vp9I+w9mHlkPa9B1zuLfr/cUk2e1+Dl yMEh5sy8sp7XwL+zKib7ZDV5XgN++aBuPZKqyfMauMmz+9Yw88J6Xoswo4kt DiuqyfNajL7mYeqjribPa7FBvTqlsr6aPK8FCjZr5N1qyPNamOQ+93YcWEOe 1zL9y7fkrlUNeV4L/5VSN/WkGvK8FlY+mm5mqCHPa9HCJG5XP7sa8rwW9V17 XZ25pYY8r0VgwhHhMfca8rwWT93tHpQdryHPa2HrZncwOKKGPK9FpUz0Nvll DXnOPG+7v+789BrynA8/t6175nyoIc/5KD4ZLnzBrSHP+chtVxAw4FsNec5H pNhKX86MWc/5mDt+/r83ftaQ53y894x1L2usIc/5cFhnNHX30FrynI8Fo22O 9plQS57zMWjKv+2HTK8lz/kw2jBFt3JHLXnOx4Z1V/atOlJLnvPxvd482uRK LXnOR9/Qfh6/mHlj45kPl0ejl1UF1ZLnfFyM+SgcEVJLnvMhH/jnTNSrWvK8 Dku/iU8eS6glz+uwIYmz/HdaLXleB5uw2/POV9SS53WYMK6T94aaWvK8Dqt5 AX68r7XkeR0OjTJ1v9qGT57XwXjeqsuyXnzyvA67evBHlAzhk+d1WOM+68bh GXzyvA4RyV8a+8/kk+d1eMCzNpzuyCfP61BtHZB8ci2fPK/DzuFHV/xczyfP 67C5oyLc3INPntfhfrDLa9czfPJcgAfjg23SLvDpvAsg6rBlR7U/n3wX4N6L a55bX/Dp/AsQGJF9cFIkn7wXwH3T3c5jkvmUBwKsXH5y1rhSPvkvQMj+kZEN zLyz+SBARZZ64dhPfOoDAnzxvtxqi3kd5YUAyXecixot6qgfCLBnYOKEq8Pr KD8E6Gb5Zrt0Qh31BQGKlyzPWsnMO5snAswutnZdx4zZ/iDA/X+d3S5vrKN8 EcCk+97cza511CcEeLSs5p3DnjrKGwGyta87Pwqso34hQKuW413rwuoofwSw PrphaGZ9HfUNAfb1MZhRZCigPBLgkywgxclYQP1DgFmj+Cb/dhZQPgnQZVnj k3+6CqiPCJAvODF6encB5RXzvt3GCC16CKifCJCS/VKQxYzZ/BKgNj1Q9amn gPqKAEMuTuqeYiagPBMgR/6rz76RAuovAtx8dkY/iJl3Nt8E8Az6rWg/VUB9 RghjzdQvV+YJKO+EeNfV2qPjQgH1GyFO523z+7FWQPknxINs+9V8Zt7ZviPE tX8Hlh7dJqA8FMK7aEOg+X4B9R8hQlo+i685IqB8FGJn6XOl7JSA+pAQHqX8 9+PPCygvhRjaVv3Z21dA/UgIHy/j12VhAspPISYNU3NrXwioLwlx+OLRx91j BZSnQizrosm5kCyg/iREomn+5PV5AspXIeq8Y3W7iwXUp4Qwf7MnLI0voLwV wuzs0B1bZALqV8z3G1T7r8gFlL9CuKCP4K9SQH1LiENWfTu0/yygPBZCtmRB lAEzz2z/EiIrJiDtzR8B5bMQrXP3fLNqJaQ+JoToa9EZIyMh5bUQHd1t/vnI jNl+xszP34S8tR2FlN9CbKi/26DpLKS+JsTvPikx3U2FlOdCXDrzvs+wPkLq b0JMLjNbPoJZJzbfRTBYUudqNE5IfU6EhugdVzvPEFLei5D0XmFR5CikficC NyZ1yRdnIeW/CO8rV6/KZ9aB7XsiDN3c8OzlLiF5IELbW5E51l5C6n8inL3l 2Lf2nJB8EMHwQeDFpPNC6oMirJsgHvXlipC8EGFxn0O9xgcIqR+K0OvI8lYT mTHrhwgi1QvVz1Ah9UURGu3vDm4VISRPRLh5sI9RfayQ+qMIf/IuvBqRICRf RJC0ntdPmymkPimCJubP6UPZQvJGhJV2m+bsKxBSvxRhxe49+1Yx68L6I0K7 k+LtNioh9U0RlHG+BQHMvLMeiTDNzcF/yTch9U8RyqdHKATMmPVJBMtFa+/8 /SmkPiqC8aU7aQ//CMkrET4NS/Qv/iukfipCCdKl4hYi8kuEwJyPXSa3F1Ff FaFDq8+ZbbqIyDMRLuz69jOxq4j6qxj1U05evNtdRL6J8W318w3ze4ioz4rR y7J1hZGpiLwT48Yi8eRpzLqz/VYMTq3Euwez7qx/YjwaO3/PPCsR9V0xbK+P mu09TkQeinHBY9fkd9Yi6r9idHA9bR00V0Q+imHdOEGRsEBEfViMjKirUycs EZGXYhSuSlrktFFE/ViMThGiV8eZMesnc3/dgj01m0XUl8Xov+Yt+mwXkadi rDlsGhZzWkT9mbnexEUtxMyY9ZV538nXla7XRNSnxbjlOmdKGz8ReSvG5FUn 3YX+IurXYizp/fPMP09E5K8Y/t+E07oniKhvi7Gg8nqPhGQReSzGi8gXmZMy RNS/xehq+Eq2nFl31mcxDp85OjCEWWe2j4thN8Xfk1cnIq/FSHB6fOCTWkT9 XAyT+lvWn/6IyG8xXB56xKxtI6a+LoaF1vbQQ2bMei5Bv4T9ZjPaislzCUzG Vt461kNMnktQ62M9WNZTTJ5LcPCdpr6HiZg8lyBnXHv5EWYfsJ5LcOLm/FEW vcXkuQTdPx/O39xPTJ5LECLbbftimJg8l8B7zgFNxwli8lyCOOXmMP8pYvJc ghHj1jeesBaT5xJ88TL4Vj5TTJ5LELNvVmjTvmE9Z34/73b+spVi8lyCK6Zz Xjsy+4D1XILVaxNvpR8Wk+cSqLPDfFOOislzCVy6zourY/YF67kES/27rzM+ LSbPJUg08bxne0FMnkuwVrTNrcdNMXkuge0v0Y51PmLyXAI7p3lZBS/F5LkE zwxWRiRHiclzCbLNXC7cY/YF67kEN3X36vbkiclzZn0anOe+/CgmzyXgVpwU +30Wk+cSNI4Zt7ppXVnPmfeZNqXiQb2YPJegpfeP7CGtJOS5BG1nP5w/trWE PJfiim7Lm1ZdJOS5FJ+m3+5maiYhz6XQzbZve45ZZ9ZzKdxzdvwthoQ8l6Js 0TR365kS8lyKkzA+nMOsK+u5FMvTc6f5zpWQ51LM7B7X33u5hDyX4vSj5NAD ByXkuRTj7eXthzPrxHouxXPJvPDAoxLyXIqvC5duPHBOQp5LUb3qpUXpXQl5 LkW05mSehhmznkuxQNMy05lZN9ZzKbi37wvdXkrIc2YM4dI30RLyXIox18fs 2x8vIc+liLq+ql/XFAl5zryP+pv9llwJeS5FxzUh7bp9kJDnUgxPqHl/jRmz nkthNSD/3XhmHVjPmfudD2yhZ+ad9VyK80MzTfd2k5LnzPjXUAfLgVLynHl/ sffcz8yY9Zz5PNvDY/QwKXnOPN/npAsJ46XkuRQtXYOq/psgJc+l+PiP0BbW UvJchmNVCwwKFkvJcxk+burv8GuJlDyX4dc+uezUUil5LkNLaY9cc2cpeS7D bEnxBt4aKXkuw7mfZo4bPKTkuQy8+hl9G/ZKyXMZXFIz/uuwX0qeyxDWoPq9 94iUPJfh5rVba/qfkJLnzPPNGm2dxsw767kMtn/2T+33Ukqey3B20IiwyHgp eS5DhdN315OpUvJcBvGmS28VaVLyXIZqz8BXhblS8lyGlfnhvNpiKXkuw9rR n8dd4EjJcxk+2ZmlBpdLyXMZLOP9Fm6tkJLnMrydOrbgD09KnstgMbvlKgeJ lDyXofJrSRedQkqey/AyZLrN8ZYy8lyGmbduhT7uJyPPZYhbt/bszxEy8lyG 45fHyGdskJHnMjj7f7+1khmznsswqm3vZ3OPychzGUzPH7jY9YyMPJehbPiR LQMuyMhzOSqcy2xm35CR53JwbskzXvrIyHM5PnpqbL/dlZHncgz5kFx1MVhG nsvRcVZ9Q3iIjDyXIyW0+3rnlzLyXI744d0OCZl5YD2XI+7ulgeHYmTkuRzX G9s9sYqVkedy7B4XrNqaJiPPmetPbNv7ebaMPJeDm+L0aHC5jDyX48qL7IPe VTLynLlf2rAu78Uy8lyO7ds6h7RVychzOR743br+7auMPJejn1XQiuct5OS5 HJ535z/v1lpOnssRwjmcb9VOTp7LcaB3N5NX3eTkuRwGHpbRRU5y8lwOl5Zl VyWecvJcDt/T+TerjsrJc2Z+OrQ3aX1CTp7LsSI1SHyTGbOeM/P/84md80k5 eS7HwKOpLgFn5OS5HOc5of4VF+TkuRxXA6dds7koJ8/l6JJgVjrntpw8l+PF bLueKua5Wc8V0GasubOLeU7WcwWkM94VW6XKyXMF5oa/e5ORKSfPFfjxX+iT bqVy8lyB0R1+7d3MjFnPFdipk4+eopWT5wq49LPa2v2vnDxX4NOKnived1aQ 5wqMSz8zWWGmIM8VkDVOWv5vXwV5rsD3DrO53qMU5LkCZvG9Qw/PUZDnCkzr e3KyKfN3rOcK1P7kOO91VJDnzHWvyvsGMtdhPVcgsaVv9ZdlCvJcAUPB5IYA ZwV5rkBV0pLFbVwU5LkCPcZ4HR/DjFnPFdi01X5bkKuCPFcg68yX82OY+7Ke K/C+4MGPYGbMeq5Ap7VbP447oCDPFdiRLSx7d1xBnitQNCcoqudpBXmuwIzv 3VSWzJj1XIGpSzq0ljDPyXquwG41Zh47pyDPFTgYGDbnxCUFea5A6D/fb0Qy Y9ZzBbzzI+6G31CQ5wpMjHx09L23gjxXYviPpLTJtxTkuRKzZjk58x4ryHMl hl7J75kRryDPlbj/cGj9pxQFea6E8+HI3zbpCvJciY/3+vvPLFWQ50psWdrf 9p5AQZ4rcabBa2OITkGeK7FjzMlH/C8K8lyJ+UWf04a3UpLnSpScjhm7pb2S PFdiO2+XR5suSvJcibBNjjZn+irJcyUiLsxP/DxISZ4rcWK3QF03UUmeK3Fk wuCuM5j7sp4r0bLjCVtvRyV5rsTYXKOXDcuV5LkSm2vsjuxapyTPlUgxNVk4 311JniuRn/I8ftt2JXmuBN/5/F+LY0ryXIkFea12Fl1QkudK9BGHNjy7pCTP lcjcnDNJ4K0kz5VY5rt4959AJXmuxJBNY/09YpXkuRKVT97VWb5VkudKTFIl 9JYmKclzJbqEX26zIE1JnitRkdwh+hRPSZ6rEH59x7V5QiV5rsKsiGH9u2uV 5LkKy1uXd+75XUmeqzCuHzc9oUFJnqsQsyx00Azme6znKqgfJRn16qMiz1VI uuq42nicijxX4bRnrLJwqoo8V6HXv/sG209XkecqXO1m4aFlvsd6rsKmzV+E OjsVea7Cj63DT2duVpHnKnR3njHBbreKPFfBP9JgQqWnijxX4fPg/2JOMp+s 5ypEvH5oPvSqijxX4YqWe1VwU0WeqzD4nEmOzE9Fnqvw+B6nxi1YRZ6r0HHJ CuhfqMhzFTTRKZtPJ6rIcxXeeqZtPJyvIs9V6OvSt7GSGbOeqzDWfeq/Zh9U 5LkK7h6c9CO1KvJchTRf3pdFMhV5roLRL/3tdgoVea7CgezYlec+qchz5j1W uDqZfFWR5yp83JqUvKFeRZ6rYOf3O9yK+WQ9V0NwdLezfUc1ea7GwEnS6x07 q8lzNTYOq5js2kdNnqthnfj94wlzNXmuxpBeCWtvWajJczWMF8995TVHTZ6r seLjPJ+lc9XkuRpnKrmC6TZq8py5X5hL3XBbNXmuxkQzJ5vndmryXI0lATVz 0heqyXM1EvhPMno5qclzNU7+DPh0YKeaPFdjp4NjnNUBNXmuRlR5WIqlr5o8 Z66zeEyL+Mdq8lyNYe0GfVRHqclzNY4ts7nw57WaPFfjObeu64UUNXmuRvf7 O/Jc0tXkuRr55unhacyY9VyN321btnIrVZPnaug+WP6Kq1ST52qY6q49uChW k+fMvA02mr1NqSbP1ei55Fa/L8yY9VyN1zkp0sAGNXmuxqYL5UUNrTXkuRqN AQkferTVkOfMfMmnnhjQU0OeqxHRqC5ePFBDnmvg0npxWMJwDXmuQYlHj44m ozTkuQa7bPJ+PR+vIc81uFewWRcyTUOea7CHk7Z4x3wNea5BH3fN2EkOGvJc g8U2R9p+XqohzzXY6DwrKHulhjzXoOpymIliu4Y810AmmrjgzXENea7BVaXQ 9qq3hjzXYJtbUMxOXw15roHpRlvZcD8Nea6BYy9u1se7GvJcAzvH0b9CAzXk uQbj7/fs5xSqIc81CBud0HA8SkOea/Cg92edZ7SGPGeuP3Xi4DHJGvJcgymH TB7Yp2vIcw1aTLlpcCVLQ54z89XH/9fuPA15rsHO9svikK8hzzUocgp36lKh Ic+Z6zWGLz5UqSHPmfnc0LBxWLWGPNdglJHpsZgaDXmuwe/HTul2Eg15rsGX OcFnNuk05LkGW04v+sH5qCHPNajL7bTC4ouGPNfAyWRZ1wHGWvJci8aN804c Y8as51okTpv6OL+LljzXwm6wb5tBw7TkuRbFomfaspFa8lyL8bvWf5s4RUue a5FqM+hM0kItea4F58dY04lLteQ5c7/fZ2cbumjJcy1u9pyIwB1a8lwL19Yz 1t44oiXPtUjrMzNo8gktea7F6crwdUMuaclzLSRtFVYV17XkuRbp3tuvSv20 5DlzvwXjnprd05LnzPNH5vFaBWjJcy1Mtm/qPf2RljzXwunSvlVO6VryXIs4 eYXhaWbMeq7FpPkuSgeRljxn5s2hfk0EM2Y912LQ0GtbTki05Dnz3Hb680c+ aslzLWLv50TX/dSS51qI+v26GdNWR55r4TPc1dzVXEeeaxHzLPtrkoWOPNei YETJx8qBOvKcWa+bIf+uGqkjz7VY41gYHztaR55rYdzD6uTocTryXIf+00Os P0/Wkec6CAsitEkzdOS5Dubrz4vezNGR5zr4/+tsGTxPR57rECQR3Tm+UEee 6xDz8ft8OOnIcx0errPJPM6MWc91iPOo7T9pqY4812HRIJ1/EDNmPddB9uKi W+B6HXnO3K/NqAm93HTkuQ7DToh/2+/Ukec6Zt0u969lxqznOgxdGzV8EvPJ eq6DpP7knL+7deQ589miT0CLozrynLlO+N6ZT07qyHNmfGWLwTxvHXmuQwtr T0NrHx15rsPTi0Pu19zTkec6+J4cVGSSqCPPdYgoPzG3fYqOPNehzb08Q+c0 HXmuw7LpJZJlBTryXAddhnjMszodec6sR2jJt7UKHXmuQ1Yb/sb+eh15zsxz 1sFBe77qyHMd0hd9fHjom448Z9Y1NCFiloGePGfm2bf2q7WhnjzXwzqq47av 7fTkuR4efhl+WzroyXM98rrm/7HqpSfP9dgdn1DQ00JPnusxw3u0/f1+evJc jxXBvaXpQ/XkuR7iAYsPTR6hJ8/1cOeIOx0ZpSfP9Th5dGa8zwQ9ea7H0Z69 VuYwY9ZzPXJuXvvoO0lPnutxVlLkZ7lYT57r8etaz5wHq/XkOfN7XfadU2v0 5Lke2TsnW6xbryfP9ei0PPDiembMeq6H9+AbMx3c9OS5Hq8/1KyTe+nJcz26 tjU38TulJ8/1GHzRrNM9Zsx6rgdaRJ55xfwd67keLbjSp/a+evKcGSePe9r5 rp4812ODc6Vxu2d68lyPjiVnrlgk6MlzPa5tHrbiMvM91nM9bqx/auHG0ZPn zHsuLv7jJtOT58y8KO9MK1LoyXM9+lwc/9z6i54812O48+A3Dd/15PnH//v8 H4wmwxw= "]]}}, {}}, AspectRatio->1, 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, 1.}, {0, 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7258606861920023`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Exerc\[IAcute]cio 5.6': Gamma(0.2,1) is ", StyleBox["DHR ", FontColor->RGBColor[1, 0, 0]], "\[Rule]", StyleBox[" TTT plot ", FontColor->RGBColor[1, 0, 0]], "should resemble a", StyleBox[" convex line", FontColor->RGBColor[1, 0, 0]] }], "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"i", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "1000"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"Sort", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"GammaDistribution", "[", RowBox[{"0.2", ",", "1"}], "]"}], ",", "n"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", "0", "]"}], "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "/", "n"}], ",", FractionBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "i"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", " ", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], "Input", CellChangeTimes->{{3.7258607006487513`*^9, 3.725860714318616*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.008333333333333333], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxd2XdYze//B3Aze2WPjIyQFVFG56lICkmRkRlFfMhoECFCZEVRCQ1aSFNS 2nvvPc7pjDqbsgr5njqv6/fH7/zjel/V+33f7/u+n4/nucwwtza26NOrVy9+ 3169uv/9/58/IV9Lt5gb4VpQ9rA1v46skV8fhMhy1PRS/VFanZePJ9g8PoaC E4Zd7wR2WvKfn0Zs8bo1Xl9itC6OCdNjOdjA+Mm8RVPrK+j3z+Njq3KM//NK rQv8OWoD317C6Eutev0zqunvr+L6qans4L08rdVNW+89PXUNXSWL4i3OtNL9 nLFxePYUyRkFxif9oX1Ub93ExI7UosaQ4Qz5/V0gST7w8rnTBMbK6Gy7xJd3 YD9zkeegP3MZ8ufdxa6Rg5wUhy5lfJx6Q7jt432s1H13p8F3KUP+/Ic4+fLJ mNe9lzF80qeHnz3mhuZBfTUbjNcy5ON5hFNm3+89XWbEqOvoeSAKjYIKHugb MeTjc8cvM/u0ozeNGJMXN8xScPKA3sW1lVb7TGi8TzDlz3ffI9o7GHuO9NwR rJIDtZmZu2n8ntjyZ5HGv9N7Gd5ePR84xMUaGMKS5uONVb/9Tn5MP8qoKfxp wn79DM72vQ5WFJ6g+flg6Lz6GNff/zEm9jMdvjDyOULvuzE615+i+b7ARO/M E3cmnGPskt8Q+av2vuTU29H8fbHJV2GihekVxmaN29oHub4Y8Guh96o+N+l9 +OFA3qRt/qm3GKJt3Xf0w+yt5SrLvF3o/fgjfk/h1fhvbgzX/1p+h3z1h6fP uQHTVjyi9xWAqMOjgh8t8GCo3honm0IAVrvZbN3R5Unv7xX4e1O3z2Q9Y+T5 6X5o//sK9mPXrGEn+dD7fI3avsnP+tx6zuh+WxP6BWL94VuuG9750fsNhKTu 1fKHH/0Zg6sCTmsNDkL1xKjaC2X+9L6DcMRPGqU/NoAR2j3dkcFY2b9j5Bvr AHr/wYjhB9XVGQQxDLpvNy4Es3ymXDFLDaL1CEH8pCOCF0dDGD2ve0ooaiZ4 qOpwQmh9QuG/5v5X96tvGd1vr1j5DZybjmatM3lP6/UGmYc6Dc1DIhjz9j5I /T73LTr63YzOYXyi9XuLCOuwnx83f2LkyO42afE7+FuMWmg+IYHW8x125lXY /3JIYBxzE1/C8jCUPF5WVI/PtL5hMDmeH2Kd/pkhG5xsyu+xd69qe9qjRFrv 93CxnD/jiCCJsV22eWRLCu1Gz2EzdyTT+ocjKHTRqG9HUhivZG+vKiAcJTMn mGrVp9J+CEftRu+ljZ2pjG9/y8/z50RAt87UoH1FOu2PCGy52pbY/iGDsb5n A0Qgyn2pv11LJu2XCGzqH/sw91ouQ7Z43ROClffZe6+i82j/REJ91pvkmwuL GPLhRSJq7BHF74uLaT9FYo7zX6VDB0oYy3o+Ueh/7NK7EpsS2l9RSP1hpd9s Wca4npwr20FR6EqrEI/oqKD9FoXLqzM7+xfWMMpkqy97J3B0ixu2tKmG9l80 zDOmuyrl1TFm9twwGpvVlrxVtGmk/RiNxeP/HNcvaGSc61mAGPw+/t5+NqeJ 9mcMzjxKnP7Ii8lI+z5XtsIxqHdgRzWKmLRfP8BkdMA6D00WQ1E+QAwwWMjJ l7Bo/35A8Z3tRxdwmhk9o8v+gF2K8UuVPNi0n2PhknL92+a5HEbkc2lQ5qZY 6BrccWEu4dD+jkXvAXPPnJrHZ/TpmXAshu6qjr5gwqf9/hFnLbeF+W4QMIzl GwbDJos7s9vFtP8/ovzDZfPfSlKGf/d0yz+iYNjSsY8DpXQe4sCx5N+ZJJIy 2rpvtysO5pETD+1d9YXORxyGVnECJ/O+MnS6t39dHMa0L816rPyNzssnLPFT Gznq2HdGz/bd/wkD7q12+6Xxg87PJ1QpH9pubfODwXLoXpBPKDa3ZWmpddB5 ioflmNjdh6d2MtR6Nng8LjplOOnO7KTzFQ+3scydros7GU4e62RbJh5ij9vi EK8/dN4ScLSQVezL+MsoUe5ZYHRtFw42VOui85eA9IUqK0PUe2FGd/qLE3Dq kcN0W7tekJ/HzziU7Fm0aVZvnOk+Hqc/w3+Tq+1x096Qn8/P6HCNaUhf0wcp 3avb/hlOVTNjioV9ID+vifgzr+kKS9AXI+UHErW7nUOffuoH+XIkor9kpXfc YAX0vL6ORKT279raoaIA+XlOguTwrz4tgQPQM7xLSZg7zXlrX6vBkN8uCZM7 /rjc+zkYcsWTsUu5uNF37gjIz3syVrinPZ1hNBLBmZtkJzoZR68u4leFjoT8 /Ccj7LH3Cs2YkTCSnUbZHkX9GTNd9vQxkOdBMn5UM33ezB6DX936pCdD7cqF 2FbBGMjzIRns9YPa1jwZC99J3QciRXb+jr2+5D8W8rxIQZ/RL2qk68dhY88C p6BvYnnI48/jIc+PFGTcDw42/jMBX4K6B5iCf8fyLZ9pTYQ8T1Lw6IQ/f5/m JHh2jy43BTyH+9VqHpMgz5cUfNH/dDb9yyR0by79oalwqpmgbG6tBHnepGIF a/U8r+hp6E6T0i2piInQW9GpPR3y/ElFQ5BR2XG76ejeLbItA2lLF9dYZQbk eZSKKWp/WjTGKqNnusWpsG7ytb2grAx5PqXiU2BXSVvbTPTcTjEN6fahvgOW zII8r9KwOcXqjN25WeiJI5M0iFdEHY6SzII8v9LwbUd5w/2k2ZDXhzQ8yOXZ Su3nQB4Xabj/up937VEV9MRBVRr0Zg8ZUcpTgTzf0jBj8FyJw525uNITOOkw NtjsHGkwD/K8S4eVw8NsL9N5UOk5QOkYqrB32EzRfMjzLx0/3jX+M3FWRVFP vUgHnNZZJY9bAHkepmNYrcr05PwFsO8+Dg3pSAwtC/+0fxHk+ZgOaflpkVrt Ikzr3s5TMxC7/0W2w9clkOdlBjDsROncy2rI6t5+BzOQF3FHt8JhKeT5mYFt 2RfN/4Qug3VPQGbg1/vKExmiZZDnaQYeCTc9CxmnjvE9Bz4DM3edPcrbqA55 vmaCN23aoE8u6ugZ3qxMlM4flSeoVIc8bzMxs5fb10SROix7PplYviqdpbth OeT5m4nTGof/SvYvR3d5kiUsFgxW0dtzeTnkeZwJplfwPmHpcnSn43l+Jmov rsnxmrQC8nzOQv2O4ZuP263A/p4bZsFSh/lpZ/4KyPM6CzvXLg3td0IDCj0B lYUHu4/f4dhpQJ7fWRhim99PY4EmuldjTFgW2qzQcHaLJuR5noXP9u3z1BM0 0dPupFmYqP7dsipLE/J8z8bweY6Z+mor0dV93NSycd1U9+bd6asgz/tsJJg+ +X3x6ioEdm/ns9kYo56d0vpsNeT5ny3LIfPXL/NWw1A+YZSMPnx/53EtyD3I xqDH5prCH1r40b0c37PRVev57qrrWsh9yMEhn+mutW5r8aJ7uho56FitlKfQ thZyL3Jg4q3KMdqqjQ09LzAHeprlGxhW2pD7kQPPevdv82bpQNLDQw5OOFq+ 4X3WgdyTHDB+TU8oLdPBk+54/52DA9uDc1cMXAe5L7louneZfcpjHXriWSsX AeY2QuuAdZB7k4u3lxWESid10ROvl3MRMap6PC9YF3J/cvHwCMP5bPZGyONP dj/1XmrZVRsh9ygXseFBg4a2bZTHS588uKvc6jvujQHkPuWBa52tdL7ZAD3H d10eLi++sko6bTPkXuXhx7Od2za5b0HP8biRhxFVA3SiOVsg9ysPOVk+tnw/ Q8i3Xx6+PHy9xDBwK+Se5UH1fXqs7SQjVHQv78B82Xkb+Kv+gxHkvsmuT1Yk qf01gmPPCPOxatl5wffV2yD3Lh9/rPZX3VlgjNk9GzAfy8uXrLPabQy5f/lI 9Evocr1njIL8ng/ir5+7lVFhTB7mY21+576UTSaw7QnUAgiKJp91OWRCPhZg 0RlGYZWlCZR6NnQBxvQ96/vrPxPysgCDzFO/3362HRk9X68KYG6mtr7sxA7y swBKI+dKlT134GRPQBcg/XqnltoUU/K0AA/GMrcaztiJnrgaUwgr3+XTpqrv JF8LUZyhsnuZxi70xIFpIcpH/drUy343eVuI9y35A2K8dkP+9atQ5tGZzRWG e8jfQlz9cLU67MIeDJUfODRtGr52w0Ez8rgQjKYf51ykZujZLpOKYGp2bbty pxn5XARjVXHukuy96FmOvUUYOf/dqLb8veR1EbxmOUQ/xT7Iv54VAcPXdWRw 9pHfRej6F9RgonsAPbdrKoL0gNJL1YRD5Hkxpq3UvTK1nzmd92K0vf7yNEbJ nHwvhuX5hbUZJ83p/BfjcVq5hqKNOXlfDLt9Wu7jX5lTHhSjv8n7z/sOHib/ izFFMbgm+eJhyodiXC/+oJv06zD1gWK4C9TLRg08QnlRjHl7joS6bz5C/aAY SxQvOkT0taD8kN2v4MSyrLEW1BeKoR9YZFZpZEF5Ugz72Bmte3ZYUH8oxpxe KfeszCwoX4qxoFfEjuwMC+oTJVBbEDjDapsl5U0JBnbYv372zJL6RQlM774P uTv0KOVPCfo4/DIvCjxKfaMEcYdjRk97e4zyqAT6hsuyXHStqH+UoO2pqm6K mRXlUwn8Wd+m5LhZUR8pgXvAi4h85xOUVyUYdZmXzQ87Qf2kBBPVTL5k9P2P 8qsEgUkbPvfT+Y/6SgnCvCX/iQz/ozwrwdiPC4q1w05SfylBfaf6f3u2naJ8 K4Gf+8VrXrJreeCUYoSLu3Fz+ynKu1Jor1ur1L74DPWbUlxSGJx6OPAM5V8p dvT9rD5z2FnqO7LrkOWG64zPUh6Wwn6bKa/a4Bz1n1Jc8ZsXdvP5OcpH2f2P W5bejztHfagUdZ/7sT+Lz1FelsJjk9vEPxo21I9K0XcwW62Sa0P5WQqH5cdu DdhrS32pFMNs209fum1LeVqKtnELJk/vbUf9qRSBQYe9fi61o3wtQ5i2Yl59 qR31qTIob8s9ubbWjvK2DDp1VbYn+9lTvyrDmfHKnd6G5yl/y/BR4ZKHyYnz 1LfK8PZw+K8+Yecpj8uwmXnI6tnoC9S/ymBxV/NAx54LlM9lYCjp7vwjvEB9 rAxDvA68He55kfK6DBpHh2hHGV6iflaGzK3NexSTL1F+l6FXTtDuP7sdqa+V QdPcbP+sK46U52VYMGpK3dW6K9TfypBue3HlmWlXKd/L8fTUYWvVrVepz5Vj Fvvvn3PGVynvy/FqypiEw8lXqd+VY423zsbevZ0o/8shCY60PrjYifpeOW4r ZSSiyIk8KIdr0qn0S1+dqP+VY/R4vu+sFdfIh3JU3Lqf06Z5jfpgOUpur5Jc WXONvCjHyLejjgUeukb9sBxmAq1FJq7XyI9yYMh1jfUh16gvlmP5ysaGL8ev kyflCPELGjT17nXqj+UwHmugN+LZdfKlAhVui/pezblOfbICnRWqN/2mOZM3 FVA/nuT895kz9csKTPKZGWwx+wb5U4G/HW82adffoL5ZgWdD8kZ+OHmTPKrA srubbnHbb1L/rMDJwUmFV8/cIp8qMNjlysubObeoj1ZgxCGHscW/b5FXFci1 6ue3f6AL9dMKGOS3t+y96kJ+VeDeXw3rRT4u1FcroHDy3A3NsbfJswpM/D3E pHXcHeqvlWAa2Avrle+Qb5XQeBEw/s6sO9RnK3HWRMA7zr5D3lUiQrijz2ve Heq3lfDedxUL9V3Jv0r8/fAqQTHOlfpuJczrdWf+bnUlDyvxcqjfSdf+d6n/ VoLT13/w29N3ycdKDDBR7hVWdZf6cCUM2B/DdYbdIy8r8dRR4WHbnvvUjysx Q38q5+6p++RnJcr7aM67XXif+nIlfLZ4sd5/u0+eVkLJ5vFow6kPqD9XQVXR bcf0RQ/I1yosPqbV8CvoAfXpKnTYDd8YH/OAvK3CVIsfieEZD6hfV8FcVfXc loYH5G8Vzn9bnhUz/CH17SqULgh63G/cQ/K4CkMzR144PuEh9e8q6H9NVVFJ f0g+V2HAcfYP27yH1MerEJr6p/eYwofkdRUeutzd7XnIjfp5FfzDYrr4zm7k dxU0Q/8o/FfhRn29Cg1JB3cv/OpGnlejvExr8YR/buR5NaJ1ig41jHxEnlfj QeWDQX4Rj8jzalxZ08utq+AReV6NvveKSrl/HpHn1chb/OXMD+3H5Hk1xl82 FStvfEyeV8MufrCao+tj8rwaIWrSSLvCx+R5NTpvT118nfmYPK+G/q8LTN/h 7uR5Nfx3mMi+L7mT59X4cZu5zWWrO3kuG6+aY3WbtTt5Xo2/fWb83prgTp5X o0vJ1nBJhTt5XoOgaXfPLVfwIM9rEHxn6oSNYz3I8xq8M541apOtB3leA62R xya2Mz3I8xqYPjk12VnjCXleg9/DVutFHnxCntfg8Kz6Eu+oJ+R5DWKTXRLU 9Z+S5zXY9Oqxnqeskck9r8EfxX3Wl8d6kuc1KIs22Lj2lCd5XgMFzsC4B0xP 8rwG4dvEqzR7eZHnNdjQlFGuOdmLPK8BF1X3p67xIs9r8KVtnqhyuxd5Xovx v/dnlod6kee1OHmgd+G7eC/yvBZ2KV3J+uO9yfNabFYw9h20yZs8l/28QhoQ 6utNntfiaMea3l4Z3uR5LT5lXVXJ0HtGntdiw5mglJGnfMjzWgyX7t6929GH PK+Fs8OP6ytu+ZDntbB3qk99EOpDntfiyXYvF+tCH/K8FlOdB0+uE/iQ57WY /NP24JuE5+R5LbbbOfsULH9BntdB/ZP3SvVbL8jzOtR4KOvNfv6CPK+Dzavm rUtCXpDndbiSW+Hl/u4FeV6H/cK/nlatL8jzOiD//A7JypfkeR3ObJi12SL6 JXleh0abrXdcJvmS53XQC0z2t1jlS57XgeHgkLdyjS95Xif7flKX+dvOlzyv Q6+t/v4FN3zJ8zoM3suK61flS57X4VK5nV7RED/yvA5u75RVghX9yPM6PC/t ffnffD/yvB5bj+5w97jgR57X47bL+H6ebX7keT20Z/wbO1PJnzyvx11Fd8fX s/3J83qU3IjKPbfCnzyvl+W5m6rrSn/yvB5Ob7f+99vInzyvx4SVFgaa+/3J 83ocMzzkv/2BP3leD/Up24/PrPYnz+uRJn30V/erP3kuG++v4U9mjAggz+vx qybV+7NWAHlejxErDKdX7Qogz+vhcX7yO/1TAeR5PUoPTE4f9yiAPG+A+bLr CxJeBpDnDbg4P6Z8+58A8rwBY3ef3lG95BV53oCU9U6WSnhFnjfgXmHHlXEn X5HnDXii4WHjdOoVed6Auppm8Y8rr8jzBqj5TFVd6fSKPG9Aa/V3g9lxr8jz Bqi8ml0WPf01ed4ABWHm82F7X5PnDRDlNigvtn9Nnjfg3Cb/AD2n1+R5A567 P3vo9uU1ed6AgX/ePeb9fk2eN+JP1SGRyrhA8rwR5e6zB/bRDiTPG5Hjfq4j 0TKQPG/E1JZv38OsAsnzRkyxqBG8uRJInjfibFPcBnvPQPK8ES7JglW17EDy vBFvZ0Z7WHcGkueNMM2TvuyYGkSeN8JZfPAgb3YQed6IvU51XJ9tQeR5I4af aPzUf04wed6ISxbisx/mBZPnjQjLnsLS3h1Mnjfi8DKHq3aXgsnzRtxITuoq ehlMnjdh4Y7wKe4hweR5E5ByOqM0I5g8b0LnX+/iF+xg8rwJa74uP1nUGkye N8H2Xvv0nwtCyPMmTH9v2ykyDyHPm7DE64NoVEMIed6EtHknVsT/CCHPmyCd 8O51xPRQ8rwJ5zRULjadDCXPm7B6+62Z+Ymh5HkTHhlmemtVhZLnTZAcKRa7 d4WS500I74elZdvfkOdNGDZIrV2j8A15zoTzhV8qrIo3dN6ZmPyNUfal91vy nYl7SzNPJTx5S+efibNxYquTYW/JeybKUse0R0W8pTxgwn+7l8pivCP/mfi2 88lv1oV3lA9M9Gvhhm5hvqM+wMSf9v+S+i0Mo7xgIm20ZZ9o2bW8HzDx2LQz vrdjGOUHE8ZfSkU7Fr2nvsDE5UZP/+W73lOeMLFlm3j6zKj31B+Y2Hsl/fjz iveUL7L5aiteZ5mGU59gQqTo3oexK5zyhokVSWMPWx4Ip37BxPd3PmsPJoVT /jAR+7FX73mjIqhvMNHfS0Fz56UIyiMmDKJPPDhwLYL6BxOJD+vnX62KoHxi YpSD4nNrVgT1ESYydgY3p/+LoLxiIqv2UN+IVZHUT5gY+n5LUYleJOUXEwOe vpzH3h9JfYUJTRfPoQtsIynPmFAeZjR8vEsk9Rcm7qSe6qXzMpLyjYn48VW+ 40Mjqc+wwF78PaUmJpLyjoWhWW4H46ojqd+w0OfbssJJNZGUfyw4jP/YZlcf SX2HhSmqsXNHtkdSHrJwXVh+1FEhivoPC5MXvP29f2gU5SMLvsZDHSfpRVEf YkF12egi1+1RlJcs2H7yiBm2M4r6EQudysVbj3yKovxkoWjc+KXX86KoL7Gg eSStzYcbRXkqe77Txht6kijqTyw8q79xYeOfKMpXFjLK/N9t7IqiPsVCZmPE Ph6iKW9ZKI0eERhsF039igWP/VyXDVejKX9ZCDLcbDhzZQz1LRZ+jLuZ47Qu hvKYBaHv1GaRZwz1LxbePVFZUfcqhvKZha7UrA3vUmKoj8nev9hfS7c4hvKa Bbs0vx9WtTHUz1jYEGbnOFDlA+W3bL5WCxQrFnygvsaCaS+3o+sWf6A8Z8Gv rcW+ZesH6m8s3Jr2dUXKlVjK92bMtVl4u7k2lvpcM8o1lNJ1Zn2kvG9Ga5zR iK1nPlK/a8Y37qCNKR8/Uv4340Xx+hcjFeOo7zXDoN1sR8qDOPKgGQyPMou5 nXHU/5qxpnJU+p6Bn8iHZnC0VueuWPqJ+mAzfAOP6pTv+kReNCM+amw+48En 6ofNiEtefW9I9/+j9nyaocywKW5YEE99sRnDnybVbzgXT5404ylzycHw5/HU H5uxdtvsj8+i4smXZkwRLDV68CGe+mQzEi7GKs1viidvmtF/T+Xn3qx46pfN qD22/cnnb/HkTzPuPz7fOWhsAvXNZlzUmjVzXEgCedSMA0lNoXaCBOqfzSh5 8fWGeVcC+dSMsPmZFUdk1/I+2gz1UhvJQfPP5FUz9L/c6sy3+Uz9tBlHA15X LpqYSH414xf7K5OtlEh9tRmbt6VFOC5JJM+acfm3Ij/5fiL1VzYsFqbd3ZiY SL6xsTFSheWQnEh9lo3cftcdyrITyTs2vjrOm+/DTaR+y8bTLx5Xf45OIv/Y 0JgwMcxnWxL1XTZEvhbf/HcmkYdszBn7s9DyQBL1XzZGXekwXpqaRD6y0fXI 5lpHXhL1YTbcMx+sPjksmbxko8D52kuFacnUj9lINl03W3FXMvnJxm3JUYvY g8nUl9kYOsKkbmpMMnnKhlC4M4b/NZn6MxsJv5fcXf07mXxlw/K3GfdHVzL1 aTbKK26Et2ulkLdsRK5JO2y9I4X6NRsXykfsGLY7hfxlo3oelzfDMoX6Nhv2 Gu/FPy+nkMds5PRRi8p5lEL9mw2TdKcq7dgU8pkNnRmbhIl1KdTH2bg4auP3 h+IU8poNwcCqZ5bd/w/c08/Z2GGvNPbQmFTym421Uaci781Mpb7ORvhrlY83 GKnkOQd7yxdcU72SSp5zMFH1taLoZip5zsGwDs3odw9SyXMOni6IG1EanUqe c9D8Xlc7TJBKnnPAxjM9hUFp5DkHEtu7ts5L0shz2e+zQpd/XZ9GnnNg537x RNyhNPKcA538G30kF9LIcw7M7xUYZbilkecczLlZqOf9Lo085yA4Y//dA51p 5DkH52aUBrLN08lzDlI3sR6wbNPJcw76dUB9wq108pwD2wonnYmcdPKcA1xR mB/gmEGecxDi5PxqmnsGec7BsvnJCR3hGeQ5BwYrT1V5xGaQ5xz8iMzaY5SW QZ5zUKHW+k5PmEGec8DbPyfu5JpM8pyDJNWwC3O2ZJLnHBiF98kbuy+TPOdA 7Z+/2eM7meQ5B+uEn5YWR2aS5xwsDFIafi03kzznYNIw3fPm47PIcw40y3Tu /n2bRZ5zsCFo0aiDYVnkORfnN11itCVnkedcPAhfUt33VxZ5zoUbPlhPWphN nnOR7j+6TaiXTZ5zEefWNmXGkWzynIv37V89hWezyXMujk42fDHJMZs852Ly rpOD57pmk+dcHC4bXHArNps85+LSGj+ec0o2ec7FtmuRxoLMbPKci5nvJo35 q5RDnnOxwSjG76ZDDnnOhau+7suOjBzynIvq0oDN7ZIc8pyLuqXRZ5R75ZLn XJzVHbm2blEuec7F3Cc/y16r5ZLnXETuL/K8syeXPOfK+v3m/bzMXPKciz4v eq8cJcklz7koPLH7Q/rPXPKciwOjjv2dvTKPPOeCpT3Mo2B7HnnOxSSd58W+ e/LIcy42XjkZzbXMI8+54BzY5vrcPo8856K38NS+Zo888pyLnxc9al6+zyPP uTCxEj9sj88jz7lQ3TLXbI4kjzznYZzGaIuUQfnkOQ8ds/6edJ2QT57z8H3g q5DVKvnkOQ/NWzSfFBvkk+c8BKqPSDO6lE+e85DGvf7I6Ho+ec4D07CdKc7N J895OO71IMSkJp885yHzfULm7c588pwHnQ/nVRT6FpDnsvH4r4XGoALynIfh Kvf7mI0uIM956PIWXlmtWUCe85Dz62B/tXUF5DkP+xZ6ZgzaU0Ce81C0YsCl cTcLyHMe6qxGr1N8XECe8xDu09e1RFJAnsua3YgZL/QXFJLnPFieDrhyWaOQ POchwtTGy2JNIXnOQ7B0R/Kiq4XkOQ/3XNTNdmUXkuc87GI3WM75Wkie83B6 4Ojrdv2LyHMepvz6Zd+1rYg852H0fxVWXqZF5DkPz1adr/q2s4g856H1Ykya wKaIPJetT8MThdGBReQ5D0ts9l9X/VBEnrcg49GQZ9npReR5C4w3xxiOySoi z1vglaEsud27mDxvwct+/m6flIrJ8xaEbPmi4LGpmDxvQfz+adbCncXkeQsO BJQMxtli8rwFD0PDZ827VEyetyBt0KG9/IBi8rwFIz+KBnlHFZPnLSi7cWHO yp/F5HkLziyvGxvzu5g8b0H+wcXTFxiVkOcteOtQIo09W0Ket2CIht2A1xdK yPMW7B1pVMSXXcs9b8Ev1hdhvVMJeS6bP6t29mmXEvK8BSN0RmaNcC8hz1tQ 3vHq3R3PEvK8Baa3v2mG/ishz2XzM1O+lzahlDxvwQCkr65UKiXPZeMbrr3K YW4ped6CcYsLhjzfWUqet0D/1aM+KbJruecteL7T4U76sVLyvAVVRzwH3rIq Jc9bMOP8OY+cc6XkeQv+fnpzvvZCKXneAj1B/JHhT0rJ81Ys/9423v5pKXne inyzfZtig0rJ81bYsA/EJCSXkuetqJU6rtnRWEqet2LWnF3zRrNKyfNWsIb7 jm36XUqet+J10YBd1/qXkeetUNocHpw+pow8b8Xzs9MNWWPLyPNW2C63TnA0 KCPPZb9/4voaY5My8rwV+ovbTRo9ysjzVty1FBi7BJSR563wVL32PC2vjDxv xcRFCxfdl5aR5614eZI5pvZrGXneivnO9itEnWXkeSu+r798e9eQcvK8FZPd njvs1Cknz2XjZQY5vHUtJ89b0ZCRtuukZzl5LnsfHBtNj+fl5HkrhpprDA6W Xcs9b8Vmo/tn5qSWk+etsPbT31yWX06et2L9OPcUl6/l5HkrguJjCr4OryDP W7FK11/XcGQFed6Kun+dLxevrSDPW3GvYsW829sryPNWjDtSxelnVkGet8Jr i3Zv2+MV5DkfBuJnAeOaK8hzPhTdjm02nVpJnvPx+mFue6xaJXnOh02771rB wUrynA+NSxmiVPNK8pwPrYf+6hZHK8lzPiRW4/ubX6wkz/lYeSDrns7tSvKc j8v/WborRleS53zsf/72lNnHSvKcj87Pat6HZNdyz/mI+Nk1fnR2JXnOh9om h4jxqCLP+didoK8zfksVec6H63HR3luVVeQ5H8aFf+du+FlFnsvmM3pY3++H a8hzPsJ/lRnPcKwhz/mYWhnebuhSQ57z0cuOjeznNeQ5HxNePDw7N6CGPOfj xwf1N44/ashzPhR8Jtt80qolz/kQKn4Y0yy7lnsum2+OwurQ47XkOR/bbw6y XXWmljzn4+vFAOUg2bXccz4aj7ofMb1TS57zob3cmpvgVUue8+EYGPRmgl8t ec5Hl/qJ98vya8lzAe7uzNTZWVhLnguQ/CvDx7qoljwX4Jnu9B2HtevIcwE2 lQ2f+lenjjwXIGHikd2qZnXkuQBm1/YmWr2oI88F2OK+9czfpDryXIBD/w7o tafVkecC7Ak8eDslq448F6DAzsJnS04deS5ApHq1o/H0evJc9vwTvVMO69aT 57Lf/zNz+HbjevJcgGNq4Zdid9WT5wKcH/36pmdIPXkuu5/1AkOduHryXIAL 92Mfz0mqJ88F+DnpSrU4u548l81HtaWvd2s9eS4Ah+v+QOtnPXkuwGyvLZ89 +jeQ5wLY+hxQerOxgTwXoOJYxt3V1xrIcwGsG54Y9b7TQJ4LUDbxvpttYAN5 LsBuz+8uqzobyHMB9rdy74QrNpLnAqz1Hf1hllIjeS7Ajf0LS50ZjeS5AHMG ak+9YtRIngvw9dWoMINtjeS5EBMEQwt6HW0kz4UoCLJ6tt67kTwXYnnErezo z43kuRD9B0947PilkTwX4o0r5/CXxU3kuRBLdOpNLxg0kedCWAU9fqP1sIk8 F2Kk0ny1vrVN5LkQ1zf27xTxmshzIVT/PVt88U8TeS6E5ph9dlYzmeS5ELOi BttMMWaS50Ksn14Y6XicSZ4Lke+62crKjkmeC7Hr+cbpCveZ5LkQE/V68U94 MclzIVJmtqlV+zHJcyGmZX6I0GthkudCZHmF+s7qyyLPhVjYbv147mQWeS6E 3sVzq146s8hzIfrGrWZ+SWWR50JcVnScOF/KIs+FEDamV4u/sMhzIdbOXbWn ZEIzeS6E6dq3V8vnNZPnQljkziuS3momz4X4ezF4b5ZXM3kuxEWXt9dSA5vJ cyE8M/an3MtoJs9lf6//TXt0azN5LsKNtrn9j0mayXMRnsxmJfJt2OS5CN7u 7lccLrDJcxGM8k3u6t1mk+ci2BXXf22UXcs9F2G9foaGqSubPBfh59LxrKeZ bPJchMXsYzZjy9jkuQiPR1/wnia7lnsuwhHNOM3VaznkuQguk+bONDHkkOci dGUMtN19nkOeizD7t/O5Hw855LkIvoP/3BvvxyHPRbDYM0Jjqj+HPBehwlSg OvwDhzwXYa6jV6i2CZc8l/38uMIXN0cueS7ClImsxPooLnkuwqxSrfmqKVzy XIT30Sl7snK45LkItvnvrc7kc8lzEUIWv+6bWs4lz0VQ+Zces7GWS56LIM5X XPeogUuei1DD3DiyrZFLnosQl9a63KSFS56LYNUuDk77xiXPRTg3rYqn/JNL nsvGx+1rHtCHR57LxqM2rGCMMo88l81PQcdk4kweeS6W+Xn56CNtHnkuxqmm tj53dvPIczG+xi4vCjjCI8/FWOQek2TlxCPPxXj8+57ws+x7jtxzMfQiztzM 9eeR52IEtjQMV5V9r5F7LoZfxbk+Rm945LkYeQOYN6dE8MhzMWyl9ezeMTzy XIwpQzcuYSTwyHMxIsM7xyXLvvfIPRejpb1+wM5aHnkuhr/T6xtt7TzyXAyX tY1aq3/yyHMxdPaUJK2f0EKeixF98srTjbLvJXLPxZj79rQgf34LeS7GSrX0 4PH6LeS5GGdNVLQXGLeQ57L3M6z6fahpC3kuxuSlHw9vdWghz8XYPuCf5YVr LeS5GLoJx7tS4lrIczHK8vbnVxS1kOdibEn8F+8p6+1yz8WYMDxmQDu7hTyX rc/VQ7cut7eQ52Kc9L33/qqsh8s9F2NXTtieSXtbyXMxlNO+7P12rpU8l0Dx 3/LU87LeKg98CfiX3/AmvGglzyUY/T7v5zPfVvJcgqHG0zKNSlvJcwkKdoRc /1LdSp5LsE69z42zg/jkuQTxS8t3vpddyz2XYC1/933RZD55LkGmXcmhAYv4 5LkEU6t8YvYv45PnEpgfmNTudZlPnkuQel1P0dqDT55LEBP8PbZI1rPknkuw CupPOM/45LkEZUaJj7hxfPJcAi+zvcv96/nkuQSVm7Nutst6j9xzCYS8Ji+N H3zyXIJhRk5plb0E5LkEx/a9HHFxoIA8l/39g2XF9oME5LkELI+XdZ8nCchz CU5UtH5+s0hAnktwb3ZDR4es18g9l8BqhtatqnUC8lyCOckP50w1EpDnEszP 6+do6CAgzyV4kPQzNfu2gDyX4FG2dJ1rqYA8l2CEdvJN3dFC8lyCs2a+G6bM EZLnUlyN8DZ/oCIkz6WYH72wZJ+BkDyX4vMhv/vqpkLyXIoW493fPpgLyXMp pll48RdfEJLnUtzi18bZyVyUey7FI9uX/b8HCMlzKfzrci2UZI7JPZfC4OOZ YaMkQvJc9vOcb1H7Za7IPZc9f4JB4CMNEXkuRaWJndrrNSLyXIpPGtGr3faJ yHMpltwrMrtlLSLPpSiK3bLS8bSIPJeiv/e7o861IvJcitDqTRenynJS7rkU L97MKvT9IiLPpcj7a23m2yEiz6XYukZ90OVYMXkuheDQhDZpLwl5LkWHygX9 kHES8lyKkMe5hrfsJeS57HkRarm1DyXkuRT7pads1srWSe657Pkr++vt+Cch z6X442claB0vJc+lSEx7crzYUkqeS8Euuny6wV5KnkvBfPI56VeQlDyXQvw0 e9x12XPknn/5v3//B7bKJYY= "]]}}, {}}, AspectRatio->1, 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, 1.}, {0, 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7258607211938887`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Exerc\[IAcute]cio 5.6'': Gamma(2.5,1) \[LongDash] ", StyleBox["IHR ", FontColor->RGBColor[1, 0, 0]], "\[Rule]", StyleBox[" TTT plot ", FontColor->RGBColor[1, 0, 0]], "should resemble a", StyleBox[" concave line", FontColor->RGBColor[1, 0, 0]] }], "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"i", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "1000"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"Sort", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"GammaDistribution", "[", RowBox[{"2.5", ",", "1"}], "]"}], ",", "n"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", "0", "]"}], "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "/", "n"}], ",", FractionBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "i"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], "Input", CellChangeTimes->{{3.72586072893608*^9, 3.725860740093993*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.008333333333333333], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxd13c4lu//BvDS+LSHUdop2op2GmclKUTaodJe0iJaihTtoSltbWQUWWVv GQ8eHuPZe7Wk3ffmeR+/P37+6Xgf1e0e13W+zstkw+4lm/VatWolb9OqVfOf ///n9/NP5Ys2LEaQZcitVjah0M3uqBFvGiJMCMNPvx0pXiHbkGp352efmmf0 93vw+lLjGLPsFzhsGGXLP+SFvvzkQs6Fl/TvfeG5KGDL5cNvcVA+zLJDxBFY s+eefu6dSP//ON70ChGH9U/CdK7T+RueARgVpbqbNzqZrheIzjO262+TJSNp YRe90UGn8NjpwoL1z1Lo+sEYKjnRaUZuKqa9zjvw7t4Z2L3aWhl4OI1+3zkY 2+ptOLU5HW8HnlQ6v72AuaGNCUmB6fT7L8E4cGxRnzfpCMsaHL1v22VMKDb+ KMtLp/u5gieXEzf6WmSg9kfLL8Rf02xTJ6cMur+rCHZdMWdReib6jas3be9/ DVXyZK+bp7Pofq/jn1PqPAuvbLhsarki7HwvmU95kk33fxO+2x9ElSRmI/RW yw/u/Xo0eUdNNj1PKFrPv6p2HZGDmg9NS4WPb0PYN+7z0ek59HxhGFAWZWQW moM+bVd0M4+9g+u/TItEP3Poee/i+bHbvf3n5mGV7oKQXvzdo9Q+j57/Ps67 cSLbvs+Dw5TTc9zF9+E2csOnUa3z6X08gNOcW8Yxe/Ohcm6+4gNE53Sw/J6V T+/nIcRj7AJntCnAWQ/pr+efHqL65WaHPQML6H09wsQmfadouwKMDurFPMIj 5LiuH9reo4DeXzjcA36bO/sUoPCBTfyXP+GYOuJLbEhqAb3Px/i285XB8OIC NL8t47ZPkM6xee0+tZDe7xMEybrVBDgXohP70Z6ZnZ7C4Wcno7tHC+l9P8WZ eT+SwjoW4UXz4/Z4hqMjX0yxH1NE7/8ZjN/s6fLYthh2zZfr9RyXJkufr1pf TN/jOcYaZdeEvilGy+vu/wJrvQ9YPSgopu/zAtdq/wjyd31A89srHfIS2zcm j+5z4gN9r5c4r5ry4Yx5CUa6XcxoHBGBdiP/LA+cW0LfLwIxffe1xqYS5DNX 6zsuEqmTyiusW5XS94zEwh19Z981KMW2y+ojmBQFfePWj7oMLqXvG4W7i86n Rs4vBXNzzCO/QvxDo/n7g0rpe7/CqwOhsSmvS7GMWTzMJ8Veh/F13sml9P2j 4fC06lsapxThzNtjP4rGwuqJFjGiUloP0Yjw6hVzXFaKr38qfOXDYhDgPMCn i6qU1kcMOo9qd6KXphTzWhZADOo6jOt4tksZrZcYxHA8h7RxKQPz8ZofCIuX P3zStLaM1k8s1j4M9zDYUAbd7cWil+eVgtPMrFtPsbA92bssc0cZJrT8xMHc cYnC9kgZra84PJ9d2HlKaBlOpBUwKygOaePjB6xjldF6i8P9T/sSezWWgcV8 feadYEpFel1k23Jaf6/xfOuL2stdyjG05YKvkd3ZuW9Zj3Jaj68RuHTTgu0D y7G/5QO8QeUWly4dR5TT+nyDxEN237WTypHZOIL5wm/gnrpmwQ2rclqv8djY aUS7647l0NfdIK65+2U3+pTT+o2H/ophvzceLUfL3eXFY7r5pujg2nJazwmw iJr1Y6uwHLF3tE9z7BPQ+lNYUH9DFq3vBHzdULP7Ti8W9FoeOAEe4vDYWmbW rfe36Lyq64HDxiws0S0YDJ8rN43qz6L1/xb5ryXi8RYsPGx+3Iq3cAqrkrSa z6L9kIgOv64eWMHMn5svtyoRHO+VC04uYtH+SISLzaceBdtYmNu8/GsT0eZQ WXHPPSzaL0mQvfP553+chZbluzYJPSePWZ75kkX7Jwnej4xbP45kgX+o+YMk oaTbR/eM9yzaT8l41L2vpUEJC5YtCzwZO7aanJtdw6L9lYx/Qu4msYAF/2vW zJJJxinWZ58vKhbttxS07RYcom9QgbIhLR8YF7NmT9rRt4L2XwqmKlb4rr5S AZPm9FenYE3Ckdf1jytoP6Zi/5SFHUckVWBv8/bYk4qiBR9mRpZU0P5MRWy3 sa6N1RVIb/66X1LxzCXlTOi3Ctqv79DvDOtqXWAleug2JPqlLv8UfbOS9u87 bDisdbZ8WImW1/fjHe73Cr5xNLKS9vN7vJgVMS4quhItt3fkPbih5e/vxVbS /n4PmHucsUmshE7xNDzX9OML/1bSfk+DTdLc+K69q/Asx57Z0Wkw+Fh6w9q8 ivZ/Gs7sFnc7vKQKi5ndyKxRCBa4XI5dWkV5kIZfVlHVb3ZX4XuzPllpKP+r WLjuSBXlQxrW/57a/axfFe73bd4Q6eBEnw3Xu19FeZGO6+bL59Q/rcKClg+c jl0T63+MKq2i/EiHgV+P33rKKnx82nyD6aj4qOdTra6iPElH/4Y1Bqs6snGz +e4K0vHjDCv3sz6b8iUdnz9/l2UYstG8uBZ2YVx2gGVjXzblTQYahy5KvTqA jeY0KV+UgZPtvUsKx7IpfzIQ49O2q4EFG82rhVky6OY1833eRDblUQai5AO2 Zy9io+VxSzNQZJXW7foVNuVTBh4dkf7d+IiNlsvpZ4K7qtOzaW/ZlFeZ8PjP se+wAjZa4mhpJkL1C5PH8tmUX5lIEJf29lSwoasPmbjJzevCY2ZdXGRirOJr 5GQVGy1xwM5ErnnM3A1tqinfMrHNymVSyaBqHGsJnCwcGeKR/2Z0NeVdFqw2 xCUNn1CN4S0bKAvzmw6cu2hbTfmXhfWWc3t+dqtGSUu9yIJkdn3Zm53VlIdZ mNpoa9dhXzV8mrdDfRYsLtyxGRJbTfmYhZ63uJHCkmoMal7OA7Ox8uiS2a8/ V1NeZoNVYe9j970auc3Lzz0bC2s5FksMaig/s7E+yHvk8t412N0SkNm4m+KW HTi6hvI0G9yFAfN+Wtegd8uGz8b8gAynIPsaytccDPdPqFyzuQYtt2fK9KTy sJB2W2sob3Ow8l3+fwnHa7Cl5ScHD7995OuH1FD+5sC3+9c/xr9r0FyemIRF /8sLwv30OZTHOfh2d+S7tuYcNKejrzwHPQf4vJYv41A+5+Kiof85R1cO1rZc MBfPlHUfkw9wKK9zscHroOHYWxy0bwmoXAw3MjrSMYFD+Z2LtkybWP+Wg+av YRiVi82z9EqfFHIoz3Ph6aIcEiHgoKXdaXMRIx7R/9E/DuV7HmJTtm+d71iL v83bzTIPjqu1v80W11Le52Fr6nKvVgdr8aR5Oe/Lg3Hs9vD6a7WU/3nQVgdf GZZVC0fdAyM8fETer+pa8iAPz43fjkpvXYdvzZ+jMQ8ZkludLbrUkQ/5iDhR 8+N7jzrcbX7cKfmwXBBp+Nq8jrzIx4n795rqp9dhfssLzMeWqYFHXefVkR/5 qOpVNybSrg6aFh7ycUloYuq5tY48yYfRyaabI/zqcL053n/lIzyk+wy+fx35 UoDJXrHJe0/VoSWeZxbAMSjqxc0LdeRNAY5fHLzz1cU6tMSrXwGWOUQHvU2p I38KMF3yoFSdVwdd/BVgXv2nGxnyOvKoALa3X4VwPtfp4kWvEBZ1bMm0AfXk UyGOJm9eyzOpR8v2tS6E5cZfPv9NqCevCpE4Ie/3Vat6tGyPk4VwXuVzxm9+ PflViDdef9RujvXQLb9CbOnUMDB4dT15VojulmZzszbWo7L583YowsjGgWPi DtWTb0Uo8wz8GH69Hkdb7rAIc5rOFS+7X0/eFeGTT57y68t6mLUswCKUtotZ Wh9dT/4V4eqnVzezU+tRXNTyg4xvEefeZ9WTh0VQZtbsfFBWD++WQC2Go2tP Z+9f9eRjMSbUt3Uqt2zAgJYFXYxtPmMyv05sIC+L8XvU+tCapQ3IbjleFWPM avaqP/4N5Gcxxt8otXh7qQG7WgK6GPncGOGJkAbytBjT3X8fNQlvQEtcGX5A xZzfcwJjGsjXD9h7NKiu/esGtMTBig8Ifnd7UFRqA3n7AQ4rQnf20TRAd/z6 ANGMw967mVnn7wfM8rDYtqk1F110Gw4hnc4mnWvLJY8/4G5ro2zX7ly0LJe+ JTh6syjn7VAu+VyCdYeODX5kxUXL53ArgfGJge7qdVzyugRCd5UebysXuuNZ CZqevp1nu51Lfpdg2Ov/kvft5KLlctwS6L2eEjPXk0uelyJld1V1ykku7fdS 1PX56xZwmku+lyJv2uieXVO5tP9L8ViYPcernEvel+KqPns2p4pLeVCKU1/9 zLpVc8n/Ugj2Slb84nEpH0qRxrHpM0LBpT5QCuMD+VdP/ONSXpTiza/qOb/b 8qgflOLijfgAw/Y8yg/mfrwubQ9iZl1fKEWy5KH92i48yhPmfs6rsyZ35VF/ KMWF/dMjBvfkUb6UYvaO5LOGBjzqE2Uoyn7aw7wPj/KmjHlf10RfBvCoX5TB 5d6aWO4gHuVPGcYN9V2uMedR3yjDJfNSn6gJPMqjMizS8GVWk3jUP8pwYWLe pBkzeJRPZfA0E1zuOYtHfaQMEhvLY+nuPMqrMkz9/CHs9mYe9ZMyeCQtz2P7 8Ci/ypC78eSf4OM86itluBN0K8z6Lo/yrAwzHoXZzX7Ao/5Shu9Sw2FqZtbl WxlWeuY7z3jEoz5TDv7hti8GPOVR3pXj70G5X8ZzHvWbcgwqnDzAJY5H+VeO ULO45JgMHvUd5twgSbyVmMOjPCxHRyducG4xj/pPOTwPHJ1i9oFH+ViOWoPv hctLeNSHyvHS70rFFR6P8rIce+99m5L0h0f9qBx37OzMnrfjU36WI8Xp2M75 HfnUl8qxYNTQcwu78ClPmXNWyLeBU3vwqT+Vg3e/ely/XnzKVxY8Us1Zt/rz qU8x54LXF1URE/mUtyx8SBaP6jaZT/2Khch5O2K3WfEpf1nQf2VSLZ/Jp77F wkn/N+cKrPmUxyz4+W78z20en/oXC02pxw6vsuFTPrMQ4mZ7+AQz6/oYC07m b3r+tOdTXrMQlObzedwKPvUzFr59n76saDWf8pv5/xv76B1z4VNfY65fZVSw 05VPec5i3m/EzQNb+dTfWNj0sVp/5QE+5XsF1vUvfdXnCp/6XAXG+vlcd7zK p7yvwOc2e4dvu8WnfleB76ERerV3+JT/FejVv9uEX4/41PeY6427ZdD3BZ88 qMDLw1Us00g+9T/m+hsrrNMS+ORDBVI/PeUMTuRTH6zAfx3lHrff88mLCmii r24qzOZTP6zAqOr8ec+K+ORHBbQXeXyDUj71xQq8OH+4qI6ZdZ5UYHwux3Je FZ/6I3O/mW4LeSo++VKJj1NT7K9+5lOfrEQ9VxBp+J1P3lTiQtz1xP1/+NQv K9Gv5/TP3f7yyZ9KWJ58k/vfPz71zUp0mbY/OKSrgDyqRJXheGHrbgLqn5UY dFPDDu8hIJ8qEe/t0P+7kYD6aCVuPs4s7NNLQF5VwuPY8WeeJgLqp5VgW2fu uWMqIL8qcTm3aoLvGAH11Uqs7Xfy8cqZAvKsEkPLlhVdWSCg/sqco2xY7eOd BORbFZ70bLq3Z5+A+mwVijZZxo7xFpB3VXjraf96m6+A+m0VDCsGrtMws86/ Kuyb3sirOi2gvluFH07eaYsvCsjDKvA/fTp05aqA+m8VZH5/IsbeE5CPVTjY eKZrSbiA+nAVSs5UPnCOEpCXVbjksCRqyFsB9WPmHDm5vHN5koD8rILVgMzJ Y94LqC9XwWb3lrleOQLytAruoYpNy/ME1J/ZuOe7LmZ1oYB8ZSPlVOjDEyUC 6tNsmA/ZljuDJSBv2Sjqw6lcVSugfs1GiYtLWANPQP6y8bPL7QnLPwqob7PB D3Nx+PpJQB6zYb3sRfHs1kLq32x8uJz0zru9kHxmY/LAkQ9H9hBSH2fjIHux dZO+kLxmo9HQ6Fu5kZD6ORvnrkbf6mkqJL/ZMBsROW6emZD6Ohut9K7s+G+U kDyvhoXpufkh44XkeTWy2Ebhd6cIyfNqOAd7b1k5U0ieVyPy6xK78HlC8rwa FW/0hnEWCsnzalxrc3a+nZ2QPK9GNO4ctVopJM+rYW+xVN/aTUieM+cyR9Oz 3Y8IyXPm3Ka9J+T4CcnzaqRuePJCflVInldDMmz/mP2PheR5Nfp7Z6tuJgjJ 82pM8XW6+CxTSJ4z9//k9Dl5lpA8r0bTv409H+cIyfMaZDwLMe6VKyTPazC5 4uf6bGbWeV4DSarHLVaekDyvwaf6G33P5wvJ8xqU7et4YF6pkDyvwehZevF3 y4TkeQ2+VXC29GkQkuc1MC92bLNGKiTPa3AnvLrTu09C8rwG9QkBaZO+CMnz GrS9YGf2u5WIPK9BPLtH5fq2IvK8Bnt3JOe0/k9EntfAYfOe3OCuIvK8BuVf DcfkG4nI8xo4b9CbvM9YRJ5zcLP4XP/AfiLynAPtTM7c+4NF5DkHQyJ/rP1p JiLPObC4UydYZCEizzkI+/PIk8fMOs85yJpwzf+dpYg858Dv0pH8B+NF5DkH N1xXLPeYLiLPOdjhkvA1eIaIPOegT/c+g7fOEZHnzPXX87un2orIcw4GPez+ u52diDznwLP24N/FS0TkOQdX25b86LdVRJ5zkLzbvnADM+s8r0Varq+2fqeI PK+Fw9diTadjIvK8Fvx+n9YGB4jI81ocG587Q3FBRJ7XIrWz/13rEBF5XouS hMT3a6+LyPNaDGKVTrO5KSLPa2ExN8jw8jMReV6LKSnLu9s+F5HntbCZ8ne8 ZZyIPK/Fq9niid5pIvK8Fo86lfsa5orI81r47NiXtaZQRJ4zc8PHRVc/iMjz Wqw0feZ4olxEntcibm50a3e+iDyvQ4+kF/olIhF5Xgfn7fXqJ1IReV4Hq5BZ o+uYWed5HRL0H7J/qkXkeR1c268fNfKziDyvQ/19h5FuTSLynLmeMvz39w5i 8ryOyVvWNo/uYvK8DvOkTdUjhovJ8zp8d0vefXeamDyvw4knHUYYWYnJ8zps THEtmWcnJs/rMGHV5S0W9mLyvA59Z2hzPzmIyfM6dF38rUbsKCbP62D3wkQ8 a6WYPK+Hm+EIxxpm1nleD1evIOO9q8TkeT1OPTdr83e1mDyvR5eH+58VuYvJ 83oEtM5u5bRZTJ7X46LFGdvQHWLynDk3/1iR8cdLTJ7XY00HDwtzfzF5Xo/I QaazNYFi8rweG7JfvJx/Ukye10PUSp4WekpMntej9aDQnxvOiMnzetyMGe34 7ZyYPK/H3cz4nE0XxeQ5c05OXdzV6oqYPG/A+6s7pUV3xeR5A/aXXf5Sd19M njfg1hAsGxglJs8bMOvLlK1fmVnneQOOLt1SeixVTJ43IHBW6cWIPDF53oB9 Wf+szArE5HkDwiYN7iIpFJPnzLm48WL+zyIxed6Aaaa/nh4rEZPnDch9tfCt faWYPG/AcsOeE16IxeQ5M5evjLogEZPnDeDPnB91TyomzxvwcO43W1O1mDxv gMep5HdT/ojJcy5sPEZ+Ke0sIc+5+PXq9+16Qwl5zsWaJMN1rYdIyHMuxifO feo2VEKecxEQGO91cJqEPOeiY3D4+gwrCXnOhXfbCa162UjIcy7Ky/LfRC+U kOfM7JAzcru9hDznwvrTtuMHnSXkORf93/6dPXSphDznQn2nlZXBMgl5zoV8 0jC39FUS8pwLzMn7M9BVQp5z8Sf1oSnHXUKe83Bl6fmhKzZJaL/z8Nd0vMxl u4R852HXsLEOMfsktP958F4x+tK5/RLynoepzpxfZUcklAfMuXP/qaVifwn5 z8MDrxPbDU5LKB944HfMPL/5jIT6AA8fLlhMPn5OQnnBg9fjzHFfzkuoH/Dg vg//dlyTUH7w0Jjt/8olXEJ9gYefs7mDa19LKE946MEzW6OfIqH+wPz7gd1a 7cqUUL7wMCb32rFDuRLqEzwcary6IaZQQnnDg81nYd7icgn1Cx5mbeDlBDKz Ln94KDReojBhS6hvMM/b4XaHzzwJ5REPW4ysm+IkEuofPKy9LfJ4r5ZQPvHg PDQu+eRnCfURHorXRo7Ia5JQXvEwPOZpqeSnhPoJD8bG93sd/iWh/OKhSGVx yuiPhPoKD3ExbbVNraWUZzx0v9Zb8qaDlPoLD4/cFyb4d5JSvvHwtodRRXxX KfUZPkIC7dqit5TyjjmnZcXpjRsopX7DnGulc4YOM5VS/vFx957lZmszKfUd PrqbytIFw6WUh3xEP7tVmDFaSv2HDyvt3J1rx0spH/ngFB3qunqClPoQH4Kc LuNZzKzLS+Z6FeO/vpgppX7Ex+c1g229baWUn3wksQJixi6WUl/iY9fPtqYW y6SUp3zM9FqwqXKtlPoTH2sCrjVmbZFSvjLnzLVZQx9ulVKf4uP51chlPtuk lLfMOXGoddnNXVLqV3x0KtAu/7dPSvnLnNM7mi1dsl9KfYuPW5/0zhz3llIe 82Hf5Wmo4xEp9S/m3DhkwSLro1LKZz6qJ2/0S/KXUh/jo62p7wizYCnlNXNu P3JCfO+0lPoZHwnHv7Ptrkkpv5nn/e95yaDrUuprfNzYOBSrb0opz/mYphUe G/1ASv2Nz+zT8yPPM7Mu3wWY3Nt0xdVHUupzAmSZ9L2fHCOlvBdg9sUDx0++ llK/E+Bi+JqEY2+klP8CsIzMNixMkFLfE2BGz49njJOl5IEAs0wTOcnvpdT/ BJgjCj9skiklHwTwf1bt9i1PSn1QAO3Te786l0rJCwFu7ax3DKqQUj8U4KZi nfmLOin5IcCkO8uivTVS6osCrO/+bmvQZyl5IkBXV/t255hZ1x8FsH2w1HtD k5R8EeBu+BL7Vq1k1CcF2Nj1WuLFHjLyRoCnCZYRdcYy6pcC+NoMkkgGyMgf ASwcRP8czWTUNwU4tWFdWAQz6zwSwPh6v7s8Ztb1TwEarV+mJIyRkU8C2Li6 3BoxWUZ9lDm3ar+8usPMOq+Yc+holvzibBn1UwEa7s8KnzNHRn4JMNzkd9+u DjLqqwLc3l9ve2iJjDwTQNHha2anpTLqr0JMTuyo95yZdb4J8eefS+y7FTLq s0IYZeeMvOIiI++Yc1bH456v1smo3woROPrP8+C9MvJPCN5fdheZj4z6rhC9 zA2Ej47LyEMhzAY9GzDthIz6rxBZIyJKPM7KyEchVrLdjNLOy6gPC3H73tDi gVdk5CVzDvSbv7rouoz6MXOOcv0S0eeGjPwUQv43KftfqIz6shDr0xI/ed2R kadCvArqmRb/XEb9WYgTHqvv346Qka9CwCA64XOSjPq0EO+2PNw0Ll1G3gph EDXv4eZMGfVrIQZbdPv1rlhG/grBzT1rvZolo74txDnPwwuvC2XksRAj5NfK bzCzrn8z59AlaY0xX2TksxDBb69M/svMuj4uhGvQoDn3vsrIa+YcffNqyJBv MurnQuRP6CUY+kNGfgvR33CWfAkz6/q6EBvfXGA3MrPOcxEGd5zsPq6LnDwX ofTl6t7nusvJc+bcV23rNEtfTp6LYJyxNTzMQE6ei9Cq0bSgjaGcPBfhiXl8 11fMrPNchAhR59AUIzl5LkJ27cF8uz5y8lyEBWUZ+zeYyMlzEQZdM7UZYy4n z0Uo3Nd7v/0EOXkuwtBdBeFcazl5LoLjL2FjvY2cPBdhTtCaVg6L5eS5COFT zWvyl8jJcxEerdmYdnCpnDxnnrdNFG/bajl5LsKiMVvZkvVy8pw593SonHtq g5w8F0E5lVN8e6OcPBfh3ZEPe0qYWee5CL1/KJ2jPeTkuQhrrU8dm7lHTp6L MGvUk/vpJ+TkuQhuPXolmV2Rk+ci8PQebcwKkZPnIkRbYI5eqJw8FyF/+qWw WmbWeS6C+kjH6bZ35eS5CJEP5h/PDJeT5yIUv+A+sHwsJ89F2HFzZLbiuZw8 F+OD66bfRRFy8lyMgd/j7X8ws85zMYLjiiblRcrJczEeRVdN5LyVk+dilC18 MfhBqpw8Z85B5df29UiTk+diVF5qFdiULSfPmXNHz56V9wrk5LkYU3x7h7AK 5eS5GHGeMa1fs+XkuRij9OK/juXJyXMxlvvP6Bgqk5PnYkQ++TxmR2sFeS4G a8YDhaydgjwXY+Mu/fSxfRXkOXNOeZlyz4KZdZ6LceW9Q7xJPwV5LsaC5YPn zeivIM/FeJ7fvnSmpYI8FyPv5YS7vhMU5LkY80WfOvebpCDPmd/vOurbBCsF eS6Gdf8BUakzFeS5GI0eozlnoSDPxTiivvrNbbaCPGfOjUv+jV1goyDPxbhn Z326Yb6CPBdj1dVP15sWKMhz5n2vbWTrLVSQ52KcKLvgZLNIQZ6LMXJSRfng ZQryXIJbe+4dfbJaQZ4zvXnA8OCfOxTkuQTuqnTz/jsV5LkE9qOHCY33KMhz CaQXLppvO6AgzyUwTLiwqu6ggjyXYIj/zhT9AAV5zvy9zHZzAzPrPJeg19pf NneCFeS5BEut9NfYXleQ5xI8MFN+nndTQZ5LcNb4So/GUAV5LkFn38L+H8IU 5LkEMRnTn9rcU5DnEqh+i/xM7ivIc+bcs/RwloCZdZ5LsHKuZ/qIBwryXAKj 0pgJu5lZ5znTkyflV+98pCDPJQh70+iY91JBnjPnskxru7GRCvJcgoVm8zap YhXkuQQV7PSR4QkK8lyCjl31YhwSFeS5BIplmrVzMxTkuQRzp3aZxM1WkOfM OdKkpjCrUEGeSzCAbzHGvEhBnjPnpJCZ2x8XK8hz5txWErp6QrmCPJcgs3wx /3S1gjyXoqPa91nvegV5LoWD7/zj35lZ5znTw9QLc84LFeS5FBPyt7auECnI cym6T+9VXCdRkOdMTz+ZFxcnV5DnTK/32PPksVpBnkvhvyf0afwXBXnO9Kq8 bv2bmFnnuRTTHA8u+PJDQZ5L8bhhwcP7vxTkuRSdiqMyXv1RkOdSJK+0So5v rSTPpZi6PmXog/+U5LkU7b1PbWjVTUmeS+GV2CZJZKQkz5n/3yWgzypjJXku RdfZ3ZeG9VWS58y5ovuJkV8HKMlz5twRa95wbIiSPJfizNaZVyZOUpLnUnyJ iiycNE9JnjP345Lc6LxQSZ5LcXCbxcBdjkryXIpax83f5y9WkudSdPBZ4jVj iZI8l4KTcnKv61IleS6FpGxUWNVqJXkuxaFD5116uyrJcykqVs4Zt5KZdZ5L 4bvih9NpZtZ5LsP22MrWcFeS5zIckVT2bNqkJM+ZnjBzuN6DLUryXIbVm52r R21XkucyWBeumCfboyTPZejhE4LZ3kryXIZrLiujnX2U5LkM190iaoW+SvKc 6ZVt5nQ6f1BJnsvwx9W5rNthJXkuw9SrxrZ2QUryXIb5Rx3c351WkucyrDva X/IzREmey7Bgnsdpy2tK8lyGn3ezc8OZWee5DKV6Rh8sQpXkOdN7z8/a+yBc SZ7LkLJ00oVvEUrynOnhjf8uDYxWkucyVGzMXCgrUJLnMjwP23xya5mSPJdh 0PR5MWpm1nkuwyg3k+i3FUrynOnJMwxkjyuV5LkMdctOLh7RoCTPmZ7q37Hz NJGSPJdhevt3JZfESvJchqdmWqfJMiV5LsPXVUETh31UkucyLJxqMvDuZyV5 LoOyceevoC9K8lwGltqrz/hGJXkuh6fx2Q8v9VTkuRxzsg54ZTGzznOmV7gO mzq+h4o8l2Pp3Tatyg1U5Lkc734/6HjQSEWey9F2zK9BNn1U5Lkce5JDVm3p qyLP5dh0rUvP44NV5Lkcd/zOFpgOUZHnclQPCjh6cYyKPGd6Vkas219LFXku h/Psq0EvpqrIczmTN61ijlupyHM5AjPLXrWBijxnfr+nceVbZtZ5LofBtMMv VjupyHM5/D/9DKtmZp3nchQs3v4hfrmKPJfjNqtk+sjVKvJcDuGxtbGb3VTk uRw4zX711EdFnsvhdHvA22hm1nkuR0hliDr+sIo8l+P4v2VvuvuryHM5ah+Y vLQNUpHnclxOVa5pG6wiz5metudHfNEFFXnO9KoPtnERl1TkOdPrbrmUXrut Is/lMFz35taiMBV5Loc8sj/f5J6KPGdyP30m+9x9FXmuwL4U0Yivj1TkuQKL 5Tb/WBEq8lyBOb3TVnyKVZHnCjhumZE5KU5FnitwLS1wpmmSijxX4OQUd4+c FBV5rsAdsxUh31NV5LkCf89m/inIVpHnCvx31thkeaGKPGd606boi725KvJc geWDRbtealTkuQKzTbf/W/JVRZ4rUPtoZ1zlXxV5roBJf/WSYR3V5Dnj3v6d f6OZWee5AqYD5luc66omz5ke9G75GGkPNXmuQNWy9gFfeqrJcwXU1V/5n4zU 5LkCv+csTLnST02eKzDwd+FxkzFq8pzpLcss1VtnqclzBQ6UODUcmK0mz5ke abrpXv/5avJcgdT2HbZ1tVOT50xPmZXJH+mgJs8V8IwuGMxeoibPFVjyOm9P 4E41ea5A5zaCQa13qclzBcJC/04az8w6z5XYtCq7w+Q9avJcCW1g8d0mbzV5 roRTyJF3Hn5q8lyJ4AzX9cePqclzJkeG3ho/9oqaPFeif2SiXvc7avJcie1H qwbeeaAmz5V4NdKseO1jNXmuhKHZg96xkWryXAnx2jlNa6LU5LkSst5X3u1j Zp3nSvANHFYPi1GT58y82SrYMFZNnjOunPTPmcrMOs+VWJM0zSg2Tk2eK3Hx ldWknelq8lyJIfu+GFhnq8lzJfp0qa6uKVKT50pMP75v+lCumjxXQlD2ddwi oZo8V0L+bOed+yI1ea5E4q/7g5Qf1eS5EjOGTxsb9llNnjO5/82uwa9JTZ4r Eb95tl8xM+s8VyKZxbrc+7uaPFdC+SDJlsXMOs+VcJ7ch1vQTkOeK2EaobfP uIuGPFciJ++FqL2RhjxX4tIxl7iFxhryXIUattOUJ8ys85zZp3ZbEv8ys85z FQZP9zzwpb+GPFdB0OuJm9VgDXmuwtPZvCcBIzXkuQrjz/cf18dcQ56r4HrF atWOsRryXIV4r6JWnpYa8pzJpRHPd/+dqCHPVUjoOHVL8kwNea6CcT9ndj00 5DmTw8l+NSttNOS5ChGd3TgfHTXkuQoFxqq995doyHMV/v7euj5gmYY8Z3Li o77DxOUa8lyFaRk+BjWrNOS5Ctq4rR1ttmnIcxWGJfXr5LtPQ56rsKym38Yh 3hryXIUX9981DjqgIc9VEAWcddEe1JDnjFuri3dJAzTkOeNM0Y/bbmc05LkK ySbndnGYWee5CtG9TuTmXtKQ5yqcfNnYdctlDXmuQrVtTcYpZtZ5roJN2dg/ /8I15LkKt+Z73F79XEOeqzBr/ZfIay805LkKtme85jyN0JDnavT6tz6r3ysN ea5GX/1LFvuiNeS5Gtf2XgwwitGQ52pMLZ7ZrjZeQ56r4WS1S137VkOeqyEK /+U9JFFDnqvxbWzgOF9m1nmuhufgl3E7cjTkuRqzwUs+UaQhz9XIyTkwZ0Wx hjxXY3nqIFFxmYY8Z/5+71KDC5Ua8lyNJofjSzOkGvJcja+mc+2TFRryXI0G yzORLLWGPGdyKOFd0hSthjxXI6bzi/PKTxryXA1T9wp1TqOGPFejNRZtmvtN Q56r4RVtfuVek4Y8V2NQUNtCkZ6WPGdy/ckBrXsbLXmuhr7BKov/2mrJczUk t/8W9+imJc+ZnD/hHmylryXP1fgXbrWlzEhLnqvh3OXowIm9teS5GtBMH6tm Zp3nTI4XHUh+0kdLnqth101t3bOvljxXY81o/4Kx/bTkObNO/P1sFjOzLvA1 8PA2KscQLXmuwbsbpuLfZlrynHkPmY8VguFa8pxZh02stN0jteS5Btcu/GTf G6MlzzU48lAw+w0z6zxn/n3MEdccSy15rsG4ho72ZhO05LkGGa3TXQ9N1JLn zLrOD3jWbZKWPNdg/bQ95TehJc81YF+E33VrLXmuwc12nPBiZtZ5rsGfKUM8 uPO05DmTi8bDpvSw1ZLnGsT4OIwLXKglz5nvuLMgYpajljzXoGbT2gwTdy15 zryf1DdbQjdryXMNDoxxOVO3VUuea7Dryqb5tXu05LkG7V3u55/015LnGvQ1 e73/MTPrPNcg3VkwtuKEljzXwNnm6OqMM1ryXIMdspUZl85qyXMNjksSy00u a8lzDewtbOKCrmjJc2YfFHZbPPWGljxncq3f7rKCMC15zvzeX8nDht7Vkuda vFypLh9xT0uea+F0sHt01X0tea7F9i1r48seaslzLcJ/NrV6+1xLnmvxfHy2 xOelljxnvru54K17lJY816Lj4YgUNjPrPNfCfkz7+k7RWvJcizPne8za8EZL njP3cW6dh2uCljzX4t+uBYvci7XkuRY/9oVF7GZmnedahHGD/AKYWee5Frfu fvgTy8w6z7UYvIRTaF+tJc+1ePVdunJMjZY816LA6ZmHLzPrPGfex8+h4/bU aslzLZZ5ZgZ3aNCS51pcME/Un8/VkufMnwEdCqKYWec585wpvXoF8bTkuRbt Zjzp2kehJc+16Cfx79ldoyXPtfBq5/fVQ6slz7UwiDgcGPdZS55r8TdnXPCp r1ryXIvG3oEzPBu15Dnznh/b839805LnzLpbXHb8/S8tef7x//78H1IY9ZU= "]]}}, {}}, AspectRatio->1, 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, 1.}, {0, 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.725860747273952*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 5.7", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"{", RowBox[{ "0.41", ",", "0.58", ",", "0.75", ",", "0.83", ",", "1", ",", "1.08", ",", "1.17", ",", "1.25", ",", "1.35"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", RowBox[{"Length", "[", "t", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", "0", "]"}], "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "\[IndentingNewLine]", RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n", "-", "i", "+", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "i", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "i"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}], ",", "\[IndentingNewLine]", FractionBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "i"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TableHeadings", "->", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(t\), \((i)\)]\)\>\"", ",", "\"\<\!\(\*SubscriptBox[\(t\), \((i)\)]\)-\!\(\*SubscriptBox[\(t\), \ \((i - 1)\)]\)\>\"", ",", "\"\\"", ",", "\"\<(n-i+1)\[Times][\!\(\*SubscriptBox[\(t\), \ \((i)\)]\)-\!\(\*SubscriptBox[\(t\), \((i - 1)\)]\)]\>\"", ",", "\"\<\[Tau][\!\(\*SubscriptBox[\(t\), \((i)\)]\)]\>\"", ",", "\"\<\!\(\*FractionBox[\(\[Tau][\*SubscriptBox[\(t\), \((i)\)]]\), \(\ \[Tau][\*SubscriptBox[\(t\), \((n)\)]]\)]\)\>\""}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "/", "n"}], ",", FractionBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "i"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], "Input", CellChangeTimes->{{3.725860753394212*^9, 3.7258607558949947`*^9}}], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox["\<\"i\"\>", HoldForm], TagBox["\<\"\\!\\(\\*SubscriptBox[\\(t\\), \\((i)\\)]\\)\"\>", HoldForm], TagBox["\<\"\\!\\(\\*SubscriptBox[\\(t\\), \ \\((i)\\)]\\)-\\!\\(\\*SubscriptBox[\\(t\\), \\((i - 1)\\)]\\)\"\>", HoldForm], TagBox["\<\"n-i+1\"\>", HoldForm], TagBox["\<\"(n-i+1)\[Times][\\!\\(\\*SubscriptBox[\\(t\\), \ \\((i)\\)]\\)-\\!\\(\\*SubscriptBox[\\(t\\), \\((i - 1)\\)]\\)]\"\>", HoldForm], TagBox["\<\"\[Tau][\\!\\(\\*SubscriptBox[\\(t\\), \\((i)\\)]\\)]\"\>", HoldForm], TagBox["\<\"\\!\\(\\*FractionBox[\\(\[Tau][\\*SubscriptBox[\\(t\\), \ \\((i)\\)]]\\), \\(\[Tau][\\*SubscriptBox[\\(t\\), \\((n)\\)]]\\)]\\)\"\>", HoldForm]}, {"1", "0.41`", "0.41`", "9", "3.69`", "3.69`", "0.43824228028503565`"}, {"2", "0.58`", "0.16999999999999998`", "8", "1.3599999999999999`", "5.05`", "0.5997624703087886`"}, {"3", "0.75`", "0.17000000000000004`", "7", "1.1900000000000004`", "6.24`", "0.7410926365795725`"}, {"4", "0.83`", "0.07999999999999996`", "6", "0.47999999999999976`", "6.72`", "0.7980997624703088`"}, {"5", "1", "0.17000000000000004`", "5", "0.8500000000000002`", "7.57`", "0.8990498812351545`"}, {"6", "1.08`", "0.08000000000000007`", "4", "0.3200000000000003`", "7.890000000000001`", "0.9370546318289787`"}, {"7", "1.17`", "0.08999999999999986`", "3", "0.2699999999999996`", "8.16`", "0.9691211401425179`"}, {"8", "1.25`", "0.08000000000000007`", "2", "0.16000000000000014`", "8.32`", "0.98812351543943`"}, {"9", "1.35`", "0.10000000000000009`", "1", "0.10000000000000009`", "8.42`", "1.`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> { None, {"i", "\!\(\*SubscriptBox[\(t\), \((i)\)]\)", "\!\(\*SubscriptBox[\(t\), \((i)\)]\)-\!\(\*SubscriptBox[\(t\), \((i - \ 1)\)]\)", "n-i+1", "(n-i+1)\[Times][\!\(\*SubscriptBox[\(t\), \ \((i)\)]\)-\!\(\*SubscriptBox[\(t\), \((i - 1)\)]\)]", "\[Tau][\!\(\*SubscriptBox[\(t\), \((i)\)]\)]", "\!\(\*FractionBox[\(\[Tau][\*SubscriptBox[\(t\), \((i)\)]]\), \ \(\[Tau][\*SubscriptBox[\(t\), \((n)\)]]\)]\)"}}]]]], "Output", CellChangeTimes->{3.725860756922282*^9}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], LineBox[{{0., 0.}, {0.1111111111111111, 0.43824228028503565`}, { 0.2222222222222222, 0.5997624703087886}, {0.3333333333333333, 0.7410926365795725}, {0.4444444444444444, 0.7980997624703088}, { 0.5555555555555556, 0.8990498812351545}, {0.6666666666666666, 0.9370546318289787}, {0.7777777777777778, 0.9691211401425179}, { 0.8888888888888888, 0.98812351543943}, {1., 1.}}]}}, {}}, AspectRatio->1, 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, 1.}, {0, 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7258607569788713`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "TTT", " ", "plot", " ", "resembles", " ", "a", " ", "concave", " ", "line"}], ",", " ", "thus", ",", " ", RowBox[{"suggesting", " ", "a", " ", "IHR", " ", "model"}]}], " ", "*)"}]], "Input", FontColor->RGBColor[1, 0, 0]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 5.9 (* Data from Exercise 5.10 *)", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"{", RowBox[{ "0.30", ",", "0.55", ",", "0.56", ",", "0.86", ",", "0.93", ",", "1.15", ",", "1.42", ",", "1.75"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", RowBox[{"Length", "[", "t", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", "0", "]"}], "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "\[IndentingNewLine]", RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n", "-", "i", "+", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "i", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "i"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}], ",", "\[IndentingNewLine]", FractionBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "i"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TableHeadings", "->", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(t\), \((i)\)]\)\>\"", ",", "\"\<\!\(\*SubscriptBox[\(t\), \((i)\)]\)-\!\(\*SubscriptBox[\(t\), \ \((i - 1)\)]\)\>\"", ",", "\"\\"", ",", "\"\<(n-i+1)\[Times][\!\(\*SubscriptBox[\(t\), \ \((i)\)]\)-\!\(\*SubscriptBox[\(t\), \((i - 1)\)]\)]\>\"", ",", "\"\<\[Tau][\!\(\*SubscriptBox[\(t\), \((i)\)]\)]\>\"", ",", "\"\<\!\(\*FractionBox[\(\[Tau][\*SubscriptBox[\(t\), \((i)\)]]\), \(\ \[Tau][\*SubscriptBox[\(t\), \((n)\)]]\)]\)\>\""}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "/", "n"}], ",", FractionBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "i"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], "Input", CellChangeTimes->{{3.7258607653284483`*^9, 3.7258607674535093`*^9}}], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox["\<\"i\"\>", HoldForm], TagBox["\<\"\\!\\(\\*SubscriptBox[\\(t\\), \\((i)\\)]\\)\"\>", HoldForm], TagBox["\<\"\\!\\(\\*SubscriptBox[\\(t\\), \ \\((i)\\)]\\)-\\!\\(\\*SubscriptBox[\\(t\\), \\((i - 1)\\)]\\)\"\>", HoldForm], TagBox["\<\"n-i+1\"\>", HoldForm], TagBox["\<\"(n-i+1)\[Times][\\!\\(\\*SubscriptBox[\\(t\\), \ \\((i)\\)]\\)-\\!\\(\\*SubscriptBox[\\(t\\), \\((i - 1)\\)]\\)]\"\>", HoldForm], TagBox["\<\"\[Tau][\\!\\(\\*SubscriptBox[\\(t\\), \\((i)\\)]\\)]\"\>", HoldForm], TagBox["\<\"\\!\\(\\*FractionBox[\\(\[Tau][\\*SubscriptBox[\\(t\\), \ \\((i)\\)]]\\), \\(\[Tau][\\*SubscriptBox[\\(t\\), \\((n)\\)]]\\)]\\)\"\>", HoldForm]}, {"1", "0.3`", "0.3`", "8", "2.4`", "2.4`", "0.3191489361702127`"}, {"2", "0.55`", "0.25000000000000006`", "7", "1.7500000000000004`", "4.15`", "0.5518617021276596`"}, {"3", "0.56`", "0.010000000000000009`", "6", "0.06000000000000005`", "4.210000000000001`", "0.559840425531915`"}, {"4", "0.86`", "0.29999999999999993`", "5", "1.4999999999999996`", "5.710000000000001`", "0.759308510638298`"}, {"5", "0.93`", "0.07000000000000006`", "4", "0.28000000000000025`", "5.990000000000001`", "0.7965425531914895`"}, {"6", "1.15`", "0.21999999999999986`", "3", "0.6599999999999996`", "6.65`", "0.8843085106382979`"}, {"7", "1.42`", "0.27`", "2", "0.54`", "7.19`", "0.9561170212765958`"}, {"8", "1.75`", "0.33000000000000007`", "1", "0.33000000000000007`", "7.5200000000000005`", "1.`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> { None, {"i", "\!\(\*SubscriptBox[\(t\), \((i)\)]\)", "\!\(\*SubscriptBox[\(t\), \((i)\)]\)-\!\(\*SubscriptBox[\(t\), \((i - \ 1)\)]\)", "n-i+1", "(n-i+1)\[Times][\!\(\*SubscriptBox[\(t\), \ \((i)\)]\)-\!\(\*SubscriptBox[\(t\), \((i - 1)\)]\)]", "\[Tau][\!\(\*SubscriptBox[\(t\), \((i)\)]\)]", "\!\(\*FractionBox[\(\[Tau][\*SubscriptBox[\(t\), \((i)\)]]\), \ \(\[Tau][\*SubscriptBox[\(t\), \((n)\)]]\)]\)"}}]]]], "Output", CellChangeTimes->{3.725860768249789*^9}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], LineBox[{{0., 0.}, {0.125, 0.3191489361702127}, {0.25, 0.5518617021276596}, {0.375, 0.559840425531915}, {0.5, 0.759308510638298}, {0.625, 0.7965425531914895}, {0.75, 0.8843085106382979}, {0.875, 0.9561170212765958}, {1., 1.}}]}}, {}}, AspectRatio->1, 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, 1.}, {0, 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.72586076830478*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "TTT", " ", "plot", " ", "is", " ", "close", " ", "to", " ", "a", " ", "concave", " ", "line"}], ",", " ", "thus", ",", " ", RowBox[{"suggesting", " ", "a", " ", "IHR", " ", "model"}]}], " ", "*)"}]], "Input", FontColor->RGBColor[1, 0, 0]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 5.9 (* Data from Exercise 5.12 *)", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"{", RowBox[{ "49", ",", "73", ",", "103", ",", "140", ",", "162", ",", "164", ",", "181", ",", "196", ",", "232", ",", "248", ",", "288", ",", "290", ",", "309", ",", "377", ",", "388", ",", "464", ",", "500"}], "}"}]}], ";", " ", RowBox[{"n", "=", RowBox[{"Length", "[", "t", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", "0", "]"}], "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "\[IndentingNewLine]", RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n", "-", "i", "+", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "i", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "i"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}], ",", "\[IndentingNewLine]", FractionBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "i"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1."}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TableHeadings", "->", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(t\), \((i)\)]\)\>\"", ",", "\"\<\!\(\*SubscriptBox[\(t\), \((i)\)]\)-\!\(\*SubscriptBox[\(t\), \ \((i - 1)\)]\)\>\"", ",", "\"\\"", ",", "\"\<(n-i+1)\[Times][\!\(\*SubscriptBox[\(t\), \ \((i)\)]\)-\!\(\*SubscriptBox[\(t\), \((i - 1)\)]\)]\>\"", ",", "\"\<\[Tau][\!\(\*SubscriptBox[\(t\), \((i)\)]\)]\>\"", ",", "\"\<\!\(\*FractionBox[\(\[Tau][\*SubscriptBox[\(t\), \((i)\)]]\), \(\ \[Tau][\*SubscriptBox[\(t\), \((n)\)]]\)]\)\>\""}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "/", "n"}], ",", FractionBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "i"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "j", "+", "1"}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}]}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], "Input", CellChangeTimes->{{3.7258607740967407`*^9, 3.725860776972844*^9}}], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox["\<\"i\"\>", HoldForm], TagBox["\<\"\\!\\(\\*SubscriptBox[\\(t\\), \\((i)\\)]\\)\"\>", HoldForm], TagBox["\<\"\\!\\(\\*SubscriptBox[\\(t\\), \ \\((i)\\)]\\)-\\!\\(\\*SubscriptBox[\\(t\\), \\((i - 1)\\)]\\)\"\>", HoldForm], TagBox["\<\"n-i+1\"\>", HoldForm], TagBox["\<\"(n-i+1)\[Times][\\!\\(\\*SubscriptBox[\\(t\\), \ \\((i)\\)]\\)-\\!\\(\\*SubscriptBox[\\(t\\), \\((i - 1)\\)]\\)]\"\>", HoldForm], TagBox["\<\"\[Tau][\\!\\(\\*SubscriptBox[\\(t\\), \\((i)\\)]\\)]\"\>", HoldForm], TagBox["\<\"\\!\\(\\*FractionBox[\\(\[Tau][\\*SubscriptBox[\\(t\\), \ \\((i)\\)]]\\), \\(\[Tau][\\*SubscriptBox[\\(t\\), \\((n)\\)]]\\)]\\)\"\>", HoldForm]}, {"1", "49", "49", "17", "833", "833", "0.2000480307396734`"}, {"2", "73", "24", "16", "384", "1217", "0.29226705091258404`"}, {"3", "103", "30", "15", "450", "1667", "0.40033621517771373`"}, {"4", "140", "37", "14", "518", "2185", "0.5247358309317963`"}, {"5", "162", "22", "13", "286", "2471", "0.5934197886647454`"}, {"6", "164", "2", "12", "24", "2495", "0.5991834774255523`"}, {"7", "181", "17", "11", "187", "2682", "0.6440922190201729`"}, {"8", "196", "15", "10", "150", "2832", "0.6801152737752161`"}, {"9", "232", "36", "9", "324", "3156", "0.7579250720461095`"}, {"10", "248", "16", "8", "128", "3284", "0.7886647454370798`"}, {"11", "288", "40", "7", "280", "3564", "0.8559077809798271`"}, {"12", "290", "2", "6", "12", "3576", "0.8587896253602305`"}, {"13", "309", "19", "5", "95", "3671", "0.8816042267050912`"}, {"14", "377", "68", "4", "272", "3943", "0.9469260326609029`"}, {"15", "388", "11", "3", "33", "3976", "0.9548511047070125`"}, {"16", "464", "76", "2", "152", "4128", "0.9913544668587896`"}, {"17", "500", "36", "1", "36", "4164", "1.`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> { None, {"i", "\!\(\*SubscriptBox[\(t\), \((i)\)]\)", "\!\(\*SubscriptBox[\(t\), \((i)\)]\)-\!\(\*SubscriptBox[\(t\), \((i - \ 1)\)]\)", "n-i+1", "(n-i+1)\[Times][\!\(\*SubscriptBox[\(t\), \ \((i)\)]\)-\!\(\*SubscriptBox[\(t\), \((i - 1)\)]\)]", "\[Tau][\!\(\*SubscriptBox[\(t\), \((i)\)]\)]", "\!\(\*FractionBox[\(\[Tau][\*SubscriptBox[\(t\), \((i)\)]]\), \ \(\[Tau][\*SubscriptBox[\(t\), \((n)\)]]\)]\)"}}]]]], "Output", CellChangeTimes->{3.72586077770934*^9}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], LineBox[{{0., 0.}, {0.058823529411764705`, 0.2000480307396734}, { 0.11764705882352941`, 0.29226705091258404`}, {0.17647058823529413`, 0.40033621517771373`}, {0.23529411764705882`, 0.5247358309317963}, { 0.29411764705882354`, 0.5934197886647454}, {0.35294117647058826`, 0.5991834774255523}, {0.4117647058823529, 0.6440922190201729}, { 0.47058823529411764`, 0.6801152737752162}, {0.5294117647058824, 0.7579250720461095}, {0.5882352941176471, 0.7886647454370798}, { 0.6470588235294118, 0.8559077809798271}, {0.7058823529411765, 0.8587896253602305}, {0.7647058823529411, 0.8816042267050913}, { 0.8235294117647058, 0.946926032660903}, {0.8823529411764706, 0.9548511047070125}, {0.9411764705882353, 0.9913544668587896}, {1., 1.}}]}}, {}}, AspectRatio->1, 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, 1.}, {0, 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.725860777765607*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "TTT", " ", "plot", " ", "is", " ", "close", " ", "to", " ", "a", " ", "concave", " ", "line"}], ",", " ", "thus", ",", " ", RowBox[{"suggesting", " ", "a", " ", "IHR", " ", "model"}]}], " ", "*)"}]], "Input", FontColor->RGBColor[1, 0, 0]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 5.10", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ "0.30", ",", "0.55", ",", "0.56", ",", "0.86", ",", "0.93", ",", "1.15", ",", "1.42", ",", "1.75"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sorteddata", "=", RowBox[{"Sort", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "=", RowBox[{"Length", "[", "sorteddata", "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"abcordExpProbPlot", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "i", "+", "1"}], ")"}]}], "]"}], ",", RowBox[{"sorteddata", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"abcordExpProbPlot", ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"sorteddata", "[", RowBox[{"[", "n", "]"}], "]"}], "-", RowBox[{"sorteddata", "[", RowBox[{"[", "1", "]"}], "]"}]}], RowBox[{ RowBox[{"Log", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "n", "+", "1"}], ")"}]}], "]"}], "-", RowBox[{"Log", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1", "+", "1"}], ")"}]}], "]"}]}]], ")"}], RowBox[{"-", "1"}]]}], "Input", CellChangeTimes->{{3.482526515245932*^9, 3.482526550873867*^9}, { 3.48252658259525*^9, 3.482526585337945*^9}, {3.482526616507227*^9, 3.482526624112483*^9}, {3.4825266579695463`*^9, 3.482526662919722*^9}, { 3.4825267103301563`*^9, 3.482526763647937*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{0.11778303565638346`, 0.3}, {0.25131442828090605`, 0.55}, { 0.4054651081081644, 0.56}, {0.5877866649021191, 0.86}, { 0.8109302162163288, 0.93}, {1.0986122886681098`, 1.15}, { 1.5040773967762742`, 1.42}, {2.1972245773362196`, 1.75}}]}, {}}, {}}, AspectRatio->1, 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, 2.1972245773362196`}, {0, 1.75}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7258607834546127`*^9}], Cell[BoxData["1.4340976149516111`"], "Output", CellChangeTimes->{3.725860783466663*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ "0.30", ",", "0.55", ",", "0.56", ",", "0.86", ",", "0.93", ",", "1.15", ",", "1.42", ",", "1.75"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sorteddata", "=", RowBox[{"Sort", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "=", RowBox[{"Length", "[", "sorteddata", "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"abcordExpProbPlot", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "0.25"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "i", "+", "0.625"}], ")"}]}], "]"}], ",", RowBox[{"sorteddata", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"abcordExpProbPlot", ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"sorteddata", "[", RowBox[{"[", "n", "]"}], "]"}], "-", RowBox[{"sorteddata", "[", RowBox[{"[", "1", "]"}], "]"}]}], RowBox[{ RowBox[{"Log", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "0.25"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "n", "+", "0.625"}], ")"}]}], "]"}], "-", RowBox[{"Log", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "0.25"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1", "+", "0.625"}], ")"}]}], "]"}]}]], ")"}], RowBox[{"-", "1"}]]}], "Input", CellChangeTimes->{{3.482526515245932*^9, 3.482526550873867*^9}, { 3.48252658259525*^9, 3.482526585337945*^9}, {3.482526616507227*^9, 3.482526624112483*^9}, {3.4825266579695463`*^9, 3.482526662919722*^9}, { 3.4825267103301563`*^9, 3.482526763647937*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{0.07878087785311438, 0.3}, {0.21936282847430366`, 0.55}, { 0.3829922522561059, 0.56}, {0.5787368293822011, 0.86}, { 0.8223589120399516, 0.93}, {1.1451323043030026`, 1.15}, { 1.6247053845648889`, 1.42}, {2.580216829592325, 1.75}}]}, {}}, {}}, AspectRatio->1, 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, 2.580216829592325}, {0, 1.75}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.725860792545108*^9}], Cell[BoxData["1.7251282425787662`"], "Output", CellChangeTimes->{3.7258607925570793`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Exerc\[IAcute]cio 5.10': exponential probability plot with simulated \ exponential data\ \>", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"ExponentialDistribution", "[", "1.", "]"}], ",", " ", "1000"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sorteddata", "=", RowBox[{"Sort", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "=", RowBox[{"Length", "[", "sorteddata", "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"abcordExp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "i", "+", "1"}], ")"}]}], "]"}], ",", RowBox[{"sorteddata", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"abcordExp", ",", " ", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"sorteddata", "[", RowBox[{"[", "n", "]"}], "]"}], "-", RowBox[{"sorteddata", "[", RowBox[{"[", "1", "]"}], "]"}]}], RowBox[{ RowBox[{"Log", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "n", "+", "1"}], ")"}]}], "]"}], "-", RowBox[{"Log", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1", "+", "1"}], ")"}]}], "]"}]}]], ")"}], RowBox[{"-", "1"}]], "\[IndentingNewLine]"}], "\[IndentingNewLine]", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"sorteddata", "[", RowBox[{"[", RowBox[{"Floor", "[", RowBox[{"0.9", "\[Times]", "n"}], "]"}], "]"}], "]"}], "-", RowBox[{"sorteddata", "[", RowBox[{"[", RowBox[{"Floor", "[", RowBox[{"0.1", "\[Times]", "n"}], "]"}], "]"}], "]"}]}], RowBox[{ RowBox[{"Log", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", RowBox[{"Floor", "[", RowBox[{"0.9", "\[Times]", "n"}], "]"}], "+", "1"}], ")"}]}], "]"}], "-", RowBox[{"Log", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", RowBox[{"Floor", "[", RowBox[{"0.1", "\[Times]", "n"}], "]"}], "+", "1"}], ")"}]}], "]"}]}]], ")"}], RowBox[{"-", "1"}]]}], "Input", CellChangeTimes->{{3.482526515245932*^9, 3.482526550873867*^9}, { 3.48252658259525*^9, 3.482526585337945*^9}, {3.482526616507227*^9, 3.482526624112483*^9}, {3.4825266579695463`*^9, 3.482526662919722*^9}, { 3.4825267103301563`*^9, 3.482526763647937*^9}, {3.7258607994053926`*^9, 3.7258608020914583`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004583333333333334], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVl3dYj98fxttDOzQo0aBEVqmQ+0lDKKSMpmRk9W0ghNKgUhpIWylpDw1N 7b333nvvPu36fX5/PdfreZ/nvO/7Ptf1nHP2GZpcu09FQUExQk1B8f9n9lmX K1IGVyE5Frzj0h5acE96SFw2NMDrAxkZjToXcG88Jszv+0PkfJ1Ztp24icsq /tttH5iiWlRNaHe1Jd66c94psH2OCywbSzHTlshS3HN+Z9ArPFF7U0e79gZr /GzqL7LeosbE7vTPRRvQKVz9MPffe4hUVbtfgC2MqTesj1vbYmdO/eqrR/ag 7GzuWnWzR7bB3v8o6u3hqntn5NLPj2gt+XNTVOwD5Iuv9oskOqKby5CNovQD rmt843Iq/IS27TlHo42cwHFHvfRFiwseXdkryPvKCfRJA+cmxl0hGyD6S3K7 C9RvmN0nWbuDu/nHo23jLqDIdW44/ckDyQFvS6j+fAZTVv6Xom9f8PVielaN jCuYvKQLvgd+haxX4FTeuhsCWvZ9jo78Bn+NZ/qtbu7oMmnlYPjriSj7oQHG Fx7gK6m1iMj9Dub/3rxveuOB4BHfHvdKL3AqBV/fCvPA3y+9z7JaveFgpEWV 7/YFSbdNrh8f8gHnz8GP+sVfcKP7YOTEnC8ufddZ0n74DSJ/ub0mt/xwyDvS Jvffd7Bl3pCXYgnA4Wt9dhlt37F/9/6q/F0/cPlrcf1Ylhcc/us19BENRLC1 7g6r4z5ImXnPqbM7CIlrBx7EDftA6gAb/+fgIJiEnZhNKPSFYdxif5/YTzBV ejrcrPAFXSO/pe6fn/hp+G6HcZc/Bses51ZkgiFbOLpzifUHErSFDDJygsHr dGXnX4cf4Eze0xSkEoLOGo603TGBSMv1MoqsCQGPxbdj2UI/4eWWf6Dl1i9I P9+xYD/+E3s/DIkd7P2FT3uO/711Pxi/TDVtgh6FIt2tsHwsOhgF3qbyp+dC Aff8ryrXQ7BcEfNu1fI3brxvMf7pHgJRC9cLXdRhYDD98ZzFPRT3wn6lDrmE QT3CPeOX3m/ESHzp2s4VjqhyRXfqjDDUhTJU3w8MR/3LotcruWF4bFca0CEa Abd8R33GsjD0iP/Wf5UQAar0qwJPOMPhQ/VeRPZMJDQFFi85nQ2HxBsVOoGi SLAIeet66YQj+yDlzoNXo3Cd3TP7jH84brdm3Ndui8LU2z2Bck8i8O2rL3P8 vWhEeK/FVOZHYDajml98OhqBZZkW2qQIFPP9iCl/HQPRYf7kzysRmF65VeNB E4tDAS4S8nKRiBK85/vOLRa05reu2z2OxA9qyb1uu+Kw5/5er6tRkehLVbMo Co1DqnzGRl5mJLjdQ1o8eOLhT6mbbsAeBbcX/eYa+vG4U39Ua8f+KBTeOrdD 9Fc8ppW2dxllR4HSVriYbSweQrH511QKonAom+S57egfnOOTnr9PioKIsYQz j8UfJL0S9Jd3iYaAzYU/spl/cPnPcb0pj2js+FLF+R9VAqi0NxIdE6Jxuk81 PVklAfW5+3JvXYzB14e6CexuCbB0otXq/S8Gz9sCaK0bE7BLKLv4VFAMJJPT syj4EsGq+1zyunEsGs7fH/E0TEQ3qyfF7qxY5GTe+nw2IhF9jttNTJji8U1I K3V1OhHDk4K3GVXjsWx54nnZySRsyHKJc96Ph136v/KYd0n4ZSBAd/5tPOI6 mkp/FSQh6NZJ6c60eLSMPHgdx5QMkvu93H2+f6C6oT9YeS0ZslzduedL/sBI K42HwjcZJQZrikO0Ccgxer1HuTcZmWblx3MFE6BbEkUZJPoX0ud0/jaLJmBd +0Eli+lfxCrW/jinlACTCyUubil/sSp7V5oqLwHzHKsXRbb+wuZ660PP54mI 9zi8vVo5BeOSRYlZAYmQYPsx4+KagmO20RaKMYmYUnSf0m9KQWe6r7OYcBJo nl7jUdqTCuN9DdW1l5NQrHzmNR6kggix1LQ2TMIn8Ti+y7GpeLTYx0j/OQlP 2LhYzUipuPrLLZZjMgkSHoO3ws+mgf9fm02JRjL20/gzLHxMQ7yLbBKpNhmH 3+SKalangW9FTTCa6i/+1A8XlHCn4+yztRhn7r8oz4kcUTdIR+cV6QMKh1Pw oCkucDo8Hcfimi//p5uCt99+L/6cJbO9b1aaXwpumauQHp7KAJ0Muy57VApI o7diFO0y0Kd3RvZmeQru24Xul6rIwMMG9/1PKVNxrof2v1M7M2FimBOmFZwK hWIdN039TBxQ+Pd7ujEVNUe+frcLywShZqRDs5aKGLVgt+KZTHBmRb/4qZCG RH+nj3tP/QP/TL5XflYaAic0HFzt/qFl+N4erfE0TD/l+sFR+Q+kQoYDxMV0 VKXONEVwZeGXiHbFLdN0cPQzn71pkAU2T1KZmms6rtgGdvNGZiFEYyCFWikD K5nDxbPzWfAJcPtK+ygDntePUHfLZeNSxOXj61kZ2PxbFtDrkI2vN009r9dm IJuC99dKbTbSg5xZ01gykcF4zmM7aw64TS4Qwx8yEXk5h1PqRA5iBc+c2+uV Cc3txbp3buUg3aTpi7vAP5xx83vh/S4HQzLfPGTe/8OPZ45324JzQLGb9Fap 7x+qZzsPHSjJwRWpP8X2HFkIzZ1ttprMwaEYR+ru91mYPSDwpJczF333vFtC vbKwsl40cVkmF2tL2hfutWSBKvHK3WK9XETK+8/HvMpGh65I40W7XAQEVv+y LcuGQ1KaSmt4Ljpfm19VoMpB2T77AvOqXNSz3C2f4M7BZA7lFe6FXJQf/TRl xZeDJ4+Sp4p482Cj5XDg/Z4cJCYdiLRBHo7JBctmSOdgiWbY4fz9PASLP07W NMkBtYuDK49zHpZtT15660TO5VpIwUJ8HgJFQ985k322nGk72tGUh/aHVTIR ETkAV11r1Xoeqi498csns//Xk0UVgvk4qx+hdjGHzLpp640q+fjqQJ8wlZcD A05O+7H/8lHYPRK51ZSD7zc2Dbd55iMp4QO173gOIurkg6Qy8pHl0jTxmzoX k2d/n3vamw/5gTBrRbZc9D5auxpLXwDXNSv1sMO5sAR33drhAvQ7Pj9iKpkL 85rGCk3NAiy8yI28g1xEa/GqpFkWoNn6ksp7tVz4XCq7KPazAOaFR9MidXKR oN7c/qu4APvTB1Qo3+WCpCVFdWiqAHocyersKbl47t9dkLWjELr3RwYNG3Mx HNx8UO90IR796vi+OpALzasip+kNCzF0VnRP9FYu0kea1jMdC7Gzfnnp8qM8 lPNQvrSKK4R8FKVXa1weEjay4i81FYLTe1p9npzrwKHjf4Q3CmG+13zPn448 bGXYWjMKF0Exe6z4DlU+YlW6BVcvFuFsjPT91rP5CKV4F0wyK4LFpYScxrv5 8Ivwot3yLkLsW4r+NMt86EeYaWzPKUL1hEGLQWQ+Rlk0v54YLkLrJQPf0IR8 fPJ0rbjNWoy5h4ZB4YX54E55SectVQznx0bXPpLyIR75VKVDtxgHupyuZZ8s wHOTWp9D9sWIiN8ezK5TAMZWdiqnqGLsaRvezP1VgLov/o6zdcUQVZWZKawo wOrBSckHq8VgthLK4yTn+HSXLevwvhKYU5iyJ1AUwrCyl+/5hRJY2vTW7d1f CIpoHyMWsxIcNhi/RYNCLAueJSV4lyCQP3s473whEP245l5OCV5KONJMXihE fXPuhuBICarnxDc1HhXig+bkh0m2UnAZZde+ii5E23KAaYF0KdJ81b9u/i3E UrlzYdjtUnTwNsvmDBXiO6uFi5dDKZg6/GSe2haBU1Go8mtcKX4/ipw95VqE V6fvuPk3l8KtrXHyawI5Vx7a9j9bpZCTvHiGVF2En3rjKfUHynDqqPNPxaUi OM8vHaa6WoYB5by8HP9inJLkUpJ7VYa/0cZOlzOLYTEvQ/shqAw7XSrSM0qL 8cBR26K1pAy0nX8fF9UWg7X5bdCp2TJciY5ZYaMrQbtWhHM4bzmyqdNLv58q gbT4LITOlePZNfv1RfUSyLAZF0Y+Lkf855t0PjdKcPWdnDC+lmPl9anSRfsS 7Ir8dK8noxxWH64/lfpYgiMe9q6uA+WwscI9wZQSMG8ZRl5gqYDuvRPeNoUl oPG7n8NxsgJ/OU2bRSpLcGW2vmVIvwKefofOHCXzzncbayUOFfjS+Ft++xZ5 XRJkj6fGV0BFviFlkr4UdowjdkmtFTDyEg9oQinm6UxX/lFVgp1HtEVBrRTM KvJ+DeKVaLDdXSn/qBQqLvVmy5qVoH+rQPXnZSnGs39/ELOqxNOjZ2r13pfC k06h2yisEr+knSs7U0rRVijjkFhTiRZvhXfl3eTxcXs/Mq9WQtkq4NaTkVJo VvkNmAtVweDChg7LZCmqXDSihlSrsMB8V/W/6VLwFKz0GVlUQaOiLyqRVIqJ ApVvpMAqCOZcSLOgLwP1XeqSL6VVEJXoizTYWYYDFIsfz8xXIWs1f/+/x2XQ 95ptneerxjRLYYHa1zLwlzSWpipX4w/7+YMHwsvg3/vxtrNpNY4sq7cWxpXh 0NRcyBPfalBEZkQWypQjOos9SKugGsf5KyvbUA5mUrfu9alqVKx2Tz68Wg7z T0lmR5hr8P3SHdtN33J8ztPfc3pfDU5vL9aciC5HXd1aqtrJGiQq5CuFNZdD 9Am/stGlGvznuHGiT7ICLblaZQ4GNdh35ua5sccVcPC5dDHuRQ0imrmeVwRX 4NT5L2Wdn2rwgv9HpW0heZ1Sa69sD6rB0J75YTHaSrC+Tui6klwDuaPXCVuH SnSk9b75WlaDHy0PLyfEV0L7Bsehru4arAQ09TJlV0KkfWn+yGINSmseVFJV VOKoy9UWx221SJR4AJmhSrA9ae8cEaiFf11W56vJSlyT02O8KlWLuCqtiGOo wtCXwNtZF2vByiTdRGFZBZsK08ETBrXo9+lSO/m5CryCvwLjX9Ri0aTxvKRf FYwiOL5KOtciZMnJbKi4Ci91vxdkB9XiQnLr3c87q3F67w7Za39r8bSvvUXI vhqS5WaL4+W1OPXps+kN72rsOeS36dJL7re682J2djUi2W20pJZqUcgukva7 vxpKqrxMg8x1MDsfe5HrRA2Gs/R5/AXrYDy/+x7DxRrM6qh/1JapQ5+z8sar mzXgPkbS2nu5Dju9mbdrknNWM77pPXm3DnYuF1K5XtWg1sheOe91HUyVPjar 2dTgSJjHox9udaApCn380rMG2iPedLahdQhUvCbpF16DBpE0QeOMOmT5nWz9 1FmDjh9c+bdr63DyNveJyLEa/O5qm9AaroPMaLHGAHUtYvMlQ3U26rD/yPGV Iyy1oHa4NXtvez04hxb0qW1qkZBv3fRCrB4ZZ5rsajJrcdhqVMsV9di85p2z mluLavG297HX6zF1OJUjp6wWeul+V5ue1OPzEYNpX9E6hHi9q6K1rcekgJKd 6pE6sKU1bJ3xrof/xj36PNThScja6JvYetiK7WoIOV8Hd/NrX/IK6nFDN4tz Wa0Op3vPbrK318Nki2W5404duq8eOmE0Ww/6J5X/LlnUwbXW+WQhfQPq/OnW 05zrMCHWwCK+pwFfKF8EtQbUQbLbJstbsgGDvxMjGKPqoCTHfZn1UgOSoz1N 95bWIU+fL8/5TgN+irwXMSWzvJTAXo5XDbDLjfkz1VYHa49E4x+uDSgrt6qx Fq5Hgviz+BOhDYh/8eHN7NF6dERtTNZkNKDjqeTtp3r1kEpYFreoa0DBQMEL P996BHSzmQqNNsA9+e5NBtYG8j64kN2y1QB59flIU5kGhD26ve87VyMWRaUc m6434NYtFl+dw40wjW23ESfrcg/JOyKm2IgspscO8sYNsDa9MLKp3YjS8cbE J+YNoOU1L+0wawR2JFlSvSGPl9zemufYiAxqI1ZK6waw/mTk/xPYCPafhYcs /jRg3lnGL+xvI3oYvgfM/W2A4hsnrd+VjdgKf6sy1dGArBsTejEDjdD3vLQ0 vqsRDGY3YzPXGlGz0XbSgaxjzr34agNnE16adJt9uUd+v4pLC2JNiCt7pxLm 1oi212UhfPJNWAvtv2we14igRy8N1G6R+dDX0IraRnhn6zl8NGlCVnrl3m2N jYjb4ben5GMTJD7z87wYbwQpVuMQ548miC/ueO43RdbhnPD3XnITpr04W6Pn G2FnNJqfXdGEWJmc6DTKJriWH9UWGmhCFL14vDlVE/btKLF2W2vC03XeIF3W Jhi+XTxFs70ZaoGJ8xLKTaAXpftic7AZdiHCz2o1muBw+LIz/blmrN2tsVe8 3gT1INHD37Wa8S1x4AnPuyZw+S29O2zWjNj44lxKjyacuChsX+nYjG2HS4rq /ZrAR9qjbBHUjEcdHhsXyTvWKMvtsgOp5PEPVWYv/GrCxLG73H3Vzaio4bQa SW3C/bN/ToQON4PeoFBOqqcJ8jeaRMy2mvHEgurQ9EgTpiYfLChxt+DCXJR9 9UYT1Jo2Q4WOtEDi6wQbE10zws/Ly28734LjGm82J8m+qiZaKlb0W/A8MbRC W6AZklMvr8xZtMBuXjdMTLIZ0hvN1fOuLfjx3y7he2eaYXw7XXPzN7nO69QT fLYZzKvDAxzZLeD9WCVNfakZD/SOOUg0t6CQzy/oil4zrGv+O6c53QLljfeu Vbebkaj7nt+OvhVp8SVninyaYdGqJpAh0Irfgsc8jcg+xZaLLq9Lt+KN9YLr YE0zqK72JyhfbcVfDUrW1PFm7HgcfM33YSsE2rftcL/SgruVTFJL71vhr/aU 5qN6C7iZjtzR82mFUqsepdXjFuSWCXVV/GnFnvYplWCzFqQ3MSYqlbXC430c S4ZTC/xFGYeL+1pxKMT11Df3FlQuqttorLVCPPujD/GzBfsz+ZxGtrfBP8vl dAyZky5H0jocakOD7PAbmaoWuPYpbEootcH3Q6ypQWcL8naftuzRa8POf657 dt9sxb1dY+/9LNoQ4LBOLfWuFVEOibwGbm2ImNxgjnRsxdEQKlWJ8DbssNjt /8OjFeeuXhKgy21D3x3H566FrdAU2uY33NqGw8cqT9gNtMLZpKCobq4NSquf AotHWqGryRBZzNQOEj9d927GNlwpf6paJNyOQN7zR45sa0NTskdylVw7QpIb H9nztkFhXGCy50Y7JOXqH/86SK4rl66um7RjYUrFVO5kGyaSVYYEndrxbmkv 5SSZ5ZUNU64Ft4N7lf2bkUkbtCX7X7hktMM5OQ48z9uwufJTrKaBPN+ltxF0 ZF9tulZt/FPtkC+s7zkQ14YT7+64v6DvgNetXdElSW3IG5DTaN7bge7+XO17 aeQcPNnEFU51wDrUwS6uuA1WvB0CaRodcL44oW1f0wY79wRZWeMO+Jb8EXAe b8NMTtT7/I8dUBDU1k6ibYfB/rH1m0Ed6LjqP0BwteM2pe9fUloHagL0pgXP tIPDaDY5sL4DayJnuQLIOVCoH6XWmOzAyD/SAu2ldtDFBP1mp+8EQ47+kxHV dmgafw9v2duJTofS6x33yTl6m3BEnepEOdPCWdnH7Xii/W3UQbMTcv/Ze9+2 bMer7S9lTf7rhNNuSR0Tq3ZcevyN8Y5jJ0ZaROXpndsxqPPMUC+4E+vBjPOW NeTcVENV72V2ot/GVDRuqB05PEU1L5rI8+3dtSl1vAM3979d8pjpBG2HwNIu 2w7yPvGqNHVbF0ru52d7/u4Ac6LFlTHhLvAZaCvvzewAt4rcl/3ogpRLSXsf 2ZetcYCvsVYXavOO+CnxdKL2zDOz7GddsEptajhyrhOKeaECfK5dOKxAKshS 68Qo64FYu/AuHBOtE+K50onGiwsipLwusGbI1Du86sTb4p3uzzq78EYn3mvg VyekOQMX15a6UP7cOnyltBOTdHG33Ti7QR04J/WYrQtdfSbNhw93o5+eZoiF qwuBN7kfNJ/vhu/M7rdBu7sg/WNoh4thNwKCUh5GkXXf/XRw8tK7blx+oajn pNEFhh+nl7m8uyF4MJnlx8sulPJZYTKhG2e9Fq5kfe5CoYBhRVVlNzzLuj9N eXTBIeJueMZIN1J0qhP3pXZhm96HqVbKHmi4vGOT6++C15/FNB22HnQkXtUS mO+C3tS10/18PWD88Iqm8kQ3olSfvTQ92AMRCIX/n10On3hGLdODza7L9V9O dwPCL074K/XgrEwH7c3L3cilEPx3SqMHw3Rcdz01umHWJrqz26AHyhcdyx6a daN0lzXh9F8P0qK/xik7d0PCca+i7NseJBYxUh4N60b7VTaRaace6Lwg1Xm0 dqNjp+ZIpFcPznzK861Y6YYIaePL09AenNue0fmHrLvAR/CgZGIPlKhhJi7S A2G5rgTK3B7stuQ97izWA9NMjeONVT3gNwt2d5PsAU1gdExsRw9OZaek/5bt AZ0Q70HXsR6Mp2XtSyYzw4Wa6GfLPcjeW/DixcUe1Haznb5N14ur1eqGvJd6 IOnO13Z1Ry88k9SMT9/pAeuovJuKYC9aMun2/zXpgeqTutvKR3uxFcaY8fV9 DwS/H1C/eLYXE7F9m/7+PVCZ//lQU7UXy5f8bzYH90BPKCLqnnYvOkpCY29H 9eDBWJTAm4e90DThEyj624M7Z/aWeVn0wubFDaa+ih5sXLCLT7fvBXPxE7ue 6h7c+6zV0v+lFzsH7ns/me3BoWaJ89t/9gKSw0IMrL3Q1flOdSGuF+wx//bF s/XiW9ZB9g//ejFSS2WlxtELNSHXF8XlvZBNfxBgf6wXZ6Qfy7C39WJqoeDd O8le1BCm+rdHekEKTA9duNaLikNak0mkXshs6qpyX+8Fjf/gGDttH+zF9TIE n5Dnme3Ufba9D1v3Yz5ZviLrvM15oWNfH651SxkG2PViD0k7+dLRPhykGv7c 5NkLhUSvsNyzffinrutzx68XnZ/jRc6q9SEKShcqQ3px/aOnVK5OH4StPu4+ H9uLxKSznRcf96Fmt5pJdXEvbt+MFmx/1YdMLae0gjKyzt4hJnOHPlScK633 a+nFFeatH2zf+7Bvo8WxoLcXPr0sfYm/+nBGVt/t9Wwvgqol2/UT+8Abe0pv db4Xkn8D3Nnz+mCetr2kYqsXf0iWDKU1fZB0MDat/T/b0V9w7O7Df3FfH/xl 6UP7zMdbl6f68Opxec1ZHjLbKsnt3uhD7OiB9TC+PljDe2OKqR+jw82/w2X7 sLjREVi6qx8eo0arJ1X6cPKl5cEosX7QFTc9ML3WB/cbPSFfZfpBffaB4B2y b72LDpx25/ux673fy5P3+9C6Y/bt6xv9qC/y91A3J+cYED5qcb8fZx0Z3MTs +uBIce72m+f9kFjODnT41AfXEO2Bj3b9yLpCZ/gjqA8pCj7WPl/6kdI9eVIh pg/UjLHSiT/J/Zn8Aw9O9qHI69r2hvh+dCx8ZPoy04cAwYu869n9+MF/qOXD 7n54vr1zVby6HwLC53uShfphKW6SfaerH+HDwvMlZB+qlhrGgZP94CmM015T Jvt2XjYYWO+Hc7eKguKFfnQbX/t5lHkAf968prn0oB9PxG9L2e8egIaS1TKv UT/CevYLdx8cAGf2yztP3/WjvzLjufypAUgvHNpBsu7HsSenJKIuDOBkxNyM uG0/9r0tvcmnNQDPH93NDz368VPId/nbwwEwCzh+bv9Kri8Pc+98NQCFMmod lTBybtwrmf4OA9B0PHGQKbkfh+T2TIt7DYDhtELs06F+uNcnJOf9HsDyFWvy BbYfR5n5ee78HUCO/o/TXUwD4Juv5KcvGgB20530Zh/AZ3v5qqTGAbw6OlSZ fWwAWnmbRx8PDqDK7dO9F9IDiCj1UjuwOICB+SuGbOoDaB6JEJ+gGYRjaTU9 oTMAt+TOutQdg3g1FFrdaD4AXqHhi5+FB9HumJmy9XoAY94f/B5JDqI/soPt 7dsB6DDaV6gpDiLbxvc7x/sBxDCkDcpqDkLpZ9E9V5cBHB2gmz58bxBN5Wmj hq4DSEvTmRF7PgjuCUve918HIO/2Z/aw/SDG7j1zPhc0gOrHrGuy3wZB8rgb JFlJ1vPYfsflX+R6zRMxDtZBHO88pvw4aRC71PZ+imYbhL22vLdrwSAO7eLi VeIahELHKGdGwyA8u+LjvfcNQqr5v6zpgUF4NR6fKBYaxBvNvSGHFgdx/XlD cZbYIA4y6ZSa0Q5B1ddDaEh6EAKWjrLZO4ewrbW8UewaWSeVwPqO/UMIUViR M7w+CDaKYN5nJ4dgQKJx8TEm5zL807dVeQgFBTQy0ZaDYL+d6aBycwhtB80I vreDEL/lP5ptNARnXhpZjfeD2Di8WkIOF/Er44UpDoO4k+0nUeI4BLXerdBj LoOQc9YU0vIZApXxyq1ucg7ZFbTxcxFDEJ0sdNkROIglrx+d39KHoIe8xJ/R gwgn7U5G+RCyD+LzvuxB/EfrhPn2ITw9UpPG1jIISY6tD3ETQ3A1+Njh3D2I yaRQj+cbQ6iiDViN6htE0FLCk3Osw2BJOK9DNzSIksdP+HkFhtFzk+cN3dYg 1lQE45ePDCM8uM9SgJzT4DfZw73EME4dPqnLJzeEHzKCP+rUh7Hfjatf7/IQ CBFd5krDYbgdvKXw4u4QRs0tbGqeDcM/NVFh7tEQVt6z0XfaD0Pa+vXVLGuy bq7G33Oew/h196PzxIch3Le3f8wRNozpd78XRZzJ61IwpiObOgyJ8OP748gc 4z9g/7h0GHqJtPd4yTkF5+pP/2obxmr/zqe2QUP4sHQ9dGR8GE2J8/v8fg0h Vqo5XmpjGEy+dbzXY8k5lG7tdmEdwcbtmZEX5NzELDdmxgVG4BocJ+1G5rko 1lPXj40g4p+qymzjEBg+2FKWnBvBhTbrxa7uITRypKkrao7g1Zk804SeIWx/ LCRVdn8E3CKtNqZrQ5BuUvir9XIE6lMzN3cwDuPsYkz3nOMIyiTi7lw1GsZY H12mp+8I9FzXT5rYDsNQn/bGuegRvFx6nSRbPgxi1ix1+d8IdojeT4kgDWMb 94Gp1OoRWARR5bylGwHffQ4qu94R3LthcKpwxwjWEo5s3ZgfQbv+oaL9+0bA r/B1RpJ2FAXH3ItpxUcgMnG7l497FPFKbbHbTozg87mKDlaxUXxuVTtgrzKC krx9U9tOjyJnLphHLnAEnWuZeznURkExHF7BnT6C5+ks7/fdHsX3eg/JyPoR 3Jf04j5jNgqWdLYrWcMjyJScmTOwG8U+sfOP3k+O4JRKPr+75yjqtzIPda2N QHesKqQ0bBSSPru/9vGPoiVh0J0lfRQy4vGBN/aNItRuakanYhRjcpGFD2VH YZcyUJ3UNQqegAijqjOjYFRvkeWZHQWf7ZHBdMVRyB6cOvWRegwhyjNuZrqj CBY26N7cOQZmWc/V0AejoNd+d8JWdAzP7Oyq3z4aha9apAL76TEc+1y8tGky iiz+O3wRamOwfDma8+j1KO7+PVamajCGFjWfB3yuo5igztNaMx/Dd0GdtWwy x++vak76MAYRp7UokaxRcISJqr/2HsOr+tLpbDKLR6bXqUSNQeBA+WnebLLO A/aPhLLGMNbWYXu4ehQzfP6CjLVjWM1LNtFrGoVI6VGm1f4x8j5567Q/zRia uhyOkkhjqCg04ZSWG4ND1mbgBuM4Lu3/oXtceQw+sduM2PnHMTJwulP0xhge 7pD9KnF0HAykDb2vRmTfsUeO31IYhyDtgUujT8fQWBGt/vnGOF57uOpaxI7B 2N1hq/LROKS49HhnGsYQIRh/Yde7cRRzXT3Q3zWGPQtHzpq7j+MD05ubIrzj 0F0RG28MGUcKK/vD/BPjmB5p01dKGUfooS8Zby6Pg8fSJyynbBxGhra0zfrj OP+rqf581zjkw2Vb/90ZJ5+r+OfaZscR0MunamgxDst7OzksaScgkebqqmA/ jmOmVhDhnUAP7e9dQi7jiLWXcuk4NIHwXe/PUH8Zh0rMcbogYgJOzTTrSl/H EZPnlGmiOQENxqmHa9/GMRD3OOvSwwloexh33Qgdx/7Ufbsl305Ax9hxMjd2 HJ7/uPtE3SdQIk8TJZY0jkrHOsGDvybA/6k3bRfZx02OxQnp1AnoP/6V010w js0iXL1WMYGwpROuHoXjYOxw133dMwF14RLeieJxPHAf2BezMIGEKv2hlyXj +PfuevwkwyQQVfStrn4cFgN8PKf5J6HV8nu8rm0cCStfHnkem8RLkUu0GePj UDh5JHldaRLUriEGH6fG4fXbkclMexKdSiGJhSvjiD59493cf5PQpg/0f8Q4 AUp+k902dpPwFdC9sMo6gW9rZSQ+70m0GL/Urzs4gbH7tnuLoidhvkhfsf/I BIT4qyPe5k5C2JH12A65CRx8wvyLaJpEKNX9MPtHE1h5nbKXc3wSVXI2fI/9 JrAUZXJsdmsS2396/2X9NwHLRdJw544ptG1YB+8js7n08RstYlPYb9/68kfB BE76ibn2nJ1C5X3nnrDyCdhNMwSTNKZw0PNFWXzTBBLp9v7a9WgKR/a8ZOpf Jevh6v+tajUF0Yt36VnZyT65xjNdvk5B6aOI8QDHJGwPkJbbwqewp4c+LXs3 OafpYWPprCnwrvhH2ZFzMqQukwiuJ4/f9+wgPzmX9YsVl3ePTqG7Osvxo9Uk Dj5U6g3enMII1SFB9T+TcBJIXJHZMQ36M2LlYimT5PtyelSn2DQUyz7y/yyY xF0fMSYPTMNNjs9IrnYSltcWxTWuT8Pnx4LxANUUOdczgsJPpvE86EjVTdYp 8MUqU9HYTEN+5Om1ZxenoOf0oWfu+zSOHjt2v0hrCkV+32pnoqdxdYZTskVv CiW7T41t5E2jyY3y6ff7U2i+YoRdrdM4du9q0h1yDjm0skNK09MYyFuR73KY Qh3t+uscqhl0jXuMljpPQbmROXuQZQYfs3R53b2noMOxt5KTdwZeUYVvXEum UPiNP+688Ax8jrJ4/Lc0hXBJGlP7IzOITogbzuKcxk3KsV2lp2aQ8OsTUzfv NKYd1tN3Ks/gP/WHnalS0+jeYaPzWH0GjRk+ZhWK07iz1EBfrDsDviB/PgfN aXQUGpeLP5zBnpHPAvd0pyEb0vrH+9kM/G2Cbt28O43TH7KLWKxn0Mcmzcb2 Yhqlb7p3On+aAW3ig87zL8njVzij2L/PwGZNz2q3/zSid6t9+fFzBp8uWP2M q5yGwZJvs2TMDCQpVcxeknMR6hNyqE+dgZ2K3a8/bdOozhaLsSyYgb3ntzfc XdNov8J442DNDIb8Hy+nj0yD/e0p1772GVxraWs/zTADrfCrhiHDM+BZ/9jD wDqDf9RrXU/nyfM9ymHp4J6BdRsNB7ZmINbkeiCMnNuz0eu0u5hmEefWUH/h wAwcE+ZKNrhmIctR91bq0Ayc69YfjgnO4kauDY0DMUM+ryXOdUvMIqh5eFpW dQZKfM+edZ2aBcGlf7JKbQZvdqcsDyrPQknsM9U5zRlw1/K4k67NQi+n0IdX bwbXv149z357FnzmqheN7s5geUbq0Ikns0h4ICEQT+ar7Dmqt1/OIqPiz5aE 0QzC2ehSvtnNoiDkm2TVlxkIGOF1vdssevZ7O2r4zYBSteDnbv9ZxH45Jr4t dgZ+O1lhHD6L4r+G9nnxM/AISbldkjSLDgcqyX91MygofMd5OHcWo4Yb9Xkd M6gMxQO/ylmwdGvufDg1A7bjW4+2t82i/OFUhvnaDIw/9R7yHCJ/n25V94Rx FjH/HcnaOz8Ls1Ix9jgyO8ZeP/x3axZU7Wn91LyzeOk36HSdeQ42OtH3rPfO QvGtZ/8mzxz+Ju/75ENmQyr5iwkic7iZank+QGwWPLmjlSbH5+Amv6Q4cnwW 7r9TrKQxh+hamkmjE7PItFh5yqg6B9qYU2vCp8nroiISMXhrDnv4D10RVpuF AHWrQsX9ObRlJH2PJefc1Num9s98DmI/DnwU0p/F7DxvS6r1HHwOPTHktJiF aEjsfJbLHMaF4xq4LWdx71T7n2qfOXB0eM/I+8xi4z9m4fHfc3iivX/offAs Dk206nAkzYHX4M5ySDJ5nXronpzLJet9WOivmDWLZlfbu1ZVc6B509+RXzCL xK6HNwvb58DFJsPYWDKL7jkqLe7ROSybT6jOlZH9ZRdbPifNwXw565Jp7SwO /tKt7qCeR3nfhXC1ullo0X9/dJVjHnZ9Wu5UXbPIX3ypW71nHmySRIbE6CzU 8k9maB2aB+tYledhjjlwx0n7TMvO40XdZOcPuTkc/cSxzeP8PLp+mBAnz82B 7c7nfWevzyPBfLbguuIcBg+EzZMM56GVmndHRoOc2yPXbxmm8/BUu3Dlmyb5 +7XfPC5W8zgsUiZq9HwOlrFO3x66zGO5xO36/rQ59DDT8qv7zuNKxH6bv2S2 4thTrBQ+j3uhMsGyfXNgHGEPV/47j6vO8RqCQ3P4HaveqFEwD986CdOE6TmI nv58z7huHqMmq89q2eYR2R/x5GvPPAre2QXzCs3j98USiqKpeSzpfxm1kZjH DwnFU7Qb83h6TZG+VGYeBnLJEupMC2hjcnmXeW0eq2PTCxG8C3gdwSuvqT0P K1W6X2yiCxCKSexPuD0PH5KKhu3JBVxhu2r/23Yegj3nd1EpLYCpKtRax34e YSr17G4aC7gdtxWi6jUPgZD1y2KGC8gLld2WTPZRYs89WWO6gAG63eYiKWRf 3unUH60X8F3FynbPv3nc98yJUnFdwEGVfwHXs+eRcubCJk/AAjb4qc0YCufx 5Vb6jqWoBdy5+cpxsnoe+/NyGPrTF5BPK3Jio2ken5+oL3SULuCkQRkl/9A8 sv+LnB1oWcCeNO2KwZ1kX/s0d68NL2Dt2YNzTdwLUJYQdBFYWoC6Z0PK1yML SE6QvH2NbhFJSiEStJcWMGG4Evd15yJE42S8aa4tICbhkG+/8CIOvgvxP6G9 gFHqdtlzkovwZMs+WURmhvY7UXEKi5AekkruMCIzrxnTIY1FUF+mkh//bwGu p5lfphiS529Vp/mZsAD2EGema+aLkBIomLHMX8DZ7oChNZtFvHhuUZRRuYAK ygv7kz0W8W170nPlrgVkL42PvPu5iIST0TyDfQt4Ogq1G38W4SjKoLxzYQGX f2qZn81dxJXmhp2PqBbRsBL58mTtIjpO2vR6Mi/i9jWad2d7F2HeWsnXzLsI D6bvwTdmF/HhQ2OP1c1F8DLNMVhTkrD1tmXcjqxT6jxLbQoHCV+eOcl+Iuuk 15bnoxQkgZmLuH3myyK2+C4z6xwnYcL6ri9n8iLeq+rkF54j4dXdByo2hYsg nVi9K69BQvRypfBY5SK+Gx7gqLpLgkhRRXUvEwnzD1Wnnjwn4W+e27mvO0iI C5QX2P2BhE4vY60hbhL+W7pS0u5Jgnvpsb4qcl/duuOssb9JMFnufxJC7vt4 mJfrSwoJEqG9j/87QYL3kShaxxISDv0sjzaUI+F5Jw21eysJ/dH/cZYrknDw drZk5BgJmSlXE2P1SLj8ZDq3aY2EmSS9z1+MSUjnEa3bybIEB52GSnV3ErIp 33022rOEFkXXtNYfJMya2/NVHFnCM6uzal+iSegL1QpXkF/C9hm3V4kJJGxn CNSuuraENOq2lmN5JDx1fa/39N4StOUkOYUWSPDa+bed32IJJ7QflfJukfCx +gNFv8MSZh7eLGhiWCKfS4qWMnyWMMh7MOP5wSWcPds/GR61BJZlUv0v8SUM +bazRf5bQsnq0TeuZ5ZwMEXFObt6CQYXEo4fJevYmavvOtq7hGrx//o+3lrC XdL0edGFJegHRUnvJfdNe2Uy/IZuGQaLDi7mLkvYcXzBf4BnGT2Ory/z+i1h rfS0j6H4MlJCl9+a/FhCc1QMC0luGQcXy2a/hyxhco/+ocCry7hB4qT2S1rC e1MOUf27y7gY8MRSIIOs/ygkT1gso2aScVAoawmfbHZ+2OO0jDr1YW/d3CWc fvv2yl7/ZbCaZ3S3FC5BPIy3VCZuGXd3md+NLV+CoZ2G6MO8ZXwLdTwRV7kE VYnrv2Ibl+Hc5ShHal9CKC/nC+bRZQydpn6hsrYEmrYL9Tbry2hm23XSmWkZ Qcwuy6zsK1BXnfpGnF4G+/UzAklCKxg3WHj29toy/J59tzWTXsHrnIaepwbL GHueoH/+0gp83L9pPHuxjLw1xxmp2yvYtWpyY8ZhGSGhSy/knq1geOnmpzOF y1j/VHhY32EFUqr+RvGMK2hqD7vp7bcC29vs+S7bVlDroyw5EbeCtiDhliaW FSiYytNqF6zAX8bzY4jwCl5FSbL0tawg9ojq0cOqK5i8kuVmP7mC6tLK5+1k /nzNrlaeahWzjXcPq+qvYH5OkmcX9yqEJXU4PSxX8EfmeyTLoVWIH5Z3sQtZ Qdo3mxo++VV8nb6Z3xW6AsbwqbrzN1YxkqqkPZFJrh9dXnN9sooaqyXf3voV ROzp+z73fhVlH1l71SdWwFIrMGP+fRWPf1oYt82RfVtpX2ePXoX3uzr5z2tk n0Uvd5bnruKf8vgs5/ZV0D0Peh/SvIrJaFalYzdX0f74/IjPJLlfcXXYC+1V 9BccDYylXoNx5MM1an1yH8HXK728a1gyYo63e7wKDYkAVcmja3gu2z6+03gV Qeo206HKa9CXrOUy81rF0K/Xp6T11hD94evlwphVaO245jDybA2Faj/1zMpX cTTnxrH0T2t4oFB+MIDMOd66ntE/18BgwWS8rWIVITJlHDmpa/DtM5y4V7uK 3VtBdIvVa3h1e7pCeHoV9U8/Nl4aXoPuLznrgJVVqBdW9hZsriEsv8tqH9Zg sWTjbsC1jrHjoQwT99dgXW2iIiCxjvRb9O/GXq1B6MVRc0rldTS7L9FTW67B XEbyFb3+Oi5qXlcq+7gGtfjKomMW6/BA3AVlpzWoHJareO+6jh8GwuLbPNfA ZZ+5vPB7HUFxE6b7fNbw9bhzlmv2OuJs95Y+KFxDRt+qx+WWdYxT/5QQ6F0D 3ZW3o5Kz62jfUmJ/QLWOUOdouXPbNnDnbJbkiug6TFINGV8KbaBSNNw4RHwd WgJZpfVnNvAkpmTp7pl1OORLbt66sYHU8QKnAZ11HLsfLEpvugHhq/crrW+v o3LzZmWX0wbEpb93eD9fh0CO+LOekA3M3QmfZH6xjkVnpxDmrA08+zQ/XvVy HREbdmN3WzagXHI2aMJzHZFrg01DcxvgqTVNH/ZZh2OH4qonyyb0MtatT8ev k+/120fNRDcxokhR5ZC3DqWexFNvFDahOOMeIlG5DtEwV6cE/U1cn8k9qiS3 gU5F4Wc8lpswvHvk1ZlbGzjAI+wd47mJY7l6B8VdNtAiZutv/mcTkguTs0xB G6CgdT3wsHKT/N92bDsTv4G9t7YNuI5u4uiXnaFrRRsIMFJ6P0y7he2BV8Pn 6jZwU/t4rLngFvTcHJ3VODfx4pGd0DFsIcK79bKE7CZ4Nwp8hHS38Md7ZIbz 4Sa4c15XXXy9hXC5loIWs02oJEvbhX3fgsVChdPFhE3EahW9O5W0BUaJ3D/C KZvg75ZzpKnbQnGzBqcqmf86HzCjm9mCqL2rFX/JJgJDqz/spacghNZPX97R uEk+mWd4aXNREMNVBS6VvZswZY/u+CNCQUgwnpsxG9wExe6XhfulKAib723c LFxboDGwL0xTpCAmHn3wfcmzBUO2/mtPNCkIg5i3563FtnDcTn/o9D0KwkS3 e7HCcAsPmL6tiT+nIFTFPnHHGW9B8Rsjxxl7CqKT6ktOLNkX13Gl8KffKIgv DlcqZcO3sOY/qJT1i4IoyXxiaRixhZfhGWbHkimIi6d2SfWReTFv4G9RIQUx ExZ9Wzp5Cyc+DYVYNVEQKdvq1V9XbeGYbXmZ1jAFwTTvemG2ZgsnN4jcW8sU xN+mmNwGCrJvxb973zJSEnwum34VahSEDtu7jwW7KInsrCP6d65TEMZ3xr8e P0RJfDq/5zS9CQWR0Gg1VSRHSew2V+LYQ2ZYUBK2VyiJOCcbaxGyL7/D8Sfv 36EkMo2z2dheURAcY4YfTJ9REo0CW/90AiiIWKe//b8+UBLONyq4Fck6P4bJ sFJ7UxLG73czO41QEEb3PIucIymJZyb8e4InKIhM5eJ6/KMk/o26t4vuoSTk r1yg2ltDScCGSXFRlJLgMLwkfLifktg16tSQKE5JBIuMcjwkURL3n8V40h+l JKze3I2oZaQibO+de3BWhpKgSdOtfsxPRRTOn1h3UaAkZku4TSSPURHqWV+C L0dREmp30i2PKFER38b59fh7KAmjt1/GdbWoCPPjMS8zOaiIAOXbef+MqQgr 75TcS9zk938D6DVsqYjndmbhyVJUxCJ9azm/FxVh2PR0+RioiJZbWwcEoqmI Zsv7+/lUyPw7Xe5WLhWBGeWNyFtUBNXLKumyJiqCtk735HVtKuK7meVFiwkq ouB+QbbeCypiVKEvUY+KmiCVXfNz+khF9Aq8ybThoSb0Gq3j7b5SEarS1in9 EtQEhZzDb+1IKiLc24j6gxI1sV9B4kB4PRXR0fZ0m5EuNTHAEKU4mkxNMLKy KTg/oyZWW7K7eLKpCWGz0KPzn6gJ189JIXHr1MRpC9LdoGBq4sbroFRRShoi ObLlzbd0auJdxM+ZUHoaYq9Ip0htHTXRuTkTVsRKQxQeoBG4NU5NPPV15rFQ piG2kt9KitPQEBTfhhuf6tAQiWMmiqr8NMS2ueUHFo9pyL5bzv47SUN0c23/ J2NFQ/R9frz//VUaYtWjkiPGiYaw0LTj8CKPe/3N+lOhGw2h7nJMnOYDDXGF pECpHUtD/NqrklQaSENcvpU8sv0fDcHe94FmLJ2G6OA8F8hWTUO4+dY4GzXR EKc8on3oummIdfcP9YpzNMRAgr8YbR8NcfFcr7U9Ky1x0qVW+BEl+anwXl1M nJZQSHl7Z5qGlnD4b23/SRVaQoSpOqiMhZbQyPi5GXOflrjyesR4gJOWuKl5 bfmrHS3B414UQHOFlviv6vXN8Z+0hLh+U++HV7TE2wipDyk5tESw89L+X29p ia6An5zr3bREQV3i1CXyd30+1zIyt2gJzuSNPiVfWuJLDvXDDQE6Ypt+0iP6 Qlpi/qTlsTyCjtBlrbM6N0JLxPGE3mUzpCMusPmWn5uhJRKct96P2tER2/ck U5Yz0BHNAaeVr/+mI+x6kpXr9tEREvfkYm+W0hF/vOKLt5TpCO7M/0iLE3TE 8xcxakbmdIQYz4sQKQ56Yk97d0RxIB3RP6fxke8kPRFT9KX5eyId8a+TPi9e h55wdZ/MuJBKR+xJCqtdtqEnuI40+Tiz0RPvz+92WwunJwbdPN+930VPlE6/ OpVTQ08cUeYZFFKiJ3gb+W0vr9AT8rRUdF3Z9ITZdy/nWEEGQrgXZg0F9ISm 1OuNEVUGwmjd7rBiOT3BSSG7jf4VA3FrSsTq4gQ9oRcr+5bzFwMxJstQwzFP Twgf2J+/s5aBqL46G7NOoic++FdS8W0xEPLlya8tqBmIFJpkoWMSjISmXe+f VC4Gwj/Rb/COPiMRS8P8/fMRBuKN4umFDDdG4tL2HpMaOQYiw8prUy2PkXie 9HlTz5yBmOuTrz1AYiS0OM0Cd31kIPbG0T3XFt9GMFQr8mx4MRBMYm6Xlu9s I7zO3GDsL2AgimoCsdN3GyE1q/tb+CgjQb2RNlRUv41oKdS63HSCkajvY08V ZmMiVMbynTofMBJL0guKKqpMxK3YRxZVxoyEnijHGzVnJqLq3Oq7HS8Yif8K ZWavVTARrjtqHNKnGQmJXVmEJRsz4ajZ5kAS20ZEzq0Zj2gyEzttopRkz20j Qn+fuFvkz0yEc0ctHXbbRsg8LbKRH2YmFI6ONMaMbyPWG1svu0iyEAeOhS8H azMRnnc75LvtWYiafv3UBxrMRE2+9L/XLSzEv0m+fqoWZqLlzPLpkCOsxLS9 Fr9SHzNBKe6SF/2JlUj3WavzfMhCcJ/TDp0bZSXOHe8fjLdlIaRZbmR1qbER NZXv7gqQ5/WXKzwx/peNOHeqptXpDwvx80jcVh0nOyEY8OFwORcrEZY6nKGt xk483HZUdpskK2HcbsRv4kyuC2qeDL7ASlzXPPv+QyU7Ycy4fs71ODvhvuu1 h/gODmJymlvxnCY7cea4qgOrAQdR/KM61OI9O7Ff7M1Z2gQOwnLlSqL4IjuR pSuSu4eJkxAXH+tUXGUnWtW2Zac85STOlZmdkFDjJLotXG/7tXASrInhaUdS OYlIwfPvpNW3EyJfZAL/M9hBVN25NTvfup3YZyUeEPdnB3HPVPtH5csdRM+n 7wvfbLkJbs/RPe+P7yQeCwfJrXhzEyOP9nducXERQqZHdsm1cBPBKbKbnnLc xITZ/k/KZN7/h1aupIOH4Msu+Bfey03cWx7wdw/eTdxosH/3b4ib+B88TzPi "]]}, {}}, {}}, AspectRatio->1, 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., 4.057436952001308}, {0., 3.959083038885701}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.725860808065956*^9}], Cell[BoxData["1.1560531844669197`"], "Output", CellChangeTimes->{3.725860808077672*^9}], Cell[BoxData["1.010129251955311`"], "Output", CellChangeTimes->{3.7258608080841837`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Unsurprisingly", ",", " ", RowBox[{ "the", " ", "probability", " ", "plot", " ", "is", " ", "very", " ", "close", " ", "to", " ", "a", " ", "straight", " ", RowBox[{"line", "!"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"The", " ", "first", " ", "and", " ", "last", " ", "ordered", " ", RowBox[{"obs", ".", " ", "should"}], " ", "be", " ", "not", " ", "used", " ", "in", " ", "the", " ", "estimation", " ", "of", " ", "the", " ", "scale", " ", "parameter"}], "..."}], " ", "*)"}]}]], "Input", FontColor->RGBColor[1, 0, 0]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 5.11", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ "2.001", ",", " ", "2.007", ",", " ", "2.017", ",", " ", "2.026", ",", " ", "2.036", ",", " ", "2.075", ",", " ", "2.077", ",", " ", "2.082", ",", " ", "2.101", ",", " ", "2.137", ",", "2.156", ",", " ", "2.161", ",", " ", "2.181", ",", " ", "2.196", ",", " ", "2.214", ",", " ", "2.227", ",", " ", "2.320", ",", " ", "2.367", ",", " ", "2.424", ",", " ", "2.443", ",", "2.444", ",", " ", "2.449", ",", " ", "2.478", ",", " ", "2.520", ",", " ", "2.579", ",", " ", "2.581", ",", " ", "2.598", ",", " ", "2.637", ",", " ", "2.691", ",", " ", "2.715", ",", "2.720", ",", " ", "2.825", ",", " ", "2.863", ",", " ", "2.867", ",", " ", "3.016", ",", " ", "3.176", ",", " ", "3.360", ",", " ", "3.413", ",", " ", "3.567", ",", " ", "3.721", ",", "3.727", ",", " ", "3.769", ",", " ", "3.803", ",", " ", "4.329", ",", " ", "4.420", ",", " ", "4.795", ",", " ", "6.009", ",", " ", "6.281", ",", " ", "6.784", ",", " ", "8.305"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sorteddata", "=", RowBox[{"Sort", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "=", RowBox[{"Length", "[", "sorteddata", "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"abcordParetoProbPlot", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "i", "+", "1"}], ")"}]}], "]"}], ",", RowBox[{"Log", "[", RowBox[{"sorteddata", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{"abcordParetoProbPlot", ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], "Input"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.011000000000000001`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA8ady0iNHlD9O0VhPWzLmP/KpqUeU e6Q/2OB8NuJK5j+mYhHAMAqvP1hLeXSZc+Y/GAkC+NnotD9Fq51IEpjmP2nS FzhIaro/b88XBGjA5j+tddOKWAXAP9lbTX7XW+c/vctKhbzlwj/QOQXfu2Pn P+BOwZMO18U/qf4FUW535z8lPSyyGtrIP/1l4MrZwec/F0slnLvvyz/dR3t4 B03oPyDv6EHcGM8/ab06yIqV6D9HmUe2PCvRP/rKJq2EqOg/t/ptzNHU0j+U MfJ//PPoPw/KsYjAidQ/buO7dCIs6T/nBzcpqErWP2MAwygCb+k/zmkIYjUY 2D/4Q4AM+J7pP0yYv+wj89k/nP17Th7u6j9xQdpTQNzbPy9bQxdrkus/ocTB BGrU3T9miKZeWlXsPymt/rWV3N8/roKXWlCV7D+RqRQZ6PrgP/lqfpyqmOw/ gQsMzqAQ4j/9O0KjaKnsP2/b6qIYMOM/d0NyUtgJ7T+98TUdBVrkPwuMYmeH k+0/yZiDUTCP5T+5lyZtHVHuPy/PjR180OY/KlMsIHdX7j8aUPsK5h7oPzPp X+w+je4/PDT9BYx76T9Nrx93TgfvP97sTCCy5+o/LBBBwl2t7z85SYWryWTs P86c6Yoa9u8/t3V0D3r07T98HhSTlgLwP0s3MeWrmO8/VSlp8rqd8D/x3sqJ y6nwPwD5HKp11PA/CwOteuqT8T8fkyulLdrwPyCOrQA8jPI/RW02BrSp8T/A cQeMlZTzPyy8ZRBuffI/r4ry0C2v9D/qfP43HGTzP1zpPqi53vU/WrCyKTek 8z8ExfqElCb3P2NZJjf8WPQ/Z5Ojj/qK+D/mYVPyHAb1P9NXN4deEfo/n4zI YbYM9T/p+0cJ7cD7PyHordKcOvU/F6sqgF2j/T87PTqTZV/1P6enb1BPxv8/ sK/ywQRy9z/+8DsC2x4BQDfg/2o6x/c/ZTpaA0CUAkB96zUryBT5Pwfk038/ XQRATgqpqS+x/D96f/rBa6oGQEG7pQWFZv0/g3KSP9DoCUCZRXDmEKL+P/8A Uf9gdA9AS//FHFPvAECefZSL "]]}, {}}, {}}, AspectRatio->1, 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.9318256327243257`}, {0, 2.116857743065258}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.725860814564049*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "The", " ", "probability", " ", "plot", " ", "is", " ", "approximately", " ", "linear"}], ",", " ", "thus", ",", " ", RowBox[{ "the", " ", "data", " ", "set", " ", "seems", " ", "to", " ", "have", " ", "been", " ", "generated", " ", "by", " ", "a", " ", "Pareto", " ", "model"}]}], " ", "*)"}]], "Input", FontColor->RGBColor[1, 0, 0]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 5.12", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ "49", ",", "73", ",", "103", ",", "140", ",", "162", ",", "164", ",", "181", ",", "196", ",", "232", ",", "248", ",", "288", ",", "290", ",", "309", ",", "377", ",", "388", ",", "464", ",", "500"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sorteddata", "=", RowBox[{"Sort", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "=", RowBox[{"Length", "[", "sorteddata", "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"abcordParetoProbPlot", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{"Log", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "i", "+", "1"}], ")"}]}], "]"}], "]"}], ",", RowBox[{"Log", "[", RowBox[{"sorteddata", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{"abcordParetoProbPlot", ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], "Input"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{-2.8619286757815505`, 3.8918202981106265`}, {-2.1389110278431644`, 4.290459441148391}, {-1.7019833552815002`, 4.634728988229636}, {-1.3810504215128725`, 4.941642422609304}, {-1.1226312468780728`, 5.087596335232384}, {-0.90272045571788, 5.099866427824199}, {-0.7083085655041964, 5.198497031265826}, {-0.5313912117090355, 5.278114659230517}, {-0.36651292058166435`, 5.44673737166631}, {-0.20957327515793467`, 5.5134287461649825`}, {-0.05714023993831114, 5.662960480135946}, { 0.09404782761669901, 5.66988092298052}, {0.24758937869430042`, 5.733341276897746}, {0.4081796848261183, 5.932245187448011}, { 0.5831980807826593, 5.961005339623274}, {0.7871950081766443, 6.139884552226255}, {1.0613851298016763`, 6.214608098422191}}]}, {}}, {}}, AspectRatio->1, Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 3.7756809080950484`}, 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->{{-2.8619286757815505`, 1.0613851298016763`}, { 3.8918202981106265`, 6.214608098422191}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7258608182841587`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "The", " ", "probability", " ", "plot", " ", "is", " ", "approximately", " ", "linear"}], ",", " ", "thus", ",", " ", RowBox[{ "the", " ", "data", " ", "set", " ", "seems", " ", "to", " ", "have", " ", "been", " ", "generated", " ", "by", " ", "a", " ", "Weibull", " ", "model"}]}], " ", "*)"}]], "Input", FontColor->RGBColor[1, 0, 0]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 5.13", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ "1.242", ",", "1.626", ",", "0.123", ",", "2.957", ",", "0.388", ",", "3.841", ",", "1.961", ",", "0.938"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sorteddata", "=", RowBox[{"Sort", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "=", RowBox[{"Length", "[", "sorteddata", "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"abcordParetoProbPlot", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "i", "+", "1"}], ")"}]}], "]"}], ",", RowBox[{"sorteddata", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"abcordParetoProbPlot", ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"sorteddata", "[", RowBox[{"[", "n", "]"}], "]"}], "-", RowBox[{"sorteddata", "[", RowBox[{"[", "1", "]"}], "]"}]}], RowBox[{ RowBox[{"Log", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "n", "+", "1"}], ")"}]}], "]"}], "-", RowBox[{"Log", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1", "+", "1"}], ")"}]}], "]"}]}]], ")"}], RowBox[{"-", "1"}]]}], "Input"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{0.11778303565638346`, 0.123}, {0.25131442828090605`, 0.388}, { 0.4054651081081644, 0.938}, {0.5877866649021191, 1.242}, { 0.8109302162163288, 1.626}, {1.0986122886681098`, 1.961}, { 1.5040773967762742`, 2.957}, {2.1972245773362196`, 3.841}}]}, {}}, {}}, AspectRatio->1, 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, 2.1972245773362196`}, {0, 3.841}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.72586082236664*^9}], Cell[BoxData["0.5592903554813976`"], "Output", CellChangeTimes->{3.7258608223788958`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 5.14", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{ "1.242", ",", "1.626", ",", "0.123", ",", "2.957", ",", "0.388", ",", "3.841", ",", "1.961", ",", "0.938"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", RowBox[{"Length", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fde", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{"i", "/", "n"}], ",", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fdeatras", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "/", "n"}], ",", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fdconjecturada", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "0.56"}], "\[Times]", RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fdemenosfdc", "=", RowBox[{"fde", "-", "fdconjecturada"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fdcmenosfdeatras", "=", RowBox[{"fdconjecturada", "-", "fdeatras"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"values", "=", RowBox[{"TableForm", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ "data", ",", "fde", ",", "fdeatras", ",", "fdconjecturada", ",", "fdemenosfdc", ",", "fdcmenosfdeatras"}], "}"}], "]"}], ",", RowBox[{"TableHeadings", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(t\), \((i)\)]\)\>\"", ",", "\"\<\!\(\*FractionBox[\(i\), \(n\)]\)\>\"", ",", "\"\<\!\(\*FractionBox[\(i - 1\), \(n\)]\)\>\"", ",", "\"\<\!\(\*SubscriptBox[\(F\), \(0\)]\)[\!\(\*SubscriptBox[\(t\), \ \((i)\)]\)]\>\"", ",", "\"\<\!\(\*FractionBox[\(i\), \(n\)]\)-\!\(\*SubscriptBox[\(F\), \(0\ \)]\)[\!\(\*SubscriptBox[\(t\), \((i)\)]\)]\>\"", ",", "\"\<\!\(\*SubscriptBox[\(F\), \(0\)]\)[\!\(\*SubscriptBox[\(t\), \ \((i)\)]\)]-\!\(\*FractionBox[\(i - 1\), \(n\)]\)\>\""}], "}"}]}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"dplus", "=", RowBox[{"Max", "[", RowBox[{ RowBox[{"Max", "[", "fdemenosfdc", "]"}], ",", "0"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"dminus", "=", RowBox[{"Max", "[", RowBox[{ RowBox[{"Max", "[", "fdcmenosfdeatras", "]"}], ",", "0"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Max", "[", RowBox[{"dplus", ",", "dminus"}], "]"}]}], "Input"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { StyleBox["\[Null]", ShowStringCharacters->False], TagBox["\<\"\\!\\(\\*SubscriptBox[\\(t\\), \\((i)\\)]\\)\"\>", HoldForm], TagBox["\<\"\\!\\(\\*FractionBox[\\(i\\), \\(n\\)]\\)\"\>", HoldForm], TagBox["\<\"\\!\\(\\*FractionBox[\\(i - 1\\), \\(n\\)]\\)\"\>", HoldForm], TagBox["\<\"\\!\\(\\*SubscriptBox[\\(F\\), \ \\(0\\)]\\)[\\!\\(\\*SubscriptBox[\\(t\\), \\((i)\\)]\\)]\"\>", HoldForm], TagBox["\<\"\\!\\(\\*FractionBox[\\(i\\), \ \\(n\\)]\\)-\\!\\(\\*SubscriptBox[\\(F\\), \\(0\\)]\\)[\\!\\(\\*SubscriptBox[\ \\(t\\), \\((i)\\)]\\)]\"\>", HoldForm], TagBox["\<\"\\!\\(\\*SubscriptBox[\\(F\\), \ \\(0\\)]\\)[\\!\\(\\*SubscriptBox[\\(t\\), \ \\((i)\\)]\\)]-\\!\\(\\*FractionBox[\\(i - 1\\), \\(n\\)]\\)\"\>", HoldForm]}, {"1", "0.123`", "0.125`5.", "0", "0.06656131399996779`", "0.058438686000032214`", "0.06656131399996779`"}, {"2", "0.388`", "0.25`5.", "0.125`5.", "0.19529537953609388`", "0.05470462046390612`", "0.07029537953609388`"}, {"3", "0.938`", "0.375`5.", "0.25`5.", "0.4086102479484015`", RowBox[{"-", "0.033610247948401506`"}], "0.1586102479484015`"}, {"4", "1.242`", "0.5`5.", "0.375`5.", "0.501185003264645`", RowBox[{"-", "0.0011850032646449904`"}], "0.126185003264645`"}, {"5", "1.626`", "0.625`5.", "0.5`5.", "0.5977011264278045`", "0.027298873572195514`", "0.09770112642780449`"}, {"6", "1.961`", "0.75`5.", "0.625`5.", "0.6665158696779829`", "0.08348413032201707`", "0.04151586967798293`"}, {"7", "2.957`", "0.875`5.", "0.75`5.", "0.8090836681404209`", "0.06591633185957912`", "0.059083668140420875`"}, {"8", "3.841`", "1.`5.", "0.875`5.", "0.8836276133592379`", "0.1163723866407621`", "0.008627613359237896`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> { Automatic, { "\!\(\*SubscriptBox[\(t\), \((i)\)]\)", "\!\(\*FractionBox[\(i\), \(n\)]\)", "\!\(\*FractionBox[\(i - 1\), \(n\)]\)", "\!\(\*SubscriptBox[\(F\), \(0\)]\)[\!\(\*SubscriptBox[\(t\), \((i)\)]\ \)]", "\!\(\*FractionBox[\(i\), \(n\)]\)-\!\(\*SubscriptBox[\(F\), \ \(0\)]\)[\!\(\*SubscriptBox[\(t\), \((i)\)]\)]", "\!\(\*SubscriptBox[\(F\), \(0\)]\)[\!\(\*SubscriptBox[\(t\), \((i)\)]\ \)]-\!\(\*FractionBox[\(i - 1\), \(n\)]\)"}}]]]], "Output", CellChangeTimes->{3.7258608264407463`*^9}], Cell[BoxData["0.1163723866407621`"], "Output", CellChangeTimes->{3.725860826453198*^9}], Cell[BoxData["0.1586102479484015`"], "Output", CellChangeTimes->{3.725860826459548*^9}], Cell[BoxData["0.1586102479484015`"], "Output", CellChangeTimes->{3.725860826466033*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 5.22", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"a", "=", RowBox[{"{", RowBox[{ "100", ",", "7120", ",", "24110", ",", "36860", ",", "340", ",", "12910", ",", "28570", ",", "38540", ",", "940", ",", " ", "13670", ",", "31620", ",", "42110", ",", "5670", ",", "19490", ",", "32800", ",", "43970", ",", "6010", ",", "23700", ",", " ", "34910", ",", " ", "64730"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{ RowBox[{"Dimensions", "[", "a", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ FractionBox["1", "r"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "r"], RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ",", "5"}], "]"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ FractionBox["1", "r"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "r"], RowBox[{"Log", "[", RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}], ",", "5"}], "]"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"2", "\[Times]", "r"}], RowBox[{"1", "+", FractionBox[ RowBox[{"r", "+", "1"}], RowBox[{"6", " ", "r"}]]}]], RowBox[{"(", RowBox[{ RowBox[{"Log", "[", FractionBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "r"], RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}]}], "r"], "]"}], "-", RowBox[{ FractionBox["1", "r"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "r"], RowBox[{"Log", "[", RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}]}], ")"}]}], ",", "5"}], "]"}]}], "Input"], Cell[BoxData["23408.5`5."], "Output", CellChangeTimes->{3.725860830711913*^9}], Cell[BoxData["9.37483781102001525390145788005360638222`5."], "Output", CellChangeTimes->{3.725860830720883*^9}], Cell[BoxData["23.35375905465507095156781589816547720235`5."], "Output", CellChangeTimes->{3.725860830727865*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 5.23", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"a", "=", RowBox[{"{", RowBox[{ "21.2", ",", "26.7", ",", "11.3", ",", "2.8", ",", "12.6", ",", "0.1", ",", "2.1", ",", "7.5", ",", "6.7", ",", "2.3", ",", "15.3", ",", "4.3", ",", "14.1", ",", "16.9", ",", "7.7", ",", "5.8", ",", "7.3", ",", "32.1", ",", "17.6", ",", "4.5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{ RowBox[{"Dimensions", "[", "a", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ FractionBox["1", "r"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "r"], RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ",", "5"}], "]"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ FractionBox["1", "r"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "r"], RowBox[{"Log", "[", RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}], ",", "5"}], "]"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"2", "\[Times]", "r"}], RowBox[{"1", "+", FractionBox[ RowBox[{"r", "+", "1"}], RowBox[{"6", " ", "r"}]]}]], RowBox[{"(", RowBox[{ RowBox[{"Log", "[", FractionBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "r"], RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}]}], "r"], "]"}], "-", RowBox[{ FractionBox["1", "r"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "r"], RowBox[{"Log", "[", RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}]}], ")"}]}], ",", "5"}], "]"}]}], "Input"], Cell[BoxData["10.945`"], "Output", CellChangeTimes->{3.725860833422759*^9}], Cell[BoxData["1.9401898409742218`"], "Output", CellChangeTimes->{3.725860833432431*^9}], Cell[BoxData["15.41082178725462`"], "Output", CellChangeTimes->{3.7258608334399776`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 5.24", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"a", "=", RowBox[{"{", RowBox[{ "6700", ",", "4600", ",", "4100", ",", "14000", ",", "850", ",", "5400", ",", "3100", ",", "5000", ",", "2600", ",", "4700"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{ RowBox[{"Dimensions", "[", "a", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ FractionBox["1", "r"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "r"], RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ",", "5"}], "]"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ FractionBox["1", "r"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "r"], RowBox[{"Log", "[", RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}], ",", "5"}], "]"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"2", "\[Times]", "r"}], RowBox[{"1", "+", FractionBox[ RowBox[{"r", "+", "1"}], RowBox[{"6", " ", "r"}]]}]], RowBox[{"(", RowBox[{ RowBox[{"Log", "[", FractionBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "r"], RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}]}], "r"], "]"}], "-", RowBox[{ FractionBox["1", "r"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "r"], RowBox[{"Log", "[", RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}]}], ")"}]}], ",", "5"}], "]"}]}], "Input"], Cell[BoxData["5105.`5."], "Output", CellChangeTimes->{3.725860836677149*^9}], Cell[BoxData["8.33235549247799649339360814098317892726`5."], "Output", CellChangeTimes->{3.72586083668645*^9}], Cell[BoxData["3.47527163021018766563320430241284342129`5."], "Output", CellChangeTimes->{3.725860836693308*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 5.29", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"\[Lambda]", "=", FractionBox["50.", RowBox[{"5613", "\[Times]", "8760"}]]}], "\[IndentingNewLine]", RowBox[{"\[Lambda]L", "=", FractionBox["74.22", RowBox[{ "2", "\[Times]", "5613", "\[Times]", "8760"}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Lambda]U", "=", FractionBox["129.6", RowBox[{"2", "\[Times]", "5613", "\[Times]", "8760"}]]}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[Lambda]"}], "\[Times]", "8760"}], "]"}], "\[IndentingNewLine]", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", FractionBox["1.", "5613"]}], ")"}], "50"], "\[IndentingNewLine]", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[Lambda]U"}], "\[Times]", "8760"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[Lambda]L"}], "\[Times]", "8760"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"-", FractionBox[ RowBox[{"Log", "[", RowBox[{"1", "-", "0.8"}], "]"}], "\[Lambda]"]}], "\[IndentingNewLine]", FractionBox[ RowBox[{"-", FractionBox[ RowBox[{"Log", "[", RowBox[{"1", "-", "0.8"}], "]"}], "\[Lambda]"]}], RowBox[{"24", "\[Times]", "365"}]], "\[IndentingNewLine]", RowBox[{"-", FractionBox[ RowBox[{"Log", "[", RowBox[{"1", "-", "0.8"}], "]"}], "\[Lambda]U"]}], "\[IndentingNewLine]", RowBox[{"-", FractionBox[ RowBox[{"Log", "[", RowBox[{"1", "-", "0.8"}], "]"}], "\[Lambda]L"]}]}], "Input"], Cell[BoxData["1.0168826932260157`*^-6"], "Output", CellChangeTimes->{3.725860839292571*^9}], Cell[BoxData["7.547303349123488`*^-7"], "Output", CellChangeTimes->{3.725860839299225*^9}], Cell[BoxData["1.3178799704209162`*^-6"], "Output", CellChangeTimes->{3.7258608393056803`*^9}], Cell[BoxData["0.9911316653349788`"], "Output", CellChangeTimes->{3.725860839310904*^9}], Cell[BoxData["0.9911308787734698`"], "Output", CellChangeTimes->{3.72586083931608*^9}], Cell[BoxData["0.9885217549799157`"], "Output", CellChangeTimes->{3.725860839321231*^9}], Cell[BoxData["0.993410369734582`"], "Output", CellChangeTimes->{3.7258608393264027`*^9}], Cell[BoxData["1.5827173804367045`*^6"], "Output", CellChangeTimes->{3.725860839331262*^9}], Cell[BoxData["180.6755000498521`"], "Output", CellChangeTimes->{3.725860839339506*^9}], Cell[BoxData["1.2212325466332599`*^6"], "Output", CellChangeTimes->{3.725860839346284*^9}], Cell[BoxData["2.1324675026094103`*^6"], "Output", CellChangeTimes->{3.725860839353364*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 5.30", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"r", "=", RowBox[{"{", "8", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ratio", "=", RowBox[{"{", RowBox[{"20", "/", "8"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], RowBox[{"r", "[", RowBox[{"[", "j", "]"}], "]"}]], FractionBox["1", RowBox[{ RowBox[{ RowBox[{"ratio", "[", RowBox[{"[", "k", "]"}], "]"}], "\[Times]", RowBox[{"r", "[", RowBox[{"[", "j", "]"}], "]"}]}], "-", "i", "+", "1"}]]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], RowBox[{"r", "[", RowBox[{"[", "j", "]"}], "]"}]], FractionBox["1", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "i", "+", "1"}]]}]], ",", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{ RowBox[{"Dimensions", "[", "ratio", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{ RowBox[{"Dimensions", "[", "r", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.605887557413216*^9, 3.6058876425404863`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", "0.18195547188073723551321465097944636437`5.", "}"}], "}"}]], "Output", CellChangeTimes->{{3.6058876317202168`*^9, 3.605887644170475*^9}, 3.725860856272455*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"r", "=", RowBox[{"{", RowBox[{"10", ",", "20", ",", "30", ",", "50", ",", "100"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ratio", "=", RowBox[{"{", RowBox[{"1.1", ",", "1.2", ",", "1.3", ",", "1.5", ",", "2", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", " ", RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], RowBox[{"r", "[", RowBox[{"[", "j", "]"}], "]"}]], FractionBox["1", RowBox[{ RowBox[{ RowBox[{"ratio", "[", RowBox[{"[", "k", "]"}], "]"}], "\[Times]", RowBox[{"r", "[", RowBox[{"[", "j", "]"}], "]"}]}], "-", "i", "+", "1"}]]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], RowBox[{"r", "[", RowBox[{"[", "j", "]"}], "]"}]], FractionBox["1", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "i", "+", "1"}]]}]], ",", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{ RowBox[{"Dimensions", "[", "ratio", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{ RowBox[{"Dimensions", "[", "r", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.6896207707750858`", "0.6089415741539803`", "0.5645737566835638`", "0.5134859836049559`", "0.4536524161338683`"}, {"0.5473636240470002`", "0.4704689626608454`", "0.4316807890185428`", "0.3891580906670957`", "0.3414304480803661`"}, {"0.45982076452202447`", "0.39036168540612043`", "0.3565905817173231`", "0.32028912163330114`", "0.2802194755254691`"}, {"0.35333112897128605`", "0.29630239498721017`", "0.26951754462204425`", "0.24124203524406232`", "0.21050622334719296`"}, {"0.22833002790977894823724401214593378139`5.", "0.18923086345085836844934837294085342919`5.", "0.17143566664595459909294320569063589574`5.", "0.15295416135990730144233855577416094705`5.", "0.1331411542987308736133807910280402247`5."}, {"0.13562710119459518774222619969439013514`5.", "0.11154986526567731935392418748279403592`5.", "0.10080137349628984984570996803164351787`5.", "0.08974986484039699591079857763448795855`5.", "0.07800337083663356777892540474878986446`5."} }, 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.7258608579323473`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"r", "=", RowBox[{"{", RowBox[{"10", ",", "20", ",", "30", ",", "50", ",", "100"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ratio", "=", RowBox[{"{", RowBox[{"1.1", ",", "1.2", ",", "1.3", ",", "1.5", ",", "2", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", " ", FractionBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], RowBox[{"r", "[", RowBox[{"[", "j", "]"}], "]"}]], FractionBox["1", RowBox[{ RowBox[{ RowBox[{"ratio", "[", RowBox[{"[", "k", "]"}], "]"}], "\[Times]", RowBox[{"r", "[", RowBox[{"[", "j", "]"}], "]"}]}], "-", "i", "+", "1"}]]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], RowBox[{"r", "[", RowBox[{"[", "j", "]"}], "]"}]], FractionBox["1", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "i", "+", "1"}]]}]]}], ")"}], "*", "100"}], ",", "5"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{ RowBox[{"Dimensions", "[", "ratio", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{ RowBox[{"Dimensions", "[", "r", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.605887794471086*^9, 3.605887798709049*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"31.037922922491422`", "39.105842584601966`", "43.54262433164362`", "48.651401639504414`", "54.63475838661317`"}, {"45.263637595299976`", "52.95310373391546`", "56.83192109814572`", "61.08419093329043`", "65.8569551919634`"}, {"54.01792354779755`", "60.963831459387954`", "64.34094182826769`", "67.97108783666988`", "71.9780524474531`"}, {"64.6668871028714`", "70.36976050127899`", "73.04824553779558`", "75.87579647559377`", "78.94937766528071`"}, {"77.16699720902210517627559878540662186061`5.", "81.07691365491416315506516270591465708086`5.", "82.85643333540454009070567943093641042637`5.", "84.70458386400926985576614442258390529524`5.", "86.68588457012691263866192089719588893105`5."}, {"86.43728988054048122577738003056098648595`5.", "88.84501347343226806460758125172059640759`5.", "89.91986265037101501542900319683564821326`5.", "91.02501351596030040892014223655120413811`5.", "92.1996629163366432221074595247793943262`5."} }, 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.605887799698236*^9, 3.725860860855132*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{825, 924}, WindowMargins->{{234, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, Magnification->1, FrontEndVersion->"10.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (October 9, \ 2015)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 90, 1, 64, "Section"], Cell[CellGroupData[{ Cell[682, 27, 43, 0, 44, "Subsection"], Cell[CellGroupData[{ Cell[750, 31, 2475, 67, 202, "Input"], Cell[CellGroupData[{ Cell[3250, 102, 13199, 230, 236, "Print"], Cell[16452, 334, 15779, 272, 236, "Print"], Cell[32234, 608, 22920, 389, 236, "Print"] }, Open ]] }, Open ]], Cell[55181, 1001, 356, 7, 28, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[55574, 1013, 43, 0, 44, "Subsection"], Cell[CellGroupData[{ Cell[55642, 1017, 3917, 109, 329, "Input"], Cell[59562, 1128, 2909, 65, 202, "Output"], Cell[62474, 1195, 1293, 34, 263, "Output"] }, Open ]], Cell[63782, 1232, 189, 5, 28, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[64008, 1242, 43, 0, 44, "Subsection"], Cell[CellGroupData[{ Cell[64076, 1246, 6338, 181, 605, "Input"], Cell[70417, 1429, 2895, 67, 150, "Output"], Cell[73315, 1498, 1178, 32, 257, "Output"], Cell[74496, 1532, 1104, 31, 260, "Output"], Cell[75603, 1565, 1200, 33, 257, "Output"] }, Open ]], Cell[76818, 1601, 262, 5, 28, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[77117, 1611, 43, 0, 44, "Subsection"], Cell[CellGroupData[{ Cell[77185, 1615, 4726, 136, 448, "Input"], Cell[81914, 1753, 4214, 94, 218, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[86177, 1853, 281, 10, 44, "Subsection"], Cell[CellGroupData[{ Cell[86483, 1867, 2059, 60, 159, "Input"], Cell[88545, 1929, 15585, 268, 374, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[104179, 2203, 278, 10, 44, "Subsection"], Cell[CellGroupData[{ Cell[104482, 2217, 2037, 60, 159, "Input"], Cell[106522, 2279, 15784, 271, 374, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[122355, 2556, 289, 10, 44, "Subsection"], Cell[CellGroupData[{ Cell[122669, 2570, 2029, 60, 159, "Input"], Cell[124701, 2632, 15514, 267, 374, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[140264, 2905, 43, 0, 44, "Subsection"], Cell[CellGroupData[{ Cell[140332, 2909, 5118, 143, 440, "Input"], Cell[145453, 3054, 2944, 65, 212, "Output"], Cell[148400, 3121, 1185, 30, 374, "Output"] }, Open ]], Cell[149600, 3154, 295, 8, 28, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[149932, 3167, 73, 0, 44, "Subsection"], Cell[CellGroupData[{ Cell[150030, 3171, 5107, 142, 440, "Input"], Cell[155140, 3315, 2836, 62, 196, "Output"], Cell[157979, 3379, 1029, 28, 374, "Output"] }, Open ]], Cell[159023, 3410, 313, 8, 28, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[159373, 3423, 73, 0, 44, "Subsection"], Cell[CellGroupData[{ Cell[159471, 3427, 5183, 143, 440, "Input"], Cell[164657, 3572, 3124, 65, 348, "Output"], Cell[167784, 3639, 1579, 36, 374, "Output"] }, Open ]], Cell[169378, 3678, 313, 8, 28, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[169728, 3691, 44, 0, 44, "Subsection"], Cell[CellGroupData[{ Cell[169797, 3695, 2118, 62, 173, "Input"], Cell[171918, 3759, 1065, 28, 374, "Output"], Cell[172986, 3789, 88, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[173111, 3795, 2139, 62, 173, "Input"], Cell[175253, 3859, 1058, 28, 374, "Output"], Cell[176314, 3889, 90, 1, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[176453, 3896, 117, 3, 44, "Subsection"], Cell[CellGroupData[{ Cell[176595, 3903, 3296, 99, 233, "Input"], Cell[179894, 4004, 21464, 364, 382, "Output"], Cell[201361, 4370, 88, 1, 28, "Output"], Cell[201452, 4373, 89, 1, 28, "Output"] }, Open ]], Cell[201556, 4377, 667, 14, 63, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[202260, 4396, 44, 0, 44, "Subsection"], Cell[CellGroupData[{ Cell[202329, 4400, 2085, 47, 182, "Input"], Cell[204417, 4449, 1969, 44, 373, "Output"] }, Open ]], Cell[206401, 4496, 418, 10, 46, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[206856, 4511, 44, 0, 44, "Subsection"], Cell[CellGroupData[{ Cell[206925, 4515, 1340, 38, 131, "Input"], Cell[208268, 4555, 1713, 41, 389, "Output"] }, Open ]], Cell[209996, 4599, 419, 10, 46, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[210452, 4614, 44, 0, 44, "Subsection"], Cell[CellGroupData[{ Cell[210521, 4618, 1873, 59, 173, "Input"], Cell[212397, 4679, 1072, 28, 384, "Output"], Cell[213472, 4709, 90, 1, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[213611, 4716, 44, 0, 44, "Subsection"], Cell[CellGroupData[{ Cell[213680, 4720, 3053, 88, 282, "Input"], Cell[216736, 4810, 3143, 67, 186, "Output"], Cell[219882, 4879, 88, 1, 28, "Output"], Cell[219973, 4882, 88, 1, 28, "Output"], Cell[220064, 4885, 88, 1, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[220201, 4892, 44, 0, 44, "Subsection"], Cell[CellGroupData[{ Cell[220270, 4896, 1931, 62, 214, "Input"], Cell[222204, 4960, 79, 1, 28, "Output"], Cell[222286, 4963, 112, 1, 28, "Output"], Cell[222401, 4966, 113, 1, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[222563, 4973, 44, 0, 44, "Subsection"], Cell[CellGroupData[{ Cell[222632, 4977, 1891, 61, 214, "Input"], Cell[224526, 5040, 76, 1, 28, "Output"], Cell[224605, 5043, 88, 1, 28, "Output"], Cell[224696, 5046, 89, 1, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[224834, 5053, 44, 0, 44, "Subsection"], Cell[CellGroupData[{ Cell[224903, 5057, 1763, 60, 197, "Input"], Cell[226669, 5119, 77, 1, 28, "Output"], Cell[226749, 5122, 111, 1, 28, "Output"], Cell[226863, 5125, 112, 1, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[227024, 5132, 44, 0, 44, "Subsection"], Cell[CellGroupData[{ Cell[227093, 5136, 1580, 48, 433, "Input"], Cell[228676, 5186, 92, 1, 32, "Output"], Cell[228771, 5189, 91, 1, 32, "Output"], Cell[228865, 5192, 94, 1, 32, "Output"], Cell[228962, 5195, 88, 1, 28, "Output"], Cell[229053, 5198, 87, 1, 28, "Output"], Cell[229143, 5201, 88, 1, 28, "Output"], Cell[229234, 5204, 89, 1, 28, "Output"], Cell[229326, 5207, 91, 1, 32, "Output"], Cell[229420, 5210, 87, 1, 28, "Output"], Cell[229510, 5213, 91, 1, 32, "Output"], Cell[229604, 5216, 91, 1, 32, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[229744, 5223, 44, 0, 44, "Subsection"], Cell[CellGroupData[{ Cell[229813, 5227, 1468, 45, 143, "Input"], Cell[231284, 5274, 212, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[231533, 5284, 1594, 48, 143, "Input"], Cell[233130, 5334, 1658, 34, 126, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[234825, 5373, 1814, 52, 143, "Input"], Cell[236642, 5427, 1662, 34, 126, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)