(* 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[      2152,         67]
NotebookOptionsPosition[      1691,         46]
NotebookOutlinePosition[      2185,         66]
CellTagsIndexPosition[      2142,         63]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Simulando um lan\[CCedilla]amento de proj\[EAcute]til", "Section",
 CellChangeTimes->{{3.6666912687259483`*^9, 3.6666912816219254`*^9}, {
  3.666691562946928*^9, 3.666691569507412*^9}}],

Cell["\<\
O codigo:    vertical=Table[{t,20t-5t^2},{t,0,4,0.25}]
gera um conjunto de dados que, uma vez graficado com ListPlot, representa a \
posi\[CCedilla]\[ATilde]o vertical de um proj\[EAcute]til em movimento livre.
A maneira de simular uma medi\[CCedilla]\[ATilde]o em que h\[AAcute] \
incerteza na medida de posicao, com desvio-padr\[ATilde]o 0,5 \[EAcute] \
substituir
20t-5t^2  -> RandomVariate[NormalDistribution[20t-5t^2, 0.5]
i Monte uma tabela com a posicao vertical afetada da incerteza de medida
ii Grafique o resultado do item i
iii Escreva uma unica linha de comando que fa\[CCedilla]a o grafico e o sorteio
iv Verifique o que acontece cada vez que voce recalcular a linha de comando \
do item iii
\
\>", "Text",
 CellChangeTimes->{{3.6666912884291515`*^9, 3.6666915355314846`*^9}, {
  3.666691617227951*^9, 3.666691736442473*^9}, {3.6666917855219383`*^9, 
  3.6666918230656357`*^9}}]
}, Open  ]]
},
WindowSize->{1271, 867},
WindowMargins->{{Automatic, 206}, {50, Automatic}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{612, 792}},
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, 191, 2, 70, "Section"],
Cell[774, 26, 901, 17, 182, "Text"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)