(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      1955,         61]
NotebookOptionsPosition[      1645,         45]
NotebookOutlinePosition[      1988,         60]
CellTagsIndexPosition[      1945,         57]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Binomial: simula\[CCedilla]\[ATilde]o vs calculo", "Section",
 CellChangeTimes->{{3.666882298622964*^9, 3.6668823002552814`*^9}, {
  3.667049196733468*^9, 3.667049211906435*^9}}],

Cell["\<\
Comparar a simula\[CCedilla]\[ATilde]o da quantidade de faces 2 em um lan\
\[CCedilla]amento de 5 dados de seis faces com as respectivas probabilidades \
calculadas.
i. Gere um n\[UAcute]mero aleat\[OAcute]rio binomial com n=5 e p=1/6.
ii Prepare uma lista com 100 desses n\[UAcute]meros aleat\[OAcute]rios.
iii. Fa\[CCedilla]a um histograma dessa tabela
iv. Escreva um comando de uma linha que integre essas opera\[CCedilla]\
\[OTilde]es todas. 
v. Fa\[CCedilla]a uma tabela com as probabilidades de obter 0, 1, 2 ... 5 \
faces 2 no lan\[CCedilla]amento de 5 dados.
vi. Fa\[CCedilla]a um grafico com o numero esperado de faces 2 em 100 lan\
\[CCedilla]amentos de 5 dados.
vii. Superponha os graficos dos itens iii e vi\
\>", "Text",
 CellChangeTimes->{{3.666882486452015*^9, 3.6668828651906633`*^9}, {
  3.666883060854244*^9, 3.6668831268038235`*^9}}]
}, Open  ]]
},
WindowSize->{1012, 894},
WindowMargins->{{Automatic, 320}, {Automatic, 31}},
FrontEndVersion->"10.2 for Microsoft Windows (64-bit) (July 7, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 184, 2, 70, "Section"],
Cell[767, 26, 862, 16, 163, "Text"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)