(* 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[ 205609, 4407] NotebookOptionsPosition[ 200484, 4232] NotebookOutlinePosition[ 200857, 4248] CellTagsIndexPosition[ 200814, 4245] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Programa\[CCedilla]\[ATilde]o B\[AAcute]sica. 4/9/2014", "Title", CellChangeTimes->{{3.586709545426696*^9, 3.5867095628812675`*^9}, { 3.618601121534587*^9, 3.618601131144638*^9}}], Cell[CellGroupData[{ Cell[TextData[StyleBox["como definir uma fun\[CCedilla]\[ATilde]o", \ "Section"]], "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[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJw1mHc41X/chxESQshWyazIqOy+b2ST7L05VsrOyE5WxslOxjlIpIwyQnzk HDOkklScVKhwyiii5Pk91/U8f93/vP6+X9d1i7gHmOPoaGhoOGlpaP6XFapT PrKCZBRfV7lPe4IInJYjEnv5yMhLYXT7wRgREi71zFG4yUiAoXuYb4gIroQa 1yw2MvrDvMW42kWEQ4yRtlRaMuL/u7xSd5cIt17w69d9JSEh4ewbRleJgPdx kJRsJaGesOGP8qJEiCmgzB8yIyG2AEGt22EE+FyVeI79Si9qCVcheHKWQbZN 1vdrtU9RcZcLITLlNlCdunv/zPagbp+mUQHxW/CaJyM8dG8P2hl7nnWkvgAY vyauf4roRorxczPxsXkQsfdYO6XnCXopUjDxHXLAZIz3xSxHJ8oQNX0iIY2H hpnX15Zi2tHBkQWB7aYMkDB/vrk52Ib6kOmZ2T+pIMVexLhfvhXN0moQxXqu Q3ZIrbcUsRklW+/R0xhJBJazG2k6Px4iAZcPxJb7ccB5gVPvon0Tul3LN3Hu dhQ4ZbxKF9drQEIPUl75l4SB8xCXdMK3OmTEGPiORzEIrhSu0X3vq0HbotXC 28IXoV1W39HZ+Q5iVm1tNpLxBGeaJPcasztIcQe1mR/0BPoXyGdN+w5qm7+0 673jASbBSmHJJ+4gz7N9jl2jHjDXLJFV/7sKXZR6doErwAM4VBl6/uVUIVN8 mIB/szt4afeKlg9UIr/o9w4vDNyAy0596YNcBXqmF10ziTnBJ/rEXX7RCpQW TPUo53SCxsYBLsuDFcgZN1iRtuAIxkwW6oNbRGRsMH2vN8sRktp8Mxt7iUhd 2WW+f9YBfh4slE2wJKLhnklmvhv2MPlyNeRoBAGtvr5sMvPbBqpilVId/QjI jzM0eXLcBoKPx5QUOBJQScC01mqNDbAlMvUxaxLQQd6f+jfsbEBX/jDP+j4C mktnvWH2xBouH74VmKJUjhykVKgSqVYgd8tkayi2FCH5n/a/lC1A6+q/5G6P UpRFZVzsO2gBVk713I/0S9F8Vftg65o5RImwyZVwlqIeFr6wrfvmQK4d9bpc XYK4yrzS6UTNwabDeIJz7DZypL97X/SgGcS+N2xwEC5G2mVja+dETQDfta1u SleM+C2sObbmzkNl+b1h7S+3kINN0dj36vMw6MG8INN0C/XnhsuUnDgPB5aH hGh0biG7s5Nh/5SMoeqvfnqVfxESjE5T/ehoCM+E9XDUzgI0M885c/iNLnj9 rIx+WFGAzsVnWadX6QLdM5q88LQCZGeqwCETrAvKER29tDYFSGvqgLYgmy5U vZQ5wrOWj3wy9jUU6+tATAr3e0wqHwnRpBSJD54D2dWPpvi8XOQybUi9uKoB wwOYj9XVXPRUwySK0qcBXmW34wTcc1E1zkM/rVgDSoys6qtkc1H41MzdFG0N YKoeZGkfzkENxbe/mSgCfLRv6P9Ik4O4lYlFC3fUIZccrX7qEh4V7SlSi3ir BPFm1IApMzyyipzSMU5XAn+KU2WMIh4t9TPmVqkpQfpKDDd+NxtRjbw2PpYr wncbusZ2sWy017PrU/blM9AiwfKFNSATqT/+4PRY7BRkaSyft1HORCSp66Xj MwrgZT/aTKTNRFJ7149cKlQAvqzsRMW8DGSLc1hXYFWA6F9ch1zbbyAlcs/A 6h850CYLWT3ak444LCAk4qsMCFN2OndG0pBRsHq4/EUZ2NikHNUvSEMMOhfo 179LQ80J4sq0VBpyK+foyN46Aay54hmMJqmIeSyoQFbwOEy4nSTZFSWj/U0Z 4vvwEuCxC/I0MtfQL2m542IaR8CE7mrd0lYiimrNc2WaOAzKDK3ib/oTUWn6 7J38Y4eBlUVaoN41EUnOHZ/mfScMrTx8exzzEtBly8DtDlNB4HScrQ3YjEMs C3+5ovN44IubdZnuzTg06fm0i52BB554j+QIn4hDteoyFYHhBwEX8vjqM+dY RJmzFCx244bH6fjzkv3R6G6SwYsbRpzg0q6xSsmLRD7P6J9MLLHCadQ633Iy EvEEOEZUMrICU5/0u4zBCFRSnn2fVZwFHo7zkVT/hiOFQd6Yev99//l0Ja/A 4wq6+CeiV1aSEd5TvdIu7YQhlbEozZfODNC4Ph2jXRiG1JK8VdiL6cFud9Br bTgU9TvF5tkK7oH7PERlE4UQNLS7uC1lQAMJQrwy4iPBiGB+NA1T28Wsj2aK /MUFo9oqfg7XpR1sVyaS+d6tIBTDRdnSdPuDmeuYTTPQBiJc+AWthMoNzKQg i9h+JgBJSmRGHEz+hW0So9K9fS8jhyLaKkrAT8yw3dyRNO6Ppt9h79nt1rCV L3Q0V8t90biKYvn7PVTMWI+LU/qNDwqd8V4R0VnC7laLis2w+aA+1df1Wnnf MGectj7EeqEHTH6hXI4LWAfZ0n6lBYfsytmjSRNzGI8Yzp9I9UTv1air5x0+ Y6OfruP3OHmgorgzx9ZuzmJSWgUVzXnuqP++wCRvEgVLIlY340bckLXYDyUa mmlM3XVgakDNFT1Myyj8YfgGk41reL264IxKv+0v2OB/jS2cHd+ysHZCnZti oQ/pX2GWnQe0+M7Yo+H2+4Sb9mMYS5SCV1SVLeIJZivTnRzGepUt0qe5bJDs 7V+OuLQBLGozpB67ZoX2J3+eoYaQMfnWvJeENQvkymQmMpv/FPsa2rJB526O NLYcL0RQujDCqUkB3AtT9O/awKc9NO1Y/Rw1JivBBL2JIOy445sxYXfZfnNX IyRbm0/Iz27EMj4EsvGCPur6kFKk9KcW23Z8aP1eWAfFuF+mW2quxHzfrZeV /9VEt/xrd9OLSrCGBr+xgdazqCJXWDQrMRfLuEd1Ng1VQjVRqh+7L6RifncC f0zJy6NMo6N3/ohEYVkaX3Z7KeKoSfBDgKcoDsP7v9OsecSJMOZvr3gXMWy5 3Gvlte0WlsMzK9fpyYolP9mvyuV6GHYTArNqeqyw1K800b9PS0P4eZEkUl4Q 5h0Z82Dd8TS4djE/M7RIxNJjt4UulqvCt3bdE+Pm2djkUzXd1UAN2Kn2WImY K8R8tLd3pHPOwfCM5vZFKgHb6n/c4vNIF9rKMbxWfzWWbhB+qWrCAEr/aan0 RD/AhEbOiM/+MgafLdGo4NSHmLVk1PdMFlN4do7T1fZpK1buYzd8osQMyqn9 owd8O7GvtcrVQ9IW0DOg4/YcejC5Jd5E7y5LIONGyuLoSFjvpUmVSooN0OEy 3YRPDmEsDS0HNQPsgJ1mcp65cASzXMlbpezaw8qDhoNNguPYfLBFrYCIM4x1 b/2RYJ/ATjYrXH/c5AJ1ZnNYkMIk1rmdKneC6ApNVSpugUFTGL26D+uQvDsc 0+nRytSawWqmbbZ5t90h/PVp2rqJD9j5GL2vXr0e8M5qdAzT/IgVdEuQ6S1w sEBv0Ebgm8MkNeevaoT6gFSR5UPipUVMQ1YpLeu8Lyx0LoZGGS1j9sJpBdMS fmC7ycFAVPmOZW1JN0W8vQgJDhb9F0VXsZ9NoQuNWAA0bGjwhuX8wvaafo7c ZQmEid+3a4t6NzBuvYz46ohAuPhOXuTz9iYmc4aS+dMsCITRCbR8bRtzPZBY g6cPAU3fiYaXm7vYJaYTDUpBIZCQ1P+woJkGonZftVBmQkC30TDOJogWcqni JOm2UNChPPXn2qSD/qGhmUHfK9BpcD0/9BQjyCQe4KJ9HgnvDPv+vg/YD6qR Hfw1alEQwZTn2uPLBrqBHkcu1ETBlYScU4+92cHVuUWmNOEq+ISd4lpt44A8 VTt9ldMxcFfucGn2FCfERI53PzaOB6hx3yy7ygv0v8S0WK/Fwy8nzUJpfj5I D4zsc2mPh8V5YSrpMR8UeB8dYZRIAD8Opw72f/zQaBX61nI3ARI7294IEoXg szzfz5Wma/DzkSftNTERsCVzelbOXYO9ZbQXzsSIwIj1/gkr3iQYEyzsH54U gdardM0d0UmgFhFyqjzjKKT3LYck6V2H7UAXuu90YqBg93SddyYZRq13vEUF JOHuUqfHMHsK1P53XUwJkiAU2/oqWisF9H+kOI1/lQTGyrpHH++mwJgNdWNf pxS8W84PqQtOBeEWRS5Rv+OQGO+3jjGlQ1zd0KflNRnY5MR5rKqmw5XDGWb0 PifB/47Lq8pL6QBeGl//zZwE62HLR0yv/ttrnM4sHZGF49wQ8rL0Bkxzl9pp vJODF3e51nGnMoH9t49swBsFwHs7R+rK4mGxpcv8j4QSRG7r5SNDPJjqX/R/ E6YE7pnyTcpeeDhX2/9duU8JTj+i/3a8FA9SasYyGThlePvvni07y00o/ruW HXJfBY4WbCpNLdyEaiU3io6FOjST8Ru+Zbmw54coXzSdJpTaRHF+bs8FzrYu goaCJiQvepx0fJ0LG6n3p/XcNcGWQ8nLhDUPqJO4y4dImrDjMPNaISoPFLWN fy+laIHu+rGWP1b5wGzxrZTpkDa8FSGFZO4vhN+OC1S9aD0wPp56PFmqEAQV zWgdH+lBt8L5j7HnCsE1UdKpcVEPqs69MQmMLATE/4PKb68PgbilYxbzhTBn MBG8omYATLVcs3xdRSDpK0Jbx2IEinKexlX+xeD1g7xg9d4EcjAG8c5npfBp 1Op0T6kFRJsLm3+eKwUJXn5/arcFeHmdiWP5VwpsbD+KFGctQC0L99ZBrgyu Xep+ISRqCXMzfZl/88rgw4wdUr5nCWdikjfOOpfDsfrl6/VdVrA8s8fTNYIA uPivxTe3bCBL6PqZz8wVUL6A1Z7ucwR7o71YCl8FRG88IpBXHEEyKk33hEQF MLFGhYcJOUHPm0ybEM0KsIx726sS6gSrOQWReyIqIKaDYdxY3Bks99V0ic5X gN512q6STBcQ3BjW8USV4O5KeRWk5gY1zzms50PuwKC99A8Ga0+4v7qjMVlR Ax+V7gy5vvCDL2S7lI6ndXC28bCELEMQbI5iRrfFGkBTUZpn3D8Mflf0+rdI NMH1Lp2eBzuR8CHyXrDgzEOINQzh4w6MA1Um0kzElWZI3E3qGI9NBPkfORvP 97aCgWPw9p2A68AVJGki3tkGx4gzi58pqeB7b5k52Kwd3Fw0v+qYZMC92CuM Xfs6oXUrs5goioeUurYG2o4ngMxvvlZTyoGp7GPdZ893wwcnJqO92nmQvreR QZ22B4o7DS9nlxTAp4rPFMvRHqjct7Gvb7EIUhfXsvzyn8LJn/NkNoPbUBnn 6Rx3uReMpY63v9gqhYjAy7PsKiRwLl8tGzQmAIEX71ykTgKdHpwC2ZwAQ91N 00c0SHB74MhMjy0BBPb/mpLXI4HYO6+ILk8CdNVefWFhRYJXipz9pGgC0H1O 7S0MIgHOgfKE/gEBMq0qqw7fI4FhCAOHLRsRWv+Sj9Y8IEGU0/70K9xEoFQu EOSaSCBgqChYIEAEubVjpZqPSTDmspA4JUGEl1mN+R79JJicK/X2AyLwDXYl 3/1Egr2zjtd7A4mgEfCBXm6BBJrtc4FrV4jgy0N77fE3EqSaRoWIxhChw1M7 bmiFBCWzQ12paURwon0WvvSPBKVZU16uFURIrln+FUJHhkC3+8y3aohQf4Et 9C8DGRLUkvpe1hOBpswscP9+MiyLq8UbdBJBSifkez4HGXb6eOOTnxLBbDnP /xA3GUgZ6wXkASJE5bYuVvOSAa85St4zRoT/6yHw/z3kfwA4HET7 "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange->{{-0.15707963267948966`, 0.15707963267948966`}, {0., 0.03482258432071372}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.586709669608858*^9, 3.5867097688045807`*^9}, 3.5867151143464956`*^9, 3.5867182081920247`*^9, 3.618672786957887*^9, 3.6187666317071433`*^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[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJw12nk4VF8fAHBmLGMLkSiEsqRUdgnfg1IoIVRSVIRsRZaKLBUpZcmSSkr2 JRVKllaiQhJCEWPsS4O5zFjf8/vj9cd4Ps995t57zvku99xnZE/5WLuQ2NjY HuGP//6T3/E29WueN5Bj+++PDjJiMgrSdw/Cb+ctpezYRHecRWeCI8T0327m wvbqoNQKP3OF13dlbQWxew2/UF8l+EDmwz+G67Hz2nazPav0A2fNF8nK2Kd4 5WPZngVCV+btQ/rYksApfejxZaAZOgQdwm7zGyjMSggFcz8ypxf23laqVPDH cOB67sKKxs6ctHbJqrwKWqEnbfOx2Xg+FTaVXodjQT/Em7CPb1RnzBVFQYBx jDGBXaH/dJdsTjTsSHVu28BOB7EjIlfNHt8CivHmpgPYzTEzwmkJsRC6Kn2m BDv554ut/bVxsFmia8M4dk2ve3Pgx3gINVvzUpFEB9mFzrVPKu+C5usL3HnY lpSESs3yRAjwIH+dxL6yxszxa2kS1Ou4TmmT6dC1vSJ7pigF2nsPe7ViU/R9 zW7k34P6xu0fFDnooG2mPCmZkwqDTN+gK9iJzvc1TR4/gJ8C2YJanHQ4kHqp 5l5COvAuN7c2ctHB4JBEafLex7B7/Q4dPW48X0cJzr7ax5BRfnahCJvsWpTn //EJxO53Sn9AoYNTuNTUo8qn8Hf/zIF0XjrMRbGMRnZmwted9MdKfHS4c6ct Ub08E/pZBgfLsKse3NapL80CHUXjyg5+Oki8WgqdKsoBAw35t3sF6fC8qvPH rq25sJPB2zmGve9T2cbI/FzwFn5veleIDgHNXnXrcvIgIuX25nFhOrSMdq/a /bgAGOIJDbWidIjZ8DYtOaEYvt0Pp65dTweTbw9U3ws8h6dFg45kSTp8jjwi qmn9HJp9bMunseuWfnRK/34OktPqxB9pOtSP1ThPj7+Al2d4L/2Vo8PXuvxL qUKlMGP1KPDBFjqYXXU9vsq2FESMQ9hrtuLjBpvQ1dRSyDdNOUhXocO3sjRO L7ky2GIgomazgw4NT+PikMYrEDu6mbpPkw6NoQHZQ4fLwUqS6UUDOljsUo92 eFgOxZcSz+0zpEPT7D+PH73l4BLuv/65EbaXu2ql+xuQjLQ7dXMP9jGHqjuX KyC//WXIWXMcX9pGLZrpVaCTfW7jr8N0GJ3jWjH0ew/P21ImrP3osLLxQI32 3fcg1cFTSvGng6jl3WiVkvfw2kDB60MAHSB3g6jEzHu4v7yxeNclHB9HdDbT fT9Aa3qr9qFwHA9v3A898v0Ihp3hIfxxdIi/1JAzf74GEj38tt8rpoPOUrxl ybl6cBZ82HZrlg66wWdTKHH18O6K7PxfJh12LRj1HC+uh+80LQetBXw+1owH ZbIe7KIMmkZW6GBM2EYd9/gCHkdcpDx4psBiQuIt95mv8GNt6GKr5BS4dD/Z 4nCsAeocsjtV90zBl54jV0kbm6FFW3HE7cEUICObhexTrSBYLh77zW0a7M+Z 0suOdkDBOUd9GbUZeCurHPE+6w+8y3744xgHA+Ybdb0ev/oD4+8+S3pwM0Dz kvmRsLo/cNNkVXkQLwMKWzy3oZE/oLYc23BHiAEPrhZ3vdvaDRLUgfEsSQYE DWiovyvphk+hBF+wBgPU84BW/aEHJnX5ZXNPMcDb1vJ7WksPaL8dfxrkwoB8 9pMVIf09cMurcdDEjQFy9hFx+px/QUGV68EfLwYI8dXqVe/7C6PjPMbjQQyY 9DRLqvr+F7Zw8Xy+d4cBNveUn3Z794KZyfVSSjkDuKmFXlUBvfA932f6eAUD KrZs13lwpRdOPFtf+7yKATLv1BuP3OmFY62+6w9+YMDEgN7czyJ83CR3u/dX BkSqHzT/Ot4LzcbOEup/GFDe5Dfz6mwf2J7ku/JhiQEe4rPVSb59sOz6ftWn FQZInwq6ceFSHwjeUmn6wE7ANSJYSu1mH0gM8DS+4iRwHEfuLcrrg0Zr04Ar AgSMut978HS4D5reC/0OlyRgPWe1cdwZKmzsbUrerUNAq/xFTgkfKpzc9OY0 jy4Bd0w0654EUsHI5qPf110EkG4UmZXcoELtb5eDhkDAMO8jq/Z8KpD59ZPY TQh4JRTqKPmPCl1amWe/WBNwTnWXbNYcFZwa/v60tCFA2XqOqsLWD0Y3/pi1 2hKQdtfnDAj3Q+MeK9vvR/D9izl5nVLvh1XzqVeTTvx3/4aXcwP74VOXSqyj OwG8+kt6qmH98E+36Xj2WQJqjr9ZfnOjH4RDligjHgTopKtGfEvth1MyNiMn vQmQlpOLnqzsh1fKY2GyfgR0GPWYBdb0g7zwBNXkAgEJp+/zszX2g2/LDV43 fwI4s1bHCff0Q8mQW3paIAHjiuQUDTYa2NbVJbRdJiB737sj1RQaWFn4t3YE E+DkfnmdiTANlotGan+FEPAzfybtsBwNHq9PKqoPJaBChZZ5aTcNniismARc JeCCxeMz5AM06Az/Vm13jQAVHwelGFsa5Hwp/a52nYDHz1sL0s7QwLGNWtEd SUCUeu3L9zdoUKLQ6b4cTUD73sum5XE0OLzKm1J8k4BNDqq9xfdoUD3Q9OHY LQI+XksTSM+lQV6JZUheDAHLbf5uIfU0uCGZT10TS8CB0S0rF5ppICnZJZeD /XC5L8mzgwZr1v7z1ogjQFfR4tOxYRr0uD3YaBxPQECQgrQuZQB0dO817rhL QG3Mn1JVoQHQfHpuVwa26JME883iA0Ba1soRTCTg5ZflIHElfHxj1/kebPae UkGhHQNQ++VMIyQRYDl9NptbZwBcpA1l0rAn1/36Obt3AM59cssyTyZAf/vt s5MHB2Bd8bXWh9gxxsbsg4cHYP3VW4wR7N+HWSndjgPArjNJVk/B8eRZvK3N dQBe5MiyB2FfDHOpbfAZAIh9NFqOXZ+43qEmcAA+xPW9JbDPVEdFl0QNQMfE O9nT9wgo+6EvUxA7AL1ibkV3sTkGZ15lpAzAAeY/qffYh+bzDtxPHwD5+qHz w9gZq5xo8TkDIF7Yn8OfSsCUnNjl6OIB2Fl5+e1WbKTdIBz+Gt/PinnpPuxY 84jcoHcDeB4ZUU7YPY46cK5uAIh1EjoXsFUuTLa5fh+AitaTn65iB9/I9HT8 NQASty8pxWJ/e2hPPvx3AJoURM4kY697IXTfYmgAHob/vZSK7V77eYfJvwGg XU5xuYdd3hlcpz83AIgxu+kuNvek2gnNlQEQ+Vb9OhrbjjTC2Mo9CKK0Yslg 7Cyx9FubBAfhj2KS9VlshrKtnOTaQfC4vvOIDbYx8L0R2TAIhTOeW3WxEw59 OMinOAj/fMlN67H7XAMHSdsHwX1V2y4Wnp8dwSoh81qDkNldfaEFOzSuX2Ta YBCYnI8Cc7CbMlPzR0wGgag8ahyELfXmoGGfxSA07+5s343t2cjZ0WE3CLVz FFUB7Mq+Su/mE4MQBp2WP/D68c6e56w/MwgBDww047GP8io9fOc9CEZPVLv3 Y+dK96i9DsDXW3q2lwN7z14zp+zIQWibOOh0BsfPQbrzL/87g5CV/qZmNfbR 1FCLPcmDoKRusLoSx6PXWKkeLWsQ7PzXuqzg+A1M/F5SUjQIvs5lbg+ww/VH la+W4ePlbNbq2EmxGyTkagchhc+hxQ7nQ7qObtxUwyDUd/50pSYQkNdnw/2h dRAuF9b/dceuVr9JONLw/ShuvOCJ82vgF+NHGnkIbFX3rkM4H/+FCZp68Q2B DJ9Ocf4dAlibld/riQyBT9SSjDC2QLDjs99yQ3Dv2uV7P3B+a8p8vSlhNARq BpafZXA9gC809hHTIZD//mvHWVwvTH1XgsqthuA65apf8Q0CjtdouB4+OQTk b5qhKlEEXHdLN04KG4Js/bCMOVyfYoUrKpxvDMGOyJD3G7BTK1pVNeKGgJU8 +NI4goAifl6Zn+lD8NntrEhoGAFtzy8sCr0bAoO34m8+4XoozzIti1kaAs4z M9bXcH3dnuG81YFzGJacquLccf3daR76dIvAMIxY+T4y88X1KK00/qvkMLRa CG5mO0eAv+EGb4reMGQXtMzp4HpeG81QuHZpGBoePfXuc8L1j8c0aSliGKSO GJe6OBIwGJ1GDrw1DHy/lPkGjhNAuWnS6/5wGAbrjky02hNgdvNe6sG3w6Cl vO7GRdx/mm7q8a8njYDZzwTLdtyvenjjLyXyjsBGv/lavj14/m8ODAuIjMBf g71WesYECN26U8u2aQSO3QgquIP73aFbvVcG94yAVm5dMFMb95Nb16ZeRI9A PTVFok8R90O+TsctCSPwyX9StV4erx/uy5n3R4D9vunZ/I04f2Pa81MKRkBz wtbAaQMBDjFKziGNI9AVyrgVL4bzKaahfZ/wKFyXKY3j48D9+rZo1d97o6BU HTLv/JsBceynV+oej8JEv6xfbwcDtPxfGD3PHYWuHcKNh9sZEOFg8SWsfBSU 1z7frPuDARJbbrTLdozCGZux3MbPDNhXv0A/vXYMIpixtB0vGJBN6pcfThqD x4vnLKYjGLA/QNW9OW0MBGoZ98ZDGTA9ElpYnjUGO0S8Z6jBDDD4IakeXTYG YaJyfz8FMKAt3Q4pt42BS1n8R7uzDODQ/2rvKToO3wOCLD5aMuBk4ItYesI4 LJ47MFG9jgGrPu78GvFgHHoMrnpOi+HnI/6PHGsyx6F3uitRToQBqzNaLu4s G4c/8krj/nwMqGmYOR3xaxxGY6gcIwszoCSnpSMqOQFnblI9yX9m4F9DRa92 1gRc3DQaK506AyFyNaqhrydhSiplMo97BmjsL/aPvJuE6Ch2OyZpBvb3pbke qp8EvqksJ+PlaVj3ODBNsXMSSubKvb8zpqFcagtP8/wkXDte0PGub/q/fUuv jME/KDR/s4ezcho8BZ1iP9b8g8WkSQcDj2nYthwyS3Kng8CrWkWbT1NQd/zI jIzzFDB0vBOV8fO96iOvXyEXpiHli8tJn5EJ2G31wb7MdwbSBDnf1G4cgy0D B2u3RDLgV6LbZLr1MHS4b411uckAJKYroLJvGCInKUfT8XPm3tUpP97pD0Pv 3Ifx1Sn4udWmxndWaRgSeTVE53MYcGV/9Na8lSFY3C5+uv4LA0xEPkuoPBuC pku9bC74uS/p6Ez6tOAQ+Aqd13uE61arQdXW0OEBGL3z9VwsrrPkCvMIu94B OCWwKSvsIQEu70/WaHQMgBXvL4HTmQTs03LfzFU/ADs49P8qluI4j0jXWMJ9 cHKOEvHiJ+7DT7KVjdwH4Ozfx3U1q2fxPkxSx3aKBtTj8wtlYrPw5FDgkNgo Dez/HNqRs24WaqZOWfdSaWDayZUaLTcLnKbqfjdbaaD00/OshdosdN1C0Xrl NBj8rCPQYTULp0IEtaTCaXD6WbP1WNwsBIkUFDPFaXBCvC5CNWkWYgJ/Smmv xuePqH4ZmDoLOWErQaF8NLC0y1/NkTELcfJcwtuW+0Fv+WqLZMksyBzZFEam 9YOohba1RdssRMmRlxJf9ON9ikpEYucs/HTQNvEv6AdeuU0vu7pnYXPBNapj Vj+wzQqtdh2cBXHj+K02+DlzPG30R+jcLPwJNSl6E94PNRNpVi8k5iAggjsg xKYf3h1ODJ+TmoOuSonnnAf7oeLDzRf6cnOw/a9m6j3TfnieFCj8VXkOMtTX 3+kx6IeH+lY/qLvm4PUxjZSxzf3gf5vDSvQEPl95UO4qUj8oqHhYBmbMgQyX U/r9CiqMx/WMXsieAzv5I/F1r6jwkmF13Td/DgZayw8vv6SCfpVOhdfLOdhP a/WOLqCCjTnXJuePc3BQIFxGLI0K4e5P5iypcxB4tX0PfwQVTBpFEywG54Bs GTL76woV+FVvbN0/Ogf7CJXCostUuMf0Prl3eg6ae7JVA/2p8CxK75s+iQnT IoP/Ityp8Cfr1yNlOSbw5p++EHqIChk85juVFJiw5gS1cNySCm5eb3/KKzPB o8ZhtbMFFWY0siiyakxwMxfwOm9KBd4aX9+1RkwIGBp5yIWo0Kw4yL/GhAkn M4Qu1upTIfnW0ZzVZkyIHOhOuLOLCrKH0B8BayY4ZYpHgTYVdKgCJhynmBC7 rTVLcjsVlveE97KfYQJnitpTFRUq1OQxLq24MyG+IXd83xYqHDz/u3j+PBPY nT3OPlKkwhm2PImpcCZk39DVr5WhwlZnydLJ69hGUXVKG6gwVRdrMR7NhEdc MvnJUlQIjg24OhTPBDJHVkj8Oircld490f2ECYm5ghHkNVR41TASWJfFBK37 utbvRfC+6FIs6UUeE8J6QCpqNRVkfnWtvfaCCUcDRnLUhKhgfD0sw6uMCTdn wtzXCuL7UVdQOfyGCZ2inZu5VlGhMPa8kfIHJoQ+sc1n56fCd/21jSK1TBC1 UvZcxUeF6bGqw0v1THi1RWaHPC8Vdu6jeDU3M6H/h9+HcxQqOMwWzb1pxfPV bxCXxU2FsMxDEU87mOCbz+lM46LCZ7b0lIBeJlQ/45AK46TCyLPdck40JlyT diV3c+B4OD5aaDrMhKkciSlj7B18cdrq40xocn84WEqmwqE3mh8l6Uz4I+VK 244d4Pp7PxeDCcfER0ZLSVS4vyb81785JhTujZ43xq7+pHCqc4EJo+rZIt3s VOg93zD+cYWJ9yVJWmHYZBnfwEIyC46eyj6tgq3QtJaUzM2CuJeSD2hsVDAL ro4J5WPBzt+a3VnYXsqn17oLsiDXSUH5PHZcByXDWoQFdo7rIkywSyOfbdVb y4LyW5oD8ti/NGxey69ngYLa3UOC2PNUlqHgBnxcy6SRhC0Vn97AlMPnX3PU mg0bwZ7DVAUWyPQ1UrmxnSdG+74psyB6z6MrEthRD+I8y7axQO96pbwmdr6p 1twjNRa8v7Sqwx67ae53+A0tFrjdC0y6iT2VFc7vq8sC/+Gm4zXYojaKKccM WKArQNtBwePVJjXK7jFigbnhlVV22PbPfQu3mbAg/zBeSeyQE+La4mYsEKjS GBbE8/mY/+0HdgsWSPmV9V/G/lRxev+YFQuq1l0bnsIedOP51WrLgtOj+rPn 8fqo1NqM5xxnQWFftXIcXk9Lv/mA+JMs8LucaLkNr/8F2cfsl11Y4CIXGNKO XREyJmbhxQKezfKju3H8dG+Jf6J9ngXGHdVKfDi+2Lq0tsr6s+C3xpLHb2wT rQhDRjALHh19tpSK49GdptjQHYbH75RvdgPHa0xCo13dNRZsvnsyNQzH889J cc/7MSxgdr3RicXx7pRTnIwessBiee+ZTTh/uAynJUMfs+Aa2WXDFVEqFHVp PK3OZMERZkpyP863eYGKYt0iFoz1l7z5IU6FxAs19RpvWXD50tk8XZy/uqu4 D/p9ZMF0wTblaZzffTmmbS8+s+CzfK1DmRwVtv1u6tv2Hd//Ds/mEwpUqDfs nFfqZUHYe823+tuo4P17fbgrjQU/JnzuW++gwhr/E9zZwyyY2X9Ewk+NCqdy +0U2TrEg9nvdbLsWFRZXTW6VIs2Ds33x9GZcz3b8ITkKb5oHlkdu97wNFdr9 9wwcVJqHUvkbzfWH8XoK3vC4s3UeBr7pQ4Y9Fb4aCQTxac5Dzpbha4FOON7y 1sZzmsxD+Rq6Y4EnrscBWz+xXOfhlMbrLM0oKhgI+ZjqeM5Doszw+JubVBjI e/E94Nw8dFk1h5jeoYJat9afmaB5QEpvvG8mUaHB2JCYiJ4HqXXySncz8foJ 2ylSC+ZBoVmyuKqGCucz14h3FM/jevvDpaCeClTtNkpTyTzs1iFXPW3A9fSE zeibynlo/6K780UrFaILrYviv81Do2fbGhigwup9B9UNx+Zhz98v6hsp/bAp dB88Vl6AirRmvWncH5NWU3Ykb1uAtW9HngvY9wNXdp1MjNoCiL/bvE/NsR+G G0xIQboLsPg3oinZvR+K1u2pPWi2AKrX86obrvSD1itD8xX3BZBL3SI/nN8P phO6h0/kLYBYIhFVyUMDA88U47yiBeD3CWIPEqKB2tjMdsaLBSiY/BJqsJYG 60YKKTcrFmDZtsBnZBMNxmnSFWXfFsCyi+TwCtEg7g9JSmByAZo30Y0VLtGg /dtXaqXaImwotTXewqCBc769t0TVInwl6u+LkAfhld+ImeX7RTDKnH01xjcI FP0gxaiaRajLYL/7TRTvo78n9TIaFqGbPcMtQ2EQGIxm6+buRTCQkr1fYDYI V2GvdtTKIryLHgrdlDgIGa3qbITREnSauhn7bh2CvmX+hOYvS6B/LCQk6Nww cH1esjlVuwxvvgRFHSePwYrX5hW19hXYK+0ddX5xAixrTDf5nGVDqqKHLJZP 08FKat93oyE2lH78crR1yRRUDfZPlHmzI7bC4oB7C9NQ1/LQp/gcOyLOnD7L yTYDLW9tp3J92dGpHeXuPhwzMJxcx3gQwI6u+DZf0RWYAdG9BQvhV9iReIdu YaH0DHjm+PJY3GFH2pUmZ5fRDEi6scsPFrGj6siLTUZXZ0DRpiL7bzE78nzE ddY8agbUkJ9S5wt21DxVXGJ5awb2iQ9saShjR4eIayZWd2fgQn292stqdnTE RmeD8tMZaFCKQ1ca2VF33AZLnY8zcHlE2kFsgh3NPXYgly3h75tnH9P9x44U wmSLH7AzQLRI5diJKXZE9qeIXeFkwLNzevbZBDsaCarg0RJg4Ofpo0e0lvH4 +vV3+koyYA9Xko2dIAmtqpawkNBlgOBGvgPJqiREd9DhE/JlwJ9rCfsr1Eno aQZzxM2fAbmDEvt7NElIN7lUtTqIAUb5SuYKuiTkoWYwcxjvny6ompi+MiKh nYKP2O1iGNAJ4XvaD5GQeXeyv28WA546zOmLBZBQ8qcI5Q2tDLDZVT29JoiE pF82Zb3E+zmudVdz1lwiodU3W8YMOxlw9tcq4TVXSGg/jfzzUA8D1KwVaCKR JNRH4R3fPcyAj3ttbwonkxDtyD2TYwv4+grrQfgeCVXEXuzNX2KAAmffjNB9 Erofwqc+u8KAmx89jws9IqFjyG45FO83rfWv7RDMJqHHT3hFnPC+gapW0s7/ ioTegJ6PlTQBicIXb/GXk9A+rxhFBxkCTOgGiL+ChNC19pun5AjIL/qax/eW hMrTIw6eUiDAV4kazPuZhEbv2r5V2UYAu7TwRko7CTkY8eTN6BHwcrH9F3cH Pn/mRE25AQHOvx/GcHeRkPWKV8RFRED9PaVZrh4Sav90tXcC78fjRNAXzkES EhN8L5VhRoAMj48PeZaEth8ssdQ5jM8vYCHJmiMh3qcp/cVH8P0LqXyZZOH1 cS412GhPwFPxMbmuJRJy/sHcv+RAgIKSa/tzTjI6E6z7+copArbuddQ/sYaM VicbSr32JEDA3GD00Foyqm+5sHnMi4BJC6kUUwkyyt6su7TOh4Biu990DSky qrDsWfA6T4DamcOZfPJkJHNy49E+fwK0rx/ke6NBRqJbQ6qXQggQj95W/kyL jMYOV9tNXiGAGSPgkqlDRqZj4xVd/70vTvz2NlaPjJ55hQxkhxOgl7nX98xu MoquYjbyXydAKldhg4MJGe1cq/LlN/ZyAWeD1T4yUo68kpAdScC7kk/y+vvJ iL/PPn77DQKMPkGniA0Z+Q9zWQjeImBjnXQkjx2+/pU19VXYHN+W1FYOk5F9 gKfomRgCalsqY0aPkZHPJhuFwtsEZLff39l7nIzeL0tP7LtDQGTXxcE2RzJ6 GJp9ow97H1UbfThNRhsnbyKuOAI2D4pNvHIho35nwxMJ2LyjRGqhKxn5Jbge WhdPwLepkpkUDzIiqfR9lkogwIJ9R463HxnFPAkYmr5LAP1S9487/mQUX+1W cgbvU+8ybi4+CyQjSoxURht2x9CA1b/LZKTPkhjPTCLg0sm7wYJXyKjnaKIp ZzIBkr9RzvYwMrKd0Gpywj7Z9GDR5xr2UqIVTwoe7z5TxbhIMnKeLbK2w87+ MGv1/AYZfVmbH/oIe9+uzODmm2TE6Vnb2Yc9WmqVQ48hoxVzw1MyeJ8cs23l h1AsGW0/7rzOHnt7buHijngyqoq9RP5vH90ia69odZeM4iTbpN9hX3jAbX0+ iYwuXP3qNYottqYsOD4Fx0P0qymhVALe3DmV8yIVr5fmfIEatgNFqOXHAzIa +r6QdhB7Obx6cSqNjCT6FL64Yj9eOKu4+jEZMbeOb7uMbeQvbq2WQUYFLz80 //d+lzZZG2ydSUYC+XLP/3v/G+Xml+ObTUaPwmOb/ns/rEyVaUnIJSPrP7dV /nt/3HCsafFlPo6P2NymRGzvtsuKPwvJKOixT8ktbKGDm61nnpFRtVFQdwj2 y/r2YJEXZHSyzcHCA9vW6FqOegkZLfRWcf/3vphZqdpyqIyM7Nbo8+lg39f8 u+j3Gsfn3ij7tdh6xTGKiW9wPnmZzU3h+firpGtdWklGnx7r9tdhR2QMBbdW k1HaGmGZVOxNkkk5jHc4PqViil2wPycZtYh+JCNpOZ+7KthugvRFjRoy+pAZ 0UjH61VEMrf2ryejb9EB5u7YlsHM4KSvOF9M2e9KY08TWTllDWSUvEtY5zuO D60RtiWiGa8PsT9DDrvj1DNFsZ/4fB7mHrU4vi7/OWat1UZGp70upJ7Gfv/9 VU5AJ75+uJxKAo7HU6bOLcm/yegXykiWw+b4JLz0qpuMGvsMvZ7heDZ95Wk9 10dGZm/5z5bjeB/fvi5kLQ3Ht6V9ohb2nby6HO1BHN+e/BrPcX60PJRbChwl ozurJP4k4fy5INaseG8cz69e9TA79tq4EOvySTJK1z/q5x6L4+VqRw5zGh/P M+TbgvNxwP2O9cUF/P0Dp64F4fz2dLqk5r9ERgrT8psabxLAsDuz+vwKGbUE mAxKYXPsNmhxI3MgqRH9zhJcL+SkJ62O8HEg2fltz1/g+pIv2qVqI8CBJMuH 7w1dw/WN77OwpSAHeub3sEQC25CZ9mOvCAdqc+CI8o0gwKnlgJX2eg50/7TU 31lc34brd6qqS3Gg9Mi2uFXYPu/khbdv4EAFFpTrcrgeXilcalbYyIHQMyd9 uExAWmSRpdgWDnTrq5ry/kACunQFLAldDrTy0Ipa5o3nW5W1fUqPAxmwNn9M wPV4VHFAcMKAA70UEKN44nrNEq3+TjPiQOW117+LnMX19p/nwVYzDnTkHDlW xwXH69MGixJ7DvSkWnOiA/eDZr6YA+cvcaC97r9KI3F/kQgyKUgJ5kBpf68e /2mIr0dj43l7hQPJRE4pS+J+RFT51/Be5UDnVJYMM3D/WuftuCvzFgeaCFL/ FKZJgEuz2uZfD/H9SWip3cT9bz6xk0P/HQfSuO8YN8xJwG72xFOnP3CgExez ut6TCbjtZfE++hMH0im//j6JHfczk0+X2+vw8dUj3pq4X++ZK5z2acbzrVFf u5/BgLijYb0ZfRzomv71/p4+BshLK1ZRODiRZ8XL+qIKBjwqnheW5+JEqdM+ 9irlDBAzbHI1pHCi0jFlxfwy/Dzh7C9yiZ8TSZ5YE/HgOQMG8z6dHRPlRNGT RS+OZzMgW9NJokmeE20M6k8/Hc8ApQOpAXf3cqL0SqWguy4MUA7mU5W+ha0R ahLEzYBrIrGEDA8Xsjt9Iy5n7wzsXf9c5VM8F5qf3ZAz7D0NJxzOlVkLc6PQ oJ2jgkVTEB+RO2Yiwo1OiVjs0M+fgprcXtlda7jRFZ7afo+cKVAmLO9slOBG s7fYHzc+mYK526quDBlu5JB/4ktG8hTEvZsWT97BjVJ4E14lh03BRzn/4M6D 3Kihqnxvpe0UEPuKXjZacSOLSzl+koemQMlnYPjDIW7UanTUN9RyCu5U2trm H+ZGXHmyDDPzKThmo7XtsiM32tMeeZyJpoBxfe6vpA83cnu6fLJ46xQojFw0 drrDjTzy2CIzOKdg/fWwuStx3OjdD3ZTIfIUCMlGFaQlcKNvy7aPwtimgHUk UeR3MjcS9ukQcF+gQ0P9s37bdDx+n0dOR6fo4Jvbf9X8OTfa7fvyW0U3Hd66 HqjRauFGq9dPZaSU06GEbBNk28qN7pd+lz3xig656fZbL7RzIz7Nt/cVS+kQ /8s18UUXN/p993Xkp2I6OO+NcN7az40uZBWkbsihA6/iaw45Bjc6ettSzSOZ DocHZfbg1EDDd1Kvng6kg9qKyzNucQqiLDayivzpwC9esJa0joLKK08eWvCj w3tTzdFZKQpSPp5U/ugcHZSKTGN75fH3tf+FU87Sgenn21miSUFGaeKV7sfp 0BLz2uiZNgXlVy4d6D9Gh8KsxYLcnRT01N+V6mhPB6dfkVfS9CnIkNEuduow Hb7oPtgYtYeC7Cc+9Ny0osN99hove1sKcjDtPe1jQocL63h+2RymoMBai98S e+hgoW6BDh6lIDn+Lu86YzqQXDpW7z5OQc+EvOlbDOngUT/+WsWFgvRWN0et 06ODXuwaErs/BRG08AOxanQQy7X3WAigoGzGc21PVTrQ36e3EkEUdKZ13Gb/ DjpkTm/OGQ2moOLyGhWxbXg+7Az2t16joKxLr4KbN9OhW9I1OSeRgqIfmj7p laWDnbzewJ9kPF+PLr5sk6FDs4qwxupUCkoZc+xo2kCHjwaVP4LTKOjjHgO3 Rim8fk6CAtbZFCRyL/j9ggQdZN1px6JyKahS7FO6MPb982/yq/IpaDGOlL5F nA63I07vUyymoH0KD0meYjheMl9fXXxNQUu82uHSInQYK4xpUa3A47ntedV2 NV7/spOyrlUU5Mk8XhwnjNf7M9+7H+8pyOR4/w0RITwfw47z2V/w+DaoOJkL 0OEVXcP0zzcKchySaXrKT4ftLJ57wk14fDlC3mzYcrylmsEtFPQoL27vZ146 cG+lnLf6TUFPbvlfvEahQ5hG97vIbgqyCG+PXeamw7zey1VVfykojGuyJxh7 /IBDoQKNgtT/bVaO5KLDGTvVhWODFDR6v0RRGPvvCS6z+GEK+ub81ukxJ44f n+dDC+MUJO3bE/WNgw7mQde1VP9REPuEYqArdk2Y/fUzU3h8M/aZ3Niv4zk2 /iAoiB6SUWFDpsOO+53nuZgUdECoIpMdOz/j2ftd8xTkbfqh6SWJDg9LjpzI XqagkvUnabLYa6pUin6z8SDn69+a/7LT4U4NaVGIzIPoml+Wn2BTGn+ZmXDy IMFnJd5u2OFthamXuXnQzt09MurY893hw895eJDmpmQcaDheB+20B/l40FsL uQNtbHSYmNwSuX4VD9JI/VRXiH1mjq3NUogHqRaVXr/x3+8jV9o2Rq7mQWYU 5Sg37KOUAt9KUR7Us2DVsB+7RSjsA12MB70rtLHVxN4vYSukIMGD+EVs5OSw a2WVHY+tx573UBfBNlBeKYqT4kHLKy9uULDL1VoXazfwIN5kTTkStuquPPMF WR70/99z/g92nF33 "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.52}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange-> NCache[{{0, Pi}, {0.5625001533850656, 1.349999885533271}}, {{ 0, 3.141592653589793}, {0.5625001533850656, 1.349999885533271}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.586713408673763*^9, 3.586715114393463*^9, 3.586718208223277*^9, 3.618672799250958*^9, 3.6187666319884157`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"w", "[", RowBox[{ RowBox[{"q", " ", "Degree"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.5", ",", RowBox[{"-", "0.5"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", "180"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.618672827221683*^9, 3.6186728497701435`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJw12nk4VF8fAHBLpChbRCEpCpFISThfxi5lHXtmhpnsZEvKmi0q+1JJJSES 2bKklEiFNokoGktCGsyUEt7z++P1B8/nuTP3nnO+y7n3PrZT/K2oHGxsbAX4 139/T/Yo73rwpkdHhu2/HwZijpvIUPTvokF3xVp27Jzcweid+g/RhdGLb7ix xaVMFnnV2tGDzO22/NgnAnZWcel3oaL8Id2t2E5fV2uiyt4id/X7OQrYsck/ Uv+pfkCfii5aa2PfURv0Pt3cj8Z0ncOssd8MdRr9IgwhsyBOLl/s3/H1O4K6 hhF3FfXPeezUze9WT5V9RQeiyLZl2DIznb71fqPIKeytWA92fevjQabqOAol XCCwsE2z603Ufk8glcvuH7axM9Bnz4oHJ5snEQ9Bvscce43w1cxZwgyK2nh9 oQY771s6uxLPLJIX/7RtBlvxYZK/d9dPFGUqUr2LA49XtVk2uGwOqT8IXnsH ez6/3jnzwjwK9eZ8OYuttbY6s9pvAXVqnJg7yInnM1jKPqfKQn0jdr692FsM izQERH6hzu69T3atYSD3quv+e3//QhOLgWGR2L/jcj77Ni+i9xuK+Q9wMZCU clzjFOEfWr/yprebm4E88qIY6+SWkf5WFQ2ttQxUzXFmlzzPCips8FqqwDb4 eDL7RNcqSj1Cun6Vh4EOtFZqBJaxw/CRBfPr63E8QpR6Y7ZywMtDjBu7eRko WqHcP/0CB4z+0TlWh/0yq7i4yo8TNHYRmvv5GMjF89qmn6pcoLNf9pERP46f 1NaqlVtccIi5fmAau/h9ntlGEW7wE2w1yRRgIIZ2VqzSb26Izb0oPyPIQHFC KQzvZh5gimV0tW9ioPLmsK5JAh+8uhJD37yVgSJtXP6FP+KDWxUTrpwSDGTx Q3fPhkMb4I2/bcM89i8p3gv7lDeCxLwaa0iKgaSf9Mhq8wlANW19+LAMA3nv JI/H/xKEBcuCU1cVGag3wHq5R00IhAkR7M/2MJBOi4GI2EkhKDPJPcZQYiAB ooJB2bQQKOoIq9qo4HxJXCjqGREGUQd5urE6A7FNx7tvfiUClhKLvmOIgTwP hp0l8YhCZXhWgLEuA70755V1x0AUqDEhW6v0GOi2xLFnh1tFQSKBSEk2wPl2 VGwnqW4zlPVVR3iZMVD2/bLR0uvioFEcsOOjHQMphL2maAZLQtWH3B9WQXg+ DftfBlVIgmT/ulqeEAYSWby8r2JCEh7oyPk+CcXjCXNnk3aQgisrOyoPhzPQ h1N/rnHpbIPe670HrWMYqLU53WfynDToDsRE8KUxkFdzc0mNuQxkeQftzavE x5v4pUy/yoI7f/6HlF8MpJFluMNuWRYeR27/O7zIQFW+EbvdxeXg9dgB5wNL DHRdelo10lIOiIk6Pd9XcXwSOoyqn8iBtz1V0nvdHNK2iji5pXAXvN0c9a9X Yg41fZ96NkWRh+fOxQP7DOZQrViHd8rYHnh3cNd3j6tz6Kk9a/UvUgX+BrHU Vx7zaOrzAd26LnUoD3DVllZdQNHRlbJxtw9BS3H+W6c1TPQiijP5eu0hmHnc IeG9lomEouxmm9oOQbLhxoaw9UxUFLFaP/f1EKiupHZdEmCizvBjxq5SmiBO H5+5LcFE/CE/vTRzNaEtisV7dj8TFXjurWIkHYZZTb7tpRQm+uZxbhNf3mE4 +GjmVhiViVQ8PobtKjkMKb7dE4YeTPSUFqV7vP0wyO3jvjrky0Tjbq/fvWLX gqmZdYSZMCbac9yfVRyuBYrc6zryLjFRs1WlpouPNpgaxtfyNDDRxMaR6uBw bXhd5j/v0oTH/0pA8UKSNjjf29pe9ZCJvAiBW5uLtMGpN3DrsSdMtGW/+j+x z9pw3LB0r99LJgoXaW7pNdeBHoK7uNoQE2n0d8CRvQhsyLyRT5aZyD3rd4Ob NoKVE60b21aZKM1i974zZgg2pij1PGFnocnO89vLTiAQG1/XXc/FQnmNRzh4 biDotjIJjdzAQmfNv38l8wD0tAoMxkiw0KCy/y3J0wA7Rnpy9DVYaM9Sd9KT aADyzka3dZr488/3+FGTAPRsnga9PMxCUqQpjYpcgGeD1GO6iIUo6dQerXoA Tj7tbHZDfP0Fpz9OCwCfDhR5vbBioUOtTV9W/wKQuobfW9iwUPIF8We3OHRB L2nItNcWX0/246VpQV3oNrC0fW3PQv5Eq51nVHRh49/L57KPs9CvBuNjV3x1 oe2TUqqrJwsZxZfs1wnRhZ+aPS7FXnh+ltxb6Gd1QTBimee7N77eVNuY/AVd IEvbfCf74fFvReGNZbpQrzAdvT2Ihbq/XXN1qdYFWcEfdMNgPJ/af/rsTbpw 8l3Seo8QFmo90sRv8kIXar55XL92ioU4I9Vv93/TBdvnzzM+nGEhG9Os5LM/ dcHyaEhv/1kWKhJd8Jf+rQurFd/bP0awkGFllaYHtx7c2Jpd0RmF5zui+Ob3 Tj24KbdqGHoOr/fd5Lqre/RgIOZVCzEOz//09ytovx6UvKh9rRqPxydYQk0k 6IHrB3rT5wQWEiDILIlS9KBGbsBz5TwLvfP1n9Lw1AO7jX48lckslJX3cMAx QA9axnueOKWwkPgssaEgUg/u1FhE3LnAQjKXU0LkrupBokQZXSSVhcba+t2N C/VAQuKTTAl2yaysjdcdPRDZ/NNvfxoej36r6r0HevDF4+oOQjoLqf9k/lTv 1QMNzbxulUwWWhTXG7Yb1AP1WwGHC7Gb9FN7TtP1gGPlQAl/FgvpXJGvaGHg 4zs+nfyCzdYemj/8Ww+evaB1o2wWavvZlsK+qgdUKV3pa9jGBse9DDYQIKDN 47ZZDgutDyh3OLGJAFsq43rzsbuuLBqf34p9LoX5HftSu4FGuQwB2DRmOdVy WciSkbGrW54A90u2s4dhb9o6IvpThQAotWCqAbvPQIlbUIMAT9K+PmJhO159 PmZjSID+H4+3u+WxkETHpt5QcwIMi3pUZGIPM8hteTYEMF/8KdmKXbi1srrJ iQCynd9OTmK7G/67OUQhgPjd0RK+yywkd9IkfcWTAIeazzzagz15NSda+iQe z6pZrTF2Wceov14YAULDmIkkbN85FVf3KAKwtohrBGOrSEQeTUggQFMvue0c 9rzhK+3Si3i+F8N3p2LXnhRTeplFgB45YVoOdmg+VWLmKgHyY4bDL2NrPK/m 3XiLAGNncql52Etzq3/3lhEAmL92ZmI/kjCfsrxPAOFXLQ/OY0cbXRkIaiDA prFKibPYeoHfOrMfE2BoV7aVF/aaa/sbHnQQwCf+kL0NdsfzmJKBbgLcXfDZ o4l9fr4nZ6mXAIxAzp6t2EckJRIkhwjgsfHD4T94fTYae4agUQIUfW4Jfof9 JrDenTxFgEWuglMl2BnXOG3OzRHgV7MDIQzbptOCcHuRAG/0B/r0sTcvXFN9 vkqA9t88+zZgf5Kc3v6dWx+i0YDFWxy/fGMNQd6N+hByVUc9Hft4UDybkog+ 6N7c9/kItnTBu59HJfRhcfme0Rrs2ws+PRkK+vDhxzESDedPx56t79L26UPR 9cZnQtiT1BcfLmnowy41HaFmnI97+mU/JxvqAzFkM3UV5+9Rwd6RJHN9CHSv 87iK7W8aO5Zgg483sFmpYVc//DIdS9GHPF7nd0RcD72sCz+jPfWhc+D9CXoG C7GUDy9EBujDmbudw57YGjdz/4ZH4vHs2hHsg+vrcbzFuqAr+mC7z2gL4Hoc ebTCd/KmPmzj1agsu8RCHIt3BfxL9cE/cVlaENvQa52Ydz2+XtyZvLe4vruO PpVze6cPqjoWHdK4H8wmBiiQB/RB9vVHFS/cL/ifSCm7juhDPM+5oMokFrJS O6PuNKsPnK/Uo5QSWWhg83596/UGUKwdXfgb96e/FnQjS0EDUEmIaN2GLZGc ZnZMzAD+5ExUE2JZiPRvxspMzgA6PLyEo6JZaGLkNpmgZwA6j8Qa23A/XLiz OUot3AC4aAtWcbi/bhptj90XYwDLpIdpnrj/HpAITtibZADfLQMLTANZKPzS m4uKOQbQe5Rfni0A94ug8/k7qvF4yt/91sD9fIPWUqPwlAF0Fdzy+0piIa/R nxN35gxA0p5QS3XF8UweE4Y/BsD7UYF33IWFIge6fX14DGHiuf2PXkcWYoTe 2N4uZwgHFbYkncb7T+99g/OhboZg+j7Dog/vVyoOmvV83oawI+hvO68BC11k 2ztaGGgIwzpGlloEvN7HxLRfxxiCU1JY+SW83zXMTDF23TCEA6XPzy4exPm4 K81+YMgQOum54l934f7YExfvP2YIbSGz+zplWcg29HQ114whsF8x8Srbgeuj ncKnumQI6j9sdUjbcD1S1FuTxY1gMIqZki6K+8u1T7u0iEYQL12bxrsG56Ow 7O+C10awuyXir/sgE/0V41Gu6TOCH6Pbg0b68f2P1LT7889GMKAi2G3Xh+8P FO6/+zltBPKbq+Q13zJRvq72PeAxBqrNdGl3BxPxBdhS6WAMMYupYyr3mWim K/69bLUxXP8XcHQ+loma3nms12w0Br52Zt5MFBMl9ZvpHm01BmVhvwX6WSba OSZYGdpjDJGbZIbbQpnIeela8vMpfP669KdELybqkq/X9dxhAj2hYUefWjBR ecJE5d0sE/gXYP6jZQsT1f7lF3DIN4HPOud85kWZ6KHfoQCuIhMYmf+UJSPM RD3ECyrHa0zgk+zumRBeJpqXU73P/84Evl+gr/m+tID7XUR1IL8pUJPpPpxD C6hjrUidRrIphO2cSpW6vIC+JhGankWZwaxk7uydtQvIlLdH2TzRDBIS2YmL HAuo+qL9rQ+XzIBn7jaJsDKPYjN8L0xcM4Oq3w1+r5nzSCY/9zjPQzOIcSnv f/x1HrlVTnMcWTSDMrNGA67meTT+IdPsfcAR+JM966zjPY++y4wNfSWbw/r6 9l02bXPI0kHiTMyOYzCv4ZelgO/vNfjD6rLjLSD9BZXs//0H+v1YaVrR0xLy +Lka23dMIyGN+ybPXa3gbZbH7HWrSSTT7fQk1c0KNEU1NygZTyJVCvch+xNW oC+U+/ax9iSyuuC0+7ufFZTaPAv8tXsSZYxwreWNtIKzR87vubP6DQmfd3x2 NN8KdIQ7xJXufUObPnGivn4rSHdYuD7P/w2JniXuH7e0hrc6D/dETY4jV1is 8rG1htVGs1jiyDgqXXNFiWlvDaRW8rP9/ePo0MXPcpwkayAc8JTn7hxHzgXu 4tv9rGE09vr+5ZJxdKs1cMU52RrkbhYr6HmOIxWu1M7ep9ZgeE5Cw3ZuDJ1+ oWLg3GENBdanvolOjaGnF989GX1hDU/mKFYj9DFkLSraPP/GGjhM1IKSe8dQ 6K5rFQLD1tCXAue1GsZQi0l5xpEla3CJ4D8gGTOGTC89d36mZgMhwuWVi2Jj qOo832zuQRtIPvVe8qDQGBKNt4zyPmwDJdGrYVG8Y2j0zOBNIYINpMlyCyqv jKKznj8nSFY2uH/sjOYcG0X39DefXA6wgXgZzuWs+6NoEzhzvA22gbfOBw1D ykdR+OGbmUVhNrC7PI7uensUGakq1ptF24AIIX2PzeVRNLINLV1OtYH+KMOK xphRJLREiz9wzwYCY9eGRtiMorBf5aLrq/HxZvEqrmOj6Msco+RznQ3sGVa/ nGcyisonw1/GtdjAdbWtl77ojCL9vkv877tsoMZpf+60/CgKvV9/2X/aBoIb wko3coyigRPc90p324I0N+n6lSY6CsvQ0z+8xxaIsvbpz+vpSLQl8lP3Xlv4 1ttgt1JNRzZCv7kXDtiC+Viv3/lyOnrz8JurtoEtWGyIkRa9Rkedgi8E35Ft 4dS5PgO+WDo6ocVV6k61BU6LiF8fI+mI+4Suzm8PWzBmKd2tOENH+g8bvSQC bOHNl+J9p0LoqJVW1kaLtIV54YmfsZ501NCcErJ0xRbWl7kFR1nTkd3Ec95L BbYgepx+d8aCjn4JrCmULrQF72fOQu5H6Wg/7WyPwR1b8DDb4HvShI6qBHx3 pT2whdBv3/O5gY6OHb7TItNsC+RCgdPt2nQ0Sx23rntkCwnjnzMuHaajPc0u 0Z/abYFSJJaIDtJRKfXowM5eW0hT7r0tsZeOjNKS/R98tAXuXNVbSkp0NNHU wWU6aAuZXaUzxop0tFMAqfrTbYHD3durYBcd3Wjam9LIsIWSJE3tdmk6QuPe 248wsfUSn+/eRkdf+EsffPltCwXc0mU5knQkQZUe41zF67XmdkT6FjrK4xfU PrqBCFml/LGcInREexLxuUeACAevaFq1CtORetBUxLFNRIj+giQThejoXV/b I4utRHAM/V6iKkBHN5NUXN9KESF5IdpzMz8dBWheW7WUIcLApgF57o10tKEg FKzl8fdv2pax89HR0LHRkfd7iLDJUsFnIy8dlbFbxNioEKFeUVpFdj0dGVPl n9oeJMLo26AnATw4PzbnUPo0iUAa1Um7vZaOxjs5OO10iBBYxuU+xk1HsXuG CPYGRGi5t0YymouOLL4Yj/UbEyFe6gTn5zV0tC2tLs7hCBHmSsTnCNizujKy n44Rocczf6KWk44eLlxqd7QmwpDkibG92Cm3l6iDRCI4iX2fquWgI0c7D25n RyLcNTr/l4C9e92H4iEXIkypFQt/Zqej3026Ri5kIuSvZB+Ixu7wufftszsR HCjFbkrYWVJbk457ECGtWuLqGBsdub1J3D3sTYRDg+qfb2OrxjI7Xf2JUEqS UziJzbaf7DkSSASi65ZYQ+zX493ryKFEaEhRH5fFLsjVLPt6mghyqpnW/Ng+ JiWmlAh8/IBhNwe25pLwND0an1/EwYoNe11FdIpbHBGkv3bT12L3H/+hOJZI hPMGBZHi2MUCjl3uKUTQim+WVccOedrhM36JCK3hG/sdsfWD1TbQMojgkXcq OxlbSO5GxUQ2EUIme1yeYX/9yHf0xGUiaG4YU+HB8606f3r2Wz4RzHQjNxKx Iw9PXPK4QYQyO+dfFdjmP6z2fr9FhA0P90/y4/WUuP74tWcJESSD6kbPYE9Z 7AmYKiPCwy1xk3PYjRyXBbzvEcFtSvvXSRwfIi3Q0qcOx+Nri0Iajqes2PDc TAPOhzNZFso4/swXZhm+D4lAlTkV0YedriT73q+NCDzyslP6OH9Iw+lBPzuI QOhv2c2L80s5fUU44CURBvcvew9idzE/2px8S4QCh3vLl3E+XinWZ8314vmT ykyTcL562t/PDuwngnwm+XI0zmfuh8l9QcNEWPzUqJGK8133nLZ96A8iHF0x ou3E9aPsY76BMEeEOE7qtshNdLTF1uUpP4sI9ou5OaO43ublIvbc+UeE6dGa xrdidFT48iHbEK8dnAn3uqOJ6/dSTVddKb8dzJcrK8zj+g7PH/IKEbaDDtl2 5zoZOrLy+9e7casdDKr4vDkuR0ccQlp3dBXsILpV/ZG2Ms73v2bHNyrbwdsf /lesVOjo06iT8OA+O5g7Yi8epEpH1XVnIoIP2UHq6+e/+g7QEcWh2bLE2A7c HCvn5XE/a7uh+ZfvhB0sepd+/mvzX3xNKwe87KBWNulNpx0d5Qc6uhf72cH4 K21U6EhHwfrhPSjUDkoUJ+NOkXC/mmwsDIy3gwciDNdyHzqK23vIrP+WHVD2 P7itnoj7hZgJ2+0SO8iUnpxpTKYjZ3aHupPldtBv+SbC5BLut+/DtvHW2AHa 3eiXnE1HY6ENC9pP7WDrFtndmUV0ZPDoYP6tETuQfSNR+fAZHXn16RD3jtlB /PhbanknXr9ZA4Hmb3agq8H58FYXzn8pm7h3s3bQ+0Lz0P1eXD9RAT7sy3bQ 7fNBBI3TUQbc0XIVtweD4RdqO3hG0fDTLZ+3WNlD47U3WvN4f1wzuD232NYe RB99r9rgOIp2L+y2VHXAfixvrOo6igJ3HGw3IdnD0nBsT47nKOKOs64I87MH lfg7LV2Ro2iPwYWIvmR72H5ZUXaybBSdfr4smdFmD8JZrMTmdWPooWjpjOdz e1jvH8YeJjCGVqhWzbqv7KF09kWUzuYxFLumxH7uHT6/bbn/951jKEXXItOC bg9HP3E418MYutZcyMPP7gCvdjIIcuFj6Eml0UKKjgNI1NoSFJljaF1eemd8 owN0sDqvCHNOoHA/n5tmLQ6gVfSrfpp3As3oG4ULPnGAJ4Xsma82TaA3c/8U r3U6wEf2Qo9CuQmUZ+aRWvvRATQkt18pN51Au1d1iKMsB3h4/lvUzqwJZEib GQVVR+g38SAE7vmGYvcbrS6VOcIBp4iIsIBJpHi9M0jtghPUvghLdOGcRipv NwsGRDuDjpRf4sl/PxD1reqMr7sLKG2yPrrixkDnrvlbzxKOQ77LmfNWNXPo n0r4aNABV1gqrwzNW8L3w8n3V/4dcoVZmpsXF9sCWjc2KZ6g7QouKg2e/msW kGiunUWeviuEBb6J1NywgPYt7295aOUKwv2ad+9KLSDai585XP6uoNJs6LUC C+gtmWqaW+IK9Qmne/TOLSD75nyqdLkreBRwe5klLqAvm3qj79xzhZdzlTUW KQto5rneg+Y6V7BgxRlaZi4gbmXpnSNtrmBto7FN4dYC0vr7aXn3iCv0p22z 0Hi6gKxNSu1d+EjAvOHMWbe8gIrTsxlGG0mwM3p75VV2JlociE1SFSABWwiP aCQXfh7ycmlYu4kE42FN6w5sYKKxFCGx6q0kvB9qHwqUYKLgnrMfuRVJwNci flRck4myrC2JVSYk+OGswSsQyEQTV3Vmr5iRoKBw8btHCBNpjCkmxJuT4GBO 7b6WMCYaCuaud7QkwQlVnQU7/Py0M6dZhMuBBOr8BezEC0xU1y/7wcGDBMaf c0ICbzNRn8tfa85EEmS3xSps62WiZ9puft1JJJCq7rldjZ/naiS7knKTSSCU /G5ad4CJ0j5fa1G8RIIjY5zvrb8wkamL7i6bbBJ85Vk/oz/JRC3OSX+LbpGA bp9n6LTERHe15jb53yZBU+rpkbJlJroi4bj3UAkJLkfwqv1aZaLQIUX37jIS OABxJQo/b6o4v+5m3cfzu7lemLSBhYqcRG8atuLvIy1/SykWyjgc1SzwlAQG vhd2OUuzUMzWyQ+f2kiA4vqSKTIsdHywcb3/cxI8uB57jCLHQpudXIJze0gw mWn7SEmZhZIdi4wmh0jgpLfuzoIWC4VpbqBUfyFBY9GPZw06LHRiS+jZsyMk sFr1jT0NLKT/yei+wBgJ+trOjfzAz+MrDtNbDk2TQJS/VbLQlIVOOqjOnv9D gr3Haiw07PDz99maDWZLJFh3K3e00p6FIm/sV+JbJoGGe63ODkd8/W8HfC6x kcHt7eKRZWcWuhVyeCpjLRncz2p2RFJY6EO6/sRVETII5OhKPvBhIee6di6X zWTofBcsP+3LQvR+Q1kpcTLcltdc3uLPQrPbTNxvSJCh0eLLku9JFlp7z5xe tIMM28g7HL6GsNChl8QvFfvIILwnomU5goVaf3xc9lMjw5RdC3E2koUMBR0k VdTJYDI90/QpioWs7J2cqzXIcM83Yrw4hoW8J1w/1SMynH+42M0Xz0Lz677+ OaVLhkOblV4MYocpUcQPEcigkBCZUZzAQnHB7vbNhmTg++qYvjeJha5xePY9 NidD8CT3Uf4UFtopN8WKPkaG6UiRzofYZSbeInqWZHAK9dlEu8BC9Wm+Ns9s yOC/00bu7kUW0qqdDYonkqF1ReqH8SUWevrRP9PQngz5UcVJX7FfSwW+63Qi w47ZZOBOYyGi3sLceRcyjLrrHs/AHqIGC5q5kiEw44T1lnQWmrwbatFNIQO7 0tcOyQwWYj98puetJxlSboZ+m89kIdG/5osN3mRIb/GooWWxkEKjtMwNXzKs vSBZ+AHb5mBHiN9JMmj9EZ8pymYhz195122DyPDZIcuEKwfHu877hVYIGWx/ HOghYZeqCUrynsZezrJcl8tCLfOjhvPhON6/KqyI2O/u1wcMnCXDi81lUQXY 3wLOX2mNJMMan/aBr9j/9jo/K4kmw6qZLkU6j4UEfyrPXoolg4qL+xZHbLl7 7GKhcWRoTg3nTMU+7Nur65KAxy/xQeoxtsWeEm/9JLz+5176TmFTp09nKyaT QeR8/ZzAZRYKLzvyWOgCjpf633JV7FTPbd//XCTDxOula8ewi3bPC31NJYP4 V7kXJ7Abvz3T6kwnw589M8pnsHuKc2mVmWQoq37y5r/3u6NUr7ScbDJsLJOp +u/97+JO7aaIXDIUxKT2/Pd+eMMY/5j7ZTJYDV1U+u/9scwt+oYjV8kQklra k4V9kFJ3UO0aGcJu+Nek/Pd+d3sSect1MrTohX2OwCaPOKaw3yQD+YPzUe// 3kdfV6qbLCTDv5GHa/97X5xynG34dREZiCLavBrYNyTf8zwoxvlplOi4Gbtu 6LZqQSkZnvua/p7D6/HyaphzfBkZ8H3R6PP/3r87miX43CXDNRFB6cvYTHGp Kut7ZHCUvFBJxV43wBjQrCKDlIx/phK2VF4bp0w1zs+i2G4GjpexqKcdo44M r86Hmnliu3w4HPPxARk0TdgzpbADszaWP2okQ+5hQY3XOD/yhWpXLrTg+LCO FMpg33+bsDv4MRmeeJt5t+P86khzsHJ6gvuFb/BlN+yfG1dvy7fj68fIKGXg fFzT8/a1wHMy9ENhjgy22MWiP787ydD9Vdf3Hs5nPV5T844uMpg94vNqwPlu 91LiVEUPGTIsHLMOYPuc/3kj6w0Z1vnw7a/C9ZGzNptJ6SXDpY3iQ9m4fso7 TkiZ9pFhSatlkh27NV7TeF8/GW5oOwR5prLQFOfI1dVBvP53dHkVcT3qsCkS 8kfJkGpOiQvD9f2TePonZZwMu+dld3Yn43hUPL8q/40M70MNJySxOZ3cmfVT ZJD8rj1Qg/tFZ92122/nyCDzV7nqPu4v4XwzlnkL+HjDZN63OBZSdNNcOc4i Q1VQfo049iWBj8SZRTJ8cF6TGBjLQtbeAjxr2ShwxU1y+Bfub2ueHq/tZqfA zYQPaRux68UqSFmcFCg/yhMvg/uhWIdJ4/a1FNC9R9JGZ1joi/Q5L62NFEh5 qapw5BQLefSxuk5KUID9miW9zo+Ftijpn9aQooDOH/mnGbgfvzqXIbu6jQI1 G0R5fHC/Vt63N/LCDgo0tse/FvZioYUUj70lChRwCOBM1aDi/qA7mD6kQYHC FvUf/Xg/yLzbSjSypYCJ58faBLy/9BaQNuy3o8C14XMu73VZaFM62zNpBwpI J8wpSOD9KCsE9v11pkCA0rJuId6/snRaeSvcKfAjTK0tWh37zeNWoWAKgPgB 1WS8/2UxHyl8yaDAgSuuaZNc+PwTx7++zKIA+fTtT62c+PwDK7kPcihwuCG+ NZsdf75Fhyv9CgVchb77qeP9Oivh0TChkAL393e2H2EyUbbYo6w79ymQoB0/ +uUrE+VotawEv6GAX1N1Z0UTE/kFhjTZv8Pjn/d3VGpgIsNSpVCtXgrUTyvs Kqtjol/CBT84+ykgdVwk9moVE9lORw5lDFPgwmzFfZdiJtp0BZqqZikgFzZ6 3S2diTJ+t4XM8LnBjebdYZlUJrpU/XLGzQR7f5Rh2FomKuB/dFqtyQ3s3JLS SowWkJOF2NX4/e7w79e2kkm/ebQvzN6podgdYsMOTfFXzCGPhycVw0rdwU34 qIp22Ry6wZaydLDMHSLXtY96l8yhjedbrj6ocIdfKew3um/OoanLMkP1te7g XHb8RWHOHCpqnnGue+oOuesz6nOi55DoavTx6i/u0PWwwajZdg6ZE64oB464 w9HwkiAJ6zkUl1izso/uDv16DoFRFnNonn+i4P64O/Dc2c40NZtDr6XNhqtm 3MGwL8FlEeZQkp4IqfKvO3jcWiFX7plDS/F3yHdFqeB9hy2hkGsOtVI3aWWI UeHJW3YTAc45lGAQJRq2hQrdK7YF0WxzSIjL9hVBigpC/v0bPJcYSCGOTX1Q lgpR/gUkhzkGcoi141mvTgX9wOpXTZ8Z6EEkV+UJa/z5rXOFuQ0MdPZ4wHlz WypcqX29/Xg9A+npDLqp2VFhg/qjK7tqGahnuUps1ZEKg5kPEtoqGWjirHNs DoUKwbfLL28rYSCRMzW27Sep4HDRQtU7h4GCTpH/yaRRYfLS5XNupxiob9bI YTKdCjz/uv9UhDCQBk25viKTCg3NZOulIAb6Z7Pkr5FLBQWX7IaCAAaKV80e NS/A3z/4M4bHi4Fyf3S+DLtLBb1rYs2eLgz0171yl849KtxpXjYfdWIg56Hs OM4qKtwIOUF3dWQg6VcUnUs1VNBl9olS7BjoTum/+7eaqED88eRLsiUDNbup XO7ppIKzyYibvyEDSQ2K/sp8SYVT7UcHxQ0YKNpq2cqhiwoyfJ/8nhMYSF/3 Jd/YayrcE/BjKOoyULeUe/SfPipoCb1J3KLFQMMDuSd2jlOBNRZjnqqK188y 8tn3CSoUM6sO+uxjoKJO9+2Vk1Sg9c7YHFFhII8H+wYPzVChsuGZkqgyA81l vTp6bIEKt8Prz76RZyBOi1X1cHYanM83uTmynYH4YnnMgzlp0FBwuvqDNANt qhV09+OiQe60a3/PNgaSE9uZQVlHg6cGOh7dkgxkOmI8aypIA+G8s61L4gxk LWTFZSBMg2bRtuuC2M76ThJIhAZLaRzXFcUYyLfU11RNnAbGcvkcPqIMlBaQ Ubx1Ow2W1x+MkRJmoMuFV1tEdtCg+KLPOVshBirsLerll6WBz6JLZZogA9Vo POBYI08DQ5fRJGEBHG+2oeMzKjSo3KZEMtuA10d1PGRClQau36R7bvEx0KT7 7IWR/Xh+JQJ+bNh/OtmaezVoUHAnzahjPQNJpMtubgEa3EwJOR3Hw0CybcrK D/RocDSmL3VlLQMpsw4a3NenQTT37Jez2MjBNOi2MQ3UfsorJHAzkHGKdfJ1 UxpMXanZJYht0eJ88/IRGrxyf0S6wcVAlO3+ry9a0EAq8EviqzUM5G0dNpFo RQP2H7tOncAOjo9ZjrHB81twLFqLnfA9UzHUngaMiMImG04GSt16TS/AkQbm Ak1F7Nh55sUOXs408DN50lP93//r3W9IPE6iQc1W8th27OrRJwX2FBq4x796 M8zOQE0ir+qs3PH51F+s3MRuM+rtOkKjAf+9Gj8P7K7Tn0cNPWhwSP+LtBr2 h/KJv+BFA/WdOSIc2F8+/xQ87EODR0dlzD+wMdA3/j+71f1osP9y2/O72Axd DtgbQIN9FbXxSdh/gnjt5ANpYMqjkOiBzVG8yW9HMA2+LFl2HcFe3y8ZLxlK g8d3bWzVsYXX78rfHEYDPmEbGRlsCS2VGsFw7L/easLYO/0OveQ9S4OV1ftJ PNhKN/S+ckXSYH2OugwH9oF3ZourUTT4//9z/g+FjOnE "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.52}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange->{{0, 180}, {0.5625001533850656, 1.349999885533271}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.618672850813414*^9, 3.6187666320353026`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Quando uma fun\[CCedilla]\[ATilde]o exige vari\ \[AAcute]veis espec\[IAcute]ficas, \[EAcute] poss\[IAcute]veis \ ocult\[AAcute]-las: a declara\[CCedilla]\[ATilde]o Module[ ]", \ "Subsection"]], "Subsubsection", CellChangeTimes->{{3.5867134348634357`*^9, 3.5867134592404556`*^9}, { 3.618601151750885*^9, 3.6186011766276307`*^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.987038555751138`", ",", "3.021228894920478`", ",", "19.09663623674691`"}], "}"}]], "Output", CellChangeTimes->{{3.5867136395211873`*^9, 3.586713651928297*^9}, 3.5867151144089985`*^9, 3.586718208238903*^9, 3.6186728807061224`*^9, 3.618766743861815*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"parms", "[", RowBox[{"20", ",", "3", ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"{", RowBox[{"10", ",", "100", ",", "1000", ",", "10000", ",", "100000"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"TableHeadings", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\[Sigma]\>\"", ",", "\"\\""}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5867136570693493`*^9, 3.5867136977758493`*^9}, { 3.6186730871932793`*^9, 3.6186731734235535`*^9}}], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox["\<\"m\[EAcute]dia\"\>", HoldForm], TagBox["\<\"\[Sigma]\"\>", HoldForm], TagBox["\<\"range\"\>", HoldForm]}, {"19.04080445100824`", "2.4567178233221805`", "7.052187878837774`"}, {"20.13488172280111`", "2.753754474610614`", "17.101674188338123`"}, {"19.901471993336166`", "2.962817753294884`", "19.027524963616905`"}, {"20.04009397873726`", "2.993233187631638`", "22.156934692825022`"}, {"20.010095176651895`", "2.9973162238287423`", "25.07324870806594`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> { None, {"m\[EAcute]dia", "\[Sigma]", "range"}}]]]], "Output", CellChangeTimes->{{3.586713686899945*^9, 3.5867136984634037`*^9}, 3.5867151144246244`*^9, 3.586718208254529*^9, 3.6186728930038652`*^9, 3.6186731742048454`*^9, 3.618766746549499*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"listaN", " ", "=", " ", RowBox[{"{", RowBox[{"10", ",", "100", ",", "1000", ",", "10000", ",", "100000"}], "}"}]}]], "Input", CellChangeTimes->{{3.6187667543469305`*^9, 3.618766763941351*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"10", ",", "100", ",", "1000", ",", "10000", ",", "100000"}], "}"}]], "Output", CellChangeTimes->{3.6187667645976505`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"parms", "[", RowBox[{"20", ",", "3", ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "listaN"}], "}"}]}], "]"}], ",", RowBox[{"TableHeadings", "\[Rule]", RowBox[{"{", RowBox[{"listaN", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\[Sigma]\>\"", ",", "\"\\""}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.618766774363964*^9, 3.618766782172603*^9}}], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { StyleBox["\[Null]", ShowStringCharacters->False], TagBox["\<\"m\[EAcute]dia\"\>", HoldForm], TagBox["\<\"\[Sigma]\"\>", HoldForm], TagBox["\<\"range\"\>", HoldForm]}, { TagBox["10", HoldForm], "18.212384281801523`", "2.4695804815538183`", "7.108645937367687`"}, { TagBox["100", HoldForm], "20.104415792900408`", "3.234803236281142`", "15.705706417216199`"}, { TagBox["1000", HoldForm], "19.92347630626713`", "2.9660975951232396`", "18.07722824303599`"}, { TagBox["10000", HoldForm], "19.989864300389208`", "2.992027534901454`", "23.043831124098514`"}, { TagBox["100000", HoldForm], "19.98665312820197`", "3.001196060546436`", "27.55618888704187`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {{10, 100, 1000, 10000, 100000}, { "m\[EAcute]dia", "\[Sigma]", "range"}}]]]], "Output", CellChangeTimes->{3.6187667828288946`*^9}] }, Open ]], Cell[TextData[StyleBox["Uma fun\[CCedilla]\[ATilde]o pode usar outra", \ "Subsection"]], "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, { 3.618672961724705*^9, 3.6186729664750385`*^9}, 3.6187668540648823`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"interval", "[", "100", "]"}], ",", RowBox[{"{", "1000", "}"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.5867140591339216`*^9, 3.5867140835265675`*^9}, { 3.6186729883294954`*^9, 3.618672991220312*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Total", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.586714087120616*^9, 3.586714090886553*^9}}], Cell[BoxData["670"], "Output", CellChangeTimes->{ 3.5867140916991186`*^9, 3.586715114487131*^9, 3.586718208332659*^9, { 3.6186729720783443`*^9, 3.618672994142397*^9}, 3.6187668605809636`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Count", "[", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"parms", "[", RowBox[{"20", ",", "3", ",", "30"}], "]"}], ",", RowBox[{"{", "10000", "}"}]}], "]"}], ",", RowBox[{"u_", "/;", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "2", "]"}], "]"}], "/", RowBox[{"Sqrt", "[", "30", "]"}]}]}], "<", "20", "<", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "2", "]"}], "]"}], "/", RowBox[{"Sqrt", "[", "30", "]"}]}]}]}], ")"}]}]}], "]"}]], "Input"], Cell[BoxData["6687"], "Output", CellChangeTimes->{3.6187672063292065`*^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[{"3", ",", "10000"}], "]"}]], "Input", CellChangeTimes->{{3.586714285840208*^9, 3.586714293762741*^9}, { 3.618767253723171*^9, 3.618767258817283*^9}}], Cell[BoxData["57.699999999999996`"], "Output", CellChangeTimes->{{3.586714294590932*^9, 3.5867143013258657`*^9}, 3.586715114565261*^9, 3.5867182083795395`*^9, {3.618767249972908*^9, 3.6187672599267364`*^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.2`", ",", "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, { 3.6187673038959036`*^9, 3.618767306958619*^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.900000000000006`", ",", "1.6`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"{", RowBox[{"56.`", ",", "1.6`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", RowBox[{"{", RowBox[{"59.1`", ",", "1.6`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", RowBox[{"{", RowBox[{"61.6`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", RowBox[{"{", RowBox[{"61.6`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", RowBox[{"{", RowBox[{"65.10000000000001`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", RowBox[{"{", RowBox[{"61.7`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", RowBox[{"{", RowBox[{"62.5`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"{", RowBox[{"61.800000000000004`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", RowBox[{"{", RowBox[{"67.9`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", RowBox[{"{", RowBox[{"69.5`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", RowBox[{"{", RowBox[{"66.5`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", RowBox[{"{", RowBox[{"69.10000000000001`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", RowBox[{"{", RowBox[{"67.2`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", RowBox[{"{", RowBox[{"68.`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", RowBox[{"{", RowBox[{"66.3`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", RowBox[{"{", RowBox[{"70.`", ",", "1.4000000000000001`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", RowBox[{"{", RowBox[{"68.10000000000001`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", RowBox[{"{", RowBox[{"63.900000000000006`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", RowBox[{"{", RowBox[{"68.7`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", RowBox[{"{", RowBox[{"68.4`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", RowBox[{"{", RowBox[{"66.60000000000001`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", RowBox[{"{", RowBox[{"65.60000000000001`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{"{", RowBox[{"67.`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", RowBox[{"{", RowBox[{"65.`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", RowBox[{"{", RowBox[{"66.2`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", RowBox[{"{", RowBox[{"65.10000000000001`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", RowBox[{"{", RowBox[{"67.2`", ",", "1.5`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", RowBox[{"{", RowBox[{"68.`", ",", "1.5`"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.58671491484546*^9, 3.5867151164247913`*^9, 3.586718210285947*^9, 3.618767311568325*^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", ",", "49.6`", ",", "1.6`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "59.7`", ",", "1.6`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "61.7`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "61.800000000000004`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "65.9`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "65.60000000000001`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "63.`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "66.`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "66.2`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "64.9`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "65.9`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "62.800000000000004`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "68.10000000000001`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "68.3`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "66.5`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "66.5`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "66.8`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "66.8`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "65.`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "68.`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "67.2`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "64.8`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "69.7`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "65.9`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "67.7`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "68.10000000000001`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "67.4`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "65.60000000000001`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "65.3`", ",", "1.5`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5867149425508804`*^9, 3.5867149924300146`*^9, 3.586715117971795*^9, 3.5867182118642025`*^9, 3.618767351550562*^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.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBWIQDQUOZ8+AgIcDhMvhMGsmENz0hfIFoHw/KF/EIT0N CJ7B+BIQ+coAKF8GIp8G4ytA6AZ/KF8JyofJq0Ds74Hx1SDmWcL4Gmjma0HN h5mnA+GzBUL5eg7GICAM4xtA6AUw/YZofCOI+s0wvjEa3wRCO8D4plAaZr4Z NPxg8uYQ/cYwvgVEPgem3hLNP1YQ+TcwvjWaf2yg4Q+Tt0ULXzuIfcEBDgBZ OWZG "]], {{LineBox[{{2., 51.2}, {2., 48.}}], LineBox[{Offset[{1.5, 0}, {2., 51.2}], Offset[{-1.5, 0}, {2., 51.2}]}], LineBox[{Offset[{1.5, 0}, {2., 48.}], Offset[{-1.5, 0}, {2., 48.}]}]}, { LineBox[{{3., 61.300000000000004`}, {3., 58.1}}], LineBox[{Offset[{1.5, 0}, {3., 61.300000000000004`}], Offset[{-1.5, 0}, {3., 61.300000000000004`}]}], LineBox[{Offset[{1.5, 0}, {3., 58.1}], Offset[{-1.5, 0}, {3., 58.1}]}]}, {LineBox[{{4., 63.2}, {4., 60.2}}], LineBox[{Offset[{1.5, 0}, {4., 63.2}], Offset[{-1.5, 0}, {4., 63.2}]}], LineBox[{Offset[{1.5, 0}, {4., 60.2}], Offset[{-1.5, 0}, {4., 60.2}]}]}, { LineBox[{{5., 63.300000000000004`}, {5., 60.300000000000004`}}], LineBox[{Offset[{1.5, 0}, {5., 63.300000000000004`}], Offset[{-1.5, 0}, {5., 63.300000000000004`}]}], LineBox[{Offset[{1.5, 0}, {5., 60.300000000000004`}], Offset[{-1.5, 0}, {5., 60.300000000000004`}]}]}, { LineBox[{{6., 67.4}, {6., 64.4}}], LineBox[{Offset[{1.5, 0}, {6., 67.4}], Offset[{-1.5, 0}, {6., 67.4}]}], LineBox[{Offset[{1.5, 0}, {6., 64.4}], Offset[{-1.5, 0}, {6., 64.4}]}]}, { LineBox[{{7., 67.10000000000001}, {7., 64.10000000000001}}], LineBox[{Offset[{1.5, 0}, {7., 67.10000000000001}], Offset[{-1.5, 0}, {7., 67.10000000000001}]}], LineBox[{Offset[{1.5, 0}, {7., 64.10000000000001}], Offset[{-1.5, 0}, {7., 64.10000000000001}]}]}, { LineBox[{{8., 64.5}, {8., 61.5}}], LineBox[{Offset[{1.5, 0}, {8., 64.5}], Offset[{-1.5, 0}, {8., 64.5}]}], LineBox[{Offset[{1.5, 0}, {8., 61.5}], Offset[{-1.5, 0}, {8., 61.5}]}]}, {LineBox[{{9., 67.5}, {9., 64.5}}], LineBox[{Offset[{1.5, 0}, {9., 67.5}], Offset[{-1.5, 0}, {9., 67.5}]}], LineBox[{Offset[{1.5, 0}, {9., 64.5}], Offset[{-1.5, 0}, {9., 64.5}]}]}, { LineBox[{{10., 67.7}, {10., 64.7}}], LineBox[{Offset[{1.5, 0}, {10., 67.7}], Offset[{-1.5, 0}, {10., 67.7}]}], LineBox[{Offset[{1.5, 0}, {10., 64.7}], Offset[{-1.5, 0}, {10., 64.7}]}]}, { LineBox[{{11., 66.4}, {11., 63.400000000000006`}}], LineBox[{Offset[{1.5, 0}, {11., 66.4}], Offset[{-1.5, 0}, {11., 66.4}]}], LineBox[{Offset[{1.5, 0}, {11., 63.400000000000006`}], Offset[{-1.5, 0}, {11., 63.400000000000006`}]}]}, { LineBox[{{12., 67.4}, {12., 64.4}}], LineBox[{Offset[{1.5, 0}, {12., 67.4}], Offset[{-1.5, 0}, {12., 67.4}]}], LineBox[{Offset[{1.5, 0}, {12., 64.4}], Offset[{-1.5, 0}, {12., 64.4}]}]}, { LineBox[{{13., 64.30000000000001}, {13., 61.300000000000004`}}], LineBox[{Offset[{1.5, 0}, {13., 64.30000000000001}], Offset[{-1.5, 0}, {13., 64.30000000000001}]}], LineBox[{Offset[{1.5, 0}, {13., 61.300000000000004`}], Offset[{-1.5, 0}, {13., 61.300000000000004`}]}]}, { LineBox[{{14., 69.60000000000001}, {14., 66.60000000000001}}], LineBox[{Offset[{1.5, 0}, {14., 69.60000000000001}], Offset[{-1.5, 0}, {14., 69.60000000000001}]}], LineBox[{Offset[{1.5, 0}, {14., 66.60000000000001}], Offset[{-1.5, 0}, {14., 66.60000000000001}]}]}, { LineBox[{{15., 69.8}, {15., 66.8}}], LineBox[{Offset[{1.5, 0}, {15., 69.8}], Offset[{-1.5, 0}, {15., 69.8}]}], LineBox[{Offset[{1.5, 0}, {15., 66.8}], Offset[{-1.5, 0}, {15., 66.8}]}]}, {LineBox[{{16., 68.}, {16., 65.}}], LineBox[{Offset[{1.5, 0}, {16., 68.}], Offset[{-1.5, 0}, {16., 68.}]}], LineBox[{ Offset[{1.5, 0}, {16., 65.}], Offset[{-1.5, 0}, {16., 65.}]}]}, { LineBox[{{17., 68.}, {17., 65.}}], LineBox[{Offset[{1.5, 0}, {17., 68.}], Offset[{-1.5, 0}, {17., 68.}]}], LineBox[{Offset[{1.5, 0}, {17., 65.}], Offset[{-1.5, 0}, {17., 65.}]}]}, { LineBox[{{18., 68.3}, {18., 65.3}}], LineBox[{Offset[{1.5, 0}, {18., 68.3}], Offset[{-1.5, 0}, {18., 68.3}]}], LineBox[{Offset[{1.5, 0}, {18., 65.3}], Offset[{-1.5, 0}, {18., 65.3}]}]}, { LineBox[{{19., 68.3}, {19., 65.3}}], LineBox[{Offset[{1.5, 0}, {19., 68.3}], Offset[{-1.5, 0}, {19., 68.3}]}], LineBox[{Offset[{1.5, 0}, {19., 65.3}], Offset[{-1.5, 0}, {19., 65.3}]}]}, { LineBox[{{20., 66.5}, {20., 63.5}}], LineBox[{Offset[{1.5, 0}, {20., 66.5}], Offset[{-1.5, 0}, {20., 66.5}]}], LineBox[{Offset[{1.5, 0}, {20., 63.5}], Offset[{-1.5, 0}, {20., 63.5}]}]}, { LineBox[{{21., 69.5}, {21., 66.5}}], LineBox[{Offset[{1.5, 0}, {21., 69.5}], Offset[{-1.5, 0}, {21., 69.5}]}], LineBox[{Offset[{1.5, 0}, {21., 66.5}], Offset[{-1.5, 0}, {21., 66.5}]}]}, { LineBox[{{22., 68.7}, {22., 65.7}}], LineBox[{Offset[{1.5, 0}, {22., 68.7}], Offset[{-1.5, 0}, {22., 68.7}]}], LineBox[{Offset[{1.5, 0}, {22., 65.7}], Offset[{-1.5, 0}, {22., 65.7}]}]}, { LineBox[{{23., 66.3}, {23., 63.3}}], LineBox[{Offset[{1.5, 0}, {23., 66.3}], Offset[{-1.5, 0}, {23., 66.3}]}], LineBox[{Offset[{1.5, 0}, {23., 63.3}], Offset[{-1.5, 0}, {23., 63.3}]}]}, { LineBox[{{24., 71.2}, {24., 68.2}}], LineBox[{Offset[{1.5, 0}, {24., 71.2}], Offset[{-1.5, 0}, {24., 71.2}]}], LineBox[{Offset[{1.5, 0}, {24., 68.2}], Offset[{-1.5, 0}, {24., 68.2}]}]}, { LineBox[{{25., 67.4}, {25., 64.4}}], LineBox[{Offset[{1.5, 0}, {25., 67.4}], Offset[{-1.5, 0}, {25., 67.4}]}], LineBox[{Offset[{1.5, 0}, {25., 64.4}], Offset[{-1.5, 0}, {25., 64.4}]}]}, { LineBox[{{26., 69.2}, {26., 66.2}}], LineBox[{Offset[{1.5, 0}, {26., 69.2}], Offset[{-1.5, 0}, {26., 69.2}]}], LineBox[{Offset[{1.5, 0}, {26., 66.2}], Offset[{-1.5, 0}, {26., 66.2}]}]}, { LineBox[{{27., 69.60000000000001}, {27., 66.60000000000001}}], LineBox[{Offset[{1.5, 0}, {27., 69.60000000000001}], Offset[{-1.5, 0}, {27., 69.60000000000001}]}], LineBox[{ Offset[{1.5, 0}, {27., 66.60000000000001}], Offset[{-1.5, 0}, {27., 66.60000000000001}]}]}, { LineBox[{{28., 68.9}, {28., 65.9}}], LineBox[{Offset[{1.5, 0}, {28., 68.9}], Offset[{-1.5, 0}, {28., 68.9}]}], LineBox[{Offset[{1.5, 0}, {28., 65.9}], Offset[{-1.5, 0}, {28., 65.9}]}]}, { LineBox[{{29., 67.10000000000001}, {29., 64.10000000000001}}], LineBox[{Offset[{1.5, 0}, {29., 67.10000000000001}], Offset[{-1.5, 0}, {29., 67.10000000000001}]}], LineBox[{Offset[{1.5, 0}, {29., 64.10000000000001}], Offset[{-1.5, 0}, {29., 64.10000000000001}]}]}, { LineBox[{{30., 66.8}, {30., 63.8}}], LineBox[{Offset[{1.5, 0}, {30., 66.8}], Offset[{-1.5, 0}, {30., 66.8}]}], LineBox[{Offset[{1.5, 0}, {30., 63.8}], Offset[{-1.5, 0}, {30., 63.8}]}]}}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.5625, 48.595000000000006`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{2., 30.}, {49.6, 69.7}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.586714972990904*^9, 3.5867150044153833`*^9, 3.5867151180655518`*^9, 3.586718211958191*^9, 3.6187673558946185`*^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[{ "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "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", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1"}], "}"}]], "Output", CellChangeTimes->{{3.5867153650235195`*^9, 3.5867153689926004`*^9}, 3.5867154179185286`*^9, 3.5867182119735875`*^9, 3.618767378333705*^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, 3.6187673935651135`*^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}, 3.61876739600278*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "71.60000000000001`", ",", "1.4000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "82.5`", ",", "1.2000000000000002`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "86.10000000000001`", ",", "1.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "88.5`", ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "92.2`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "90.4`", ",", "0.9`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "91.10000000000001`", ",", "0.9`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "92.5`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "93.2`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "92.60000000000001`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "93.2`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "94.4`", ",", "0.7000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "93.10000000000001`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "92.7`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "94.10000000000001`", ",", "0.7000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "93.4`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "94.4`", ",", "0.7000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "92.9`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "93.`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "93.30000000000001`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "94.7`", ",", "0.7000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "94.10000000000001`", ",", "0.7000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "95.4`", ",", "0.7000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "94.10000000000001`", ",", "0.7000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "95.10000000000001`", ",", "0.7000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "95.5`", ",", "0.7000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "95.80000000000001`", ",", "0.6000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "93.9`", ",", "0.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "94.4`", ",", "0.7000000000000001`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.5867153082219367`*^9, 3.586715317691472*^9}, 3.586715475126394*^9, 3.5867182135830946`*^9, 3.6187674016906924`*^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.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBWIQDQUO6WlA8CzQAcLlgNALQqB8AYh8WyiULwKhFcKg fAmHs2eAgCccypdxmDUTBGDyChD9x2B8Jah+mHoViH4fGF8Nol4NxtdAk9eC mg/j60DUu8H4ehD1OjC+AdT9ML4hRH8kjG+EZp4xhG8J45tAaAcY39TBxBgI gmF8M4h9a2B8czT7LCDm3YTxLdHkraDhA+NbQ+gHML4NxL7PML4txLxKGN8O 7n4AGzxswQ== "]], {{LineBox[{{2., 73.00000000000001}, {2., 70.2}}], LineBox[{Offset[{1.5, 0}, {2., 73.00000000000001}], Offset[{-1.5, 0}, {2., 73.00000000000001}]}], LineBox[{Offset[{1.5, 0}, {2., 70.2}], Offset[{-1.5, 0}, {2., 70.2}]}]}, {LineBox[{{3., 83.7}, {3., 81.3}}], LineBox[{Offset[{1.5, 0}, {3., 83.7}], Offset[{-1.5, 0}, {3., 83.7}]}], LineBox[{Offset[{1.5, 0}, {3., 81.3}], Offset[{-1.5, 0}, {3., 81.3}]}]}, { LineBox[{{4., 87.2}, {4., 85.00000000000001}}], LineBox[{Offset[{1.5, 0}, {4., 87.2}], Offset[{-1.5, 0}, {4., 87.2}]}], LineBox[{Offset[{1.5, 0}, {4., 85.00000000000001}], Offset[{-1.5, 0}, {4., 85.00000000000001}]}]}, { LineBox[{{5., 89.5}, {5., 87.5}}], LineBox[{Offset[{1.5, 0}, {5., 89.5}], Offset[{-1.5, 0}, {5., 89.5}]}], LineBox[{Offset[{1.5, 0}, {5., 87.5}], Offset[{-1.5, 0}, {5., 87.5}]}]}, {LineBox[{{6., 93.}, {6., 91.4}}], LineBox[{Offset[{1.5, 0}, {6., 93.}], Offset[{-1.5, 0}, {6., 93.}]}], LineBox[{Offset[{1.5, 0}, {6., 91.4}], Offset[{-1.5, 0}, {6., 91.4}]}]}, { LineBox[{{7., 91.30000000000001}, {7., 89.5}}], LineBox[{Offset[{1.5, 0}, {7., 91.30000000000001}], Offset[{-1.5, 0}, {7., 91.30000000000001}]}], LineBox[{Offset[{1.5, 0}, {7., 89.5}], Offset[{-1.5, 0}, {7., 89.5}]}]}, { LineBox[{{8., 92.00000000000001}, {8., 90.2}}], LineBox[{Offset[{1.5, 0}, {8., 92.00000000000001}], Offset[{-1.5, 0}, {8., 92.00000000000001}]}], LineBox[{Offset[{1.5, 0}, {8., 90.2}], Offset[{-1.5, 0}, {8., 90.2}]}]}, {LineBox[{{9., 93.3}, {9., 91.7}}], LineBox[{Offset[{1.5, 0}, {9., 93.3}], Offset[{-1.5, 0}, {9., 93.3}]}], LineBox[{Offset[{1.5, 0}, {9., 91.7}], Offset[{-1.5, 0}, {9., 91.7}]}]}, {LineBox[{{10., 94.}, {10., 92.4}}], LineBox[{Offset[{1.5, 0}, {10., 94.}], Offset[{-1.5, 0}, {10., 94.}]}], LineBox[{ Offset[{1.5, 0}, {10., 92.4}], Offset[{-1.5, 0}, {10., 92.4}]}]}, { LineBox[{{11., 93.4}, {11., 91.80000000000001}}], LineBox[{Offset[{1.5, 0}, {11., 93.4}], Offset[{-1.5, 0}, {11., 93.4}]}], LineBox[{Offset[{1.5, 0}, {11., 91.80000000000001}], Offset[{-1.5, 0}, {11., 91.80000000000001}]}]}, { LineBox[{{12., 94.}, {12., 92.4}}], LineBox[{Offset[{1.5, 0}, {12., 94.}], Offset[{-1.5, 0}, {12., 94.}]}], LineBox[{Offset[{1.5, 0}, {12., 92.4}], Offset[{-1.5, 0}, {12., 92.4}]}]}, { LineBox[{{13., 95.10000000000001}, {13., 93.7}}], LineBox[{Offset[{1.5, 0}, {13., 95.10000000000001}], Offset[{-1.5, 0}, {13., 95.10000000000001}]}], LineBox[{Offset[{1.5, 0}, {13., 93.7}], Offset[{-1.5, 0}, {13., 93.7}]}]}, { LineBox[{{14., 93.9}, {14., 92.30000000000001}}], LineBox[{Offset[{1.5, 0}, {14., 93.9}], Offset[{-1.5, 0}, {14., 93.9}]}], LineBox[{Offset[{1.5, 0}, {14., 92.30000000000001}], Offset[{-1.5, 0}, {14., 92.30000000000001}]}]}, { LineBox[{{15., 93.5}, {15., 91.9}}], LineBox[{Offset[{1.5, 0}, {15., 93.5}], Offset[{-1.5, 0}, {15., 93.5}]}], LineBox[{Offset[{1.5, 0}, {15., 91.9}], Offset[{-1.5, 0}, {15., 91.9}]}]}, { LineBox[{{16., 94.80000000000001}, {16., 93.4}}], LineBox[{Offset[{1.5, 0}, {16., 94.80000000000001}], Offset[{-1.5, 0}, {16., 94.80000000000001}]}], LineBox[{Offset[{1.5, 0}, {16., 93.4}], Offset[{-1.5, 0}, {16., 93.4}]}]}, { LineBox[{{17., 94.2}, {17., 92.60000000000001}}], LineBox[{Offset[{1.5, 0}, {17., 94.2}], Offset[{-1.5, 0}, {17., 94.2}]}], LineBox[{Offset[{1.5, 0}, {17., 92.60000000000001}], Offset[{-1.5, 0}, {17., 92.60000000000001}]}]}, { LineBox[{{18., 95.10000000000001}, {18., 93.7}}], LineBox[{ Offset[{1.5, 0}, {18., 95.10000000000001}], Offset[{-1.5, 0}, {18., 95.10000000000001}]}], LineBox[{Offset[{1.5, 0}, {18., 93.7}], Offset[{-1.5, 0}, {18., 93.7}]}]}, { LineBox[{{19., 93.7}, {19., 92.10000000000001}}], LineBox[{Offset[{1.5, 0}, {19., 93.7}], Offset[{-1.5, 0}, {19., 93.7}]}], LineBox[{Offset[{1.5, 0}, {19., 92.10000000000001}], Offset[{-1.5, 0}, {19., 92.10000000000001}]}]}, { LineBox[{{20., 93.8}, {20., 92.2}}], LineBox[{Offset[{1.5, 0}, {20., 93.8}], Offset[{-1.5, 0}, {20., 93.8}]}], LineBox[{Offset[{1.5, 0}, {20., 92.2}], Offset[{-1.5, 0}, {20., 92.2}]}]}, { LineBox[{{21., 94.10000000000001}, {21., 92.50000000000001}}], LineBox[{Offset[{1.5, 0}, {21., 94.10000000000001}], Offset[{-1.5, 0}, {21., 94.10000000000001}]}], LineBox[{Offset[{1.5, 0}, {21., 92.50000000000001}], Offset[{-1.5, 0}, {21., 92.50000000000001}]}]}, { LineBox[{{22., 95.4}, {22., 94.}}], LineBox[{Offset[{1.5, 0}, {22., 95.4}], Offset[{-1.5, 0}, {22., 95.4}]}], LineBox[{Offset[{1.5, 0}, {22., 94.}], Offset[{-1.5, 0}, {22., 94.}]}]}, { LineBox[{{23., 94.80000000000001}, {23., 93.4}}], LineBox[{Offset[{1.5, 0}, {23., 94.80000000000001}], Offset[{-1.5, 0}, {23., 94.80000000000001}]}], LineBox[{Offset[{1.5, 0}, {23., 93.4}], Offset[{-1.5, 0}, {23., 93.4}]}]}, { LineBox[{{24., 96.10000000000001}, {24., 94.7}}], LineBox[{Offset[{1.5, 0}, {24., 96.10000000000001}], Offset[{-1.5, 0}, {24., 96.10000000000001}]}], LineBox[{Offset[{1.5, 0}, {24., 94.7}], Offset[{-1.5, 0}, {24., 94.7}]}]}, { LineBox[{{25., 94.80000000000001}, {25., 93.4}}], LineBox[{Offset[{1.5, 0}, {25., 94.80000000000001}], Offset[{-1.5, 0}, {25., 94.80000000000001}]}], LineBox[{Offset[{1.5, 0}, {25., 93.4}], Offset[{-1.5, 0}, {25., 93.4}]}]}, { LineBox[{{26., 95.80000000000001}, {26., 94.4}}], LineBox[{Offset[{1.5, 0}, {26., 95.80000000000001}], Offset[{-1.5, 0}, {26., 95.80000000000001}]}], LineBox[{ Offset[{1.5, 0}, {26., 94.4}], Offset[{-1.5, 0}, {26., 94.4}]}]}, { LineBox[{{27., 96.2}, {27., 94.8}}], LineBox[{Offset[{1.5, 0}, {27., 96.2}], Offset[{-1.5, 0}, {27., 96.2}]}], LineBox[{Offset[{1.5, 0}, {27., 94.8}], Offset[{-1.5, 0}, {27., 94.8}]}]}, { LineBox[{{28., 96.4}, {28., 95.20000000000002}}], LineBox[{Offset[{1.5, 0}, {28., 96.4}], Offset[{-1.5, 0}, {28., 96.4}]}], LineBox[{Offset[{1.5, 0}, {28., 95.20000000000002}], Offset[{-1.5, 0}, {28., 95.20000000000002}]}]}, { LineBox[{{29., 94.7}, {29., 93.10000000000001}}], LineBox[{Offset[{1.5, 0}, {29., 94.7}], Offset[{-1.5, 0}, {29., 94.7}]}], LineBox[{Offset[{1.5, 0}, {29., 93.10000000000001}], Offset[{-1.5, 0}, {29., 93.10000000000001}]}]}, { LineBox[{{30., 95.10000000000001}, {30., 93.7}}], LineBox[{Offset[{1.5, 0}, {30., 95.10000000000001}], Offset[{-1.5, 0}, {30., 95.10000000000001}]}], LineBox[{Offset[{1.5, 0}, {30., 93.7}], Offset[{-1.5, 0}, {30., 93.7}]}]}}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.5625, 70.39}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{2., 30.}, {71.60000000000001, 95.80000000000001}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.586715494956162*^9, 3.5867182136299744`*^9, 3.6187674070035667`*^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.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBWIQDQUOs2YCwc1gBwiXA0IvCIPyBRxMjIFgcjiULwJR /xPGl4DwLSOgfBmH9DQQgPEVIHQDjK8EkW+D8VWg5sP4ahD5ZTC+BkR+M4yv BbFvJ4yvA6EPwPh6aHwDNL4hxPxjML4RGt/Y4ewZEIDxTdD4pmh8M4j7LsP4 5mh8CzS+JRrfChr+ML41Gt8GQj+A8W3R9NvB1QMACydm+A== "]], {{LineBox[{{2., 79.80000000000001}, {2., 79.}}], LineBox[{Offset[{1.5, 0}, {2., 79.80000000000001}], Offset[{-1.5, 0}, {2., 79.80000000000001}]}], LineBox[{Offset[{1.5, 0}, {2., 79.}], Offset[{-1.5, 0}, {2., 79.}]}]}, { LineBox[{{3., 90.8}, {3., 90.2}}], LineBox[{Offset[{1.5, 0}, {3., 90.8}], Offset[{-1.5, 0}, {3., 90.8}]}], LineBox[{Offset[{1.5, 0}, {3., 90.2}], Offset[{-1.5, 0}, {3., 90.2}]}]}, { 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.10000000000001}, {5., 95.7}}], LineBox[{Offset[{1.5, 0}, {5., 96.10000000000001}], Offset[{-1.5, 0}, {5., 96.10000000000001}]}], LineBox[{Offset[{1.5, 0}, {5., 95.7}], Offset[{-1.5, 0}, {5., 95.7}]}]}, { LineBox[{{6., 97.10000000000001}, {6., 96.7}}], LineBox[{Offset[{1.5, 0}, {6., 97.10000000000001}], Offset[{-1.5, 0}, {6., 97.10000000000001}]}], LineBox[{Offset[{1.5, 0}, {6., 96.7}], Offset[{-1.5, 0}, {6., 96.7}]}]}, { LineBox[{{7., 97.80000000000001}, {7., 97.4}}], LineBox[{Offset[{1.5, 0}, {7., 97.80000000000001}], Offset[{-1.5, 0}, {7., 97.80000000000001}]}], LineBox[{Offset[{1.5, 0}, {7., 97.4}], Offset[{-1.5, 0}, {7., 97.4}]}]}, {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.2}, {9., 98.00000000000001}}], LineBox[{Offset[{1.5, 0}, {9., 98.2}], Offset[{-1.5, 0}, {9., 98.2}]}], LineBox[{Offset[{1.5, 0}, {9., 98.00000000000001}], Offset[{-1.5, 0}, {9., 98.00000000000001}]}]}, { LineBox[{{10., 98.4}, {10., 98.20000000000002}}], LineBox[{Offset[{1.5, 0}, {10., 98.4}], Offset[{-1.5, 0}, {10., 98.4}]}], LineBox[{Offset[{1.5, 0}, {10., 98.20000000000002}], Offset[{-1.5, 0}, {10., 98.20000000000002}]}]}, { LineBox[{{11., 98.7}, {11., 98.50000000000001}}], LineBox[{Offset[{1.5, 0}, {11., 98.7}], Offset[{-1.5, 0}, {11., 98.7}]}], LineBox[{Offset[{1.5, 0}, {11., 98.50000000000001}], Offset[{-1.5, 0}, {11., 98.50000000000001}]}]}, { LineBox[{{12., 98.9}, {12., 98.70000000000002}}], LineBox[{Offset[{1.5, 0}, {12., 98.9}], Offset[{-1.5, 0}, {12., 98.9}]}], LineBox[{Offset[{1.5, 0}, {12., 98.70000000000002}], Offset[{-1.5, 0}, {12., 98.70000000000002}]}]}, { 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.1}, {15., 98.9}}], LineBox[{Offset[{1.5, 0}, {15., 99.1}], Offset[{-1.5, 0}, {15., 99.1}]}], LineBox[{Offset[{1.5, 0}, {15., 98.9}], Offset[{-1.5, 0}, {15., 98.9}]}]}, { 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.2}, {17., 99.00000000000001}}], LineBox[{Offset[{1.5, 0}, {17., 99.2}], Offset[{-1.5, 0}, {17., 99.2}]}], LineBox[{Offset[{1.5, 0}, {17., 99.00000000000001}], Offset[{-1.5, 0}, {17., 99.00000000000001}]}]}, { LineBox[{{18., 99.2}, {18., 99.00000000000001}}], LineBox[{Offset[{1.5, 0}, {18., 99.2}], Offset[{-1.5, 0}, {18., 99.2}]}], LineBox[{Offset[{1.5, 0}, {18., 99.00000000000001}], Offset[{-1.5, 0}, {18., 99.00000000000001}]}]}, { 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.3}, {20., 99.10000000000001}}], LineBox[{Offset[{1.5, 0}, {20., 99.3}], Offset[{-1.5, 0}, {20., 99.3}]}], LineBox[{Offset[{1.5, 0}, {20., 99.10000000000001}], Offset[{-1.5, 0}, {20., 99.10000000000001}]}]}, { 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.4}, {22., 99.20000000000002}}], LineBox[{Offset[{1.5, 0}, {22., 99.4}], Offset[{-1.5, 0}, {22., 99.4}]}], LineBox[{Offset[{1.5, 0}, {22., 99.20000000000002}], Offset[{-1.5, 0}, {22., 99.20000000000002}]}]}, { 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.4}, {24., 99.20000000000002}}], LineBox[{Offset[{1.5, 0}, {24., 99.4}], Offset[{-1.5, 0}, {24., 99.4}]}], LineBox[{Offset[{1.5, 0}, {24., 99.20000000000002}], Offset[{-1.5, 0}, {24., 99.20000000000002}]}]}, { LineBox[{{25., 99.4}, {25., 99.20000000000002}}], LineBox[{Offset[{1.5, 0}, {25., 99.4}], Offset[{-1.5, 0}, {25., 99.4}]}], LineBox[{Offset[{1.5, 0}, {25., 99.20000000000002}], Offset[{-1.5, 0}, {25., 99.20000000000002}]}]}, { LineBox[{{26., 99.5}, {26., 99.30000000000001}}], LineBox[{Offset[{1.5, 0}, {26., 99.5}], Offset[{-1.5, 0}, {26., 99.5}]}], LineBox[{Offset[{1.5, 0}, {26., 99.30000000000001}], Offset[{-1.5, 0}, {26., 99.30000000000001}]}]}, { LineBox[{{27., 99.5}, {27., 99.30000000000001}}], LineBox[{Offset[{1.5, 0}, {27., 99.5}], Offset[{-1.5, 0}, {27., 99.5}]}], LineBox[{Offset[{1.5, 0}, {27., 99.30000000000001}], Offset[{-1.5, 0}, {27., 99.30000000000001}]}]}, { LineBox[{{28., 99.6}, {28., 99.4}}], LineBox[{Offset[{1.5, 0}, {28., 99.6}], Offset[{-1.5, 0}, {28., 99.6}]}], LineBox[{Offset[{1.5, 0}, {28., 99.4}], Offset[{-1.5, 0}, {28., 99.4}]}]}, { LineBox[{{29., 99.4}, {29., 99.20000000000002}}], LineBox[{Offset[{1.5, 0}, {29., 99.4}], Offset[{-1.5, 0}, {29., 99.4}]}], LineBox[{Offset[{1.5, 0}, {29., 99.20000000000002}], Offset[{-1.5, 0}, {29., 99.20000000000002}]}]}, { LineBox[{{30., 99.5}, {30., 99.30000000000001}}], LineBox[{Offset[{1.5, 0}, {30., 99.5}], Offset[{-1.5, 0}, {30., 99.5}]}], LineBox[{Offset[{1.5, 0}, {30., 99.30000000000001}], Offset[{-1.5, 0}, {30., 99.30000000000001}]}]}}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.5625, 78.39500000000001}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{2., 30.}, {79.4, 99.5}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.586715551429592*^9, 3.586718229591296*^9, 3.6187674357243347`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Propriedades de t de Student", "Subsection", CellChangeTimes->{{3.6187674369119253`*^9, 3.6187674420949717`*^9}}], 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}, { 3.618767452705104*^9, 3.618767486832503*^9}, {3.6187675263778133`*^9, 3.618767532018836*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwt1Gs01HkcBvBhpvlNtam2plIpY7JtSVq1i3T6/tYOyaKYartSoYtKo1hM 2ITTCpENu5RstphximSYZvH/Y2gm15Nqm3RkdGHMfyKNGbm19px98ZznfF49 7x7O4dO+QaY0Gs1rKv91QEn6wOfPiOQUxD0ddpABmWbxlfM4It8PNJm3OMtg qUC8/+cRRNZJPcNugQyerZMrqUFEdk5IT+3ZIgP3MmOBSo1I/tKq2NZdMlgr 8dt9vx6R7hN2sbpwGYzI1tQeuYjIZ93B1qYSGaQ0KjJazBCZFOYfmf/d32C5 WC3wmc4kOXMO6C8frALBJr7PKvY0kudgsbYwtRoOFhrcmqwZZHvRoPfr5hqo 8hZGcK3o5IE1m+MqrEjokP8kbrMzJTNZvbNO9JCwM4K9yH6VCTm4XBo12lAL kWcYuX4raWR46f0Ep6o6uBuZg2tOTRJ2Ychy04N6cEmkSJvAcYITNO1SbZ8c vO2GXL+PGSWiozNCL3EbITd473D/jRFituX2DXThQyCWxS82yTEQw2WZbG9z JewV+POICj1RKipKZjc/gqaN46814iEi4PEvWz91NUNs1tidoqJBYvD2jhl5 tm3gs/zAp2UZOuI9OdezsKUd+HTehYY4DcEVDEfv93gMPKuM+VUVbwlHe7OF 9S86QG1/KCM5R01cLlZlWtQ+BXpzv5LJ7SRe3n3x/OKTf4BbpI7Lyu0g9HdS HK58UIFjWzmn9HUj4Xj80YeVQS/hau8XmS2Zd4mYwbYPTxRdcMH16Jz8dXeA 9s2h6+evdoOefZbwv/AQPnb+8P6WSg1HKrPFxT4d0Bi9qvTMeA9E0cLywhM6 wXn79DKV1RtwMQ0Ii1Co4fe01C8LVr+FPcoVcwKT3sInKdZKWO9AnhdERuRq YMg4saH91TvATnDU+ZgOdF4RQsOVXrj2XLRfmz4IDC/X2762fVCX+zHNM2sI lPRU75K6PhDUJtVMi9IDlp/V2G3WgHuIf4RvggH+qutWzZJoQBQTZ2M8OQJN KovZ7Qv7QTGGJchzFFrz40PvhfTDXBOsLOaPg72tkO9W3w89x5KfFzpOAjtL qtkxQwsDNjMfLOHScMjxhCevtmmhee8Ngbm1CWYx7J5lpGpBJ1NZ17NNsXLZ bYfJWi0UdK3Pr1hMxyWheXWaYS1cX79h0S4zBnbfx/ra24oCA9DP2UwwcG9Z 8kSIBwVvZg/d9KAx8aFuHiv7DAUL5l5UsIeY2C360WOnTArSHLihXgYmNqbl VbZOmeVHmCeOMjF5vvxEQBYFY2JjsN4U4RXVJi4p2RR0847N6piH8PbRfFHn HxSIIrf6pn+LcHglGRmaR8Gm7pkvZ0Qh3OznVBZVSIGEWZTgEoNwzs5qMauI grW2PFthHMLjii3h2VPmCKNjNUkIJ/IbzpeLKGDO11kqchAWCcvPUsUUtG9p DUqsQngXv7GTX0rB1pBgs2oS4c5bv02+mnLdVWalXo6wPLlCf+Le1J56Myuw BeG+1dv2xZdRkHOuROzShfDpBjS/tJyCeTd/5At7EO5eUNOxUUJBiqJ37N47 hOMNJ482TDmWbenFGUCYHGPMfFFBgdG5anj3R4T/9FmwJLCSAsHh3XnpRoQ9 sgSfdVPu/1XvphhDOF2+UhohpeD//8LXmra5mjyg4F/I7XN4 "]], LineBox[CompressedData[" 1:eJwt1G001HkUB/AxND+rlsTkoSdMStRU2tqRTvfXHNS0seFUmg0RapV2UvJQ YxtRiQ7HSsWGzZYxTaWErab+/5g0nsUeh9WD8TRM5s9OE7OodvacfXHPPZ/z fXHvfXMdw38KiKTTaDRfQ/3XD9zLHvvyBZFXGzogTiAGMmvRMs8ZRJLOY1/m xYthoUCy76QekcWxhb4VQjF0rpHXj44j0pZXnjd9UQzbHkyWdCsR6cLLpN++ KQZ2ZUhQRa0hj+nkn+sRg/7xyudR5xGZQFthxOGVQWadIqfZHJFnou3cX62U gIO9UuD/FYMcdr0s7ONKQbAp0H8FcxYpGGaSwpi7sL90wqfR2YTceU9nKYoo B5lfUjzLyZikxQ1527Tfhw75HknrajqZYJHzIXJnBeyKZ9q6rzAiV9oIivY5 VUJCrElByHIaaSqK2cByqYa7Cfn4WcxnYo7Upeh73iPgpo2SbhEzhPTJEaJz 6An4rdZ6bxFOEcOtB52vS59BQTT/o7pITwhePxzsekcCsfisvVH+BLHhjUAb 9qIG+IJQL6JKR7TrN7DN6uXQuHGmf0SiJQoHrfb/7P0SkvOm74jF48SmI6mn AswbwH9J8D+LczRE0m+1Q8pPTRBo7JXyQjRC7Fib8aCM1wZeTjnWsqpBIrIm nOvu0g5K97CcjHwlkZKTq3KN+hOMm9T1DFYP4brl4trA1k5giZWivIIO4rBb Q8lFj27gtD50LO+vIzIXWN8OnOmBXNWcy82X7xKdqqlWn1tvIcX74NziNXcg Y96NzZ9+7wUd8zgRmvISVjV6OJ2z6IOo6iuS2/4dwAlsfGeypx8SaScK41J7 IHx30ZvY0gHg0g+ciFcoYeulOz6mfw3C3vqlcyPSB0F74hp26B0CeWEkGV8w AnUWqVdclSrAHnDQ85AGlu6daHpVPQy/dpXte589DnnnN18pPj4CNQUfsnbk aSEjRKFWL1eD4Hn6s1mJOlgYtKSEKVPDtqOh8QGpEwB1ddnree+hTChymzyi h4pQ4UCz7D0opnEl2jEFflfNozscRsHSCNcbDgcXqwvpO8+MQt+hjK5SzmfA lp7SlpZRGHOb/WgBi4a7FfPNuuw00MQvEtg5G2GJn4tSxteA5nG3cy2Tjq1Y Q6rT2RooebuuuMreGLOTOYgv18D1dd/Y7jY3wR5ZVFvamAYmwPiU2ycTPE8U bH6JScGAhfbGdhoDD+8SDlzbSMF8y/MKppaBp9Byo8q9FGR9yzrmO8HAtifT /+bwKTANIezSphiYFZVYKjN4WjIZraMjbB16NqL2Bwp6vQ593WGFcCe7bllL MAVlCbyA7PUI69MnVV1hFGzqnf3aLBHhhvAIjvxHCioZ4lSuEOHYqj9stkRT wF7ltSpJhPBo6hnyqcGOSaeTR9IRlrv2Ha06TAHDWuOgyEfYqYDNvRlDQdvW lsg0GcJit6rXCcco4B2NNn9KIjynf3GY1uCaXEa1To6wVNNWfjjWME+52TSi 2bDf8NkHwccpyD91T8J9i7DZuDcX4iiwuvFdYFIfwrM87ZdWG5ypUE3fH0I4 pHtBO/skBclMB1/HMYRzH9n8siiegklP2cegDwgns7bfyjVYEB5UmD2J8NQa +3OzEyhQX9D5KKYRLq4vcU8x+P//hXfX0qV6g/8FgvtdTA== "]], LineBox[CompressedData[" 1:eJwt1GtMk2cUB/BysU8nUkEpAlMEkW2mCgYcXuo4j6wyQC4DImhlKoiAZELF C1DUCVYdooJMYaO0MMkUqIoWQUH0fQWGZRXU4ZwOwigg0tr2xVqu7XRdsg8n //xyTvL/dtwT0qN2W9JotDDz/Je76oqoDx8QqZY/Geo4KQaycNEnHBMihbx7 8f3nxbCQXxt3aAqRgXkGF2O5GJ6vbO/UjCGSapOHcOvFECSbrHqpROR3yY5v WQNi8GrYvqW+DZGpNjkjd9ZJYKp5+YOkU4i8WuHKnWeQwJkOeXEXE5E7TRPS vzmV4Oai5Ed+RCeVoW6Mk7MvAX99dOQy1izS2Z/XIx2vgp1XJgIVntYkdW1t Lm/BZWgJF2R6LLEi7aJb2MLmauhpj6197G1JMjc7CnwKpLA5k+Xks8yC9GM0 m7g2dZCVYS3a/imNvOr8bGtE7k24nlWG7+99T0jS7HURP9dDwAkNyU40EbE/ oHl7ghoh3Fu/ccORGcLvt9Bj9h5NIErljasrpohpf6e6fbEtQLged7EomyDe 5okKwtkk8Pg7uESjgdAv5zRHR7SCYp1pSFWrJ/yYTabRyXY4WmK8Vl09RliX 703RGB5C5OJvpl2LtUT4g0c2axcqINqKm/drrorobjt2Z7mhG7hLih1aGl8R hjSFcF/2U1D6xBcXlCkJw8hITkFvD1g9UnfSPXqJisWBe/ckPwePamVuiaiH UFXMGc4cewFrHt9yvzHUQai9ZNDwey9ceD3nYtfF60TG2argsz/2Q97GZLvK ldfg4vEocb50AAys/cSOvIfACszqUC0dhKTbpbXSyB44dN4lwSgYgmzaAclB YS9MZRz+sKpvGAIsdx3IlCtBUB8y6uY2Als7l9ol5r+CjL7ykia/19Au2U1m ilSAZf6u8cGjgNdCMidFC2JtbGGptwrKX9TEvSkaA7JX5RU9rYJW0bvC0BI9 yBYwvP5oVgP/Qf79WdkG8P1pWdfmrW8gKG1HZpRwAsoXzt2WQr2BmiO57Mlv p0BvHwQhezQgN+IGFDoDfm0F5bVPNWBvgTul0SZozdg/ZbtKC4MpBS+urHkP WePVM+RxLVBsm6aPPWj4nK/juYZuLTziVfCdPS3wL4pDQduYOtA2v/RsY1ni 1jyXYacAHVT1+1Y2ulhhp9UJEXP260Dsu8ophmmN+T6ymIkyHUyAVQ77H2t8 0Ppueuo9HQzP1V8KodHxKA5YF9ivA0f7U3KWno4d+lbKvpzWQeFqj31hE3Rs SqzU3DKbsZ1wPjFDx7x0T7XnjA6MtZOpBkuE454ib2TUwQA3xbZnPsLtl8OH O0w6qMkKjir6HOHLDaWLODQK1g/Y9M3ORli+87Rikk5BA71aGHAE4aSoyBvx iAKvFdwVglyEpZ+1xCnMdhccPqrKN+81DFsJgwK6g9ZNXobwuVPBj/FsCp58 1b37RAvCXFP6VI4tBcFpqcx7JMJ6C1HyoNmtF+i3De0IC41nKoOY5j6lPyOx C+GElE18h7kUlOXU1Qb0I8w+/ex0jR0F8y9tihYMInze+69NTHsKzshfG2+O mO/v1v2ZYfZRlluYO4VwU0zY15x5FExyWsa3vEN4SWnMFxVm8xO2SIomEX65 WDZuOZ8C9feGQLkRYU7Usewks///X/hOtlLeafa/c4pdxw== "]], LineBox[CompressedData[" 1:eJwt1GtMU3cYBvBSsIepIKhdECdyGW6OFTucimJ8/1Zg9QKxoFjQgQrFpgOt F4ZWYRZFJThbSKkCgyJkoxQpKBcvA84REForohJRxkZoqyBIexCRIhdZl+zD mye/D0+eb6/HwSNhPCqFQgmx3n8ZWyklZ2cx4r6xZG3wcRkQkmUrAqYx4kA7 o11zRgZfCFX7fp7AiF8EWunOCzLoYrZoh0cwYkNEQ/mRXBmwb1lKuvUY4XCl 4dIwLgPf2mhudTNGlLwe+cPokAMT9769H38RI+KpBW69FTlwuVWT3e6IEVmt 17cQn+Tg7qoXcj6jEZPvvW9G+uaBcGM4ZyV9DuHC1bm4FRXA/tLxYJ23HdGl DNjLbiqC+lBRspenLeE/P8QQtKYEOlv2qDpWUYmjonr5xX9+h93JdBe/lTbE 7ldJhQr/Mjh5zC4/+isKsaOtqPHB4gpQn8xDjYmf8J4bTpbu4ipgpQ8TPnHT eBnrRXspuxpCV40GbU6ZxJn+H481rKyDfEHUhyHFBF6esqg/N+Eu4G7nXG3y xnF/R3zoWnoDRAljAvG6MZxv94JvtBCg2zBtHFSN4iz13UDRnWZIlU9VKJUj +LRvdSf7WStwlv/40S3bhO/MZ84muDyEcNvAtAfiQTxB1/R8Lv0xBHpmL66v e43PrB+gdi19Cnq/A9mZeXo8tXhacyGrE2wfDWlpXj04IyZZMJ/ZBV5KvVie 34kr97szZdqX4N9R41FlbMWjppJ8s+p7QDYwP6c9R42PzHiuQFm9kBZ0yKmI WQGzH2oEcyr7YIx+HI9Ja4MZh0ztNqYB4m9fVZVzOqF/IW/U7YoRTlFOFCad 74GNuX2JnIlXwKLGnkjW6OFO2/VqSVA/RGq/dIrLeA1bvKPNrrwBaCnkEcn5 g8DHdfE88RtA6+FQAN8EpbeWqVYJB+G3l2X73kpHYNR06bZi8xA05b+X7JCP gnC4bnni3LcgvJ/ROOfUGCh2hdZI1G+BfTgmOez8OBxZ0iiP3joMZSliH0vC BGROVG2JbR0GzRSqxXZMQsvXVU9uMk3gbIO05eHTIDarA2xlJjDwM1+W+n+C G1Kji8JoAtJn3t2lXhRUybvad41hhkdRCuESbxvk1+LR/OtPZjDd6/ZuplPR ZVNw7+oCM5T0ri6qc7VFvoMSZpLODAWrv3eJcLRDCrKnRjJihnGwPe0zY4dE rDNvnJ1IeLVgtHgbhYaUFWmGXAYJnztf1NBHaYgv5vITgkiQrPM6GjJOQ2MB cYc7rLaPxpekT9LQPfX2dX7BJEypLIIxKoaeeO5aaLG6L5Dv0LkIQ4nyp+9S 2CSUndwaJl2DoSF7jujsdhI29s37e+4pDJ3omPcwkkNCLU15npWCobUzVFGt 1b6MQIZIjCEN/dk7pzASPERnUgczMCTwl65vs5q22OSuycPQ8YpKxne7SHjy w2Neej2GTGmbtJMRJGw9LHBsIDBkOBhmH76HhCYZ7fZYC4YidNnO5VbX6jfZ x7VjKJT45lwUl4S805UqVq91j3ujvy6ShEXF28NFBmuf43raIYqEy5qBqZv9 GFKzn/8Va3Uq3T3Eg8TQ2TRiesFeEiwB9R+47zF0rXIdzrNaeJBbKLVgqFSd EfKn1UOXxoI1UxhKr+0uddpHwv//Cxn6tj3mWf0vwylqgA== "]], LineBox[CompressedData[" 1:eJwt1GtU03UcBvAxcD9EmHpgJEg4nJpGiJcKA/P7A5G8IIoYIRIYKCB4mTcu A1aDEV4IiBBw4CDRuKskYAHt/wcmbgcJDkuD0MW4aAy3P8Icy5G2zunFc57z efO8fFwiT+47QqfRaLtN+a+jbuVRb94gMrnSVRzcnwNk7turvOYQyZX03rYa zQEnbk1YggGRRY8nx2QzOfBonVT+fAqR2mJ9dxQrF7b/OFsxqEKkrerDPXYH cmFtU3jInU5E7s22sYweyQVDy3vt0VmIfOzttpDPz4PsLll+DxORbPdNWWT1 t8B2VHED5zPICVlBil1WAXA3BwWuYc0jHQ6si1xVVwSHKvV+3SstSF66/7E/ /UqgLYCXyFluThZ5QmHscBkopJ/V9LrTyWQPx+qMxGvwaSJryYY1ZuT+o4T9 rjs3IOm0RUn4OzQyZpWaJU+ohptJIiw5/ppI6tSrpUX14JP5nHQ9PEdseZcz 1ne8AQLcp7d5p70iFqb2f1e6txFK4kJfqssMxA+5IXuGRHeBcM5wNBPpCV/v mHvKjlYI5Ub4Es06wuDZrjWwSej2nBudqJkmxOs53CtTHcAvNNZXVU0R0pPG h2KnLghc9vnfzvkaQqk6F7knQQ5B5r7p9wQTxIrKVq7TxR7wXZ5v19Y8TghL nx6vU/WBasMX+ZdEKoLd7c8pj1KA+QO1nMEZIpyfrI7rtHkEnCqVoLBEQRgp dDKjYQA29Ta63B7tImY4LwaVN4eg4Jn15Z7LNwmrszx9a7YS0rfFLCpfVw8H xW5Mt4Zh0LHOEBHp94HPtO/f7zEC0XeLamoDFWBdu7Rff2UUkmlnxeeEQ8As 53q1zB8HH3rU2USZCj4OT/+pK+wpHJCvWHT4wjhsp6zqJwXPQCo+QiaWTIDE y0Pid/0vwB9BjFesBjo0r1PSiiegdKA6bDJvCrId/6jrPaGGjpKZXP/CaThv YS723DwJ3PYLknnJOpBWPMkZH52E7SciEvcJ9dCYZ3W6VPAcqtMErrPHDFAb Xx6XQNOAzIibkP8rONRa7NMVr4HFZlheGzQHtmVjrIheDYzEXhqo3PQaYHBJ XL6zFijXBT8v5dDw15Z0D36MFh6ElnEdVprhgMrvV6grtKBpGVzZyaJjaf+T ZLlCCxXKjeXNjubYKb9lze9vtHB14/tLgpkWWCK4qmtaToEezFNc/7HAwQGG FA1QMLZw+tpOGgO/ELL61KEU2C/OkrGmGVi4+nZ0GJeCXA/Oqd16Bt5/bOlA o8mW4YRD5isG3rpMZ21zigJjzWycjo7w3lRxe5vJw76xNgpbhMsvXz/ocIaC 6qQd+/I+QNhva1LS/XMUbB5e8NgqGWHdURnfwKOgiVEl9ElDuDjcvmFHCgVr 3XzdeAKE6fGOdSKTXXip/IkLCCvk43NeqRQw7DRsmQjh+9Zqm9Q0Cvo++fVI ZhvC3WM7F01/ScGOE3HMX0iEA1tFw/AVBR0FjLs6qWl/y1up35jcpNpiebgH YeZLd9ZqAQWilFs1PkqEM4U2v4WmU2B7bVcQbwRhiWbKrNLkbNkzY8NThH1O r5+bNpnPYu92oRBeOxkRfDGDglmvtpchM6b9quLmhyZzI0PEebMI82ylo2wh BerzOj+ZEeGGnUgZb/L//4UjA7NuNJv8LzUeZlk= "]], LineBox[CompressedData[" 1:eJwt1Xs0lPsaB/C5MK9UE0WhUi65RFcSsc/zS0Pa2i1yJEJJLhVll9CEtjai 3BrXjKaRLpPLruTSsSfvS8otpd1OxJLRlkbN+woZuUxnzlrnj2d91+eP7/r+ +RgcPrk3iEGj0eKU978MvJdF/fiBEQYBrRr83BQgMlea2M9ihEf8EhfezRRY EVHqGzWFEYonVQHZD1Oga2NT65dRjEiw8/V6+CoFXCrlJT0SjLBJHlpwnJ0K 66v99z98ghENJ99W46mpMFVn2RB8ESP+fi+5vSHlEqQ9a+F1sDEiJyyyqflW GqzWk0S4z2MR5ne2d4d+zYIIBw93c21Vwnx42semNxsO3Zl0bl+jQgQH9Efu dMgH8R5utJEhk+A9q7O0v8qHnCYnMx99JiERLP9nURkfwrdp9mTpMYl21ZsV o2I+6JuItikWMwnVjBv5XQN8OD/3Zq6byST2fy0rszYvAsfyTYkZQwzi8rw+ 1nZxEbTMk2Z9FzGI7NUFpm8+X4PXTV6lLzcwiMJR4kConRAEf7Ktqy0YhMPK CK0ejhBCK58+LjRlENtFyZZ73YQwe93qVdAqBqHT2MfzCxGC8blFUzNsBtEe WDzQkyuEyE3NTmYknehfEdYZPiEELYGN5LdyOpHW7eq0/lExeEZr62w2pxMf twyaxBwoAUcrg7a1a+iE9c5XmmOhJbCesow1MqAT8Tq/F52JKgG1EM6Ali6d 8C/mll29UgJ1+06L5Gp0oiq7IHRfSwno27yyffyJRsjNBJtFW2/Cx4k0bxcR jTDwMz/Ut/IWxJxS4fub0ogay/uGbPU78EdMIaoPV+B5ml0q5SvKwDHpC2Fx ZBbnmOZnzFnchz0bxpy2x03jP32K7qpjPwT+MZ9vI9en8D0dSUmGfjWA6/+u Ry+cxBfQbVFnRh34RBzk4DUT+KfYVZGy5Ti0b5v9IC0dw7tLu64OhDRCfN5M hUg0irfVTvSeEj4F91V+3/V5MjxKVytOiLWCB5Nz4WmCFEcLWrcHW3QAx5Cn Ja4Zwt9Z/jtQq64TJJsDeJcLJTjO7S44znkNzOcjrSyjXvyQ5xlT7uQbMBJJ EvL4r/GMnmWe64q7wfZllcH9D8/wH5jCOftWL+QML8jtyP0Dv15cc7AstR8u OIVoCDdWgE7706CSygGY0D6NH7zQDG+rIpqXOwxCcG1+aZn7axDrPxih3fgA Z2mRgjOJvTDeedE3XXsIHBmBkdEtEugNPG+bGfYRvFuNNY6kDkHGXj92au4w NAmCiGi+FNqKryO2+BMgOwixD5VBisaaeHqVFIq67/p+zhoFn3q5c2X6CDTy xzN3542BOtoR5er/GSIaUutVz06ARWdbYYDaF3A5cTB6b+IklBeGRywUfYG7 cQkW8rAp4LhF9i81k0HLDKrGdk9DbYy65Uy2DDTpqLXMYxZCVS+W8uUyGAy9 3H3HVgG8RrnQy5kEQc7Xpf1IAUkFDTFXdpLgQ3h5au1SQJHu5lNtLiT8tcz4 r9+8FbAboed2riQ0PhO3e3MVgFVnW7LdSCg2JuvnixWQ53RYN8ObhEMDbrdO wg+4UIl+JY+TQFnM/89yIxr6nvrl0Z4MEkpjpfeMTGmIY90U5pZJQnBH820L CxqaNKw75p5FQt+JxBx7KxpKuvHe2Z1HQtuDuZMHdtBQ/dDydJc8Em5vHTXh B9LQgHTkkbaABP8db3L0btLQ6TiT+nUVJDz3uR6hu4aOLiVNOoS3kiCr61nz RJuBmvz2Z3TJSYg1ejLepctAtkLeT5lTJKinlTeMrGSg52dGgnd+J8HM77zf YhMGyg8ON6+ZJuHID+PcABsGWp+8MCZ9joR3OyJUaF5Kpx1ON2JS0PKc9cGh gIGS2TS90YUUlPRbCWv0mOi02ZFF+oYUTL5fop+kz0T+ZkFvKpT+WTLO9zBk olPNL+x+MqJg7MPD/FFzJvL8e7Dfx5gCR6lV5lo7JuLSbIqvmFAwOG4VL/Bi oke1HJCtpWD1PGvf5BwmCp54IfC3ouCalbXOPrYKuuXmfGDrDuUeMM9ZzKmg Ja6VySX+FPyzaOzGzzQWcgPzsrvRFEgDU15qqrBQ5IVLLxVKk7X6s90YCx3Q I+s8YiiQH3T1DFnEQl67vYdnlVa/fxNL1Gchj8Wq/N1cCja6eYU9dmAhM+uL mZJYCuKyxFs2nmWh8wO5NYMJFCzVvNiiPcZCUbfF33ZdpiBzq9Gvv0yyUPBC nl+h0mr+uG7SNAtl+Fakjig9Uyo/NsHA0NdP4RsupVEwwAld+HoJhroTdGqe pVNwN2bX3qwtGIr8895b6ywKHAbm96mfxZBM0FD8MYeCapYo0TEOQx7LGNIN uRSsX8dZx03AUFS32nSM0gbc2HhpKoZc0jS46nkUsLRkq1sKMSTSyp1cm09B 584XQUliDK0cDlM9fJWCXSeOsR8Tyj4rbPaO0o05rNqJJgzNHiJwmdLVkn+p HenAkIa9WnlMIQWF5+6VOvZj6PLXo6vS+BQsueHqwR3EUOmmo3GdSqe1DM88 +Iih6ajvIq0iCuK1V/9iQGFoY1Xo0SKl5fbib/vHMbRnc67ivdIRh/cLsuQY 2tYoCzC6RsFIyoRzywyGzPoKsoOV/v//RrHvxNl3lf4vSK3GKQ== "]], LineBox[CompressedData[" 1:eJwt1mk4lWsXB/A9P42KEGWMkgwNmg5q3ceUoYEUkikUh5KiZEcnHUJmZ5NM ZcuYIZminX0XFYU4lZd0KoUinkcUhbZ3v9f1fljXun7f1n+tL0vV/eT+owwa jVYprv91j/JEam6OwKy/rxRV+4YDTlBcYzBL4JCBUyp2weGg4F/sdPYHge8t oBnSIsOha0NTy8gYgQMV1EJP8cPB/M5Ubk8fgXsalUabe8JBt9rFobKRwFmN vg9sLCPgR732g2ORBA7mu20VbboMsY+bk9skCFyjOHrTVz0KXmv8zq9dQODQ V9+zJLZGwdrouoocDoG7y57rCHdFwSOr4o4zIg7mjlQYWvhGgagjRkKJ5GCP XXImjMooONW794pfGwera1SflzSNBruxl2FLYjl4m/UOh/GAK6Cyos/fZj4H ry/S5ZrPxULRB/eOi2wOHji43h6WxcGmW/3rb9M5ODV3U4aJRhyYGn4mJabZ uDPS8BJ3Xxz4uFDHW4fZ2Dyoa4J3Iw6q+L+8d7WysbaTVF2caTyYa604siOB jR8dkJl4nZ4A/oa2NpoybNzda21erp8ECk81e3wl2diRQ+h6mSVBsz3tSNli Ns7pZ7lq7E8C5YBSfz0OG688vK8e/5EE7UVE4o4pFjandszYX0sC7eWCdpse Ft6uavlGcToJPn9V383NYmHGtNK1jQ+Twa1g0uzZahaeqPE2fH2CB6LquwUC VRaWd7h8kR3Kg4wm7rwyRRbeMik8ZhjLg64+UUuiDAuf2dVo2FbMg90KxB47 NgtrFTGJkM882Ja03Lavn4ljbK0+yxxLAYnz212ncpn4H0Oph1yfVBDs5Qap rWLiE5/1GxTS04DXZLrWUYmJT/tmFsOtNDihL9mTuIKJI9mo3U+QBkprCvVF Ukx8MHHdv1/fpsGfv1796mYycXdRHRGrfg2MSjaGxw8wcIKSlpTcnWvQPH8o 8WchA9d/CVnV2pUOL5rsi5+vZ+CRn6t6ss2zIPuexOZqLQYutXbrbHXJAu87 j+6nazDwiw6/joVnsmD2ul7nUWUGVuyclL6fkwXq55f8mJFg4Ip+jeXkTBYE bnxiupak44Pj6jIpldkgnb2172IJHVc3fsxcK3cDDgbJyG3SpOM8SYHEtooc MNJTfbpuNR2/0+1+5tGQA7qUdoiaKh1/nTrqlP4sB+Z5mbyXlqfjBY6Gy1YP 5kC9XUDh1Dw61jb3T6tYyQelrZ3b73+m4dqJ36RKo/gw+C32kHkhDXdZI2lX n1w4d5qV4aJBw4NZ/N1me/PgRop8VqYaDb/9NaC8xDkPntzVvf5amYZ3L0iW /eCbB7JzDrl2cjTcF3w6Mj86D6piSm/tnU/D/hFymsWP8uC9Rem50K45YUXc CSYf8uF5mc29HS5zwrsB2Z5hBgVQdi4dNZwQCT+sik44faAIjCJGsJbnrJB9 mfApiCyDvevHTX8PnRYu2jX5rGP1Hcjwcfw+fP2H8CRXt6r+bDUIlf5aQU+f FJqkavRKl9eBo7+ribDmmzDtjs1GZNYAz/RnPw4Vjwtl9d00/mI9hAupM6WF hWPCnSq1JcjsEdgoO/9USh4V2jl3NlnVNoMt0+TSo7Ahoe7AyX2CwVYwWZUs LagZEI4J7FO8sjqgb9OR5Jj0PmHVce6d/+i8AGbrcAtHrVdIzmhK3Bx4BWqF fWGpGS+E7evy211SumH78yrV2x8fC/dG7uvpze4F3qdFKW0pZcKC/OfnAyPf wiVTr6U3NpTCZLn0u4rK9/BNJkDoeukJcDM9gxLgAxyrvVp8y+YFeO2Icego +AjBtMDsM+G9gCfKZVcoDYARwyMwqLkPLEuC66eDBuFQi/pSz+gBGA7d+Nf9 3E/QlH0UB2UMQb5raLlV22dAv4GXgfcoZFve5v98MgSZ3UVOXxLHoHDQwlz1 5jA8zJhI2J06Dh2ubt6Lg76A/4PoBnbwN0joyrw3sGoEzP1cg/aHT0L3tfTJ H40jUBQapjV1/AfwEzKfvTQZheYZVE3sngazJ/myMhWjIElHLbdsZ2Gs8s2B XGkSbuuG1sHhWfjM+9k3KUOCtVN90Qv3WUiLjo63WE5CfO3mKzOnZmGy7Oeu EXkSFvlpWlklzoLtspcWGsokcHql2oZbZ8Gd1jgZoEnCdNVAh6bZL/i987iD 7w4SPnjHdBdsF8HjL8LOEXcSsnlfZd8iEZiP7KGpe5LgiO0PSluIYDpXYOl4 lIR/lqv/c/GQCPZuit7S5EXCw8eCZ4e4ItjqO3I67jgJOepkw0KBCF6qhy2a PEOC23vrvJMwB+QX7i21KBIorYV1K9VoKKBhvvWSYhKKQ4bK1TRoiL9matXi WyQca3uSr6VFQ1s88g0WlJDwxi+cZ6BHQ60zBohRRsLTil8nDxvT0Kc3nblD FSTkbxtbk+FBQ47zbFFqHQkuxq94K27S0JGVMco+zSS0Ol73l19NR2abZbbK 9pOw2yRw+Zu1dLTEmqT1it2mY9GQrU1HDSVqxtcHSGinTSxU30xHd9+w16/5 REJHvlmBrjEd2dFtynSGSXg5Pvqv8RE6cn9ReVVtTDzfFUMrvyw62nyg71Tp DAmj9T2rG2UYyE3FOslKkoIQtcaJLnkGUlBm1IvEXhBb8mBYkYGECyMdK6Qo WOv8p7PUGgbqSOaxZKQp8JxTTzmylYF4x0KJLlkKXhv7s2j2DPTyap0iKFDQ 3Mr5aJjGQLKROzVvr6Eg963ejZoVTNSqT/+kqk/B5LtlShFKTEQG6siViG3Z N5Fhu4qJTH1TB7cYUDD+sfLqmCYT6XdscDI3pMBoSC9h3W9MdFNDVOG9k4IP E3oXsu2ZyClAw/iqEQUq8zc7XeYxkUlNZmupJQVZepvl7CRYaKzf4kL7IQra TwpPSEqxkK1gnwAcKaCVWDa2yrAQlVxRfFtsd/UjfsaKLBQ/79i1pMPivDLx TRu0WUiFwWva50xB1eQn/4WWLMSfyAm770bB07qMFhzBQt6mfovcvMR5gHle 6xcLxdAgvzWAgq0z/KltdDZyjrLO1wuk4GyNUaAJm42WHqiwTxf7u/alE86L 2aiVZ/382BkKvsnT3RIU2ejk2Ri52bPi/BMik4kdbKQQn2Imx6VgtGBa4t4F NmpceTFP7iIF/UvG+ZY0DnrseSXONIaCIY+o55IsDrLudPvKE5usVZrtJjio 5U2BQr/YU65WB72WcFCc77qnYbHi+96+SYQrcZBm7ImI+jgKNljbH79vyEFL 1cevqyZSEJoo2LIhmIOqDOKDnvAokJWMbJYZ56D1Oj1kcBYFCdvUTu2Z5CDd 9aR0k9jzXITyEdMc9DpJjyaRTcFM8ZTPNwaBSnwXa+SI/d7Ee/GLZQQqI9fc a7pOQdE5i/2JWwi0X65pNZ1PgeH7hW8WBBMofle7sXU+BdWcwnCjUAIpqu78 42+xdXVMdLhhBKrGUYe6xFblhlwYiiZQ4lHHjMMFFHCkR1Wa0wkUcjiz0KOQ go5d7UcjBAT69Y4n4VNMgYWfj8R9TKD3jinfi8R+yOPUfmsi0MxNyeIhsav7 ds7zbCMQclUN8b5FQfr58mKjtwTKt1/a4lFCwTK+lS33A4FqFD1U+GLHNn+a qRgk0ILuM2bvxb4go7JHlSKQfDd37nCpeN8Ggu8OEwQ6nidIvia2v7tDduIU gTzPOn/vEns46ptZ8wyBLgrDNaTLKPj/f4yqXh3StBH7v/TMVwI= "]], LineBox[CompressedData[" 1:eJwt1mk4lWsXB/A9b3IQUVEZshUZSxqk1p2QaJKTokyl4SjiVQlxEHUk7IRO tilD5qGSIjx3RSikoqN0RFKGPI9jPmzbu9/rej+sa12/j//1/7LUj507cIJB o9EI8fxvHy/hU/PzXHyfruiwNTAUcOyKVVuEXBxKhRu8uRYKy73zj16c5uKA bJ6PR3wofDCsbfw5wsVR7VEHqotCwerBVObHHi6+WGRzqL07FPQfOR9++IKL nyjdqW2zCoPpSt1nJ69xMY/ps8ZC7QrceNkQ1yzDxZYrRbapZDh8Wr094/EC LpazYgmk58NBK7Li/l0OF3s5B+24LhsBdTb5rRdEHGxHhnUVGEaAqDVKRoXk 4C8a7d43fSPAp3Pvda9mDj6c/eQ5NRsB9iNtobI3ODis4kyj1ZJroKbc420r ycGbG8JvcgMjIe/rsdYQNgerELa72qIjYV3BN4NSOgd/8+RblaRHgoVpPykz w8a3L1y14r+MBA9n6mzTIBuzA2eC5uWvQ1nG3OmdTWy82y/gYHLxdbDSUXbb GsvG453abJV/osDb1M5WW5GNO3tjTVqyY2D5K+2PZ+TYeEPUOR+FqhhoOERz K5Zm40pjjvGZdzGg6lvkbcRh417B4zjr+RhoyePyt06xcAhxXfjWIRZ0l1S1 2H5k4fixrxpcST70/8PbHZDCwhkm7fqv6vngmjNp+VqThQ+v7in9yzUORI+e 5FSps3C4sVuP27k4ENQGSBSvYOHslZ7VU0Fx8KFH1MhXZOFM+o1kS0Ec7F7O 3WPPZmH6KG3K50McbLy5xK7nGxOPCG+u4+67BTKBm1ymMpl4RUd8neeueKja G+CnsZKJO8drpG1PJEJ8rYWWowoTKz4xVP16IRE8TeQ+8pWZ2N1jIvT3q4mg sirXRCTPxAkHA52/5CTC73Ptcx1MJlaNJn5bP5QIZoVrw2P6GNjQlxO95fxt aJAc4P+by8Bzff5mc7F/wvvaQ/lvDBhYLYvv6jiSBKlPZdY/0mFg9rNlI2Ns AZx+UFedtJqBb8yHVKUuE4AwzejtCVUG1uqLAK2dAuAFyk7PyjBw95khh1/S BHB+bb2FFknHyi0/D/IOJINC6oaekEI6PiNqqRmpS4GDfopL12nTcUqzunWI bzqYGam/WqNJx/ssPa6eDUkHfUr3soY6HYPjmppj0ekgccq8W0GJjtu0XEw9 c9Kh0t43d0qCjveM3DKZ7UwHlQ1vN1X307CoKT6MvvMufB+/4WCVS8NnItr0 B3kZcOk/LIHzahp+1DYs00rPgvQEpZRkDRre/2AxcWphFtQ/0U/7pErDF6PD n0uqZsHi+cOZ9ktp2IZn8fdZ0ywoiyoq2CtJw1L1t5RK/bKge1fRpaAP88Q3 +zvehiNZ8KbY9ulW53nCelR3586BbCi+lIRqPEWEy5/E9t1zOdCNBZO3T4iI jp7wN5oLc0FeMqXQx0lEMJffuSqtkQt+d9KWau4REZu3+Sdwd+UCqswaidIV EQttvDblJOTC+9nidIehOSJxa9L95LV5MB38gjZxeo5I/qK2IuN8PphF/MQ6 7kJC4q3HAQPtIhgU0JbwjwoJxaDagCPbiiDugYLn+K9CYtuSbfKJdkXQ+8VU qdpCSNz9qFmyIbgIwk2iffauFhK3Xu2LWNVWBHWU3kqfwVnidg+vpT6sGKwc z10p954lWPTWW9ZDJbDXYNRie9AMsbbeKSzuwn0QeDhODKZNE1Vd4+3yDWVA qFxRpidNEqfVpeYt2RXg6O1iTpSPE6cn2qLnMqvhtYmwdyB/lCidqJiXrngG wYmzRbm5I8RCw175Rnod2Ko6/asSN0wwlmuvOxLQAHZM87C60AGiP8O4qPRB E5ivjFOoKu8jaHM+70qutULPOre4qKQewt5V5Pxs+XtgNg02cjQ6CeSQ0PGj ox00cntCEwXvCdrT/G0+Nzpg05sy9dLel4TVMsnu+judEP/jl4TmhGJisG+o vz6iC8IsTi1MNyyCTN+FjsFl3TCu6Eu4hNXDy2+58TpmX+Hk49v5BbbvYTr2 8FLjwl7wp51PvRDeCYv/4j+8yesDM8bx834NPRDTL++YFvIdHBp5C90j+8D+ p37i78U/oDb1BPYTDEBVRAHH6VM/oM1wasvpYTC7Upau+tcAJHfkHR3ij0Ch 9uEsrUeD8FwwFrs7cRRG9690/xQ5BN7PImvY/uNQw3NMkdj4E6y8XPwOhE9C mCfrs/bHn5AXFKozdXYa+k/c3JjmOAwNs+gRd/cMWJWbxyyrHwY5OmossBOC x+vBjdFrSCjVD6qAI0LQ6mwp+aJDwv6jlXnvjwmBUxpstlaPhJjH66/P+giB pWBe+daAhF+8tG1s+EIwMTlHlzAmgdMp3zzYJATpJjVnayBhpqyvVdtyDr6X /9agbUfC19NRHTmbRGCgFp/udYmE1Ph/FnchEVTpG/hn+pPgiA8dVNglgtiG Jb/9FUDCuyW8dyEOIthUqH/TNIiE5y+rXjsEiGBZ4j/ywlAS7vLIGqkqEaj6 zLjsjyLBtXt/9jmYh+bti/UOpJBA6UhVLNOgoe9t6ww+1ZCQf3mgRGM1DYXo yD5uI0g42Vx/T0eHhqYDIbQFk/DZKzx+ixENScqmdBHPSXh1f+7ckR00RNRZ vL7zkoR7G0dWCY7TkI2qXeeaFhKcd7THK2fR0JmEie11n0lockzzVtKko+5f XzydmCJht/n5JZ+16Ch3yPVF+TQJzXq7alJ16ajroQHy+5eEFtqYFG89Hc3u eZM0OUNC6z3LHP0ddFSQLddFzpHQNjr89w43OjJM6BmqY1Lw+bqpjVcKHa2y WpywUJaC4cqPmi8UGShmeKmkDo+Cyxovxj4oMVBSh17aR7EX3Ch8NriCgRrW HC24pkmBltPvTvKrGOhX15TVX1dR4D7PS3DbwEDLZ1sq+doUfNrhzaIdYqDF UlJZbfoUNDRxek3/ZKB3VVobZjZRkNlllF6uzES6mRNGb20omPyySCVChYnq jD+02u+mwLpnTGC3konaO9UWfBZ7tPfh7RFtJjo4JWvXt4cCswGj2DWbmWjt 1C+WY/so+DpmFJx6iIlqtEuHhXYUqEmuP3o1nonq47bwGo9QkGK0fqm9DAu5 RjHz7DwoaDlHeMrJs9DyVN5OLDat0PpFkyIL3dvmmKB7hoJjPDevHStYSGLd DzPWWXFexZhaQ10W6tKr6i/xpKBs8oe3lDULJVsH86e9KXhVIWjEESz0zN3z 3X4/cR5gBurMsZB1cmq11hUKNsxmTG2ks1G0zb6y62JfLDc7b85mo4uyF4/+ FHtCN8zTSZqNXORWPC8Op2Bcie4au4KN2F8iBwyuivOPiczHtrKRwjaFLo1I cV85MzJPg9koI+iu6H0MBd9kRzOsaRyUeoG47XaHgoHjf7yRY3FQ90i3U6HY 5GMVYQeXg9b4kkOTYk+52Bw8JctB5unnXaOSxP2WZnHDVTjoFH5Scl9AgeH+ Q2erTTnIXVpZajyFgiB+lbGhPwflIqM3+zMoWCx3rUFxlIMOOGnQffMpiN2o 4bNnkoMsZC/rPBFbwplQipjhIFwztGxO7Nn8KY9xBhe5hr/bd7WAgm7z09Lv F3FRgCZHMrGQgrxLuw7wjbnIvfHVYH4xBabdUp8X+HNRm+LqBwUPKHjEyQ03 C+KibuWKmQGx9fXM9QJCuYghryer9ZAC9YDLwQORXPRHlEdyptgchWG1hiQu 6mql7/mzjILWnS0nIqq4yP+Vs+6lcgp2eXnIVGOxXzvtfCj283jO4/FaLjoZ P2xIiv2oZ5uEezMX4f+c9D7+mIKkwJJ8sy4ukkmxzLZ5QsGiDBu7gK9c9EnS fnOE2Dcafsze/85FF8tQSo3YwYpqe9QpcZ4g63bDCvG9t1RNHB4TO7sy7zex vY8dTuVPcdFLldy9GWIP/jFu2TDLRc7LttR+Evv//z2aKRAsWFRJwX8BUc7J +Q== "]], LineBox[CompressedData[" 1:eJwt13k01VsbB/Az/4hMUR1JyiEyNFCa3GdfJEXd3LqJDKFBvRKlDEVCSVQn HRWnEBlD5Zoy9NumQoakRHWLNBHnJ2OX43jPu9b7x157fdba61nru5/1rLX3 Yo9jfx5g0Gi0Oun63+75gE/NzBD4mjMl8LsbCvjqQt0NYgKXn6kp7i4NBQ3f HOdTvwi8I5pp7fEiFDpW1DYMDBGYVl/39fZMKNgUTKR19RD4klpew0/Xs2Bc 5Lrn7xoC/2yXD72uFAa/ygyrDkYR2PDNYzvVt2EQ+7Q+rlmBwIc6WgOmY8Lh 7dLfU0tmEbhoJujzcWE46EU/fnSXQ2Begf+ZsZxwqLPNeXFSwsFdX3qcljSG g+RFjIKmiINVXdfJachGgN+77Zd8mjn4sDnwEqIjYPfQq3OKsRxMdFUelouP BC31Hl97WQ62oymQgZ0XIPuTx4swNgcXrurLtu+/AKvuf17+kM7B57dYVKwV X4BNG7+LFCbZuPNURMRKrSg44kp5N/WzsU6y4GWLVxQUpk57bW5iYwK9gmpx FNgYqLubX5Webwr0er88Gnw37rTXV2NjnyNR34LqYkCjUb/rP8ps3ObpZ/P8 bQzUO9Dc82ezsVb6Wj2joRhYdCLP14TDxg+9RfFLFsRCSzbBN59g4daV5Rde +8WC4byKFvsuFq75u408uOQyfP/Jswu+w8Kx5+M8+PwrsC9z3Pq5Dgvb66LB sTY+SIpKMysWs/Czp/YvJz/yQVgbLJO/kIVV1I8fkhPxoaNH0sBXY+E/b619 9sesa2CnQWzbzWZh5zlVngctr4HZtXk7ez4zceXjqy7tJddA4fRat4k0Jrbh enOHsuOgYntwgPYSJraXibA4XCQAQe0mPSdNJi7lSbrD6gRwdL1yF1+diXPN MnvvvRaApm7WeokKEwu/hKxTGRfA2enX051MJtY/vo0XYRYPFrkrI698YeD1 dwx/1lXEQ71sH//fLAZmWjt6KrXdgPZah5zW5QzcpLRfp31JAiSVK5gWGTBw s02125BZAngV1FUmLmXgoD9qaYu2JYA42aTtwCIGPilpvv8wIAF4pxV/TSkw cExO4ILM5gTwX/lsk56Ijh98VdQbOJMIqklresJy6XhPgN8/a/qE8FeA2vxV +nTc+uKjYd9UEliYLG5cpkPHGmxhyS61ZDCmDM9oL6bjt1WSwFfGySBzyKpb lUvHKQbdXUoeyVC2+0TWhAwdLylLyw1tSAbNNW1rK7/T8JryXWULt6fA19FY R5ssGnbT61Jo07sLgcdZQtelNHxds3wcz6RCSjz3zm1tGo7qryswVkiDZ6XG yW8X0bByROH3DI00mDuzJ233fBqW8/n3ffG6NCiMybu/XZaGT5X2pf7lnwbd W/ICQzpmyPLf5GIFP9KgNd++3Nx1hsy6wMvY/Oke5AcmoidHJeSJceeqWcMZ 0I2F4zcPSEi7vTP51axMUJG9k+vnIiHjTl6fuTgvEwISkufrbJOQbw4aUsg8 E1DZvaEYQwkZVq2v5BadCe1T+SmOP6bJR7266c68LPgVWkMb85omDY3Nlqcc yAaL8wPYYL+YjEppXOc9Lxf6hbR5fGcxiX+mf44yzIW4AtWjo7vEZJWwYEPB 77nQ+3Ejt3KTmFwWGKNo4p0Lkesv+21fKiZ9H71f87UqF+oooyV+/VNkzabw Vq5vHtg4HYso9p0ip1YbfR96kw/blw9v+j1kkvTPs9O58+MhCI84jfUn/yJN 3w5VLIVCIDUj1OmJ42TW+qeKRFgpOPm6WZHFo+StyhT/RF4lPF8v7u3LGSb9 b8uPt4ZUQeiNqbysrCHS2i/CWb6pFuwXufyrGTdIZsxymn95az3sZFqF153r I9XTn6b1RjeB1ZI41YriL+SrXKex+6deQM8q97iYxB5yjV4q7FNsB2ZTfwNH +x3pZTSoP9TyGrSzes7dELaTdB9Bh//5TljbWrj4Ye9Tcvm5W60t8e9A8E0+ vjk+n4w6PJIUGPkBwjcdUkpZkQdnXeg7NYu6YVTtBOkW/gyatFh2a6w+wcGS mzn37dthlR42Tn/QC0E0/6STke/gVYNZ1F39L2DB8PQPqO+BjFdWvZ5RX8Gx gae0P/oL5EcKzAeLv0Ft0gEcIOyDQ7Z594SfvwNaB4c2eA1Ciq353/TePrjd me38gz8Ef9y9pnChuh+qhSNX7W4Mw9zO7yp3bv0A36roJ+ygUVh/rL/ojfUA 2Pi4BfwZOQ6ByfZyz/sGIDvknMGE9y9ITOV1F/5nEOqnUBFhNwnWQvcpx85B +GeCv0l31yR8Y9nekns7CMMj3a+tnCfh628utIp3g6AxEDZ+znsSGJtTTLkf B8HvPTYTx05ClxEX1X0ZBPVKVDbUPAm6/J2nPg8PgncoIrv+mAL84MO4pbwI lOmo4f5OMZw1bk+5v0EED41DHsNeMZh2uc6d3iiCHc5l2e0eYtgYNZC67TcR XCkxvTTlJwbRAy5zAIlA3kff1pYvBrXDHNFCaxFw3qk09zeJ4aPz3O7dO0Qw Wfjlhb71NJQWHa3U2i+CT14xnZlrJcA9sUFvRbQIkgQ/535AEji5snvc45II nLDDX6pbJMCABV2CGBG8nMd7GeYoAbP0J2/HLoug+mnFc8dgCXx2utGbGyeC uzzRE7kKCThtTr9GCUWwr3tH+jGYAcbqpojneSKgDOQeL9CmoXGqlCtpEUHO mb4H2ktpaNFj3DbWKoKDzc8yDAxoCJvuaRh4IYL3PpGCDSY0FKxhFdT5UgSN j6aP7bWkIU1Tz/6MDhFkmA3pCj1pqH6UH6H1QQSulq8F6vdoyLHj2pxLAyJo ckr25erQ0aca5UF7ggI7K/957/XoaNacvc8UZShoNtryJMmQjn60LVBrlrqF NiLHM6Uj9cHT8tazKHiRYZ1pbElHwbvH/VfOpuDV8OA/lu50dHF0dahIhYL3 lzba+tyR1pu9eoSpScFgWZdOjRoDTR1u7HiwioIz2jUjHVwG0r1y46aTCQWz YnOr+hcy0I18nWaWKQV6LmddVHQZ6FDsilsOqynYP8OLd1/DQOL9+x+Pm1Hw 1tKXRXNgIG3XtvAF5hTUN3F6N95iICtNk3/pmylI+2CSUqzORDc+q/Q6OFIw /nGO5nlNJsq1KH/QJfXWnhHhziVMJL9r9fy9ThQM9/59c0ifidxHqyqd91Jg 0Wdyddk6JpqrbOC514WCTyMmoUkOTLRsPne3tTsFWrKmzhcE0voexo2vvCi4 Y2I6f7cCC/3udrPx0ynpfR0jjyqrsFBZAF9gG0ABLXdrTZMaC323ClIolNqD 5+5juZCFQpVZcyIDpXnVrtSuMGShgjrnA1rBFBSOf/OV28pC2DPOfWsIBY2P hQ34PAvxF622OhAhzQPM0wbTLFRbWXi7+goFa6ZSJ8zobFTwg/DRukrBqWIL fys2G0XLyP8MkXrMMPyoy2w2mn2AN3stn4JRLn3f1YVs9LAn8F7WNWn+EYnV iDkbpRSYXDgtkPYrc1KhPJSNoKoE9yVQ8FlxOHUrjYNK7lu/GU2joM/zYqsy i4P2nZro2HCPAlGJpriT4CATG+XkcKkn3Gz/OqTIQaNly6IV06X9fXiPiNTk IGO7hAbdDApW7HDwrtzIQbIPdbRssygI4VesXhHEQY4V3yy9cymYqxxVrzbM Qato9zncQgqummn7bRvnoBalPTwnqWVcSe75SQ7ylx2XEUo9lTNxZJRBII+i xqUaRRR0W3nNbp9DoOuGa6sWFFOQHbjlT/5qAgUfz76sVErBxm6597OCCMSS m+psK6egiJMVaRFCoJfmT1bKV1BgbGRlFHyOQFXzHRyspV4cfCa0L5pAhbsq ZMuk5qgOatUnEkg121gpuVI6D5tbDpyvIJC1q0yjG0nBFp8jCpXS12ZSwFPW TamrBZyS0VoCRbyco9gidVHPbzL7mwnkWsO+vgFTkHj6QY7FBwI5K/Y4q1ZR MCfVdmfwJwItyCucv1Xq2PpvU4++Euhe78H0s1KHqmltW0wRaJeR/Kp+qSc2 VIztGSHQyHH7VYuqKfD12JPEnyBQeDGXtUvq/ouj1vVTBJItv5x5Uer//x/Q 5sUdGpVS/xdQCPtF "]], LineBox[CompressedData[" 1:eJwt13k01ev3B/Azf4QUobglIpKoUBTd/ZhKJd0iSdKlgTIdV4OQjEW5nAwp ckiZMjQRiT5PoRBSLpVUhibifIQo5zi+57fW74+9nvVaz1/vvdf+Y2t4+O88 xKDRaPWS+r/3wC0eNTND4CgTd//vDiGAExdpm4kITDpqi8aOhMBC7k3XE78I bOG4MU0uPAQ6V9U1Do0Q+NiDNUbBxSFge3fy+tteAjtfzeGv4ISCQbmb871a Avs0X98uUxMKv6pWPD58jsDne1d1qa4Lg/inDUktcgSmL5T6PnM/HLp0LHIq pAnsOVL9Ma8+HJbFPbhzjUNgv9VRL1z+C4f6rTfbjos5uDvWv2XgRziI2y7I qQk4ON5BGJ6rHwEB7+zP+7VwsKn5YGdmfgQ4jfwXMSeegxXMt5d8yo0EddVe 7o5ZHJwjYvqHtUZDYZ9HWzibg/n5e4vjP0aDYdGnlbfpHDzbxHy0YCQabMy/ CeSm2PjauhN1MvNi4Kgb5dM8yMaMqJJHIc4xUJYz7bWpmY2nhrez5nyJAVs9 VfcNiWzMSTBzc5Q9B1xzhx26SmzMW7n9GyM2DhY26b71lmfjZ7b/lJy7GgcN u2nupbPZ2Jfd3LvwThwsDizhGnHYeP67u01BXXHQWkjwNkyysIGNBv2X/nlY Mb+6dcdbFnZc3GG2+M15+PZDyy44k4W/73NJ8VkXD3/nT2x8vpSFc08N/5g2 TARxeWV+tQYLv6650q1jnwgZdcFSpYtYWE/HZfmRI4nQ2Stu5ClJ/i19zAyz E8FuIbHNic3C3KwEbS7BA5OL8x16PzFxdHZTklsQD+RCTPdPXmdi5TgZ1cgD F6HaPvik5hImXi87pLDUPRlS6myWuagxsZdzg0EnNxl818u/5akysV5AY3Vy eDKoaResFysw8Z8lHEfj7GQ4M90x/YbJxJ2BVv/I9iSDZfHq6ITPDLy6WjtN 3SMFGmYN8H4XMLBYXDulyk2F9rrdN1+sZOCs/XtoZ8rTgP9Qzrhcj4H7PHzq DZvSwOtufU26DgMXhFgo/PqQBqIso5eHFjOw99eoUxVSl0ErZM4voRwDv/cN FknvuwzHVj+zWSag415XjZ65s66AIn9tb3gxHdfeylk75ZcOu04qLTDUpeOC q5VZ/sczwdJIo2n5Ujo2kfuxJiwhEwyoFaGaGnTMS72z9lp+Jkh5WvcoqtBx 7q0197S6MqHKKbBgUoqOd88dXaeJ+KC29qVpzTcaPnk8OldmbhZ8GY/fY1tA wyJ6hefU/mwI+oeV4aZDw07/XkxqXp0D2akqmVc1abj/osUaZZQDzyoNsroW 0/D5+LyAo/Y5oDzjfN1pAQ3fL33zytA7B8oulBTZz6LhQOfwCavcHOjZXBJ0 unOGVBp3b/T94zq8KN3xcIPbDKlpaeU5d+4NKA1KR498xaTGwBqx+sI86MEZ E2mHxGQmNzT1oUEeKMzKLA7YJyaTWwPIgxZ5cPJK1oKl28QkN7DsR9/hPEBV N0YurBCTV8t8uxPv5kG7sDR7z/dpsr+jwrzMLh9+hdXSfnpNk7vDkLd3fAFY xgxhvYMiUph9Vh+bFcFgBm0+z1VEsp1+tjX/VQRJdxV9xx1FZMyujQ7fDhVB /0dzlRobEenuaqpsxyuC6PX/BtjriEglO6+IZ5+LoJ7SXxIwKCRxeJhDanIx 2Lr4R93nCslnFyKDGqZKwH7lqI3F6SnyhE3KporQ25Bx1OXnYNYvUuvD1cLx tntAqkWp0tMnyLJNd87cVqwEF+5+a/L+OOm8OVIwWlMNz9eL+gdujpJ9v5GU gv1jCLskLCkoGCENLIKFOLsOdize91staZiUXcI3m63VAA5M68j6iAFSNePp ZtkjzWC9JEmx+v5nEgWc5Qu92qDX0D3pQnovaXPn5Ewmqx2YzYONHM13pP2q A1NDTztAs6A34lJGOxlcqRr5+swbMH1RpnG7/yk5p5N9JjPpHaR8lU1tSS0l V6U5rvaO+gCRNp5zs1eVQJ9Owkd+eQ+MKwWS+yOfwaKwVJcumz44XJF2s2hH O3y8eveM191+OEU7xj8e/Q78o+2M7ul/BkvGgWMnG3qBd79JpSP+C+xp1Jp7 MO4zLF5RK1de8xXq+IfwyYwB6J71Na9r6BugdeBp5jUMeCI6MXloAK6+KXT9 zhuB5xPaF7a0DMKTjLFEu0ujcJTBMo688R24j+MesU+NQ+sXqcWpDkNg67f/ 5M7oCVBbxj+5anIICk9H6E36/ALj2Y+PHD81DA1CVE7YTYGdE13O5MswvJ/k 2Wg7TkHBZXb+t6/DMDrW02HtOgUeAXOJKwPDsHAofCLCZwrCFD6rTQwNQ0A3 NhHFT0FMgjG+NjYMqjWoaqRlCmTPRrmRNAH4hCHy7XYhWC6zKF2gKgB5Omos chBBm4aip9dmAdw2OP0A9orgkcaLkcotAvjLtaqw3UMEgXqeCVJ2AkioMD4v DBCBx4AFkWsvAFk/3a1beSKwVdMSv3IQAOedQstgswhccq2OMd0EMFX2uU13 47Qkj/eCqgAB9HldeJNvKobw2E3h6ZcEwE/5ofwBicGfuH72eZoAXPDuXYqb xbCxJjxTeFkAr+ZrvQrfI/F+0xnnDAE8eVr9fE+wGN6/enJdKlsA17QEj2Sq xVCe8Pq3WaEA/u75K9cfZkB8+LDCZJUAKD2ZB39o0tDOlBbBx3cCuBk6cEtT h4Yq+wLMOroFcLjlWZ6eHg19CnCrb3wvgG6/6BQzIxrSkdZNvv1RAE13pv33 WtFQw13Npcf7BZBnMqKdcYCGlrf3XOoaFICbVUeK6g0amthgt1H1twCaXbK4 KkvpSGE5vyR2HgV21sfmdy+jo1lpr19aKVLQor/5EX8FHWVR6l5iiVtpYzJa xnRkJ39wKECZgra8jfkGVnTktUXbbacKBf+NDr+3cqejWHbrut9qFHSfN9/q l0lH0rRD7r26FAxXvV1aq8RAdH7vjpV/UhCqWTvWqcJA23f8ftkpsXR88ePB RQzk8aW2/jRQsGzfmX0K2gx0UKQm3YQoODijleq+loHmX8iQd7WioMuKy6Lt ZqCXn+2DDttS0NDM6Te/zEA7Yz1D5++k4PoHo+z7qkx0QtbFjnaQgomP89Ri 1JhIlD3REybxlt6xDIclTGSpMD53WuLR/ntpI7pMlJVkZv3rEAWWA0aJy9cx 0etlKrRBTwr6xozC+LuZ6MlX59kPvSlQn2XsejaFiarFn04oBVKQaWS8wEmO hWpWLnhYFS7plz/pK6/AQvaQu009ggJa8ZbaZiUWUs1R4MVI7KHl7me1iIV8 Uk4v3R4pyauUULdqBQvJLlC+8iGKgrKJr1yZLSykHtfXKThLQdODjEYcw0IF jnyLznhJHmCG6E2zUJJ9m7g5jYK1wpxJEzobNVCNzjqXKThx3/KYNZuNfB5X HoyQ+OeKSN99s9lol19QsvEVCsZV6H8nLmKjptqzDmnpkvxjYuuxDWw0uD44 1T5TMq/8KbmHYWzE+XeyPSaHgk9zRnO20Dgo80YcaBVTMHAg9oU8i4PGUfkf XhILKtREbwgOmpCpxUUST+7fustzDgdFUoaHDUsk8719g4hW46Bjexdpbiil YNVfu31qzDmoVD7yvO1tCk7zqtesOsVB1cePGJuWUaAsf65BaZSDyhdVPYh6 SEGiiWbAtgkOetRkFfZYYik3UiVmioPKYmKlZyQW3pw8Os4g0N/ysiGnqino sfaa3T6PQO3PuY+9aygoDNq8k7eGQFul2+U2khSY98h0S58ikOHWW6JXTygo 5xREW54mkPbyT8rStRQY6FvrB0cQKK+gRYwk1ggODRuIIxDHOdC0VGKO4rB6 QzqBWgdHd5+tk+zDptZDMdUE0qu96Kf/lILNfkflajCBqMrRIHeJn6RwKsbr CORzvMkhVeLy3j+lDrYQ6MS9uBCRxOkht25afiCQ7F4qreEZBfNytjoE9xHo Z9at5UKJ4xu+Cu98IZBu17pE/QYKwpTUt2lQBPqh7NB6UeJJs+qfzmMEcjRe U1grMdfDmc+bJFBH6DmnnxIPxo5vbBAS6ItWYKd2IwX/fz+gixs0dJ0l/h/F Z/2J "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange->{{-3, 3}, {0., 0.9933281710927294}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.586717201255003*^9, 3.5867172137716646`*^9}, 3.5867182299813385`*^9, 3.6187674468140655`*^9, 3.61876748811384*^9, 3.6187675333939357`*^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[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVjnk4lAsfhsfMGGMXSitZQ8eSyulY+r32ihZlK1RK1rKvUSZLohhUlrKU SDmUDtmS95VkyGRJZIuRbTZUskw0X98fz/X8cV/X/TyK5/yPX8DjcLiyP/l/ 68SF0577VYIeQ35yNVwKm9gUJH0OqYIW4vTqseuSWLgYIWj2RBVs1A6kVHtI YiL8292XPavgfd3VY45WkpjOxMu026lVQF39Z9cBYUns8rMViZbhKjAOS1zr pUpgUmbXRNUjXwJ3d+cz6RJxzPhiGnH2RTXEjmm+tuaJYhdjbt1Saq0G5APu 7sAXUSw344as43A1zA6EEXKaRbHVWooKRqqBZfpCTGmKKFYvGGie4VwD1iLf LwiriGL6Bbbx+oK14Kb36tyBkyKYdo80McapDhTOH64oHydjpyclblVeqgOD gPqahA4ylrIsIjsTWwc3VfXdrlWTMY48QcW2vA5aG2b2jSeTsVLfH2bK+Hro jddMQ/aSsR2CvXGt/9aDjOGykHqaELZ9312CFP8VlJaX+GS6kDC1FQ+LQekG aHMfjou1JmF/1e9LLFJrgEsGIf8mGJCwv42GRf450gDXlza7d20kYUcQZelz eQ0QXffcJqhPEIs+8GJ7leFrqDPZuhOzF8Q+O9GNnSIaYX7o2oDreSL2ZVNB jNKtRjBj6hH67YjYxGBAE6egEbJvRkqdsyRicy6yFtdaGyERu2pdrkHESG7O NqUbUNDRKk2V/UbA9ngzT61WoaBX8atWOI6A0RrwRl0RGLTKKWjV/4fHcrQU A5PiMCjM8pxVK8ZjPvnw2DQVA3vf3zZFWXhMnBIt9fIRBm4nzd26ovHYcbPF iZwPGDypvhDEssJjw23MlPMqTdBsn3lflCGAfevrGl3sbAJZicc6RvIC2Bur OdmKwSZQ/kjpipMWwO7Uih/ynmyCgwrudz6TBDD9e4eqhnhNIG85o/Z0DodF u769gam+gbj/0me/NuEw0kTNruSoN6B5gxFa5oXDNn/Lj9u2oxkuTwSqzV7h o4VhG54U7WqGmpSUz93efFRzNaVjp1EzHEqam26z56MGQlfWG9g2gytWkb2o xUedtzmXOEQ1Q7rF1qf7R3+juQfl3lM7m0HmzZHCSxa/UflCqjQ+4i0ELjMP hCqsoconKA+naC1w3DjgiTPxF5r5fLywtqcFOtPOpyb+5KEiYhZFycMtEG9O u4xO8dD5t8Il2vMtUJbUpHqijYc26t8uC5N7B3vm3uHJVB7qtPlxDcnjHdhn M3bc28pDbzHe09UIrVB87qPIMqygC/5yPA9jGsycmfF6UrSEVrs8lxQ/QIMv 2mmerllLaPhBK9XK4zTwr5J6uDV5CeUphR/je9KgrvBEap3/EirQ1/c4K4MG R8tIQ76GS6iEUeYJ2jQNzHTluh/3LqIa5PXlGhlt0B9YAwoSi+jpB9JnOVPt EKvQ3l94bwGl3mzGaZynQ/lh590Ket/RyKK6cEZPJ3BDs4yylOfRqzPCVzsN u0FAENtw0ZGDKg+njySF98BGMsE8ToKJ3hl43/yO/hGcR+9r3e6dRBmX1O82 bfsEuESOb+vsOJoxOkrY6NgHm5J+j7hcHEMlnQ+uzJf2Q9PM/V2Vr4fQ+Urx W6ozn4F7tuf+T4N+NH9DfPEwDML+rPVCjdQedIfUtlLb9CHown2yl7XpQGWn pWyUOoYh1tRK2/DQW/RDa3VIqOIXGBjTHw5NrUHZCTUGKmdH4Wh+XjrjQgEa fIkbesBmDMjvSg34i3nQt/XzOuznGChJv39Rr1cLbIOA6MnbDFiZ7x28utoM U65umjYwDuSBMGOhlx1wtOMrPX16HHpaDh8ae9MDPk9lkIT4rzBKqdU+SeoH 35u5P+u0J0DdZUJBbGQI5Id7InPpE1C32mG633YMIOLeD1fvSYjkBsh/p4+D 5aZXFWelp4BL3Vvz4OUk8NWTjNZVTMHmSBPdb09mIN+4QpTgPA3Xu5XaO3U4 MIfFPy3kTcNIS9Jbly9z8IzKMlLMmgHm9QSbnOVvcOL8UxkGwgS6/Qs/3fgF cJGF9lNmTOhyorVHpS6AR0svpdeCCXe7sjLp2QsQsQM323qICWq+0ffiyxcg n+1Ae2bHBPG1y4om/QswE0y8Eu3FhG9VVk28nT/havyZKbk0Jhzq3mxdMvgT SovX1x0ZZYLp+L+E1iNL0FpfG7LGYIJOCXH6h/MSTHQ665ZNMCEWWZjT9F4C ed7DEmEWE+5F4Z/WxC1BxhHtzLcLTPDZJWRwuG4JIpcsgw1EWCBfqWUQqrYM Bw5GaKntZYGJl6OiovAKTHMGH64ls2Ba0HXo5g8e6FnZDRSksCDX0rcriPAL oh/SpUzTWIBU0Mo9ZX6BtAMWc/0uCyxaLIOjdv8CI7TYVfIBC6ZEZ/wOh/yC jPSATYovWXCqqnO4fPkP1yelm4+ywOWVjw5fbA0S02JoUwwWxL7vW6TLr0EP a5l/Y4IFi4r1N8p118CzgO1HZ7Jg98WJkAK7Ncggd9s4LPzZZz07aZu3BtOD 98lewmyIxTVfENT7DRkxuyg3d7PBZ91G7yhvPmRTJ/1w+myYjCoTQaL5kFeQ 4xq6jw2ET8kJG6h8eIIKGJ4xZsNM5b6wlSo+NPK7f+pZsUFnH/YXHYdDmDFB voOn2MAYsf6gexSHIJRKB41YNrA3e5/z/4FDLNM8LfLj2YDxboeK/cYh1g+2 7JFJZEN/tLlfFVkAccDi1q3d/PPvfJ6TqrwAchFn19F1lw1nI+myKQcFkGzK gknEUzYIxgx0xRcKIHOUvVqtXX98WzLKHrniEfLPxe2BH9nwJtpjrc0Hjyh5 18pu6WODWYC1Fi4Cj9jZGq76DbGhT0emODcDj9QqmrzfMMUG3qZ8txwaHqG8 sfH2+MUGIdKWxMa/CYgU0b1YUI0DKwli9eXKREQjQjXnuToHTnkmf1i3m4iY cqZundzJgV5DYfNkUyIS0usdUq7LAVtp57VaNyLyucjfzN6QA+5GhGDph0Tk oUUUo+gYB16NKDmOKAsieokZ28yjONBfH/RK25CEkF6k0rArHLDQ0G03syEh g4PJwcYUDjgu0dQDXEnINe24Nv0EDmTimvIkKSSk61NwqAaVA9XpI3y/dyTE X8WeLvHoDx9bcP3iKISUNcldGWjngJX1qf1yVDJCYcuoO9A58OLe7FrsIzJi t17qY08nB+xKppPFa8nIqhdZo6OXAzWt7joUBhmxllrpbfzCAcJMUsvXvcII 6/TgX0XfOZAdM3JyZkIY2bGaO+y3mQucPL0COC2KqPv6E0a3csEpvG3ycZgo ojloonlUgQvPCBZe+lRRRLt2KlxHhQsbZeYbOjFRZE+Irsy8Fhf+SVL5e0lV DEE4zQcDTbhQhXV0XV4WQ0ydMwMYZlwQvCCtkCMjjpi1e2XZWnLB8fh/LVPa 4ojlE/HJXdZc2MnbsFXaQxyxcXekfLfjwsnXF+xq+sQRp2FWdbAXFxDHbfEv mySQU9avR776cEE5XuSo8JgE4lxPJdpd4kKOLt7h7m8J5HT2nuN7grhwbfV6 rpORJOJud5W7EMWF4tpXu/PrJZHAjnUqYVQu3GmwKT7jJoWEbyf+iE3jgnFu J17bWwr5H34bVSI= "]], LineBox[CompressedData[" 1:eJwVzGk8lP0egPEZM8LYJrIVsoeyZqvw+0siiRBpkdLyoEQh2pDylJKxlTCI hiKRfe++8XQk+5IkZUmk2ZR4jCbOOS+uz/fdpeob5HZagEAg1P2v/6un9WH3 sfZMMJ5Q/soPp+InigLSqXNZILrei+6fJYnT5WhVV+2yYfV6R8Glc5L48K2K vumMbKDr2C85Wkrizj58kSa7HOhWZW41+SyBK1Hsmyr3PQbrLrJ8lK4ETsGG 9U48yYWX595bGE2I4c8WvjfIdueCeZvPzcR6Mdxuy589nUu54LBuYiI0VQyP Tlc9Y+6cB9lXZVrwPWL4YkhAtjgvD0xrtOky9aL4F22+RL0zA3wMKJuvl1Lw aB+JrKDLDNB6UTnFpVFw5YcqmzUZDHjw07cED6bgh0l29ok8Bhzidf8J3UrB ez/djzrDyIcq4XHjfxtF8MbkjXNSywXQJBqzwv8sjD/k7+w7m18IEadPZQ56 COHjCYQBp65C0Lsiq1iOhHBd1VeDeguFULh3uadpsxD+ym7bMHdXESQuaMt7 Cwjh0wkGYyFTRbAz5vnYs7I1uJmqIvuqejH05MvnsuXW4O/tFoTjc0ugakt3 W/QqGVcbLqcEtpdAxJ12KTEuGT8XECzm/KME6i2sDas+k3ECjSlJtSkFSeon P59XZFx7eEI2dbwUHGu2vxeJIuOWpn9JddNewqmHou1nBcl4fJu7ylB3GRR4 Kli4aZDwjfVTUb6TZRA6kbrfWo6ElxeHjXEWyiDGkKlvTSHh75PSsoWUyiHH KdU/Yk4AVzv6UXHb2XIw+rfAoq9JAK+d81WgC1WApFBH4ewRAXxK4aKUL6oE r0Wu5E0GEQ8XI13kuFdCpFmtc0I6EaespvRd+asSWGXDv54mEHGDqarElIRK kOkP4gpeJuJXSngSr0cr4YG5K8HfmYhTbW+Ial+uAlUGnV/6m4BbnUskc8qq YdNcnm2EDwE/FxUfr9ZWDaO5Kn8cPQg4PfnOuoOj1XCI6HVDdy8B59dGa+Br akBQzjFM0pyA1wte2JV8pAZUf7VwAiUJuFmO6y0zwVqI1Lvb9vbWKqbfL0WO 8qqDZEG6hOqJFUzF4gGJutoAB4ZLh2Ld+JgW74zdiFQjROku1Ojs4mNb6i1u M7QaofB24JcRUz5mbjlK2ebcCLVp842nFPiYM1KX8s1qhAgJV4F1E7+xaw5l KpU7msDfJuefrou/sWGvLiuviFdglKLYsDFnGXvTKGDZG4HDk7zV155yPCxd T/VC3E0cEpvsahopPCwgGwp2JuBAqpZV0FtZwsSjr1GrnuBwvTKTueXrEuZm uziV3o1DtqQM8WnFEjbaPnv/pEYzxO8pFgl3W8J+DPWOLfY0Q8j+bzuV0/7F 1v/Ivqm0qRUEqi4xCrYtYuru0bnTb15DfZunft7HeexXkNzyGas3oLX7/vHz cz+wY4+ljrOm30KNZp9mpvwcRrvXStA52QUnixqbmfJs7DKjLnyivweUVOQ/ rbh+xyK/iUT27OgDP9Rnz4ybwdRHkz7FhffD7KS1QofyVyz1Q0frf7oGIDdj F5P3dBKbCNR+0Kz0DsK7Hy5pHhvHksfGSPIHh8D2d/2HsmejmOSRPby5ovfg 0vJpCPMbxuYqxOM1vw2D0rhJhnDKIJYteyt/FEZAxJ0+1HSnF9tEVSpyTfoI 9Lr1Bcau7di6GaqTWucopBxkrtiatmDdbdWhYaqfYXTfpKGnQRXGjK3ZrnF8 DGhGH3QwWzoWEsgOc3Aah+Cpafn7vAwYUhxeiy+MQ5C9cFN9SxUwtwdf+5oy AUyqrPJPbjNMe5/QdYJJsE5f+3P2RTu4dH7pSpqZhEnXzHaPql4IKJRGsbe+ AD7fUjx+ehDO3qMv1OlPgX7SbJ36zWFQHu2/TO+aglQB+nnqtVGAiIx5b/+v cP/M37JdtuOwW6Hh5XGpabBg/HSYpk3Cqnac5dqX0xC4Yng4uH8Ksq1eipKO zACtMeG5XeAMcPFbhXnLM9CTYv/BT+Q7lNC+W6qmfQOXNyJ+Q50scD9ZKD2B ZkH6uXf/XcocFOXL1DmPzUKa0CGz9qYfMMMayf1z9ztk5mur+PTPQ3KUUfS9 rUzQzJwfsTJYhEe0r+cJZkyQ3vB0oMNiEbJy0r3DLJjQSjH45LNzEZ5hxB0+ VkwwKhyxyfBYhFerfQvG9kwwXYrRP3RtEWajLp4dOcwE7yq752s6FgFFV3jq xDAhVtNR4Gjgv8CNNtVr62WC7KR635o3SyC8sKhyYYAJpy0UizwGl0DNv3bd hiEmBO4i3CsZX4IDrjv45z8yQWeDPyOStwS1qjYdstNMiOvN46dv5kF0i5P/ md9MyElumu9I4gGVfCpfUIsF6soilRlnlkEnQjO9VJsFxo/i3J1Cl2Enazr+ 0GYWJHby7CgxyxA66B/6wpAFpQFjEc+zlmGYEWTrsYMF3FNZl2LfLUOu3dUJ xn4WZHjTYp7b/wbj28lKu66ywFnG7bS/GR/WlCW8wa+zYGCXlHfnLj6MjNwN sYpmwYWtcf9YuvPhhv7NdrNYFhiGRNnsDuZD77uQMB0aC4pnXz9aKeJDkIZH l8QTFqT57yxbr/4Hipvlrn94y4KZ8TuzTcorEM2U1vbsYsEzYmoy0WAFDshQ B/p7WBDgqafmCSvA9xPW6RxkwYKDeITx8RXYS+UNvvrMgtub9z1tyFuB78dG tjB+skCz5jhNf/MqbOLTR8+vZ4OgJRdz0SQg7bNBpDFFNkhrNbiH6hOQ7oiN rstGNuj2GB99Yk5A+rXT4QYabCBam6urOhKQSaih9JweG26IRhOygwgIsVr3 XLBhg1b64+SyRgLyGv1eHeLHhu3VIvd/+RDR4b1Nn74EsOEi/qUlLYCIjtTT yAcC2eClnog5hBHRsUcmbiYX2ZDCdqAN3iWiUwci2b+usiG/4IpeWjURXehc q3GJxoaoVVGRGaoAuttokRRRzYa+PMcavE8A5dDkm5Tq2LAimBMZMSaAKn2X vrU0sEGY1xywmy2APgvXIvFmNmj+VKnQFCGhrR7mc7kdbKhLLXTk2ZDQKNvU pWOcDZHTm8KMa0noBy5zNfgLGxwQgxzYRkJrUhcKZKb/91+m27YMkZDh9qoV HyYbjJ45b3y1QEKxf5uU/Fpgw0yOQwfZlIz0N24VVxblAGNDiszGOjKy/Sm1 rVWcA+UDRmoGb8nI6/XPU35UDpjRg4d8PpJRzNnyxnIZDiTGPpvXWCGj9zVG 5+xVOFAwH1DoaCeIovcbdgSbckA3tXw4eEQQDdzQi2v14UC9FNdVSUMI5VEc zu3w5YDs30+/dloIoYspvi4Vpzhga1l/u3CfEJLKT5N54s+BsCXNYla4EHJ7 Q8yLCeFAj9wxy5JuIdQvMVRvc5sDnPtCSm9jhVFe2lxWXRwHqJ1j6owsYXRR RfSGUTwHIgMPztdUCSMpY2SvmsQBFQ3r14nTwsjVo2iAkMkBH7WCIPW9Iqg3 M5KFlXCguTdL5R8VCnqskd5jXsYBtwgX7wZLCgp+UVFeWsGB0DXc7hUvCqJi 3yJyajkgFXucGJxMQfsn3QSjWjhwZEyTrikiinq0NylbD3HgoJJJpKuQGMou syFWD3PAEPdgdWqLofPbj07pfeSAtkFG0EtHMSThlFSkNM4B8bjd8bU0MeQc 9NvszywH3qa5dklsFEfdVT0ujX84MGHz8bOqhwRaEnZ9eZ3Ahb+sAtzVb0og taP9VCBx4Q71UtbnMgkUJvCur1mYC4F0iknaWkmk6DLi3ibNhWItRurzEUm0 O+9I5R1ZLijtXey/K0RFwQuj6xwVuLA1faumiRoVtWaOvetU5sIY72TTDy8q etHSYHxIhQtW9B4BfX8q+i8dLKp7 "]], LineBox[CompressedData[" 1:eJwVj3c4lY0fxs/i2I5DxmuESii0tMj3kTSlrPKmrKisrBRp0NuwZZSyid6o FE5W9DySHGUrDk5GRjiLjNc4h1+/P+7rc93/fK771nD1tXYn4HC4lj/5P72T XD9vfRwF24bURvnXKJjrYZOId7lRsMmy+ywhiILdmVENGPgRDZPRfmdM9CjY xyM/zLfbxkEtLmvzbWtpzHpt8176dBxcOyPQo8tJYz9nqw3OxcdDnr3z5yyG FIY/2RJj5v4QMrr9B2huUpjG8uurPtkJsDQVZtAQI4lNjG6Y3sVLgOO2qY+b /pbEitsyvAgmiTC/mW7H2SiJmT6PdU7pSwQU/+mzXYME5mLlc7RWPhneBsVN lMpIYDrGo5+i3ZPhntXDobAxcWxa6xycoiVD57d6F/VqcSycb7GDZfUIcus2 l1d5iGM5/25WWxP7GNzdLBZfNIthHol5Twb6HoPC55dNNi/EsK03VWQLdVNA wXjjjex/xLBaawkRoKeAL8GBL24shg0JWNOXiE8h/IlkclGpKFYwft57u/VT cIp6UTWRKIr5d/aNCbKfwp6BozV5AaIYvuBrX6JJKgj1OPvGbBfFNGxf1leH pME2/vlb9CoRzKXQ8yllKgNeHqpIC2OSsXSF+Heh5plQYBZyRwsjY4y7pe1j qZnwaBNTeEseGbN04ovWmGdBR5Yf1c2HjKmKHaqhHc+GU1khUhQSGRNDGXou z3Jggw0jsxQRxl7MTb6Xb8mBHgsdv2QdYcx8s+BI00IOGG617qykCmNhTzUu 7LLMhRIiPbJpVAibD/TMlFzMhQtO/m9YcULYsDZfqsoyD1bOvJPAsUlYmJNU hm9IHvDqlk8lMEiY2mP1TRvy8kBoYtLFtp6EnSGaH3q4mAfH7o3KemeRsLYf sbcv5OUDU8azqNGOhFUnrp2iLj2HSHevR7FfiNhj/v52r/wCiK3KMctqJWCD cbhOi+YCkFDuO7VQS8B0NT5805srgIjFR1OeNAL2wXwPg3egEAK5fjZpTwnY WJzBQOBIIZSY54SsdSdgOzVUOKHrXkESeyTGF0fAus3nRGJyisCIM3/h8EE8 pskoEfNpLIJG+dAnpkZ4zNvTT8JyughEO252HtuCx3DxLGmK6RuYpqZkJv6F x7QZQ/LJg28gscRt/wgPhxkbXqS2xL+F/slyol8GDotpsFHvaikG89i/PKSI OGxt1cht15/FMEM+84Q8u4qWvAoa4M4VA4O0mi76cxXtTkjJJKuWgOXwaqj1 h1VU82yfyh6vEtDkX7wyfW0VrZhyVUonl8LhDq0+Q94KOqIUQHVFaDB4c4H1 gC1Ar0kQA7g2NNivMnR/gSlAxVaT2q9fpEHRZ7nQ680C1GDk3cOkOBqY/ufI KC4SoNeLFqXqmTQAtqTTpL8ApZiFi2uHvAO5QP3m88t8dJ/3QxK3uAzC8EKO j5X4qPftmBjNhjL4vWvYqlGMj6YnRsidZpbBlvU4kgR/GeVXhK3HhMtBosBC DetfRquE/A8kOpSDUqVJ9kDeMrozy+ruTqEKWLLvKB/cvozqd1BJt+0roaxj uX3d2SVUffcjImX1PdDOUfqc2hZQrcUL5r3UasjTGXxwrX4B3Vy1+0GeVjU0 vT5VllK1gO4yZortsayGNwZ1LtN5C6glso7qmlENXZ833RC5voDeOFysTjOq AfOiUJ+qDQsow755n33wB6giEN0Zd/5D6dUE47ZgDJRn1x/Mt5pH/5rO/Ed1 Yx0cMHGwSROZRdfZhOWM0euh7FVvzUOF3+isr8LShX10ELb5pWgcOoU6ZlOd 2WNfoAHpUtNp4aDx0XU4nfPNwOi3LtqvzEJD8iqvDXW0gq3JwWJ2/jh6a1z0 VqtRO8Sa7NMc0RpD1zETfkRe64Akbc/akNlhNLnna93n5k4QUwibMyseQod8 tB/Vqn6HkY/mvYfWD6CJAwNExdNdsOXLatW0bR8q7XBkcaqwG3zUSJvl7LrR qVLJmA3jDChsti9+VdqJZsrfzWdCL8gIeqlm5a3oRopqoVVCH7yZ6byWdoKO yv2iWGg2MeGwRalyxe1atKWh7EqQRj/cZ6cubXGioax75XvXOw+AuGfPfpZB Ghrowwk6bDEIvm3tmba/n0KXCkMGmxsEW8nSq11sGrD2+t0YTRqC5PAg9V37 amHsnIuuBfwEQ4tIzOYFHU40DTcn/PoJEcSz1lrCbeBZIIvcuzsME9+oMa0R neAVnT5XqT8CRcEU3xWfblBjdoSkN49AtX7jablNfQDBqTPnPEaBZv5jw46Z fjio9P6tM3UMnvAIFmJpQ7CqHWks83YMzNbg1hUXDUPmvrfiRIdf0G30ryte cgx42N2C3KVfwCn3+FvPfRyK4ieNNVLG4XCp7HVbxiTYnC+QHUIm4GCGyNeO dxwozF9TaTkwAbMJgT+NTk7BL3ZvjiBqEojL8pn90r8h8fbWsOjtLAheGlDX w80CL8xQr6GNBc6E3ob9svMgMjev7t/JAi3zM8mzKvOg6VEhp9zFgivavoTX WvNga2XEv9zHAvnAC5Nb985DhYbpV/kxFmwLurka4zIPYR8tPC4ss4D8QnpH QvE8UEhu+UJabOi3+bxR7fR/sO1BouqBUDYwTBgSpPcLIFwcR8dusoF5zFd5 pn4BenujAveFsSHC6FndZNsChOv/07jzHhvSz68ozo4tQNv3wCCdeDYo1URc 9JNdBN/1ds1Sz9iwxVLxnsrlRXhVq3Cz5wsbbg9OTRbrLkEYS1b7VDMbbsjt w3fsXALbNZTOjlY2+JhyK/j7l4B/SUSn6RsbpDJS7AMcluAYZfHbh342dETd Ch6MWYJJx97Neb/ZEDX+aKBnegk28tOZl//igJv2qbmeT8ug7eVLHFDhgOJe Ge9tHcug22uqe2ItB16RyxpTBpZBv2LsmsF6DkSlS2ZGLi3DjitbZKf0OFCt 8CZYYisfEHbdEX9TDuT4uJ1+ns0He+ZkWeAlDtCVam/NRwngzLGaH8OeHECf GxtopgrAoSqeZOvDAerZqruOBQJwfLLDekfAn/49+Y0oXQButrc4s6EcKF/s ktUXXgH/Jpn1V+M5EK7hotJ+bwWiqncnBJdxQO6c3sTLpFXIilesUa3kQIMI u7Hq+SrQXBfGP77nQKrYSONw5Sr0i1QgkrV/fF8X4d7gKmy32zWV85UDy5cN 5u8r4BAmx/DE10EOUK7OPKu+hEP0126XVBPnQqiho7OYAh4x+03dUyfJBWf5 D47/aOIR+/rfbpcoXPicsEtaWh+P3PEqqS5ZwwX7k/gAJ3M80l2+1fuQOhd2 xtqwJq/gkbCTW776GXKhqL7y22g3HukM14usc+JClOc9udA3BCRX7LC3kSsX KhSPp/+oJiABSa4nSt244Eq4L/73FwJCzU9Z88yDCz/jfuPTRwmINR2feyeQ CyXPPJ3OqhKRDqmuKtMHXDDctKFbNZGI5KZMZVRG/tkXSjxknENEAtTFw7fG cKEO+iWvvyUi1G3IIY0ELrTTP8TatRIRK7vCTlwaFw5oHvdNlSIhbWm32GgR F8IjNqR1JZGQ7PVPW3cVc0G85/Fd3XwS4ve6tORNKRe6IlV/PS8jIRR0PDir ggsqgylDyr0k5ORPa6HbH7lgYBq5TXydENKqvVHNpIsLIStZirQaISSz2BRf xvjzL6PgPqddCLm89+yIXh8X7oy5/D47JoRIWSQUqg5yIThrcGVIWhix9F3e KZjgQmrB1qN57sJIy7vWE9UCLjQ3jg9oqJKRBRGrtzdxPKBHF9xV301GNM92 UIDIg91GeoIbNmQkiPC9vVaEB586mYv20WRE5USvTYMsD2h7tLeNrpKRg7kO tAh5HniVnl9SUhNB/OaYckeVePDc977RR2MRpC5t4HuTGg+CqLDmeqgI4jk+ crpDhwcGc69NJlZEkGSjCxVJm3lgYmisrKwhinyI+6VoZ8CD4Oif0v1mooiM 4WRP944//prM/TrRokhFOM/hB/CAnGNW4KghhggrLzmN2/GAA7Hh3v7iyJbL oViBPQ+IXwLPncgSR87U8tW9HHjgTi0U6LaII68vrg5xnHkgy1SZn9GXQGxp JLcZLx6wUrbvIaxIILfI9z/RLvOgrMbp5o8dksiLM+QNV/15YFf+/rKMjySy jBMbW7jKg5GWwYqPQ5JI7nHpSyvhPKBUzFSY90shTdkP6ehdHmycVX3YpyGN zM/I6IQ/4EEE6hLlcVEaOZIqN0mM5UH2qZsHmQvSSADn0dH6eB7ENTgO39Kk IOmIwsv7iTxQ7Kp9Sz9CQXTJJ8yzknmwL72VoO9BQf4HB/xoaw== "]], LineBox[CompressedData[" 1:eJw1V2k8VI3/HTNmLJMsoc0aCVmeUnZ9b08RJbL0pJRQtNiKiGQrLZaItNiX KEvIki11LwqVJUuIsYUhzL1kCzP59X/xf3E+58U5n/M55+WRdfSwdCKTSKTP f/F/XDMzuDhyIxT2dynavF8WwCzrW6d8N92BsARVpnipAPYjER0SKLsDPx/W NLdfEcDIh1I/a83ehWBmSfzQzDrs32S7lIgLYRD7z2Q9i2cd1u5p9kiGGg4K /UIvB9vomKPxvvtvMsJhPFtP1yKZjt2ak/Qc7I8A3Kbt8AVtOlZr0m+oYR0F Cx99eWMC+DFL6WbdxtkooLW7HnxpwY/9mK9WPxMdDROGFQ21CvwY17GWyANO D0EisaC4v4MPk13N93FLiwF2n1N5rDYf5mDhdrhGPA5E64oPiW/nxZT0xz5E OMWBfvoxo2tUXmxW4Qz8VxoHbzRWuO2ZPFgI23TPlMVjeL9B9nZLDg+W/lJF SuzBE+i8fmLHI00ebJgzNXuREg9aPuzOrPM0LGfinKuGZTwYaOgnbTGlYVc7 +pictHg4dyzefFyDhnHlfOmL3ZcA9wvXjgVx0zBZ67yP1X6JMMpIN3LPoWIO uZfjhWaSITVr/mI2iYolbYx+42+YAnbk6QvUKW6sJ7SkjZmQApFWARLZ37gx s7NsvneGqTAyK7e+Io8bk+Q/9K70aBo8O6e10nWKG+NHe1QdnqdDVHe52lAd BctemHwr3pIO/s+0xqeLKJihCsek6Xc6mDnsdVBOo2DB8bLOWmYZwBr0y9MI oGCLXpdTBJYzwPjfqhdOOhRsRJG9vsosE8KfPA+MrCRjwWfXJ3v4ZYJQ6c0V /VwyJvVEZuf2zEz4tPTHSjiRjJ2iGB56uJwJFezDW+UCyNjX/gdBzplZUObd pdv7LxmrjpWeEVl5AWs2T+IlOrmwJ+x/21yycuB9m3b4O34ubCiK1GHanAOv /A2SytdImLLs+07VhRzoo18O+TBPwt4b6vQQB3MhW+zjJ7FBEsaMUh/0Gs0F MgUviS4lYZqyEix/uVfw0fLHvUJHEtZtuMAbmV4AlkOGLuFxa+i2nmJ+t08F 8Gneie10aw11vXxlndlsAWgfOCdte2UNJUVPCQrtL4SqTlf2Q9M1VLFnWDxu qBDCHvzyl6Otofp7L4i0RL8GJXKkWW7AHzSywUqmq6UI7nu8oL+4yUGlq0aD HH8Uwa6TXjxhbhy0+JX3IL5QBO4nSssC7Dhod8zTFB7JYth4j/t+IsJBt53u k9BxKYb0+u3BmVQOWjHjuDmJpwQ+G9S1f4plo6ObPUUckVIIl6k3dKlYRQ1c H3LjRWWw2hmgkqC8groGRUZuaygDpeIX2pOSK2hS7H3RE4wyOHZ3NtxIeAVl VwTLY7RyONTWnSL3exmtol49GGtbDoOKfAOu9cuoZqpFqCa1AiqftrrscFpG 1dpFuINsKqHvm7byy9zfqIz2Y4rQ2lt4i8cFt1ksoQrLzoa9ItUgpZCNHjBe QlWqtO9lKlTDDc+vtdX7llAtfQa/jlk1DF34PlW7cwk1Q+REHJOrQcVKIk+K toTeNC6SKdV7B/Zju3Xo1Ytoj02zgY3ve1CNl8q4rrKINlaT9b/6YpD2n8S+ NskFdMtsym3JHXVw5HpttZDwHCpnFZzObPwIptHf98oenUXnPTauOBs0wuTR zD18mQRqlyZiP838DMl8CQKZb6bR6Ig6ktK5ZshUUVypV5tE/TIrrw+3t0J+ ger3U/3jaOAEX2CrXhsspHqIMQPHUDlGTH/Y9Xb40+R5Y4vzCBr3/UtdfXMH WGhd/RasO4wOuyk+rpH8Bur5DOXjdgNo7OAgZdOJLsiya5PlLuxFBW1Nlmdy u+GBsV1jTHMXOlMiELl9ogdqQk2rDht2oCnioVkM6IXg4YcOx+it6A4hyVyL mD4wdZ3dqNLagIqOC5lua2IAXwVd8Jd8DdrSUHbNW3YAtnn1pI0vlqBTd8p1 5e0HwVlBXeNpVgLq5cbyNjYdAqqgSJ2lezx0SfQIYwtDEBJq/So/pBSmdK/c HHs0DDRXuk/3CAbMMw7KpvAD8Ktdn6e2N4J500hzzPgPcHzputXKrhUu52xA 7oSOAEfSYWPY1g5wiUhaqFQbBQOTxIKGsS6QYrT7JTWPgvWuIea1u70Avglz Zy6NwePYxsBZtQEw2vz2tb0IE/7jDQ+V3T4Ma4ph+sKvmUCuP6FoLjcCKQav 6RTbcQgSUB9AnMeAwEJzMlbGoU44WE8sbRwKoif1ZZ9OwLVLbIde4idYncvZ MIz8BKOyQteZlGnIzRKrNBv8CbUJbMH71gSMT/emc8InYceZP7niRrMQG7Qr OEJjCugJKv958s0BEbxXteHrFFhF+VXpMeeBd2FR5mrHFJADlf2G8HnYdqlC dGvXFARu0IsLX5oHaws9tnvfFKScbuDgvAtQIbv/izhzCq5L8vgs71yA4FrT S86rU0BpyJ/a6rUAQtzns6gK03BYqmWhjboIu+/FSh70n4Z3/TJFW2EJaEVR jVjANHxz8SW9Nl6C3t5wL4PgaUhi4QpHLJcgRO32J8070xB/9I/cE6cl+PrN y1spehrmOc6CwZFL4CF/vHn987/+szWh+X1L8KpmY8D3z9NgmHvSsi7oN+xg JzHct7DggPTEJHN4GRRdPCiDEixAjOc/nWYtg3LvfmVzaRZsLo54y/i9DGoV zOvq8izwiT4puyq4Anuu/bNhRpUFqaRkwdJ9K4BM15lc3c+CJrmEiR0pK2DD mCzzusiCSJtzqoVOq3DqyLv+kcssqI64yYj2XAXbqmhuazcWdN92dA4IWgW7 Z3ss93iywHom2zsofhXOWwey5v1Z8M6pKGRbyypcbRKW94lmQVxC3EWODhvC q7VjfMtYIHzTefSHBAdSoze9k6xkQfm039FeFQ6UOv6eqH3LgpU05cwxfQ4M 8FYgAjUsODIgP659hgMax7Vm0r+wgH3xyr3uFA4wWHvNvwyxoIySt7Jd4Q+o SWsISNFxePz4reV7ozU48EtEp04AhwjyL9GXJ9fA5uOv8xeFcEiKtcLzXNfg lktxdbEYDs3PdurQH61Bd/ku10MyOATpmHxQGl6D4GP/fLmyF4coW5cjSftJ SEeIaljdWRzGI7aw6mdISAa/saueIw4OOj/pz1ZJiOcjR/OS8zho3EgO86dx ISJZT8WeX8KBU3Qg8YYEF2LZyJVxywuHRq4YdXsTLqR9fVfV/ns4uA22HaS9 5EIyns4kV4bhsMU/6IhkCRfiKUMP2RWJg/cTbc0j6N+83cgh2RgcCiqdhFjd XIjF8dwOUiIOXNlz+Zb8ZORrYuA0WoBDyyuGyKoXGUmTj2/VKsJh6YPh/KsQ MnIlv6S4sORvv4Z2kZvRZEQInfBNrcDBt2lg3iuPjBz7YUkNqsUh7+xhn55R MtKquENqXxcOD7ice2bOUJCUov1cZT047Lz70KDcjYK4654eVe3DoePzQaXM AAqy3jQmV3IIB3uf3b7zyRTEzGNVk/MTB4F6tlXoEAVpedNqXs3BQZoWYSnt zo385rV4HUAigE3lWWDc4ka2nW4XAgoB6pkdzxhPuRFv8re2Gl4Cikj9Vtm1 3IiEea9VwwYCys3PrqRvpSJGGbal98UJcGCLFqbupiJXFhiihzcTILfQOc4y oSJ1iYPfmqQICDtpHhrqR0UuT4yeaFci4IXmzYI+BhWJ03OueKRCQG/SxMGU RSryPmp803F1Ag7e81/3UYiGCO+d/N69h4DuqZcbjhjRkIoQwrYfCLikerTz URkNoW1dOTtxnIDzO229fQt5kH/c/bEcGwLmxZzyNdt4kFM1bBkXWwLKNvxs SprjQfIvrA2z7AkY0FiveUOXF7Eu5T4/50LAl4ZDHUgbLxLIc/dDqTsBJXdD L1GWeZHsUzzbfa4SsGX2wvU8WT5klcTP/O1DQG2n2olObz4k46jgxT8hBHhE 0As/K/MjTWkPG9FQAt5s+UVbOsWPLM4JK4XcIyDUobfYLZIfMUkQnaQ8ICDG f3Rv0Bw/4sl6fPhjNAF+zwVoiBIdSUI25t2NJeBUhKTTU3s6MsPc7Mr3jIBz ZKPpC510ZItuYtPnhL86X7eumPA65MADCdXIZAKEkncP1pivQ55oSOPrnxOg NXbTPbljHYLdTTP7mkXAToeRW+KbBZDJ77KFMdkEXJXatEneQQARVX0uaJX3 d9/t5+YLeQKIQbD8FdEC4v//CPI/iQxNPA== "]], LineBox[CompressedData[" 1:eJw1l2k8lAsbxmfDmFOWIS2vXSUdpGwtdD8qqY7IdnJQSlG2CsfSxuigCBOh ZMnaQR1lyRY9j0qUnSyJ7Lt5HjpMgxle74f3w/27vv2v6/pwfbiVnK5aOlNI JNKHtfufVs/2c4dvhMCiprmv4zQDs/zYPB2wKRQMV8rbRosY2FASOrC+JBS8 bjit7AtkYBSTp5/158JgV41M7feNDOxQytnU+5fCwdl5Z+gjB1GszdvsoaJQ BFxX+qjG1RLFnI4dvPc6IwJcNKvMbgiLYnf+lfPu77sPYvrc0xXFdOzd8T5j beto8HToNcFk6ZilQuP+urloKGM5ZE7yRLCh+cpdZ9hs6D6Pz/V2iGDkU02R h50fQDWvz4YUK4IpLf/j55kWA2y8ocaDKYKdt/A8US0TBzNqRSeyNYUxNYPR D/ed46BZav7qWWlhbG77Gfi9OA7QeQN+2JIQFsw31Zm2iIeFn0nWm+qEsPS/ 1eU3RCVAs3fVt6FLQtigYHruMjURCmXiC8pKaVjuxAUPbctEeDCZ5b0uk4Z5 tX8bE6QlwtUVTPdZNA0j59Z/iz34BAL0U3OyXGiYkvXzmsrrSXA6L0D26WYa dj7PLVFiNgWaP9GXj0ZQseSN7Nc3jVMhiX2T0+VPxbpDilrHnqTCO9uu5TRn KmbmyBetMn4KvnHShzqNqJgcw6Sq+GQajGCFOc/5FIyBdmucz0yH6UYpa+ZN CpazMPVGpikdUv7SOZLqTsGM1QXHG3jpcDRiosPCgYKxEpVc9M0yYLXR4p36 QQrG9XFLXb+YAXoJl3RSqBRseAdfrMIsC742yzl+iSNjLEexlKvXs6Bfe6j0 7l0yJp+g+Ou2rCww1QR/2xtkzI5qbPJgMQt+OqSonjpHxlr6ooJcsrJhds9X IkKDjFXGKswyl56BnLyoT0MDCUvgH2p1z84F8Y17dDj/IWED0aR208Zc+Dhj d0WXScJ2Kr39orGQC/eDPcyi6CTsrfG+buJIHlBNB1w7p1bRsehd/T4jeaCy xYBV/HQV1VOS5dxUeQGbfrNnV4itol3GC/TI9HxgjOYrVa4KUOXuQobnp3wI Szh2g00IUA+3a+vM5vLBunX1ZEC/ACWxp8UljF5CIR57KxwVoDu6B2XiBl7C ndWz1ZksAWqge4nZxH4FWWfnRMKFBWhkrZViZ1MBWJHv1X5U4KMKFSNBTkMF 4Nnt/0ydyUcLX/j24wsFsH/QNiydxke7Yh6lisgVgkdWxdvSyWVU2eGb7D73 QihTrr8QW7yMls06bU4WKYJnXnk+I6bL6Mhmb6YTUgxTBzpu77q7hBp6PKDh BSXQ0XwqWlRuEfUIioxUri2Bkz+7xL0lF9Hk2HvSp3tLQOhOk/yo0CLKL2Nt xYRL4ULmltgpnIdWCHkdibUvhQn1qIRr1TxU76lFiJ5QGVSNBzJtL/NQzTYm Lci2HB7II0c2Vv1EFffGUyVW38C6G7INvEAuun3RxbiHWQl/WyNRSn5cVL1i 792s7ZUweT969ylPLqpv0MvYZ1YJeo5+JNSei5ohKkynlEr4KdhdM7iXi946 VqBYfKAKVD3943TmF9Bu20ZD24C3a/t/K999ZQGtq6QYtARgYFn05Xu09zy6 ZS71LznV93DcTmxEMewHqmLFSh+rq4EX4akRmT2z6PzVjUsuhnUQZ8Kydx7G 0bNpzHMzY58hUjXzwQ/pGZR9/z1J7UIj6Ov1XI55Nolezyr3H2xrBv/SHHsj 13E0cEI0sPlAK6hvX1n/q9woqtIb0xfu3wbCMS59U8xhNO5r/fuPje3wp5aZ afP8ADrouSO+Wq4D5C076aWTfWhsfz910+lOkMsrHCZMe1Bx++OLs3ldcN3t 83a9253obNH6yG0T3aC8bUQtl9qOpsqEZPdCD1CTekbbs5pQVQm5PIuYb/D0 +JflgDu1qPS4hKlyQy9IIs9ZuTiGNtWW/Omr9B3uVLxxuFFWhE6Hlu7feq4f fg3NdUEtn6A+nhzfY6YDkMvWWDqskAidst2S2MIATLWgGfeMimF6/7Vbow8H IelcUcrFfAzGzpzfaQpDoO6myV3XXQvmDcONMeNDsMR88SOT2wRuuVJIaMgw pA0Oa0X3tIH7/eSFcs0RkAiXyabEd4J8b9v15MYR0JTYiSpv6wEIePLvGddR EDvYWG/6pg+Obn7z6hxzDLzMeXqc/gFY3RFuIPlqDKx+jia3tw5BquGrX6j2 4yAp9Za9T2gUCCwkN2NpHOhvoZfQGId89pSB0qMJcOoPvjjoOglWF3KlBpFJ yH+sytm+Og152RvKzfon4UNe/Bm/RziMz/SkCyKm4G+V4d/m22chNmg36772 NPi6EjE/An8AwdLVqG2ZhjG1l1JPDs7DnruxckduzsB21SHxHE8uCBdE12G3 Z4Dlv7ky1I8LPT0RPoasGVBxF3VwDeJCsOZfn/RCZ8AlxTLpUAwXWjp8fNXY M0CxLdt88DUXrm61aRTLnIFvf7E8zq9w4UX1xttfP8/AUWnburT4n6DKT+69 soUDEl+6/4jr4cEO96vUflkO6JS/qRYf5cHOHqOd5gocmDUx//KQ4IFm2Zj/ rq0cqLKz2VtCWwSdP7WkZjU44K1bXOm8axGQmffHvYw4MJhxwiwwbBFse6dK fC5zYEVHXk/aYAnsfqvqG3bjwIS8Vv1HkyWwr2DTrD054JrmcSbEagnOPtax 1PHmwBUfvzZF9yW4aB3Imb/JAWSYe2vwyRJ4NUhu9WNzQMSm/EUCfwkiKvfG BJRwwHE/49DdT8vwlL2pSq6cA0W9iZrTXctQ7MSbePeGAx8+S9HOjS3Dd3oZ sr6aA6GrtczbVD5o2+jPptdzADX6yAo/yIdejq55/QAHlgd5bVJlfNBU0F4v /wsOcyQT3u8VAjj8g7nv/XocWP2H1fXrBWBb8+PiZQkcnq17LNDsFcAd98LK wg04XHaTinJZEUBX6W4PE0UcHNvDtQWHV4B1Sqv+mi4ODmiC9y9fVqA9WCP8 vSMOZ2+/l6MLkZAMxjGPA044CPbcTokVIyHeD53Miy7iMClHu6C+iYQwsx9t yHRdy0PsCY/+lYRY1pEz7vjg4N3K5zOtSEibWGeF0V0cdh6p7zyZvcZ7NJtS Ho4Du+gRa+zlGk/xl+DdkTjEkIekYyvWeHsQE6UYHIw06iVVWkiIhU1eOykJ B7pa6CEdPglpSQqcQfNxMHcOYtjakpG0rYnN+gU4bOnpVjh8kYxc+6eo8GUR DsmzyrpHr5ERCXQi4GkZDikN9pPx98jIqSFLoaB3OHza1/XOpYKMNO9QlT/Y ueZf1WWwW4WCpBYYkUu6cfh5UvxLsxYFubLfYUTjGw7fF/5sjDpIQcRMY/Lk BnBgGlVoudlRELOry3qCSRwMHn1Lf/2QgjS9bjavFOAwyr3uobGeivDoFq9u kwhgELzKaXkqouzQJgFUAgwPmdn1a1ERX0pHazWdgPy92ffcbaiIrHmPVa0U AbTFwHTDdCpyNMO++J4MAU2Pl1bri6nItYVe6RObCbhV9gc9qY6KvE/q72iQ JyCymNVKnqMibhMjp9vUCKgRGd22zZiGxB1wKXuoToCMZ4HZtB0NeRs9vslm FwEP3YJ8yF40RFJ36muXDgGu0eHT21NpSFkwYd8HBJi1Bcwm82mI8H+WHCds CBBr3vispUEI0bpyE8u1JSDHr5M3NSGE2FXzFd3tCWA2CHzChYSRfy6tDnLO EUA13uDggggj1sW0i/+6E/B9SwlPv0oYCRQJ+1B8hYCYP4yZjO/CSI6dyDY/ LwK45zMR9qowskxijPH8CMDtLa63HhFBMk6KX14JJsDDnsjc8VUEaUh7UIeG EEBBs9eFkOgI919JteC7BKTvPFLyfQcdOf5EeooatZZHfwqruUVHvDnxJ2rY a/1HnyVeyaEjycjG52GxBLQWs7vMO+jI7NhmD9HHBPi99v1E1hZFtuxPavj8 hIDYk1/tFy+IIoejZDUiUwgYTta67J8giiRoK+BimQR8Er4n40piIFhYmllL NgEaI6WZUnsZyNRXpZcxOQRI/KEkW+TFQKQ1MsWtnq/1i8gBt38YiCFr6zXp fOL//wLyX4ktJms= "]], LineBox[CompressedData[" 1:eJw1Vmk4VA0bHjPDiMgSlRJKURrK+ib1HJVUn4jSYslWKltFQr1lrzAZa9Zs kVAqJFudI5V9iayNXdaZOaPQYPD5fnw/7uv+eS/PdT3XrWB/w+wKkUAgfFjF /7iS0z83fDcIMr5E+6sqrsHMvjVPeW8MhuQIz0f3ZwSxoSR0QKQ4GKJ1gvtO fhPEiIapdTrTD8F558AExU0QO/zsUkrY1RBw+RYys1JPwVrdjaPl+UOBpatk uvMFBbM/fujx+4xQGPhjVKnvT8EC/si69/eGQd/+OPNduhTs84leA42z4aBn KTOS+l4AM5Nr1K2ZDoemdOFOo6cC2NBMhZo1nQ4c8f6U514CGN/pJtqRKxHQ +DbeVkNPAFNYfH3HNS0SJk7Ote1r4MfsTF1PVkrHwJ1HydzzJH5sl96vL2FX YuBbbCq2iUnGpndaw7miGAgMu3tCt52M+fOMNKdMY8Ftm8LfsJdkLD17z1ap J0+hlK6JKJ0hY4NLU9PXSAnAmPqUqF9MwnLGHVw0zBIALxn3aHhOwm61/Rxd SksAE0aIbXQkCePLqf8ZdSgRXsfU+zS7kjCFs3lfK3ySIEz9WE23Mgmzy3VK EOM8gxeL1ZM7XhKx5A309/cMUuDoKR/JiDgi1hVU+H00MQWaAr9X7H5ExIxt eGs+GqQC36l5NZYjEZMVMvxYdCoN/uOyfyxEmYgJoV1Uu+fpYPFAgX2ukA97 OTtZLt2UDlyOW8a5LD7MYM/SiQZuOqREWLV5x/FhfgkKjjrGGcBQf0va9i8f NufhlCIynwHCe1rF5o7xYcPKPNEy40xoXdOhsHOIgPnZiD674ZMJP+zeTAp0 ELCtT+VVdmRmwvbNYW58dQTMgmRgGDGfCQ/zaln6BQSspfeJr2NmFlwmS5z6 FUjAKqLkOBILL6AiXyvEToWAPeUd/u6clQNrHdx1p8VX0IFwQptRYw6oKIWf FCGsoLsVPv2gzuaAfroNwYC9jH4y2N+FH82F62NxPP76ZXQ0XK3fYyQXXL+9 Z34JXka1Fbaw7m1/BRXCNOr0yhLaaTArSEvPhxWrI94y/Evotq4CIdfafHjq FRQqM8dDXZxurjWezgfnbRdLqWM8lECfWiem/wY8ESSNVstDlbsGpWMG3kCM uoKSEp2H6mldlWiiv4UcHa2tL2R5KK36jHxH0zv4eWe5OuvYIipXNuJrP/QO Ei30kZn9i2jBK89+9uw74F033Hmauoh2RsalUGQLQM1U87Pa+kV0m9XPLfud C2DHYPRS6NACWsKx35RMKQRTmnp3vP8COrLJXcIeKYLYJ1N2l2rm0YMuEWT2 u2JwLzzQ1+3BRV18abRt1cXgDbVs5jUumhz1eP15RjEMRxx6vOYSF+WV+Cli Ah/AR8Vorc1xLlrGf+tolOUHuHZQ3c5Hlotqp5oGafOXwKWZGQWr2r+oaqsE 2fdCKQhSz9k5Kf1F5f+JJYmtlIOtX8e53PlZtKaCqNfijcG476kjL/lnUJnp lEBZpSqwuEXtO0X9jW4/45c+WvMV2l+EzW2K5KAzNzYsOB6sgQdvrGjUq2z0 UpqELXO0DoYEVjxYr6ZQelgVYZdDIzyOpSXJGE+gPpmlXoOtzaAjvVifKjuG Phhf86D5wHd4Yel1waR3BN3OiOwN8WqFDU9exTgzhtCY7vqqb41t8MrltpZg 9QA66KocWynbDh8S1a/jyb1oVH8/aeP5DrhDS/x7YG0Pus7yxDwntxMiDeYa Nx7vQDmFIrQd411wTUpJU7urFU2RDspiQA/QA6qSBm2bUCUx2VzTyJ8gI7TJ KMKkGl0/Jma0rYEB5rHPdBLrMLSpuvi2p0IfDOjYshbDC9Gp4A+6irb9YOf/ SC5vcyLq4cryPG40AJuFL08VTsZDx5YucWx2AMh9c5Kj0kUwpXvz31/Rg7CY VS46HIrBqLXdbiMYAnOH11zrzGowaRhujBwbgg7p/otj75rAKUcSCQ4aBv0n US2P37SCc1jybKnqCMh0Sh1Ms+mArYxWn+TGEbg46xfAGukG8E78Y339F2gE 9dor3eiFY5vK39pKjMIfE46eV8EArCiH6Im/HQWd5q401+QhSDn4VphkOQbn m8gm37+OAI4F5WQsjAEiWq8VPjwK+fRJPYW4cdjK6jjVKTEBZxxyJAeRCciV sBopipuC3CypUuP+CQifGNTwlWXDGLMnfSl0EkRueSw/D+VAlO8+vzCNKXh7 /Z3LlZ2/AffTola3TMEDqYHA321/QP1RlOzRe0wYLRHnaE7MgsC78BrsPhM0 Czc4Z0zPQk9PqMdBPyb8O8kxlVqYBX/VwFrtYCYEZIcGCgvPQUu7h+cuOhMY dENrXeoc3FA0bxR9zoQ5bQebHPc5eFW54X53HROS9/ZbryX+BSVeMsNNhgXG lj2je7W4oOx8g9S/hQWDoVyGJHBhd4/+bhM5FmQ/Hn65fJwLqiWjXmqKLEiI Z8xPWXFB8/ZeSQ6VBSlCiaJKwVxAmFUnbumzwIlJmlHp5MIFxmSxxzUWNFg0 /xzwnweL/3zsHXZiQeMMNYRBmwfLMjr5rCsL4turZIbi5uFSvKaZpjsL1IMN 9gvnz8Plsw9YM/dYICGmH9fZMw+3GsQV79BZUGQjfMhZewFCK/6J9C5mAWbY Yi03twCp9I0fZUtZkJXi6BFBWoQie+7453IWZG4/nS8mvgh9giWISCULXESy lWHPImiY63DS61lAK5W3vuCwCAyWlkn9AAt6owbFUn8sgqqchshWYTaYtxys K/3CgyO/JfZXibBhOusi0eEHDy58/X35mhgbNp/1AoURHgQ4F1QUSLEhr/NG WS9pCTo/7HMxlGfDmS3lj62PLoHf6b31N7XY0DBIbi6oXYI2f2pIlQ0bDi3x /VM7tgwZQsddDtizIYlaZGs5vwzu0fYmhZfZUPgLDxYUXgGJrDip59dX/Uhl bX+vugJmNXwZAR5siPmrmWDntQKtoh1l+o/Y0Blt4qhKISAZcZxnpSFsiI60 KPolRkDc5YX999HYEJpnnf1ahoBIqCOGCpFs2CdwwPmmKgExNc9tIySt6pVR dGvOEZCWpAdMNJ8N2c3xRF4uAUlTTGjWeccGoQALD8Z7AnLzdWHBm0I2tJ9t nfiOERAxdNw7tWQ1X4uW7lIHATk9ZMbv+5kN3X7nZGzIfEizstLWQx1skOl5 9CnTgQ9pet9sUrHEBvBUk7upQ0S4gqZv7xNwSMj7dcjdkIhss2oVAxIOWhox YRnniYgnsf17pSAO5iV2c5HeRGSLSc+ZakkcFGMNDjdUEBGn8ZHzrbtwONan 3t5uQkJiDjiWRO/BoeBlU6CZAwn5FD620VwNB09LyxlJLxIirjXZ3amJw5c0 zyGXVBJS4o9b9gIOkXlBqgV/SIjA5gWbcXMcNguhG8tfkZG9bvewnAs4lMUo ETK+khGLSp68syUOliq3XOf7yMjrqyuDLFscfOJuywhJ8iNni8iX/zjjMLwr wHOfPz/ygPLwS5EbDtLK2WSZFH7kpQVlx51bOIzZVagklvMjiwShUe4dHHT8 OnLucvmRjFPrri374+Dg4zgbfFcAaUiLqEGDcAg+xMr9nSyAzP0R3+X/CIcQ b70VLUwAOZG4fpL0ZFUvct155zUUxJ0Ve/IrHYc0OFx3W42CJCMb8h5GrfaR sH008BwF4YxuclkTj8OvscE6ZjYFkdFNaqhLxKH6eJO7YysFOfJkC5X2DAcT Y9GaHcsU5KmGHFv0Ob76h1RKv14URLCHacYtWav3ENLe3RYiiEx2K7yJfIkD sZjm5lcuiKynPl93Jg8HR4eYpgm2IHLQT/Hm+nz8//sa+S8WCMMS "]], LineBox[CompressedData[" 1:eJw1lmk4lI3/xWdjaJGlTZElRT1EoVL0vT01ZYss4TGtimTLEvHUkyWRpayR fYuiLCEhuW8pZI+yy9oks9yjGss0+PV/8X9xrvPmXJ9znXdHwf6ahQOJQCC8 +qP/83ru6NzkvyEgKnLIqP03FbNo7GT6bb4LzLFj8otdVGwiFR1bW3kXnuSM 1Xs9oWKkE5ktB2ZDwVWhfDPZlor9nX4uI/JKOJQX3nf79F4Y6/YyjZcXigA0 4FZieq4wZm9w5N7LnAiQqMkUOxIsjAX/lPUaHYkE6yS5lGF9Yeyt4QhN0+oB TK0+rJbyQQizkGs/1Dz7AEwnz2gqFglhE79q1c9GR8MI5fM+JFYII57qiDrq EAMDuLv1TroQpvC7yNctKxbuEPU3UHkU7KK5m1H9xgRgLcfWWupRsF26X99F OiTApYJxGyEVCja78yxYVyRA/ZDOqdVSFCxIYKLFNH8InY94MqtmyFj2E9Vt G+4nQmeW9rPYVDI2vsScdSIng0N+YbjoajJWMH3JVdMiGSqH44WIfBLm2TPE WMpKhkfpCdZ7vpMwYkHrUNyRFCBdc1ff0UzCFKyeva/1T4VxgZrtxXsk7GKh c7I4Nx0SPzeOK0iQsLRN0S9v0jJAqiZDuo5IwvpDyj8yUjJA3y6QFPqDiJme F4i+oWXCUbY4+eEnIia76sSbipNZQCdpHElMIWKr0H61i7nZsBQTTvdQI2JP eTOvN3Zkg6e8RNtFeSJGU10ybFvIhl/Kad5eUkQsMFnB8YBpDoSr0ETxRQI2 5+2csXYxB/Zov86mNROwSRWBWI3pY7DSiz48f5WABZ4XS7/m/xhO9aSw0s4R sG2J8n/tePwY8s/9RbCzJGB2ZNqJmMXHEO+r0LBZj4B1jdwPcHycB40iTc4Z EgSsNk6OK8nPBxHKjtKlWytoouDvjy55BeDItbZQNV5Gxx4QekzaC2DNmsZG k0PL6G6Fuk9qvALIT9gaFrprGa2j6fTjxwrhtK1l0TGRZZTxQH3Ue6oQolQz VScbl9D9CjLsm9ufg+mFCxrOBktoH40nEpVdDCp+HYYMOwGq2F+2yu1DMdwS N/MqMhGgrs4ea0xni0F1XmNP6BEBSohmrhPXL4H6Vcn5LooCVKV/fGPCWAlU hyQXE5m/UV3tK5Id0aVw1LiSoRXwG41qspTv7XgBOiX7Bp+X8VG5mqkA+4kX MCV6Tzwxn4+WPfcZ5fBegG7faFFkCh/ti03KoMqWgT4+X5wazEcVzwzJ6LiU wXFnjX5jSz5axbWXTqOWQ3pYkFHv3CI6Je0laY9UwK/w17k4bRHVc42hcF5U wsKQJ+XryjzqGhAVpdhUCQEa3V7OvHk0Le7eepvhSjA+O1C3MDOPCqoClTDh V+CbZ/NcvXcerRHyPBZHfwVuY9ViQkXz6P5M85D9QlUQ+sVZAjkzj+7plqQE 2FZD5jrpgBhsDpU/+JAsvvIajHxKGvrTeWhzLUm3yw+DAKmKSHrNT3TLbMYd WeUGuFE7+6YAn0W3WwZmM5rfg6z6RNT0WS7669omvqNeM6S/nSj2F+eg57Ik L7AYLdCvtOWA4mUmGh3ZQNh1qR1iXbb2iYl/R/0fV98Y7+4E+9QzZX7TDPT2 tOjtzsMf4fq5O0vWpVPo9uHYkfAb3XDbxD9l8eUEmjDQ2tDY3gP2LhE3ivPH 0HE3lYf1sp/B4JOobpLjCBo3OkrebNMLXmYmkRe+DKDr6IaL3MI+2NmmHHpF sRfllq+N2jHdD9gTvyTb6m40Y2NI3jAMQmj7XZFYjQ5UWVy20Dx2CK5qnZGy /qsJXf9N3ESxbRjSX5yKZ5diaEdT5XUfhS+gQKP2uHmWo8y7rw4pXRiFvKv2 FPdfyai3G9vHwGQMmvNN3+i/fwS9Mv0SGG8MWozcl8IWyoF5yOPW1/hxsCrz 2J/qiQHj7MXdJjABuqwmTmJAE5i1TbbHfpuAGNZHB2pQBzgXSCF3QybhsJpy 2UJMN7hEpvGq90xB1D9b9ep0emHbcLd/WvsUlFeK67q8GgDwS/l59upXoJf8 J6WvMwLHpV+XXpBkwAPq8nHruDFYUQnXlShlgIGyPxXznYAMvdLVZPo32OSy YLkreQpwLKQgh/8N5M/M7aaVMKA4ekZXIWkaWrty55o+T4PlpQKpceQ7fHz1 Uc7MjAmFeRuqTUe/A06702HTzIZvrMHspYgZ8HGndyXbcCEuYG9gpCYTNjS8 5HGnZwEP1FZr6mLCwY5/VFUjfsK+sDjZYzdZUCvj6DV/nwfCLx40Y/+x4Lvq JTXpRB4MDkZ46wWyoCtJkw8ZPAjac+fD/rss+LtL71taMQ+6Pnv77IpmwQhT eiqhkwfXlE63i+WygCszZBgiOQfP6zf9N9DCgtkH1fdT0+ZAWZA27L6FDcEz aSrNDfOg4nKNPCrDBjvK/b5j7fOwe1B/t5kcG2jvTnQ1987DnirGDXUlNvzb SOtmfJ8HresaUlw1Nig2DNy9Jb4ACKvB0FOfDbZ6BhFbzi+A7fBMpbcTG2yc lIfCSItgZ/xmZNKZDYNF24+Krl0Eek00xcqNDZqqpn3xmxbh3CMtCy0vNpjm 7W57p7oIl61us3/dZEN/SygzyWYRPNsklHyj2fChZaBHqmQRImoPxvpVsmFb JCOA58CHzOjNb2Sr2WBlXjD9zosPFfYL029fs8FJQv9UTgAfvohUIWvr2TBQ YZEblswHzdMHuNmtbPhqXKdM6ODDMFvbrHWMDb461R3NOr9hj5zm2m2rOUBX 2rqvX1YAR39I6jSs5UD0eI9ruaoAbN//uOwkzoGwrKql7MMCCHYpqy3bwAHX a+ZL1f8IoO/VXtcT8hww8KTnDyUKIPCURquHNgeuuNt5b9mwBD1BauEN5znw eehmjtP2ZchZZeB62J4DPTGzWwSay+AVb29WfvlPfg3n2NNjyyCZl7Qh9yoH yqncaWPHZbBoJuYEe3NA0lTC4UPhMnSL9dboh3Ggd+mi/MzBFchJ4qZXh3OA PfSEp2G8Al7yq4P2RnEAS9i2O/HsCkjuQ04oxHJgs8Ptc2+CV8D8dGEPIZUD m5x+aUV2rEBX6m0WWswB1snSMyf2E5AspeTOAy84YJ7ae90fISAeReVlJeUc aNXf+6zOiICIo9N+mVUcsEb7s++cJyCnJiyEAt5ywO7SiCMhgoB0qihvO9LL gctfxq0kJglIx8tOs9olDlQukHM8nxKRBRHz0v8IONx7aTBs+YqIKJ7pFgcy Ds89P6HnG4mID+nzx3oRHJJOopYLU0RExmzQskkKhyqnfiNDJRLiPD1l070L h6lSYxeP5yQk4bBjVbwqDsEqXnPedSSk7sG3zafVcWiX2rHvZRcJkdCeGejT wkHTfF3aPI+EVAXh9BHAwad4Jab0KBkR3so/P30aB5bH6pBxNhnRcL+JFdji cP3f4wm1FApiVy+Qd6Hj8FqUyfi9lYIUXVkZZ1/AoWK7fvJLYwpiVUG5/NMF h67DO+khpRTkNjX0XYX7H77yzji8hYI8taPu8PXEoUZm2mj8KwX5TVjFWPD9 sz9G2t9dVgjJObnOaTkIh7vPRLpH44WQtqyYZjTkT98dVX21ciFk7qfErqAw HNKfl2gc7BFCDFPWz5Dv47DvZFXPsw3CiBf7odH7aBzcK3d+UzkojKQhm56F xuEwWL39fBRdGOEypF1FH+HAjB6POpgnjGw5lNrWkoIDMqA9mdYqjBy9L6MW lY7DqXfntsr9FEYSNeU4Yrk4qK88Sn5LoyJYaJZpVx4O17Svp63ypCIzAwol sU9xGPvx7lJdOhVZr5a7zvIZDvlV383nWqmIXqCSx/pi/P//NfI/0nHFmg== "]], LineBox[CompressedData[" 1:eJw1Vmk0lQsbPRxzkVm6ZOxGMmXqip5XkpRLhtJFiVtSqJCQz0xljkTmISqK zLPeV4gyRoTMwyHHGaTD4Th8vh/fj72eH3uvvdZ+1trreWSc7lreYMXhcFW7 +N9spk6uzT4MB3WGCfxS4sQsP/USffdHwISc9i03Nk5sJh2d4q2OAIfx06tC ExwYq3H2F52VR/A6q2L9VRIHdirzalb0zUj4iUWWnuXlwPo9zZ5Js0eB96Vx YiyJHXM6e/JJVV4UcFfE+ib3sGOhq5Kek+PRIDJ7x6o7kR37aDJupGEdB4R7 uXw0WXbMUqpbt2MlDqSyRNs9udixmd+Nqlfi40HJXkTYj8yGsVzoiTG88RRC tjaY3I1smAyj+IF7TgJoJOwNqLFnwxwt3M81iyZBhqUgfrgUjynqzbdG30iC uzPSR6Yy8NjKn1fgUmUSCDL6s7Ui8VjIlqkm0eI55ErfUkOd8Fju66MHRWKT obhoT4CAOB6bZhJXXPCpsDqAK5VIYMUKF/9107BMhUuNOzcFQlgxj4EfBGZO KjQJFJbpeLBiLIWdPxJPpoHb2R5FYUtWTMb6bVujXzrMiNZakURYMcei26n8 1Ezg+JYmfLqABcsQi6/yN8oCrE6wrSqZBRsOr/hKSMsC06bOEfMnLJiZwxZ3 k1E28Ge+ztlwZcEkeYybKv/OgbmKZtO9WiwYDzqs7PgyF1632Bx40o3D3tCW GkR7cqHpfX6vbDMOMzrKNOmi50KrMZ//aCUOC06VcdYxy4Nfcd6PszJw2JrX 7SzejTxILx/nd3XHYbMKW3z1ZvngovqwrVhoV+/Al3nXLx9iHYJ7xrlw2MFk aaVD+fmwTKdrGW/toLZ4I+OnG/lwJ2dQbuLrDto3HhvknF8AfoV5q+uBO2hj ohRVcPMVFF/4an9hahtN3jr11bWgEF6lvqYRGpjoVBxuwLS7EBbWOhzRt0z0 iMyHb8q0Qvip7eDzPp2JfjD6a5hyuggETd19B/2ZKCFOddJrrghC6Au86vpM VFtGguQv9w62K3WuLbdsod+NaFwxuSVgrybaPzLJQGWHy3ncP5fAmSs7uir9 DNTt9r29Zisl0PCsQP5ZKwPFxRP38Ru8hyu/O7pjCxmowvC0aNLUe8h+OTVn cJ+B6mndFOyJLwXbmvXY0L0MNKbdSnqopwzMOVxOuBtvolL1c0FOM2Xwxbok p/XEJlr+znuSTCsDseDaysNqm+j3hJQsTslyaH1FC+EX30Rl7X9I/OVaDq8S nFduETfQWqqTeAZnBUx5RRw5nLiBzol7CjohlXAu4tO8+gId1Xd7ykYuq4Za /ezwkLfrqFtQTIxsezVM8TuMXs5dRzMSnwjbjFVDqxUp6XjKOrpVGyyPcdTA GarSBn/YOlrP7nE60a4GDtRiXXJ266h2tkW4NnsthE40ZrbuXUdV+gXZgi7X AfGczbtE7zVU+vhzPP9OA5yLaVf4bEtDOxpZ9fp8MViFWHWtsFX0wEpWmOTh FrhuN8jr/HEFlbMKziV0tIGs5ku1E8ep6O+7YpvO+h2QXRM3H9VHQq/mCF5b JnyBbuO7J+xUiGh8dAtO8d9ueBcX3HhoZhH1y6/zme7vBW6bF0kizQQ0cJE7 sPfEV8CPHi9fj5tD5cYSxiN9+gEMv9W7pM6gSSOdLZ+6B+DK4zH1zLgpdNpd 4Xmz5CCIjbclSJ4cRxMnJ/H7bYagJHdpTK1xBN1nZ7JBLfoO+w9u3zfmGEKp FbwxhxaHYVHioYZpXj+aJRpeMAajYKitXfFgbw96mF+yyCLhBxRFftZF+NtR 4QV+U9muMQiwkyuuy8TQnvbq+94yE6CxmG1mYVeBEiNqdOWvTYKEpueswPdU 1Mud5H3WdApY9gZu6RW+gCGJYQGMNgV1V3OXeqcrgKh77z/zz6ZBt6sqv/wq BoQrjkdMYQaaZivXxK63g3nXbHfCwgx0F80rh9r3wO1CISQifBaOeK0yDj3s B9foDFqdyhxUVhfT/SSH4OBYv19G9xz4EDzfBTwfAfBNW71yax6MWD9V/yEw DmfEG0qvCRLg8sQG7c7DKdhRiNQTKCVAwvs1Omo7A1n6pXvwdgvA02Sgyu47 BxQsvDBvcwGEyoqlI54QoCR+SU8mZRHG9NCRlDeLYPVvodA08hM+21dZ94sT oahApM5s8if0CxGPRkWSYGF5NJcZtQRpREMm1zEqJAapB0drECEupfJbb8MK UIK1lNv7iPBHcMxPKetVOPY4UfK0/zIIdPm4WZ6nAUdZXAcWsAw/H3Tm6lvR YHQ0yks/eBn8B0ULle1oEKIS9lk7YhlO/W4xkXClQd+gl7di/DK0BkpmaEbT 4K78xW6+l8uQWnt026aLBu+axQJGviyD963zbLmWa3B4K2PszgESnCadadHx WAcF17v4SQkSKNpYK7k+XIcjowZHzKVIoCZq87AgbB1Uagk+qvIk+DPnGFMl eR0076sJUZVJEF4zsJzcsA7IcouJhwEJ+LGgZ22cdLg8tlTt5UKCF4o3zm8X 0MH2fNP47G0StFU0WyuU0sGuPp7N2n3Xj9DCZVdPh6svNC01PUlg9mlP5WgP Ha5bB5J++5PAJ7ts4zSdDh5dAvIP4kngqmLN+Ga6AVGNxxN8q3f5+kJbN+YG ZMfvb5KsIwHTcyipg3sTKp3oix8bSFBVenJHXXQTJrhqEd5mEsQjbLNHVTdB 46IONbeTBA5+el6fHDdhjKRl3jlFAhMx9nevPm+CipQG78E9ZBiXMb90uIAB hr8E/2rhJUPYDx77exUMuNz267oLPxmKzpCiOpsZEOpa3lguQoZRuV+qdRMM +F6j7mYsTQYRR4l/fMS3IPiCWuc9LTL8UiFrlyZuwUCIcmSLAxk6SlWWB54z IY/nrNsJJzKIFd9wrShgguczJ/OK62Qg4dbwRVVMECxIEXl5iwxGNJGC8UEm WHaw5IV6kYFYQ6U4i21DP99QvcFjMjwZteg7m70NeSnUzLpIMvyuNpdDS7fB U3pPiHoMGawck3otPm6D4DHEWCaBDN/05rHu+W2wuFg0gEsnQ41x2EUllR3o Sw9cRkvIcCBITW2ydQdy5FN7dcrIoIVN6JgN78C94ory9xXk3Xv1emSKuAP8 6KJvdi15t19KsXXcOOTCjCV70EcypNuOtCsfwyG9CocPnhwiw9OR6f1zj3BI T1WveSOTDILOXKB8igWhc1mUBuAoYJvBY3/mAgsia9/PD3gKDElGcz26yoJ4 sw5+beaigPKOV9x//FkQCfNRq3YhCggFhftfq2FBbi/O2fQrUuDt8KD5qg4r knTCufbZUQo8SGpKpp5lRT7ELey/qEqBrN+X6/60ZUUEtJZGvmtSoDi6f8gw gBWpDaHYjQMFSud8ZDw+sSIcf2w6LF6kgEEEdfEfZzyidscfK7xMAcN625ov /njEtnlL2tVu1+9mqWdKAh4pvrkzTbpGgV/+SrkWH/CIdSXb9VVXCigZyCYV S7AhgZyPWivvUGBRN+KRoxYb8saW89ADDwr8lI9zeWrGhjBwPAT6Awp0IYx9 XqFsSN7f+1y2QyiAr4ibWaKyIV05TzvQcArI7jdKFeJjR9ZWBRRDHlOAMytx clGJHTFJE17Cx+7mKRN5U3+LHaESxN24X1AgNGdDbg+FHTmgm971JW13vwF0 tQJBDsQwVkI5JpMC494Jt0/pcCDJGlJkvpcUaCtsSWsN40CwRzlmfQUUiPXw MOx6y4Esjci8T3hDgb+p7SMSgxyIsPLLfVZvKXA+OFqpa4cD0Q+WvydcQvn/ /4z8F2cBzdc= "]], LineBox[CompressedData[" 1:eJw1lmc4lQEfxs+i9ZpRiIyUUUpGIvo/DaukrCSVEZIRESlbVPZMKTsJyYhK Rs8jqUNWJDsjHeKc8xzp4Jhv74f3w33d1/3hd12/j7e0vYepI4lAILz+l/91 PWt47uftcOgwSLpyKokbM/3UPu0nEgFWV28dVnTnxsaeoCM8byKAywK3kzDk xkj6Wc0aM3eBMl4itp7CjR3NuJQZfSUS1l+b/RUQzoV1ehknS3FFQWlj0684 Jy7M3uDw/de5UcAOiGJYGHJhYbMSXsND0fCcgbWN8nNhHwyHdFXN46B6PiBy 53MKZirZqkWdiYODwqmDfHEUbOxv7b6L8fGQ11ytcMuHghHPtMUcc0wA3kA7 VqUuBZNeeunrnp0IXjfrZyymyZidifuJ+i0poFVTZ7TVgIwpaP/6GO2YAt/q a16KqpOxmV0X4WxlCmyo09N3kCFjoctGatMmD6DLcjW6aYWE5Tzfs104NhXi +l1PZLwlYaMr0zPO5DTY2sc1ylInYYWTl91UTdPg4GqDWdYuEna9a4C2kp0G +rIKRwO2kjBi4ZeBpMOPgR4jKFLHIWLS5i8aa289gaiHlCAdjIjZFbmk8bMy gBCswnI1J2LpW+Nf++tmwmzu1OvbekSsN7ziK+1xJtypMrhdepCIGdssb6jT zYIsVmfxPQkiJrFRv67yVDbcLRSdGZwkYBvRXiW7pzkAUZV4cAQBK2BP1Wxp y4E521PJD28RMN09K4YtCzkgO51/v9mdgIWkSTtpGOeCMO2TTchZAjbn7ZLJ w8mF0sN1etsVCNhP+WXeauM8aL2ZNhP2bA0NseHN8LiVBweFvmKlCWvo9lSp 3Tvz8uCvnEcVV8Aaep6sq5/AyQOZe04+imZraMdQbLBT3jMotpqw1CWvobVJ kizBxXzgnlbUO+yyiqYuH/3q+qwQfJ1EQ6inV9CROEKXUWsh6PsN5CggK6ii 9PtvSuxCOJY6o5mjvIK+19XsxY8Xgavr97edAisoLW7fsPd4EcR2HXms0b2M HpAWZ/jvKIZvNwVUOm2W0R5d9vqYnBKImjp7lhq2hMr0vtro3lQCHzIe8dz1 WULdXDz/YzxTAip9p/zNnJdQQvw0H/+RUsjvMOgRN15C5XtHt6SMlMKXviFw FFtCtdWvCLbFlwHP0Sc7il8vojGfzaS+t5XD33qTA3JzHFSyejzYfqwcqhYp ix1THPRVsc8wk10Ox9/ZjEcMc9CexIeZ6yRewcZBhy/8TRxU5sKAuKbrvx1p alCQzkGrWPai6esqwFbmvmSzLgcdF/UStEcq4fBR550GWQuojlsChVn+BnzH iPHWrvOoW3BMjMznNyASxuvgaTePpifdF7IcfAP9LmrHYy3n0eWqEFmM+y2E h2T//nFsHq3mun48yfothA507hkRn0cPZJmEH+CqgubVGTXjjjl0b6cgJfjc O6AWdtQEaM+hUgcfkPnXaiC/NvvvCzk2Sq0laXf4YSDiOOslbDWLis1k3pGQ awBqrBe1PmsG3WEWkkOjNkKZMunbuW0s9K/H1kUnHSp8U+ih+mQx0EvZgrZ0 WjPY22vuIHNNo/HRDQSFy63A+1Ccu/39JHor793N0c52qLCV7K7JpaFBkxuC 2g99hVhhJUNNn3F0x2DiUOTNTshrl919/s4YmtL3peFTaxf49zZfJAeMoKPu 8g/qJbrBKy6rrG37EJo0PEwWsfwOIRK7Iqtz+lA+a0MOq6gHLursuxDE6kZZ FTwxOyd7QZKurueR0Ilmbgl/Ngj9ULKjZIMfqxWV45coMkkcgKodQx46S59Q oQl+I5mWQYh7QVbqisPQts9vbvhI/wApR6tt8icq0OmIt1qytsNw1/0/8/pY GurtzvAxMBoBZntWSmDyI/gu3iuAsUdA5U8YeW9HBUxreQb8Sh6F8rqEeO4z GNAu2ikawRgY+am9bTD+DKdbfrYmToxB+A9fqjLSBi6Fm5GI8J/glpWT7+Pc Ca7R6ex3e8eh7p4OPWXdd9g+2HkrvXUcLPwrzbX8+wD8Hs9evPoLrPODMJ4/ g6AnWlNmK0iDXf2XHdhXRmBNPlJboIwGhzw3PZLSHYNMnbJNZOsJYDaxJG5c GgccCy/MXZyA7Ckx5QIXGpTET2lLP5yEX0dvB7VFTILZ5cLNo8hviBWK7XrF moKiZ8LvjId/g4TmFzUTKwZM0PtzVqKmYPNim7G2MAuSgveHRKtOQ+QD9Xrd tBnAQ9SVPndMA2Lb4d6tOAsq95IkjvvTIX3XydgIETZwl8dRsUA60FvMi/Sl 2NDfH+WtE0IHn6yaq7zybAjde6fpQAQdznSETxVqsKGj29tHIZ4OG008K0Qt 2eAha9HK+5QOA6t34sdS2VBcvzWwr5kO09G3FY3F5kBuOX3wmhgDKlu6UjxV 5kHe1YM8LM4Ann32s26H5kGx/4jiaUkGuKWH4R7H52FvFe3mPlkGaP8WYkae nQe1G8qbWUoMeO9/4ASf/zwg9AbD60cYEF0RIODSOA/nBqfeeDszgLZoc6HG ZgHOn6wb+unCgD3VppNPry6AdXU8xdydAex1s+9TvBfg0iM1UzUvBlCtpGPi 7y2Ag3kQ468/A65pPfWYLl2A6y0Csr7xDKBDp95JEgeiag8m+r1hgFnBm8dK JRzIihepk3jHAAO7+jLVag5U2i9MfqhhQK6m1SW9Txz4sb4K4alnQL/Nh/nE HxxQtdBg5XxhQHn7hpBGvkUYZKif/jLCAJlC66PVNxZhr6Qqz/ZNTPC9OkTv MVyCY38ENRt4mNB0efNUheUSnGv84+DMz4Qf9S9UchyXIMz1Ve0rYSZwGwU6 lYUuQc/b/W76UkwIaEun5lcvQcgZ5S+e6kz4xvegUVp5GbpClSIbbJiw0fHY 2pziCuRuNHA7ZM8EMXf/mjNaK+CVbH+6woEJc8HXHTHDFRB89lD46VUm0A08 How5r4AplZgb5s2EhNaM/VoFK9DJ+736yD0mfCb9MLq1exVyH7Iy3kX+8y9a xM21V8FLalPo/hgmVA7MeZ48tQqCKoi+dCITtlmmhkZ5rIKJRVEX4QkTFElH Aq1fr0LHkyA6WsKE+3+0vubprUG2bFq7RjkTzqrLWV6yWgPPlxWvSiv+8YEn ozTd1oAfnfTLqmICiXWWYpm0BmfGTLmCPzAhLrBSX2dkDdrl5bYf/v7PJz9S KOMIAWl73X66doUJo2TZ0BtsArKw3qQskIDDhqpSbw6JiMhc6OQHMg5/MuIr c/mJiA+p+2v9ehyye/Y7OO4hIuKn+80+b8ZBu2rHZIMjEXGZHLfsVMCBt7z4 48cRIpJyyKkqeQ8OoRLUIOIMEXkfNyFisQ+HUqXkFG8iCRFQn+rrUcOB2H63 YEWGhFSF4tZDgAME3qF2O5MQ7m2LNpMWODiIiNM0iGRE+Zo/VngOh6brhqNZ wmTkfP2ylKs1DjrujZ8uKpKRl1fWRhm2ONjt5jOeMCcj5pUUh1lXHKL8m2Lj SshI0Lq7Hyuv4fAy7rka6RMZKTi/bqfvdRzE4JPf5BAZWSJspC344nB+i+wV ST4KknuKz3k1FId+scnnTTcpSEt2AhUNx+FndtHNy8kUZG5WQCH0Hg6e/Gh5 RikFMXwsNEWOxUGWMG0sOEVBWDRRtw2PcPjrvJQwd4ULEdN60tL8GAdVv2Ma 0ZFcyLFYcaWYDBxE/8TO8RVzIamqkkzepzi8UMgYlvnLhWB3s407nuEg3nRi uEOUG5nqky5NLMBB7fnehRKEGxFSespn9uKfr9eRnV+duRGdEFlPoRL8//8Z +S9kXLY3 "]], LineBox[CompressedData[" 1:eJw1lmk8lAsfhmeNdJT1hEOGKDoHZakU/R/FiU4lVIq0KHIs2Sq8HTVEsmTJ ki1bFFJhkITnkUTKXkIj2zQcPPOQnRnz9n54P9y/++N1/65Pt4qjp7UThUQi 5f/M/7puamB+5D8h0GU0H6WruAazftc24S8XCrriG7u/LtKx4TR0ULwiFORt CYOIbjpGOZjZvGv6DtjeWbemOoGO7X94NiPycjhs/1LiofAbHev0ORrPoEeA X48ufneVhjma77tbnhMBLMzkbfYwDQueUfIZ6I+ENgf/c6wiGvbGot9M73g0 tJY+UU8+SMOslVv2NE1Hg8QO+o8kHRo2PFut4xATA1EDxiHicjSMfKw16oBT LHwL8/SzHKdiKivPrntkxUG8qpMkK56KXbDyOFT3awLseW1wgbZAwTSNvr+N dEqAecmHfzZwKNj0Fgc4WZYADXoVMc2dFCyIf1h/wioRaEOVu1JfULDsJ39s kr2XBG7mk+IK7hRsSDAx7UJNgVrNXRsNCTJWMHbRXc86BZjWiPO1QTLm3fWV K8hKgb2C3q/9HWSMXPDh6/19qZCYVkPWKSdjKsefNlQHpMGbeZHSikAydqHQ NUVi6iEYSe3pTJElY+kbY8pvmGXAFVR+hCFKxnpCWB3c1AzYT0pS+bhMwo6e 46+tMcsEq5aT1KhBEqYkdrCm7EgWTMTl16Y/I2FiaI/WhUfZ4N8kfdLzCAkb 0eCvrzqaC+XLdYeOIkKUeW79Q8+AXKjI/pEg94cQ3ZTE+F09Nxd89F8aiskJ UTuq2cHYpVyQ39a99sLUKtref++Wc24eFBeS+z7krKLV95WnpJYfA5kfu0dh /SqaxN/f4ZZXAIxVxfljK3x0MJrUdbilAPadLk75bZKPblOp/aQ1VwClppym FTYfrTUz7CFMCwFpFdSt1PJRbrTOgC+nEHyuVG6Zuc1Hd6oo4jc2F8GDkn+D IiX56BezOdGo7OdQdFxcOG24gkY12jC6W0vgtyLHMN+KJVS5inPLcbgEjDde 13R4uoSWFl0b4M2VQOnr3HCrrCX0S9yDDBGlUuggsbfYRSyhqme+Khq6lcLQ 9s6TY2eX0MopR/l0ERacP0IJ+752CeXI+0g5ImVQ9V5Oo8d5ETV2j6XxSiog 6ZwsPrt7AXW/FRWl2lgBO8ZZaYY6C2j6/bsytuwKEJxAJO6oL6D8SqYatuYl WOy2k9wptYBW0b1N79u/hHvXqkanJubRnZlWITvplaAddYjyLmse1e6Uot06 9QrIb2amEzfMo4zdiVQJ4Wswzpyz8hDOok3VFKN2fwwicNkh9q4ZVGE647bS 1nqwORa8wSlkGt1sw8zmNjVATU7DbSZtCp313LjsbNwEUv3+WLI/jp7Nkjo/ yW2GJ0FPfY0542hMZD1J82ILPI8N2duQM4YG5L7yG+psA8aE5lx2BBe9Obb2 ZtveDlg28PKtP89BN7Pj+sP9OkH2aJ92m/cwmtD7of5dSxf4nCqyMPAYRIc8 NBLrlD7DAlvBZIDej94fGKDK2XaD3tWg33OjetEN9hZLU4VfQPCtoVh54DM6 xRKPUh/rAZvxmgKd4E4049eQPDb0wdKWqP0qfS3oVgmlQqu4rzBBO7jiN/4O lRmVOKz6kQ0bc2pK8GAMbW2suHpN5RuU58eLXDVioROhL/eonR+Am8yJX2Wf p6C+Hvg188ODcNPpdbhycDJ0K/ZIYnOD0CF8ESf/hgUTe7z++R4/BA/CP5Va mmLAdbiw7TAMg/T0zsM1xo1g+XGkJW50GFw25Ugna7aCa4E0EhoyApvLuRGn 7TrBLTJ97pU2BxpKMumM+c+wid0ZkN7CASWTUf/Dzr0A/qkzDn9/hx/CD91W vWz4U/518XkpLmjIyIwgpwdBqBFuJFnMhfDGhlxcbxgyjIvXUe1HYbuhlprq IQ4QWEhBzvIoiO/o4UxZc+F5zLiRyoMxkAL6Ln3XMbC5WCA9hPwLs+5PKuXb x6EwT/bV0YF/Ybpsh62KHg6jk33ZgohxCJTPFxvnE3D/1g5mpN4E2K3FYwWB 00AwDbQa2yfAVtWr+IDYDOiG3VcyvTEJ+02+poVOzcKakugmLHAS1mRFPN66 OAt9fRG+xsxJELjVa7cKZyFI+/b7naGTkFdb0aGxYQ7aP/te04yZBPWABXlZ 7TnwVDvRsv7RJAwr4Xlt7nNQVLcxsLd5EgooKW5CfA628tPZVxRw0N0cOq5A XgANN0/qgCIOky6JvpNrF2Bbn8k2S2UcngVkXHgrtQDalVw/HTUcKsNdksPU FkD/6nbpKS0cPl0uLDhjvgDIZL2FtwkOTFvd4L/iFuAUe7zC1wUHMfNfBuI1 FsHur5r+EVccIsoTwix0F8G+KoZ23AOHvWlj20WMFuFssr61vg8Omm2761Mt F+HS8Zv47A0cEpPlH6r5LYL3R0m16zE4xOQ88e1oXISI6t1x/hU45A8WZ/3i tQSZMXI1Sq9w+PZS8L3txhKUOS6OvXmNQ9rxu0cyw5bgm2glIl6HA2VN65xj 5hLondg1lf0Bh5CEjmFm2xKwcQPLD4M4pD+Xs9bVXQZtZT3xTet4YMoXYTtQ VuDADynDenEeJNif8fu+YQVONfy45CLBA/9mhbJApRUIdiutLpXlQeZC8fvB 3Svw5eUO94MMHkibs5Kue60A89j2D14GPGAwV3m/jKxAV5BWeP05HkR51Gb4 feFDjpi5+15HHvzz+JKiK5cPPvGOlqxLPPBo68zxnuODVN4D2Ud/8yCgb6gN kxaAdRM5J9iXB2ZCGbnLVgLoXN9dZRLGg2PrZxjSHQJoT7s5iT7nQXSzK7qb swpZailtu0p4YLCpKsV5fhW8nrFKX7B48KPuU0GZqBAk0DH/zEoeqJofdGBp CeHYsDX91hseGI3uP2YRIIQ2ja2b9nXzgPwsmihYR0Jay9ssqwU82HZRjd/8 ioQsiloVB5II6Oq6cubbOxKieqZTAqgEDOSbnZD5REKuUT531IkSkJOWt2WC R0IULftsGqUJKAmPvWi/hYy4jnFsOzUJSDVoPyn/kIwk7HWujP+DAMIuffBN ERmpjR6VO6FDwKtVb0ZmNRmRNBjv/aJPwOLvIQfm2GSkMoiw7wcCWPvUJ0wY FGTNb8vnxk4QELjTqZ5bSkG2X7mBFZwiwEO0SRDyjoLY1fEZbvYEIDPC1Kt9 FOTZZeEQfp6A0CuLpjZUKnK8jHZpxo2AVeNbZOfTVOSmyJ23ZVcI8M3jqHE9 qUi+nYj6dW8CjMXjHnXeoSIrJDHu4nUCXB90KVEqqEjOkQ0uq0EEnC5srzZV oCEfs2Kb0BAC2hrNVl/o05D5GUnNoLCfe5167pVa0hCLVJlx6j0CNJhBEalh NGSKK+++NpmAzZGUvwaFNERhT9rH5tSffFZzJq5MRw7cU9SKekhAXLvrezZC R5L0lHnrHxEg+tjlR2IoHcHuZB1tz/vph2qYH1hAR8Z7VV7E5RNgzuDgwa10 REbr0QabpwSou1tcqpylI8ZMNS+Z58T//ybyXyuwXbM= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange->{{0.01, 0.99}, {-4.117175655374284, 4.102714580461051}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5867172756049147`*^9, 3.5867182390267706`*^9, 3.618767546863635*^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", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{{3.5867178405267334`*^9, 3.586717859388649*^9}, 3.586718239104903*^9, 3.6187675622505655`*^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", ",", "67.3`", ",", "1.48`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "66.3`", ",", "1.49`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "69.7`", ",", "1.45`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "70.`", ",", "1.45`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "70.60000000000001`", ",", "1.44`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "66.`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "66.5`", ",", "1.49`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "67.7`", ",", "1.48`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "66.`", ",", "1.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "69.7`", ",", "1.45`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "69.`", ",", "1.46`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "68.5`", ",", "1.47`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "67.8`", ",", "1.48`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "69.2`", ",", "1.46`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "67.2`", ",", "1.48`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "72.`", ",", "1.42`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "67.8`", ",", "1.48`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "68.60000000000001`", ",", "1.47`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "68.2`", ",", "1.47`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5867176264933696`*^9, 3.5867178820155225`*^9, 3.586718248388386*^9, 3.6187675847365303`*^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.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQDQUOxiBwOcABwuWA8CfD+AIOZ88AQU4glC8CoRtg fAmH9DQgWAbjy0DlYfoVIPQCGF8JYt4bGF8FTb0amn0aENoBxteC0Aowvg7E vZ9h+vUg+n1g8gYQ/hmYvCGUDoLSRmj6jSH+UYPpN4Ho5wl0AADyID02 "]], {{LineBox[{{2., 68.78}, {2., 65.82}}], LineBox[{Offset[{1.5, 0}, {2., 68.78}], Offset[{-1.5, 0}, {2., 68.78}]}], LineBox[{Offset[{1.5, 0}, {2., 65.82}], Offset[{-1.5, 0}, {2., 65.82}]}]}, { LineBox[{{3., 67.78999999999999}, {3., 64.81}}], LineBox[{Offset[{1.5, 0}, {3., 67.78999999999999}], Offset[{-1.5, 0}, {3., 67.78999999999999}]}], LineBox[{Offset[{1.5, 0}, {3., 64.81}], Offset[{-1.5, 0}, {3., 64.81}]}]}, { LineBox[{{4., 71.15}, {4., 68.25}}], LineBox[{Offset[{1.5, 0}, {4., 71.15}], Offset[{-1.5, 0}, {4., 71.15}]}], LineBox[{Offset[{1.5, 0}, {4., 68.25}], Offset[{-1.5, 0}, {4., 68.25}]}]}, { LineBox[{{5., 71.45}, {5., 68.55}}], LineBox[{Offset[{1.5, 0}, {5., 71.45}], Offset[{-1.5, 0}, {5., 71.45}]}], LineBox[{Offset[{1.5, 0}, {5., 68.55}], Offset[{-1.5, 0}, {5., 68.55}]}]}, { LineBox[{{6., 72.04}, {6., 69.16000000000001}}], LineBox[{Offset[{1.5, 0}, {6., 72.04}], Offset[{-1.5, 0}, {6., 72.04}]}], LineBox[{Offset[{1.5, 0}, {6., 69.16000000000001}], Offset[{-1.5, 0}, {6., 69.16000000000001}]}]}, { LineBox[{{7., 67.5}, {7., 64.5}}], LineBox[{Offset[{1.5, 0}, {7., 67.5}], Offset[{-1.5, 0}, {7., 67.5}]}], LineBox[{Offset[{1.5, 0}, {7., 64.5}], Offset[{-1.5, 0}, {7., 64.5}]}]}, { LineBox[{{8., 67.99}, {8., 65.01}}], LineBox[{Offset[{1.5, 0}, {8., 67.99}], Offset[{-1.5, 0}, {8., 67.99}]}], LineBox[{Offset[{1.5, 0}, {8., 65.01}], Offset[{-1.5, 0}, {8., 65.01}]}]}, { LineBox[{{9., 69.18}, {9., 66.22}}], LineBox[{Offset[{1.5, 0}, {9., 69.18}], Offset[{-1.5, 0}, {9., 69.18}]}], LineBox[{Offset[{1.5, 0}, {9., 66.22}], Offset[{-1.5, 0}, {9., 66.22}]}]}, { LineBox[{{10., 67.5}, {10., 64.5}}], LineBox[{Offset[{1.5, 0}, {10., 67.5}], Offset[{-1.5, 0}, {10., 67.5}]}], LineBox[{Offset[{1.5, 0}, {10., 64.5}], Offset[{-1.5, 0}, {10., 64.5}]}]}, { LineBox[{{11., 71.15}, {11., 68.25}}], LineBox[{Offset[{1.5, 0}, {11., 71.15}], Offset[{-1.5, 0}, {11., 71.15}]}], LineBox[{Offset[{1.5, 0}, {11., 68.25}], Offset[{-1.5, 0}, {11., 68.25}]}]}, { LineBox[{{12., 70.46}, {12., 67.54}}], LineBox[{Offset[{1.5, 0}, {12., 70.46}], Offset[{-1.5, 0}, {12., 70.46}]}], LineBox[{Offset[{1.5, 0}, {12., 67.54}], Offset[{-1.5, 0}, {12., 67.54}]}]}, { LineBox[{{13., 69.97}, {13., 67.03}}], LineBox[{Offset[{1.5, 0}, {13., 69.97}], Offset[{-1.5, 0}, {13., 69.97}]}], LineBox[{Offset[{1.5, 0}, {13., 67.03}], Offset[{-1.5, 0}, {13., 67.03}]}]}, { LineBox[{{14., 69.28}, {14., 66.32}}], LineBox[{Offset[{1.5, 0}, {14., 69.28}], Offset[{-1.5, 0}, {14., 69.28}]}], LineBox[{Offset[{1.5, 0}, {14., 66.32}], Offset[{-1.5, 0}, {14., 66.32}]}]}, { LineBox[{{15., 70.66}, {15., 67.74000000000001}}], LineBox[{Offset[{1.5, 0}, {15., 70.66}], Offset[{-1.5, 0}, {15., 70.66}]}], LineBox[{Offset[{1.5, 0}, {15., 67.74000000000001}], Offset[{-1.5, 0}, {15., 67.74000000000001}]}]}, { LineBox[{{16., 68.68}, {16., 65.72}}], LineBox[{Offset[{1.5, 0}, {16., 68.68}], Offset[{-1.5, 0}, {16., 68.68}]}], LineBox[{Offset[{1.5, 0}, {16., 65.72}], Offset[{-1.5, 0}, {16., 65.72}]}]}, { LineBox[{{17., 73.42}, {17., 70.58}}], LineBox[{Offset[{1.5, 0}, {17., 73.42}], Offset[{-1.5, 0}, {17., 73.42}]}], LineBox[{Offset[{1.5, 0}, {17., 70.58}], Offset[{-1.5, 0}, {17., 70.58}]}]}, { LineBox[{{18., 69.28}, {18., 66.32}}], LineBox[{Offset[{1.5, 0}, {18., 69.28}], Offset[{-1.5, 0}, {18., 69.28}]}], LineBox[{Offset[{1.5, 0}, {18., 66.32}], Offset[{-1.5, 0}, {18., 66.32}]}]}, { LineBox[{{19., 70.07000000000001}, {19., 67.13000000000001}}], LineBox[{ Offset[{1.5, 0}, {19., 70.07000000000001}], Offset[{-1.5, 0}, {19., 70.07000000000001}]}], LineBox[{Offset[{1.5, 0}, {19., 67.13000000000001}], Offset[{-1.5, 0}, {19., 67.13000000000001}]}]}, { LineBox[{{20., 69.67}, {20., 66.73}}], LineBox[{Offset[{1.5, 0}, {20., 69.67}], Offset[{-1.5, 0}, {20., 69.67}]}], LineBox[{Offset[{1.5, 0}, {20., 66.73}], Offset[{-1.5, 0}, {20., 66.73}]}]}}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.7187500000000002`, 65.7}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{2., 20.}, {66., 72.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5867176445729933`*^9, 3.586717886406513*^9, 3.5867182484352655`*^9, 3.618767584845913*^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.9`", ",", "0.63`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "95.5`", ",", "0.66`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "96.10000000000001`", ",", "0.61`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "96.`", ",", "0.62`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "95.3`", ",", "0.67`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "96.4`", ",", "0.59`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "95.5`", ",", "0.66`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "95.60000000000001`", ",", "0.65`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "96.2`", ",", "0.6`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "95.2`", ",", "0.68`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "94.9`", ",", "0.7000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "95.7`", ",", "0.64`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "95.`", ",", "0.6900000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "94.4`", ",", "0.73`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "96.4`", ",", "0.59`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "96.7`", ",", "0.56`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "94.3`", ",", "0.73`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "95.4`", ",", "0.66`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "95.8`", ",", "0.63`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.586717922221981*^9, 3.58671825852985*^9, 3.618767600737665*^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.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQDQUOs2YCwc9wBwiXA0I/gPEFHNLTgIAtAsoXgdIw voSDMQhchqmXgZgnCZNXQDNPCWLeMxhfxeHsGSDggalXg/DPwOQ1IObthPG1 IPJvYHwdCH0AxteDqJ8J4xuguccQol8HxjeCuH8yTL0xRP1NGN8EIv853AEA dmVIPA== "]], {{LineBox[{{2., 96.53}, {2., 95.27000000000001}}], LineBox[{Offset[{1.5, 0}, {2., 96.53}], Offset[{-1.5, 0}, {2., 96.53}]}], LineBox[{Offset[{1.5, 0}, {2., 95.27000000000001}], Offset[{-1.5, 0}, {2., 95.27000000000001}]}]}, { LineBox[{{3., 96.16}, {3., 94.84}}], LineBox[{Offset[{1.5, 0}, {3., 96.16}], Offset[{-1.5, 0}, {3., 96.16}]}], LineBox[{Offset[{1.5, 0}, {3., 94.84}], Offset[{-1.5, 0}, {3., 94.84}]}]}, { LineBox[{{4., 96.71000000000001}, {4., 95.49000000000001}}], LineBox[{Offset[{1.5, 0}, {4., 96.71000000000001}], Offset[{-1.5, 0}, {4., 96.71000000000001}]}], LineBox[{Offset[{1.5, 0}, {4., 95.49000000000001}], Offset[{-1.5, 0}, {4., 95.49000000000001}]}]}, { LineBox[{{5., 96.62}, {5., 95.38}}], LineBox[{Offset[{1.5, 0}, {5., 96.62}], Offset[{-1.5, 0}, {5., 96.62}]}], LineBox[{Offset[{1.5, 0}, {5., 95.38}], Offset[{-1.5, 0}, {5., 95.38}]}]}, { LineBox[{{6., 95.97}, {6., 94.63}}], LineBox[{Offset[{1.5, 0}, {6., 95.97}], Offset[{-1.5, 0}, {6., 95.97}]}], LineBox[{Offset[{1.5, 0}, {6., 94.63}], Offset[{-1.5, 0}, {6., 94.63}]}]}, { LineBox[{{7., 96.99000000000001}, {7., 95.81}}], LineBox[{Offset[{1.5, 0}, {7., 96.99000000000001}], Offset[{-1.5, 0}, {7., 96.99000000000001}]}], LineBox[{Offset[{1.5, 0}, {7., 95.81}], Offset[{-1.5, 0}, {7., 95.81}]}]}, { LineBox[{{8., 96.16}, {8., 94.84}}], LineBox[{Offset[{1.5, 0}, {8., 96.16}], Offset[{-1.5, 0}, {8., 96.16}]}], LineBox[{Offset[{1.5, 0}, {8., 94.84}], Offset[{-1.5, 0}, {8., 94.84}]}]}, { LineBox[{{9., 96.25000000000001}, {9., 94.95}}], LineBox[{ Offset[{1.5, 0}, {9., 96.25000000000001}], Offset[{-1.5, 0}, {9., 96.25000000000001}]}], LineBox[{Offset[{1.5, 0}, {9., 94.95}], Offset[{-1.5, 0}, {9., 94.95}]}]}, { LineBox[{{10., 96.8}, {10., 95.60000000000001}}], LineBox[{Offset[{1.5, 0}, {10., 96.8}], Offset[{-1.5, 0}, {10., 96.8}]}], LineBox[{Offset[{1.5, 0}, {10., 95.60000000000001}], Offset[{-1.5, 0}, {10., 95.60000000000001}]}]}, { LineBox[{{11., 95.88000000000001}, {11., 94.52}}], LineBox[{Offset[{1.5, 0}, {11., 95.88000000000001}], Offset[{-1.5, 0}, {11., 95.88000000000001}]}], LineBox[{Offset[{1.5, 0}, {11., 94.52}], Offset[{-1.5, 0}, {11., 94.52}]}]}, { LineBox[{{12., 95.60000000000001}, {12., 94.2}}], LineBox[{Offset[{1.5, 0}, {12., 95.60000000000001}], Offset[{-1.5, 0}, {12., 95.60000000000001}]}], LineBox[{Offset[{1.5, 0}, {12., 94.2}], Offset[{-1.5, 0}, {12., 94.2}]}]}, { LineBox[{{13., 96.34}, {13., 95.06}}], LineBox[{Offset[{1.5, 0}, {13., 96.34}], Offset[{-1.5, 0}, {13., 96.34}]}], LineBox[{Offset[{1.5, 0}, {13., 95.06}], Offset[{-1.5, 0}, {13., 95.06}]}]}, { LineBox[{{14., 95.69}, {14., 94.31}}], LineBox[{Offset[{1.5, 0}, {14., 95.69}], Offset[{-1.5, 0}, {14., 95.69}]}], LineBox[{Offset[{1.5, 0}, {14., 94.31}], Offset[{-1.5, 0}, {14., 94.31}]}]}, { LineBox[{{15., 95.13000000000001}, {15., 93.67}}], LineBox[{Offset[{1.5, 0}, {15., 95.13000000000001}], Offset[{-1.5, 0}, {15., 95.13000000000001}]}], LineBox[{Offset[{1.5, 0}, {15., 93.67}], Offset[{-1.5, 0}, {15., 93.67}]}]}, { LineBox[{{16., 96.99000000000001}, {16., 95.81}}], LineBox[{Offset[{1.5, 0}, {16., 96.99000000000001}], Offset[{-1.5, 0}, {16., 96.99000000000001}]}], LineBox[{Offset[{1.5, 0}, {16., 95.81}], Offset[{-1.5, 0}, {16., 95.81}]}]}, { LineBox[{{17., 97.26}, {17., 96.14}}], LineBox[{Offset[{1.5, 0}, {17., 97.26}], Offset[{-1.5, 0}, {17., 97.26}]}], LineBox[{Offset[{1.5, 0}, {17., 96.14}], Offset[{-1.5, 0}, {17., 96.14}]}]}, { LineBox[{{18., 95.03}, {18., 93.57}}], LineBox[{Offset[{1.5, 0}, {18., 95.03}], Offset[{-1.5, 0}, {18., 95.03}]}], LineBox[{Offset[{1.5, 0}, {18., 93.57}], Offset[{-1.5, 0}, {18., 93.57}]}]}, { LineBox[{{19., 96.06}, {19., 94.74000000000001}}], LineBox[{Offset[{1.5, 0}, {19., 96.06}], Offset[{-1.5, 0}, {19., 96.06}]}], LineBox[{Offset[{1.5, 0}, {19., 94.74000000000001}], Offset[{-1.5, 0}, {19., 94.74000000000001}]}]}, { LineBox[{{20., 96.42999999999999}, {20., 95.17}}], LineBox[{Offset[{1.5, 0}, {20., 96.42999999999999}], Offset[{-1.5, 0}, {20., 96.42999999999999}]}], LineBox[{Offset[{1.5, 0}, {20., 95.17}], Offset[{-1.5, 0}, {20., 95.17}]}]}}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.7187500000000002`, 94.18}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{2., 20.}, {94.3, 96.7}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5867179911341176`*^9, 3.586718258561103*^9, 3.61876760372225*^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.71000000000001`", ",", "0.05`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "99.72`", ",", "0.05`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "99.65`", ",", "0.06`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "99.66`", ",", "0.06`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "99.65`", ",", "0.06`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "99.71000000000001`", ",", "0.05`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "99.72`", ",", "0.05`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "99.76`", ",", "0.05`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "99.72`", ",", "0.05`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "99.78`", ",", "0.05`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5867180931628585`*^9, 3.586718309473394*^9, 3.618767666363763*^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.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[{{2., 99.71000000000001}, {4., 99.72}, {6., 99.65}, {8., 99.66}, {10., 99.65}, {12., 99.71000000000001}, {14., 99.72}, {16., 99.76}, {18., 99.72}, {20., 99.78}}], {{LineBox[{{2., 99.76}, {2., 99.66000000000001}}], LineBox[{Offset[{1.5, 0}, {2., 99.76}], Offset[{-1.5, 0}, {2., 99.76}]}], LineBox[{Offset[{1.5, 0}, {2., 99.66000000000001}], Offset[{-1.5, 0}, {2., 99.66000000000001}]}]}, { LineBox[{{4., 99.77}, {4., 99.67}}], LineBox[{Offset[{1.5, 0}, {4., 99.77}], Offset[{-1.5, 0}, {4., 99.77}]}], LineBox[{Offset[{1.5, 0}, {4., 99.67}], Offset[{-1.5, 0}, {4., 99.67}]}]}, { LineBox[{{6., 99.71000000000001}, {6., 99.59}}], LineBox[{Offset[{1.5, 0}, {6., 99.71000000000001}], Offset[{-1.5, 0}, {6., 99.71000000000001}]}], LineBox[{Offset[{1.5, 0}, {6., 99.59}], Offset[{-1.5, 0}, {6., 99.59}]}]}, { LineBox[{{8., 99.72}, {8., 99.6}}], LineBox[{Offset[{1.5, 0}, {8., 99.72}], Offset[{-1.5, 0}, {8., 99.72}]}], LineBox[{Offset[{1.5, 0}, {8., 99.6}], Offset[{-1.5, 0}, {8., 99.6}]}]}, { LineBox[{{10., 99.71000000000001}, {10., 99.59}}], LineBox[{Offset[{1.5, 0}, {10., 99.71000000000001}], Offset[{-1.5, 0}, {10., 99.71000000000001}]}], LineBox[{Offset[{1.5, 0}, {10., 99.59}], Offset[{-1.5, 0}, {10., 99.59}]}]}, { LineBox[{{12., 99.76}, {12., 99.66000000000001}}], LineBox[{Offset[{1.5, 0}, {12., 99.76}], Offset[{-1.5, 0}, {12., 99.76}]}], LineBox[{Offset[{1.5, 0}, {12., 99.66000000000001}], Offset[{-1.5, 0}, {12., 99.66000000000001}]}]}, { LineBox[{{14., 99.77}, {14., 99.67}}], LineBox[{Offset[{1.5, 0}, {14., 99.77}], Offset[{-1.5, 0}, {14., 99.77}]}], LineBox[{Offset[{1.5, 0}, {14., 99.67}], Offset[{-1.5, 0}, {14., 99.67}]}]}, { 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.77}, {18., 99.67}}], LineBox[{Offset[{1.5, 0}, {18., 99.77}], Offset[{-1.5, 0}, {18., 99.77}]}], LineBox[{Offset[{1.5, 0}, {18., 99.67}], Offset[{-1.5, 0}, {18., 99.67}]}]}, { LineBox[{{20., 99.83}, {20., 99.73}}], LineBox[{Offset[{1.5, 0}, {20., 99.83}], Offset[{-1.5, 0}, {20., 99.83}]}], LineBox[{Offset[{1.5, 0}, {20., 99.73}], Offset[{-1.5, 0}, {20., 99.73}]}]}}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.7187500000000002`, 99.6435}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{2., 20.}, {99.65, 99.78}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5867181353852396`*^9, 3.586718309520274*^9, 3.6187676867662745`*^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.32`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "44.42`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "44.35`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "45.07`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "43.57`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "44.58`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "44.31`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "43.89`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "45.1`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "44.800000000000004`", ",", "0.5`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5867184676188035`*^9, 3.618767745734806*^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.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[{{2., 44.32}, {4., 44.42}, {6., 44.35}, {8., 45.07}, {10., 43.57}, {12., 44.58}, {14., 44.31}, {16., 43.89}, {18., 45.1}, {20., 44.800000000000004`}}], {{LineBox[{{2., 44.82}, {2., 43.82}}], LineBox[{Offset[{1.5, 0}, {2., 44.82}], Offset[{-1.5, 0}, {2., 44.82}]}], LineBox[{Offset[{1.5, 0}, {2., 43.82}], Offset[{-1.5, 0}, {2., 43.82}]}]}, { LineBox[{{4., 44.92}, {4., 43.92}}], LineBox[{Offset[{1.5, 0}, {4., 44.92}], Offset[{-1.5, 0}, {4., 44.92}]}], LineBox[{Offset[{1.5, 0}, {4., 43.92}], Offset[{-1.5, 0}, {4., 43.92}]}]}, { LineBox[{{6., 44.85}, {6., 43.85}}], LineBox[{Offset[{1.5, 0}, {6., 44.85}], Offset[{-1.5, 0}, {6., 44.85}]}], LineBox[{Offset[{1.5, 0}, {6., 43.85}], Offset[{-1.5, 0}, {6., 43.85}]}]}, { LineBox[{{8., 45.57}, {8., 44.57}}], LineBox[{Offset[{1.5, 0}, {8., 45.57}], Offset[{-1.5, 0}, {8., 45.57}]}], LineBox[{Offset[{1.5, 0}, {8., 44.57}], Offset[{-1.5, 0}, {8., 44.57}]}]}, { LineBox[{{10., 44.07}, {10., 43.07}}], LineBox[{Offset[{1.5, 0}, {10., 44.07}], Offset[{-1.5, 0}, {10., 44.07}]}], LineBox[{Offset[{1.5, 0}, {10., 43.07}], Offset[{-1.5, 0}, {10., 43.07}]}]}, { LineBox[{{12., 45.08}, {12., 44.08}}], LineBox[{Offset[{1.5, 0}, {12., 45.08}], Offset[{-1.5, 0}, {12., 45.08}]}], LineBox[{Offset[{1.5, 0}, {12., 44.08}], Offset[{-1.5, 0}, {12., 44.08}]}]}, { LineBox[{{14., 44.81}, {14., 43.81}}], LineBox[{Offset[{1.5, 0}, {14., 44.81}], Offset[{-1.5, 0}, {14., 44.81}]}], LineBox[{Offset[{1.5, 0}, {14., 43.81}], Offset[{-1.5, 0}, {14., 43.81}]}]}, { LineBox[{{16., 44.39}, {16., 43.39}}], LineBox[{Offset[{1.5, 0}, {16., 44.39}], Offset[{-1.5, 0}, {16., 44.39}]}], LineBox[{Offset[{1.5, 0}, {16., 43.39}], Offset[{-1.5, 0}, {16., 43.39}]}]}, { LineBox[{{18., 45.6}, {18., 44.6}}], LineBox[{ Offset[{1.5, 0}, {18., 45.6}], Offset[{-1.5, 0}, {18., 45.6}]}], LineBox[{Offset[{1.5, 0}, {18., 44.6}], Offset[{-1.5, 0}, {18., 44.6}]}]}, { LineBox[{{20., 45.300000000000004`}, {20., 44.300000000000004`}}], LineBox[{Offset[{1.5, 0}, {20., 45.300000000000004`}], Offset[{-1.5, 0}, {20., 45.300000000000004`}]}], LineBox[{Offset[{1.5, 0}, {20., 44.300000000000004`}], Offset[{-1.5, 0}, {20., 44.300000000000004`}]}]}}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.7187500000000002`, 43.4935}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{2., 20.}, {43.57, 45.1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5867184823992023`*^9, 3.618767996877962*^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.89`", ",", "0.33`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "87.69`", ",", "0.33`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "87.77`", ",", "0.33`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "88.23`", ",", "0.32`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "87.99`", ",", "0.33`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "87.93`", ",", "0.33`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "87.9`", ",", "0.33`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "87.66`", ",", "0.33`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "88.61`", ",", "0.32`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "88.10000000000001`", ",", "0.32`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.586718551344531*^9, 3.6187680591432333`*^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.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[{{2., 87.89}, {4., 87.69}, {6., 87.77}, {8., 88.23}, {10., 87.99}, {12., 87.93}, {14., 87.9}, {16., 87.66}, {18., 88.61}, {20., 88.10000000000001}}], {{LineBox[{{2., 88.22}, {2., 87.56}}], LineBox[{Offset[{1.5, 0}, {2., 88.22}], Offset[{-1.5, 0}, {2., 88.22}]}], LineBox[{Offset[{1.5, 0}, {2., 87.56}], Offset[{-1.5, 0}, {2., 87.56}]}]}, { LineBox[{{4., 88.02}, {4., 87.36}}], LineBox[{Offset[{1.5, 0}, {4., 88.02}], Offset[{-1.5, 0}, {4., 88.02}]}], LineBox[{Offset[{1.5, 0}, {4., 87.36}], Offset[{-1.5, 0}, {4., 87.36}]}]}, { LineBox[{{6., 88.1}, {6., 87.44}}], LineBox[{Offset[{1.5, 0}, {6., 88.1}], Offset[{-1.5, 0}, {6., 88.1}]}], LineBox[{Offset[{1.5, 0}, {6., 87.44}], Offset[{-1.5, 0}, {6., 87.44}]}]}, { LineBox[{{8., 88.55}, {8., 87.91000000000001}}], LineBox[{Offset[{1.5, 0}, {8., 88.55}], Offset[{-1.5, 0}, {8., 88.55}]}], LineBox[{Offset[{1.5, 0}, {8., 87.91000000000001}], Offset[{-1.5, 0}, {8., 87.91000000000001}]}]}, { LineBox[{{10., 88.32}, {10., 87.66}}], LineBox[{Offset[{1.5, 0}, {10., 88.32}], Offset[{-1.5, 0}, {10., 88.32}]}], LineBox[{Offset[{1.5, 0}, {10., 87.66}], Offset[{-1.5, 0}, {10., 87.66}]}]}, { LineBox[{{12., 88.26}, {12., 87.60000000000001}}], LineBox[{Offset[{1.5, 0}, {12., 88.26}], Offset[{-1.5, 0}, {12., 88.26}]}], LineBox[{Offset[{1.5, 0}, {12., 87.60000000000001}], Offset[{-1.5, 0}, {12., 87.60000000000001}]}]}, { LineBox[{{14., 88.23}, {14., 87.57000000000001}}], LineBox[{Offset[{1.5, 0}, {14., 88.23}], Offset[{-1.5, 0}, {14., 88.23}]}], LineBox[{Offset[{1.5, 0}, {14., 87.57000000000001}], Offset[{-1.5, 0}, {14., 87.57000000000001}]}]}, { LineBox[{{16., 87.99}, {16., 87.33}}], LineBox[{Offset[{1.5, 0}, {16., 87.99}], Offset[{-1.5, 0}, {16., 87.99}]}], LineBox[{Offset[{1.5, 0}, {16., 87.33}], Offset[{-1.5, 0}, {16., 87.33}]}]}, { LineBox[{{18., 88.92999999999999}, {18., 88.29}}], LineBox[{Offset[{1.5, 0}, {18., 88.92999999999999}], Offset[{-1.5, 0}, {18., 88.92999999999999}]}], LineBox[{Offset[{1.5, 0}, {18., 88.29}], Offset[{-1.5, 0}, {18., 88.29}]}]}, { LineBox[{{20., 88.42}, {20., 87.78000000000002}}], LineBox[{Offset[{1.5, 0}, {20., 88.42}], Offset[{-1.5, 0}, {20., 88.42}]}], LineBox[{Offset[{1.5, 0}, {20., 87.78000000000002}], Offset[{-1.5, 0}, {20., 87.78000000000002}]}]}}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.7187500000000002`, 87.61250000000001}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{2., 20.}, {87.66, 88.61}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.586718555469874*^9, 3.618768065581194*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1149, 919}, WindowMargins->{{344, Automatic}, {Automatic, 11}}, Magnification:>1.2 Inherited, FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (July 1, 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 188, 2, 122, "Title"], Cell[CellGroupData[{ Cell[792, 28, 166, 2, 61, "Subsubsection"], Cell[961, 32, 227, 6, 36, "Input"], Cell[CellGroupData[{ Cell[1213, 42, 353, 10, 36, "Input"], Cell[1569, 54, 6860, 123, 291, "Output"] }, Open ]], Cell[8444, 180, 140, 2, 35, "Text"], Cell[8587, 184, 526, 16, 36, "Input"], Cell[CellGroupData[{ Cell[9138, 204, 352, 10, 36, "Input"], Cell[9493, 216, 14657, 251, 296, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24187, 472, 384, 11, 36, "Input"], Cell[24574, 485, 14532, 248, 296, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[39155, 739, 355, 5, 48, "Subsubsection"], Cell[39513, 746, 766, 21, 60, "Input"], Cell[40282, 769, 199, 4, 35, "Text"], Cell[CellGroupData[{ Cell[40506, 777, 165, 3, 36, "Input"], Cell[40674, 782, 310, 7, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41021, 794, 728, 20, 60, "Input"], Cell[41752, 816, 1521, 37, 147, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43310, 858, 228, 5, 36, "Input"], Cell[43541, 865, 165, 4, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43743, 874, 567, 16, 36, "Input"], Cell[44313, 892, 1741, 52, 147, "Output"] }, Open ]], Cell[46069, 947, 162, 2, 50, "Text"], Cell[46234, 951, 1160, 33, 106, "Input"], Cell[CellGroupData[{ Cell[47419, 988, 127, 2, 36, "Input"], Cell[47549, 992, 197, 3, 36, "Output"] }, Open ]], Cell[47761, 998, 288, 7, 36, "Input"], Cell[CellGroupData[{ Cell[48074, 1009, 124, 2, 36, "Input"], Cell[48201, 1013, 197, 3, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48435, 1021, 774, 24, 36, "Input"], Cell[49212, 1047, 75, 1, 36, "Output"] }, Open ]], Cell[49302, 1051, 539, 14, 60, "Input"], Cell[CellGroupData[{ Cell[49866, 1069, 208, 4, 36, "Input"], Cell[50077, 1075, 216, 3, 36, "Output"] }, Open ]], Cell[50308, 1081, 166, 3, 35, "Text"], Cell[50477, 1086, 1059, 30, 129, "Input"], Cell[CellGroupData[{ Cell[51561, 1120, 256, 5, 36, "Input"], Cell[51820, 1127, 377, 7, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52234, 1139, 329, 9, 36, "Input"], Cell[52566, 1150, 3766, 120, 152, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56369, 1275, 452, 12, 36, "Input"], Cell[56824, 1289, 2493, 62, 129, "Output"] }, Open ]], Cell[59332, 1354, 149, 2, 36, "Input"], Cell[CellGroupData[{ Cell[59506, 1360, 201, 4, 36, "Input"], Cell[59710, 1366, 8196, 165, 293, "Output"] }, Open ]], Cell[67921, 1534, 1248, 36, 106, "Input"], Cell[CellGroupData[{ Cell[69194, 1574, 288, 7, 36, "Input"], Cell[69485, 1583, 1252, 18, 83, "Output"] }, Open ]], Cell[70752, 1604, 1162, 33, 129, "Input"], Cell[CellGroupData[{ Cell[71939, 1641, 165, 3, 36, "Input"], Cell[72107, 1646, 198, 4, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[72342, 1655, 436, 12, 36, "Input"], Cell[72781, 1669, 2789, 69, 129, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[75607, 1743, 200, 4, 36, "Input"], Cell[75810, 1749, 8378, 165, 293, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[84225, 1919, 498, 13, 36, "Input"], Cell[84726, 1934, 8532, 168, 289, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[93307, 2108, 120, 1, 58, "Subsection"], Cell[CellGroupData[{ Cell[93452, 2113, 578, 16, 36, "Input"], Cell[94033, 2131, 28633, 487, 291, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[122703, 2623, 470, 13, 36, "Input"], Cell[123176, 2638, 40864, 689, 275, "Output"] }, Open ]], Cell[164055, 3330, 92, 1, 36, "Input"], Cell[164150, 3333, 1698, 45, 106, "Input"], Cell[CellGroupData[{ Cell[165873, 3382, 249, 6, 36, "Input"], Cell[166125, 3390, 1226, 18, 83, "Output"] }, Open ]], Cell[167366, 3411, 1243, 34, 129, "Input"], Cell[CellGroupData[{ Cell[168634, 3449, 468, 12, 36, "Input"], Cell[169105, 3463, 1663, 42, 106, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[170805, 3510, 201, 4, 36, "Input"], Cell[171009, 3516, 5644, 123, 293, "Output"] }, Open ]], Cell[176668, 3642, 94, 1, 36, "Input"], Cell[CellGroupData[{ Cell[176787, 3647, 413, 11, 36, "Input"], Cell[177203, 3660, 1666, 42, 106, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[178906, 3707, 201, 4, 36, "Input"], Cell[179110, 3713, 5902, 125, 287, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[185049, 3843, 430, 11, 36, "Input"], Cell[185482, 3856, 954, 24, 60, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[186473, 3885, 252, 5, 36, "Input"], Cell[186728, 3892, 3553, 78, 283, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[190318, 3975, 426, 11, 36, "Input"], Cell[190747, 3988, 910, 24, 60, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[191694, 4017, 203, 4, 36, "Input"], Cell[191900, 4023, 3408, 76, 287, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[195345, 4104, 428, 11, 36, "Input"], Cell[195776, 4117, 919, 24, 60, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[196732, 4146, 203, 4, 36, "Input"], Cell[196938, 4152, 3506, 75, 320, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)