(* 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[ 63981, 1614] NotebookOptionsPosition[ 60563, 1491] NotebookOutlinePosition[ 60941, 1507] CellTagsIndexPosition[ 60898, 1504] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["O Limite M\[IAcute]nimo da Vari\[AHat]ncia", \ "Subtitle"]], "Subsubtitle", CellChangeTimes->{{3.591944385734125*^9, 3.5919443950627675`*^9}}], Cell[CellGroupData[{ Cell["C\[AAcute]lculo te\[OAcute]rico para uma f.d.p. de Cauchy", "Section", CellChangeTimes->{{3.5919444186734023`*^9, 3.591944436299327*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "=", RowBox[{"PDF", "[", RowBox[{ RowBox[{"CauchyDistribution", "[", RowBox[{"\[Theta]", ",", "1"}], "]"}], ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.5919444423777685`*^9, 3.5919444719575033`*^9}}], Cell[BoxData[ FractionBox["1", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "\[Theta]"}], ")"}], "2"]}], ")"}]}]]], "Output", CellChangeTimes->{3.591944475848307*^9, 3.5919494851885653`*^9, 3.622992081364581*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "Infinity"}], ",", "Infinity"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"\[Theta]", "\[Element]", "Reals"}]}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "usando", " ", "a", " ", "propriedade", " ", "da", " ", "normaliza\[CCedilla]\[ATilde]o", " ", "para", " ", "verificar", " ", "que", " ", "achamos", " ", "como", " ", "integrar", " ", "essa", " ", "fun\[CCedilla]\[ATilde]o"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.5919452667412095`*^9, 3.5919453188506556`*^9}, { 3.5919475156238165`*^9, 3.5919475547349033`*^9}}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.5919453200406866`*^9, 3.591949485810581*^9, 3.6229920821615148`*^9}] }, Open ]], Cell["\<\ LMV \[EAcute] o inverso e oposto do valor esperado da segunda derivada - come\ \[CCedilla]amos derivando\ \>", "Text", CellChangeTimes->{{3.5919445095063562`*^9, 3.591944535804658*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d2f", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"Log", "[", "f", "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5919445435706773`*^9, 3.5919446005893803`*^9}, { 3.591945390056634*^9, 3.5919453954568143`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["2", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "\[Theta]"}], ")"}], "2"]}]]}], "+", FractionBox[ RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "\[Theta]"}], ")"}], "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "\[Theta]"}], ")"}], "2"]}], ")"}], "2"]]}]], "Output", CellChangeTimes->{{3.591944568806431*^9, 3.5919446016675315`*^9}, 3.5919454183354206`*^9, 3.5919494858225822`*^9, 3.622992082177142*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d2f", "=", RowBox[{"FullSimplify", "[", "d2f", "]"}]}]], "Input", CellChangeTimes->{{3.5919446384038963`*^9, 3.5919446591706066`*^9}, { 3.5919475762395015`*^9, 3.591947581519679*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "\[Theta]"}], ")"}], "2"]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "\[Theta]"}], ")"}], "2"]}], ")"}], "2"]]], "Output", CellChangeTimes->{{3.5919446526546326`*^9, 3.5919446601237826`*^9}, 3.591945423037551*^9, 3.5919494858705826`*^9, 3.622992082224024*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ A fun\[CCedilla]\[ATilde]o verossimilhan\[CCedilla]a \[EAcute] o produto de n \ fun\[CCedilla]\[OTilde]es de Cauchy e a derivada do LogL d\[AAcute] uma soma \ de n termos. Assim, terminamos com a soma de n termos identicos...\ \>", "Subsubsection", CellChangeTimes->{{3.5919476212187815`*^9, 3.5919477105052614`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lmv", "=", RowBox[{ RowBox[{"-", "1"}], "/", RowBox[{"(", RowBox[{"n", " ", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"f", " ", "d2f"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "Infinity"}], ",", "Infinity"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"\[Theta]", "\[Element]", "Reals"}]}]}], "]"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.591944672483818*^9, 3.5919447883806686`*^9}, { 3.5919448646191144`*^9, 3.591944901496089*^9}, {3.5919453542836404`*^9, 3.5919453645659266`*^9}}], Cell[BoxData[ FractionBox["2", "n"]], "Output", CellChangeTimes->{{3.5919447113140473`*^9, 3.591944732143257*^9}, 3.591944763504307*^9, 3.5919447949591126`*^9, {3.5919448770416245`*^9, 3.5919449035274167`*^9}, 3.591945366421976*^9, 3.5919454279396873`*^9, 3.591949486238591*^9, 3.622992082520919*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Compara\[CCedilla]\[ATilde]o com dois estimadores diferentes...", \ "Subsection", CellChangeTimes->{{3.591949296203309*^9, 3.5919493079876366`*^9}}], Cell[CellGroupData[{ Cell["Determina\[CCedilla]\[ATilde]o da vari\[AHat]ncia da mediana como \ estimativa de \[Theta]", "Subsubsection", CellChangeTimes->{{3.5919477653967857`*^9, 3.5919478355547094`*^9}, 3.5919478826900196`*^9, {3.591947924333207*^9, 3.5919479442197566`*^9}}], Cell["simula\[CCedilla]\[ATilde]o...", "Text", CellChangeTimes->{{3.591947954018005*^9, 3.591947957090119*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"CauchyDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "10"}], "]"}]}]], "Input", CellChangeTimes->{{3.5919477355539293`*^9, 3.591947751434371*^9}, { 3.591947842128892*^9, 3.591947842746909*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.7737768889767753`"}], ",", RowBox[{"-", "2.2901168428655216`"}], ",", "4.145764832381501`", ",", RowBox[{"-", "1.623132644680722`"}], ",", RowBox[{"-", "1.1338373219939628`"}], ",", RowBox[{"-", "4.287371364803711`"}], ",", "0.22914095572601512`", ",", "0.4204204414060867`", ",", RowBox[{"-", "3.261133031473921`"}], ",", RowBox[{"-", "6.278627196562075`"}]}], "}"}]], "Output", CellChangeTimes->{3.591947843926944*^9, 3.5919494862845936`*^9, 3.622992082724059*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Median", "[", "u", "]"}]], "Input", CellChangeTimes->{{3.591947858317342*^9, 3.5919478631295033`*^9}}], Cell[BoxData[ RowBox[{"-", "1.3784849833373425`"}]], "Output", CellChangeTimes->{3.591947863959501*^9, 3.591949486302594*^9, 3.622992082739682*^9}] }, Open ]], Cell["\<\ repetir a simula\[CCedilla]\[ATilde]o muitas vezes (1000) e determinar a \ variancia da estimativa, para comparar com o LMV\ \>", "Text", CellChangeTimes->{{3.591947903832608*^9, 3.591947914600934*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"q", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Median", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"CauchyDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "10"}], "]"}], "]"}], ",", RowBox[{"{", "1000", "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5919448452118006`*^9, 3.591944854868598*^9}, { 3.5919454533844986`*^9, 3.591945537208825*^9}, {3.5919478703556767`*^9, 3.5919478745557947`*^9}, {3.591947978874693*^9, 3.5919480056894655`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Variance", "[", "q", "]"}]], "Input", CellChangeTimes->{{3.591947966150342*^9, 3.5919479699704456`*^9}}], Cell[BoxData["0.32800606897015777`"], "Output", CellChangeTimes->{{3.5919479705024605`*^9, 3.5919480098095536`*^9}, 3.5919494863565955`*^9, 3.622992082770938*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Repetir o c\[AAcute]lculo para v\[AAcute]rios valores de n, pequenos", \ "Subsubsection", CellChangeTimes->{{3.591948037266345*^9, 3.591948050966726*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"varMediana", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"Variance", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Median", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"CauchyDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "n"}], "]"}], "]"}], ",", RowBox[{"{", "10000", "}"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "3", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.591945605336722*^9, 3.5919456637763453`*^9}, 3.591948060570964*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "14.582740009386645`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "9.685500661739576`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1.1281925458106723`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "0.8043970164078329`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "0.6036511531160951`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "0.4623155938442449`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "0.4042819058405089`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0.33804049780198436`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "0.311128040666027`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "0.25453827235653387`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "0.24019283466862776`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "0.20852694629475596`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0.20512980001018355`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "0.18140196027370598`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "0.1769567060631156`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "0.16208457113391586`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "0.15262777477764664`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "0.1398203673097646`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "0.1375226506871099`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "0.13087696723606004`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "0.12265865651853908`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "0.1129229517456986`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "0.11414746585365208`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "0.10545289229084748`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "0.10224117763483698`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "0.09439678834726503`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "0.09357371139203399`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "0.08929581949262146`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.5919456431677713`*^9, 3.5919456657143974`*^9}, 3.5919480735673256`*^9, 3.591949494586824*^9, 3.6229920907715073`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"varMediana", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"2", "/", "n"}], ",", RowBox[{"{", RowBox[{"n", ",", "3", ",", "30"}], "}"}]}], "]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.5919457113176656`*^9, 3.591945745994629*^9}, { 3.5919481018441105`*^9, 3.59194812620079*^9}, {3.591949375429513*^9, 3.5919494109404984`*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.019444444444444445`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQDQEcDpePsjyL0dJ1gPAFHObKhn/8GacM5Ys4rJ5Q u0CY95M9hC/hUCd+/vy8vS+hfBkHg0IpS5nAx1C+gkNN1X+VKdPuQvlKDuZH /5gdvH8TyldxYJfbNKdk0VUoX82h/u7Dqa0vL0P5Gg71jdeeRHldgPK1HCwD L3Ys3ncOytdxCL4Vep5p4ykoX8/hh7tt9UZHGN/AIU4t/b2uxXEo39Dh3ao1 BS3LjkH5Rg4XM6Xe6e8/AuUbO6w+M2GSX+dhKN/EYV19icOipwehfFOHH21T ZofPgvHNHJbyck2efOAAlG/uoNISeKwvbT+Ub+HArb/9QMuLPVC+pYO84+EN Ryz2QvlWDnNSV3z++m8XlG/tcILZPqhKB8a3cVBrP+OXrLUDyrd1yNpkGFf0 ZTuUb+cw8U2yg/idbfYA8wd/hA== "]]}, {}}, {}}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVzns40wscgHGPjDSVoa0RJ9dE5n738/0m1FQmnS4TqumCSJ1SilJuKSUl ndJJ6DLmUr+xaElodFEUI5F1jxKdUm4jp/PH+3z+ffV5Uf6bFRUUFIJ/97+7 XFIsVk2oozRw+p7lhjLI1Uv+IDpAw5wCalyBVzcoVyqphmRooMenvZS0M13g ObpxzZNzGhhAuT9TPbULDrvcveqYp4G9OrEbcmO7YLxqn4eaUANLo83PveV1 wffagVhRqwbC9xVVfdZd8KqxY0CFoYn8L2KqUksnVL4qlhZf1ETribLjfcxO CFNZlTsk0MKR3Rbx7fUdkLIlN4VRroWZxbren8UdcKW+L8Lpjhaa2+YIVG50 wOvEBOf9zVroNCFkrs/ugLUKN1omBrVQmyq0iY/qAO/RaRQKMQvNFl8W7NPp AIO+mjDN5ll48qywXHn/c+hqWmBrNUhH+dKMIntOO5RTQoxFcjqyWywF/3q3 Q7rbeYaLEgMb6eP3Sfd2QAFlfNEsBi6i/vLyZrXDlWSZZI0jAy30qBkV09th u1vG6vhYBnamL78ketIGCoLBfU1TZmNEq17R4Io2MEkW10RoMXHnP8xE23Ap vH4h8ynQZWLLX02BQp4UzrOmtL0zYWLQis+VDuukoNax9FOAMxNVFhu95iyT wjezbho7mIk8Y7NF91hSqHo6yTMuYOLefIpb4Y9WWDnHiyJz1cZoj68lPkmt cKismc0J0cG0EEv1OrIFdvyyN9zG10VtLZmDmuczcHHyHz4q+QNTShwF33Wf gurP/SF8FX3sMlvVe0a9CXj1/CVpTAMcnh25OZ/9GJSNJtqoJoZoOrlxznjV IxC60zeuZxuhPPPUCUXiITT6HQuz4xrj8Y3RrVfl96FPry7qZbwJjhnmzsio bYDVsQZ6+nnzMG8NC8cF9cBq7mb3lJri8gu8W2bVEpj+KnDXodb5GHD8gfr8 1nvA/eigfeG9Gf65PaeyTfUelBRKq1PVFuCzmheVI1gHy+TZVE1LC6xJ0Pvm nlYLaz2r2vTcWeib3yNSHKiBbey8ixMhltiQ1ClL4tTAUP6ObyxXK5zTbXRz RdpdWNdrFFpSa4WBMf1cg/RqkFBvB2WttEa237Cf9PgdeC/4RavussZJi2qL I0VVoGJq5OUXZYMt1nId5Ybb4Pcl6LGVgi0miHKOLPwuBs4CLw3/I7aowedv euwoBn+fGc9fMu0w8suRpMKYW0B9nxRQkG+H/b2ajObmSvgsmWlTZ2qP9NhS 85M2lfAkMS7VS2yPTrQizuGMCthSffaiqocDZkd5M+oVKmDK89PWjm0O6MoN kByMuAmrt7klXQ12RJOHcTG5vSJo9h4z431wRNdDIxGzI0WwVCHbL3WvEy6z 7zGc018OB+177L5OOmGg91HVr/vLQbSEfu5upjO6f+wPzFQqB9plLkdm5IJv 6OJP0VllYLjPp54odsGCALupNJsycLbQFSuDK1aI/7blPxKCctDFSPUHrnhi XlLJz0ghjLRaR4f6uuGVxendB+hCGDAtkM9/7YbnL8XFWN0mIXu0EReEEnhg siiKFUaCe/Plk2nhBOZlHpM3bCXh7ZVY2ecIAjlZwbXrt5Bg7mceV7iTwFfP S8dOhZBQde1YhUksgde1wgxGg0joXslm6acTuGp8tkuLPwlzSxt06OUEcj1+ zL/uRoIkMSc8+iaBTZwbL3xdSQjl7rklrSSwZ6SwdsCZBFLJZE3mHQIFS+a6 WDqS4LEu+bT6fQKNR3MbhdYkbJrqqUrtJHDm7oWbJSYkTJXprA1/SWCW5qnT W41JKC4bvPZQ9vuvZ8nwNCMSfgZf9kx9R6BSWNUWf30SUkSKhyj9BJZzPF6+ 0yHBLK2zadNXAmljvHup2iQ0bRDqSr4R6CtOeGPBJIGuxrudMETgkGtaXQyd BPEb52lvRwiM7+Em680iIbiCxl0oJ9DgwOBBiSYJiic+8XMnCIRxn+vhGiTw ebVDk5ME+oWupNNoJPwHUMuuMg== "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{2.578125, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{729.9999705950452, Automatic}, Method->{}, PlotRange->{{3., 30.}, {0, 14.582740009386645`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.591945730274194*^9, 3.591945746546646*^9}, 3.59194808380361*^9, 3.5919481271148157`*^9, 3.5919494136625757`*^9, 3.591949494726829*^9, 3.622992090880892*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"varMediana", ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}]}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"2", "/", "n"}], ",", RowBox[{"{", RowBox[{"n", ",", "3", ",", "30"}], "}"}]}], "]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.5919494440894194`*^9, 3.591949449883581*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.019444444444444445`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQDQEcDpePsjyL0dJ1gPAFHObKhn/8GacM5Ys4rJ5Q u0CY95M9hC/hUCd+/vy8vS+hfBkHg0IpS5nAx1C+gkNN1X+VKdPuQvlKDuZH /5gdvH8TyldxYJfbNKdk0VUoX82h/u7Dqa0vL0P5Gg71jdeeRHldgPK1HCwD L3Ys3ncOytdxCL4Vep5p4ykoX8/hh7tt9UZHGN/AIU4t/b2uxXEo39Dh3ao1 BS3LjkH5Rg4XM6Xe6e8/AuUbO6w+M2GSX+dhKN/EYV19icOipwehfFOHH21T ZofPgvHNHJbyck2efOAAlG/uoNISeKwvbT+Ub+HArb/9QMuLPVC+pYO84+EN Ryz2QvlWDnNSV3z++m8XlG/tcILZPqhKB8a3cVBrP+OXrLUDyrd1yNpkGFf0 ZTuUb+cw8U2yg/idbfYA8wd/hA== "]]}, {}}, {}}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVzns40wscgHGPjDSVoa0RJ9dE5n738/0m1FQmnS4TqumCSJ1SilJuKSUl ndJJ6DLmUr+xaElodFEUI5F1jxKdUm4jp/PH+3z+ffV5Uf6bFRUUFIJ/97+7 XFIsVk2oozRw+p7lhjLI1Uv+IDpAw5wCalyBVzcoVyqphmRooMenvZS0M13g ObpxzZNzGhhAuT9TPbULDrvcveqYp4G9OrEbcmO7YLxqn4eaUANLo83PveV1 wffagVhRqwbC9xVVfdZd8KqxY0CFoYn8L2KqUksnVL4qlhZf1ETribLjfcxO CFNZlTsk0MKR3Rbx7fUdkLIlN4VRroWZxbren8UdcKW+L8Lpjhaa2+YIVG50 wOvEBOf9zVroNCFkrs/ugLUKN1omBrVQmyq0iY/qAO/RaRQKMQvNFl8W7NPp AIO+mjDN5ll48qywXHn/c+hqWmBrNUhH+dKMIntOO5RTQoxFcjqyWywF/3q3 Q7rbeYaLEgMb6eP3Sfd2QAFlfNEsBi6i/vLyZrXDlWSZZI0jAy30qBkV09th u1vG6vhYBnamL78ketIGCoLBfU1TZmNEq17R4Io2MEkW10RoMXHnP8xE23Ap vH4h8ynQZWLLX02BQp4UzrOmtL0zYWLQis+VDuukoNax9FOAMxNVFhu95iyT wjezbho7mIk8Y7NF91hSqHo6yTMuYOLefIpb4Y9WWDnHiyJz1cZoj68lPkmt cKismc0J0cG0EEv1OrIFdvyyN9zG10VtLZmDmuczcHHyHz4q+QNTShwF33Wf gurP/SF8FX3sMlvVe0a9CXj1/CVpTAMcnh25OZ/9GJSNJtqoJoZoOrlxznjV IxC60zeuZxuhPPPUCUXiITT6HQuz4xrj8Y3RrVfl96FPry7qZbwJjhnmzsio bYDVsQZ6+nnzMG8NC8cF9cBq7mb3lJri8gu8W2bVEpj+KnDXodb5GHD8gfr8 1nvA/eigfeG9Gf65PaeyTfUelBRKq1PVFuCzmheVI1gHy+TZVE1LC6xJ0Pvm nlYLaz2r2vTcWeib3yNSHKiBbey8ixMhltiQ1ClL4tTAUP6ObyxXK5zTbXRz RdpdWNdrFFpSa4WBMf1cg/RqkFBvB2WttEa237Cf9PgdeC/4RavussZJi2qL I0VVoGJq5OUXZYMt1nId5Ybb4Pcl6LGVgi0miHKOLPwuBs4CLw3/I7aowedv euwoBn+fGc9fMu0w8suRpMKYW0B9nxRQkG+H/b2ajObmSvgsmWlTZ2qP9NhS 85M2lfAkMS7VS2yPTrQizuGMCthSffaiqocDZkd5M+oVKmDK89PWjm0O6MoN kByMuAmrt7klXQ12RJOHcTG5vSJo9h4z431wRNdDIxGzI0WwVCHbL3WvEy6z 7zGc018OB+177L5OOmGg91HVr/vLQbSEfu5upjO6f+wPzFQqB9plLkdm5IJv 6OJP0VllYLjPp54odsGCALupNJsycLbQFSuDK1aI/7blPxKCctDFSPUHrnhi XlLJz0ghjLRaR4f6uuGVxendB+hCGDAtkM9/7YbnL8XFWN0mIXu0EReEEnhg siiKFUaCe/Plk2nhBOZlHpM3bCXh7ZVY2ecIAjlZwbXrt5Bg7mceV7iTwFfP S8dOhZBQde1YhUksgde1wgxGg0joXslm6acTuGp8tkuLPwlzSxt06OUEcj1+ zL/uRoIkMSc8+iaBTZwbL3xdSQjl7rklrSSwZ6SwdsCZBFLJZE3mHQIFS+a6 WDqS4LEu+bT6fQKNR3MbhdYkbJrqqUrtJHDm7oWbJSYkTJXprA1/SWCW5qnT W41JKC4bvPZQ9vuvZ8nwNCMSfgZf9kx9R6BSWNUWf30SUkSKhyj9BJZzPF6+ 0yHBLK2zadNXAmljvHup2iQ0bRDqSr4R6CtOeGPBJIGuxrudMETgkGtaXQyd BPEb52lvRwiM7+Em680iIbiCxl0oJ9DgwOBBiSYJiic+8XMnCIRxn+vhGiTw ebVDk5ME+oWupNNoJPwHUMuuMg== "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0, 30.}, {0, 0.5}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.591949450263593*^9, 3.59194949475883*^9, 3.6229920909277687`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Para n grande, h\[AAcute] outra forma de estimar mais precisa que a mediana\ \>", "Subsubsection", CellChangeTimes->{{3.591948180028284*^9, 3.59194819692078*^9}}], Cell["\<\ Procedimento: 1) O conjunto de dados \[EAcute] ordenado - como estamos \ simulando, encadeamos as duas opera\[CCedilla]\[OTilde]es\ \>", "Text", CellChangeTimes->{{3.591948223069481*^9, 3.5919482268976154`*^9}, { 3.5919482590644865`*^9, 3.591948308413871*^9}, {3.5919493210139985`*^9, 3.591949331232295*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"u", "=", RowBox[{"Sort", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"CauchyDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "200"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.591948241998007*^9, 3.59194824968622*^9}, { 3.5919483313644915`*^9, 3.591948331732501*^9}}], Cell["\<\ e 2) calcula-se a m\[EAcute]dia dos 24% dos dados em torno da mediana; Floor \ e Ceiling arredondam para Integer\ \>", "Text", CellChangeTimes->{{3.591948357437225*^9, 3.5919483753977156`*^9}, { 3.5919484381174707`*^9, 3.59194845478595*^9}, {3.5919493357744102`*^9, 3.591949337374454*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", RowBox[{"u", "[", RowBox[{"[", RowBox[{ RowBox[{"Floor", "[", RowBox[{"0.38", " ", "200"}], "]"}], ";;", RowBox[{"Ceiling", "[", RowBox[{"0.62", " ", "200"}], "]"}]}], "]"}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.591948399376381*^9, 3.591948428763198*^9}}], Cell[BoxData["0.038698130565183994`"], "Output", CellChangeTimes->{3.5919484325693054`*^9, 3.5919494947788305`*^9, 3.6229920909433975`*^9}] }, Open ]], Cell["\<\ D\[AAcute] para fazer em uma instru\[CCedilla]\[ATilde]o s\[OAcute], embora \ fique meio ileg\[IAcute]vel\ \>", "Text", CellChangeTimes->{{3.5919484900169125`*^9, 3.5919485037233133`*^9}, { 3.591948535770177*^9, 3.5919485424323874`*^9}, {3.591948761304441*^9, 3.591948762136469*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", RowBox[{ RowBox[{"Sort", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"CauchyDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "200"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"Floor", "[", RowBox[{"0.38", " ", "200"}], "]"}], ";;", RowBox[{"Ceiling", "[", RowBox[{"0.62", " ", "200"}], "]"}]}], "]"}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{3.591948520335743*^9}], Cell[BoxData["0.06306221945690843`"], "Output", CellChangeTimes->{{3.591948523321827*^9, 3.591948531240048*^9}, 3.5919494947948313`*^9, 3.6229920909590206`*^9}] }, Open ]], Cell["\<\ repete a simula\[CCedilla]ao 100 vezes e calcula a variancia da estimativaa\ \>", "Text", CellChangeTimes->{{3.591948676382082*^9, 3.591948705988917*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Variance", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Mean", "[", RowBox[{ RowBox[{"Sort", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"CauchyDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "200"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"Floor", "[", RowBox[{"0.38", " ", "200"}], "]"}], ";;", RowBox[{"Ceiling", "[", RowBox[{"0.62", " ", "200"}], "]"}]}], "]"}], "]"}], " ", "]"}], ",", RowBox[{"{", "1000", "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.591946114678878*^9, 3.591946135443455*^9}, 3.5919486684698606`*^9}], Cell[BoxData["0.011663806733177027`"], "Output", CellChangeTimes->{3.5919461369514956`*^9, 3.5919487099350147`*^9, 3.5919494948568316`*^9, 3.6229920910059013`*^9}] }, Open ]], Cell["fazemos agora para diversos valores do n\[UAcute]mero de dados n", \ "Text", CellChangeTimes->{{3.591948720451333*^9, 3.5919487489181232`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"varEstim24", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"Variance", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Mean", "[", RowBox[{ RowBox[{"Sort", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"CauchyDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "n"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"Floor", "[", RowBox[{"0.38", " ", "n"}], "]"}], ";;", RowBox[{"Ceiling", "[", RowBox[{"0.62", " ", "n"}], "]"}]}], "]"}], "]"}], " ", "]"}], ",", RowBox[{"{", "1000", "}"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "100", ",", "2000", ",", "100"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5919461559020243`*^9, 3.5919461891369476`*^9}, { 3.5919462208058276`*^9, 3.591946222235871*^9}, {3.5919487786769266`*^9, 3.5919488116978416`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"100", ",", "0.02284464634720066`"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "0.011711738683864449`"}], "}"}], ",", RowBox[{"{", RowBox[{"300", ",", "0.007666100375218284`"}], "}"}], ",", RowBox[{"{", RowBox[{"400", ",", "0.005760630069351812`"}], "}"}], ",", RowBox[{"{", RowBox[{"500", ",", "0.0046842418937189005`"}], "}"}], ",", RowBox[{"{", RowBox[{"600", ",", "0.0038166916423983716`"}], "}"}], ",", RowBox[{"{", RowBox[{"700", ",", "0.0034920457802930876`"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "0.0029151121378046896`"}], "}"}], ",", RowBox[{"{", RowBox[{"900", ",", "0.0023475630077510216`"}], "}"}], ",", RowBox[{"{", RowBox[{"1000", ",", "0.002277034135242581`"}], "}"}], ",", RowBox[{"{", RowBox[{"1100", ",", "0.0020394580262107376`"}], "}"}], ",", RowBox[{"{", RowBox[{"1200", ",", "0.0017621348947969133`"}], "}"}], ",", RowBox[{"{", RowBox[{"1300", ",", "0.0018218754638383585`"}], "}"}], ",", RowBox[{"{", RowBox[{"1400", ",", "0.0015524519120948934`"}], "}"}], ",", RowBox[{"{", RowBox[{"1500", ",", "0.0014975361401257422`"}], "}"}], ",", RowBox[{"{", RowBox[{"1600", ",", "0.0013939705814752748`"}], "}"}], ",", RowBox[{"{", RowBox[{"1700", ",", "0.0013101613612531622`"}], "}"}], ",", RowBox[{"{", RowBox[{"1800", ",", "0.0013981865908971913`"}], "}"}], ",", RowBox[{"{", RowBox[{"1900", ",", "0.0011720697853765676`"}], "}"}], ",", RowBox[{"{", RowBox[{"2000", ",", "0.0011892684051912398`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.591946191851022*^9, 3.5919462243439255`*^9, 3.591946301208062*^9, 3.591946417403291*^9, 3.5919488237101774`*^9, 3.5919494974329033`*^9, 3.622992093177932*^9}] }, Open ]], Cell["fazemos o mesmo para a mediana, para comparar", "Text", CellChangeTimes->{{3.591948919356866*^9, 3.591948929755151*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"varMedianaNGrande", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"Variance", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Median", "[", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"CauchyDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "n"}], "]"}], "]"}], ",", RowBox[{"{", "1000", "}"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "100", ",", "2000", ",", "100"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.591948855457058*^9, 3.591948900566312*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"100", ",", "0.026932436447559317`"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "0.013863352779293698`"}], "}"}], ",", RowBox[{"{", RowBox[{"300", ",", "0.008619195012282798`"}], "}"}], ",", RowBox[{"{", RowBox[{"400", ",", "0.006173388205496341`"}], "}"}], ",", RowBox[{"{", RowBox[{"500", ",", "0.00510335225430399`"}], "}"}], ",", RowBox[{"{", RowBox[{"600", ",", "0.004080719684703736`"}], "}"}], ",", RowBox[{"{", RowBox[{"700", ",", "0.0037301974204077956`"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "0.002907182938306993`"}], "}"}], ",", RowBox[{"{", RowBox[{"900", ",", "0.002712468456074844`"}], "}"}], ",", RowBox[{"{", RowBox[{"1000", ",", "0.0024017752890420326`"}], "}"}], ",", RowBox[{"{", RowBox[{"1100", ",", "0.0022485709462740375`"}], "}"}], ",", RowBox[{"{", RowBox[{"1200", ",", "0.0020955023850244133`"}], "}"}], ",", RowBox[{"{", RowBox[{"1300", ",", "0.0019330054184085634`"}], "}"}], ",", RowBox[{"{", RowBox[{"1400", ",", "0.0017742439291738928`"}], "}"}], ",", RowBox[{"{", RowBox[{"1500", ",", "0.001658107333985182`"}], "}"}], ",", RowBox[{"{", RowBox[{"1600", ",", "0.001567128743251479`"}], "}"}], ",", RowBox[{"{", RowBox[{"1700", ",", "0.001540488611520403`"}], "}"}], ",", RowBox[{"{", RowBox[{"1800", ",", "0.001479444362837757`"}], "}"}], ",", RowBox[{"{", RowBox[{"1900", ",", "0.0012646741624560867`"}], "}"}], ",", RowBox[{"{", RowBox[{"2000", ",", "0.0013415841464312498`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.5919488971962185`*^9, 3.591948907194496*^9}, 3.5919494999869757`*^9, 3.6229920954906073`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"varMedianaNGrande", ",", "varEstim24"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.591946208499489*^9, 3.591946213541652*^9}, { 3.59194638741446*^9, 3.5919463895105176`*^9}, {3.591946433165729*^9, 3.5919464362018147`*^9}, {3.5919465049957275`*^9, 3.5919465576531906`*^9}, { 3.591948984600648*^9, 3.5919491459251447`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQGRDm+3/zTTnTLbHsLPdMiKStuWnNID4R8ocrCc PuHoh2WNUPlKhz112u4unpUQvkO9w9XnzRscnpdA1Tc5GGUX3Py4rQDCf9Dq cC93S+2pvjyo/k6Hqk3Tv5y9kA7hK/Q4nDz4NrPUIg1qXr/Drixjr8drkiF8 g4kOh66vDJ2RnQQ1f5LDvd2n3aZpJUL4AVMcLrO3HZ6zOh5q31SHRedXvNwu GAvhF0x3OO9fYjhbKxpq/0yHi8G31zCvjYTwJ8xykFtvwutuC+UrzHFgnvfU 09Y2AsLfMNfB7+fertwdIVD3zXc4wq7JxPw71B4A+/BmJw== "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQGRDq+2nnGeljLdHsLPdHAXYP4a9Kcdwj9Q5PCI MUWtNq0eKl/pICHBGVM6oxzCd6h32Bp5ffYJ/WKo+iaHk1V8O/Vc8iH8B60O wYKtZyNn50D1dzpcMqh8mfcwHcJX6HFo2/DPy8g6GWpev8OxiIkpnsuTIHyD iQ5PDhzdwLs1AWr+JIet9Yvev70XA+EHTHFoSzd7VH8zFmrfVIctIVY9JfmR EH7BdIfJAUf15TsjoPbPdHjLerx5z7UwCH/CLIdb1Xt5zMtDoe6Z48BfMz87 +wVUfsNch6aO1EgWk2Co++Y7iFUzW6nXBNsDAMV+YAI= "]]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{70.3125, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{419.3333286179448, Automatic}, Method->{}, PlotRange->{{100., 2000.}, {0, 0.026932436447559317`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.591946226817993*^9, 3.59194630440215*^9, 3.59194639031254*^9, { 3.5919464208733883`*^9, 3.591946437257845*^9}, {3.5919464964234915`*^9, 3.591946559909255*^9}, 3.5919490016071224`*^9, {3.5919490543785887`*^9, 3.5919490744171467`*^9}, 3.59194911446826*^9, 3.591949146283144*^9, 3.5919495000249767`*^9, 3.6229920955531044`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"comparacao", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"varMedianaNGrande", ",", "varEstim24"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0.004"}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5919491691237764`*^9, 3.5919491724958706`*^9}}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.019444444444444445`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQGRDm+3/zTTnTLbHsLPdMiKStuWnNID4R8ocrCc PuHoh2WNUPlKhz112u4unpUQvkO9w9XnzRscnpdA1Tc5GGUX3Py4rQDCf9Dq cC93S+2pvjyo/k6Hqk3Tv5y9kA7hK/Q4nDz4NrPUIg1qXr/Drixjr8drkiF8 g4kOh66vDJ2RnQQ1f5LDvd2n3aZpJUL4AVMcLrO3HZ6zOh5q31SHRedXvNwu GAvhF0x3OO9fYjhbKxpq/0yHi8G31zCvjYTwJ8xykFtvwutuC+UrzHFgnvfU 09Y2AsLfMNfB7+fertwdIVD3zXc4wq7JxPw71B4A+/BmJw== "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.019444444444444445`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQGRDq+2nnGeljLdHsLPdHAXYP4a9Kcdwj9Q5PCI MUWtNq0eKl/pICHBGVM6oxzCd6h32Bp5ffYJ/WKo+iaHk1V8O/Vc8iH8B60O wYKtZyNn50D1dzpcMqh8mfcwHcJX6HFo2/DPy8g6GWpev8OxiIkpnsuTIHyD iQ5PDhzdwLs1AWr+JIet9Yvev70XA+EHTHFoSzd7VH8zFmrfVIctIVY9JfmR EH7BdIfJAUf15TsjoPbPdHjLerx5z7UwCH/CLIdb1Xt5zMtDoe6Z48BfMz87 +wVUfsNch6aO1EgWk2Co++Y7iFUzW6nXBNsDAMV+YAI= "]]}, {}}}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 2000.}, {0, 0.004}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {}, PlotRange -> {{0, 2000.}, {0, 0.004}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"mediana\"", "\"media central\""}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.7], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.7], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.7], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.7], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.019444444444444445`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.019444444444444445`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "False"}], "}"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.5919491554914*^9, 3.5919491729878855`*^9}, 3.5919495001029787`*^9, 3.6229920957093678`*^9}] }, Open ]], Cell["\<\ Para que os pontos simulados variem mais suavemente, basta repetir os \ calculos com tiragens de 10000 simula\[CCedilla]\[OTilde]es...\ \>", "Text", CellChangeTimes->{{3.591949227877437*^9, 3.591949257908275*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"{", RowBox[{"comparacao", ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"2", "/", "n"}], ",", RowBox[{"{", RowBox[{"n", ",", "200", ",", "2000"}], "}"}]}], "]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.59194917671799*^9, 3.5919492073628397`*^9}}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.019444444444444445`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQGRDm+3/zTTnTLbHsLPdMiKStuWnNID4R8ocrCc PuHoh2WNUPlKhz112u4unpUQvkO9w9XnzRscnpdA1Tc5GGUX3Py4rQDCf9Dq cC93S+2pvjyo/k6Hqk3Tv5y9kA7hK/Q4nDz4NrPUIg1qXr/Drixjr8drkiF8 g4kOh66vDJ2RnQQ1f5LDvd2n3aZpJUL4AVMcLrO3HZ6zOh5q31SHRedXvNwu GAvhF0x3OO9fYjhbKxpq/0yHi8G31zCvjYTwJ8xykFtvwutuC+UrzHFgnvfU 09Y2AsLfMNfB7+fertwdIVD3zXc4wq7JxPw71B4A+/BmJw== "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.019444444444444445`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQGRDq+2nnGeljLdHsLPdHAXYP4a9Kcdwj9Q5PCI MUWtNq0eKl/pICHBGVM6oxzCd6h32Bp5ffYJ/WKo+iaHk1V8O/Vc8iH8B60O wYKtZyNn50D1dzpcMqh8mfcwHcJX6HFo2/DPy8g6GWpev8OxiIkpnsuTIHyD iQ5PDhzdwLs1AWr+JIet9Yvev70XA+EHTHFoSzd7VH8zFmrfVIctIVY9JfmR EH7BdIfJAUf15TsjoPbPdHjLerx5z7UwCH/CLIdb1Xt5zMtDoe6Z48BfMz87 +wVUfsNch6aO1EgWk2Co++Y7iFUzW6nXBNsDAMV+YAI= "]]}, {}}}, {}}, {{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVxXk8VAkcAPDaLklsSSlilaKGdCgi/X4l1tHxkBzlCGHMJOPN85ppiMrI UY5xN+ZFJR3kzFYqDV27XUTa7sSglatUyrG7f3w/Xz2/fc57fhk3bpz3f/5/ UyNH7Xg5D3WmYF1pjwjSzofo25mH45TRFm7XXBF4fQxYErSDxIeekWq6QiE4 q062ZPmQaFZholgYKgS7lWc39waRuNa9MXmVnxBWCrv20QISrwby9EgHISgp h16Ok5JYq5V0nqclhMoltHVRK4mVjzZO870pABV2vFdXKB/VPiuVnlYVwNWO 4lROHIWm8lL1pfdoEGh0PPuUQmGf+HNF8XUazK1/0w7LpVB7BZFsUUHDZVla Ib+YwvXbau/sk9FQ7kpfi3xKIdUy3GlL0XC+DtuTdSOQ2HRUnqdPQy7z1Lyy OgJ9TPOnnoyPgANuQ2+HO2j8oavfKg+hwO6AtOxVH42HLBTHG/0omMXA4Zoh GnNNF2l3elJQoohdLJq2H1m5M2/oO1LQSs3c+3PZfpz2VzLnA4sCh3TWjyFq Pz558vfHsB4+aDZ4zfo2QYA6Bu+sCmg+VDnI7fp1hag6w3iNQQ4Jm/ePbEle IkRrG37nQCoJrWfMXYxXCXHZcHVbXQIJquMvebFthXjv9dApSkRCcPWJ8Pdc IWq4nZLO8SVBW5+SNlwRojAuIZEwJOHIiEFfmcsBJFg/CsNqwmF76bGs8DgR XmyTKFwGeHBFUrzp6ocovG0w2r1eEgaOkYvE5YnR6O9W9LGhPxS62YO7tl6P QfvY37uqX3HBXnPirRMvDqHlULjadwMOxE+y2r554DBqOgXTJhfYMMyiPev0 YrF0NONxqkUwsGb1ffpnnRh3iqya1SYHQdLqkC8v9sXh4wkHHBOe74GGDNWl xnlHcexRm47WwwBorO7vXn45Hlt3R+bJu/xhkvqzBT8VCcg/Y8M1UPKHLyZD 7RETkjAgarTwva0fzBbP175idgxflWyImi7eDVpa3BjvwONo2HMsI7vFF17x hsiq6GRst1/OK0Rf6BxXz2V7pODX5iPaY4QP1J5bqiA6U7BqBoe31c4blMMX f2PzU9E6LbIcXL3g07OCDYEqabj456WIdd67oER6w9kyNw2z2J7sgdidoDTm mfd5lQTpk5No5pwnNEUnHXz9pwTHnxb4u7zxgCh/L8OTbukYs6hJ4sLygFut Jcq2fekoPvOmt5l0h1Y5U1EflYG5b5VSaxrcgJIv+sJXzsSxuRta71i4Qb63 UahSQSY6TOZRpswOuLCzsYRvkoVmc91nm2vsgG2D3w3r72Vh+tkizXdiV2jo vcHudsvGEMFNPTslV6ifOm+jbVs2OpaQKmWp28GpdtDlsCgHj8jPuz6dvR1q WsKMcpRzkZ9B7DE75wK1idz1aadzkWvtU5Vl5gJrfEY6aixP4Gi3RL37gTMk SIzda++dQF9FwUj0XmegA96MP7tbijYJKvMtlJ1hY+ay8MA+KapfcLxtVeYE BzvUhW6iPLTyiMq38XIC12bBNdYsGRrKh1nMJCeYqn+w7nm+DKfLNRRtlwlI L3DwdTotQwuBvDGxigAdvdkj9wtlWKKj/m1lJQGmOsVrrl2Q4dPgEEVMGQG+ mi/P5VXJULxT4L3gIgF/qJil+N2X4XAHu2hvPgGBgz27uvtkOP77qK1xEgH9 5NWhgM8yvNLAUX2ZQIBoIDbz9aAM032eTYuPJyCtV/vJox8yzOoKK2oXE3Cj y8G6bCKDpS+cg/JjCNB4U7gkQpNB11spfQtoAk7uCr/TM4/BmV8aZzRRBCx9 aeUfNJ9BYsQmOJZPAD5vkrovYLC3K7Gyk0cAt/GXXy2NGLTkrL5fxiXgG/Ho YsUyBk0oaVoAh4BDj3PsjVYwaMR5nDInhIDsB8sPz1/D4Pv+QFZUEAELHYd1 M80ZbKbL764IJKDk/t0aVUsG7ZuystsDCFhrJ/GIs2LwVqKyLMefgPo73l/H gMHyxaMtW/wI+Bflt8L7 "]]}}}}, {DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 2000.}, {0, 0.004}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {}, PlotRange -> {{0, 2000.}, {0, 0.004}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"mediana\"", "\"media central\""}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.7], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.7], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.7], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.7], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.019444444444444445`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.019444444444444445`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "False"}], "}"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.591949207924857*^9, 3.591949500156979*^9, 3.6229920957718687`*^9}] }, Open ]], Cell[BoxData[" "], "Input", CellChangeTimes->{3.622995131270787*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1312, 874}, WindowMargins->{{262, Automatic}, {30, Automatic}}, Magnification:>1.1 Inherited, 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, 167, 2, 46, "Subsubtitle"], Cell[CellGroupData[{ Cell[771, 28, 144, 1, 78, "Section"], Cell[CellGroupData[{ Cell[940, 33, 253, 6, 32, "Input"], Cell[1196, 41, 304, 9, 53, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1537, 55, 714, 16, 53, "Input"], Cell[2254, 73, 121, 2, 33, "Output"] }, Open ]], Cell[2390, 78, 196, 4, 32, "Text"], Cell[CellGroupData[{ Cell[2611, 86, 314, 8, 32, "Input"], Cell[2928, 96, 650, 21, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3615, 122, 213, 4, 32, "Input"], Cell[3831, 128, 534, 16, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4402, 149, 328, 5, 75, "Subsubsection"], Cell[CellGroupData[{ Cell[4755, 158, 624, 17, 32, "Input"], Cell[5382, 177, 314, 5, 48, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5745, 188, 155, 2, 53, "Subsection"], Cell[CellGroupData[{ Cell[5925, 194, 261, 3, 43, "Subsubsection"], Cell[6189, 199, 112, 1, 32, "Text"], Cell[CellGroupData[{ Cell[6326, 204, 304, 7, 32, "Input"], Cell[6633, 213, 557, 12, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7227, 230, 127, 2, 32, "Input"], Cell[7357, 234, 152, 3, 33, "Output"] }, Open ]], Cell[7524, 240, 213, 4, 32, "Text"], Cell[7740, 246, 564, 13, 32, "Input"], Cell[CellGroupData[{ Cell[8329, 263, 129, 2, 32, "Input"], Cell[8461, 267, 167, 2, 33, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8677, 275, 161, 2, 43, "Subsubsection"], Cell[CellGroupData[{ Cell[8863, 281, 674, 18, 32, "Input"], Cell[9540, 301, 2388, 60, 78, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11965, 366, 543, 15, 32, "Input"], Cell[12511, 383, 3714, 73, 513, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16262, 461, 499, 15, 32, "Input"], Cell[16764, 478, 3514, 69, 279, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20327, 553, 173, 3, 43, "Subsubsection"], Cell[20503, 558, 324, 6, 32, "Text"], Cell[20830, 566, 365, 10, 32, "Input"], Cell[21198, 578, 305, 6, 32, "Text"], Cell[CellGroupData[{ Cell[21528, 588, 345, 10, 32, "Input"], Cell[21876, 600, 143, 2, 33, "Output"] }, Open ]], Cell[22034, 605, 299, 6, 32, "Text"], Cell[CellGroupData[{ Cell[22358, 615, 500, 15, 32, "Input"], Cell[22861, 632, 165, 2, 33, "Output"] }, Open ]], Cell[23041, 637, 165, 3, 32, "Text"], Cell[CellGroupData[{ Cell[23231, 644, 706, 19, 32, "Input"], Cell[23940, 665, 167, 2, 33, "Output"] }, Open ]], Cell[24122, 670, 150, 2, 32, "Text"], Cell[CellGroupData[{ Cell[24297, 676, 1100, 29, 53, "Input"], Cell[25400, 707, 1884, 45, 78, "Output"] }, Open ]], Cell[27299, 755, 127, 1, 32, "Text"], Cell[CellGroupData[{ Cell[27451, 760, 672, 18, 32, "Input"], Cell[28126, 780, 1811, 44, 78, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29974, 829, 466, 9, 32, "Input"], Cell[30443, 840, 2109, 46, 294, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32589, 891, 501, 13, 32, "Input"], Cell[33093, 906, 12257, 256, 270, "Output"] }, Open ]], Cell[45365, 1165, 224, 4, 32, "Text"], Cell[CellGroupData[{ Cell[45614, 1173, 339, 10, 32, "Input"], Cell[45956, 1185, 14471, 296, 270, "Output"] }, Open ]], Cell[60442, 1484, 69, 1, 32, "Input"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)