(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     41051,       1182]
NotebookOptionsPosition[     36922,       1043]
NotebookOutlinePosition[     37560,       1068]
CellTagsIndexPosition[     37474,       1063]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"\t", 
  StyleBox[
   RowBox[{
    RowBox[{"Pr\[AAcute]ctica", " ", "4"}], "        ", "\[IndentingNewLine]",
     "\[IndentingNewLine]", "ESTIMACI\[CapitalOAcute]N"}],
   FontSize->24]}]], "Input",
 CellChangeTimes->{{3.54027654640625*^9, 3.540276558390625*^9}, {
  3.540276996875*^9, 3.54027700634375*^9}, {3.541418073671875*^9, 
  3.541418105828125*^9}, {3.5414181378125*^9, 3.541418143125*^9}, {
  3.54182955515625*^9, 3.541829573984375*^9}},
 TextAlignment->Center],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
  "Para", " ", "calcular", " ", "la", " ", "media", " ", "y", " ", "varianza",
    " ", "de", " ", "una", " ", "distribuci\[OAcute]n", " ", 
   "discreta"}]}]], "Input",
 CellChangeTimes->{{3.54027642215625*^9, 3.540276453109375*^9}, {
   3.540276541015625*^9, 3.5402765413125*^9}, 3.54027658084375*^9, {
   3.54141818509375*^9, 3.541418190875*^9}, {3.5414182230625*^9, 
   3.54141822959375*^9}, {3.541418273484375*^9, 3.54141827378125*^9}}],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<HypothesisTesting`\>\"", "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nc", "=", 
  RowBox[{"RandomReal", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "2"}], "}"}], ",", "20"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.540275526421875*^9, 3.540275664296875*^9}, {
  3.541414874328125*^9, 3.54141487534375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.8342216683825696`", ",", "1.359636195853959`", ",", "1.274141621944375`",
    ",", "1.6369863054786642`", ",", "1.7958516381919232`", ",", 
   "1.9023757240287416`", ",", "1.7520700690588908`", ",", 
   "1.8490072422562678`", ",", "1.495973803231608`", ",", 
   "1.9324263477292338`", ",", "1.0606831820075209`", ",", 
   "1.8286695837962272`", ",", "1.9279798794237244`", ",", 
   "1.8654156381733313`", ",", "1.8393562407308697`", ",", 
   "1.0078676219656144`", ",", "1.2429482371065392`", ",", 
   "1.2243682107493734`", ",", "1.7559059259036116`", ",", 
   "1.9935880434898074`"}], "}"}]], "Output",
 CellChangeTimes->{{3.54027564315625*^9, 3.540275671578125*^9}, 
   3.54027600059375*^9, 3.541307510234375*^9, 3.541413493203125*^9, 
   3.541413726171875*^9, 3.541414881609375*^9, 3.541829587328125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   StyleBox[
    RowBox[{
    "Para", " ", "obtener", " ", "la", " ", "media", " ", "y", " ", "la", " ",
      "varianza", " ", "de", " ", "una", " ", "distribuci\[OAcute]n", " ", 
     "por", " ", "punto", " ", "se", " ", "define", " ", 
     RowBox[{"mediante", ":", "\[IndentingNewLine]"}]}], "Text"], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.54027662890625*^9, 3.54027669971875*^9}, {
   3.540276761546875*^9, 3.540276832203125*^9}, 3.540276920015625*^9, {
   3.540786150140625*^9, 3.540786150484375*^9}, {3.541414381984375*^9, 
   3.541414396875*^9}},
 EmphasizeSyntaxErrors->True],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "[", 
  RowBox[{"\"\<La media de la distribuci\[OAcute]n es = \>\"", ",", 
   RowBox[{"Mean", "[", "nc", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{3.540276935*^9, 3.540277061984375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"La media de la distribuci\[OAcute]n es = \"\>", 
   "\[InvisibleSpace]", "1.6289736589751427`"}],
  SequenceForm[
  "La media de la distribuci\[OAcute]n es = ", 1.6289736589751427`],
  Editable->False]], "Print",
 CellChangeTimes->{3.540277051484375*^9, 3.54130751071875*^9, 
  3.541413726796875*^9, 3.541829588703125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "[", 
  RowBox[{"\"\<, siendo su varianza = \>\"", ",", 
   RowBox[{"Variance", "[", "nc", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.540276868578125*^9, 3.540276906890625*^9}, 
   3.54027706796875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\", siendo su varianza = \"\>", "\[InvisibleSpace]", 
   "0.10086992543059353`"}],
  SequenceForm[", siendo su varianza = ", 0.10086992543059353`],
  Editable->False]], "Print",
 CellChangeTimes->{3.54027707359375*^9, 3.54130751075*^9, 3.5414137268125*^9, 
  3.54182958875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  StyleBox[
   RowBox[{
    RowBox[{
    "Los", " ", "estimadores", " ", "puntuales", " ", "de", " ", "las", " ", 
     "medias", " ", 
     OverscriptBox[
      SubscriptBox["S", "A"], "^"]}], ",", " ", 
    RowBox[{
    "es", " ", "el", " ", "valor", " ", "de", " ", "la", " ", 
     "desviaci\[OAcute]n", " ", 
     RowBox[{"t\[IAcute]pica", ":", "\[IndentingNewLine]"}]}]}], 
   "Text"]}]], "Input",
 CellChangeTimes->{{3.540277311875*^9, 3.540277378171875*^9}, {
   3.540277413921875*^9, 3.54027747846875*^9}, {3.540785212671875*^9, 
   3.5407852276875*^9}, 3.540786157625*^9},
 EmphasizeSyntaxErrors->True],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "[", 
  RowBox[{
  "\"\<\!\(\*OverscriptBox[SubscriptBox[\(S\), \(A\)], \(^\)]\) = \>\"", ",", 
   RowBox[{"StandardDeviation", "[", "nc", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.54027748384375*^9, 3.54027755603125*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\!\\(\\*OverscriptBox[SubscriptBox[\\(S\\), \\(A\\)], \
\\(^\\)]\\) = \"\>", "\[InvisibleSpace]", "0.31760026043848505`"}],
  SequenceForm[
  "\!\(\*OverscriptBox[SubscriptBox[\(S\), \(A\)], \(^\)]\) = ", 
   0.31760026043848505`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5402775639375*^9, 3.541307510796875*^9, 
  3.541413726859375*^9, 3.541829588796875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  StyleBox[
   RowBox[{
   "siendo", " ", "la", " ", "desviaci\[OAcute]n", " ", "t\[IAcute]pica", " ",
     "es", " ", "la", " ", "raiz", " ", "cuadrada", " ", "de", " ", "la", " ", 
    RowBox[{"varianza", ".", "\[IndentingNewLine]"}]}], "Text"]}]], "Input",
 CellChangeTimes->{{3.540785546515625*^9, 3.54078560109375*^9}, 
   3.540786164953125*^9},
 EmphasizeSyntaxErrors->True],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "[", 
  RowBox[{
  "\"\<  \!\(\*OverscriptBox[OverscriptBox[\(\\\ \), SubscriptBox[\(S\), \
\(A\)]], \(^\)]\) \[Rule] \>\"", ",", 
   RowBox[{"Sqrt", "[", "%", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.540785610984375*^9, 3.540785661171875*^9}, {
   3.540785732828125*^9, 3.540785961265625*^9}, {3.540786001796875*^9, 
   3.540786052796875*^9}, {3.540874327453125*^9, 3.540874369453125*^9}, 
   3.540875118625*^9, {3.54182915925*^9, 3.541829197375*^9}, {
   3.541833174421875*^9, 3.541833181296875*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  \\!\\(\\*OverscriptBox[OverscriptBox[\\(\\\\ \\), \
SubscriptBox[\\(S\\), \\(A\\)]], \\(^\\)]\\) \[Rule] \"\>", 
   "\[InvisibleSpace]", "0.726448`"}],
  SequenceForm[
  "  \!\(\*OverscriptBox[OverscriptBox[\(\\ \), SubscriptBox[\(S\), \(A\)]], \
\(^\)]\) \[Rule] ", 0.726448],
  Editable->False]], "Print",
 CellChangeTimes->{3.54078597084375*^9, 3.540786067640625*^9, 
  3.540874379171875*^9, 3.54087512740625*^9, 3.541307510828125*^9, 
  3.54141372690625*^9, 3.541829588859375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
  "Si", " ", "lo", " ", "que", " ", "se", " ", "desea", " ", "es", " ", "una",
    " ", "estimaci\[OAcute]n", " ", "por", " ", "intervalo", " ", "deberemos",
    " ", "definir", " ", "los", " ", "comandos", " ", "y", " ", "el", " ", 
   "intervalo", " ", "de", " ", 
   RowBox[{"confianza", ".", "\[IndentingNewLine]"}]}]}]], "Input",
 CellChangeTimes->{{3.5418322075*^9, 3.54183236153125*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
   "Si", " ", "queremos", " ", "definir", " ", "un", " ", "nivel", " ", "de", 
    " ", "confianza", " ", "del", " ", "99", "%"}], ":"}], "Text"]], "Input",
 CellChangeTimes->{{3.54027625775*^9, 3.540276276078125*^9}, 
   3.541413773890625*^9},
 EmphasizeSyntaxErrors->True],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MeanCI", "[", 
  RowBox[{"nc", ",", 
   RowBox[{"ConfidenceLevel", "\[Rule]", ".99"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.54027545878125*^9, 3.540275494828125*^9}, {
  3.540275694265625*^9, 3.54027572025*^9}, {3.540275834140625*^9, 
  3.54027587034375*^9}, {3.540275904015625*^9, 3.540275922453125*^9}, {
  3.540276007375*^9, 3.54027603584375*^9}, {3.541414832140625*^9, 
  3.54141483321875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.425797014692906`", ",", "1.8321503032573794`"}], "}"}]], "Output",
 CellChangeTimes->{3.54027568278125*^9, 3.5402757445*^9, 3.540275878171875*^9,
   3.540276044875*^9, 3.541307510546875*^9, 3.541413726265625*^9, 
  3.54141489696875*^9, 3.541829588203125*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
  "Pues", " ", "el", " ", "nivel", " ", "de", " ", "confianza", " ", 
   "Standard", " ", "con", " ", "el", " ", "que", " ", "trabaja", " ", "es", 
   " ", "del", " ", "95", "%", " ", "tanto", " ", "en", " ", "la", " ", 
   "estimac\[OAcute]n", " ", "de", " ", "la", " ", 
   RowBox[{"varianza", ":"}]}], "Text"]], "Input",
 CellChangeTimes->{{3.54027628765625*^9, 3.540276336046875*^9}, {
  3.541412776109375*^9, 3.54141281078125*^9}},
 EmphasizeSyntaxErrors->True],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"VarianceCI", "[", 
  RowBox[{"nc", ",", 
   RowBox[{"ConfidenceLevel", "\[Rule]", ".95"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.540276070234375*^9, 3.540276125015625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.058337681566594836`", ",", "0.2151827358156417`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.54027613403125*^9, 3.541307510609375*^9, 
  3.54141372659375*^9, 3.54141490940625*^9, 3.541829588453125*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
  "como", " ", "en", " ", "la", " ", "estimaci\[OAcute]n", " ", "de", " ", 
   "la", " ", 
   RowBox[{"media", ":"}]}], "Text"]], "Input",
 CellChangeTimes->{{3.541412823515625*^9, 3.54141283615625*^9}},
 EmphasizeSyntaxErrors->True],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MeanCI", "[", "nc", "]"}]], "Input",
 CellChangeTimes->{{3.540276150390625*^9, 3.54027617953125*^9}, {
  3.54141285009375*^9, 3.5414128515625*^9}, {3.541413693453125*^9, 
  3.541413694921875*^9}, {3.541414929765625*^9, 3.541414936921875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.4803321616072131`", ",", "1.7776151563430722`"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.540276187109375*^9, 3.541307510640625*^9, 3.541413642765625*^9, {
   3.541413705953125*^9, 3.541413726640625*^9}, 3.541414946375*^9, 
   3.541829588515625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Recordar", " ", "que", " ", "la", " ", "formula", " ", "utilizada", 
  " ", "para", " ", "estimar", " ", "la", " ", "media", " ", "es"}]], "Input",
 CellChangeTimes->{{3.5414128741875*^9, 3.54141290053125*^9}, {
  3.54141336665625*^9, 3.541413367140625*^9}}],

Cell[BoxData[
 RowBox[{"es", " ", "estimar", " ", "formula", " ", 
  SuperscriptBox["la", "2"], " ", "media", " ", "para", " ", "que", " ", 
  "Recordar", " ", "utilizada"}]], "Output",
 CellChangeTimes->{3.5418295885625*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", 
   RowBox[{"Length", "[", "nc", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d", "=", 
   RowBox[{"StudentTDistribution", "[", 
    RowBox[{"n", "-", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Mu]", "=", 
   RowBox[{"Mean", "[", "nc", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   OverscriptBox["s", "^"], "=", 
   RowBox[{"StandardDeviation", "[", "nc", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"t", "=", 
   RowBox[{"Quantile", "[", 
    RowBox[{"d", ",", ".975"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.54141314315625*^9, 3.541413337734375*^9}, 
   3.54141350690625*^9, {3.541413562984375*^9, 3.54141356996875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MeanCI", "[", "nc", "]"}], "\[Equal]", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"\[Mu]", "-", 
     RowBox[{"t", 
      FractionBox[
       OverscriptBox["s", "^"], 
       SqrtBox["n"]]}]}], ",", 
    RowBox[{"\[Mu]", "+", 
     RowBox[{"t", 
      FractionBox[
       OverscriptBox["s", "^"], 
       SqrtBox["n"]]}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.54141291921875*^9, 3.5414129365*^9}, {
  3.54141297546875*^9, 3.54141303246875*^9}, {3.54141307675*^9, 
  3.5414131246875*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.54141351959375*^9, 3.541413614*^9, 3.541413726703125*^9, 
  3.541829588625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.541414452453125*^9, 3.541414484203125*^9}, {
  3.54141452703125*^9, 3.541414533875*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  StyleBox[
   RowBox[{
   "Cambiando", " ", "las", " ", "condiciones", " ", "tambien", " ", "se", 
    " ", "pueden", " ", "resolver", "  ", 
    RowBox[{"problemas", ":"}]}], "Text"]}]], "Input"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<HypothesisTesting`\>\"", "]"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    StyleBox["\[IndentingNewLine]", "Text"], 
    StyleBox["\[IndentingNewLine]", "Text"], 
    RowBox[{
     RowBox[{
      StyleBox[
       RowBox[{"Pe", ".", " ", "Problema"}], "Text"], 
      StyleBox[" ", "Text"], 
      StyleBox["8", "Text"], 
      StyleBox["  ", "Text"], 
      StyleBox["de", "Text"], 
      StyleBox[" ", "Text"], 
      StyleBox["los", "Text"], 
      StyleBox[" ", "Text"], 
      StyleBox["propuestos", "Text"], 
      StyleBox[" ", "Text"], 
      StyleBox["en", "Text"], 
      StyleBox[" ", "Text"], 
      StyleBox["libro", "Text"], 
      StyleBox[" ", "Text"], 
      StyleBox["de", "Text"], 
      StyleBox[" ", "Text"], 
      StyleBox["pr\[AAcute]cticas", "Text"], 
      StyleBox[" ", "Text"], 
      StyleBox["de", "Text"], 
      StyleBox[" ", "Text"], 
      StyleBox["estad\[IAcute]stica", "Text"], 
      StyleBox[" ", "Text"], 
      StyleBox["con", "Text"], 
      StyleBox[" ", "Text"], 
      RowBox[{
       StyleBox["Mathematica", "Text"], 
       StyleBox[":", "Text"], 
       StyleBox["\[IndentingNewLine]", "Text"], 
       StyleBox["\[IndentingNewLine]", "Text"], 
       StyleBox[
        RowBox[{"Problema", " ", "8"}], "Title"]}]}], 
     StyleBox["\[IndentingNewLine]", "Text"], 
     StyleBox["\[IndentingNewLine]", "Text"], 
     StyleBox[
      RowBox[{
       RowBox[{
       "Se", " ", "han", " ", "realizado", " ", "10", " ", "mediciones", " ", 
        "sobre", " ", "la", " ", "resistencia", " ", "de", " ", "un", " ", 
        "cierto", " ", "tipo", " ", "de", " ", "alambre"}], ",", " ", 
       RowBox[{
        RowBox[{"obteniendo", " ", "que", " ", 
         OverscriptBox["x", "_"]}], " ", "=", 
        RowBox[{
         RowBox[{"10.48", " ", "\[CapitalOmega]", " ", "siendo", " ", 
          OverscriptBox["S", "^"]}], " ", "=", " ", 
         RowBox[{"1.36", 
          RowBox[{"\[CapitalOmega]", ".", " ", "Suponiendo"}], " ", "que", 
          " ", "la", " ", "resistencia", " ", "sigue", " ", "una", " ", 
          "distribuci\[OAcute]n", " ", "normal"}]}]}]}], "Text"], 
     StyleBox[" ", "Text"], 
     StyleBox["\[IndentingNewLine]", "Text"], 
     StyleBox["a", "Text"]}], 
    StyleBox[")", "Text"]}], 
   StyleBox[" ", "Text"], 
   StyleBox["Valor", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["medio", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["de", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["la", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["resistencia", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["de", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["este", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["tipo", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["de", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["alambre", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["para", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["un", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["nivel", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["de", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["confianza", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["del", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["99", "Text"], 
   StyleBox["%", "Text"]}], 
  StyleBox["\[IndentingNewLine]", "Text"]}], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
  "Soluci\[OAcute]n", ":", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
   "Es", " ", "evidente", " ", "que", " ", "la", " ", "muestra", " ", "es", 
    " ", "peque\[NTilde]a", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"n", " ", "=", " ", "10"}], ")"}], ".", " ", "Luego"}], " ", 
    "el", " ", "an\[AAcute]lisis", " ", "estad\[IAcute]stico", " ", 
    RowBox[{"varia", ":", "\[IndentingNewLine]"}]}]}], "Text"]}], "Input",
 CellChangeTimes->{{3.540733574390625*^9, 3.540733980078125*^9}, {
   3.5407340131875*^9, 3.54073406940625*^9}, {3.5407342306875*^9, 
   3.54073423915625*^9}, {3.5407346028125*^9, 3.540734684796875*^9}, {
   3.540734730390625*^9, 3.540734734375*^9}, 3.54073622815625*^9, {
   3.5407853005*^9, 3.5407853063125*^9}, 3.54078618446875*^9, {
   3.54078813328125*^9, 3.540788140484375*^9}, {3.541829910984375*^9, 
   3.5418299144375*^9}, {3.541831251421875*^9, 3.541831310390625*^9}},
 EmphasizeSyntaxErrors->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   OverscriptBox["x", "_"], "=", "10.48"}], ";", " ", 
  RowBox[{
   OverscriptBox["S", "^"], "=", "1.46"}], ";", " ", 
  RowBox[{"n", "=", "10"}], ";", " ", 
  RowBox[{"\[Alpha]", "=", 
   RowBox[{"1", "-", ".99"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.540734493953125*^9, 3.540734574421875*^9}, 
   3.540735930203125*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StudentTCI", "[", 
  RowBox[{
   OverscriptBox["x", "_"], ",", 
   RowBox[{
    OverscriptBox["S", "^"], "/", 
    SqrtBox["n"]}], ",", 
   RowBox[{"n", "-", "1"}], ",", 
   RowBox[{"ConfidenceLevel", "\[Rule]", 
    RowBox[{"1", "-", "\[Alpha]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.540734281375*^9, 3.54073444559375*^9}, {
  3.54073593515625*^9, 3.540735936296875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"8.979575179469895`", ",", "11.980424820530105`"}], "}"}]], "Output",
 CellChangeTimes->{3.540736012390625*^9, 3.541307511140625*^9, 
  3.5414137273125*^9, 3.54182958903125*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"\[IndentingNewLine]", "b", ")"}], " ", "Calcular", " ", "un", " ",
    "intervalo", " ", "de", " ", "confianza", " ", "del", " ", "95", "%", " ",
    "para", " ", "la", " ", "varianza", " ", "de", " ", "la", " ", 
   "resistencia"}], "Text"]], "Input",
 CellChangeTimes->{{3.540734740875*^9, 3.540734781828125*^9}, {
   3.540735897453125*^9, 3.5407359020625*^9}, 3.54078619740625*^9},
 EmphasizeSyntaxErrors->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"Remove", "[", "\[Alpha]", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.540734797453125*^9, 3.5407348144375*^9}, {
  3.54073484446875*^9, 3.54073485178125*^9}, {3.540735942359375*^9, 
  3.54073594371875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Alpha]", "=", 
   RowBox[{"1", "-", ".95"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.540734866765625*^9, 3.540734875546875*^9}, 
   3.54073573359375*^9, 3.54073595690625*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"cd", "=", 
    RowBox[{"ChiSquareDistribution", "[", 
     RowBox[{"n", "-", "1"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.54073491015625*^9, 3.540735054140625*^9}, {
  3.540735739765625*^9, 3.540735739984375*^9}, {3.54073596078125*^9, 
  3.540735961578125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["c", "025"], "=", 
  RowBox[{"Quantile", "[", 
   RowBox[{"cd", ",", 
    RowBox[{"1", "-", 
     RowBox[{"(", 
      RowBox[{"\[Alpha]", "/", "2"}], ")"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5407353274375*^9, 3.540735331515625*^9}, 
   3.54073542253125*^9, {3.54073546475*^9, 3.54073552740625*^9}, {
   3.54073574603125*^9, 3.540735748578125*^9}, {3.540735967640625*^9, 
   3.540735969*^9}}],

Cell[BoxData["19.022767798641635`"], "Output",
 CellChangeTimes->{3.540736054234375*^9, 3.541307511265625*^9, 
  3.54141372740625*^9, 3.541829589140625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["c", "975"], "=", 
  RowBox[{"Quantile", "[", 
   RowBox[{"cd", ",", 
    RowBox[{"\[Alpha]", "/", "2"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.54073507275*^9, 3.540735093734375*^9}, {
   3.54073533878125*^9, 3.54073534065625*^9}, 3.5407354275*^9, {
   3.54073554840625*^9, 3.54073555453125*^9}, {3.540735753265625*^9, 
   3.54073575478125*^9}, {3.54073597259375*^9, 3.54073597365625*^9}}],

Cell[BoxData["2.7003894999803584`"], "Output",
 CellChangeTimes->{3.5407360779375*^9, 3.54130751128125*^9, 
  3.5414137274375*^9, 3.541829589171875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Intervalo de confianza = \>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"n", "-", "1"}], ")"}], "*", 
       SuperscriptBox[
        OverscriptBox["S", "^"], "2"]}], 
      SubscriptBox["c", "025"]], ",", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"n", "-", "1"}], ")"}], "*", 
       SuperscriptBox[
        OverscriptBox["S", "^"], "2"]}], 
      SubscriptBox["c", "975"]]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.540735108234375*^9, 3.54073524796875*^9}, {
  3.5407353788125*^9, 3.54073539575*^9}, {3.54073560365625*^9, 
  3.540735621953125*^9}, {3.540735759578125*^9, 3.540735760828125*^9}, {
  3.5407359795625*^9, 3.540735980671875*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Intervalo de confianza = \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1.0084967762351544`", ",", "7.104308471107422`"}], "}"}]}],
  SequenceForm[
  "Intervalo de confianza = ", {1.0084967762351544`, 7.104308471107422}],
  Editable->False]], "Print",
 CellChangeTimes->{3.5407360854375*^9, 3.5413075113125*^9, 
  3.54141372746875*^9, 3.54182958921875*^9}]
}, Open  ]],

Cell[BoxData[{
 StyleBox[
  RowBox[{"Problema", " ", "3"}], "Title"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{
   "Una", " ", "cierta", " ", "variable", " ", "aleatoria", " ", "se", " ", 
    "distribuye", " ", "normalmente", " ", "con", " ", "varianza", " ", 
    "0.64", " ", "\[DownQuestion]Cual", " ", "ha", " ", "de", " ", "ser", " ",
     "el", " ", "tama\[NTilde]o", " ", "de", " ", "la", " ", "muestra", " ", 
    "para", " ", "que", " ", "con", " ", "probabilidad", " ", "0.95"}], ",", 
   " ", 
   RowBox[{
   "la", " ", "media", " ", "muestral", " ", "difiera", " ", "de", " ", "la", 
    " ", "media", " ", "poblacional", " ", "en", " ", "menos", " ", "de", " ", 
    RowBox[{"0.3", " ", "?"}]}]}], "Text"]}], "Input",
 CellChangeTimes->{{3.541830610640625*^9, 3.541830857078125*^9}}],

Cell[BoxData[
 RowBox[{"Remove", "[", 
  RowBox[{"x", ",", "n"}], "]"}]], "Input",
 CellChangeTimes->{{3.5418304329375*^9, 3.541830478125*^9}, {
  3.541830526734375*^9, 3.541830528265625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"l", "=", 
  RowBox[{"NormalCI", "[", 
   RowBox[{
    OverscriptBox["x", "_"], ",", 
    RowBox[{
     SqrtBox[".64"], "/", 
     SqrtBox["n"]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.541830189140625*^9, 3.541830284609375*^9}, {
  3.541830493390625*^9, 3.541830493953125*^9}, {3.541830534453125*^9, 
  3.5418305355*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox["1.5679711876320432`", 
      SqrtBox["n"]]}], "+", 
    OverscriptBox["x", "_"]}], ",", 
   RowBox[{
    FractionBox["1.5679711876320432`", 
     SqrtBox["n"]], "+", 
    OverscriptBox["x", "_"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.541830942859375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"l", "[", 
      RowBox[{"[", "2", "]"}], "]"}], "-", 
     OverscriptBox["x", "_"]}], "\[Equal]", ".3"}], ",", "n"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.541830310484375*^9, 3.541830373984375*^9}, {
  3.541830498421875*^9, 3.5418304995625*^9}, {3.541830540546875*^9, 
  3.54183054215625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"n", "\[Rule]", "27.31704050271378`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.541830958453125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   StyleBox[
    RowBox[{"Problema", " ", "4"}], "Title"], 
   StyleBox["\[IndentingNewLine]", "Text"], "\[IndentingNewLine]", 
   StyleBox[
    RowBox[{
     RowBox[{"Dar", " ", "una", " ", "estimaci\[OAcute]n"}], ",", " ", 
     RowBox[{
     "al", " ", "nivel", " ", "de", " ", "confianza", " ", "0.99", " ", "del",
       " ", "porcentaje", " ", "de", " ", "elementos", " ", "defectuosos", 
      " ", "en", " ", "un", " ", "lote"}], ",", " ", 
     RowBox[{
     "teniendo", " ", "en", " ", "cuente", " ", "que", " ", "en", " ", "una", 
      " ", "muestra", " ", "de", " ", "200", " ", "unidades", " ", "se", " ", 
      "han", " ", "encontrado", " ", "19", " ", 
      RowBox[{
      "defectuosos", ".", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"Soluci\[OAcute]n", ":"}]}]}]}], "Text"]}]}]], "Input",
 CellChangeTimes->{{3.5407863966875*^9, 3.540786517921875*^9}, {
  3.54078810028125*^9, 3.540788115578125*^9}, {3.540874521671875*^9, 
  3.540874542859375*^9}, {3.5408745748125*^9, 3.540874581109375*^9}},
 EmphasizeSyntaxErrors->True],

Cell[BoxData[
 RowBox[{"4", " ", "Problema"}]], "Output",
 CellChangeTimes->{3.541829589265625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"r", "=", "19"}], ";", 
    RowBox[{"n", "=", "200"}], ";", 
    RowBox[{
     OverscriptBox["p", "^"], "=", 
     RowBox[{"r", "/", "n"}]}], ";", 
    RowBox[{"\[Alpha]", "=", 
     RowBox[{"1", "-", ".99"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dn", "=", 
     RowBox[{"NormalDistribution", "[", 
      RowBox[{"0", ",", "1"}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.540786733890625*^9, 3.54078684621875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{"Quantile", "[", 
    RowBox[{"dn", ",", 
     RowBox[{"1", "-", 
      RowBox[{"(", 
       RowBox[{"\[Alpha]", "/", "2"}], ")"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.540786868109375*^9, 3.54078690384375*^9}, 
   3.541829814859375*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Intervalo de confianza = \>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      OverscriptBox["p", "^"], "-", 
      RowBox[{"z", "*", 
       SqrtBox[
        FractionBox[
         RowBox[{
          OverscriptBox["p", "^"], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            OverscriptBox["p", "^"]}], ")"}]}], "n"]]}]}], ",", 
     RowBox[{
      OverscriptBox["p", "^"], "+", 
      RowBox[{"z", "*", 
       SqrtBox[
        FractionBox[
         RowBox[{
          OverscriptBox["p", "^"], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            OverscriptBox["p", "^"]}], ")"}]}], "n"]]}]}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.540786617140625*^9, 3.540786694625*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Intervalo de confianza = \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0.041594230870026845`", ",", "0.14840576912997316`"}], "}"}]}],
  SequenceForm[
  "Intervalo de confianza = ", {0.041594230870026845`, 0.14840576912997316`}],
  Editable->False]], "Print",
 CellChangeTimes->{3.540786939671875*^9, 3.54130751140625*^9, 
  3.541413727578125*^9, 3.5418295895*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  StyleBox[
   RowBox[{
    RowBox[{
    "Para", " ", "estimar", " ", "el", " ", "cociente", " ", "de", " ", 
     "estimaciones", " ", "entre", " ", "dos", " ", "cuasivarianzas", " ", 
     "muestrales", " ", "deberemos", " ", "acudir", " ", "a", " ", "la", " ", 
     "distribuci\[OAcute]n", " ", "a", " ", "la", " ", "F", " ", "de", " ", 
     "Snedecor"}], "\[IndentingNewLine]"}], "Text"]}]], "Input",
 CellChangeTimes->{{3.54078734309375*^9, 3.54078740915625*^9}, {
   3.540787461046875*^9, 3.540787483453125*^9}, {3.540787518890625*^9, 
   3.5407875279375*^9}, {3.540787606171875*^9, 3.540787614765625*^9}, 
   3.540874635703125*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"??", "FRatioDistribution"}]], "Input",
 CellChangeTimes->{{3.540787164796875*^9, 3.54078718184375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\!\(\*RowBox[{\\\"FRatioDistribution\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"n\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"m\\\", \
\\\"TI\\\"]}], \\\"]\\\"}]\) represents an F-ratio distribution with \
\!\(\*StyleBox[\\\"n\\\", \\\"TI\\\"]\) numerator and \
\!\(\*StyleBox[\\\"m\\\", \\\"TI\\\"]\) denominator degrees of freedom.\"\>", 
   "MSG"], "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/FRatioDistribution"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.541829590109375*^9},
 CellTags->"Info3541836789-8806331"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     RowBox[{
      RowBox[{"Attributes", "[", "FRatioDistribution", "]"}], "=", 
      RowBox[{"{", 
       RowBox[{"Protected", ",", "ReadProtected"}], "}"}]}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[FRatioDistribution],
  Editable->False]], "Print",
 CellChangeTimes->{3.541829590140625*^9},
 CellTags->"Info3541836789-8806331"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Por", " ", "ejemplo"}], ",", " ", 
  RowBox[{
   RowBox[{
   "en", " ", "el", " ", "supuesto", " ", "del", " ", "problema", " ", "5"}], 
   ":", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   StyleBox[
    RowBox[{"Problema", " ", "5"}], "Title"]}]}]], "Input",
 CellChangeTimes->{{3.54078763846875*^9, 3.5407876518125*^9}, {
  3.541831921046875*^9, 3.54183194634375*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  StyleBox[
   RowBox[{
    RowBox[{
     RowBox[{
     "Se", " ", "supone", " ", "que", " ", "el", " ", "consumo", " ", "en", 
      " ", "electricidad", " ", "de", " ", "dos", " ", "almacenes", " ", "de",
       " ", "tama\[NTilde]o", " ", "similar", " ", "en", " ", "una", " ", 
      "empresa", " ", "sigue", " ", "una", " ", "distribuci\[OAcute]n", " ", 
      RowBox[{"normal", ".", " ", "Habi\[EAcute]ndose"}], " ", "observado", 
      " ", "los", " ", "consumos", " ", "durante", " ", "10", " ", "y", " ", 
      "13", " ", "d\[IAcute]as", " ", "elegidos", " ", "al", " ", "azar"}], 
     ",", " ", 
     RowBox[{"se", " ", "han", " ", "observado"}], ",", " ", 
     "respectivamente", ",", "  ", 
     RowBox[{
      RowBox[{"las", " ", "siguientes", " ", "cuasivarianzas", " ", 
       RowBox[{
       "muestrales", ":", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        "\t\t\t\t\t\t\t\t\t", 
        SubsuperscriptBox[
         OverscriptBox["s", "^"], "1", "2"]}]}], "=", "932"}], ",", 
     "                                     ", 
     RowBox[{
      SubsuperscriptBox[
       OverscriptBox["s", "^"], "2", "2"], "=", "397"}]}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
    "Determinar", " ", "un", " ", "intervalo", " ", "de", " ", "confianza", 
     " ", "al", " ", "nivel", " ", "del", " ", "95", "%", " ", "para", " ", 
     "el", " ", "cociente", " ", "de", " ", "variaciones", " ", 
     "poblacionales"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"Soluci\[OAcute]n", ":"}]}], "Text"]}]], "Input",
 CellChangeTimes->{{3.5407876565625*^9, 3.540788092328125*^9}, 
   3.540788174203125*^9, {3.541829839765625*^9, 3.54182986478125*^9}, {
   3.5418333323125*^9, 3.54183335075*^9}},
 EmphasizeSyntaxErrors->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox[
    OverscriptBox["v", "^"], "1"], "=", "932"}], ";", 
  RowBox[{
   SubscriptBox[
    OverscriptBox["v", "^"], "2"], "=", "397"}], ";", 
  RowBox[{"na", "=", "10"}], ";", 
  RowBox[{"nb", "=", "13"}], ";", " ", 
  RowBox[{"\[Alpha]", "=", 
   RowBox[{"1", "-", ".95"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.540788283390625*^9, 3.54078840021875*^9}, {
  3.540788436578125*^9, 3.54078844140625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"fd", "=", 
   RowBox[{"FRatioDistribution", "[", 
    RowBox[{
     RowBox[{"na", "-", "1"}], ",", 
     RowBox[{"nb", "-", "1"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.54078820146875*^9, 3.54078824159375*^9}, 
   3.54141469475*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["f", ".025"], "=", 
   RowBox[{"Quantile", "[", 
    RowBox[{"fd", ",", 
     RowBox[{"1", "-", 
      RowBox[{"(", 
       RowBox[{"\[Alpha]", "/", "2"}], ")"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5407884756875*^9, 3.540788544421875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["f", ".975"], "=", 
   RowBox[{"Quantile", "[", 
    RowBox[{"fd", ",", 
     RowBox[{"\[Alpha]", "/", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.540788563*^9, 3.540788580015625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Intervalo de confianza = \>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["v", "^"], "1"], "/", 
       SubscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      SubscriptBox["f", ".025"]], ",", 
     FractionBox[
      RowBox[{
       SubscriptBox[
        OverscriptBox["v", "^"], "1"], "/", 
       SubscriptBox[
        OverscriptBox["v", "^"], "2"]}], 
      SubscriptBox["f", ".975"]]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.540735108234375*^9, 3.54073524796875*^9}, {
  3.5407353788125*^9, 3.54073539575*^9}, {3.54073560365625*^9, 
  3.540735621953125*^9}, {3.540735759578125*^9, 3.540735760828125*^9}, {
  3.5407359795625*^9, 3.540735980671875*^9}, {3.540788633734375*^9, 
  3.540788707125*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Intervalo de confianza = \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"0.6832690689867903`", ",", "9.081061312065303`"}], "}"}]}],
  SequenceForm[
  "Intervalo de confianza = ", {0.6832690689867903, 9.081061312065303}],
  Editable->False]], "Print",
 CellChangeTimes->{3.54078873909375*^9, 3.541307512109375*^9, 
  3.541413728546875*^9, 3.5418295904375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Mediante", " ", "esta", " ", "pr\[AAcute]ctica", " ", "hemos", " ", 
  "definido", " ", "los", " ", "intervalos", " ", "de", " ", "confianza", " ",
   "por", " ", "punto", " ", "y", " ", "por", " ", 
  RowBox[{"intervalo", ".", " ", "El"}], " ", "problema", " ", "8", "nos", 
  " ", "ha", " ", "permitido", " ", "definir", " ", "el", " ", "intervalo", 
  " ", "de", " ", "confianza", " ", "mediante", " ", "la", " ", "t", " ", 
  "de", " ", "Student", " ", "asi", " ", "como", " ", "el", " ", "de", " ", 
  "las", " ", "varianzas", " ", "mediante", " ", "la", " ", "chi", " ", 
  RowBox[{"cuadrado", ".", " ", "El"}], " ", "problema", " ", "4", " ", "nos",
   " ", "ha", " ", "definido", " ", "el", " ", "intervalo", " ", "de", " ", 
  "confianza", " ", "de", " ", "una", " ", "distribuci\[OAcute]n", " ", 
  "normal", " ", "y", " ", "el", " ", "problema", " ", "3", " ", "nos", " ", 
  "ha", " ", "permitido", " ", "calcular", " ", "el", " ", "valor", " ", "de",
   " ", 
  RowBox[{"(", "n", ")"}], " ", "para", " ", "el", " ", "muestreo", " ", 
  "con", " ", "un", " ", "determinado", " ", "nivel", " ", "de", " ", 
  RowBox[{"confianzaa", ".", " ", "Finalmente"}], " ", "el", " ", "problema", 
  " ", "5", " ", "nos", " ", "ha", " ", "definido", " ", "el", " ", 
  "cociente", " ", "de", " ", "varianzas", " ", "entre", " ", "dos", " ", 
  "distribuciones", " ", "a", " ", "traves", " ", "de", " ", "la", " ", "F", 
  " ", "de", " ", 
  RowBox[{"Snedecor", "."}]}]], "Input",
 CellChangeTimes->{{3.541832427515625*^9, 3.541833031796875*^9}}]
},
ScreenStyleEnvironment->"Condensed",
WindowSize->{1016, 647},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3541836789-8806331"->{
  Cell[29300, 848, 654, 14, 41, "Print",
   CellTags->"Info3541836789-8806331"],
  Cell[29957, 864, 528, 15, 22, "Print",
   CellTags->"Info3541836789-8806331"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3541836789-8806331", 37288, 1055}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 493, 11, 74, "Input"],
Cell[1053, 33, 522, 9, 56, "Input"],
Cell[1578, 44, 83, 1, 19, "Input"],
Cell[CellGroupData[{
Cell[1686, 49, 277, 7, 19, "Input"],
Cell[1966, 58, 853, 15, 38, "Output"]
}, Open  ]],
Cell[2834, 76, 689, 14, 92, "Input"],
Cell[CellGroupData[{
Cell[3548, 94, 220, 4, 19, "Input"],
Cell[3771, 100, 371, 8, 22, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4179, 113, 239, 5, 19, "Input"],
Cell[4421, 120, 324, 7, 22, "Print"]
}, Open  ]],
Cell[4760, 130, 659, 17, 56, "Input"],
Cell[CellGroupData[{
Cell[5444, 151, 260, 5, 22, "Input"],
Cell[5707, 158, 420, 9, 22, "Print"]
}, Open  ]],
Cell[6142, 170, 427, 9, 56, "Input"],
Cell[CellGroupData[{
Cell[6594, 183, 541, 10, 27, "Input"],
Cell[7138, 195, 535, 11, 26, "Print"]
}, Open  ]],
Cell[7688, 209, 452, 8, 56, "Input"],
Cell[8143, 219, 322, 8, 19, "Input"],
Cell[CellGroupData[{
Cell[8490, 231, 426, 8, 19, "Input"],
Cell[8919, 241, 300, 5, 19, "Output"]
}, Open  ]],
Cell[9234, 249, 502, 10, 19, "Input"],
Cell[CellGroupData[{
Cell[9761, 263, 199, 4, 19, "Input"],
Cell[9963, 269, 244, 5, 19, "Output"]
}, Open  ]],
Cell[10222, 277, 269, 7, 19, "Input"],
Cell[CellGroupData[{
Cell[10516, 288, 266, 4, 19, "Input"],
Cell[10785, 294, 296, 7, 19, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11118, 306, 282, 4, 19, "Input"],
Cell[11403, 312, 225, 4, 19, "Output"]
}, Open  ]],
Cell[11643, 319, 758, 21, 92, "Input"],
Cell[CellGroupData[{
Cell[12426, 344, 527, 17, 40, "Input"],
Cell[12956, 363, 132, 2, 19, "Output"]
}, Open  ]],
Cell[13103, 368, 185, 3, 19, "Input"],
Cell[13291, 373, 244, 6, 38, "Input"],
Cell[13538, 381, 83, 1, 19, "Input"],
Cell[13624, 384, 4287, 116, 269, "Input"],
Cell[17914, 502, 362, 10, 19, "Input"],
Cell[CellGroupData[{
Cell[18301, 516, 403, 11, 25, "Input"],
Cell[18707, 529, 216, 4, 19, "Output"]
}, Open  ]],
Cell[18938, 536, 462, 9, 35, "Input"],
Cell[19403, 547, 243, 5, 19, "Input"],
Cell[19649, 554, 212, 5, 19, "Input"],
Cell[19864, 561, 346, 9, 38, "Input"],
Cell[CellGroupData[{
Cell[20235, 574, 441, 11, 19, "Input"],
Cell[20679, 587, 156, 2, 19, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20872, 594, 433, 9, 19, "Input"],
Cell[21308, 605, 152, 2, 19, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21497, 612, 799, 22, 40, "Input"],
Cell[22299, 636, 417, 9, 22, "Print"]
}, Open  ]],
Cell[22731, 648, 813, 16, 61, "Input"],
Cell[23547, 666, 192, 4, 19, "Input"],
Cell[CellGroupData[{
Cell[23764, 674, 349, 10, 25, "Input"],
Cell[24116, 686, 347, 12, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24500, 703, 386, 11, 19, "Input"],
Cell[24889, 716, 162, 4, 19, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25088, 725, 1121, 23, 132, "Input"],
Cell[26212, 750, 99, 2, 19, "Output"]
}, Open  ]],
Cell[26326, 755, 527, 15, 56, "Input"],
Cell[26856, 772, 308, 9, 19, "Input"],
Cell[CellGroupData[{
Cell[27189, 785, 780, 26, 52, "Input"],
Cell[27972, 813, 426, 9, 22, "Print"]
}, Open  ]],
Cell[28413, 825, 710, 13, 74, "Input"],
Cell[CellGroupData[{
Cell[29148, 842, 127, 2, 19, "Input"],
Cell[CellGroupData[{
Cell[29300, 848, 654, 14, 41, "Print",
 CellTags->"Info3541836789-8806331"],
Cell[29957, 864, 528, 15, 22, "Print",
 CellTags->"Info3541836789-8806331"]
}, Open  ]]
}, Open  ]],
Cell[30512, 883, 410, 10, 60, "Input"],
Cell[30925, 895, 1822, 37, 182, "Input"],
Cell[32750, 934, 454, 13, 19, "Input"],
Cell[33207, 949, 279, 8, 19, "Input"],
Cell[33489, 959, 307, 9, 19, "Input"],
Cell[33799, 970, 248, 7, 19, "Input"],
Cell[CellGroupData[{
Cell[34072, 981, 841, 23, 37, "Input"],
Cell[34916, 1006, 419, 9, 22, "Print"]
}, Open  ]],
Cell[35350, 1018, 1568, 23, 92, "Input"]
}
]
*)

(* End of internal cache information *)