(* 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[ 22215, 655] NotebookOptionsPosition[ 19231, 562] NotebookOutlinePosition[ 19776, 583] CellTagsIndexPosition[ 19733, 580] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Useful functions and procedural instructions", "Title", CellChangeTimes->{{3.6221910122234073`*^9, 3.622191024693082*^9}, { 3.6828575575650663`*^9, 3.6828575744827695`*^9}}], Cell[CellGroupData[{ Cell["Functions for selecting and locating", "Section", CellChangeTimes->{{3.682922573803522*^9, 3.682922583713129*^9}}], Cell[BoxData[ RowBox[{"testList", " ", "=", RowBox[{"{", " ", RowBox[{ "1", ",", " ", "2.0", ",", " ", "\"\\"", ",", " ", "2", ",", "Pi"}], "}"}]}]], "Input", CellChangeTimes->{{3.682922633334939*^9, 3.6829226678644114`*^9}}], Cell["\<\ Cases is mostly used in lists read from files, since it allows to select data \ types\ \>", "Text", CellChangeTimes->{{3.682922708836892*^9, 3.682922734350395*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Cases", "[", RowBox[{"testList", ",", " ", "_Integer"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"note", " ", "the", " ", "Blank"}], ",", " ", RowBox[{"which", " ", "means", " ", "anything"}], ",", " ", "but", ",", " ", RowBox[{ "when", " ", "followed", " ", "by", " ", "a", " ", "data", " ", "type"}], ",", " ", RowBox[{ "requires", " ", "that", " ", "the", " ", "thing", " ", "must", " ", "match", " ", "the", " ", "type"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.6829226744122005`*^9, 3.6829226879724846`*^9}, { 3.6829227374523735`*^9, 3.682922791525814*^9}}], Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{"testList", ",", " ", "_String"}], "]"}]], "Input", CellChangeTimes->{{3.682922795705512*^9, 3.6829228033954372`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Cases", "[", RowBox[{"testList", ",", " ", "_Real"}], "]"}], " "}]], "Input", CellChangeTimes->{{3.6829228075675173`*^9, 3.682922877883456*^9}, 3.6829229321827335`*^9}], Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{"testList", ",", " ", "_Symbol"}], "]"}]], "Input", CellChangeTimes->{{3.6829229250293927`*^9, 3.6829229274143057`*^9}}], Cell[BoxData[ RowBox[{"%", "//", "N"}]], "Input", CellChangeTimes->{{3.6829229389923224`*^9, 3.682922941292921*^9}}], Cell["SortBy[ ] allows defining the sorting function", "Text", CellChangeTimes->{{3.6829229576678605`*^9, 3.6829229632082167`*^9}, { 3.6829229968094587`*^9, 3.6829230056304283`*^9}}], Cell[BoxData[ RowBox[{"testList", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"10", ",", "4"}], "]"}], ",", "10"}], "]"}]}]], "Input", CellChangeTimes->{{3.6829230088461084`*^9, 3.682923032788536*^9}}], Cell[BoxData[ RowBox[{"Sort", "[", "testList", "]"}]], "Input", CellChangeTimes->{{3.6829230364939675`*^9, 3.6829230419141703`*^9}}], Cell[BoxData[ RowBox[{"SortBy", "[", RowBox[{"testList", ",", " ", RowBox[{ RowBox[{"FractionalPart", "[", "#", "]"}], "&"}]}], "]"}]], "Input", CellChangeTimes->{{3.68292304708416*^9, 3.68292310621008*^9}}], Cell["Select gives the values, but not the positions", "Text", CellChangeTimes->{{3.6829231488650155`*^9, 3.6829231608144684`*^9}}], Cell[BoxData[ RowBox[{"u", "=", RowBox[{"Select", "[", RowBox[{"testList", ",", " ", RowBox[{ RowBox[{"10", "<", "#", "<", "12"}], "&"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6829231331270475`*^9, 3.682923185310979*^9}, { 3.6829232753048973`*^9, 3.682923275757676*^9}}], Cell["\<\ If Position returns a void list, { }, either change the range 10<#<12 or \ repeat the sort.\ \>", "Text", CellChangeTimes->{{3.682923532574686*^9, 3.682923579388167*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Position", "[", RowBox[{"testList", ",", RowBox[{"u", "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", "]"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ "the", " ", "2", "nd", " ", "argument", " ", "is", " ", "a", " ", "number"}], ",", " ", RowBox[{"not", " ", "a", " ", "list"}], ",", " ", RowBox[{"then", " ", RowBox[{"the", " ", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "is", " ", "required"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.682923189263505*^9, 3.6829231925654488`*^9}, { 3.6829232320637617`*^9, 3.68292330201462*^9}, {3.6829233423850837`*^9, 3.6829233590699434`*^9}, 3.701452516308133*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Map", "Section", CellChangeTimes->{{3.682923603915756*^9, 3.682923605064286*^9}}], Cell[CellGroupData[{ Cell["\<\ Most functions are Listable - they are automatically applied to lists, giving \ a list\ \>", "Subsubsection", CellChangeTimes->{{3.682923873598277*^9, 3.6829238966412096`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"x", "^", "2"}]}]], "Input", CellChangeTimes->{{3.682923675797507*^9, 3.6829236856993303`*^9}}], Cell[BoxData[ RowBox[{"f", "[", "testList", "]"}]], "Input", CellChangeTimes->{{3.6829236891320534`*^9, 3.6829236935498247`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"r", "[", RowBox[{"x_", ",", "s_"}], "]"}], ":=", RowBox[{"RandomVariate", "[", " ", RowBox[{"NormalDistribution", "[", RowBox[{"x", ",", "s"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.682923902864833*^9, 3.682923957962224*^9}}], Cell[BoxData[ RowBox[{"r", "[", RowBox[{"20", ",", "1.0"}], "]"}]], "Input", CellChangeTimes->{{3.682923991821642*^9, 3.6829239996539583`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"r", "[", RowBox[{"20", ",", RowBox[{"{", RowBox[{"1.0", ",", "1.5"}], "}"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"this", " ", "does", " ", "not", " ", "work"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.6829239663161507`*^9, 3.6829239882221203`*^9}}], Cell["\<\ Map[ ] applies the function, which is the first argument, to each element of \ the second argument\ \>", "Text", CellChangeTimes->{{3.682924042241782*^9, 3.682924123474663*^9}}], Cell[BoxData[ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"r", "[", RowBox[{"20", ",", "#"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"1.0", ",", "1.5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6829240074028783`*^9, 3.6829240332626824`*^9}}], Cell["\<\ Map is normally used with runes - /@ is the corresponding rune, and is an \ infix operator (it comes between the pure function and the list). This becomes natural with practice.\ \>", "Text", CellChangeTimes->{{3.6829241773682795`*^9, 3.6829242960115786`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"r", "[", RowBox[{"20", ",", "#"}], "]"}], "&"}], "/@", RowBox[{"{", RowBox[{"1.0", ",", "1.5"}], "}"}]}]], "Input", CellChangeTimes->{{3.682924200917884*^9, 3.682924205347274*^9}}], Cell["\<\ It is possible to retrieve the list of selected positions with Map\ \>", "Text", CellChangeTimes->{{3.682924147892687*^9, 3.6829241670221624`*^9}}], Cell[BoxData[ RowBox[{"v", "=", RowBox[{"Select", "[", RowBox[{"testList", ",", " ", RowBox[{ RowBox[{"9", "<", "#", "<", "16"}], "&"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.682923315645074*^9, 3.6829233158235817`*^9}, { 3.6829234656152124`*^9, 3.682923496252636*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Position", "[", RowBox[{"testList", ",", RowBox[{"v", " ", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], " "}]], "Input", CellChangeTimes->{{3.6829233249469085`*^9, 3.6829233353532505`*^9}, { 3.6829234733174906`*^9, 3.6829234735211716`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{"testList", ",", " ", RowBox[{"v", "[", RowBox[{"[", "#", "]"}], "]"}]}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"Length", "[", "v", "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"too", " ", "many", " ", RowBox[{"{", RowBox[{"{", RowBox[{"{", RowBox[{",", " ", RowBox[{ "likely", " ", "you", " ", "will", " ", "Flatten", " ", "the", " ", "result"}]}], " "}]}]}]}], "*)"}]}]], "Input", CellChangeTimes->{{3.682923363954988*^9, 3.6829234435493994`*^9}, { 3.6829234881325145`*^9, 3.68292349193395*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Displaying many graphics", "Subsection", CellChangeTimes->{{3.6829243352470064`*^9, 3.6829243431663857`*^9}}], Cell[BoxData[ RowBox[{"g1", "=", RowBox[{"Histogram", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", "]"}], ",", "1000"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.6829243461920586`*^9, 3.6829243761740975`*^9}}], Cell[BoxData[ RowBox[{"g2", "=", RowBox[{"Histogram", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"CauchyDistribution", "[", "]"}], ",", "1000"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.6829243814574213`*^9, 3.682924449828682*^9}}], Cell[BoxData[ RowBox[{"GraphicsRow", "[", RowBox[{"{", RowBox[{"g1", ",", "g2"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.6829244359902306`*^9, 3.682924446111451*^9}}], Cell[BoxData[ RowBox[{"GraphicsColumn", "[", RowBox[{"{", RowBox[{"g1", ",", "g2"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.682924459719964*^9, 3.682924461953168*^9}}], Cell[BoxData[ RowBox[{"g3", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"StableDistribution", "[", RowBox[{"0", ",", "\[Alpha]", ",", RowBox[{"1", "/", "2"}], ",", "0", ",", "2"}], "]"}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", "1", ",", "2"}], "}"}]}], "}"}]}], "]"}], "//", "Evaluate"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.682924470157795*^9, 3.68292448471799*^9}, { 3.6829245676944695`*^9, 3.6829245717300787`*^9}, 3.6829246236449995`*^9}], Cell[BoxData[ RowBox[{"g4", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"StableDistribution", "[", RowBox[{"0", ",", "\[Alpha]", ",", RowBox[{"1", "/", "2"}], ",", "0", ",", "2"}], "]"}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", "1", ",", "2"}], "}"}]}], "}"}]}], "]"}], "//", "Evaluate"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6829246329999876`*^9, 3.6829246343688264`*^9}, 3.682924677950651*^9}], Cell[BoxData[ RowBox[{ RowBox[{"GraphicsGrid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"g1", ",", "g2"}], "}"}], ",", RowBox[{"{", RowBox[{"g3", ",", "g4"}], "}"}]}], "}"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "This", " ", "is", " ", "the", " ", "instruction", " ", "used", " ", "to", " ", "prepare", " ", "a", " ", "slide", " ", "show", " ", "with", " ", "mathematica"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.6829246864645395`*^9, 3.6829247363607044`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Procedural Commands", "Section", CellChangeTimes->{{3.6829247815767636`*^9, 3.682924786797431*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "v"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "can", " ", "be", " ", "used", " ", "inside", " ", "large", " ", "functions", " ", "to", " ", "provide", " ", "clues", " ", "about", " ", "what", " ", "is", " ", "happening"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.682924788945801*^9, 3.6829248668083878`*^9}, { 3.682924958340872*^9, 3.6829249744429855`*^9}}], Cell[BoxData[ RowBox[{"%", " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"it", " ", "does", " ", "not", " ", "return", " ", "anything"}], ",", " ", RowBox[{ "just", " ", "outputs", " ", "to", " ", "the", " ", "notebook"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{ 3.6829248085233774`*^9, {3.6829249795980744`*^9, 3.6829250065229797`*^9}}], Cell["Do[ ] works as expected, but it takes too long", "Text", CellChangeTimes->{{3.6829250302460847`*^9, 3.6829250387049823`*^9}, { 3.682925147764533*^9, 3.6829251552673078`*^9}}], Cell[BoxData[ RowBox[{"list", "=", RowBox[{"{", "}"}]}]], "Input", CellChangeTimes->{{3.682925067284051*^9, 3.682925069871759*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"list", ",", RowBox[{"i", "+", RowBox[{"I", " ", "j"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "2", ",", "0.5"}], "}"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "Table", " ", "will", " ", "do", " ", "much", " ", "better", " ", "and", " ", "AppendTo", " ", "is", " ", "slow"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.682925054913203*^9, 3.6829251244742036`*^9}, { 3.6829251588513956`*^9, 3.682925206703004*^9}}], Cell[BoxData["list"], "Input", CellChangeTimes->{{3.6829251172897296`*^9, 3.6829251393606863`*^9}}], Cell["\<\ For[i=1,i < 4, i++, AppendTo[list2,i] ] is similar, but not identical, to \ most languages \ \>", "Text", CellChangeTimes->{{3.6829252206011896`*^9, 3.6829252607753935`*^9}, { 3.6829252922930145`*^9, 3.6829253116181803`*^9}, {3.6829253969855504`*^9, 3.682925414822017*^9}}], Cell[BoxData[ RowBox[{"list2", "=", RowBox[{"{", "}"}]}]], "Input", CellChangeTimes->{{3.682925432889778*^9, 3.682925438875886*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "4"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"AppendTo", "[", RowBox[{"list2", ",", "i"}], "]"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "the", " ", "previous", " ", "instruction", " ", "requires", " ", "two", " ", "nested", " ", RowBox[{"For", "[", " ", "]"}], "s"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.6829252677967854`*^9, 3.6829252684445887`*^9}, { 3.6829254274323125`*^9, 3.6829254662536025`*^9}, {3.682931287858564*^9, 3.682931288704565*^9}}, EmphasizeSyntaxErrors->True], Cell[BoxData["list2"], "Input", CellChangeTimes->{{3.6829254440808544`*^9, 3.6829254451829915`*^9}}], Cell["\<\ If[ ] is different: it has branches for True, False, and Indeterminate\ \>", "Text", CellChangeTimes->{{3.682930651121394*^9, 3.682930675643143*^9}, { 3.7014526544795785`*^9, 3.701452670990942*^9}}], Cell[BoxData[ RowBox[{"a", "=", "2"}]], "Input", CellChangeTimes->{{3.6829306816316843`*^9, 3.682930682748784*^9}}], Cell[BoxData[ RowBox[{"b", "=", "3"}]], "Input", CellChangeTimes->{{3.682930684814499*^9, 3.682930685696113*^9}}], Cell[BoxData[ RowBox[{"If", "[", RowBox[{ RowBox[{"a", "\[Equal]", "b"}], ",", RowBox[{"Print", "[", "True", "]"}], ",", RowBox[{"Print", "[", " ", "False", "]"}], ",", RowBox[{"Print", "[", "Indeterminate", "]"}]}], " ", "]"}]], "Input", CellChangeTimes->{{3.682930687232195*^9, 3.6829307241631727`*^9}}], Cell[BoxData[ RowBox[{"b", "=", "2"}]], "Input", CellChangeTimes->{{3.68293072778307*^9, 3.682930728635454*^9}}], Cell[BoxData[ RowBox[{"If", "[", RowBox[{ RowBox[{"a", "\[Equal]", "b"}], ",", RowBox[{"Print", "[", "True", "]"}], ",", RowBox[{"Print", "[", " ", "False", "]"}], ",", RowBox[{"Print", "[", "Indeterminate", "]"}]}], " ", "]"}]], "Input"], Cell[BoxData[ RowBox[{"b", "=", "anything"}]], "Input", CellChangeTimes->{{3.682930744111722*^9, 3.6829307527236366`*^9}}], Cell[BoxData[ RowBox[{"If", "[", RowBox[{ RowBox[{"a", "\[Equal]", "b"}], ",", RowBox[{"Print", "[", "True", "]"}], ",", RowBox[{"Print", "[", " ", "False", "]"}], ",", RowBox[{"Print", "[", "Indeterminate", "]"}]}], " ", "]"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio - Propagar incerteza por \ simula\[CCedilla]\[ATilde]o", "Section", CellChangeTimes->{{3.7014532149718904`*^9, 3.7014532268152313`*^9}}], Cell[TextData[{ "6) Propagar incerteza por simula\[CCedilla]\[ATilde]o\nDesenvolver 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.\n\ i.\tDefina uma fun\[CCedilla]\[ATilde]o da vari\[AAcute]vel x, por exemplo \ f(x) = sen(5x)\nii.\tSimule uma medida de x com 10 dados, {x}, com \ m\[EAcute]dia e desvio-padr\[ATilde]o x0 e s0 a sua escolha.\niii.\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.\niv.\tConstrua um grande \ conjunto de valores aleat\[OAcute]rios, {z}, de m\[EAcute]dia xm e \ desvio-padr\[ATilde]o sm.\nv.\tDetermine o conjunto dos valores calculados de \ f(zi).\nvi.\tDetermine a m\[EAcute]dia e o desvio-padr\[ATilde]o dos valores \ do conjunto do item anterior.\nvii.\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.\n\ 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.\nix.\tTeste a fun\[CCedilla]\[ATilde]o com as escolhas dos \ itens i e ii. 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.\nx.\tAplique sua \ fun\[CCedilla]\[ATilde]o nos casos:\na)\ts(x) = \[Pi] ", Cell[BoxData[ FormBox[ SuperscriptBox["x", "2"], TraditionalForm]], FormatType->"TraditionalForm"], ", com x0 = 10.0 e \[Sigma]0 = 1.0\nb)\tg(x) = exp( - 5 t ) com t0 = 2,110 e \ s0 = 0,012\nc)\th(x) = exp( -5 t ) com t0 = 2,11 e s0 = 0,12\nNesses casos, \ compare os resultados de simula\[CCedilla]\[ATilde]o com aqueles da \ f\[OAcute]rmula anal\[IAcute]tica.\n" }], "Text", CellChangeTimes->{{3.7014532326991467`*^9, 3.7014532847124724`*^9}}] }, Open ]] }, Open ]] }, WindowSize->{1350, 709}, WindowMargins->{{-8, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.1999999999999, 841.68}}, Magnification:>1.3 Inherited, FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (September 21, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 182, 2, 131, "Title"], Cell[CellGroupData[{ Cell[787, 28, 121, 1, 91, "Section"], Cell[911, 31, 245, 6, 39, "Input"], Cell[1159, 39, 175, 4, 39, "Text"], Cell[1337, 45, 671, 16, 65, "Input"], Cell[2011, 63, 167, 3, 39, "Input"], Cell[2181, 68, 212, 5, 39, "Input"], Cell[2396, 75, 169, 3, 39, "Input"], Cell[2568, 80, 118, 2, 39, "Input"], Cell[2689, 84, 185, 2, 39, "Text"], Cell[2877, 88, 263, 6, 39, "Input"], Cell[3143, 96, 134, 2, 39, "Input"], Cell[3280, 100, 220, 5, 39, "Input"], Cell[3503, 107, 132, 1, 39, "Text"], Cell[3638, 110, 295, 7, 39, "Input"], Cell[3936, 119, 181, 4, 39, "Text"], Cell[4120, 125, 712, 18, 39, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[4869, 148, 88, 1, 91, "Section"], Cell[CellGroupData[{ Cell[4982, 153, 187, 4, 49, "Subsubsection"], Cell[5172, 159, 170, 4, 39, "Input"], Cell[5345, 165, 131, 2, 39, "Input"], Cell[5479, 169, 286, 7, 39, "Input"], Cell[5768, 178, 148, 3, 39, "Input"], Cell[5919, 183, 321, 9, 39, "Input"], Cell[6243, 194, 188, 4, 39, "Text"], Cell[6434, 200, 278, 8, 39, "Input"], Cell[6715, 210, 271, 5, 64, "Text"], Cell[6989, 217, 240, 7, 39, "Input"], Cell[7232, 226, 158, 3, 39, "Text"], Cell[7393, 231, 294, 7, 39, "Input"], Cell[7690, 240, 294, 7, 39, "Input"], Cell[7987, 249, 670, 19, 39, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[8694, 273, 116, 1, 61, "Subsection"], Cell[8813, 276, 272, 7, 39, "Input"], Cell[9088, 285, 270, 7, 39, "Input"], Cell[9361, 294, 181, 4, 39, "Input"], Cell[9545, 300, 182, 4, 39, "Input"], Cell[9730, 306, 875, 24, 39, "Input"], Cell[10608, 332, 828, 24, 39, "Input"], Cell[11439, 358, 536, 14, 39, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12024, 378, 106, 1, 91, "Section"], Cell[12133, 381, 473, 10, 39, "Input"], Cell[12609, 393, 371, 10, 39, "Input"], Cell[12983, 405, 183, 2, 39, "Text"], Cell[13169, 409, 136, 3, 39, "Input"], Cell[13308, 414, 653, 17, 39, "Input"], Cell[13964, 433, 100, 1, 39, "Input"], Cell[14067, 436, 289, 6, 39, "Text"], Cell[14359, 444, 137, 3, 39, "Input"], Cell[14499, 449, 651, 17, 39, "Input"], Cell[15153, 468, 101, 1, 39, "Input"], Cell[15257, 471, 211, 4, 39, "Text"], Cell[15471, 477, 117, 2, 39, "Input"], Cell[15591, 481, 115, 2, 39, "Input"], Cell[15709, 485, 325, 7, 39, "Input"], Cell[16037, 494, 114, 2, 39, "Input"], Cell[16154, 498, 257, 6, 39, "Input"], Cell[16414, 506, 124, 2, 39, "Input"], Cell[16541, 510, 257, 6, 39, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[16835, 521, 161, 2, 91, "Section"], Cell[16999, 525, 2204, 33, 490, "Text"] }, Open ]] }, Open ]] } ] *)