(* 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[      2176,         63]
NotebookOptionsPosition[      1869,         47]
NotebookOutlinePosition[      2209,         62]
CellTagsIndexPosition[      2166,         59]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Erro de Arredondamento", "Title",
 CellChangeTimes->{{3.6672267509788303`*^9, 3.667226756201049*^9}}],

Cell["\<\
Investigar a distribui\[CCedilla]\[ATilde]o do erro de arredondamenyto na \
soma de um n\[UAcute]mero grande de parcelas

i. Sorteie um conjunto de n\[UAcute]meros aleat\[OAcute]rios reais   u   com \
12 elementos; sorteie valores maiores que 1.
ii. Crie outro conjunto com os valores de u arredondados de forma a \
apresentarem uma \[UAcute]nica casa decimal.
iii. Determine a diferen\[CCedilla]a entre a soma de todos os elementos de u \
e a soma de todos os elementos do conjunto arredondado
iv. Reuna todos os itens anteriores em uma \[UAcute]nica rotina \
\[OpenCurlyDoubleQuote]erroDeArredondamento\[CloseCurlyDoubleQuote], que tem \
como par\[AHat]metro o n\[UAcute]mero de elementos de u, a fim de investigar \
como o erro de arredondamento depende desse n\[UAcute]mero
v. Histograme um n\[UAcute]mero grande dos erros de arredondamento e \
verifique se o resultado combina com a previs\[ATilde]o te\[OAcute]rica. \
Explore a dependencia do erro com o n\[UAcute]mero de parcelas da soma.\
\>", "Text",
 CellChangeTimes->{{3.667226204822731*^9, 3.6672265883908734`*^9}, {
   3.6672267603859835`*^9, 3.667226770104228*^9}, 3.6672269049288454`*^9}]
}, Open  ]]
},
WindowSize->{854, 813},
WindowMargins->{{Automatic, 26}, {6, Automatic}},
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, 107, 1, 101, "Title"],
Cell[690, 25, 1163, 19, 201, "Text"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)