(* 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[ 64434, 1831] NotebookOptionsPosition[ 59321, 1645] NotebookOutlinePosition[ 59697, 1661] CellTagsIndexPosition[ 59654, 1658] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Introdu\[CCedilla]\[ATilde]o ao ", StyleBox["Mathematica", FontSlant->"Italic"], " 11/3/16" }], "Title", CellChangeTimes->{{3.6667116625734873`*^9, 3.666711675073505*^9}}], Cell[CellGroupData[{ Cell["Fun\[CCedilla]\[OTilde]es da Estat\[IAcute]stica", "Section", CellChangeTimes->{{3.6667117145235605`*^9, 3.6667117189435663`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CDF", "[", " ", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"10", ",", "3"}], "]"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.6667117265235767`*^9, 3.6667117268035774`*^9}, { 3.666711766593633*^9, 3.6667118185137057`*^9}}], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"10", "-", "x"}], RowBox[{"3", " ", SqrtBox["2"]}]], "]"}]}]], "Output", CellChangeTimes->{{3.6667117895236654`*^9, 3.6667118192237067`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", " ", RowBox[{ RowBox[{"CDF", "[", " ", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"10", ",", "3"}], "]"}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.666711846483745*^9, 3.6667118644537697`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV13c4Vu8fB3Ajm6yIjJAo4/GMBkWfj4RKw4xKZEsISTLKKFuyo6QlUujb RCpKQlapZEVk5nkOGVnxO7+/zvW6rnOfc9/v+32uc46i4ylzFw42NjYvdja2 /x9zzjty05yv7UgVkGDzldeFG0fGtlkrnIMJSUupaAtdaN8f56egEAs3LgWK zcfowlnjwyu5FLJAJcV8cXZKF4yq0fbv2vuQWM7iOPlJD4oiNkWOry0D+keh M3nXAX46FEsy19bBeZ3PV10r9WH0zrLT2HAdyMNTduuf+vBnwPS/3//Vg7t0 9sgFjp2wwmPSZNSgAfgVmekhhjtBxU87fMitGcSv669Wb9oJW/R/To+3fQYL Q/PlB6MGEGx28vjvte2wxvs+zydzI1iK3CLdk9AO7yeTGFPnjSDsOfvnz3Pt kKDQ3ez2wAguylw1KG/tgLOmSid3chnD5YFqldjoLiic+9fcWmEMN8/JM1WI HjBjnxv4sX0P9LcM69Ls+yHidN/+4NB9oOxxQPpBej90PE878vLpPnDlfDqt 3NAPjU+EO4+N7YPhzReKpXR+wYvCxqIG2/0wli2hwCY+ABMfR7mddh6AGeed nM01g+Dz/ZddmIgp8M1dq/OkjMKRCwtyplLmoB3dHrTXYRT6srsrvLXNwV1i tcaGtFG4f9srtcrGHGpoKZf750bhyfA/Sa5sc7joEWNx5P1v2JDA+C6w1gLY uvy7jW2ZsIwyobYMSwjuuRcoajgOAxNUAYw+BCn3DM3C7MZh7qDqwwvFh6DQ 69dG4uw4uAmwSv99PQQdC4qdDYXjYLncFPB8vTVoS+XoxYhMwPM7/PrKtdYw Y5rKsdw5AeahaIXSh8H37YWEMb9JEOV1HOYnjsKsaFpRZ/wkRNe3HOuQs4Xz DgVN9Xcn4enSQerEPltIYPskcv/bJLx6Pes588AWCnYopbtsm4JKiW89J7yO QW95dc4P9ml45D07tHfJDkyf8JW0XJkBxwteovaaDtDGId/y5v4M9GR9qM3Z 4wB25vSJ4rczYOLDyOZ2dQDPiSOMxKkZ+PW40M061wFitB6+2GPzF7YUzlQu iDvCmwcHKt+unYWj++ktYVxOQLmb+ulp8RwcSn41JS7gAquuUv9W1s3BNOtP /5CWCyzEN8o2/pqDmPxtPDOWLlB7msd9YM08fD84ofY21wUcDYKXJKLn4XiX UpWStiuk9zmqn7VfAK67oLTf3w0WFeiXdET+wYCehW2WrAf0rWouNFT/B85J vQtWezygjtezxczoHyi/4omyDvCAjPE8GY+QfxC562Gd2icPoFZKP84e/gdn o2yosnEnwcmevWehcgns3B40hvB5wcABd9kebTYML+Nb763gA6tqPJXPG7Kh s4NVdoGOD+zU89WQM2dDE8XfjtwWPnBTPUj36EnyfJPKTI0oH7DlTbBty2FD 23EzvQ0sH/hcVXK9mYMdhQeNXDje+8LrTX9lKxvY8eSpnu5zSaeB+WBB2b6d HXksP/05XXQaZNexaS4NsGPP9qCZjI+n4Zwon57uMjvOxm2IseH1h02sNcdK aRyYcv6RaHOkPxTm78h5lMGBb2iClKcRZyBzTZTcreOcaO56p7X81lmY6W/K P+DNiTqc8ns1as+CZdFq+mIwJ0asPcL4yjoLYnjfyDqTE68PvTjZpBsICS4N p4SaOJEvuLLXpTMQwh6JvT23fQXKnNfjd1kXBO5Gua7mklzYlCTqndIbAjXC w+PL67hwUa3y2LmVobC+nRpcROPC9htXbt/UDYW+k2+TePdzYd0Hus1/WaFg mzxQ+jqSCxUFEsr6D50H0y51AfUJLgwOf2bZ3H0BdPxKSzgbuJH9vUrIZFI4 tCxvt/Nt58afbVn1LwrDwTXxjWDPIDeOn77Tkfs+HFIKak6Us/Ng29Xars6F cBj98WWd71YeBD7+VzweEXDdZCLzx20ePDurwjTbHwlLymphZed4sf/FnFYT 9RKkPS6iqEbz4tkMmvRh00ughrTutDRedPLLGBL0uQSHjmpv8ynhxbsKm3qJ kktQkmw0pTLAiyZN7v/yaVFwfMnRPc2UD+s1DLV49KLhXds101Oq/OiR4dpY 5h8LaY5WU9MMfnx5qExVJzMWXJkrr4YgP+5qPjndWxYL/JwRPbGH+XGK41NE 4XIsmFLcve/G86PcxjvJGxPj4MfFTQntBD+K3fffMFcSD/O0xg8GpQJom6/I Ny5xGRoqok7WVwugpK01R53eZbhhjMJmnwQwXGvZutnlMugfe3LIblQAOZ+e e+n8/DLExGQNBMoKoqt2Zufzw0kg2ePCWRwmiA+7RQ0vW14BWsLSDqk9Qpjf 3ijP9zwZ6CcWnYsOCSEkR+T1NyXDJqP5uJ3OQvhOeYzVOZQMW9hmvnleEELO cxbaKmtSQNef6V31TAhr3xYXKYelwG7brhseSitxZMA0+adZKhzXKF+qWFiJ zwJyfRWF0sGRr1TZnE8YK1Q9mkc3poPT4LO9Q5LCqB+9LvSrUTq43vwvQ5Qu jJVHPPSEw9PBc9V9iqu7MMoNUqNX/02Hs4uZdsJfhbFGKE8yfSQDjAe39VCt RfDOE5qRxMhVcG39MhZ9TATf7VN9KcibBRcrved/OIlgorBCkLJqFlRl35ZI 9BHBVrNJnWcuWbD9IP++kVgRnCquDLX7lQVape2ltypE8Euv9KrBoWxYHReY IqYkis0RbKwg3hzYclbs5okNonizIy3xoXoOWDo/LKqkiCLveeYd9oM5kLyj t9Z7uyiudtl9XTIjBwQmjZfrLUWxJT/sCmv9DVg+utozMloUwwNX6nvty4Uh zeeGU2Oi6P9iyKa44yYohXq5qE+K4sK/kKMM1k2wbVC+5Dgnim1rns/Xs9+C Fo/U6hYuMaT0/kX6xltQnu9jUCQvhmlnju7tC7wFCYrq+q6mYhjUuN+gVeY2 0CRu6n5/IoYfV/A8NvW5A8GLsYyKIHFUa4lTCjl0D5r8ndKCwsWx6GF9k5Lv PVBg6k5rx4hjmsB5mf74e1DdTTx/li6O6dq/vj2qugeCb6y2lTwSx+/DnNkR lHy4Ea6of3tQHBt3TvkICRVAFXfZgRjzVTgTpyFO+3EfeESHT1iqSeD928Fu lC9FMBNta5hLlcDGWOlnwZNFMLjUojC6RQKtJls/9IkVQ81YWdsFAwl8J/LJ e8msGKJq4w0f2EqgnZefotenYuAO01LkSJLAgMa5ZfrXEuAmAr6XTErgte2P Ao7OPgKuRi5jgVeS6BjMvKig9wQEva47db+TxAMFvGL1Zk9glRAjrKReErun NS5edH0CyvuPl1l8l8TeRSZD48oT2NVYrn59UhIvPiqLMv71BCIaT4loqq3G x7I08adJT4Gtqb39QOZq1PTo9k6bfAYLTUWeKb5SaGJTva1zvBTkPzlc2xUo hV6JQtkhfGWws1Wifua8FFrp6dZpKZVBXFuo6tEEKWxMJh58tCgDqd79fevy pTDsUZpox4sy2DLBtH7WJYW7BgwqrCLLwUecYvDdWBrFvyiNjKhWwIB1sbS8 /BoM7R7YdabgDejHeHvVFsngS1M1u9Oh7yB9qZTPwF4ONV5/TF0vVAtHZd/t 65qUxxXvfwZROxtAsFJ9TMlKAd3NMxM3m34Cl823pw9rKOLSAq36k+sXOHs+ 0FxhWhFvH0+X33yuDS6NprY2NSnh7/EWnrrpDtinJlwgmL0O93TVVgUd+AGJ RVsq9zko43N77pd9Tb1Qb3Fn0V9nPY7cLRw5lNEHlY2nEjQ4VdDmm9LWMcYv eOwRjg3dKvhI0a2vr2cA5E1A2/upKiY2xAtXug+BwbJtZG7IBmQKO3vxlw+D 87c3f0qtNqJ1uEWoy4pR2BEe8cxBQQ3V3AVX5En8hpRTEy8Fh9TwsMJY7Vq2 MegLyxvMfa2OXxxdhObbxyCgJcenukodxxt4dH92jQG/Qsb8cLU69qmJ+9f0 jAH9TdRK+kd1vFURyxE/MAaR/9y2VLep4/OXCgWL42OgHKQWNTyujtM5qckR PExwPV2ynrZOA+/H9nTLMpjw26XM+W20Bko3bTxVdJEJgvU7k9TiNTBTzfnT wWgmaFAaylIua6Bg6lbx8VgmeM78WOmUroEO31R11JKYMBa1oozzjgZW83xQ uZRFOv+gkOFrDQy803PwWxETWCMDzz5MaSDjKFLHvjBh3EuMp9FBE88QAXlr 5FhgbzbiveCsiXXt/dJSa1nQtKny20Z3TQzZKTIsrsiChwte96K8NVEwdjCN ez0L3GPrDDFYE9uzDxp/12BB792wi0/SNHF9tXCNpi4LmjtZ7NkfNDHSyZd1 7zALivd8XHTVpCD9Tk062xUWqP945HWJSsGl+OnplGQWFPhl/LjDoKCpUPzk ulQW3L7mUNmrQ0G+aZl6/QwWpDP/Rh4xouDYti0LntdZEJKsLHDAnoIRiZ4K EQUs2NseKr05mYLNkukiRW9Y8MHLKc4ijYLKGw0KV1WxYBfHngXfTAoa5RHz QW9ZsEN9VXdxDgXl589UG7xnAS208OaGQgpaJ6atrKlngZRim6rsOwr2/vlM u/yVBYPu1C2c0xTM2vbGiD7KAkI039hlloKFxu42ib9ZMFsud/jDAgU38i6u GBpjAZ+QQEg8hxY+3PSbnkGwQOO/gSpxES10O7RqqX+KBafnsvcrq2th9F4X +o5lFrDFcbkYOmhh84UW4SkxAvgYIQH5zlo4dEv+lPIqAsS6/kTzuWthg41O rIUEAesovYWN3lr4H7ydKFpNgNHn8nGrEC2UEU4rsZAlIHGNT4hrphZOtBKl TusJWPOgIzW6UQu5R8fqrm8hwK/1Rl9Jixb6Z5q9SNtKQN2CI+17qxY6xBy8 G69NQOC+300bOrQwgqEeFrCNgDbmAl/9oBbqtPdY4g4C9l5didxsVOR8aSuX Z0gAb6fW893SVMzqmjhTakHAJiK5u2sNFVePHG5OtiTgOOfUCl9ZKlqnhqCH FQGl6qUWWWupaJrW7yllTYBbCE6MrKeizI9qDo8jBNTImWnE06lYaGlQ03ec gMjjfrcbTajoF/L7hZYXAVNLstmR+6ko3qBm9I+0a86HZJ2DVHzZ8fxHnTc5 vw7Z8DxzKtpn76Qf9yHzs/xgH3qYijXxzODw0wTcNJaV03SjYjsD7TLPEfCK UpOZEEHF9ztOeEpeIoDS6JO08yIVVVZvnqohffOkTPTsJSoajHbcCogi4GKB T4BzLBXlR7n9WqMJ2KckY6V7hYol3tz/IuII6JDwERvLoeLHdjxTnkTA30Xp RJMyKpp3SqRcySJgfNIkdq6cisTEz/vK2QQMj4Zeyq+gotyOtbylpDu+/wzl rKTiKqW27K5rBLx+et/7ZQ0VxzsuacrdIO/vqWOq/oWKd/3zC0JuEyDSZSMu QFDx4vG6/rJCsj+tccJl41QcGlRS035AAEd9hYDbHypufWfd+Iz05AuFFe+m qTjhxK5Z8pCAb6nDU0GL5PpwwSm7mCC/fwO/jfLR0GPvll0WjwnY8DIzq16Z hjd6w80tygio9fV5elSFhuLPGve8IO2+YU/zmCoN237MVq8pJ+B++vwKYXUa itiM7O4lreZzzMeCRkP+VSvSXSoIUF+/zrhLj4a29PAHh9+QeScVTzEP0bCp TUbtdzUBTYbRwhdsaIgGdQn4ngDvRXs1kSOkNeIj0kmXnBA9Tj9Gw7g8mY07 agig7vL/GOBEQwNB7lNxHwigz+ncXj5Fw4XiNH3hegI2O70/KBpLw18XNgo2 NhEge3dwW3UcDVkhSjUyzWQ+AzwqZxNouFLpkIgH6SbXvYtdSTQ0boi05moh ++XRXFCQQcOKC8Fvtnwi4Kov+fN1l4ZuuafcL7USMH+B+cT7DQ01K9iufW0j oLdyZa5iFQ277IMPrf5O9pmdGvflLQ1781Y8tiGdGul3fFsNeX2/tSYdpDWi /wpyN9KwudFJrL2dgGOX2V1zOmh42GX90fedBFRel5BqmKbhCbuXrKM9BBzI 6VZ0/EtD7aPvxy6T7szJU5+dpeHkXY87VaRnbmwG5UUaFuv92K7SS4DmLSvX EA46xlSUKY2Rzs5Lf6ohTMeTtFeiJ/sI8C+WMEvcQMcujhuPtg6QeZR0H1mn RsdkKzdHR9JJJXnOZerk+IOsbwmkCx9tDhyg0JHb1IXvJ+mfj61y9TbTsePp 1utRg+T8XqQzmfp0lGELLq8ZIvtTKRF34Cgdn6m0fpYdJUBX2uVqly0d3xTG vgDSZn5P73nY0fF30PwJR9JByhbvohzoyOfMo5NPuiHmyuJrNzqeFsuPovwm wNdM4JSWPx3ZxCYlNo0RUN7HZimSSMeZ5NR8WRa5f9tNHW9cpuPjM5plOqT7 03J9NK7Q0TCEmXuItKDxjsTdqXS0iXjFTCJt/yC4JiyLjkMxuVfYCAJW+M9o T+TRcUHolVIH6f1cY3KfX9NRVY4ydGqCgILhyMXwSjoGHLARjiPN0SDTSXtL R2pSheBd0qUpJleT39MxVUwtpo20ksIDMbMGOkaX7o7R/UPuzzYPnpZ2Ok73 K/Qtkb7hMzzeOEVHlfOjya5TBMxahDWHztBR7lxCazBpi61SxZqzdKSbZExc Ic27ZHwycYGOh8WfvSsn7RefP7CPg4GNQh3vBacJML7n2vFRmIGd5VXehaTH O3+9q1NjYMzbkaLGGQL+nF9XZavBQD650dJu0lOKjq8JTQam+ukXMknPuvWU StAYOJUdjUJ/CWCbai9y2MpA4u8JMCEtIticOWfAQJcNL/Lekqbqlp3ceIyB pb5KXDdnyeev5697hR0DL2+qlS8ivSlii+vB4wzk0uZZV05au/bJ8TNODDzn 3/S7lTRaFltVnWDg8O6hcO45Akw978DhAAbuimZ1uJE+dT1RPDaJgerbB4Rk 58k+sCsTe5MZeNEkc1yVtJpbeb1gKgMLxdVeMUj/og2FX8lgYMDmqFUmpG0+ 4HhmDoN8f8lUBpLe+Wey4d4DBhrwq6q1kM61jitwL2KgRGbHyw7SixUKF9VK GPjoQoHOAOkX0fu3Fz9moOnLNfNzpDXk8u8/K2Ng9W72FKUFAiR3H4mq/sDA NN3AbT6kTxeNO0TVMfDXJuOcc6RbxKL1dn8k88jeyoogHd/9ZOpjEwOz+/8e SSfNdlrIqfUrA9e92utURno0pxL6+hn4Tc5ozxJpY05rmbsDDLymp3ede5GA u+7MGZchBg4uaPasJG3PWFM8MsrAnAOem9eS/lJ7WnZigoF9bx1VgDSNwj/7 eJKB0ucpi0akL6febPWfZqDT2ea3B0jvsWuMm51l4EjrgpId6XvvnFzL5xmY pVpR4UJ6xcZ5/ZBFBhZlvzT2Iu1w+YrcjiVyfTtWVfuTfj2pMre8zED7fz20 ENL/A3vJ3qU= "]]}}, 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, 20}, {0., 0.9995709394569693}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6667118652337713`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PDF", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", "n", "]"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.6667121270641375`*^9, 3.666712165224191*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "n"}], "/", "2"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "/", "2"}]], " ", SuperscriptBox["x", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox["n", "2"]}]]}], RowBox[{"Gamma", "[", FractionBox["n", "2"], "]"}]], RowBox[{"x", ">", "0"}]}, {"0", 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.6667121451941633`*^9, 3.666712165864192*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", " ", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", "5", "]"}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.666712185044219*^9, 3.666712203874245*^9}, { 3.666712234514288*^9, 3.666712277864349*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVlnk4lV0bxc9xcI6pDKmMKd6UjB00ct/mWZShzCSEIg0ib2kioRCRIZKQ yFDJlOE8GRIVimR6I5IoMpQhvuf767l+1/5j773utdZ+Nrr57T/CRqFQaFQK 5f/ftPNunCruKZrCarr81vyExl278d22UkEwMfs0I6qEH7rNrgdISUWAeV+w tMV1Wdi+4+197o9x0MZRlRR8Qw0CDQ6t4pC6A4FOderCkQhVtkNnVzzTYTY0 oCua1wCoT0unlroyYS7OLOmJqjnov0SH3xseApd/e6+auC14tVyNndHJh6Gb 5R8+/msPke+bG6Y8C2HoJ3HsFa8LeAXkrZ/rKoHXarnGon/coeCS6uXJDeVw RNhW49eQH1Rzdkn8LK4ANn7viEGvE/DuelDZhE4VDBbx9S6PBsCvuOqJMc8a SJkYipOjnYFUS5n8X10sGHDmyTVOCIHPro/XTmx4BVvKbCv2n70KY/dXDo+P voIeXuEaG+8w+DVsUfy9uBkimZebWU7hwO49bTKm0wK7g91PBZtHwOaAnRe/ er6F/gPdAXIG0aCu9Xl2sqsdzmyctxhviINzlj4u3zd0Q7PA3Zc2YSmwfFld ZCCqG7pkXo7/sykVQkup7e3z3ZA5VP/GpjoVrogl6VR0fIJgiQNjjb/T4Mbw y80R4b1wuT6ZbduODMgIkpzY/HMAnq+pKV0qyYShd6N7VZyHwCu4/ENGcQ5w zae88lUcgx6+8WMqVUWwM7w72Nh1DMqPCr5JHygCL+F18lvixyDwUJbFAlsx NKjE3RiaH4MOM5GUAKNiuOJ97YBd/Xc4IGGd5fWhGCi9p/oMHCaAqFtHqHwr gXMD2WcF9CbBkF23vnD5KcRl61mGOk2C2ulYF4UNzyDv2JetPwMnoThj3jIG nsGnxY09LXmT8KC4JYMj9BnsXJ+mcY1/CiidpZS8lWcwZ3GLbaVnCoz/Nv2q mi+FE6wLUeMB01C58qPX+GMZ/BGIL+iJnIaxZNmKnJkyOO+a+6Y5axqml/ua vvKXQxSljf9h5zR0HPXXFDAqh1zNTQlHds9AiQd9hV5WDv9VvEzrp85CVMdX tuCYCrB4wlX4LmYORrMjJpW2VUEXm+S7modzsH3hnnI/6Run/dunHrPmwFjj QexxhyrwnbJjRs/MwdwPuwK16Cq4ppT/3OjgbxitKZJwnKiCmkfmtawNf+C8 kPUJ/twXoJh1q+3p43lAQ8O/QvQaWJOk/Lv21TwY8Lvkt0jUwGJkq3jrl3mw lYeLbqo10HSS7jUsugAhy2cr/3GtATedc8vC4QuwV7vAnqe8BhIG3bYFOi8C za76hYJKLSxJbb+6i/8vdMruanncWguDa97m6W37C243hM5+7ayFVwzfd5b6 fwFd7vit/q8Wbk8+EPMO+QsDb+ucFX7VgnKtSEny6F84t4YhnilcB4edqQOL tctg/zac/cyhOhg29xIf2ElBUf3zPrQPdbCmwVfmvB4FVfJ8N1X21IG2xgl5 if0U3LBRXePIYB1kbAvea+9DQRHx+hcxP+vAgRHl0JVGQd7m5iY9Lha01xWm vmWjoqfCOiGl3Syg7nqadXw1FVtbXjTxIwuUi8ry+cSp6LKx7/CwHgui79ZV mahR8cfQio+nJQsMz3X0NnpS0Uort/CtJwuqVX+L17ZQUWDtSODOOBZMPFqU ce6m4pqa6vOmiSwQl6YoLA9TsZz3zfSBVBYECXBp7F2h4mTjRRONbBao/hB1 LFNhw/rBT9nB5SzIy9FMK7rNhmEpOk05fSzoltR5sO8+Gzo4fOiY+8wCxm2D gh+FbFgbaNyza4QFR65YvJB/xYaK3xqpqT9YIOXq1pe7yIZZ+/gfti2zIFE0 TOKeCw2fVaoZcUsQMDf0Jsf8OA3dY9a6f5MiwKpg3falczSk60jzVcoQIIgP 9W0TafhZV26nujwBUUda/Pje0JDxYO+O6N0EjCkKL1T00LDwSQWDTZMAoz+O V7y+0fCmyJH6o1oEcEb+TCLY2fGXbbeioCEBoUWCrKA97JjAl8dosiKgP8je VNaIHa8VjQd9sCVAQyer870NOx4UzGJ22hGw8EHtu1IAO2r1ShQWuxBwavHg mpFcdnyz9zdvuw8BXvrpHvvXcqDN3EoS6wIBDatHJ1ekOdDK34yL+xIB/3Qr nytQ4cC0stshelcIGPRh3WSYcWCJYnpy0jUCHGKHy6ovc+Bmt5fzRTEEVNgp 6vjGcmDDW7XGO3EEiMgEtoqkc+AJxfMzZ+IJ6CxlDJ6q4MDG6/2pq5IIsOjd xrNtigP5rf29nt4l4PGDUwkflzlwvdeus1oZBPD5vdgQxsuJ6rdUdYl7BDRT 96l+luVEdv1azQdZBGx5nVh9Q40T6xOMrnBkExAe/5/hXh1O1PWee2KXQ4Cu bIBjohMn7pmPWhl6SEDmZMVXXV9OjPc7uH39IwKoFbSAX0GcOFHL/a9WPgHV pglhZgmcSDOpDz/5mACJtf38i5mcaCt62ymkkICQgc0puUWcKNDeHxxcRMCu gLJCWgsnrtPTLbYpIeDdyh6nE92ceOvQ+LjyEwI8omt4B0Y48YXP+yXKUwLi chuOVlDpON8o9/LSM/L86sbrt6ymo2HidIxqKbk/0dqQIE7HNqtih16Sx/rf S5/YQceVp3fEVpWR8/c92N6vS0dfEzaZJJLXLvSEmu6nI3t6j/X6cgLyw52V KpzpqHmosvIGyTrCQ32yx+hobMV0WST5U6ZHVEIwHb1utpk5VRDgrzy2m3aN jnbSUjefk8xZfeybfwId1+14oEivJCDVZCqxP5OOsTOD6mYkb+8+pW9aRMeS f21LIkhu8vgzU/6Cjv9+DnlURbLTzLn7sq/paC3wSn6E5JmLK5YJH+l4orMA OasIuL76MoU2QkefxqQpcZKl0jgL/afpKKg5bSRHcqncdcd+CgP3mG2yUiTZ rIyP13QVAwdKw0S3kvxFL7aiXIyB2oMhOaIkB3esOSq7lYEW7Q4cNJL5XZPW JagzcK14sOYguX/2D7EGNl0GevVJO5aRvDck/ZS/JQPTn2T5XCW5nUtaut+J gTEl2qeMSPZKzG4z8WXgVXu4yE7ysoxcaHkQA8Piu1JLSX3iSwoUZcMZGJ+u 0+ZMshyq9MXHM1BV8PkWCsm1rU8j2TIZONPiUpBI6m1jv3O3fyEDmdPeRzeT PD5aOdpXRa4PLnjkk/O7dAYSTZrJ+8mrFG0luTBWf2bzMAPfDiyYcT8nQH9D c2b8Lwb+lnpeeoz0Q2++mSUbhQt9HH1uNZH+IUvgcZ8oFyardb1zJ/111/qj g8kWLuzni9HLJv2nOkQ+M2pcaG6qYzNA+tNl2c0r3oILn8wdPrmzmOyvyJG1 bE5c+FIq79ZB0s9RIt71fj5cuLwhNdCf9Hu56olNJmFcmHB6qTi8gOwznwu9 1CounHL9SLMm85T7hy3S7xUXlou+tlLNJUAzLGxXXycX5vJ3POch8+d9L/p2 2RQXmj349SmTzCvRlWLhJ8uNXUtT90+mk3q6Wc/MMrkxVK34qDyZf4+JVUkh yI0LKaWR/akEcNMuDUQc4sY9L6/RlJLJvlD0Op4VyY0WigLJF8k+6b+iGtX9 kxv9zalCM+EEFK3+oeSyxI2Jb4XU9MNIfZNzOkYYPBiRdkAhjuyvf4pExWY2 8uAZW83qdRcJ8O2h5K2y4kFiFdv2T0FkX6q0NuqU8eCF3sH32t4EtFSF+TS/ 5EHjqANtal6kvga42rKNBxdYF0SkPQjQcnxi4zTGg/Zv2x+OuxJw7dqd4bPi vOip8V/c3kNkPgeO0B6H8mJo/NPKD/oEqEQta6434sP75T82SUqSeTq65F5g w4dBMfp+CmLkvPQXrmu78+Hq7208O9YToE6Z6/S9wIfWs8a2uwRJ/56aOF73 jA/Nsz9uWuQgwNCh9673plXYky3wLnicBS7yFctVi6vQJEd+//1nLDAY2T2g bMuPpn/iko3J99mj4/14uCM/zhelZASos+BK7fGF/sP8aNtp75i4nQV1yZnC 0f78GLLkLNAlx4I9+7hNv0XwI1c1dUVJjAVKZd1l96r40e9g9QvTxTpYd/1s nOAmAeyzbAHb8jr4qlCqNzMugKVr8pVaFerg3FIEsypYCLVvHGo4zFkLdIHR o1Zywmg7sqVp3OMFcLRyGPC8WIvZFEMfo+EKWHxT4Bt3Yj0OF8W/W9hZBsO2 j0UkJUXRZnazfd6TZ6B17fixpgIxnDOUXLwT/AQSlsu4dJwlMKM69JnOnmKw FydMe6clUUKl7cPWO4+Bt3bb+CZrKayJFcnIa8yDI2qZs4fkN2JqvCQlxSMH As+f3S81uxENmJZCMrFZcHXsVsebN5tQKU+4sab9HpjKrc7lTZZGqUBBs9Mi 6RBdoF5r6iqD6xQk50akU6D5wP2lU7v+wYYm9tEfdolk/v2i5GmbMe7A/txO rXgo8b6ILX2bMU97mvV3fyxImsDO409l8XvPjuffc6JBZ8XhcnrIFtTf0jyg mxIB7p01v8qst+LW/g0pDS1XQfPipWeuUnIo9MTN8G/FJYjzm6rk/SqHjuhw OlsyFAZDH4ykV2/DewevOHyxOwffj5S7s8LlcTjHNV7RPxAmjwnSW10V8NP3 e2NKLSfhsdHrJQ8FRQwI2suQ/eIPI17K6rRZRVwZFAHVQV8QffTpVnirEpoL nX03busFl10CMltNlHGlTKP1QqU7/F4SiTYpV0YpqmPxaU9X2FKZeKdZRgVb lU+LSRs5gtrh+n0CESqoH+Rzaf3oQahNFV7fMquChZrj+Rn/WcGWWuHr5vbb scCjYqt7sSWYcYxLtFdvx7LXzRIt/OYw2fOFeCXHRO6JoNEVeSPwS40WirjJ RF4tHoMcSz1oocr8NI5lok3VyJ42LT2Q86xo5r3FxIH5ayWc2/Xgi8rXizG3 mbj+/iP2eEE9ONiIk4lpTMx1dLPb8V4XtH9Nt2Q/YuLP5p2tdw7pwlpDu7CX jUzsYkn9vu2rAycLJl3DXjFR3PhR20YnHXgnGK5h+JqJj4TDVJ/v04HIvicz r98wUbLA/jSVqQOUk3yHOz4wUWtxXEhoQRvG0sh/9iEm8iTZHJS5rg0GNFux rGEmCql+0rEK0YYsr4m5I1+ZmDxbpH3juDY4M0UffxtjYty3ekepA9rwvumk +NQUE/3FMrSrxLVBRZH7T8k0Ey3WFVD3rtaGG7cyOk7NMjHM1TOlnqoNRk6t 1//8YWJF2Lj23IgWZBOHPSoWmHjyQaN2WrcWsG9d0ApZYmL+LX+qeYsWuN6I kdBcZqKqzWIgo0YLqqc3z6+sMPFYQWh6S7EW/A+BipX/ "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["\"quiquadrado\"", TraditionalForm], FormBox["\"probabilidade\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange->{{0, 20}, {0., 0.15418032749276186`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6667122045742464`*^9, {3.6667122499443097`*^9, 3.66671227864435*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiscretePlot", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"BinomialDistribution", "[", RowBox[{"10", ",", RowBox[{"1", "/", "6"}]}], "]"}], ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6667123104643946`*^9, 3.666712410554535*^9}, { 3.666713672676302*^9, 3.6667136853763194`*^9}, {3.6667137246263742`*^9, 3.6667137321663847`*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.019444444444444445`], AbsoluteThickness[1.6], Opacity[0.2], LineBox[{}, VertexColors->None]}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.019444444444444445`], AbsoluteThickness[1.6], Opacity[0.2], LineBox[{{{0., 0.16150558288984573`}, {0., 0}}, {{1., 0.32301116577969147`}, {1., 0}}, {{2., 0.2907100492017223}, { 2., 0}}, {{3., 0.1550453595742519}, {3., 0}}, {{4., 0.05426587585098816}, {4., 0}}, {{5., 0.013023810204237159`}, { 5., 0}}, {{6., 0.0021706350340395266`}, {6., 0}}, {{7., 0.000248072575318803}, {7., 0}}, {{8., 0.000018605443148910226`}, { 8., 0}}, {{9., 8.269085843960101*^-7}, {9., 0}}, {{10., 1.65381716879202*^-8}, {10., 0}}}, VertexColors->None]}}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], {}, PointBox[{{0., 0.16150558288984573`}, {1., 0.32301116577969147`}, {2., 0.2907100492017223}, {3., 0.1550453595742519}, {4., 0.05426587585098816}, {5., 0.013023810204237159`}, {6., 0.0021706350340395266`}, {7., 0.000248072575318803}, {8., 0.000018605443148910226`}, {9., 8.269085843960101*^-7}, {10., 1.65381716879202*^-8}}], {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "MessagesHead" -> DiscretePlot, "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> { Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], Directive[ RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], Directive[ RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], Directive[ RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], Directive[ RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], Directive[ RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], Directive[ RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], Directive[ RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], Directive[ RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], Directive[ RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], Directive[ RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], Directive[ RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], Directive[ RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], Directive[ RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}, PlotRange->{{0, 10}, {0, 0.32301116577969147`}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.666712330964423*^9, 3.6667124112745357`*^9}, 3.666713732846386*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Listas", "Section", CellChangeTimes->{{3.6667124482045875`*^9, 3.666712449344589*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}]], "Input", CellChangeTimes->{{3.666712455594598*^9, 3.6667124582546015`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output", CellChangeTimes->{3.6667124588446026`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s", "=", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}]}]], "Input", CellChangeTimes->{{3.666712459994604*^9, 3.6667124655146112`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}]], "Output", CellChangeTimes->{3.6667124661946125`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", " ", "s"}]], "Input", CellChangeTimes->{{3.666712469114617*^9, 3.6667124695746174`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", RowBox[{"2", " ", "b"}], ",", RowBox[{"3", " ", "c"}]}], "}"}]], "Output", CellChangeTimes->{3.666712470134618*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", ".", "s"}]], "Input", CellChangeTimes->{{3.666712473534623*^9, 3.666712477074628*^9}}], Cell[BoxData[ RowBox[{"a", "+", RowBox[{"2", " ", "b"}], "+", RowBox[{"3", " ", "c"}]}]], "Output", CellChangeTimes->{3.6667124773846283`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cross", "[", RowBox[{"u", ",", "s"}], "]"}]], "Input", CellChangeTimes->{{3.666712482884636*^9, 3.666712488554644*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"3", " ", "a"}], "-", "c"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b"}]}], "}"}]], "Output", CellChangeTimes->{3.6667124891846447`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s", "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6667125136746793`*^9, 3.6667125209746895`*^9}}], Cell[BoxData["a"], "Output", CellChangeTimes->{{3.6667125159746823`*^9, 3.66671252137469*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s", "[", RowBox[{"[", "2", "]"}], "]"}]], "Input", CellChangeTimes->{{3.666712525684696*^9, 3.666712527174698*^9}}], Cell[BoxData["b"], "Output", CellChangeTimes->{3.6667125278346987`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s", "[", RowBox[{"[", "3", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6667125289547005`*^9, 3.666712530164702*^9}}], Cell[BoxData["c"], "Output", CellChangeTimes->{3.666712530884703*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s", "[", RowBox[{"[", "4", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6667125322547054`*^9, 3.666712534154708*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Part", "::", "partw"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Part \[NoBreak]\\!\\(4\\)\[NoBreak] of \[NoBreak]\\!\\({a, \ b, c}\\)\[NoBreak] does not exist. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \ ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.6667125350647087`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]], "Output", CellChangeTimes->{3.6667125350647087`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "s", "]"}]], "Input", CellChangeTimes->{{3.6667125709447594`*^9, 3.6667125734047627`*^9}}], Cell[BoxData["3"], "Output", CellChangeTimes->{3.6667125740247636`*^9}] }, Open ]], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " tem 4 tipos de parenteses\n() ordem de operacao\n[ ] argumentos de fun\ \[CCedilla]\[ATilde]o\n{ } contem os elementos de uma lista\n[[ ]] extrai o \ elemento da lista" }], "Text", CellChangeTimes->{{3.6667125865347815`*^9, 3.6667126379848533`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Criando listas a partir de f\[OAcute]rmulas", "Section", CellChangeTimes->{{3.666712668244896*^9, 3.666712676644907*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "^", "2"}], ",", RowBox[{"{", RowBox[{"x", ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6667126883649235`*^9, 3.666712701514942*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "4", ",", "9", ",", "16", ",", "25"}], "}"}]], "Output", CellChangeTimes->{3.666712702234943*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "^", "2"}], ",", RowBox[{"{", RowBox[{"x", ",", "2", ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6667127405449967`*^9, 3.666712742214999*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "9", ",", "16", ",", "25"}], "}"}]], "Output", CellChangeTimes->{3.6667127431650004`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "^", "2"}], ",", RowBox[{"{", RowBox[{"x", ",", "2", ",", "5", ",", "0.5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.666712755625018*^9, 3.6667127567750196`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.`", ",", "6.25`", ",", "9.`", ",", "12.25`", ",", "16.`", ",", "20.25`", ",", "25.`"}], "}"}]], "Output", CellChangeTimes->{3.6667127576750207`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "^", "2"}], ",", RowBox[{"{", "5", "}"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "use", " ", "na", " ", "pr\[AAcute]tica", " ", "somente", " ", "se", " ", "o", " ", "termo", " ", "geral", " ", "n\[ATilde]o", " ", "for", " ", "constante"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.66671276437503*^9, 3.6667127702450385`*^9}, { 3.6667128533351545`*^9, 3.666712874995185*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ SuperscriptBox["x", "2"], ",", SuperscriptBox["x", "2"], ",", SuperscriptBox["x", "2"], ",", SuperscriptBox["x", "2"], ",", SuperscriptBox["x", "2"]}], "}"}]], "Output", CellChangeTimes->{3.6667127711450396`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"x", "^", "2"}], ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.666712879365191*^9, 3.666712887165202*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ SuperscriptBox["x", "2"], ",", SuperscriptBox["x", "2"], ",", SuperscriptBox["x", "2"], ",", SuperscriptBox["x", "2"], ",", SuperscriptBox["x", "2"]}], "}"}]], "Output", CellChangeTimes->{3.6667128877952027`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Pode-se constituir uma lista de listas", "Subsection", CellChangeTimes->{{3.666712955905298*^9, 3.6667129701553183`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"trajetoria", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"20", "t"}], ",", RowBox[{ RowBox[{"20", "t"}], "-", RowBox[{"5", RowBox[{"t", "^", "2"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "4", ",", "0.25"}], " ", "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6667129746253242`*^9, 3.6667130525554333`*^9}, { 3.666713149395569*^9, 3.666713152365573*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.`", ",", "4.6875`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", "8.75`"}], "}"}], ",", RowBox[{"{", RowBox[{"15.`", ",", "12.1875`"}], "}"}], ",", RowBox[{"{", RowBox[{"20.`", ",", "15.`"}], "}"}], ",", RowBox[{"{", RowBox[{"25.`", ",", "17.1875`"}], "}"}], ",", RowBox[{"{", RowBox[{"30.`", ",", "18.75`"}], "}"}], ",", RowBox[{"{", RowBox[{"35.`", ",", "19.6875`"}], "}"}], ",", RowBox[{"{", RowBox[{"40.`", ",", "20.`"}], "}"}], ",", RowBox[{"{", RowBox[{"45.`", ",", "19.6875`"}], "}"}], ",", RowBox[{"{", RowBox[{"50.`", ",", "18.75`"}], "}"}], ",", RowBox[{"{", RowBox[{"55.`", ",", "17.1875`"}], "}"}], ",", RowBox[{"{", RowBox[{"60.`", ",", "15.`"}], "}"}], ",", RowBox[{"{", RowBox[{"65.`", ",", "12.1875`"}], "}"}], ",", RowBox[{"{", RowBox[{"70.`", ",", "8.75`"}], "}"}], ",", RowBox[{"{", RowBox[{"75.`", ",", "4.6875`"}], "}"}], ",", RowBox[{"{", RowBox[{"80.`", ",", "0.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.666713037925413*^9, 3.6667130532854347`*^9}, 3.666713152975574*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"trajetoria", ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ",", RowBox[{ "PlotLabel", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.666713059515443*^9, 3.66671316410559*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[{{0., 0.}, {5., 4.6875}, {10., 8.75}, {15., 12.1875}, {20., 15.}, {25., 17.1875}, {30., 18.75}, {35., 19.6875}, {40., 20.}, {45., 19.6875}, {50., 18.75}, {55., 17.1875}, {60., 15.}, {65., 12.1875}, { 70., 8.75}, {75., 4.6875}, {80., 0.}}]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["x", TraditionalForm], FormBox["y", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotLabel->FormBox["\"Lan\[CCedilla]amento de projetil\"", TraditionalForm], PlotRange->{{0, 80.}, {0, 20.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.6667130629754477`*^9, 3.6667131340955477`*^9}, 3.666713169415597*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Aleat\[OAcute]rios", "Section", CellChangeTimes->{{3.6667132663057327`*^9, 3.666713269455737*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.6667133111757956`*^9, 3.6667133231758127`*^9}, { 3.6667133541658554`*^9, 3.666713402985924*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.2955671684374015`"}], ",", RowBox[{"-", "0.8004475292155773`"}], ",", RowBox[{"-", "0.496674671582074`"}], ",", "0.2166888879964124`", ",", RowBox[{"-", "0.5653956299992808`"}]}], "}"}]], "Output", CellChangeTimes->{{3.666713316475803*^9, 3.6667134034759245`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomVariate", "[", " ", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"10", ",", "3"}], "]"}], ",", "5"}], " ", "]"}]], "Input", CellChangeTimes->{{3.66671341418594*^9, 3.6667134497859898`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.478191313471331`", ",", "10.296970960437012`", ",", "13.841379527346891`", ",", "8.87443980804422`", ",", "5.350638777970582`"}], "}"}]], "Output", CellChangeTimes->{{3.6667134376659727`*^9, 3.666713450605991*^9}}] }, Open ]], Cell["n\[UAcute]mero de caras em 10 lances de 6 moedas", "Text", CellChangeTimes->{{3.666713540026116*^9, 3.666713552946134*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomVariate", "[", " ", RowBox[{ RowBox[{"BinomialDistribution", "[", RowBox[{"6", ",", RowBox[{"1", "/", "2"}]}], "]"}], ",", "10"}], " ", "]"}]], "Input", CellChangeTimes->{{3.6667134770660276`*^9, 3.666713507786071*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "4", ",", "3", ",", "2", ",", "1", ",", "4", ",", "2", ",", "2", ",", "0", ",", "2", ",", "4"}], "}"}]], "Output", CellChangeTimes->{3.6667135253560953`*^9, 3.6667135563261385`*^9, 3.666713907716631*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiscretePlot", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"BinomialDistribution", "[", RowBox[{"6", ",", RowBox[{"1", "/", "2"}]}], "]"}], ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.666713745116403*^9, 3.6667137926464696`*^9}, { 3.6667138631465683`*^9, 3.6667138633865685`*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.019444444444444445`], AbsoluteThickness[1.6], Opacity[0.2], LineBox[{{{7., 0.}, {7., 0}}, {{8., 0.}, {8., 0}}, {{9., 0.}, { 9., 0}}, {{10., 0.}, {10., 0}}}, VertexColors->None]}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.019444444444444445`], AbsoluteThickness[1.6], Opacity[0.2], LineBox[{{{0., 0.015625}, {0., 0}}, {{1., 0.09375}, {1., 0}}, {{2., 0.234375}, {2., 0}}, {{3., 0.3125}, {3., 0}}, {{4., 0.234375}, { 4., 0}}, {{5., 0.09375}, {5., 0}}, {{6., 0.015625}, {6., 0}}}, VertexColors->None]}}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], {}, PointBox[{{0., 0.015625}, {1., 0.09375}, {2., 0.234375}, {3., 0.3125}, { 4., 0.234375}, {5., 0.09375}, {6., 0.015625}, {7., 0.}, {8., 0.}, {9., 0.}, {10., 0.}}], {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "MessagesHead" -> DiscretePlot, "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> { Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], Directive[ RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], Directive[ RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], Directive[ RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], Directive[ RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], Directive[ RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], Directive[ RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], Directive[ RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], Directive[ RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], Directive[ RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], Directive[ RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], Directive[ RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], Directive[ RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], Directive[ RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}, PlotRange->{{0, 10}, {0, 0.3125}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6667137615264263`*^9, 3.666713793516471*^9, 3.6667138640565696`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiscretePlot", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"BinomialDistribution", "[", RowBox[{"10", ",", RowBox[{"1", "/", "6"}]}], "]"}], ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6667139448966827`*^9, 3.666713948636688*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.019444444444444445`], AbsoluteThickness[1.6], Opacity[0.2], LineBox[{}, VertexColors->None]}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.019444444444444445`], AbsoluteThickness[1.6], Opacity[0.2], LineBox[{{{0., 0.16150558288984573`}, {0., 0}}, {{1., 0.32301116577969147`}, {1., 0}}, {{2., 0.2907100492017223}, { 2., 0}}, {{3., 0.1550453595742519}, {3., 0}}, {{4., 0.05426587585098816}, {4., 0}}, {{5., 0.013023810204237159`}, { 5., 0}}, {{6., 0.0021706350340395266`}, {6., 0}}, {{7., 0.000248072575318803}, {7., 0}}, {{8., 0.000018605443148910226`}, { 8., 0}}, {{9., 8.269085843960101*^-7}, {9., 0}}, {{10., 1.65381716879202*^-8}, {10., 0}}}, VertexColors->None]}}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], {}, PointBox[{{0., 0.16150558288984573`}, {1., 0.32301116577969147`}, {2., 0.2907100492017223}, {3., 0.1550453595742519}, {4., 0.05426587585098816}, {5., 0.013023810204237159`}, {6., 0.0021706350340395266`}, {7., 0.000248072575318803}, {8., 0.000018605443148910226`}, {9., 8.269085843960101*^-7}, {10., 1.65381716879202*^-8}}], {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "MessagesHead" -> DiscretePlot, "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> { Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], Directive[ RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], Directive[ RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], Directive[ RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], Directive[ RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], Directive[ RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], Directive[ RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], Directive[ RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], Directive[ RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], Directive[ RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], Directive[ RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], Directive[ RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], Directive[ RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], Directive[ RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}, PlotRange->{{0, 10}, {0, 0.32301116577969147`}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.666713949636689*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Estat\[IAcute]stica b\[AAcute]sica", "Section", CellChangeTimes->{{3.6667140218067904`*^9, 3.666714034336808*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rn", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "3"}], "]"}], ",", "10"}], "]"}]}]], "Input", CellChangeTimes->{{3.6667140565268393`*^9, 3.666714094356892*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "20.664156371255505`", ",", "23.315851645176117`", ",", "20.979254308858398`", ",", "22.667545659817826`", ",", "22.10486869789157`", ",", "23.015229636491217`", ",", "26.85225525079766`", ",", "13.974712890780712`", ",", "22.529421146380706`", ",", "14.382407897738542`"}], "}"}]], "Output", CellChangeTimes->{{3.6667140856968803`*^9, 3.666714094956893*^9}, 3.6667141310569434`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "rn", "]"}]], "Input", CellChangeTimes->{{3.6667141092269125`*^9, 3.6667141121169167`*^9}}], Cell[BoxData["21.04857035051883`"], "Output", CellChangeTimes->{{3.6667141126969175`*^9, 3.666714133776947*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StandardDeviation", "[", "rn", "]"}]], "Input", CellChangeTimes->{{3.666714115426922*^9, 3.6667141212169294`*^9}}], Cell[BoxData["3.989578061746916`"], "Output", CellChangeTimes->{{3.6667141219369307`*^9, 3.666714136536951*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Variance", "[", "rn", "]"}]], "Input", CellChangeTimes->{{3.666714147126966*^9, 3.666714151516972*^9}}], Cell[BoxData["15.91673311077228`"], "Output", CellChangeTimes->{3.666714152126973*^9}] }, Open ]], Cell["agora, com vari\[AAcute]vel discreta", "Text", CellChangeTimes->{{3.6667141911070275`*^9, 3.6667142010870414`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lanceDeMoedas", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"BinomialDistribution", "[", RowBox[{"6", ",", "0.5"}], "]"}], ",", "10"}], "]"}]}]], "Input", CellChangeTimes->{{3.6667142056770477`*^9, 3.6667142397570953`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "3", ",", "3", ",", "3", ",", "5", ",", "5", ",", "3", ",", "2", ",", "3"}], "}"}]], "Output", CellChangeTimes->{3.6667142405070963`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "lanceDeMoedas", "]"}]], "Input", CellChangeTimes->{{3.6667142446571026`*^9, 3.6667142482171073`*^9}}], Cell[BoxData[ FractionBox["29", "10"]], "Output", CellChangeTimes->{3.666714248767108*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "N"}]], "Input", CellChangeTimes->{{3.6667142573971205`*^9, 3.666714262207127*^9}}], Cell[BoxData["2.9`"], "Output", CellChangeTimes->{3.666714263577129*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Histograma", "Section", CellChangeTimes->{{3.6667143098071938`*^9, 3.666714312177197*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"muitosDados", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "3"}], "]"}], ",", "200"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6667143517472525`*^9, 3.666714395637314*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "muitosDados", "]"}]], "Input", CellChangeTimes->{{3.6667143203772087`*^9, 3.666714325157215*^9}, { 3.6667144046973267`*^9, 3.6667144067373295`*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.63], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0}, {12., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{47.56182946357079, 124.89597678142509`}, { 193.9378138962372, 211.3781728899566}}], 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[{12., 0}, {14., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{122.5959767814251, 202.2301240992794}, { 184.64263439937756`, 212.5281728899566}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{14., 0}, {16., 14}, "RoundingRadius" -> 0]}, ImageSizeCache->{{199.9301240992794, 277.2642714171336}, { 96.19565993392096, 211.3781728899566}}], StatusArea[#, 14]& , TagBoxNote->"14"], StyleBox["14", {}, StripOnInput -> False]], Annotation[#, Style[14, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{16., 0}, {18., 26}, "RoundingRadius" -> 0]}, ImageSizeCache->{{276.11427141713364`, 353.44841873498785`}, {-1.5464940283952444`, 211.37817288995663`}}], StatusArea[#, 26]& , TagBoxNote->"26"], StyleBox["26", {}, StripOnInput -> False]], Annotation[#, Style[26, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{18., 0}, {20., 48}, "RoundingRadius" -> 0]}, ImageSizeCache->{{352.2984187349879, 429.6325660528421}, {-180.74044295930833`, 211.3781728899566}}], StatusArea[#, 48]& , TagBoxNote->"48"], StyleBox["48", {}, StripOnInput -> False]], Annotation[#, Style[48, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20., 0}, {22., 56}, "RoundingRadius" -> 0]}, ImageSizeCache->{{428.4825660528421, 505.81671337069645`}, {-245.90187893418585`, 211.3781728899566}}], StatusArea[#, 56]& , TagBoxNote->"56"], StyleBox["56", {}, StripOnInput -> False]], Annotation[#, Style[56, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{22., 0}, {24., 32}, "RoundingRadius" -> 0]}, ImageSizeCache->{{504.6667133706964, 582.0008606885508}, {-50.4175710095534, 211.37817288995666`}}], StatusArea[#, 32]& , TagBoxNote->"32"], StyleBox["32", {}, StripOnInput -> False]], Annotation[#, Style[32, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{24., 0}, {26., 14}, "RoundingRadius" -> 0]}, ImageSizeCache->{{580.8508606885507, 658.1850080064049}, { 96.19565993392094, 211.37817288995666`}}], StatusArea[#, 14]& , TagBoxNote->"14"], StyleBox["14", {}, StripOnInput -> False]], Annotation[#, Style[14, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{26., 0}, {28., 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{657.035008006405, 734.3691553242592}, { 177.6474549025178, 211.37817288995666`}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{28., 0}, {30., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{733.2191553242592, 810.5533026421134}, { 202.08299339309684`, 211.37817288995666`}}], 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->{9.6, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{10., 30.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.666714325867216*^9, 3.6667144074573307`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "200"}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.6667144357273703`*^9, 3.66671447161742*^9}, { 3.6667145217374907`*^9, 3.6667145326575055`*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.6649999999999999], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.6649999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {0.2, 45}, "RoundingRadius" -> 0]}, ImageSizeCache->{{47.56182946357086, 201.08012409927946`}, {-235.98600824235677`, 211.37817288995632`}}], 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[{0.2, 0}, {0.4, 30}, "RoundingRadius" -> 0]}, ImageSizeCache->{{199.93012409927945`, 353.44841873498797`}, {-87.24794786491907, 211.37817288995632`}}], StatusArea[#, 30]& , TagBoxNote->"30"], StyleBox["30", {}, StripOnInput -> False]], Annotation[#, Style[30, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.4, 0}, {0.6, 35}, "RoundingRadius" -> 0]}, ImageSizeCache->{{352.298418734988, 505.81671337069656`}, {-136.827301324065, 211.37817288995632`}}], StatusArea[#, 35]& , TagBoxNote->"35"], StyleBox["35", {}, StripOnInput -> False]], Annotation[#, Style[35, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.6, 0}, {0.8, 46}, "RoundingRadius" -> 0]}, ImageSizeCache->{{504.6667133706965, 658.1850080064052}, {-245.90187893418602`, 211.37817288995637`}}], StatusArea[#, 46]& , TagBoxNote->"46"], StyleBox["46", {}, StripOnInput -> False]], Annotation[#, Style[46, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.8, 0}, {1., 44}, "RoundingRadius" -> 0]}, ImageSizeCache->{{657.0350080064051, 810.5533026421136}, {-226.07013755052765`, 211.37817288995637`}}], StatusArea[#, 44]& , TagBoxNote->"44"], StyleBox["44", {}, StripOnInput -> False]], Annotation[#, Style[44, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-0.02, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{0., 1.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.666714445287383*^9, 3.666714473747423*^9}, { 3.6667145234474926`*^9, 3.6667145409875174`*^9}}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1440, 818}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, Magnification:>2.3 Inherited, FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (December 4, 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 194, 6, 380, "Title"], Cell[CellGroupData[{ Cell[799, 32, 137, 1, 158, "Section"], Cell[CellGroupData[{ Cell[961, 37, 277, 6, 68, "Input"], Cell[1241, 45, 260, 8, 133, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1538, 58, 350, 9, 68, "Input"], Cell[1891, 69, 8420, 149, 570, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10348, 223, 199, 5, 68, "Input"], Cell[10550, 230, 2016, 59, 170, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12603, 294, 507, 13, 112, "Input"], Cell[13113, 309, 6459, 117, 507, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19609, 431, 482, 12, 97, "Input"], Cell[20094, 445, 3706, 89, 610, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23849, 540, 93, 1, 158, "Section"], Cell[CellGroupData[{ Cell[23967, 545, 174, 4, 97, "Input"], Cell[24144, 551, 127, 3, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24308, 559, 174, 4, 97, "Input"], Cell[24485, 565, 127, 3, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24649, 573, 117, 2, 97, "Input"], Cell[24769, 577, 173, 5, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24979, 587, 115, 2, 97, "Input"], Cell[25097, 591, 150, 4, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25284, 600, 147, 3, 97, "Input"], Cell[25434, 605, 341, 12, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25812, 622, 147, 3, 97, "Input"], Cell[25962, 627, 95, 1, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26094, 633, 143, 3, 97, "Input"], Cell[26240, 638, 72, 1, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26349, 644, 145, 3, 97, "Input"], Cell[26497, 649, 70, 1, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26604, 655, 145, 3, 97, "Input"], Cell[26752, 660, 474, 10, 53, "Message"], Cell[27229, 672, 198, 5, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27464, 682, 129, 2, 97, "Input"], Cell[27596, 686, 72, 1, 96, "Output"] }, Open ]], Cell[27683, 690, 319, 7, 241, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[28039, 702, 128, 1, 158, "Section"], Cell[CellGroupData[{ Cell[28192, 707, 222, 6, 97, "Input"], Cell[28417, 715, 147, 3, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28601, 723, 232, 6, 97, "Input"], Cell[28836, 731, 139, 3, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29012, 739, 244, 6, 97, "Input"], Cell[29259, 747, 198, 5, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29494, 757, 489, 12, 112, "Input"], Cell[29986, 771, 272, 8, 104, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30295, 784, 179, 4, 97, "Input"], Cell[30477, 790, 272, 8, 104, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30786, 803, 128, 1, 110, "Subsection"], Cell[CellGroupData[{ Cell[30939, 808, 498, 15, 97, "Input"], Cell[31440, 825, 1284, 38, 223, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32761, 868, 341, 9, 141, "Input"], Cell[33105, 879, 1288, 32, 642, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[34454, 918, 105, 1, 158, "Section"], Cell[CellGroupData[{ Cell[34584, 923, 277, 7, 97, "Input"], Cell[34864, 932, 336, 7, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35237, 944, 238, 5, 97, "Input"], Cell[35478, 951, 268, 6, 96, "Output"] }, Open ]], Cell[35761, 960, 130, 1, 68, "Text"], Cell[CellGroupData[{ Cell[35916, 965, 267, 6, 97, "Input"], Cell[36186, 973, 253, 6, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36476, 984, 430, 11, 97, "Input"], Cell[36909, 997, 3312, 83, 576, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40258, 1085, 378, 10, 97, "Input"], Cell[40639, 1097, 3654, 88, 577, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[44342, 1191, 121, 1, 158, "Section"], Cell[CellGroupData[{ Cell[44488, 1196, 257, 6, 97, "Input"], Cell[44748, 1204, 446, 9, 139, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45231, 1218, 128, 2, 97, "Input"], Cell[45362, 1222, 113, 1, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45512, 1228, 139, 2, 97, "Input"], Cell[45654, 1232, 113, 1, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45804, 1238, 128, 2, 97, "Input"], Cell[45935, 1242, 87, 1, 96, "Output"] }, Open ]], Cell[46037, 1246, 123, 1, 68, "Text"], Cell[CellGroupData[{ Cell[46185, 1251, 273, 6, 97, "Input"], Cell[46461, 1259, 204, 5, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46702, 1269, 139, 2, 97, "Input"], Cell[46844, 1273, 92, 2, 121, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46973, 1280, 118, 2, 97, "Input"], Cell[47094, 1284, 73, 1, 96, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[47216, 1291, 97, 1, 158, "Section"], Cell[47316, 1294, 289, 7, 97, "Input"], Cell[CellGroupData[{ Cell[47630, 1305, 193, 3, 97, "Input"], Cell[47826, 1310, 7058, 203, 579, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54921, 1518, 301, 7, 97, "Input"], Cell[55225, 1527, 4056, 113, 612, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)