(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 73026, 1884] NotebookOptionsPosition[ 68421, 1717] NotebookOutlinePosition[ 68799, 1733] CellTagsIndexPosition[ 68756, 1730] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Cumulantes e o teorema central do limite", \ "Subtitle"]], "Title", CellChangeTimes->{{3.591363731879346*^9, 3.5913637641164117`*^9}}], Cell[CellGroupData[{ Cell["\<\ A fun\[CCedilla]\[ATilde]o geratriz dos cumulantes\ \>", "Section", CellChangeTimes->{{3.591363778195711*^9, 3.5913637906655025`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cauchy", "=", RowBox[{"PDF", "[", RowBox[{ RowBox[{"CauchyDistribution", "[", RowBox[{"\[Theta]", ",", "\[Gamma]"}], "]"}], ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.5913427258852515`*^9, 3.591342746011932*^9}, { 3.591342890852147*^9, 3.591342894789976*^9}}], Cell[BoxData[ FractionBox["1", RowBox[{"\[Pi]", " ", "\[Gamma]", " ", RowBox[{"(", RowBox[{"1", "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "\[Theta]"}], ")"}], "2"], SuperscriptBox["\[Gamma]", "2"]]}], ")"}]}]]], "Output", CellChangeTimes->{3.591342746887002*^9, 3.5913428964932384`*^9, 3.5913640067773914`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{"cauchy", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "Infinity"}], ",", "Infinity"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]", "\[Element]", "Reals"}], ",", RowBox[{"\[Gamma]", "\[Element]", "Reals"}], ",", RowBox[{"\[Gamma]", ">", "0"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.591342760216239*^9, 3.59134285924013*^9}, { 3.5913428994622407`*^9, 3.5913429358402777`*^9}}], Cell[BoxData["1"], "Output", CellChangeTimes->{{3.591342903868856*^9, 3.5913429374185305`*^9}, 3.5913640075743313`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fcCauchy", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"cauchy", " ", RowBox[{"Exp", "[", RowBox[{"I", " ", "t", " ", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "Infinity"}], ",", "Infinity"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]", "\[Element]", "Reals"}], ",", RowBox[{"\[Gamma]", "\[Element]", "Reals"}], ",", RowBox[{"\[Gamma]", ">", "0"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5913429470443344`*^9, 3.5913429898760386`*^9}, { 3.591344530504641*^9, 3.5913445392241187`*^9}}], Cell[BoxData[ RowBox[{"ConditionalExpression", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"t", " ", "\[Gamma]"}], RowBox[{"Sign", "[", "t", "]"}]]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"t", " ", "\[Theta]"}], RowBox[{"Sign", "[", "t", "]"}]], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sign", "[", "t", "]"}], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"t", " ", "\[Theta]"}], RowBox[{"Sign", "[", "t", "]"}]], "]"}]}]}], ")"}]}], ",", RowBox[{"t", "\[Element]", "Reals"}]}], "]"}]], "Output", CellChangeTimes->{3.5913430033771625`*^9, 3.591344547662319*^9, 3.5913640152312202`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CharacteristicFunction", "[", RowBox[{ RowBox[{"CauchyDistribution", "[", RowBox[{"\[Theta]", ",", "\[Gamma]"}], "]"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.591343044083685*^9, 3.5913430576629467`*^9}, 3.591343091884553*^9}], Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[Theta]"}], "-", RowBox[{"t", " ", "\[Gamma]", " ", RowBox[{"Sign", "[", "t", "]"}]}]}]]], "Output", CellChangeTimes->{3.5913430583973827`*^9, 3.591343093587818*^9, 3.5913640152937307`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "fcCauchy", "]"}]], "Input", CellChangeTimes->{{3.59134456617949*^9, 3.591344585102945*^9}}], Cell[BoxData[ RowBox[{"ConditionalExpression", "[", RowBox[{ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"Indeterminate", RowBox[{"t", "\[Equal]", "0"}]}, { SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "t"}], " ", RowBox[{"(", RowBox[{"\[Gamma]", "-", RowBox[{"\[ImaginaryI]", " ", "\[Theta]"}]}], ")"}]}]], RowBox[{"t", ">", "0"}]}, { SuperscriptBox["\[ExponentialE]", RowBox[{"t", " ", RowBox[{"(", RowBox[{"\[Gamma]", "+", RowBox[{"\[ImaginaryI]", " ", "\[Theta]"}]}], ")"}]}]], TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False], ",", RowBox[{"t", "\[Element]", "Reals"}]}], "]"}]], "Output", CellChangeTimes->{3.5913445860405226`*^9, 3.5913640154499903`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CumulantGeneratingFunction", "[", RowBox[{ RowBox[{"CauchyDistribution", "[", RowBox[{"\[Theta]", ",", "\[Gamma]"}], "]"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.5913448165910225`*^9, 3.5913448277325754`*^9}}], Cell[BoxData["Indeterminate"], "Output", CellChangeTimes->{3.591344829373337*^9, 3.5913640154656167`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CharacteristicFunction", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"x0", ",", "\[Sigma]0"}], "]"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.591345002434656*^9, 3.591345046219565*^9}}], Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "t", " ", "x0"}], "-", FractionBox[ RowBox[{ SuperscriptBox["t", "2"], " ", SuperscriptBox["\[Sigma]0", "2"]}], "2"]}]]], "Output", CellChangeTimes->{{3.5913450380938854`*^9, 3.5913450465789666`*^9}, 3.591364015481243*^9}] }, Open ]], Cell[TextData[{ "O ", StyleBox["Mathematica", FontSlant->"Italic"], " tem uma defini\[CCedilla]\[ATilde]o ligeiramente diferente do Fun\ \[CCedilla]\[AHat]o Geratriz dos cumulantes, em rela\[CCedilla]\[ATilde]o \ \[AGrave] que adotamos - note a aus\[EHat]ncia da unidade imagin\[AAcute]ria \ no termo linear em t" }], "Text", CellChangeTimes->{{3.5913638237776413`*^9, 3.5913638940335064`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CumulantGeneratingFunction", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"x0", ",", "\[Sigma]0"}], "]"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.5913450512043533`*^9, 3.5913450723779984`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t", " ", "x0"}], "+", FractionBox[ RowBox[{ SuperscriptBox["t", "2"], " ", SuperscriptBox["\[Sigma]0", "2"]}], "2"]}]], "Output", CellChangeTimes->{3.5913450740187607`*^9, 3.5913640154968705`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MomentGeneratingFunction", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"x0", ",", "\[Sigma]0"}], "]"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.5913451357895384`*^9, 3.591345141071233*^9}}], Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"t", " ", "x0"}], "+", FractionBox[ RowBox[{ SuperscriptBox["t", "2"], " ", SuperscriptBox["\[Sigma]0", "2"]}], "2"]}]]], "Output", CellChangeTimes->{3.5913451424463463`*^9, 3.5913640154968705`*^9}] }, Open ]], Cell["\<\ Este limite explica uma parte do resultado da soma de aleat\[OAcute]rios \ uniformes, do exemplo 6.3 do texto. \ \>", "Text", CellChangeTimes->{{3.5913639188324513`*^9, 3.591363963976845*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"n", "/", RowBox[{"(", RowBox[{"I", " ", "t"}], ")"}]}], RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{"I", " ", RowBox[{"t", "/", "n"}]}], "]"}], "-", "1"}], ")"}]}], ")"}], "^", "n"}], ",", RowBox[{"n", "\[Rule]", "Infinity"}]}], "]"}]], "Input", CellChangeTimes->{{3.5913487722036057`*^9, 3.5913488801455107`*^9}}], Cell[BoxData[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "t"}], "2"]]], "Output", CellChangeTimes->{{3.591348815254075*^9, 3.5913488856772237`*^9}, 3.591364015590626*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Algumas fun\[CCedilla]\[OTilde]es para lidar com cumulantes\ \>", "Subsubsection", CellChangeTimes->{{3.591365051145821*^9, 3.591365059474642*^9}}], Cell["\<\ h\[AAcute] uma fun\[CCedilla]\[ATilde]o que d\[AAcute] a express\[ATilde]o do \ momento em fun\[CCedilla]\[ATilde]o dos momentos centrais..\ \>", "Text", CellChangeTimes->{{3.5913651793596487`*^9, 3.5913652194411197`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MomentConvert", "[", RowBox[{ RowBox[{"Moment", "[", "3", "]"}], ",", "CentralMoment"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"CentralMoment", "[", "3", "]"}], "+", RowBox[{"3", " ", RowBox[{"CentralMoment", "[", "2", "]"}], " ", RowBox[{"Moment", "[", "1", "]"}]}], "+", SuperscriptBox[ RowBox[{"Moment", "[", "1", "]"}], "3"]}]], "Output", CellChangeTimes->{3.591365112979104*^9}] }, Open ]], Cell["\<\ bem como a rela\[CCedilla]\[ATilde]o entre o cumulante e os momentos\ \>", "Text", CellChangeTimes->{{3.591365227269898*^9, 3.5913652780085087`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MomentConvert", "[", RowBox[{ RowBox[{"Cumulant", "[", "3", "]"}], ",", "Moment"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Moment", "[", "1", "]"}], "3"]}], "-", RowBox[{"3", " ", RowBox[{"Moment", "[", "1", "]"}], " ", RowBox[{"Moment", "[", "2", "]"}]}], "+", RowBox[{"Moment", "[", "3", "]"}]}]], "Output", CellChangeTimes->{3.591365131761924*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MomentConvert", "[", RowBox[{ RowBox[{"Cumulant", "[", "4", "]"}], ",", "CentralMoment"}], "]"}]], "Input", CellChangeTimes->{{3.5913652833058233`*^9, 3.5913652957912426`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox[ RowBox[{"CentralMoment", "[", "2", "]"}], "2"]}], "+", RowBox[{"CentralMoment", "[", "4", "]"}]}]], "Output", CellChangeTimes->{{3.591365287056136*^9, 3.5913652964631715`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ As fun\[CCedilla]\[OTilde]es que calculam os momentos e cumulantes podem ser \ aplicados a listas...\ \>", "Subsubsection", CellChangeTimes->{{3.591365505215588*^9, 3.5913655259673204`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"aleat", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "1"}], "]"}], ",", "100"}], "]"}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.5913653299190917`*^9, 3.5913653796113534`*^9}, { 3.59136548271371*^9, 3.5913654898861837`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Moment", "[", RowBox[{"aleat", ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.591365385018055*^9, 3.5913654187864985`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "19.934172460454572`", ",", "398.3062503916133`", ",", "7977.661063425727`", ",", "160174.77154241034`", ",", "3.224000190693167`*^6", ",", "6.505829814775621`*^7", ",", "1.3162650441612046`*^9", ",", "2.67021000661157`*^10", ",", "5.431745797487617`*^11", ",", "1.108046552609644`*^13"}], "}"}]], "Output", CellChangeTimes->{{3.5913654002224455`*^9, 3.5913654194115505`*^9}, 3.5913654935739913`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"CentralMoment", "[", RowBox[{"aleat", ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5913654711502447`*^9, 3.5913654719628096`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.`", ",", "0.9350187084682574`", ",", "0.47792766559225014`", ",", "3.4701880074897122`", ",", "6.35131779701873`", ",", "26.355520865500843`", ",", "76.17515042186653`", ",", "277.49112707554724`", ",", "924.4925138965598`", ",", "3282.4104545304826`"}], "}"}]], "Output", CellChangeTimes->{{3.591365472853509*^9, 3.591365495058488*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Cumulant", "[", RowBox[{"aleat", ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.591365445507479*^9, 3.5913654467888365`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "19.934172460454572`", ",", "0.9350187084682574`", ",", "0.47792766559225014`", ",", "0.8474080519327676`", ",", "1.8826047107855803`", ",", RowBox[{"-", "0.07550503704685241`"}], ",", RowBox[{"-", "18.837992583570582`"}], ",", RowBox[{"-", "91.68601236131235`"}], ",", RowBox[{"-", "261.4988965624211`"}], ",", "129.51732545229606`"}], "}"}]], "Output", CellChangeTimes->{3.5913654474295144`*^9, 3.5913654964648547`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ bem como a fun\[CCedilla]\[OTilde]es de probabilidade\ \>", "Subsubsection", CellChangeTimes->{{3.5913655340773726`*^9, 3.5913655424686975`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Moment", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "1"}], "]"}], ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.591365618788048*^9, 3.5913656196631203`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "20", ",", "401", ",", "8060", ",", "162403", ",", "3280300", ",", "66418015", ",", "1348042100", ",", "27425768105", ",", "559299698900", ",", "11432825890945"}], "}"}]], "Output", CellChangeTimes->{3.5913656204444356`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"CentralMoment", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "1"}], "]"}], ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.591365554392047*^9, 3.591365574362464*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "1", ",", "0", ",", "3", ",", "0", ",", "15", ",", "0", ",", "105", ",", "0", ",", "945"}], "}"}]], "Output", CellChangeTimes->{{3.5913655661430283`*^9, 3.5913655751281633`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Cumulant", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "1"}], "]"}], ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5913656006459084`*^9, 3.591365604443099*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "20", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.591365605849465*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["O Teorema Central do Limite", "Subsubtitle", CellChangeTimes->{{3.5913640294511614`*^9, 3.59136403452971*^9}}], Cell[CellGroupData[{ Cell["Somando aleat\[OAcute]rios uniformes", "Section", CellChangeTimes->{{3.591364162681032*^9, 3.5913641671032763`*^9}}], Cell[CellGroupData[{ Cell["\<\ criando um gerador uniforme de m\[EAcute]dia 0 e desvio-padr\[ATilde]o 1\ \>", "Subsubsection", CellChangeTimes->{{3.5913641881831613`*^9, 3.5913641996528683`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"unormal", "=", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sqrt", "[", "3", "]"}]}], ",", RowBox[{"Sqrt", "[", "3", "]"}]}], "}"}], ",", "1000000"}], "]"}]}]], "Input", CellChangeTimes->{{3.5913642204983587`*^9, 3.591364232546239*^9}}], Cell[BoxData[ InterpretationBox[ TagBox[ PanelBox[GridBox[{ { StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm], ImageSizeCache->{453., {4., 14.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None]}, { ItemBox[ TagBox[ RowBox[{"{", RowBox[{"0.1698583793313846`", ",", RowBox[{"-", "0.7770414081740835`"}], ",", "1.1662133862605222`", ",", RowBox[{"\[LeftSkeleton]", "999994", "\[RightSkeleton]"}], ",", "1.28281695318974`", ",", RowBox[{"-", "0.6312954531308694`"}], ",", RowBox[{"-", "0.3623881997695495`"}]}], "}"}], Short[#, 5]& ], Background->GrayLevel[1], BaseStyle->{Deployed -> False}, Frame->True, FrameStyle->GrayLevel[0, 0.2], StripOnInput->False]}, { RowBox[{ ButtonBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{82., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None], Appearance->Automatic, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 11, 32372551385589559496, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], "\[ThinSpace]", ButtonBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{91., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None], Appearance->Automatic, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 11, 32372551385589559496, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], "\[ThinSpace]", ButtonBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{138., {4., 14.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None], Appearance->Automatic, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 11, 32372551385589559496, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], "\[ThinSpace]", ButtonBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{116., {1., 13.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None], Appearance->Automatic, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[1.2]}, Offset[0.2]}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], Deploy, DefaultBaseStyle->"Deploy"], Out[11]]], "Output", CellChangeTimes->{3.591364237155997*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "unormal", "]"}]], "Input", CellChangeTimes->{{3.591364241375247*^9, 3.5913642486257067`*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[-0.518]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[-0.518]], RectangleBox[{-1.74, 0}, {-1.72, 3436}, RoundingRadius->0], RectangleBox[{-1.72, 0}, {-1.7, 5776}, RoundingRadius->0], RectangleBox[{-1.7, 0}, {-1.68, 5743}, RoundingRadius->0], RectangleBox[{-1.68, 0}, {-1.66, 5690}, RoundingRadius->0], RectangleBox[{-1.66, 0}, {-1.64, 5760}, RoundingRadius->0], RectangleBox[{-1.64, 0}, {-1.62, 5703}, RoundingRadius->0], RectangleBox[{-1.62, 0}, {-1.6, 5757}, RoundingRadius->0], RectangleBox[{-1.6, 0}, {-1.58, 5675}, RoundingRadius->0], RectangleBox[{-1.58, 0}, {-1.56, 5698}, RoundingRadius->0], RectangleBox[{-1.56, 0}, {-1.54, 5882}, RoundingRadius->0], RectangleBox[{-1.54, 0}, {-1.52, 5805}, RoundingRadius->0], RectangleBox[{-1.52, 0}, {-1.5, 5656}, RoundingRadius->0], RectangleBox[{-1.5, 0}, {-1.48, 5775}, RoundingRadius->0], RectangleBox[{-1.48, 0}, {-1.46, 5838}, RoundingRadius->0], RectangleBox[{-1.46, 0}, {-1.44, 5851}, RoundingRadius->0], RectangleBox[{-1.44, 0}, {-1.42, 5870}, RoundingRadius->0], RectangleBox[{-1.42, 0}, {-1.4, 5796}, RoundingRadius->0], RectangleBox[{-1.4, 0}, {-1.38, 5869}, RoundingRadius->0], RectangleBox[{-1.38, 0}, {-1.36, 5690}, RoundingRadius->0], RectangleBox[{-1.36, 0}, {-1.34, 5909}, RoundingRadius->0], RectangleBox[{-1.34, 0}, {-1.32, 5826}, RoundingRadius->0], RectangleBox[{-1.32, 0}, {-1.3, 5754}, RoundingRadius->0], RectangleBox[{-1.3, 0}, {-1.28, 5841}, RoundingRadius->0], RectangleBox[{-1.28, 0}, {-1.26, 5772}, RoundingRadius->0], RectangleBox[{-1.26, 0}, {-1.24, 5898}, RoundingRadius->0], RectangleBox[{-1.24, 0}, {-1.22, 5709}, RoundingRadius->0], RectangleBox[{-1.22, 0}, {-1.2, 5798}, RoundingRadius->0], RectangleBox[{-1.2, 0}, {-1.18, 5533}, RoundingRadius->0], RectangleBox[{-1.18, 0}, {-1.16, 5714}, RoundingRadius->0], RectangleBox[{-1.16, 0}, {-1.14, 5728}, RoundingRadius->0], RectangleBox[{-1.14, 0}, {-1.12, 5789}, RoundingRadius->0], RectangleBox[{-1.12, 0}, {-1.1, 5720}, RoundingRadius->0], RectangleBox[{-1.1, 0}, {-1.08, 5896}, RoundingRadius->0], RectangleBox[{-1.08, 0}, {-1.06, 5764}, RoundingRadius->0], RectangleBox[{-1.06, 0}, {-1.04, 5808}, RoundingRadius->0], RectangleBox[{-1.04, 0}, {-1.02, 5827}, RoundingRadius->0], RectangleBox[{-1.02, 0}, {-1., 5876}, RoundingRadius->0], RectangleBox[{-1., 0}, {-0.98, 5777}, RoundingRadius->0], RectangleBox[{-0.98, 0}, {-0.96, 5738}, RoundingRadius->0], RectangleBox[{-0.96, 0}, {-0.94, 5720}, RoundingRadius->0], RectangleBox[{-0.94, 0}, {-0.92, 5897}, RoundingRadius->0], RectangleBox[{-0.92, 0}, {-0.9, 5772}, RoundingRadius->0], RectangleBox[{-0.9, 0}, {-0.88, 5748}, RoundingRadius->0], RectangleBox[{-0.88, 0}, {-0.86, 5741}, RoundingRadius->0], RectangleBox[{-0.86, 0}, {-0.84, 5818}, RoundingRadius->0], RectangleBox[{-0.84, 0}, {-0.82, 5747}, RoundingRadius->0], RectangleBox[{-0.82, 0}, {-0.8, 5742}, RoundingRadius->0], RectangleBox[{-0.8, 0}, {-0.78, 5851}, RoundingRadius->0], RectangleBox[{-0.78, 0}, {-0.76, 5807}, RoundingRadius->0], RectangleBox[{-0.76, 0}, {-0.74, 5778}, RoundingRadius->0], RectangleBox[{-0.74, 0}, {-0.72, 5702}, RoundingRadius->0], RectangleBox[{-0.72, 0}, {-0.7, 5893}, RoundingRadius->0], RectangleBox[{-0.7, 0}, {-0.68, 5730}, RoundingRadius->0], RectangleBox[{-0.68, 0}, {-0.66, 5838}, RoundingRadius->0], RectangleBox[{-0.66, 0}, {-0.64, 5753}, RoundingRadius->0], RectangleBox[{-0.64, 0}, {-0.62, 5942}, RoundingRadius->0], RectangleBox[{-0.62, 0}, {-0.6, 5835}, RoundingRadius->0], RectangleBox[{-0.6, 0}, {-0.58, 5791}, RoundingRadius->0], RectangleBox[{-0.58, 0}, {-0.56, 5949}, RoundingRadius->0], RectangleBox[{-0.56, 0}, {-0.54, 5772}, RoundingRadius->0], RectangleBox[{-0.54, 0}, {-0.52, 5732}, RoundingRadius->0], RectangleBox[{-0.52, 0}, {-0.5, 5868}, RoundingRadius->0], RectangleBox[{-0.5, 0}, {-0.48, 5851}, RoundingRadius->0], RectangleBox[{-0.48, 0}, {-0.46, 5680}, RoundingRadius->0], RectangleBox[{-0.46, 0}, {-0.44, 5829}, RoundingRadius->0], RectangleBox[{-0.44, 0}, {-0.42, 5792}, RoundingRadius->0], RectangleBox[{-0.42, 0}, {-0.4, 5752}, RoundingRadius->0], RectangleBox[{-0.4, 0}, {-0.38, 5805}, RoundingRadius->0], RectangleBox[{-0.38, 0}, {-0.36, 5835}, RoundingRadius->0], RectangleBox[{-0.36, 0}, {-0.34, 5754}, RoundingRadius->0], RectangleBox[{-0.34, 0}, {-0.32, 5634}, RoundingRadius->0], RectangleBox[{-0.32, 0}, {-0.3, 5770}, RoundingRadius->0], RectangleBox[{-0.3, 0}, {-0.28, 5700}, RoundingRadius->0], RectangleBox[{-0.28, 0}, {-0.26, 5729}, RoundingRadius->0], RectangleBox[{-0.26, 0}, {-0.24, 5872}, RoundingRadius->0], RectangleBox[{-0.24, 0}, {-0.22, 5805}, RoundingRadius->0], RectangleBox[{-0.22, 0}, {-0.2, 5697}, RoundingRadius->0], RectangleBox[{-0.2, 0}, {-0.18, 5791}, RoundingRadius->0], RectangleBox[{-0.18, 0}, {-0.16, 5800}, RoundingRadius->0], RectangleBox[{-0.16, 0}, {-0.14, 5789}, RoundingRadius->0], RectangleBox[{-0.14, 0}, {-0.12, 5614}, RoundingRadius->0], RectangleBox[{-0.12, 0}, {-0.1, 5684}, RoundingRadius->0], RectangleBox[{-0.1, 0}, {-0.08, 5761}, RoundingRadius->0], RectangleBox[{-0.08, 0}, {-0.06, 5811}, RoundingRadius->0], RectangleBox[{-0.06, 0}, {-0.04, 5847}, RoundingRadius->0], RectangleBox[{-0.04, 0}, {-0.02, 5778}, RoundingRadius->0], RectangleBox[{-0.02, 0}, {0., 5766}, RoundingRadius->0], RectangleBox[{0., 0}, {0.02, 5671}, RoundingRadius->0], RectangleBox[{0.02, 0}, {0.04, 5750}, RoundingRadius->0], RectangleBox[{0.04, 0}, {0.06, 5826}, RoundingRadius->0], RectangleBox[{0.06, 0}, {0.08, 5836}, RoundingRadius->0], RectangleBox[{0.08, 0}, {0.1, 5772}, RoundingRadius->0], RectangleBox[{0.1, 0}, {0.12, 5776}, RoundingRadius->0], RectangleBox[{0.12, 0}, {0.14, 5793}, RoundingRadius->0], RectangleBox[{0.14, 0}, {0.16, 5798}, RoundingRadius->0], RectangleBox[{0.16, 0}, {0.18, 5823}, RoundingRadius->0], RectangleBox[{0.18, 0}, {0.2, 5712}, RoundingRadius->0], RectangleBox[{0.2, 0}, {0.22, 5797}, RoundingRadius->0], RectangleBox[{0.22, 0}, {0.24, 5864}, RoundingRadius->0], RectangleBox[{0.24, 0}, {0.26, 5814}, RoundingRadius->0], RectangleBox[{0.26, 0}, {0.28, 5811}, RoundingRadius->0], RectangleBox[{0.28, 0}, {0.3, 5691}, RoundingRadius->0], RectangleBox[{0.3, 0}, {0.32, 5708}, RoundingRadius->0], RectangleBox[{0.32, 0}, {0.34, 5744}, RoundingRadius->0], RectangleBox[{0.34, 0}, {0.36, 5696}, RoundingRadius->0], RectangleBox[{0.36, 0}, {0.38, 5736}, RoundingRadius->0], RectangleBox[{0.38, 0}, {0.4, 5911}, RoundingRadius->0], RectangleBox[{0.4, 0}, {0.42, 5800}, RoundingRadius->0], RectangleBox[{0.42, 0}, {0.44, 5724}, RoundingRadius->0], RectangleBox[{0.44, 0}, {0.46, 5791}, RoundingRadius->0], RectangleBox[{0.46, 0}, {0.48, 5706}, RoundingRadius->0], RectangleBox[{0.48, 0}, {0.5, 5726}, RoundingRadius->0], RectangleBox[{0.5, 0}, {0.52, 5937}, RoundingRadius->0], RectangleBox[{0.52, 0}, {0.54, 5710}, RoundingRadius->0], RectangleBox[{0.54, 0}, {0.56, 5766}, RoundingRadius->0], RectangleBox[{0.56, 0}, {0.58, 5771}, RoundingRadius->0], RectangleBox[{0.58, 0}, {0.6, 5664}, RoundingRadius->0], RectangleBox[{0.6, 0}, {0.62, 5689}, RoundingRadius->0], RectangleBox[{0.62, 0}, {0.64, 5739}, RoundingRadius->0], RectangleBox[{0.64, 0}, {0.66, 5753}, RoundingRadius->0], RectangleBox[{0.66, 0}, {0.68, 5772}, RoundingRadius->0], RectangleBox[{0.68, 0}, {0.7, 5711}, RoundingRadius->0], RectangleBox[{0.7, 0}, {0.72, 5806}, RoundingRadius->0], RectangleBox[{0.72, 0}, {0.74, 5825}, RoundingRadius->0], RectangleBox[{0.74, 0}, {0.76, 5851}, RoundingRadius->0], RectangleBox[{0.76, 0}, {0.78, 5676}, RoundingRadius->0], RectangleBox[{0.78, 0}, {0.8, 5829}, RoundingRadius->0], RectangleBox[{0.8, 0}, {0.82, 5818}, RoundingRadius->0], RectangleBox[{0.82, 0}, {0.84, 5809}, RoundingRadius->0], RectangleBox[{0.84, 0}, {0.86, 5966}, RoundingRadius->0], RectangleBox[{0.86, 0}, {0.88, 5738}, RoundingRadius->0], RectangleBox[{0.88, 0}, {0.9, 5724}, RoundingRadius->0], RectangleBox[{0.9, 0}, {0.92, 5727}, RoundingRadius->0], RectangleBox[{0.92, 0}, {0.94, 5864}, RoundingRadius->0], RectangleBox[{0.94, 0}, {0.96, 5838}, RoundingRadius->0], RectangleBox[{0.96, 0}, {0.98, 5661}, RoundingRadius->0], RectangleBox[{0.98, 0}, {1., 5794}, RoundingRadius->0], RectangleBox[{1., 0}, {1.02, 5672}, RoundingRadius->0], RectangleBox[{1.02, 0}, {1.04, 6061}, RoundingRadius->0], RectangleBox[{1.04, 0}, {1.06, 5704}, RoundingRadius->0], RectangleBox[{1.06, 0}, {1.08, 5774}, RoundingRadius->0], RectangleBox[{1.08, 0}, {1.1, 5834}, RoundingRadius->0], RectangleBox[{1.1, 0}, {1.12, 5753}, RoundingRadius->0], RectangleBox[{1.12, 0}, {1.14, 5786}, RoundingRadius->0], RectangleBox[{1.14, 0}, {1.16, 5806}, RoundingRadius->0], RectangleBox[{1.16, 0}, {1.18, 5777}, RoundingRadius->0], RectangleBox[{1.18, 0}, {1.2, 5725}, RoundingRadius->0], RectangleBox[{1.2, 0}, {1.22, 5596}, RoundingRadius->0], RectangleBox[{1.22, 0}, {1.24, 5707}, RoundingRadius->0], RectangleBox[{1.24, 0}, {1.26, 5677}, RoundingRadius->0], RectangleBox[{1.26, 0}, {1.28, 5814}, RoundingRadius->0], RectangleBox[{1.28, 0}, {1.3, 5596}, RoundingRadius->0], RectangleBox[{1.3, 0}, {1.32, 5767}, RoundingRadius->0], RectangleBox[{1.32, 0}, {1.34, 5625}, RoundingRadius->0], RectangleBox[{1.34, 0}, {1.36, 5725}, RoundingRadius->0], RectangleBox[{1.36, 0}, {1.38, 5815}, RoundingRadius->0], RectangleBox[{1.38, 0}, {1.4, 5802}, RoundingRadius->0], RectangleBox[{1.4, 0}, {1.42, 5801}, RoundingRadius->0], RectangleBox[{1.42, 0}, {1.44, 5716}, RoundingRadius->0], RectangleBox[{1.44, 0}, {1.46, 5711}, RoundingRadius->0], RectangleBox[{1.46, 0}, {1.48, 5798}, RoundingRadius->0], RectangleBox[{1.48, 0}, {1.5, 5853}, RoundingRadius->0], RectangleBox[{1.5, 0}, {1.52, 5861}, RoundingRadius->0], RectangleBox[{1.52, 0}, {1.54, 5738}, RoundingRadius->0], RectangleBox[{1.54, 0}, {1.56, 5670}, RoundingRadius->0], RectangleBox[{1.56, 0}, {1.58, 5717}, RoundingRadius->0], RectangleBox[{1.58, 0}, {1.6, 5754}, RoundingRadius->0], RectangleBox[{1.6, 0}, {1.62, 5941}, RoundingRadius->0], RectangleBox[{1.62, 0}, {1.64, 5798}, RoundingRadius->0], RectangleBox[{1.64, 0}, {1.66, 5603}, RoundingRadius->0], RectangleBox[{1.66, 0}, {1.68, 5783}, RoundingRadius->0], RectangleBox[{1.68, 0}, {1.7, 5868}, RoundingRadius->0], RectangleBox[{1.7, 0}, {1.72, 5742}, RoundingRadius->0], RectangleBox[{1.72, 0}, {1.74, 3397}, RoundingRadius->0]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-1.74, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{-1.74, 1.74}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5913642518290963`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "unormal", "]"}]], "Input", CellChangeTimes->{{3.591364258892189*^9, 3.5913642624862385`*^9}}], Cell[BoxData[ RowBox[{"-", "0.001088205023747179`"}]], "Output", CellChangeTimes->{3.5913642629862757`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StandardDeviation", "[", "unormal", "]"}]], "Input", CellChangeTimes->{{3.591364265580247*^9, 3.5913642711744633`*^9}}], Cell[BoxData["0.9995339451312952`"], "Output", CellChangeTimes->{3.59136427169013*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ fun\[CCedilla]\[ATilde]o para somar um n\[UAcute]mero arbitr\[AAcute]rio de \ aleat\[OAcute]rios U[0,1] e obter um aleat\[OAcute]rio de m\[EAcute]dia 0 e \ desvio-padr\[ATilde]o 1\ \>", "Subsubsection", CellChangeTimes->{{3.5913643009582*^9, 3.591364347024545*^9}, { 3.591364384230776*^9, 3.5913643996070595`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"su", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"Total", "[", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sqrt", "[", "3", "]"}]}], ",", RowBox[{"Sqrt", "[", "3", "]"}]}], "}"}], ",", "n"}], "]"}], "]"}], "/", "n"}]}]], "Input", CellChangeTimes->{{3.5913643761207237`*^9, 3.591364376636392*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s6", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"su", "[", "6", "]"}], ",", RowBox[{"{", "10000", "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.591364405654439*^9, 3.5913644457515364`*^9}}], Cell[BoxData[ InterpretationBox[ TagBox[ PanelBox[GridBox[{ { StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm], ImageSizeCache->{453., {4., 14.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None]}, { ItemBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.2473681867117421`"}], ",", RowBox[{"-", "0.8389716387712137`"}], ",", RowBox[{"-", "0.7494880327222808`"}], ",", RowBox[{"\[LeftSkeleton]", "9994", "\[RightSkeleton]"}], ",", RowBox[{"-", "0.2837453746285573`"}], ",", RowBox[{"-", "0.24867387349856931`"}], ",", "0.5927036175302548`"}], "}"}], Short[#, 5]& ], Background->GrayLevel[1], BaseStyle->{Deployed -> False}, Frame->True, FrameStyle->GrayLevel[0, 0.2], StripOnInput->False]}, { RowBox[{ ButtonBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{82., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None], Appearance->Automatic, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 16, 32372551385589559496, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], "\[ThinSpace]", ButtonBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{91., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None], Appearance->Automatic, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 16, 32372551385589559496, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], "\[ThinSpace]", ButtonBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{138., {4., 14.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None], Appearance->Automatic, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 16, 32372551385589559496, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], "\[ThinSpace]", ButtonBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{116., {1., 13.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None], Appearance->Automatic, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[1.2]}, Offset[0.2]}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], Deploy, DefaultBaseStyle->"Deploy"], Out[16]]], "Output", CellChangeTimes->{3.5913644467984967`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "s6", "]"}]], "Input", CellChangeTimes->{{3.5913644507832065`*^9, 3.591364456299292*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.308]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.308]], RectangleBox[{-1.45, 0}, {-1.4, 1}, RoundingRadius->0], RectangleBox[{-1.4, 0}, {-1.35, 2}, RoundingRadius->0], RectangleBox[{-1.35, 0}, {-1.3, 1}, RoundingRadius->0], RectangleBox[{-1.3, 0}, {-1.25, 4}, RoundingRadius->0], RectangleBox[{-1.25, 0}, {-1.2, 1}, RoundingRadius->0], RectangleBox[{-1.2, 0}, {-1.15, 4}, RoundingRadius->0], RectangleBox[{-1.15, 0}, {-1.1, 10}, RoundingRadius->0], RectangleBox[{-1.1, 0}, {-1.05, 13}, RoundingRadius->0], RectangleBox[{-1.05, 0}, {-1., 22}, RoundingRadius->0], RectangleBox[{-1., 0}, {-0.95, 30}, RoundingRadius->0], RectangleBox[{-0.95, 0}, {-0.9, 42}, RoundingRadius->0], RectangleBox[{-0.9, 0}, {-0.85, 55}, RoundingRadius->0], RectangleBox[{-0.85, 0}, {-0.8, 64}, RoundingRadius->0], RectangleBox[{-0.8, 0}, {-0.75, 105}, RoundingRadius->0], RectangleBox[{-0.75, 0}, {-0.7, 135}, RoundingRadius->0], RectangleBox[{-0.7, 0}, {-0.65, 118}, RoundingRadius->0], RectangleBox[{-0.65, 0}, {-0.6, 175}, RoundingRadius->0], RectangleBox[{-0.6, 0}, {-0.55, 181}, RoundingRadius->0], RectangleBox[{-0.55, 0}, {-0.5, 225}, RoundingRadius->0], RectangleBox[{-0.5, 0}, {-0.45, 277}, RoundingRadius->0], RectangleBox[{-0.45, 0}, {-0.4, 261}, RoundingRadius->0], RectangleBox[{-0.4, 0}, {-0.35, 309}, RoundingRadius->0], RectangleBox[{-0.35, 0}, {-0.3, 376}, RoundingRadius->0], RectangleBox[{-0.3, 0}, {-0.25, 358}, RoundingRadius->0], RectangleBox[{-0.25, 0}, {-0.2, 420}, RoundingRadius->0], RectangleBox[{-0.2, 0}, {-0.15, 493}, RoundingRadius->0], RectangleBox[{-0.15, 0}, {-0.1, 430}, RoundingRadius->0], RectangleBox[{-0.1, 0}, {-0.05, 461}, RoundingRadius->0], RectangleBox[{-0.05, 0}, {0., 482}, RoundingRadius->0], RectangleBox[{0., 0}, {0.05, 482}, RoundingRadius->0], RectangleBox[{0.05, 0}, {0.1, 460}, RoundingRadius->0], RectangleBox[{0.1, 0}, {0.15, 453}, RoundingRadius->0], RectangleBox[{0.15, 0}, {0.2, 455}, RoundingRadius->0], RectangleBox[{0.2, 0}, {0.25, 452}, RoundingRadius->0], RectangleBox[{0.25, 0}, {0.3, 363}, RoundingRadius->0], RectangleBox[{0.3, 0}, {0.35, 331}, RoundingRadius->0], RectangleBox[{0.35, 0}, {0.4, 302}, RoundingRadius->0], RectangleBox[{0.4, 0}, {0.45, 283}, RoundingRadius->0], RectangleBox[{0.45, 0}, {0.5, 228}, RoundingRadius->0], RectangleBox[{0.5, 0}, {0.55, 237}, RoundingRadius->0], RectangleBox[{0.55, 0}, {0.6, 164}, RoundingRadius->0], RectangleBox[{0.6, 0}, {0.65, 164}, RoundingRadius->0], RectangleBox[{0.65, 0}, {0.7, 126}, RoundingRadius->0], RectangleBox[{0.7, 0}, {0.75, 118}, RoundingRadius->0], RectangleBox[{0.75, 0}, {0.8, 87}, RoundingRadius->0], RectangleBox[{0.8, 0}, {0.85, 69}, RoundingRadius->0], RectangleBox[{0.85, 0}, {0.9, 53}, RoundingRadius->0], RectangleBox[{0.9, 0}, {0.95, 33}, RoundingRadius->0], RectangleBox[{0.95, 0}, {1., 33}, RoundingRadius->0], RectangleBox[{1., 0}, {1.05, 9}, RoundingRadius->0], RectangleBox[{1.05, 0}, {1.1, 9}, RoundingRadius->0], RectangleBox[{1.1, 0}, {1.15, 21}, RoundingRadius->0], RectangleBox[{1.15, 0}, {1.2, 4}, RoundingRadius->0], RectangleBox[{1.2, 0}, {1.25, 5}, RoundingRadius->0], RectangleBox[{1.35, 0}, {1.4, 2}, RoundingRadius->0], RectangleBox[{1.4, 0}, {1.45, 2}, RoundingRadius->0]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-1.45, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{-1.45, 1.45}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.591364457080603*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"su", "[", "2", "]"}], ",", RowBox[{"{", "1000000", "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5913646848964987`*^9, 3.591364707273367*^9}}], Cell[BoxData[ InterpretationBox[ TagBox[ PanelBox[GridBox[{ { StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm], ImageSizeCache->{453., {4., 14.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None]}, { ItemBox[ TagBox[ RowBox[{"{", RowBox[{"0.07732599360867587`", ",", RowBox[{"-", "0.8184028414399105`"}], ",", RowBox[{"-", "0.718297520863397`"}], ",", RowBox[{"\[LeftSkeleton]", "999994", "\[RightSkeleton]"}], ",", "0.725708662452293`", ",", RowBox[{"-", "0.6429703141156606`"}], ",", RowBox[{"-", "1.181767638406718`"}]}], "}"}], Short[#, 5]& ], Background->GrayLevel[1], BaseStyle->{Deployed -> False}, Frame->True, FrameStyle->GrayLevel[0, 0.2], StripOnInput->False]}, { RowBox[{ ButtonBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{82., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None], Appearance->Automatic, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 21, 32372551385589559496, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], "\[ThinSpace]", ButtonBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{91., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None], Appearance->Automatic, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 21, 32372551385589559496, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], "\[ThinSpace]", ButtonBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{138., {4., 14.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None], Appearance->Automatic, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 21, 32372551385589559496, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], "\[ThinSpace]", ButtonBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{116., {1., 13.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None], Appearance->Automatic, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[1.2]}, Offset[0.2]}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], Deploy, DefaultBaseStyle->"Deploy"], Out[21]]], "Output", CellChangeTimes->{{3.5913647043824973`*^9, 3.5913647222746162`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "s2", "]"}]], "Input", CellChangeTimes->{{3.591364727478179*^9, 3.591364731884796*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[-0.518]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[-0.518]], RectangleBox[{-1.74, 0}, {-1.72, 27}, RoundingRadius->0], RectangleBox[{-1.72, 0}, {-1.7, 158}, RoundingRadius->0], RectangleBox[{-1.7, 0}, {-1.68, 279}, RoundingRadius->0], RectangleBox[{-1.68, 0}, {-1.66, 424}, RoundingRadius->0], RectangleBox[{-1.66, 0}, {-1.64, 541}, RoundingRadius->0], RectangleBox[{-1.64, 0}, {-1.62, 662}, RoundingRadius->0], RectangleBox[{-1.62, 0}, {-1.6, 812}, RoundingRadius->0], RectangleBox[{-1.6, 0}, {-1.58, 985}, RoundingRadius->0], RectangleBox[{-1.58, 0}, {-1.56, 1085}, RoundingRadius->0], RectangleBox[{-1.56, 0}, {-1.54, 1171}, RoundingRadius->0], RectangleBox[{-1.54, 0}, {-1.52, 1398}, RoundingRadius->0], RectangleBox[{-1.52, 0}, {-1.5, 1483}, RoundingRadius->0], RectangleBox[{-1.5, 0}, {-1.48, 1612}, RoundingRadius->0], RectangleBox[{-1.48, 0}, {-1.46, 1768}, RoundingRadius->0], RectangleBox[{-1.46, 0}, {-1.44, 1882}, RoundingRadius->0], RectangleBox[{-1.44, 0}, {-1.42, 1899}, RoundingRadius->0], RectangleBox[{-1.42, 0}, {-1.4, 2163}, RoundingRadius->0], RectangleBox[{-1.4, 0}, {-1.38, 2306}, RoundingRadius->0], RectangleBox[{-1.38, 0}, {-1.36, 2410}, RoundingRadius->0], RectangleBox[{-1.36, 0}, {-1.34, 2568}, RoundingRadius->0], RectangleBox[{-1.34, 0}, {-1.32, 2660}, RoundingRadius->0], RectangleBox[{-1.32, 0}, {-1.3, 2757}, RoundingRadius->0], RectangleBox[{-1.3, 0}, {-1.28, 2989}, RoundingRadius->0], RectangleBox[{-1.28, 0}, {-1.26, 3115}, RoundingRadius->0], RectangleBox[{-1.26, 0}, {-1.24, 3203}, RoundingRadius->0], RectangleBox[{-1.24, 0}, {-1.22, 3494}, RoundingRadius->0], RectangleBox[{-1.22, 0}, {-1.2, 3593}, RoundingRadius->0], RectangleBox[{-1.2, 0}, {-1.18, 3697}, RoundingRadius->0], RectangleBox[{-1.18, 0}, {-1.16, 3753}, RoundingRadius->0], RectangleBox[{-1.16, 0}, {-1.14, 3899}, RoundingRadius->0], RectangleBox[{-1.14, 0}, {-1.12, 4047}, RoundingRadius->0], RectangleBox[{-1.12, 0}, {-1.1, 4172}, RoundingRadius->0], RectangleBox[{-1.1, 0}, {-1.08, 4261}, RoundingRadius->0], RectangleBox[{-1.08, 0}, {-1.06, 4425}, RoundingRadius->0], RectangleBox[{-1.06, 0}, {-1.04, 4541}, RoundingRadius->0], RectangleBox[{-1.04, 0}, {-1.02, 4713}, RoundingRadius->0], RectangleBox[{-1.02, 0}, {-1., 4792}, RoundingRadius->0], RectangleBox[{-1., 0}, {-0.98, 4958}, RoundingRadius->0], RectangleBox[{-0.98, 0}, {-0.96, 5089}, RoundingRadius->0], RectangleBox[{-0.96, 0}, {-0.94, 5165}, RoundingRadius->0], RectangleBox[{-0.94, 0}, {-0.92, 5460}, RoundingRadius->0], RectangleBox[{-0.92, 0}, {-0.9, 5444}, RoundingRadius->0], RectangleBox[{-0.9, 0}, {-0.88, 5630}, RoundingRadius->0], RectangleBox[{-0.88, 0}, {-0.86, 5742}, RoundingRadius->0], RectangleBox[{-0.86, 0}, {-0.84, 5765}, RoundingRadius->0], RectangleBox[{-0.84, 0}, {-0.82, 6194}, RoundingRadius->0], RectangleBox[{-0.82, 0}, {-0.8, 6106}, RoundingRadius->0], RectangleBox[{-0.8, 0}, {-0.78, 6322}, RoundingRadius->0], RectangleBox[{-0.78, 0}, {-0.76, 6349}, RoundingRadius->0], RectangleBox[{-0.76, 0}, {-0.74, 6513}, RoundingRadius->0], RectangleBox[{-0.74, 0}, {-0.72, 6693}, RoundingRadius->0], RectangleBox[{-0.72, 0}, {-0.7, 6850}, RoundingRadius->0], RectangleBox[{-0.7, 0}, {-0.68, 6931}, RoundingRadius->0], RectangleBox[{-0.68, 0}, {-0.66, 6932}, RoundingRadius->0], RectangleBox[{-0.66, 0}, {-0.64, 7200}, RoundingRadius->0], RectangleBox[{-0.64, 0}, {-0.62, 7392}, RoundingRadius->0], RectangleBox[{-0.62, 0}, {-0.6, 7422}, RoundingRadius->0], RectangleBox[{-0.6, 0}, {-0.58, 7601}, RoundingRadius->0], RectangleBox[{-0.58, 0}, {-0.56, 7672}, RoundingRadius->0], RectangleBox[{-0.56, 0}, {-0.54, 7691}, RoundingRadius->0], RectangleBox[{-0.54, 0}, {-0.52, 8054}, RoundingRadius->0], RectangleBox[{-0.52, 0}, {-0.5, 8218}, RoundingRadius->0], RectangleBox[{-0.5, 0}, {-0.48, 8164}, RoundingRadius->0], RectangleBox[{-0.48, 0}, {-0.46, 8393}, RoundingRadius->0], RectangleBox[{-0.46, 0}, {-0.44, 8444}, RoundingRadius->0], RectangleBox[{-0.44, 0}, {-0.42, 8675}, RoundingRadius->0], RectangleBox[{-0.42, 0}, {-0.4, 8691}, RoundingRadius->0], RectangleBox[{-0.4, 0}, {-0.38, 8798}, RoundingRadius->0], RectangleBox[{-0.38, 0}, {-0.36, 9112}, RoundingRadius->0], RectangleBox[{-0.36, 0}, {-0.34, 9209}, RoundingRadius->0], RectangleBox[{-0.34, 0}, {-0.32, 9242}, RoundingRadius->0], RectangleBox[{-0.32, 0}, {-0.3, 9422}, RoundingRadius->0], RectangleBox[{-0.3, 0}, {-0.28, 9468}, RoundingRadius->0], RectangleBox[{-0.28, 0}, {-0.26, 9682}, RoundingRadius->0], RectangleBox[{-0.26, 0}, {-0.24, 9800}, RoundingRadius->0], RectangleBox[{-0.24, 0}, {-0.22, 9853}, RoundingRadius->0], RectangleBox[{-0.22, 0}, {-0.2, 10384}, RoundingRadius->0], RectangleBox[{-0.2, 0}, {-0.18, 10288}, RoundingRadius->0], RectangleBox[{-0.18, 0}, {-0.16, 10440}, RoundingRadius->0], RectangleBox[{-0.16, 0}, {-0.14, 10380}, RoundingRadius->0], RectangleBox[{-0.14, 0}, {-0.12, 10789}, RoundingRadius->0], RectangleBox[{-0.12, 0}, {-0.1, 10867}, RoundingRadius->0], RectangleBox[{-0.1, 0}, {-0.08, 10728}, RoundingRadius->0], RectangleBox[{-0.08, 0}, {-0.06, 10951}, RoundingRadius->0], RectangleBox[{-0.06, 0}, {-0.04, 11203}, RoundingRadius->0], RectangleBox[{-0.04, 0}, {-0.02, 11348}, RoundingRadius->0], RectangleBox[{-0.02, 0}, {0., 11544}, RoundingRadius->0], RectangleBox[{0., 0}, {0.02, 11558}, RoundingRadius->0], RectangleBox[{0.02, 0}, {0.04, 11430}, RoundingRadius->0], RectangleBox[{0.04, 0}, {0.06, 11265}, RoundingRadius->0], RectangleBox[{0.06, 0}, {0.08, 10963}, RoundingRadius->0], RectangleBox[{0.08, 0}, {0.1, 10900}, RoundingRadius->0], RectangleBox[{0.1, 0}, {0.12, 10641}, RoundingRadius->0], RectangleBox[{0.12, 0}, {0.14, 10803}, RoundingRadius->0], RectangleBox[{0.14, 0}, {0.16, 10665}, RoundingRadius->0], RectangleBox[{0.16, 0}, {0.18, 10516}, RoundingRadius->0], RectangleBox[{0.18, 0}, {0.2, 10313}, RoundingRadius->0], RectangleBox[{0.2, 0}, {0.22, 10257}, RoundingRadius->0], RectangleBox[{0.22, 0}, {0.24, 10168}, RoundingRadius->0], RectangleBox[{0.24, 0}, {0.26, 9852}, RoundingRadius->0], RectangleBox[{0.26, 0}, {0.28, 9688}, RoundingRadius->0], RectangleBox[{0.28, 0}, {0.3, 9671}, RoundingRadius->0], RectangleBox[{0.3, 0}, {0.32, 9463}, RoundingRadius->0], RectangleBox[{0.32, 0}, {0.34, 9266}, RoundingRadius->0], RectangleBox[{0.34, 0}, {0.36, 9316}, RoundingRadius->0], RectangleBox[{0.36, 0}, {0.38, 9150}, RoundingRadius->0], RectangleBox[{0.38, 0}, {0.4, 8713}, RoundingRadius->0], RectangleBox[{0.4, 0}, {0.42, 9036}, RoundingRadius->0], RectangleBox[{0.42, 0}, {0.44, 8674}, RoundingRadius->0], RectangleBox[{0.44, 0}, {0.46, 8612}, RoundingRadius->0], RectangleBox[{0.46, 0}, {0.48, 8545}, RoundingRadius->0], RectangleBox[{0.48, 0}, {0.5, 8253}, RoundingRadius->0], RectangleBox[{0.5, 0}, {0.52, 8139}, RoundingRadius->0], RectangleBox[{0.52, 0}, {0.54, 8095}, RoundingRadius->0], RectangleBox[{0.54, 0}, {0.56, 7840}, RoundingRadius->0], RectangleBox[{0.56, 0}, {0.58, 7778}, RoundingRadius->0], RectangleBox[{0.58, 0}, {0.6, 7687}, RoundingRadius->0], RectangleBox[{0.6, 0}, {0.62, 7573}, RoundingRadius->0], RectangleBox[{0.62, 0}, {0.64, 7243}, RoundingRadius->0], RectangleBox[{0.64, 0}, {0.66, 7217}, RoundingRadius->0], RectangleBox[{0.66, 0}, {0.68, 7246}, RoundingRadius->0], RectangleBox[{0.68, 0}, {0.7, 6918}, RoundingRadius->0], RectangleBox[{0.7, 0}, {0.72, 6855}, RoundingRadius->0], RectangleBox[{0.72, 0}, {0.74, 6722}, RoundingRadius->0], RectangleBox[{0.74, 0}, {0.76, 6633}, RoundingRadius->0], RectangleBox[{0.76, 0}, {0.78, 6327}, RoundingRadius->0], RectangleBox[{0.78, 0}, {0.8, 6263}, RoundingRadius->0], RectangleBox[{0.8, 0}, {0.82, 6185}, RoundingRadius->0], RectangleBox[{0.82, 0}, {0.84, 5979}, RoundingRadius->0], RectangleBox[{0.84, 0}, {0.86, 5893}, RoundingRadius->0], RectangleBox[{0.86, 0}, {0.88, 5763}, RoundingRadius->0], RectangleBox[{0.88, 0}, {0.9, 5599}, RoundingRadius->0], RectangleBox[{0.9, 0}, {0.92, 5518}, RoundingRadius->0], RectangleBox[{0.92, 0}, {0.94, 5462}, RoundingRadius->0], RectangleBox[{0.94, 0}, {0.96, 5311}, RoundingRadius->0], RectangleBox[{0.96, 0}, {0.98, 5136}, RoundingRadius->0], RectangleBox[{0.98, 0}, {1., 4902}, RoundingRadius->0], RectangleBox[{1., 0}, {1.02, 4857}, RoundingRadius->0], RectangleBox[{1.02, 0}, {1.04, 4593}, RoundingRadius->0], RectangleBox[{1.04, 0}, {1.06, 4577}, RoundingRadius->0], RectangleBox[{1.06, 0}, {1.08, 4388}, RoundingRadius->0], RectangleBox[{1.08, 0}, {1.1, 4342}, RoundingRadius->0], RectangleBox[{1.1, 0}, {1.12, 4134}, RoundingRadius->0], RectangleBox[{1.12, 0}, {1.14, 3882}, RoundingRadius->0], RectangleBox[{1.14, 0}, {1.16, 3830}, RoundingRadius->0], RectangleBox[{1.16, 0}, {1.18, 3775}, RoundingRadius->0], RectangleBox[{1.18, 0}, {1.2, 3582}, RoundingRadius->0], RectangleBox[{1.2, 0}, {1.22, 3429}, RoundingRadius->0], RectangleBox[{1.22, 0}, {1.24, 3422}, RoundingRadius->0], RectangleBox[{1.24, 0}, {1.26, 3135}, RoundingRadius->0], RectangleBox[{1.26, 0}, {1.28, 3106}, RoundingRadius->0], RectangleBox[{1.28, 0}, {1.3, 2935}, RoundingRadius->0], RectangleBox[{1.3, 0}, {1.32, 2842}, RoundingRadius->0], RectangleBox[{1.32, 0}, {1.34, 2736}, RoundingRadius->0], RectangleBox[{1.34, 0}, {1.36, 2496}, RoundingRadius->0], RectangleBox[{1.36, 0}, {1.38, 2396}, RoundingRadius->0], RectangleBox[{1.38, 0}, {1.4, 2352}, RoundingRadius->0], RectangleBox[{1.4, 0}, {1.42, 2094}, RoundingRadius->0], RectangleBox[{1.42, 0}, {1.44, 1998}, RoundingRadius->0], RectangleBox[{1.44, 0}, {1.46, 1871}, RoundingRadius->0], RectangleBox[{1.46, 0}, {1.48, 1782}, RoundingRadius->0], RectangleBox[{1.48, 0}, {1.5, 1587}, RoundingRadius->0], RectangleBox[{1.5, 0}, {1.52, 1482}, RoundingRadius->0], RectangleBox[{1.52, 0}, {1.54, 1238}, RoundingRadius->0], RectangleBox[{1.54, 0}, {1.56, 1223}, RoundingRadius->0], RectangleBox[{1.56, 0}, {1.58, 1055}, RoundingRadius->0], RectangleBox[{1.58, 0}, {1.6, 946}, RoundingRadius->0], RectangleBox[{1.6, 0}, {1.62, 812}, RoundingRadius->0], RectangleBox[{1.62, 0}, {1.64, 669}, RoundingRadius->0], RectangleBox[{1.64, 0}, {1.66, 554}, RoundingRadius->0], RectangleBox[{1.66, 0}, {1.68, 389}, RoundingRadius->0], RectangleBox[{1.68, 0}, {1.7, 291}, RoundingRadius->0], RectangleBox[{1.7, 0}, {1.72, 162}, RoundingRadius->0], RectangleBox[{1.72, 0}, {1.74, 24}, RoundingRadius->0]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-1.74, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{-1.74, 1.74}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.591364735119439*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "s", "}"}], ",", RowBox[{ RowBox[{"s", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"su", "[", "n", "]"}], ",", RowBox[{"{", "m", "}"}]}], "]"}]}], ";", RowBox[{"Histogram", "[", "s", "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "25", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "2000", ",", "100000", ",", "2000"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.591364475488394*^9, 3.591364480879469*^9}, { 3.5913645115226517`*^9, 3.591364613328025*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`m$$ = 2000, $CellContext`n$$ = 2, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`n$$], 2, 25, 1}, { Hold[$CellContext`m$$], 2000, 100000, 2000}}, Typeset`size$$ = { 540., {166., 176.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n$46546$$ = 0, $CellContext`m$46547$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`m$$ = 2000, $CellContext`n$$ = 2}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$46546$$, 0], Hold[$CellContext`m$$, $CellContext`m$46547$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Module[{$CellContext`s$}, $CellContext`s$ = Table[ $CellContext`su[$CellContext`n$$], {$CellContext`m$$}]; Histogram[$CellContext`s$]], "Specifications" :> {{$CellContext`n$$, 2, 25, 1}, {$CellContext`m$$, 2000, 100000, 2000}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{612., {293., 302.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.5913646152969365`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Somando aleat\[OAcute]rios que t\[EHat]m f.d.p. assim\[EAcute]trica\ \>", "Subsubsection", CellChangeTimes->{{3.591364782201496*^9, 3.5913648054065585`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"schi", "[", RowBox[{"n_", ",", "ngl_"}], "]"}], ":=", RowBox[{ RowBox[{"Total", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", "ngl", "]"}], ",", "n"}], "]"}], "]"}], "-", RowBox[{"n", " ", "ngl", " "}]}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "s", "}"}], ",", RowBox[{ RowBox[{"s", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"schi", "[", RowBox[{"n", ",", "ngl"}], "]"}], ",", RowBox[{"{", "m", "}"}]}], "]"}]}], ";", RowBox[{"Histogram", "[", "s", "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "2", ",", "25", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"ngl", ",", "1", ",", "30", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "2000", ",", "100000", ",", "2000"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.591364830596161*^9, 3.5913648824129868`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`m$$ = 2000, $CellContext`n$$ = 2, $CellContext`ngl$$ = 1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`n$$], 2, 25, 1}, { Hold[$CellContext`ngl$$], 1, 30, 1}, { Hold[$CellContext`m$$], 2000, 100000, 2000}}, Typeset`size$$ = { 540., {165., 175.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n$55511$$ = 0, $CellContext`ngl$55512$$ = 0, $CellContext`m$55513$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`m$$ = 2000, $CellContext`n$$ = 2, $CellContext`ngl$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$55511$$, 0], Hold[$CellContext`ngl$$, $CellContext`ngl$55512$$, 0], Hold[$CellContext`m$$, $CellContext`m$55513$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Module[{$CellContext`s$}, $CellContext`s$ = Table[ $CellContext`schi[$CellContext`n$$, $CellContext`ngl$$], \ {$CellContext`m$$}]; Histogram[$CellContext`s$]], "Specifications" :> {{$CellContext`n$$, 2, 25, 1}, {$CellContext`ngl$$, 1, 30, 1}, {$CellContext`m$$, 2000, 100000, 2000}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{612., {275., 284.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.591364888632253*^9}] }, Open ]], Cell["\<\ Moral da compara\[CCedilla]\[ATilde]o entre a soma de aleat\[OAcute]rios \ uniformes com a de vari\[AAcute]veis de \[Chi]^2: o Teorema Central do Limite \ n\[ATilde]o d\[AAcute] nenhuma pista sobre a rapidez com que o limite \ \[EAcute] atingido. \ \>", "Text", CellChangeTimes->{{3.591364925807234*^9, 3.5913649907501545`*^9}}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{897, 816}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, Magnification->1.5000001192092896`, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 159, 2, 111, "Title"], Cell[CellGroupData[{ Cell[763, 28, 145, 3, 130, "Section"], Cell[CellGroupData[{ Cell[933, 35, 316, 8, 45, "Input"], Cell[1252, 45, 385, 11, 86, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1674, 61, 541, 13, 75, "Input"], Cell[2218, 76, 124, 2, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2379, 83, 679, 17, 104, "Input"], Cell[3061, 102, 815, 23, 114, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3913, 130, 277, 6, 45, "Input"], Cell[4193, 138, 308, 7, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4538, 150, 137, 2, 45, "Input"], Cell[4678, 154, 2266, 61, 99, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6981, 220, 257, 5, 75, "Input"], Cell[7241, 227, 106, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7384, 233, 244, 5, 45, "Input"], Cell[7631, 240, 340, 9, 59, "Output"] }, Open ]], Cell[7986, 252, 400, 9, 103, "Text"], Cell[CellGroupData[{ Cell[8411, 265, 252, 5, 75, "Input"], Cell[8666, 272, 247, 7, 69, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8950, 284, 248, 5, 75, "Input"], Cell[9201, 291, 290, 8, 59, "Output"] }, Open ]], Cell[9506, 302, 203, 4, 74, "Text"], Cell[CellGroupData[{ Cell[9734, 310, 499, 16, 45, "Input"], Cell[10236, 328, 216, 5, 54, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10489, 338, 158, 3, 58, "Subsubsection"], Cell[10650, 343, 233, 4, 74, "Text"], Cell[CellGroupData[{ Cell[10908, 351, 135, 3, 45, "Input"], Cell[11046, 356, 308, 8, 46, "Output"] }, Open ]], Cell[11369, 367, 160, 3, 45, "Text"], Cell[CellGroupData[{ Cell[11554, 374, 130, 3, 45, "Input"], Cell[11687, 379, 319, 9, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12043, 393, 210, 5, 45, "Input"], Cell[12256, 400, 267, 7, 46, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12572, 413, 201, 4, 100, "Subsubsection"], Cell[12776, 419, 343, 9, 45, "Input"], Cell[CellGroupData[{ Cell[13144, 432, 272, 7, 45, "Input"], Cell[13419, 441, 463, 9, 83, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13919, 455, 281, 7, 45, "Input"], Cell[14203, 464, 399, 8, 73, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14639, 477, 274, 7, 45, "Input"], Cell[14916, 486, 491, 11, 73, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15456, 503, 156, 3, 58, "Subsubsection"], Cell[CellGroupData[{ Cell[15637, 510, 344, 9, 45, "Input"], Cell[15984, 521, 275, 6, 105, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16296, 532, 349, 9, 75, "Input"], Cell[16648, 543, 235, 5, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16920, 553, 346, 9, 45, "Input"], Cell[17269, 564, 203, 5, 44, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17533, 576, 117, 1, 49, "Subsubtitle"], Cell[CellGroupData[{ Cell[17675, 581, 123, 1, 130, "Section"], Cell[CellGroupData[{ Cell[17823, 586, 175, 3, 58, "Subsubsection"], Cell[CellGroupData[{ Cell[18023, 593, 338, 10, 45, "Input"], Cell[18364, 605, 4483, 127, 203, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22884, 737, 136, 2, 45, "Input"], Cell[23023, 741, 11768, 193, 358, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34828, 939, 131, 2, 45, "Input"], Cell[34962, 943, 109, 2, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35108, 950, 144, 2, 45, "Input"], Cell[35255, 954, 87, 1, 44, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[35391, 961, 327, 6, 100, "Subsubsection"], Cell[35721, 969, 427, 13, 45, "Input"], Cell[CellGroupData[{ Cell[36173, 986, 234, 6, 45, "Input"], Cell[36410, 994, 4528, 128, 203, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40975, 1127, 131, 2, 45, "Input"], Cell[41109, 1131, 4135, 75, 358, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45281, 1211, 236, 6, 45, "Input"], Cell[45520, 1219, 4526, 127, 203, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50083, 1351, 129, 2, 45, "Input"], Cell[50215, 1355, 11771, 193, 352, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[62023, 1553, 676, 19, 75, "Input"], Cell[62702, 1574, 1876, 38, 619, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[64627, 1618, 168, 3, 58, "Subsubsection"], Cell[64798, 1623, 323, 10, 75, "Input"], Cell[CellGroupData[{ Cell[65146, 1637, 744, 21, 104, "Input"], Cell[65893, 1660, 2122, 42, 583, "Output"] }, Open ]], Cell[68030, 1705, 339, 6, 103, "Text"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)