(* 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[ 24493, 721] NotebookOptionsPosition[ 21524, 626] NotebookOutlinePosition[ 22069, 647] CellTagsIndexPosition[ 22026, 644] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Transformadas das distribui\[CCedilla]\[OTilde]es de probabilidade", \ "Title", CellChangeTimes->{{3.6221910122234073`*^9, 3.622191024693082*^9}}], Cell[CellGroupData[{ Cell["It is possible to define a PDF", "Section", CellChangeTimes->{{3.622191037221507*^9, 3.622191124252798*^9}, { 3.6828568627395883`*^9, 3.6828568733114204`*^9}}], Cell[CellGroupData[{ Cell["\<\ I\[CloseCurlyQuote]ve made this by hand, then I\[CloseCurlyQuote]m checking \ whether it is correctly normalized\ \>", "Subsubsection", CellChangeTimes->{{3.6828568883328967`*^9, 3.6828569179581575`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"2", "/", RowBox[{"(", RowBox[{"d", "-", "a", "+", "c", "-", "b"}], ")"}]}], RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{"Piecewise", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "a"}], ")"}], "/", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], ",", RowBox[{"a", "<", "x", "<", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"b", "\[LessEqual]", "x", "\[LessEqual]", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "c"}], ")"}], "/", RowBox[{"(", RowBox[{"d", "-", "c"}], ")"}]}]}], ",", RowBox[{"c", "<", "x", "<", "d"}]}], "}"}]}], "}"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "Infinity"}], ",", "Infinity"}], "}"}], ",", RowBox[{"Assumptions", "->", RowBox[{"0", "<", "a", "<", "b", "<", "c", "<", "d"}]}]}], " ", "]"}]}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.622230187084572*^9, 3.6222302063617077`*^9}, { 3.6222302459114895`*^9, 3.622230254720261*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"trapezoidalDistribution", "[", RowBox[{"x_", ",", "a_", ",", "b_", ",", "c_", ",", "d_"}], "]"}], ":=", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"n", "=", RowBox[{"2", "/", RowBox[{"(", RowBox[{"d", "-", "a", "+", "c", "-", "b"}], ")"}]}]}], "}"}], ",", RowBox[{"ProbabilityDistribution", "[", " ", RowBox[{ RowBox[{"Piecewise", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "a"}], ")"}], "/", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}]}], ",", RowBox[{"a", "<", "x", "<", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"b", "\[LessEqual]", "x", "\[LessEqual]", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"n", "-", RowBox[{"n", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "c"}], ")"}], "/", RowBox[{"(", RowBox[{"d", "-", "c"}], ")"}]}]}]}], ",", RowBox[{"c", "<", "x", "<", "d"}]}], "}"}]}], "}"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a", ",", "d"}], "}"}]}], "]"}]}], " ", "]"}], "/;", RowBox[{"0", "<", "a", "<", "b", "<", "c", "<", "d"}]}]}]], "Input", CellChangeTimes->{{3.6221903596948676`*^9, 3.62219036505464*^9}, { 3.6221911292219048`*^9, 3.6221912546296034`*^9}, {3.6221914445824714`*^9, 3.6221916391259403`*^9}, 3.622230446143978*^9, {3.622230589051735*^9, 3.6222305984274225`*^9}, {3.6712724751810446`*^9, 3.6712724760010505`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"u", "=", RowBox[{"RandomVariate", "[", " ", RowBox[{ RowBox[{"trapezoidalDistribution", "[", RowBox[{"x", ",", "1", ",", "2", ",", "5", ",", "9"}], "]"}], ",", "100000"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6222302631896305`*^9, 3.6222303251444025`*^9}}], Cell[BoxData[ RowBox[{"Histogram", "[", "u", "]"}]], "Input", CellChangeTimes->{{3.622230311240037*^9, 3.622230315690593*^9}}], Cell[BoxData[ RowBox[{"Mean", "[", " ", RowBox[{"trapezoidalDistribution", "[", RowBox[{"x", ",", "1", ",", "2", ",", "5", ",", "9"}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.6222303484429874`*^9, 3.6222303745967875`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Sequence[ ] unfolds a list giving a sequence of parameters. Useful different \ sets of parameters are used along the program\ \>", "Subsubsection", CellChangeTimes->{{3.6828569492304506`*^9, 3.6828569909407425`*^9}, { 3.6828570314531116`*^9, 3.682857063440903*^9}}], Cell[BoxData[ RowBox[{"p", "=", RowBox[{"Sequence", "[", RowBox[{"1", ",", "2", ",", "5", ",", "9"}], "]"}]}]], "Input", CellChangeTimes->{{3.622230380050317*^9, 3.622230403208267*^9}, { 3.6222306222825766`*^9, 3.62223064956584*^9}}], Cell[BoxData[ RowBox[{"m", "=", RowBox[{"Mean", "[", " ", RowBox[{"trapezoidalDistribution", "[", RowBox[{"x", ",", "p"}], "]"}], " ", "]"}]}]], "Input", CellChangeTimes->{ 3.6222304163810987`*^9, {3.6222306757830067`*^9, 3.6222306768299685`*^9}}], Cell[BoxData[ RowBox[{"\[Sigma]", "=", RowBox[{"StandardDeviation", "[", RowBox[{"trapezoidalDistribution", "[", RowBox[{"x", ",", "p"}], "]"}], " ", "]"}]}]], "Input", CellChangeTimes->{{3.6222306616448493`*^9, 3.622230686283789*^9}, { 3.622230767988931*^9, 3.622230780286703*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Test functions", "Section", CellChangeTimes->{{3.622230707113433*^9, 3.6222307143952303`*^9}, { 3.6828570955155473`*^9, 3.6828570987117987`*^9}, 3.7035354663714447`*^9}], Cell[BoxData[ RowBox[{"NormalDistribution", "[", RowBox[{"m", ",", "\[Sigma]"}], "]"}]], "Input", CellChangeTimes->{{3.622230720145652*^9, 3.622230729661978*^9}, { 3.622230786193388*^9, 3.622230786474657*^9}}], Cell[BoxData[ RowBox[{"CauchyDistribution", "[", RowBox[{"m", ",", "\[Sigma]"}], "]"}]], "Input", CellChangeTimes->{{3.6222307537378736`*^9, 3.6222307629729395`*^9}, { 3.622230793719673*^9, 3.622230796813657*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PDF", "[", " ", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"m", ",", "\[Sigma]"}], "]"}], ",", "x"}], " ", "]"}], ",", RowBox[{"PDF", "[", " ", RowBox[{ RowBox[{"CauchyDistribution", "[", RowBox[{"m", ",", "\[Sigma]"}], "]"}], ",", "x"}], "]"}], ",", RowBox[{"PDF", "[", RowBox[{ RowBox[{"trapezoidalDistribution", "[", RowBox[{"x", ",", "p"}], "]"}], ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "12"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.622230801939028*^9, 3.622230900678353*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Fun\[CCedilla]\[ATilde]o caracter\[IAcute]stica", "Section", CellChangeTimes->{{3.622230927832009*^9, 3.622230933816831*^9}}], Cell[BoxData[ RowBox[{"\[Phi]N", "=", RowBox[{"CharacteristicFunction", "[", " ", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"x0", ",", "\[Sigma]0"}], "]"}], " ", ",", "t"}], "]"}]}]], "Input", CellChangeTimes->{{3.622271035191913*^9, 3.622271039035947*^9}, { 3.62227107883006*^9, 3.622271082064664*^9}}], Cell[BoxData[ RowBox[{"CharacteristicFunction", "[", " ", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"m", ",", "\[Sigma]"}], "]"}], " ", ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.622230936270129*^9, 3.622230952708844*^9}}], Cell[BoxData[ RowBox[{"\[Phi]C", "=", RowBox[{"CharacteristicFunction", "[", " ", RowBox[{ RowBox[{"CauchyDistribution", "[", RowBox[{"\[Mu]", ",", "\[Gamma]"}], "]"}], ",", "t"}], "]"}]}]], "Input", CellChangeTimes->{{3.6222710588186407`*^9, 3.6222710613969593`*^9}, { 3.622271203190139*^9, 3.622271205768463*^9}}], Cell[BoxData[ RowBox[{"CharacteristicFunction", "[", " ", RowBox[{ RowBox[{"CauchyDistribution", "[", RowBox[{"m", ",", "\[Sigma]"}], "]"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{3.62223097203839*^9}], Cell[BoxData[ RowBox[{"\[Phi]t", "=", RowBox[{ RowBox[{"CharacteristicFunction", "[", " ", RowBox[{ RowBox[{"trapezoidalDistribution", "[", RowBox[{"x", ",", "p"}], "]"}], ",", "t"}], "]"}], "//", "FullSimplify"}]}]], "Input", CellChangeTimes->{{3.622230985064558*^9, 3.62223104417359*^9}, { 3.6222714797393064`*^9, 3.6222714920796165`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Cumulants", "Section", CellChangeTimes->{{3.622271169739685*^9, 3.6222711715210752`*^9}, 3.703535500801205*^9}], Cell[BoxData[ RowBox[{"Series", "[", " ", RowBox[{ RowBox[{"Log", "[", "\[Phi]t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.622271495876766*^9, 3.6222715222224464`*^9}}], Cell[BoxData[ RowBox[{"CumulantGeneratingFunction", "[", " ", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"m", ",", "\[Sigma]"}], "]"}], " ", ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.622271594284979*^9, 3.6222716147992706`*^9}}], Cell[BoxData[ RowBox[{"CumulantGeneratingFunction", "[", " ", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"x0", ",", "\[Sigma]0"}], "]"}], " ", ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.622271641848147*^9, 3.622271647770445*^9}}], Cell[BoxData[ RowBox[{"CumulantGeneratingFunction", "[", " ", RowBox[{ RowBox[{"CauchyDistribution", "[", RowBox[{"\[Mu]", ",", "\[Gamma]"}], "]"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.6222716592087917`*^9, 3.6222716762514167`*^9}}], Cell[BoxData[ RowBox[{"ct", "=", RowBox[{"CumulantGeneratingFunction", "[", RowBox[{ RowBox[{"trapezoidalDistribution", "[", RowBox[{"x", ",", "p"}], "]"}], ",", "t"}], "]"}]}]], "Input", CellChangeTimes->{{3.6222716896274*^9, 3.62227173272029*^9}}], Cell[BoxData[ RowBox[{"Series", "[", RowBox[{"ct", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6222717361892967`*^9, 3.6222717515498085`*^9}}], Cell[BoxData[ RowBox[{"Cumulant", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"m", ",", "\[Sigma]"}], "]"}], ",", "4"}], "]"}]], "Input", CellChangeTimes->{{3.6222718849888935`*^9, 3.622271897505435*^9}, { 3.622271937925806*^9, 3.622271944832572*^9}}], Cell[BoxData[ RowBox[{"Cumulant", "[", RowBox[{ RowBox[{"CauchyDistribution", "[", RowBox[{"m", ",", "\[Sigma]"}], "]"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.6222719112050934`*^9, 3.6222719142678175`*^9}}], Cell[BoxData[ RowBox[{"Cumulant", "[", RowBox[{ RowBox[{"trapezoidalDistribution", "[", RowBox[{"x", ",", "p"}], "]"}], ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.6222719200182447`*^9, 3.622271959364893*^9}, { 3.622272000958762*^9, 3.6222720071310844`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Relation between central moments and cumulants", "Section", CellChangeTimes->{{3.622272026616891*^9, 3.622272040549035*^9}, { 3.682857281910904*^9, 3.682857297963554*^9}}], Cell[BoxData[ RowBox[{"MomentConvert", "[", RowBox[{ RowBox[{"Cumulant", "[", "2", "]"}], ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.6222720668009644`*^9, 3.6222721028924165`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"MomentConvert", "[", RowBox[{ RowBox[{"Cumulant", "[", "2", "]"}], ",", "\"\\""}], "]"}], "//", "TraditionalForm"}]], "Input", CellChangeTimes->{{3.6222721264566393`*^9, 3.622272129331849*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"MomentConvert", "[", RowBox[{ RowBox[{"Cumulant", "[", "4", "]"}], ",", "\"\\""}], "]"}], "//", "TraditionalForm"}]], "Input", CellChangeTimes->{{3.62227213862941*^9, 3.6222721468175135`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"MomentConvert", "[", RowBox[{ RowBox[{"Cumulant", "[", "4", "]"}], ",", "\"\\""}], "]"}], "//", "TraditionalForm"}]], "Input", CellChangeTimes->{{3.622272245067311*^9, 3.622272246364276*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"MomentConvert", "[", RowBox[{ RowBox[{"CentralMoment", "[", "4", "]"}], ",", "\"\\""}], "]"}], "//", "TraditionalForm"}]], "Input", CellChangeTimes->{{3.622272179690014*^9, 3.6222722147525854`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"MomentConvert", "[", RowBox[{ RowBox[{"Moment", "[", "4", "]"}], ",", "\"\\""}], "]"}], "//", "TraditionalForm"}]], "Input", CellChangeTimes->{{3.622272228472335*^9, 3.622272229597424*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Miscelaneous", "Section", CellChangeTimes->{{3.6222722906753826`*^9, 3.6222722928317895`*^9}, { 3.682857473456993*^9, 3.6828574750282574`*^9}}], Cell[BoxData[ RowBox[{"Series", "[", " ", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"I", " ", RowBox[{"t", "/", "2"}]}], " ", "-", " ", RowBox[{ RowBox[{"t", "^", "2"}], "/", RowBox[{"(", RowBox[{"24", "\[Nu]"}], ")"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.622272302098095*^9, 3.622272339048215*^9}}], Cell[BoxData[ RowBox[{"GeneratingFunction", "[", " ", RowBox[{ RowBox[{ RowBox[{"\[Mu]", "^", "n"}], " ", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "\[Mu]"}], "]"}], "/", RowBox[{"n", "!"}]}]}], ",", "n", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.67118863861664*^9, 3.6711886462204204`*^9}, { 3.6711887082043943`*^9, 3.671188726622117*^9}, {3.6712728576497545`*^9, 3.6712728646549845`*^9}}], Cell[BoxData[ RowBox[{"GeneratingFunction", "[", RowBox[{ RowBox[{"PDF", "[", " ", RowBox[{ RowBox[{"PoissonDistribution", "[", "\[Mu]", "]"}], ",", "n"}], "]"}], ",", "n", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.6712727893089437`*^9, 3.671272830248804*^9}}], Cell[BoxData[ RowBox[{"PDF", "[", " ", RowBox[{ RowBox[{"PoissonDistribution", "[", "\[Mu]", "]"}], ",", "n"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"gf", "=", RowBox[{"GeneratingFunction", "[", " ", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"BinomialDistribution", "[", RowBox[{"number", ",", "prob"}], "]"}], ",", "n"}], "]"}], ",", "n", ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.6711887367752576`*^9, 3.6711887966787767`*^9}, { 3.671188857176423*^9, 3.6711888594132276`*^9}}], Cell[BoxData[ RowBox[{"dx2", "=", RowBox[{"TransformedDistribution", "[", RowBox[{ RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "\[Distributed]", RowBox[{"NormalDistribution", "[", RowBox[{"10.0", ",", "1.0"}], "]"}]}]}], " ", "]"}]}]], "Input", CellChangeTimes->{{3.6712730174362707`*^9, 3.671273144130354*^9}, { 3.671273260753994*^9, 3.671273264040985*^9}, {3.671273404999736*^9, 3.6712734081340866`*^9}, {3.6712737340016003`*^9, 3.671273734186597*^9}}], Cell[BoxData[ RowBox[{"pdx2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"PDF", "[", " ", RowBox[{"dx2", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "90.", ",", "110", ",", "1."}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6712731486518507`*^9, 3.6712731985015435`*^9}, { 3.671273274740924*^9, 3.671273294870663*^9}, {3.6712733282358027`*^9, 3.6712733309505677`*^9}, {3.6712733648466034`*^9, 3.6712733709334154`*^9}, { 3.671273419325632*^9, 3.6712734335172796`*^9}, {3.6712734863392057`*^9, 3.6712734929041834`*^9}, {3.671273682391285*^9, 3.671273696436591*^9}, { 3.671273738939739*^9, 3.6712737549770403`*^9}}], Cell[BoxData[ RowBox[{"ListPlot", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.671273451060432*^9, 3.6712734666207266`*^9}, { 3.67127371433105*^9, 3.6712737156634493`*^9}}], Cell[BoxData[ RowBox[{"dx22", "=", RowBox[{"TransformedDistribution", "[", RowBox[{ RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "\[Distributed]", RowBox[{"NormalDistribution", "[", RowBox[{"10.0", ",", "2.0"}], "]"}]}]}], " ", "]"}], " ", RowBox[{"(*", " ", RowBox[{"\[Distributed]", " ", RowBox[{"\[EAcute]", " ", "o", " ", "mesmo", " ", "que", " ", RowBox[{"Distributed", "[", RowBox[{"x", ",", RowBox[{"NormalDistribution", "[", RowBox[{"10", ",", "2"}], "]"}]}], " ", "]"}]}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.6712737953836656`*^9, 3.6712738011504364`*^9}, { 3.6712758861174927`*^9, 3.671275916842564*^9}}], Cell[BoxData[ RowBox[{"pdx22", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"PDF", "[", " ", RowBox[{"dx22", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "80.", ",", "110", ",", "1."}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.671273814215749*^9, 3.67127381831967*^9}, { 3.671273856972549*^9, 3.6712738573571835`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", "pdx22", "]"}]], "Input", CellChangeTimes->{{3.671273836170438*^9, 3.671273843647912*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQEhDpMur3778m6zPZjrEOJQvaFvTRB7C4TfEOLA Ni8tj0MXyj8Q4nBZaGMJuz+UzxDqUL29n9kvF8p3CHWYvu5zyJ12mP5Qh4VR s7u2zIPpD3WIM/0779ZGmP4wh2I9q9CQgzD9YQ5/9htqaJ6F6Q9zuNl10SLp Kkx/mEP5uZ3WXLdg+sMd7jb7p+nehukPd9AzD4m+eQOmP9yhh0VaXPYyTH+4 Q6B/4W2OUzD9EQ7ynwOk1+2F6Y9w8DtckCa/DqY/wsHK/nhIwWyY/giHjDSh oq2tMP2RDnsnlmmywP0f6eBv7rqxKBCmP9LhSObvb+LGMP2RDp8ftnVzC8H0 Rzmoe97vT30HC/8oh4oShkV2J6D8hiiHS8aBp9bPh/IPRDmw+jVmXiqB8hmi HaY5vlA74A7TH+3QEZ97f5IETH+0w597DFNTnjfZAwAQF5GF "]]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{79.53125000000001, 0.009182746270032432}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange->{{80., 110.}, {0.009230409428809143, 0.010183672604343325`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6828574252087536`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"trup", "=", RowBox[{"EmpiricalDistribution", "[", "u", "]"}]}]], "Input", CellChangeTimes->{{3.671275726023909*^9, 3.6712757319027023`*^9}, { 3.671275763961705*^9, 3.6712757750875883`*^9}}], Cell[BoxData[ RowBox[{"Histogram", "[", " ", RowBox[{"RandomVariate", "[", RowBox[{"trup", ",", "100000"}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.671275769239155*^9, 3.671275812901922*^9}}], Cell[BoxData[ RowBox[{"pseno", "=", RowBox[{"TransformedDistribution", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], "/", "2"}], ",", RowBox[{"x", "\[Distributed]", RowBox[{"UniformDistribution", "[", RowBox[{"{", RowBox[{"0", ",", "Pi"}], "}"}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.671276074319987*^9, 3.671276139804864*^9}, { 3.6712820404709578`*^9, 3.6712820591802263`*^9}, {3.671282094066417*^9, 3.6712821166169405`*^9}, {3.6712821571948037`*^9, 3.671282157548127*^9}}], Cell[BoxData[ RowBox[{"Histogram", "[", " ", RowBox[{"RandomVariate", "[", RowBox[{"pseno", ",", "10000"}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.6712820635528383`*^9, 3.6712820700698957`*^9}, { 3.6712821223686476`*^9, 3.671282131492053*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.7035357103364544`*^9, 3.7035357148181534`*^9}}] }, Open ]] }, Open ]] }, WindowSize->{1550, 997}, 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, 153, 2, 131, "Title"], Cell[CellGroupData[{ Cell[758, 28, 168, 2, 91, "Section"], Cell[CellGroupData[{ Cell[951, 34, 215, 4, 49, "Subsubsection"], Cell[1169, 40, 1422, 41, 65, "Input"], Cell[2594, 83, 1883, 48, 90, "Input"], Cell[4480, 133, 329, 8, 39, "Input"], Cell[4812, 143, 128, 2, 39, "Input"], Cell[4943, 147, 244, 5, 39, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[5224, 157, 278, 5, 49, "Subsubsection"], Cell[5505, 164, 244, 5, 39, "Input"], Cell[5752, 171, 263, 6, 39, "Input"], Cell[6018, 179, 298, 6, 39, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6365, 191, 179, 2, 91, "Section"], Cell[6547, 195, 216, 4, 39, "Input"], Cell[6766, 201, 220, 4, 39, "Input"], Cell[6989, 207, 737, 20, 39, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[7763, 232, 132, 1, 91, "Section"], Cell[7898, 235, 338, 8, 39, "Input"], Cell[8239, 245, 252, 5, 39, "Input"], Cell[8494, 252, 336, 7, 39, "Input"], Cell[8833, 261, 222, 5, 39, "Input"], Cell[9058, 268, 372, 9, 39, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[9467, 282, 122, 2, 91, "Section"], Cell[9592, 286, 251, 6, 39, "Input"], Cell[9846, 294, 258, 5, 39, "Input"], Cell[10107, 301, 258, 5, 39, "Input"], Cell[10368, 308, 259, 5, 39, "Input"], Cell[10630, 315, 268, 6, 39, "Input"], Cell[10901, 323, 212, 5, 39, "Input"], Cell[11116, 330, 279, 6, 39, "Input"], Cell[11398, 338, 232, 5, 39, "Input"], Cell[11633, 345, 279, 6, 39, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[11949, 356, 180, 2, 91, "Section"], Cell[12132, 360, 211, 5, 39, "Input"], Cell[12346, 367, 249, 6, 39, "Input"], Cell[12598, 375, 248, 6, 39, "Input"], Cell[12849, 383, 255, 6, 39, "Input"], Cell[13107, 391, 257, 6, 39, "Input"], Cell[13367, 399, 247, 6, 39, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[13651, 410, 152, 2, 91, "Section"], Cell[13806, 414, 439, 13, 39, "Input"], Cell[14248, 429, 438, 11, 39, "Input"], Cell[14689, 442, 290, 7, 39, "Input"], Cell[14982, 451, 138, 4, 39, "Input"], Cell[15123, 457, 405, 10, 39, "Input"], Cell[15531, 469, 489, 10, 39, "Input"], Cell[16023, 481, 731, 16, 39, "Input"], Cell[16757, 499, 179, 3, 39, "Input"], Cell[16939, 504, 703, 17, 39, "Input"], Cell[17645, 523, 426, 12, 39, "Input"], Cell[CellGroupData[{ Cell[18096, 539, 131, 2, 39, "Input"], Cell[18230, 543, 1903, 42, 301, "Output"] }, Open ]], Cell[20148, 588, 219, 4, 39, "Input"], Cell[20370, 594, 210, 4, 39, "Input"], Cell[20583, 600, 546, 12, 39, "Input"], Cell[21132, 614, 265, 5, 39, "Input"], Cell[21400, 621, 96, 1, 39, "Input"] }, Open ]] }, Open ]] } ] *)