(* 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[ 30981, 883] NotebookOptionsPosition[ 29611, 831] NotebookOutlinePosition[ 29975, 847] CellTagsIndexPosition[ 29932, 844] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Conceitos Gerais - 13/8/2013 - Vito R. Vanin\ \>", "Subtitle", CellChangeTimes->{{3.585315930609539*^9, 3.5853159650332255`*^9}}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Exemplo da metaliza\[CCedilla]\[ATilde]o - Figura \ 1.2", "Subsection"]], "Subsubsection", CellChangeTimes->{{3.585315986034333*^9, 3.5853160127076073`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", " ", RowBox[{ RowBox[{"Ceiling", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"UniformDistribution", "[", RowBox[{"{", RowBox[{"0", ",", "15"}], "}"}], "]"}], ",", "28"}], "]"}], " ", "]"}], ",", "15"}], " ", "]"}]], "Input", CellChangeTimes->{{3.585327842792141*^9, 3.585327844385953*^9}, { 3.585327884747486*^9, 3.585327889372695*^9}, {3.585327921405658*^9, 3.5853279705957174`*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.602]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.602]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0}, {2., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{9.125000000000004, 39.052551020408174`}, { 73.15399688681353, 123.14417530979756`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {3., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{37.802551020408174`, 67.73010204081633}, { 24.413818463829486`, 123.14417530979756`}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0}, {4., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{66.48010204081633, 96.40765306122451}, { 73.15399688681353, 123.14417530979756`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0}, {5., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{95.15765306122451, 125.08520408163268`}, { 73.15399688681353, 123.14417530979756`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0}, {7., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{152.5127551020408, 182.440306122449}, { 24.413818463829486`, 123.14417530979756`}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7., 0}, {8., 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{181.190306122449, 211.11785714285716`}, {-121.80671680512262`, 123.14417530979756`}}], StatusArea[#, 5]& , TagBoxNote->"5"], StyleBox["5", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[5, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8., 0}, {9., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{209.86785714285716`, 239.7954081632653}, { 73.15399688681353, 123.14417530979756`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9., 0}, {10., 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{238.5454081632653, 268.47295918367354`}, {-73.06653838213859, 123.14417530979756`}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0}, {11., 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{267.22295918367354`, 297.1505102040817}, { 24.413818463829486`, 123.14417530979756`}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{11., 0}, {12., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{295.9005102040817, 325.82806122448983`}, { 73.15399688681353, 123.14417530979756`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12., 0}, {13., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{324.57806122448983`, 354.50561224489803`}, { 73.15399688681353, 123.14417530979756`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{13., 0}, {14., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{353.25561224489803`, 383.1831632653062}, { 73.15399688681353, 123.14417530979756`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{14., 0}, {15., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{381.9331632653062, 411.8607142857144}, { 73.15399688681353, 123.14417530979756`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{15., 0}, {16., 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{410.6107142857144, 440.5382653061225}, {-121.80671680512262`, 123.14417530979756`}}], StatusArea[#, 5]& , TagBoxNote->"5"], StyleBox["5", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[5, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{1., 16.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.5853279317343264`*^9, 3.585327972298932*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Variando o n\[UAcute]mero de \[AAcute]tomos evaporados, n\ \>", "Subsubsection", CellChangeTimes->{{3.5853160721638803`*^9, 3.5853161214789734`*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Histogram", "[", RowBox[{ RowBox[{"Ceiling", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"UniformDistribution", "[", RowBox[{"{", RowBox[{"0", ",", "15"}], "}"}], "]"}], ",", "n"}], "]"}], " ", "]"}], ",", "15"}], " ", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "28"}], "}"}], ",", "2", ",", "1000", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.585327991346842*^9, 3.5853281230725164`*^9}, { 3.5853282119053173`*^9, 3.585328212124075*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`n$$ = 29, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`n$$], 28}, 2, 1000, 1}}, Typeset`size$$ = { 450., {142., 149.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n$16496$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n$$ = 28}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$16496$$, 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" :> Histogram[ Ceiling[ RandomVariate[ UniformDistribution[{0, 15}], $CellContext`n$$]], 15], "Specifications" :> {{{$CellContext`n$$, 28}, 2, 1000, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{511., {198., 205.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Input", CellChangeTimes->{3.5853282320000944`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ M\[EAcute]dia e desvio-padr\[ATilde]o do centro de massa dos \[AAcute]tomos \ evaporados\ \>", "Subsubsection", CellChangeTimes->{{3.5853161575121217`*^9, 3.5853161839978867`*^9}, { 3.585317231834231*^9, 3.585317239756545*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "u", "}"}], ",", RowBox[{ RowBox[{"u", "=", RowBox[{"Ceiling", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"UniformDistribution", "[", RowBox[{"{", RowBox[{"0", ",", "15"}], "}"}], "]"}], ",", "n"}], "]"}], " ", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Round", "[", RowBox[{ RowBox[{"Mean", "[", "u", "]"}], ",", "0.1"}], "]"}], ",", "\"\< desvio-padr\[ATilde]o= \>\"", ",", RowBox[{"Round", "[", RowBox[{ RowBox[{"StandardDeviation", "[", "u", "]"}], ",", "0.1"}], "]"}], " ", ",", " ", "\"\< com n= \>\"", ",", "n"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Histogram", "[", RowBox[{"u", ",", "15"}], " ", "]"}]}]}], " ", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "28"}], "}"}], ",", "2", ",", "1000", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5853285940347853`*^9, 3.585328650225241*^9}, { 3.5853286901960955`*^9, 3.585328703431135*^9}, {3.585328739870551*^9, 3.5853288666428757`*^9}, {3.5853289623822813`*^9, 3.585328973539092*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`n$$ = 35, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`n$$], 28}, 2, 1000, 1}}, Typeset`size$$ = { 450., {142., 149.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n$40377$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n$$ = 28}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$40377$$, 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`u$}, $CellContext`u$ = Ceiling[ RandomVariate[ UniformDistribution[{0, 15}], $CellContext`n$$]]; Print["m\[EAcute]dia=", Round[ Mean[$CellContext`u$], 0.1], " desvio-padr\[ATilde]o= ", Round[ StandardDeviation[$CellContext`u$], 0.1], " com n= ", $CellContext`n$$]; Histogram[$CellContext`u$, 15]], "Specifications" :> {{{$CellContext`n$$, 28}, 2, 1000, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{511., {198., 205.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.5853289033010235`*^9, 3.58532898058634*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ A m\[EAcute]dia como estat\[IAcute]stica que estima a grandeza\ \>", "Subsection", CellChangeTimes->{{3.585317606588334*^9, 3.58531762337047*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"exemplo", ",", "u"}], "}"}], ",", RowBox[{ RowBox[{"exemplo", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "3"}], "]"}], ",", "n"}], "]"}]}], ";", RowBox[{"u", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"Mean", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "3"}], "]"}], ",", "n"}], "]"}], " ", "]"}], ",", RowBox[{"{", "repeticao", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GraphicsRow", "[", RowBox[{"{", RowBox[{ RowBox[{"Histogram", "[", "exemplo", "]"}], ",", RowBox[{"Histogram", "[", "u", "]"}]}], " ", "}"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "20"}], "}"}], ",", "2", ",", "1000", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"repeticao", ",", "10"}], "}"}], ",", "2", ",", "10000", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.58532912037497*^9, 3.585329285024225*^9}, { 3.58532931541648*^9, 3.5853162714087334`*^9}, {3.5853172857745543`*^9, 3.5853173623254857`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`n$$ = 962, $CellContext`repeticao$$ = 3181, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`n$$], 20}, 2, 1000, 1}, {{ Hold[$CellContext`repeticao$$], 10}, 2, 10000, 1}}, Typeset`size$$ = { 1100., {177., 184.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n$138254$$ = 0, $CellContext`repeticao$138255$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n$$ = 20, $CellContext`repeticao$$ = 10}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$138254$$, 0], Hold[$CellContext`repeticao$$, $CellContext`repeticao$138255$$, 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`exemplo$, $CellContext`u$}, $CellContext`exemplo$ = RandomVariate[ NormalDistribution[20, 3], $CellContext`n$$]; $CellContext`u$ = Table[ Mean[ RandomVariate[ NormalDistribution[ 20, 3], $CellContext`n$$]], {$CellContext`repeticao$$}]; GraphicsRow[{ Histogram[$CellContext`exemplo$], Histogram[$CellContext`u$]}]], "Specifications" :> {{{$CellContext`n$$, 20}, 2, 1000, 1}, {{$CellContext`repeticao$$, 10}, 2, 10000, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{1161., {251., 258.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.5853292987749505`*^9, 3.5853162746119986`*^9}, 3.585317367231965*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ "A", " ", "m\[EAcute]dia", " ", "do", " ", "conjunto", " ", "de", " ", "dados", " ", "sem", " ", "os", " ", "extremos", " ", "para", " ", "estimar", " ", "a", " ", "grandeza"}], "Subsubsection"]], "Input", CellChangeTimes->{{3.5853176339960256`*^9, 3.5853176869519353`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"exemplo", ",", "u"}], "}"}], ",", RowBox[{ RowBox[{"exemplo", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "3"}], "]"}], ",", "n"}], "]"}]}], ";", RowBox[{"u", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"Mean", "[", RowBox[{"Rest", "[", RowBox[{"Most", "[", RowBox[{"Sort", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "3"}], "]"}], ",", "n"}], "]"}], " ", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "repeticao", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GraphicsRow", "[", RowBox[{"{", RowBox[{ RowBox[{"Histogram", "[", "exemplo", "]"}], ",", RowBox[{"Histogram", "[", "u", "]"}]}], " ", "}"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "20"}], "}"}], ",", "2", ",", "1000", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"repeticao", ",", "10"}], "}"}], ",", "2", ",", "10000", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5853164257762284`*^9, 3.585316541985468*^9}, { 3.585317527927929*^9, 3.585317556898223*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`n$$ = 453, $CellContext`repeticao$$ = 10000, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`n$$], 20}, 2, 1000, 1}, {{ Hold[$CellContext`repeticao$$], 10}, 2, 10000, 1}}, Typeset`size$$ = { 1109., {178., 186.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n$163230$$ = 0, $CellContext`repeticao$163231$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n$$ = 20, $CellContext`repeticao$$ = 10}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$163230$$, 0], Hold[$CellContext`repeticao$$, $CellContext`repeticao$163231$$, 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`exemplo$, $CellContext`u$}, $CellContext`exemplo$ = RandomVariate[ NormalDistribution[20, 3], $CellContext`n$$]; $CellContext`u$ = Table[ Mean[ Rest[ Most[ Sort[ RandomVariate[ NormalDistribution[ 20, 3], $CellContext`n$$]]]]], {$CellContext`repeticao$$}]; GraphicsRow[{ Histogram[$CellContext`exemplo$], Histogram[$CellContext`u$]}]], "Specifications" :> {{{$CellContext`n$$, 20}, 2, 1000, 1}, {{$CellContext`repeticao$$, 10}, 2, 10000, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{1170., {253., 260.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.585316546048148*^9, 3.585317560804646*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ "A", " ", "m\[EAcute]dia", " ", "dos", " ", "extremos", " ", "para", " ", "estimar", " ", "a", " ", "grandeza"}], "Subsubsection"]], "Input", CellChangeTimes->{3.58531770014013*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"exemplo", ",", "u"}], "}"}], ",", RowBox[{ RowBox[{"exemplo", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "3"}], "]"}], ",", "n"}], "]"}]}], ";", RowBox[{"u", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"Mean", "[", RowBox[{ RowBox[{"Sort", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "3"}], "]"}], ",", "n"}], "]"}], " ", "]"}], "[", RowBox[{"[", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "repeticao", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GraphicsRow", "[", RowBox[{"{", RowBox[{ RowBox[{"Histogram", "[", "exemplo", "]"}], ",", RowBox[{"Histogram", "[", "u", "]"}]}], " ", "}"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "20"}], "}"}], ",", "2", ",", "1000", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"repeticao", ",", "10"}], "}"}], ",", "2", ",", "10000", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5853177381733494`*^9, 3.5853177858789835`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`n$$ = 65, $CellContext`repeticao$$ = 10000, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`n$$], 20}, 2, 1000, 1}, {{ Hold[$CellContext`repeticao$$], 10}, 2, 10000, 1}}, Typeset`size$$ = { 1016., {163., 170.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n$165748$$ = 0, $CellContext`repeticao$165749$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n$$ = 20, $CellContext`repeticao$$ = 10}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$165748$$, 0], Hold[$CellContext`repeticao$$, $CellContext`repeticao$165749$$, 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`exemplo$, $CellContext`u$}, $CellContext`exemplo$ = RandomVariate[ NormalDistribution[20, 3], $CellContext`n$$]; $CellContext`u$ = Table[ Mean[ Part[ Sort[ RandomVariate[ NormalDistribution[20, 3], $CellContext`n$$]], { 1, -1}]], {$CellContext`repeticao$$}]; GraphicsRow[{ Histogram[$CellContext`exemplo$], Histogram[$CellContext`u$]}]], "Specifications" :> {{{$CellContext`n$$, 20}, 2, 1000, 1}, {{$CellContext`repeticao$$, 10}, 2, 10000, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{1077., {237., 244.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.5853177929106054`*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1328, 583}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, Magnification->1.25, 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, 140, 3, 62, "Subtitle"], Cell[CellGroupData[{ Cell[744, 29, 182, 2, 43, "Subsubsection"], Cell[CellGroupData[{ Cell[951, 35, 484, 12, 36, InheritFromParent], Cell[1438, 49, 9632, 299, 309, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11119, 354, 160, 3, 42, "Subsubsection"], Cell[11282, 359, 639, 18, 36, "Input"], Cell[11924, 379, 1602, 34, 423, InheritFromParent] }, Open ]], Cell[CellGroupData[{ Cell[13563, 418, 240, 5, 42, "Subsubsection"], Cell[CellGroupData[{ Cell[13828, 427, 1395, 35, 83, "Input"], Cell[15226, 464, 1921, 40, 423, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17196, 510, 157, 3, 53, "Subsection"], Cell[CellGroupData[{ Cell[17378, 517, 1470, 42, 83, "Input"], Cell[18851, 561, 2306, 48, 529, "Output"] }, Open ]], Cell[21172, 612, 321, 6, 47, "Input"], Cell[CellGroupData[{ Cell[21518, 622, 1555, 44, 83, "Input"], Cell[23076, 668, 2344, 50, 533, "Output"] }, Open ]], Cell[25435, 721, 224, 5, 47, "Input"], Cell[CellGroupData[{ Cell[25684, 730, 1587, 46, 83, "Input"], Cell[27274, 778, 2297, 48, 533, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)