(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.4' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 3178, 85] NotebookOptionsPosition[ 2827, 68] NotebookOutlinePosition[ 3174, 83] CellTagsIndexPosition[ 3131, 80] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Propagar incerteza por simula\[CCedilla]\[ATilde]o", "Section", CellChangeTimes->{3.668248992118261*^9}], Cell["\<\ Desenvolver um m\[EAcute]todo de propagar incerteza de uma vari\[AAcute]vel \ aleat\[OAcute]ria para uma fun\[CCedilla]\[ATilde]o dessa vari\[AAcute]vel, \ baseado em simula\[CCedilla]\[ATilde]o. Investigar o comportamento do \ algoritmo com fun\[CCedilla]\[OTilde]es suaves e com a \ fun\[CCedilla]\[ATilde]o exponencial\ \>", "Text", CellChangeTimes->{3.668249004423499*^9}], Cell["\<\ i.\tDefina uma fun\[CCedilla]\[ATilde]o da vari\[AAcute]vel x, por exemplo \ f(x) = sen(5x) ii.\tSimule uma medida de x com 10 dados, {x}, com m\[EAcute]dia e \ desvio-padr\[ATilde]o x0 e \[Sigma]0 a sua escolha. iii.\tDefina duas vari\[AAcute]veis xm e sm que correspondam \[AGrave] m\ \[EAcute]dia e ao desvio-padr\[ATilde]o da m\[EAcute]dia dessa medida. iv.\tConstrua um grande conjunto de valores aleat\[OAcute]rios, {z}, de m\ \[EAcute]dia xm e desvio-padr\[ATilde]o sm. v.\tDetermine o conjunto dos valores calculados de f(zi). vi.\tDetermine a m\[EAcute]dia e o desvio-padr\[ATilde]o dos valores do \ conjunto do item anterior. vii.\tCompare o resultado obtido por simula\[CCedilla]\[ATilde]o com aquele \ obtido com a f\[OAcute]rmula anal\[IAcute]tica aproximada de propaga\ \[CCedilla]\[ATilde]o de incerteza. viii.\tPrepare uma fun\[CCedilla]\[ATilde]o que re\[UAcute]na os itens ii a \ vi e tenha como par\[AHat]metros o nome da fun\[CCedilla]\[ATilde]o f e os \ valores x0 e s0. ix.\tTeste a fun\[CCedilla]\[ATilde]o com as escolhas dos itens i e ii. i.\t\ Explique porque os valores obtidos variam a cada repeti\[CCedilla]\[ATilde]o \ do c\[AAcute]lculo e se essa varia\[CCedilla]\[ATilde]o est\[AAcute] de \ acordo com o que lidamos na pr\[AAcute]tica. x.\tAplique sua fun\[CCedilla]\[ATilde]o nos casos: a)\ts(x) = \[Pi] r^2, com x0 = 10.0 e \[Sigma]0 = 1.0 b)\tg(x) = exp( - 5 t ) com t0 = 2,110 e \[Sigma]0 = 0,012 c)\th(x) = exp( -5 t ) com t0 = 2,11 e \[Sigma]0 = 0,12 Nesses casos, compare os resultados de simula\[CCedilla]\[ATilde]o com \ aqueles da f\[OAcute]rmula anal\[IAcute]tica. \ \>", "Text", CellChangeTimes->{ 3.6682490142169476`*^9, {3.6682495138535767`*^9, 3.668249564096769*^9}}] }, Open ]] }, WindowSize->{1028, 960}, WindowMargins->{{Automatic, 417}, {0, Automatic}}, FrontEndVersion->"10.4 for Microsoft Windows (64-bit) (February 25, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 111, 1, 70, "Section"], Cell[694, 25, 387, 7, 49, "Text"], Cell[1084, 34, 1727, 31, 315, "Text"] }, Open ]] } ] *)