(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 177147, 3769] NotebookOptionsPosition[ 172582, 3613] NotebookOutlinePosition[ 172959, 3629] CellTagsIndexPosition[ 172916, 3626] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Programa\[CCedilla]\[ATilde]o B\[AAcute]sica. 29/8/2012", "Title", CellChangeTimes->{{3.586709545426696*^9, 3.5867095628812675`*^9}}], Cell[CellGroupData[{ Cell["como definir uma fun\[CCedilla]\[ATilde]o", "Subsubsection", CellChangeTimes->{{3.58670957130384*^9, 3.5867095768199224`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"2", RowBox[{"Sin", "[", "x", "]"}], RowBox[{"x", "^", "3", " "}]}]}]], "Input", CellChangeTimes->{{3.58670958214849*^9, 3.586709652716837*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sqrt", "[", " ", RowBox[{"f", "[", "z", "]"}], " ", "]"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{ RowBox[{"-", "0.05"}], "Pi"}], ",", RowBox[{"0.05", "Pi"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5867096558108435`*^9, 3.5867097680545206`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJw1mHc013/8xZFNlGSWTYOsiozeTx9kZO+9JXsT2ZS9QkbC5/MxolJWyOiF z4evJFFChVSobBqy8ut3zu/31/3nnvP4455z7zlX0NnP+AoVBQUFGyUFxf8q UXHCXYqXjGIflDOojxIg//SAGB0XGXk6PN+uHSJAKk/H7DQ7GZk6Ng9wPSdA 4HaZYyYLGcn2fadd7ySAattVy2VKMrp7c2jtwT0CfFLY1HzwjYQ8I43TdCII IKDAceJEMwnlXDH+JCNMgBJ50zk+IxKiYpfGFYfgIVPNWZU1tAeFFmXddWUr BeLsp6WEmm50HXe6ODypGAYKk7t2ZrrQ6im+/3hEi+CbTXdwMF0X2vywmCjw KB9M3ceXPoc9Q9eDVkZjo/OgV86wfrqrA70YJQ6sQA7Yi3P2zxxqR8G3suvF JLIBu9wdvhj1FHHPKlBv16cDY1LW0mZ/C1KWazw+s5MMx1dUtpllmlHY2SMp Il03wTJCxfokoQlhV/MlVQbjIUbMNeLSagP65SQa8ORhDCzveMp7WdejRsbj FWrF1yFzWtxDVPMx6i9hqPS+GwK5h/no474/QA++cj/ikAsA0aKxyeXealR+ Rnlg67gXZNuOn7W3r0SWQtbuOmdcYS2MUbHaqBJxzMV6GR91BcPbF1U21CvR sxmdxqt7LnBoqFw3UbwSxRRNHep86QJZ4H/l0Z8K1CpjRX3EzwUyhRgK/uZU IAy/8cqryRnSvylul/5XjnIuXzoyou0EycGlXR+liSjHNYx/DLOD8fr3o9zC RDRJc/ZDKZsdiK1yfDc5SkRQYsGTMm8LvR5Zh/u3CEjXdF+oJ9MWqBxinet6 CMjv8EP7vhkbiNR2po4zJSDVsZhEzjRr8OcT0xIKwyPrLxtDk38sANk429p6 4pGWuSbd2LAFsBSV+ufb4tEa5z5prdoCao9wFjHi8MiUrXkg1coCFujpFzYY 8GjBhJXFqMMc+uffcCbJl6Fmib5AsWQzqM+2KXseXYKQeOvczwsm0LD8R+KZ SwnyNeIL6T1qAk2X89satErQbqmIafOGMTRTj7wtZitBqi2nKbceGkNbmAaz b9Vd5Nk1wEklbAw9jjLhbEPFyMa1WVn4qBG8lqYzsTl+B+mOTh5XE9aHNxkV MwZUd5BwIIfyn1k9GF3A+ap/LUIsrYw7y1V6MFYRmXKmvgj1xxnYFIvrwXuu DbSvXoRmfaKq9uR14QvFlESFdyHSG/noP2N7GX4ON9Aut+cjJSpGfv5xDbjj +Pd4AzEf3fl+viilQgNgTfv8tZR89NIk1UQiUANSWT+5UFrkI+/NF8k8LBog oM/afXTjNnobm/a7SOsS6L7wisBO3kaWHPfmRPrVoLxXZC0rLxd9ZPt0yWtd BbTM/OnMInIRtUfpm6leFViZbefjcc5Frwd9iMl3VOACtYlehVQumq2wO5Ck rgJDqnH3WwdyEC11WJWeHMA2mnL9RJGDjkibOs1VKoNxW/47WZ9sdGPI69i1 d/IwlvaTecIoG7m7m57USZUHaztjlSi5bBSTJX6tXEke+iiO6WftZ6HMr9NT M2Vy8C2d8XurSBYaF50fzvQ9D+KVX/mY/TJQcV+qVYvIWTinVX7T/EIGaqr7 cufVlCwoL9ov4SkzENUzGgHvAlnQlRl7ej4vHW0VTfySYZYF306yqcPTNGQZ zDuytiMNDW8JqQ0HUhHgHxFCv535l7fd+u5gCvppe6pGyusMkHi5LTXzU9AL +XaF9RUJGHXKFp08mYKwz9G/M7bE4fdydBeNfjLKqPs1c4b3NCjS2v62LExE MByTTpctBt1yHM77EgkIazn8QkhFANhAcnJhKx6lHpCpoRnlB1dNDfOxvnik n2z5K+cUP9Bahl6udYxHLg+cFI6+Pw664WOyNnlxaNZANajVkBceXjtD57sZ g+peRpDD8zhAP9luR/1WDNKixYUcpOGA9cKMVV7xGPSTtc7R99pRkGtbHn9u H432Eua+FjixQ9dubbVoXyQatznSlqLDBm/jJC9P5YWjLBvP/eFFZgjLscea JMNRUBDbQBktM/CUZ8qm9YehE/TFzAyiTOBIXuFR2L2Gtvont+57M8AC7ePF PJdQtOy1FCZxghbSOT9+9NoLQddk3Whf2dOA1EnWUdWCEHRs8BUz8x1qCNb2 61gbCEYlyqs3zHgPwN80qQxd2SBEo1MtKqZNAfi7DnHCg4EodejDzgWlfUyt Nitk+0ogap7jxVsv7mHJQ6t21UUBiByVRVZ22sGOHK6TpKb0R36P38ZHlv/G vNS6LjWf90MZKoSxQ4m/sDpXAUlXD19UFVzL/97vJ6Z4b+YvGvZG4e/kc5is NjADCSf8tTIPVNaovfPmwDJW7fit/uS4OzIn0ifxXFrEqG77kd6xuKMNdY5Y pbzvWNNe1LxStBtaThNpZ7adx1hkaf4sPbmCjMzL9zpGZ7GrbukMpcuuqETA 55GmzReM59UdCQo7F0T7qM9m6dYMFnxACKvPc0bquKR65hvT2Ev5GgPnQSdk MPsi5df+BywW3xJIVnJEVJHtY3OXx7HGmij6xXl7VP6ZT3eZ+y3mxpYurmdu h1gXLxJqqN9gg1+qAw6ft0Zt2OfxOOshLEa3JS+owhJdxcuT5ccGMNknvS1v j1igm1b2gRYp/2Fzx0ffyyeYofm28c8zQWSsMPHzXtGGCeK9c4xj9HY3prO6 JrDrZIy+EhW5nac7sb8W+2r2I4ZoLyYhY3W/FXOK4x2KjdNHB3NfpxhmN2F9 xhfYLznqIJnatyw3s+owCREzawbQQptGJoo8OzVYzq8A/Mvjl9DWaJPnSFM5 9qcvc/7WLg7tRqY5OBTexdqkLaweNl9EsluN7J7xuVjim+y5c8Hy6Couc+mm QTJmFDoQ0Ckjg4R8845WC17HFGTpd9OmRVFupxHnttAVDL/6+6RiIxt6pNX2 4cE3DOtnTy3MtN7C1qNzs/LdmTHqbaWQOEd+4My3csd1m2FeLaeJUuclwGhz VI3+dgC20PpBndXuHDy+CcGRJvEYPwexNbFMERSb8oQOm2Rh9xXOcez7q4CO TehRwmwBpu7OOayYowY7hLrPCct4bDp/OyW0UQPGbXoM7PuqsLDeKbWGUW3Y BKaRj5G12JGfXXvLv3SBWbhH9kZyA2Zx+PWHPCZDCFGmovXubsYqqkmtsneN 4GAE3umERzu2Dk9uD0uYQK5SkNAH6MKw8apA305T0PJItEinImETNKkS96ct gE5KnVFC8jkmWhLBoOVnBUUUe4k8BYNY4Dmf+bl9awhSJDg/5R3GmF0M8YKC 9hAmx60qzTqKWW3jolC9A7BXv6GMkB3D3vRz10oSHCF9gI9wPWACE3BkSh2U cYaSD1RRhapTWJ/4jTDebWdYY/7Y2jz6EfPZ3HXz7HEBbUWP7+q4T1hb5ooa vckVEHJ5YHCPaxYz6xzZUwt2h8zUE5o1PgsY7fVWphw9D6ig9dCP11nCmuXK uGfEPMFw2VC4RmEF46jzPh/5zgt+Rpnz+AuvYxNEOp8mzA+sLLN/hef8wshS 1y5SMvtDstGd+yU9v7FjmZ7q1WH+cNVkQf3b9ib28rKR8W+jADD9GX5yI2Eb kyTz+eZQB/3b8dGKic19LFGILUQhIAgcAgeeFTVRwHQsTeTMVBC8NJ64ax1A CVkXl1IkW4Kh/F5QLccmFaw1P60c8AgFL/OeY2FnaaGhxnSK6lU4vK0XYZvx OwiM9FqzNUrXwXBsOInswQLObkqLhtXXIfpyg3fHVVY4Iiy0VRoXAcmNj3A/ Wg5B8N1VdqVzUZBSnLN6a4INijUvVT3VjQUdI90cQgQn9P9+dupgQiyw2Woo SXFzwc/KC7WOT2NB9ADuTl8rF+hSSzTRicXB9nNyONtfbtjtYusx24+DJdGB dj7CMbBTnJlar0+AyhSbwhsigqByY0+vYjYBomn1FuSiBEFkiOeZOecNWNK7 4DY4JggLTmal7ZE34Oxn0gd8uhCEpQzY39S8CQuTxzpWqUQgZ6LpI9dUImyx vFIX5TkBIUKvDV6wJgH7uzApxrgTYOm9iqJUk4A8fVrt9bcTwE9xGv/5XhJM WrnNMbWfhIcnyhwfBibDjo/nEVHP09AXmvIJ6FPhB2ct7erGGajpqjLaUEyF yT8L4bTukpDOSO6u8EkFmy+8RymnJcGk9C+B4U0qmNcwk8oGpWCmN8j5TUka pERlROHeS8M2u/0Xt7MZQL8YfcV/XBYKrIo2NKSyoQOXW7srJg/3O26zdF3O hsZG0vOJEHno4M85reCWDQ/vE/UVe+Xh81yqs3hJNuynyeRkXLkAkoGRr1mZ bkFn+I+/wQ8VoDfVoWFi/hbcV21z0jRRhh/tooGepblA5+WzEkmFA1p+ocwv T3OhhcE0DCeLA654vvu2b3PB+2D2Ey1nHGBanJ/1mfOgdHhWm5+Eg9RReuOz 1/Ogxpf23VKSKgguL8rsmt2GH5unUxj41MGAr2E942ABxFlGrGhFagJFWUp1 4skCcBS5cMCuURPq+J0cYtQKQLnd0bF+QRMOCR566R9eANarL3/wWGvBa2Hf apO5AtC+RhW9rqQNpqdOO3B3FsLes78cD5l0wPoccbDC+w7kXlNls/igD1cu 59xrf1ECHdEXZrpKTMC/sH30y2zJP24518ozE4icn6Vk/lsCXLmCGvIzJpAX L29rK10K1x1wsceFTYHcNnloL68UvgXF+CvcNwUR8RPXMfsyoHlir/y40wzW aeyrHMPw0MF4yDZnywLq5jfCvjAS4d2mWuz5Xlvo846OS+IiAs4tPKx3zRam NhhSxcWIIE9HYRh6zA4Y9wWKg3BEWOP8dFcx2A5cOQ06D4QRwbqarVZP1B64 tR5QiswR4UCSIL4kwwHia1xSXVE5nNfM0QlUcgIz79HiuaBKaDX0CqI1dwWf ktXkMWI1yFGBm9OIJ5yL9x1p634AFJw/Y6VoAkBIvLKgWOQxpGaoxgx7h0A3 Ysx7IlYPzG5a8o/2woFmkK+Yd6oB1mcUy9j9Y4DqkQFdeGgTnGvJpxmJjodx D1nBYbpmYPWy0KvyuwmIbj1ctL0FForyNGank8EpYlA+0OgpPLyYoKuhnw6c IwnnOhnaIV8wYoQgnA0VFMvTlG0dUMzgeFhZPgcWaIJWLuo9A7e6tDQ69Twg hnryKVN2wWg5W1PW3XyQeHvqj+nLLqDoHDbtXSgEokBPteftbsjm+cjOql0M Qnb9YTG+PcCJf8/yeqsEoqntdlgVSEDJlDzYr4sH83W28EJlEryg1HcgG+NB arr/t4AK6V9PWTN0W+JhpuXchowmCTYPqpV3uuJB1Yv5u4kZCX4xSK+QIvFA 97p9rCCABKsbgR+pa/GQXcbTwH+fBLW1ZicsWQjgnj4sVV1LgvJj9/Ch7ATA hSfWSteTIE2HWyafhwAbxhvVuFYSaPDZFEyIEcCUdqDMpY8ENvuy4Z5AAG6f 8Ix7n0nwQ1HsVo//P7+VFJP0PAmYAn5EbIQSYEBjLrn1OwkahYaihKMIEClg dOP5Ggn4BO71JacQYPrNyYjFvyQ4mtbr7UgkQHPX9J8gKjL8rppkLaomQFZt XuguDRmISZvPXz8igEoSReDBg2R413I2QbudAFzBzau3D5GBv8A4PrGbAOuO 3j587GSosPYvJP/3j68ntFjFSYb252m9B4YI8H9/CPz/H/I/d+AwYA== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{{-0.15707963267948966`, 0.15707963267948966`}, {0., 0.03482258432071372}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.586709669608858*^9, 3.5867097688045807`*^9}, 3.5867151143464956`*^9, 3.5867182081920247`*^9}] }, Open ]], Cell["uma linha pode ser complicada", "Text", CellChangeTimes->{{3.586710100394563*^9, 3.5867101134112673`*^9}, 3.586713375889798*^9}], Cell[BoxData[ RowBox[{ RowBox[{"w", "[", RowBox[{"\[Theta]_", ",", "a_"}], "]"}], ":=", RowBox[{"a", ".", RowBox[{"Table", "[", RowBox[{ RowBox[{"LegendreP", "[", RowBox[{ RowBox[{"2", "i"}], ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"Length", "[", "a", "]"}], "-", "1"}]}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.586713289476387*^9, 3.5867133677328725`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"w", "[", RowBox[{"q", ",", RowBox[{"{", RowBox[{"1", ",", "0.5", ",", RowBox[{"-", "0.5"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", "Pi"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5867133808120813`*^9, 3.586713406282942*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJw12nk81M8bAHB2sUvkFnJFJGfJlfBMKtGhcpZcIYQk5QgpHa5KjlKUo8OR cp9RrlKSpJwdwlq3tNhll+Q33z9+/uD1fi0zn5l5nmdmPi8bXM9YniSwsbFl 4G///STW87QP65w1lmf774sGihN1O2SSD8EWT9VyduylYk33b0nOMDh9q4ML u2QBugULPaEyb4MNP/aIiBezMukMsBp/7lyPfVOiha+w9hyUnylJUcHOUXbI ZCsMhm/MW1ZG2A16tC1WWWGgVe4QYoX93fRaU3bSJUgjc3Ce/q8/FV6V8KZI YPp6sGKxo7V6ArJrr0Kgl6tNPraIQVZte/l1SEr6Kt6O/WinNwezIBrMk2/t YmBrmGsf3JAbC2YKHt2y7DSoPfzv7r6sGyDIq9p+ELvbOWlTetJtsHF7NF+G XbJNQ3+4OQEGa37KTmMH6yX/DG5KhJdG4qWbCDTgAEfFR7XJ4Hg8hPQMu9Wk 6YNO9R3gO0NqncFONN3k11p+F3yzfGb1iDSQsZitnC+4ByEyjqe7sKlHbI/H 5N8Hq4s6jZs4aPDcpnZVKjcVWDIXQiKw9R2vm5lmPYBPGgX8upw0sPSV+H4/ KRP+7f/e9YmLBrz6UJ+yNwvoq9v1DUk0oL08KzjUnAUP9AOXC7ArX/dUBDY9 gi8CvpkPyDTY1Zz1L6P2CTh3sFtk8tBAaW/n4YntT+F8yGqW8hoa8HzgfLKt +insZFocqsDuaPPe21KeDbGl1rV9vDRw7NJOmC3IhVB+g7q9/DRAtp6UHWp5 8LRQ7tsU9sa+VO2o/Dy4VtRjnixAg8kf//okc5/BAZ6czdOCeP6GWzbsznoO 3t6Fbc0ieH7mHMpSkoogLzyHsm49DW6Jphk28BUDTzuvC1GKBl9LrsvqWBbD t87w6jns45MOIzI/iiFx2pHxU4YGfsfXnJ2bLgHb1u2hA/I0uGPkFZMqUA4z gd+CH6jS4Ns3K5+1NuUgyXjJ/lYNz38QWFxNLYc78d2HaOo0yC0UEzktXwHm VdZa1ltoUCPbnIm0K2Hw3FmKmQ4NBtjlq8bsqiHwuIUfFfD4MvjSHB5Wg2jy tL/ZThp4GbDCvwxWQ1rw5/XFJjSYC+gwqT31EoL3lLvG7cHxQY1ojw+rgRFH 8Qjv/TRQefdjRCfzFRTHjyr02tFgR/M+HpNzDZCQvnXG8hwNBLpyPuslN8CG 3uxyciCODwrhrnpZA6iHvD3dGESDeLZaWYn5BuipfFe0I5QGlB2qOrSARnAI v6xvFUmDmNI1LhkBTRB6B0XwJtCgJ7OtYunsW1gRst9yv4gG/qEWJ8r8W8CE 8q3nxgIN9vkZ5pETWqBS2nV5gEkDBVeVP45FLRByJNRRdxn/vTnXRfJMCyjc if48sUoDI4m6+44+H6Cx6qWMD/cs8FSrd5A8WoHqNLnSJTUL2QxecDjeBkP7 0I+te2bhdPXJeIJCB4wry015PZiFrnFz7lzXLogt6Un86DUHcZoLbJXH+kDX 4jmS05qHs6otdxuyf8JRA7Xu4xx0oJ6kXs6q/AkzwbZyPiQ62Gax+V5+/xPM 1mfUhvDQwUB0uwma+AkmDNmOeAE6EFafzdSr9cOJhkBathQdkr7e2Ftf1g/S xVf5w7XpUHrhEOt14y8gTiVszHOlw8ZyH2r6119QF++fG3KSDikz0Z8vDv+C OZvDk6ZedAh1a8g24hyAUM3ojJ+n6WBycKvla7MBkC+KMp0OoUOnnPDzV58H YCY/7MP9eDosufkU9vsNQvnczypyNR1cBOdDXgUNgn14M8Oxhg7NdaG7HkQM Av3hmZbiV3RIkIjrOxo/CE3UJplDjXTY9DmP0FUwCD36NC2/VjpYG4zatk4P wj//NKltP+lQKHBitdJ7CH69WxfZuEIHkbrxD3cDhuDKxAfBN6t0uODjf+d8 6BCIyGl/aWRnwO53lzZrxQ3Bk2iejkpOBvwIy7AqeDYEW/ONLkTwMYA89iP3 yfgQqI1N9kdKMcD1te3hBA8KGKr5pe7WZ4BWpbiQxBkKkBWsPbgNGEAo+t75 KJgC+stHg1p3MOBxlpNdWQwFMsvnj+wEBlCuejj15FPg3qfqe+ymuL19Qb5S fygw/JPl+8ESt7dLXyN7kQJll7f0HLbG7Rku/VFnG4a7SPlglw1uTz3iHAgO w56xJLvPR3F7AlGhrtuG4fjcu+t3nXB7vXdj8oKHQThZM9H5FG6vw27f1svD QHBsdc7xxu19kOCtiRmGx//meSZ8cHs16bc/pg6DoglMnfDD7aVnp8zUDkOX YP2VDecYUJrieTT47TCs8tdSTc8z4MrtzZJsn4bh86/DvF6BDJCPLEgX/DUM nrSNj9KDcf/uFU+12aigb+FzpzsM9+8Y7PGaTIXdD4R6+sJx/7bblU0FqdBd efl970Xc/97Xz+3kqVB3Ubao5RLuX6W5NHQ3FW40njELuor7V4g+TzxIhZxE nXrba7h/KXPdmzZU2LFb/IvWddz/2k8v0z2oYETa/qo/igFus10NDTFUOGoh 4vMvlgEuoQl21QlUOPD5MXdRHAMciAdmiu5TYa/eStPxGwywFX2zPjOPCnq8 ARHPbjLAbHtJ0MUWKrRLlgyL3mbAniZfvsAOKij7fVfIxTbZr/zUt48KO8vH z2gnMGCHY+aX4+NU8LwSvXFXIgM0Im+pGZBH4PCIV/uWZAao8Ji/2SowAiaO BoaPsTclc9hvFh+Bi3WsXP47DJDLDosWVx6BhZ74gF/Y0hp6MgJbRsDLW6Qd 7jJAsmqunKQ/Ar5PxuTSsYU/nKIs7B2Bb4tsOftTGCBgqXhh5tAIRBeKdj/E 5v0xyD9qNwKye0QZE9jc7g9z+p1HYFu5P8e2ewzg+m1n1O05As+7H7KHYBOC hLvazoxAlofQVDX26r9277fBI6DCbVHPwGYKmN4vix4B89vS8m73GUBPZdd8 fnsEjqG6gmTsWfnXzY/vjcDVR8YyDdgzz0Mc0jJH4NO4RsA49qS29nxi7gj8 2aGQx5vKgLHXf2Jji0aArbSsTg2bavpcLrJqBNRswsvNsAc/e1SF1I+A/0bp GBfs/qPyFv7vR3AdM9A/j/19qJ/q+XkEZETD3lzF7vFODXPuHYGANTeVb2N3 zlsL2Q2MwNJ3KY8U7I5wgWcWYyMQ5jYUmordxtkGpn9GwOFq4sn72B/io3uM Fkdw3Z7YmIz9bt2u0zqrI3CNM68qFrsp6x9RnTQK06pJUuHYdZtr0jbyj4J4 4BlLb+za0sCtUutGgadjzVFr7OodW1uEZUfxuUhPzQC7/O2005pNo+Ce1fxp PXbJwTwGQXMUHDfc3sHC81PY43ZzSXcU1NrPnP+Kne8sqzBnPArqbXuDc7Fz x7+/nDAdhcVDyyYh2E/PphweshiFNxkBPbuxs5aOjPXZjkIXf9oWPuz0q3wR HU6j8JPP9fAXvH5pvB9EWjxGwUq8XjsRO+Xutef1fvjzt89+HsBOlkEmVUGj kNQgs5cD++aWqjM5UaNg1lvo7IHjp1WrdzQwfhSqdgi8FcIm6yw67kkZhUuh NwVrcTxe2653gJo9CrBi7b6K47dph92bsoJRKIuc9HyAzWYcbHC1YhTy3dSP bMMOM6lSlm8ehROvg7/Y4nyo3t2bOds2Cv+IYx6UJAYsmC6KNXaNAn1v569T 2AH79ThdqKPglSB1zhfnl7d11VA6cQxkB6QlEM7HPNveo6fXjEEek7MwP54B o0cXPxsKj0FdQZOsIPYJR726H/Jj8Iikee8Lzu+jHlVpEiZjsEF58K0crgcp Xr2CE+Zj8KbRSdMb14su78WY6iNjwLvCFlAUw4DDZ/SC7U6MgUbRo4vq0QzY G1Jldfcy7r/kfdYirk/XQntb3WPGYLmttk4Wuyl8cad2whjczF9fsusKA4wj 9bZ0Zo6BK+GW4KXLDNCNq+IVrB+DfDGxqje4Hm58WNV8c2UM7vFlH76G66tr Rq+hA+c4FAW5x5/C9Tcra7FMlW8cnn0WeLgvgAFS2XqPW6XGISMuTYnNH9eD wqoIsuE4rJPSY+jjek5oqNK7FjoO4q4vfYZccDzxCeWsXBmHQSuLkpPODLA8 7isSfGMc6jhUySOODHiyIDd76uE4CJnumuyyx/uhelz+obpxWPrbd+0C3n+i 0hyk1xMmoH8T60AP3q80xitv3OGZgI3pNk1r9uD80xFc4hOegCv69w4a7sL1 7UtzD9vGCVgrUJobj/e7FpJmwuieCYgjd4Uw9RjAE8hOLI2dAPtZM9GhTbi+ Nx0/q5o0Aa2EO+otigywF6gceJo2AeFZwyfzFRjw/Ln3q3vPJ6Cut2+7iywD DlA6Ay9+moAUpll0ohgD4g/ljJsJTkLBt/wbazgYIKiyv33g/iRcGqugu/+g wygpU7AlaxJedVmcHuyjQ83InHVx3iTsHtF6b9dDB/dHaT8uV0+C+75aBYMv dKgWnxzf0DcJi+4fHn96RwcnUizRfd0UaB0U/rWlhA4vqO/0x+9OAdPGaO/c FTpENkmGd6RPAcejisTpS/+dv/zqq7OnIMhfYZoSTgc2BzHT2IopKPBv6H0T RAerzpNWKt1T8JudUGvrjc9DjRx+viLTUHDhpmnTYTqYZZo8oSVNg9edPOpr STpEt3T0X3kwDS4/v7jNidHh3ayTuOjTaRjjkb4pL0yHPbvDbm2vmIbL2keG A9fg89dEWfCV3mlgT/y2PL48D4bbFA+ISP2G988C3Yg/52HLexJDL/s3JL6s vC6TOg/r/rSZXqqageepA5RnpHm4n1h/YqJ+Br46Ge9jEuZBXLs03KplBiqU e613/ZsD8Qv3Sjd9m4Gf/766fqbPgSTRVaZjaQbi0L22+qE5kFm3yJAz/gNh E+bbOWvnQAk2ZDe9/QNErU+HjH3mIO19DTvxFA0MLW0lrN/MgqH0zlU591lQ sWVeVcHne9VBAerF83MgL1lidGbiNxTkCXlVBMwD88HDO80KUxD+y7FTNYoO gdUZHzMtx3GdMEo/GUeHQx/DJtXMxsG3RMozE58zyyKphfVG43D82o8loXt0 eFC2+fCC8jgYqByTX8qlg3CQHM+z1TFgBVqfbflAB+6rLYtqhWMQxLef/yQ+ 903JT0XM8Y/BWUP9/Rm4blWnSKy9NI73Lb87l27jOtt08rWb7eAIxGfSyi4/ ZIDS8Fi2dt8I5BOeSbk9ZcChYvE1XC0jQGmRmNlUjvPg0BOxFbwPWtssJ5R0 MmA6/RifyakR0PWr63krtABPW/ZK2cxS4W2m5JpKsQWwQrUfxSapYPklCHIl F6Axt153kEIFP23NvFj5BYDFRru4LirkLmVesNBagO56bT/DaiqIR0dK9R1Z gFqu7vXSkVRYytztOpWwAJW8aveY4lQwXjRK2np3Aa7nn+PUE6JCpIVeU3Dq AqgI17tcWkMF8spmeY7HCzjPOVjq/4ZB1J6fIlW2AFWGT7yI1GHYIvL9hEX3 ApgYx47eKRmGcz6diXe+LUAgx4Bm4PNhqGxqa/zevwB8RIs25+xhMDpbv8Fz dAE2e2WIWeNz5r72p0OXFhdA+8/Pey8jh+FkzJkTJRKLcEiz6sRF62HIG/BK XJReBC2N3w84Dw3DtK5ro5H8IlRvV79+33wYAkasN7SqLMKud/ahv4yH4bKJ wRBlxyJsXuK8NrV5GNL+cpwQcVqEB2/Op6wlDEOHf5pL8ONF2On14XZaDQVU EgSWz+csgt2b0cj3lRS4WhR1NyB/EfI/+Jr9K6WA7kxA6+nSRWjr6XSOfU6B dJ/92u5NiyC8fZ2QWDoFvD3+ko5QFmFgNVOf9woF3l4PeGwxugiSz05P9EZQ QDp73PDA5CLI796TWRBGgY7hrrN75xbxvYdXMTiQAnonCn4YEZgQqT4xfOUU BTgcnIpU5JmQ6J9z6pIVBZzCusyVlZhgeO3g4+nDFKhK20dVVGGC/Qkayd0C 9/9NV2KDFhM6JOdcz5pT4Ist/9V1JkxgqgYkcyE8vqDr0qKmTJD723im2YgC 1+4uVwntY8Ij7+rY+B34XtI1Ns1nyQSBpj0RoEeBjCMNthyuTHxuzU2X0qQA 0193lt2DCQYvNB+oq1PAMuHFjdVTTPB/+ZlqpkoBzs/3G5bOMmHceNQ1YxMF fA+cVZmNZMJDXSfdZjkKvPMZeztznQm8R7sblGUpIHvD0Xk6lgmB9+4/SZGm wNcP5nfGEpmg/D4gOFGSAtv3yv/rf8QEk5qYcKIoBbSftMa8z2YCV2//gQZh CmisBgiXPGNC6lE+8WghCshXvVG+VsKEuaw1T7QEKCAl7Ft2uoIJ6xI/ua/j p4DYGRFju5dMWNI9rMi1lgJrNuF628gEaXb5HHZeCnBd5fsl3MwE21MbvNau oQDbQIXXSgsTivlM1BR5KEBP4Yro6GACKXTqtT+ZAjNzheSaLiY8jx66mU2i wLiFXfKTPiYEHO90oXJRoJ8rLy9okAla+cqSlzkp0Od6eJsLlQlBdpVs/Rx4 vHXM1+bjTDiucWdmF3ab5COzbdNMuHXQhFpOxPMVZN4pRWPCYz99iiZ2w9dZ Ry46E2pHRsbLCRSo0Ugb/7PIBJFHJcxd2OVxJue+LePfV14S7GenQNHo5ErT KhPa0kV1LmPnmyTHvCCygFB7xFUd+2nGDuEUEgtud86nUtnwei8Np19awwKz Tv2f2dj3bW8qn+JnwXFjm81nsZNKtcsshVmwfmtgpCn2zbX9RobrWDDg/Iqq iB3lfb1FcT0LOsVMrfixI9+pW/HLsmB6u+InAna4fE8/U54F3bvdLdmwgyIi vChKLPi+j3OYhO3/XWn+owoLGAvslySwvXU/X6zQYEHrjf1KOtjuScHkTC0W VA639tljO83IJsfosmDS3yUlDvvovhbpAAMWXDWiOr3FtsrxzztuzIIXU4pa ZDxeC4LEtj0mLPhaMc1vi23m1Phaw5QFPX6LiwXYJjWnzMT3scD0yt8Jfjyf hmJCnewWLHhMfzYShq0bUOM4dYQFz9yyJ2ext7S7jnfZsKCY6ybzLF4fxaiy lVxHFrC1nFRPwOspRzkek3iCBQpHT1lp4PWXNOYQDjvJgna2C5d7sNcuWCtb nGaBq1rk7904fsiWK6V6Z1kQ9c9UbQ2OL0JhttGGQDz+mLIzP7AXTy5Y0sNZ kKxcz56G43GuMaO//zILvMPHLWJwvE5L7/V6f40Fjlyf0i/jeB7svncx7SYL TkteNrqN4/3Dnu156CEL3M3f+mzE+RPyPkLjUhZu772QYoQIBZTN35a/fsqC nxD8cBjnW9SBQ40GBSzgOrJQ/0WcArutTn7XrsPznXuu2ADnL70r3+VcEwvK s05tncP5/cSWNlryjgX1k1vdK+Tx89uHzWt8ZoFysWGfkxKOX5dE3s2DLLAX a39npIHXm9KT5EllQfQBgyeWW3A9cJeSyBlnwYdaa/lzWhSI8MxVVJhlQek5 ZbZeXbwefq+NpQlLcK2q7+9mXM+qwib8BTcuwT1T94klawp4rGgsHlJeAqGT QT9b7HC+Xzp/MV5tCZbPOe1/bE+B81dWY9foLOH993RisAsFtGJFn3CaLoF6 KJx+7kuBwpSd3SzPJWB/m1auE43jSzz6uL7vEiTs+Lf8Mo4CfGltQ0H+S9DB FL9lHo/rW7rdzHzIEmwb94iIu4vr69PTpJnYJZDjSddPfkqB7JLU7ZTnS9A7 rtz46i2O5+XjKn1FS5AnyRfyvAXHzx6Z9e1lS+Adfbr9SRsFXvU9/vuydgnW 7CEeKOmiQOfq8/rEj0tgsd5+M4xQgN2ibs/OqSVo3f7OTIE8DI6TlCNZKsug rVJtPYf3R3ntbJMUjWVQbFpt4bMfhvGLnttuai3DCy0/Fy3nYTgvOC0SYrAM ZRIbx1JODcMNfUbvoX3LkEAh9rZFDMPLKJLT6qlleHVuAcbz8f6uoObt9GwZ BIip2bXcVEhIumH7rGAZlpoOyIYIUIGHMGVCL1kG13Wf043XUYFt6Nn6uJpl mFsQjJ/YSIXpjE2fKj4uA0+WalglwucXSYUtfDPLINWZ6q4USoXzQpILtVp/ QVRuzkOVToWv7OQrEq/+gpkh4a0wcRRmClKdDjf8hSRj+8GpNaPAba+6I/rt X+g+d/vVR5FRQKUWdHrbXwgYv5r0WGkUCl3venT0/wX/D8/ePt83CjfeyO+P Xv0LgatVzzfeGYXd141EGCYrYDFbdDZAbQwqyOdyOj6swEHfvcUh/uOgJirg 7dr8D768m2hwJE7Bn/gFkW09q1Cxi7v57N/foBAdrXnGmw3d1wk6/c+NBhT7 H99NxtjQ9oeOuZZls2A20smq8GNHg7UXEu8vz8FF1fiwIn92FJ0vc52TbR5K z5qt5AWwo8oE92tnOOZh/b9XbA+D2FHte6dUA755mBHLIV2JYEeiXDffvZCZ hztmIaIW8eyo+4TEtX9oHgafS20dLWBHeWnGYyZX50F0rqd0oIgdLW2oubI/ eh726SdqfythR22fj7QdvjEPZW859dsq2NFHM6LzkeR5iOqfMS59zY7I9/z0 VJ7Mgxp/44GIT+xotqPRU79pHkICTnqJ/WZHam3vJSpW5iFm/4ynwR/8OSWo +QE7He5tDPZ0mmVHDOZetQhOOlT2xHjkMNiR9t9Psrp8dJg3eOGu+48dKTkw LQKk6OBHnHex5SegHgEZNwkDOrjduXwsZSsBsXU3yAgE0CHgNPexmm0ElFHm teIVSIcrpklHf+kQUJca757XIXTIYj6xUzIgoLo0d66j+P70y+G9TaUJAa3q nRCxvUmHo4prLXusCIghlBAdkE0Hi8oH+8SCCGiE/MNAtosOXvOuq6IhBKQp t7ayFN/nrm5RKRcNJSAlYdbyzm/4PpdfLS0aQUCJoUyK1S86yGd204SjCGhQ PG159zgdFqL57wmmEJDvHweb48t0EGju2S94n4A+RGz8k79CB1VCBptgGn6e 6oc7F1bp4BKu5i2QQUBmtDLey/i+2epvbsSfQ0DdL9g2uOB7Q8axq8O8lfj3 B13Cj8j8d2/Yd5+3moCMi1O0HeQY0NkpeJC3hoCOOb275yrPALJFVuWaOjwf MUYOrkoMCDB5HcvzjoB+yeW0qmswwFR1UZPcQ0Bv9lwtnzdkgItXHZXUR0Au BQc6qo0ZEJZ9PZX0nYCsOUpvXUAMKJYVIZJ+EdDR3MSp3/g+LimytYdzlIBK zE8oP97HgJm/3uHEBQKKrb5gr2/HgGNH929mLRKQm+Su30VHGfC2TLVnhkVA pZTdZgr2DEj1ntb8vkJAQ+ZWtisODNjdd3q4mJOIxtKUP0e4MvC9yn+fkygR 9Q/YKFb5MoCL/8ii1Toiorec3jp1mgH+3lufmksQ0fK7dZzrz+DxbJhb0ZYm Ig3160S/swyYiz9XskaRiMYjHVyGAhlg5h0k/lKbiJ5zfn+zcpEBZc22zYW6 RLTt3j+HmQgGyGzQC3iqT0QNN4Uav19iwHzv4sfbhkTk+cFnKicSz/+eC5c8 dhORvWdIJ+91BnA/OqbmYEpE2WsT239gn/+7/dsRMyKKff/uXk4UA8zLlrSM DhBRe6FPimYMA+hy4aPC1kT0pyzPkv8GA5zDHZK5bYnoy7UHba+wW3sN0aod EVHLe8Q9bjIgM34ldfI4EVl/jlJ5cYsBPJP9poOORJTSrzNrFo/721M33+1M ROTERzeHsPf9jTjY6EZEMicsdnMlMKDCznmp8iQR8ZMmTiRhy5VB7gtPIhpx nbeVTGTAwik29vs+RFRpp9MqncSAR72R5X7niOh+6PHJuWQGjDZvGYgPJCJh D81KD3xPVSsf4C4KJiIG8d3TbuzKBCPnP2FEFCwQNfP0LgP+RkzH8kcQEdpJ 2c+ZwoCdpx+Ua14mIq9sjw4X7DZzFrf/NSKaPBpjxX2PAUL6edoJUbh9xavW tth2SnbOxTFE9EzyRGQG9kMRrriOOCI6stvpxxA2hVBRTrtJRKLLtW5y+J6s POs2IHCbiBKoDevtsU8PCPFsTSSitbPVHP/do0s/NWofSSaizGMM2XpsZq2/ 89m7RKSe0eY3iW2cLxuXeI+I4q6mzQmkMuDq/fbyklQiOi/Y8EILuyXq4sCX B0T0IOFJxiHstYFqPHPpRJQaU/zBE9vK7Ye2UBYRjb620wzDvn8kzlnrMRF9 1OT/8t/73V+wPc7yKREdELMs/u/9r4LGeHlADl6vwaz2/94Pe0ndG0jKI6L1 WyLV/3t/XMhjylOWT0TzPy6238GeZ9K1O18QkeKEUtkNbP2xJ87zhUSkf0Ow /yJ2RLdlnHAJEflu6Dvog/3mDXvFtjIiitCWJP33vphcWjxgVUFEx8+H8+hj W2Q585yvIqKBirxj67DvxK/VufOSiC7TDi7M4vn4Fv7aubyWiBZ2yFHeY8v4 +MZ1vcbx8qlPJhXb/dj6Cno9EQUu6hSexH62t3VApAnHs/xyovp/7+d1LvDo vCWiw19oH2l4vS4I9ToHthDRBeln5qew69ii4u62ElGSuFiiDDbHH+2KijYi 0jxA1v2M4yP+YxLPQgeO/1Ryljx218udOmKdeD3dJryacXxJ5NGcdbuJqOw1 PcUN++k1i4qgb0QUmuKpkoTjcTJgZSDlBxFdbfqQLI+teeIFT1U/Hl/Pfu9C HM81Rjwui0NEVFvww6Max/uq6su4dVQiIrasSdTF3i3pVaE3ivM/IGtLMc6P zwvNPCGTRKS1L6DvLs4fkZHzOvenieiWDIvKjm3fqeBSPYPrUVvwmVO3GUAt iqxgzuHnf6FIUsX5uORl5HJhmYhqHny5FILze1+tCgpcISIDiVDZT3G4vvGJ y51dxfkccWlIGtuwdG7Ai8iB+FtRVxmuFxHLuc5H13Cg9j/N+SW4vrQfvAvW fBxIrsU9eewaA2Szrsge5udAlTkrBRLYDbsdB/YKcyBPmmZkwBUGEOOFnPXW c6CTir/6FnB9sx5cNd4mzYEcn4fFrcV+qvVbRlOWA9EGkiPkcT007X3/S0mB A73RqdKFMAbEyF10ElPlQK6VsgoHghnAWzbmyDDgQGXmp79X+DHAgbPbaNaQ A10oUq1JwvW4wK5J+rcxB2rrW1n1wfXa4u/DfqoJB1rbv/29sDcDEvZYOnbt 40AyBYej9E/i+ex75VBmz4GuJ1YN9+H9QHol8fjZUA7U7ND2LArvL2aUgy/v hXOgV+edLDt34nr3nntdXQQH2t5eIiuF96PWxMivPFc5kJRArO5jvH8FKZ01 f3qDA3V52FVd1mFAx6HDer0POZBx8i3FOLz/XXm8VtiongPnk9qVcU78vNGt /m6NHOhOt31bA5EBfb5R7bFv8Od6CqV32Rmgofcvtuc9B4pbZ+eig/frHx9/ s/l3cCDeg32VB+h00Ga0zTwe4kBLJf2dv4boMLr3RiuZgxNxJBRUFdTQwXW/ i5wiFycKkLM1V6+mQ7+FTtBOMicSjPsrml9Bhy6bgQ2hvJyoSKnO/0ExHZrc tl2YEuFEqtu4shxz6JB+6cemdkVOtNk785ZbIh2sq1SvJ+/lRDtu1bsnn6TD G6U2kLnBiTwZMltDSHTwJudwbODmQoJpb0Jy985DVdZGozeJXOiUaHv8uN8c tO8wbLYUJKGjf106+QtmIa46cNlUmIQcFC9JGOXPwl6doq07RElI591qm0/u LDRoyGcoSJDQx/lDsZ8ezULZBnIwXY6E1tZ1lz5OmYX7pC7llC0kFPrWOSvl 8iy4dfrc/HaIhMIqzLRqbWZB7nB206cjJGQUudtJymoWfrb9YjZakZDlOaLj pcOzYPvuyMl8OxIyixj9tW8/Pv++1DMOcyahUwZXzJhoFjQyiTSpMyS0RtP3 YJHaLDC9H1i5xJNQjplHwGPOWbgd+oR0KYGElLZd0BEgzoJS3PPa9CQSckYD cZfZZsHmWa3CjxQSqm69vuS1TIPSsR/zNpkkNOR29+CxWRr4ukvd2V+Mx7/O 5GVNPw0GHdO7dL+S0P2I94n3qmkQfDo7xqaLhK6eqRVwqqTB2osFhud7SCjI tT52UzkNjB6+flrynYS0F4cD3xTRIO17/3m1YRLKqNCMlc2lgbWdjKg8nYTy h2PkfVJo0HI404ZPjIzaThwMdAumgffbkTqSOBl9Kb4/VRBIAz59NWWCJBnN eezas3yOBpayL5cWpMkoRys7P8OfBj9+f80cVCSjeGuH82RvGszEcU2W6ZBR 699dhaccaZDw74BVoR4ZxRjs3Dl8nAbbApJf5W0nox6lN93O9jQIOSZ3O92I jEpM3Hhc7WhAUDbQjt5DRg9sir/GHaGBaPPpCHsbMjqxP+XoGVMaVOuXj1nb kdFWHpkOiT00sH+xdPjQMTKiPm1ye7+LBhnJ0Qq7HcmIcD12RHUnDZRdH7Wo nySjDLLlRUlDGhiudgmxB5JRwlznrttaNPgVsD58OYiM3h6Q1vDdSoPI0RMj jBAySoo6t//AFhq8+zRTNRlORrIHL28U06DBoYdkx65rZCQQ+/Ncx2YauG43 zM29g//efm/q4AYanPr9ifEzhYwOrVbkd8vRwP+R826hVDKaZ/ve0S5Lg0vc V4fC08mIn7XlxCdpGjz89mG9ZQ6e/z02NcsSNHhy67h3dB4ZzYx+TRXEzt/5 u/pVPhnVJJilqorT4OUzAdtNRWT089n+FR8xGvRcsEv4W0VGmeKF4TLCNOhX n/i1tYaMnooKX7IRogF1KFTd8xUZ6RG3PU8QpMG8eUbrlwYy+nVN6LqwAA0E JEc4cj+QUfZnDsf9fDRY1x5k9fMjGXHtlfv4hJcGMlfIjwXbyci9VteHDVt9 UhXCv5JR6Vb2Pe94aLCvJuDCkR9k9F32TPA1Mg2O+HG0RPWTUWX/n1v/SDQ4 Kp8i9mqAjDzVlPrDsT3jXpYpUcmoOP+hchQXDfyM9xMcRnG8bTBREsQOmvt5 OHGcjKSqPJ2zOGlwzZ5tZnmajNbY10R95KDBjbVJhlv/kNHNjPVBnthJTQo3 PGbJyPf0ySck7Ecqe5W/MMjo5LXel9ZEGuT96gviYpLR7u+Ep+zYxUnezTuW cHx2SbWXEmhQt3TLNecfni/5geEN2M2FsiU/2LiRkumxjgF2GrS5lqwKELlR RsHJf4+wu8R2WZhycqN73xz9vLB/tHY9DCNxI3e5u3LbsCkRHlPF3NzoacFR UQL2pBZz++gabsSM/HOgm40Gs6OxMevXcqOUgLT3L7CZaet7Dwtwo1XlO9dj sFctChSjhLhRnbxgtBc2FxHO14pwI3IJtB3A5qvqaKKJcaMs5l4bnf/+v9HH VVBJAj/f7H55eez1snTn4+u5kban5zZhbPnO64UJ0tzo4WJRDBlbJXrdSrMs N/ojrCNPwN6649n+5Q3c6P//z/k/WZxl5Q== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0.56}, Method->{}, PlotRange-> NCache[{{0, Pi}, {0.5625001534664543, 1.3499998855606623`}}, {{ 0, 3.141592653589793}, {0.5625001534664543, 1.3499998855606623`}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.586713408673763*^9, 3.586715114393463*^9, 3.586718208223277*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Quando uma fun\[CCedilla]\[ATilde]o exige v\[AAcute]rias linhas: a declara\ \[CCedilla]\[ATilde]o Module[ ]\ \>", "Subsubsection", CellChangeTimes->{{3.5867134348634357`*^9, 3.5867134592404556`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"parms", "[", RowBox[{"x0_", ",", "\[Sigma]0_", ",", "n_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "u", "}"}], ",", RowBox[{ RowBox[{"u", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"x0", ",", "\[Sigma]0"}], "]"}], ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Mean", "[", "u", "]"}], ",", RowBox[{"StandardDeviation", "[", "u", "]"}], ",", RowBox[{ RowBox[{"Max", "[", "u", "]"}], "-", RowBox[{"Min", "[", "u", "]"}]}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.586713467850543*^9, 3.586713625051072*^9}}], Cell["\<\ todas as vari\[AAcute]veis da lista que est\[AAcute] na primeira linha de um \ Module s\[ATilde]o locais\ \>", "Text", CellChangeTimes->{{3.5867137385136003`*^9, 3.5867137822828526`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"parms", "[", RowBox[{"20", ",", "3", ",", "1000"}], "]"}]], "Input", CellChangeTimes->{{3.5867136306609106`*^9, 3.5867136512251167`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "19.959635372165828`", ",", "3.0885800316339203`", ",", "18.91341758468507`"}], "}"}]], "Output", CellChangeTimes->{{3.5867136395211873`*^9, 3.586713651928297*^9}, 3.5867151144089985`*^9, 3.586718208238903*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"parms", "[", RowBox[{"20", ",", "3", ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"{", RowBox[{"10", ",", "100", ",", "1000", ",", "10000", ",", "100000"}], "}"}]}], "}"}]}], "]"}], "//", "TableForm"}]], "Input", CellChangeTimes->{{3.5867136570693493`*^9, 3.5867136977758493`*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"18.442143331499285`", "2.5847710270798903`", "8.93751318102709`"}, {"19.682354494035042`", "3.2033721680934457`", "15.45191829153794`"}, {"20.30555435631184`", "2.985307648091702`", "17.682067293655678`"}, {"19.992118927576712`", "3.006945995678431`", "22.858344406801912`"}, {"19.990174417902`", "2.993580837044136`", "25.660501850202852`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.586713686899945*^9, 3.5867136984634037`*^9}, 3.5867151144246244`*^9, 3.586718208254529*^9}] }, Open ]], Cell["Uma fun\[CCedilla]\[ATilde]o pode usar outra", "Text", CellChangeTimes->{{3.586713799221757*^9, 3.586713831052519*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"interval", "[", "n_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "umais", ",", "umenos", ",", RowBox[{"x", "=", "20"}], ",", RowBox[{"\[Sigma]", "=", "3"}]}], "}"}], ",", RowBox[{ RowBox[{"u", "=", RowBox[{"parms", "[", RowBox[{"x", ",", "\[Sigma]", ",", "n"}], "]"}]}], ";", RowBox[{"umais", "=", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "2", "]"}], "]"}], "/", RowBox[{"Sqrt", "[", "n", "]"}]}]}]}], ";", RowBox[{"umenos", "=", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "2", "]"}], "]"}], "/", RowBox[{"Sqrt", "[", "n", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"umenos", "<", "x", "<", "umais"}], ",", "1", ",", "0"}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5867138415690165`*^9, 3.5867140487893124`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"interval", "[", "3", "]"}]], "Input", CellChangeTimes->{{3.586714052383528*^9, 3.586714055321105*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.586714056071164*^9, 3.5867151144402533`*^9, 3.5867182082701545`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"interval", "[", "100", "]"}], ",", RowBox[{"{", "1000", "}"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.5867140591339216`*^9, 3.5867140835265675`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Total", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.586714087120616*^9, 3.586714090886553*^9}}], Cell[BoxData["679"], "Output", CellChangeTimes->{3.5867140916991186`*^9, 3.586715114487131*^9, 3.586718208332659*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"probabilidade", "[", RowBox[{"dadosPorConjunto_", ",", "historias_"}], "]"}], ":=", RowBox[{"100", RowBox[{"Round", "[", " ", RowBox[{ RowBox[{ RowBox[{"Total", "[", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"interval", "[", "dadosPorConjunto", "]"}], ",", RowBox[{"{", "historias", "}"}]}], "]"}], " ", "]"}], "/", "historias"}], ",", "0.001"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.586714106090938*^9, 3.58671427432363*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"probabilidade", "[", RowBox[{"100", ",", "1000"}], "]"}]], "Input", CellChangeTimes->{{3.586714285840208*^9, 3.586714293762741*^9}}], Cell[BoxData["69.30000000000001`"], "Output", CellChangeTimes->{{3.586714294590932*^9, 3.5867143013258657`*^9}, 3.586715114565261*^9, 3.5867182083795395`*^9}] }, Open ]], Cell["\<\ agora, acompanhando com o calculo do desvio-padrao do numero de sucessos\ \>", "Text", CellChangeTimes->{{3.5867143167490206`*^9, 3.5867143503611813`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"probMCvsT", "[", RowBox[{"dadosPorConjunto_", ",", "historias_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "s"}], "}"}], ",", RowBox[{ RowBox[{"n", "=", RowBox[{"Total", "[", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"interval", "[", "dadosPorConjunto", "]"}], ",", RowBox[{"{", "historias", "}"}]}], "]"}], " ", "]"}]}], " ", ";", RowBox[{"s", "=", RowBox[{"Sqrt", "[", RowBox[{"n", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"n", "/", "historias"}]}], ")"}]}], "]"}]}], ";", RowBox[{"Round", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"100", " ", RowBox[{"n", "/", "historias"}]}], ",", RowBox[{"100", RowBox[{"s", "/", "historias"}]}]}], "}"}], ",", "0.1"}], "]"}]}]}], " ", "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.586714374503806*^9, 3.58671478367834*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"probMCvsT", "[", RowBox[{"9", ",", "10000"}], "]"}]], "Input", CellChangeTimes->{{3.58671460832006*^9, 3.5867146208679743`*^9}, 3.5867146804197845`*^9, 3.586714741456093*^9, {3.586714799070241*^9, 3.586714812040066*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"65.4`", ",", "0.5`"}], "}"}]], "Output", CellChangeTimes->{ 3.5867146215711555`*^9, {3.5867146757006407`*^9, 3.5867146819824095`*^9}, { 3.586714722235747*^9, 3.586714742659314*^9}, {3.586714788944401*^9, 3.586714812758874*^9}, 3.5867151149090414`*^9, 3.5867182087389426`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"probMCvsT", "[", RowBox[{"n", ",", "1000"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "30"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5867148167279563`*^9, 3.5867149125015182`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"{", RowBox[{"48.1`", ",", "1.6`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"{", RowBox[{"59.`", ",", "1.6`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", RowBox[{"{", RowBox[{"61.`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", RowBox[{"{", RowBox[{"60.6`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", RowBox[{"{", RowBox[{"63.400000000000006`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", RowBox[{"{", RowBox[{"66.10000000000001`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", RowBox[{"{", RowBox[{"62.300000000000004`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", RowBox[{"{", RowBox[{"67.7`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"{", RowBox[{"63.900000000000006`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", RowBox[{"{", RowBox[{"65.3`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", RowBox[{"{", RowBox[{"66.5`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", RowBox[{"{", RowBox[{"64.9`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", RowBox[{"{", RowBox[{"65.60000000000001`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", RowBox[{"{", RowBox[{"68.4`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", RowBox[{"{", RowBox[{"63.900000000000006`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", RowBox[{"{", RowBox[{"67.`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", RowBox[{"{", RowBox[{"66.5`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", RowBox[{"{", RowBox[{"68.60000000000001`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", RowBox[{"{", RowBox[{"65.5`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", RowBox[{"{", RowBox[{"64.3`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", RowBox[{"{", RowBox[{"66.60000000000001`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", RowBox[{"{", RowBox[{"67.8`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", RowBox[{"{", RowBox[{"68.7`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{"{", RowBox[{"68.3`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", RowBox[{"{", RowBox[{"70.4`", ",", "1.4000000000000001`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", RowBox[{"{", RowBox[{"67.5`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", RowBox[{"{", RowBox[{"66.60000000000001`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", RowBox[{"{", RowBox[{"69.2`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", RowBox[{"{", RowBox[{"66.5`", ",", "1.5`"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.58671491484546*^9, 3.5867151164247913`*^9, 3.586718210285947*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"res", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"n", ",", RowBox[{"probMCvsT", "[", RowBox[{"n", ",", "1000"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5867149335970163`*^9, 3.5867149392849836`*^9}, { 3.586714986038862*^9, 3.5867149869764404`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "50.2`", ",", "1.6`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "59.6`", ",", "1.6`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "58.5`", ",", "1.6`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "63.6`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "63.400000000000006`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "64.7`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "66.2`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "63.300000000000004`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "66.4`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "65.4`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "67.2`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "67.`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "69.`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "66.7`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "67.60000000000001`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "64.4`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "65.9`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "67.8`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "66.9`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "66.3`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "66.60000000000001`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "68.4`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "67.`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "69.8`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "67.5`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "66.8`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "66.8`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "65.8`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "67.8`", ",", "1.5`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5867149425508804`*^9, 3.5867149924300146`*^9, 3.586715117971795*^9, 3.5867182118642025`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.5867149467387304`*^9, 3.5867149594429083`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ErrorListPlot", "[", RowBox[{"res", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.5867149629431963`*^9, 3.5867150031027765`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBWIQDQUOs2YCgaSnA4TL4XD2DAj4QvkCENoBxheByvtD +RIOJsZAsBnGl4HI6wRA+QoQfg+Mr+SQngYEy2DqVSD2z4TJq0H4kTC+BtQ+ GF8LQh+A8XWg7guE8vUg6tfA5A0g9j2D8Q2h/oXxjSD8Shjf2AHkHePPML4J RH4njG8KkZ8M45tB/QPjm0PNh7nHAs29lhD9xTB5Kwj9ACZvDZHfDOPboPFt ofphfDu4ewGZaWm2 "]], {{LineBox[{{2., 51.800000000000004`}, {2., 48.6}}], LineBox[{Offset[{1.5, 0}, {2., 51.800000000000004`}], Offset[{-1.5, 0}, {2., 51.800000000000004`}]}], LineBox[{Offset[{1.5, 0}, {2., 48.6}], Offset[{-1.5, 0}, {2., 48.6}]}]}, {LineBox[{{3., 61.2}, {3., 58.}}], LineBox[{Offset[{1.5, 0}, {3., 61.2}], Offset[{-1.5, 0}, {3., 61.2}]}], LineBox[{Offset[{1.5, 0}, {3., 58.}], Offset[{-1.5, 0}, {3., 58.}]}]}, { LineBox[{{4., 60.1}, {4., 56.9}}], LineBox[{Offset[{1.5, 0}, {4., 60.1}], Offset[{-1.5, 0}, {4., 60.1}]}], LineBox[{Offset[{1.5, 0}, {4., 56.9}], Offset[{-1.5, 0}, {4., 56.9}]}]}, {LineBox[{{5., 65.1}, {5., 62.1}}], LineBox[{Offset[{1.5, 0}, {5., 65.1}], Offset[{-1.5, 0}, {5., 65.1}]}], LineBox[{Offset[{1.5, 0}, {5., 62.1}], Offset[{-1.5, 0}, {5., 62.1}]}]}, { LineBox[{{6., 64.9}, {6., 61.900000000000006`}}], LineBox[{Offset[{1.5, 0}, {6., 64.9}], Offset[{-1.5, 0}, {6., 64.9}]}], LineBox[{Offset[{1.5, 0}, {6., 61.900000000000006`}], Offset[{-1.5, 0}, {6., 61.900000000000006`}]}]}, { LineBox[{{7., 66.2}, {7., 63.2}}], LineBox[{Offset[{1.5, 0}, {7., 66.2}], Offset[{-1.5, 0}, {7., 66.2}]}], LineBox[{Offset[{1.5, 0}, {7., 63.2}], Offset[{-1.5, 0}, {7., 63.2}]}]}, {LineBox[{{8., 67.7}, {8., 64.7}}], LineBox[{Offset[{1.5, 0}, {8., 67.7}], Offset[{-1.5, 0}, {8., 67.7}]}], LineBox[{Offset[{1.5, 0}, {8., 64.7}], Offset[{-1.5, 0}, {8., 64.7}]}]}, { LineBox[{{9., 64.80000000000001}, {9., 61.800000000000004`}}], LineBox[{Offset[{1.5, 0}, {9., 64.80000000000001}], Offset[{-1.5, 0}, {9., 64.80000000000001}]}], LineBox[{Offset[{1.5, 0}, {9., 61.800000000000004`}], Offset[{-1.5, 0}, {9., 61.800000000000004`}]}]}, { LineBox[{{10., 67.9}, {10., 64.9}}], LineBox[{Offset[{1.5, 0}, {10., 67.9}], Offset[{-1.5, 0}, {10., 67.9}]}], LineBox[{Offset[{1.5, 0}, {10., 64.9}], Offset[{-1.5, 0}, {10., 64.9}]}]}, { LineBox[{{11., 66.9}, {11., 63.900000000000006`}}], LineBox[{Offset[{1.5, 0}, {11., 66.9}], Offset[{-1.5, 0}, {11., 66.9}]}], LineBox[{Offset[{1.5, 0}, {11., 63.900000000000006`}], Offset[{-1.5, 0}, {11., 63.900000000000006`}]}]}, { LineBox[{{12., 68.7}, {12., 65.7}}], LineBox[{Offset[{1.5, 0}, {12., 68.7}], Offset[{-1.5, 0}, {12., 68.7}]}], LineBox[{Offset[{1.5, 0}, {12., 65.7}], Offset[{-1.5, 0}, {12., 65.7}]}]}, { LineBox[{{13., 68.5}, {13., 65.5}}], LineBox[{Offset[{1.5, 0}, {13., 68.5}], Offset[{-1.5, 0}, {13., 68.5}]}], LineBox[{Offset[{1.5, 0}, {13., 65.5}], Offset[{-1.5, 0}, {13., 65.5}]}]}, { LineBox[{{14., 70.5}, {14., 67.5}}], LineBox[{Offset[{1.5, 0}, {14., 70.5}], Offset[{-1.5, 0}, {14., 70.5}]}], LineBox[{Offset[{1.5, 0}, {14., 67.5}], Offset[{-1.5, 0}, {14., 67.5}]}]}, { LineBox[{{15., 68.2}, {15., 65.2}}], LineBox[{Offset[{1.5, 0}, {15., 68.2}], Offset[{-1.5, 0}, {15., 68.2}]}], LineBox[{Offset[{1.5, 0}, {15., 65.2}], Offset[{-1.5, 0}, {15., 65.2}]}]}, { LineBox[{{16., 69.10000000000001}, {16., 66.10000000000001}}], LineBox[{Offset[{1.5, 0}, {16., 69.10000000000001}], Offset[{-1.5, 0}, {16., 69.10000000000001}]}], LineBox[{Offset[{1.5, 0}, {16., 66.10000000000001}], Offset[{-1.5, 0}, {16., 66.10000000000001}]}]}, { LineBox[{{17., 65.9}, {17., 62.900000000000006`}}], LineBox[{Offset[{1.5, 0}, {17., 65.9}], Offset[{-1.5, 0}, {17., 65.9}]}], LineBox[{Offset[{1.5, 0}, {17., 62.900000000000006`}], Offset[{-1.5, 0}, {17., 62.900000000000006`}]}]}, { LineBox[{{18., 67.4}, {18., 64.4}}], LineBox[{ Offset[{1.5, 0}, {18., 67.4}], Offset[{-1.5, 0}, {18., 67.4}]}], LineBox[{Offset[{1.5, 0}, {18., 64.4}], Offset[{-1.5, 0}, {18., 64.4}]}]}, { LineBox[{{19., 69.3}, {19., 66.3}}], LineBox[{Offset[{1.5, 0}, {19., 69.3}], Offset[{-1.5, 0}, {19., 69.3}]}], LineBox[{Offset[{1.5, 0}, {19., 66.3}], Offset[{-1.5, 0}, {19., 66.3}]}]}, { LineBox[{{20., 68.4}, {20., 65.4}}], LineBox[{Offset[{1.5, 0}, {20., 68.4}], Offset[{-1.5, 0}, {20., 68.4}]}], LineBox[{Offset[{1.5, 0}, {20., 65.4}], Offset[{-1.5, 0}, {20., 65.4}]}]}, { LineBox[{{21., 67.8}, {21., 64.8}}], LineBox[{Offset[{1.5, 0}, {21., 67.8}], Offset[{-1.5, 0}, {21., 67.8}]}], LineBox[{Offset[{1.5, 0}, {21., 64.8}], Offset[{-1.5, 0}, {21., 64.8}]}]}, { LineBox[{{22., 68.10000000000001}, {22., 65.10000000000001}}], LineBox[{Offset[{1.5, 0}, {22., 68.10000000000001}], Offset[{-1.5, 0}, {22., 68.10000000000001}]}], LineBox[{Offset[{1.5, 0}, {22., 65.10000000000001}], Offset[{-1.5, 0}, {22., 65.10000000000001}]}]}, { LineBox[{{23., 69.9}, {23., 66.9}}], LineBox[{Offset[{1.5, 0}, {23., 69.9}], Offset[{-1.5, 0}, {23., 69.9}]}], LineBox[{Offset[{1.5, 0}, {23., 66.9}], Offset[{-1.5, 0}, {23., 66.9}]}]}, { LineBox[{{24., 68.5}, {24., 65.5}}], LineBox[{Offset[{1.5, 0}, {24., 68.5}], Offset[{-1.5, 0}, {24., 68.5}]}], LineBox[{Offset[{1.5, 0}, {24., 65.5}], Offset[{-1.5, 0}, {24., 65.5}]}]}, { LineBox[{{25., 71.3}, {25., 68.3}}], LineBox[{Offset[{1.5, 0}, {25., 71.3}], Offset[{-1.5, 0}, {25., 71.3}]}], LineBox[{Offset[{1.5, 0}, {25., 68.3}], Offset[{-1.5, 0}, {25., 68.3}]}]}, {LineBox[{{26., 69.}, {26., 66.}}], LineBox[{Offset[{1.5, 0}, {26., 69.}], Offset[{-1.5, 0}, {26., 69.}]}], LineBox[{ Offset[{1.5, 0}, {26., 66.}], Offset[{-1.5, 0}, {26., 66.}]}]}, { LineBox[{{27., 68.3}, {27., 65.3}}], LineBox[{Offset[{1.5, 0}, {27., 68.3}], Offset[{-1.5, 0}, {27., 68.3}]}], LineBox[{Offset[{1.5, 0}, {27., 65.3}], Offset[{-1.5, 0}, {27., 65.3}]}]}, { LineBox[{{28., 68.3}, {28., 65.3}}], LineBox[{Offset[{1.5, 0}, {28., 68.3}], Offset[{-1.5, 0}, {28., 68.3}]}], LineBox[{Offset[{1.5, 0}, {28., 65.3}], Offset[{-1.5, 0}, {28., 65.3}]}]}, { LineBox[{{29., 67.3}, {29., 64.3}}], LineBox[{Offset[{1.5, 0}, {29., 67.3}], Offset[{-1.5, 0}, {29., 67.3}]}], LineBox[{Offset[{1.5, 0}, {29., 64.3}], Offset[{-1.5, 0}, {29., 64.3}]}]}, { LineBox[{{30., 69.3}, {30., 66.3}}], LineBox[{Offset[{1.5, 0}, {30., 69.3}], Offset[{-1.5, 0}, {30., 69.3}]}], LineBox[{Offset[{1.5, 0}, {30., 66.3}], Offset[{-1.5, 0}, {30., 66.3}]}]}}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{2., 50.2}, Method->{}, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.586714972990904*^9, 3.5867150044153833`*^9, 3.5867151180655518`*^9, 3.586718211958191*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"intervalN", "[", RowBox[{"n_", ",", "m_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "umais", ",", "umenos", ",", RowBox[{"x", "=", "20"}], ",", RowBox[{"\[Sigma]", "=", "3"}]}], "}"}], ",", RowBox[{ RowBox[{"u", "=", RowBox[{"parms", "[", RowBox[{"x", ",", "\[Sigma]", ",", "n"}], "]"}]}], ";", RowBox[{"umais", "=", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"m", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "2", "]"}], "]"}], "/", RowBox[{"Sqrt", "[", "n", "]"}]}]}]}]}], ";", RowBox[{"umenos", "=", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"m", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "2", "]"}], "]"}], "/", RowBox[{"Sqrt", "[", "n", "]"}]}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"umenos", "<", "x", "<", "umais"}], ",", "1", ",", "0"}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5867151394423275`*^9, 3.586715163663084*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"intervalN", "[", RowBox[{"3", ",", "2"}], "]"}], ",", RowBox[{"{", "100", "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.586715345678169*^9, 3.5867153679143853`*^9}, { 3.586715399401371*^9, 3.5867154171059628`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output", CellChangeTimes->{{3.5867153650235195`*^9, 3.5867153689926004`*^9}, 3.5867154179185286`*^9, 3.5867182119735875`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"probMCvsTN", "[", RowBox[{"dadosPorConjunto_", ",", "numeroDeSigmas_", ",", "historias_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "s"}], "}"}], ",", RowBox[{ RowBox[{"n", "=", RowBox[{"Total", "[", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"intervalN", "[", RowBox[{"dadosPorConjunto", ",", "numeroDeSigmas"}], "]"}], ",", RowBox[{"{", "historias", "}"}]}], "]"}], " ", "]"}]}], " ", ";", RowBox[{"s", "=", RowBox[{"Sqrt", "[", RowBox[{"n", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"n", "/", "historias"}]}], ")"}]}], "]"}]}], ";", RowBox[{"Round", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"100", " ", RowBox[{"n", "/", "historias"}]}], ",", RowBox[{"100", RowBox[{"s", "/", "historias"}]}]}], "}"}], ",", "0.1"}], "]"}]}]}], " ", "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.586715237059792*^9, 3.5867152693593435`*^9}, 3.586715467532017*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"probMCvsTN", "[", RowBox[{"3", ",", "2", ",", "10"}], "]"}]], "Input", CellChangeTimes->{{3.586715435529365*^9, 3.5867154526870365`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"70.`", ",", "14.5`"}], "}"}]], "Output", CellChangeTimes->{{3.5867154534996023`*^9, 3.586715470751034*^9}, 3.586718211989213*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"res2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"n", ",", RowBox[{"probMCvsTN", "[", RowBox[{"n", ",", "2", ",", "1000"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.586715290595479*^9, 3.5867153165507545`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "69.10000000000001`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "81.`", ",", "1.2000000000000002`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "86.80000000000001`", ",", "1.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "89.7`", ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "91.30000000000001`", ",", "0.9`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "91.60000000000001`", ",", "0.9`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "90.60000000000001`", ",", "0.9`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "92.30000000000001`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "92.7`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "94.2`", ",", "0.7000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "92.9`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "92.5`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "93.`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "92.2`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "94.2`", ",", "0.7000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "93.60000000000001`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "94.5`", ",", "0.7000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "93.9`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "94.10000000000001`", ",", "0.7000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "93.9`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "92.9`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "94.`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "95.9`", ",", "0.6000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "94.9`", ",", "0.7000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "93.9`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "95.2`", ",", "0.7000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "94.5`", ",", "0.7000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "94.4`", ",", "0.7000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "95.9`", ",", "0.6000000000000001`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.5867153082219367`*^9, 3.586715317691472*^9}, 3.586715475126394*^9, 3.5867182135830946`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ErrorListPlot", "[", RowBox[{"res2", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.586715478892333*^9, 3.5867154946436386`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBWIQDQUO6WlA4BboAOFyQGiHEChfwMHEGAg2h0L5Ig5n zwBBThiULwGRvwzjy0DMewbjK0D4y2B8JYh64XAoXwVing6Mrwbh98D4Gg6z ZgKBJYyvBaEVYHwdqHthfD2Ifh4Y3wDNPEOIe9JgfCMIvQDGN4bYVwnjm0DU t8H4pmjyZmjuM4fQDTC+BUT+J4xvCeHvhPGt0Myzhrj3DIxvg+Y+W4j6mTC+ Hdx8AEnVbR8= "]], {{LineBox[{{2., 70.60000000000001}, {2., 67.60000000000001}}], LineBox[{Offset[{1.5, 0}, {2., 70.60000000000001}], Offset[{-1.5, 0}, {2., 70.60000000000001}]}], LineBox[{Offset[{1.5, 0}, {2., 67.60000000000001}], Offset[{-1.5, 0}, {2., 67.60000000000001}]}]}, { LineBox[{{3., 82.2}, {3., 79.8}}], LineBox[{Offset[{1.5, 0}, {3., 82.2}], Offset[{-1.5, 0}, {3., 82.2}]}], LineBox[{Offset[{1.5, 0}, {3., 79.8}], Offset[{-1.5, 0}, {3., 79.8}]}]}, { LineBox[{{4., 87.9}, {4., 85.70000000000002}}], LineBox[{Offset[{1.5, 0}, {4., 87.9}], Offset[{-1.5, 0}, {4., 87.9}]}], LineBox[{Offset[{1.5, 0}, {4., 85.70000000000002}], Offset[{-1.5, 0}, {4., 85.70000000000002}]}]}, { LineBox[{{5., 90.7}, {5., 88.7}}], LineBox[{Offset[{1.5, 0}, {5., 90.7}], Offset[{-1.5, 0}, {5., 90.7}]}], LineBox[{Offset[{1.5, 0}, {5., 88.7}], Offset[{-1.5, 0}, {5., 88.7}]}]}, { LineBox[{{6., 92.20000000000002}, {6., 90.4}}], LineBox[{Offset[{1.5, 0}, {6., 92.20000000000002}], Offset[{-1.5, 0}, {6., 92.20000000000002}]}], LineBox[{Offset[{1.5, 0}, {6., 90.4}], Offset[{-1.5, 0}, {6., 90.4}]}]}, { LineBox[{{7., 92.50000000000001}, {7., 90.7}}], LineBox[{Offset[{1.5, 0}, {7., 92.50000000000001}], Offset[{-1.5, 0}, {7., 92.50000000000001}]}], LineBox[{Offset[{1.5, 0}, {7., 90.7}], Offset[{-1.5, 0}, {7., 90.7}]}]}, { LineBox[{{8., 91.50000000000001}, {8., 89.7}}], LineBox[{Offset[{1.5, 0}, {8., 91.50000000000001}], Offset[{-1.5, 0}, {8., 91.50000000000001}]}], LineBox[{Offset[{1.5, 0}, {8., 89.7}], Offset[{-1.5, 0}, {8., 89.7}]}]}, { LineBox[{{9., 93.10000000000001}, {9., 91.50000000000001}}], LineBox[{Offset[{1.5, 0}, {9., 93.10000000000001}], Offset[{-1.5, 0}, {9., 93.10000000000001}]}], LineBox[{Offset[{1.5, 0}, {9., 91.50000000000001}], Offset[{-1.5, 0}, {9., 91.50000000000001}]}]}, { LineBox[{{10., 93.5}, {10., 91.9}}], LineBox[{Offset[{1.5, 0}, {10., 93.5}], Offset[{-1.5, 0}, {10., 93.5}]}], LineBox[{Offset[{1.5, 0}, {10., 91.9}], Offset[{-1.5, 0}, {10., 91.9}]}]}, { LineBox[{{11., 94.9}, {11., 93.5}}], LineBox[{Offset[{1.5, 0}, {11., 94.9}], Offset[{-1.5, 0}, {11., 94.9}]}], LineBox[{Offset[{1.5, 0}, {11., 93.5}], Offset[{-1.5, 0}, {11., 93.5}]}]}, { LineBox[{{12., 93.7}, {12., 92.10000000000001}}], LineBox[{Offset[{1.5, 0}, {12., 93.7}], Offset[{-1.5, 0}, {12., 93.7}]}], LineBox[{Offset[{1.5, 0}, {12., 92.10000000000001}], Offset[{-1.5, 0}, {12., 92.10000000000001}]}]}, { LineBox[{{13., 93.3}, {13., 91.7}}], LineBox[{Offset[{1.5, 0}, {13., 93.3}], Offset[{-1.5, 0}, {13., 93.3}]}], LineBox[{Offset[{1.5, 0}, {13., 91.7}], Offset[{-1.5, 0}, {13., 91.7}]}]}, { LineBox[{{14., 93.8}, {14., 92.2}}], LineBox[{Offset[{1.5, 0}, {14., 93.8}], Offset[{-1.5, 0}, {14., 93.8}]}], LineBox[{Offset[{1.5, 0}, {14., 92.2}], Offset[{-1.5, 0}, {14., 92.2}]}]}, { LineBox[{{15., 93.}, {15., 91.4}}], LineBox[{Offset[{1.5, 0}, {15., 93.}], Offset[{-1.5, 0}, {15., 93.}]}], LineBox[{Offset[{1.5, 0}, {15., 91.4}], Offset[{-1.5, 0}, {15., 91.4}]}]}, { LineBox[{{16., 94.9}, {16., 93.5}}], LineBox[{Offset[{1.5, 0}, {16., 94.9}], Offset[{-1.5, 0}, {16., 94.9}]}], LineBox[{Offset[{1.5, 0}, {16., 93.5}], Offset[{-1.5, 0}, {16., 93.5}]}]}, { LineBox[{{17., 94.4}, {17., 92.80000000000001}}], LineBox[{Offset[{1.5, 0}, {17., 94.4}], Offset[{-1.5, 0}, {17., 94.4}]}], LineBox[{Offset[{1.5, 0}, {17., 92.80000000000001}], Offset[{-1.5, 0}, {17., 92.80000000000001}]}]}, { LineBox[{{18., 95.2}, {18., 93.8}}], LineBox[{ Offset[{1.5, 0}, {18., 95.2}], Offset[{-1.5, 0}, {18., 95.2}]}], LineBox[{Offset[{1.5, 0}, {18., 93.8}], Offset[{-1.5, 0}, {18., 93.8}]}]}, { LineBox[{{19., 94.7}, {19., 93.10000000000001}}], LineBox[{Offset[{1.5, 0}, {19., 94.7}], Offset[{-1.5, 0}, {19., 94.7}]}], LineBox[{Offset[{1.5, 0}, {19., 93.10000000000001}], Offset[{-1.5, 0}, {19., 93.10000000000001}]}]}, { LineBox[{{20., 94.80000000000001}, {20., 93.4}}], LineBox[{Offset[{1.5, 0}, {20., 94.80000000000001}], Offset[{-1.5, 0}, {20., 94.80000000000001}]}], LineBox[{Offset[{1.5, 0}, {20., 93.4}], Offset[{-1.5, 0}, {20., 93.4}]}]}, { LineBox[{{21., 94.7}, {21., 93.10000000000001}}], LineBox[{Offset[{1.5, 0}, {21., 94.7}], Offset[{-1.5, 0}, {21., 94.7}]}], LineBox[{Offset[{1.5, 0}, {21., 93.10000000000001}], Offset[{-1.5, 0}, {21., 93.10000000000001}]}]}, { LineBox[{{22., 93.7}, {22., 92.10000000000001}}], LineBox[{Offset[{1.5, 0}, {22., 93.7}], Offset[{-1.5, 0}, {22., 93.7}]}], LineBox[{Offset[{1.5, 0}, {22., 92.10000000000001}], Offset[{-1.5, 0}, {22., 92.10000000000001}]}]}, { LineBox[{{23., 94.8}, {23., 93.2}}], LineBox[{Offset[{1.5, 0}, {23., 94.8}], Offset[{-1.5, 0}, {23., 94.8}]}], LineBox[{Offset[{1.5, 0}, {23., 93.2}], Offset[{-1.5, 0}, {23., 93.2}]}]}, { LineBox[{{24., 96.5}, {24., 95.30000000000001}}], LineBox[{Offset[{1.5, 0}, {24., 96.5}], Offset[{-1.5, 0}, {24., 96.5}]}], LineBox[{Offset[{1.5, 0}, {24., 95.30000000000001}], Offset[{-1.5, 0}, {24., 95.30000000000001}]}]}, { LineBox[{{25., 95.60000000000001}, {25., 94.2}}], LineBox[{Offset[{1.5, 0}, {25., 95.60000000000001}], Offset[{-1.5, 0}, {25., 95.60000000000001}]}], LineBox[{Offset[{1.5, 0}, {25., 94.2}], Offset[{-1.5, 0}, {25., 94.2}]}]}, { LineBox[{{26., 94.7}, {26., 93.10000000000001}}], LineBox[{Offset[{1.5, 0}, {26., 94.7}], Offset[{-1.5, 0}, {26., 94.7}]}], LineBox[{Offset[{1.5, 0}, {26., 93.10000000000001}], Offset[{-1.5, 0}, {26., 93.10000000000001}]}]}, { LineBox[{{27., 95.9}, {27., 94.5}}], LineBox[{Offset[{1.5, 0}, {27., 95.9}], Offset[{-1.5, 0}, {27., 95.9}]}], LineBox[{Offset[{1.5, 0}, {27., 94.5}], Offset[{-1.5, 0}, {27., 94.5}]}]}, { LineBox[{{28., 95.2}, {28., 93.8}}], LineBox[{Offset[{1.5, 0}, {28., 95.2}], Offset[{-1.5, 0}, {28., 95.2}]}], LineBox[{Offset[{1.5, 0}, {28., 93.8}], Offset[{-1.5, 0}, {28., 93.8}]}]}, { LineBox[{{29., 95.10000000000001}, {29., 93.7}}], LineBox[{Offset[{1.5, 0}, {29., 95.10000000000001}], Offset[{-1.5, 0}, {29., 95.10000000000001}]}], LineBox[{Offset[{1.5, 0}, {29., 93.7}], Offset[{-1.5, 0}, {29., 93.7}]}]}, { LineBox[{{30., 96.5}, {30., 95.30000000000001}}], LineBox[{Offset[{1.5, 0}, {30., 96.5}], Offset[{-1.5, 0}, {30., 96.5}]}], LineBox[{Offset[{1.5, 0}, {30., 95.30000000000001}], Offset[{-1.5, 0}, {30., 95.30000000000001}]}]}}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{2., 69.10000000000001}, Method->{}, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.586715494956162*^9, 3.5867182136299744`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ErrorListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"n", ",", RowBox[{"probMCvsTN", "[", RowBox[{"n", ",", "3", ",", "10000"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "30"}], "}"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.586715504769478*^9, 3.5867155353970165`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBWIQDQUOYPJBMIRm4HA4ewYIesKgfAEHE2MgmBwO5YtA +J9hfAkI7RAB5ctA9OfA+AoQugHGV4KaB+OrOKSnAcEyGF8NIr8ZxtdAk9dy mDUTCHbC+DoQ+gCMrwex/wyMb4Amb4gmb4TGN0bjm0DccxnGN0WTN0Mz3xxN vQXEvTdhfEs0vhWaemsI/QDGt0FTb4smbwfnAwD6Hmc1 "]], {{LineBox[{{2., 79.9}, {2., 79.1}}], LineBox[{Offset[{1.5, 0}, {2., 79.9}], Offset[{-1.5, 0}, {2., 79.9}]}], LineBox[{Offset[{1.5, 0}, {2., 79.1}], Offset[{-1.5, 0}, {2., 79.1}]}]}, {LineBox[{{3., 90.5}, {3., 89.9}}], LineBox[{Offset[{1.5, 0}, {3., 90.5}], Offset[{-1.5, 0}, {3., 90.5}]}], LineBox[{Offset[{1.5, 0}, {3., 89.9}], Offset[{-1.5, 0}, {3., 89.9}]}]}, { LineBox[{{4., 94.50000000000001}, {4., 94.10000000000001}}], LineBox[{Offset[{1.5, 0}, {4., 94.50000000000001}], Offset[{-1.5, 0}, {4., 94.50000000000001}]}], LineBox[{Offset[{1.5, 0}, {4., 94.10000000000001}], Offset[{-1.5, 0}, {4., 94.10000000000001}]}]}, { LineBox[{{5., 96.00000000000001}, {5., 95.60000000000001}}], LineBox[{Offset[{1.5, 0}, {5., 96.00000000000001}], Offset[{-1.5, 0}, {5., 96.00000000000001}]}], LineBox[{Offset[{1.5, 0}, {5., 95.60000000000001}], Offset[{-1.5, 0}, {5., 95.60000000000001}]}]}, { LineBox[{{6., 97.2}, {6., 96.8}}], LineBox[{Offset[{1.5, 0}, {6., 97.2}], Offset[{-1.5, 0}, {6., 97.2}]}], LineBox[{Offset[{1.5, 0}, {6., 96.8}], Offset[{-1.5, 0}, {6., 96.8}]}]}, {LineBox[{{7., 97.9}, {7., 97.5}}], LineBox[{Offset[{1.5, 0}, {7., 97.9}], Offset[{-1.5, 0}, {7., 97.9}]}], LineBox[{Offset[{1.5, 0}, {7., 97.5}], Offset[{-1.5, 0}, {7., 97.5}]}]}, {LineBox[{{8., 98.1}, {8., 97.9}}], LineBox[{Offset[{1.5, 0}, {8., 98.1}], Offset[{-1.5, 0}, {8., 98.1}]}], LineBox[{Offset[{1.5, 0}, {8., 97.9}], Offset[{-1.5, 0}, {8., 97.9}]}]}, { LineBox[{{9., 98.4}, {9., 98.20000000000002}}], LineBox[{Offset[{1.5, 0}, {9., 98.4}], Offset[{-1.5, 0}, {9., 98.4}]}], LineBox[{ Offset[{1.5, 0}, {9., 98.20000000000002}], Offset[{-1.5, 0}, {9., 98.20000000000002}]}]}, { LineBox[{{10., 98.7}, {10., 98.50000000000001}}], LineBox[{Offset[{1.5, 0}, {10., 98.7}], Offset[{-1.5, 0}, {10., 98.7}]}], LineBox[{Offset[{1.5, 0}, {10., 98.50000000000001}], Offset[{-1.5, 0}, {10., 98.50000000000001}]}]}, { LineBox[{{11., 98.9}, {11., 98.70000000000002}}], LineBox[{Offset[{1.5, 0}, {11., 98.9}], Offset[{-1.5, 0}, {11., 98.9}]}], LineBox[{Offset[{1.5, 0}, {11., 98.70000000000002}], Offset[{-1.5, 0}, {11., 98.70000000000002}]}]}, { LineBox[{{12., 98.7}, {12., 98.50000000000001}}], LineBox[{Offset[{1.5, 0}, {12., 98.7}], Offset[{-1.5, 0}, {12., 98.7}]}], LineBox[{Offset[{1.5, 0}, {12., 98.50000000000001}], Offset[{-1.5, 0}, {12., 98.50000000000001}]}]}, { LineBox[{{13., 99.}, {13., 98.80000000000001}}], LineBox[{Offset[{1.5, 0}, {13., 99.}], Offset[{-1.5, 0}, {13., 99.}]}], LineBox[{Offset[{1.5, 0}, {13., 98.80000000000001}], Offset[{-1.5, 0}, {13., 98.80000000000001}]}]}, { LineBox[{{14., 99.1}, {14., 98.9}}], LineBox[{Offset[{1.5, 0}, {14., 99.1}], Offset[{-1.5, 0}, {14., 99.1}]}], LineBox[{Offset[{1.5, 0}, {14., 98.9}], Offset[{-1.5, 0}, {14., 98.9}]}]}, { LineBox[{{15., 99.3}, {15., 99.10000000000001}}], LineBox[{Offset[{1.5, 0}, {15., 99.3}], Offset[{-1.5, 0}, {15., 99.3}]}], LineBox[{Offset[{1.5, 0}, {15., 99.10000000000001}], Offset[{-1.5, 0}, {15., 99.10000000000001}]}]}, { LineBox[{{16., 99.1}, {16., 98.9}}], LineBox[{Offset[{1.5, 0}, {16., 99.1}], Offset[{-1.5, 0}, {16., 99.1}]}], LineBox[{Offset[{1.5, 0}, {16., 98.9}], Offset[{-1.5, 0}, {16., 98.9}]}]}, { LineBox[{{17., 99.3}, {17., 99.10000000000001}}], LineBox[{Offset[{1.5, 0}, {17., 99.3}], Offset[{-1.5, 0}, {17., 99.3}]}], LineBox[{Offset[{1.5, 0}, {17., 99.10000000000001}], Offset[{-1.5, 0}, {17., 99.10000000000001}]}]}, { LineBox[{{18., 99.3}, {18., 99.10000000000001}}], LineBox[{ Offset[{1.5, 0}, {18., 99.3}], Offset[{-1.5, 0}, {18., 99.3}]}], LineBox[{Offset[{1.5, 0}, {18., 99.10000000000001}], Offset[{-1.5, 0}, {18., 99.10000000000001}]}]}, { LineBox[{{19., 99.3}, {19., 99.10000000000001}}], LineBox[{Offset[{1.5, 0}, {19., 99.3}], Offset[{-1.5, 0}, {19., 99.3}]}], LineBox[{Offset[{1.5, 0}, {19., 99.10000000000001}], Offset[{-1.5, 0}, {19., 99.10000000000001}]}]}, { LineBox[{{20., 99.4}, {20., 99.20000000000002}}], LineBox[{Offset[{1.5, 0}, {20., 99.4}], Offset[{-1.5, 0}, {20., 99.4}]}], LineBox[{Offset[{1.5, 0}, {20., 99.20000000000002}], Offset[{-1.5, 0}, {20., 99.20000000000002}]}]}, { LineBox[{{21., 99.3}, {21., 99.10000000000001}}], LineBox[{Offset[{1.5, 0}, {21., 99.3}], Offset[{-1.5, 0}, {21., 99.3}]}], LineBox[{Offset[{1.5, 0}, {21., 99.10000000000001}], Offset[{-1.5, 0}, {21., 99.10000000000001}]}]}, { LineBox[{{22., 99.1}, {22., 98.9}}], LineBox[{Offset[{1.5, 0}, {22., 99.1}], Offset[{-1.5, 0}, {22., 99.1}]}], LineBox[{Offset[{1.5, 0}, {22., 98.9}], Offset[{-1.5, 0}, {22., 98.9}]}]}, { LineBox[{{23., 99.4}, {23., 99.20000000000002}}], LineBox[{Offset[{1.5, 0}, {23., 99.4}], Offset[{-1.5, 0}, {23., 99.4}]}], LineBox[{Offset[{1.5, 0}, {23., 99.20000000000002}], Offset[{-1.5, 0}, {23., 99.20000000000002}]}]}, { LineBox[{{24., 99.5}, {24., 99.30000000000001}}], LineBox[{Offset[{1.5, 0}, {24., 99.5}], Offset[{-1.5, 0}, {24., 99.5}]}], LineBox[{Offset[{1.5, 0}, {24., 99.30000000000001}], Offset[{-1.5, 0}, {24., 99.30000000000001}]}]}, { LineBox[{{25., 99.5}, {25., 99.30000000000001}}], LineBox[{Offset[{1.5, 0}, {25., 99.5}], Offset[{-1.5, 0}, {25., 99.5}]}], LineBox[{Offset[{1.5, 0}, {25., 99.30000000000001}], Offset[{-1.5, 0}, {25., 99.30000000000001}]}]}, { LineBox[{{26., 99.4}, {26., 99.20000000000002}}], LineBox[{Offset[{1.5, 0}, {26., 99.4}], Offset[{-1.5, 0}, {26., 99.4}]}], LineBox[{Offset[{1.5, 0}, {26., 99.20000000000002}], Offset[{-1.5, 0}, {26., 99.20000000000002}]}]}, { LineBox[{{27., 99.6}, {27., 99.4}}], LineBox[{Offset[{1.5, 0}, {27., 99.6}], Offset[{-1.5, 0}, {27., 99.6}]}], LineBox[{Offset[{1.5, 0}, {27., 99.4}], Offset[{-1.5, 0}, {27., 99.4}]}]}, { LineBox[{{28., 99.5}, {28., 99.30000000000001}}], LineBox[{Offset[{1.5, 0}, {28., 99.5}], Offset[{-1.5, 0}, {28., 99.5}]}], LineBox[{Offset[{1.5, 0}, {28., 99.30000000000001}], Offset[{-1.5, 0}, {28., 99.30000000000001}]}]}, { LineBox[{{29., 99.6}, {29., 99.4}}], LineBox[{Offset[{1.5, 0}, {29., 99.6}], Offset[{-1.5, 0}, {29., 99.6}]}], LineBox[{Offset[{1.5, 0}, {29., 99.4}], Offset[{-1.5, 0}, {29., 99.4}]}]}, { LineBox[{{30., 99.6}, {30., 99.4}}], LineBox[{Offset[{1.5, 0}, {30., 99.6}], Offset[{-1.5, 0}, {30., 99.6}]}], LineBox[{Offset[{1.5, 0}, {30., 99.4}], Offset[{-1.5, 0}, {30., 99.4}]}]}}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{2., 79.5}, Method->{}, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.586715551429592*^9, 3.586718229591296*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", " ", RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"CDF", "[", RowBox[{ RowBox[{"StudentTDistribution", "[", "n", "]"}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5867171187012863`*^9, 3.586717208880638*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt1Ps31Hkcx/Exw3xKck6JMs7amMauWpW20FDvTxeUreSSyFR2oxtW6xRR bG6JNRoOuRW1cotyt5ni+2VcpnUtyg5yJ2O+urnVuK09Z394ned5/AMvnV+8 bN3oNBrt8NL+65l8wYfFRUTqpAe9njIWwppZlp7pHCIzYpo1m0yFUGORwfP5 gsjMeZvLGSAEvZ7yF9RHRCbzRZ5OlkIYUxlMl/Qj8o3dy8BmByFcurjDsViE SKOmE4HjV4QQyOkkz4YjcrVKNYdeKoTkFHZskyoirY3X+N03egZpvbe8bJYz yXje1FS0y3PQaLWz1ldXIsnBvK1Z/AoQH7Xb38BRJEeCk2wHGyvhgD7nMluX QaYTNSFluiRwn/AyW7bQybHrW1e5D5Agjzyrtk1fgSzdJg+Q11bB1MzD+FPf 0Uh/97WRO59XQ41u7PZKzwXCy+eRnlm5CEyVfi/e5DpHRB7fF1s1WgNx2Nh4 T4CceOuSdC2SXQdn7joOj6V9IWYbLmCGfz20ZGkvV0ieJmjtpzYc0XwB2ioF hkTZJHHq2qV76o1/g/L6kRbpo8+E9Cf90197GsHDPiwxO/sjUb8sekOqQQu4 iHobtGPHiagHBc5ZTa2gu2vBpjZISnxlk7d5Vq8g53xx/7OyYeLn91wDUWcb XJwo5P2R3E+sM9co+KbqNWwOVHJisruISIejM+HtHaDm177iTkobcZ0acYr5 JIEOV4+N+YN1hILH+Nrv3brB139j9Iv4J8RbVj7rtbgHHt02wQ+3PoZz3D+L bsT1QfSFoDcuwfXA5xKMTEk/rJw8ZJpn0wbzKua13nMD0He5brtPaBekn+XW SXSH4H354WpfcT+kZN3gpG8chszwBy6uEcPgSA7MlS4bAc50rtrVFClwqvTM W3tHoKfo2wrT8+PgbngwYjrmHRxL6LslE3wE54nOYluDUUjNiKo4dOczhAy9 O5FfPQqKzp7jSn6TsMq1dnLLbik0u+Rk2YZOw9CPhkMrS6VQupJ1csbjCxjU JK5rXTsGesk6o+iQHKSSff6Fv46B3Cd0PtduDoyDbzpbiMZAJtdSzTZZAI/a LZ/slWVw/1x4uxabhsXt7l291jIQ7GmM0uQoYB/lpO5YvgxUvXL3itTp+KRH 1q6FKhlU7n9aUcZiYM2OnWLplAzmPU8bOagq4kyDIwZHdClQQK+SNs0rYkZA GN3LigKjA97VVjQm5ksnVBK8KZB3542qf2biPZu4HTvjKdjvIRYcnmZi9urZ Z81L5s8OmoTJmdhtYN7rzB0K1rO0IibpCHvTORZRCRRYHo/Qb1NDeDjx6uOu JAriXrpdFOxAePoA4/pvqRRsrtOmlP0QHrp3osQvi4Krx7hxewMQftXXmLcs m4KqoWNm/kEIJ+aa+yYs2Z7Bj5JGIBzNvB9ckkPBNTz7gzgZYXv7g1eoXArE wg7PsOcI50e+7LYroGC11YR6BYlwr4S/2LtknkS1crIGYbP6tCn3Qgo+zJir ujYhHBavwQspokBjR8mTvT0I+6pGrSkoocClpsXBfwBh5SLDdm4pBTl2soXC EYSd37ecq12ymbeutc4HhEMbLVZ0llFwU2H3jOMEwjGpllquf1HQKnBKE8wg /M+FmMXxJbPWX7EUzyLM0Td56vuUgv//C99tsDZXKKfgX14RcOA= "]], LineBox[CompressedData[" 1:eJwt1Hs0lHkcBvBxm1+J2RM7bWlDRG7HthVZtN+fKUUni1yipk2FLXFIbiky e9xTzbFqyxS2dRmXxCqXwvvGVHRxV0qNWzQu845Fxg6jnT1n/3jOcz7n+f/Z eDz0QIAyjUZzUeS/PnGPK/nyBZE3nndDZBgfvl7UMbZbQmRC+ewXrWg+CPYU sKMWFHtKkUtVHB+MhXWtU9OIXMFpur6YzocJjZE/3w4hMvXvCuXSAj6EBVn5 VDUj0u+O/uHkfj7EG70jA1MQaaP1WMnGuRiyeYaZrxiIzOv32dZpUQK5A6mh 7ivp5LTj+YRhVhms6fBwNWWqkWFHPwjiQsqhxc1j9wsjVXJTaiST418BTqZG EYYGKqTJtoF933RVgm05u7D9O2WS9pOVLMCtCmTpgdpbTZXIC7Q9fLbBA/gs zb/282YamR/6ycHQpAYEBpnbG0OWiS2rc++6OteBndrFKnP/JcIiuaPz9dgj yMI7djjEyYjBO/b2t8sa4cQtn9GJ3AViWevRbN8ACe1FuiuVsucJi/n3Ksef NIGuRsX3RPUckRkWvEu9VQDq+mPt4yUzBN1zc+xFx2cQ7Jl0g8+fJmo/7+Ad YDwHv+aBF7qZYqLenKMxLH8JBjuX3Z9wxgld929bi507oPhk1dCj6lHC2Zdg bzXpgqDZSval7CFiaYMr3TywByzj1Xzphv2Ed2mOp0f7a9A+17PqOq+bKM8h n6f/8Bbe+Aeb3Rt5Sug9bO71WOqH6FizK63Xygm9kSD5nkIhlFy1wflb7oJ6 GMtbnj8IV05xXvv9+gw0ivfaJn81DJpz++3K3LuBU1srVT04AoMRT7dHJfbD PcfRufCij0DVuTRFtwxBH2uEveLdKBSm/OHnnzYKDx9neOkPjoHRfKl2DG8c aNRUidnQJxD+pddgd1IM6sL3ws4aEXj9Ppg6yZ0Gy56Soryz45BTkNGw//oM xNTx/5nYPAGqh0PEaufmIHlbfgWzfgLa/IqLDiTOwy655JaV8yQ80NQ5Ig1e gHTji5JX9ZNgnL1RhPbLgKWpHtGtPwWyqER5qccSbHdMzHRLmIJJ2XoG32YZ em8fv9/WNgV5v6T0rDekYSeXM6v71omB6/AyY52REr6U1/Gp/pAYGKGlrGam Mra/IRNf4IqhcXdtQ7WOChb7NmocEohBHnLU2puhiueX5b1JEjEooa6b5nJV bEFT077MpMDaKbxpH42OnTRJ0U1bCmTvy0TMGTrm5TDVHvhSsDu4hesyT8fe vMDPNocouLw4YpMko2OhiWNpvcL6OuvT5pQRtk6zONl8mIK9B9NMu7URtuwz M2s7QkFWZ0AQ1wrhQVHvRN8xCiyf6k6pn0O4pwbbCk5REONlm8WKQ9jqaNI6 hyAKHn/0so/lKPYrO5saFPZUuZwxnoawtl5CWPVpCs7jRYuWbIRjVa7uKgih oOXhm5CkeoTzJLc/xJyhQGvfLLOBRDj+pfTYjMLst4zGOQHCvit5lafDKZBI HRn+rxBee3VL1ZGzFKyxul/OEiIsYNWyIJICP0G7d+wwwiZr4zfVKFzsMblc OYawj8uZLssoCuzDDVw3ShAOSHD7bUM0BclKP0p9ZhG2LYwozFK4g+uby5Ui LDpvnbwqhgId/ci9LYsIy0WVW39V+P//wt7NymULCv8LkJtk6Q== "]], LineBox[CompressedData[" 1:eJwt1Gs01HkcBvBxm58mZitNij0aNFrpZJORNdnvj6XkKAlFqaXkdtB15VL2 aEUuaRIquZUI02UlDjb+f5HGqiiVinXNMJj5S5PRuO3sOfviOc/5vHtePYaH ju4+okqj0XYo818ffsCnFhYQOSpsH2xOyIXlM3omvFlEErImv57LudC0tcgn YhqRI3Vq+jM5uWDSU9MyPoFIVa9hZ4eKXBjVGiz80I/IWDWPz6y+XDgWwvWq aESkeOW0qNomD2I5H8mAREQa2rMdl8nyIPuGcfoLJiL/idG818srgPzeC0fd FtHJ8LAyRgLjFqxod3c1ZWmQsrmCTsHXQhDucndo5aiTB2vzE/fpFoOTKeeU sZEaySlR48bXloDNfZ/iNnNVcvvq6gSLFAEokgN0LExVyI31A9qOix/AV/nt zINraWSlpvkR17hyaDJKt6wPmyeebsyddb1ZATyN3yvM/GcJi8mONcFOVZCB N2+2O6sgdp+RXV1qXAOHc7yGRvOnCbr52efH9z6GtjsGi1Syp4guZ+28nWYk GGj9uZGokhFO6e+Vy58Agy1qE5dNErHBgpVieROEepy/VlIyQUx8jE4elz0D 38beVoN0CeFj7W750/etYGQ77/Y0TkwsyXo7sl72EkqDKvr/qhoiZo+LCo5H vYKQL+U+Kdn9RMdcRE5KVwdsiNXwpht3EUXXuenBge9AJ+rN4qwbHQRZ+14r cuI9dPqHrnsw2EyES8xDK193wenodWktmfeJHx4ORl681gNll6zx7R/vAWfp p8okQR+kBce98z33DIyPpfSK1wyAtsyFd9etA1gma2Nmogeh71SzZUR8F7wL X9Dldn8Cac2OJ6eF/cA683aBzRZBceJNX/+kIRi+8vlujdUwcKYEOpE3xHBZ V3OT3/YR6Hm4uo4XJIG/Hfm3rpqLwfNq34Ux/gRcWJyG3b+JIa8otc4laxLm 7RS2b2tHQX1/mEQjSgaht7O6PL3H4KVv6Z3d8VPA4U4EBlFjUKmtd0AeOg1G rm+cnYPHwSTbcAS5KMChUVRc9mocFBHxcwL3WWD3F6owLSUwptBnlljPwynz PtWGPyRQEJj4Rt+YhsNDDmRWvpQA3+556iqOCn5kI925nykF5lGBfSNLFZ/L FIlX2kuh3qG6rkpPDVceSPbQOimFubBfrfYw1TGD775/KlsKKuj1dbM5dZzj M3wypE4KVk4nnjjT6Ngvad52a48UFN13R1iTdOzdza/85ZsUHEKF/B1TdJyr /5l6pPTFmUHr8wo6nhoLkHAUUmDr6SfJVBHO0DSzQDNS2LY3ybRDB2FHLavh 5lkpZLw6EsLnIlzkymDzaBRsaDYYZ0QhLD5s8EJOpyDS0ybD/izCukOd5X6I goZPnlui4xD+4MU92Kq0h9rFVHESwmviApl5mhTE4Jn1wmyEDyWfbMcMCoS1 nWHnHyNs5L/pW4w2Bcucv7DqSIT3vHYLGlDa5wOzXtaE8BW7zTedmBRQckem /wuEGQ3dx5Z/R8EK7qP79j0INxRappQuocC3qW1P9ADCl1ZtcGEupaDUfWy+ XIRw2jl55wmlt5wwcjWkEA6cP7OLt4yCBJWf5V5fENayj7bNV7qd753PlyN8 7WPLV1UdCvTYv20TziC8zzQ1KkDp//8LV0f1C1uU/heS1mDk "]], LineBox[CompressedData[" 1:eJwt1Ps31Hkcx3GD8YmYFU1HZo/ras/UJrWNHGrfHx3KWo6YTEitMG1NrFal cqmdjdAmkx0KlTYVksskTtbl+y0aI5WiQ2g1TGTcvhYZZzDt7Dn7w+s8z+Mf eNmGxwTwdXV0dHy1+68RFSLq82dEPlYUOu84JoaVC5Zr3BYRyQ3Y/EKWKIbm HXdC4+YRKUzoEu06L4Y1/bWt41OILBF3l8bkimHUWFHYM4DIqqTptHFCDEcF nKCqJkReyQktUphkwxmHXvJgKiJF8gTr/rJsyMu3z3rBQKSd81lPUpMDBe/T YvwNDchrj+9VBzvmwapXXD82k07SEtNtrG5eB9kurkebgz5pFGh9wOvJTfBi Oxy3t9Mjn/28NOrJKQTX8tC77Rt0SY9K4lbq33dAfeGg+SY2jaz3MawocCmB T6rb2fu/1iHpioE3T1eWQbNd1ubGaA3Re+gMvfdWJbjRz1ati1wkMq5Wy4u8 qkCMt2xxT1ITLqzpCw3sGoi4FjQ0WjBPhDMt9fOiaqG9yMqQljdHpKkrTHNT GsDKuHIjUTNLLJNwflWoSDCyGW5X3psm0jQPDsQ/aoKo3SlXi4unCIs9Jiqv DimENb1vs8qaIHZtcmdHWzwDu20a/6dCJeHI60HLmS+h5FDVQF3NENEd+8m6 i/UaBDOS0N/zBgh91oXR85c7wfEMPdjAvo9I3sYXGTt1gfnpN8tz8juJrJ7h YHHrW+iOjFpboZASjdeUey/X98HJ+LWXWrPLCYoRwsOX++Fepgu+7VQGZh3S c/QKOVw6LOwK+60FBjBb4e00CCazPm73/TshoM7I2PqSAuTHpZvjkvvA9bBJ qv/8B5is9X1yUjYA/1R+aMv0HIa7qX+GRaYPwR8Bx+gs/kdwmCs1P5WvhMU+ XiJfOAL9D6wb3A5NwLGnpo0bjioh8Io8bUw0BYuSntYC91G4cedig0/ONCQK wSnaaAz090ZP0E/PgtE5l6bM8jF4GVZSFJA8B5nmmsL9349DtYnlPlXUPKTS zvpFSMdhTZ7tCPJRA2/Vxj6J0wSo45KXSrmLIFONeOiJJ2BMzWIUu2igJdHY tkAxATd/Sn3DstfBuvm1H6+unwSR+/OLqx1ouMXvQGvGkUlgxJRub2Lq4uKk 54pvr09Co8ejhhpLPaxuiuScaJuEpegfnXkMffxQYlObOTUJNNSRu25JH1sx PMdXmFLg7BX7xFvHAAv1uoZy11Ogfnd/hDltgN+5+RyJ8qTAI0om8p0zwKxQ 71/atc5YULikqA3wPo+vXDftoMDGkpU+q4twescKpkrrnXvS2Z3mCJtyQmaT vCgQv+YLRByEB8NjE3/9gQJHqdW40WmEcdnhtmB/Ck4Fuoq3JyEc92VgQrXW jz8Ebo0XIixItpgxDaBgt17GRWU6wvtjCNcWrRPwwjeyPISlqyWOG3dTIPur OzqlHuEp+XCrmkeBmfcMs4FEuL6XWsbdQ0FoD6NxthlhC4GDWanWlMqTEfkC 4ZHOonMhQRSs4jws396PcN2UZrgmmIKw5nZe/CDCbwXhCSYhFJRwxzSSYYS5 lFlfhNZbY+38bCmE/QXKxS/2UnCe9p0qaAbh5948gq/1K1FwgUiF8CPDG751 WlvanNgpW0C4/52iyDSUgv//Cw/KvV/ytf4X33FgXg== "]], LineBox[CompressedData[" 1:eJwt1Ps31Hkcx/Eh5lPKZNN0TnQkorBr2zbloN4fVljLSpgolYNcJrbWagy5 JOQSY5LCsLRbklwispX0/e6Qxik7iq5at2lsmPF1hobGpZ09Z394ned5/AOv TcEn9h/TpNFonur915BbfOrzZ0TGV1mVs57zYO28gbn9AiINt/c36Eh40OFS GciZQ+SLZ5pS0TQPzAfudcmmELm5dfPTEGY+jK+SXH0zjMjd9EKvtQH5cJJt 49/Ujsjp8CfLw0byIdnsLRmWicgsrmJ1cjIfBKWmBd0MRDpLh7PI6gtQMZh1 wnsFnRTq1aWszSyEdT0+XhZMbTLn/Y+R5rVFINrn4/zETIsMD3CNG3QpBTcL s1hTk2Xku8C66xFDFWBXH3hd/LUm6bZG0JwW9zuocsL0t1tokGxhj/kPTZXw cfbapSNbaOQFrVarLk41dJgU7HgYvUQcY2WgR0V1YK+d0mQVukCcjlEpe6Ib oRDv2uWYpCIq8yZryvY1Q0iZv3S8Yo7Yzb0b3S/4A8RVRis0BEqCP/BpYkDY CkarGr4hWmYIdl8R/ZMxCTrGo+KxmwrCwUOYVzIlhCjfjOIbN6YI28tbVeUb OiGoffCJUYGcsDQ5k+fF6QKT3Uvej1LHCF+l/OqGnG6ojmgabm2REkZn887X DvcAe7ox8LxgmDjH5u69EtIL1snaAXTTfqJL1Mxv130J+vF9Ky+X9hJjmZEl aY2v4VVolOUtSSeRO7aABuv7IS7Bktd1qZ644uS+5UHuANzMt8XXttXBkde8 LV81DgEvMvVl0NnHMOWmI/PdNQK6Mx72td69EG5hLFOWSGAotnMHJ70fjs/R /e6vkMLkPU9hnGgY2Pa2zzoDR+F65m9BodlS+Fta3DGR+g+YKWv0uaVjkFPk 0Ody7QMM3N7YZh8hB5ZLBD+peAz8ioayJvhTEOZYTIh/Gofyytw2j8sK4HLH 6+0cJkDrULRcO34GRmqZ5VLJBPwVVF21P10JT39NSylLlcEdXYPDs1FzIHa8 yOHQ5GAu2PQBeajg4ltLz87jclBx0hdrfBbAus9w41GxHCZUhowbtksgW2kd U2A0CVfCM/sMTWmYUUjbkxw+CXzHp7nrzTRwIqfBcvzqJDBO1Di1MzXxTnJr SlfvJDx0vtvWYrAMG0d7WL/6PAmL0Ud3shhaWJlYMnfHhAIN9LzEalELX/SP TZEDBTvdYoTuNDoOjlzfO36QAtW72g9MBR1/YecTGXiSAucoEd9TScexlrff NqudNy+xzVDRcUNJ8mrdnykwNjDMntFEGJfrdTxQ2/VAtkWvPsInydHD63+h oPDZMTbfBmGZ/+GEx6cosO40kunEI/yd+1LKXAIFXD+7QqckhDntjre/P03B n+/9HBJSEd4WbF8nUNt3WV7uWDbCNxmKRftECk7j+S9FAoTZ+d2MxCQKRPdf RWc8QHh/0KCeIoWCNe7TzDYS4TK+2TCcoSDwDePhTAfCaQnFiXlqU7N7GaHd CPM2lzO3plKwzqa53mkA4eXfsvoOnqUgqEPMShhB2PfQNs0qtat9JpYaRxE+ UBO+oFDbIcbEaxOFsPdQGisnjYJzGntm/acRtuY1tbxQu4cfUMGfRfj+xxcS 43QKDIxPuYrmERba6A0cV/v//8LB3pmVLWr/C8J7aRs= "]], LineBox[CompressedData[" 1:eJwt1Xk01HsfB/BZmF+RabGcQoQoXK2yRH2+SZduWqTSokJZCg8tNAmlS2Zk GVtpRkyWjCwppay/X6Wibjsx8VgfrvX3Ex5TlunOc87zx+e8z+uf9znvvz56 noF7vRg0Gi1cfv/LE/f51K9fGKHn0bBAmMYFtWlNI5sZjNj+bKljci4X6n7P cwv5gRFBrg0eKWVcMGqvaBgexYiGG9GuZZ+4MDivJ0fShRHO2tYqfmweBJ3e cLDsBUYkLr5ajvN4EGH4jfCOwQjdW9vEq7mxIBAaJL9jY8Qnt4uvX+fFQVYH N9B5LougJbHafL/zQeOjy25jdUXC0/O2h0VrCtTvcbF/a6hAbNphddnB9iY4 GhueN9BnEiwjH1ubW0Jww8jlh3WYhLCxfXx+oRCCesub+JpMwt04oma0Wgg3 7zhayhYxiZ7Ge/lfO4XQt8R/qoXJJCIyF1abG2dAlFLZlYReBuGpTl+8pToD ng2h+J9iBlH1ZtfGpqHbsLHE7e6H1Qziu/5Xb19rERQ3LVjz2JRBBNun6Urs RbBstq5CsIJBlDZVWe7dIwKWk9k7L10GIV29LvOojwg+D8yOT7MZxP3lVsOS NBGcNszaspKkE4e/cdsCJkQgyOhqu1JEJ6yOXt276ukdmIr1Vl1nTCeWbo2x 4BzJgZKowJcmhnQiqjZWb8w3BzwjOBcM9OgEznYuCg7JgTdnYlvVltCJXY1n qm4l5YDgYEmOdA6dmLHt4RyozwFro8n1Nf004uXzlK1iy1zgPIve5yimEZE+ 0WfblubBf6W5acdW0Ij3YbpWbKV8qNNPNq8NkOEVRlp6RdqFYKN4ucz05Aze 0XP8zqxpKaQiS8st4VP4v4kcspJdBicyDvYOZv3A62O0c/WPlsOHfJ25dMEk Xp+wwedjQiXozCtdi5dP4ItTAnNHtHBQWtb3YeDeGK5W9feTTp/n4L8vOl0s HsXZ58po50Qvwf1Fx1ud5BG8Je6NWIQ1gP4mmfPLyAFcFl8b7G36Dgp8y7qq yntx78oTkWqVH+H0+AO364IuPGtxUJWf/RdYFaF4iGXQihe1+O8KnWwC1YuN yjeEX/Dlzd2Xze60QPNJf5P7Pa9wHdUzwSl5rXAh1CShIa0EH9cg+YW8driX aIVy1xSDUpfb5ZyHnZBwKvKr+9XX0Lovq0vLthtUJpxsipy/QIvypAI9uwc6 z78yD4lqhVKGd0i8ei+QFTufX6jvAq0Xfzon+vfB3Zg77id5vRC5cLMRL+1v MJwsVOUIB6BM4+cBdnU/tD/UrbHxHYHfpjuS6Y8GYP/NTu4QfxTSj9MPP4wf hMy8uBqnG2MgIP1idhwbAoUjASOKFyegrtHynsecYXjvXpC/N2oSPl+YF6Ei HobHKppHpf4/4Ak9YlBj5QgYCfT6MacpeN+dazGdMgJTIVGzhS4z0Jf+pEwo HYGhKS222EoGZ2p+il1/J8H2VYxTO5LBt5raK0kOJCQkjceqbZdBs59J6BtH EtasfItFHpJB/viqRusdJITsD6UfDpVBi0OgOXsPCbTSlgnlahl0KS/WSzhE goZXWmsg/IKYkiIO6UeCyCemUcuAhuzYf+G7EkiYc8n3rcEKGmInZp3bk0hC UML256amNBR2IOmMM58EeKxcarOehlYklOx0TiahncG/fmQrDS13+5bieIME 7cx0O+EJGjrdwcXVM0lIbywo1cylobmq0XVmxSTwt/wVt8SQjqjKNruABhLY gYV2L9QZSJB2LuWrlASv7JsLmpcwUGX2PbvEHyRUN/3ZPriUgXrsf/k5/CTh lK1b6CIjBrrWeGlV+RQJdXNVHnpYMNAlx/nh8bMkhOb+S4/mykCWzjuSDZgU 9EnW0jalM5CSzVOdURUKau2f1pRrMpFnGKGqo0/BiS6BTbQOE3X310qK5Z4T EV7hos9ECpOGmzcZULD3id3jUWMm8u8x7zm8XN5n/K7IxJqJzLrD85KMKGDP 7xZmujLRtijO1hETCo5JlEOvpTLRWXFr9rH1FMwGHLc4wFZAnRNzjltupYCO fb5lOquAwtLHeDnHKLBwPPv8DxoLEeqjxQUXKOCtU6YWKrCQ05Pdn2Vyt2nn akkwFkoteVDjwqHg6vem8z7zWWhT9pLBGbnfC6xXROmwkLm09rZTKAU+I7S4 GlsWUvQyT+4KoyA9OXH/moss9OioSUV3JAVTbUX96mMsVBKk/2P7dQrs/ev5 OydZSHR5+LhA7vjpHqvoKRZyuzZzfVDuZZpavAkGhjxL766NjaPAwZVn/EUV Q1xbw6ev4ilI/eR1mr8BQ3wzH4k5n4JVr3SGlS5iKGq3JLsvlQLO/o2pduEY 6t6yYHB1GgXP/rPfNjQSQ1djVaY5cu9jxscN8DCUHcy4pHSDgkto+rd6AYY2 z/OUmtykoL6yOSC6GkMR/mOKnrcoWPTHuHoNgSF2c/9MvtxuEnbtRB2GTvLM iRG5Kek29sl3GMqw8iviCCjQ2PCoxK4dQ6NmhbpxQgrc6z4cCO3GkLd2dvhH uQtchmQP+jC0VtukQC2DAtuz+rv1KPmeMe6pDLmv0TdLD45jyG53saxD7o/8 Q1l8KYZKGmY9DG5ToLks2KF+GkM/JaIUb7n//79R2LfqlAK5/wEHlcoO "]], LineBox[CompressedData[" 1:eJwl1mk0lmsXB/BnvkM4iWQsZGw4KpLQvpKQOskQhaQQUTSIDCkdMmQsIULG zJGkAc+VJOegHEWhVykc432LIjx4n3e9H/ba67f+a+21v+y1tsIJb0tXBo1G q+TX/7rzg3hqaYnArFtRhVWeoSA+L62ixyNwlkHgWhv/UGgwznPw/UXgnU1i +rTwUFDpffrX2AQ/bzG9fC47FEaWf8vp6iNw4JzHeFNXKJz10D5c+ZLACylE vYVZGAQrd+OT4QQ2O5mvs7jlOqSmKd1sFSHwPKvqvue6CCjSvJNVLUjgx7PN 90S2RcCzVyIVWRwC26x7pMk1iYBuavbtxUUOfr+rEvZ6RoC0UZuwPMnBLtbW JozKCEgbC4r0auXgumSPKyv2RMJdg86rotEcvIM97TB5IQoyP0d4WwhwsHek dojpUjQ4CS17e5XNwaW/TB1hZQwo6oRvKqdzsP7aY9lGqjGQHxs2LjLHxkJL sZEB5jFQZnDNs2WEjSXpvvOJ92KgJi3QzaSFjRuSDr6I2RML3bZexwzi2Ph6 Ww6vOzUOVrVZmatLsPFzZsKBBzsSQOqN6gfPFWz8M8dKy804AWRb5h3LhNnY nePoqmqZAApNOV5bOWy8UP4C41MJsAFPxRjMsPDno9/oh+8kgGH5rRaLLhYu jDv8TW4uAbzj3+0NSGdhFwGhrM31N6HpoJVRszIL0yd2GXefSQSNFLG8GgUW /hF2Lop9ORGiP//DLpNjYf9NtWf1oxPhoNfB1/ESLMzr6DduLUqEjzf+MLNh s7DgmNeKoKFEGGo0OdjXz8RGWw5MSZy8DcsM9B1mcpjY/MWhNwEeSWCqruyj pMjEus/NWmVTU8CBINfZyTOxxfP6p1CcAmcHHnfESzNxykjQf7xqUiA5y1Rn UYyJ24cSx773psCg1Om5j0wm1hS9Khm97g6EClZejR1gYM+9ZYqrH96BF6Mo ZraAgX0morVaOlNhR5lD/tvfGfhf+UwywzQdSjt+06xaz8DGGrzBFsd0WLvQ 8DRVlYGDr2kMCl1MB87+ja2uaxj4WfqkRm1WOrQPL0zNizCwQ1LeRnI+HTyU M3epkXQ8a1K64XZlBqTe7ft0tYSOm+twodrqezAXdXLlFnU6bjMh5HUqsqAs 1PuVhjIdW3bq9DjXZcGJ4Et+Sgp0LKnS7ZnanAV/n4vqEZeiY7nOLkXlwSxI PVyWM7OMjv1cjhdUyGSDrsr01tohGu4/16lYGpENl16EWZsW0LBuhpHKMY8c +DmTe9tRlYbNmNzjxgfywC6iOvmuEg3/oMloix7NA7z67zvda2h4Zf3n9V89 8yBal0q3WU3Di5+/382PzAPFQN38AwI0fNmRt7PoVR7c46Wdudy5xL3wSF46 G/LBVoB8YOC4xJU15wWF6N2HBsWbWnVnFrkBj6KLz1sXgh77SuV6Fx63IeVS 3P3wMkhEOjq7Ls9xXVrU+tuUH4Lz3cMDI5m/uCOnh9uf+VbB2/vyAvTUaa5m 7VmGxIOnIL+8fDP38Q/uWR/JE8i4DgTXDr4dLprkki4Ne/5k1cNp67CUgoIJ bonVl3+Q8Stwevm5Wf7mOHeimv19X3UTKBosWrwKGeZ+7Jz6s2awBQrdK/ue Px7gnvSrrHRLbwOPqQqHG6l93JEzTh0fNr6DTcHsIxylHq6dp7d27kAHrPR/ L5SU9o574UTtrOPtj/DB5bTGg2+NXKwlvOxTRg/4BWjE/nW7jGtJsyz1Ce+F orjtKFezFAzK239VVH6B2FMhnU7XXkP52dqEOPgKwj/265VYvIOsl4vn2+5/ gy8+jVq+oT3Q/nu9prT8AJBP/6j3a+oDX4Hqd3N+g5AfnuXkEjkAG4MOpNXm /AvK08UrL6UNQ9BW8cZ9rUPQ+3BNrZ77OFh8zK+efT0Mh5K/RIzGT0DJ8yh7 hdwRyMiLrt2fNAla2U/8hf1GgWV/Zpzt/wN8N2s2DyiOwRunwvuWodMgom/N mn05BlXC0kdnTv+C3eFVH94bjYNKqsIQsX8OJrftUZCoGIc539CFYiseBNey HXPESRDsaBwHex5suiQ3Oi1BgvRWgd53J3jw2rQgea8kCbpUTN38OR5EbBCx GJMi4ZJb8pV98Tz4pfreUnUNCdO2RfTRFh44laQuXVAnYXJ7G1vDeAGiDv50 8jQgYXRORqRg+yJMppd3jZ0gQb8xfH8vWoSjWbrL1rmQEJswFSW+dxGuOuZY 2rmSoKnWTIQcWQSrJVeDBjcSfA8F0O0CFiEtsCog5jQJtPKPP4RqFkFTW0l8 +iIJq1xv93jDEoj3tj1UiiDhnlv4exklGir4/MZGtIiEZYHuzUqqNNS/UK0u XEzC2di99evX01Dn5AlDwRISoEqoXG8rDSkyJ4wZZST0MuJv2O+mIXfKp2i4 ggTZjBTDNGcaqs18b5z0lISU94Xl0rk0tOJ8s7JHEwnxu1qipZTpqOZJl96q fhKM63K2flKjo8UjDzg9fPN2BHZnbKAj5s4+08wBEty1NNTWadGR8bUaLZV/ SUCqES837aajxoHZyo0jJEwsN5rbfZyOLGN3pStNkGD+8bmbVzodxUvv8Cud J0HEu9jwpQQDHbA0Stq3ggLX7OTfPkgxUAkxVbfId03Hn70jcgw0WeJzrEKM glP6DgFiKgxkUhwoICFOQYOA8MPj2xjIL8x2eecqCgJyvRRotgxkoxigCLIU DHZtphmkMFDD0daN5SoU1Bk9qX0szUSf9m0ZVdhBgXNfql6YPBPdG7CXLeF7 WfDlp1aKTKRmUD+irUeBZbVh1YQ6EymcsnUy1efPU28t0dBlIqnj0o/dd1Ig Ivo1LcOWiax1fjdJNqTAsUso4HoiE/U8CGorNaNg4cyxbTYiLCSc2xvy5ggF J7aP31ghxkIaRl+5YEdBIyOwr0WChdr7d5WV8x2bnBS9W46FLk9+v5tgT4H8 i9avmhtYqH+9ZJP5UQp2iuvHCZmxkFfPyrBaJwquPFs9hMNYaFNGnaiTGwV0 ov3O+gUWGh0xL2y5QAEnwmfVdjobXTt+rHCrDwWCApK3jNhsZCNXZ5fKt7iQ Q/RRYTbyMjzSfvIiBWqig8FxcmzEWbghw/Ol4IDknPOUARtNcK7vXR1AwV1V xU3Pg9lo0seiYPVVCraZnq83o3FQ8G6F+D03KIjcIkStYHGQmMj0VCLfn2Rz ZboIDrpzSW9NP9/Xvnf4uIlyUFTTs5aQaArepOqqhspz0CO/mfBnMRS4jdOi a/U5aNbBO1shnoKUm3GHNP05yKNl0v91IgVzn0qGJCY5/H1Fv/unU2B0uin+ j2kOknkoJdnAd8z8t+1hcxzUm2DNEMmgYK20TOQPBoH+viWlnsW3iW2k+ruV BGqUFaxtyKQg8R9Xj3htAvGkDqvSsynY1Cg/JuhPoN+S3xgdzKfg0qEdiYaX CZRWqO1xi+8X/Yf0A0II5BvnZ9fJtzUzJno4kkBnh3Tu2t+nIBDNb2hKJZDx N9tC5wIKmp59OBNWQ6AnnSKiHkUUiJlNSdRiAjXbEtOFfDt0idT9aCCQ26PA omG+qZk9Ii6tBDr1JDDIvZiCVdqPygx7CZTUse8v5xIKnBre2gR8JVATI3lt Nt+FVqOLFYMEktbMNv7Ct/55RXMFikDXdFOW7EspuE7fOXN4ikDi6e037/Dd Fn8kM36GQKTo6Z+dfEuvvWjSNE+gEE60qngZ/x7+/x+jRx1H1C34/i9g91Zt "]], LineBox[CompressedData[" 1:eJwt1nk0lXvUB/AzP4aoK3VLpZC5G92IDO1f6qaoiOQWSiENJKVr6GYoY6aT CjmmIsmsUhGeXwOpjCGRV1Fc4/MoLl2O4z3vWu8fe+31Wd+19t5/bqVjXjZu LAaDQYrr/7pLMZ+enydwKXPJQdOLISA/q6BmLCQwiovVaYoIgVc77jr+9ZPA g7S+96kbIaDWU/5mdJzAu9KLbKoKQ2B4wdeszl4Cuy9KsG//EgJnT+n/+fAl gf31NGvadl6GQNUufDyCwCFEhvYfa65AikAloUGWwJ6+N/enU6GQp3vr9hMp AieKctNk5kOhoka29DaPwD5XdXZcXRgGXfR/TRdEPNy11bo3XzcMFLY3yyhS POz8rPP8tfNhIBj9O+pMAw/XFurU0rNhkGr6IXhhDA9/mO5o2PlrBGR8jvTa J8nDwiTlZOJiFDhLSzQFc3mYE8C0bouNAmWDiPUlTB7W17axKs6Mgpy4sDHZ GS4+Huhhxa+NgiLTy6frh7n4ioFW2LzcVagUXHQ3r+fi3rVmTqlFV6HL/swR 03guPrxTT1bxezQsbba10lzCxfrbvHc03o2D5Y3qHad/4eL3nJOX5CvjYGX9 7OEiGS4uG/h16+n3caBUl3VmI4+LwxbPpFvMx8E6PBFrOs3Buuq6ku8PxoNZ yfX6fZ0cLHtKoEVI8sGL37orII2Dj464bnr7mg911rbb36ly8GzmvooO5wTQ Spa7W6nEwfnGX4ePeiVAzOcWbtEqDjZ6x3g9fSkBrM9Yv+Yv4WDNDdtydggS 4GP0HosDXA62NGIwz31IgMFac+veb2wc91jVlLC6DhKmJo7TWWycoeDS4rnr BuzUVPVRUWbj5Y57V+5zSwRHglp7SJGNnaw+/NZ3IRHO9j9u5yuwsZ5FKT8o PBGSbu80EMmx8fNFrp6f7yXCwHKPmY9sNn6ryfbXG0mEUKmHwXH9LNyawEkz 9kmC5yMo9r9cFjYpYeyfi08GoyLHnCYdFpYv+/vCofEUKGxfpFumzcKWdurc Sa4A1sy9Kk9RZ2E144KW9BUC4O3+rcFtNQsndY/v1zAXwPuhuYlZWRa+m9Dh tSBDAKdUM7ZqUEy8cF+fx1qbVEhJ7e0OLmBiLY3JjvGaNJi5enzx75pMPEYr HQw+nwlFoV41WqpMvKE78KZHcCYcC/TzVVFi4uv+tg3HYjPhrffVT/LLmVgu rdTS814mpPxZlDUtwcR/LzOymP2UCZvVpjZWDTLw0cSBBKb5bfB7HrZ/Zy4D V87HoeG1d+Df6eybh9UZmPPhpUozMxsORT5JSlVhYDkfbpv7omzAy97e6lrN wNrqMR2Sq7MhZjOddmAZA59/FPjDwyQblC9uztkrycDtzr/rlPhmQ6ZQ4Hnp wzypEc6L0B3PBntJqtj08Dw50bLriPnQXXilnKBX7SkidceinHbP3YO9H2KH k9xEZBvXe0R1US58jIrK9HYSkVq69+7IqOTC6HjwAtU9IlIm8V0psSsXFpNe 36LXiUiNCgu7ezdz4ZjDnhsHR+bIBN1rTakb7gPjhsTk5Ik58vqn46Z3fPLA mBv0UNtVSIpsKn11NAtBYyBWku8oJFWnTDMdthTC0tepRyb3C0mv+58NEm0L YTyyQrrqDyGpxV3WvimwEHIWTLnsVReSHTXf8tXaCkFO3lPee3iW/MHmTb2+ XASDyg4XHp+dJXmrXastRorhBjIw2Hpphqw8kZCScKEUXFL/7B/O+EmWLH0z KVf3CJruKUoyU6bI5qMxaubcclBcULKBfDxJ+mVMVM9lVYHUmoGmobwfZLOr k6Js+XPw2B+WnJs7TnpkOhm+YdaA88vP7xQTxsjMy1WHHQLqQNlUtK8mZIh8 ulitr+RBPdw/8bD32eN+Uu828b04ohlOTZQ6Rqf0kvOdqy8/X9kK6wO5B3kq n0i9hiWMwY/tsNi/TTpR0Er2pc+e9I75CB2uHlrFX2vJEYN52bpbn8A3QCvu zc0i8npPjkJdWA/kxRuibN1CuPV55Hzgoy8QdzLkg/Pl1/D0jlKxtlkfyEzu Ni7Y1woe9vTv+gVf4YtPrd5foZ9gWeDbhmtr+4Eq3/PCt64X0q9cPJ8RPAA5 EbedXaP6Qe+Jf1FQ0T+gOpW/2E8wBMeXe69y6hqEngerq4xPjIFW/Mey1R1D YJf0JXKEPw7Nq14+0SgbhvS7MVW7E3/A3ob0C11RI8Bx8Bzj+k9Ca7BUoYTB KDQ6379nEzoFPhMtQ5qdo1Amo+A07fETvqiUbcs4NAZqKUqDxO4ZmJr6lrzi 9RjM/BU6l28rhHGPBVtjtSiQaq8dAwchhOqPPP2sTYHCRsme1mNC8Km5abnh Nwo207HVs95CsMuxftmiQ4Gfe1KQJV8IW3qPS0noUzBln8ccqReCmQR93AIo +GHYzNXaMQf/1g80a9pSMDKzQjbXUASi7Au5Z/woMKmN2N2DRDCZKB2S5U9B 3LWJq/K7RNCwlD7bEUCBrsY7IuSgCA41ziabXKLgL7sA5qEAsYPyFIQhFDBK Pk5KV4og3S3a3TqagqVuNz95wTxYbjmoZ5NGQaZ7RNsKFQaKj+3V76qmQOLi iXcq6gwUGlxe1UZScDZu1wttbQbCXv0RjZgCKJMuMd7IQHHmRv3kCwp6WPxo h20MFJnd0nKrloKV6clmAhcG0quq7NVqpCC57X6JQjYDBfiu3FnTTQF/a33M clUmMio5/fzfaQp2VGdt7NZgorRy7pvHPykQGl3sSl/HRM5TzX/4/kfBCT0t jbV6THQi6GTm1AwFSD3y5fptTLS2Pu0rNUfB+ILtM9uOMpEsy+Z7DZsGq4/P 3M+kMdH5IuuURQtpkPXKN3u5hIUEraMy2mtpcLuTtKhjOQsNu4myOsWubL/S M7yKhc4d1SyJUKXhpIljgJwaC43TLuv61Gh4JSnz4OgmFgqyiyT5mjQEZJ9R YtizUL1TXm7behoGOjcwTJNZ6EvoTaMZQxqqtz+teqzARlv02YYtljS49KYY hymy0eiq3rYDu2mQCLxUbqvMRkUrNGW7xbZ5YlY2rslGniNy9v17xPM0Gwq0 NrORvDvXYsJKfP/CPkG6PRu9+J/r34W2NBzulA4Iv8FG/81Oqb9xoGHO88im A7IcdH/wXIHtKRqOGY5F/yLHQQXV1yyw2LWsi731SzioW6Umed1pGuKSEmO2 reKgvOw9OzgeNCg+b+jTXcdB1e+WjxZ70rBF3iRe2oKDfga9vf7zLA1BFcsG cRgHWdYltVv70sAk3t/SnuMgqY1RWOMKDbxIn6WGTC7CjQZProotJfnr9e1c LgoPdjwyKra8tGOMkwwXeRybf1UUSoPGwoHA+FVcNMlwHdUJp2HvrzMuE6Zc 9HR7zxeVKBpS1ZXXPwvkogLb3cy2OBo27Tz3woLBQ4fbdVKO3qIh6ndp+hcO DwUVWzkXiN29MntFJ8FDFdccqCmxL39v93FfyEN9IT3HolNoaEzZrB6qyENv 9FY+KBXQ4D7GiKky4aHjnWdlJtNoSE6It9P15yHJYO8W6zs0zHQXDC75wUOV 5zayz+fRsN2jjr9niodWbLj821OxY2e/GobN8JCJ8J9Vc2KvUVgRNckiULja s33h+TSY20dpti4mUMD2OqnEAhputLid4usTyDrTbDSviIb1tYqjUv4Eau+S f5j/gAY/O6MbZpcINFOSPjsk9vNvdiYBIQTaGi61SOMhDfvZsTFDUeK8zyAt S+yLaHZdXYp4X2TxnuRHNNRVdHiGVRKISG1a5/eYBjmLiSVVmEB+Bq/NH4rt 2ClbPfmKQP/kWG2gxKan/5B1bSCQyVT5WZcnNCzVf1Rk1kOgCv6lu5ZPaXB+ 1XQgoI9A3VNhm8PEvm87IiodINCJnJNp1WKbnFO2UqIJVCdwa9ctpyGcuWX6 zwkC6Yw03j8pdjP/YAZ/mkAHksr23hFbYc0F87pZAnHfb33VJfb///doJl8g tbiChv8F+OPKNA== "]], LineBox[CompressedData[" 1:eJwt13k0lP/3APCZMTOPnURlDVnLV6JQ6L6TKFEJKamklPoQ+imiZF9CJpG1 JLKU0KZSPA9lKYRk91UqO/MI0WeM8ZvfOb8/7rnnde6599xz7l9Xxc37oDuN QqHU8uP/8qlSFrm8jBG3XMhk35xgkF6U0zDhYoRKYnv599fB8MHyocvlvxgR VL/O0q01GDQG3nycnMaIuiLmSNZyMIyL/sztGcQIzf/R+/T7+HXwOb/l8PP3 GPHN73bwbckQCFbvJc5EY8Sl3K+20r0hkJG5LqlZHCOGKiBwKS4MHuml57wS xgi1pPnhi5lhUFEr/jSHiRHnmbzgP4/CoJf8t+USj0nc+jfimOqnMJCzaBVT YjOJtz8kxRWEwiFz8mrshWYm8SU0XDM9NhyyzDpDJOKZhE7DhJdISgRkf4vx thNiElYjjrUB3VHgKiLYEsJgEt4HzcvsxqNA1Shat4zKJBzeFNcYc6Mg/2bk lDiHQWg3S97YpBwNJWZh/zSNMwi5AY+ezx7R8C4z6KxVE4Po6txmVcONhl6n CyfMEhlEyMgq3/6NsbCq1X6/tgyDeMYcnrlSGweynzW7/lnBIHT+GbFv7I0D habF4yViDOLD5jqD/0zHgUpD7gUDJoNQc3+coyofDzrEbILZAp14dqI7qcM3 HszLbjfZ9dCJ5fkXTWdUE8Cb1b4n8C6dKA6Q9WWxbkLDAXuLRnU68WjmyPyf NhasT5N6+E6FThjWX+3jfGNB/Lc2Rokiv366xEeEzYIDFw7Us2ToBPkmtXW/ 8C3ojrO1PsSgE3rTZ7zO7LwFo3VWBwZ/CRCeh+rPtr+6BYJmpi4LuQJEGtaj Nl2UBLu11f3WqQoQh8MKDpx7mQwuGFvNWUmAkI03JkNqk8FnqLyDJSdA2D5c +J3XkQypObuNeFICRPcjjpXUfDIMy3pyugUECBsZNYNwoxSIEH4ecnOIRlg0 vaXUvUuB6gmU8G8hjbC57OUn2XYHtpW45LdspBEK3l1b21XT4UmHpN7LDTTi /pKD37RROigvfXiToUkjbl+/LLPWNh2YNv9pdl9LI2pv40SZfzp8GVuaXRSn EYofx/UKmtPhvHr2Di02leBturF98moGZGQN9ocUU4n6CNl5w7FM4Nw4s1Jf m0r47jtpPbZ4D0oivGvXq1OJded2dTjIZINbcID/OhUqMWH85c5X3Wz45Huj T1qWSqjsZ/6VdMuGjMMluQuCVOKkg29j8Mds2Koxb1A5SiF+7j37SXHffQio jnTYXUghJpYdlNu0cuDPQl7KcU0KMYk5ilQvPwDnmFepWesoBF4SUK8rngvE mk/pvWsphMi2kKV8hVyI30rePbSGQsQfXPhdvjUXVIO25u8TohCYnO1rR79c uM/N9LrWuYzr629/kDyRC05C7FKz48v4ratCVVY/8uCDatLmKi8erhv0p194 Jh/2dSaMp7rzcOOpN59q6AXQHRt73/cYDzcw9JGPXV0Ak9Mhouq2fI/biuww K4CVuPevOB0eXujWqXMitgDcjtomH5lYwmP1pmtc1AqBkiw4N+exhC/sc9h/ 370ITBjXn284zcXFvvCOe64uBq3hBCGWCxf/GkgTjtEphlX1WSfmHLg4Pdvo 5LMdxTAdUyFSuYuLX+0+ucXAsxjyRedP7dPk4tt8nI4NVxeDlLSXtO/4Iu7l brMg6/MERlWPXir3WcTHDJ9K/e4qgWRkZLTjGgdPEw41uztRBqeyDg+NZ//F uZe6+jThBbQUKAlRM+bxsuKLRljIa1ASLduEl8/hp0fp+RlqlSCsPNwy9mgG L2wZlG69Vg2eDpFphYXT+NVhszDRpg/g+v5bo1LSFB6vtG1XgnUDqJrx7GpD x3DPANGen7FNUOTxfPBt+RAu064oXXy5Fc7PPnWJyxjES/bMuLlKtINuMOMI c10ffmcg0276cwesvPJV5E5mO17tL0W7FNkNXac915f+rMN31FXwPqf0gX/g +psfU0rwsSe9rQERA/Ao0Rjl6T2BtuZZT6WX3+HmudBO17B6cOhKOWNo8QPE 5mxMiu3aoTTm4p6HpT/hu1/d5ssRfbDHnpWToz0E7De2Nf4Ng/DepYV7KnoY 8qNzXE/HDoGQjcChqfIRUJ9/vDIgcwz+W5T6NvPXKAw8W1tp4jEF/hsjG6g/ x8Ax9XvMBGsa9OsVVaNqxuHew/hKmzsz4PE1VO1u2gTQj3pNMa7Mwe7gp7Vd lpPw2bWo4GDEPHy/oivbODYJL8Xkji14/gUN2wOTL/6ZAo0MlVHMhgPCQTSm c/cUpKv7B2g4cKA/aOiBSO8UiD5tEtzlwoH4/b+F3/VNwWy9v3aYJweikjRB 9tsUEH+az3PjObBGLNq6dmgKjtoFTk03cyBDIjHk18wUsATbZ3r2L0KB0yuK hSgbOJcjlh7bc2HzyFTRYxM2CHfU8Zu48HOj39olUzbIGQgNtLtx+XfiPrbd zoatZELVoi8XLNhKopOIDQFnU6/vZXEhz25+XtGSDfNOj6gTTVxow/pHDx1g w4xxK2O95RL03f1eq3yaDRMcefFCYx64vZLQ04tlg2ldtM0A4sEVKOW53WDD zVuzN6T38OCC7ND35Dg26Gk1YqFHeBCsHPzjTwIbLjsGUp0DebBktGOiOIkN lLLuOZF3PDjooZlOZrJhlXtKnzcsw/Z+3o3GJ2y4fzb6q/w6CloR5aDM+8wG wSCPxnWaFIR3OnX/aWGDz809NRs2UJBr/3jLZCsb4KVImYkBBUV9a77e/YUN AzRW3NGdFJS7t286v5MNCvfSzDNPUZDVhuFY5QE2pH0tKpPLo6CLSrmyNybZ wNrRFC+rTkWPnB7M2GEkWFblGvRrUZGl8GiThCAJ3G1Bvfd0qOi+7kO5Zr49 Nq/XUttMRYQcb4WlMAlIM+a97k4q4pidD9wkRsK0qAVn50kqWlGaEM6WImF/ 99uzF+5S0a5hx78CSiSIez82fy9DQ4um4X2l+iS4P0iV7JKlIWvu3ixnAxLe dYQPjCvSELOiq42+mYRzpi6BUho0NNrdl+W0hYQPQmLPThrS0GFbWtW8EQmB eRdUKE405PzLIVrejIThnk0UszQaMrwYvkS1IqHK4nVluZwA0h2hjTgdIeHU YIZJpJIAWpNc+LyHb8Hga2/sVQXQ3z9rFY46k3DwlfnLaW0BdMC0oNrlKH+e dnPx+q0CiPaGcfboMf7+Ej8y7zkJIIuWgSOWJ0k43iMSGJUsgNy8G5u/epCw 5HXC8JA4HW3/ONL84zIJbsZTcSuk6Eg3ZyB1rz8JdbSgwSYZfn1j7YoXfN9M vRO/U5GOBkL3rooIIEGpuvmHng4dydtneigHkrBd2jRRxJqOLl7AT1tfI+F6 xZpRIpKOSnWQlXs4CVTsS/qGJTpKrr+eXXOTBGaM3ypjKgN1fW/1UU4kQVho 9W0LBgMFjX+Zvca3tIhL/DExBuKpjUgYs0jQkhgOTlRkoFXeBgWFt0jYt5pz ataMgcSUB2KCkknI0lTVfRvMQPpL5u/H0kkw3H2xxprCRE6JqT1zuSTE6ouQ K+hMdKTCssckj4R+hTz5HoyJsqaO54TxHfa7w++sBBNFaVyKk3hIwueMrZoR SkykaPffRo18Es5OUeIrTZnIRv6Y6t5CEtKSEh31rjCRYRXT0rOYBE5/8ajM DBOZb84SlH1BgoVnA8t2non02kHDme+ExZ/GkRwm0j/3VTiTb2U5+dg5Goae Xb2jrfCSBCunWO32lRg67vetRr6chOQ29/OsLRjy9BFOlHxNgm6d0qTwFQxp Nff0tL0lIcBxW7L5NQwV2qToi74jofqXo2lgKIbWhmoctuTbQSAhfiwWQ653 rgpX8B2EFnUaMjAUt7lNMruShIaKLq/IdxjiNfp+OoGTIGU9K1NJYKhxQYuR yrdLj3jV3AcMcXy8JT7zTS7sEj/djKHiavvbJgQJq7a8KDEfwFDVYelj0tUk uH5oORT4A0N/3AfXWPNdZD/BezqMoYOrEx5e59v0oup+FRJD4QHq+uN8R1G3 LxyexdBz59P6a2tIaGUdyWYtYGhulwbdgW855UtWDYsYQku3C2L4/v//AVmp dCpU8v2/km38Dw== "]], LineBox[CompressedData[" 1:eJwl13k01ev3B/Azf0xJklDJkLmZBhfthyR1JUVSGSrhkFA311QcIkMnjiRz hpAikagMfT5lTDSJoq7S4BrPx40Mx8H3/Nbvj2ft9Vrree/1rL3W/uNRPel7 0I1GoVAaRef/qut9HrmwgBGXtp3wHbYNAblZJU0jIUYEnd0iHPcMgQaLAse/ pzEisvBUijQnBDR7n7wYGcOIkGfn9INLQmBI6vut7j6McNqhnL2WdQH8vLY4 VNRjhH5Aro1k3QUI1egh3KMxYtNri89KhqGQnqF+rV0aI7I9D48uVHHg7sa0 3EcSGPHdXuFbYSMHqhuly3NZGOHbMPT26HsO9JAzr/3nWcTMffL14H8cUDJ/ s0iZzyIsrt27VLAuHDJGLsT6tLOIsxcZPVm3wyHTpIuzmMsibC7vKf9REAHZ X2J8D4izCPUghn/oq0g4Lin2msNkEWrN3g+4XyJBbVv0+jIqi3gu4zxdNBYJ hfFRo9ICJtHU/qRVcmkUlJpEnG4bYhKPC7c0hjhEQW1GiMfuNibhXeEmubg/ CnoO+7iYJDCJEpcwdzupaJB/Y7tfZxmTGIhC47SYWFB8pfXh9BImkeUf/Dg6 MxZWts06ly5iEhKawyMry2NBteWWjz5LlDeidAX2xMJaYvyqyRSDUI9rk5pe FwdmZUltB7oZhPYnU8vVH+PAl9exJziLQazNPpHnbciFFhtb85caDILGSaDP b04A3VTZglpVBjF83YmvZZ0A3C9vmaWrGITDLBh7eiaAjY9NM28ZgwhKubFv c04CfLyyb689U9T/yOAGP4wHA027bfp+0AmN1oeZzoE8EDMxdpy6RSfqL2tq RLgmgqWOxnl1NTrBsahS0TiRBI4Yf81RZTohZVFk3OWXBH4/qzp5SnTCUQ9v TeIkQUqu5bZ5WTphY6V90iAnCfoVvQUf6XSiTPopR+prEkRKVHDif9KIIj2H QpWT1+HZMLo6U0QjKg0DJFf4JcMfpY6FrzfQiAlnd7mwyhS41ymzsVKPRiTy Urs3t6aAylzDk3QtGvFWyNWc7k0BltW6drfVNOJHmHT8I7FUeDc4Nz4rTSOc ZiKXSDqlgpdGtqk2n0qUUPQnZcTTID2z7zOnhEpsPfjVWuCTDoI496WbdaiE zEh7ra9/FpRG+jbqalCJO2iDbWh8FpwMDQxQV6USxh8V7HJvZ0Hr2bhPcopU QjaDfLOmJwvSHUpvTYlRieV/2Tqoo5tgqDmpXzdAISzDTRolZbIh8FmUnWUR hYg3mAsUuOTA76n8ZGctChHyfKqwbVMeHI15lJKpTiHyqog98igPCIXWtJ7V FELpyY7LXtZ5wDUks+wVKMRKg1v/bj6dB2ohhoXW4hRirLJM0rwgD3KEGWcu di3gycUnv5xZcQsOi/Pvmzgv4OldU6EyMvnQoHbN4OmZeXxsJk9RdWUhWHdd HUpxm8d/EZLlNesL4WNsbM5Zp3n8Ikf90ynTQhgZ40hp7JvHYX/xou/uhbAU 9/1xZe083hk+Np3woBBOHtt3/cjwHP5uyZGjD61uA+W62MQEew6/F2B45TS3 CIyYYRV6p4S45+qcg4RRMWj3XxXnOQpxxZBtk202xSDfnOkyYSfEPczLAwfc imEsplqybpcQX7bnt5EVrxgKpSZdrbWEeHhv6+3mn8UgK3dG7uzQLG6ppB+S nFQCA2rH/Kv8ZnFO+WRei+AeXEfbtpleFOBZq5pdHl0oA9dMh59D2dN4pk1i y8SbCnh9W1mcmj6JT0+E3S6TewzKUmWb8KoJ3NtMWWW8rhYkVPpfD979hXMO 79CStX4G3nZRqUVFY7ifP1v1WU4DHK//8lL52ih+1KWGvWhNC6iZzB9oDB/E HVwOhEl5tsEddkVfTdVPnLvXp26W/Qa8xssdr6T34Sz3UbWbjA5YH8o8wlL/ hP8jt01ttKkTlga9l7yR0YGnStfd+xD2ET6c8ta9/70J35n6Z2nWtU8QEKwb /yK5FD913sX19KVeuJuwHeVvvAd6y5NmblZ+hXjP8K7jEc1gYWHk37PrGyya sDIqOdABZ9eFpLMffIev55sM/o78BMr/1u2rWPcT+E/2PQ9o6YOuRD/9Tm4/ FEbnHj8V+xOcp621Kuv+BY3J4qWBGYNwfhVZ1zMyAL0PVtcZsUfB7t1gftLI IBxK+RozzBuD+P/ab+5tH4KbBdw6qxu/oHehYldE/jAwjp0ZZQZNAKn/bX2y 7Qi8On7n9sHIScjXi47aODUClYuUnKa8pwGv++XvHzQKmumqA5iVADJ18xS2 9Y9CmkZAoKadAIyHsssH/h0FqfI2sV2OAqg2y1+SNjgK480BOhHeAuAPndaZ HBkF4ne7l5ArAHZSbmvu+CgcOxA8OtYugIdOdWycwgeeWMev7v2zUHJN/rGC Eh8Ef0fOFdsKoS9O24+9hw8SnU2ikBD8ZHtnHu/lg5K+eG/HSSEoFPqliFnx wZC8+nT2rBB+hiKZAms+BHqkhP3JE4IXcxHWYcuHycN3qcNtQvgrm3qR7syH X9vfMHUt5sBsa6dK9Vk+DAtWSBdtn4ekrTIx6Tf4YNwUbdWL5qHf0z3+ZQof 4hPH4+T2zMPnrh0Fs6l82Kj9Egs/Mg/W5DDrSAYf/j4UTD0aLMr7nSgWy+ED pezjhGTtPJS1WlGN7/BB3i35ky8swMrBOMWpaj7keES/X6FOQVIVDr+/fOKD WAj7pboWBdUGTJt2fuaDX/ye53p6FFQd9vXli3/4AJWSZUb6FGSyJC+t7Asf emm8K8d2iu63xun5f+fDypupZhmuFNQUtSarZ4gPqe/vlCnlU5AV808rpRnR fE3buIoaVPTwnFJFzFISLJ7e0v+sTUWPttp82ClHgvCPkJ6ba6mIPZB8Zl5k toGu9hoDKgp6/va/s/IkIK2Y+vU7qUgQGeV6UJGEMSlzwc4TVPTioQzMKJOw /2ONh08WFV1b4efep0OCtG+xWf0yGtIMuGS/YQcJbnkpMh8UaehdTUpXl8i1 nZd6h1bRUMgP59aLQIKnsWOwrCYNWWtXSLciEhrEFz04sZWGFNapyTvuJCE4 30eVcpiGJP6pvuBuSUJ/9yaKSSoN+TRnc5YfJOGp+eO6KiU6mlbaZEM5RYJr X7pRlDIdlUy3/ggVWSz04hNbNTr6+LBRbk7kg4/MKsd06EjnDWY57Sbqp9Ne omtIR+/LeuhDHqL3L/6WcfMwHa22Zy6pOU2Cc7dk8OXrdKQQzA5e9hcJc2dc ttpLM9DaNOun1RwSTm4fvbJEloE4bt02KuEkNNFC+tqWMVDEZfOkKJHjU25w d65ioKKZu9r7I0hQftb+beNaBjrG+yOz9xIJO+SMEyT3MtAD79/d/MskhFUr DBBRDERTTjDv4pJAxd6l6c0xkNcUh9qeQgIr5rz8dioT3bgUeEwrlQQJ8eVJ 5kwmqjR18wgXWU7Skeu0iInk2lRuGKSRoL24PzRhFRN58jXtU9JJsF4ucB03 YaIdFhKp1lkkZGqpra8JZSK2L7srKo+ErZbnnu+lsNCNo4TpmhISYjdLkksY LLT4yNAqtsifV+av6MZYyCZ68nmxyBH/dZ73WMxC1Qau7M33SHiVbqgVqcxC Taa7NUxKSfAYpXDrjFlIxjeba1lGQuq1hEMbg1hIkeezdftDEgSfSwaW/WIh 7ReJNZdqSDD3buHtm2ShBD9ZzjORr85+3x4lYKEGA2upBZFVlFbETtAwtGsB vxBUS8Luw7E6HUsxdKefWn+6joTrb928eFsw1KinKmOBk7C+SXlEIghDG0rD 5949JyHw0B/XzS5iiIHuL5eoJ+HZj0PGweEYkghNXEAi29GvcgdjMST/Ttuw VOQQNLu2JR1DAjOuw+UGElqqP5yJqsWQ3crfPuuaSJDdO76sjsDQuej9QSdE duyWfjrRgKHBBhW7ZJHJqV3Sp9oxFKPVESIUWX7Lw1KzXgwtz12d2tJMwvGG 1/bB3zBUWNWtOyvyHdvh+fJ+DBW0OSWsayHB+JzaflUSQ1u/eb1KFPkydceU wziGAoUWd+pFfsM7ks2bwlC9VZL9b5GVVPx3t8xiKAAL6tJ8IdqH//8/oEQT VR0Hkf8Hsdzvuw== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{{-3, 3}, {0., 0.9933281710927294}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.586717201255003*^9, 3.5867172137716646`*^9}, 3.5867182299813385`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", " ", RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"InverseCDF", "[", RowBox[{ RowBox[{"StudentTDistribution", "[", "n", "]"}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.01", ",", "0.99"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.586717244399206*^9, 3.5867172656978464`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVkHk0lIsfxscMYxhblEoia4tI3BbL+L5UuEkhu7Reoi5KaEHZIrITKqHM lbLUtRPeV4OhyIRrz5ZtNkXDiPDr98dznvM55znnc86jdNHHxg2Pw+EKf+f/ 7WhpUPvGuxSEFgO+/bophSmFJihcRMrgc4QR0ypSEsvq0bw7e7oM3GT6/q5w l8Tk97Z9uXO5DETZPEMHM0lMtpf0LCW+DIrvfNpuLiKJiWmGbWsaKoPjHg6s 7gQJbKnPb8uu2+WQ+8+GTOmX4tgnbWfp2X8r4IW4SYHFMhlzbf3riTK9AiIL 1cL7h8kY54KPssNQBXy2eTWXQSNjoikROhixEvT0TLxfx5Exs4Vim2SXSjhi 62crokrGsGpCykGhKvA/kWtt7iSKlZgUydxzrIac7PnsonESZjxY+bTUqxqI U1de3m8jYYwb71VmwqrhAW3OKrSChM1Se3Wti6oh8FbNrvEYEqYhjLdVwdcA p2xnCHKAhFE/2qfSC2rgl92fSzsThbFHtrhNUuvvgBD2yCXtDBGbejFiPyBd C4xvnX5hFkTs4Fx9BlW9FtKv3ci8r0/E+uKC5fVO1sK7Cxp2jC1ETJ6+rHLx WS0IC41TfHuEMKregk6ZQR1cNU2Ux+yEsDIFlpXjrXo49Ob6R9dLgpiQV2uy cmw9/Ltzz0KPrSBm/y6/m5NdD/Mat/AXTQWxJYfLjqH0ekBEYilFuwUxw6SJ c69lUXjo3B2ycY6A0Qgj3r/KUHAknC0QCSdgnjxPU8YtDApj2Io1JXhMri4h MDocg+B5/TH1f/BY2/3ytybxGNj90wfUdDymtVlgW3kuBjcO7bVlBOExnl7G t8efMCjx93BjmeGxu/eaMy6pNkCCaXs8eUwASxFVYS92NIBzCKgYKghgR7vM d7wdaABHrR2N4dIC2OJTbzvPyQYwOiPyoI8ogDlq1qCDy7/3+x/LvfqGwxSs rFMxtfdwKc9p/GsDDst/dI8SE/ge/Mx6PAs9cFjdjqGE7TtpoDMnKDkbvI4O DTqXUffTQCtzT8Nnz3X0V1p/n4YhDbbHpzFa7dZRQ/FeJX1rGmxNvBq6qLmO 1vz8XGofSIMRtbUko5E1tKKT3pvQQQON2qCHXsfW0OKIUkX8rUYI9M3X8Vdc RXNmYt5MtTSBy6BuiovgCpqz9uNtVWcTdJpr3Y5aWEafb3QtiRlqgnuST9zQ qWX0BbKvXOt7E7S5PZc63bqMUjO6agI2N4Pl0/dc4YRl9KW5fDPRvRl+PJeR eSK/jBbnFw2pE+jgZOu1yIefaJ0HQ+QypQUKziF2+VQ+aprjoyhu3gLJhrOn XdP5KKNX4kCpTQt0tfrFycfw0XFTy/Prl1tAr5x2p9qHj5LUPlSkJ7eA8bV4 +lUDPmozRrvUMt0CCvrtdXndi+i0U2Xd7uRWqGpo2qsosYhusMi6zpn6AAF/ 3G568YSH5kziN+6+1A7x3ULKijrzaN02auxYZwc8OCe0N13lO0oacI/uMPgM kX9NLV514KBWeDoz+mYnPDTeqBYuwURLXdiM5vYu0Ox2l0zpnkS/4LVyG7b/ B1nm2ifps+OoGrFWeotDDyQTQrEzf4+iD/QlROZe9wJl7v1iSd0gSvpYkKk2 0weuP2vPL+j3otRY8cohGACOtsvHuoROVDgzrtY6aRAUz54akjnRhkYJO51T bhsCP+dNJfrHG1EV6swDf6VhuOpxfMgvvhIdyqSdUj0/AmekCr2/uGWjxdeH Q8xPjELWx8QoAv8ZBGlStmMLoxDGe9f5TqcKnNKNH0ymjIFY3oLvvV80oG3N P3gCxsFc4u6IcHkbbKA9G0iaHgcZE5Xno+87wUtOz/J+xFdQlCLEOhF7wSHm IKFGawKyDOPui30ZBKv8/qjM9gmow52+Y2Q9Cnu5ZPxZz0loFQ1ymW8fh7Tj Oeh56Skg/xuzklM+CZL2AxYb3k7BdMePoLn8Gdh0J2AbwWUa2FdUlRn7OLDn RFX1i+VpqGpm7XYd/gYqx6ItldJnYH1fYtTjpTl4ZV+rOoYw4Twls1w7ggf5 1acHnY8wQffp1IageB7kybOTuo8xIS2f+aU9gwcvxreu048zwWTHwfGIIh5k et/sL7ZlQjBF+IpxLw/iI3XigzyYsPF5BHlFYwH8KvL5mxOZ0C/Nyng5sABG so8+nBxhAq8g0Il+kg9ZAvqRq2NMyAxWpPBc+LDOGTYunGBCb7SzqYYnHzDa rmoRFhMsRnG4qnA+mFyvfdnIY4JepX6yZTUfzNq+RuiLsiCyfSTVX30JrMJ0 QP0AC1rSXEOVRH7ChdmO0tUYFoQ3PjGL/bEMZ2Ut2NlxLCgLlKbcIKyAs1Gz skkiC57+7JfzkFkBm/japMhHLLi8SWssUHcFTLRe+UjmsCBVKHzY0m8FlL3D NJTKWYBPmjtVvLQCE9w/co+OsOCblfLrdbFVGN30dmBqjAWf90j4flJYhSGK hnT0BAuUZX0Fi7VXoTtOKbSdyYJr89lz2bar0KQpcc6exwJDt8A+62erkOc1 LechwoZh3YEZIZ01uMx9nPxQlw05Dv4LgZ7rIF94KhR3kA3Z/KfpSNA6MK4I XfM/zIYwL3GZzQnrcHjmmuU5ChvSjkwILpetg+hXM5KuGRu84476t+NwSGHf QvCAMxsco45u3X8Kh8zTrD13h7HhB6u4xOcHDskLE3bMimCD0CXdZrE1HOJs XGcqE/Xbt9EILSMJILT6XaqrD9ngqmb5Wk1BAEmtXh9mPGJD9Nj3y3F/CiCH 3hTZ3nrFhrhK/M77LwSQoCciCJ3BhsIaCxGqKx5JHmvTvd7FhpmJDOcPV/DI q12JO7f1sOFTPD8GdwuP9FTISvoMssE/tpzwLBmPaHepDMtOsaE/6PD7xy14 ZJJsFOS+woaJr/+x6w8RkJPBvlVC6hwYVRneWawiiPzVeKDwzS4O3KTzDaV1 BZFA8s9sJw0OyL2WKY0xEUTyH9+LKtLmgENCrlf1BUEEXxFrb2fAAX/Rvknp 54JIxWwej2rFAY80244vKkKI4vlB7aOBHAhxj4d9BkRkltI/iAVzwCWFfOro CSJSu603khLCgWbMrfiaKxFx7u0cOnifAwF3J1WlQohI2skPD3YncGCgRy3G p5mIiFGqRyVyObAhb2B22EEYWdqantj/gQNijctfNieQEDo/1cC+nQPnguKy wnNJSNp/yVOdHRzQtoraK1FFQnST4g3bujkwfki8K2SMhHiTImfqhzlQnHvB a+KACDKx6IdQ53//sZgkypwQQRhdNt+95biAlxy4hJwlI/qz6ptH5LkQbdtU 8DKAjFBJK5RTilzor83YdyiBjNym5D7cp8oFY8JaJAMjI8ovf6h/1+SCt34n cUlNDPG/k+p63ZgLskW+hYFLYshoqkfE2BEuJFX/+euxjDhy/I1hgbUpF/rs 7lGntcQRhYmJpf0WXNjiLb8m7S6OtFgeSJ235QJuhzSlqkcckVPq+XDDgwvt U2t3KhokkAiD13Nfr3DhFaPVTHRUAvlmd3eLrRcXrjyjWqWtSSCNMeruf/j+ ZnXcUydDScSLFyCwEMgFmwJ1/ewaSQSjbz4ckMCFynri/vMXpJDTUiX8sEQu dFCW5bU8pZD/AUCxW5s= "]], LineBox[CompressedData[" 1:eJwVVGk4lH0fnRnLMAiVyJoshURIi/j9JSplSaXkKVKJylbyREULJRVCka1i yBaRbYT7ttRElC15kK1CZuYeislo8PZ+ONe5zodzznWdD0fdw8/pFIVEIjH+ 4v8s2/tM81hTCojwgriCf2Xwt2/GsmUm04BhfT/BO00a315s03DZOh3SHRfT g85J47WpWYOjyelwuzN40nabNF5x4YRCjfUTSCQrrzMZWIJ3xXIbS+2eQtdv Y5kw3SX4W4uzpsczn4HOMvENG4Yl8fDS5MYVH57BD/24y7FVkvh23Wanltln oOC4vDcwQRLH5HT8NtlnwP5U2yp8tyReyR59LsXPgOwAjwS5Kgk8L9ljZZU9 HazzHTSuFtFwL5m4537BdEhv/9PPjaHh2rfqNmrR6XD3XX427k/DMwNWOcXy 6SC2R4kXaEzDU3cNRHnSs+BijrHe72px/D7PRbB0Lhu67L/zBANiuL/TvsGz WbkguuZHfNdBKl5irDu8tzUXUremLS9BVHx6udBX/ZlccJO4+a5Gj4pf+lw6 yt2RB9mlZTJHKVQ87B8F4sK3PBhBqCenWBSP9hwUXNYoAHHnmscceVG8IMRH 8d6zQtigHYdfWxTGCVcbZZ+mQug6FyMhyRXGDc3VVO2nCoEuKqpTNiCMly62 qctYFsFiQc5xt1ph/HW4iU7CUBGcHJZqEw8Txk8x55U+xLwEFM+pOysijAe2 N+p2fyiG3kb5DU6aQvhP7RNRHiPFQCwm7LaQF8L9rpAniJliSJ5nr7GgCeFn 1ljkUlVKQP78Y49LkxTc7WrFmi1nS6CKUbKhvYaC2+rkaaZSX8FC6deMH64U XP16jKoHKoUiS3Xxm3Qynt6tH0rsL4Wf8xM7ox+TceV1LV9CTpfC6C9J4nk0 GV/xWSwtProUXISfj4sEk3FJ/RtKb/pL4fymaL6XPRmf7QlUWBtcBubT32aK /pDwD4ZHlhLF5SBbQzK/5EbCjzadTF7NLAeR7jCe7UESzj7ut/pQfzlIplSG 6O4h4bT4cCNctAIYQS98pTeR8J0zhU5xrhWQ+15v3EeahOMMoXhTkUqoUwmo ag5fxEq2v1gWdpgBYfL5ZPXjC9jDAyQ5mcXXEOQp2hzhJMBGMwade5dWQwTd Ll9nhwAznapNomtXgzOL2d27UYD13L+qvMW+GmaZ+16eXCnAlJlzGh5p1WBV Uz6zbPgPRt8yY1RqVgPvw5dVtp7/g5WqTjgevlQLDJ+CQrUnc5j3tLdN2yUc NHpwhrM8H1Osibl85yYOR0PF8qtpfKwlouzl9mgclpP6JPUXZrH18mSlskwc hCVODK77PotNb0niPv6AA9dzZDr71SwWGvY26YRmHfRaRcwHOc1i8TQNFu9j HaRofjZVTfyN1azqj1FZ0wAe03eTsrfwsKfjUUWj795AY2LW6oy+X1iNV5v4 afN30NS5eMB3cgqT3ZMewB5thjerjiimKExiT79TluucaIUS2kAeS4GD1SjR 7w13fATVBKO3C/smMLFezzsfzdrhaUarIevOGOZIYf64828HRB6WoLxX/Y69 cmW1vW3tBD+Hd5385yPYF8r6zDqVT9B3vHZI69gQpiVavVThUDeka2zJLc7p xyK3LhGfyvsM9ZUOWZhXDyb2Pj9Va7wHctg3T4vFd2H0e1IV/dAL9fbXM2oi 2zBq6v3qfQ/6IJ5XsdVoXxN2m+ritrqlHy7fN4i12liPadDHIy+qD8ARZ7M9 Bw3KsP7UBgdN90HYVNXm/9oqFSsMGLi2a+8QJHMZv2P5yXBF31wFnxmCkEkr /HV9GbgkWkZ+jx8Gt5CGrJ/cOmhYmWO6F0Zg0nLd9YkXTSDbkNb7YGwElps6 yDmXtYGP4ha7iPCvQAv4Ihg61QWHokyFqtZ/AwvxYGnNmz3gmPPf7dTWb9D1 k9osc6Uf1nEkKMe8v8OpD1E7W62G4JHtU8x96ShMGWqFjsaMgLRz7x7Zl6Mw PMiP9+/4BnIhQUpCrmPwpHc7y9pnDHT3VjIy5sbg2O0sNW/xCdCwvmOnnjgO 6Qf2l3e3sCHXuVpzGP2ANMrnhSjaJFiseNhsP/gDvCvUvJtqpuA48fHVfNQE yA91urp1/ILTnMdxd41ZULFwYbWFAQ+UCxyuk0xZkH/cVallMw/azoj4X9zM gvIgeS337TzYPO5v52bOguy166KSD/KA9nWnmPFOFuz6mPuvyxUeFPTMXO09 woL5s5o80fc8+Nmwz1vnBguGJdsd//H5DVeSxRGzjQWrpBfXUN/NQtxwi3FA Jws6wm3Izl2zkLs2do1SNwu014eMFA7NQnf5Cmm/PhY8qbkpCOXPgmGnxsCK URY8Egg7J+vx4buExRXPPyyw2vrOoeUBH+yvnq8U0WbDgFunXIrnHJxs3FhQ tJYNz5TLyvYGzsFlCf4TFz028M1u59BuzEHO47DbLwzZsLHIqD8/bQ4o5fec D5qxITQ0vC/i0xyUE9nTdEc2nLbHJ/J3/gE19z7DHZfZoF5U0OVtKgDC/L8+ /CobnOMGWlp2CKBa6fMt82tsqJhnmpjvF8CRzx39phFs0EnOKrHxF8Aj++ZI nRg2fIpulFjME4CkOWNoSSYbXvAU1yppzMPsysTY/5rZkGbS5FWrugDM3wlm zq1siAg9sZRisACPPsWNdnxkw8ml9zOcYQGMH0Rva+liA7U9lm/kvgC+YrfG awfYwOrR0qvOWIBvvEBE/8kG7XJlBQO9RWjrdJr0VeTACoMicUctEtpKaMsP KnMgIvpTWuB6EqKL/TF3UONAx9mc7MxNJBRsnnnXQJMDtyJP+arbktDq57+0 J/U5kEjVsUv3I6GLIQlHAyw58MXXc6S4moQU1bubL3hxQGpD1ddpNzIKN8ub +nrmrz9eQjHpDBlxD4YqHPDhQKCXofzui2TUGKXtaXKeA/TzX8a6osjIZzqI PHOZAy8jRCITy8kIZ8pvDorhwLZbtafHZCjolK9L1qVyDsjmHFara6cgI1mz dhXG337hY2OXBilo4ZXyfP1rzt//M+6y4VBQEn/wgFQdB3bILKpoiwuh5nBP 4Yz3HHB4EFzJtxRC61MunHg/xIFpI9sfRpVCaM78YIz/Vw785qcE+zCFEHPI 9LXcKAcI7ByjvlsIuWvPLXVncUD3Xvej2hkhFFd8rX565q/e4mEjslEY8Zj3 1VUlCJhMOp6kxhBG9Wf87BqkCBjLE8k2aBZGMVL7gr1kCNDfZefq3ieM1u5f 3l4iRwAW/SxEa0EYHRlIvrZzFQGtgU0me6xFEDb9fNB/IwFlv574BPSKoEj1 +rQGNwKsjYrmVTSpSMp14JqZx9885kRc62YqikuYO/HqJAHXz94yzbOjohSq sW6mNwFW43LHOP9SUSEns/zGBQLM8KHpwg9U1MWI+Gh5m4BLvwVfmyPEkMuv ZyWMOwRsnXrDpqeJoYF1tQ833CMgKMq0trJMDI094bmqPyBAvGBtwoNRMTQX cXqclELAUZNlOzX3iKNVTrvJeCEBWTU/aW9W0VDW3VPfNhUTYFBlbFu9jYZ0 31xnFr0iIPKtb+3iYRoy3lx1/0klARdFzXn+cTRko6qnGFZPgMbjf1K1xSXQ uQlJY4tuApxk5xKdqJJoSkNnRXnP3736k8U/rJVEQUet+fp9BAw5BsQW20qi sLarmMoQAcyYK6WMGEkUV07smf9BgKHAUkRGTQoxbrSdrJ4nQOxQx1aNg0vQ y475xqskLjjZ7ivSvLkEZa/W0wIhLtwxsuEPFi9BcfUR3+vEuGBQ8igmSVYa naGYeTKXcWGAasUt6JVG7k5ebyNXcGGbivK1u1QZ5JzxUNt2JRd8L+p2mKyW Qdu3T462qHLBhM7y/nlYBu0WKtjosooLH83nlNd7y6D/AQnbw/M= "]], LineBox[CompressedData[" 1:eJwVj3k8VAsfh2fGMLbJUAlJtpQtSpHE71BK3VJEJdclRUq4KIkkpUh2Ilu2 UVEpmSwl50gi2XURMiommZlzkqVpmLy9f3w/z3/P5/lqeAY4elFIJFLHn/2f 5FPC7A0ZcSA+F0IsnGdg3z3OxT8rigNT+0FXyjkG1vzR4Dz7402IVnN0sTJk YGf7c/aaOCVCscQP3UhHOYx966d1y1Qi1Khu0W9ZJoftcTpo5paUBJ+1ohvz B5ZgyT7iKdu9kuGQje8w68QSzHu8LtyvIAWIpg0GzfF0LPf16TkzIgUyjS3S 2lzoWHexUiDFKhUC3rs48tfSsW2eZ70zh1Jhr5t5o3OzLLaUre/QoJgOajk9 45Xysphd/Yd3N73SwSLq7cfLHBnsUl7MzkOsdLhyY8ZNvU4Gm3T9YsF1uAW5 A7sqn5+SwbCBbJ3lCRmwbHbH7P12aWyu2q6QPZQBCrdyWw7el8b0M+dWlull ws8sRmjBVWksw9lRHloyId7DVCCzTRo70yO14COWBWSNrqTySimsqKI6xMQx C4LPelV9S5XC+pO9pkQFWTB4jFLLDJLCbPY3cFKtsmFx7RLfeBMpTLkttLvu Qg4sX7Z4oeW5JPam6etdxvc8cNUwzbw8TMNsKnY2htveganG6QgdjIbV55aw Odl3QCL4IMWYScOqg48rvbTNB6L7E/2EHw17n0y8Zu0rAHyWLcWg0rA3Vr6m x4oL4cYew+xKRAKLZmW/VuwoBG7ARd90XQnMRq/VsU1QCNSU4o5aBQkMXa4b YGZfBCl0xWtt4+JYDY9zj/6rCNCA2jJuojhWlu2p/NyeCf090zQSj4r5MFLv BVxggmCLuWPKABXTud6weQ2TCeiJtW5OTVSsOFDdMfkXE4p01eXO5FOxXLuR OG9mCfB8C0vfOlOxhDmXBQXhXei6kpec0CqG/evowPYtKQXakXar/E4K9tRE 79Pe9lIwOS/hKGigYDPLxL4YzpaC5YoG7mkWBQvtZ3GIHWUQm5ljn5NFwSL/ VsKDx8rghPa7s6u9KFiiN3shXOshyBfRYwNIFOxhmJ9KfGE50G+redrtJGO4 605Vv7floFtXlGZtQcaMLVer2U+Vg2RwScdfxmSMtdilwbB+DEfK67NSVcjY i+hNuumjj+GYfbzlGEHCvJpFKzuSnkDCY/bvgDwSdrb7tV5fRwW4KG8/sUSM hP3QOR7n+bkCxJEHibSZRTTgInkSn62AKLcDaVKfF9HTa61KaaueAjXSIcix fhF1j6hea+77FAa0n5+eOr+I7tEt086lVcIG/bDuzcRvVCMqSc0TYcGkr/3n GJ4IvdNneAk/yIJXm8wiBMMiVNWg7WPYSRY8kPINDGsXoYr9knlpiSw4mvSs o6JchMoaXlnZNMyC/PVezpOBIlQwcFZp3YVnkEaLaTw+v4B2GB9VwCuqgKTu 4ZShvIC6vT2RrdlcBXcvW9m9lV5AeccCNA8PV0F7hqtQZmEelU6L3ohJVEO6 //1l2Mg8umu23DHVtRqeqedksJnzKFYrlmYqXgN7Z4zKR03m0ac2j5ZGHqkF 7g3XFq2/hegtJ9JyxuIL6JgM6nbvEqCcIvahQYU6sHltc+l8kwA1naq/zdSp g2Dn2oeZzwXoQEKEqrl9HSh+X3NkiilAVZuFWp55dbC7MjFIMkyAMs1nN7Is XsK34ZHjz9cIUJba5IEjofVwwM3bdeDKT/TUzKmdXaEYCK1jtpU4zKEv1YeT Vq1tBONF1u4cyRm0YCLuMaelCbgq2qzkFT/Qlz5dUictW+DIlIrctvDvqPxf dwJ5nFZgV5JkdDv4aME4ZZnu8XaghW3JtlnJRV+uZMZ/6ukEB6ePubySCVRy 0PtGp0U3qIwF0cd0OOgBSvO3G+d7IGOf+cMLM1/QSldu15v2Xkgx7mVvr/iE fqSsL25Y9R84b/r4aJc2G10jUaegdLgPsgyiEqachtDYrUukpsr6wcx2q2ip cz8q+e5B7pqJAYjALaIeVvaizHh69TAMQhwR/timuhOl5SbUOaQMQbcWQz5n fwsaQ3Nx12wbhlDd0IrqyAZUizkRe05jBJqzOauM3VnocG7jfm0PNgzu3lz+ 1SgHLQ8cuWy3dxTqD3QfPvIjCy4aWq7CZkfBtrs7oJ/HApdM69jxtE9gZFlY ZGbZAI3K9033wmeYPR6y2+l+C8g35g2mfP0MT67GZutIdIGfivm+a9Ff4EeK 2kBnbC8cjjMVe75+DOIZfehvv344cP9DTG77GLj+Sni0TH8IDPgylH9OjcO5 u0ZRm6ZHIGNPAeqhwAFVpnqEdM4nkDs0+Jf8Ew6MYQOHK8q/wPKwkJVirl+h ab9FLpnOAb29NbVFwq/wIcb8tqHXBGjZ3tinkTkBrbmL9U4Dk1B6qE77E/IN dt6gKvU+44OV4q1We/Y3EFvIoW878B2O4Z2VorhJyEEfdY7I/YCT/KzUmyZc 0B1+d9SQNAMXs6WQ5i4udFvZyW5fOgepn9pMAnu5UP9FNDCjOgel65LXruzj wrcQu12PdOagr0pRLmCIC/OyD402bp0D416tEUUOF9RP5tsmHJuDcRmri97z XPD7+is8pWIO7COCasR1eHCzLzpY7fBPWO0xZLwjnAdm4ZHHqC8EgFt+GMIi eIBGefw73SSAupX91y0v8+DF5xElbpcAjvb3DJte40GES5f/DEcAGfatsbpJ PKhbnVD/79JfIGtZO7qkmAeXu7JGVP1/gUA5M/lDKw+go2/3Uz0hNP9MtzjU zoM3Hpc8ekyFkPFfKqenkwcTiTeVRDZCMElJ3Nb2ngfHhvCaIFch+Eten6gf 4QEl3WFwNF4IY3NnEeYPHojVRu0YnBJCV6/jd38VPpxhSBwbfD0PW3GdFWxV Plwx2TiwsWcemJLzlvtX88GBb2d6mz0PFyyLbxpp86F55rpMnHAeNO9N63w3 5AOHQpqQ3bAA58LS3QKt+VB3KaX1bsECqGj0tQb78EGe7y+cixNBtEXZ1JfT fKDuu/hAM1sEhPMlJSc/PgTIJ5DdS0XwOk7He1MQHyzPpBhKt4jAbyaEPBvO h5e9punrJX4D1rxiS0gSH6y3vi3svvYbvPxdSkKr+LCusePCw7RF2Chv0b2q lg/V1h6uL+4uwu9KVdGrF3wY223491jtItz+xXaiN/Ch7P1077XRRWiN9qYW veNDqAnXOmYFCVmfE3z83SgfMlp8put8SMhcc4KGmgwOX3f+UyO9goy8Oh2w r5GOg62Ec/VVTTKSRHe44MPAYYX5SR+59WRk3cFl3U+X40Be6tPmbktGjo5k X96ljsOMEWLHPUtG0Jl77H834/DBRtmM009GYjVe5TW646BWXnM1/DEFobuO XLbwxAF5d1h2pI6CpKYLj1eewCFS1feiSysFyaGZ6BWfwmFH/q2zueMUpJxf XHUlGAcL0pP//l4lhryvvdZpHYOD9JYjzmqpYojLdOHT2hs4YFm2b7YViiEj BvW3NsTjUJRqkhj2RAz5mj/nqpGCg/b+XYxDnWKI8NrJCVIODvM/Aueyl1AR dcfdZKz8z//5IIP+NCpSctNrzKwCh1BbmxX6JVRErymq+XElDtVcg/B7VVTE ZMvzhPyaP30vokJVB6nITjV9lchXONRgIZ0yWuLImUlZE6s+HPI1Ba9YL8WR KS1dxaoBHH6der8R7xZHQtxsfxkO4SDj51PgxhFHIrsi0FWjOKT0PX/yWU4C Sa3C/xJ9w0F8Xp9a4iWB1F7pOlEn+tOvbP9QcxUNedIjeh1BIgAK0g9obKEh dzX114AYAc3GWS0RB2lI6qtr4w2SBASRLV673KQhpykW3s1LCZCfWiMcX6Qh Ho4+b2IVCejxrG1QUZNEDhXd0tmjTMBXdUNK4zZJxMbmO6dNjYAlKYGDYeGS iMqVkpM9ugRMv00nTf6WRBg9Pc1pBgSMkc2HV2pIIRKapHXORgRMqHM7R7ZL IT8ajk70byLgxNY7JL2bUkgrmXHqIxDgE5Xn6a4hjYRHhZ2ecCZgsrNwvV+g DBLUfa+19AgBMpNMyQP5MoiPxn96vq4E3DnOvqvfIYM4NRhx+R4EJG6WyZlZ L4sYkMd9p30JsPHXek/5LYtoOii0sfwJoN4LWT6yiY4oFYJBSCABpUSXmIIf HaFaZ/MEIQQ88Dmzq/ETHRm+vN/vdxQBV/pxs50jS5CerovtaDQBnfRM6WEN OaRFvcwwKoaAq9ZypNMn5RAWRsXFEgjg5eVVDAvkkDLGRvumJALavkgoRmoy kAIP9/LrqQQczLMfbdnNQNYmK+7KT//jsxSqrj/FQP4HskVo9Q== "]], LineBox[CompressedData[" 1:eJw1V2k8lIv/HTNmbCm6kb1sU5aWmzZJ30eLSrK1iatEpIQkkiXLpYSyZ4my jCyVdbKF50GaUrIVso4rQ8w8D4UJTX79X/xfnM/5nFfnfM7nvDmqDh5WTmQS idTyB//HDdPD86N+YWDUvdG6fkES0y024PrKhUNJ3e8xWaYkluKWPCJZEQ7N QpdaO69JYu6TZh92zdyBXVbiqezpFZjC17qsqEv3QLytrpknsgILz5ZPXk+N BFHXt7nDHRLYtL139MvsSGiu7N1tmSGBsQZ1bw4PRsFsnuHRS7slsBs9j0z1 Tj6ACXYcLS5QHBtO4hu9nXkAogyv/XmW4pjJyRO77GJioLfoRXMjXRyLdaHG HXCKBSLl35LBLjHMeazW3y0zDnabk1/G7xbD/hrWsWyQTQSGA/+grKYodqT+ y/sop0QYVYk+cIMqit3OuGt8mpkIbzi6ZHuOCDZpO2owZZkEp+gHgj8WiGBY bxpd5v5DGC+11UjYKYJd7RT75UJJhQF+W0fuRRqWXVrpo2eVCone4qkKpjSs J9ZpRpCZCjUBDqbjejRsv3kDJ35fGshqoseDhGmY/Affjtpbj0AqxvyAewEV e9M8/lRqOgOmzoU55ZOo2P5S4yb/Q49h8wbfi9QpYaw+PXeYk/YYXguo8vmf hbFKL0e5ukNPoGw6V7zqmTD2KZZ4zTyeCW3yL+a7bYSxN/tcd17IyQLH+3I6 7CYKFsZMey37MQt8+Umj3FIKtl+7xerDzyzg3Yyz086kYKiMlscus2w4EtOR pxdIwaq4nDzJhWyorxXLcdKnYIVpDvI1ZgwYqfrqF11Nxlyk4vM8bjEgf2ft /N5CMka/07BDk8EAy9G9FtKPyFiO53qr2AUGyHWFr1UPJGPpR4YinRm5IBwk satvPxm7P3/21+rFp5C+siFJ6ZMQds3Kctg1twCo3VZ36sSFsDI97RHT1gIY zTudUrlMwmbXUEY3zRXAOsfQwNezJMy3h8khDhbChg/9zTLDJCzoHznc62sh +KcJlcQwSdgD5+Ff/urPwWjj9L/FDiTsuZ+bQnRWEXCfHXeMTFxGcVtjJbd3 RbAl8+qsU+gyutVwnYrZTBH4d7istb22jDKX21WljIoh/e9rs7Gmy+irsO1a iexieFMw46VOW0adWALFjzEl0Cz3r3Fh4G/0Rsdr7e6PpRCxJobyNECAfqc7 Rjr8VwrJ2rbLEW4C1CNAaBKfKwXW6UdFgecE6JUN+wpElMugnvMt6BEiQM8H Vm7Qdy0DnC/iy6AKUBOtQo10kXJosnjS8i7+F6oaEqPigDBBgfXQ0LVqCf24 1WY1XloBnlP6Gmnai6jdu4tpaqwK4K1z2DqpvIhyL3ionRmoAPax56HG0ouo eELYNoxWCZOH4x6q/1xAD88VWcXbVgJNBPt89c0CilVTEnZSqyDYOsRxg9MC Wrb/xV9B1tXwOpWtmlf4E006SZKRWn4FD020fDss+Sgne/h03+paSP1uUHng CB/dOVOfwqDXQnKxY03tPj7aez9QSd+sFhzvuI426vBRJdaiukNGLXzf/jxb hcZHGfpz25gGdXDarH6rRO08ylSZtLD2rYeplVmpN3Xn0cuzl43bfTEQwaJ3 dCjPoXXrB2KUNzTBLlNxppT0DzRzIrKY87YZ9lbO66oen0HrXNrFLhm+hR2c CDUxBoFKH3vsyeW0wHs7haWcl1w0c4y8RsuxFUzjDoy/2TyJ1ikyokc620Cx b6jZZnAcFe1zvtdm0AFkLkOIc3sMtSCzvt272QnzXB1nBedRtNx2qv1Naxcs vkrFgveMoIPkzTkNyp/Bg/Zr+eS5IVSTVrta7kw37Mmtn6MU96ERe1aKzRT2 QO4rTlpcazcq+v5ZuuZELzgEukeZHOpCGdGSlQPQB+prY0gWEm2oSPr9Wsu4 fqDv8C7XaWOhd0XOnlf7MABW9yTzZjQaUHXGRIS36hBMXMl4y5kvRwfSm8w1 7IeBs7KlJCE3DS3yHAo+YsqGfhOFy6fdUyFgk6EyNscGEyWnzKIQJpxNNooY SxgBtwN+cz2jGDTJ5+80hf+A9KTSgqv5FqSbMvrixv8DqtuJ/BPn2sBNQf94 eNgoZPf6XLin2AVnIndSajZ/hXfeawWssW6wyP9yN731KzzvWtD3vtMHujwJ 8rnLYzBDXeie2Tz0ZyeZqP1qDpQdeVOuqjkCq073HZMu4cD052kbc/VRkPHz UaTYjsPjaLKMkfMYaJtWVWcvjoNZ7ZyPTOY4qB+6d1w1eQKc6B+z+4hvUHC6 VmME+QZ5VSHM6cdc2Ceb1GI2/A3kr3WejzhJwAW8rVwQOQnVjud6ZY1n4BIv NT5KbwqiDO9EXhf7AQFpYgirfQq2xN7mG3BmIX7kg55n1xRc22lbwcZnoWBj 7AbF7imQQ5M7Ivmz0F0hu8qjfwp2PQ0wIETnYGuX+pAsZwqyYq4xF3TmYExi X4Dz0hT8Vxylo+Q1B2aB16uodC5Eeb3b3Umdh3X2/VsP+nPhsqbZkiLwATf8 0o8FcuE+fcSk5AgfahV77hgGc0HtZoLnMSs+2PR0DuwM54JFlKLHQyc+PDRr idCK4QIm42cbHM2HFYbV7JU5XPjysrPzRT8ffsonx35p4cIFmypGU9BPaO+y mnZX4IEh3+nw+MgC7MHpa4eVeBC87j3djrcADNElQ/N1PGjRrZUb/LkAtwxz orZo8ODZQQhaWrUIank/6NOb/midOXfmvkXw9ku08zTiwezYT5ONjxdBQbW7 xcuFB91NFx8WOy1BmEHhzOgVHhx2Jg7FXl8C4tRtuZNuPNhSdbg9MGgJXkfS nbdf50FTtjc7KHUJ3GZ9hOb8eXAwxhpX+7gEGGvtbp8YHpgfU/0i0P8FTu5n c30reDA5lGI3qiSAbdIGHcrVPKBvNGP16Qrgd7mSoPEVDwoss1U4ewWQsjB8 UrKBB/OXJhz07QTQEuYsnP2eB2Mr2dTexwLY/MjL8T2bB623W27T6b9hnnVf VUUCh9Vo+2i98TI0XvE43iSJg/TKqad5Z5chRtLylosUDlRtvZDnV5dh44k1 HWUyOKy4wW6VSFgGm6G04MPrcSDntfyjPbIM6Gze8LUdOCilNz5KNyIhEaqN GU3ncVg6tWzMmiYhkrZDwQYOOPQ/dnNOWSIh8YmLjuUXcVBMavrqTxNCHono aedcxmGwuJzvpySEFPFyKkK9cBDvL35gf1QI+VQd3mZ0FwcNt+YCWp4QcvZH Vln1PRx8WvVLlcuFkCHd+qS/o3FISKhNP4YKIeNP5m1V43Do/h3uy+sRQhbD L02QHuFgrHZd/oQ4GVlvdVQIK8Jh9GV9+JIXGcmNcvq6qxSHJ3c1XV6EkBHt 5hBWcTkOZS7MuwExZERvd839J1U46JM7XG88IyPGKjoKQY04/LM2cab3Kxm5 OrlCb1/3nz73n7CbsaMgM+pashW9OPS1v2+qdKMgPnaHFjb14xBy4lMJI5CC BLUHospsHLKbA8lzGRQkvgI/JviGQ9Z36a9hbApSHdp+sVaAg236c2KduzBS 0il4HUgiwCw0I24wVBh5qqajCRQCwlf1bx9MFkbiG8PHGkQJeN5Yjec3CiNX yAbOrL8IuFVTHJ+tSEXsrVzeRMgSsLbmpXHmNipyOjuJbiJPwPAD7DZ+lIrs 3z/N+aBCgN8JVD78FhVRCM291KlFwJmN+cjAABWR6uxkJegSYPrp7+7H81SE pkbaeGoLAWsO9aU3S9GQ7w02Ez3bCagRyGUfM6YhLUJSlweBgMWzN84lVtAQ /xC/KxOnCNAsqZv1LRZBrnfktRRYE5B7eJPOrg4RxEX1s7arLQH6IdSjGT9E kJMNW6Z49gQ8SUkr8tsjiugKjbn+cCVgSrrkgFGHKKJmufoD052Avda5PZQF UUQuC3R9PAlg/tYYfaYqhggbpXF/+hBg/oxV98lbDBkINnf7HfInn0q+2Htt caSzPaAVDSPAJFXjHN9GHHm7vnBTyF0Cjll60tyjxREmJoxT7hPwT92TkKAf 4kih1Daz5hgChLKCjiNaEkim/fmiO/EEZDuQ85PtJZBoUo27WMof/1BdTZdP EkioxfjHljQCEq33uctIr0B8M9dsic4g4GZWzYpG8xXIRcSDWJlDgMvd5QcZ XSsQm9h08/ZcAq77a6XLyksiFux3xXH5f/o4kqilcUESMd7KX3XiGQEUdpX1 3DNJxDBY49qaIuL//wjyP8v7XkQ= "]], LineBox[CompressedData[" 1:eJw1l1k8VQvchvdgLpKUKWUoxTGVDnXEf1FRkkyVUieROYSTjFGfcSfzUIbM GTpR7GPWWoYoUYaihG3IbK+F2G0b+fouvov399w9F8/dK2vrYW5PIZFILb/3 f2xcYLDG/UNhVfX8netzAphymfa8r3gYZOUm9UxUCGCP3VJHBSvDQOCg5K9j 9wQw91mTDq3FcDBjxLQOiwlgkt8bch46RkGzzNHQ1Kv8WFiuRKoMNw3Ge+sP stT5sQWbO9H/5dLgseDTc/48/FjbkPJdxtBDUK0uvVhL58P+6U831rCMARqc N8B282GM5J96bxdjYP4HmjPD5sWMLC20rsXGwqroiYXBz7xYnBN3/An7ONAW FrMkJfBiDhP1AW7Z8dB6/XPzLRFebAfjD7PGXUngEOh+ukCVBzv9+uv7h/ZJ 4AeFbn+L8mD3MiMMLtKTIAqZXg3ncGOz1uPac2bJcPzsUXPxt9wY9iVNYeej FECf6n4dc+TGbvXwrztRn0AJeaa0uooLy31V5aNh/gQoIz88tuZxYf1x9osb 2U+ALbdF41kMF6Z/vnEyQTcNCiQZBfkOXJhEh293vV86+HsVSWRJcGGtb6ae CS9kwqFdUmwDGhXTf2XQHHDqKfwyoM3236VirzMKGJNpTyEufoydbU/Fqrzt xBtOZcHmNgno06Nin+KIFvq5bDj1oqTg+ToFa9V11byRlwOGr1dMRQIoWCg9 rWXXhxy4s7JD76krBdNXajfvYOdAEO1Nj9lVCobuVPTQMsmFfcJKqLIuBaue nywUXM2F9EnNQ5lUClaSZitRa5IPLnuGrD8lkTEn4YRCD798wIuz6BERZEwh vPHP/fn5MNLL8bbyJ2N5njLmcav50OR7YZ+pDRnLOD1Mc8gvALEE2jxNhYw9 Yl1eF+E8gwCtUo+ODhJ229yM4VpQDHHeTepMKRJWrqE0atxZDPuPzLr8KULC lkWp4yorxTBSyTF6xEfCfPvpk8TJEvgUwrbtm91Eg6+K497fSyDooLEfPWsT jXFgrAfI/wv3+K5G1gptov/6u0lG55QC2zBJsn5zA8WtDXa7vSsFCztl71hi A1XX2bvHZLEUnLaMGfgyNlD6ZpessF4Z9G/1uhOFbqB1oUcUk0bKYF3gaG1e yAZq37Yh9SH2JVh1viZF8Wyg/3S3KPV9eAVUXgRr3buOLinY0WzHXkFtlmqW ssg66hFInsVXXsGcq1BwDtc66nJAt5hXuhyQOreqqpk19HpQ1YFjruVwxcHv agJ9DTVSLNmXwVsBstbnb303XkNl78fusUXoMOnr5KMWwUE/qF8RwV9VwkJP czi/9Cp67d3NNLm2SjBYPMPntX0Vnb/hIXdpsBKKvUFsgnsVFUgMPYzxVEFL eBRtFmejhiul5gnWVdC6/jPmdiMbxWqoiZrc1aBTPipg5cRGy/Vf7Ai2qoFk 88TjYg0/0WRL0k7hzTrQGDRrYd9joZO5jIsDIvXgMPRPmKwPC9VcfP04X6Ee ErSbFE3dWOiXR0G7j5nUg9m1IvZraxa6u40jb5tZD+3pNg2jR1lo/rGVw3Tt BgixzIo+sryC0vfMmlr5voZ9n77s+uK+gjovOxt0+WLwbvfnvhivZbRBZjBW +kAzaKb0fZMJX0Kzp2llk2/fgBCf2oO8gQW0wamL31HnLczaaBrZj+Po9rNP Pecn26FobOTekug8mj1BEVW064TioNyL8c9m0Aap/OjRno8waMc+rec8hfIN OER91O4Gq70tHCXpCdSU0jYTdbcHsJX8d7Mi42iF9VxXa2cv8Essan1cHkGH KKp5jdKf4eNk/3DlzBC6n6deRPxSH1w95V1NGA+gkX8J8S+W9INqijjnz6A+ lO/984z901+gN7xxrYjai+ZHC1YNwgAcyNQN783/gPJmPKo3i/8GGs3lj30f tKERvJevy3UMwtB/FMliHEPl86cj78gOw5YElQi/6gp0MKP5/D4bBgwEHyLq zNPQUs/hkNPGIzB4eiDJcO8TCFTRkcZWRiAxtj0xSo8Ol1P1IicSR6HueIiU fSkGzRJFmsYwBgY2iL/glzbY3pw5ED81BiWeUUH5rA/gJnnsXFjoOOz16fGL GeiBSzRNaq3qdxDJOL5ESe4D06KvERmd3yH5a6Ww/P4BUGZuofztPAGJOapy 5+qGIMUoG7URmYRpWxl7JmMEtl0cOLv95SQ4zmh+6O0eg53+PlJU6yn4t5ry 5hj3BCgZV9fkcqagfrhn54LKFMifijonmzoNL6T480adZ6D4Yv2+UWQG1HdI Hz6wOQe6u5LbTRgz8NL4W7FPKg438I8VG7RZuO3202e5dwEcmU8SHmrMgfZ/ hs1L95YgMI0faeuaAy9/1DhNdxn22nxTPxkwD52FNMsiNxbgOl+/YUHz8F6Y RQr3YUG9VH+4Tsg8bHOVzHEOZsGV/p5BzbB5MLrUOaIfz4IUk/ZIxdh5kDIW sNH9jwVbdWpGhPLmQawojn7jFwvYEqlxX9vnYV5CUTQn+Sd09ZovuEsywcPf uzRpgA1/4QpijN1M+HIjb5fwBBvy+dZ0zu9lAj0wVDGJYIOfTt5DtX1MEDh7 IKaSaxXkCn8oLKgwIcCidYeD2irc8U+65qnHhAaL1cJ74asgKdvX7u3EhHjB /0kWPc6BUO2SxXEXJpxwZSm1GXKAuHBP3NKNCQvyyQ2hFhxooSk4HPFiwki1 vYasKwfcln3IKwFM8D4exBhN4wDWJnbUJ5YJOSdTRFLXOWDvfrnAt5IJFT1n yiLercHh7drd0jVM0LK1y5jrX4NfFbs3muqY8D7Byctmcg0erzIsBRuZYGqj 9SCIug7toQ5cue+ZoFYesBSluw6q6d5270eYcKbuwRnR6nVgtT2S3bMFh5WX bX6XajegycXjXLMgDmqfQ0u13m9ArKCZn5MwDuY+6SFqgxtw0EK0u3wnDlS3 3O2OvzbgynBaiKEMDn4jZ+s2TvwCdLmQcftPHGrKtchbP/2CSNmmzObrOGyr 2e7Gx01CBK2HQ7RtcQgMM2UmCJGQhCSOXcVNHD799XeFsjgJSefVUMpzxoEx lDUQ8wcJKWXmVT7wxkHXsMB0hwUJ+VQT9lEvAgfPbiM1kwIScvlHTnlNFA4T P+q+TpaRkGHl18mHonFQMHrhnlBLQqayWNay8Ticq567Jd9FQjhhjtOkdBwu 3HXPPrJOQmTMz5CxUhwCjoe4W1mRkYKH9t+1XuEQ4VMSeuImGVF6c7+trAKH i7lv0wxukxGNo7WPsqpxqJipME2JJCMGe/6QDG7CYTwSVXGsJSO3Zrdq6Pbh sCSUV3ZInoIsyivuqvyCwy3LOcMudQric+3Uqso3HLwzHPRjdClIcFcQKj2C g4nnZKHLFQqSUImf3ZjBAdtskK5MpCA1D7pu1m/gIHBgaUlFkIq87NloCSIR IJA6pj+/h4o8k/tjP1AJyJwrYDDUqUhCU9hEIx8BNWudW29doCIuFG2Hth0E 1J2UlNfNoSI25k6tkbsIWHw+FdJBpyIXc5MVjCQIkBhLjEx/S0X09RcmO/YQ EHnYwJSySEUkHxQ49igS8OldcM7+U1yIcE9PW6IyAaKBXu/mrnAhPHKkgxfU CKg/bsMke3IhS41XpvuPEPBGItnuwFMupJ0s7DwEv30ng25mrnMhAff9XaYv EKARpSPc3cGNeHUXthdbESDrSLsxN82NOMl+VnK1JkCl/tC3KG4exLJRbY5p Q0CGsRTmgPAgyuQJ1x+uBNgeirlwtIEHkTMT6aC7E7Claa+bwDAPIp4Dyj6e v/v4Oj+J3eRBuPTS5tk+BMQN5Xd2n+RFBkPOu/26T0AUhQs/+JUX6ekK7ERD CQg+1WcRSuJD3sqUqNyPIMC02pkzfJAPoWNcOPURASVCfr/eBPIhJcKHTd7E /u4pmtfrXsSHZNtcLw1PIMDYr0XQ9DMfEk2qded//Ls/xfUnWYMfeWA69aE9 jQDxbcZhq3b8iG+2qFp05m//dF/03RR+5CbiQQjlESD2M03dmSSAXInLON9V QADtxI+qHUcFENORd2XxRQS4pUgoVXgKIAbqP7dZPCdg9vmkgcsLAUQnZN9t 0VLi//8C8r9dTSV8 "]], LineBox[CompressedData[" 1:eJw11vk/VAsfwPExg6FyI3RRCpUtlERF+h4VuW7WSotK2ZeQJYRiispS9iwR WbLcLlkiS50jNJHCECn7LjPn2JvB8DzPD88Pn9fnX3jL2nhY2JNJJFLlf/vf 62YGlkYCQiGrIZ6mtlsQUynWYfpLhEG527mHdxYEsGS3pCGhijCwZRn0G30U wNx/mbQcmn0AYx0uU1R3AUxq9N2LSMdwaH5TOb/+mYqFZUkmyfBFAL6AmMm/ pGIz125FvcmKgPSgM5gejYrR+1T8BvoiQWtXwFklbSrm0/3stMbZJ3DEGR3O eMOPDST+1vs0+wTejWR9O/2UHzM6e+bQlehoMJd2Ts/248dinPhiT9jHQO20 oLXGUX7MYaw20C0zFkJoOgz1Fj5MdGCved3WBDix+dnSeQofZvi+53OkfQI4 xz59L8nkxe6mPzSwLE+A+MMup7S/8WK/rEZ0ps0TYXSAvBiZz4th31PlxR8/ BdO+VV2FM7zYDYbgqhMlBbyMLyfrVVCwrJJKXw2LFMi2onm2ZFOw7hj7WW5m Cgz2S1+Nj6Vgx03rxuOOpYJbkaVfqxsFk2zxb6+9/QzkarDGHkUK9rFx4qXw TDrQnu+Z3JNPxo6XGNQH6j+HJbsO4ZgkMvY+LXdgPPU5xO5WrFZ+SMYqvW0l 3ulnAH7kL1WWAxnrjCEayo0z4Rw9aDRckYx9POaqdT37BWyPN5m2LOPBQstT G7Z+fQGv/FMyLHN5sOPKzRYt7BegkhTa5p/Eg6HiSh6HTLIg/GIHSS6IB3vL HM8T4mSBqShTaMmABytMtZGsNsmBFI2BHfLDJMxJOC7P43YOHEypmODvImHy D+o09+TkQL5jjCtPMwnL9pSxiOHkwP7Dn3/plZKwNMP+CIecXPjHdpPR2H0S 9njp4uqW5Zew1i334PpeEnbTwnzANbcAcg/sPDgrso6WaigPnf5SAL5PDp8U Iq2jC2KUEdXFArB+SV0+ia+h/t3l48TJQhDS1lni+7yGBl+WwL1HC+E223S8 IWwNfeIwsBq46xXcXBJTmF3noq8C3KSiXhRBLPlfTyk+LopbGWx3ayoChiHz vtTSKrpfd+cOk9kieCOHlqpOrKLl622ywnrFgOVnpUQ1raI1oQeVEgaLYSUm SEYhehW1p3O3fY1+Dcc33//zpfQq6tPeoNz1tQSi5TXqcg1W0Dl52wib4RJQ jPM5snBkBfUI4vmFL5aA2d7bO81UV1AXhWMFVOlSqNtrW7NPbAW1vlOpcMS1 FNR53y1FDC+jRkqFu9OoZVASZ8ZIpi2jsrToHTZIOewLXLh09RMH/br/0ha8 pAIez0l393iz0StNdqly9Aqog8IJphMbZV73kDvfWwF6Z3bQBK+y0Q3xoQcw /kro9VHiszZko6cWiyzirCohMWPDpdvSbBSrosRr8b2Fytf1UpebfqOlx/8V Db5QBbyqWy65KPxGE8+SxIXXa0D0k7tpIWcRdV5wNmjzx0BlQ55OPt8C+k6m N1paoR7YVfpdxqpzaOZkRPH4p0YYDrbDJWNn0HdObYKOup/g1MTTQFVHHBX5 +7knc7wZPDrKbVivptHMMbKYku0XkFr6EC5lMoW+25YTNcRohSaZ11UZ0hOo wA+H8Faddug8kapv2jeKmpHpU+F+DLAdRWiuvcNomdV028cvHSCd4iArQB9E +8hq2XXS34D7Nx2ItD50D3/tFonzXUATH2vR2fQDfaT9h+BsYTeEcBtfSBh2 oQKf/0nbM/kdgoqC+bW+M9CcKKHKXvgBW2JFdYeufUWpaY9rzWN/QsBk71S0 KR19SL1oLdfSC4Kp3e0pzRi6K2fy0S3ZfrAnpUiuPClDe9PqTXdfG4DY3xbF edtS0SLP/hDD04NwvPH+3cpfyRCkqiuNLQ4CI3GdPLG1HC4m6T0aix+CERPv yJEIDOol87VOwzBIjkYFXs2hg0h9+o/YiWE49MBuZKLkK7hJHTEOCx0BYyFU IryYAecjtCjVaqNg12wVnmndBWb5PQ/TvoyCZ8mGDtZoD6iwNpKvOo+Beq3I WwWPPnhqlIle2zIOksH2Ln6lg7DZ8sffIq/HwWSDZbtb2jCIB/huo1hNAOng X/fbG0dB+fTbqqzlCRD0VnJ/MjIOu/TDjWWTJqHq7mRE95YpKLCs3T2ETIGN FE3hTdI0HNua2GwyMAX67Ik7wdI4XMdby7gRv4DB3aqYEzEDjqyUuEiNadCn KqfZy89BUKogQm+bBrcdd6rnOuZh57Wf+08GMkHRzFJdc2oRcN2en9gdJmxY jXyVNbsItdu6H+iGMKFGOTFefHkRLnUzerXCmNBZGN24ceMSPDVpfqQUzQSh QJFMbdUl2KRbNfhHNhOqBRqzC7yWgC2ZFNPTzIR48aLcTeTf0NZhMeMuxYLH M3la6pps0Mbl/xzYzoJq6iZVMWBDjsCKrulOFmQ46nLWDNlwWzc7ct9uFjx4 3WDEvMwGubx5+RlVFhRE5lxTCGPDrYCEK556LGg0vmGo0s0GKdmuZm8nFkha 2mgO0TgQqlM4O+LCAnOOxEhvFAeIc3clzrqx4HIM9dZwEgcaIuQdDnqxQLPm aMLGIg64LfjyLAay4HhJ3nz3Dw5g9D8P+0az4GicT7qr1jLYu1/M9a9gQU1N f/3OpWU4IKLTLl3Fgun1mZ4YygqslW3nfqhhQeLz8+IiIiuQzBk4K1THAlmL VzGgsgLNoQ68WZ9Z0OK4n37BdgXUnnnbfh5kgXqKfnBG5wos0R/L7tiIA/WW x/HqhlX44OJhXC+EAzqiFWjbuQrRQua3nYRxOCpKrpIdXQXFM2LtpeI4vPay 0uyncOFSf2rIKRkcOB9C+K+e5AK6kDdwUxMH0uZJi7ImLjyS/ZBeb42DQaVo c9PEGghZ9Yfo2ODQmFgyb8VZg7iEZdsyOxwGiZ+SghvX4RlVQznbGQcRf7+q N2rrUMTKrrjnjQPwLB+w8VuHzqqwVr2HOJwb8qtUo5KQi/MvSqvCcXAUE+Mf FyYh/SrvE9WjcEhwLOT8K0VCJjKWrGRjcXBwLX9/U42ELIc5TpKe4aAWtRD9 yZKEyFj8xYMV4eDLHriyWkhCciPtRw+V4LDQe6G19w0JUW6k0YvLcNhWE2HA wEiIxuHqxxlvcfgu7ZrM7SIhBjv2SgV/wIH+vTDQmpcHufFrk8axLhwuqNXJ 59ryIFX32uxquTi89HqUfPMQGXnN4DbcIRFQ/7240usUGXkpt3cPUAhYdWqh ZJ8nI3EfwsbqBAggxG64xfmTEReyjgNdlIDuzU0VLbVkROperiNDiYCRqZ4T XaYURJjBoMerENCpmT1rYUtB+OVIiuf2EVD89Px1MT8KMld3abL7IAEFlUXG bhkUpJlH2LkPCMDdxxJL5ylIIC3AZfIcAZnKXb41r3gRr/a85oILBHgZjV/O auRFnGS/KbtaEWAj9vkTp58XOVu3b5p1jYCH3F6vDaJ8iArPmOu8KwE+weZ0 dRofIme+paXcnYC5kZyzUs/5EIn/UsTXk4By/m+3U2v4EF69VCbbl4Aon7H5 ADYf0hti6rZGI+DrUW2tBwH8CKMt6AsaSoDZMeWpuTR+5JNMoSrtIQEZJXXa Whg/Uo7x4pTHBPwUehvlKkhFCoUPmDRGE5C1AVv12UdFMq9ZFz2II2CXspF4 qCUViSJVuwsmEyCn3zjHzKMi98wmvjanEhAo8O6pA4OK+GeK7YtKJ0DkTvPE njUqYod4EH9kE5D/qKS18aIAcikmzbQtlwCN3YU6HeECiNlgU3FsPgHZdYkB ITUCiMH+35vP/EPAntTWzilcANEN2X1TrIj4v6+R/wDFusS+ "]], LineBox[CompressedData[" 1:eJw1lmk4VQ0Xhs/ESaVkKPEqJBmj9IlcrK3SgJIpyetFQpmiQaTekClDhgyZ yliSzJmivZHMQkUhQ+bh7E11HOd08Pl+fD/WtX48z3Xd63l+LalL10wcKCQS qWJ9/rfrFoaXxu4EAt+GI/odf+iYUqHWvLdoENwky0myu+jYE7fEUf7yINj+ LLfu+gs65j57tv3wYjDsu3FalHqBjomN12aEOz2E7m8fXT838mJBmTsTJXnC YOZ4fnxaFi+2YHsr4k1mGDzn1PLrBPBiTd+Vbg9/D4enIJE0qMuL3exLMVQz ewSyn9cUk1t4sOF4lm7z4iNIwIUPSr/mwfTNTA9bR0WB3Fe/A0gMDxZ9hSfm mEM0EPVUc1krHsxxosbXLT0GIvryhehMGiY0rGhctz0O7FzfVptq07BT7761 hTvEwdef1PM8cjTs37SQE+fL4oChYX52kxANm7Ua05ozjoewaqr4xlkqhn1N lhWJTIDN/oovY1KomGsPH/cKNQmoR2+H8G2iYpnFFV5qJknQPWJFJXMoWF+0 w+JKehLYyF4w2z9DwY4a1U3G6iSDm7G88t5mCraz3bu7xicFblR9NbcLpWAf GqeeCyykgYCq+bDUtnV/8YkGX72ncCJOfsc7MgV7l5ozPJn8FMhNdFLwTzJW ccNetFbvGWx8E0OK/0zGPkcT78vOpEPGyWythGQy9kHHRd0uKwO496cueCiT scCy5PfbOzOg9a5ri50kGTuq0GrSvpwBE9zfHteFyBgqIn/t8NlM2LE1iZdg k7DK+ckX/OxMMKnkeabXTMLyki/trD6bDTLZzRqsqyTsikDsi2s+2bD9SM9M 6j8kTDa47j97s7PhSbvtiqUpCcvylDSJZmdDN90UE9UmYamnhsIcs3PAQ2XR 6ek2Eha5ZMkV5DwHyX7rvJW7a6iHifGwS85LyPlpY6hksIqWqCmMGna8hC/+ 7ZjhkVX0tzB1TJn5EjgPdvsHy6+i3n1lk8TxPNA3NHlxfMMqev9vUfzGeB6Q 3OJkxz6soI8ch7m+e/JBU/WYgvOpFTT/jptYREYBiLyKOjZ5kYviVif+cmsp gIjTW1xfG3JRVe3du84uFkCvJr4vWIeLlq11SQnoFkKos0m6izQXfRt4SD5u pBDoega55Lk/qEPTinhnVBHoWlmOHLr/B73Z/V6ht7MYhM5Uf8ov4aA/Ze3D Lv0oBsnNWzYmPOeg1+6SZ3FmMfTA5RfhyRzUeZ/OS7pECdxW8MlNCeCgNvcq 9mm6lIC73atuA1MOqi+fJ5NKL4U1g4VjvUtsVMo/atclpAyktwulEXpstFP1 oiBeXA7aRU9XxtdYqHXL5WTppnJQzF5xcWay0Hm7a9IWg+Vg60mtXJ5loRsf Bx7EeCvg+sq/OSq9LPQks8Ak1qoCOG0DdJ7XLBSroj5W56mEXImAjcjfLLTk 6Guh+xeqwDdO3DsaW0LjzUgiAmtvocEvrOZrGhO9+vvqiS5vDKTF9QOtqn+h tZKDURL7GoCbhpS/JBbR9OmwwsnmRrBInA+ctl5Aa6908TlpN4ND++2nPgI4 us3gqef8ZCtofJCWlb48h6ZPUITl7TuggZvWuEVgBq0Vz44Y7fkIs2sW6d7T k+iGfseHH7W64Q1rcvZ80Th6jtI08/B2D1hknA5hv/mBllrNdX3o+ASEUJl9 wfMR9Dtlf1adxBdYaOIRSnT8ju7lrREUteiFh5MsW9uhb2jokS18i3l9IDtj ctFJuhfd0PYqde/0Vyixk3O+UNWDZkfwVwxCP/TJ3cuLVu1E6amRNcYxAxDA ri82V2xCQ+iWNtLtg3CvV3E/owhD92RPh96SGoK9rAckN89SdDC1wUjGdhiW ii8mOf9OQgs8h/xOGY5Anzu/gV7jE7irrC2BMUegZTPfXOhyKVgm6oZOPB6F O4fsS1I8MWjYmatuCD8gr6vDI/F+E2xrSOuPmfoBfs/scbp/J7iJaZ4JChwD P9dW9nL0eg9h6tTq/eMgfKAh9J1mL5zL/RaS2jEOP2XGw10qvoESYxPln6sT 8NF3yElX8zsk6KejtoKToMhh3jgfOwJbz/cbbCuahIVHlw5jXj9A5I6XONVq Cqqcw0Lkk8ZBwbCyKpMzBTTXfy/pFU7CHr2HZ6QSpyGrsuRg85dpeHm+RmYU mYHnZ8rtjIzmQGd7fOvZ4RlYC1rZfqGZAXb4x9KVsFk44UBhJ1ksgBMjKTZc bQ62HZjaszi9CHeT+ZCmrjkYGze0Uwr7BbttB1SP+85D/mvbYlYkE3DtbwPY vXnAH4S57kxgQo14X7C23zwEMUM0kadMuNjXM6geNA931+Zl0wqYkHC2NVQ+ ah5kh/xl4j8yYbN21ciWrHkwS6oLDxRcguWdidHfWudBvOBLT0rqEnR9Mllw F2OAxbcDt5obWHAEl90x/BcDdJTtZfQ6WJC94Y+20W4GjCbaSLT0ssBHOytc RYYBA3o/dk/NsED6xS/ZBWUGyIkEfb4rsAy37sRZe+oyQFJdbkDMZhnEpHpb b1xhwGbrXtVQChsCtfIWx5wZwHNfJomPnw2E+b+iZm4MMPTOUI7bwYb3YbKO h64zIKlFZk+jEhvcfnuRmb4M8LLuPfbEgg1Y0w4NrygG5Mz93i9cyAYHd8sc 73IGpEkpjjIdOHBwm1a3RBUD/Ipt9Ruvc2C19K+V+rfr+c64lmTe58AT9rAZ fx0DRPErvKFJHGgNdKRltq3z6ZURpE4O7E+5Yd82wgDrwdLDLZp/YKkpUmrX JhzuKEhnf5XgQr3ztTMN/DgcEvEZLlXiQhS/sc8VARwEa1c8MrW4IGcq3F0i gsNa/oBntSUXLg4l+52UxIFLC5YYTOAC+vvFsMd/cMjT37sgJrICoVL1aQ02 OKj7Gihd3bMK/FZDflqXcMhQS8rhqq1CbBzHvvQyDhrWHl25x1chha6mkHUV B6EpFS9Dx1UoYGSVB9zAoS0cZ7bkrcLnqqCPuiE41AxtrZrVWAPLXxklVQ9x mBKziTpgsAZDSu/iD0Ss6z0/3idYr8HUsyUrqRgcbLuc/tQGrAEnyGmalILD ZhmL3vDONZA0OU3GCnDQaj5aclKdhOSEO4wfLsZh/8zWNh+EhCg0+jcVluLw YFGIguqTEDWN6shnlTg4iG3nPLAhISd2KYrdr8ch5fZiHSmMhLjOblbT6cVB pl+jfNsYCakK6Lpcs4LDiNWA4PVcMlLUs/L+HokA6+8xhmYVZOS5tOJeoBLw yDVCxfYDGYmtD5qo20CAZqFB/fI4GXGmaDk2CRHQ4TRRflqGgogF5Dj1yBPQ fj252yOfggj09DQ9ViIgkvXL6uY7CsIrTZIzVyHgw+PPCW+6KMjPuovTfYcI mDzIt8ZiUpBWssDV70CApMSxhaJjVMTX/47ztDkBOZ9d+0cZVOR694vWlxcI 2FVpO1NDoyFXpL4ouFgRkDFbcoQrTkPM6lTmGLYEzB1EZt8Y0BAl8oTLLxcC aj2JnMAiGiJtLNhe5k5A0/SRAaKVhohmgJKXJwEeM+qxoxM0hKabPL/sRcDW B1k17hI8yKCfkduqPwHIVRL/yGMepKfrbgcaSEBEMOqjXMqDNEvmKfuHECAe jzlqfOJByjAaTo0koJdymZYvwovkCRw82xhFwBbTWWF5DV4k3damIDiWgMWO vocRVrxIBKnane/Jej+iv4o0cniRgHNTna3J6/f351PT2ngR73RhlYg0Aozy aRq7f/Eil5FrxJYsAoyTxl/X69GRi9GpRl05BOh0KORv9KQj50ZaCmNy1/l7 nri/S6MjJ1RZW01fEaAr+sBiqY2OaPvJeAgXEP//r5H/Av2Bw9g= "]], LineBox[CompressedData[" 1:eJw1lmk8VAsfgGeM9YZrLXtISLaKVF7+JxWyL6XQhigJSSRaJPuSJUvJzhAK oSTqHHvZQmkoGRQp5hyuxtiG974f3g/P7/n4fH0UXH3t3DlIJNKLf/mfm+bo i9+Dw2HX6lH4ZycPpl6pPxskEQGFN6U9L3PyYA+9M8YFXkaA5VbhBdFRbszn t1W33nwkONJtWcWp3JjUjzf5cRdiwL1tuNJUgBuLKJDMkOeKBT4NmZkEBhc2 dy4g/kVBLPioN15P7+XCOr6pX6d/iwP7r7ftelK4sGu0xxZ7jt2HUnaIAFOR C6OnsQ6+m78PRWqTbVd5uTCzY/Z6pxMTwdh1SOQGzoklXeRKPuSeBJtMStb4 Gjkxj8nGEO+8ZHDZSAmpO8WJidJ32jZtTgVvF0fyUBUFM3073BXnngqCEi6q Y1kU7HZ2lLFDbSpIxvHn6MZQsN/O3/VnbNPAgJWmibpSMGwoU1k8IR2mpRVC hCUp2OUBvrWLlEfw6gD+TCaZAyt4Xhe4x+4RuJROuwvf5cBoSe7z7LxHEJib UKnnx4EZWTdNpRhmQr9rmYqYHQcm2R3U33jjMdw9G27LEOfA2tt+FgvNZYOs qrnIYSoZM3pu3BJyJAeuZ6DNL9LJ2NssKn0qMwf89gbQrKPJWJ2/m8SbI7mg EmqWs+xFxj4lEa21lnlAVj1pxq9LxtoNvfa6FObD4BRtS3QPCQuvzWzd3JsP 9oaKPYpNJMxIrdOueykfblnEBH2pJWGo+A5fPasCWM+ZCc/JImGvZqdKBJYL IMzSTNDLm4SVZbpKvrYqgswbg83PREnYRaGUEt8bRTCUP9z1jZeEKUc26W4v KoIHISXaJmsbaKGfvF3SchG8MLkpN9q/gWaZjsZ6FFHBe/cBnHV7A01YdFwT WSmGkbcWJ2zG1tErdrZ0L2oprL+ZJ6Ya2Gj1HrVxi55SKL8udAotZ6N/xCjf NZilsCFZ5Ff5mI0G0WqniMNlQOJ6dnUwhI3eOSWB+/8oA9tcWd5dBmz0vgd9 LWTbU0DVnJxmW9bQp8HeUvH5FXAvVLx7mL6K4s7GMt7vK2Ahc01Hc2AV1TbY Kmc1XwEmzXlyD1pX0dqNPgWhg5VQLIh1JJSuog3hOjtSxyqhouHD6MFrq6h7 B1u6N7EKVhxpUWH8q+i1/la1z73PQb1KTdfbZAX9R9kt1nXiORw3981s1V9B fW+Sf+PM52Dadr1CRXsFvaRiWMojWw12ic9DhCRX0LO36lT2e1UDkyY94zmz jJrtKFPK4qmBqm4NJZWUZVThbqKcK1ILiXoO9F0/l9BebScR/PlL4Awh375b zkJPvz+fqdjxEhI/ox9P5rPQWRdfxRMjL2GxwOL+vgwW+teD8N0Ydx1kH4/+ R+geCzVhVtilONeBlMOW9m3OLBSrpzzYy/UKWmV4M1r5WWi10TPROyfroc0v npoSsIimHSOJC200wKOiAYX3TkzU84+ncV8QBpdXrdR07y2gb+RHEmVVWsDo ozm3R/M8mjcdWzn1rg1UnvSr6u+bQ99c7OO7YPAOJlbdB2P7GKiweY7f7FQn xAXVqjlrzqB5kxxiO9x6wODPgfLtE9PoG+mi+PGBD+B4viNMvGkK5f3iEfNB vx+yBLtzWfd/oDYcHb9irg+A+Ke+kouPJtAa55m+9p6PMKmpJZd9fwz9xqFZ 2CQ7CBNGgp6yht/Q7dyNIhInPoOwzmi1duMwGn1AkG++jAbeSt5HTbg/o7xd 5Vnbp4dAoOoSt0XBAFoUL1A3Al+AcbTseCB/L8qTldBom/wVLGdKh0GoA43i cTyr2D0Cub8DTeuzMXRb0XR0gMIo3BsVvGXjXIOOZLVYK52jw97iozcFaY/Q Cr/RUFOLMVh8ujcSKX0INzUMZDHmGEh4qtH6xmvAMeNg9OSDcehaFJOvOYNB i+STvRYwAfMOEkES5ztAuCX7S/LPCVgva3oRdqoXvKX2W0aEfwc8WvuQcvAA nIjdS3mt+QNIYmOHgmU/g82T4aisnh+wKIOu3kobBnXGJo4znpOQcST2Lxnh b5BuloeeE5kCD+M0Rd/gMfjb4Yu5cNUUFAv5q2JOEyAeHChNcf4JE1dsXLmC foCaxav6gpWfEHn84YmI6CnYdiTGUiFjGp4mCok/fDINpQ6NSuPIL7hKrUwb kJwBw81pnVb0X5CUffhabAwDXPAPNezY31CxY892vt1zcIHxKCVuzwystS2R +xrm4WYmH9LRNwNSjeay8scWYOu5r9qHQ2aBnNBdamfOBNxg+Ct2axa4Zszo BvZMaJSmRRqEzkLl/qYpDWcmONEGRvZGzILXfGuUjBcT0q06o3ckzsLX3N4v OnFM4DeoHxMsnAXf82aGJ7uZsCSZkTTcOQvrntdN8u0Woe+j3ZyPFAPiORME 9vmx4ACuvIUuwwAPp6EAr2AWFPGuGlhvZcAmX8k26j0W3DAojNNSYgB18qqp VjoLFEsWlOc0GHB6RWx/RgMLAoJTT/sdZACWNDTexrMEUgqfO/0vMqD+jEXO OnUJwvXL5r9fYkC712KJatUSEMdvSxzzZoDbC+NTzq+XoDVW2UPnKgM8o9R5 v/YugfefQDIzhAFDYeLWR5aWAOvYsi8wkQGvfp+yH7RYBncfR2rQSwZEMMJf XWYvw25h/X7Zegbwc8ktvONbgfUaGXZzAwOK8xdO7968Ag+X6ccEmhjAx043 0tBagc5wD86CLgaYXM741O6yApqP/d26xhgw4acsXPJ+BRY7EhTkNuHwMZvZ okJdheZLvpYtAjjQFI07r9SsQqKA7Y2LQjhUM98udzWtgqq9WH+1OA6GKczc +tFVcBrNDDWRx0HpU0bXdck1QP+U0K/o4hB0u7qiKmUNohWas1vO4pBlpnrl UxobBJxHQ/VdcTB/vGOuhsqGlNQVt5rzOEQ1RMaUvWDDY549aoWeOAzSTdRH B9lQwSh8GeaPg3pdePCFLevwqT7iw8EoHFLLdFyP5q6D40J+dX0MDniY2ku0 ah1G1d+m7YrHwefeJTe75nX4mbvorJCMg9u5RofeyXVYibgwTXqMQ25XFLFT cwPk7Y6SsQocAmytP9JbN4Aa5/5D7zkOsik6I1ZDG6DWdrejsgYH/9v774zP bMCefa8Tcl/hYJKnN17PR0KM5XZK3WnG4dZQjJzmbhJy+Tf/HsPPOOx3dA/4 EUlC6sP6zjeycYg/j5dqGJGRqgF26y0SAV93urUb25CRYsWd24FCwGZ/+6uR Z8hISnPEZBMvASLSoqybIWTkEoe+R4coATTp8vFzdWREKox6YWAHAc1tDlUL ehyI0MBAxwN1AraNBSzOmXIg3Iok1eNaBPinH5JQceJA/mlymqbpEGD5U1jn 8C0OpJMs5PkNCAg/LBXi186BhNwNvjR9nICmV2v7nTwoyNX+ks7SkwTcOKjO 0xVCQS4qDKp5ORPg/OU/TRnJFORYk9YM4xwBYdb8DNu3FESdPOm14EVA6nfR L89kOBFFW5HuWh8CDAVonS66nIhEPqgH+hEwQNEuT7LiRDgPZs4uBRJwv43X 2j+MExkJtfZev0vAwulQyZk5TmSg72YPGk7AhZk/PaKCXMg7+TKNu1EEfKqe FP61kwupxThxSgIBY4kOg689uZB40msfvof/9tp9jmwiuJAwm5+9nZkEhIoJ W1NFuJGgPDGt+GwCJL9LRxjpcSPnEV9CsJAA26LYZ633uBGnpCzrPioBqglL tt3l3IjN2PvK5CcE/NF9911mkBsx1mb9bV9OgFbXS+3uDW7EIFTpilgF8f9/ Rv4LH9+2hA== "]], LineBox[CompressedData[" 1:eJw1lmk4lAsfxmcx1ClZSllSOCKSlApJ/0dFlCVbJadSsmfpiBY64SWyZy1L tpGlDrIv6XnsTKUxFcmeNWaehzLWhrf3w/vhvu7r9+W+fh9v2Wse5vYUEolU /jv/6/qZwfmRe0HANIh1NI7lx1SKtNl3xINB8y/bY8pu/NgTt6RhwYpgSHr5 5qq0IT/mPmXyTmP2IUwMmUuu4+PHJEfrMsMdH4HRbeMxvyAaFpwlkSRDCwPN kM1jUQ40bMbWO6I8KwxSq5rYVoY0rLVf5fZgfziMqA68HxamYbe6U4zULaMg 3MoxdFcuHzaYsKDbNhsFXrxbvUJRfNhpSwuNS9HRIFMUtfuuNx8W40R7fMI+ BlQTZIgyPT7MYey1r1vGYziqbzNjNU3FNg/uMavfGg8W7pJnthlQMYM3PW/D 7eNh5KPIS4lDVOyftBD9c2XxUHU5Ue+6HBWbshnRnjZLgCNZumHtPAqGfUlW EItMhGyHJwZplRTsBmv9LyfqU3A02jA4c4iCZb2q9FE3fwrCQs1m6QoUrDvG fpaX8RQqpnchftso2HHT+vHYY8mgsV5ga90SGZN4d6fz9d0UEA7+7quDkbGW 5onnwjNpEMNa4bhakrHjr/QbffWeARZaXHpPn4y9Sc0ZHE9+BvG6G+4UaZKx Si878Tq9dFCbjSoIkSZjn2KIpjLjDHA2acf7JklYyzHXw1ezM8F32pjzIJiE BZUlN23tyATDvaMxSXdJ2HFlhvm7xUyYVtF+yHAjYaiYkoeGSRaUqZ275H+O hFWxx3MFl7LAfMOJkzuUSFhB8jWJGhM6KB8IZAfmrKFOwrG5HnfpsLG8vLYo Zg1VeFh/aBedDu2vTUtpfmto9k0Z85glOhzYA57KFmtoqsFAmAM9B+KKi831 qGto5Lz1L9Hl59BV240cc1lFPc3NBl1z8mFlJu5emykPLVFXHjZ6nw+2phap SggPndtCHdnLzQcUdTiYqcZD73SXjRMnC6D4tH4JS4SHPvhLHPcaLYDoK7nx Gp9/oVEOg798/3wJGcZ2Kqwrv9CX99wkIzILoTc06Gxb4AqK2+hvd2svBH3x JoGH3iuoms7OHSazhXBS/ba3hdMKWrbGlBXWLQLsp1vndpMVtDbooFL8UBGc KV/WspdcQe1beVId0cWwXTpP+mX5Mnqrs0m5q+MVhEUjaorzS+gPBbuwa99e gQTfj5/MqSXUw488hXNfgR/pzEDw4BLqongsX0C6BObpRs3C7UvolfuVilqu JVBxQ/14XuoSelqpQD5VoBQ842wkGHpLqGxA9I5rSBkU8cvtNEhfRDvULori ryqgXysi1MZ1Ab3Ufj1ZrrUCDMySLnleXUDZVz3kzvdVwEBJrU7k+QX0j7ig Axh/JZTVyY8MnFhAT3ELzWNtKqFAyExhaPsCilVT4w7TqiDQ7LqqCXMeLTn+ 7+YHF6oBJveU+x2dRxMsSWLCa7XA2MDkvFDkos5zzvrMOxhcUupyFbP+idbJ 9EVLKzaCpIBAfX36LJoxGVY03tYM3gJG7y5IzaB1Tsz1jjptUPtlqMo7nYOK nHl2kz3OgONNL0WptGk0Y4yyRcnuPYzSydyON5NonRQ9Ypj1ATLmvRtrs8bR dV8dHn3Q7gT5ttHDWt6j6FlK6/dHt1kQanVC/OJ/vqGlNtPMlvcf4TpN5zTV bwjtp6hm10t/hulOudCOHf3oLv7XouLnu6BIzexKTWYPGnpk0/rZgm4YLmWp /TPzGV339kXqrskvEJ95QcIjhoXSIwQr++ArLDcEvrw98x4VSI18bfa4F3rr pYR0VlrQEAHrK3Lv+mA6payNFYWhf9InQ71lB+D7haDTiqdL0b7URlN520HI oo3FnsSeooU3B/wNjIZge5ymVEDcE/DbqyONcYcg96kGocosBesk3dCxuGFg Zd//Q+AsBo0SeYeN4BsMbJTUbDJpBZHGtK+PJ77Bfu0W0/1IB7hJahkHB41A R1U0x9uJBefDDlNrVEehb5+YRoJAF5zN6wlJfT8Kim5Pso/49oAKZwPlsvMY GF5mbN70ow8ST2egtqLjsCJRFcN1HAKhc1/PiBSPwx9SB1tl9L6B2D0fKarN BNh1J5+9dXkUlI2qqrOWJ2BCJNIhz2Uc/tR7ZCybNAnW5UeqO4InIf/ca/lh 5DtkZH/aXDozBce2JjBMBr/DG9zA18yaA1fxD6W8sCn4mnnA56jYDDhynsaG q0/DRqKZo/d0FvyS1yOtzGko73qe8Vn5J+y07VU76cuGwfmr7cHiXMB1enqx +2yApvjxUzJceC3V/VDHnw2Ci/LPN+3mwsVuVt/hYDYMp+gqFmhwIdGEEaoU zYZrrK4ZifNc2KhTPbQpmw2j6YYd3xK5sCiRFNPDYMMprf03TCTngfnRfMZd kgObpC73ex5YgCO4wrbB7RzInVM86qa9APR1KzqmOznA0AnS9Dy5AHd1ssP3 yXPgl1e0Rti5BZDL/akws5cDnnW58UK+C+B9L/7STV0OOE8Sl1yaF0BStovh 5fR7L3//v7VXFiFIu2B2xIUDGiXuWnTnRSCs/hG3dOOAcpe1cILXIjSFKTgc /JsDsgE7B6JDFsFtzofM9eUAa66rYbpoEbDWbZo+0RzQV4xKPUNZAnt365w7 FRxQe843v7dwCQ6IaHdKV3PAZ81n48GaJVgt3c5rqOVAuMvtGv2WJXiyNGgp WM8BiZQyy9iBJWAEOfBlveVAw5bigWahZVBN8bJ7O8SBpp1p9JpbyzDfGim7 YwMOVRrI+S+GK9Dg4mHcKIhDmyifVdn5FYgWNLvrJIyDaveeZ5n2K7DbYktn iRgOx7/IfCwOWIGLA8n+p2RwKHyRrJFbswLoXO6g5yEcnrmlaMmp/YJQ2Ya0 xis4tISO/7OgzANBmwF/7Ws4JH0Z0DY7woPY+GW70us4xD5MGscMeZAioK6c 7YxDxgtZ8REnHhRysisCvXA42fCw8kgeDz5VB3/QDcGhOL6i5+6eVbD+mVlS /ei3/703962OrsKAypuE/RE4aIrkr50xXoWJ9Hkb2cc4/Cu4TzTcYxWWgx0n SSk4MH0/iPxVvgoy5oZkrBAHeq+Te47+GuSE249qvMJhKsKXe9l6DZSbA1qL SnEYKmQoHbmxBuqaNZHpVTik+ms9Px+7Bvo79kg+aMCh4k4SrjO0BjemNqof 68JhzsfPLU2XhFQHMq+/5v3mjfkTt7gkpJjFa7pPIgCRzetZopCR53J7dgGV gM6qRYlsYTIS2xA8Vr+OgA9srzZ7FTLiQtF2aN1MgJrpT8MmezIiGZjjyFIi YF3GlEzzEBkRZrFa41QIkOpBvpJnyQi/HGm31T4C7k/rEl5kCvKj/uJk90EC vtjHklflKAiDLOzcDwT499F2dDlREN+Aey6TVgT0yx1X1yRTkb87cxn5Fwgw 1D62N0OMijjJflZ2tSHghvwDkcvKVMSyft80x5aA5QPqiROWVESFPOb605WA RGl1ZlQhFZEzE31X5k6AfZ2/N6WFiohngorPTQI2f1qrnOynIny6yexFHwJu 6XGydgrxIX3+pm6rAQSIMNi97bf5EBbT7z0aRMBWuZB8uzg+pE2mYG9ACAEl Jy8OpxXxIWUYH06NJCDqU/Fd0Sk+JIJU477+CQENBhHF8440JPDsRAcjmYDQ CbpF+CMacidjy76INALGRh4LCb+kIdcRD2JTNgGnFc7Mys3RkIsxqabMHAJo CfNspgQ/cnaovehxHgEfkxLJRQg/oq+2IGTxggBbA2nlTid+RMdf3nNLIfH/ /4z8F99Rs78= "]], LineBox[CompressedData[" 1:eJw1lmk4lIv/xmctylKkNE7ZFYlOihzp+xDpKGtaULLvUkdJUQfHFoqkxUT2 ikT2JTyPKGXJUhKpGYwlZuahbMMMP/8X/xf3db/5Xtf9ua/r++KWd/a3diMR CITnq/o/b5hizA1fj4BPB+fi9/6xBlMv0mMHSUeC9f6Vnm8LVOyR38NB0YpI 8CU17I/9QsUuTJi36UxHQXtvKbU2mYrRWHWZcR63YDlA0o8mQ8Uis7Y+lKPG gslABDtmmYJNOV6JL8+KBYuhiMbMIQrW/F39KuN7HHgVpjuUFlCwy72Pj2vZ 3IEosSdKj0woGOP+vMH76TtgFDY19UCTgpnanNA5l5AAxMTt/4lKU7BET+rd w26J4KN4MNBigoy5j9QG+2Xchex80Q2l98iYJGOXVcPmZJAfzzpPmSdhR+v7 WuPckiH8A9n4LYuE3UyLPnKqLBm8cjbfaekmYRP2w3qTVveBaCKqTS8iYdhX uorU7QcgFqAmQvMlYb7dwnxPcgoIFs2ldHEillVcGahlnQLsTydcrzCJWG+i 27QgIwU+HfnZ972LiBlaNIwmHaLD6ZqmFY1yIra1Lair9tpj0KhbKaq4QcTe vR17umEqDbbHbu5MkVq9Lz7SGGz8BMY6fzHlhIhYfWouY5T+BFpf+8i2LRKw ygAX6TrjdNATUSHGMwnY50S8qcwsA/hRPrWpLwnYu0M+2k7ZmVB1Czvhb0bA 8unOW2vMc2CnSZexObKCem5IeuZ/LQfOfBQkSKuvoCpRDfuVc3Lggnn9vnXS K2j2JTnrRF4OKBv3UJymltHUoz9i3XNyQcx2+nNr1jJ6e86WL7H4FIj9Lvtp YsvoRWsrhk9uHgQN1U5ZLvHREi21wePteVB30yxZhs1HZzaRh3fP5sGu4puN SwN8NKi3bBQ3ygeHvqTapXo++u9ZaW4AKx+M5w3lf//HR++4M/jBigXgqegY EreRjxZc96PFZxbCw3cOvGndJfRyV5Pal4/FoFMaEBZQwUN/qbjEOg8VQ4ZZ pOK5FzzUP4Q4wZ0tBnfFkv+sMnio945DeWu3lYB214icXSwPPX+jcoeuTwlI THy2HHfgoaaq+Uqpa0shc8986IgwD5UPS9jujJTBzYO/5b+6L6Af99hJcIsr IHKifnTmwDx67oMrXaG5AgKY9vd1NedRtpO/wumBCsitGhWOUp5H192L2Iut qYRdVwXrtCXmUZPZQusk+0ogXD89ODU5h2LV5Hva1CpwNvu29DZjDi0xfCn5 75lqeFXkO3lffA69b0OQ2rDyGjT+NDjmtzKDes14HekMwiA9RqJ/QOc3Wic3 kLBtRyNMmWsIuUVMoxnjsUWj79+CzpJSSChlCq3z7BT20H8PlVr5rx4FcdCN x55cYo+2rP7zYRd91gSaMULapOrSDmVGcWpvs8bROpmc+MHuDnCuSR/OjB1F hfrdb3XodUFCk5FToyMLtSQ1/7x1tRvqKyT/6Lg0hJbaT3a+a/8ECuE62vv9 mOh3kkZ2w7Ye0P7aJs2gfkeV19RKSJ/+Aoz0r8Sc+D405i8x4en8XghZdy9S ltGDCrW+SFUe/wrLt4RuaIZ3oznxopUD0A8eZS9H5Prb0bWpt2ut7n4D09ZO +tWJd2j0WtvzCm0DMLCl2owTjqGKOeMxV+R/gGm5jU7AwVJ0ILXRQsmRAUZJ auUbC1PQwks/Qo8eZ4JVZo+oYvgjCNmtvw2bZYKN9OsQ2ptSsH1oEDNybxD2 gftuSyMMGrc+1z4OQ3BIqaqtTr8ZNjam9d8dGwJd7zD6I9WP4EfTNYuMGAav yftdtnbdcDpWm1yjwQLD/ZqWcnM9YPm8Lzq1nQWIfVDzcfc+UOesJzl4jYDu +ipV674BeGCagTpKjMLChKa4gS0TxE/1H9v4ahScdhZ84mgNgdT1QBmy/RgU FUSfUjBlgdrxquqsxTFw3TVJm7YeBUXjW2byD8chxu3EpX3e45B3qlZpEPkJ pprOC1s7J+DQ5vst5oyfcCWYlCavxQEnbkepIHYCNFWTz0zwcfDgpCTFaU1C jPdUreDGNITQhZHmzkmoDE4cOrzuN8g6fttjFMwGPpf3JXJqBrj6fd+wG2zQ Newa3LEwA7UyvVH6oWwo/Guv98eVGbDr7R7QjmSDT2KgqKr4LDwwb4lRTWDD yzVnT0lpzIKIfjVTLJsNDl5Phzt8Z2Fh68PEvhY2tJWrF6xwZqHzk/XUBRoH rolU/ClDnIe/uCpbGH9wwJy1UsMWnoccoSV9C1kOYGOGeU0S83BNPztOU4kD CuRwZrTSPCg8+60ytZsDvPySX2ePzsOV68nnLhlwIIu1q/3Y3XmgyX9pCfDk wGcn0EjeuQARevnTw94cqEsV7/177wLgJ29K2/hxgNL7InTtwQVoilVx3/cP B3wt7kg+tlgAv5lA4mwwB4T06FylqwuANW85EJjAgc2O9Oau5gVwu2CbG1TB AcU/KYsiF3mwd6Ne17ZqDuCkcugM5sFy6R+CN6854B2e8yw9mgePeAwb0QYO 9NVXWLqk86Alwp2S1cqB9C8OENbBA43HAS6tTA7QfsmW7N27CHPNt+W3r+eC yBrWYQfSErzx9jdrFOWC3QLGGBFfggRRq2ueG7gQdUF4281tS7DzxKauEiku 3Jat0ho8sAR2P+ihJnJc8BQISFcvLgE684xxcT8XznjJOYoOL0GM/Ju0xvNc YHkLyQT18kHU/keonjMXOg56pHiP8iEpedGl1JULGtqJcv/M8uHxWi21bC8u EEpkLBokBVDIya4ID+DCM1VXuoeVAD5XR3YYRHMhX+FnnmSXAOSs/yZihVwo MF1zRpe1DLlxbiydYi6Y+Plrecwtg9rbsOai0lUeyedG5UIroHWg5nZ6FRcO 0V0WS3evwJHtu2j/vuHCS/LOX39fWwHfCRGtQ1+4YOPRZJy/noBUh3e61gpW +WXNz7dWE5BX3YKmGwQcyopF0B/vCMhThV3KQMbhs/jJyk2fCUjSm8iRBiEc tvxOiJ7kEhBvkp57syQOaLzoG3sVIkILz/XoVsVhfHNb0dY0IrKhu7v5njoO pp09BxoLiMgaBcLOk5o4nPVjXU2vJSK/GuzGe/fhkLpomzI7QERaiBu8vgMO 6x+G6RvKkZDgsOve4ydxqKtJEh0rISH/dD1ryTuDA/tp65HIdyTEU75Hzcce ByezzqHL/STEpkFzkuOIw3k1o9gTZDKiThzx+e2DQ0uIroG7LRlRsJJoK7uA wwdzmsuoPxmRzgT1wEs4KNdoMbujyAjFgM5eCFzNT5A/TaogIwOhFn7LYat9 1NO4RjQK0t0Z0o5G4HC5QbD71T4K8l4uf3dYNA4DYq6vSywoSBlG4ZJv47BR 372UHk1B4gk1F4Qf4aAqpezFXKEg4ZZjH1voOOSKM2s4slQkKGOTZnzaKt9j k8EBhIq4Iv64WDYObr6G5AeRVMQuMdWiMxcHFwMov5FHRSyZH4ruPsehXrZv LvwjFTmyZ178xAscFE7+9KyaoSL6oUoXNxXi/783kf8B8adKwg== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{{0.01, 0.99}, {-4.117175809512905, 4.102714970372701}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.5867172756049147`*^9, 3.5867182390267706`*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.586717229304206*^9, 3.586717236226654*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"intervalStudent", "[", RowBox[{"n_", ",", "prob_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "umais", ",", "umenos", ",", "t", ",", RowBox[{"x", "=", "20"}], ",", RowBox[{"\[Sigma]", "=", "3"}]}], "}"}], ",", RowBox[{ RowBox[{"u", "=", RowBox[{"parms", "[", RowBox[{"x", ",", "\[Sigma]", ",", "n"}], "]"}]}], ";", RowBox[{"t", "=", RowBox[{"InverseCDF", "[", " ", RowBox[{ RowBox[{"StudentTDistribution", "[", RowBox[{"n", "-", "1"}], "]"}], ",", RowBox[{"0.5", "+", RowBox[{"prob", "/", "2"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"umais", "=", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "1", "]"}], "]"}], "+", " ", RowBox[{"t", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "2", "]"}], "]"}], "/", RowBox[{"Sqrt", "[", "n", "]"}]}]}]}]}], ";", RowBox[{"umenos", "=", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"t", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "2", "]"}], "]"}], "/", RowBox[{"Sqrt", "[", "n", "]"}]}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"umenos", "<", "x", "<", "umais"}], ",", "1", ",", "0"}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5867168910730505`*^9, 3.586716910340272*^9}, { 3.586717291684372*^9, 3.586717385129619*^9}, {3.586717748737877*^9, 3.586717759566897*^9}, {3.5867177949917107`*^9, 3.586717823525326*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"intervalStudent", "[", RowBox[{"2", ",", "0.683"}], "]"}], ",", RowBox[{"{", "100", "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5867178295414457`*^9, 3.5867178585604553`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1"}], "}"}]], "Output", CellChangeTimes->{{3.5867178405267334`*^9, 3.586717859388649*^9}, 3.586718239104903*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"probMCvsTt", "[", RowBox[{"dadosPorConjunto_", ",", "nivelConfianca_", ",", "historias_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "s"}], "}"}], ",", RowBox[{ RowBox[{"n", "=", RowBox[{"Total", "[", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"intervalStudent", "[", RowBox[{"dadosPorConjunto", ",", RowBox[{"0.01", "nivelConfianca"}]}], "]"}], ",", RowBox[{"{", "historias", "}"}]}], "]"}], "]"}]}], " ", ";", RowBox[{"s", "=", RowBox[{"Sqrt", "[", RowBox[{"n", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"n", "/", "historias"}]}], ")"}]}], "]"}]}], ";", RowBox[{"Round", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"100", " ", RowBox[{"n", "/", "historias"}]}], ",", RowBox[{"100", RowBox[{"s", "/", "historias"}]}]}], "}"}], ",", "0.01"}], "]"}]}]}], " ", "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.586717427289363*^9, 3.5867175348607783`*^9}, { 3.586717590677904*^9, 3.586717591709239*^9}, 3.586718184623565*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"res68", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"n", ",", RowBox[{"probMCvsTt", "[", RowBox[{"n", ",", "68.3", ",", "1000"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "20"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5867175600659924`*^9, 3.5867175767392473`*^9}, { 3.586717710859739*^9, 3.5867177114847903`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "69.`", ",", "1.46`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "65.6`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "72.`", ",", "1.42`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "68.8`", ",", "1.47`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "67.5`", ",", "1.48`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "67.3`", ",", "1.48`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "67.3`", ",", "1.48`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "68.1`", ",", "1.47`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "68.7`", ",", "1.47`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "70.`", ",", "1.45`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "69.5`", ",", "1.46`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "69.10000000000001`", ",", "1.46`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "66.8`", ",", "1.49`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "68.2`", ",", "1.47`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "68.4`", ",", "1.47`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "68.4`", ",", "1.47`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "69.8`", ",", "1.45`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "67.`", ",", "1.49`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "68.`", ",", "1.48`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5867176264933696`*^9, 3.5867178820155225`*^9, 3.586718248388386*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ErrorListPlot", "[", RowBox[{"res68", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.5867176427603455`*^9, 3.586717643354144*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQDQUOEDIQQjNwOKSBQQCULwClg6C0iIMxGMDUS0Do BzD1MhD5yzC+AhpfCWI+G0y/isPZM0CgA+OrQegGGF8DQifA+FoO6SD9bjC+ DsT8zTDz9SDm8cDkDRxmzQQCSRjfEI1vBNFfDOMbQ+gDMPNMoHSgAwB1/jOY "]], {{LineBox[{{2., 70.46}, {2., 67.54}}], LineBox[{Offset[{1.5, 0}, {2., 70.46}], Offset[{-1.5, 0}, {2., 70.46}]}], LineBox[{Offset[{1.5, 0}, {2., 67.54}], Offset[{-1.5, 0}, {2., 67.54}]}]}, {LineBox[{{3., 67.1}, {3., 64.1}}], LineBox[{Offset[{1.5, 0}, {3., 67.1}], Offset[{-1.5, 0}, {3., 67.1}]}], LineBox[{ Offset[{1.5, 0}, {3., 64.1}], Offset[{-1.5, 0}, {3., 64.1}]}]}, { LineBox[{{4., 73.42}, {4., 70.58}}], LineBox[{Offset[{1.5, 0}, {4., 73.42}], Offset[{-1.5, 0}, {4., 73.42}]}], LineBox[{Offset[{1.5, 0}, {4., 70.58}], Offset[{-1.5, 0}, {4., 70.58}]}]}, { LineBox[{{5., 70.27}, {5., 67.33}}], LineBox[{Offset[{1.5, 0}, {5., 70.27}], Offset[{-1.5, 0}, {5., 70.27}]}], LineBox[{Offset[{1.5, 0}, {5., 67.33}], Offset[{-1.5, 0}, {5., 67.33}]}]}, { LineBox[{{6., 68.98}, {6., 66.02}}], LineBox[{Offset[{1.5, 0}, {6., 68.98}], Offset[{-1.5, 0}, {6., 68.98}]}], LineBox[{Offset[{1.5, 0}, {6., 66.02}], Offset[{-1.5, 0}, {6., 66.02}]}]}, { LineBox[{{7., 68.78}, {7., 65.82}}], LineBox[{Offset[{1.5, 0}, {7., 68.78}], Offset[{-1.5, 0}, {7., 68.78}]}], LineBox[{Offset[{1.5, 0}, {7., 65.82}], Offset[{-1.5, 0}, {7., 65.82}]}]}, { LineBox[{{8., 68.78}, {8., 65.82}}], LineBox[{Offset[{1.5, 0}, {8., 68.78}], Offset[{-1.5, 0}, {8., 68.78}]}], LineBox[{Offset[{1.5, 0}, {8., 65.82}], Offset[{-1.5, 0}, {8., 65.82}]}]}, { LineBox[{{9., 69.57}, {9., 66.63}}], LineBox[{Offset[{1.5, 0}, {9., 69.57}], Offset[{-1.5, 0}, {9., 69.57}]}], LineBox[{Offset[{1.5, 0}, {9., 66.63}], Offset[{-1.5, 0}, {9., 66.63}]}]}, { LineBox[{{10., 70.17}, {10., 67.23}}], LineBox[{Offset[{1.5, 0}, {10., 70.17}], Offset[{-1.5, 0}, {10., 70.17}]}], LineBox[{Offset[{1.5, 0}, {10., 67.23}], Offset[{-1.5, 0}, {10., 67.23}]}]}, { LineBox[{{11., 71.45}, {11., 68.55}}], LineBox[{Offset[{1.5, 0}, {11., 71.45}], Offset[{-1.5, 0}, {11., 71.45}]}], LineBox[{Offset[{1.5, 0}, {11., 68.55}], Offset[{-1.5, 0}, {11., 68.55}]}]}, { LineBox[{{12., 70.96}, {12., 68.04}}], LineBox[{Offset[{1.5, 0}, {12., 70.96}], Offset[{-1.5, 0}, {12., 70.96}]}], LineBox[{Offset[{1.5, 0}, {12., 68.04}], Offset[{-1.5, 0}, {12., 68.04}]}]}, { LineBox[{{13., 70.56}, {13., 67.64000000000001}}], LineBox[{Offset[{1.5, 0}, {13., 70.56}], Offset[{-1.5, 0}, {13., 70.56}]}], LineBox[{Offset[{1.5, 0}, {13., 67.64000000000001}], Offset[{-1.5, 0}, {13., 67.64000000000001}]}]}, { LineBox[{{14., 68.28999999999999}, {14., 65.31}}], LineBox[{Offset[{1.5, 0}, {14., 68.28999999999999}], Offset[{-1.5, 0}, {14., 68.28999999999999}]}], LineBox[{Offset[{1.5, 0}, {14., 65.31}], Offset[{-1.5, 0}, {14., 65.31}]}]}, { LineBox[{{15., 69.67}, {15., 66.73}}], LineBox[{Offset[{1.5, 0}, {15., 69.67}], Offset[{-1.5, 0}, {15., 69.67}]}], LineBox[{Offset[{1.5, 0}, {15., 66.73}], Offset[{-1.5, 0}, {15., 66.73}]}]}, { LineBox[{{16., 69.87}, {16., 66.93}}], LineBox[{Offset[{1.5, 0}, {16., 69.87}], Offset[{-1.5, 0}, {16., 69.87}]}], LineBox[{Offset[{1.5, 0}, {16., 66.93}], Offset[{-1.5, 0}, {16., 66.93}]}]}, { LineBox[{{17., 69.87}, {17., 66.93}}], LineBox[{Offset[{1.5, 0}, {17., 69.87}], Offset[{-1.5, 0}, {17., 69.87}]}], LineBox[{Offset[{1.5, 0}, {17., 66.93}], Offset[{-1.5, 0}, {17., 66.93}]}]}, { LineBox[{{18., 71.25}, {18., 68.35}}], LineBox[{Offset[{1.5, 0}, {18., 71.25}], Offset[{-1.5, 0}, {18., 71.25}]}], LineBox[{Offset[{1.5, 0}, {18., 68.35}], Offset[{-1.5, 0}, {18., 68.35}]}]}, { LineBox[{{19., 68.49}, {19., 65.51}}], LineBox[{Offset[{1.5, 0}, {19., 68.49}], Offset[{-1.5, 0}, {19., 68.49}]}], LineBox[{Offset[{1.5, 0}, {19., 65.51}], Offset[{-1.5, 0}, {19., 65.51}]}]}, { LineBox[{{20., 69.48}, {20., 66.52}}], LineBox[{Offset[{1.5, 0}, {20., 69.48}], Offset[{-1.5, 0}, {20., 69.48}]}], LineBox[{Offset[{1.5, 0}, {20., 66.52}], Offset[{-1.5, 0}, {20., 66.52}]}]}}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{2., 65.6}, Method->{}, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.5867176445729933`*^9, 3.586717886406513*^9, 3.5867182484352655`*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.586717892188245*^9, 3.5867178934070954`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"res95", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"n", ",", RowBox[{"probMCvsTt", "[", RowBox[{"n", ",", "95.5", ",", "1000"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "20"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.586717901829668*^9, 3.586717909705318*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "95.5`", ",", "0.66`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "95.7`", ",", "0.64`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "95.8`", ",", "0.63`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "96.3`", ",", "0.6`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "95.5`", ",", "0.66`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "95.2`", ",", "0.68`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "95.`", ",", "0.6900000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "95.5`", ",", "0.66`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "96.3`", ",", "0.6`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "95.9`", ",", "0.63`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "95.60000000000001`", ",", "0.65`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "95.8`", ",", "0.63`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "96.4`", ",", "0.59`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "96.7`", ",", "0.56`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "96.5`", ",", "0.58`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "94.9`", ",", "0.7000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "96.2`", ",", "0.6`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "95.10000000000001`", ",", "0.68`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "95.7`", ",", "0.64`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.586717922221981*^9, 3.58671825852985*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ErrorListPlot", "[", RowBox[{"res95", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.586717989321294*^9, 3.5867179903213778`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQDQUOYPJBOIRm4HA4ewYI3sD4Ag7GIPAZxheB8IUj oHwJNP0yEP1nYHwFCH0AxldCU6+CZp6aw6yZQPATJq/hkJ4GBM9gfC009+hA 1EvC9OtB7NeB8Q0gtAKMbwhRvxOm3wiingcmbwyx7xhM3gQeHgCh3EUS "]], {{LineBox[{{2., 96.16}, {2., 94.84}}], LineBox[{Offset[{1.5, 0}, {2., 96.16}], Offset[{-1.5, 0}, {2., 96.16}]}], LineBox[{Offset[{1.5, 0}, {2., 94.84}], Offset[{-1.5, 0}, {2., 94.84}]}]}, { LineBox[{{3., 96.34}, {3., 95.06}}], LineBox[{Offset[{1.5, 0}, {3., 96.34}], Offset[{-1.5, 0}, {3., 96.34}]}], LineBox[{Offset[{1.5, 0}, {3., 95.06}], Offset[{-1.5, 0}, {3., 95.06}]}]}, { LineBox[{{4., 96.42999999999999}, {4., 95.17}}], LineBox[{Offset[{1.5, 0}, {4., 96.42999999999999}], Offset[{-1.5, 0}, {4., 96.42999999999999}]}], LineBox[{Offset[{1.5, 0}, {4., 95.17}], Offset[{-1.5, 0}, {4., 95.17}]}]}, { LineBox[{{5., 96.89999999999999}, {5., 95.7}}], LineBox[{Offset[{1.5, 0}, {5., 96.89999999999999}], Offset[{-1.5, 0}, {5., 96.89999999999999}]}], LineBox[{Offset[{1.5, 0}, {5., 95.7}], Offset[{-1.5, 0}, {5., 95.7}]}]}, { LineBox[{{6., 96.16}, {6., 94.84}}], LineBox[{Offset[{1.5, 0}, {6., 96.16}], Offset[{-1.5, 0}, {6., 96.16}]}], LineBox[{Offset[{1.5, 0}, {6., 94.84}], Offset[{-1.5, 0}, {6., 94.84}]}]}, { LineBox[{{7., 95.88000000000001}, {7., 94.52}}], LineBox[{Offset[{1.5, 0}, {7., 95.88000000000001}], Offset[{-1.5, 0}, {7., 95.88000000000001}]}], LineBox[{Offset[{1.5, 0}, {7., 94.52}], Offset[{-1.5, 0}, {7., 94.52}]}]}, { LineBox[{{8., 95.69}, {8., 94.31}}], LineBox[{Offset[{1.5, 0}, {8., 95.69}], Offset[{-1.5, 0}, {8., 95.69}]}], LineBox[{Offset[{1.5, 0}, {8., 94.31}], Offset[{-1.5, 0}, {8., 94.31}]}]}, { LineBox[{{9., 96.16}, {9., 94.84}}], LineBox[{Offset[{1.5, 0}, {9., 96.16}], Offset[{-1.5, 0}, {9., 96.16}]}], LineBox[{Offset[{1.5, 0}, {9., 94.84}], Offset[{-1.5, 0}, {9., 94.84}]}]}, { LineBox[{{10., 96.89999999999999}, {10., 95.7}}], LineBox[{Offset[{1.5, 0}, {10., 96.89999999999999}], Offset[{-1.5, 0}, {10., 96.89999999999999}]}], LineBox[{Offset[{1.5, 0}, {10., 95.7}], Offset[{-1.5, 0}, {10., 95.7}]}]}, { LineBox[{{11., 96.53}, {11., 95.27000000000001}}], LineBox[{Offset[{1.5, 0}, {11., 96.53}], Offset[{-1.5, 0}, {11., 96.53}]}], LineBox[{Offset[{1.5, 0}, {11., 95.27000000000001}], Offset[{-1.5, 0}, {11., 95.27000000000001}]}]}, { LineBox[{{12., 96.25000000000001}, {12., 94.95}}], LineBox[{Offset[{1.5, 0}, {12., 96.25000000000001}], Offset[{-1.5, 0}, {12., 96.25000000000001}]}], LineBox[{Offset[{1.5, 0}, {12., 94.95}], Offset[{-1.5, 0}, {12., 94.95}]}]}, { LineBox[{{13., 96.42999999999999}, {13., 95.17}}], LineBox[{Offset[{1.5, 0}, {13., 96.42999999999999}], Offset[{-1.5, 0}, {13., 96.42999999999999}]}], LineBox[{Offset[{1.5, 0}, {13., 95.17}], Offset[{-1.5, 0}, {13., 95.17}]}]}, { LineBox[{{14., 96.99000000000001}, {14., 95.81}}], LineBox[{Offset[{1.5, 0}, {14., 96.99000000000001}], Offset[{-1.5, 0}, {14., 96.99000000000001}]}], LineBox[{Offset[{1.5, 0}, {14., 95.81}], Offset[{-1.5, 0}, {14., 95.81}]}]}, { LineBox[{{15., 97.26}, {15., 96.14}}], LineBox[{Offset[{1.5, 0}, {15., 97.26}], Offset[{-1.5, 0}, {15., 97.26}]}], LineBox[{Offset[{1.5, 0}, {15., 96.14}], Offset[{-1.5, 0}, {15., 96.14}]}]}, { LineBox[{{16., 97.08}, {16., 95.92}}], LineBox[{Offset[{1.5, 0}, {16., 97.08}], Offset[{-1.5, 0}, {16., 97.08}]}], LineBox[{Offset[{1.5, 0}, {16., 95.92}], Offset[{-1.5, 0}, {16., 95.92}]}]}, { LineBox[{{17., 95.60000000000001}, {17., 94.2}}], LineBox[{Offset[{1.5, 0}, {17., 95.60000000000001}], Offset[{-1.5, 0}, {17., 95.60000000000001}]}], LineBox[{Offset[{1.5, 0}, {17., 94.2}], Offset[{-1.5, 0}, {17., 94.2}]}]}, { LineBox[{{18., 96.8}, {18., 95.60000000000001}}], LineBox[{Offset[{1.5, 0}, {18., 96.8}], Offset[{-1.5, 0}, {18., 96.8}]}], LineBox[{Offset[{1.5, 0}, {18., 95.60000000000001}], Offset[{-1.5, 0}, {18., 95.60000000000001}]}]}, { LineBox[{{19., 95.78000000000002}, {19., 94.42}}], LineBox[{Offset[{1.5, 0}, {19., 95.78000000000002}], Offset[{-1.5, 0}, {19., 95.78000000000002}]}], LineBox[{Offset[{1.5, 0}, {19., 94.42}], Offset[{-1.5, 0}, {19., 94.42}]}]}, { LineBox[{{20., 96.34}, {20., 95.06}}], LineBox[{Offset[{1.5, 0}, {20., 96.34}], Offset[{-1.5, 0}, {20., 96.34}]}], LineBox[{Offset[{1.5, 0}, {20., 95.06}], Offset[{-1.5, 0}, {20., 95.06}]}]}}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{2., 94.9}, Method->{}, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.5867179911341176`*^9, 3.586718258561103*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"res99e7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"n", ",", RowBox[{"probMCvsTt", "[", RowBox[{"n", ",", "99.7", ",", "10000"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "20", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5867180089947996`*^9, 3.5867180330905466`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "99.64`", ",", "0.06`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "99.64`", ",", "0.06`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "99.62`", ",", "0.06`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "99.69`", ",", "0.06`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "99.62`", ",", "0.06`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "99.75`", ",", "0.05`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "99.7`", ",", "0.05`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "99.76`", ",", "0.05`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "99.62`", ",", "0.06`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "99.64`", ",", "0.06`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5867180931628585`*^9, 3.586718309473394*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ErrorListPlot", "[", RowBox[{"res99e7", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.586718115508462*^9, 3.586718134619421*^9}, { 3.5867181922063265`*^9, 3.586718201285204*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[{{2., 99.64}, {4., 99.64}, {6., 99.62}, {8., 99.69}, {10., 99.62}, {12., 99.75}, {14., 99.7}, {16., 99.76}, {18., 99.62}, {20., 99.64}}], {{LineBox[{{2., 99.7}, {2., 99.58}}], LineBox[{Offset[{1.5, 0}, {2., 99.7}], Offset[{-1.5, 0}, {2., 99.7}]}], LineBox[{Offset[{1.5, 0}, {2., 99.58}], Offset[{-1.5, 0}, {2., 99.58}]}]}, { LineBox[{{4., 99.7}, {4., 99.58}}], LineBox[{Offset[{1.5, 0}, {4., 99.7}], Offset[{-1.5, 0}, {4., 99.7}]}], LineBox[{Offset[{1.5, 0}, {4., 99.58}], Offset[{-1.5, 0}, {4., 99.58}]}]}, { LineBox[{{6., 99.68}, {6., 99.56}}], LineBox[{Offset[{1.5, 0}, {6., 99.68}], Offset[{-1.5, 0}, {6., 99.68}]}], LineBox[{Offset[{1.5, 0}, {6., 99.56}], Offset[{-1.5, 0}, {6., 99.56}]}]}, { LineBox[{{8., 99.75}, {8., 99.63}}], LineBox[{Offset[{1.5, 0}, {8., 99.75}], Offset[{-1.5, 0}, {8., 99.75}]}], LineBox[{Offset[{1.5, 0}, {8., 99.63}], Offset[{-1.5, 0}, {8., 99.63}]}]}, { LineBox[{{10., 99.68}, {10., 99.56}}], LineBox[{Offset[{1.5, 0}, {10., 99.68}], Offset[{-1.5, 0}, {10., 99.68}]}], LineBox[{Offset[{1.5, 0}, {10., 99.56}], Offset[{-1.5, 0}, {10., 99.56}]}]}, { LineBox[{{12., 99.8}, {12., 99.7}}], LineBox[{Offset[{1.5, 0}, {12., 99.8}], Offset[{-1.5, 0}, {12., 99.8}]}], LineBox[{Offset[{1.5, 0}, {12., 99.7}], Offset[{-1.5, 0}, {12., 99.7}]}]}, { LineBox[{{14., 99.75}, {14., 99.65}}], LineBox[{Offset[{1.5, 0}, {14., 99.75}], Offset[{-1.5, 0}, {14., 99.75}]}], LineBox[{Offset[{1.5, 0}, {14., 99.65}], Offset[{-1.5, 0}, {14., 99.65}]}]}, { LineBox[{{16., 99.81}, {16., 99.71000000000001}}], LineBox[{Offset[{1.5, 0}, {16., 99.81}], Offset[{-1.5, 0}, {16., 99.81}]}], LineBox[{Offset[{1.5, 0}, {16., 99.71000000000001}], Offset[{-1.5, 0}, {16., 99.71000000000001}]}]}, { LineBox[{{18., 99.68}, {18., 99.56}}], LineBox[{Offset[{1.5, 0}, {18., 99.68}], Offset[{-1.5, 0}, {18., 99.68}]}], LineBox[{ Offset[{1.5, 0}, {18., 99.56}], Offset[{-1.5, 0}, {18., 99.56}]}]}, { LineBox[{{20., 99.7}, {20., 99.58}}], LineBox[{Offset[{1.5, 0}, {20., 99.7}], Offset[{-1.5, 0}, {20., 99.7}]}], LineBox[{Offset[{1.5, 0}, {20., 99.58}], Offset[{-1.5, 0}, {20., 99.58}]}]}}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{2., 99.62}, Method->{}, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.5867181353852396`*^9, 3.586718309520274*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"res44", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"n", ",", RowBox[{"probMCvsTt", "[", RowBox[{"n", ",", "44.0", ",", "10000"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "20", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.586718406097247*^9, 3.5867184155570097`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "44.26`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "43.31`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "43.94`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "44.6`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "42.57`", ",", "0.49`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "43.74`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "44.550000000000004`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "44.33`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "44.25`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "43.59`", ",", "0.5`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5867184676188035`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ErrorListPlot", "[", RowBox[{"res44", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.5867184799185452`*^9, 3.5867184817937007`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[{{2., 44.26}, {4., 43.31}, {6., 43.94}, {8., 44.6}, {10., 42.57}, {12., 43.74}, {14., 44.550000000000004`}, {16., 44.33}, {18., 44.25}, {20., 43.59}}], {{LineBox[{{2., 44.76}, {2., 43.76}}], LineBox[{Offset[{1.5, 0}, {2., 44.76}], Offset[{-1.5, 0}, {2., 44.76}]}], LineBox[{Offset[{1.5, 0}, {2., 43.76}], Offset[{-1.5, 0}, {2., 43.76}]}]}, { LineBox[{{4., 43.81}, {4., 42.81}}], LineBox[{Offset[{1.5, 0}, {4., 43.81}], Offset[{-1.5, 0}, {4., 43.81}]}], LineBox[{Offset[{1.5, 0}, {4., 42.81}], Offset[{-1.5, 0}, {4., 42.81}]}]}, { LineBox[{{6., 44.44}, {6., 43.44}}], LineBox[{Offset[{1.5, 0}, {6., 44.44}], Offset[{-1.5, 0}, {6., 44.44}]}], LineBox[{Offset[{1.5, 0}, {6., 43.44}], Offset[{-1.5, 0}, {6., 43.44}]}]}, {LineBox[{{8., 45.1}, {8., 44.1}}], LineBox[{Offset[{1.5, 0}, {8., 45.1}], Offset[{-1.5, 0}, {8., 45.1}]}], LineBox[{ Offset[{1.5, 0}, {8., 44.1}], Offset[{-1.5, 0}, {8., 44.1}]}]}, { LineBox[{{10., 43.06}, {10., 42.08}}], LineBox[{Offset[{1.5, 0}, {10., 43.06}], Offset[{-1.5, 0}, {10., 43.06}]}], LineBox[{Offset[{1.5, 0}, {10., 42.08}], Offset[{-1.5, 0}, {10., 42.08}]}]}, { LineBox[{{12., 44.24}, {12., 43.24}}], LineBox[{Offset[{1.5, 0}, {12., 44.24}], Offset[{-1.5, 0}, {12., 44.24}]}], LineBox[{Offset[{1.5, 0}, {12., 43.24}], Offset[{-1.5, 0}, {12., 43.24}]}]}, { LineBox[{{14., 45.050000000000004`}, {14., 44.050000000000004`}}], LineBox[{Offset[{1.5, 0}, {14., 45.050000000000004`}], Offset[{-1.5, 0}, {14., 45.050000000000004`}]}], LineBox[{Offset[{1.5, 0}, {14., 44.050000000000004`}], Offset[{-1.5, 0}, {14., 44.050000000000004`}]}]}, { LineBox[{{16., 44.83}, {16., 43.83}}], LineBox[{Offset[{1.5, 0}, {16., 44.83}], Offset[{-1.5, 0}, {16., 44.83}]}], LineBox[{Offset[{1.5, 0}, {16., 43.83}], Offset[{-1.5, 0}, {16., 43.83}]}]}, { LineBox[{{18., 44.75}, {18., 43.75}}], LineBox[{ Offset[{1.5, 0}, {18., 44.75}], Offset[{-1.5, 0}, {18., 44.75}]}], LineBox[{Offset[{1.5, 0}, {18., 43.75}], Offset[{-1.5, 0}, {18., 43.75}]}]}, { LineBox[{{20., 44.09}, {20., 43.09}}], LineBox[{Offset[{1.5, 0}, {20., 44.09}], Offset[{-1.5, 0}, {20., 44.09}]}], LineBox[{Offset[{1.5, 0}, {20., 43.09}], Offset[{-1.5, 0}, {20., 43.09}]}]}}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{2., 42.57}, Method->{}, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.5867184823992023`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"res88", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"n", ",", RowBox[{"probMCvsTt", "[", RowBox[{"n", ",", "88.0", ",", "10000"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "20", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5867184939309764`*^9, 3.5867184979077344`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "87.08`", ",", "0.34`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "88.24`", ",", "0.32`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "88.12`", ",", "0.32`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "87.93`", ",", "0.33`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "88.3`", ",", "0.32`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "88.34`", ",", "0.32`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "87.85000000000001`", ",", "0.33`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "88.09`", ",", "0.32`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "87.67`", ",", "0.33`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "87.53`", ",", "0.33`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.586718551344531*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ErrorListPlot", "[", RowBox[{"res88", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.5867185092288017`*^9, 3.5867185097324524`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[{{2., 87.08}, {4., 88.24}, {6., 88.12}, {8., 87.93}, {10., 88.3}, {12., 88.34}, {14., 87.85000000000001}, {16., 88.09}, {18., 87.67}, {20., 87.53}}], {{LineBox[{{2., 87.42}, {2., 86.74}}], LineBox[{Offset[{1.5, 0}, {2., 87.42}], Offset[{-1.5, 0}, {2., 87.42}]}], LineBox[{Offset[{1.5, 0}, {2., 86.74}], Offset[{-1.5, 0}, {2., 86.74}]}]}, { LineBox[{{4., 88.55999999999999}, {4., 87.92}}], LineBox[{Offset[{1.5, 0}, {4., 88.55999999999999}], Offset[{-1.5, 0}, {4., 88.55999999999999}]}], LineBox[{Offset[{1.5, 0}, {4., 87.92}], Offset[{-1.5, 0}, {4., 87.92}]}]}, { LineBox[{{6., 88.44}, {6., 87.80000000000001}}], LineBox[{Offset[{1.5, 0}, {6., 88.44}], Offset[{-1.5, 0}, {6., 88.44}]}], LineBox[{Offset[{1.5, 0}, {6., 87.80000000000001}], Offset[{-1.5, 0}, {6., 87.80000000000001}]}]}, { LineBox[{{8., 88.26}, {8., 87.60000000000001}}], LineBox[{Offset[{1.5, 0}, {8., 88.26}], Offset[{-1.5, 0}, {8., 88.26}]}], LineBox[{Offset[{1.5, 0}, {8., 87.60000000000001}], Offset[{-1.5, 0}, {8., 87.60000000000001}]}]}, { LineBox[{{10., 88.61999999999999}, {10., 87.98}}], LineBox[{Offset[{1.5, 0}, {10., 88.61999999999999}], Offset[{-1.5, 0}, {10., 88.61999999999999}]}], LineBox[{Offset[{1.5, 0}, {10., 87.98}], Offset[{-1.5, 0}, {10., 87.98}]}]}, { LineBox[{{12., 88.66}, {12., 88.02000000000001}}], LineBox[{Offset[{1.5, 0}, {12., 88.66}], Offset[{-1.5, 0}, {12., 88.66}]}], LineBox[{Offset[{1.5, 0}, {12., 88.02000000000001}], Offset[{-1.5, 0}, {12., 88.02000000000001}]}]}, { LineBox[{{14., 88.18}, {14., 87.52000000000001}}], LineBox[{Offset[{1.5, 0}, {14., 88.18}], Offset[{-1.5, 0}, {14., 88.18}]}], LineBox[{Offset[{1.5, 0}, {14., 87.52000000000001}], Offset[{-1.5, 0}, {14., 87.52000000000001}]}]}, { LineBox[{{16., 88.41}, {16., 87.77000000000001}}], LineBox[{Offset[{1.5, 0}, {16., 88.41}], Offset[{-1.5, 0}, {16., 88.41}]}], LineBox[{Offset[{1.5, 0}, {16., 87.77000000000001}], Offset[{-1.5, 0}, {16., 87.77000000000001}]}]}, { LineBox[{{18., 88.}, {18., 87.34}}], LineBox[{Offset[{1.5, 0}, {18., 88.}], Offset[{-1.5, 0}, {18., 88.}]}], LineBox[{Offset[{1.5, 0}, {18., 87.34}], Offset[{-1.5, 0}, {18., 87.34}]}]}, { LineBox[{{20., 87.86}, {20., 87.2}}], LineBox[{Offset[{1.5, 0}, {20., 87.86}], Offset[{-1.5, 0}, {20., 87.86}]}], LineBox[{Offset[{1.5, 0}, {20., 87.2}], Offset[{-1.5, 0}, {20., 87.2}]}]}}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{2., 87.08}, Method->{}, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.586718555469874*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{707, 816}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, Magnification->0.8999999761581421, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 140, 1, 90, "Title"], Cell[CellGroupData[{ Cell[744, 27, 133, 1, 35, "Subsubsection"], Cell[880, 30, 227, 6, 29, "Input"], Cell[CellGroupData[{ Cell[1132, 40, 353, 10, 29, "Input"], Cell[1488, 52, 6341, 111, 227, "Output"] }, Open ]], Cell[7844, 166, 140, 2, 28, "Text"], Cell[7987, 170, 526, 16, 29, "Input"], Cell[CellGroupData[{ Cell[8538, 190, 352, 10, 29, "Input"], Cell[8893, 202, 14162, 240, 220, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23104, 448, 210, 4, 35, "Subsubsection"], Cell[23317, 454, 766, 21, 50, "Input"], Cell[24086, 477, 199, 4, 28, "Text"], Cell[CellGroupData[{ Cell[24310, 485, 165, 3, 29, "Input"], Cell[24478, 490, 261, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24776, 501, 414, 11, 29, "Input"], Cell[25193, 514, 985, 21, 97, "Output"] }, Open ]], Cell[26193, 538, 126, 1, 28, "Text"], Cell[26322, 541, 1160, 33, 70, "Input"], Cell[CellGroupData[{ Cell[27507, 578, 127, 2, 29, "Input"], Cell[27637, 582, 121, 2, 28, "Output"] }, Open ]], Cell[27773, 587, 237, 6, 29, "Input"], Cell[CellGroupData[{ Cell[28035, 597, 124, 2, 29, "Input"], Cell[28162, 601, 121, 2, 28, "Output"] }, Open ]], Cell[28298, 606, 539, 14, 50, "Input"], Cell[CellGroupData[{ Cell[28862, 624, 160, 3, 29, "Input"], Cell[29025, 629, 163, 2, 28, "Output"] }, Open ]], Cell[29203, 634, 166, 3, 28, "Text"], Cell[29372, 639, 1059, 30, 90, "Input"], Cell[CellGroupData[{ Cell[30456, 673, 256, 5, 29, "Input"], Cell[30715, 680, 325, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31077, 691, 329, 9, 29, "Input"], Cell[31409, 702, 3748, 120, 143, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35194, 827, 452, 12, 29, "Input"], Cell[35649, 841, 2446, 62, 124, "Output"] }, Open ]], Cell[38110, 906, 149, 2, 29, "Input"], Cell[CellGroupData[{ Cell[38284, 912, 201, 4, 29, "Input"], Cell[38488, 918, 7490, 148, 210, "Output"] }, Open ]], Cell[45993, 1069, 1248, 36, 70, "Input"], Cell[CellGroupData[{ Cell[47266, 1109, 288, 7, 29, "Input"], Cell[47557, 1118, 1230, 18, 86, "Output"] }, Open ]], Cell[48802, 1139, 1162, 33, 110, "Input"], Cell[CellGroupData[{ Cell[49989, 1176, 165, 3, 29, "Input"], Cell[50157, 1181, 174, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50368, 1190, 411, 11, 29, "Input"], Cell[50782, 1203, 2669, 64, 124, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[53488, 1272, 200, 4, 29, "Input"], Cell[53691, 1278, 7842, 155, 210, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61570, 1438, 498, 13, 50, "Input"], Cell[62071, 1453, 7797, 149, 215, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[69905, 1607, 478, 14, 29, "Input"], Cell[70386, 1623, 28132, 476, 228, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[98555, 2104, 470, 13, 29, "Input"], Cell[99028, 2119, 40385, 676, 206, "Output"] }, Open ]], Cell[139428, 2798, 92, 1, 29, "Input"], Cell[139523, 2801, 1698, 45, 110, "Input"], Cell[CellGroupData[{ Cell[141246, 2850, 249, 6, 29, "Input"], Cell[141498, 2858, 1202, 18, 86, "Output"] }, Open ]], Cell[142715, 2879, 1243, 34, 130, "Input"], Cell[CellGroupData[{ Cell[143983, 2917, 468, 12, 29, "Input"], Cell[144454, 2931, 1627, 42, 86, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[146118, 2978, 201, 4, 29, "Input"], Cell[146322, 2984, 4985, 107, 212, "Output"] }, Open ]], Cell[151322, 3094, 94, 1, 29, "Input"], Cell[CellGroupData[{ Cell[151441, 3099, 413, 11, 29, "Input"], Cell[151857, 3112, 1640, 41, 86, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[153534, 3158, 201, 4, 29, "Input"], Cell[153738, 3164, 5288, 107, 205, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[159063, 3276, 430, 11, 29, "Input"], Cell[159496, 3289, 904, 23, 67, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[160437, 3317, 252, 5, 29, "Input"], Cell[160692, 3324, 2790, 59, 202, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[163519, 3388, 426, 11, 29, "Input"], Cell[163948, 3401, 886, 23, 67, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[164871, 3429, 203, 4, 29, "Input"], Cell[165077, 3435, 2846, 60, 210, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[167960, 3500, 428, 11, 29, "Input"], Cell[168391, 3513, 892, 23, 67, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[169320, 3541, 203, 4, 29, "Input"], Cell[169526, 3547, 3016, 61, 237, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)