(* 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[ 54236, 1529] NotebookOptionsPosition[ 51615, 1434] NotebookOutlinePosition[ 51962, 1449] CellTagsIndexPosition[ 51919, 1446] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Definindo uma nova fun\[CCedilla]\[ATilde]o densidade de \ probabilidade", "Section", CellChangeTimes->{{3.6216826211303453`*^9, 3.621682633361538*^9}}], Cell[TextData[{ "aten\[CCedilla]\[ATilde]o, o ", StyleBox["Mathematica", FontSlant->"Italic"], " tem uma centena de distribui\[CCedilla]\[OTilde]es predefinidas - veja em \ ParametricStatisticalDistributions se a fun\[CCedilla]\[ATilde]o que voce \ precisa j\[AAcute] n\[ATilde]o est\[AAcute] definida!\n\n9/10/2014" }], "Text", CellChangeTimes->{{3.621682645174903*^9, 3.621682650706552*^9}, { 3.6216826970968328`*^9, 3.621682757002977*^9}, {3.621699659331483*^9, 3.621699693706623*^9}, 3.621700688159874*^9, {3.6218012554904227`*^9, 3.621801268287925*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v", "=", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"2", ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}]}], "]"}], "+", " ", RowBox[{"DiagonalMatrix", "[", " ", RowBox[{"ConstantArray", "[", RowBox[{"2", ",", "3"}], "]"}], " ", "]"}]}]}]], "Input", CellChangeTimes->{{3.6217008252702246`*^9, 3.6217008814584384`*^9}, { 3.6217009274716034`*^9, 3.621700929956164*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "4"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.6217008821928773`*^9, {3.6217009143612547`*^9, 3.621700932393835*^9}, 3.621781225005023*^9, 3.621799964835928*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MultinormalDistribution", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "15", ",", "20"}], "}"}], ",", "v"}], "]"}]], "Input", CellChangeTimes->{{3.6217009415976343`*^9, 3.621700971393339*^9}}], Cell[BoxData[ RowBox[{"MultinormalDistribution", "[", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "15", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "4"}], "}"}]}], "}"}]}], "]"}]], "Output", CellChangeTimes->{3.621700972377783*^9, 3.621781225083117*^9, 3.621799964914049*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"u", "=", RowBox[{"RandomVariate", "[", " ", RowBox[{ RowBox[{"MultinormalDistribution", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "15", ",", "20"}], "}"}], ",", "v"}], "]"}], " ", ",", "10000"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6217009766906133`*^9, 3.6217010047708035`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "u", "]"}]], "Input", CellChangeTimes->{{3.621701008317931*^9, 3.6217010101149426`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "9.999965817720982`", ",", "15.006819778487944`", ",", "20.02078005830478`"}], "}"}]], "Output", CellChangeTimes->{3.6217010107243524`*^9, 3.6217812252862525`*^9, 3.6217999654453235`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Covariance", "[", "u", "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.6217010131464043`*^9, 3.6217010248464794`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"4.041103245042494`", "2.064198084853457`", "2.067918176152839`"}, {"2.064198084853457`", "4.090509835887132`", "2.077307368681873`"}, {"2.0679181761528396`", "2.0773073686818733`", "4.0962800562643915`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.62170101906872*^9, 3.6217010254090157`*^9}, 3.621781225380006*^9, 3.6217999655703278`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram3D", "[", RowBox[{"u", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "]"}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.6217010346128173`*^9, 3.621701040769521*^9}, { 3.621701083001342*^9, 3.6217011099095683`*^9}}], Cell[BoxData[ Graphics3DBox[ {RGBColor[0.9045776, 0.6888327999999999, 0.31364080000000005`], EdgeForm[ RGBColor[0.880722, 0.611041, 0.142051]], StyleBox[{{}, {RGBColor[0.9045776, 0.6888327999999999, 0.31364080000000005`], EdgeForm[ RGBColor[0.880722, 0.611041, 0.142051]], StyleBox[{{{}, CuboidBox[{7., 16., 0.}, {8., 17., 1.}]}, {{}, CuboidBox[{8., 11., 0.}, {9., 12., 1.}]}, {{}, CuboidBox[{8., 12., 0.}, {9., 13., 1.}]}, {{}, CuboidBox[{8., 14., 0.}, {9., 15., 1.}]}, {{}, CuboidBox[{8., 15., 0.}, {9., 16., 2.}]}, {{}, CuboidBox[{8., 16., 0.}, {9., 17., 1.}]}, {{}, CuboidBox[{8., 17., 0.}, {9., 18., 1.}]}, {{}, CuboidBox[{8., 18., 0.}, {9., 19., 2.}]}, {{}, CuboidBox[{8., 19., 0.}, {9., 20., 2.}]}, {{}, CuboidBox[{8., 20., 0.}, {9., 21., 1.}]}, {{}, CuboidBox[{9., 13., 0.}, {10., 14., 3.}]}, {{}, CuboidBox[{9., 14., 0.}, {10., 15., 2.}]}, {{}, CuboidBox[{9., 15., 0.}, {10., 16., 14.}]}, {{}, CuboidBox[{9., 16., 0.}, {10., 17., 14.}]}, {{}, CuboidBox[{9., 17., 0.}, {10., 18., 11.}]}, {{}, CuboidBox[{9., 18., 0.}, {10., 19., 10.}]}, {{}, CuboidBox[{9., 19., 0.}, {10., 20., 5.}]}, {{}, CuboidBox[{9., 20., 0.}, {10., 21., 2.}]}, {{}, CuboidBox[{10., 12., 0.}, {11., 13., 1.}]}, {{}, CuboidBox[{10., 13., 0.}, {11., 14., 3.}]}, {{}, CuboidBox[{10., 14., 0.}, {11., 15., 6.}]}, {{}, CuboidBox[{10., 15., 0.}, {11., 16., 17.}]}, {{}, CuboidBox[{10., 16., 0.}, {11., 17., 24.}]}, {{}, CuboidBox[{10., 17., 0.}, {11., 18., 43.}]}, {{}, CuboidBox[{10., 18., 0.}, {11., 19., 50.}]}, {{}, CuboidBox[{10., 19., 0.}, {11., 20., 32.}]}, {{}, CuboidBox[{10., 20., 0.}, {11., 21., 15.}]}, {{}, CuboidBox[{10., 21., 0.}, {11., 22., 2.}]}, {{}, CuboidBox[{11., 13., 0.}, {12., 14., 3.}]}, {{}, CuboidBox[{11., 14., 0.}, {12., 15., 5.}]}, {{}, CuboidBox[{11., 15., 0.}, {12., 16., 20.}]}, {{}, CuboidBox[{11., 16., 0.}, {12., 17., 59.}]}, {{}, CuboidBox[{11., 17., 0.}, {12., 18., 85.}]}, {{}, CuboidBox[{11., 18., 0.}, {12., 19., 103.}]}, {{}, CuboidBox[{11., 19., 0.}, {12., 20., 78.}]}, {{}, CuboidBox[{11., 20., 0.}, {12., 21., 54.}]}, {{}, CuboidBox[{11., 21., 0.}, {12., 22., 15.}]}, {{}, CuboidBox[{11., 23., 0.}, {12., 24., 2.}]}, {{}, CuboidBox[{12., 13., 0.}, {13., 14., 1.}]}, {{}, CuboidBox[{12., 14., 0.}, {13., 15., 11.}]}, {{}, CuboidBox[{12., 15., 0.}, {13., 16., 52.}]}, {{}, CuboidBox[{12., 16., 0.}, {13., 17., 99.}]}, {{}, CuboidBox[{12., 17., 0.}, {13., 18., 159.}]}, {{}, CuboidBox[{12., 18., 0.}, {13., 19., 192.}]}, {{}, CuboidBox[{12., 19., 0.}, {13., 20., 160.}]}, {{}, CuboidBox[{12., 20., 0.}, {13., 21., 141.}]}, {{}, CuboidBox[{12., 21., 0.}, {13., 22., 63.}]}, {{}, CuboidBox[{12., 22., 0.}, {13., 23., 27.}]}, {{}, CuboidBox[{12., 24., 0.}, {13., 25., 1.}]}, {{}, CuboidBox[{13., 13., 0.}, {14., 14., 3.}]}, {{}, CuboidBox[{13., 14., 0.}, {14., 15., 3.}]}, {{}, CuboidBox[{13., 15., 0.}, {14., 16., 39.}]}, {{}, CuboidBox[{13., 16., 0.}, {14., 17., 88.}]}, {{}, CuboidBox[{13., 17., 0.}, {14., 18., 207.}]}, {{}, CuboidBox[{13., 18., 0.}, {14., 19., 302.}]}, {{}, CuboidBox[{13., 19., 0.}, {14., 20., 320.}]}, {{}, CuboidBox[{13., 20., 0.}, {14., 21., 257.}]}, {{}, CuboidBox[{13., 21., 0.}, {14., 22., 160.}]}, {{}, CuboidBox[{13., 22., 0.}, {14., 23., 73.}]}, {{}, CuboidBox[{13., 23., 0.}, {14., 24., 18.}]}, {{}, CuboidBox[{13., 24., 0.}, {14., 25., 3.}]}, {{}, CuboidBox[{13., 25., 0.}, {14., 26., 3.}]}, {{}, CuboidBox[{14., 14., 0.}, {15., 15., 7.}]}, {{}, CuboidBox[{14., 15., 0.}, {15., 16., 17.}]}, {{}, CuboidBox[{14., 16., 0.}, {15., 17., 74.}]}, {{}, CuboidBox[{14., 17., 0.}, {15., 18., 189.}]}, {{}, CuboidBox[{14., 18., 0.}, {15., 19., 343.}]}, {{}, CuboidBox[{14., 19., 0.}, {15., 20., 424.}]}, {{}, CuboidBox[{14., 20., 0.}, {15., 21., 384.}]}, {{}, CuboidBox[{14., 21., 0.}, {15., 22., 255.}]}, {{}, CuboidBox[{14., 22., 0.}, {15., 23., 143.}]}, {{}, CuboidBox[{14., 23., 0.}, {15., 24., 66.}]}, {{}, CuboidBox[{14., 24., 0.}, {15., 25., 7.}]}, {{}, CuboidBox[{14., 25., 0.}, {15., 26., 2.}]}, {{}, CuboidBox[{15., 14., 0.}, {16., 15., 5.}]}, {{}, CuboidBox[{15., 15., 0.}, {16., 16., 10.}]}, {{}, CuboidBox[{15., 16., 0.}, {16., 17., 38.}]}, {{}, CuboidBox[{15., 17., 0.}, {16., 18., 119.}]}, {{}, CuboidBox[{15., 18., 0.}, {16., 19., 263.}]}, {{}, CuboidBox[{15., 19., 0.}, {16., 20., 364.}]}, {{}, CuboidBox[{15., 20., 0.}, {16., 21., 389.}]}, {{}, CuboidBox[{15., 21., 0.}, {16., 22., 350.}]}, {{}, CuboidBox[{15., 22., 0.}, {16., 23., 177.}]}, {{}, CuboidBox[{15., 23., 0.}, {16., 24., 75.}]}, {{}, CuboidBox[{15., 24., 0.}, {16., 25., 20.}]}, {{}, CuboidBox[{15., 25., 0.}, {16., 26., 2.}]}, {{}, CuboidBox[{16., 14., 0.}, {17., 15., 1.}]}, {{}, CuboidBox[{16., 15., 0.}, {17., 16., 4.}]}, {{}, CuboidBox[{16., 16., 0.}, {17., 17., 30.}]}, {{}, CuboidBox[{16., 17., 0.}, {17., 18., 69.}]}, {{}, CuboidBox[{16., 18., 0.}, {17., 19., 165.}]}, {{}, CuboidBox[{16., 19., 0.}, {17., 20., 257.}]}, {{}, CuboidBox[{16., 20., 0.}, {17., 21., 363.}]}, {{}, CuboidBox[{16., 21., 0.}, {17., 22., 322.}]}, {{}, CuboidBox[{16., 22., 0.}, {17., 23., 210.}]}, {{}, CuboidBox[{16., 23., 0.}, {17., 24., 94.}]}, {{}, CuboidBox[{16., 24., 0.}, {17., 25., 24.}]}, {{}, CuboidBox[{16., 25., 0.}, {17., 26., 10.}]}, {{}, CuboidBox[{16., 26., 0.}, {17., 27., 3.}]}, {{}, CuboidBox[{16., 27., 0.}, {17., 28., 1.}]}, {{}, CuboidBox[{17., 16., 0.}, {18., 17., 15.}]}, {{}, CuboidBox[{17., 17., 0.}, {18., 18., 23.}]}, {{}, CuboidBox[{17., 18., 0.}, {18., 19., 66.}]}, {{}, CuboidBox[{17., 19., 0.}, {18., 20., 131.}]}, {{}, CuboidBox[{17., 20., 0.}, {18., 21., 198.}]}, {{}, CuboidBox[{17., 21., 0.}, {18., 22., 223.}]}, {{}, CuboidBox[{17., 22., 0.}, {18., 23., 173.}]}, {{}, CuboidBox[{17., 23., 0.}, {18., 24., 106.}]}, {{}, CuboidBox[{17., 24., 0.}, {18., 25., 38.}]}, {{}, CuboidBox[{17., 25., 0.}, {18., 26., 15.}]}, {{}, CuboidBox[{17., 26., 0.}, {18., 27., 1.}]}, {{}, CuboidBox[{18., 16., 0.}, {19., 17., 1.}]}, {{}, CuboidBox[{18., 17., 0.}, {19., 18., 7.}]}, {{}, CuboidBox[{18., 18., 0.}, {19., 19., 14.}]}, {{}, CuboidBox[{18., 19., 0.}, {19., 20., 44.}]}, {{}, CuboidBox[{18., 20., 0.}, {19., 21., 71.}]}, {{}, CuboidBox[{18., 21., 0.}, {19., 22., 107.}]}, {{}, CuboidBox[{18., 22., 0.}, {19., 23., 80.}]}, {{}, CuboidBox[{18., 23., 0.}, {19., 24., 55.}]}, {{}, CuboidBox[{18., 24., 0.}, {19., 25., 33.}]}, {{}, CuboidBox[{18., 25., 0.}, {19., 26., 19.}]}, {{}, CuboidBox[{18., 26., 0.}, {19., 27., 3.}]}, {{}, CuboidBox[{18., 27., 0.}, {19., 28., 1.}]}, {{}, CuboidBox[{19., 17., 0.}, {20., 18., 2.}]}, {{}, CuboidBox[{19., 18., 0.}, {20., 19., 7.}]}, {{}, CuboidBox[{19., 19., 0.}, {20., 20., 10.}]}, {{}, CuboidBox[{19., 20., 0.}, {20., 21., 20.}]}, {{}, CuboidBox[{19., 21., 0.}, {20., 22., 35.}]}, {{}, CuboidBox[{19., 22., 0.}, {20., 23., 42.}]}, {{}, CuboidBox[{19., 23., 0.}, {20., 24., 26.}]}, {{}, CuboidBox[{19., 24., 0.}, {20., 25., 17.}]}, {{}, CuboidBox[{19., 25., 0.}, {20., 26., 10.}]}, {{}, CuboidBox[{19., 26., 0.}, {20., 27., 5.}]}, {{}, CuboidBox[{19., 27., 0.}, {20., 28., 1.}]}, {{}, CuboidBox[{20., 19., 0.}, {21., 20., 1.}]}, {{}, CuboidBox[{20., 20., 0.}, {21., 21., 2.}]}, {{}, CuboidBox[{20., 21., 0.}, {21., 22., 8.}]}, {{}, CuboidBox[{20., 22., 0.}, {21., 23., 7.}]}, {{}, CuboidBox[{20., 23., 0.}, {21., 24., 10.}]}, {{}, CuboidBox[{20., 24., 0.}, {21., 25., 6.}]}, {{}, CuboidBox[{20., 25., 0.}, {21., 26., 5.}]}, {{}, CuboidBox[{20., 26., 0.}, {21., 27., 2.}]}, {{}, CuboidBox[{21., 20., 0.}, {22., 21., 1.}]}, {{}, CuboidBox[{21., 22., 0.}, {22., 23., 2.}]}, {{}, CuboidBox[{21., 23., 0.}, {22., 24., 1.}]}, {{}, CuboidBox[{21., 24., 0.}, {22., 25., 4.}]}, {{}, CuboidBox[{21., 25., 0.}, {22., 26., 1.}]}, {{}, CuboidBox[{22., 22., 0.}, {23., 23., 1.}]}, {{}, CuboidBox[{22., 24., 0.}, {23., 25., 1.}]}}, FontColor->GrayLevel[0.4]]}, {}, {}}, FontColor->GrayLevel[0.4]]}, Axes->{True, True, True}, AxesLabel->{None, None, None}, BoxRatios->{1, 1, 0.4}, FaceGridsStyle->Automatic, Lighting->"Neutral", Method->{"RotationControl" -> "Globe"}, PlotRange->{{7., 23.}, {11., 28.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic, Automatic}]], "Output", CellChangeTimes->{{3.62170107908484*^9, 3.6217011104408655`*^9}, 3.621781228192648*^9, 3.62179996908613*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Definindo uma pdf", "Section", CellChangeTimes->{{3.6217011961924458`*^9, 3.6217012018771405`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"px4", "=", RowBox[{"ProbabilityDistribution", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"x", "^", "4"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "Infinity"}], ",", "Infinity"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.621701218440854*^9, {3.6217812609001107`*^9, 3.6217812640564804`*^9}}], Cell[BoxData[ RowBox[{"ProbabilityDistribution", "[", RowBox[{ FractionBox["1", RowBox[{"1", "+", SuperscriptBox["\[FormalX]", "4"]}]], ",", RowBox[{"{", RowBox[{"\[FormalX]", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}]], "Output", CellChangeTimes->{3.621701177581691*^9, 3.6217012190971575`*^9, 3.62178122858329*^9, 3.6217812654472103`*^9, 3.6217999694455357`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{"px4", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "Infinity"}], ",", "Infinity"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6217815875164404`*^9, 3.6217816236131983`*^9}}], Cell[BoxData[ FractionBox["\[Pi]", SqrtBox["2"]]], "Output", CellChangeTimes->{3.621781625739641*^9, 3.621799970351818*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"px4", "=", " ", RowBox[{"ProbabilityDistribution", "[", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], "/", RowBox[{"(", RowBox[{"Pi", RowBox[{"(", RowBox[{"1", "+", RowBox[{"x", "^", "4"}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "Infinity"}], ",", "Infinity"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.621781638615321*^9, 3.621781684561232*^9}}], Cell[BoxData[ RowBox[{"ProbabilityDistribution", "[", RowBox[{ FractionBox[ SqrtBox["2"], RowBox[{ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[FormalX]", "4"]}], ")"}], " ", "\[Pi]"}]], ",", RowBox[{"{", RowBox[{"\[FormalX]", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}]], "Output", CellChangeTimes->{{3.6217816774514675`*^9, 3.621781685765264*^9}, 3.6217999705236998`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"q", "=", RowBox[{"RandomVariate", "[", RowBox[{"px4", ",", "1000"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6217815047886715`*^9, 3.6217815362758512`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{"q", ",", "20"}], "]"}]], "Input", CellChangeTimes->{{3.62178154010488*^9, 3.621781557887031*^9}, { 3.621781703359894*^9, 3.6217817079809856`*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.5389999999999999], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.5389999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-12., 0}, {-10., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.235188150520415`, 41.833423260347416`}, { 91.99479313598867, 92.89508330259386}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-10., 0}, {-8., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{41.333423260347416`, 55.931658370174404`}, { 91.99479313598867, 92.89508330259386}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-6., 0}, {-4., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{69.52989348000139, 84.12812858982838}, { 91.1942128027783, 92.89508330259386}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-4., 0}, {-2., 11}, "RoundingRadius" -> 0]}, ImageSizeCache->{{83.62812858982838, 98.22636369965538}, { 87.99189146993679, 92.89508330259386}}], StatusArea[#, 11]& , TagBoxNote->"11"], StyleBox["11", {}, StripOnInput -> False]], Annotation[#, Style[11, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-2., 0}, {0., 482}, "RoundingRadius" -> 0]}, ImageSizeCache->{{97.72636369965538, 112.32459880948237`}, {-100.54477700110667`, 92.89508330259386}}], StatusArea[#, 482]& , TagBoxNote->"482"], StyleBox["482", {}, StripOnInput -> False]], Annotation[#, Style[482, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {2., 485}, "RoundingRadius" -> 0]}, ImageSizeCache->{{111.82459880948237`, 126.42283391930935`}, {-101.74564750092222`, 92.89508330259386}}], StatusArea[#, 485]& , TagBoxNote->"485"], StyleBox["485", {}, StripOnInput -> False]], Annotation[#, Style[485, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {4., 14}, "RoundingRadius" -> 0]}, ImageSizeCache->{{125.92283391930935`, 140.52106902913636`}, { 86.79102097012124, 92.89508330259386}}], StatusArea[#, 14]& , TagBoxNote->"14"], StyleBox["14", {}, StripOnInput -> False]], Annotation[#, Style[14, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0}, {6., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{140.02106902913636`, 154.61930413896334`}, { 91.99479313598867, 92.89508330259386}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0}, {8., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{154.11930413896334`, 168.71753924879033`}, { 91.99479313598867, 92.89508330259386}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{32., 0}, {34., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{337.39636056671424`, 351.9945956765412}, { 91.99479313598867, 92.89508330259386}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-12.92, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{-12., 34.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.621781545464524*^9, 3.621781559153504*^9}, { 3.621781694890718*^9, 3.6217817088403687`*^9}, 3.6217999714299974`*^9}] }, Open ]], Cell["A fun\[CCedilla]\[ATilde]o de perda de energia por excita\[CCedilla]\ \[ATilde]o atomica", "Text", CellChangeTimes->{{3.621799988181881*^9, 3.6218000154332323`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"r", "[", RowBox[{"e_", ",", "emin_", ",", "emax_"}], "]"}], ":=", RowBox[{ RowBox[{"ProbabilityDistribution", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"e", " ", RowBox[{"Log", "[", RowBox[{"emax", "/", "emin"}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"e", ",", "emin", ",", "emax"}], "}"}]}], "]"}], "/;", RowBox[{"emax", ">", "emin", ">", "0"}]}]}]], "Input", CellChangeTimes->{{3.621800041748235*^9, 3.6218001706217117`*^9}, { 3.621800223698594*^9, 3.621800275634082*^9}, {3.6218003198832636`*^9, 3.6218003240709662`*^9}, {3.621800414274358*^9, 3.621800432057043*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r", "[", RowBox[{"e", ",", "1", ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.621800280290554*^9, 3.6218002837126284`*^9}}], Cell[BoxData[ RowBox[{"ProbabilityDistribution", "[", RowBox[{ FractionBox["1", RowBox[{"\[FormalX]", " ", RowBox[{"Log", "[", "5", "]"}]}]], ",", RowBox[{"{", RowBox[{"\[FormalX]", ",", "1", ",", "5"}], "}"}]}], "]"}]], "Output", CellChangeTimes->{3.621800285150172*^9, 3.6218004385729666`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r", "[", RowBox[{"e", ",", "3", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.6218004414324837`*^9, 3.6218004460689287`*^9}}], Cell[BoxData[ RowBox[{"r", "[", RowBox[{"e", ",", "3", ",", "1"}], "]"}]], "Output", CellChangeTimes->{3.6218004465845537`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r", "[", RowBox[{"e", ",", RowBox[{"-", "1"}], ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.6218004531473923`*^9, 3.621800457788248*^9}}], Cell[BoxData[ RowBox[{"r", "[", RowBox[{"e", ",", RowBox[{"-", "1"}], ",", "5"}], "]"}]], "Output", CellChangeTimes->{3.621800458366396*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"1", "/", "e"}], ",", RowBox[{"{", RowBox[{"e", ",", "emin", ",", "emax"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"emax", ">", "emin", ">", "0"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.621800310882805*^9, 3.6218003889605803`*^9}}], Cell[BoxData[ RowBox[{"Log", "[", FractionBox["emax", "emin"], "]"}]], "Output", CellChangeTimes->{3.6218003926638927`*^9}] }, Open ]], Cell["a distribui\[CCedilla]\[ATilde]o de Landau", "Text", CellChangeTimes->{{3.6218006432239103`*^9, 3.6218006489436207`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"u", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"r", "[", RowBox[{"e", ",", "1", ",", "1000"}], "]"}], ",", "100000"}], " ", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6218005448676205`*^9, 3.621800598908204*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "u", "]"}]], "Input", CellChangeTimes->{{3.6218006224093685`*^9, 3.621800626551206*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.5599999999999999], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {50., 56323}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.86764705882353, 56.66176470588235}, {-96.90387027726887, 86.73414256553089}}], StatusArea[#, 56323]& , TagBoxNote->"56323"], StyleBox["56323", {}, StripOnInput -> False]], Annotation[#, Style[56323, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{50., 0}, {100., 9954}, "RoundingRadius" -> 0]}, ImageSizeCache->{{56.16176470588235, 71.95588235294117}, { 53.8680438165788, 86.73414256553089}}], StatusArea[#, 9954]& , TagBoxNote->"9954"], StyleBox["9954", {}, StripOnInput -> False]], Annotation[#, Style[9954, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{100., 0}, {150., 6006}, "RoundingRadius" -> 0]}, ImageSizeCache->{{71.45588235294117, 87.25}, {66.70523066215473, 86.73414256553089}}], StatusArea[#, 6006]& , TagBoxNote->"6006"], StyleBox["6006", {}, StripOnInput -> False]], Annotation[#, Style[6006, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{150., 0}, {200., 4234}, "RoundingRadius" -> 0]}, ImageSizeCache->{{86.75, 102.54411764705881`}, {72.4670075340799, 86.73414256553089}}], StatusArea[#, 4234]& , TagBoxNote->"4234"], StyleBox["4234", {}, StripOnInput -> False]], Annotation[#, Style[4234, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{200., 0}, {250., 3206}, "RoundingRadius" -> 0]}, ImageSizeCache->{{102.04411764705881`, 117.83823529411765`}, { 75.80961849589653, 86.73414256553089}}], StatusArea[#, 3206]& , TagBoxNote->"3206"], StyleBox["3206", {}, StripOnInput -> False]], Annotation[#, Style[3206, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{250., 0}, {300., 2629}, "RoundingRadius" -> 0]}, ImageSizeCache->{{117.33823529411765`, 133.13235294117646`}, { 77.68577270306403, 86.73414256553089}}], StatusArea[#, 2629]& , TagBoxNote->"2629"], StyleBox["2629", {}, StripOnInput -> False]], Annotation[#, Style[2629, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{300., 0}, {350., 2245}, "RoundingRadius" -> 0]}, ImageSizeCache->{{132.63235294117646`, 148.42647058823528`}, { 78.93437446312005, 86.73414256553089}}], StatusArea[#, 2245]& , TagBoxNote->"2245"], StyleBox["2245", {}, StripOnInput -> False]], Annotation[#, Style[2245, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{350., 0}, {400., 1962}, "RoundingRadius" -> 0]}, ImageSizeCache->{{147.92647058823528`, 163.72058823529412`}, { 79.85456794774467, 86.73414256553089}}], StatusArea[#, 1962]& , TagBoxNote->"1962"], StyleBox["1962", {}, StripOnInput -> False]], Annotation[#, Style[1962, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{400., 0}, {450., 1720}, "RoundingRadius" -> 0]}, ImageSizeCache->{{163.22058823529412`, 179.01470588235293`}, { 80.64144718194665, 86.73414256553089}}], StatusArea[#, 1720]& , TagBoxNote->"1720"], StyleBox["1720", {}, StripOnInput -> False]], Annotation[#, Style[1720, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{450., 0}, {500., 1565}, "RoundingRadius" -> 0]}, ImageSizeCache->{{178.51470588235293`, 194.30882352941177`}, { 81.14544007988592, 86.73414256553089}}], StatusArea[#, 1565]& , TagBoxNote->"1565"], StyleBox["1565", {}, StripOnInput -> False]], Annotation[#, Style[1565, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{500., 0}, {550., 1344}, "RoundingRadius" -> 0]}, ImageSizeCache->{{193.80882352941177`, 209.60294117647058`}, { 81.86403640533483, 86.73414256553089}}], StatusArea[#, 1344]& , TagBoxNote->"1344"], StyleBox["1344", {}, StripOnInput -> False]], Annotation[#, Style[1344, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{550., 0}, {600., 1324}, "RoundingRadius" -> 0]}, ImageSizeCache->{{209.10294117647058`, 224.8970588235294}, { 81.92906774700441, 86.73414256553089}}], StatusArea[#, 1324]& , TagBoxNote->"1324"], StyleBox["1324", {}, StripOnInput -> False]], Annotation[#, Style[1324, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{600., 0}, {650., 1158}, "RoundingRadius" -> 0]}, ImageSizeCache->{{224.3970588235294, 240.19117647058823`}, { 82.46882788286196, 86.73414256553089}}], StatusArea[#, 1158]& , TagBoxNote->"1158"], StyleBox["1158", {}, StripOnInput -> False]], Annotation[#, Style[1158, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{650., 0}, {700., 1100}, "RoundingRadius" -> 0]}, ImageSizeCache->{{239.69117647058823`, 255.48529411764704`}, { 82.65741877370375, 86.73414256553089}}], StatusArea[#, 1100]& , TagBoxNote->"1100"], StyleBox["1100", {}, StripOnInput -> False]], Annotation[#, Style[1100, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{700., 0}, {750., 1003}, "RoundingRadius" -> 0]}, ImageSizeCache->{{254.98529411764704`, 270.77941176470586`}, { 82.97282078080124, 86.73414256553089}}], StatusArea[#, 1003]& , TagBoxNote->"1003"], StyleBox["1003", {}, StripOnInput -> False]], Annotation[#, Style[1003, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{750., 0}, {800., 928}, "RoundingRadius" -> 0]}, ImageSizeCache->{{270.27941176470586`, 286.0735294117647}, { 83.21668831206217, 86.73414256553089}}], StatusArea[#, 928]& , TagBoxNote->"928"], StyleBox["928", {}, StripOnInput -> False]], Annotation[#, Style[928, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{800., 0}, {850., 881}, "RoundingRadius" -> 0]}, ImageSizeCache->{{285.5735294117647, 301.36764705882354`}, { 83.3695119649857, 86.73414256553089}}], StatusArea[#, 881]& , TagBoxNote->"881"], StyleBox["881", {}, StripOnInput -> False]], Annotation[#, Style[881, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{850., 0}, {900., 843}, "RoundingRadius" -> 0]}, ImageSizeCache->{{300.86764705882354`, 316.6617647058823}, { 83.49307151415792, 86.73414256553089}}], StatusArea[#, 843]& , TagBoxNote->"843"], StyleBox["843", {}, StripOnInput -> False]], Annotation[#, Style[843, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{900., 0}, {950., 812}, "RoundingRadius" -> 0]}, ImageSizeCache->{{316.1617647058823, 331.95588235294116`}, { 83.59387009374576, 86.73414256553089}}], StatusArea[#, 812]& , TagBoxNote->"812"], StyleBox["812", {}, StripOnInput -> False]], Annotation[#, Style[812, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{950., 0}, {1000., 763}, "RoundingRadius" -> 0]}, ImageSizeCache->{{331.45588235294116`, 347.25}, {83.75319688083624, 86.73414256553089}}], StatusArea[#, 763]& , TagBoxNote->"763"], StyleBox["763", {}, StripOnInput -> False]], Annotation[#, Style[763, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-20., 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{0., 1000.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6218006278949957`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"compress", "[", RowBox[{"u_", ",", "n_"}], "]"}], ":=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"Total", "[", RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", ";;", RowBox[{"i", "+", "n", "-", "1"}]}], "]"}], "]"}], " ", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "u", "]"}], "-", "n"}], ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6218006574909306`*^9, 3.621800717365536*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"compress", "[", RowBox[{ RowBox[{"Range", "[", "5", "]"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.621800723459581*^9, 3.621800733538233*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", "7"}], "}"}]], "Output", CellChangeTimes->{3.62180073464764*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", " ", RowBox[{"compress", "[", RowBox[{"u", ",", "12"}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.6218007406635776`*^9, 3.6218007975485063`*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.616], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.616], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {500., 282}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.02450980392157, 59.66830065359477}, { 62.34904543822947, 89.68245391336495}}], StatusArea[#, 282]& , TagBoxNote->"282"], StyleBox["282", {}, StripOnInput -> False]], Annotation[#, Style[282, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{500., 0}, {1000., 1200}, "RoundingRadius" -> 0]}, ImageSizeCache->{{59.16830065359477, 85.81209150326796}, {-25.002263002105195`, 89.68245391336495}}], StatusArea[#, 1200]& , TagBoxNote->"1200"], StyleBox["1200", {}, StripOnInput -> False]], Annotation[#, Style[1200, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1000., 0}, {1500., 1974}, "RoundingRadius" -> 0]}, ImageSizeCache->{{85.31209150326796, 111.95588235294119`}, {-98.65140541258344, 89.68245391336495}}], StatusArea[#, 1974]& , TagBoxNote->"1974"], StyleBox["1974", {}, StripOnInput -> False]], Annotation[#, Style[1974, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1500., 0}, {2000., 1959}, "RoundingRadius" -> 0]}, ImageSizeCache->{{111.45588235294119`, 138.09967320261438`}, {-97.22409645114007, 89.68245391336495}}], StatusArea[#, 1959]& , TagBoxNote->"1959"], StyleBox["1959", {}, StripOnInput -> False]], Annotation[#, Style[1959, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2000., 0}, {2500., 1491}, "RoundingRadius" -> 0]}, ImageSizeCache->{{137.59967320261438`, 164.24346405228758`}, {-52.69205685410671, 89.68245391336495}}], StatusArea[#, 1491]& , TagBoxNote->"1491"], StyleBox["1491", {}, StripOnInput -> False]], Annotation[#, Style[1491, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2500., 0}, {3000., 823}, "RoundingRadius" -> 0]}, ImageSizeCache->{{163.74346405228758`, 190.3872549019608}, { 10.870768895505009`, 89.68245391336495}}], StatusArea[#, 823]& , TagBoxNote->"823"], StyleBox["823", {}, StripOnInput -> False]], Annotation[#, Style[823, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3000., 0}, {3500., 417}, "RoundingRadius" -> 0]}, ImageSizeCache->{{189.8872549019608, 216.531045751634}, { 49.503264785239075`, 89.68245391336495}}], StatusArea[#, 417]& , TagBoxNote->"417"], StyleBox["417", {}, StripOnInput -> False]], Annotation[#, Style[417, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3500., 0}, {4000., 126}, "RoundingRadius" -> 0]}, ImageSizeCache->{{216.031045751634, 242.6748366013072}, { 77.19305863724058, 89.68245391336495}}], StatusArea[#, 126]& , TagBoxNote->"126"], StyleBox["126", {}, StripOnInput -> False]], Annotation[#, Style[126, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4000., 0}, {4500., 43}, "RoundingRadius" -> 0]}, ImageSizeCache->{{242.1748366013072, 268.8186274509804}, { 85.0908348905606, 89.68245391336495}}], StatusArea[#, 43]& , TagBoxNote->"43"], StyleBox["43", {}, StripOnInput -> False]], Annotation[#, Style[43, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4500., 0}, {5000., 17}, "RoundingRadius" -> 0]}, ImageSizeCache->{{268.3186274509804, 294.96241830065355`}, { 87.5648370903958, 89.68245391336495}}], StatusArea[#, 17]& , TagBoxNote->"17"], StyleBox["17", {}, StripOnInput -> False]], Annotation[#, Style[17, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5500., 0}, {6000., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{320.6062091503268, 347.25}, {89.08729998260206, 89.68245391336495}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-120., 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{0., 6000.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.6218007548361497`*^9, 3.62180079832977*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cios", "Section", CellChangeTimes->{{3.6218011887243433`*^9, 3.6218011914432273`*^9}}], Cell[TextData[{ "Estude o comportamento da soma de aleatorios com fdp triangular, cont\ \[IAcute]nua e diferente de zero em ]a,b[, com pico em p. Sempre verifique se \ a fdp de interesse j\[AAcute] est\[AAcute] definida no ", StyleBox["Mathematica", FontSlant->"Italic"], "." }], "Text", CellChangeTimes->{{3.6218008272801886`*^9, 3.621800887127638*^9}, { 3.62180093619409*^9, 3.6218009484134507`*^9}, {3.621801195209055*^9, 3.621801240738449*^9}}], Cell["\<\ Estude o comportamento da soma de aleatorios com fdp trapezoidal: cont\ \[IAcute]nua e diferente de zerio em ]a,b[, com valor constante entre [e,d]\ \>", "Text", CellChangeTimes->{{3.621800913646076*^9, 3.6218009857248764`*^9}, { 3.6218011543096075`*^9, 3.621801158153553*^9}}] }, Open ]] }, WindowSize->{767, 852}, WindowMargins->{{Automatic, 232}, {38, Automatic}}, FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (September 9, 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 159, 2, 63, "Section"], Cell[742, 26, 576, 11, 87, "Text"], Cell[CellGroupData[{ Cell[1343, 41, 437, 11, 31, "Input"], Cell[1783, 54, 403, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2223, 70, 234, 5, 31, "Input"], Cell[2460, 77, 499, 14, 31, "Output"] }, Open ]], Cell[2974, 94, 378, 10, 31, "Input"], Cell[CellGroupData[{ Cell[3377, 108, 125, 2, 31, "Input"], Cell[3505, 112, 237, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3779, 123, 166, 3, 31, "Input"], Cell[3948, 128, 890, 20, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4875, 153, 320, 8, 31, "Input"], Cell[5198, 163, 9814, 174, 291, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15061, 343, 106, 1, 63, "Section"], Cell[CellGroupData[{ Cell[15192, 348, 423, 12, 31, "Input"], Cell[15618, 362, 433, 11, 51, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16088, 378, 307, 8, 31, "Input"], Cell[16398, 388, 128, 3, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16563, 396, 488, 14, 31, "Input"], Cell[17054, 412, 464, 14, 57, "Output"] }, Open ]], Cell[17533, 429, 208, 5, 31, "Input"], Cell[CellGroupData[{ Cell[17766, 438, 202, 4, 31, "Input"], Cell[17971, 444, 7163, 204, 239, "Output"] }, Open ]], Cell[25149, 651, 172, 2, 30, "Text"], Cell[25324, 655, 699, 17, 52, "Input"], Cell[CellGroupData[{ Cell[26048, 676, 155, 3, 31, "Input"], Cell[26206, 681, 323, 8, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26566, 694, 157, 3, 31, "Input"], Cell[26726, 699, 132, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26895, 707, 174, 4, 31, "Input"], Cell[27072, 713, 149, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27258, 722, 333, 8, 31, "Input"], Cell[27594, 732, 128, 3, 44, "Output"] }, Open ]], Cell[27737, 738, 128, 1, 30, "Text"], Cell[27868, 741, 287, 8, 31, "Input"], Cell[CellGroupData[{ Cell[28180, 753, 130, 2, 31, "Input"], Cell[28313, 757, 13470, 384, 225, "Output"] }, Open ]], Cell[41798, 1144, 546, 16, 31, "Input"], Cell[CellGroupData[{ Cell[42369, 1164, 183, 4, 31, "Input"], Cell[42555, 1170, 114, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42706, 1178, 202, 4, 31, "Input"], Cell[42911, 1184, 7775, 221, 230, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[50735, 1411, 107, 1, 63, "Section"], Cell[50845, 1414, 459, 10, 49, "Text"], Cell[51307, 1426, 292, 5, 49, "Text"] }, Open ]] } ] *) (* End of internal cache information *)