(* 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[ 64255, 1620] NotebookOptionsPosition[ 60717, 1493] NotebookOutlinePosition[ 61260, 1514] CellTagsIndexPosition[ 61217, 1511] 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.6721383882198124`*^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.6721383885200777`*^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.6721383885200777`*^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.6721383885392113`*^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.67213838864156*^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.31268124538425557`"}], ",", RowBox[{"-", "15.286894873692454`"}], ",", RowBox[{"-", "2.322792425397488`"}], ",", "0.20936713778834326`", ",", "1.1656532444465104`", ",", "0.5414324892958139`", ",", "1.2070454753870723`", ",", RowBox[{"-", "0.7618608382930775`"}], ",", "0.2608550229601132`", ",", RowBox[{"-", "0.037207920999743904`"}]}], "}"}]], "Output", CellChangeTimes->{3.672138388657576*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Median", "[", "u", "]"}]], "Input", CellChangeTimes->{{3.591947858317342*^9, 3.5919478631295033`*^9}}], Cell[BoxData["0.08607960839429968`"], "Output", CellChangeTimes->{3.672138388657576*^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.3402379365400545`"], "Output", CellChangeTimes->{3.6721383886888275`*^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", ",", "7.466155173143543`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3.8339419964186803`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1.211286227250343`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "0.8386076298659055`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "0.6552488679131387`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "0.47909896988329465`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "0.4230010988924988`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0.35815102534980997`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "0.3214808331318724`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "0.25841648797238775`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "0.2398292662741394`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "0.21675878739040885`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0.2056812953206948`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "0.18427787687964944`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "0.17682297613130363`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "0.15726189367427615`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "0.15777854880669043`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "0.1388739780456826`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "0.1352691633627537`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "0.1240143651962042`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "0.12438290902294978`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "0.1166240869234811`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "0.10953720765119414`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "0.1049101935768288`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "0.10051153960951976`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "0.09712887338102692`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "0.09428442447575885`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "0.08871663791112414`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.67213839685714*^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.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQDQEcDly8cifC78o6QPgCDhM4uE+8XM0H5Ys4nNY6 tCo38bM9hC/h0JbOt/r+1VdQvozDuY2+lWe+P4HyFRxedp/Z2bfyHpSv5MAw tcq4WOg2lK/icJXByv3T62tQvpoD63PVCJXJV6B8DYfw1ar+TzsvQPlaDr2b F23euekclK/jsN6guv7AvtNQvp6DwMS0Q4eDT0H5Bg7WbZ73s6Ydh/INHU5q Xl2otOgYlG/k4Fohl6iheATKN3ZQ9ZqYKmYE45s4hMb9iZl/7CCUb+rQXJD2 pz4AxjdziK05cCp9/34o39whPyz/Xd91GN/CIVbBuV749l4o39JBc1ZfykKu PVC+lYPvl9xfKbd3QfnWDgdD687L794J5ds4nLdYLVZwdweUb+twxXmpOpsy jG/nEFdZYKS0bZs9AHROe10= "]]}, {}}, {}}, {{{}, {}, {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]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange->{{3., 30.}, {0, 7.466155173143543}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.672138396910536*^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.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQDQEcDly8cifC78o6QPgCDhM4uE+8XM0H5Ys4nNY6 tCo38bM9hC/h0JbOt/r+1VdQvozDuY2+lWe+P4HyFRxedp/Z2bfyHpSv5MAw tcq4WOg2lK/icJXByv3T62tQvpoD63PVCJXJV6B8DYfw1ar+TzsvQPlaDr2b F23euekclK/jsN6guv7AvtNQvp6DwMS0Q4eDT0H5Bg7WbZ73s6Ydh/INHU5q Xl2otOgYlG/k4Fohl6iheATKN3ZQ9ZqYKmYE45s4hMb9iZl/7CCUb+rQXJD2 pz4AxjdziK05cCp9/34o39whPyz/Xd91GN/CIVbBuV749l4o39JBc1ZfykKu PVC+lYPvl9xfKbd3QfnWDgdD687L794J5ds4nLdYLVZwdweUb+twxXmpOpsy jG/nEFdZYKS0bZs9AHROe10= "]]}, {}}, {}}, {{{}, {}, {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]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 30.}, {0, 0.5}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6721383969417887`*^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[ RowBox[{"-", "0.003895711624964547`"}]], "Output", CellChangeTimes->{3.6721383969574413`*^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.06963798396187061`"], "Output", CellChangeTimes->{3.6721383969740458`*^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.011428805553555799`"], "Output", CellChangeTimes->{3.672138397010805*^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.02440137301730942`"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "0.011260447399121`"}], "}"}], ",", RowBox[{"{", RowBox[{"300", ",", "0.00767693178162071`"}], "}"}], ",", RowBox[{"{", RowBox[{"400", ",", "0.0057813302445822844`"}], "}"}], ",", RowBox[{"{", RowBox[{"500", ",", "0.004308143674759472`"}], "}"}], ",", RowBox[{"{", RowBox[{"600", ",", "0.004063817993114412`"}], "}"}], ",", RowBox[{"{", RowBox[{"700", ",", "0.003105474435114014`"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "0.0027249224368251584`"}], "}"}], ",", RowBox[{"{", RowBox[{"900", ",", "0.0025028477670409935`"}], "}"}], ",", RowBox[{"{", RowBox[{"1000", ",", "0.00235635926137625`"}], "}"}], ",", RowBox[{"{", RowBox[{"1100", ",", "0.0020189487802407904`"}], "}"}], ",", RowBox[{"{", RowBox[{"1200", ",", "0.00205933318706958`"}], "}"}], ",", RowBox[{"{", RowBox[{"1300", ",", "0.001711516246671596`"}], "}"}], ",", RowBox[{"{", RowBox[{"1400", ",", "0.0017480701557157211`"}], "}"}], ",", RowBox[{"{", RowBox[{"1500", ",", "0.001501230027980084`"}], "}"}], ",", RowBox[{"{", RowBox[{"1600", ",", "0.0014846998731868038`"}], "}"}], ",", RowBox[{"{", RowBox[{"1700", ",", "0.001422415222136189`"}], "}"}], ",", RowBox[{"{", RowBox[{"1800", ",", "0.001217090246029665`"}], "}"}], ",", RowBox[{"{", RowBox[{"1900", ",", "0.001188438396489129`"}], "}"}], ",", RowBox[{"{", RowBox[{"2000", ",", "0.001110254907960233`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.672138399293005*^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.02543772555765853`"}], "}"}], ",", RowBox[{"{", RowBox[{"200", ",", "0.013296150793731438`"}], "}"}], ",", RowBox[{"{", RowBox[{"300", ",", "0.008735657419208558`"}], "}"}], ",", RowBox[{"{", RowBox[{"400", ",", "0.006301727337343728`"}], "}"}], ",", RowBox[{"{", RowBox[{"500", ",", "0.004982131507947264`"}], "}"}], ",", RowBox[{"{", RowBox[{"600", ",", "0.003954872420433169`"}], "}"}], ",", RowBox[{"{", RowBox[{"700", ",", "0.0034502153200398743`"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "0.0030042217569656287`"}], "}"}], ",", RowBox[{"{", RowBox[{"900", ",", "0.0027484280612831893`"}], "}"}], ",", RowBox[{"{", RowBox[{"1000", ",", "0.0024220693426575644`"}], "}"}], ",", RowBox[{"{", RowBox[{"1100", ",", "0.0022158157211208036`"}], "}"}], ",", RowBox[{"{", RowBox[{"1200", ",", "0.0021709542884414423`"}], "}"}], ",", RowBox[{"{", RowBox[{"1300", ",", "0.0018901102032480026`"}], "}"}], ",", RowBox[{"{", RowBox[{"1400", ",", "0.0018010332252593859`"}], "}"}], ",", RowBox[{"{", RowBox[{"1500", ",", "0.0016445003995978634`"}], "}"}], ",", RowBox[{"{", RowBox[{"1600", ",", "0.0015813077165739882`"}], "}"}], ",", RowBox[{"{", RowBox[{"1700", ",", "0.0014307753008568204`"}], "}"}], ",", RowBox[{"{", RowBox[{"1800", ",", "0.0013457112660852193`"}], "}"}], ",", RowBox[{"{", RowBox[{"1900", ",", "0.001283431739767889`"}], "}"}], ",", RowBox[{"{", RowBox[{"2000", ",", "0.0012177093493759552`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.6721384014671974`*^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.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQGRDj/ds+9G8Myyh/AzHbK+T1Jjtu6G8A8UOfyp TxVneNIIla90WLdbnff6+UoI36HeQbrPcZ9KRglUfZPDGgOv37+NCiD8B60O Mvev2S1wzoHq73SoKXRz85+TAeEr9DjoTM4Xud+cBjWv38GCZePkouvJEL7B RIe1RmcYn6slQc2f5NAaV2B66UQihB8wxaHpc3/Cpu9xUPumOpgd8N4s0hQL 4RdMd3CPO3+742MU1P6ZDhcOxVrXvIiE8CfMcti3jdFDujAc6p45DhvUdCqC eMIg/A1zHdotQsOk2EOh7pvvUPPHorTwc7A9AEl8Xmw= "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQGRDqffROSs+TPDHsLPdDCJ7Fq1nb8dwj9Q5LC/ /8e6G4X1UPlKh75ndqxa68ohfId6h8BCjuaspYVQ9U0OU5s5r1ksLYDwH7Q6 qGWkPllWkAnV3+kwuYxpxuSgNAhfocfhtOtZzVsNKVDz+h2MrB7vW+KbDOEb THQQ9ay4z9WVADV/kkPzHhGxPfeg/IApDgyfp06exxUDtW+qg5X2DM4Pi6H8 gukObIfelc+dEQG1f6ZD8ZMpkR7BUP6EWQ7LXgls5/ILh7pnjsOdv8mbb3wI hvA3zHV4W/KVaU0FlO8w3+GhvZvifoMgewCOcWJg "]]}, {}}, {}}, 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]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange->{{100., 2000.}, {0, 0.02543772555765853}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.672138401504965*^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.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQGRDj/ds+9G8Myyh/AzHbK+T1Jjtu6G8A8UOfyp TxVneNIIla90WLdbnff6+UoI36HeQbrPcZ9KRglUfZPDGgOv37+NCiD8B60O Mvev2S1wzoHq73SoKXRz85+TAeEr9DjoTM4Xud+cBjWv38GCZePkouvJEL7B RIe1RmcYn6slQc2f5NAaV2B66UQihB8wxaHpc3/Cpu9xUPumOpgd8N4s0hQL 4RdMd3CPO3+742MU1P6ZDhcOxVrXvIiE8CfMcti3jdFDujAc6p45DhvUdCqC eMIg/A1zHdotQsOk2EOh7pvvUPPHorTwc7A9AEl8Xmw= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQGRDqffROSs+TPDHsLPdDCJ7Fq1nb8dwj9Q5LC/ /8e6G4X1UPlKh75ndqxa68ohfId6h8BCjuaspYVQ9U0OU5s5r1ksLYDwH7Q6 qGWkPllWkAnV3+kwuYxpxuSgNAhfocfhtOtZzVsNKVDz+h2MrB7vW+KbDOEb THQQ9ay4z9WVADV/kkPzHhGxPfeg/IApDgyfp06exxUDtW+qg5X2DM4Pi6H8 gukObIfelc+dEQG1f6ZD8ZMpkR7BUP6EWQ7LXgls5/ILh7pnjsOdv8mbb3wI hvA3zHV4W/KVaU0FlO8w3+GhvZvifoMgewCOcWJg "]]}, {}}}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 2000.}, {0, 0.004}}, PlotRangeClipping -> True, ImagePadding -> All, 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 -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{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.462], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.462], 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.462], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.462], 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.012833333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ 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]}]], "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.012833333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ 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]}]], "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[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"False", ",", "False"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 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.6721384015518413`*^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.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQGRDj/ds+9G8Myyh/AzHbK+T1Jjtu6G8A8UOfyp TxVneNIIla90WLdbnff6+UoI36HeQbrPcZ9KRglUfZPDGgOv37+NCiD8B60O Mvev2S1wzoHq73SoKXRz85+TAeEr9DjoTM4Xud+cBjWv38GCZePkouvJEL7B RIe1RmcYn6slQc2f5NAaV2B66UQihB8wxaHpc3/Cpu9xUPumOpgd8N4s0hQL 4RdMd3CPO3+742MU1P6ZDhcOxVrXvIiE8CfMcti3jdFDujAc6p45DhvUdCqC eMIg/A1zHdotQsOk2EOh7pvvUPPHorTwc7A9AEl8Xmw= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQGRDqffROSs+TPDHsLPdDCJ7Fq1nb8dwj9Q5LC/ /8e6G4X1UPlKh75ndqxa68ohfId6h8BCjuaspYVQ9U0OU5s5r1ksLYDwH7Q6 qGWkPllWkAnV3+kwuYxpxuSgNAhfocfhtOtZzVsNKVDz+h2MrB7vW+KbDOEb THQQ9ay4z9WVADV/kkPzHhGxPfeg/IApDgyfp06exxUDtW+qg5X2DM4Pi6H8 gukObIfelc+dEQG1f6ZD8ZMpkR7BUP6EWQ7LXgls5/ILh7pnjsOdv8mbb3wI hvA3zHV4W/KVaU0FlO8w3+GhvZvifoMgewCOcWJg "]]}, {}}}, {}}, {{{{}, {}, { 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}}, PlotRangeClipping -> True, ImagePadding -> All, 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 -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{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.462], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.462], 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.462], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.462], 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.012833333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ 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]}]], "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.012833333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ 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]}]], "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[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"False", ",", "False"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 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.672138401605234*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1312, 874}, WindowMargins->{{262, Automatic}, {30, Automatic}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.1999999999999, 841.68}}, Magnification:>1.1 Inherited, FrontEndVersion->"10.4 for Microsoft Windows (64-bit) (April 11, 2016)", 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, 257, 8, 53, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1490, 54, 714, 16, 53, "Input"], Cell[2207, 72, 72, 1, 33, "Output"] }, Open ]], Cell[2294, 76, 196, 4, 32, "Text"], Cell[CellGroupData[{ Cell[2515, 84, 314, 8, 32, "Input"], Cell[2832, 94, 552, 20, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3421, 119, 213, 4, 32, "Input"], Cell[3637, 125, 436, 15, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4110, 145, 328, 5, 75, "Subsubsection"], Cell[CellGroupData[{ Cell[4463, 154, 624, 17, 32, "Input"], Cell[5090, 173, 89, 2, 48, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5228, 181, 155, 2, 53, "Subsection"], Cell[CellGroupData[{ Cell[5408, 187, 261, 3, 43, "Subsubsection"], Cell[5672, 192, 112, 1, 32, "Text"], Cell[CellGroupData[{ Cell[5809, 197, 304, 7, 32, "Input"], Cell[6116, 206, 481, 10, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6634, 221, 127, 2, 32, "Input"], Cell[6764, 225, 89, 1, 33, "Output"] }, Open ]], Cell[6868, 229, 213, 4, 32, "Text"], Cell[7084, 235, 564, 13, 32, "Input"], Cell[CellGroupData[{ Cell[7673, 252, 129, 2, 32, "Input"], Cell[7805, 256, 90, 1, 33, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7944, 263, 161, 2, 43, "Subsubsection"], Cell[CellGroupData[{ Cell[8130, 269, 674, 18, 32, "Input"], Cell[8807, 289, 2283, 59, 78, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11127, 353, 543, 15, 32, "Input"], Cell[11673, 370, 4018, 79, 269, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15728, 454, 499, 15, 32, "Input"], Cell[16230, 471, 3964, 77, 279, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20243, 554, 173, 3, 43, "Subsubsection"], Cell[20419, 559, 324, 6, 32, "Text"], Cell[20746, 567, 365, 10, 32, "Input"], Cell[21114, 579, 305, 6, 32, "Text"], Cell[CellGroupData[{ Cell[21444, 589, 345, 10, 32, "Input"], Cell[21792, 601, 109, 2, 33, "Output"] }, Open ]], Cell[21916, 606, 299, 6, 32, "Text"], Cell[CellGroupData[{ Cell[22240, 616, 500, 15, 32, "Input"], Cell[22743, 633, 91, 1, 33, "Output"] }, Open ]], Cell[22849, 637, 165, 3, 32, "Text"], Cell[CellGroupData[{ Cell[23039, 644, 706, 19, 32, "Input"], Cell[23748, 665, 90, 1, 33, "Output"] }, Open ]], Cell[23853, 669, 150, 2, 32, "Text"], Cell[CellGroupData[{ Cell[24028, 675, 1100, 29, 53, "Input"], Cell[25131, 706, 1725, 43, 78, "Output"] }, Open ]], Cell[26871, 752, 127, 1, 32, "Text"], Cell[CellGroupData[{ Cell[27023, 757, 672, 18, 32, "Input"], Cell[27698, 777, 1740, 43, 78, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29475, 825, 466, 9, 32, "Input"], Cell[29944, 836, 2223, 49, 254, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32204, 890, 501, 13, 32, "Input"], Cell[32708, 905, 12544, 259, 270, "Output"] }, Open ]], Cell[45267, 1167, 224, 4, 32, "Text"], Cell[CellGroupData[{ Cell[45516, 1175, 339, 10, 32, "Input"], Cell[45858, 1187, 14795, 299, 270, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *)