(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 126371, 3254] NotebookOptionsPosition[ 119081, 3002] NotebookOutlinePosition[ 120156, 3038] CellTagsIndexPosition[ 119983, 3031] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Programa\[CCedilla]\[ATilde]o b\[AAcute]sica: \ fun\[CCedilla]\[OTilde]es", "Title", CellChangeTimes->{{3.618817771133236*^9, 3.61881781342704*^9}}], Cell[CellGroupData[{ Cell["como definir uma fun\[CCedilla]\[ATilde]o", "Section", CellChangeTimes->{{3.618817834447069*^9, 3.618817841327079*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"2", RowBox[{"Sin", "[", "x", "]"}], RowBox[{"x", "^", "3"}]}]}]], "Input", CellChangeTimes->{{3.6188179359672117`*^9, 3.6188179380872145`*^9}, 3.6188183841078396`*^9, {3.618818459597945*^9, 3.6188184743479657`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "3", "]"}]], "Input", CellChangeTimes->{{3.618818505138009*^9, 3.6188185061580105`*^9}}], Cell[BoxData[ RowBox[{"54", " ", RowBox[{"Sin", "[", "3", "]"}]}]], "Output", CellChangeTimes->{3.6188185094280148`*^9, 3.6188187607183666`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.61881876319837*^9, 3.6188187690383787`*^9}}], Cell[BoxData[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "3"], " ", RowBox[{"Sin", "[", RowBox[{"Cos", "[", "\[Theta]", "]"}], "]"}]}]], "Output", CellChangeTimes->{3.618818769748379*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h", "=", RowBox[{"2", RowBox[{"Sin", "[", "x", "]"}], RowBox[{"x", "^", "3"}]}]}]], "Input", CellChangeTimes->{{3.6188185293980427`*^9, 3.6188185475680685`*^9}}], Cell[BoxData[ RowBox[{"2", " ", SuperscriptBox["x", "3"], " ", RowBox[{"Sin", "[", "x", "]"}]}]], "Output", CellChangeTimes->{3.618818548018069*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["h"], "Input", CellChangeTimes->{3.618818551608074*^9}], Cell[BoxData[ RowBox[{"2", " ", SuperscriptBox["x", "3"], " ", RowBox[{"Sin", "[", "x", "]"}]}]], "Output", CellChangeTimes->{3.6188185518480744`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h", "/.", RowBox[{"x", "->", "3"}]}]], "Input", CellChangeTimes->{{3.618818556808081*^9, 3.6188185721881027`*^9}}], Cell[BoxData[ RowBox[{"54", " ", RowBox[{"Sin", "[", "3", "]"}]}]], "Output", CellChangeTimes->{{3.6188185592480845`*^9, 3.6188185727281036`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"z", "=", "3"}]], "Input", CellChangeTimes->{{3.6188185979681387`*^9, 3.6188185995381413`*^9}}], Cell[BoxData["3"], "Output", CellChangeTimes->{3.6188186003381424`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", RowBox[{"z", "^", "2"}], "]"}]], "Input", CellChangeTimes->{{3.6188185812381153`*^9, 3.6188185863781223`*^9}}], Cell[BoxData[ RowBox[{"1458", " ", RowBox[{"Sin", "[", "9", "]"}]}]], "Output", CellChangeTimes->{{3.6188185870381236`*^9, 3.6188186031081457`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", "7"}]], "Input", CellChangeTimes->{{3.618818653998217*^9, 3.6188186548282185`*^9}}], Cell[BoxData["7"], "Output", CellChangeTimes->{3.6188186557982197`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "3", "]"}]], "Input", CellChangeTimes->{{3.618818657908223*^9, 3.6188186637782307`*^9}}], Cell[BoxData[ RowBox[{"54", " ", RowBox[{"Sin", "[", "3", "]"}]}]], "Output", CellChangeTimes->{3.6188186643582315`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h", "/.", RowBox[{"x", "\[Rule]", "3"}]}]], "Input", CellChangeTimes->{{3.6188186763182487`*^9, 3.6188186775682507`*^9}}], Cell[BoxData[ RowBox[{"686", " ", RowBox[{"Sin", "[", "3", "]"}]}]], "Output", CellChangeTimes->{3.618818677828251*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "p", "]"}]], "Input", CellChangeTimes->{{3.6188187920484104`*^9, 3.618818835988472*^9}}], Cell[BoxData[ RowBox[{"2", " ", SuperscriptBox["p", "3"], " ", RowBox[{"Sin", "[", "p", "]"}]}]], "Output", CellChangeTimes->{3.618818836528473*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["h"], "Input", CellChangeTimes->{3.618818843778483*^9}], Cell[BoxData[ RowBox[{"686", " ", RowBox[{"Sin", "[", "7", "]"}]}]], "Output", CellChangeTimes->{3.618818844098483*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "f"}]], "Input", CellChangeTimes->{{3.6188189339486094`*^9, 3.61881893445861*^9}}], Cell[CellGroupData[{ Cell["Global`f", "Print", "PrintUsage", CellChangeTimes->{3.618818935188611*^9}, CellTags->"Info3618808135-2707394"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"2", " ", RowBox[{"Sin", "[", "x", "]"}], " ", SuperscriptBox["x", "3"]}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[$CellContext`f], Editable->False]], "Print", CellChangeTimes->{3.618818935208611*^9}, CellTags->"Info3618808135-2707394"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["f"], "Input", CellChangeTimes->{3.6188189383786154`*^9}], Cell[BoxData["f"], "Output", CellChangeTimes->{3.618818938828616*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "f"}]], "Input", CellChangeTimes->{{3.6188189463286266`*^9, 3.6188189469886274`*^9}}], Cell[CellGroupData[{ Cell["Global`f", "Print", "PrintUsage", CellChangeTimes->{3.6188189477086287`*^9}, CellTags->"Info3618808147-2707394"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"2", " ", RowBox[{"Sin", "[", "x", "]"}], " ", SuperscriptBox["x", "3"]}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[$CellContext`f], Editable->False]], "Print", CellChangeTimes->{3.6188189477186284`*^9}, CellTags->"Info3618808147-2707394"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.618818958798644*^9, 3.6188189944086943`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJw1m3c8Vv///7muy5ZNZdOyua7McL1eKCHrLUp2MgoZJdk7lCIzsncoI6OM nGMlI1khKzJC9sjI+F6f2+33++u63W/nvK7X6zwfj8fznNftdo6AtYuBLYaM jIyAJSP736+WJoPaPwEaNMGpsp353SSR/V7AGjUvDUp2vlr1/dMGMBmxlsbB SYMOJvio0/h0g8df+nbxLDRoLQ9NrIDFBMi9+qrkLoYGfR99xTDt7Ao4usLP OfiLGlUrNO1je38I3qsS1styqNGHrkV7Dd300M86J70hgxr9na7vkZ1/AmoE s2l3pVCj5MQN+3w/Bviz8W/+7zhq9HF1iE4EGxOkV6kz4w2lRj1v7D6srWWG duDyl0gbarQP7Xt7a4MNcindyLA7R43e7fJLsWHkgndcRf7jE6BGf731ygl+ xAWLc48ww9zU6OXQZ6yCo1xQ8USBnSYbNTplbzY+m8sNTSd2xMWw1Oir+3YH Twi8MCUwuX59kgqFDjFsQin8kKt17IdvKhXqV/5nvND1DLyzVxYpk0SF0vll cxyknIHF4k+UV+KoUL4hiW3mtjNQMVE8yzKSCn1Q8InqKfdZaGrvf1fVmwo1 N1tQLWg5C1No+HeojKnQBl4Po1qa85BL9w5bHCsV2h6hR79uLwSTImpN4xmp UMYYRtunT4UgRzNzTgIdFfrbK31ntUgIMsmj+CQsFbqlLHdGaFkIUgry6KVt UqLsXVGUV12E4dr24NOCfkrU0up2jYGDCPycpnVcF0eJ8hyoSagqicHLw1nq n6IpUdUgjW9fb4rBRpa9Fw2RlChGY/GpyEMxWB9ewN0YQoky8x4W3SwUg+Vu uEufH1KiS1yuciGs4jD1SoN7z3VKVJj63UPpn+LwwTJ+cYaVEnXibbtWaCgJ Y8dvqOwzUqIKm0c+px0k4fuvPkmM9JToldG1EMsASbj+rlX9Eo4SfT0y73m/ UBK6Ot/Kid6iQAfo2Z/F/ZOELquBZpe+U6AqxsCXQVsKRv3Mq9DrpUBNXxJG vI2kYMm3DlrbrxSosIvrVJ+FFFwpZauJbqVAo65kcKm7SUFn1zfss1UUqAOv atSlBCnotP6tOzqRAv0gELJh+0MKPp/aOpcXS4FeVNYPi52Sgm97T/vVRlGg 5MKnQosXpOCf8juis2EUqF2C8Er2nhR0eLATfukxBTo597PnzSk8vLfJqzJ7 kwI9IX/Pj+s6HkZMqyXtXyet7wKwZzPBwzf9d1cZ9SnQnS1v/30rPJyveJ92 SYMCHar8zy7KGQ/vuqvvR8tToNbpBPfBCDy0275fcek0BdpRL2q0UYOHmP1t hn9sFOjXYlYNFRQPM478HOqYKNDU4Zoj7894OEwVJaBETYFyOeb9LenDQy3O kmjlHRyqwSH3lXMRD+d4Zf8cbuDQxn7l142reBhypkG9YQWH2m7jiq5v42G9 WPchcQ6HDg749iqQEaAEWHGE33Eor8jJI0Z2AuxQ82gj68Wh60wnM1g4CdBe 40iwsQuHBmXexJDzEWDmfwwjKi04NJvXRy9LiABZbCQ01CpwqEleU/P6JQLc iXA+qx6DQz30gtgmTQkw/sXfAMoXOLReqtY435IApWL9Rz9H4NDFGD3LW3cI 0CElKvZqIGl93fWbTxwIcOxdCZmmCw49GUv1b/8xAXq+lzWjccShGw9CWYV9 CJD9Q8OHdjvSego6nC/7E6Au2u2sZYFD/9vdElcLJUC0b2Xsmg4OdVXPf2kd TYBmQx7y9Jo4tHVDN+gghgD3Ro/iui7j0DgnXZnQeAIkzDJc01HCoal6aRfM kwmweyEx/4Q8Dt2sYQkrSSFAxxVeTPdFHPpxXGR+OY0Ac3ckanRFcWjgg+gd 2WwChAfVbIwXSNxE3gpzCXCcDLh+E8Sh7Q+tB+XzCZCDVu+CPicOnVqVp9gq JMAIbpeE/2hwqH6KlFFSGQGaXPAOM6HAoczfR9gOywlQjPDk8R1yHJrCrNBr UEGAPVdTbj3aw6L6LzXde6sIMNsgX8t/G4tiqzke7VcToLt5uWL4OhbVTPya z/aRAE8+bONJXsCinJ1Cvdy1BDjv18eQPYtFC0amp2nrCLA2Yvy4aAqL5tBV my6S+Hnc/FrFOBaVJRReqasnQIv0zan6H1g07fHnEr9PJL0Kj/pav5PON+DI xTcQIKaSpqW7F4vyB2YShkg80MBWNfQVi3r9c7R3Rggwv50vf7Idiwrv+Ovt kNhzQOTVQisW1f4+seOGEqDWT5mIjUYseoH/5f0JEnMvQq9/n7BoS3DiJ6VG AlzZuuaAq8Wi/o1bW89JjB7fMD1RTZr//Vv+bySOpbXW5niPRZnlEB1sEwHa sN9X5ivBot8JYk+FSSzD7ykhVIRFh59s/FQhMaVoCB8+H4sG4ZgstUk8LBPF dCkbizq6BrFqkrgIJpOrpWPR026qtPIk9r2Wu3HtNRbNfa6jf5rEujdKpw0T SeP5UzeWSPPz364dMI/Fooom54/ek3jDsbXVLgqLykhNBziSuMWjp9rlGRZ9 bPIllIPEiUGjBZ5hWNT9WsfpStL13n0+lxQUjEV/CY1du0ziS6/Wnz7zx6Ih LasX2kj1os8+8I7zxqJUCdu1SiSeeEvllOqBRedLxpjzSPUu+8BinvcAi179 FKtARuLrX4XABwcsWirCJRlN0u/s8EUp1A6LOsU0cjST9P37iyjQbo1F/yxP YBZJfni9a4gdNcGiCp/YuZlrCNAJa7U1fQOLXu77a81M8g+RwXF2yQCLPmGd mMJ9IMBfZ4LajrSwqLe+Ul1rJQFWSjz/SHUVi7IU3peMI/kzTOFVIZMaFm3/ cZrR8D0Biui9ixRUxKJ2ypcvl5US4MGtj76iciS/FDlXXCsh5cum+b70RSy6 YujUOPKWAB94/9BTF8Wi5xzOLfeT8nH5yQzUu4BF+xj9zxLfkPLzchVvfAaL hprNiKeS8lSbR8HmwIVFp9uOFi7mECB5L374BR0WreT459RPyqv+WsZXFSos WpE2eaKClOd0RobmbQzJP+xUI6GvCFBJd/Gd+T4GNekZkj6OJUCPzuwQ8QUM 6pQpUKP/lKTfIpPX1AwGvd1c79kcRoCstAHOCZMYVIG6fUaI1F/KNExvHQ5h 0GWraEwXqf8strJKfv2MQU0TXnA8ekiA8rNBZ4OaMGjGqZB//q4EGI5bOy3T gEEpNy+f8L1P0ketC5dWhUGfz5zc0bMnQEs0dMQpF4PW0MRlW5mQ8lS7/YQ+ GIMKnORSuUgkQMGROz6oH4nLXe8+JvVXt71eV3cvDPpK3r+2VJYAGeRLTMdc MejEfAnPoQQBalbZ4d9aYtCc+N1X9KR+3VA6NHZNGYOOXDSlpT8k3Z9yay5G 7pKjZPfa7fbK8DDZa1v++hY5+t+rtT+7xXj4TBdP5FojRytyf8yu5OOh0+4b jeLf5OjkFWW3hlQ8lNJOMu8cJEelNDQ9lsPxsGbTI5yuihxFQn6/eWWGhx2q 0qORbuSoBmcvZ8CxFFyeLAl+vkiGHisI2KZISEG2+vs8aXNkaOgZ+mAeISmS /8U+vvtFhv7n8UPjtYAUDNMpWu4eIUPhj7+HIWxSkL82z5i5kwzNUTAwJGxJ QsO4VInEYjL0RP8uoSBCEtZdeTaS4USGpnCcfJJZJAFZjTpt7MaPkdCuULbz Q2Kw4HzztkzdIQI6nB9+ShWCCyxEDf1P/5DJz0mZCTFn4b2euKAH7XsIOa76 k2odP7zc9XCJo3gHMep6ypbRfhp+/TV4irJ8G3nYb1IR58UK+ZN0Jx6+2Uai hhfVgBUrdNf5nDOVsY3kbbstHqizQu6PVRKforaRgxMwvoSNFTq8iL/s7rSN zDE7Mi2VsUBKeQPXXxe2kfSE5Z2BJWYIXnxta0jfQmLOaNGEPGCC5XItHo+f byKBzBouBCc6qGU8ZHoidBOhfIwupqjRwV+eizDHZxPxXfceEeaig2y1THTf HDYRbVptjooOWuihZJ5xXnMTKcoK3fAWpYWXVP62fafYRCzq+lV/blLDJi2h 09IBG8jtxWC7hQxKaOKoeNTusYFY4EVXxn0o4Wak7rSl8wYiztUQ+/cmJTz7 1f1dpPkGImuawR3PRAnD9BpVphU3EGlXo5cBIRRQy9DEIXZ3HZEZzjJjccXB PvPndWtu68j5nZLKjTsY+P1ZXudJh3WkalaF0U8dA4c/NIwSrdcRfYmHe+eE MfAn8/q/5wbryK3TD037V8jhUquRkvDFdSQk1cY+xYccUkrwfbq9tYb0UrUP DL8mg5eOyhv6PNYQ3Tn82rOfh0BZtLN7z3kNaY6cCud7ewig8cwEv/0awnk6 sX3F8xBcfc9x7HxzDXE5Ub2qxHoIDO18AJ38GuL4z105QesAjKY+DQzfWEUk b6iQC7TsA1Xl0pB7OyuImIee1fbUDlBcuF91Z24FmQlqtdss3wHSCWK/zb+v IKYJoWWE4B1wYblQy6BiBYkM8Pd3P7MD6NNymRVdVpCN/HsnyO/9BUMHyRn0 v5cRXruZJB6ybeBUH1pXOriEOJziDL9pvgFs76otF7YuIXF+2HFpmQ1gwYbh y61cQkytvqTrntgA/zkFBCfFLiGNogaIbMM6kOX21gzSXUK8LAvHBwTXAbmv y5DB5z+IQOpWpfrKKkhUNNncrlpEqnwm75cl/AG2ZOd8WPIXEeeF1/pE4z9A unUVI5m4iJg4R2yJcv0BvbpPWO56LCJtZ+WMzmUvAnrrMvyI7CLyo03iSkTl AgiOoHRt+LCABDj9quha/A2cv79fCquZR57wH9XIpswA5dd+7jmF88hR/t8L wvdmAL2lxgGSPI94VzPVuMnNgML5cbo9r3nkwhc/atz3aTDzj1rU8dI88q3i TvlZtmlgImh5T6/uN3JW+MoTpuwpcNWFbu7kpznkXi2/Y+PWOKAOsw6YLJ5D 3qd8fWCUPg46UmtOFb6eQ661cPOmaowD3Q77a5c85xCXxfYzxIwxYHiupczs 4hxy5zqq2mA4CqxGfX2yCmeR/6x21fZ+DgPBjX42h6RZRFxt+PqN+GEwTS1a QgifRYBdJcMtzWFgJ/tjstlmFpk/8L+iXTUE7sfIqM/xzSK/0OSdvvhB4H11 hUk0cQYZHLL0KHYbAEoWV4o2Q2eQtIobdeRSA+DQPVWt/uEMcn2N6d3aSj8I zNby0PlvBrG6WmGc4NwPwg/zR13oZxDZm7cEp937QHyFZX5l8DQyZNpmPpra A0r4ehWJLr+QL6ZBYfKFHWCf3pLtpsUvRNU+5neJVge4sr+05KLzC8GI+3Jx LreDsQHq9CzRX0hTAf/xF+l2QPsMklHMTyHv567PWXxrA3ZbpS2dVlNIYoG9 Ma9UK3g/pZw2ozeFSJ9Q1ZKcbAGH3Z2PDolTCK3+mBFPTAuIL/x9XpJnCvn2 Sunns+1m0GTB9zT2xyQyWmL4M/hLE+Btj9K5ZTCJ6MRJ92cloMChmvv8A5VJ 5FHhCnbQAAVVOUVHz6QmEXLbObEeJhRo+38urWeYRDrivzoL8CJgy+7gDEz8 iXxX/Y9RVvgTeKc4+vZr+ARiuJ48ePFJDbjMsWN+bDuB0IpsCtGcrAFjayyM +MsTiGiEU6Zy0UdAm6/lFk82gfxWXKOoGfgA7JhqZUy9xpFsrU/wnUI14J1N aph3GEP6n3zkllCpAFbrXVyW18aQkzsp3wuW34PsQzKv76JjiAz50yHxlPfg PMe9i01Lo4jM/k+JG3vlQOKqwpsU51Gk/99051hjGVAu/BGj+2AEuWDv2zmE fQf8q06sthiMIDhfZmpT37cAbVTRVrw4gkwWRFFW/i0Gl0cKKYW2fiBRX9So htaKgDadtw+5xw9E8KEAtev+G2B2n9O20msYMXoV/sfVMg+ke+k2iZgMIxRU ZaUum7lg8kkwX9alYYQrTqcR9zQX2KQv/njxbwjp91O//+tjDnD8Vqtr7zeE 2A/juMhFs8Hb0ZXicfMh5NtJWpurnVlg5bcgjSFxCMkhdVCK+1ngAVlkMzwe RLYzJ7ZGKjOBN95UnjNoELF9ezMRW5wO6pWjE17eHkS2+qX3ASYdHGk2b1Cq DiLx0+6OeLM0EGwt+m4TM4iQTzDlcJxKBaRNusDX0O8IbQT2jmBpMkjeTqEL jBhALB2jkNOGCQDNm4/UtRtAKh/l/03+Eg/mjWToeS4PIK+NnXCtIB7IV3fT 1x73I5jW9eg9mTgw6EHOsOXRj4AfyIM1GAOOzutGNRn2I2Fv+U6Ptr8E54Ze M8QQ+hFlntUccaOXwF1OmlFipQ9p/6ub1z8bBVh27Zju2vYhDYLB92rjIsGl NxUvZdX6kJv+V+K1Op6B28ZkzBQCfUjdYUK1CMUzUPYxmTl7rBdBnBR6U8Mj gJ5XF8vY9V7ktIuYc8qnJ8BD+HRcEb4X+TOkW33I9gSk/7Bl9WLsRZw+7NrJ uoaCFYVjVo7OHkSC+wffGj4EPN/Hs+ur9iAX2WWcViYDQWWRfwIvfw+yymjT 6GQUCKqrEkVH/n1DavRZGlJfBwAjj3YxtoffkMHBmmKqKD8QuyMhGXG7G5le 8LJ0bfQCUze/SJ7j6UaOM2e4s8Y9gdTH21JNw1+R3zzXzJHjx+CbZzz+QO8r cvbYYszUyAPQ7+9ddCV2IUnJp/5cVnsITE3ipE/sdyL097ItmJ4/AEW1YjJF VZ0IL3/ql8MfbkDTx1J2RqwTYf2i1TUW6gqSRndlg+Y7kOFwfXGlZhcwrxgr x5vbgQh+Pv1AJcwZhB20yBtzdSC38qoSTwo5ge9mFgrbg+3IY7eY65GUjuDs px2F2Nh2pHqezadt+R5o8hNR7KJpR2YFGZOmv9uD46NoZbjbhjhnPs/7SmUD cptuJdp9bEOMX2g3X5W9AzTDzqw+92xDkiUFsJccrUHciQ+ZP3Y/IydWUrOO flsB+d7AveOPn5FywYLqF5JWYDxey+C812ckfL+xinvfAlzgnsA+3GtFJune kzcbmIGunwVmyTWtSBKatDTHaArcctyqEK9WxOmnUeufoVugToTCnn6/BbGO jc9JC78J9BTEOvL2m5FzF6dfrFhcB1sH24Jdtc2ILI725W0nA5CMIj4b3s3I sDq9Xl/wf2D66nVx8K8JiTodqhcTpwci6HjCbOuaEN7usYK6TR0g/m1uItKn Cfk6ttDCZ6MNHt/wfjn8rxHR/jpGP/1QE3BzXl44qmtEpJrH0pxYNEDj+AnV c76NiPBhDxqKqAM626xNtwMUOfl+iL1V7TIoE3LUTqpHke9V88eCnGrAaEk6 r8EXRQSc5pe8D1UA8ffLdxz7CPLM7H7rhX4AIpzPWt7xRpC5VR9asWll0Lf9 galsvwHxrBFqEKJVAna4nw81/31C/tE1XpV8LQ/KIh+cS/T5hNAeuhD6yOXA Pgvl0K9/9UjQD9yHDD8ZECUgfsn3oA5RNJrSoS8lgOE36J8vvnVIVoD2A9M7 eCAoZZjGfliLKEdE3JARlgLVRB+y0sMaxF/AwoelWxSQfWZ4/8+vBkmfrBqI rxMGWjrZdzSOPiKuFk03NdsugAnT9s9TRx8Q56pxxTzps0Bo2sxTIuADcooy RJ8mXhA8cFgT9jmuRkKlxndPnRAA9esho20B1UiJvaFUsDIfoPQ6+YKNrBqp 0zVtn4/mBvpkxcTbgVXIqjd53w1GTvA6nLj2jqwK8ftTRdtecxJIJNpev0pe ibT7yD76Hc4KPHn2cPFBFUi4mGViWwEzaMp9Xj1JXoHcoTuZeGGQEdCL8d8V D36PnPxYl0mZSQ9uVFSc9sa8R+pK+xXeF9KAzEtXOz8HlyM9fg2tbauUYLFx xJcVW47Y8WmfPXDGAWlNZwmrkDJE/cdQJddZDPDrIZ98iy1DjoqumNDSkwGx U0kcO/SlSK4K3+2+WwdEy2ix+/EsJYhkg6jRwvouMZaysRl/6h0iftOYk3x0 m9jiZ8T5ject8nZZ5/MS4ybx79aCq9OZYiRue56sOHKNKOzk30YjXIRE9zmz dcUuEc2mWXgLJAqR7J+hgb8j5olRJgXul6XfIAvWVzWL12aIaK9i55RCAaJX 0tXs1jhF3NToEQgA+YhZS7fqj9lx4nnUxpP7Sh7SipXY1NwfJhrL7XXXaOUi MJav4G/ZADGy5MW5m/o5yPXHFRZ6/3qIDecEfbeMspHuXK5Lc4mdxLXU6r4Y 0yxEPQC7YSn0mXiG7Zqw5O1M5Cd31S3K2EZiMQdynPQ1HRE+0E6w8awjMlHM v+0fTkWytteIsgJVxEebTCYMM68RNj/vS6YLpcSRKQUqzdUkxNXrxYm7rwqI oMe6MmQ/EbE7I/h9EptFzG2IvN1AkYDkdPGt8Ay9ItK+q2TYY4pD7qs0W7sI vCS6pIzXXeSOQQJ18l66LYUS37Ce6BvTjUKKOPnzBxEv4oM1CzED22eI5MmR N4OZ94lKX8vC2nzCkObZ5EwnvCWRqggzpRQbjKjTvBpSpdUhZp8o9LD5zw9h uiHRshgpS5Rr0xbV83+EiNf6KPCc4CS+Ip9CHt5wRIJayDjD6NaVAxf0DWKt biLLejqtwZeylT+igU50pQCEr6dZbqBE5ZVcDRx96h3wLktnaJC+T/lXUqAO V5YbYLZ9f5IsgYqo+3MsScrdC/hazen/SRcmjsVyb2TnBILzxX31rdWqRJbq jlfiL0LBtd9bj9I+GxE1fngqf/SIABVKH6DemC3R/+D8tKrVc8Dv2j9P1f6Q OBLt0DJ39iXwTJltckkIJLpnqZx8ezoWdDv+yuWQfkZkrDjl4MYQD5rs/vga oXHEopbVellsIngs2Jn05k0q8crgZ8aDnVdAkpahIvxsLnHyd5p141Iy4Gtc 1VOPKSb67LlXhU2lgP2zrknqru+JHHTa1NqDaUDeTsRqUeIjsZz7jClzZwbY KomSoRZHiOdPHt748zMTZF2fif7T0UzczLhLpjuSBfJEIrPyOr8QUaGBwrKB bOD69fcAbXk3MaocXGf9lgME855i7nX0EU0vFR88as8FRCgkSN0+SBRq5sgf bs4DZdV95qnWo8S/14L1FBvywYimtCDV9Uliy8DybtrHAlBTUJDv/d80Mcb8 VjZZxRuwzzD7q7Nyjmgx13LtzrtC8J4btXj0ZJEo5iK13VpQBIRGTu1pdK0Q 93dS0oWyi8G9j/krcu3rxLZAKo3I1LdAMklAqcp1ixhP83B9OfEdoH8cIhtx e4doHTvxWj+mBARYB1/+krlPJD8IFd3ILAX+j5z2rJ4cEXves09oGpcBfCot e9U9cpD5+24+52QZaC8PmKVuxwJX7nrnP/blIC+kBnfbhhLA/xjl6lfLQTrd k8yXgAYwhVkfP3/8HrCtPNyNsKAHZavULyXCKwCloOjTk/XMIPCsmfExQyXI VqiqL/rECvRvlfL3JFYC8MZz+fUCO+CPwixk8lYBly//1YuqngJrTUblbvlV gPYCW2NpOydAd954qUpUA/5ytfCIYB7wUuxAhbW6GnDfNLsSJ8cPpBKz+ypb PwDf6gmHnx5nAFnn9usnOh8Bj3HG9Qeq50DPscadG98/ghlG3dus4hdApnSq 6AXzGtDFQMHELy8MXO+tbu7M1IA8PQ7NQxtRANNV67841QKFMNbbJ6vEAVN/ QmjyVi04ic7SrrNJgTIlJXZFXD0gRaSgoZkAAt2ix+me14OfrN/OvlOQBvr5 v/LGWD+Bj84fbclaZcAa41NZ/zMNwFz1pTwtnwJAL48d6RY3gO3X8oE2q5fA Sy/JNr6LCMAPmm05DCuBpPXFYisBFEzHebL/9YGA7Dkbk6YtCt4tsx2wJqmA u+eJ7vhCFFxh9sZoNqkCedMYJQy+ETTQsb34qnoFZG7XZi66N4LXN43F6V+r A+qXM7j+j41A+A3+LCTXAMMtcl9zYBOI4Uu77E1+DUDL2/jnoU1AjhKh80/R Bm/2niW4k/ZdkfPidx5c1QWeEhPmV/SbwRUuoT9pf/TBqaTQlTnLFrAjr7Ib vWEIAgklBt9yWsBp+aGxSoYbYL5rqPrD7xZgJhDgtCtzE3wkFw2IcGkFF85U Vhzn3wL8qYbTrhWtoKTnavXNdRMQIet/9dZOK8AgF/b+XjUDxo69jCIBn4GR fWWUMpclQCn+PWRp/gyC1oV5obYVEMo8O7xP2QYycbkumcy3we7A48zOqDZQ ovRUilhuDZKIvPj76V9A6BTHiL2GHSh6dFK5a/wLUKCzfh4vZQ/q3zJpivK0 AyXjd6EI310wxYm9vZDSDgzkyWPTWB2AyM7vl7bJHaBg6+jOPSNnoCQxldoy 3AGorw+BR14uQNd25M2ZU51gxG/tYq+BK3jY34VOJXaCaZsmft9IN1BfWr5m Ht8F0udB84yUO+ieKzqo7+8C3TEXHj+bdQeTPLnU3KxfgV17XMpY+iNA8TyR fyTmK4in2+MZ4nsMdO/66N+I7gbdknvCNubewCrD3ayquxu0SnfYFyv4gAeD 9++yMXwDogTNnctcvuDVZavAvuffgHNX5GrLih9wfSlofOFKD/gnPsjwbikQ 7InyTQza9AD6kSUjLbcgENzGZRMW2gMMnk0UzO8GgfgjNtfZ5h7gGsT5zYg5 BNQ4UUXkqPYC1Wt3WaXvPgGq1DiG69a9gCZhn5mLMgx05ZDFY4J7QWXbtX7L gjAwMbKXcbuxFwzYm9whbIUDjObSBz7YB7a64uV1Pz4DkTPzyt8s+wBn0+zV Rw8iAVvgbLN/QB9QzIt6Zir1HJz/MPFtvKEPFGi6Nb368AJonev9naLcD9gP 6QaSvF+COPLqk6cUB8AkFfaIhzseyO4le7uYDwCrirDo4dx4MLLmN/45YACE P3hWoCKVAPgnr+Q8ahkAv3kuianqJYKShu8S/TrfwWmmlHsbJUnAoLomRsT1 O6BTVq3n0E0G2+/StoJiv4OZA4ZrUmvJQCnNtlZq6DvQ2RoxsldOAR0+21ei rAZBf/0tydmDNOD88Meb2eBBINyxwl9RmQ6YHT/RKecNAkzes3nEJQMYmzzp /bMwCPw7NLvHH2eCWXl2c82HQyCCQ7JWkD4bkP2VdseFDYNClj9vaZ/lgdzl U0Omb4bBiE74GSFMPrg6e6BQ0TEMzjkafiL45oOogZbj24w/QKSRYuAZjwLA XWEYiST9APT3Zm3JgwuBnKt7tnfxCOhKeYGROnoHRuyNKfq+jgA90RXrsFcl wN9S6a7w2gjYo+eu4b5YClp0cRLD0qPg0b3T/0XLlwED8fgamYZRUCQauREW Wg6cFyt61nrGQIrp/o2SG5XgSFqkqmBjDIy//TU6UlkJXgRkJluwjYNYLDnl VbYq8JbthXXXzXHwbU7o9/xgFVgk2m0VTIyDz0cBsWmOH4B93KlTlksT4IvG T5Hz32vB3/GoA3aGnyAgak4+WqMOhAlRTHVJ/gS5DNaEO5/qQP6n9cJLD3+C j44m2zeK68HM7w5Fjv2fwFarwr0uqQFIpTeUzoVMgldLtWnb5o3As3lPoCl+ Esyrxv15k9MI0Hnp+LS8STC39vWM0GIj0LtY7GnYRjpO8ZfmpVcTcP7ySqWJ dgowS8v2iGc3g3cbrv1pMVOgROPvoxmuz0Dk6pkdw4xfgG/61nWPuk6Qet2A laH0F8ivOj41xNEFGK2CJNsafoHqfu5F5oddYMvzp73CxC9Q2PgzglPiK/hU lDLMwzMN3iP+SHJJN9BnYKudez0NzP/6x0kt94AmTrXBjKJpEOscfntfoBfI XHiwYVw7DTQ+v9m9dLMXcMIekc4f0+DIfO+vYHMvmHZ7nlJ6aga0fhBwyMjs Ax7fcX6eiTOgL9qAd+DBAJifupiMz58B+cG3bxqWDgDTFeuqxaoZ8HjZWMZo aQBAqsZls+8zoG5lw3jU/jugUfCzUGGbBewUGtG0toMgNXUb0MbOgl9YOd0A z2HQeGcOk/piDlR05NVyUI8DyPv0RGH6HDjmC632MBsH6LDoqerSOXCr9Lbe k3IS67iJ9/TOgT2hI59y8wnQIHdwE8fxG1A9d68ybfgJaulY3jml/wY63dCl X38KvK9QvqlcOg8IYZ8cWrxnAMF58rYWOg9qbxV5ZZTNgHKhEKebvfMgegNR npibAWVpX4LcNufBmP4rhwjDWVASfv1tntwCkA873kiWngNFpvfIGdAFoM53 jZOSeh5kYxOKJ3oWAcaO4k7q0R+gnSdq1T65CJ5Ja9pLKC+Bv+pNbJVri+Cf l80rAd8loPVs1e8p0x8gMTKWI/ZvCWwwaelL6/8BHd7lgeOHy0CN93jr6bc/ gJkxg3+bdg3MyN8jynQvgS/7xZ4GmhsgauR4g29iCTx/caCw5bwB5H0TC2hX loDDeiOmM34DPEeamSZPLAPqHEP8qakNIK3OO/1MZxn8HlcokvbdBE+u94dP di2DFHq2sdj6LXDeWbk3snMFLJVi3zfb7QB1hTT186MrgIxlXNImdoe0nz6s QxdXQMdDFRfFhh1Q8Lo+f5tmlfRclJQZxbELhNoUfS01VgGRveVzR/suEOa/ dOFi6yogl6+4X35pH3DcSyHet1wDqqE91ovqhyBf95rXJfs1sM5M6ZLgdQhk pf9VULmsAWElbyvvt4fgxrGJcLb/GjDkDtXeYDkCiQmcbENpa+CZCbY89dcR ONmUvADH1kBvA43IY3UyeIorKZ7t1jqQl2VTp6bCwJKhoM+Rt9eBzA3R2afn MfBKvOMuxmEdBBFe0kqqY+CDE8Bs3XsdvJRDmGeeYODX49kz3anroP2AQ2yf EguDZy5WhE+ug2GPo4UJRhxcfvetd99+gzQIF9iqRAmbIBXjlMcmWJRfjzDB 0cGVtUX2Nv9NUNYVdFNZhA5yZnVzvwvbBA7SR5ehPh18QJ4o4pW4CUxOJfjm p9JBwaaz6szVm+CBqp3Rliw9DFJT9VPZ3gR8ogVr8W4nIFT3+5P1cAtMHZVa jB0xwoZrm23WrtsgIUJpU6eeBVqeMtKzjt8Br58oMav5noYGHRfZT8bvgbZO PgPuG/yQqlhuq/npP4C7LEN2LHwWWuuUZ60UHoIgL8WIt15CkOF7wYvuvGNQ Albo/JzE4MWwGNzdkmOwEZvRyOAnBo3lfHzIPxyDx233sK9fiMGcZN170l+O gfrdjq7UEjEob7F9+fXiMdCSqRrXXxOD5Q8Fjkg7N/hkonrf/IE4HD1wrvI3 I4NTRmpLVq4S0Pn7tGunFRn0idOR3A6QgGQlxmKnbMng0tXVPwHREvC8pWpO +X0yaFUS7ehZIgFdG9ljZvzJIAPCULnxRwJShNU7aWWRQbnY4eptG0koyUh7 lmOODArPtLgQL0hBfkL5N91FMhh941uzjIQUZDIy9glfIYOYu27z52Wk4Nrr /L7dv2QwQSne5a+qFCw7rxY0SkUOn2TFUWtaSEEC0XciU5gctkwmLJbFSUHp +ytJovfJYULmhf8k9qTg2ZcJl23cyGFJCDmP+rEUZKtQWkt9RA5HeW8w3KDA w63dZ1cZ/MmhFOIjYsGMh1WhF/6uRZHDp5E9n08I46FsqtX16jJyuKONdZ64 gYcKnX0nVLbIIdcfS+3pYtL433/P4HfJYbXS3YOoMjwswXFdEjggh/NSF/UJ VXh4lnjHjhyHgcMSBpWWDXjIVL7Z0MiKgRvuZecNe/BwLpHNVfUiBnZb099N 3sDDrAr5MIIcBhqLuvTV/MVDsx6zVEFFDLSA/8707uNhL03eF4waBoqvr2rP YAiw3ldGoNkAAzOvyN5NYSHAWOsbfWoPMFCWd15DVYoAdQK85y96YCDL1QfP Oi8SIHVq+tEZbwx0DMFvaskRoN/3ORFcMAbu42dpxIgEeFfjcUhLDOn4o4Td R9cI8IxtSnJlAgae8vuPv1SXACeCkNLcZAzEqggyTPxHgNfrqMZCszDwnIIi HY8xARIlkqSvlGMg/AdkeG0IcE+rnmQ1DLSZKZLD2RNgpf2k1bkaDEz1Mkr/ eY8AhbOEXlA0YiAvvba9hwsBsrHVzLb2YKCdj0W0oDcB/tn7kai+hoELG9+d HF4QoAgm5U3kFgaqc8kI90ST1ktrVtuzi4GeuadDhGIJcIZzYtyEHAs3V0/0 lCUS4Jjir7MuLFioSyXHwptBgJyXc2QrObAQO+pwxJFFgMbaNhp7nFiY5URP g8khwAGzOceQM1i4hxtUKMknwC6/xfevpLFQOiBRy/wdAdKGFbeMyWPh60JL x9kSAtSIchoUUMbCZaZOEcsyAmxJX9krvoKFjwrdrlyoIEBMQSnduiYW5qml BD6qJEBY6sojq4uFr8guc1ZVEeAnZAOiN7BQJPG7EPVHAjxoqzCgMMVChO61 H1cNAV7qcbfRssRCvo34Nb5aAvQclvGIvoOFNyNK3NjrCLB68m/4gD0Wqsx1 rf0j8db8h+TTTlj4nnLAvL+eAAnrnsUWrliY3pv3JuUTAbruKXzKccfC/84L Nho2EGAJ+b/ueU8szJ09/+qIxEs09ZPiflgID6I5kxFSvVn8Nh4EYeGsk5zi 2f+9H8RJxH18goXVJtvzGSTOFzxmP3yKhc9ZM1npG0n1F0EvqEZh4XVO+uK7 JBa8GKQQHouF9/H0GVUktlJUvdaViIWstm4/N0icroY1Z07Bwg52OjP+JpJe 11qcb2Rg4XdMAY5IYk7DJ4EpOVhYasjcfo3ExmbqsZMFWPiigC35f+9HJdpQ 5Z57i4Vr7N42ciQecPpS5VCGhQJqNFzsJGZ59LSttBILB2wj3v4izafvp/Vj 6yMWthrUU2eSOPoJ3R+FTyR/hN/l0yFx94uuA/9GLOSS1ptcIF0ffeILhpZW LOy/ilf0+N/7Yem6/DQdWNjp1c23QapPRD4jQbcbC78azvqZk/hzSY9aXB8W tqtcvPKRVE/chxij4UEsLIp1t8WQWBUxsOcZJen5wqZbkaRHYBurl/VPLHR9 9MnFhqRXw7eBZwXTWGiSLK/gS9LzYCghdek3Fq6aRHGG/E//+ZOoxxoWBs7l T5uT/FK9Ntxbt4WFT5UGi/AfSPrvJk+T7WGhjkWNxhbJX6403FSR5DgoQevU doXkRy86k5BwChyUjS9KXC4nwOATScchNDjo8r1PPozk3zhmtl1fZhzcd+pG n5L8nspq4O7FjoPvek8+3yomwFz2l2uPTuPgeU65bb0i0vyn6RecBXDQmGvS cZiUF4RLy9bxHA76pY5bUOQR4BeeiCl7YdL52Um1gqR8/RDAjVjhcVClT+yx BCmPB8IHHQYqOLjgyRgTQcorhdilq3pXcNBWSOmGXDwBMkh4Nl/TxMHHf1dP D8YQIB9hq+7yf6Trkeqzn35Oquelpbeyt3FwL6O7UDGYAK8piQhftMXBEIug 1bsBBGhIvJsneQ8HDRuftT/xJUBb1Zk0ITccHAmKoojyIOmnNRbFGYSDzHeX hIdI/ShGm5Pu5BMctH8xkx5gR4CvdY3DWZ/ioNTZ08STdwiw2GAggD4GB8VR 6c+sZiS/mHS5HmXiYCDT1WdQhwCHzGiX93Nx0JpLasJKkwAnLTTu7bzBwUo1 6w2XKwS4bt1ye60MB6NdPpw3USb1O8d6g18oDpZJr2mbixEgz/397okWHIzT /y21cYEAz7vIXxv9Qho/6+j46AwByj2sVBvowcG5yeul6pwEaOLzVvrzJA6q AktyVioCzIhM5Sgio4CP18o1ro7jIeUwfUgsjgJaay8EDA3hodNZv1VvagoY +u/1plEfHsp/Mv9yjYkCxhOpLHna8LBnhdd7mY8CXqaKWxooxUOMQda4FKCA 9hOx3GN+eHg3nVnrtBoFDPLbMdR6jIfdi0HV5Fcp4KMtSop8VzxMCbGO7tOl gAk4mZRzd/BQuuqMirsFBfxmUqR5+Soe2p3Kz/3gRwEX8s5RbNPhYZcNB3Nm EAX8QeNJJoPDQ0J5mF/EEwqoKldRdvtACh5r2t+49YICpn4IPw5ckoJJPkLU /1IpYCLmA26wUwp2TBQ5Eusp4NOPcee/hUlBibxSQus+BfwsSW1qOCoJT43X v8YcU8D2iYprrK2SkJy9g3TzooRHQ4XaWSWScCB0pq+WjhJObCxTiQRJQm+b 0w/LuCmhSpaNwJ8zkrDtTEhFCpES0lSdXmW2koBW2TekHwRTQm2tvY9n34tB rZE7qaVhlDBj9GLK8wTS8xiLG275GSVMDW6bQzzFIGVw5IB9HCVsVdXXiCCK wbe3UXfzXErI5CzLndYmCnf5Rao0PlPC0dsXXBq+icCYjEMZPloqSFX7eofn gxBU7w2nZmOggrFeYo7ciUJwH8MySs1CBXFMchyL7kLQ2u584MZpKni46Fq/ gReCBHG9jlZhKkixcXOtuvACHKjNtHDSpII6HS9u7kafhxyDauE1EVTQg5Vi o0v2LOyg6r5V8pwK/n2ZGPqU8Sz0VzAWy3lJBc95UFezzJ+Bv1Odep8nUcES lov5z5LOwI93Eris3lDB9iOvOIYdQXhrfa6U8gsVPPltJdaoSACm0j8bvk5F DYcFr41W9fHAaB5pjwY6aji77MBk5sQDgyUmWIWZqGFYp5G+LwUPtNcn6B2d ooZ91KEiIrLckBA/0vpGhBpOs24syMRwwi9cohWHOtRQu+Cc8bT4Sbgp0vWi IJ4afvrL+1GPjAnOKXqIsiST/k9F/biamREOa/O3+6ZRwx9TctwfBBhgg7M7 ziCfGi6XnS5xIdLDiPfcPgcfqGFrngBzjQM15L10/+5/o9QwMXzHxTaKDDJf O0lZ/5MaTlaOZTRwHQOcWWPO+Rlq6Cl++bbXqUOw4Mf+898SNZz7EvFEhW4P VDZ+Mso/oobbHPk/6AbXQEGf/SYTlgaGqrdf1Q1bBq+nmWN8qGig4tbyUxqz BRBAYdelz0QD8zN642n2J8EDDiaHOjYamIoNUUsK/QFsLtRSnT9NA8ny/Np5 6HvBTXmbvJc8NNBwV4hdjb0R/L/vYeD//x7m/wC+CiVF "]]}}, 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-> NCache[{{-Pi, Pi}, {0., 18.75897783413939}}, {{-3.141592653589793, 3.141592653589793}, {0., 18.75897783413939}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.6188189799586735`*^9, 3.6188189951286945`*^9}}] }, Open ]], 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.6188190051887093`*^9, 3.6188190524887753`*^9}, { 3.618819125208877*^9, 3.6188191256188774`*^9}, {3.6188191651989326`*^9, 3.618819165468933*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"w", "[", RowBox[{ RowBox[{"t", " ", "Degree"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.5", ",", "0.313", ",", RowBox[{"-", "0.817"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "180"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.618819059868786*^9, 3.618819115998864*^9}, { 3.6188193048591285`*^9, 3.618819340079178*^9}, {3.6188193920392504`*^9, 3.6188194441493235`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJw1m3k4lO/3x0UkZAshJKGS7GV3DpF9Z2wzYjDWkBAqLdJGikq7fFSSNtJi iSSVkCS0oGXGlm1myDKT+D3fP35/uV7XfT/3c5b3Oc99XKylxnmE8fLw8ITz 8fD87+euNq31z9rbLK4r+oea/mDCnwF7Far1PUhtyMu3JTj/Qs9BVevnoHTE UTOGYDkl+zlh/dcQz6utdofg8HjVMn7rVvD68+DgAsEBvxYrDpR+hOMbllrE /GTC4ZPjp+f1uiDtmBZ5kuA7+j3RqTVf4IP09Nczv5jQ3ttkO7OtF/xmBp7Y 0pkwm/l03e7WH8AfS5qQYTDh9KqOxT2lv6B/kHpogWCVsaadT2MZUPRnImah nwlP61/0/NEbADO/Ww9kBpngcP6pvf7sINQun9tmO8SEvsj7z3bVDIORgbLG mWEmLF155ezEtjHIZlX1Ro0y4eJQ7pLNghMwo3+4aH6MCZueH4+LbmWCUsj7 u8UThL16NWqJpWzIL9ZI3TbJhMmrT8lnsydhr1ubwdY/TDBb9ujso9gp+LVO dp3lDOFPT8kStt40NFZ5HrnOZYL89ptG4tIzcFJx5fjkPBNCy67Hac/OQDCf VGLgIuHvkfy+nTVz8PD7UoYFLwuUtI5UjWybB9xEp00sY0HExQOs5er/YIgl AinLWfCId+/6jYILINV6X0RUmAU2n3edD29dhG7fiFSKKAu21j80Sihdgr6d NhpZ0iwISNrceWg1Lwqsj8LEVSw4qHE3LjebF7u5lE2RcixoPldcXBbLh0FN 7juTFVlAibwmxdTjx4rOMnkldRYcVlpdtnCDH9v++rmHbWBB8aeLjqLSAigq aLWlUoMFLPNzhzfPCqDUmX8TB7VZcEQyixVdI4htHxKzrhmz4G5NSuvwNhE8 6aAmv+DKgnQvynxanQhKJT6PtvBkgdu4peYK4xU4H8XkySaxYEZJOFtXSxT7 Gyo/ulBYoPyyTc1cRBz99Tv5E6JZEK0aPJA5I4FHph4uVz/Jgs54z39t+pLI Y7uSf2sOCyxqbaRld0liRDlvkUceC8RJGjalo5JYrbfxbPllFjw9NnWz7edK 1MxPWsF/jwU8o5mhq1qkkSyb1DTbzoJIw5R9QYIyeHxPhnVrFws6MqLO3bGR QY/x9dfufWPBLQXXRtN6GWwqDHxwpp8FDi6yqkFPVqEq+1R7/xwLzpeXMkqu y6Hmu5OlZevYoJHygWqSqIgxg4H/Yg6xQbnSoHn3fUW8Y96gYHiMDdJzl3Tv Dypip6jk7+Wn2MCTEsqj7KeEjcl2bu8usqFrD+cav8UadL6u1XK/jA31Nbkx wxnKeEZkRT0PnQ1RNTW3K5xV0KHP4l+owyTUV4spOfxSw+0etMFrWlPwWPZN dFa/Jh5xWTW8Z/U0rLorI8Ph3Yxj98v2CKhOQ5p5eD1t7WaMLrWhn9OcBkuq oLRV4Gb0izs9XGY+DW13HermPm/GbNpJecaOaRi2+CBOa9HCiAxhudU3pyFH b8xf2U8HI/mHP+humoEG3+lFLuhhgJzNhyatWegO5A5vdtHD2UyDjyu2zsJo 6OLHILIekl99ynM2nwWpXctvvknRw/OJE8K1jrMQfkLRLq9cDz/ZRX72i5gF kWqbMxvX6eMRPWP+vYWzQFqdr+wrYIC7784/+CE8B1FrryzPkjLAYbt6fn/J OTiwvnCyVsUA3T42DLfKzkGJfmnjOjDA03E54lfV5uCvY10Ec48BrmJ8kP5u MQeF+wbLjv42wPmuiAJ63ByM9G21fNK6BXesWoT0ljlIrG/aJ9u7BX1OdpcH fpyDxSL/yr2jW5C9qCxh8HkOpCLSta2EtmKVxlvnWvocmE++VvxguxXv5UOt LWcOzgh4c4cbtuJI6PI6TVUOyP8e3OLUsRXlt8pneW7kwM2WlF0Pf21FFffZ DbFaHKg6c3U4iccQI9s/nk034gBdvr+b18IQZdKKvYWcOLBFe3eFQpUhvrJi R76I50C9BD/zQJMhWmaKFK5O4oDDn3wNxmdDpBVcvx2VyoHAqur/7swY4nHR q8yfhzhwfBvvma0GRvjsO987zTwOSKqfa7m0zQjTZaVZivkcuCqovuyfhxHe WvI2ccllDpS/t09/tcsIZzVzd1z/jwPffHJj3B4aYazNffMtZRwINVlXUlFn hBOmLZ+eVXCAqfCEIdNmhFfG/wZoPuPAUvoX/74xIxT67Ck2WsuBzTHK9lEa xjihcL2otpkDBw8+VDtyyxgN+m3/3PvFgXcH+E5ef2yM+z5uGjDrJ+w74DNR /coYv2gvO1c3SMRr/+JT9i9jNJXcx3dhlANNaa52O5RMcPOPu6uu/OGARNqN e2mbTbCTe3/g2QwH/FNnxfPNTHDxxTvVN3McGNtz/Wurvwl+0I3seDrPAbEk ZpTJBRPMv3xudoiPC76J2z54F5tg6716v9P8XCjcfUF/1xMTNPr9cnj9MkLZ CTB/+5MJ3vlWuVNTiAt7d50NekU3QRchS6+LwlxojB9q/M42wRWHXtlNi3CB FHf6lLS4Ke4VCrY4LMaF67EMts4aUyx/sVH3kTgXhncakpy0TJFX3U76kwQX dHdmVYebm2KM8hijX5ILaTE/lDKcTPG+R2T+0EouvIrWzygIMMVkPUP1Hiku iEQfG6qKMsVQWXb2C2kuFERql7GOm+I9DYc3/qu4MBSRISVy0RTFhTqzJWS5 oBPxOWX9bVOUSVojWUVwavimPqunpuihus/NXY4LDbQDloGvifMkAq2+ESxM +3QrtdMUd2VS6J7yXPAKWy90nmGKRusNN9URfDV0b2zZpCn2CrauklvNhYGQ Dx0tS8zQ/snaG6EEa4WsMxwSN0M0pzYVEpxM3XOFV9kMRax7D78n+EVwy6Ki thl+E+ZrGyFYMHhNqLGFGT4+FHtrjmD3oN1NXs5mqGXfs3SW4Ms73mrGk80w /63G8ADBjMDVuVnRZjivFeL4mmDNwLjp4jQzvHf8ocZ5gpMor/waTphhwosd h70JriOvquu7aIaxd4ZdBAheRo5W4dw2w9MS/dm3CX/cAl4clXpmhrX14sbG BF/yXzmq/cYMLxz1cKsh4kH3C3d17DLD35aPPmwmeJNfTQWt3wzLhymPzxDx TPQVkz08ZYbtp0v+Moj41/qE7LvGa47xCUI31hMs4PPsZ6WEOU7MKZcEyHDB lSRs06lsjgdfPBA8SOTvoveOO0xtc0y6eqXhHJHfX14VK4TBHFWK/3y6RORf w2tZgrqLOfoZjZmcJvRR4/HQhBJjjpo/TfgcCT0Niv58lJhmjoFHq6bUCb1J tohvyj5ujttffTGfXsGFqG0Jq2tummOzZXZPBKHX/MWisx2PzLH4Z9lmUULP DTWfhEfqzfF9Z373LUEuyBtsmZftM8fYnwsa94h62M4KS9QZNcenn6e65Jdy IeFe/pgtxxzFB0937+XlQrPqXG+ytAXq3P72RWqRA2nSNbWdzhb4VrBmuGiW A8UfR7eMBVjg0/sqtjenOdBxSuEBX5QFtrY7LVyY4oCGQHqB3lEL1Ew/k0Zi cuDrDB44U2eBLL2CZm2i/pdW7Jq93WqBMfoKoo0MDujEFcW9+GaBnm7Zjx2I /nF8iC9oYsYCr/7YravdywGjL2/QSRuQ7xNjnfdHol+dm60MMQe871n2dF8b B864bdDd6wioZvOgNr+FA8NNJ9aWhgP+2TStV/SaAxernHgFCwFVbTqEV1Vx YJ/z71/BgojHHV4H7L3Ggby7Swp2iiFqtq2833KJAyXL5f1TZRCVMxRKRYl+ 2vnaoeOMKmLlZ5GqmBwOaFrca3iBiDbvbe6dSOdAj1bcDcVURLWjOu6OZGL9 7/vjLw8iytoU3qH5EO97qxkbdhyx5rhxZYIHB5SCRozuX0B84Wq5imLHAWpu WJvZU8TsuC31e/UJ+6cCOAFTiOMbd3gOC3DAuL76+yIX0eJ5yLKVSzhwMluu 8QavJSZeKV3U+jsHmmqfc0YlLFFU4eCACXMO4kgeqnt1LLF01c07N7rnYKbS zvXyTkukr5sraiiaA9vM2wYWSZYok9p6Q+DqHFx0F5Cn77NE1Z3My2bn58B4 5FX/xmxLjD1Fu5Z+bA72rYa0qlJLNDsZ70mOngO+9C23vgxZ4sk03ukTOnMg vk3lrwzVCk0Db7mLl89Cx864EaNIK6ziS04yuzML5y4+/+ofb4WHIWqE8t8s yE2QKgvSrbBlX8f8wdxZULmUlaR+xQpF2Ipm9rtmYQvzD3NLpxVu657QmSDu H/5X3vZ7bd+G2ULrn04UzcCtqZi2PA1r1J+1VtfdNQ0rzP5WrRyxwaiHNvqe nyZBc6XabMEHW1yaIzwR/pgJXFlBrYpuW6Rvkle5UsCEJqXR0Ld9ttjj0Nne eZy4z2uUdzBHbfFykJUhmcKEq5bmD1DQDp0uBnu+EGCCSLx3GB3tcOHnuvFZ /wkYa838pPbIDotnViwYCo1DdUeEkEmVHUqcWOWZMT0Gx784WrrU22GdAPXt 159joNov8TC5zQ4jjl29WvJsDMh/r518O2KH9RZOvR/DxqB141PLyHX22Ea3 j9vVOAp3jw4+vHfOHstOukt1ZY3AY66YuN9Ve3ze73NPa88IPI81jue/aY/k jzZ+l6kj0EbK1gmssEfv733nSoxHYFJdr1yswx6vhb/4d3P4Nxi93f8oQcwB R79aOqHDb3izTPqJ0UkH/NpnLS6iOAwf9lpID+Q64IXzN7KmhIbhCzM8KfeS A36v/dHBnhuCkc/VW0ZKHHD35wRn/a4hWFES9PTKWwesDi39733OEHjZ3Xu2 sNQRg+3jkvcJDMGv49uqGw844pa2r1euCA6Cg3CblvMxR/weo6j3kzMAj075 3ujKccTBUrVoi9EBOJy3M3vwmiMON9/bYNc2ACpXLwQKPnfEB5wvqWfPD0DI w1FepzlHXGb0pF9x4wC06ibv6Vx0xAsHv71cpjAABo95xsjLnNBNxKdcRGwA llZJd+2UccJjUq7yEdP9cLMBbp82cEIR+b0O4a/6YaDrrOOneCdcGpfKuRDa Dy6+SvUBKU5Ye/2MhplfPzz9VmLQf8AJBwNirsw798PRH7WK0zlOKJazL73D sB/Ufw8xZe474TUFzeWdIv0QPm96zv+3E95TabIxfc6A9vQ3ggyWE3JPnCss fcQAoyXu+6PnnFDo1ot1hncYIChAo+1b5ozDb6o/3c5nQInYGaMCNWeM3Zak 9DuBAb9V+nt/BTvjTwXM/6PDgAY+SsBwhDNKXDn948VGBlzt7/o6EeeMn7Ld JG6pMMCt+G333/3OGLFR1rZWigFPN95tl77sjLujgwrUuHQ4I6TqqvCfM0p+ CPhQP0WHyNGr71VKnHEZZ7V08jgdFO7nNGs/dUaaLy9b6xcdMnQSGu07nHHV 4WWUb+/oQJYYtXL76owPztqXbG+kw9bJkJekn84YvXVE/X0dHUYqvOtCJpwx 2DP93YbHdHAzNK7cL+SCvea0QflCOmjIPtp6RMIFVSvyxP2u0IGPo/HkpKwL xqhNpZfn0+FptcKjC+ouqBRwQ7P8FB0ULXjulVu5YOthTt/oPjoxT6ZqVNq7 YJ3vQfP5FDq0L7JL6txccHmXXb96Eh2OvGTcagl0wR9dovwtO+kQWERW7Qhz QXqTyX7rKDoYZnQVfYlxwS92/MZfaIS91m+vD6S5oGtdUpJLEB0a1VBp7JAL dm/Jm9Sh0OGaQNXVyeMuWO1ocm+zP+FPU+mlxXwXPBNc15LkRYdnjjln5SoI fzJO70QHIr6ayySVq13wQc3hw39s6RC14uAZ9ZcuuI58tqbBhg5KH3ad0v/g gumf3py4b0mHuYcjwibdLijsayHTDHT4eCbkJPa5oF3lvic8FoQ/Ht7HnEdd MLu4UPa5CeGPfhu/16QLypSv70Bjwh8p2yP+HBcMvVd54ochHcSnX/AG87gi 6/VV44tbCf+6jA6FL3NFLZGhnqgthH9Pyxd3irqiU3pilI8BHQouaKQnSrui tcLYd4o+HVJSbsynKbjigdk6vXQ9Orj7Kew9tM4Vu7Zt2FGpSwdaSY+K8iZX 4gNWubCgQ4e02cvNdXqu+Kxk558QgnO2+ydQTFyRt+f91iFtOhSdl5Oft3TF tEXp58cJftr/5eVle1fUe2GUZkdwi/7FSGN3V2zt/U5TJ/jnYR+JL76uKOgZ vkeF4D8fZaqSg1xxc+JQoRnBgmu7g6QjXHFh+aYviQQrxp8XfBznileSH0u0 EKz3wqvMY48r/ul6bgmEPdtFpXzZ6a4oomxA/kiwP+XT4umjxLrjS69DhD9x 9/Jua+UQ9u1uUHIl/D3y1931/XlXzJl1um9CxOOig8Rs9DVXjL21eWobEa97 l9oLhG4R+3uH6f+L58vh09vv3CPsf1wd+5CId7eh64TtY1fcp37huIQREf+j ovmDNa5Yoquhkkvka6HrvXnmK1fctOyLppYpHVaqnRpY1+KK4nq1l4bN6GD2 SnhL8DdXTEw0oTxBQm+SLb2Lv1yxjFF87q0VHcKCTx4p+O2KeQ+nmDPWRLwX BTt75lwxX6yl/Z49HTzW95ub87ih2/UpA30nOvS2vcoVWeqGHj+N0rpd6MBS zDC+K+yGBqHu1N2EftNeU0+libnhAcW8XzE+dFi60+qX/Uo3/P65mXuY0Lvc 8yUnhuXdcOE/vvKlwXSw8j/4RU3DDQW4V2TIcXRoXRKkOb3ZDetrst2NdtOB dAcONuq6Yae5aZbOHjpEzy2sDzF2w+ou9ZLEA3Q4l79/T6GdG1JZPVvtc4l6 sKC0xDm54W9nY1k+ov5LBszWgJsbNifoO325TIdag/k3fT5uqKTD6955kw6D HWkyq8PdMFDuu5V4NR2MxFKenM90w453Vy8f/k2HvwMuoqon3FDQr+9uCpMO dc/Vwh9lu2HQzq9bMqfpYB31SfbDWTfsTTeg/FpC9MvXWvsEi9xwsuPG6Rur GRCxd8Bqb50bVmS0F5h6MmCTx/MryxvcMMRob1mOPwMmNpz9c+G1G/7z/ts8 E8yAxG4sftzqhjv2x1by72LAQd2ryye+uaFMA6V29RkGXBzyaA+adcNXz5+r S3YwIKBu40Ym1w37AsJZd74xQOk8z+H9C25oGfvfem8GA25aPdC/zO+Oj2oo CQN/GFB2bfmFTyvd0Zr/cuqIbD80edZTtuu4Y6OtR/dO4ns1+2Lz6KZId4xR 2bMnR3AAvry/7Suw0x2ZK8TyrKUGoLJn7Zuf8e448ylPc4XyAKTMSv93PsUd ow4zsMtwALhaC6TFY+5Y7y6XZhYxAAvX2ho6it3x07Nr1ttaie/nvrjLqf3u aJqpt1q4cBAkjcrt3+7wwJXSeTE/Y4ZBZh/JYMDdE/n8c+2djcZgB86VxXh7 4sXXnVHx28egZOnlzX98PbHWH4TOeI2B8ak+db4gT9TNLTBojCfuPwWhcmtj PbE3a8Z9vmQMbtQnLJBPemI6U6w8W3YcdPhPN3U2eOKKo2Vk46lxSH2nY0N+ 44mfP0itL+GZgIZTHS8Z7zzxRm2djJjoBHjKyNRMtnviudAPPxo3TEDy+mv3 xX94ooItaXcrZQJq7e/mOf31xI7Hp15qvZkAh5y35EZ9L9ynLGkdeJoJZSdE Ji4YemH58jC1S1eZIJPpfiDa1AvdHK2l3txhAmNvz3+S27wwO1Dq0PQrJuyL ZA4GeXjh1H+ndhbPMuGB9apd/+K9cMui+/gqLRZI/qVlbn3ghTzffI4kZLMg ZeaujNAjL1Tz/+O+Io8F39ms231PvPBXsvZ4wQUW3B1Oaz5S64VrUMKpuIgF 1t05Yp9avXBZ5qGJbZUsSC5/eilu1Aul3j8wuf+LBV/DBR6UbPDGyvvfcz9q siElz8raVNMb62cLLv7QYYNMbfq399reWGdUL9RvwAYvyVmBqa3eKMT/RbDd jA3tz4d2mNt444zKNR99JzY0SbyT6Aj2RqsnfKNKkWwIN+MvCQ3zRrcmfpXT MWwQCLe0mI3wRpORVK3pODZYP6+KUoj3xs/kiltFyWyop5W+oqV7440Rlurh DDZU1mQl/b3sjfPHYlOcrrDBZ/CtcE6BNwrs/Q0yBWyYEV9apFzkjd6HrgR1 FbLBgLavzeaON1ZxtuTpF7OhTHzn+jPPvHGNrsp8bBkbXE3v1KrUeGPP6J4O +iM2TIQNeD6p80ZS/sB7xyds0KyhHPz22hvpsf9W/6tiQ0mYy1fVTm/8dbAt obeBDbZnTsY9++yNol6dbXONbBisfsPv0OONnJhbKkJv2aAqDnpxdG98SRa7 JtzChsJq7awqljdqtP/wONHBBhiIXuv0xxt5OgPoTp1s+C5W8uz7rDe+e2m1 jb+bDQphyv18i96YBQYRXl/ZcFFMwtxlBQk/xPC8j/7BBtrL/X1t4iT0Paay p+0nG7bsHtnvKkXCEdL4NnU6Gzq6X9W5rSah49Rd4obLhv+O6+z4qERCjfsp /mMDbIg3ubborkLCUr7CPNkhNqwoSEbPjSRUlf9o4vabDb2ujJ+fNEmoQ8+8 FTDChtIlboe8dEhYRh1dTR5lg13YxgZvQxKuCUQVs3FCH6vyqd0mJFR7dv/+ 6gk2DDTx8vlYEPtz3pqyCD6s2bvN14aEhjJrfFNYbHD7btf/xY6E8bIP6JvY bFhz5skRPycSvrDJjugkeMJSRe2bKwk796kO75pkw/OpnNf+niQsV5rfsXSK DVm3/ob1kEhIl6hoyyLY3ydCgOxPwoOv+fQF/7Bhw/Ku4l4KCXkMXmWlEjxb bWlLCSZh3cDPzz8IfhPzYKgvlIQeUzQZ02k2nFNafTwwgjh/Wdr2LIJD2o9t +BFNQgGqX3g7wXqH/zTtiCNh4OfAFKEZNvAYBEf+TCCheOdCijHBHwbeLw9O JuEfclMEheCCCyalv1KJ/IiH2SYTHGN/24G6n4Q16pekjhBs8nflKP0gCb13 b2s/SvDy+wezQo6QMCCUkpZO8JfA8U39x0goyfdXMprgYnH/1tAsEhZMOVx2 Ijip4U3MQA4JCxPzxdcRbJ2ov4KWR8JzgZbJE4S9kuqF9wfPE/aoNLc8IPjX ZxGX8Esk3NjyTiKU4LITqRNDV0nEvDtlJ0pwuulgTkQhkf9emYT7RHycxz20 f98g/LVanWNJsML1Fx8ib5MwL2NpQTMR7xE3zfiRUhJmHGcV2RFcxXtJPPoB Yd+bVQU1RL5ItAT3mCckHExI33eQyKea7A/2WCWRr10V1A4i/3/eOebtfE5C rdeiNnIE525W+xT7ioTXl9jyHyX0EvQjdzfzDaEn6vjgXUJfWrkLK+ObSRj3 z6n1zRgbWv989tr1kYQrL4+X9hD6vFxsPc3uJGFWYktJF6HfSN/y8wlfiPfr Xq1oHCb6zfOT3bt/kDBiZhf30CAbLDPMfZPHSbj1g86V1F/E+THOK7axSXhX 7pbGAlFf8t6UBrFpEiZQBaeSvrOJ+Xe/5p15Ei75LYvQw4ai5uc8vcI+OOVa 4WxM1G9OReuTEjEfrLaYUvMl6jvtam9U0kof3NzymhLVzgaP2PlO0dU+mGOy hjeylQ28kmZ3LDV80Hq//4sPrwi9cx0DRbV8cNWWUYOTL9nwjRGwskfXB9XW FRsbvWDDoyd79yca+2B3oqBwXDUbqH417rftfPCejn6OHdHPXhWacEXCffBc 3bGc8kv/y6/Dw69RhH1hyr4l+Wy4muAfWhzrg9yBnRpnz7Ih0TqtDZJ9MHHW UsTmFNGvhquKEjJ90CLjz0v5g2w4om3s+OUGcf5rKef8EKJfyNrz3Lrtg3v0 fi7t2MEG8hK/J7vu+mCW8pJgXjLRbz+lrBGu8EExwzJdSy829CdXTpk3+GD2 4bZoI2s22NQZXr3x0wfpudahq1TYENVtQdLu98FtNU1WTEUifhM24jVDPrhu I/6slSP0r+R1pGPCB3+WPjwEEkT9HIiPWfLPB8P7NY91LbIgD++Y7ZDzxQMp 2pqkHhb8aJDvk/fwxcNCswPcLBYs7Vl7odjbFx+33dhTf5QFG6Y2uOv5+aJH Sg2kH2JBwjrD1/ZBvsgbcu02PZkFAkc876fE+mLj1kv2bsEs0LTJ3t990hfz 95DKmw1YkPr2n2LeK190domPNb/PhOcyJWORb33xjmdtPn8hExbCPGosW3zx 2L8TN17kMeHw0tu+7A5ftBYTXyaUwoQsS7ezbnRfvFFiuX3ekgnXaooExZb4 oaznpkepnybg5UPbqSwLPzyXLf5kbnwcll/Mbcqs8kPRf7Vb04TG4LCB7eLf Un/c+5FrLrdtGDRN5PoOPvDHLmf9P/u3DMNnGK3mf+SPT3Y+u/x7PbHueDpZ rMofmZVWtt0ixHrw53GVt/4Ycdqad/nnIdA8Hd5rz/DHz/XiM5MxQ9D9+1jV hdUBGFlTcPb99UE4yPS7oLAmABeMu6O8zg7CpulNSf+pBKBqp3L24FFinadd 5+7GABz/nKu/OZZYXyVbUmcYgOtHH72wNSfWrUvyBzwDMLerv6OtbwA2XW/a rZ8dgB0lfzcLbhyAPz3mtKVnAtBJS+SRi+IAPJet8O06G4BnVm43vy0xAE55 18z3XAlAmWtFS09z+yEmM2FZTSmxLtp+yvx9P9yLVrhi9S4ALdRWVhgm90Ni Se6ple8DsDip+1hZdD+YDQgc7G8PwAJ2e615cD+0BrJDj34JwCMvK/vOO/XD uPsbreahABzdxOxE1X7QMopvcBcgowYPyazwMwNmEgceqwiR8aiBa0lcGwPq yv1vT60gI9vEpdD7NQNcNtlkn5cmY85L4cqwCgbEKsmTvqqSsTDliNRl4r7+ cGnj76BtZHx4cb95nCsDUiyNe3Vtydi/3Sz8qS0DMP1BG68jGS0qmyRlkAHt sxcrbnqQUSieE7pGlwGskZ37h4PJqMZzRZkixQCdj6sk4g+SUbXY5di1H3TQ NT8iyHOEsO/Un4+/vhLz6h3W4uljZPzVenLOrJMO+ofeTTzMISP35bSm0Ts6 bNXd28q8SsYgL8N468fEvH9t6NWBQjL+9Fnz1fIhMf8s96oRu0nGm2ZDL0il dDD5pVmqfZeMNjdivN4W0sE89/uxuCoyfvnTdPd1Dh0s/jkcWHxOxnqjjFWH ThIc+Sz5dD0ZfcQr872O0gEtz4Q9fEvGazxFMtbpxLzEttzG7CLjOdsXvLbE vGdDeWBy4CsZv2XNsRujifn6nbyeWB8ZN0lc2h8QQQfb/6aUtfvJqB1TVtpB zIsO7rcWYifJ6FKkIT3qTQfHWomZhWkyuln//U/bkw5OG9PHczhkHCpeY3vK jQ4uS3x6H/BQkNdlp9Q5Rzq47nz1yWIpBZ+zpf3MifnW7at2S9syCs63iTMX t9PBvVywekKUgglD920+EvOxh2JSebokBUuerF37k5ifPU78KhGVoWDhfycz BIEOntPOhQVyFBRSaE51MKeDV3D1BS1FCuYaZYkXE/O493v103XKFMzLsfJa bULMs8Znj7qoUjBSXsu9lJjnfSVikmI3UbBV8HixNDHv++3/ErOgRcFOlyCZ SQM6+P+2Ds3RoyDRkmOH9Qn2Lg9Q2krBlADPqjk9OgS8VPR8YEzBx/aneNcR TN580sHCnIKe90q9wnUJvjRj2YYUTDulU/1ahw4U/hDjQGsKLpBjzC0IDtz1 QWfCloKk7t3D7dp02NFnuiHdkYJaQ6qv9xMcZF+yRtSVggH5an3WBAc/kVpV 4EFBv1GG8f9+v0Jde0hUi0TB7d3n+9cSHHJqnL/Oj4JOssaDhgSHcvz+OVOI eGmetY34H4e9+dMXRCG+x7oSFQSHfdQb2xlKwVWd4Y6yhD35jR/GR8MpeK9L 2Pg8wW+exTAjown/DU8UbCL8mSldzh6KpWDWQ/mMHoLVC4onwxIo+CPzzfhN wn9S7rY/jCQKCmQEDhwj4nXsyM/p4FQKXvx+IP4IEc/KPftnf+yjoJfW2fOX t9BhOEqeQzlIwf+8W/2bifjLBj7j9mRQMDtJ481KIj/27l7zfscoqNe3py/Z mA5p1ux/n09S8DjXvniKyGepYc6idw6hJ8cl6ifN6PBNY9OSzlwKfnN7F2xi QQdhpSZej/OEPtIvBi4l9BOzlFfA5Srh33mFBwPb6HB1tmBZ63UKHn36ePk/ Gzq8HzFd7nCDgo885Y207Oig9TFJZHspoY/TzQrfnYh8NUqKNt6nYKKUyzey Kx1OP3soZlVOQUaLeOq0Ox1Y135LWlRSUK0/lZboQwfl3KNSz2soKHPyfrW/ P6HvI+tkTF5QsKDH5K8/hQ6PoihyW99QMOa1tsOdEDokGn5co9VJsFOI+/5d dLipEbv23mcK0odqTPWT6NClKLxOo4eC7evOK/GlEv1kqY26Op2CPP9+fGAd pMNce6WmEouop+SHDL48Omxo9Na6OkW87xUl/0Q+oe9nk9rysxTMCLTCjVfo UH1NU19mgYI+JKGkpzfpsC+q0FhUJBCrrd22ClbR4R7F3DRbLBDvCQzsodTR oc/tm5nQykCML2T+1/qK6DeGUiggH4hosezmXBsdeJYe376wPhB3LqcvPTZI h4xrcZ4T2wIxwnvZg1R5or++fRhZaRuIJE1t3aUqDFCaZB447BiIAtl99Hsb GVC9Pf6ejGcgCmXOl/saM2CSGc8P1EC8cCVQXM6fAVSrhGenDwaikvHbUIP/ GFAW8+i935FAPNyjvv9aKQMW8icZ644H4oxs9DrVxwy4PJogXnk6EEUG9gyd eMuAj+d2R/4sCMRlqje/P2ES/X8ocbVubSD6bylWzbDphxyJJ7p/6wNxSSvr Zp1bP/SaTtu+bgzE7I1d72TI/ZByJinRr5Ww18qnVmF3Pzw0Tn5/qCcQzfnd duwv6gel7D0HOjiBaJLh6nBIYADmddIYu7fuQHp52l4+xgAcPlm+MG+8A61E p/TKWQOwvH9Y7qj5DkyO+ZSTtDAAMhd83C5a78Bjwgq/LOUHQfefQe1zjx04 98a/aNBjEGjvmPn8cTtQgeOX49w0CB+Dwxwu3N6BQRVS65gNQ+BpX+JLEQnC 0qiK6R/s31Cce55lKxqEh1d4TS4TGIG5r4eP64kHYc3rxq9W8iNwNYpSuUwq CIOKz75jWY1Af5ak7KPVQbj6Y/frDedHILFt32eBTUEoq4o7BsxG4ZynO6nM PggVVzTvibw4Bt0UriffsSBUXZAJ+JnEhF1+ehMnOEH4Vuu2z7njk7DEdG/b x8hgHCvUf/tGexpkuM5zldHBeFv0Iv2GyTRoVCmrFO4MxtSCkOJUm2nwMnyT FLsrGMuqoj6IBkxDib6EonBqMMamPLfuy5wGN83b0dbHgzEwNHZg9us0FCp+ EnxWHIzPT4T45u6dgSe9t/QKSoLxjoV8hH/mDDRfSSFnlgajk1zdMbnTM/BH TqnM80EwPtqQdie1aAbsZCJ9WE+C0b29NfBF0wwwRRdvbXwdjLuyylTcVs6C Bc+mbVcZwZjsNsoSLJwFJimVSR0IxtEaOZdft2eh8P7bKxuHgrHNlCT18OEs 8AWE/nk6EoyFyvO3NV7MQtOTa7c+soOxvYB7pLBvFjyjxQWX8VBxdPvTDftk 52BpQ+Dj90uoON1lpHVrzRw8lb0fdI6PimJrt35uUJ8D2Tf2VWuXUXGCvGug x2AOvitnRJmJUjHq3MDjDLc5iOiebt2lQMWciU8HCjPnQH6zdaqREhUfnu3P FM2eg5aMPLXFNVRMedxyKD5vDrR0tdOz1xFcraQvfn0OprIitG9rUPG7dGpk 7bM5SLfsye01It4n3Tz4ZnAOzt6rJ9l6E/ZsXnbBz5QDnQVBKwx8qBi995rH VeSAVC5Po7IfFbc8Xnv/gw0HziWhLpdMxVwdOUVBN4It6oXvh1LxY6DG0hch xPM6QQ2XaFRUPpv1MTOCeH4dT+rRCCq+PCy8YLaT2L8MB3fEULHYl+KzL5ng 9hf1kolUrN6TYWdxnHi+YceexSQqBloIOB7LJp5/srh5bA8VHc4fT64/Q+y/ BFde76Wit1KoDt8lgqkvklIyqEhq+JfzroTgP3Ua3/OoKGn/Ksn7NXHeYOCv 5nNU7GwMzSxoIs77unDhWT4Vz0aS4j63EPtrLfhzL1NRwZn1SraD4KN1P7YV UdFRQ0v6ax/xfEpgvs5NKsYWRFwp/Ek8H73gpFhMRc+zeQwfBrHf1aJ65g4V w+0Plp0f5sB52bpzd8qJ/Fet5XeZ5EC3UKBjfgXBNEXq2T8ckPn3b0nGE8I/ ztOEphkO5P8yjyNXUfFZ9KXSJX+J/Z/61OxriPOW67Xz/yP2v9nfu6WW0I+Q YDFngdhfWmsv9pKK7aNvg8p4udB9lcIz30DF5ivWNruXckHm9L+nw41UzHZT /aomwIX83eaqDU1UHPpvQsx/ObE/rO/bg2biPPmHFT1CxH7f/blXWqnI55Iu 6CxC7DerXUhsp6LJqbKmBVEuxCYkVft2UDHfOv6IsTgXtpdsTjbrpGIdWzQ7 VIILSt8HdJW7CX12D/88IMmFmZUF43xfCP7vwJGslVxosyfdGfpKxZORaSnH pLhQfEA0rKWHyHfJrbrd0lzwHk3vzftBxSTbNHvFVVzQXGt4MfkXFZ3Je/K+ EbzUh+npz6Bix3anrcdludCbfVvMYoCKFxUPGqrLceFxw46WtUNUNN364uJj grPnVh3j/01FlmIPWV+eC6Fa7Va/R6j4Lbf5aBHBZqHHF1rHqLiQfEeOdzUX pC5jddkEFd99rJT1IHjsw1zSORYV3WoDj+UR3MhfrpsyScXNVPXIVwRfNY0c D/hDnD/24mU/wYm71t6BGWL/EZ7zMwQ73f4aum6OqC8L+uD//n5KtS9XeRmX yK/skZpRguclHXpH/lLx79DGVR8I/mTHe7HtHxVVPMwWigguTa/2fLRIRZ56 u6Rwgg8/ThDLXxKCH9yXHFIg2H9EoyWVLwR7OszUGwh/9JQZR4k7J764NxPp S7AQ6YqV5bIQdPnm4v7jf38vleW5oLo8BHW/nfhFIrj6pXC1oHAIrvxPXPkF Ec+82VdJYyIhmJwVLylLcNTmfbrtoiHo5BpQF0zE3yrEYLxCPAQ5Y8Ubr8pw Qf7SWMkFyRDcXujs/5bI32TbzdC9UiH4uH0niUHkt3kpRXmHTAjeXuKgyiLy X2Qi3WslG4LKDXbN44Q+3IszPYUUQvA+33xlDaGnDb3mYhOKIXjVRlcsW4wL PJIzzR/XhGBb0klfZ0J/ZftpVpfWheCTcP1fRcJcEPe21d2wKQRz0iYvXebn wvDJxTHhzSE4e+6HzxQfF+rrn5UwtUJwKKPQxpyoj3jNDcrP9ELwWv/ZjzeJ +vnAt1xsu0kIUgYLLr0i6q/Y+GXzRrMQtM7Ke1VM1Gd6XOrRFRYhKH/rA3Uv Ub9aPb//dVqGoL9rgjpnnAM5j5rHQuxDUFZkpM22nwO8Bxc01juGYNaKt3r9 vziQ7KwXOeIUgkFnjusl/uDAjuFLA/FuIUg7Gro+7hsHdJQiv+/3CcFsetXn jx840HFiWfuFsBA8XTau5VHJge0+pqIB4YQ9jTp7NJ9woFo1zkkpMgQ7zpPH ueUcuPGiu+lmTAhyg5yyEu9yIHH61svy3SE4nffjTs81ol8EW1e0HApBhd2e RYcPcuCkVgo7JyMEb0jHFd/cx4GFv3e1PTJDsNyr+HBNCgeG8lfe+3I8BAO4 a9hv4zlQ2Uq/OXA6BA25hqPkIA74Gx3KX7wWgjNlVxoPmXOgQKwuVb+asO+5 /D9R1hz8l7KtQeF5CN45l9m8e2QObv5qEhKoC8Ed25f4v++fg9KKT1e+vAzB B8nfBXZ8Jb5/Pr9r978j8pPYcXbh5Ry8vy7F2/QlBPs9Xt21yJ2Dee3ok+TZ EGy4rhhkv2EOAtxkr2QahOKozmNffvNZ4LrJ0Vy2huKtjYcTarbMwmV3ed1V RqG4JCXCIkZrFr54KLwtMQ1F7h1Fw7o1s0DyVp5qsQrFibWllWq8s+Dmv8FR 0j0UbWMvpK98MwPbQ43+FuwMxbnIqW6mwwzopvgGVBaH4pXimE/jTtPwN/NO 8D2ZMBxsN5ObpExBfZiUWZ5sGB69+1jrt/cUHLU5IJMiT6xXblYYcJ4CSX7v lm1KYdigudg9aj4FGkd4tvSohWHqum/ahkpT4HfYR1BoSxgKOXz0/fJjEp6l 8z8M9wzDiDOXA7+ET8K+wPgTzt5hGFiZ9/5s0CRYWfSE6PuEIee7SgXJbxLa /pXJLvqH4bOHPTpTDpMwuI98OJ8ahvu6SuVOaE2C9N4K79e7wrD0SEuc8Swb du8Jnlc5E4bvpi70bj7Nhu4JW7/h3DC0Vutxp51ggxFN6+n9s2F40UzO+nYG G+a9/sYZXQhD9a7qLqsUNmTqnWc4F4ShZE26Kj2YDRfGm5pT7oXhVbYXvXUr G7ihD9dbPAhD2WcSpLO6bCD3nj/CVxaGZbbCMiGabFBuoVrkVIThxKVTd5VU 2HCnZL78RnUYKqzv3L9MlA01ITqX2prCcPLo9/k7QyxQ6pGZOdschqaxX+qE GCw46PHPw681DNvT5Y8mfWeBtWWzSP+HMEzOPO4a2cWC90qhBzndYajRaDPT /IoFP75eCFcdCEOpzeTMA0UssHJPb/w9GIZBArVJmQUsuNkUuvbhcBi2Pbwh kn+ZBRHPdHuMx8KQ9Gjc43MeC9jnWlxcp8LQv5Jk0ZPBAj63xS1pS2iYHXV0 HSucBSKHBZ0T+WjYqfrOeFsoC6QeS4TG8tOQEe6EN4NYoC6rmkddTkNNUU+7 M34scPhpN+EgQUP1AytDJJxY4CnpwW+zkoYRRptWd9mxgGwdoADSNNys3rby tg0LdpbsdNCXo+HviMbRJGDBmfi84tVraSgUUaJTr8+CS0VXaqXX0fBB9+7h GR0WFHXe7BRTo6FLQqG6mRYLKoye8S7dSEPzTrr35AYWdPP0Bo7p0FChUc5b dA0RH72BpEE9Go4Uq8lUK7BgOHQi+6cBDaVlGy8myrOA08RT02lEQ7rfmn/S MixQyFVbVYs05I0oYguJskDtlZbWMysarv/5Km6zCAu0pg1tyq1p+Fqu90eg EAvAz2H3LTsaDu4dLJ0QYIFdlufJ6w40vMgeEHPmZ4FbLfm/S040vHx7Jq2a jwXUtXEfTrnRUMk/I6mBhwXRnimDxzxoaKLgv7p6gQmJmYf+HfKioWzF0bQV 80w4+vvspmRfGjYyffpFZ5lwevU1q3h/Ghr8OP/v+R8mXHQu9osi0/B5xA/q iUkm3CmvPBYYRMM1MxyN/RNMeMR4WeBLpWHsteuXbo4xoVq65YlHKA3j+bnR IyNMeGXb2epEo+HfTOnbLr+Z0Jrax9geQcNnebdcPw4xoevuIBejiHg+WBqV MMiE731MCdMYGh6nGHB1B5gwJMbZsCWWhulKfXzi/UxgWfKidjwNtckuJ0UY TODsFvbZmEDsp6WfWU9nAm+xVOy6RBpmRAnJBf9igtAXxUzFZBqSoraqV/1k wkqh9VdXpdBwr+F4lTbBCmY6FRJpNHy8s76r8QcTVGONm4X30dAqdjgtheDN hVa/+NNpuEi2LnUgeGuH49ziARr+//+X/R+mLCb0 "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.55}, 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.5682534660870224, 1.6318291682145474`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.6188191084988537`*^9, 3.6188191684089375`*^9}, { 3.6188193068391314`*^9, 3.618819340769179*^9}, {3.618819402149265*^9, 3.618819444589324*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"LegendreP", "[", RowBox[{ RowBox[{"2", "i"}], ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6188192071489916`*^9, 3.6188192135190005`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], "+", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "4"]}]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{{3.6188192012889833`*^9, 3.618819213839001*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v", "=", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}]}]], "Input", CellChangeTimes->{{3.618819230529024*^9, 3.6188192363890324`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}]], "Output", CellChangeTimes->{3.6188192370290337`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v", ".", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"LegendreP", "[", RowBox[{ RowBox[{"2", "i"}], ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6188192399090376`*^9, 3.6188192467590475`*^9}}], Cell[BoxData[ RowBox[{"a", "+", RowBox[{ FractionBox["1", "2"], " ", "b", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "8"], " ", "c", " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], "+", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "4"]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.618819247449048*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Ocultando as vari\[AAcute]veis", "Section", CellChangeTimes->{{3.6188194688993583`*^9, 3.6188194724093633`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"RandomVariate", "[", " ", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "3"}], "]"}], " ", ",", "100"}], "]"}]}]], "Input", CellChangeTimes->{{3.6188194960793962`*^9, 3.618819537909455*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "16.05848372281176`", ",", "19.03514736935486`", ",", "20.959230388945205`", ",", "19.85119443093662`", ",", "20.140670385942556`", ",", "18.260314967933628`", ",", "18.548820880637575`", ",", "18.74727712423886`", ",", "21.326986525442386`", ",", "25.535298692068086`", ",", "23.309750301531057`", ",", "22.970939268958457`", ",", "18.366417537929713`", ",", "19.69260392831107`", ",", "22.179831534577524`", ",", "17.904906641387853`", ",", "21.272536395350464`", ",", "14.127584371437877`", ",", "21.867813998837278`", ",", "19.296369263182388`", ",", "19.358597834468142`", ",", "14.792696420748083`", ",", "20.771277297787964`", ",", "18.0555066956653`", ",", "17.969703643132767`", ",", "26.1840400254743`", ",", "16.051394183374278`", ",", "20.420437072595032`", ",", "22.79127660456203`", ",", "24.278364485963028`", ",", "20.230457120080715`", ",", "19.80332135804997`", ",", "17.51757627165514`", ",", "20.942125794864335`", ",", "19.58579334699894`", ",", "18.340625737287212`", ",", "14.7612260972453`", ",", "20.984574029495775`", ",", "19.89330743327905`", ",", "22.424617273367556`", ",", "18.223551603957297`", ",", "20.3302251688264`", ",", "21.98687204754573`", ",", "16.297078601649932`", ",", "16.818375542806965`", ",", "19.95726622526585`", ",", "20.445381228732366`", ",", "14.679618157270493`", ",", "14.686593976599488`", ",", "17.421372925552557`", ",", "16.19237921544005`", ",", "22.476640223523063`", ",", "19.109759536106314`", ",", "23.445796788000393`", ",", "17.81928619261809`", ",", "21.77543256129262`", ",", "19.325994217876826`", ",", "18.957907591877202`", ",", "22.27389372813569`", ",", "18.92944685497102`", ",", "27.28541602216506`", ",", "19.47967537916821`", ",", "21.81662781801333`", ",", "17.894014896869106`", ",", "20.296495864640516`", ",", "18.020825896079515`", ",", "21.560382147092433`", ",", "22.695654922428638`", ",", "21.138801739087015`", ",", "20.361685733623524`", ",", "15.686697649194329`", ",", "16.338777175180088`", ",", "21.170961508390093`", ",", "16.38917618468837`", ",", "28.54623838845773`", ",", "21.7057046600945`", ",", "18.2559768994043`", ",", "13.088959303080363`", ",", "25.912576841129763`", ",", "24.68985140777133`", ",", "13.849413537698606`", ",", "21.052558842809916`", ",", "20.293320163833215`", ",", "17.437020693579246`", ",", "26.461550087813112`", ",", "15.114902743949425`", ",", "18.41599516143157`", ",", "16.013663683355837`", ",", "20.143703628413803`", ",", "17.312498169047387`", ",", "24.31346198308497`", ",", "26.281469857666398`", ",", "17.29398242140439`", ",", "18.59835583730551`", ",", "21.54459413295479`", ",", "21.078518526080963`", ",", "21.45690133662725`", ",", "16.142723558319233`", ",", "19.714449691227777`", ",", "19.013319737676134`"}], "}"}]], "Output", CellChangeTimes->{{3.6188195236994348`*^9, 3.618819538519456*^9}}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.618819531329446*^9, 3.6188195426894617`*^9}, { 3.6188196047295485`*^9, 3.6188196248095765`*^9}, 3.618819682419657*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h1", "=", RowBox[{"Histogram", "[", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"Mean", "[", RowBox[{"RandomVariate", "[", " ", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "3"}], "]"}], " ", ",", "100"}], "]"}], "]"}], ",", RowBox[{"{", "1000", "}"}]}], "]"}], " ", "]"}]}]], "Input", CellChangeTimes->{{3.6188196276895804`*^9, 3.6188196313495855`*^9}, { 3.6188196843296595`*^9, 3.6188196898496675`*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.5389999999999999], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.5389999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{18.8, 0}, {18.9, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{41.8224179343475, 65.27984822640647}, { 143.7985038734256, 146.98022696955968`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{18.9, 0}, {19., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{64.47984822640646, 87.93727851846633}, { 143.7985038734256, 146.98022696955968`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{19., 0}, {19.1, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{87.13727851846633, 110.5947088105262}, { 143.7985038734256, 146.98022696955968`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{19.1, 0}, {19.2, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{109.7947088105262, 133.25213910258609`}, { 141.41678077729156`, 146.98022696955968`}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{19.2, 0}, {19.3, 8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{132.45213910258607`, 155.90956939464596`}, { 127.1264422004872, 146.98022696955968`}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{19.3, 0}, {19.4, 15}, "RoundingRadius" -> 0]}, ImageSizeCache->{{155.10956939464594`, 178.56699968670492`}, { 110.45438052754879`, 146.98022696955968`}}], StatusArea[#, 15]& , TagBoxNote->"15"], StyleBox["15", {}, StripOnInput -> False]], Annotation[#, Style[15, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{19.4, 0}, {19.5, 25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{177.7669996867049, 201.2244299787657}, { 86.63714956620821, 146.98022696955968`}}], StatusArea[#, 25]& , TagBoxNote->"25"], StyleBox["25", {}, StripOnInput -> False]], Annotation[#, Style[25, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{19.5, 0}, {19.6, 51}, "RoundingRadius" -> 0]}, ImageSizeCache->{{200.4244299787657, 223.88186027082557`}, { 24.71234906672268, 146.98022696955968`}}], StatusArea[#, 51]& , TagBoxNote->"51"], StyleBox["51", {}, StripOnInput -> False]], Annotation[#, Style[51, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{19.6, 0}, {19.7, 74}, "RoundingRadius" -> 0]}, ImageSizeCache->{{223.08186027082556`, 246.53929056288453`}, {-30.06728214436069, 146.98022696955968`}}], StatusArea[#, 74]& , TagBoxNote->"74"], StyleBox["74", {}, StripOnInput -> False]], Annotation[#, Style[74, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{19.7, 0}, {19.8, 94}, "RoundingRadius" -> 0]}, ImageSizeCache->{{245.73929056288452`, 269.1967208549444}, {-77.70174406704189, 146.98022696955968`}}], StatusArea[#, 94]& , TagBoxNote->"94"], StyleBox["94", {}, StripOnInput -> False]], Annotation[#, Style[94, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{19.8, 0}, {19.9, 119}, "RoundingRadius" -> 0]}, ImageSizeCache->{{268.3967208549444, 291.85415114700436`}, {-137.24482147039333`, 146.98022696955968`}}], StatusArea[#, 119]& , TagBoxNote->"119"], StyleBox["119", {}, StripOnInput -> False]], Annotation[#, Style[119, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{19.9, 0}, {20., 131}, "RoundingRadius" -> 0]}, ImageSizeCache->{{291.0541511470043, 314.51158143906423`}, {-165.82549862400208`, 146.98022696955968`}}], StatusArea[#, 131]& , TagBoxNote->"131"], StyleBox["131", {}, StripOnInput -> False]], Annotation[#, Style[131, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20., 0}, {20.1, 129}, "RoundingRadius" -> 0]}, ImageSizeCache->{{313.71158143906416`, 337.1690117311241}, {-161.06205243173395`, 146.98022696955968`}}], StatusArea[#, 129]& , TagBoxNote->"129"], StyleBox["129", {}, StripOnInput -> False]], Annotation[#, Style[129, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20.1, 0}, {20.2, 99}, "RoundingRadius" -> 0]}, ImageSizeCache->{{336.36901173112403`, 359.82644202318306`}, {-89.61035954771216, 146.98022696955968`}}], StatusArea[#, 99]& , TagBoxNote->"99"], StyleBox["99", {}, StripOnInput -> False]], Annotation[#, Style[99, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20.2, 0}, {20.3, 97}, "RoundingRadius" -> 0]}, ImageSizeCache->{{359.026442023183, 382.48387231524384`}, {-84.84691335544406, 146.98022696955968`}}], StatusArea[#, 97]& , TagBoxNote->"97"], StyleBox["97", {}, StripOnInput -> False]], Annotation[#, Style[97, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20.3, 0}, {20.4, 69}, "RoundingRadius" -> 0]}, ImageSizeCache->{{381.6838723152438, 405.1413026073028}, {-18.15866666369041, 146.98022696955968`}}], StatusArea[#, 69]& , TagBoxNote->"69"], StyleBox["69", {}, StripOnInput -> False]], Annotation[#, Style[69, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20.4, 0}, {20.5, 45}, "RoundingRadius" -> 0]}, ImageSizeCache->{{404.34130260730274`, 427.7987328993627}, { 39.002687643527025`, 146.98022696955968`}}], StatusArea[#, 45]& , TagBoxNote->"45"], StyleBox["45", {}, StripOnInput -> False]], Annotation[#, Style[45, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20.5, 0}, {20.6, 19}, "RoundingRadius" -> 0]}, ImageSizeCache->{{426.9987328993626, 450.45616319142255`}, { 100.92748814301255`, 146.98022696955968`}}], StatusArea[#, 19]& , TagBoxNote->"19"], StyleBox["19", {}, StripOnInput -> False]], Annotation[#, Style[19, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20.6, 0}, {20.7, 8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{449.6561631914225, 473.1135934834824}, { 127.1264422004872, 146.98022696955968`}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20.7, 0}, {20.8, 8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{472.31359348348235`, 495.7710237755423}, { 127.1264422004872, 146.98022696955968`}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20.8, 0}, {20.9, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{494.9710237755422, 518.4284540676013}, { 141.41678077729156`, 146.98022696955968`}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20.9, 0}, {21., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{517.6284540676012, 541.0858843596611}, { 143.7985038734256, 146.98022696955968`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{21., 0}, {21.1, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{540.285884359661, 563.7433146517219}, { 143.7985038734256, 146.98022696955968`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{18.754, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{18.8, 21.1}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6188196321095867`*^9, {3.6188196863896627`*^9, 3.6188196904896684`*^9}, { 3.6188197349297304`*^9, 3.6188197476297483`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h2", "=", RowBox[{"Histogram", "[", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"StandardDeviation", "[", RowBox[{"RandomVariate", "[", " ", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "3"}], "]"}], " ", ",", "100"}], "]"}], "]"}], ",", RowBox[{"{", "1000", "}"}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.6188196592296247`*^9, 3.6188196634796305`*^9}, { 3.618819699589681*^9, 3.6188197088496943`*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.511], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.511], Thickness[Small]}], RectangleBox[{2.35, 0}, {2.4, 3}, RoundingRadius->0], RectangleBox[{2.4, 0}, {2.45, 2}, RoundingRadius->0], RectangleBox[{2.45, 0}, {2.5, 4}, RoundingRadius->0], RectangleBox[{2.5, 0}, {2.55, 4}, RoundingRadius->0], RectangleBox[{2.55, 0}, {2.6, 19}, RoundingRadius->0], RectangleBox[{2.6, 0}, {2.65, 15}, RoundingRadius->0], RectangleBox[{2.65, 0}, {2.7, 28}, RoundingRadius->0], RectangleBox[{2.7, 0}, {2.75, 44}, RoundingRadius->0], RectangleBox[{2.75, 0}, {2.8, 56}, RoundingRadius->0], RectangleBox[{2.8, 0}, {2.85, 65}, RoundingRadius->0], RectangleBox[{2.85, 0}, {2.9, 82}, RoundingRadius->0], RectangleBox[{2.9, 0}, {2.95, 91}, RoundingRadius->0], RectangleBox[{2.95, 0}, {3., 100}, RoundingRadius->0], RectangleBox[{3., 0}, {3.05, 94}, RoundingRadius->0], RectangleBox[{3.05, 0}, {3.1, 100}, RoundingRadius->0], RectangleBox[{3.1, 0}, {3.15, 77}, RoundingRadius->0], RectangleBox[{3.15, 0}, {3.2, 62}, RoundingRadius->0], RectangleBox[{3.2, 0}, {3.25, 48}, RoundingRadius->0], RectangleBox[{3.25, 0}, {3.3, 35}, RoundingRadius->0], RectangleBox[{3.3, 0}, {3.35, 28}, RoundingRadius->0], RectangleBox[{3.35, 0}, {3.4, 15}, RoundingRadius->0], RectangleBox[{3.4, 0}, {3.45, 13}, RoundingRadius->0], RectangleBox[{3.45, 0}, {3.5, 6}, RoundingRadius->0], RectangleBox[{3.5, 0}, {3.55, 4}, RoundingRadius->0], RectangleBox[{3.55, 0}, {3.6, 4}, RoundingRadius->0], RectangleBox[{3.65, 0}, {3.7, 1}, RoundingRadius-> 0]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{2.323, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{2.35, 3.7}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6188196640696316`*^9, 3.618819709459695*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Max", "[", "u", "]"}], "-", RowBox[{"Min", "[", "u", "]"}]}]], "Input", CellChangeTimes->{{3.61881955572948*^9, 3.618819570869501*^9}}], Cell[BoxData["15.457279085377367`"], "Output", CellChangeTimes->{{3.6188195589694843`*^9, 3.6188195720895023`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n", "=", "15"}]], "Input", CellChangeTimes->{ 3.6188199005199623`*^9, {3.618820150090312*^9, 3.618820154730318*^9}, { 3.618820518700828*^9, 3.6188205236308346`*^9}}], Cell[BoxData["15"], "Output", CellChangeTimes->{3.6188205242608356`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"parms", "[", RowBox[{"x0_", ",", "\[Sigma]_", ",", "n_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "u", "}"}], ",", RowBox[{ RowBox[{"u", "=", RowBox[{"RandomVariate", "[", " ", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"x0", ",", "\[Sigma]"}], "]"}], " ", ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Mean", "[", "u", "]"}], ",", RowBox[{"StandardDeviation", "[", "u", "]"}], ",", RowBox[{ RowBox[{"Max", "[", "u", "]"}], "-", RowBox[{"Min", "[", "u", "]"}]}]}], "}"}]}]}], " ", "]"}]}]], "Input", CellChangeTimes->{{3.6188198008698225`*^9, 3.618819910159976*^9}, { 3.618820007520112*^9, 3.618820066940195*^9}, {3.618820106870251*^9, 3.6188201305902843`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"parms", "[", RowBox[{"20", ",", "3", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.6188200291501427`*^9, 3.618820029540143*^9}, { 3.618820179530353*^9, 3.618820204200388*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "22.495594471315208`", ",", "1.6392628183782134`", ",", "2.318267710044413`"}], "}"}]], "Output", CellChangeTimes->{{3.618820030090144*^9, 3.618820033550149*^9}, { 3.618820071740202*^9, 3.6188200758902082`*^9}, {3.6188201839903593`*^9, 3.6188202110703974`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"parms", "[", RowBox[{"20", ",", "3", ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6188202264504185`*^9, 3.618820268680478*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "17.13668021195737`", ",", "6.037925507359826`", ",", "8.538916141106716`"}], "}"}], ",", RowBox[{"{", RowBox[{ "19.399663515949197`", ",", "4.550150153356073`", ",", "8.87698138243139`"}], "}"}], ",", RowBox[{"{", RowBox[{ "21.313825758046278`", ",", "3.6637703345318022`", ",", "7.870894530030757`"}], "}"}], ",", RowBox[{"{", RowBox[{ "19.392295703147433`", ",", "2.3713663589889937`", ",", "5.612548234485548`"}], "}"}], ",", RowBox[{"{", RowBox[{ "18.291279417802958`", ",", "2.0641121864069425`", ",", "5.804319345974385`"}], "}"}], ",", RowBox[{"{", RowBox[{ "18.613771440461118`", ",", "3.613493843231865`", ",", "10.924463675871362`"}], "}"}], ",", RowBox[{"{", RowBox[{ "19.103731707460536`", ",", "2.0093903363115424`", ",", "5.083299622588012`"}], "}"}], ",", RowBox[{"{", RowBox[{ "21.543937552322163`", ",", "2.351532666444466`", ",", "6.15594497920846`"}], "}"}], ",", RowBox[{"{", RowBox[{ "20.55323287651417`", ",", "3.6512501320788355`", ",", "9.38693976010525`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.61882024883045*^9, 3.618820278040491*^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", ",", "1000000"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"TableHeadings", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "10", ",", "100", ",", "1000", ",", "10000", ",", "100000", ",", "1000000"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\[Sigma]\>\"", ",", "\"\\""}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.6188203375105743`*^9, 3.618820352870596*^9}, { 3.6188203900206475`*^9, 3.6188204921707907`*^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.14583734870702`", "3.598875759635764`", "12.22860608540511`"}, { TagBox["100", HoldForm], "20.339413618079735`", "2.9863490769196672`", "15.009912209873756`"}, { TagBox["1000", HoldForm], "20.00078286147982`", "3.024064138461163`", "20.679470874822997`"}, { TagBox["10000", HoldForm], "20.07708502541999`", "2.9910827904340125`", "22.202445705877544`"}, { TagBox["100000", HoldForm], "19.9832794907666`", "3.0011396612081724`", "25.155765261798564`"}, { TagBox["1000000", HoldForm], "20.00046211332357`", "3.002456459267166`", "27.664098817534867`"} }, 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, 1000000}, { "m\[EAcute]dia", "\[Sigma]", "range"}}]]]], "Output", CellChangeTimes->{{3.6188204782007713`*^9, 3.6188204934907923`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["n"], "Input", CellChangeTimes->{3.618820547260868*^9}], Cell[BoxData["15"], "Output", CellChangeTimes->{3.6188205477708683`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "parms"}]], "Input", CellChangeTimes->{{3.618820623810975*^9, 3.618820625230977*^9}}], Cell[CellGroupData[{ Cell["Global`parms", "Print", "PrintUsage", CellChangeTimes->{3.618820625920978*^9}, CellTags->"Info3618809825-5685022"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"parms", "[", RowBox[{"x0_", ",", "\[Sigma]_", ",", "n_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "u", "}"}], ",", RowBox[{ RowBox[{"u", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"x0", ",", "\[Sigma]"}], "]"}], ",", "n"}], "]"}]}], ";", RowBox[{"{", RowBox[{ RowBox[{"Mean", "[", "u", "]"}], ",", RowBox[{"StandardDeviation", "[", "u", "]"}], ",", RowBox[{ RowBox[{"Max", "[", "u", "]"}], "-", RowBox[{"Min", "[", "u", "]"}]}]}], "}"}]}]}], "]"}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[$CellContext`parms], Editable->False]], "Print", CellChangeTimes->{3.618820625920978*^9}, CellTags->"Info3618809825-5685022"] }, Open ]] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"interval", "[", RowBox[{"n_", ",", "m_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "umais", ",", "umenos"}], "}"}], ",", RowBox[{ RowBox[{"u", "=", RowBox[{"parms", "[", RowBox[{"20", ",", "3", ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"umais", "=", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"m", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "2", "]"}], "]"}], "/", RowBox[{"Sqrt", "[", "n", "]"}]}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"umenos", "=", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"m", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "2", "]"}], "]"}], "/", RowBox[{"Sqrt", "[", "n", "]"}]}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"umenos", "<", "20", "<", "umais"}], ",", "1", ",", "0"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.618820635770992*^9, 3.618820637640994*^9}, { 3.618820771471182*^9, 3.6188210081215134`*^9}, {3.6188210954716353`*^9, 3.6188210958416357`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Total", "[", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"interval", "[", RowBox[{"3", ",", "1"}], "]"}], ",", RowBox[{"{", "100000", "}"}]}], "]"}], " ", "]"}], "/", "100000"}]], "Input", CellChangeTimes->{{3.6188210136915207`*^9, 3.618821017361526*^9}, { 3.618821112431659*^9, 3.6188211530017157`*^9}}], Cell[BoxData[ FractionBox["3611", "6250"]], "Output", CellChangeTimes->{{3.618821017971527*^9, 3.6188210381215553`*^9}, { 3.618821102541645*^9, 3.6188211590617247`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "N"}]], "Input", CellChangeTimes->{{3.618821170901741*^9, 3.618821172341743*^9}}], Cell[BoxData["0.57776`"], "Output", CellChangeTimes->{3.6188211731017437`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"nivelConfianca", "[", RowBox[{"n_", ",", "m_", ",", "historias_"}], "]"}], ":=", RowBox[{"100.", RowBox[{ RowBox[{"Total", "[", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"interval", "[", RowBox[{"n", ",", "m"}], "]"}], ",", RowBox[{"{", "historias", "}"}]}], "]"}], " ", "]"}], "/", "historias"}]}]}]], "Input", CellChangeTimes->{{3.6188212084717937`*^9, 3.6188212798918934`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nivelConfianca", "[", RowBox[{"2", ",", "1", ",", "10000"}], "]"}]], "Input", CellChangeTimes->{{3.618821286881903*^9, 3.618821379232033*^9}}], Cell[BoxData["49.769999999999996`"], "Output", CellChangeTimes->{{3.618821299351921*^9, 3.6188213807120347`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", " ", RowBox[{"nivelConfianca", "[", RowBox[{"n", ",", "1", ",", "100000"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "20"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6188214005320625`*^9, 3.618821453092136*^9}, { 3.6188215085022135`*^9, 3.618821517222226*^9}, {3.6188215474822683`*^9, 3.6188215775723104`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "49.908`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "57.812`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "60.663999999999994`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "62.798`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "63.928`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "64.68599999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "65.058`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "65.373`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "65.497`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "65.771`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "66.01`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "66.357`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "66.435`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "66.777`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "66.709`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "66.74600000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "66.79`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "66.956`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "67.021`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.618821458182143*^9, 3.6188215234122343`*^9, 3.6188215655122933`*^9, 3.6188216827324576`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"t", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.6188214626221495`*^9, 3.618821466502155*^9}, { 3.6188215684022975`*^9, 3.6188215705623007`*^9}, {3.618821704712488*^9, 3.61882173445253*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQDQUOfkkCEZZfPBwgXA4HPt1Nc98/94HyBRwWum77 /DfED8oXcVggpX9XJc0fypdwAOrecuIbjC/jMNW5O+e5dgCUr+Bw8BTQBGcY X8lBNirF+n44jK/ioN0udvNcPIyv5nDZF+igQhhfw6HQluv64gYYX8uBCaRh Goyv47CkAKhgNoyv51Brbxq3ayOMb+DgY97pmLAWxjd0sNpyomzfehjfyOHw V42Y/k0wvrFD+b75Uvp7YXwTiHsOBjgAANyGScI= "]]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.7187500000000002`, 49.05235}, 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.}, {49.908, 67.021}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6188214671321554`*^9, 3.618821530892245*^9, 3.618821571162301*^9, 3.618821688152465*^9, 3.618821735032531*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"intervalFixo", "[", "n_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "umais", ",", "umenos", ",", "t"}], "}"}], ",", RowBox[{ RowBox[{"u", "=", RowBox[{"parms", "[", RowBox[{"20", ",", "3", ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"t", "=", RowBox[{"InverseCDF", "[", " ", RowBox[{ RowBox[{"StudentTDistribution", "[", RowBox[{"n", "-", "1"}], "]"}], ",", "0.841"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"umais", "=", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"t", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "2", "]"}], "]"}], "/", RowBox[{"Sqrt", "[", "n", "]"}]}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"umenos", "=", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"t", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "2", "]"}], "]"}], "/", RowBox[{"Sqrt", "[", "n", "]"}]}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"umenos", "<", "20", "<", "umais"}], ",", "1", ",", "0"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.6188218140526414`*^9, 3.6188218364826727`*^9}, { 3.6188223761934285`*^9, 3.61882241283348*^9}, {3.6188227298839235`*^9, 3.6188227306739244`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"nivelConfiancaT1\[Sigma]", "[", RowBox[{"n_", ",", "historias_"}], "]"}], ":=", RowBox[{"100.", RowBox[{ RowBox[{"Total", "[", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"intervalFixo", "[", "n", "]"}], ",", RowBox[{"{", "historias", "}"}]}], "]"}], " ", "]"}], "/", "historias"}]}]}]], "Input", CellChangeTimes->{{3.6188224447035246`*^9, 3.6188224991736*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", " ", RowBox[{"nivelConfiancaT1\[Sigma]", "[", RowBox[{"n", ",", "1000"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "20"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.618822519593629*^9, 3.6188225376836543`*^9}, 3.6188227448739443`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "65.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "68.4`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "67.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "70.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "66.4`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "67.80000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "66.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "69.89999999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "68.10000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "67.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "68.89999999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "67.2`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "68.`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "69.19999999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "68.89999999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "66.60000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "68.7`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "67.30000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "69.89999999999999`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.6188226384837956`*^9, 3.6188227559639597`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"t1", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.618822575883708*^9, 3.618822586993724*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQDQUOxiBQHOAA4XI4zJoJBJKBUL4AhD4AkxeBqN8M k5eAqJ8Jk5dxMAHJf4bxFaDqYXwlB7DySph+FYf0NCBgg/HVIPQDmHoNiHpL mLyWw9kzIACT14HSMHk9B7C0D4xvgKbfEGLfMph+I4h5OjB5Y4j7L8PkTeDu BQCt8EPz "]]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.7187500000000002`, 65.55}, 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.}, {65.8, 70.8}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6188226569438214`*^9, 3.618822762543969*^9}] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "n", "]"}]], "Input", CellChangeTimes->{{3.618821907862773*^9, 3.6188219098227754`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CDF", "[", " ", RowBox[{ RowBox[{"StudentTDistribution", "[", "n", "]"}], ",", "y"}], "]"}]], "Input", CellChangeTimes->{{3.618821865052713*^9, 3.6188219008627625`*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{ FractionBox["1", "2"], " ", RowBox[{"BetaRegularized", "[", RowBox[{ FractionBox["n", RowBox[{"n", "+", SuperscriptBox["y", "2"]}]], ",", FractionBox["n", "2"], ",", FractionBox["1", "2"]}], "]"}]}], RowBox[{"y", "\[LessEqual]", "0"}]}, { RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"BetaRegularized", "[", RowBox[{ FractionBox[ SuperscriptBox["y", "2"], RowBox[{"n", "+", SuperscriptBox["y", "2"]}]], ",", FractionBox["1", "2"], ",", FractionBox["n", "2"]}], "]"}]}], ")"}]}], TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{{3.618821876152728*^9, 3.61882191296278*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", " ", RowBox[{ RowBox[{"InverseCDF", "[", " ", RowBox[{ RowBox[{"StudentTDistribution", "[", "5", "]"}], ",", "y"}], "]"}], " ", ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.61882192029279*^9, 3.618821959882846*^9}, { 3.6188220675029964`*^9, 3.618822082893018*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVlGk4lI3fhmdhGFuIQp5CEmXpkVGp/O7qIclSyFIR2VIU7ZNSYoqSkChJ siVLpClC7hvzNoTslOwiaWbuyBhmLP/eD9dxfrrOT9dxaR4/4+BLIhAITX/z /zSyHWispV8GfKDJuLBbDku48EgbX0MHJZXttMh0OYxSYJt+2+sKxFySpbDM 5bArwyR1jcxQ0DT5VUEblsW87YOWH9QJA8bGDybVprLYF4bW/Z/+16HwgxdN 5ocMptN/Srza6Qa4cBsOjaXIYClKmuFuSeHQ7vT79noZGSwi/O7lO6qR4PZe qf6RnDRWpe73zrk8Er6/PMlr7pDCZkuRaa0jDGj4tS5BmCqFBfL4ZypSb8H0 CQfTYmMpzOmIpz9nTTQM+JLNW4OpWOyMWXYZFg3byR5t1XuoWF288kik1x0I 3aE0OrGSiu2s++TxT+ZdaKocP5BbK4np0GjOdjqx0Lzq/T2X9ZKYZ8uyRDV2 LAT7xWncIUliT05NtI753wf18bUh8f0SmGRrcw7qFAeK7gnJwkcS2FUJhpZr UjzER9I63VZIYD7ncdVo1URwNbUQvDWgYJvJCVdKghPhxjJPepE8BSMlmHz7 xk6EkBr315umxbFnRfRUw4sPIezSYmxppTjWM0Fe09GWBM506TRPR3HM3ktF e03MY/Dffb2WkiiGrf5dHmk18hjM3G+6vr4mhnHC3EdDzFJgeH4xvdBfDLuT mpHDGk+Bbz+ljiTsEMNY3fp6Jy1SwSHTOb/tJxkzs9tl+HYxDV6vnph5eoCM SfaNxPYfegb3lM/I3jAnY92nbuEShc/Av/+K7yN9MlbO8nUtNEiHY9tYXD8q GXMdzlMl9KbDJYnRNUf+j4Ql/ENLzd6aAQGem9UrLEiYZOK+578ns8A/j+uW dpyIibYOiZ6rZYOYQ7P9YWcixuu77Oy4JxvYq6ytjayJWPv6XOl3idlQUrqh TMuYiKVVUC6GbsmBKCF/VJtMxExGaq0p116A9cbCDquXBMzT2Hx6lWQevKYL zRbIBMyxu9OuaVMeWIRGCM9NL6GWV4NehrnlwZ4jd5fJDi2hGz+megzl5cGQ c41davkSOuMmqsuxzQcmWcFS+8wSGhNe9vTfBwUQOFUhiupbREtbjPfuXV0E DS5WxwObFtDYnxwrfcsi4K59E3fjwwLqR3phrXC6CCLa4qJfFi6gK0xW2X37 UAQtD7xFW2MX0IqG8LxSw2I4OyQ5vffAArrK6OTr/Z+Loe/Pffpc9zzawzdD z8mWQHDf4e6AaRFqSVJB/DRLYEKl5/D7MRFaIsfHXGklUDVPklb5KkLvrC+q 2eleAo/XZfmQqkSomdvajxKFJSAtu938dpQIfVwp3fTE5g0wSKtJNA0R6hrR 21N7lwnJztuMDroJUflBHX3/50z4nHPjloWNEK3fEXJNqpQJG2y9T+8FIWo2 I65xcJgJN+9KXz63ToiuCjDy7d/6FvqI7kjA1Bzab3cTnx19C1nz3tvfxM6h Pmq6YoZIKby5VnhBrmUWPfP6nMGj6fdA1cyYMwwRoLwdQ+31kuWweIFncM1f gAbW2V0RqZdDnJbHwzZ3AXpiQI/tYVEOeguenxOsBain7KDnuqRy4EttzPLX FqAHAmwSS7ZUAEtNUcHt6wy6SXOdqPFKJeSwH2YrWM2gU3FddUQiCrbbBIVd pny0rvoj2ryjBqyte1cN6fxBA+j7ZN04LJgyv2Ma6DWJVlONlwqC2PA57PET QgOO5mSyFtXWfQJG8ekK+28cFFnxIcPxVSPQWVUX9jpOoAbs3rKPG5rhUONa SgJhHO1AHHkveS2QYHOt9HL6KBoodaqtc1MbKLqYPhlijKANX1w+yMW2w9aL z/1lXIdQR0vXoe/fO4Bt+anvWmI/app+1yVduwvweyl1moM96ODig44T17vB KEf9bf1sFzq6rzlzRe0X8ImS+5p7sh0tfjxAb9XsgflB4pYPVs1odhQ5Wu/K N5hezvlEXmKjfO/DE34VvSAm01VUu7calf7vlsPrlf3w6/eGgpo1TPSq/KjM 0NEBuOTsEmHfm4LKVG0kdNsOQuNku29MxmPYedF+oVY4CC8tvP0y8pmQmhWT uTZ1CGhrM7rWU6rB45BJE3X/MOTvU54McK6Dt52+D6pmhgHTQ0pdUpthW2Mx aSxpBH5qtpx4hrSDhoUf/8F/36Fq6rO2jkI30Exo8cyx79B5L6LPpbQHBqbu 1WcyRkHZx57V69MPnM0HGarGY8CdtFZ+uHsIdH4ZTBDbxyDJZvpb1+4RYGlf aAsO/wE/PJP3Y7dH4X5Hp7eD9jhYWjAMdGp/AO6IxZNY41Bh+5W6XWkCSg4p 79kW8hMqO3INE1gcyGyKeDqsOAGBys9iD4fiIGAfDVWsmYBNbTMr3Q9PwmA8 ypc//QvO29jRzNb8gZnW7ao35ThQH7fhcMviNBCCugXbFDiwk1Cif0uCD1KS 57oml3OASiuL3yXPh9XmeQ+8VDkgvxRsUq/JB4s8Fbld2hyIiempU7fgQ+JN PolgxoFlmHtTbwwfNm8u4lzz5QBpJd+PqDkDwYlaGL2SA64eo9+NPQTg8PB4 ABn961c7KP7LXwC0pAzFe9Uc2HV7Y1BeiACEyVq+6R85sN321x5gCIDxREuK 3cKBumH/gJoCAaRkaDkpjXLA+6F4z7YFAbCKtcZfyXJhoMAwzC5rFnJeH4/f Ks+F5g+LD6lFsxBdkmFWo8iFPm/Lyqb3s2DH1LrXuZILrYsBl0KaZ+FrqZbx vCYXIibdo3RFs8Cr0rq6z5QLnMnkdz5Oc7CySUv+uwcXdOtfGD2VE8JWfscf Ty8ulHk19XipCcH1n9vdfd5cUKIFPvtXRwgpQb/Suk9wYWVsUvPUTiGslmMa NJzlAunVBqfFICHo2FvsL7nFBdOe/DX2LUKgtfrfuvGKC+ePfs2PTxOB85zq yYViLuSlnV2ayBfBRc1G2ytvuGBRpfLV4b0IykI2KZ8v40IUppRt1yGCHYpz mf41XJBRWvITSs3Df453qu26uH/3H+a5O3QeHDsL5tUXucDYxf7z6sQChL0I FDYTeFCxwuz3efoC5NL1Z2+SedD087mJw50FmP+n4M+4JA94GnlZjgULkOOX P8FczoOAUzNN9MkFEApefrHR40HjY2k08cYiZKi9YF514kHYaWAeZS5BI8ev xMiFB2e9O8pz65ZAUKVTPOz21898tm9l3xLYeOfkWx3jgbwu4Y8hmYDM5Gdn KJ3kwR4dCt3egIBY78yKK7jOg/O70peZMAjI1LHngb15PLhv9EWy2oKI8JPF aV6FPPij2dLCOkhEZpsDFkaLeJB4w3h+0J2ILIFxLM7kAUs4K+9zkYjIaNQW kdC//V5jdnouEVk3+H1Kt50H+q4j1MOKJERXZV9FYScP5oaoYyoaJET/QGGE 8RcetD4fKxcYkBBj7ILSjj4esH+Xv1xpTULM0ymm9j940GHCFpuKICGunrr0 CyIeELcyYvMXSciRRzG7hAs82NVRYVouR0Y8Wn5TrxNwYArSQqdXkxFf5H1K lDgO4ZuqknAgI2c1rCufLMMBrTs8tiqSjMQMnlqqXouDoz15ymqFGHJfpYVt qYMDFlzs+UBPDEk4YBLXoIuDwltynPpOMeQxNq/RaYAD2+1K8qSPGJKTfm/3 +BYcPtPbU7tKxRDUs4ghZ4PD0Ppkd9tAcaS8OXB/vx0OheE60ua3xZF35hsU Xh3EwfJPZFhuhjhSoJ6dauuCw4dWhzlRjziS8iXlTcxxHB60jZxd60BBkva6 0o/64iBzzsrUP4SCxL9TBv0TONgz1Kh28RQkKjHuU0MQDqXIF8aadgpy4cCt ISk6DsFPj0VlHZNAgtE9L3r+/tTqb1u2t0ZKIIGGxKC8MBw8g3pzhvMkkOMy V2f3ReJAqWluHZiTQDxCt1Wp3sZhR4XCixEtScRtYibiZzQOesl20fM2ksiB upBl0fdxuNC+tDs3SxKx2WLU6ZqAQ7lq7tkjbZLI3hxOiu5DHNrT+Ok+RCpi HumvU5eCQ/Ldofv13lRkI+K+UyIHB0O9o5SwHVKITpEauTsXB8Uo3JJ+SQrR Wv2lLicfBzEXPdkcphSiMu/gZPkahxMmJxt3mkojSqfk1VYwcRgMlGighkoj y3qaBkbf4XA+8ez3TzXSCKXM6hSjEoePk7bJpkdlENJ6yr+HUBzE48reXn0l gyw8rJ3RrsHBZI+q3ZSYLDIrFl45zcKBGyvFInvKItPnzG+y2DgcHf98yBCT RRwdjot/rsehFfk0M0OVQ/4Hnqhjng== "]]}}, 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, 1}, {-3.85531081858425, 3.7548655777428412`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.618821954662838*^9, 3.6188219606528463`*^9}, { 3.618822070783001*^9, 3.6188220834030185`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InverseCDF", "[", " ", RowBox[{ RowBox[{"StudentTDistribution", "[", "100", "]"}], ",", "0.841"}], "]"}]], "Input", CellChangeTimes->{{3.6188222621032686`*^9, 3.618822287233304*^9}}], Cell[BoxData["1.0035869978962013`"], "Output", CellChangeTimes->{{3.6188222706632805`*^9, 3.618822287913305*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", " ", RowBox[{ RowBox[{"InverseCDF", "[", " ", RowBox[{ RowBox[{"StudentTDistribution", "[", "n", "]"}], ",", "0.841"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.6188222922733107`*^9, 3.61882234894339*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV1Hk0lWsbBnA2RTKLYkupCGXcRahz3ymSKEknRRKlDEWFQ6HJ1KBBFEkZ DhmPMmV2DBlLKqlTylwk9e53TzZ753u/P571rN+617Oua61nrVvTM8DpKE1E RKSGOv+/x/aoHBcRISDeOibZ1UkIROvWqi+LCZBeN7i2kSGEGfMzUnWGBIj9 WCdWqCwE+eU9hWGHCJj8Yhku/kkAFj+uMMl6Aj7mJh328xOA9aFKq9d9BEgl ckSyHQXg+ObrneKfBLQcOelrbyqAo5VbTP01mHBvou/SR5oAbkUJz45FMOGT lI350/RZuM9b86I5iQnJDqESKldmIdv3wNLMIibc2XRzS9+pWah2fNbg/pkJ N4eLZQ9vnYUx9VPiHzaSIBwcsfGbmgGL8tH4zlkSihyu+/Q5zMBWHaWBXCUW GFdI0zUsZ2BX6maj2DUskPjzMO2xzgwcufjwzRZXFqz0/dvxL/EZuOngsriu mgVD5LYXv+r5MDrWlV4cxgZ23Vj7tj/48NNlhhl/mw2cjbX1Swz5wO/S2eKf x4a5iehK1eV8kC2JHtP5jw3jdh42uTQ+mEeCXuYGDqyN7ewa7JiGGyqlpYk8 DsiG6xereEwD28VLEKTAhbYfnv9FOE3D/lQl671ruEAX25cuZz0Nq5YH9Skf 4kLobo/ZYr1pqNJdz7/bygW9KdqjVzwejG589kdKEg/2Tr0t5yTzwO78sdiw Yh5odPDXlcXzoLhxcc/+Dh5cp2cLEi7x4KxN6GE1IQ9yNptsL/bngZyjeVTq kWnQa/xd7GzFAwuvmo40Bh/Gy8MVvpNcSM/2U4x04IPesee7zkxwYd443dX9 GB/O/Xh+S3mQCz3+4T80UvnQ0GKbnPWSC0dDNsml02ZgZ7tn4qc8Lty60uCc +XoGIj6YlgZ4c2GsuHkgJ0AAwZkvT9B/cqCvKl6/J1YAQatVJtK+caC1ed85 /iMBDDWHWBgMcSDn/aSKfY8AEutMS/7q5YD3nNJOppEQzvRaHsqr4cD4ziO1 lqQQ/pO+o3b0Oge+T4mn9ATNgXFCUOI2Uw585HV/5V+fg6gSDb+NxhzoFE1Z tzJ7DjRDV3dYrOVAgbJ+T/C7Ofg3zuHpnhUcqHiYf1mGLoI2lnUeLFkOhLS+ qS45J4Jt9Lb+3gk28JRX6go3imLszQ65mGw2uOzN0XpnK4ry0qq/EzLYUJmo u6LIWRRP6NlE5KSxIVTJiH7QXxQVW19MDSaxYVp+k0xdqijalnwZyIihvHAf M3xGFA0zPkza+LBhRvRaleAZDdcHOv6oM2HDgc2yFb3NNNzT02B20ZAN1Rdu lxS+omH7yWTv7WvZcHbuXoHbNxoWvhy2Gtdiw6zg77RaFTH8dcuzy12VDQJe /cXwYDF8+NZwrbYoG4RT5HaBiThGihv79L9lgZSymdU7EMelI0k1P3tYsGTj OYt/7MUxQbjs9LxuFphcFVvj4S2OGdrFo9DOguPai6RbUsTxyv0N777VsqDX fX33NZF5OPD5yfhsDgsKX/3lRO+eh7/FglRmIlhQza2xY3+ch2U69dOx51jQ tlRky8tv8/DsfoaZahgLhv3iGOdF5+OVpduKrIOofMmURSPr5uPvxIKm574s iMLqvvzU+ejhdptwc2GB61PBAQsfCbQdc0+tW88Cg9qX78yCJdA6Z9+f3QwW iLQ9dFx/UQJ18xxch4xZkNOPNkYpEmgso8mQNWABKRFtrN0hga8X8wsuabMg zl1GUlFXErViD/q/XcyCioUa5RPjkujefUN/ltojV1R+GX5jS6J6/UGxnTMk uGn+mz8qsgDPCrJKMqdJoJl5pg8sWYC9OWG3d3NIcPDMufbOdgGuapwStPwk YbTSwLMxdwHyK7vERYZJUPAGuZTjUrj9aurn0g4SElxeR98LlsIOs3v0pe0k KO7wEiRdkkLS+PvyuFbKRrETCQ+ksGquKdirmfJMd/P1Hilc8WSUa1BHwqIb 7qEXNixE9ZAbgypPSVhSETF0TFIapw003iy+T0JyrpyLt7I0BkjKlpYlU/PU jO4jK6RRTp8tseceCaoXntcc3iiNXvOSxRMTSVCzk7nrGiiNDwxJqdU3SaB/ eWC364M0OgTZH78ZRYLG/NpS01wZPE9naLsGkjCf8eP8dJkMmj5oXq0TQMLP Q+r21Y0ymNj7czf3BAkNVeGjmz7J4DLzE6p3/UjwOLFJ2VpWFuOGlm8b8SYh s7c+ZE+QLObpaVeWHCRBO6vRPBDlUO7XbXe6PQmL00cGnP3l8eVob1HbGhJO 6lhJ2J6WR8+mpv4RPRJanqQbWIbK48FP65pFKJ9uPBihGSWPluHrSzfqkNA9 /F7tZ6o8nvg4LFG3ioQorRd7Y7vkkROi3vllKQnM/LKuKj0F7L7zWytDnoSu 8uhnGhMK1P+czp7mMWH6aYtbwi8F1G3tG1xLWfsfMdp8rgLWxqnUH+Yy4ULO RfspmiI6P9Zzfclmgum9iKEadUU885UtVchkQmZo8ML9jooY/8j+UcwkE85a Hj1055ki6j6VaS0YYFJ7d6uEZIwSavsufZzQwQQLw84pmetKWC+a5sBpZ4Jd 2q5epQQltGg77O5C2S/sQMayh0pY90m2blkbEwqNAy3NKpTQztnTq7SFCfqZ qQHeX5Vwb40Cf6qBCUaXyfctNosQF+jHF1VQ/azTcy9KKKPVqQ2LrLKZsFWl WXj0ogoaaJVlP49hgrCf1uVDX4La24Wr0ZcJnuoDE8IUVTQNDIxesocJZ3Z/ uPB0Ax3DAromFTYxIfptcterV+oo6SOzQVyPCVu6Occid2hgr1+sUFeN6lcf EG7/bRlqvv1cUivFhCGlLafelS7Hgpgd0Y1CAqya3TwWRWniJfHrX8WYBKxS PZAX57gCJ0rZvvljBLgVaNGt5Vai6serCTOfCPCtnLNV+LISFcp27vrzDQHd ormPtB6tQvQU3JDuJKCEyXAMcNPCThNWXFQTAf5u3bXtutrYFjnZRlQTEC5m 5uQ7oY3ym185u5cR4Kn1Txa9ajVGDL16UlNEQMeU5C5atA5G+Rg25T0mIIY0 Xmm8RRcNbCvU3DIJUD3tUxqgoIfXHLtiuQ8IoBkE+HNf62FW3sg5i2QC/G65 nC+5sQY1WJUvPtwhIP+E485I17X4PiHhu+tNAiBWxSZBTR8vXYrs975GzemT /PIJfVSWfpyxL5Z6/yO+T7PAAJceC9z972UCirwWyTQfN0S9oWiHYxcIGM7v nTOnG2GST+VDVjjVxyom3vScEVqQoWPDYQTUqADfYsQIv3M7RapCCEirn1A4 sN0Y94VrcpvPUHlRs3+k5Rrj3ZjCYM1TBKyIW2Q3LmeCkR+dXb1PEvA8L9Fn X6AJBpffleD6EZD7cL7pULcJ3hhZOJLvQwC35/zg6fUMbDXfJ2t7jIAATY9H OkkMLBxgG2gdJcA5tV3w9i4Dj5/Mf0enbKFsfOB8MgMDxWmRipTFF9CU+1IZ KLiZ9HbuCAH3iayrlzMZeNvUKuEj5ZaGb8Ffihlo0uJ08BblJe4B9omdDAzJ 8lgt9CJA+P59HrxgYPlgtCib8vBulJh8yUCrBvj8nXKRtULT5tcM9KwLSPlA 2Uq/1OzXewZ+dSxfVUb5hIC7wm6Myus/F+NH2Snk0AXOVwa6u1eHeVLeQLR9 Th9nYOe82JP7KdNGk5N5kwy00etw20Y5uctCNptkoPyDsR0rKUdYZ/k5shn4 YcnVHWqUPRsWdsxyGKh4tcpegbJ+af9lJz4DuWXP9sx5EqCobz0knGEgLyt6 P5fydE7RH3kCBp4l+z2mKH9ervLA+TcD0y3rfEYpN92P5M/NMTBbTTvoE+X/ AUlRvtQ= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{5., 1.}, 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->{All, All}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.618822328813362*^9, 3.618822349493391*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"probStudent", "[", RowBox[{"n_", ",", "nivelDeConfianca_", ",", "historias_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "q", ",", "r", ",", "t"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"InverseCDF", "[", " ", RowBox[{ RowBox[{"StudentTDistribution", "[", RowBox[{"n", "-", "1"}], "]"}], ",", RowBox[{"0.5", "+", RowBox[{"nivelDeConfianca", "/", "2"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"u", "=", RowBox[{"parms", "[", RowBox[{"20", ",", "3", ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"q", "=", RowBox[{"t", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "2", "]"}], "]"}], "/", RowBox[{"Sqrt", "[", "n", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"-", "q"}], "<", RowBox[{"20", "-", RowBox[{"u", "[", RowBox[{"[", "1", "]"}], "]"}]}], "<", "q"}], ",", "1", ",", "0"}], "]"}]}], ",", RowBox[{"{", "historias", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"100.", " ", RowBox[{ RowBox[{"Total", "[", "r", "]"}], "/", "historias"}]}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.61882284870409*^9, 3.6188230299643435`*^9}, { 3.6188230683843975`*^9, 3.618823111484458*^9}, {3.6188232134246006`*^9, 3.6188232385546355`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tt", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"probStudent", "[", RowBox[{"n", ",", "0.997", ",", "5000"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6188231185944676`*^9, 3.6188231763445487`*^9}, { 3.6188232512646537`*^9, 3.61882329153471*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "99.68`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "99.66000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "99.66000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "99.74`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "99.62`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "99.78`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "99.74`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "99.74`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "99.62`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "99.7`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "99.64`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "99.72`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "99.83999999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "99.62`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "99.82`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "99.68`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "99.66000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "99.74`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "99.58`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "99.64`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "99.76`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "99.82`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "99.76`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "99.56`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "99.74`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "99.68`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "99.7`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "99.66000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "99.83999999999999`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.618823126954479*^9, 3.6188231424645014`*^9}, 3.6188231874745646`*^9, {3.618823265664674*^9, 3.618823297434718*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", "tt", "]"}]], "Input", CellChangeTimes->{{3.618823190254568*^9, 3.6188231936945724`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBWIQDQUObwJ3yLW+jnCAcDkcuK8vLrB9BeMLoPFFHPoP fdWIeQ/jSzh4PKwSWfccxpdxCAIZ9xHGV0BTr4TGV0HTr+Zw9gwQvIHxNRw0 Y4A6XsD4Wg7r3IEa3sH4Og5A04AKYHw9NPMMHERAGr7A+IZo/jVC858xmvtM HFpfAzU8hfFN0dxj5lBoy3V98QcY3xzNPgs0eUuHJQVAgccwvhWafdZo7rNB Cw9bNPfawf0PAAAdhaQ= "]]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 99.546}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0, 30.}, {99.56, 99.83999999999999}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6188231942845736`*^9, {3.618823267924677*^9, 3.618823310104736*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"probNormal", "[", RowBox[{"n_", ",", "nivelDeConfianca_", ",", "historias_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "q", ",", "r", ",", "z"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"InverseCDF", "[", " ", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", RowBox[{"0.5", "+", RowBox[{"nivelDeConfianca", "/", "2"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"u", "=", RowBox[{"parms", "[", RowBox[{"20", ",", "3", ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"q", "=", RowBox[{"z", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "2", "]"}], "]"}], "/", RowBox[{"Sqrt", "[", "n", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"-", "q"}], "<", RowBox[{"20", "-", RowBox[{"u", "[", RowBox[{"[", "1", "]"}], "]"}]}], "<", "q"}], ",", "1", ",", "0"}], "]"}]}], ")"}], ",", RowBox[{"{", "historias", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"100.", " ", RowBox[{ RowBox[{"Total", "[", "r", "]"}], "/", "historias"}]}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.6188233209647512`*^9, 3.6188233762348285`*^9}, { 3.6188235131850204`*^9, 3.6188235164550247`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"zz", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"probNormal", "[", RowBox[{"n", ",", "0.683", ",", "5000"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6188233942748537`*^9, 3.6188234007948627`*^9}, { 3.6188236071551514`*^9, 3.6188236078351526`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "50.42`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "57.82000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "60.36`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "62.9`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "63.44`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "64.32`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "64.24`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "67.52`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "66.92`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "65.06`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "67.46`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "67.17999999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "66.74`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "67.64`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "67.47999999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "66.3`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "67.4`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "67.4`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "67.04`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "66.44`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "68.24`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "67.88`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "66.44`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "67.56`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "67.44`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "67.30000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "67.10000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "68.78`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "66.96`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.6188234085048733`*^9, 3.6188236154951634`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"zz", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.6188234107748766`*^9, 3.6188234213248916`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBWIQDQUO3zRi+g+ZejpAuBwOWkDu1xc+UL6Awzr3h1Ui en5QvoiDMQgU+0P5Eg475FpfB+6A8WUcRMAaAqB8BQegaRox/DC+kgNQEqgC xldxqAZxd8H4ag5LCmy5rjvD+BoOQN7igrswvpYD0DK51tMwvg7E/PUwvp6D Jtj9ML6BA9h592B8Q4j7J8P4Rg6zZgLBTRjfGI1v4nD4KyiAYHxTB5DxGnNg fDOo/wKhfHNIePyAyVugqbeE+O8xjG8Fkb8D41s7mIDcdxnGt3FITwOCYzC+ rUMQyAJDmH12kPDZG+AAAPkqdmw= "]]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.5625, 49.502}, 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.}, {50.42, 68.78}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6188234218848925`*^9, 3.6188236181451674`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"%167", ",", RowBox[{"ListPlot", "[", RowBox[{"zz", ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.618823645795206*^9, 3.6188237118552985`*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQDQUOfkkCEZZfPBwgXA4HPt1Nc98/94HyBRwWum77 /DfED8oXcVggpX9XJc0fypdwAOrecuIbjC/jMNW5O+e5dgCUr+Bw8BTQBGcY X8lBNirF+n44jK/ioN0udvNcPIyv5nDZF+igQhhfw6HQluv64gYYX8uBCaRh Goyv47CkAKhgNoyv51Brbxq3ayOMb+DgY97pmLAWxjd0sNpyomzfehjfyOHw V42Y/k0wvrFD+b75Uvp7YXwTiHsOBjgAANyGScI= "]]}, {}}, {{}, {RGBColor[1, 0, 0], PointSize[0.019444444444444445`], AbsoluteThickness[ 1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBWIQDQUO3zRi+g+ZejpAuBwOWkDu1xc+UL6Awzr3h1Ui en5QvoiDMQgU+0P5Eg475FpfB+6A8WUcRMAaAqB8BQegaRox/DC+kgNQEqgC xldxqAZxd8H4ag5LCmy5rjvD+BoOQN7igrswvpYD0DK51tMwvg7E/PUwvp6D Jtj9ML6BA9h592B8Q4j7J8P4Rg6zZgLBTRjfGI1v4nD4KyiAYHxTB5DxGnNg fDOo/wKhfHNIePyAyVugqbeE+O8xjG8Fkb8D41s7mIDcdxnGt3FITwOCYzC+ rUMQyAJDmH12kPDZG+AAAPkqdmw= "]]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.7187500000000002`, 49.05235}, 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.}, {49.908, 67.021}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6188236531752157`*^9, {3.6188236843852596`*^9, 3.6188237125552993`*^9}}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1440, 818}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, Magnification:>1.8 Inherited, FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (July 1, 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Info3618808135-2707394"->{ Cell[5043, 199, 118, 2, 72, "Print", CellTags->"Info3618808135-2707394"], Cell[5164, 203, 889, 25, 40, "Print", CellTags->"Info3618808135-2707394"]}, "Info3618808147-2707394"->{ Cell[6422, 249, 120, 2, 72, "Print", CellTags->"Info3618808147-2707394"], Cell[6545, 253, 891, 25, 40, "Print", CellTags->"Info3618808147-2707394"]}, "Info3618809825-5685022"->{ Cell[78051, 1882, 122, 2, 72, "Print", CellTags->"Info3618809825-5685022"], Cell[78176, 1886, 1505, 40, 69, "Print", CellTags->"Info3618809825-5685022"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info3618808135-2707394", 119417, 3013}, {"Info3618808147-2707394", 119606, 3018}, {"Info3618809825-5685022", 119795, 3023} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 155, 2, 181, "Title"], Cell[CellGroupData[{ Cell[760, 28, 126, 1, 126, "Section"], Cell[889, 31, 303, 7, 52, "Input"], Cell[CellGroupData[{ Cell[1217, 42, 122, 2, 52, "Input"], Cell[1342, 46, 149, 3, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1528, 54, 163, 3, 52, "Input"], Cell[1694, 59, 232, 6, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1963, 70, 197, 5, 52, "Input"], Cell[2163, 77, 156, 4, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2356, 86, 69, 1, 52, "Input"], Cell[2428, 89, 158, 4, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2623, 98, 142, 3, 52, "Input"], Cell[2768, 103, 151, 3, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2956, 111, 119, 2, 52, "Input"], Cell[3078, 115, 72, 1, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3187, 121, 147, 3, 52, "Input"], Cell[3337, 126, 153, 3, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3527, 134, 117, 2, 52, "Input"], Cell[3647, 138, 72, 1, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3756, 144, 122, 2, 52, "Input"], Cell[3881, 148, 125, 3, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4043, 156, 149, 3, 52, "Input"], Cell[4195, 161, 124, 3, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4356, 169, 122, 2, 52, "Input"], Cell[4481, 173, 156, 4, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4674, 182, 69, 1, 52, "Input"], Cell[4746, 185, 124, 3, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4907, 193, 111, 2, 52, "Input"], Cell[CellGroupData[{ Cell[5043, 199, 118, 2, 72, "Print", CellTags->"Info3618808135-2707394"], Cell[5164, 203, 889, 25, 40, "Print", CellTags->"Info3618808135-2707394"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6102, 234, 71, 1, 52, "Input"], Cell[6176, 237, 70, 1, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6283, 243, 114, 2, 52, "Input"], Cell[CellGroupData[{ Cell[6422, 249, 120, 2, 72, "Print", CellTags->"Info3618808147-2707394"], Cell[6545, 253, 891, 25, 40, "Print", CellTags->"Info3618808147-2707394"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7485, 284, 259, 7, 52, "Input"], Cell[7747, 293, 18202, 309, 433, "Output"] }, Open ]], Cell[25964, 605, 635, 18, 52, "Input"], Cell[CellGroupData[{ Cell[26624, 627, 502, 13, 52, "Input"], Cell[27129, 642, 18904, 320, 429, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46070, 967, 338, 9, 52, "Input"], Cell[46411, 978, 681, 22, 75, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47129, 1005, 174, 4, 52, "Input"], Cell[47306, 1011, 127, 3, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47470, 1019, 368, 10, 52, "Input"], Cell[47841, 1031, 631, 20, 74, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[48521, 1057, 119, 1, 126, "Section"], Cell[CellGroupData[{ Cell[48665, 1062, 267, 6, 52, "Input"], Cell[48935, 1070, 3067, 50, 347, "Output"] }, Open ]], Cell[52017, 1123, 170, 2, 52, "Input"], Cell[CellGroupData[{ Cell[52212, 1129, 512, 13, 52, "Input"], Cell[52727, 1144, 15310, 440, 424, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[68074, 1589, 518, 13, 52, "Input"], Cell[68595, 1604, 2557, 50, 424, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[71189, 1659, 174, 4, 52, "Input"], Cell[71366, 1665, 116, 1, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[71519, 1671, 195, 4, 52, "Input"], Cell[71717, 1677, 73, 1, 52, "Output"] }, Open ]], Cell[71805, 1681, 881, 23, 86, "Input"], Cell[CellGroupData[{ Cell[72711, 1708, 209, 4, 52, "Input"], Cell[72923, 1714, 313, 7, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[73273, 1726, 283, 7, 52, "Input"], Cell[73559, 1735, 1307, 39, 119, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[74903, 1779, 887, 25, 86, "Input"], Cell[75793, 1806, 1900, 56, 241, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77730, 1867, 69, 1, 52, "Input"], Cell[77802, 1870, 73, 1, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77912, 1876, 114, 2, 52, "Input"], Cell[CellGroupData[{ Cell[78051, 1882, 122, 2, 72, "Print", CellTags->"Info3618809825-5685022"], Cell[78176, 1886, 1505, 40, 69, "Print", CellTags->"Info3618809825-5685022"] }, Open ]] }, Open ]], Cell[79708, 1930, 1337, 37, 184, "Input"], Cell[CellGroupData[{ Cell[81070, 1971, 372, 10, 52, "Input"], Cell[81445, 1983, 173, 3, 74, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81655, 1991, 116, 2, 52, "Input"], Cell[81774, 1995, 79, 1, 52, "Output"] }, Open ]], Cell[81868, 1999, 475, 13, 52, "Input"], Cell[CellGroupData[{ Cell[82368, 2016, 170, 3, 52, "Input"], Cell[82541, 2021, 114, 1, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[82692, 2027, 483, 12, 52, "Input"], Cell[83178, 2041, 1448, 42, 139, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[84663, 2088, 293, 6, 54, "Input"], Cell[84959, 2096, 1258, 31, 461, "Output"] }, Open ]], Cell[86232, 2130, 1555, 42, 225, "Input"], Cell[87790, 2174, 445, 12, 89, "Input"], Cell[CellGroupData[{ Cell[88260, 2190, 406, 11, 54, "Input"], Cell[88669, 2203, 1444, 41, 139, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[90150, 2249, 191, 4, 54, "Input"], Cell[90344, 2255, 1089, 29, 465, "Output"] }, Open ]], Cell[91448, 2287, 126, 2, 54, "Input"], Cell[CellGroupData[{ Cell[91599, 2293, 203, 5, 54, "Input"], Cell[91805, 2300, 2289, 66, 146, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[94131, 2371, 387, 10, 54, "Input"], Cell[94521, 2383, 5358, 98, 443, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[99916, 2486, 216, 5, 54, "Input"], Cell[100135, 2493, 114, 1, 74, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[100286, 2499, 388, 10, 54, "Input"], Cell[100677, 2511, 4816, 90, 456, "Output"] }, Open ]], Cell[105508, 2604, 1768, 48, 259, "Input"], Cell[CellGroupData[{ Cell[107301, 2656, 431, 11, 54, "Input"], Cell[107735, 2669, 2142, 62, 203, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[109914, 2736, 130, 2, 54, "Input"], Cell[110047, 2740, 1185, 31, 454, "Output"] }, Open ]], Cell[111247, 2774, 1776, 49, 259, "Input"], Cell[CellGroupData[{ Cell[113048, 2827, 433, 11, 54, "Input"], Cell[113484, 2840, 2054, 61, 171, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115575, 2906, 195, 4, 54, "Input"], Cell[115773, 2912, 1223, 31, 461, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[117033, 2948, 307, 7, 54, "Input"], Cell[117343, 2957, 1698, 40, 494, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)