(* 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[    127443,       3745]
NotebookOptionsPosition[    115958,       3340]
NotebookOutlinePosition[    116298,       3355]
CellTagsIndexPosition[    116255,       3352]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[StyleBox["Listas e Fun\[CCedilla]\[OTilde]es da \
Estat\[IAcute]stica - 21/8/2014", "Subtitle"]], "Subsubtitle",
 CellChangeTimes->{{3.586108058022932*^9, 3.586108082772934*^9}, {
  3.6175580811574607`*^9, 3.617558084360593*^9}, {3.6175582053749876`*^9, 
  3.617558206234355*^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"], ":", 
  " ", "\<\"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"], ":", 
  " ", "\<\"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->{{14.499999999999972`, 57.561224489795904`}, {
         78.47420867826727, 96.29467513558885}}],
       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->{{56.561224489795904`, 99.62244897959181}, {
         67.26056437338625, 96.29467513558885}}],
       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->{{98.62244897959181, 141.6836734693877}, {
         22.40598715386207, 96.29467513558885}}],
       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->{{140.6836734693877, 
         183.74489795918362`}, {-95.33727804738888, 96.29467513558885}}],
       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->{{182.74489795918362`, 225.80612244897958`}, {
         5.585520696540499, 96.29467513558885}}],
       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.80612244897958`, 267.8673469387755}, {
         16.799165001421542`, 96.29467513558885}}],
       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.8673469387755, 309.92857142857144`}, {
         16.799165001421542`, 96.29467513558885}}],
       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.92857142857144`, 351.98979591836735`}, {
         89.68785298314833, 96.29467513558885}}],
       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->{{14.499999999999972`, 49.14897959183671}, {
         80.04411888095063, 96.29467513558885}}],
       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->{{48.14897959183671, 82.79795918367344}, {
         72.41884075363151, 96.29467513558885}}],
       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->{{81.79795918367344, 116.44693877551018`}, {
         64.79356262631241, 96.29467513558885}}],
       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->{{115.44693877551018`, 150.0959183673469}, {
         3.7913376077595444`, 96.29467513558885}}],
       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->{{149.0959183673469, 
         183.74489795918365`}, {-95.33727804738888, 96.29467513558885}}],
       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->{{182.74489795918365`, 
         217.39387755102038`}, {-41.96033115615512, 96.29467513558885}}],
       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->{{216.39387755102038`, 251.04285714285712`}, {
         11.41661573507865, 96.29467513558885}}],
       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->{{250.04285714285712`, 284.6918367346939}, {
         19.041893862397757`, 96.29467513558885}}],
       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.6918367346939, 318.34081632653056`}, {
         11.41661573507865, 96.29467513558885}}],
       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.34081632653056`, 351.98979591836735`}, {
         64.79356262631241, 96.29467513558885}}],
       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->{{14.499999999999972`, 49.14897959183671}, {
         71.46568098771664, 96.29467513558886}}],
       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->{{48.14897959183671, 82.79795918367344}, {
         71.46568098771664, 96.29467513558886}}],
       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->{{81.79795918367344, 116.44693877551018`}, {
         31.750690741262943`, 96.29467513558886}}],
       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->{{115.44693877551018`, 
         150.0959183673469}, {-39.73629170235371, 96.29467513558886}}],
       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->{{149.0959183673469, 
         183.74489795918365`}, {-95.33727804738886, 96.29467513558886}}],
       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->{{182.74489795918365`, 
         217.39387755102038`}, {-23.850295603772224`, 96.29467513558886}}],
       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->{{216.39387755102038`, 251.04285714285712`}, {
         7.921696593390735, 96.29467513558886}}],
       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->{{250.04285714285712`, 284.6918367346939}, {
         15.86469464268147, 96.29467513558886}}],
       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.6918367346939, 318.34081632653056`}, {
         31.750690741262943`, 96.29467513558886}}],
       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.34081632653056`, 351.98979591836735`}, {
         87.35167708629812, 96.29467513558886}}],
       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->{{20.40779740156151, 
             57.786098582137726`}, {-33.97332313008749, \
-16.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->{{56.786098582137726`, 
             94.16439976271394}, {-42.21709954369888, -16.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->{{93.16439976271394, 
             130.54270094329016`}, {-50.46087595731028, \
-16.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->{{129.54270094329016`, 
             166.92100212386637`}, {-116.41108726620139`, \
-16.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->{{165.92100212386637`, 
             203.2993033044426}, {-223.5801806431495, -16.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->{{202.2993033044426, 
             239.6776044850188}, {-165.87374574786975`, \
-16.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.6776044850188, 
             276.055905665595}, {-108.16731085259, -16.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->{{275.055905665595, 
             312.43420684617115`}, {-99.92353443897862, \
-16.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.43420684617115`, 
             348.8125080267474}, {-108.16731085259, -16.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.8125080267474, 
             385.1908092073236}, {-50.46087595731028, -16.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->{{20.407797401561538`, 
             57.78609858213781}, {-43.2475715954003, -16.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->{{56.78609858213781, 
             94.16439976271397}, {-43.2475715954003, -16.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->{{93.16439976271397, 
             130.54270094329024`}, {-86.18390708295964, \
-16.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->{{129.54270094329024`, 
             166.9210021238664}, {-163.46931096056642`, \
-16.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->{{165.9210021238664, 
             203.29930330444267`}, {-223.5801806431495, \
-16.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->{{202.29930330444267`, 
             239.67760448501895`}, {-146.29477676554268`, \
-16.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.67760448501895`, 
             
             276.0559056655951}, {-111.94570837549523`, \
-16.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->{{275.0559056655951, 
             312.4342068461714}, {-103.35844127798337`, \
-16.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.4342068461714, 
             348.81250802674754`}, {-86.18390708295964, \
-16.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.81250802674754`, 
             385.1908092073238}, {-26.073037400376577`, \
-16.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}]
}, 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->"10.0 for Microsoft Windows (64-bit) (July 1, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 294, 4, 44, "Subsubtitle"],
Cell[CellGroupData[{
Cell[898, 30, 99, 1, 39, "Subsubsection"],
Cell[CellGroupData[{
Cell[1022, 35, 185, 4, 31, "Input"],
Cell[1210, 41, 234, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1481, 50, 236, 6, 31, "Input"],
Cell[1720, 58, 210, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1967, 67, 127, 2, 31, "Input"],
Cell[2097, 71, 139, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2273, 78, 110, 2, 31, "Input"],
Cell[2386, 82, 212, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2635, 91, 118, 2, 31, "Input"],
Cell[2756, 95, 208, 4, 31, "Output"]
}, Open  ]],
Cell[2979, 102, 183, 4, 30, "Text"],
Cell[CellGroupData[{
Cell[3187, 110, 202, 5, 31, "Input"],
Cell[3392, 117, 311, 6, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3740, 128, 200, 4, 31, "Input"],
Cell[3943, 134, 201, 3, 31, "Output"]
}, Open  ]],
Cell[4159, 140, 164, 3, 30, "Text"],
Cell[CellGroupData[{
Cell[4348, 147, 169, 4, 31, "Input"],
Cell[4520, 153, 161, 3, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4718, 161, 124, 2, 31, "Input"],
Cell[4845, 165, 701, 22, 72, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5595, 193, 121, 1, 39, "Subsubsection"],
Cell[CellGroupData[{
Cell[5741, 198, 142, 3, 31, "Input"],
Cell[5886, 203, 144, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6067, 210, 168, 4, 31, "Input"],
Cell[6238, 216, 199, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6474, 225, 191, 5, 31, "Input"],
Cell[6668, 232, 188, 4, 31, "Output"]
}, Open  ]],
Cell[6871, 239, 375, 7, 49, "Text"],
Cell[CellGroupData[{
Cell[7271, 250, 170, 4, 31, "Input"],
Cell[7444, 256, 140, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7621, 263, 71, 1, 31, "Input"],
Cell[7695, 266, 214, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7946, 275, 252, 7, 31, "Input"],
Cell[8201, 284, 201, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8439, 293, 68, 1, 31, "Input"],
Cell[8510, 296, 208, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8755, 305, 267, 8, 31, "Input"],
Cell[9025, 315, 186, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9248, 324, 71, 1, 31, "Input"],
Cell[9322, 327, 210, 4, 31, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[9581, 337, 153, 2, 49, "Subsection"],
Cell[9737, 341, 294, 9, 31, "Input"],
Cell[10034, 352, 152, 3, 31, "Input"],
Cell[10189, 357, 190, 5, 31, "Input"],
Cell[CellGroupData[{
Cell[10404, 366, 141, 3, 31, "Input"],
Cell[10548, 371, 339, 11, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10924, 387, 161, 4, 31, "Input"],
Cell[11088, 393, 184, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11309, 402, 115, 2, 31, "Input"],
Cell[11427, 406, 394, 12, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11858, 423, 117, 2, 31, "Input"],
Cell[11978, 427, 340, 10, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12355, 442, 727, 16, 52, "Input"],
Cell[13085, 460, 337, 10, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13459, 475, 127, 2, 31, "Input"],
Cell[13589, 479, 417, 13, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14043, 497, 122, 2, 31, "Input"],
Cell[14168, 501, 287, 8, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14492, 514, 122, 2, 31, "Input"],
Cell[14617, 518, 272, 8, 56, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14926, 531, 122, 2, 31, "Input"],
Cell[15051, 535, 161, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15249, 543, 135, 2, 31, "Input"],
Cell[15387, 547, 484, 12, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15908, 564, 132, 2, 31, "Input"],
Cell[16043, 568, 281, 8, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16361, 581, 127, 2, 31, "Input"],
Cell[16491, 585, 698, 19, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17226, 609, 131, 2, 31, "Input"],
Cell[17360, 613, 184, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17581, 622, 363, 10, 31, "Input"],
Cell[17947, 634, 434, 12, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18418, 651, 138, 2, 31, "Input"],
Cell[18559, 655, 764, 21, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19360, 681, 133, 2, 31, "Input"],
Cell[19496, 685, 141, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19674, 692, 136, 2, 31, "Input"],
Cell[19813, 696, 186, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20036, 705, 190, 4, 31, "Input"],
Cell[20229, 711, 139, 2, 31, "Output"]
}, Open  ]],
Cell[20383, 716, 129, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[20537, 721, 151, 3, 31, "Input"],
Cell[20691, 726, 186, 4, 31, "Output"]
}, Open  ]],
Cell[20892, 733, 228, 4, 30, "Text"],
Cell[CellGroupData[{
Cell[21145, 741, 176, 4, 31, "Input"],
Cell[21324, 747, 142, 2, 31, "Output"]
}, Open  ]],
Cell[21481, 752, 185, 2, 30, "Text"],
Cell[CellGroupData[{
Cell[21691, 758, 178, 4, 31, "Input"],
Cell[21872, 764, 507, 10, 21, "Message"],
Cell[22382, 776, 509, 14, 31, "Output"]
}, Open  ]],
Cell[22906, 793, 134, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[23065, 798, 180, 4, 31, "Input"],
Cell[23248, 804, 210, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23495, 813, 178, 4, 31, "Input"],
Cell[23676, 819, 210, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23923, 828, 463, 11, 31, "Input"],
Cell[24389, 841, 190, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24616, 850, 124, 2, 31, "Input"],
Cell[24743, 854, 422, 12, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25202, 871, 58, 1, 31, "Input"],
Cell[25263, 874, 640, 12, 21, "Message"],
Cell[25906, 888, 571, 19, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26514, 912, 177, 4, 31, "Input"],
Cell[26694, 918, 730, 19, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27461, 942, 125, 2, 31, "Input"],
Cell[27589, 946, 429, 14, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28055, 965, 130, 2, 31, "Input"],
Cell[28188, 969, 424, 14, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28649, 988, 133, 2, 31, "Input"],
Cell[28785, 992, 592, 20, 46, "Output"]
}, Open  ]],
Cell[29392, 1015, 124, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[29541, 1020, 202, 6, 31, "Input"],
Cell[29746, 1028, 234, 6, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30017, 1039, 175, 4, 31, "Input"],
Cell[30195, 1045, 281, 6, 31, "Output"]
}, Open  ]],
Cell[30491, 1054, 130, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[30646, 1059, 599, 14, 31, "Input"],
Cell[31248, 1075, 518, 15, 31, "Output"]
}, Open  ]],
Cell[31781, 1093, 128, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[31934, 1098, 970, 22, 52, "Input"],
Cell[32907, 1122, 571, 15, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33515, 1142, 174, 3, 31, "Input"],
Cell[33692, 1147, 861, 24, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34590, 1176, 152, 3, 31, "Input"],
Cell[34745, 1181, 378, 8, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35160, 1194, 154, 3, 31, "Input"],
Cell[35317, 1199, 502, 14, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35856, 1218, 152, 3, 31, "Input"],
Cell[36011, 1223, 427, 11, 31, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[36487, 1240, 119, 1, 70, "Section"],
Cell[36609, 1243, 187, 4, 30, "Text"],
Cell[CellGroupData[{
Cell[36821, 1251, 258, 6, 31, "Input"],
Cell[37082, 1259, 440, 9, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37559, 1273, 192, 4, 31, "Input"],
Cell[37754, 1279, 346, 7, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38137, 1291, 128, 2, 31, "Input"],
Cell[38268, 1295, 135, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38440, 1302, 140, 2, 31, "Input"],
Cell[38583, 1306, 134, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38754, 1313, 185, 4, 31, "Input"],
Cell[38942, 1319, 137, 2, 31, "Output"]
}, Open  ]],
Cell[39094, 1324, 155, 3, 30, "Text"],
Cell[CellGroupData[{
Cell[39274, 1331, 340, 9, 31, "Input"],
Cell[39617, 1342, 2165, 33, 112, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41819, 1380, 139, 2, 31, "Input"],
Cell[41961, 1384, 5861, 180, 245, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47859, 1569, 184, 3, 31, "Input"],
Cell[48046, 1574, 159, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48242, 1581, 182, 3, 31, "Input"],
Cell[48427, 1586, 143, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48607, 1593, 353, 8, 31, "Input"],
Cell[48963, 1603, 7192, 220, 245, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56192, 1828, 138, 2, 31, "Input"],
Cell[56333, 1832, 139, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56509, 1839, 140, 2, 31, "Input"],
Cell[56652, 1843, 135, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56824, 1850, 137, 2, 31, "Input"],
Cell[56964, 1854, 121, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57122, 1861, 136, 2, 31, "Input"],
Cell[57261, 1865, 2165, 33, 112, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59463, 1903, 188, 4, 31, "Input"],
Cell[59654, 1909, 121, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59812, 1916, 186, 4, 31, "Input"],
Cell[60001, 1922, 123, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60161, 1929, 204, 4, 31, "Input"],
Cell[60368, 1935, 137, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60542, 1942, 209, 4, 31, "Input"],
Cell[60754, 1948, 157, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60948, 1955, 377, 11, 31, "Input"],
Cell[61328, 1968, 157, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61522, 1975, 222, 4, 31, "Input"],
Cell[61747, 1981, 157, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61941, 1988, 221, 5, 31, "Input"],
Cell[62165, 1995, 4061, 73, 172, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66263, 2073, 249, 5, 31, "Input"],
Cell[66515, 2080, 7241, 222, 245, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[73793, 2307, 657, 16, 52, "Input"],
Cell[74453, 2325, 16689, 479, 286, "Output"]
}, Open  ]],
Cell[91157, 2807, 253, 5, 30, "Text"],
Cell[CellGroupData[{
Cell[91435, 2816, 399, 12, 31, "Input"],
Cell[91837, 2830, 4001, 78, 172, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[95875, 2913, 277, 7, 31, "Input"],
Cell[96155, 2922, 2194, 41, 239, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98386, 2968, 152, 2, 31, "Input"],
Cell[98541, 2972, 2966, 57, 245, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[101544, 3034, 141, 2, 31, "Input"],
Cell[101688, 3038, 2673, 53, 245, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[104398, 3096, 248, 6, 31, "Input"],
Cell[104649, 3104, 3074, 51, 152, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[107760, 3160, 136, 2, 31, "Input"],
Cell[107899, 3164, 111, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108047, 3170, 151, 2, 31, "Input"],
Cell[108201, 3174, 109, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108347, 3180, 236, 5, 31, "Input"],
Cell[108586, 3187, 3105, 53, 152, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111728, 3245, 130, 2, 31, "Input"],
Cell[111861, 3249, 135, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112033, 3256, 142, 2, 31, "Input"],
Cell[112178, 3260, 138, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112353, 3267, 138, 2, 31, "Input"],
Cell[112494, 3271, 3424, 64, 245, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)