(* 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[ 71200, 1987] NotebookOptionsPosition[ 69297, 1916] NotebookOutlinePosition[ 69680, 1932] CellTagsIndexPosition[ 69637, 1929] 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["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[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{"{", RowBox[{ "1.6007131163592412`", ",", "1.666964807042679`", ",", "0.5706076822876351`", ",", TemplateBox[{"999994"}, "OutputSizeLimit`Skeleton", DisplayFunction->(FrameBox[ RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}], Background -> GrayLevel[0.75], BaseStyle -> { "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, ShowStringCharacters -> False}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 1, FrameStyle -> GrayLevel[0.75], RoundingRadius -> 7]& )], ",", "1.1645013906790602`", ",", "0.44399629621285985`", ",", "0.6185718114249239`"}], "}"}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{98., {4., 14.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarCategory", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm]], DynamicUpdating -> True, StripOnInput -> False]], Annotation[#, Style[ Dynamic[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], DynamicUpdating -> True], "Tooltip"]& ], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{80., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 1, 22458547750970755874, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{93., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 1, 22458547750970755874, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{69., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 1, 22458547750970755874, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{120., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]} }, AutoDelete->False, FrameStyle->GrayLevel[0.85], GridBoxDividers->{"Columns" -> {False, {True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}]} }, 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.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Background->RGBColor[0.9657, 0.9753, 0.9802], FrameMargins->{{12, 12}, {0, 15}}, FrameStyle->GrayLevel[0.85], RoundingRadius->5, StripOnInput->False], Deploy, DefaultBaseStyle->"Deploy"], Out[1]]], "Output", CellChangeTimes->{3.591364237155997*^9, 3.622789630957861*^9, 3.6227900645493145`*^9, 3.6229919987217674`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "unormal", "]"}]], "Input", CellChangeTimes->{{3.591364241375247*^9, 3.5913642486257067`*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.574], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.574], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1.8, 0}, {-1.6, 38244}, "RoundingRadius" -> 0]}, ImageSizeCache->{{55.57416047190449, 82.57182759839526}, {-53.70165896068943, 133.6861998894629}}], StatusArea[#, 38244]& , TagBoxNote->"38244"], StyleBox["38244", {}, StripOnInput -> False]], Annotation[#, Style[38244, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1.6, 0}, {-1.4, 57480}, "RoundingRadius" -> 0]}, ImageSizeCache->{{81.82182753879061, 108.81949466528141`}, {-147.57692963569662`, 133.6861998894629}}], StatusArea[#, 57480]& , TagBoxNote->"57480"], StyleBox["57480", {}, StripOnInput -> False]], Annotation[#, Style[57480, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1.4, 0}, {-1.2, 57599}, "RoundingRadius" -> 0]}, ImageSizeCache->{{108.06949460567677`, 135.06716173216753`}, {-148.1576718487516, 133.6861998894629}}], StatusArea[#, 57599]& , TagBoxNote->"57599"], StyleBox["57599", {}, StripOnInput -> False]], Annotation[#, Style[57599, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1.2, 0}, {-1., 57902}, "RoundingRadius" -> 0]}, ImageSizeCache->{{134.3171616725629, 161.31482879905366`}, {-149.63636840804293`, 133.6861998894629}}], StatusArea[#, 57902]& , TagBoxNote->"57902"], StyleBox["57902", {}, StripOnInput -> False]], Annotation[#, Style[57902, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1., 0}, {-0.8, 57870}, "RoundingRadius" -> 0]}, ImageSizeCache->{{160.564828739449, 187.56249586593978`}, {-149.48020243478442`, 133.6861998894629}}], StatusArea[#, 57870]& , TagBoxNote->"57870"], StyleBox["57870", {}, StripOnInput -> False]], Annotation[#, Style[57870, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.8, 0}, {-0.6, 57578}, "RoundingRadius" -> 0]}, ImageSizeCache->{{186.81249580633514`, 213.8101629328259}, {-148.0551879288007, 133.6861998894629}}], StatusArea[#, 57578]& , TagBoxNote->"57578"], StyleBox["57578", {}, StripOnInput -> False]], Annotation[#, Style[57578, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.6, 0}, {-0.4, 57936}, "RoundingRadius" -> 0]}, ImageSizeCache->{{213.06016287322126`, 240.05782999971206`}, {-149.80229475463005`, 133.6861998894629}}], StatusArea[#, 57936]& , TagBoxNote->"57936"], StyleBox["57936", {}, StripOnInput -> False]], Annotation[#, Style[57936, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.4, 0}, {-0.2, 57583}, "RoundingRadius" -> 0]}, ImageSizeCache->{{239.3078299401074, 266.30549706659815`}, {-148.07958886212236`, 133.6861998894629}}], StatusArea[#, 57583]& , TagBoxNote->"57583"], StyleBox["57583", {}, StripOnInput -> False]], Annotation[#, Style[57583, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.2, 0}, {0., 57963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{265.5554970069935, 292.5531641334843}, {-149.9340597945669, 133.6861998894629}}], StatusArea[#, 57963]& , TagBoxNote->"57963"], StyleBox["57963", {}, StripOnInput -> False]], Annotation[#, Style[57963, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {0.2, 57747}, "RoundingRadius" -> 0]}, ImageSizeCache->{{291.80316407387966`, 318.80083120037045`}, {-148.8799394750721, 133.6861998894629}}], StatusArea[#, 57747]& , TagBoxNote->"57747"], StyleBox["57747", {}, StripOnInput -> False]], Annotation[#, Style[57747, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.2, 0}, {0.4, 57822}, "RoundingRadius" -> 0]}, ImageSizeCache->{{318.0508311407658, 345.04849826725655`}, {-149.24595347489668`, 133.6861998894629}}], StatusArea[#, 57822]& , TagBoxNote->"57822"], StyleBox["57822", {}, StripOnInput -> False]], Annotation[#, Style[57822, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.4, 0}, {0.6, 57937}, "RoundingRadius" -> 0]}, ImageSizeCache->{{344.2984982076519, 371.2961653341427}, {-149.80717494129436`, 133.6861998894629}}], StatusArea[#, 57937]& , TagBoxNote->"57937"], StyleBox["57937", {}, StripOnInput -> False]], Annotation[#, Style[57937, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.6, 0}, {0.8, 57473}, "RoundingRadius" -> 0]}, ImageSizeCache->{{370.54616527453805`, 397.5438324010288}, {-147.54276832904634`, 133.6861998894629}}], StatusArea[#, 57473]& , TagBoxNote->"57473"], StyleBox["57473", {}, StripOnInput -> False]], Annotation[#, Style[57473, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.8, 0}, {1., 57735}, "RoundingRadius" -> 0]}, ImageSizeCache->{{396.79383234142415`, 423.79149946791495`}, {-148.82137723510016`, 133.6861998894629}}], StatusArea[#, 57735]& , TagBoxNote->"57735"], StyleBox["57735", {}, StripOnInput -> False]], Annotation[#, Style[57735, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0}, {1.2, 57674}, "RoundingRadius" -> 0]}, ImageSizeCache->{{423.0414994083103, 450.0391665348011}, {-148.52368584857618`, 133.6861998894629}}], StatusArea[#, 57674]& , TagBoxNote->"57674"], StyleBox["57674", {}, StripOnInput -> False]], Annotation[#, Style[57674, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.2, 0}, {1.4, 57789}, "RoundingRadius" -> 0]}, ImageSizeCache->{{449.28916647519645`, 476.2868336016872}, {-149.08490731497386`, 133.6861998894629}}], StatusArea[#, 57789]& , TagBoxNote->"57789"], StyleBox["57789", {}, StripOnInput -> False]], Annotation[#, Style[57789, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.4, 0}, {1.6, 57677}, "RoundingRadius" -> 0]}, ImageSizeCache->{{475.53683354208255`, 502.53450066857334`}, {-148.53832640856916`, 133.6861998894629}}], StatusArea[#, 57677]& , TagBoxNote->"57677"], StyleBox["57677", {}, StripOnInput -> False]], Annotation[#, Style[57677, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.6, 0}, {1.8, 37991}, "RoundingRadius" -> 0]}, ImageSizeCache->{{501.7845006089687, 528.7821677354594}, {-52.46697173461453, 133.6861998894629}}], StatusArea[#, 37991]& , TagBoxNote->"37991"], StyleBox["37991", {}, StripOnInput -> False]], Annotation[#, Style[37991, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-1.872, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{-1.8, 1.8}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5913642518290963`*^9, 3.6227896324579678`*^9, 3.6227900661900587`*^9, 3.622992000768783*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "unormal", "]"}]], "Input", CellChangeTimes->{{3.591364258892189*^9, 3.5913642624862385`*^9}}], Cell[BoxData[ RowBox[{"-", "0.0002852377763360049`"}]], "Output", CellChangeTimes->{3.5913642629862757`*^9, 3.6227896324892216`*^9, 3.62279006622131*^9, 3.6229920008156643`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StandardDeviation", "[", "unormal", "]"}]], "Input", CellChangeTimes->{{3.591364265580247*^9, 3.5913642711744633`*^9}}], Cell[BoxData["0.9997468189952284`"], "Output", CellChangeTimes->{3.59136427169013*^9, 3.6227896325048475`*^9, 3.6227900662369366`*^9, 3.622992000846916*^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[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.7991119073614827`"}], ",", "0.9504371574576795`", ",", "0.13918658554130037`", ",", TemplateBox[{"9994"}, "OutputSizeLimit`Skeleton", DisplayFunction->(FrameBox[ RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}], Background -> GrayLevel[0.75], BaseStyle -> { "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, ShowStringCharacters -> False}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 1, FrameStyle -> GrayLevel[0.75], RoundingRadius -> 7]& )], ",", "0.35064259186380253`", ",", RowBox[{"-", "0.3422676538135545`"}], ",", "0.020195479449388078`"}], "}"}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{98., {4., 14.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarCategory", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm]], DynamicUpdating -> True, StripOnInput -> False]], Annotation[#, Style[ Dynamic[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], DynamicUpdating -> True], "Tooltip"]& ], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{80., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 6, 22458547750970755874, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{93., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 6, 22458547750970755874, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{69., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 6, 22458547750970755874, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{120., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]} }, AutoDelete->False, FrameStyle->GrayLevel[0.85], GridBoxDividers->{"Columns" -> {False, {True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}]} }, 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.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Background->RGBColor[0.9657, 0.9753, 0.9802], FrameMargins->{{12, 12}, {0, 15}}, FrameStyle->GrayLevel[0.85], RoundingRadius->5, StripOnInput->False], Deploy, DefaultBaseStyle->"Deploy"], Out[6]]], "Output", CellChangeTimes->{3.5913644467984967`*^9, 3.622789632676733*^9, 3.622790066408823*^9, 3.6229920010813065`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "s6", "]"}]], "Input", CellChangeTimes->{{3.5913644507832065`*^9, 3.591364456299292*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.602], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.602], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1.4, 0}, {-1.2, 6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{45.76631419488302, 80.94957806540691}, { 134.59768771657778`, 136.26492054389692`}}], StatusArea[#, 6]& , TagBoxNote->"6"], StyleBox["6", {}, StripOnInput -> False]], Annotation[#, Style[6, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1.2, 0}, {-1., 50}, "RoundingRadius" -> 0]}, ImageSizeCache->{{80.19957800580227, 115.38284187632615`}, { 127.87131408667153`, 136.26492054389692`}}], StatusArea[#, 50]& , TagBoxNote->"50"], StyleBox["50", {}, StripOnInput -> False]], Annotation[#, Style[50, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1., 0}, {-0.8, 182}, "RoundingRadius" -> 0]}, ImageSizeCache->{{114.63284181672151`, 149.8161056872454}, { 107.69219319695281`, 136.26492054389692`}}], StatusArea[#, 182]& , TagBoxNote->"182"], StyleBox["182", {}, StripOnInput -> False]], Annotation[#, Style[182, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.8, 0}, {-0.6, 471}, "RoundingRadius" -> 0]}, ImageSizeCache->{{149.06610562764075`, 184.24936949816467`}, { 63.51214821870498, 136.26492054389692`}}], StatusArea[#, 471]& , TagBoxNote->"471"], StyleBox["471", {}, StripOnInput -> False]], Annotation[#, Style[471, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.6, 0}, {-0.4, 930}, "RoundingRadius" -> 0]}, ImageSizeCache->{{183.49936943856002`, 218.6826333090839}, {-6.656158511453356, 136.26492054389692`}}], StatusArea[#, 930]& , TagBoxNote->"930"], StyleBox["930", {}, StripOnInput -> False]], Annotation[#, Style[930, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.4, 0}, {-0.2, 1496}, "RoundingRadius" -> 0]}, ImageSizeCache->{{217.93263324947927`, 253.11589712000318`}, {-93.18178293252004, 136.26492054389692`}}], StatusArea[#, 1496]& , TagBoxNote->"1496"], StyleBox["1496", {}, StripOnInput -> False]], Annotation[#, Style[1496, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.2, 0}, {0., 1888}, "RoundingRadius" -> 0]}, ImageSizeCache->{{252.36589706039854`, 287.5491609309224}, {-153.1076570898666, 136.26492054389692`}}], StatusArea[#, 1888]& , TagBoxNote->"1888"], StyleBox["1888", {}, StripOnInput -> False]], Annotation[#, Style[1888, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {0.2, 1850}, "RoundingRadius" -> 0]}, ImageSizeCache->{{286.7991608713178, 321.98242474184167`}, {-147.2985162276748, 136.26492054389692`}}], StatusArea[#, 1850]& , TagBoxNote->"1850"], StyleBox["1850", {}, StripOnInput -> False]], Annotation[#, Style[1850, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.2, 0}, {0.4, 1432}, "RoundingRadius" -> 0]}, ImageSizeCache->{{321.232424682237, 356.4156885527609}, {-83.39796674356549, 136.26492054389692`}}], StatusArea[#, 1432]& , TagBoxNote->"1432"], StyleBox["1432", {}, StripOnInput -> False]], Annotation[#, Style[1432, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.4, 0}, {0.6, 966}, "RoundingRadius" -> 0]}, ImageSizeCache->{{355.66568849315627`, 390.84895236368016`}, {-12.159555117740268`, 136.26492054389692`}}], StatusArea[#, 966]& , TagBoxNote->"966"], StyleBox["966", {}, StripOnInput -> False]], Annotation[#, Style[966, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.6, 0}, {0.8, 498}, "RoundingRadius" -> 0]}, ImageSizeCache->{{390.0989523040755, 425.28221617459945`}, { 59.38460076398978, 136.26492054389692`}}], StatusArea[#, 498]& , TagBoxNote->"498"], StyleBox["498", {}, StripOnInput -> False]], Annotation[#, Style[498, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.8, 0}, {1., 172}, "RoundingRadius" -> 0]}, ImageSizeCache->{{424.5322161149948, 459.7154799855187}, { 109.22091447647696`, 136.26492054389692`}}], StatusArea[#, 172]& , TagBoxNote->"172"], StyleBox["172", {}, StripOnInput -> False]], Annotation[#, Style[172, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0}, {1.2, 53}, "RoundingRadius" -> 0]}, ImageSizeCache->{{458.96547992591405`, 494.14874379643794`}, { 127.4126977028143, 136.26492054389692`}}], StatusArea[#, 53]& , TagBoxNote->"53"], StyleBox["53", {}, StripOnInput -> False]], Annotation[#, Style[53, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.2, 0}, {1.4, 6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{493.3987437368333, 528.5820076073571}, { 134.59768771657778`, 136.26492054389692`}}], StatusArea[#, 6]& , TagBoxNote->"6"], StyleBox["6", {}, StripOnInput -> False]], Annotation[#, Style[6, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-1.456, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{-1.4, 1.4}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.591364457080603*^9, 3.6227896327236133`*^9, 3.622790066471328*^9, 3.6229920011438107`*^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[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.21967643551864313`"}], ",", RowBox[{"-", "0.401446163486614`"}], ",", RowBox[{"-", "1.1565955681429572`"}], ",", TemplateBox[{"999994"}, "OutputSizeLimit`Skeleton", DisplayFunction->(FrameBox[ RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}], Background -> GrayLevel[0.75], BaseStyle -> { "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, ShowStringCharacters -> False}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 1, FrameStyle -> GrayLevel[0.75], RoundingRadius -> 7]& )], ",", "0.5949395500413504`", ",", "0.7236196460971516`", ",", RowBox[{"-", "0.9526023543181747`"}]}], "}"}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{98., {4., 14.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarCategory", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm]], DynamicUpdating -> True, StripOnInput -> False]], Annotation[#, Style[ Dynamic[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], DynamicUpdating -> True], "Tooltip"]& ], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{80., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 8, 22458547750970755874, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{93., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 8, 22458547750970755874, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{69., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 8, 22458547750970755874, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{120., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]} }, AutoDelete->False, FrameStyle->GrayLevel[0.85], GridBoxDividers->{"Columns" -> {False, {True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}]} }, 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.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Background->RGBColor[0.9657, 0.9753, 0.9802], FrameMargins->{{12, 12}, {0, 15}}, FrameStyle->GrayLevel[0.85], RoundingRadius->5, StripOnInput->False], Deploy, DefaultBaseStyle->"Deploy"], Out[8]]], "Output", CellChangeTimes->{{3.5913647043824973`*^9, 3.5913647222746162`*^9}, 3.6227896477375975`*^9, 3.6227900815036616`*^9, 3.622992018941968*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "s2", "]"}]], "Input", CellChangeTimes->{{3.591364727478179*^9, 3.591364731884796*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.574], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.574], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1.8, 0}, {-1.6, 2905}, "RoundingRadius" -> 0]}, ImageSizeCache->{{63.42043749352183, 89.99109634672732}, { 122.71019273879563`, 130.8807176640912}}], StatusArea[#, 2905]& , TagBoxNote->"2905"], StyleBox["2905", {}, StripOnInput -> False]], Annotation[#, Style[2905, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1.6, 0}, {-1.4, 15527}, "RoundingRadius" -> 0]}, ImageSizeCache->{{89.24109628712267, 115.81175514032816`}, { 90.46858693681594, 130.8807176640912}}], StatusArea[#, 15527]& , TagBoxNote->"15527"], StyleBox["15527", {}, StripOnInput -> False]], Annotation[#, Style[15527, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1.4, 0}, {-1.2, 28844}, "RoundingRadius" -> 0]}, ImageSizeCache->{{115.06175508072351`, 141.632413933929}, { 56.4516748416675, 130.8807176640912}}], StatusArea[#, 28844]& , TagBoxNote->"28844"], StyleBox["28844", {}, StripOnInput -> False]], Annotation[#, Style[28844, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1.2, 0}, {-1., 41850}, "RoundingRadius" -> 0]}, ImageSizeCache->{{140.88241387432436`, 167.45307272752984`}, { 23.229180382742783`, 130.8807176640912}}], StatusArea[#, 41850]& , TagBoxNote->"41850"], StyleBox["41850", {}, StripOnInput -> False]], Annotation[#, Style[41850, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1., 0}, {-0.8, 55076}, "RoundingRadius" -> 0]}, ImageSizeCache->{{166.7030726679252, 193.27373152113068`}, {-10.555281535890032`, 130.8807176640912}}], StatusArea[#, 55076]& , TagBoxNote->"55076"], StyleBox["55076", {}, StripOnInput -> False]], Annotation[#, Style[55076, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.8, 0}, {-0.6, 68980}, "RoundingRadius" -> 0]}, ImageSizeCache->{{192.52373146152604`, 219.09439031473153`}, {-46.07162498944143, 130.8807176640912}}], StatusArea[#, 68980]& , TagBoxNote->"68980"], StyleBox["68980", {}, StripOnInput -> False]], Annotation[#, Style[68980, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.6, 0}, {-0.4, 82334}, "RoundingRadius" -> 0]}, ImageSizeCache->{{218.34439025512688`, 244.91504910833237`}, {-80.18304979372257, 130.8807176640912}}], StatusArea[#, 82334]& , TagBoxNote->"82334"], StyleBox["82334", {}, StripOnInput -> False]], Annotation[#, Style[82334, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.4, 0}, {-0.2, 95590}, "RoundingRadius" -> 0]}, ImageSizeCache->{{244.16504904872772`, 270.7357079019332}, {-114.04414363867923`, 130.8807176640912}}], StatusArea[#, 95590]& , TagBoxNote->"95590"], StyleBox["95590", {}, StripOnInput -> False]], Annotation[#, Style[95590, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.2, 0}, {0., 108643}, "RoundingRadius" -> 0]}, ImageSizeCache->{{269.98570784232857`, 296.55636669553405`}, {-147.38669478217793`, 130.8807176640912}}], StatusArea[#, 108643]& , TagBoxNote->"108643"], StyleBox["108643", {}, StripOnInput -> False]], Annotation[#, Style[108643, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {0.2, 108937}, "RoundingRadius" -> 0]}, ImageSizeCache->{{295.8063666359294, 322.3770254891349}, {-148.13768766015147`, 130.8807176640912}}], StatusArea[#, 108937]& , TagBoxNote->"108937"], StyleBox["108937", {}, StripOnInput -> False]], Annotation[#, Style[108937, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.2, 0}, {0.4, 95636}, "RoundingRadius" -> 0]}, ImageSizeCache->{{321.62702542953025`, 348.19768428273574`}, {-114.16164592570911`, 130.8807176640912}}], StatusArea[#, 95636]& , TagBoxNote->"95636"], StyleBox["95636", {}, StripOnInput -> False]], Annotation[#, Style[95636, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.4, 0}, {0.6, 82070}, "RoundingRadius" -> 0]}, ImageSizeCache->{{347.4476842231311, 374.0183430763366}, {-79.50868884207287, 130.8807176640912}}], StatusArea[#, 82070]& , TagBoxNote->"82070"], StyleBox["82070", {}, StripOnInput -> False]], Annotation[#, Style[82070, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.6, 0}, {0.8, 69255}, "RoundingRadius" -> 0]}, ImageSizeCache->{{373.26834301673193`, 399.8390018699374}, {-46.77408431407653, 130.8807176640912}}], StatusArea[#, 69255]& , TagBoxNote->"69255"], StyleBox["69255", {}, StripOnInput -> False]], Annotation[#, Style[69255, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.8, 0}, {1., 55323}, "RoundingRadius" -> 0]}, ImageSizeCache->{{399.0890018103328, 425.65966066353826`}, {-11.18621772928958, 130.8807176640912}}], StatusArea[#, 55323]& , TagBoxNote->"55323"], StyleBox["55323", {}, StripOnInput -> False]], Annotation[#, Style[55323, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0}, {1.2, 41986}, "RoundingRadius" -> 0]}, ImageSizeCache->{{424.9096606039336, 451.4803194571391}, { 22.881782316741408`, 130.8807176640912}}], StatusArea[#, 41986]& , TagBoxNote->"41986"], StyleBox["41986", {}, StripOnInput -> False]], Annotation[#, Style[41986, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.2, 0}, {1.4, 28766}, "RoundingRadius" -> 0]}, ImageSizeCache->{{450.73031939753446`, 477.30097825073994`}, { 56.650917850109465`, 130.8807176640912}}], StatusArea[#, 28766]& , TagBoxNote->"28766"], StyleBox["28766", {}, StripOnInput -> False]], Annotation[#, Style[28766, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.4, 0}, {1.6, 15388}, "RoundingRadius" -> 0]}, ImageSizeCache->{{476.5509781911353, 503.1216370443408}, { 90.82364819544969, 130.8807176640912}}], StatusArea[#, 15388]& , TagBoxNote->"15388"], StyleBox["15388", {}, StripOnInput -> False]], Annotation[#, Style[15388, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.6, 0}, {1.8, 2890}, "RoundingRadius" -> 0]}, ImageSizeCache->{{502.37163698473614`, 528.9422958379416}, { 122.74850870195755`, 130.8807176640912}}], StatusArea[#, 2890]& , TagBoxNote->"2890"], StyleBox["2890", {}, StripOnInput -> False]], Annotation[#, Style[2890, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-1.872, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{-1.8, 1.8}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.591364735119439*^9, 3.6227896492064533`*^9, 3.6227900829568906`*^9, 3.6229920208483515`*^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., {161., 171.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n$1073$$ = 0, $CellContext`m$1074$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`m$$ = 2000, $CellContext`n$$ = 2}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$1073$$, 0], Hold[$CellContext`m$$, $CellContext`m$1074$$, 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., {250., 259.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.5913646152969365`*^9, 3.6227896494564714`*^9, 3.6227900831912813`*^9, 3.6229920212546325`*^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$$ = 6, $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., {162., 172.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n$1157$$ = 0, $CellContext`ngl$1158$$ = 0, $CellContext`m$1159$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`m$$ = 2000, $CellContext`n$$ = 2, $CellContext`ngl$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$1157$$, 0], Hold[$CellContext`ngl$$, $CellContext`ngl$1158$$, 0], Hold[$CellContext`m$$, $CellContext`m$1159$$, 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., {272., 281.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.591364888632253*^9, 3.622789649565855*^9, 3.6227900832850385`*^9, 3.6229920213796425`*^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 define a rapidez com que o limite \[EAcute] atingido. \ \>", "Text", CellChangeTimes->{{3.591364925807234*^9, 3.5913649907501545`*^9}, { 3.622790129658645*^9, 3.6227901362997484`*^9}}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{897, 775}, WindowMargins->{{108, Automatic}, {Automatic, 16}}, Magnification->1.5000001192092896`, 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[579, 22, 159, 2, 111, "Title"], Cell[CellGroupData[{ Cell[763, 28, 123, 1, 106, "Section"], Cell[CellGroupData[{ Cell[911, 33, 169, 2, 58, "Subsubsection"], Cell[CellGroupData[{ Cell[1105, 39, 338, 10, 45, "Input"], Cell[1446, 51, 7969, 205, 164, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9452, 261, 136, 2, 45, "Input"], Cell[9591, 265, 12409, 349, 346, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22037, 619, 131, 2, 45, "Input"], Cell[22171, 623, 182, 3, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22390, 631, 144, 2, 45, "Input"], Cell[22537, 635, 160, 2, 44, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[22746, 643, 327, 6, 100, "Subsubsection"], Cell[23076, 651, 427, 13, 45, "Input"], Cell[CellGroupData[{ Cell[23528, 668, 234, 6, 45, "Input"], Cell[23765, 676, 8014, 206, 164, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31816, 887, 131, 2, 45, "Input"], Cell[31950, 891, 9717, 277, 349, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41704, 1173, 236, 6, 45, "Input"], Cell[41943, 1181, 8071, 206, 164, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50051, 1392, 129, 2, 45, "Input"], Cell[50183, 1396, 12398, 349, 339, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[62618, 1750, 676, 19, 75, "Input"], Cell[63297, 1771, 2015, 40, 533, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[65361, 1817, 162, 2, 58, "Subsubsection"], Cell[65526, 1821, 323, 10, 75, "Input"], Cell[CellGroupData[{ Cell[65874, 1835, 744, 21, 104, "Input"], Cell[66621, 1858, 2257, 44, 577, "Output"] }, Open ]], Cell[68893, 1905, 364, 6, 103, "Text"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)