(* 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[ 132111, 3831] NotebookOptionsPosition[ 120584, 3425] NotebookOutlinePosition[ 120927, 3440] CellTagsIndexPosition[ 120884, 3437] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Listas e Fun\[CCedilla]\[OTilde]es \ Estat\[IAcute]stica - 22/8/2013", "Subtitle"]], "Subsubtitle", CellChangeTimes->{{3.586108058022932*^9, 3.586108082772934*^9}}], Cell[CellGroupData[{ Cell["Listas", "Subsubsection", CellChangeTimes->{{3.586108111022933*^9, 3.5861081119135585`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"{", RowBox[{"11", ",", "12", ",", "13", ",", "14"}], "}"}]}]], "Input", CellChangeTimes->{{3.58610818135106*^9, 3.586108198616681*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13", ",", "14"}], "}"}]], "Output", CellChangeTimes->{{3.586108190741681*^9, 3.58610819942918*^9}, 3.586110489507305*^9, 3.586111726726057*^9, 3.5861119281479344`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "11", ",", "14"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.586108412460432*^9, 3.5861084127416825`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13", ",", "14"}], "}"}]], "Output", CellChangeTimes->{3.5861084135385556`*^9, 3.586110489538556*^9, 3.586111726757307*^9, 3.586111928179185*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "a", "]"}]], "Input", CellChangeTimes->{{3.586108192569807*^9, 3.5861081952416816`*^9}}], Cell[BoxData["4"], "Output", CellChangeTimes->{3.586108202038556*^9, 3.586110489538556*^9, 3.586111726772975*^9, 3.586111928194806*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"2", "a"}]], "Input", CellChangeTimes->{{3.586108204741685*^9, 3.586108205054182*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"22", ",", "24", ",", "26", ",", "28"}], "}"}]], "Output", CellChangeTimes->{3.5861082059135575`*^9, 3.586110489554182*^9, 3.586111726772975*^9, 3.5861119282104316`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "-", "10"}]], "Input", CellChangeTimes->{{3.5861082099291835`*^9, 3.586108210976059*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]], "Output", CellChangeTimes->{3.586108211866684*^9, 3.586110489569807*^9, 3.5861117267885566`*^9, 3.5861119282260613`*^9}] }, Open ]], Cell["\<\ Muitas das fun\[CCedilla]\[OTilde]es aplicam-se aos elementos da lista, \ gerando outra lista\ \>", "Text", CellChangeTimes->{{3.586108440554182*^9, 3.586108461476059*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sin", "[", RowBox[{"a", "/", "10"}], "]"}], "//", "N", " "}]], "Input", CellChangeTimes->{{3.586108228694806*^9, 3.586108238038559*^9}, 3.586108282554184*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.8912073600614354`", ",", "0.9320390859672263`", ",", "0.963558185417193`", ",", "0.9854497299884601`"}], "}"}]], "Output", CellChangeTimes->{{3.586108234991682*^9, 3.5861082406323075`*^9}, 3.586110489585432*^9, 3.586111726804185*^9, 3.5861119282260613`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sin", "[", "30", "]"}], "//", "N", " "}]], "Input", CellChangeTimes->{{3.58610828594481*^9, 3.586108293554182*^9}, { 3.586108335022933*^9, 3.586108344710432*^9}}], Cell[BoxData[ RowBox[{"-", "0.9880316240928618`"}]], "Output", CellChangeTimes->{{3.586108290335432*^9, 3.586108294132309*^9}, 3.5861104896010923`*^9, 3.586111726819807*^9, 3.586111928241682*^9}] }, Open ]], Cell["\<\ por default, argumento de seno, coseno, etc, est\[AAcute] em radianos \ \>", "Text", CellChangeTimes->{{3.5861083533979335`*^9, 3.5861083590385575`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sin", "[", RowBox[{"30", " ", "Degree"}], "]"}], " "}]], "Input", CellChangeTimes->{{3.58610830063231*^9, 3.586108333757306*^9}}], Cell[BoxData[ FractionBox["1", "2"]], "Output", CellChangeTimes->{3.586108306226057*^9, 3.5861104896010923`*^9, 3.586111726835434*^9, 3.586111928257307*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "//", "TableForm"}]], "Input", CellChangeTimes->{{3.586108483616683*^9, 3.586108488210435*^9}}], Cell[BoxData[ TagBox[ TagBox[GridBox[{ {"11"}, {"12"}, {"13"}, {"14"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5861084893198094`*^9, 3.5861104896166816`*^9, 3.586111726835434*^9, 3.586111928272932*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Extraindo elementos da lista", "Subsubsection", CellChangeTimes->{{3.586108517429182*^9, 3.5861085217260575`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "[", RowBox[{"[", "2", "]"}], "]"}]], "Input", CellChangeTimes->{{3.58610852544481*^9, 3.586108527741684*^9}}], Cell[BoxData["12"], "Output", CellChangeTimes->{3.5861085293354335`*^9, 3.586110489632306*^9, 3.5861117268510566`*^9, 3.586111928288601*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "[", RowBox[{"[", RowBox[{"2", ";;", "4"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.586108533866685*^9, 3.586108544288559*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"12", ",", "13", ",", "14"}], "}"}]], "Output", CellChangeTimes->{3.586108544866682*^9, 3.586110489647933*^9, 3.5861117268666825`*^9, 3.586111928288601*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "[", RowBox[{"[", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.58610854769481*^9, 3.586108552554184*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"12", ",", "14"}], "}"}]], "Output", CellChangeTimes->{3.586108553163557*^9, 3.5861104896635566`*^9, 3.586111726882307*^9, 3.586111928304181*^9}] }, Open ]], Cell["\<\ \[CapitalEAcute] poss\[IAcute]vel redefinir valores usando essas formas de \ indexa\[CCedilla]\[ATilde]o Cuidado, o membro direito da equa\[CCedilla]\[ATilde]o tem que corresponder \ ao esquerdo, para que o resultado seja o pretendido\ \>", "Text", CellChangeTimes->{{3.5861085961479316`*^9, 3.586108633444807*^9}, { 3.586108693226059*^9, 3.586108722679182*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"a", "[", RowBox[{"[", "2", "]"}], "]"}], "=", "32"}]], "Input", CellChangeTimes->{{3.586108636241683*^9, 3.5861086394291825`*^9}}], Cell[BoxData["32"], "Output", CellChangeTimes->{3.586108641413556*^9, 3.586110489679181*^9, 3.586111726897932*^9, 3.586111928319806*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["a"], "Input", CellChangeTimes->{3.5861086428979344`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"11", ",", "32", ",", "13", ",", "14"}], "}"}]], "Output", CellChangeTimes->{3.586108643444815*^9, 3.5861104896948075`*^9, 3.5861117269135566`*^9, 3.5861119283354316`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"2", ";;", "4"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{"62", ",", "63", ",", "64"}], "}"}]}]], "Input", CellChangeTimes->{{3.58610864788231*^9, 3.586108663819807*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"62", ",", "63", ",", "64"}], "}"}]], "Output", CellChangeTimes->{3.5861086643510575`*^9, 3.586110489710432*^9, 3.5861117269135566`*^9, 3.586111928351057*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["a"], "Input", CellChangeTimes->{3.58610866591356*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"11", ",", "62", ",", "63", ",", "64"}], "}"}]], "Output", CellChangeTimes->{3.586108666710432*^9, 3.586110489710432*^9, 3.586111726929182*^9, 3.586111928351057*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "]"}], "]"}], "=", RowBox[{"{", RowBox[{"12", ",", "14"}], "}"}]}]], "Input", CellChangeTimes->{{3.586108670460433*^9, 3.586108686226059*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"12", ",", "14"}], "}"}]], "Output", CellChangeTimes->{3.586108687241681*^9, 3.586110489726057*^9, 3.586111726944807*^9, 3.586111928366682*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["a"], "Input", CellChangeTimes->{3.5861086884448094`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"11", ",", "12", ",", "63", ",", "14"}], "}"}]], "Output", CellChangeTimes->{3.586108688757307*^9, 3.5861104897416835`*^9, 3.586111726960432*^9, 3.586111928382306*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Matrizes - s\[ATilde]o listas de listas\ \>", "Subsection", CellChangeTimes->{{3.586108772538559*^9, 3.586108788085434*^9}, 3.586109027085434*^9}], Cell[BoxData[ RowBox[{"m", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22"}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.586108791616685*^9, 3.586108817272934*^9}, 3.586109027085434*^9}], Cell[BoxData[ RowBox[{"m", "//", "TableForm"}]], "Input", CellChangeTimes->{{3.5861088270073094`*^9, 3.586108833335434*^9}, 3.586109027085434*^9}], Cell[BoxData[ RowBox[{"a", "=", RowBox[{"{", RowBox[{"u", " ", "v"}], "}"}]}]], "Input", CellChangeTimes->{{3.5861088383979344`*^9, 3.586108856851059*^9}, 3.586109027085434*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m", " ", "a"}]], "Input", CellChangeTimes->{{3.586108869538559*^9, 3.586108870022934*^9}, 3.586109027085434*^9}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"u", " ", "v"}], "}"}], " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22"}], "}"}]}], "}"}]}]], "Output", CellChangeTimes->{3.586110489866682*^9, 3.586111727069807*^9, 3.586111928507307*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"{", RowBox[{"u", ",", "v"}], "}"}]}]], "Input", CellChangeTimes->{{3.58610911703856*^9, 3.586109120679184*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"u", ",", "v"}], "}"}]], "Output", CellChangeTimes->{3.586109121351059*^9, 3.586110489882307*^9, 3.586111727085432*^9, 3.586111928507307*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m", " ", "a"}]], "Input", CellChangeTimes->{{3.586109122788559*^9, 3.586109124226059*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"11", " ", "u"}], ",", RowBox[{"12", " ", "u"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"21", " ", "v"}], ",", RowBox[{"22", " ", "v"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5861091248198056`*^9, 3.586110489897931*^9, 3.5861117271010575`*^9, 3.586111928522932*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m", ".", "a"}]], "Input", CellChangeTimes->{{3.5861091282261143`*^9, 3.586109129741684*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"11", " ", "u"}], "+", RowBox[{"12", " ", "v"}]}], ",", RowBox[{ RowBox[{"21", " ", "u"}], "+", RowBox[{"22", " ", "v"}]}]}], "}"}]], "Output", CellChangeTimes->{3.5861091305385556`*^9, 3.586110489913556*^9, 3.586111727116682*^9, 3.5861119285385575`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", ".", "m", " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ "Mathematica", " ", "n\[ATilde]o", " ", "distingue", " ", "vetor", " ", "linha", " ", "de", " ", "vetor", " ", "coluna"}], " ", "-", " ", RowBox[{ "qualquer", " ", "lista", " ", "de", " ", "um", " ", "nivel", " ", "\[EAcute]", " ", "adaptada", " ", "para", " ", "linha", " ", "ou", " ", "coluna"}]}], ",", " ", RowBox[{ "conforme", " ", "necess\[AAcute]rio", " ", "para", " ", "que", " ", "a", " ", "opera\[CCedilla]\[ATilde]o", " ", "seja", " ", "poss\[IAcute]vel"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.5861091378823075`*^9, 3.586109200772934*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"11", " ", "u"}], "+", RowBox[{"21", " ", "v"}]}], ",", RowBox[{ RowBox[{"12", " ", "u"}], "+", RowBox[{"22", " ", "v"}]}]}], "}"}]], "Output", CellChangeTimes->{3.586109139132309*^9, 3.58611048992918*^9, 3.586111727132307*^9, 3.5861119285541825`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", ".", "m", ".", "a"}]], "Input", CellChangeTimes->{{3.5861092080229344`*^9, 3.586109209679184*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"u", " ", RowBox[{"(", RowBox[{ RowBox[{"11", " ", "u"}], "+", RowBox[{"21", " ", "v"}]}], ")"}]}], "+", RowBox[{"v", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "u"}], "+", RowBox[{"22", " ", "v"}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.5861092107416816`*^9, 3.5861104899448085`*^9, 3.586111727132307*^9, 3.586111928569807*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Norm", "[", "a", "]"}]], "Input", CellChangeTimes->{{3.58610922747606*^9, 3.586109229726059*^9}}], Cell[BoxData[ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"Abs", "[", "u", "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Abs", "[", "v", "]"}], "2"]}]]], "Output", CellChangeTimes->{3.586109230366684*^9, 3.586110489960432*^9, 3.586111727147932*^9, 3.586111928585432*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Norm", "[", "m", "]"}]], "Input", CellChangeTimes->{{3.58610924010106*^9, 3.586109242882309*^9}}], Cell[BoxData[ SqrtBox[ RowBox[{"5", " ", RowBox[{"(", RowBox[{"119", "+", RowBox[{"33", " ", SqrtBox["13"]}]}], ")"}]}]]], "Output", CellChangeTimes->{3.5861092436323094`*^9, 3.5861104899760647`*^9, 3.586111727163558*^9, 3.586111928601057*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Det", "[", "m", "]"}]], "Input", CellChangeTimes->{{3.586109247507309*^9, 3.586109253679184*^9}}], Cell[BoxData[ RowBox[{"-", "10"}]], "Output", CellChangeTimes->{3.586109254272932*^9, 3.5861104899916835`*^9, 3.5861117271791906`*^9, 3.586111928601057*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IdentityMatrix", "[", "4", "]"}]], "Input", CellChangeTimes->{{3.5861092695854344`*^9, 3.586109275757309*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5861092763354344`*^9, 3.586110490007307*^9, 3.586111727194807*^9, 3.5861119286166816`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiagonalMatrix", "[", "a", "]"}]], "Input", CellChangeTimes->{{3.58610929116356*^9, 3.586109298288559*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "v"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.58610929886668*^9, 3.586110490007307*^9, 3.586111727210433*^9, 3.586111928632307*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.5861093013354344`*^9, 3.586109305382309*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u", "0"}, {"0", "v"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5861093065229306`*^9, 3.586110490022932*^9, 3.586111727226057*^9, 3.586111928647932*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dimensions", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.5861093134291844`*^9, 3.586109319022934*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]], "Output", CellChangeTimes->{3.586109319366684*^9, 3.586110490038558*^9, 3.586111727241681*^9, 3.586111928663558*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"retangular", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"10", "*", "i"}], "+", "j"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.58610932472606*^9, 3.586109381851059*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "32"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "42"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.586109353054184*^9, 3.586109384397931*^9, 3.5861104900541825`*^9, 3.586111727257307*^9, 3.5861119286791825`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "retangular", "]"}]], "Input", CellChangeTimes->{{3.586109360132307*^9, 3.586109371569809*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"11", "12"}, {"21", "22"}, {"31", "32"}, {"41", "42"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.586109372116682*^9, 3.58610938786668*^9}, 3.586110490069807*^9, 3.586111727257307*^9, 3.5861119286791825`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "retangular", "]"}]], "Input", CellChangeTimes->{{3.58610941188231*^9, 3.586109416804185*^9}}], Cell[BoxData["4"], "Output", CellChangeTimes->{3.586109417460434*^9, 3.586110490085432*^9, 3.586111727272931*^9, 3.5861119286948075`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dimensions", "[", "retangular", "]"}]], "Input", CellChangeTimes->{{3.58610941931981*^9, 3.58610942572606*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}]], "Output", CellChangeTimes->{3.5861094261635556`*^9, 3.586110490101057*^9, 3.586111727288557*^9, 3.586111928710432*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{"retangular", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.58610943188231*^9, 3.586109438429184*^9}}], Cell[BoxData["2"], "Output", CellChangeTimes->{3.586109439054185*^9, 3.586110490116681*^9, 3.586111727304181*^9, 3.586111928726057*^9}] }, Open ]], Cell["Obter uma linha \[EAcute] muito f\[AAcute]cil", "Text", CellChangeTimes->{{3.586109620163559*^9, 3.5861096283041825`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"retangular", "[", RowBox[{"[", "2", "]"}], "]"}]], "Input", CellChangeTimes->{{3.58610944097606*^9, 3.586109444054184*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"21", ",", "22"}], "}"}]], "Output", CellChangeTimes->{3.586109444991684*^9, 3.586110490132307*^9, 3.586111727319806*^9, 3.586111928741682*^9}] }, Open ]], Cell["\<\ Obter um elemento \[EAcute] uma generaliza\[CCedilla]\[ATilde]o da indexa\ \[CCedilla]\[ATilde]o das listas de um n\[IAcute]vel s\[OAcute]\ \>", "Text", CellChangeTimes->{{3.586109636585434*^9, 3.586109669585434*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"retangular", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.586109446991685*^9, 3.586109455507309*^9}}], Cell[BoxData["32"], "Output", CellChangeTimes->{3.5861094560385566`*^9, 3.586110490147932*^9, 3.586111727335442*^9, 3.586111928757307*^9}] }, Open ]], Cell["\<\ Tentar obter um elemento gera s\[OAcute] a repeti\[CCedilla]\[ATilde]o da \ instru\[CCedilla]\[ATilde]o\ \>", "Text", CellChangeTimes->{{3.586109679210434*^9, 3.586109695194809*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"retangular", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5861094575541844`*^9, 3.586109462569809*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Part", "::", "partw"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Part \[NoBreak]\\!\\(3\\)\[NoBreak] of \ \[NoBreak]\\!\\({21, 22}\\)\[NoBreak] does not exist. \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/partw\\\", ButtonNote -> \ \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.586110490194807*^9, 3.586111727382307*^9, 3.5861119287885575`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "32"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "42"}], "}"}]}], "}"}], "\[LeftDoubleBracket]", RowBox[{"2", ",", "3"}], "\[RightDoubleBracket]"}]], "Output", CellChangeTimes->{3.586109463476059*^9, 3.586110490194807*^9, 3.586111727382307*^9, 3.5861119287885575`*^9}] }, Open ]], Cell["\<\ Obter uma coluna parece estranho no come\[CCedilla]o\ \>", "Text", CellChangeTimes->{{3.586109705444809*^9, 3.586109719772934*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"retangular", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5861097238979344`*^9, 3.586109729194809*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"11", ",", "21", ",", "31", ",", "41"}], "}"}]], "Output", CellChangeTimes->{3.586109729726059*^9, 3.586110490241685*^9, 3.586111727397932*^9, 3.5861119288041816`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"retangular", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.586109733663729*^9, 3.586109739226059*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"12", ",", "22", ",", "32", ",", "42"}], "}"}]], "Output", CellChangeTimes->{3.586109739741684*^9, 3.586110490257307*^9, 3.5861117274135733`*^9, 3.586111928819806*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"retangular", "[", RowBox[{"[", RowBox[{"1", ",", "All"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"funciona", ",", " ", RowBox[{"masa", " ", "usar", " ", "s\[OAcute]", " ", RowBox[{"retangular", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "\[EAcute]", " ", "mais", " ", "f\[AAcute]cil"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.5861097415073094`*^9, 3.586109770522934*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"11", ",", "12"}], "}"}]], "Output", CellChangeTimes->{3.586109748241682*^9, 3.586110490257307*^9, 3.5861117274291835`*^9, 3.5861119288354316`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"retangular", ".", "m"}]], "Input", CellChangeTimes->{{3.586109479647935*^9, 3.586109482976059*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"373", ",", "396"}], "}"}], ",", RowBox[{"{", RowBox[{"693", ",", "736"}], "}"}], ",", RowBox[{"{", RowBox[{"1013", ",", "1076"}], "}"}], ",", RowBox[{"{", RowBox[{"1333", ",", "1416"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.586109483991688*^9, 3.5861104902729435`*^9, 3.586111727444807*^9, 3.586111928851057*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m", ".", "retangular"}]], "Input"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Dot", "::", "dotsh"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Tensors \[NoBreak]\\!\\({\\(\\({11, 12}\\)\\), \\(\\({21, \ 22}\\)\\)}\\)\[NoBreak] and \[NoBreak]\\!\\({\\(\\({11, 12}\\)\\), \\(\\({21, \ 22}\\)\\), \\(\\({31, 32}\\)\\), \\(\\({41, 42}\\)\\)}\\)\[NoBreak] have \ incompatible shapes. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/Dot/dotsh\\\", ButtonNote -> \ \\\"Dot::dotsh\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.586110561085432*^9, 3.586111727476057*^9, 3.586111928882306*^9}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "32"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "42"}], "}"}]}], "}"}]}]], "Output", CellChangeTimes->{3.586110561085432*^9, 3.586111727476057*^9, 3.586111928882306*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Transpose", "[", "retangular", "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.5861094925854344`*^9, 3.5861095003666844`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"11", "21", "31", "41"}, {"12", "22", "32", "42"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.586109501101059*^9, 3.5861104902885575`*^9, 3.5861117274916825`*^9, 3.5861119288979316`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Inverse", "[", "m", "]"}]], "Input", CellChangeTimes->{{3.58610951997606*^9, 3.586109524851059*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["11", "5"]}], ",", FractionBox["6", "5"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["21", "10"], ",", RowBox[{"-", FractionBox["11", "10"]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.586109525382307*^9, 3.586110490304182*^9, 3.586111727507307*^9, 3.5861119289135575`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Eigenvalues", "[", "m", "]"}]], "Input", CellChangeTimes->{{3.586109531054185*^9, 3.586109535694809*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"33", "+", SqrtBox["1129"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"33", "-", SqrtBox["1129"]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{3.586109536194809*^9, 3.5861104903198075`*^9, 3.586111727507307*^9, 3.5861119289291816`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Eigenvectors", "[", "m", "]"}]], "Input", CellChangeTimes->{{3.5861095375229344`*^9, 3.586109546069809*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "42"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "+", SqrtBox["1129"]}], ")"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "42"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "11"}], "-", SqrtBox["1129"]}], ")"}]}], ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.586109546851057*^9, 3.5861104903510666`*^9, 3.5861117275385575`*^9, 3.586111928944806*^9}] }, Open ]], Cell["Juntar duas listas \[EAcute] f\[AAcute]cil", "Text", CellChangeTimes->{{3.586109877132309*^9, 3.586109884944809*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b", "=", RowBox[{"{", RowBox[{ RowBox[{"2", "u"}], ",", RowBox[{"2", "v"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.586109897726059*^9, 3.586109906585434*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "u"}], ",", RowBox[{"2", " ", "v"}]}], "}"}]], "Output", CellChangeTimes->{3.586109907616684*^9, 3.5861104903666816`*^9, 3.586111727554182*^9, 3.586111928960432*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ab", "=", RowBox[{"Join", "[", RowBox[{"a", ",", "b"}], "]"}]}]], "Input", CellChangeTimes->{{3.5861099098354344`*^9, 3.5861099334604344`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"u", ",", "v", ",", RowBox[{"2", " ", "u"}], ",", RowBox[{"2", " ", "v"}]}], "}"}]], "Output", CellChangeTimes->{{3.5861099150854306`*^9, 3.586109935726056*^9}, 3.5861104903666816`*^9, 3.586111727554182*^9, 3.586111928976057*^9}] }, Open ]], Cell["\<\ Adicionar uma linha a uma matriz \[EAcute] facil\ \>", "Text", CellChangeTimes->{{3.586109955366684*^9, 3.586109962444809*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Join", "[", RowBox[{"retangular", ",", RowBox[{"{", "a", "}"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"note", " ", "as", " ", "chaves", " ", RowBox[{"{", " ", "}"}], " ", "extras"}], " ", "-", " ", RowBox[{ "s\[OAcute]", " ", "d\[AAcute]", " ", "para", " ", "juntas", " ", "listas", " ", "com", " ", "mesma", " ", "quantidade", " ", "de", " ", "n\[IAcute]veis"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.586109965741685*^9, 3.586110011210434*^9}, { 3.586110298022934*^9, 3.586110316585434*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "32"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "42"}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "v"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.586109973929184*^9, 3.586109982960434*^9}, 3.586110014976059*^9, 3.586110490382307*^9, 3.586111727569806*^9, 3.586111928991682*^9}] }, Open ]], Cell["\<\ Adicionar uma coluna \[EAcute] mais encrencado\ \>", "Text", CellChangeTimes->{{3.586110043038559*^9, 3.586110048241684*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "=", RowBox[{"Join", "[", RowBox[{"retangular", ",", RowBox[{"Transpose", "[", RowBox[{"{", "ab", "}"}], "]"}], ",", "2"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ "al\[EAcute]m", " ", "de", " ", "avisar", " ", "que", " ", "\[EAcute]", " ", "para", " ", "juntar", " ", "no", " ", "2", "o", " ", "n\[IAcute]vel", " ", "da", " ", "lista"}], ",", " ", RowBox[{ "precisa", " ", "gerar", " ", "uma", " ", "outra", " ", "matriz", " ", "com", " ", "dois", " ", "indices"}], ",", " ", RowBox[{"{", "ab", "}"}], ",", " ", RowBox[{ "em", " ", "que", " ", "os", " ", "elementos", " ", "estejam", " ", "todos", " ", "na", " ", "mesma", " ", RowBox[{"coluna", "!"}]}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.586110053976059*^9, 3.586110154304184*^9}, { 3.586110184351059*^9, 3.586110280210434*^9}, {3.586110343772934*^9, 3.586110344304184*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "u"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22", ",", "v"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "32", ",", RowBox[{"2", " ", "u"}]}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "42", ",", RowBox[{"2", " ", "v"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.58611006749168*^9, 3.586110154679181*^9}, 3.586110281335431*^9, 3.58611034561668*^9, 3.586110490397932*^9, 3.586111727585432*^9, 3.586111929007307*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.586110164991685*^9, 3.586110170132306*^9}, { 3.586110348116684*^9, 3.586110348679184*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"11", "12", "u"}, {"21", "22", "v"}, {"31", "32", RowBox[{"2", " ", "u"}]}, {"41", "42", RowBox[{"2", " ", "v"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5861101715698056`*^9, 3.586110284351059*^9, 3.586110349569913*^9, 3.586110490413557*^9, 3.586111727601057*^9, 3.586111929022932*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tf", "=", RowBox[{"Flatten", "[", "t", "]"}]}]], "Input", CellChangeTimes->{{3.5861103538979344`*^9, 3.586110375960434*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "11", ",", "12", ",", "u", ",", "21", ",", "22", ",", "v", ",", "31", ",", "32", ",", RowBox[{"2", " ", "u"}], ",", "41", ",", "42", ",", RowBox[{"2", " ", "v"}]}], "}"}]], "Output", CellChangeTimes->{{3.5861103626479306`*^9, 3.586110376726059*^9}, 3.5861104904291825`*^9, 3.586111727616682*^9, 3.5861119290385566`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Partition", "[", RowBox[{"tf", ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.5861103695229344`*^9, 3.586110381835434*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "u"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22", ",", "v"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "32", ",", RowBox[{"2", " ", "u"}]}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "42", ",", RowBox[{"2", " ", "v"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.586110382491684*^9, 3.5861104904448075`*^9, 3.586111727632307*^9, 3.586111929054181*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Partition", "[", RowBox[{"tf", ",", "6"}], "]"}]], "Input", CellChangeTimes->{{3.586110385022938*^9, 3.586110393304184*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "u", ",", "21", ",", "22", ",", "v"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "32", ",", RowBox[{"2", " ", "u"}], ",", "41", ",", "42", ",", RowBox[{"2", " ", "v"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.586110394210434*^9, 3.586110490460432*^9, 3.586111727647932*^9, 3.586111929054181*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Estat\[IAcute]stica b\[AAcute]sica", "Section", CellChangeTimes->{{3.586110635788557*^9, 3.586110640835434*^9}}], Cell["\<\ Vamos usar simula\[CCedilla]\[OTilde]es para apresentar as \ estat\[IAcute]sticas b\[AAcute]sicas\ \>", "Text", CellChangeTimes->{{3.586110651929184*^9, 3.586110669976059*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"medida", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "3"}], "]"}], ",", "10"}], "]"}]}]], "Input", CellChangeTimes->{{3.58611067269481*^9, 3.586110690179184*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "15.701658107314707`", ",", "20.963743736854607`", ",", "21.58608802124899`", ",", "19.5434353363288`", ",", "18.21715192683093`", ",", "17.56903910893974`", ",", "21.148442769712684`", ",", "21.857082707416335`", ",", "19.305548795474035`", ",", "20.997716545527943`"}], "}"}]], "Output", CellChangeTimes->{3.5861106910385556`*^9, 3.5861117276635585`*^9, 3.586111929085432*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"medida", " ", "=", " ", RowBox[{"Round", "[", RowBox[{"medida", ",", "0.1"}], "]"}]}]], "Input", CellChangeTimes->{{3.58611069469481*^9, 3.586110712351059*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "15.700000000000001`", ",", "21.`", ",", "21.6`", ",", "19.5`", ",", "18.2`", ",", "17.6`", ",", "21.1`", ",", "21.900000000000002`", ",", "19.3`", ",", "21.`"}], "}"}]], "Output", CellChangeTimes->{{3.586110706194809*^9, 3.5861107130385556`*^9}, 3.586111727679181*^9, 3.586111929085432*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "medida", "]"}]], "Input", CellChangeTimes->{{3.586110720429185*^9, 3.586110726835434*^9}}], Cell[BoxData["19.690000000000005`"], "Output", CellChangeTimes->{3.586110727413557*^9, 3.586111727694806*^9, 3.586111929101056*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StandardDeviation", "[", "medida", "]"}]], "Input", CellChangeTimes->{{3.58611072900731*^9, 3.586110735554184*^9}}], Cell[BoxData["2.017947251815843`"], "Output", CellChangeTimes->{3.586110736101059*^9, 3.586111727710431*^9, 3.586111929116681*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "/", RowBox[{"Sqrt", "[", RowBox[{"Length", "[", "medida", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.586110751585435*^9, 3.586110771210434*^9}}], Cell[BoxData["0.6381309513815415`"], "Output", CellChangeTimes->{3.586110776616684*^9, 3.5861117277260637`*^9, 3.586111929132307*^9}] }, Open ]], Cell["\<\ Isso quer dizer que a resposta deve ser dada: grandeza = 21.0(13)\ \>", "Text", CellChangeTimes->{{3.586110795319809*^9, 3.586110813210434*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"medidaGrande", "=", RowBox[{"Round", "[", " ", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"20", ",", "3"}], "]"}], ",", "100"}], "]"}], ",", "0.1"}], "]"}]}]], "Input", CellChangeTimes->{{3.58611082628856*^9, 3.586110861241684*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "13.100000000000001`", ",", "21.700000000000003`", ",", "16.900000000000002`", ",", "20.1`", ",", "17.5`", ",", "20.5`", ",", "21.3`", ",", "24.3`", ",", "22.`", ",", "17.7`", ",", "21.400000000000002`", ",", "21.3`", ",", "19.200000000000003`", ",", "16.6`", ",", "20.8`", ",", "18.`", ",", "15.700000000000001`", ",", "22.700000000000003`", ",", "18.8`", ",", "25.900000000000002`", ",", "13.3`", ",", "23.400000000000002`", ",", "25.5`", ",", "17.3`", ",", "15.600000000000001`", ",", "20.700000000000003`", ",", "19.`", ",", "18.6`", ",", "16.900000000000002`", ",", "19.6`", ",", "14.3`", ",", "23.`", ",", "18.400000000000002`", ",", "19.5`", ",", "22.`", ",", "24.1`", ",", "18.`", ",", "18.5`", ",", "19.400000000000002`", ",", "18.900000000000002`", ",", "20.1`", ",", "18.6`", ",", "20.700000000000003`", ",", "19.900000000000002`", ",", "24.6`", ",", "22.1`", ",", "23.6`", ",", "21.400000000000002`", ",", "19.`", ",", "20.1`", ",", "14.100000000000001`", ",", "19.6`", ",", "18.8`", ",", "26.3`", ",", "18.1`", ",", "25.3`", ",", "25.200000000000003`", ",", "17.8`", ",", "21.400000000000002`", ",", "18.5`", ",", "22.900000000000002`", ",", "18.2`", ",", "22.900000000000002`", ",", "21.400000000000002`", ",", "24.6`", ",", "16.900000000000002`", ",", "19.400000000000002`", ",", "18.8`", ",", "18.7`", ",", "24.200000000000003`", ",", "18.3`", ",", "24.8`", ",", "16.7`", ",", "17.3`", ",", "19.5`", ",", "19.700000000000003`", ",", "19.6`", ",", "17.2`", ",", "18.900000000000002`", ",", "19.1`", ",", "22.900000000000002`", ",", "20.900000000000002`", ",", "19.900000000000002`", ",", "15.4`", ",", "18.5`", ",", "19.6`", ",", "23.6`", ",", "22.`", ",", "24.700000000000003`", ",", "24.1`", ",", "23.3`", ",", "25.8`", ",", "19.3`", ",", "16.`", ",", "23.1`", ",", "13.700000000000001`", ",", "20.5`", ",", "24.700000000000003`", ",", "17.3`", ",", "18.3`"}], "}"}]], "Output", CellChangeTimes->{{3.586110840413559*^9, 3.586110861929184*^9}, 3.5861117277416825`*^9, 3.586111929147933*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "medidaGrande", "]"}]], "Input", CellChangeTimes->{{3.586110865007309*^9, 3.586110872601059*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.644]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.644]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12., 0}, {14., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{12.499999999999943`, 55.855102040816234`}, { 79.43996734152151, 97.37795670858856}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{14., 0}, {16., 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{54.855102040816234`, 98.21020408163258}, { 68.14797443014348, 97.37795670858856}}], StatusArea[#, 5]& , TagBoxNote->"5"], StyleBox["5", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[5, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{16., 0}, {18., 13}, "RoundingRadius" -> 0]}, ImageSizeCache->{{97.21020408163258, 140.56530612244893`}, { 22.98000278463138, 97.37795670858856}}], StatusArea[#, 13]& , TagBoxNote->"13"], StyleBox["13", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[13, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{18., 0}, {20., 34}, "RoundingRadius" -> 0]}, ImageSizeCache->{{139.56530612244893`, 182.92040816326522`}, {-95.58592278483792, 97.37795670858856}}], StatusArea[#, 34]& , TagBoxNote->"34"], StyleBox["34", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[34, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20., 0}, {22., 16}, "RoundingRadius" -> 0]}, ImageSizeCache->{{181.92040816326522`, 225.27551020408157`}, { 6.042013417564334, 97.37795670858856}}], StatusArea[#, 16]& , TagBoxNote->"16"], StyleBox["16", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[16, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{22., 0}, {24., 14}, "RoundingRadius" -> 0]}, ImageSizeCache->{{224.27551020408157`, 267.6306122448979}, { 17.334006328942365`, 97.37795670858856}}], StatusArea[#, 14]& , TagBoxNote->"14"], StyleBox["14", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[14, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{24., 0}, {26., 14}, "RoundingRadius" -> 0]}, ImageSizeCache->{{266.6306122448979, 309.9857142857142}, { 17.334006328942365`, 97.37795670858856}}], StatusArea[#, 14]& , TagBoxNote->"14"], StyleBox["14", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[14, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{26., 0}, {28., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{308.9857142857142, 352.3408163265305}, { 90.73196025289954, 97.37795670858856}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{12., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{12., 28.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.586110873991682*^9, 3.586111728147933*^9, 3.586111929538558*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Min", "[", "medidaGrande", "]"}]], "Input", CellChangeTimes->{{3.5861108866323094`*^9, 3.586110889538559*^9}, { 3.586110938585434*^9, 3.586110939616685*^9}}], Cell[BoxData["13.100000000000001`"], "Output", CellChangeTimes->{3.586110890069809*^9, 3.586110940304184*^9, 3.5861117281635566`*^9, 3.586111929601057*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Max", "[", "medidaGrande", "]"}]], "Input", CellChangeTimes->{{3.586110891366684*^9, 3.586110897429184*^9}, { 3.586110943866684*^9, 3.586110944741684*^9}}], Cell[BoxData["26.3`"], "Output", CellChangeTimes->{3.586110897944809*^9, 3.586110945319807*^9, 3.586111728179181*^9, 3.586111929616683*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hmg", "=", RowBox[{"Histogram", "[", RowBox[{"medidaGrande", ",", RowBox[{"{", RowBox[{"12", ",", "28", ",", "1.5"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.586110906647933*^9, 3.586110916913559*^9}, { 3.586110950085434*^9, 3.586110980601059*^9}, {3.586111343710435*^9, 3.5861113446479344`*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.63]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.63]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12., 0}, {13.5, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{12.5, 47.38408163265308}, {81.02084634911444, 97.37795670858856}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{13.5, 0}, {15., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{46.38408163265308, 81.2681632653061}, { 73.34229116937738, 97.37795670858856}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{15., 0}, {16.5, 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{80.2681632653061, 115.15224489795918`}, { 65.66373598964032, 97.37795670858856}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{16.5, 0}, {18., 12}, "RoundingRadius" -> 0]}, ImageSizeCache->{{114.15224489795918`, 149.03632653061226`}, { 4.2352945517438485`, 97.37795670858856}}], StatusArea[#, 12]& , TagBoxNote->"12"], StyleBox["12", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[12, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{18., 0}, {19.5, 25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{148.03632653061226`, 182.92040816326528`}, {-95.58592278483792, 97.37795670858856}}], StatusArea[#, 25]& , TagBoxNote->"25"], StyleBox["25", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[25, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{19.5, 0}, {21., 18}, "RoundingRadius" -> 0]}, ImageSizeCache->{{181.92040816326528`, 216.80448979591836`}, {-41.8360365266785, 97.37795670858856}}], StatusArea[#, 18]& , TagBoxNote->"18"], StyleBox["18", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[18, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{21., 0}, {22.5, 11}, "RoundingRadius" -> 0]}, ImageSizeCache->{{215.80448979591836`, 250.68857142857138`}, { 11.913849731480909`, 97.37795670858856}}], StatusArea[#, 11]& , TagBoxNote->"11"], StyleBox["11", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[11, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{22.5, 0}, {24., 10}, "RoundingRadius" -> 0]}, ImageSizeCache->{{249.68857142857138`, 284.57265306122446`}, { 19.59240491121797, 97.37795670858856}}], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[10, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{24., 0}, {25.5, 11}, "RoundingRadius" -> 0]}, ImageSizeCache->{{283.57265306122446`, 318.45673469387754`}, { 11.913849731480909`, 97.37795670858856}}], StatusArea[#, 11]& , TagBoxNote->"11"], StyleBox["11", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[11, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{25.5, 0}, {27., 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{317.45673469387754`, 352.3408163265306}, { 65.66373598964032, 97.37795670858856}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{12., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{12., 27.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.586110917632307*^9, 3.586110981194807*^9}, 3.586111345616681*^9, 3.586111728210432*^9, 3.586111929647932*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Skewness", "[", "medidaGrande", "]"}]], "Input", CellChangeTimes->{{3.586110991351058*^9, 3.586110998007309*^9}}], Cell[BoxData["0.025218382339974664`"], "Output", CellChangeTimes->{3.586110998538559*^9, 3.5861117282260575`*^9, 3.586111929663557*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Kurtosis", "[", "medidaGrande", "]"}]], "Input", CellChangeTimes->{{3.5861110004604344`*^9, 3.586111009351059*^9}}], Cell[BoxData["2.5160776691644093`"], "Output", CellChangeTimes->{3.586111009882309*^9, 3.586111728241682*^9, 3.586111929679182*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Median", "[", "medidaGrande", "]"}]], "Input", CellChangeTimes->{{3.58611103625731*^9, 3.5861110420541844`*^9}}], Cell[BoxData["19.6`"], "Output", CellChangeTimes->{3.586111042647934*^9, 3.586111728257307*^9, 3.586111929694807*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sort", "[", "medidaGrande", "]"}]], "Input", CellChangeTimes->{{3.5861110246635604`*^9, 3.586111050757309*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "13.100000000000001`", ",", "13.3`", ",", "13.700000000000001`", ",", "14.100000000000001`", ",", "14.3`", ",", "15.4`", ",", "15.600000000000001`", ",", "15.700000000000001`", ",", "16.`", ",", "16.6`", ",", "16.7`", ",", "16.900000000000002`", ",", "16.900000000000002`", ",", "16.900000000000002`", ",", "17.2`", ",", "17.3`", ",", "17.3`", ",", "17.3`", ",", "17.5`", ",", "17.7`", ",", "17.8`", ",", "18.`", ",", "18.`", ",", "18.1`", ",", "18.2`", ",", "18.3`", ",", "18.3`", ",", "18.400000000000002`", ",", "18.5`", ",", "18.5`", ",", "18.5`", ",", "18.6`", ",", "18.6`", ",", "18.7`", ",", "18.8`", ",", "18.8`", ",", "18.8`", ",", "18.900000000000002`", ",", "18.900000000000002`", ",", "19.`", ",", "19.`", ",", "19.1`", ",", "19.200000000000003`", ",", "19.3`", ",", "19.400000000000002`", ",", "19.400000000000002`", ",", "19.5`", ",", "19.5`", ",", "19.6`", ",", "19.6`", ",", "19.6`", ",", "19.6`", ",", "19.700000000000003`", ",", "19.900000000000002`", ",", "19.900000000000002`", ",", "20.1`", ",", "20.1`", ",", "20.1`", ",", "20.5`", ",", "20.5`", ",", "20.700000000000003`", ",", "20.700000000000003`", ",", "20.8`", ",", "20.900000000000002`", ",", "21.3`", ",", "21.3`", ",", "21.400000000000002`", ",", "21.400000000000002`", ",", "21.400000000000002`", ",", "21.400000000000002`", ",", "21.700000000000003`", ",", "22.`", ",", "22.`", ",", "22.`", ",", "22.1`", ",", "22.700000000000003`", ",", "22.900000000000002`", ",", "22.900000000000002`", ",", "22.900000000000002`", ",", "23.`", ",", "23.1`", ",", "23.3`", ",", "23.400000000000002`", ",", "23.6`", ",", "23.6`", ",", "24.1`", ",", "24.1`", ",", "24.200000000000003`", ",", "24.3`", ",", "24.6`", ",", "24.6`", ",", "24.700000000000003`", ",", "24.700000000000003`", ",", "24.8`", ",", "25.200000000000003`", ",", "25.3`", ",", "25.5`", ",", "25.8`", ",", "25.900000000000002`", ",", "26.3`"}], "}"}]], "Output", CellChangeTimes->{{3.5861110303823056`*^9, 3.586111051632307*^9}, 3.586111728272933*^9, 3.586111929710432*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sort", "[", "medidaGrande", "]"}], "[", RowBox[{"[", "50", "]"}], "]"}]], "Input", CellChangeTimes->{{3.5861110553198094`*^9, 3.586111065616684*^9}}], Cell[BoxData["19.6`"], "Output", CellChangeTimes->{3.586111066382309*^9, 3.586111728288558*^9, 3.586111929726057*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sort", "[", "medidaGrande", "]"}], "[", RowBox[{"[", "51", "]"}], "]"}]], "Input", CellChangeTimes->{{3.586111073804184*^9, 3.586111074038559*^9}}], Cell[BoxData["19.6`"], "Output", CellChangeTimes->{3.5861110744604306`*^9, 3.586111728304182*^9, 3.586111929741683*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Total", "[", "medidaGrande", "]"}], "/", RowBox[{"Length", "[", "medidaGrande", "]"}]}]], "Input", CellChangeTimes->{{3.5861110862104344`*^9, 3.586111104694809*^9}}], Cell[BoxData["20.094000000000005`"], "Output", CellChangeTimes->{3.5861111053510604`*^9, 3.586111728320036*^9, 3.586111929757306*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mg", "=", RowBox[{"Mean", "[", "medidaGrande", "]"}]}]], "Input", CellChangeTimes->{{3.5861111100073094`*^9, 3.586111115882309*^9}, { 3.586111147304184*^9, 3.586111149272934*^9}}], Cell[BoxData["20.094000000000005`"], "Output", CellChangeTimes->{3.586111116382307*^9, 3.586111154913556*^9, 3.586111728335639*^9, 3.586111929772932*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sqrt", "[", " ", RowBox[{ RowBox[{"Total", "[", RowBox[{ RowBox[{"(", RowBox[{"medidaGrande", "-", "mg"}], ")"}], "^", "2"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Length", "[", "medidaGrande", "]"}], "-", "1"}], ")"}]}], " ", "]"}]], "Input", CellChangeTimes->{{3.58611113975731*^9, 3.586111195101059*^9}}], Cell[BoxData["3.05666418822807`"], "Output", CellChangeTimes->{{3.586111187429184*^9, 3.58611119561668*^9}, 3.586111728351057*^9, 3.586111929788557*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sg", "=", RowBox[{"StandardDeviation", "[", "medidaGrande", "]"}]}]], "Input", CellChangeTimes->{{3.5861112002573094`*^9, 3.586111209413559*^9}, { 3.586111243038559*^9, 3.586111243726059*^9}}], Cell[BoxData["3.0566641882280687`"], "Output", CellChangeTimes->{3.586111209944807*^9, 3.586111244476059*^9, 3.586111728366682*^9, 3.586111929804183*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"medidaGrandeNormalizada", "=", RowBox[{ RowBox[{"(", RowBox[{"medidaGrande", "-", "mg"}], ")"}], "/", "sg"}]}]], "Input", CellChangeTimes->{{3.58611125685106*^9, 3.586111279101059*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.2881152685779287`"}], ",", "0.5254093682207818`", ",", RowBox[{"-", "1.0449299639459404`"}], ",", "0.0019629241652073144`", ",", RowBox[{"-", "0.8486375474251008`"}], ",", "0.13282453517910034`", ",", "0.39454775720688756`", ",", "1.3760098398110887`", ",", "0.6235555764812009`", ",", RowBox[{"-", "0.7832067419181543`"}], ",", "0.42726315996036135`", ",", "0.39454775720688756`", ",", RowBox[{"-", "0.29247570061605255`"}], ",", RowBox[{"-", "1.1430761722063607`"}], ",", "0.23097074343952068`", ",", RowBox[{"-", "0.685060533657734`"}], ",", RowBox[{"-", "1.4375147969876212`"}], ",", "0.8525633957555154`", ",", RowBox[{"-", "0.42333731162994676`"}], ",", "1.899456283866663`", ",", RowBox[{"-", "2.222684463070982`"}], ",", "1.081571215029829`", ",", "1.7685946728527688`", ",", RowBox[{"-", "0.9140683529320474`"}], ",", RowBox[{"-", "1.4702301997410945`"}], ",", "0.198255340686048`", ",", RowBox[{"-", "0.35790650612300023`"}], ",", RowBox[{"-", "0.4887681171368933`"}], ",", RowBox[{"-", "1.0449299639459404`"}], ",", RowBox[{"-", "0.16161408960215953`"}], ",", RowBox[{"-", "1.8955304355362486`"}], ",", "0.9507096040159346`", ",", RowBox[{"-", "0.5541989226438397`"}], ",", RowBox[{"-", "0.19432949235563338`"}], ",", "0.6235555764812009`", ",", "1.3105790343041421`", ",", RowBox[{"-", "0.685060533657734`"}], ",", RowBox[{"-", "0.5214835198903671`"}], ",", RowBox[{"-", "0.22704489510910605`"}], ",", RowBox[{"-", "0.3906219088764729`"}], ",", "0.0019629241652073144`", ",", RowBox[{"-", "0.4887681171368933`"}], ",", "0.198255340686048`", ",", RowBox[{"-", "0.0634678813417392`"}], ",", "1.474156048071509`", ",", "0.6562709792346747`", ",", "1.1470020205367752`", ",", "0.42726315996036135`", ",", RowBox[{"-", "0.35790650612300023`"}], ",", "0.0019629241652073144`", ",", RowBox[{"-", "1.960961241043195`"}], ",", RowBox[{"-", "0.16161408960215953`"}], ",", RowBox[{"-", "0.42333731162994676`"}], ",", "2.030317894880556`", ",", RowBox[{"-", "0.6523451309042602`"}], ",", "1.7031638673458225`", ",", "1.6704484645923496`", ",", RowBox[{"-", "0.7504913391646805`"}], ",", "0.42726315996036135`", ",", RowBox[{"-", "0.5214835198903671`"}], ",", "0.9179942012624619`", ",", RowBox[{"-", "0.6196297281507874`"}], ",", "0.9179942012624619`", ",", "0.42726315996036135`", ",", "1.474156048071509`", ",", RowBox[{"-", "1.0449299639459404`"}], ",", RowBox[{"-", "0.22704489510910605`"}], ",", RowBox[{"-", "0.42333731162994676`"}], ",", RowBox[{"-", "0.4560527143834206`"}], ",", "1.343294437057616`", ",", RowBox[{"-", "0.5869143253973136`"}], ",", "1.5395868535784556`", ",", RowBox[{"-", "1.110360769452888`"}], ",", RowBox[{"-", "0.9140683529320474`"}], ",", RowBox[{"-", "0.19432949235563338`"}], ",", RowBox[{"-", "0.12889868684868572`"}], ",", RowBox[{"-", "0.16161408960215953`"}], ",", RowBox[{"-", "0.9467837556855212`"}], ",", RowBox[{"-", "0.3906219088764729`"}], ",", RowBox[{"-", "0.3251911033695264`"}], ",", "0.9179942012624619`", ",", "0.2636861461929945`", ",", RowBox[{"-", "0.0634678813417392`"}], ",", RowBox[{"-", "1.5356610052480415`"}], ",", RowBox[{"-", "0.5214835198903671`"}], ",", RowBox[{"-", "0.16161408960215953`"}], ",", "1.1470020205367752`", ",", "0.6235555764812009`", ",", "1.506871450824983`", ",", "1.3105790343041421`", ",", "1.048855812276355`", ",", "1.8667408811131894`", ",", RowBox[{"-", "0.25976029786257987`"}], ",", RowBox[{"-", "1.3393685887272013`"}], ",", "0.9834250067694085`", ",", RowBox[{"-", "2.0918228520570885`"}], ",", "0.13282453517910034`", ",", "1.506871450824983`", ",", RowBox[{"-", "0.9140683529320474`"}], ",", RowBox[{"-", "0.5869143253973136`"}]}], "}"}]], "Output", CellChangeTimes->{3.586111279819809*^9, 3.586111728382306*^9, 3.586111929819807*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hmgn", "=", RowBox[{"Histogram", "[", RowBox[{"medidaGrandeNormalizada", ",", "10"}], "]"}]}]], "Input", CellChangeTimes->{{3.58611128481981*^9, 3.586111353226059*^9}, { 3.586111431194809*^9, 3.586111483569809*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.63]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.63]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-2.5, 0}, {-2., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{12.500000000000028`, 47.38408163265311}, { 72.38247177191026, 97.37795670858857}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-2., 0}, {-1.5, 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{46.38408163265311, 81.26816326530617}, { 72.38247177191026, 97.37795670858857}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1.5, 0}, {-1., 8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{80.26816326530617, 115.15224489795924`}, { 32.38999687744641, 97.37795670858857}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[8, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1., 0}, {-0.5, 17}, "RoundingRadius" -> 0]}, ImageSizeCache->{{114.15224489795924`, 149.0363265306123}, {-39.596457932588535`, 97.37795670858857}}], StatusArea[#, 17]& , TagBoxNote->"17"], StyleBox["17", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[17, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.5, 0}, {0., 24}, "RoundingRadius" -> 0]}, ImageSizeCache->{{148.0363265306123, 182.92040816326536`}, {-95.5859227848379, 97.37795670858857}}], StatusArea[#, 24]& , TagBoxNote->"24"], StyleBox["24", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[24, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {0.5, 15}, "RoundingRadius" -> 0]}, ImageSizeCache->{{181.92040816326536`, 216.8044897959184}, {-23.59946797480299, 97.37795670858857}}], StatusArea[#, 15]& , TagBoxNote->"15"], StyleBox["15", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[15, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.5, 0}, {1., 11}, "RoundingRadius" -> 0]}, ImageSizeCache->{{215.8044897959184, 250.6885714285715}, { 8.394511940768098, 97.37795670858857}}], StatusArea[#, 11]& , TagBoxNote->"11"], StyleBox["11", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[11, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0}, {1.5, 10}, "RoundingRadius" -> 0]}, ImageSizeCache->{{249.6885714285715, 284.57265306122457`}, { 16.393006919660863`, 97.37795670858857}}], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[10, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.5, 0}, {2., 8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{283.57265306122457`, 318.4567346938776}, { 32.38999687744641, 97.37795670858857}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[8, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {2.5, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{317.4567346938776, 352.34081632653067`}, { 88.3794617296958, 97.37795670858857}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-2.5, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{-2.5, 2.5}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.58611129349168*^9, {3.5861113244135575`*^9, 3.586111354147932*^9}, { 3.5861114493041825`*^9, 3.5861114843041825`*^9}, 3.586111728413557*^9, 3.5861119298510575`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"GraphicsRow", "[", RowBox[{"{", RowBox[{"hmg", ",", "hmgn"}], "}"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ "histogramas", " ", "s\[ATilde]o", " ", "representa\[CCedilla]\[OTilde]es", " ", "aproximadas"}], " ", "-", " ", RowBox[{ "veja", " ", "como", " ", "a", " ", "mudan\[CCedilla]a", " ", "de", " ", "escala", " ", "faz", " ", "parecerem", " ", "diferentes", " ", "as", " ", "medidas"}]}], "..."}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.586111357257309*^9, 3.586111379897934*^9}, { 3.586111513444809*^9, 3.586111561991684*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.63]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.63]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12., 0}, {13.5, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{18.47517360943675, 56.07537659418438}, {-33.07389455865892, -15.485770302864708`}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{13.5, 0}, {15., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{55.07537659418438, 92.675579578932}, {-41.36795668655601, -15.485770302864708`}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{15., 0}, {16.5, 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{91.675579578932, 129.27578256367963`}, {-49.66201881445313, \ -15.485770302864708`}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{16.5, 0}, {18., 12}, "RoundingRadius" -> 0]}, ImageSizeCache->{{128.27578256367963`, 165.87598554842725`}, {-116.01451583762996`, \ -15.485770302864708`}}], StatusArea[#, 12]& , TagBoxNote->"12"], StyleBox["12", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[12, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{18., 0}, {19.5, 25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{164.87598554842725`, 202.47618853317488`}, {-223.8373235002923, \ -15.485770302864694`}}], StatusArea[#, 25]& , TagBoxNote->"25"], StyleBox["25", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[25, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{19.5, 0}, {21., 18}, "RoundingRadius" -> 0]}, ImageSizeCache->{{201.47618853317488`, 239.07639151792253`}, {-165.77888860501258`, \ -15.485770302864694`}}], StatusArea[#, 18]& , TagBoxNote->"18"], StyleBox["18", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[18, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{21., 0}, {22.5, 11}, "RoundingRadius" -> 0]}, ImageSizeCache->{{238.07639151792253`, 275.6765945026701}, {-107.72045370973287`, \ -15.485770302864708`}}], StatusArea[#, 11]& , TagBoxNote->"11"], StyleBox["11", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[11, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{22.5, 0}, {24., 10}, "RoundingRadius" -> 0]}, ImageSizeCache->{{274.6765945026701, 312.27679748741775`}, {-99.42639158183576, \ -15.485770302864708`}}], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[10, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{24., 0}, {25.5, 11}, "RoundingRadius" -> 0]}, ImageSizeCache->{{311.27679748741775`, 348.8770004721654}, {-107.72045370973287`, \ -15.485770302864708`}}], StatusArea[#, 11]& , TagBoxNote->"11"], StyleBox["11", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[11, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{25.5, 0}, {27., 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{347.8770004721654, 385.477203456913}, {-49.66201881445313, -15.485770302864708`}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{12., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{12., 27.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}], {192., -116.80842387373012`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.63]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.63]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-2.5, 0}, {-2., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{18.475173609436638`, 56.07537659418426}, {-42.40471445254316, -15.485770302864708`}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-2., 0}, {-1.5, 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{55.07537659418426, 92.67557957893189}, {-42.40471445254316, -15.485770302864708`}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1.5, 0}, {-1., 8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{91.67557957893189, 129.2757825636795}, {-85.60295470200725, -15.485770302864708`}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[8, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1., 0}, {-0.5, 17}, "RoundingRadius" -> 0]}, ImageSizeCache->{{128.2757825636795, 165.87598554842714`}, {-163.3597871510426, \ -15.485770302864694`}}], StatusArea[#, 17]& , TagBoxNote->"17"], StyleBox["17", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[17, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.5, 0}, {0., 24}, "RoundingRadius" -> 0]}, ImageSizeCache->{{164.87598554842714`, 202.47618853317476`}, {-223.8373235002923, \ -15.485770302864694`}}], StatusArea[#, 24]& , TagBoxNote->"24"], StyleBox["24", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[24, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {0.5, 15}, "RoundingRadius" -> 0]}, ImageSizeCache->{{201.47618853317476`, 239.0763915179224}, {-146.08049105125696`, \ -15.485770302864694`}}], StatusArea[#, 15]& , TagBoxNote->"15"], StyleBox["15", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[15, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.5, 0}, {1., 11}, "RoundingRadius" -> 0]}, ImageSizeCache->{{238.0763915179224, 275.67659450267}, {-111.5218988516857, -15.485770302864708`}}], StatusArea[#, 11]& , TagBoxNote->"11"], StyleBox["11", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[11, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0}, {1.5, 10}, "RoundingRadius" -> 0]}, ImageSizeCache->{{274.67659450267, 312.27679748741764`}, {-102.88225080179289`, \ -15.485770302864708`}}], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[10, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.5, 0}, {2., 8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{311.27679748741764`, 348.87700047216526`}, {-85.60295470200725, \ -15.485770302864708`}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[8, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {2.5, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{347.87700047216526`, 385.4772034569129}, {-25.12541835275752, -15.485770302864708`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-2.5, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{-2.5, 2.5}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}], {576., -116.80842387373012`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}}, ContentSelectable->True, ImageSize->{827., Automatic}, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{{3.5861113725855293`*^9, 3.5861113804135575`*^9}, { 3.5861114550385556`*^9, 3.586111467819807*^9}, 3.5861115541791844`*^9, 3.586111728444807*^9, 3.5861119298979316`*^9}] }, Open ]], Cell["\<\ Gr\[AAcute]fico para comparar distribui\[CCedilla]\[OTilde]es, usar na \ ordenada o ponto de probabilidade 100 (i-1/2)/N (Ver Draper e Smith, apendice \ do cap. 2)\ \>", "Text", CellChangeTimes->{{3.586111584147934*^9, 3.586111614429184*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"InverseCDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "0.5"}], ")"}], "/", "100"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "100"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.575829303548901`"}], ",", RowBox[{"-", "2.170090377584561`"}], ",", RowBox[{"-", "1.9599639845400545`"}], ",", RowBox[{"-", "1.8119106729525978`"}], ",", RowBox[{"-", "1.695397710272136`"}], ",", RowBox[{"-", "1.5981931399228173`"}], ",", RowBox[{"-", "1.5141018876192835`"}], ",", RowBox[{"-", "1.4395314709384555`"}], ",", RowBox[{"-", "1.3722038089987256`"}], ",", RowBox[{"-", "1.3105791121681287`"}], ",", RowBox[{"-", "1.2535654384704509`"}], ",", RowBox[{"-", "1.200358858030859`"}], ",", RowBox[{"-", "1.150349380376008`"}], ",", RowBox[{"-", "1.1030625561995973`"}], ",", RowBox[{"-", "1.058121617684777`"}], ",", RowBox[{"-", "1.0152220332170279`"}], ",", RowBox[{"-", "0.974113877059309`"}], ",", RowBox[{"-", "0.9345892910734797`"}], ",", RowBox[{"-", "0.8964733640019162`"}], ",", RowBox[{"-", "0.8596173642419116`"}], ",", RowBox[{"-", "0.8238936303385572`"}], ",", RowBox[{"-", "0.7891916526582224`"}], ",", RowBox[{"-", "0.7554150263604693`"}], ",", RowBox[{"-", "0.7224790519280624`"}], ",", RowBox[{"-", "0.6903088239330339`"}], ",", RowBox[{"-", "0.6588376927361876`"}], ",", RowBox[{"-", "0.6280060144375695`"}], ",", RowBox[{"-", "0.5977601260424784`"}], ",", RowBox[{"-", "0.5680514983389826`"}], ",", RowBox[{"-", "0.5388360302784503`"}], ",", RowBox[{"-", "0.5100734569685947`"}], ",", RowBox[{"-", "0.48172684958473017`"}], ",", RowBox[{"-", "0.4537621901698793`"}], ",", RowBox[{"-", "0.4261480078412781`"}], ",", RowBox[{"-", "0.39885506564233664`"}], ",", RowBox[{"-", "0.37185608938507464`"}], ",", RowBox[{"-", "0.34512553147047237`"}], ",", RowBox[{"-", "0.3186393639643752`"}], ",", RowBox[{"-", "0.2923748962268042`"}], ",", RowBox[{"-", "0.26631061320409494`"}], ",", RowBox[{"-", "0.24042603114230787`"}], ",", RowBox[{"-", "0.21470156800174442`"}], ",", RowBox[{"-", "0.1891184262727925`"}], ",", RowBox[{"-", "0.16365848623314125`"}], ",", RowBox[{"-", "0.13830420796140447`"}], ",", RowBox[{"-", "0.11303854064456509`"}], ",", RowBox[{"-", "0.08784483789587168`"}], ",", RowBox[{"-", "0.06270677794321369`"}], ",", RowBox[{"-", "0.03760828766125593`"}], ",", RowBox[{"-", "0.012533469508069273`"}], ",", "0.012533469508069273`", ",", "0.03760828766125593`", ",", "0.06270677794321383`", ",", "0.08784483789587182`", ",", "0.11303854064456523`", ",", "0.1383042079614046`", ",", "0.1636584862331414`", ",", "0.18911842627279263`", ",", "0.21470156800174442`", ",", "0.24042603114230787`", ",", "0.26631061320409494`", ",", "0.2923748962268042`", ",", "0.3186393639643752`", ",", "0.34512553147047237`", ",", "0.37185608938507464`", ",", "0.39885506564233675`", ",", "0.42614800784127826`", ",", "0.4537621901698795`", ",", "0.48172684958473033`", ",", "0.510073456968595`", ",", "0.53883603027845`", ",", "0.5680514983389826`", ",", "0.5977601260424784`", ",", "0.6280060144375695`", ",", "0.6588376927361876`", ",", "0.6903088239330339`", ",", "0.7224790519280624`", ",", "0.7554150263604693`", ",", "0.7891916526582224`", ",", "0.8238936303385573`", ",", "0.8596173642419117`", ",", "0.8964733640019164`", ",", "0.9345892910734801`", ",", "0.974113877059309`", ",", "1.0152220332170279`", ",", "1.058121617684777`", ",", "1.1030625561995973`", ",", "1.150349380376008`", ",", "1.200358858030859`", ",", "1.2535654384704509`", ",", "1.3105791121681287`", ",", "1.372203808998726`", ",", "1.439531470938456`", ",", "1.5141018876192842`", ",", "1.5981931399228184`", ",", "1.6953977102721371`", ",", "1.8119106729525973`", ",", "1.959963984540054`", ",", "2.17009037758456`", ",", "2.5758293035489004`"}], "}"}]], "Output", CellChangeTimes->{3.5861116270698056`*^9, 3.586111728491682*^9, 3.586111929929182*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"pu", ",", RowBox[{"Sort", "[", "medidaGrandeNormalizada", "]"}]}], "}"}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.586111648897934*^9, 3.586111656007309*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData[" 1:eJxd1X9MU1cUB/BSWAtUEJLNEoMGsGgdLPgD3QzCaRN+hQE6RAXErcwSZDrc NCamFcemA9lQLCiwsalxi5oxAcePAZKc4hgDtcqPDkREa0sFFEpBamtFOpd7 d//YHy8vn+TlvXvPPef7/D/el5TJ5XA48tfXv/cMVb88vtJFPbpSLVuYyFXH NrmmpKQ7qTWtV294djqp8x2m1c7pDqzQnz7r0cpR+1xpFpS9msMOL/OIj8yB mzcfTE31e4ml6/uahMnzWFocZ1tT8gI/zw+N9i6xoT7kwuPrG2wY9qtwsVe+ FQOMfcuTXK3oD27HFnKseL9w9ctvZy3YZx1u88ixYOSW7zT+tllcm10Q7h43 g0Le4gvfe86i79yhS27t01iZsCe3KvQZGvzTla5NZsx6Q6nWZs0wZ/pGTYgu TjO7pM6YvExmXNWQsd8j3oQbj396MDXCjNZ7kdELJJOoOKMaNgdNMfNiBJoV Y5PMaTNHx8ZqJrB4ucDkJn6K+9s3Rc99+RTF+3vO8L3GMcveELxt5xOcKq/P 5rmM4cqQxHue0nE8blB4u0wYscxJFJAePMacv++rXUVLR3GT24dGrm4E9QPD BVzhY/QLkTY7aQ1YobJ0rnnLiKPJohOcTj0O7mn0Pu8zwnxFxbs76GfAagU/ w3HtEcaPv9iqeEePeeefhM7X6FCkmPcMjHjErKvkl3ydpGMeLRXd+0H7AE8W VXrbYx7i9fdaVZ+5DzN7tIe9z40ewtV3M5qtIcNo67iaOZA/iLhMnGERDqGu qFqZe2uA2VFYlVm4qJ+59sj9HWVyLSbsM7k+c9xFwc2da6Iae5m7jpZUhQl6 0NxSX2se7cfYvJyWmI7bzEFaZdx25U08wlOmmO5oUdgzu911XScuSJJyJn7v xS1/uRuuz7RjzY/8y+PnupFnEXQ9q2tDZW/ludsLNZhXIHX2Mbcy/12p73Ec bsS2bPFU18NOTDPliU941DInl/tdk0t/wmFOQ8SfNe3oN7dME1hV+H/Df6bP M8vJ+8BeLj2p/kKND8n3oKmoIS0HavEbsh5mAVkv7O7mGorelEEK2Q+zL9kv M60H5FanWuScNqD1Yqb1hMg8ybYcWRfQejPT84D5sTregVMaoOcF05dLh8J0 3UDPE4oVio1RkkGwk/Nm9iL9AJyQ+tMxKUPQQfqF+QnpJ2Y96Tdmf9KP4H+x NnFFtw5ov0JjKL/v7VkD0H5mpv3OTOcBpjxFjiCOEei8wKrgHv7a2KdA5wnK de6ydbJJoPPGTOeReTeZV+hoWVG0fq8JDpB5BsfpyKZ3D03BDjLvUCcC1yWd ZnAneQDdqoSzSxKngeYFOO/95MbStBmgecJM8wYKTvzW9DrHgOYRM80r+Nmu Tgw4YgGaZ3At685IgMtzoHkHghr7RVGZFWgeMj8geQliX7fwQF8biEieMhtJ 3gIUCvsCL9igguQxVIV/ECRuscNWktfwxy8ftYklL2ERyXN4fuzw5Mr4OThG 8h5ibl2qCXrwCqLJ/0Cya0NjVLB8HmTkfyExPrcmCiM4kn8AarhLbg== "]]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0., 0.}, Method->{}, PlotRange->{{-2.575829303548901, 2.5758293035489004`}, {-2.2881152685779287`, 2.030317894880556}}, PlotRangeClipping->True, PlotRangePadding->{{0.10303317214195602`, 0.10303317214195602`}, { 0.0863686632691697, 0.0863686632691697}}]], "Output", CellChangeTimes->{3.5861116569604306`*^9, 3.586111728522932*^9, 3.586111929976058*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantilePlot", "[", "medidaGrandeNormalizada", "]"}]], "Input", CellChangeTimes->{{3.58611166066356*^9, 3.586111673632309*^9}}], Cell[BoxData[ GraphicsBox[{{ {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0], Dashing[Small], LineBox[{{-7.339118021576031, -2.2881152685779287`}, \ {-2.3261895477160612`, -2.2881152685779287`}}]}, {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0], Dashing[Small], LineBox[{{1.9237346086648373`, 2.030317894880556}, {7.339118021576025, 2.030317894880556}}]}, {}, {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0], LineBox[{{-2.3261895477160612`, -2.2881152685779287`}, { 1.9237346086648373`, 2.030317894880556}}]}}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData[" 1:eJxF1XlQ1GUYB/AfN6gomM2qgbGEsQgTGiCjCM+SCOYIFUNF5BAUDGAMXuQQ KGGDB3ElLMJASZPKUXIkh7Biz4KoKyIuy8ohh8suiAgsCwK7XEu27/T2x29+ 85n5He/xPN+X/fUR/3BdhmHCXl//3q9EWnXaZ+kJRuwEIev8dAX3XP31ouWM 4FHDXy1rhTqCt3RPZLZVaTBPxrts2sAIdlY5efPjlvCemXJoY8gK9u+rF0oq FzB7Z0cdK0CDZ54wZzx2zOOxc87e5llq7Jq5GZQiV6HbddZms3MqtP64/I0Y /hyywSR5HaPClttsaWjZLHao+htNY2Zx7KLX04zaGXSKOu++6sA0Nj1WyYTt r9BiKa7YpHkKY6ddjqoXp1HOPpRgXKfE4C3f3mx8/39LHlrq+cZOUZez7wdY oxK314QeNz2oQIPithaz9UpUPfXyXsOdwG2h++d3dyuoR4MunFTkTVBzj6F7 b9g4Zr67WmHCGcOI5Gy+ZPcYco635xiZjeLtNv1T3Zte4mRudZSh/gvUKbI9 Zqgzihfk8eb648Oojm3ozZ8coVZI30sZHXqOH5kED+tKh7DZL1A3SDqMVo6e 9ToSOdaPusSFDQ7hSIBNOiOUYVaw5oPMETn1mEV7R/S0DMvjjUJXbg3iQIuG ydeRYdJvL501FVL85XROfsOGQWo7r1W7frSXUge7Tn/nkTqAGWkF5gs+z7CY UyguuNtHLRHrnSww6MUd3aH1Ksd+9Fm5FH73QA/iO5zQWVYv8lWbr5XyuqgV ygjPZ7In1MN24d/ruUjQ94jC+NVKN+bmHWLqfxJTl3BKPy2Wi1DJr65UjnRi 2YD40ExiG7Xouriv0e0hJhomBCoeS3CPwf0vLZbv4xp/T2b8phgdZBxeTFMz VvxqVDJaKEKz9XeWbVMbMUFcUNi27hHeCd9rFVfWQB2RPmu998NabIziTD54 JsTIgta/fdorqG3ZCWet37yC/UyNx92KZmT15bRyjqZQH+nSGv7z8tva56k9 8rXfg4VczwzBDwJsT9P+D+rSaoJioBI9yXioH5prxwuRIl152oYQGBnUzod6 Xl87X+pUsh5wuvyL2TDm9XtkvajPkvUEryTuZzEhDyCWrDc1kv0AzYsqwxM/ PwIh2S+YKsnudZOKgEf2EzLj4/fs4/YAm+w3dTmpB2Acq3k+gb1wjtQLtQep J+pNpN6o00g9Aruo0s9WJIVWUq9Q62zUsW1GDj2knqmTSL1TF5N+gMm1Niv2 zDDcIP0C2x3ajZz2j0Ef6SfIla4KcQmZgOek36gnr2n7kbqU9Cvc49um7YxW wOekn2GF51XnGjcJjqTfocoGjC2FSugieQCii76XLf2mYCPJC9CLPtyyJWga Fou0eUJ9leQNnE+/UcdWz0ALySPqAJJXcHVB4GedOAuHSZ7BrYjHQ9b6c1BH 8g5WVywU2VxSwSDJQ2okeQkcCxP3rRZqYJE8pRaRvAVIYXVs/V0N8SSP4U/3 T+w5/AXoJHkNd/74qpHDXQRHkucwl3xqwu7gEpiTvAef1uIK+4FlaCLnAfeb XbX7HMI0UEjOC+7wnMqP5cFw/wEINmN8 "]]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], AxesOrigin->{0, 0}, Epilog->{{}, StyleBox[ LineBox[{{-7.339118021576031, -7.3818524203479425`}, {7.339118021576025, 7.532997581068983}}], Directive[ RGBColor[0.24720000000000014`, 0.24, 0.6], Dashing[{0, Small}]], StripOnInput -> False]}, Frame->True, FrameLabel->{None, None}, Method->{}, PlotRange->{{-2.446372673858677, 2.4463726738586753`}, {-2.2881152685779287`, 2.030317894880556}}, PlotRangeClipping->True, PlotRangePadding->Scaled[0.02]]], "Output", CellChangeTimes->{{3.586111669319807*^9, 3.586111674210432*^9}, 3.586111728554182*^9, 3.586111930007307*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantilePlot", "[", "medidaGrande", "]"}]], "Input", CellChangeTimes->{{3.58611167916356*^9, 3.586111690210434*^9}}], Cell[BoxData[ GraphicsBox[{{ {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0], Dashing[Small], LineBox[{{-12.616260256756437`, 13.100000000000001`}, { 12.983619714465867`, 13.100000000000001`}}]}, {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0], Dashing[Small], LineBox[{{25.97421068596075, 26.3}, {82.71521922973069, 26.3}}]}, {}, {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0], LineBox[{{12.983619714465867`, 13.100000000000001`}, {25.97421068596075, 26.3}}]}}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData[" 1:eJxFkgtMk1cUx5ENXHipG8IYYxkgIBRov0e/Byg5WRQxvMqSEtE5KfIIq0Ls kJagFYMsilDEAVoVZboAOtnGagZsBipxkyDFB3NzhM0wQkumGXPxtY7HqD1w T9I0v++e8z//c+4Nzil+P8/VxcUld+Hn+B+Vjpd+Eh8JLOOIKHDfprunSJLA KaMjokAzkVC+fG80FOQ7QgKZbV3GuPQYzI+GOXWPQj0bg/nRoBj05P6riwXL kCNiIXcyfP2+FVLMl8LYTAO97KAU9aQgpj07Z7FJweVlyCCzaM1an1AZ6snA UDT/VX+aDF6Wm2Qwecnn3GmtzFlvlcGf3V1pXmcJ++/4Yqyon/DW0aogz0ms ZyioaJlND3SnnP5SKLhiWrvzVhjh+9X61PQNhJ965PVfVVFOfxUU0Cp3Haun 0A8FvWzIO7eMmD9EgebN8cDzVzDfhYbkiz+FmocJKz0G28UpyjlfAA1hjEd8 0DIa/dHQ0187ol347uxPg9sB+SolRdiyb6W6L4nG/dEwd9+eZd5Bo7+F70pl eXYp4ZO/Sb9sqyFcbnwiaT5P435piGwsaN7UTfhy8IXoDgv6MdHQrzzRMPIH 9h+ioWNaF2t+Tjhhl3ZW68UscZCfa8/8uwzun4Y0/1/ubZMTHi3xNhzbzOA+ GDjY997UZ9sJL+/16f10D4P7YaB61ei1wioG3w8DB+plhyKM2C+FAd3Fz3W3 L6N+PgMP+Ux7gZnw/ugYxeMR1K9gYDDz56+LbYTbCusSrXbst6DLBw3TW3zY Je44bKkfCCa8fp2XPk5O+K30H97oTGKd/kwLfcuKSqQfsDgvA/bdGwe7iwnv mnmWrKjE+gAW8nzV8G8T4a0N11y7LhH+3VbjXtvLol8Wdlq3jOnvEvagDNwx 62J/FpoM1/+6bid8o87oGbxCjvfDQqu45kZ7qBz9sMB/G9KULeB5ihxCFK/K UlMJC4denPg4B/Pz5fD9SjbiVy3hQq+2k5W1hFMG1H5lFwjvVyRuNvfI0Y8c rEMtH2XfluN9c+AfeTRLZSP8IDzfdHOOsGTC+3G7H4f74KBPU3/kFSmHehzU nb4TaNvE4TwcGGd+bMlWEdbUfteuLyccvqesNaOJQ30evtnQmPKoc1Gfh+lT nGvuMIfz8+AVGKS98xDr83mQ/aNRZXjweP885LqdLXGLIlx9c3Xb6mTkAAEs iX/bOncTtj+a2Ot7nMf3LMC8vSasqpvHfgJk8md8Pxxf1BPAwGvPvO4tLPGA vuWJuE7A+QUojciQtBQTppnXWnPaBbxvAa6aGyNDp/CcEcE6nfC2mhKxnwhx d/u0lYdFfE8iSNgZ9+aneD4kgkr3IOvF0TjcnwjPvSVHth+Px/o4+B+LNH3T "]]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], AxesOrigin->{14., 13.}, Epilog->{{}, StyleBox[ LineBox[{{-12.616260256756437`, -12.912551419841115`}, { 82.71521922973069, 83.95567666792411}}], Directive[ RGBColor[0.24720000000000014`, 0.24, 0.6], Dashing[{0, Small}]], StripOnInput -> False]}, Frame->True, FrameLabel->{None, None}, Method->{}, PlotRange->{{12.616260256756437`, 27.571739743243565`}, { 13.100000000000001`, 26.3}}, PlotRangeClipping->True, PlotRangePadding->Scaled[0.02]]], "Output", CellChangeTimes->{3.5861116907416825`*^9, 3.586111728585432*^9, 3.586111930038557*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXAuwVlUVPvz3/vfFS8vUcYhuXC4gpTE5Dc51COjyDKFAITFtBOQKimFA DSORUCnqQF4I4ymPBBmjBtDxGgGFIIbjg9FCzeukaARjYSqDcqfw71977cfa 56xz1r7QDGAyeu5/1r/Xt9d777P3Pv/wcTMmTbx13IzJE8ZVD5427rZJkydM rx40dVqRVNImitpMiqLo79URfC4UP+pLofhfYTJcgCJ/vlT9KY2aGiL8V9cY NRcKOUUuiQrNjVFdQ5O666quFfGmimppDU3YrJJp1hw11kWmXdRUpHWJt7Uo PmxdY7PuvoxtW6SVqJsSywr/V6trnmXhNKwJFKdIiLpT+5Vo7VCrklTjVXrt lJiAqS3UXDQPdFWT1VbjQVuwimlr7guFpqgR/pK2TQ11UWOzkyHRluAZWo2O ixg9PS5SRIip1o1aLR/TEOPDOLJOS1YgcRK3iIE11qEWSVivKFaDErn4N6IW qSjiNGZh1mqtabMcQ+tqjdZIVeI0qgnr2bNXBRsRigPdUZthJtM5OsWYyQ9c 610d6ABda7s25kOMFBPRZjmGhiYq92gxLXSQ+F0yKni24RVpaijea9Q046he XaoremYM6TYKu2AMVG6zjIvJblYebFPwZHQ0V+McjejQPdYVJ3qAVVALLGO1 Ge2ozVPrFykEJiwwW6tIbLuMY+pSTUZzhmZqAYtu71G7ZH77bbWGPdBml+j0 dSOV0pMr5zXZTZv1QAfWM9aINdWykjERS2UXi6zVQBgXLfERsTLe1LdCRNM9 AZutG9uU6qaDrbWTjvbwBz5E16lZCxKivJ7C2AFc3Zdiv+ccPdpS0dLyHxuv xavXvpKhVZyFtE/0OH20Mri2kWNS85p4VLS2Z5Ae/29++7jokYg/9bWudjPX r9tX6Ntn2ZIF83ebqjhv2dKnJ23ZvF/dnc8gdg7s+WKG1jOQl+uD4w2VpdZq brLQ/17b4/VvjX4I7PHhwPqVaI8cJOQFgdqFanwq7brH/clrMuTpvW/+Yep3 H73h8aZX0CJKE9VmiADRAWm3bfzVixAMSIfrYIHxIiaq1DdXCIyfQhoMyBce OXJM3eUZl7QG7Jod21+z4ucZqwSBqes1bA6d74Tu1fzqP13zPkKwacbL9//5 8H0/X/SUY+wrCNM9zb6XhjkGIgBMoO6q0uwbCNbjwIF/gSQULGlfCqa9EF/F 4RYAuNlYwhW6YpHnB27uyUF1dq6DKHfwvSl8WRw+8p6+S72n7+L/amDvhNAQ xraKqm8vs02K/yoZ6ELiqbWUEb1XWgzUZlqGe3zl4Lu4SJmzetWz6q5tWqSE dUmfnjK6BGdAztIuk/GU6FJ8ruL8f3maET8rxH43J+uGuXO2q9laxzTzSGDd nZKW1iFNcQkso1B9AZsDnq2uqnkPoVBpRlfdDGPPkxIm1uhLaWJ1C2N0TKGM l7ng9hm7hDH+cfKkzVD2Ws0Y0KPi652mWSfBU5px06zbt8Kw4hg7/y88dQXS qg8det9pAteLwhghv1yUhzB+NS1BLwhjNMl4fGD9ilYxgpjN147dsGhR45Mp jIpvQJqAHQVP1atrKYTR364atc5UDPXluYKMmvebu3e9PnfVymdMgcilydJO wBvqG8tVLolRTQSjPIQaGCxZrSiAHuyEPR52aMB+Skw/Ln46UPwq3V7cBuGG guFpxquQu2DWZVUXapQf6mwEE4GkkUtt08wOYkvUnA7DsCvIz377nj+YdEeA LszC70lOwri1Xs6533DOtfNI9U1ZHF5cEOUk1fAwVPslMbkicxIl8SqkwdAI Rdcx5gTGq5HmhhHD2IatM+qrMUJNGcnEsDYJxAQMW+ruhCAb4lT4oVooUFwY mj4Kgin3w7BQSD5cxwbG4wLuaKR5uFpNEGvfhPG/VngtAo7ybVTlp3yh8MNf rn3e3NPvjoXBxa1G7+nnQLi49ej9iD1PvnFs0IAHJj76yEsJOBc2yl6l6T3d 6ELE0t4VpBuP6Wzsc3DUyHWQYe8FsfkjzftBPG2p4tQty+ff+wR83jv5pk3W jW8LmBOTEX50yKBV8Pmjfn2WG1ogDBXNfF5w/+KnDE2CmYLGhKceeNgyWhxi Xaobw5LGW1e7icNBoTbcyiRNooMYz1S/nsCTTnQwiKdMW3bp8QH1K6i33gxj p2JSJ1F2PYAFHAbhhoVpaEbT0dq77vw9DA8Hkh0EnJXgOpiBNAC18/g3AtCT ZwnS0fPGtF7w/5X2kv44Tnbi3RQEzVJubG6S4cTX+i63+K/Y1tla+LvZ6VqU x3PmnSu/vsaWh9cCbJbcKeZ6m5mMLRqaf4l3FLSpynU0yzfiif5oPM9J+4VE mOVMs3vKLY8cGT5sTbw6iRizefNuvGP276wcfxIw5qhrFUxd3xs6eDXw/bu+ 3wqqD9XrObZmzVUglWO3b2sGAf4x4sq1VBlPqWeEQvYTX6mFixbuiSsX5QAN nzct315B0Z+6AqkKHdzlvGK2jCoP2BLknWg7/6kfh/AXxt+w8eXrr3vYmAJU l+DuUdd2dFXAWMG4lHPJLgH2bqTBFNYqXsKXAc9REu7P+OgTHbVDwF3g5LU0 rHIVnKOoKbax0TkfAWEqbufwuERdwbmKGmGrEKxLAjJwq6DvQqTBE52llaPW VF/A+q0A1Yg0iCBrctwmUwOhWoDQmklQK9FM8QBUsE0C7/1Ig5picwMX2e3M ELzHRscWAXsx0mAyand9yl1qm/JjsM0sPQh7TTIo4okHsm5io2wZAsI+AwhH BaNpZgSjmcwaYr0QekudIaBPZegKp4AJR+NzmuKcbTYItnkIax2X7XFbgRoS 3ANIAxfaetfet5YSLxAHlsosrb0fDmoqTHECTw1zaxmbMCvYadmDtAucyAQc reXmF2uRBtXaPrThTkk+XrGVkWjPOZ30wunQjG5hRmvTtq1fBuhTD9utcNbT LZvhSkV53JKeRZfb1uYkQ/ZZSU6p9UhbPe+unXZEQedkj36rfG8GHkjMkMB7 /NYSpI2dyryeBEGn+riIDVrletgFnM2kjWE8ttaF8PyG4SnPSKkVbKXVKLCn blZNDAqbHsuESqrxvGlceUbcJ6SK4W1xWlrMB8N4YMi0O9VZllki4G3zaykd ebxRZrGA8xhcc1CiMbjKuLEF/v4iBAhPa9hV4DLfyN4cQxJsp6+gcnSCR7Hg hE9NiuxqrM4Ub4hYJISJxoF5mnWRFApB2bfDCWh3PyT/ah4oafb4QS4jXhoF vF18/pBpWp4t0fcIuE+go0G3VXfP20lzCaZpGpqtwGHQymy2DOhhiM7guNqa gA5fg9/jktse6rlPkHSPKzDWwfqkkrc4PU/AeY6JeYlHz5DBSvDwYwqSF/kU Q3pNKu+9JlWAS/Hfsy4c7Xf3UtSU+VCSFrQZxb1Bw9E4MDRiJRgCdhLMbgAb 3XOZPqXXVNwUB41SBQN/2lSDrjbMsoz23Kb41keOURBra2Xa3IKuSER3+D4K fI+CM+sLGGfGrGaI9+LM6y3s5QNuSvOiS0FL+7GQBi8xPD8K4wF17MARyOPN JSSeV10hs7Tb2QqlW4JBbarNFApW0BD0MlONtOlBdavOD8JwuC1AqJZ2jSMQ x4ue2UFmrMp8oii2MAv208PgpMzdc8vNm0GtBBxxWFguThMcqTYX/M0o6i/Q C3w1VdDrLXXNUxfBpEy5JozXd8v3BJ6DTGjlHI4NiZvDcLzQ0jigus2HMJzU XYIpAvthRgxdD72ZYQMbD4cZA5a4PLMHGG4UYuFtVIIKTj/fJCih2dO2rnNO HzvHGR8GyW2VkrNLUEhsLZUgE5WrFe9jc0PUB0jzznJ8x4cHUnySEgr/IdK8 5/zrCTzipLzim48fMkZo+HRtAiP7HVi32fdOdpSQAg9uUndjLLOZhKS+UsoN ze9mB5ae9Hqj8FjqgbB3M9N7rkyLP6/8lDFijKZiBL3smBFiXnXQSsOYY0/o jBFC/4PsIvVtgb2FEaPcedu2GxmG45UrYjx7EmdUazPZVcQTGNHxQzrcGSfv 6WKYUCE1btZpHZPZoMrj35/RpOJhhKAK4nbMOraTkD9+PyzEXGjndmkKtAzo v8JMyyj4oFZgpymxdfq0x0xy0P6DsDsyMRPEeA5+AQuQNjMHsjFDm8OBGjtz rheCImgurK7n4RewtmILev9wxsRZn34hvJ9h0pZ7g68uHMwriCCQSSKvkyDA C7Em0QMvFDwIo4bR5svpPu7kfGzXpUsZI/UK8XsnVwBtfHHrgAl5TjqIqvEL mBPaRbqvtIIR8tuKWsmY7mICFvjjM6l7BF1dn/YL7t28KkaOTlSOjK0v+Zg2 FQVslvlmH/dqGxXlFPbC1FX/woU3TziXkYPrU/gFErdKpGDVGy3qzc2e9ovk nhf3ox2pwuMvU6hyaifxl1A/ib9tkQ8J/rBfe0iV8osu6mwVp1GdmiKaEZ5R 7IbG55nQzAtgNQztdL3z+zkmns9s+UspDYaWzkx6JFXgfxqhiunmbHwV/+Py kwKnVw8bWjDhgO378lOA5H8dAcuSbcjp9onfziza2ahHqQs4DD4Vcr0xAgu5 XL5w3qd7qbsuekxt81/xer3x\ \>"]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"medidaNaoGauss", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", "20", "]"}], ",", "100"}], "]"}]}]], "Input", CellChangeTimes->{{3.58611174028856*^9, 3.586111763304184*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "17.799029961378103`", ",", "18.0790550811996`", ",", "17.526942409294826`", ",", "18.696604005431876`", ",", "11.64751373565918`", ",", "17.02789691484556`", ",", "15.989023680595965`", ",", "10.871793938134104`", ",", "18.852409564943166`", ",", "16.63503998290378`", ",", "27.923673969486508`", ",", "14.975831234381765`", ",", "20.906337628404494`", ",", "21.14163079767516`", ",", "15.874653602381747`", ",", "28.10653828862615`", ",", "11.082770257355754`", ",", "25.45580371760352`", ",", "21.598105185848237`", ",", "14.129105740199728`", ",", "15.166061693321668`", ",", "28.60775366527406`", ",", "7.974077737142829`", ",", "24.6935133573358`", ",", "18.440979465672378`", ",", "12.465637534377846`", ",", "24.268198904632815`", ",", "17.665152199368972`", ",", "29.61698124797094`", ",", "28.550986366959712`", ",", "17.66911049931263`", ",", "13.15094941174317`", ",", "24.055794526893024`", ",", "24.849758760361674`", ",", "32.143305819795295`", ",", "23.563170721733798`", ",", "17.063532453884797`", ",", "18.349872469740877`", ",", "21.341123746129007`", ",", "25.23189107387165`", ",", "27.004678322629005`", ",", "14.691353599234192`", ",", "17.86498525916334`", ",", "25.992710041727864`", ",", "30.250635794754594`", ",", "21.828604985468356`", ",", "13.507123771893403`", ",", "17.60082326046364`", ",", "22.48899976432171`", ",", "29.795686527975768`", ",", "12.214556525450032`", ",", "14.277618695997905`", ",", "26.66949662633436`", ",", "11.729499086647058`", ",", "11.70678309726994`", ",", "7.924752663563254`", ",", "21.60615030574507`", ",", "27.89319958882428`", ",", "15.407896864449109`", ",", "25.463833482774042`", ",", "21.904114956336993`", ",", "27.324594844706553`", ",", "13.207860264004013`", ",", "13.599424575293634`", ",", "9.850386893056761`", ",", "23.47481010473838`", ",", "19.322068297962776`", ",", "37.145126393991866`", ",", "18.013670369213706`", ",", "13.480139942437098`", ",", "21.373072651878935`", ",", "28.359406108490468`", ",", "13.023687481789008`", ",", "18.13892432359301`", ",", "12.052681797918932`", ",", "16.2984790984827`", ",", "23.817323667081713`", ",", "33.272011744601784`", ",", "41.84731487150904`", ",", "19.256459314003884`", ",", "15.131477190046981`", ",", "26.295804099933548`", ",", "20.563003962233175`", ",", "16.485164855081873`", ",", "14.861120285235234`", ",", "12.583360827040972`", ",", "10.160606009363187`", ",", "14.219564644521911`", ",", "19.18794270900313`", ",", "28.19855910613101`", ",", "13.35785499539757`", ",", "16.91397419975957`", ",", "27.26768120070194`", ",", "15.07130516022719`", ",", "27.058357602988465`", ",", "19.040037873991917`", ",", "18.069913964512622`", ",", "19.796958274975815`", ",", "17.839021275621622`", ",", "22.834575590805134`"}], "}"}]], "Output", CellChangeTimes->{3.586111764694806*^9, 3.5861119300541825`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "medidaNaoGauss", "]"}]], "Input", CellChangeTimes->{{3.586111767491685*^9, 3.586111777679184*^9}}], Cell[BoxData["19.84804841145223`"], "Output", CellChangeTimes->{3.586111778241684*^9, 3.5861119300541825`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StandardDeviation", "[", "medidaNaoGauss", "]"}]], "Input", CellChangeTimes->{{3.586111780022935*^9, 3.5861117891323094`*^9}}], Cell[BoxData["6.563957423968633`"], "Output", CellChangeTimes->{3.586111789585432*^9, 3.586111930085432*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"meuTeste", "=", RowBox[{ RowBox[{"medidaNaoGauss", "/", "2"}], "+", "10.3"}]}]], "Input", CellChangeTimes->{{3.5861117963823094`*^9, 3.586111811632309*^9}, { 3.586111853616684*^9, 3.586111853788559*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "19.199514980689052`", ",", "19.3395275405998`", ",", "19.063471204647414`", ",", "19.648302002715937`", ",", "16.12375686782959`", ",", "18.813948457422782`", ",", "18.294511840297982`", ",", "15.735896969067053`", ",", "19.726204782471584`", ",", "18.617519991451893`", ",", "24.261836984743255`", ",", "17.787915617190883`", ",", "20.753168814202247`", ",", "20.87081539883758`", ",", "18.237326801190875`", ",", "24.353269144313074`", ",", "15.841385128677878`", ",", "23.027901858801762`", ",", "21.099052592924117`", ",", "17.364552870099864`", ",", "17.883030846660834`", ",", "24.60387683263703`", ",", "14.287038868571415`", ",", "22.6467566786679`", ",", "19.52048973283619`", ",", "16.532818767188925`", ",", "22.43409945231641`", ",", "19.132576099684485`", ",", "25.10849062398547`", ",", "24.575493183479857`", ",", "19.134555249656316`", ",", "16.875474705871586`", ",", "22.327897263446513`", ",", "22.724879380180838`", ",", "26.371652909897648`", ",", "22.0815853608669`", ",", "18.8317662269424`", ",", "19.47493623487044`", ",", "20.970561873064504`", ",", "22.915945536935826`", ",", "23.802339161314503`", ",", "17.645676799617096`", ",", "19.23249262958167`", ",", "23.296355020863935`", ",", "25.425317897377298`", ",", "21.214302492734177`", ",", "17.053561885946703`", ",", "19.100411630231818`", ",", "21.544499882160856`", ",", "25.197843263987885`", ",", "16.407278262725015`", ",", "17.438809347998955`", ",", "23.63474831316718`", ",", "16.16474954332353`", ",", "16.15339154863497`", ",", "14.262376331781628`", ",", "21.103075152872535`", ",", "24.24659979441214`", ",", "18.003948432224554`", ",", "23.031916741387022`", ",", "21.252057478168496`", ",", "23.962297422353277`", ",", "16.903930132002007`", ",", "17.099712287646817`", ",", "15.225193446528381`", ",", "22.03740505236919`", ",", "19.96103414898139`", ",", "28.872563196995934`", ",", "19.306835184606854`", ",", "17.04006997121855`", ",", "20.98653632593947`", ",", "24.479703054245235`", ",", "16.811843740894503`", ",", "19.369462161796505`", ",", "16.326340898959465`", ",", "18.44923954924135`", ",", "22.20866183354086`", ",", "26.936005872300893`", ",", "31.22365743575452`", ",", "19.928229657001943`", ",", "17.86573859502349`", ",", "23.447902049966775`", ",", "20.58150198111659`", ",", "18.542582427540935`", ",", "17.73056014261762`", ",", "16.591680413520486`", ",", "15.380303004681593`", ",", "17.409782322260956`", ",", "19.893971354501566`", ",", "24.399279553065504`", ",", "16.978927497698784`", ",", "18.756987099879787`", ",", "23.93384060035097`", ",", "17.835652580113596`", ",", "23.829178801494233`", ",", "19.820018936995957`", ",", "19.334956982256312`", ",", "20.198479137487908`", ",", "19.219510637810814`", ",", "21.71728779540257`"}], "}"}]], "Output", CellChangeTimes->{3.586111812913559*^9, 3.586111855241684*^9, 3.586111930101057*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "meuTeste", "]"}]], "Input", CellChangeTimes->{{3.586111815726059*^9, 3.586111823101059*^9}}], Cell[BoxData["20.224024205726124`"], "Output", CellChangeTimes->{3.586111823663559*^9, 3.586111857976059*^9, 3.586111930116787*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StandardDeviation", "[", "meuTeste", "]"}]], "Input", CellChangeTimes->{{3.58611183297606*^9, 3.586111838491684*^9}}], Cell[BoxData["3.2819787119843165`"], "Output", CellChangeTimes->{{3.586111838991681*^9, 3.586111860351059*^9}, 3.586111930132308*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantilePlot", "[", "meuTeste", "]"}]], "Input", CellChangeTimes->{{3.586111864366685*^9, 3.586111873101059*^9}}], Cell[BoxData[ GraphicsBox[{{ {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0], Dashing[Small], LineBox[{{-12.195081168541794`, 14.262376331781628`}, { 14.918810774467854`, 14.262376331781628`}}]}, {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0], Dashing[Small], LineBox[{{30.016281781526367`, 31.22365743575452}, {84.75890172873135, 31.22365743575452}}]}, {}, {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0], LineBox[{{14.918810774467854`, 14.262376331781628`}, { 30.016281781526367`, 31.22365743575452}}]}}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData[" 1:eJwVT3s41IkCpQfSgztDfWOLNelxveb3nvG44yxhl16bJrUiG7Vz6VJj6qIu y3oURWGyl61thOt91+PWyoYZj0KSXSmPdpGldWnsVrRld6/7x/nOd873nfOd Y304cs+RJXp6eqGL+D+XTXZXjoZshXPcXWJfij2+/u6NSUCuLUZCKO1clj1u qey2uw7aodeJyNge5Yi0LTJdUqs93g3Yxb+pXdT+e6rPxzug6pv7Z+5Ei+D8 QZ7X1HpHbDNYa9RZJUKvVh7QW+SI9re1qVVWBAb7tsTUWYnw9fc25du2EHCO kjebZYiwJL/CwMGWQOSr90z8X4hwP7iZn+5HoN/2q67PtxK42H44xENOID8x 7JxyL4H4tvSeo2cXOfXHvFv/ILBWIwiKziXgkb9f21VIoCLv3m99PQQCyh5b veogoCKl661GCPifEf/l5AyBHb28+U8mCdSn87PiTUjEtvF/z3tDYGmUvqEb QUKhyzRwNyYRVHqg69EuEkuVe11urCYRsYRfK48g8W3U5cYUAYkV4W1uq86T mLot3ecXSOIXxeljAyUkfr18Nm5STmLYLX/7eCuJkodcj+w4iWXJsnPSERKk jZDvW0RiIaGtbf4NidYdu39b3kBCqfu3boM5hapH8f11HSTcNdKE244Upj7p 95t5SCL8j7c3Rr0pdCTKV6qfkMgcS/gmJ5hCTKvbrjVjJD69pOn9IZrCYa/a liX6FOIM9oZ1XaSAHP0ojSuFbvWc96ESCv6B2neP+FKQ89ZdKmiicNPk5UH9 KApeGzaO5/dTICpUVRNpFNKy7OUfziz2/OTdaX6VgrJCNnR3KQ33WPNnHRoK +ZtCvzS0oPGVu/lM0AMKlfy7rTyCRlpBsfp5H4X6KZmZzpPGXWp9sZspjYd2 z9apA2j0vc3PrhMs+ulmQocTNN4PHk6Ytabx+qBAlptC49idM5xCSMMtWFj6 NJ+GpdXMX/k0DfLCHz+bV9NISj48QEpoVFaGjpPtNLZdMb2e5ELDoLTNwmWI htFmu+bzO2k06UYE7CyN7IDC200yGsHnDGUblzMonx/z+u8+GoaNBLXCgkGS QRxPFbS4a/PE6ilHBozyXrgqhkasiZlbhweDsMiKB9JkGt7RHRZl+xkUft5g OV9E43nFL/OZf2Owaiou41k9jUwvAR2XyCArvk873bv46wJDRecyEG76bOfQ OA31WZU8oYKBrZ7y5LUZGhtK33x0RcNgkPtUZjBHw6T/0fWefgbPFAdTeygG +wZG5t+ZZhCt9N/9JIdBStmPtin6LAoCR8t7mhnEGPNY3joWu4eNtTPfM1D5 Fkpa7VnEZogaT71moBZSZ6+5sxh2Miq6sMCg1vRyZfl+FhFkU2KAgMXgucIT UxEsbK5aCEMsWLRe7x7/OJnFF41s6jDHwkjwSL7uCxZbFZr+FLCY2Pi0wbSW RUqGcH9oOouEnKXL93aymOV521+7yeKBqHhscpRFvLowOHsFh/uFktPf/cri pEZyZ8yMQ5Nf9EVLHgfXt8XDYSyHp9zvql5bDodecPyf/TisOtnQ9cqDw9qf vGysIzkMevkEqgI52ByIf3ypiMOeOia14e8cxsN11ZfqOfhUF7YoszjErLGU n57ioJgL0uup5GCx+rNsG0MxDrbEjQx0cGiOMq2xMxLDs4tZ/a8JDjVXqOkn vmKM0JP/9FkmhkP48f+UKsSYPX8tYUgoRpI040lcgRi+La89le5i+G8KExzt FkNVNnGLDhHD++WgiWefGPP1WhNpshic6JSDqU6MF+nWDo0lYuwwumF1YE6M lfnqtMnF3B56ma21mwQ9VWY1r1+KsSyguMnQQ4La2swWqaUEdYm3H0d+JEH0 Sp8ECx8JbgXvFImPSnDZ5UCbYYwE29s1vd2xElQvtE2XlEvwfIMi2S9bglHf o6YDYxK8WlhTkZsnwUSf55edVk6onVUbt7/jhOo/Vf5ZGuqE/kz7oSLKCWnG H76crnFCznWXgtFji7pg18Pjps5AzKYim0POOBE+vlmV7IyoIzVmV3XOUNxb aF2+xQURnc47gn9wRYw7/5QWrijlrb/ynpMb/gcUbLJf "]]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], AxesOrigin->{15., 14.}, Epilog->{{}, StyleBox[ LineBox[{{-12.195081168541794`, -16.19877460224712}, {84.75890172873135, 92.72435280774059}}], Directive[ RGBColor[0.24720000000000014`, 0.24, 0.6], Dashing[{0, Small}]], StripOnInput -> False]}, Frame->True, FrameLabel->{None, None}, Method->{}, PlotRange->{{12.195081168541794`, 28.252967242910447`}, { 14.262376331781628`, 31.22365743575452}}, PlotRangeClipping->True, PlotRangePadding->Scaled[0.02]]], "Output", CellChangeTimes->{3.5861118736635556`*^9, 3.586111930163557*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1209, 816}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 189, 2, 44, "Subsubtitle"], Cell[CellGroupData[{ Cell[793, 28, 99, 1, 39, "Subsubsection"], Cell[CellGroupData[{ Cell[917, 33, 185, 4, 31, "Input"], Cell[1105, 39, 234, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1376, 48, 236, 6, 31, "Input"], Cell[1615, 56, 210, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1862, 65, 127, 2, 31, "Input"], Cell[1992, 69, 139, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2168, 76, 110, 2, 31, "Input"], Cell[2281, 80, 212, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2530, 89, 118, 2, 31, "Input"], Cell[2651, 93, 208, 4, 31, "Output"] }, Open ]], Cell[2874, 100, 183, 4, 30, "Text"], Cell[CellGroupData[{ Cell[3082, 108, 202, 5, 31, "Input"], Cell[3287, 115, 311, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3635, 126, 200, 4, 31, "Input"], Cell[3838, 132, 201, 3, 31, "Output"] }, Open ]], Cell[4054, 138, 164, 3, 30, "Text"], Cell[CellGroupData[{ Cell[4243, 145, 169, 4, 31, "Input"], Cell[4415, 151, 161, 3, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4613, 159, 124, 2, 31, "Input"], Cell[4740, 163, 701, 22, 86, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5490, 191, 121, 1, 39, "Subsubsection"], Cell[CellGroupData[{ Cell[5636, 196, 142, 3, 31, "Input"], Cell[5781, 201, 144, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5962, 208, 168, 4, 31, "Input"], Cell[6133, 214, 199, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6369, 223, 191, 5, 31, "Input"], Cell[6563, 230, 188, 4, 31, "Output"] }, Open ]], Cell[6766, 237, 375, 7, 49, "Text"], Cell[CellGroupData[{ Cell[7166, 248, 170, 4, 31, "Input"], Cell[7339, 254, 140, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7516, 261, 71, 1, 31, "Input"], Cell[7590, 264, 214, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7841, 273, 252, 7, 31, "Input"], Cell[8096, 282, 201, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8334, 291, 68, 1, 31, "Input"], Cell[8405, 294, 208, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8650, 303, 267, 8, 31, "Input"], Cell[8920, 313, 186, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9143, 322, 71, 1, 31, "Input"], Cell[9217, 325, 210, 4, 31, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9476, 335, 161, 4, 49, "Subsection"], Cell[9640, 341, 294, 9, 31, "Input"], Cell[9937, 352, 152, 3, 31, "Input"], Cell[10092, 357, 190, 5, 31, "Input"], Cell[CellGroupData[{ Cell[10307, 366, 141, 3, 31, "Input"], Cell[10451, 371, 339, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10827, 387, 161, 4, 31, "Input"], Cell[10991, 393, 184, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11212, 402, 115, 2, 31, "Input"], Cell[11330, 406, 394, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11761, 423, 117, 2, 31, "Input"], Cell[11881, 427, 340, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12258, 442, 727, 16, 52, "Input"], Cell[12988, 460, 337, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13362, 475, 127, 2, 31, "Input"], Cell[13492, 479, 417, 13, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13946, 497, 122, 2, 31, "Input"], Cell[14071, 501, 287, 8, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14395, 514, 122, 2, 31, "Input"], Cell[14520, 518, 272, 8, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14829, 531, 122, 2, 31, "Input"], Cell[14954, 535, 161, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15152, 543, 135, 2, 31, "Input"], Cell[15290, 547, 484, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15811, 564, 132, 2, 31, "Input"], Cell[15946, 568, 281, 8, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16264, 581, 127, 2, 31, "Input"], Cell[16394, 585, 698, 19, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17129, 609, 131, 2, 31, "Input"], Cell[17263, 613, 184, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17484, 622, 363, 10, 31, "Input"], Cell[17850, 634, 434, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18321, 651, 138, 2, 31, "Input"], Cell[18462, 655, 764, 21, 86, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19263, 681, 133, 2, 31, "Input"], Cell[19399, 685, 141, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19577, 692, 136, 2, 31, "Input"], Cell[19716, 696, 186, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19939, 705, 190, 4, 31, "Input"], Cell[20132, 711, 139, 2, 31, "Output"] }, Open ]], Cell[20286, 716, 129, 1, 30, "Text"], Cell[CellGroupData[{ Cell[20440, 721, 151, 3, 31, "Input"], Cell[20594, 726, 186, 4, 31, "Output"] }, Open ]], Cell[20795, 733, 228, 4, 30, "Text"], Cell[CellGroupData[{ Cell[21048, 741, 176, 4, 31, "Input"], Cell[21227, 747, 142, 2, 31, "Output"] }, Open ]], Cell[21384, 752, 193, 4, 30, "Text"], Cell[CellGroupData[{ Cell[21602, 760, 178, 4, 31, "Input"], Cell[21783, 766, 520, 11, 21, "Message"], Cell[22306, 779, 509, 14, 31, "Output"] }, Open ]], Cell[22830, 796, 142, 3, 30, "Text"], Cell[CellGroupData[{ Cell[22997, 803, 180, 4, 31, "Input"], Cell[23180, 809, 210, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23427, 818, 178, 4, 31, "Input"], Cell[23608, 824, 210, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23855, 833, 463, 11, 31, "Input"], Cell[24321, 846, 190, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24548, 855, 124, 2, 31, "Input"], Cell[24675, 859, 422, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25134, 876, 58, 1, 31, "Input"], Cell[25195, 879, 653, 13, 21, "Message"], Cell[25851, 894, 571, 19, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26459, 918, 177, 4, 31, "Input"], Cell[26639, 924, 730, 19, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27406, 948, 125, 2, 31, "Input"], Cell[27534, 952, 429, 14, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28000, 971, 130, 2, 31, "Input"], Cell[28133, 975, 424, 14, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28594, 994, 133, 2, 31, "Input"], Cell[28730, 998, 592, 20, 46, "Output"] }, Open ]], Cell[29337, 1021, 124, 1, 30, "Text"], Cell[CellGroupData[{ Cell[29486, 1026, 202, 6, 31, "Input"], Cell[29691, 1034, 234, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29962, 1045, 175, 4, 31, "Input"], Cell[30140, 1051, 281, 6, 31, "Output"] }, Open ]], Cell[30436, 1060, 138, 3, 30, "Text"], Cell[CellGroupData[{ Cell[30599, 1067, 599, 14, 31, "Input"], Cell[31201, 1083, 518, 15, 31, "Output"] }, Open ]], Cell[31734, 1101, 136, 3, 30, "Text"], Cell[CellGroupData[{ Cell[31895, 1108, 970, 22, 52, "Input"], Cell[32868, 1132, 571, 15, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33476, 1152, 174, 3, 31, "Input"], Cell[33653, 1157, 861, 24, 86, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34551, 1186, 152, 3, 31, "Input"], Cell[34706, 1191, 378, 8, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35121, 1204, 154, 3, 31, "Input"], Cell[35278, 1209, 502, 14, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35817, 1228, 152, 3, 31, "Input"], Cell[35972, 1233, 427, 11, 31, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36448, 1250, 119, 1, 86, "Section"], Cell[36570, 1253, 187, 4, 30, "Text"], Cell[CellGroupData[{ Cell[36782, 1261, 258, 6, 31, "Input"], Cell[37043, 1269, 440, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37520, 1283, 192, 4, 31, "Input"], Cell[37715, 1289, 346, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38098, 1301, 128, 2, 31, "Input"], Cell[38229, 1305, 135, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38401, 1312, 140, 2, 31, "Input"], Cell[38544, 1316, 134, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38715, 1323, 185, 4, 31, "Input"], Cell[38903, 1329, 137, 2, 31, "Output"] }, Open ]], Cell[39055, 1334, 155, 3, 30, "Text"], Cell[CellGroupData[{ Cell[39235, 1341, 340, 9, 31, "Input"], Cell[39578, 1352, 2165, 33, 112, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41780, 1390, 139, 2, 31, "Input"], Cell[41922, 1394, 5859, 180, 245, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47818, 1579, 184, 3, 31, "Input"], Cell[48005, 1584, 159, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48201, 1591, 182, 3, 31, "Input"], Cell[48386, 1596, 143, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48566, 1603, 353, 8, 31, "Input"], Cell[48922, 1613, 7182, 220, 245, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56141, 1838, 138, 2, 31, "Input"], Cell[56282, 1842, 139, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56458, 1849, 140, 2, 31, "Input"], Cell[56601, 1853, 135, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56773, 1860, 137, 2, 31, "Input"], Cell[56913, 1864, 121, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[57071, 1871, 136, 2, 31, "Input"], Cell[57210, 1875, 2165, 33, 112, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[59412, 1913, 188, 4, 31, "Input"], Cell[59603, 1919, 121, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[59761, 1926, 186, 4, 31, "Input"], Cell[59950, 1932, 123, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[60110, 1939, 204, 4, 31, "Input"], Cell[60317, 1945, 137, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[60491, 1952, 209, 4, 31, "Input"], Cell[60703, 1958, 157, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[60897, 1965, 377, 11, 31, "Input"], Cell[61277, 1978, 157, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61471, 1985, 222, 4, 31, "Input"], Cell[61696, 1991, 157, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61890, 1998, 221, 5, 31, "Input"], Cell[62114, 2005, 4061, 73, 172, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[66212, 2083, 249, 5, 31, "Input"], Cell[66464, 2090, 7229, 222, 245, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[73730, 2317, 657, 16, 52, "Input"], Cell[74390, 2335, 16661, 476, 286, "Output"] }, Open ]], Cell[91066, 2814, 253, 5, 30, "Text"], Cell[CellGroupData[{ Cell[91344, 2823, 399, 12, 31, "Input"], Cell[91746, 2837, 4001, 78, 172, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[95784, 2920, 277, 7, 31, "Input"], Cell[96064, 2929, 2194, 41, 238, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[98295, 2975, 152, 2, 31, "Input"], Cell[98450, 2979, 2966, 57, 244, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[101453, 3041, 141, 2, 31, "Input"], Cell[101597, 3045, 7390, 131, 245, 2582, 51, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[109024, 3181, 248, 6, 31, "Input"], Cell[109275, 3189, 3074, 51, 152, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[112386, 3245, 136, 2, 31, "Input"], Cell[112525, 3249, 111, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[112673, 3255, 151, 2, 31, "Input"], Cell[112827, 3259, 109, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[112973, 3265, 236, 5, 31, "Input"], Cell[113212, 3272, 3105, 53, 152, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[116354, 3330, 130, 2, 31, "Input"], Cell[116487, 3334, 135, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[116659, 3341, 142, 2, 31, "Input"], Cell[116804, 3345, 138, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[116979, 3352, 138, 2, 31, "Input"], Cell[117120, 3356, 3424, 64, 245, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)